Utforsk disse og flere idéer!

GraphPlot[Flatten[Table[Table[j->FromDigits[Insert[IntegerDigits[j,2],0,i],2],{i, Length[IntegerDigits[j,2]]+1}],{j,0,2047}]]]

GraphPlot[Flatten[Table[Table[j->FromDigits[Insert[IntegerDigits[j,2],0,i],2],{i, Length[IntegerDigits[j,2]]+1}],{j,0,2047}]]]

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}]

Tweet-a-Program on

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}]

Graphics@{NestList[Rotate[#,.4,{-.8,.4}]&,{Dynamic@RandomColor[],BezierCurve@Flatten[CirclePoints[#,3]&/@Range[0,1,.08],1]},15]}

Tweet-a-Program on

Graphics@{NestList[Rotate[#,.4,{-.8,.4}]&,{Dynamic@RandomColor[],BezierCurve@Flatten[CirclePoints[#,3]&/@Range[0,1,.08],1]},15]}

Graphics@{NestList[Rotate[#,.4,{-.8,.4}]&,{Dynamic@RandomColor[],BezierCurve@Flatten[CirclePoints[#,3]&/@Range[0,1,.09],1]},15]}

Tweet-a-Program on

Graphics@{NestList[Rotate[#,.4,{-.8,.4}]&,{Dynamic@RandomColor[],BezierCurve@Flatten[CirclePoints[#,3]&/@Range[0,1,.09],1]},15]}

Graphics@{NestList[Rotate[#,Pi/4,{.9,-.5}]&,{Red,BezierCurve@Flatten[CirclePoints[#,3]& /@ Range[0,1,.1],1]},7]}

Tweet-a-Program on

Graphics@{NestList[Rotate[#,Pi/4,{.9,-.5}]&,{Red,BezierCurve@Flatten[CirclePoints[#,3]& /@ Range[0,1,.1],1]},7]}

Graphics@{NestList[Rotate[#,Pi/4,{-1,-.5}]&,{s=CirclePoints[#,3]&/@ Range[0,1,.1];Red,BezierCurve/@{s,s/.{a_,b_}:>{a,-b-1}}},7]}

Tweet-a-Program on

Graphics@{NestList[Rotate[#,Pi/4,{-1,-.5}]&,{s=CirclePoints[#,3]&/@ Range[0,1,.1];Red,BezierCurve/@{s,s/.{a_,b_}:>{a,-b-1}}},7]}

Graphics[Line[   Table[(i/240) If[EvenQ[i], .57,       1] With[{a = i 30 Degree}, {Cos[a], Sin[a]}], {i, 0, 240}]]]

Tweet-a-Program on

Graphics[Line[ Table[(i/240) If[EvenQ[i], .57, 1] With[{a = i 30 Degree}, {Cos[a], Sin[a]}], {i, 0, 240}]]]

Graphics@{Red,NestList[Rotate[#,Pi/3,{0,8Pi}]&,Line@Flatten[CirclePoints[#,3]&/@Join[Range[1,25,2],Reverse@Range[1,25,2]],1],5]}

Tweet-a-Program on

Graphics@{Red,NestList[Rotate[#,Pi/3,{0,8Pi}]&,Line@Flatten[CirclePoints[#,3]&/@Join[Range[1,25,2],Reverse@Range[1,25,2]],1],5]}

j=Line@#&/@ Table[{{Cos[t Pi],0},{Sin[6 t],Cos[6 t]}},{t,0,60 Pi,Pi/2}];  Graphics@{Blue,NestList[Rotate[#,Pi/2,{0,1}]&,j,3]}

Tweet-a-Program on

j=Line@#&/@ Table[{{Cos[t Pi],0},{Sin[6 t],Cos[6 t]}},{t,0,60 Pi,Pi/2}]; Graphics@{Blue,NestList[Rotate[#,Pi/2,{0,1}]&,j,3]}

GraphData["Foster056A", "AllImages"][[2]]

Tweet-a-Program on

GraphData["Foster056A", "AllImages"][[2]]

Pinterest
Søk