картинки : состав, колесо, текстура, лепесток, сердце, шаблон, Ухо, Розовый, круг, продукт, шрифт, Круто, Фигура, дизайн, обувь, Симметрия, 3d, Графический, морской узел, Математика, Cg, Parametricplot3d, код, Программа, алгоритм, Возводить в степень, Картирование, Модный аксессуар 3363x3103

(* === Following code of Mathematica 8 generates this image. === *) a = 6; (* center hole size of a torus *) b1 = 5; (* number of cross *) b2 = 2; (* number of cross *) b3 = 7; (* number of cross *) c = 0; (* distance from the center of rotation *) d = 1; (* number of torus *) g1 = 16; (* gap *) g2 = 3; (* gap *) h = 3; (* height of a torus *) SetOptions[ParametricPlot3D, PlotRange -> Full, Mesh -> None, Boxed -> False, Axes -> None, PlotPoints -> 600, ImageSize -> 1600, Background -> RGBColor[{250, 250, 230}/255], PlotStyle -> Directive[Specularity[White, 90], Texture[Import["D:/tmp/40.jpg"]]], TextureCoordinateFunction -> ({#4, #5 Pi b2} &), Lighting -> "Neutral"]; x = (a - Cos[t] + g1 Sin[b1 s]) Cos[b2 (s + Pi/4)] + c; y = (a - Cos[t] + g1 Sin[b1 s]) Sin[b2 (s + Pi/4)] + c; z = h (Sin[t] + g2 Sin[b3 s]); 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 *)

Бесплатно высокого разрешения фото состав, колесо, текстура, лепесток, сердце, шаблон, Ухо, Розовый, круг, продукт, шрифт, Круто, Фигура, дизайн, обувь, Симметрия, 3d, Графический, морской узел, Математика, Cg, Parametricplot3d, код, Программа, алгоритм, Возводить в степень, Картирование, Модный аксессуар

, приняты с неизвестен камера 01/05 2017 Снимок, сделанный с

Изображение выпущен бесплатно авторских прав в соответствии с лицензией Creative Commons CC0.

Вы можете загружать, изменять, распространять и использовать их роялти за все, что угодно, даже в коммерческих приложениях. Указание авторства не требуется.