SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\HigherRank"];
<< theta.m

PolyPlot[p_]:=Rasterize[(Subscript[PolyPlot, (Subscript[T, 1]),(Subscript[T, 2])])[p]];
PolyPlot[{Δ_,θ_}]:=PolyPlot[θ];

PolyPlot[θ[TorusKnot[21,2]]]

TorusKnots[36]

Table[PolyPlot[θ[K]],{K,TorusKnots[36]}]

Table[PolyPlot[θ[TorusKnot[n,2]]],{n,3,25,2}]

Table[PolyPlot[θ[TorusKnot[n,3]]],{n,4,25,3}]

Table[PolyPlot[θ[TorusKnot[n,3]]],{n,5,26,3}]

Table[PolyPlot[θ[TorusKnot[n,4]]],{n,5,17,4}]

Table[PolyPlot[θ[TorusKnot[n,4]]],{n,7,19,4}]

Table[PolyPlot[θ[TorusKnot[n,5]]],{n,6,21,5}]

Table[PolyPlot[θ[TorusKnot[n,5]]],{n,7,22,5}]

Table[PolyPlot[θ[TorusKnot[n,5]]],{n,8,23,5}]

Table[PolyPlot[θ[TorusKnot[n,5]]],{n,9,24,5}]

Table[PolyPlot[θ[TorusKnot[n+1,n]]],{n,2,10}]

PolyPlot[θ[TorusKnot[22,7]]]