Bakgrundsbilder : gren, strukturera, trä, hjul, textur, mönster, belysning, cirkel, kvist, juldekoration, figur, illustration, design, symmetri, 3d, grafisk, form, Knut, mathematica, cg, parametricplot3d, koda, program, algoritm, abstruct, kartläggning 3080x3084

(* === Following code of Mathematica 8 generates this image. === *) a1 = 16; (* center hole size *) a2 = 1; (* thickness of a torus *) a3 = 4; (* wave height of a torus *) b1 = 16;(*number of cross*) b2 = 9;(*number of cross*) c = 0; (* distance from the center of rotation *) d = 1; (* 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 + 3 Pi/(4 b1))] + c; y = (a1 - a2 Cos[t] + a3 g[b1 s] f[b1 s]) Sin[b2 (s + 3 Pi/(4 b1))] + c; z = h (Cos[b1 s] + f[t]); rm = Table[{x, y, z}.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 *)

Den fria högupplöst bild av gren, strukturera, trä, hjul, textur, mönster, belysning, cirkel, kvist, juldekoration, figur, illustration, design, symmetri, 3d, grafisk, form, Knut, mathematica, cg, parametricplot3d, koda, program, algoritm, abstruct, kartläggning

, tillsammans med en nära okänt kamera 01/17 2017 Bilden tagen med

Bilden släpps fri av upphovsrätten enligt Creative Commons CC0.

Du kan ladda ner, modifiera, distribuera och använda dem royaltyfri för vad du vill, även i kommersiella tillämpningar. Skrivning krävs inte.