图片素材 : 结构体, 厂, 质地, 叶, 模式, 绿色, 艺术, 插图, 设计, 对称, 3d, 图形, 环形, 数学, cg, 参数曲线3d, 码, 程序, 算法, abstruct, 映射, 开花植物, 陆地植物 3080x2691

(* === Following code of Mathematica 8 generates this image. === *) a1 = 10; (* center hole size of a torus *) a2 = 6; (* center hole size of a torus *) b1 = 8; (* the number of angles *) b2 = 5; (* the number of waves *) b3 = 3; (* the number of waves *) c1 = 0; (* distance from the center of rotation *) c2 = 6; (* distance from the center of rotation *) d = 6; (* the number of tori *) h1 = 1; (* width of a torus *) h2 = 2; (* width of a torus *) h3 = 3; (* height of a torus *) SetOptions[ParametricPlot3D, PlotRange -> Full, Mesh -> None, Boxed -> False, Axes -> False, PlotPoints -> 500, ImageSize -> 3000, Background -> RGBColor[{20, 50, 30}/255], PlotStyle -> Directive[Specularity[White, 30], Texture[Import["D:/tmp/8622.jpg"]]], TextureCoordinateFunction -> ({#4 + #5, #5/Pi} &), Lighting -> "Neutral"]; x = (a1 - h1 Cos[b2 t] + h2 Sin[b1 s]) Cos[s + 3 Pi/(2 b1)] + c1; y = (a2 - h1 Cos[b2 t] + h2 Sin[b1 s]) Sin[s + 3 Pi/(2 b1)] + c1; z = h3 Sin[b3 t] + c2; vc = {{0, 0, 1}, {0, 0, -1}, {0, 1, 0}, {0, -1, 0}, {1, 0, 0}, {-1, 0, 0}}; rm = Table[{x, y, z}.RotationMatrix[{{0, 0, 1}, vc[[i]]}], {i, d}]; ParametricPlot3D[rm, {t, 0, 2 Pi}, {s, 0, 2 Pi}] (*--- The Texture Another shapes and colors *)

免费的高分辨率照片 结构体, 厂, 质地, 叶, 花, 模式, 绿色, 艺术, 插图, 设计, 对称, 3d, 图形, 环形, 数学, cg, 参数曲线3d, 码, 程序, 算法, abstruct, 映射, 开花植物, 陆地植物

, 拍摄用 未知相机 01/14 2017 照片拍摄

该图像在CC0协议下免费使用.

您可以下载，修改，分发和使用免版税的任何您喜欢的，即使在商业应用程序。 无需提供来源.