# Plot a Satellite Knot

I need some help to plot a Satellite or cable knot. For example, see figure A torus knot and a cable knot. (a) The red curve lying on the yellow torus is a (2,3) torus knot. (b) The embedded yellow torus has a (2,3) torus knot at its core. The red curve is a cable knot with Newton pairs (2,3) and (3,2). • Might be useful mathematica.stackexchange.com/a/115445/72682 – flinty Apr 16 at 21:53
• See what you can do with ParametricPlot3D, you can Show one for the yellow surface and one for the red curve in one plot. I'll post recrations soon. – Adam Apr 16 at 22:13

I have completely ignored all specifications of the knots (i.e. I don't know what the definition of Newton pair is or exactly what the tuples correspond to). So, flying by the seat of my pants,

here's my version of the donut although personally I like to play with opacities for surface curves Code for the first version:

With[{torus = {(2 + Cos@#2) Cos@#, (2 + Cos@#2) Sin@#, Sin@#2} &},
Show[ParametricPlot3D[
torus[\[Theta], \[Phi]], {\[Theta], 0, 2 \[Pi]}, {\[Phi], 0,
2 \[Pi]}, MeshStyle -> None],
ParametricPlot3D[
torus[3 \[Theta] + 2, 2 \[Theta]], {\[Theta], 0, 2 \[Pi]},
PlotStyle -> Darker@Red]]]


My knot is less faithful to the given one In particular, I think the red curve is parameterized slightly differently.

With[{torus = {(2 + Cos@#) Cos@#2, (2 + Cos@#) Sin@#2, Sin@#1} &},
With[{fs =
Simplify /@
Last@FrenetSerretSystem[
torus[3 \[Theta], 2 \[Theta]], \[Theta]]},
Show[ParametricPlot3D[
torus[3 \[Theta],
2 \[Theta]] + .5 Cos[\[Phi]] fs[] + .5 Sin[\[Phi]] fs[[
3]], {\[Theta], 0, 2 \[Pi]}, {\[Phi], 0, 2 \[Pi]},
MeshStyle -> None, PlotPoints -> 50],
ParametricPlot3D[
torus[3 \[Theta],
2 \[Theta]] + .5 Cos[13 \[Theta]] fs[] + .5 Sin[
13 \[Theta]] fs[], {\[Theta], 0, 2 \[Pi]},
PlotStyle -> Darker@Red]]]]