Bildet : struktur, hjul, tekstur, spiral, mønster, linje, sirkel, font, figur, design, nett, symmetri, sfære, 3d, grafisk, form, knute, Mathematica, cg, parametricplot3d, kode, program, algoritme, abstruct, kartlegging, sykkelhjulet 3080x3069

(* === Following code of Mathematica 8 generates this image. === *) a = 16; (* center hole size of a torus *) b1 = 7; (* number of cross *) b2 = 5; (* number of cross *) b3 = 7; (* number of cross *) c = 20; (* distance from the center of rotation *) d = 5; (* number of torus *) g1 = 6; (* gap *) g2 = 6; (* gap *) h = 1; (* 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 + Pi/(8 b1))] + c; y = (a - g[t] + g1 f[b1 s]) Sin[b2 (s + Pi/(8 b1))] + c; z = h (g2 Sin[b3 (s + Pi/2)] + f[t]); rm = Table[{x, y, z}.RotationMatrix[2 i Pi/d, {1, 1, 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 set description *)

Den gratis høyoppløselig bilde av struktur, hjul, tekstur, spiral, mønster, linje, sirkel, font, figur, design, nett, symmetri, sfære, 3d, grafisk, form, knute, Mathematica, cg, parametricplot3d, kode, program, algoritme, abstruct, kartlegging, sykkelhjulet

, tatt med en ukjent kamera 01/17 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.