Gambar : struktur, tekstur, bunga, pola, geometri, penerangan, patung, seni, ilustrasi, Desain, simetri, 3d, grafis, organ, bentuk, torus, mathematica, cg, parametricplot3d, kode, program, algoritma, pemetaan, geometricsculpture, pentagram, squarewave 3080x2495
Public Domain
Ucapkan terima kasih kepada PxHere
Sematkan ke dalam artikel Anda (mis. Wordpress, Blogspot)
SetOptions[ParametricPlot3D, PlotRange -> Full, Mesh -> None, Boxed -> False, Axes -> None, PlotPoints -> 400, ImageSize -> 3000, Background -> Darker[Blue, 0.8], PlotStyle -> Directive[Specularity[White, 40], Texture[Import["D:/tmp/863.jpg"]]], TextureCoordinateFunction -> ({#4 + #5, #5/Pi} &), Lighting -> "Neutral"]; a = 6; (* center hole size of a torus *) b = 5; (* penta-torus *) c = 5; (* distance from the center of rotation *) d = 7; (* number of torus *) f[v_] := Sin[2 Sin[Sin[Sin[v]]]]; g[v_] := Sum[Cos[(2 k - 1) v]/(2 k - 1), {k, 4}]; x = (a - g[t] - f[b s]) Cos[s + Pi/(2 b)] + c; y = f[t] + c; z = (a - g[t] - f[b s]) Sin[s + Pi/(2 b)] + c; rot = Table[{x, y, z}.RotationMatrix[2 i Pi/d, {1, 5, 0}], {i, d}]; ParametricPlot3D[rot, {t, 0, 2 Pi}, {s, 0, 2 Pi}] (*--- The Texture is another color version of this: www.flickr.com/photos/tanaka_juuyoh/5412528282 The g[] is a 4-partial sum of the Fourier series for Square wave. g[]は矩形波のフーリエ展開の最初の4項 *)
Bebas-foto resolusi tinggi dari struktur, tekstur, bunga, pola, geometri, penerangan, patung, seni, ilustrasi, Desain, simetri, 3d, grafis, organ, bentuk, torus, mathematica, cg, parametricplot3d, kode, program, algoritma, pemetaan, geometricsculpture, pentagram, squarewave
, diambil dengan kamera tidak diketahui 01/17 2017 gambar yang diambil dengan
Gambar dirilis bebas dari hak cipta di bawah Creative Commons cc0.
Anda dapat mendownload, memodifikasi, mendistribusikan, dan menggunakannya bebas royalti untuk apa pun yang Anda suka, bahkan dalam aplikasi komersial. Atribusi tidak diperlukan.











