Kostenlose foto : Struktur, Textur, Muster, Schriftart, Zahl, Zeichnung, Illustration, Entwurf, Symmetrie, 3d, Grafik, Torus, Mathematica, Cg, Parametricplot3d, Code, Programm, Algorithmus, Abstruieren, Kartierung, Linie Kunst 3080x2924

(* === Following code of Mathematica 8 generates this image. === *) a1 = 10; (* center hole size *) a2 = 1; (* thickness of a torus *) a3 = 4; (* wave height of a torus *) b = 4; (* *) c = 13; (* distance from the center of rotation *) d = 6; (* number of torus *) h = 3; (* height of a torus *) SetOptions[ParametricPlot3D, PlotRange -> Full, Mesh -> None, Boxed -> False, Axes -> None, PlotPoints -> 600, ImageSize -> 3000, Background -> RGBColor[{250, 250, 200}/255], PlotStyle -> Directive[Specularity[White, 30], Texture[Import["D:/tmp/64.jpg"]]], TextureCoordinateFunction -> ({#4, #5 b Pi} &), Lighting -> "Neutral"]; f[v_] := Sin[2 Sin[Sin[Sin[v]]]]; g[v_] := TriangleWave[{-1, 1}, v/(2 Pi)]; x = y = z = {0, 0}; x[[1]] = (a1 - a2 Cos[t] + a3 f[b s]) Cos[s + Pi/(2 b)]; y[[1]] = (a1 - a2 Cos[t] + a3 f[b s]) Sin[s + Pi/(2 b)] + c; z[[1]] = h f[t]; x[[2]] = (a1 - a2 Cos[t] + a3 g[b s]) Cos[s + Pi/(2 b)]; y[[2]] = (a1 - a2 Cos[t] + a3 g[b s]) Sin[s + Pi/(2 b)] + c; z[[2]] = h g[t]; rm = Table[{x[[Mod[i, 2, 1]]], y[[Mod[i, 2, 1]]], z[[Mod[i, 2, 1]]]}.RotationMatrix[2 i Pi/d, {0, 0, 1}], {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 *)

Das kostenlose hochauflösende Foto von Struktur, Textur, Muster, Schriftart, Zahl, Zeichnung, Illustration, Entwurf, Symmetrie, 3d, Grafik, Torus, Mathematica, Cg, Parametricplot3d, Code, Programm, Algorithmus, Abstruieren, Kartierung, Linie Kunst

, genommen mit einem unbekannte Kamera 01/17 2017 Die Aufnahme mit

Das Bild ist frei von Copyrights unter Creative Commons CC0.

Sie können herunterladen, ändern, verteilen und verwenden sie lizenzfrei für alles, was Sie wollen, auch in kommerziellen Anwendungen. Namensnennung ist nicht erforderlich.