Wolfram Cloud Document

In[]:=

n=5;frame=Table[{Sin[i2Pi/n],Cos[i2Pi/n],0},{i,0,10,2}];f1={Thickness[0.01],Line[frame]};Graphics3D[{f1},BoxedFalse,ImageSize200,SphericalRegionTrue,ViewPoint{0,0,100}]

Out[]=

In[]:=

frame=Table[{Sin[i2Pi/5],Cos[i2Pi/5],0},{i,0,8,2}];f1={Polygon[frame]};Graphics3D[{Yellow,f1},BoxedFalse,ImageSize200,SphericalRegionTrue,ViewPoint{0,0,100}]

Out[]=

ve=Table[{Sin[i2Pi/5],Cos[i2Pi/5],0},{i,5}];ba=Table[{2.618Sin[i2Pi/5+Pi/5],2.618Cos[i2Pi/5+Pi/5],0},{i,5}];st=Line[{ba[[1]],ve[[2]],ba[[2]],ve[[3]],ba[[3]],ve[[4]],ba[[4]],ve[[5]],ba[[5]],ve[[1]],ba[[1]]}];Graphics3D[{st},BoxedFalse,ImageSize300,SphericalRegionTrue,ViewPoint{0,0,100}]

Out[]=

In[]:=

ve=Table[{Sin[i2Pi/5],Cos[i2Pi/5],0},{i,5}];ba=Table[{2.618Sin[i2Pi/5+Pi/5],2.618Cos[i2Pi/5+Pi/5],0},{i,6}];st=Line[{ba[[1]],ve[[2]],ba[[2]],ve[[3]],ba[[3]],ve[[4]],ba[[4]],ve[[5]],ba[[5]],ve[[1]],ba[[1]]}];vep=Polygon[ve];bap=Line[ba];Graphics3D[{st,vep,bap},BoxedFalse,ImageSize300,SphericalRegionTrue,ViewPoint{0,0,100}]

Out[]=

In[]:=

ve=Table[{Sin[i2Pi/5],Cos[i2Pi/5],0},{i,5}];ba=Table[{2.618Sin[i2Pi/5+Pi/5],2.618Cos[i2Pi/5+Pi/5],0},{i,6}];stp={ba[[1]],ve[[2]],ba[[2]],ve[[3]],ba[[3]],ve[[4]],ba[[4]],ve[[5]],ba[[5]],ve[[1]],ba[[1]]};stpp=Tube[stp,0.1];Graphics3D[{Green,stpp},BoxedFalse,ImageSize300,SphericalRegionTrue,ViewPoint{0,0,100}]

Out[]=

In[]:=

(*Holeinpentagram*)n=5;ve=Table[{Sin[i2Pi/5],Cos[i2Pi/5],0},{i,5}];ba=Table[{2.618Sin[i2Pi/5+Pi/5],2.618Cos[i2Pi/5+Pi/5],0},{i,6}];stp={ba[[1]],ve[[2]],ba[[2]],ve[[3]],ba[[3]],ve[[4]],ba[[4]],ve[[5]],ba[[5]],ve[[1]],ba[[1]]};pp=Table[0.6{Sin[i2Pi/n],Cos[i2Pi/n],0},{i,n}];ppp=Polygon[pp];comb=Polygon[stp->pp];Graphics3D[{Yellow,comb},BoxedFalse,ImageSize300,SphericalRegionTrue,ViewPoint{0,0,100}]

Out[]=

In[]:=

(*Pentagramshapedhole-madewithWolframMathematica*)n=50;ve=Table[{Sin[i2Pi/5],Cos[i2Pi/5],0},{i,5}];ba=Table[{2.618Sin[i2Pi/5+Pi/5],2.618Cos[i2Pi/5+Pi/5],0},{i,6}];stp={ba[[1]],ve[[2]],ba[[2]],ve[[3]],ba[[3]],ve[[4]],ba[[4]],ve[[5]],ba[[5]],ve[[1]],ba[[1]]};pp=Table[3.6{Sin[i2Pi/n],Cos[i2Pi/n],0},{i,n}];ppp=Polygon[pp];comb=Polygon[pp->stp];Graphics3D[{Cyan,comb},BoxedFalse,ImageSize300,SphericalRegionTrue,ViewPoint{0,0,100}]

Out[]=

In[]:=

Needs["PolyhedronOperations`"];p=Table[{Sin[i2Pi/5],Cos[i2Pi/5],0},{i,5}];pent=Polygon[p];pentt=Truncate[pent,6];Graphics3D[{Green,pentt},BoxedFalse,ImageSize400,SphericalRegionTrue,ViewPoint{0,0,100}]