εικονεσ : αφηρημένη, δομή, υφή, σπειροειδής, λουλούδι, πρότυπο, πράσινος, γεωμετρία, κίτρινος, κύκλος, γλυπτική, εικονογράφηση, σχέδιο, συμμετρία, 3d, γραφικός, σχήμα, κόμπος, βάση στήλης, Mathematica, cg, parametricplot3d, κώδικας, πρόγραμμα, αλγόριθμος, χαρτογράφηση, geometricsculpture 3080x3124

a = 5; (* center hole size of a torus *) b1 = 8; (* number of cross *) b2 = 3; (* number of cross *) c = 6; (* distance from the center of rotation *) d = 6; (* number of torus *) w = 2; (* gap width *) SetOptions[ParametricPlot3D, PlotRange -> Full, Mesh -> None, Boxed -> False, Axes -> False, PlotPoints -> 400, ImageSize -> 3000, Background -> Darker[Green, 0.8], PlotStyle -> Directive[Specularity[White, 90], Texture[Import["D:/tmp/71.jpg"]]], TextureCoordinateFunction -> ({#4 + #5, #5 / Pi} &), Lighting -> "Neutral"]; g[v_] := Sum[Cos[(2 k - 1) v]/(2 k - 1), {k, 4}]; x = (a - g[t] + w Sin[b1 s + Pi/8]) Cos[b2 s]; y = (a - g[t] + w Sin[b1 s + Pi/8]) Sin[b2 s]; z = Sin[b1 (s + Pi/2)] + Sin[t] + c; vc = {{0, 0, 1}, {0, 0, -1}, {0, 1, 0}, {0, -1, 0}, {1, 0, 0}, {-1, 0, 0}}; rot = Table[{x, y, z}.RotationMatrix[{{0, 0, 1}, vc[[i]]}], {i, d}]; ParametricPlot3D[rot, {t, 0, 2 Pi}, {s, 0, 2 Pi}] (*--- The Texture is this: www.flickr.com/photos/tanaka_juuyoh/5239255695/ *)

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

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

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

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