Explora Sin 1, 5 10, ¡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}]

Entity["PopularCurve", "CupidCurve"]["Image"]

Entity["PopularCurve", "CupidCurve"]["Image"]

m[{x_,y_}]:=Module[{a=RandomReal[]},If[a<0.99,{x+y,1-0.1 x+0.8 y},{-y,0.1 x}]];ListPlot[NestList[m,{0,0},10^5],AspectRatio->1]

m[{x_,y_}]:=Module[{a=RandomReal[]},If[a<0.99,{x+y,1-0.1 x+0.8 y},{-y,0.1 x}]];ListPlot[NestList[m,{0,0},10^5],AspectRatio->1]

j=List@@JuliaSetPlot[.382817+.0927757 I,ColorFunction->None,PlotStyle->Green];Graphics@NestList[Rotate[#,Pi/4,{1,1}]&,j,7]

j=List@@JuliaSetPlot[.382817+.0927757 I,ColorFunction->None,PlotStyle->Green];Graphics@NestList[Rotate[#,Pi/4,{1,1}]&,j,7]

Table[Binarize[   EntityValue[Entity["Person", "StephenWolfram::j276d"], "Image"],    x], {x, 0.1, 0.9, 0.1}]

Table[Binarize[ EntityValue[Entity["Person", "StephenWolfram::j276d"], "Image"], x], {x, 0.1, 0.9, 0.1}]

s@{x_,y_}:={Pi/2-y+.4Abs@Sqrt[x^3-x-1],x};ListPolarPlot[#-NestList[s[#]&,{-1.2,1.2},20000]&/@{1,-1},PlotStyle->Blue,Axes->False]

s@{x_,y_}:={Pi/2-y+.4Abs@Sqrt[x^3-x-1],x};ListPolarPlot[#-NestList[s[#]&,{-1.2,1.2},20000]&/@{1,-1},PlotStyle->Blue,Axes->False]

TableForm[{DateString[], (Entity["PopularCurve", "ApplejackCurve"]["Image"] /. {True->False})}]

TableForm[{DateString[], (Entity["PopularCurve", "ApplejackCurve"]["Image"] /. {True->False})}]

TreeForm[Total@NestList[(1+#)^2&,x,4],VertexRenderingFunction->(Inset[Graphics3D[{RandomColor[],Cuboid[]},ImageSize->44],#]&)]

TreeForm[Total@NestList[(1+#)^2&,x,4],VertexRenderingFunction->(Inset[Graphics3D[{RandomColor[],Cuboid[]},ImageSize->44],#]&)]

Graphics3D@NestList[Rotate[#,3/4,{3,-3,3}]&,{Dynamic@RandomColor[],Ball[Table[t{Cos[99t],Sin[99t],0},{t,0,3,.001}],.02]},7]

Graphics3D@NestList[Rotate[#,3/4,{3,-3,3}]&,{Dynamic@RandomColor[],Ball[Table[t{Cos[99t],Sin[99t],0},{t,0,3,.001}],.02]},7]

j=List@@JuliaSetPlot[-.8+.158 I,ColorFunction->None,PlotStyle->Orange]; Graphics@NestList[Rotate[#, Pi/4] &,j,3]

j=List@@JuliaSetPlot[-.8+.158 I,ColorFunction->None,PlotStyle->Orange]; Graphics@NestList[Rotate[#, Pi/4] &,j,3]

Pinterest • El catálogo global de ideas
Search