Utforsk disse og flere idéer!

Utforsk lignende emner

Graphics@{Opacity[.04],NestList[#/.Disk[c_,r_]:>Table[Disk[c+RotationMatrix[2Pi n/7].{0,r/2},r/2],{n,7}]&,Disk[{0,0},1],3]}

Graphics@{Opacity[.04],NestList[#/.Disk[c_,r_]:>Table[Disk[c+RotationMatrix[2Pi n/7].{0,r/2},r/2],{n,7}]&,Disk[{0,0},1],3]}

ContourPlot[{27(x+10)^2==(9-y)y^2,(y-Abs[x+6]/2)^2+(x+6)^2==4,y-2Abs[x+2]*Boole[0>x>-4]==-2,x^3+8y^3==4x y},{x,-12,2},{y,-2,12}]

ContourPlot[{27(x+10)^2==(9-y)y^2,(y-Abs[x+6]/2)^2+(x+6)^2==4,y-2Abs[x+2]*Boole[0>x>-4]==-2,x^3+8y^3==4x y},{x,-12,2},{y,-2,12}]

t = Degree; Graphics@{Disk[],    Table[{White,      Line[{{Cos[r t], Sin[r t]}, {Cos[32 r t], Sin[32 r t]}}]}, {r, 0,      360}]}

t = Degree; Graphics@{Disk[], Table[{White, Line[{{Cos[r t], Sin[r t]}, {Cos[32 r t], Sin[32 r t]}}]}, {r, 0, 360}]}

t = Degree; Graphics[  Table[{Blue, Dotted, Thick,     Line[{{Cos[r t], Sin[r t]}, {Cos[33 r t], Sin[33 r t]}}]}, {r, 0,     360}]]

t = Degree; Graphics[ Table[{Blue, Dotted, Thick, Line[{{Cos[r t], Sin[r t]}, {Cos[33 r t], Sin[33 r t]}}]}, {r, 0, 360}]]

r = 1 - n/10; Graphics@{Disk[{0, 1}],    Table[{White, Thick,      Circle[#, r] & /@ {{0, r}, {n/10, 1}, {-n/10, 1}},      Circle[{0, 2 - n/10}, n/10]}, {n, 0, 10}]}

r = 1 - n/10; Graphics@{Disk[{0, 1}], Table[{White, Thick, Circle[#, r] & /@ {{0, r}, {n/10, 1}, {-n/10, 1}}, Circle[{0, 2 - n/10}, n/10]}, {n, 0, 10}]}

l=#/(1+# Sin@t)^.1{Cos@t,Sin@t}&/@Range[0,1,.05];m=ParametricPlot[l,{t,0,12}][[1]];Graphics@NestList[Rotate[#,Pi/5,{0,-3}]&,m,9]

l=#/(1+# Sin@t)^.1{Cos@t,Sin@t}&/@Range[0,1,.05];m=ParametricPlot[l,{t,0,12}][[1]];Graphics@NestList[Rotate[#,Pi/5,{0,-3}]&,m,9]

t = Degree; Graphics@{Disk[],    Table[{White, Thick,      Line[{{Cos[r t], Sin[r t]}, {Cos[33 r t], Sin[33 r t]}}]}, {r, 0,      360}]}

t = Degree; Graphics@{Disk[], Table[{White, Thick, Line[{{Cos[r t], Sin[r t]}, {Cos[33 r t], Sin[33 r t]}}]}, {r, 0, 360}]}

r=.5;d=Circle;p=1.6;a={m,n};b={0,p};Graphics@{NestList[Rotate[#,Pi/5,{5.5,6.5}]&,Table[{d[a,r,b],d[a+1,r,b+2p]},{m,9},{n,9}],9]}

Tweet-a-Program on

r=.5;d=Circle;p=1.6;a={m,n};b={0,p};Graphics@{NestList[Rotate[#,Pi/5,{5.5,6.5}]&,Table[{d[a,r,b],d[a+1,r,b+2p]},{m,9},{n,9}],9]}

Graphics@{Disk[],    Table[{Red, Dotted,        Line[# {{Cos[r], Sin[r]}, {Cos[5 r], Sin[5 r]}}]}, {r, 0,        360}] & /@ Range[.2, 1, .2]}

Graphics@{Disk[], Table[{Red, Dotted, Line[# {{Cos[r], Sin[r]}, {Cos[5 r], Sin[5 r]}}]}, {r, 0, 360}] & /@ Range[.2, 1, .2]}

Graphics@{Disk[],    Table[{Green, Dotted,        Line[# {{Cos[r], Sin[r]}, {Cos[3 r], Sin[3 r]}}]}, {r, 0,        360}] & /@ Range[-1, 1, .5]}

Graphics@{Disk[], Table[{Green, Dotted, Line[# {{Cos[r], Sin[r]}, {Cos[3 r], Sin[3 r]}}]}, {r, 0, 360}] & /@ Range[-1, 1, .5]}

Pinterest
Søk