HOMFLY Polynomial

Author

Eric W. Weisstein
July 27, 2003

This notebook downloaded from http://mathworld.wolfram.com/notebooks/KnotTheory/HOMFLYPolynomial.nb.

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

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

Initialization

<<Knots`Knots`

Examples

Livingston (1993, p. 216)

MakeBoxes[Times[n_,Power[t_,p_Integer?Negative]],TraditionalForm]:=
RowBox[{MakeBoxes[n],SuperscriptBox[MakeBoxes[t],RowBox[{"-",Abs[p]}]]}]

MakeBoxes[Power[t_,p_Integer?Negative],TraditionalForm]:=
SuperscriptBox[MakeBoxes[t],RowBox[{"-",Abs[p]}]]

HomflyP[Link[{3,1}],{ℓ,m}]//TraditionalForm

HomflyP[Link[{4,1}],{ℓ,m}]//TraditionalForm

HomflyP[Link[{6,2}],{ℓ,m}]//TraditionalForm