Poze : structura, textură, model, metal, sculptură, artă, figura, proiecta, simetrie, 3d, grafic, fier, torusului, Mathematica, cg, parametricplot3d, cod, program, algoritmul, abstruct, cartografiere, Lissajous 3080x2970

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

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

, luate aparat de fotografiat necunoscut 01/14 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ă.