The Hyperbolic
It’s getting more “obvious”
Now .... project onto a hyperboloid!!
Now .... project onto a hyperboloid!!
Some code
Some code
argPoint[arg_]:={Cos[arg],Sin[arg]};
PLine[arg1_,arg2_]:=IfNCos0,Line[{argPoint[arg1],argPoint[arg2]}],IfN[arg2-arg1>π],PLine[arg2,arg1],IfN[arg2-arg1]<0,PLine[arg1,arg2+2π],CircleSecargPoint,Tan,arg2+,arg1-+If[N[arg2+π]>arg1,2π,0];
arg2-arg1
2
arg2-arg1
2
arg1+arg2
2
arg2-arg1
2
π
2
π
2
Graphics[{{RGBColor[.33,.26,.78],Circle[]},Line[{{0,-1},{0,1}}],Table[PLine[#[[1]],#[[2]]]&/@N[Partition[Table[2kPi/(2^n),{k,0,2^n-1}],2,1,1]],{n,1,6+1}]},ImageSize->{600,600},PlotRange{{-1,1},{-1,1}}]
Art from friend Gwen Fisher, 1 hour later
Art from friend Gwen Fisher, 1 hour later
She just coincidentally finished an art piece with the same thing.
Doodle No. 69 “Three Trees”
12” square
Doodle No. 69 “Three Trees”
12” square
Another method
Another method
inf=Flatten[Table[Sort/@(Partition[Table[2kPi/(2^n),{k,0,2^n-1}],2,1,1]/Pi),{n,1,6+1}],1];
Graph[UndirectedEdge@@@inf]
Make the dual graph
Make the dual graph