Kinoshita-Terasaka Knot

Author

Eric W. Weisstein
May 25, 2007

This notebook downloaded from http://mathworld.wolfram.com/notebooks/KnotTheory/Kinoshita-TerasakaKnot.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/Kinoshita-TerasakaKnot.html.

©2007 Wolfram Research, Inc. except for portions noted otherwise

Braid Word

BraidWord[KinoshitaTerasakaKnot]//TraditionalForm

Select[KnotData[All],KnotData[#,"JonesPolynomial"][t]==(t^(-4))(-1+2t-2(t^2)+2(t^3)+(t^6)-2(t^7)+2(t^8)-2(t^9)+(t^10))&]

Figure

Show[ClosedBraid[BraidWord[KinoshitaTerasakaKnot],Style->TubeStyle],ImageSize->200]