Mathematica has curated knot data, e.g., KnotData[{3, 1}] One can extract the three-dimensional space curve in this way: f = KnotData[{3, 1}, “SpaceCurve”] (* {Sin[#1] + 2 Sin[2 #1], Cos[#1] – 2 Cos[2 #1], -Sin[3 #1]} & *) and plot it to show a line, e.g., ParametricPlot3D[f[t], {t, 0, 2 Pi}, Axes -> False] QuestionRead more
Blog
Satisfaction guarantee
Best Proxy Packs
-
2,000 Private Proxies
$600.00$299.00 / month -
1,000 Private Proxies
$360.00$179.00 / month
Like And Follow Us
