# [GIF] Inevitability ((7, 3)-torus knot)

Posted 3 years ago
5044 Views
|
3 Replies
|
5 Total Likes
|
 InevitabilitySame basic code as To Infinity, but this time with a $(7,3)$ torus knot and simpler lighting. Also, viewed from above rather than from the front. Stereo3D[{x1_, y1_, x2_, y2_}] := {x1/(1 - y2), y1/(1 - y2), x2/(1 - y2)}; pqtorus[t_, p_, q_] := 1/Sqrt[2] {E^(p I t), E^(q I t)}; With[{viewpoint = {0, 0, 10}, cols = RGBColor /@ {"#EDF2F6", "#494953"}}, Manipulate[ Graphics3D[{Sphere[#, .1] & /@ Table[Stereo3D[Flatten[ReIm /@ pqtorus[t + ?, 7, -3]]], {t, 0, 2 ?, 2 ?/200}]}, PlotRange -> 3, ViewPoint -> viewpoint, ViewVertical -> {0, 1, 0}, Boxed -> False, Background -> cols[[-1]], ImageSize -> 540, Lighting -> {{"Point", cols[[1]], {0, 0, 1/2}}, {"Ambient", cols[[-1]], viewpoint}}], {?, 0, ?/100}] ] 
3 Replies
Sort By:
Posted 3 years ago
 Some slight shortening: With[{viewpoint = {0, 0, 10}, cols = RGBColor /@ {"#EDF2F6", "#494953"}}, Manipulate[Graphics3D[{Sphere[Table[(Most[#]/(1 - Last[#])) & [ Flatten[ReIm[Exp[{7, -3} I (t + ?)]/Sqrt[2]]]], {t, 0, 2 ?, 2 ?/200}], 0.1]}, Background -> cols[[-1]], Boxed -> False, ImageSize -> 540, Lighting -> {{"Point", cols[[1]], {0, 0, 1/2}}, {"Ambient", cols[[-1]], viewpoint}}, PlotRange -> 3, ViewPoint -> viewpoint, ViewVertical -> {0, 1, 0}], {?, 0, ?/100}]] 
 Jeez. Every time I learn about some new function I'd never heard of before (Most this time).