Preskúmajte tieto a ďalšie námety.

JuliaSetPlot[z-(z^9-1)/(9z^2),z,ColorFunction->"RustTones"]

JuliaSetPlot[z-(z^9-1)/(9z^2),z,ColorFunction->"RustTones"]

RegionPlot3D[-5 < x*y*z < 5, {x, -4, 4}, {y, -4, 4}, {z, -4, 4},   Mesh -> None, Boxed -> False, Axes -> False]

RegionPlot3D[-5 < x*y*z < 5, {x, -4, 4}, {y, -4, 4}, {z, -4, 4}, Mesh -> None, Boxed -> False, Axes -> False]

Graphics[Line[ Table[(i/240) If[EvenQ[i], .57, 1] With[{a = i 30 Degree}, {Cos[a], Sin[a]}], {i, 0, 240}]]] https://twitter.com/wolframtap/status/543455957964324864

Graphics[Line[ Table[(i/240) If[EvenQ[i], .57, 1] With[{a = i 30 Degree}, {Cos[a], Sin[a]}], {i, 0, 240}]]] https://twitter.com/wolframtap/status/543455957964324864

Show[ExampleData[{"Geometry3D", "Tree"}],   Epilog -> Inset[Style["I be-leaf in you!", 20]], ViewPoint -> Front]

Show[ExampleData[{"Geometry3D", "Tree"}], Epilog -> Inset[Style["I be-leaf in you!", 20]], ViewPoint -> Front]

ListPlot3D[GeoElevationData[GeoBoundingBox[GeoDisk[$GeoLocation,Quantity[75,"Kilometers"]]]],MeshFunctions->{#3&},Mesh->40]

ListPlot3D[GeoElevationData[GeoBoundingBox[GeoDisk[$GeoLocation,Quantity[75,"Kilometers"]]]],MeshFunctions->{#3&},Mesh->40]

Graphics@NestList[Rotate[#,Pi/5,{2.5,0}]&,{EdgeForm@Cyan, Blue,Polygon[Table[{Sin@x-Cos[8x],Cos@x Sin[99x]},{x,0,Pi,.003}]]},9]

Graphics@NestList[Rotate[#,Pi/5,{2.5,0}]&,{EdgeForm@Cyan, Blue,Polygon[Table[{Sin@x-Cos[8x],Cos@x Sin[99x]},{x,0,Pi,.003}]]},9]

ProteinData["A2M", "MoleculePlot"]

ProteinData["A2M", "MoleculePlot"]

JuliaSetPlot[(0.69 - 0.5 I) + (0.51-0.44 I)/ z^2 - (0.63 - 0.37 I) z + (0.02 - 0.09 I) z^3, z,ColorFunction -> "AvocadoColors"]

JuliaSetPlot[(0.69 - 0.5 I) + (0.51-0.44 I)/ z^2 - (0.63 - 0.37 I) z + (0.02 - 0.09 I) z^3, z,ColorFunction -> "AvocadoColors"]

(*Galaxies far,far away*) Grid[{Take[    DeleteMissing[     EntityValue[Take[EntityList["Galaxy"], 20], "Image"]], 3]}]

(*Galaxies far,far away*) Grid[{Take[ DeleteMissing[ EntityValue[Take[EntityList["Galaxy"], 20], "Image"]], 3]}]

Block[{p =.5-.5 I},Graphics[{Point[{Re[#], Im[#]} & /@ Fold[Join[#, Outer[Plus, {Conjugate[p^#2]},#][[1]]]&,{0,p},Range[13]]]}]]

Block[{p =.5-.5 I},Graphics[{Point[{Re[#], Im[#]} & /@ Fold[Join[#, Outer[Plus, {Conjugate[p^#2]},#][[1]]]&,{0,p},Range[13]]]}]]

Pinterest
Hľadať