Bakgrundsbilder : strukturera, textur, blad, blomma, kronblad, mönster, mat, producera, illustration, design, symmetri, 3d, grafisk, torus, mathematica, cg, parametricplot3d, koda, program, algoritm, abstruct, kartläggning, blommande växt, daisy familjen, mark växt 3080x3042

(* === Following code of Mathematica 8 generates this image. === *) a1 = 8; (* center hole size of a torus *) a2 = 8; (* center hole size of a torus *) b1 = 6; (* the number of angles *) b2 = 5; (* the number of waves *) b3 = 3; (* the number of waves *) c1 = 0; (* distance from the center of rotation *) c2 = 4; (* distance from the center of rotation *) d = 6; (* the number of tori *) h1 = 1; (* width of a torus *) h2 = 2; (* width of a torus *) h3 = 2; (* height of a torus *) SetOptions[ParametricPlot3D, PlotRange -> Full, Mesh -> None, Boxed -> False, Axes -> False, PlotPoints -> 500, ImageSize -> 3000, Background -> RGBColor[{20, 50, 30}/255], PlotStyle -> Directive[Specularity[White, 30], Texture[Import["D:/tmp/8622.jpg"]]], TextureCoordinateFunction -> ({#4 + #5, #5/Pi} &), Lighting -> "Neutral"]; x = (a1 - h1 Cos[b2 t] + h2 Sin[b1 s]) Cos[s + 3 Pi/(2 b1)] + c1; y = (a2 - h1 Cos[b2 t] + h2 Sin[b1 s]) Sin[s + 3 Pi/(2 b1)] + c1; z = h3 Sin[b3 t] + c2; vc = {{0, 0, 1}, {0, 0, -1}, {0, 1, 0}, {0, -1, 0}, {1, 0, 0}, {-1, 0, 0}}; rm = Table[{x, y, z}.RotationMatrix[{{0, 0, 1}, vc[[i]]}], {i, d}]; ParametricPlot3D[rm, {t, 0, 2 Pi}, {s, 0, 2 Pi}] (*--- The Texture Another shapes and colors *)

Den fria högupplöst bild av strukturera, växt, textur, blad, blomma, kronblad, mönster, mat, producera, illustration, design, symmetri, 3d, grafisk, torus, mathematica, cg, parametricplot3d, koda, program, algoritm, abstruct, kartläggning, blommande växt, daisy familjen, mark växt

, tillsammans med en nära okänt kamera 01/14 2017 Bilden tagen med

Bilden släpps fri av upphovsrätten enligt Creative Commons CC0.

Du kan ladda ner, modifiera, distribuera och använda dem royaltyfri för vad du vill, även i kommersiella tillämpningar. Skrivning krävs inte.