Explora 1 ¡y mucho más!

s=Total[Sin[#1 x+#2 y]&@@@RandomReal[5,{10,2}]];ContourPlot[s==0,{x,10,20},{y,-5,5}]

s=Total[Sin[#1 x+#2 y]&@@@RandomReal[5,{10,2}]];ContourPlot[s==0,{x,10,20},{y,-5,5}]

z=Sqrt[.01t^2+1];Graphics3D@{EdgeForm@{Thick,Red}, Cone[Table[#{Cos@t/z,Sin@t/z,# .1t/z^.5}&/@{1,-1},{t,-30,30,.1}],.05]}

Tweet-a-Program on

z=Sqrt[.01t^2+1];Graphics3D@{EdgeForm@{Thick,Red}, Cone[Table[#{Cos@t/z,Sin@t/z,# .1t/z^.5}&/@{1,-1},{t,-30,30,.1}],.05]}

ChemicalData[#, "ColorStructureDiagram"] & /@   ChemicalData["AminoAcids"]

Tweet-a-Program on

ChemicalData[#, "ColorStructureDiagram"] & /@ ChemicalData["AminoAcids"]

n=360;Graphics[{Opacity[0.25],Line[#]&/@Table[{i,Mod[(i*4),n]},{i,1,\ n}]/.Table[t->{Cos[0.0175*t],Sin[0.0175*t]},{t,0,n}]}]

Tweet-a-Program on

n=360;Graphics[{Opacity[0.25],Line[#]&/@Table[{i,Mod[(i*4),n]},{i,1,\ n}]/.Table[t->{Cos[0.0175*t],Sin[0.0175*t]},{t,0,n}]}]

pts=RandomReal[1,{10,3}];f=Nearest[pts];DensityPlot3D[First[f[{x,y,z}]]/.MapIndexed[#->First@#2&,pts],{x,0,1},{y,0,1},{z,0,1}]

Tweet-a-Program on

pts=RandomReal[1,{10,3}];f=Nearest[pts];DensityPlot3D[First[f[{x,y,z}]]/.MapIndexed[#->First@#2&,pts],{x,0,1},{y,0,1},{z,0,1}]

ContourPlot3D[Cos[{x,y,z}/Norm[{x,y,z}]^2]==0,{x,-0.5,0},{y,0,0.5},{z,-0.5,0}]

Tweet-a-Program on

ContourPlot3D[Cos[{x,y,z}/Norm[{x,y,z}]^2]==0,{x,-0.5,0},{y,0,0.5},{z,-0.5,0}]

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

Tweet-a-Program on

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

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[#,.13]&,Riffle[Table[Hue[i/25],{i,404}],Point@#&/@Flatten[AnglePath[# Range[-1,1,.01]]&/@{1,-1},1]],48]

Tweet-a-Program on

Graphics@NestList[Rotate[#,.13]&,Riffle[Table[Hue[i/25],{i,404}],Point@#&/@Flatten[AnglePath[# Range[-1,1,.01]]&/@{1,-1},1]],48]

m@{x_,y_}:={E/2-y+.4Abs@Sqrt[x^2+x],x}; Graphics[Riffle[RandomColor@20001,Point/@ NestList[m@#&,{-1,1},20000]]]

Tweet-a-Program on

m@{x_,y_}:={E/2-y+.4Abs@Sqrt[x^2+x],x}; Graphics[Riffle[RandomColor@20001,Point/@ NestList[m@#&,{-1,1},20000]]]

Pinterest
Buscar