The Kauffman Polynomial
The Kauffman polynomial (see [Kauffman]) of a knot or link is where is the writhe of (see How is the Jones Polynomial Computed?) and where is the regular isotopy invariant defined by the skein relations
(here is a strand and is the same strand with a kink added) and
(here , , and are File:Backoverslash symbol and by the initial condition $L(\bigcirc)=1$.
{\tt KnotTheory`} knows about the Kauffman polynomial:
\latexhtml{\small (for {\tt In[1]} see Section~\ref{sec:Setup}.)}{\htmlref{{\tt In[1]}}{sec:Setup}} %<* InOut[1] *>
\index{Kauffman, Louis} \index{Morrison, Scott} <* HelpBox[Kauffman] *>
Thus, for example, here's the Kauffman polynomial of the knot \hlink{../Knots/5.2.html}{$5_2$}:
<*InOut@"Kauffman[Knot[5, 2]][a, z]"*> \vskip 6pt
\index{Jones polynomial} \index{Jones@{\tt Jones}} It is well known that the Jones polynomial is related to the Kauffman polynomial via \[ J(L)(q) = (-1)^cL(K)(-q^{-3/4},\,q^{1/4}+q^{-1/4}), \] where $K$ is some knot or link and where $c$ is the number of components of $K$. Let us verify this fact for the torus knot \hlink{../TorusKnots/8.3.html}{$T(8,3)$}:
<*InOut@"K = TorusKnot[8, 3];"*> <*InOut@"Simplify[{\n
(-1)^(Length[Skeleton[K]]-1)Kauffman[K][-q^(-3/4), q^(1/4)+q^(-1/4)],\n Jones[K][q]\n
}]"*>
[Kauffman] ^ L. H. Kauffman, An invariant of regular isotopy, Trans. Amer. Math. Soc. 312 (1990) 417-471.