Gambar : struktur, kayu, tekstur, cangkir, pola, patung, angka, sketsa, gambar, Desain, simetri, 3d, grafis, ukiran, mathematica, cg, parametricplot3d, kode, program, algoritma, abstruct, pemetaan, seni modern 3080x2920

「数学で心と身体を整える」 by 森田真生 (* === Following code of Mathematica 8 generates this image. === *) a = 8; (* center hole size of a torus *) b1 = 5; (* the number of angles *) b2 = 3; (* the number of waves *) b3 = 2; (* the number of knots *) c = 0; (* distance from the center of rotation *) d = 1; (* the number of tori *) h1 = 7; (* width of a torus *) h2 = 6; (* width of a torus *) h3 = 3; (* height of a torus *) SetOptions[ParametricPlot3D, PlotRange -> Full, Mesh -> None, Boxed -> False, Axes -> None, PlotPoints -> 600, ImageSize -> 3000, Background -> RGBColor[{240, 250, 220}/255], PlotStyle -> Directive[Specularity[White, 90], Texture[Import["D:/tmp/94.jpg"]]], TextureCoordinateFunction -> ({#4, #5 b1 Pi} &), Lighting -> "Neutral"]; x = (a - h1 Cos[t] + h2 Sin[b1 s]) Cos[b3 s] + c; y = (a - h1 Cos[t] + h2 Sin[b1 s]) Sin[b3 s] + c; z = (a - h3 (Cos[t t] + Sin[b2 s s])); rm = Table[{x, y, z}.RotationMatrix[2 i Pi/d, {0, 0, 1}], {i, d}]; ParametricPlot3D[rm, {t, 0, Pi}, {s, 0, 2 Pi}] (*--- The Texture Another shapes and colors, and the meaning of this code in the set description *)

Bebas-foto resolusi tinggi dari struktur, kayu, tekstur, cangkir, pola, patung, seni, angka, sketsa, gambar, Desain, simetri, 3d, grafis, ukiran, mathematica, cg, parametricplot3d, kode, program, algoritma, abstruct, pemetaan, seni modern

, 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.