Poze : structura, textură, model, sculptură, artă, Imagine rece, figura, proiecta, simetrie, 3d, grafic, costum, Mathematica, cg, parametricplot3d, cod, program, algoritmul, abstruct, cartografiere 3080x2503

(* === Following code of Mathematica 8 generates this image. === *) a1 = 10; (* size *) a2 = 10; (* size *) b1 = 2; (* the number of cross *) b2 = 2;(* the number of cross *) b3 = 2;(* the number of waves *) b4 = 4;(* the number of waves *) c1 = 0; (* distance from the center of rotation *) c2 = 0; (* distance from the center of rotation *) d = 1; (* the number of rock *) h1 = 1; (* width of a rock *) h2 = 1; (* width of a rock *) h3 = 3;(* height of a rock *) h4 = 3;(* height of a rock *) p1 = 0; SetOptions[ParametricPlot3D, PlotRange -> Full, Mesh -> None, Boxed -> False, Axes -> False, PlotPoints -> 600, ImageSize -> 3000, Background -> RGBColor[{200, 220, 240}/255], PlotStyle -> Directive[Specularity[White, 70], Texture[Import["D:/tmp/94.jpg"]]], TextureCoordinateFunction -> ({#4, #5 b1 Pi} &), Lighting -> "Neutral"]; x = (a1 + h1 Cos[b3 t] + h2 Sin[b1 (s + p1)]) Cos[t] Cos[b2 s] + c1; y = (a2 + h1 Cos[b3 t] + h2 Sin[b1 (s + p1)]) Sin[t] Sin[b2 s] + c1; z = h3 Cos[b1 s] + h4 Sin[b4 t] + c2; rm = Table[{x, y, z}.RotationMatrix[2 Pi (i/d), {0, 0, 1}], {i, d}]; ParametricPlot3D[rm, {t, 0, Pi}, {s, 0, Pi}] (*--- The Texture Another shapes and colors, and the meaning of this code in the album description *)

Liber de înaltă rezoluție fotografia structura, textură, model, sculptură, artă, Imagine rece, figura, proiecta, simetrie, 3d, grafic, costum, Mathematica, cg, parametricplot3d, cod, program, algoritmul, abstruct, cartografiere

, luate aparat de fotografiat necunoscut 01/05 2017 Imaginea luată cu

Imaginea este eliberat gratuit a drepturilor de autor sub Creative Commons CC0.

Puteti descarca, modifica, distribui, și să le utilizeze drepturi de autor gratuite pentru orice doriți, chiar și în aplicații comerciale. De atribuire nu este necesară.