Pensieve Header: van Kampen for $T_{8/3}$.

Continues https://drorbn.net/index.php?title=0708-1300/Class_notes_for_Tuesday,_January_22

<<KnotTheory`

TubePlot[TorusKnot[8,3],ImageSize->Small]

TC[r1_,t1_,r2_,t2_]:={
(r1+r2 Cos[2π t2])Cos[2π t1],
(r1+r2 Cos[2π t2])Sin[2π t1],
r2 Sin[2π t2]
};

InflatedTorus[p_,q_,b_]:=ParametricPlot3D[
TC[2,p t-q s,1+b(p^2+q^2)s(1-(p^2+q^2)s),q t+p s],
{t,0,1},
{s,0,1/(p^2+q^2)},
PlotPoints->{6(p^2+q^2)+1,7}
];

GraphicsGrid[{{InflatedTorus[3,8,1],InflatedTorus[3,8,-1]}}]