Ilmaisia Kuvia : ajopuut, rakenne, puu, kuvio, tuottaa, materiaali, oksa, veistos, Viileä kuva, design, symmetria, 3d, graafinen, kaiverrus, solmu, mathematica, cg, parametricplot3d, koodi, ohjelmoida, algoritmi, abstruct, kartoitus, maku 3080x3192

(* === Following code of Mathematica 8 generates this image. === *) a1 = 16; (* center hole size *) a2 = 2; (* thickness of a torus *) a3 = 5; (* wave height of a torus *) b1 = 3;(*number of cross*) b2 = 4;(*number of cross*) c = 4; (* distance from the center of rotation *) d = 5; (* number of torus *) h = 1; (* height of a torus *) SetOptions[ParametricPlot3D, PlotRange -> Full, Mesh -> None, Boxed -> False, Axes -> None, PlotPoints -> 600, ImageSize -> 3000, Background -> RGBColor[{220, 250, 230}/255], PlotStyle -> Directive[Specularity[White, 30], Texture[Import["D:/tmp/31.jpg"]]], TextureCoordinateFunction -> ({#4, #5 b1 Pi} &), Lighting -> "Neutral"]; f[v_] := Sin[2 Sin[Sin[Sin[v]]]]; g[v_] := If[Sin[v] > 0, -3, 1]; x = (a1 - a2 Cos[t] + a3 g[b1 s] f[b1 s]) Cos[b2 s]; y = (a1 - a2 Cos[t] + a3 g[b1 s] f[b1 s]) Sin[b2 s] + c; z = h (Cos[b1 s] + f[t]) + c; rm = Table[{x, y, z}.RotationMatrix[2 i Pi/d, {1, 0, 0}], {i, d}]; ParametricPlot3D[rm, {t, 0, 2 Pi}, {s, 0, 2 Pi}] (*--- The Texture Another shapes and colors, and the meaning of this code in the album description *)

Laite, jolla vapaa korkearesoluutioinen kuva ajopuut, rakenne, puu, rakenne, kuvio, tuottaa, materiaali, oksa, veistos, Viileä kuva, kuvio, design, symmetria, 3d, graafinen, kaiverrus, solmu, mathematica, cg, parametricplot3d, koodi, ohjelmoida, algoritmi, abstruct, kartoitus, maku

, on otettu: tuntematon kamera 01/05 2017 Laite, jolla kuva on otettu:

Kuva julkaistaan tekijänoikeuksista vapaana käytettäväksi Creative Commons CC0-lisenssin alla.

Voit ladata, muokata, jakaa sekä käyttää kuvia vapaasti, jopa kaupallisesti, ilman eri lupaa tai tunnustuksen antamista tekijälle.