Bildet : abstrakt, struktur, tekstur, mønster, geometri, belysning, smykker, skulptur, design, symmetri, 3d, grafisk, form, torus, Mathematica, cg, parametricplot3d, kode, program, algoritme, kartlegging, geometricsculpture, pentagram, motetilbehør 2680x2680

a = 6; (* center hole size of a torus *) b = 5; (* penta-torus *) c = 3; (* distance from the center of rotation *) d = 8; (* number of torus *) h = 1; (* height of a torus *) SetOptions[ParametricPlot3D, PlotRange -> Full, Mesh -> None, Boxed -> False, Axes -> False, PlotPoints -> 250, ImageSize -> 2600, Background -> Darker[Green, 0.8], PlotStyle -> Directive[Specularity[White, 30], Texture[Import["D:/tmp/86.jpg"]]], TextureCoordinateFunction -> ({#4, #5 } &), Lighting -> "Neutral"]; f[v_] := Cos[2 Cos[Cos[Cos[v]]]]; g[v_] := Sum[Sin[(2 k - 1) v]/(2 k - 1), {k, 4}]; x = (a - f[t] - g[b s]) Cos[s + 3 Pi/(4 b)] + c; y = (a - f[t] - g[b s]) Sin[s + 3 Pi/(4 b)] + c; z = (a - Sin[t] - h g[b s]); rot = Table[{x, y, z}.RotationMatrix[2 i Pi/d, {0, 0, 1}], {i, d}]; ParametricPlot3D[rot, {t, 0, 2 Pi}, {s, 0, 2 Pi}] (*--- The Texture *)

Den gratis høyoppløselig bilde av abstrakt, struktur, tekstur, mønster, geometri, belysning, smykker, skulptur, design, symmetri, 3d, grafisk, form, torus, Mathematica, cg, parametricplot3d, kode, program, algoritme, kartlegging, geometricsculpture, pentagram, motetilbehør

, tatt med en ukjent kamera 01/30 2017 Bildet er tatt med

Bildet er sluppet fri av opphavsrettigheter under Creative Commons CC0.

Du kan laste ned, modifisere, distribuere og bruke dem avgiftsfri for noe du liker, selv i kommersielle programmer. Navngivelse er ikke nødvendig.