εικονεσ : δομή, ΡΟΔΑ, υφή, πρότυπο, γλυπτική, εικόνα, σχέδιο, συμμετρία, 3d, γραφικός, σίδερο, βάση στήλης, Mathematica, cg, parametricplot3d, κώδικας, πρόγραμμα, αλγόριθμος, abstruct, χαρτογράφηση, τεχνητές αντικείμενο 3080x2673

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

Η δωρεάν υψηλής ανάλυσης φωτογραφία δομή, ΡΟΔΑ, υφή, πρότυπο, γλυπτική, εικόνα, σχέδιο, συμμετρία, 3d, γραφικός, σίδερο, βάση στήλης, Mathematica, cg, parametricplot3d, κώδικας, πρόγραμμα, αλγόριθμος, abstruct, χαρτογράφηση, τεχνητές αντικείμενο

, λαμβάνονται με ένα άγνωστη κάμερα 01/13 2017 Η εικόνα που λαμβάνεται με

Η εικόνα απελευθερώνεται ελεύθερο πνευματικών δικαιωμάτων υπό το Creative Commons CC0.

Μπορείτε να κατεβάσετε, τροποποίηση, διανομή, και να τα χρησιμοποιούν ατελώς για οτιδήποτε σας αρέσει, ακόμα και σε εμπορικές εφαρμογές. Attribution δεν απαιτείται.