Poze : structura, textură, floare, Violet, petală, model, bijuterii, figura, proiecta, violet, simetrie, 3d, grafic, organ, nod, Mathematica, cg, parametricplot3d, cod, program, algoritmul, abstruct, cartografiere, albastru cobalt 3080x2860

(* === Following code of Mathematica 8 generates this image. === *) a = 12; (* center hole size of a torus *) b1 = 7; (* number of cross *) b2 = 5; (* number of cross *) b3 = 7; (* number of cross *) c = 14; (* distance from the center of rotation *) d = 6; (* number of torus *) g1 = 1; (* gap *) g2 = 1; (* gap *) h = 5; (* height of a torus *) SetOptions[ParametricPlot3D, PlotRange -> Full, Mesh -> None, Boxed -> False, Axes -> None, PlotPoints -> 500, ImageSize -> 3000, Background -> RGBColor[{230, 200, 250}/255], PlotStyle -> Directive[Specularity[White, 90], Texture[Import["D:/tmp/714.jpg"]]], TextureCoordinateFunction -> ({#4, #5 b2 Pi} &), Lighting -> "Neutral"]; f[v_] := TriangleWave[{-1, 1}, v/(2 Pi)]; g[v_] := TriangleWave[{-1, 1}, v/(2 Pi) + 1/4]; x = (a - g[t] + g1 f[b1 s]) Cos[b2 s]; y = (a - g[t] + g1 f[b1 s]) Sin[b2 s] + c; z = h (g2 Sin[b3 (s + Pi/2)] + 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 set description *)

Liber de înaltă rezoluție fotografia structura, textură, floare, Violet, petală, model, albastru, bijuterii, figura, proiecta, violet, simetrie, 3d, grafic, organ, nod, Mathematica, cg, parametricplot3d, cod, program, algoritmul, abstruct, cartografiere, albastru cobalt

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