The Kauffman Polynomial: Difference between revisions

From Knot Atlas
Jump to navigationJump to search
No edit summary
No edit summary
Line 18: Line 18:
<!--Robot Land, no human edits to "END"-->
<!--Robot Land, no human edits to "END"-->
{{HelpAndAbout|
{{HelpAndAbout|
n = 1 |
n = 2 |
n1 = 2 |
n1 = 3 |
in = <nowiki>Kauffman</nowiki> |
in = <nowiki>Kauffman</nowiki> |
out= <nowiki>Kauffman[K][a, z] computes the Kauffman polynomial of a knot or link K, in the variables a and z.</nowiki> |
out= <nowiki>Kauffman[K][a, z] computes the Kauffman polynomial of a knot or link K, in the variables a and z.</nowiki> |
Line 29: Line 29:
<!--Robot Land, no human edits to "END"-->
<!--Robot Land, no human edits to "END"-->
{{InOut|
{{InOut|
n = 3 |
n = 4 |
in = <nowiki>Kauffman[Knot[5, 2]][a, z]</nowiki> |
in = <nowiki>Kauffman[Knot[5, 2]][a, z]</nowiki> |
out= <nowiki> 2 4 6 5 7 2 2 4 2 6 2 3 3
out= <nowiki> 2 4 6 5 7 2 2 4 2 6 2 3 3
Line 49: Line 49:
<!--Robot Land, no human edits to "END"-->
<!--Robot Land, no human edits to "END"-->
{{In|
{{In|
n = 4 |
n = 5 |
in = <nowiki>K = TorusKnot[8, 3];</nowiki>}}
in = <nowiki>K = TorusKnot[8, 3];</nowiki>}}
<!--END-->
<!--END-->
Line 59: Line 59:
<!--Robot Land, no human edits to "END"-->
<!--Robot Land, no human edits to "END"-->
{{InOut|
{{InOut|
n = 5 |
n = 6 |
in = <nowiki>Simplify[{
in = <nowiki>Simplify[{
(-1)^(Length[Skeleton[K]]-1)Kauffman[K][-q^(-3/4), q^(1/4)+q^(-1/4)],
(-1)^(Length[Skeleton[K]]-1)Kauffman[K][-q^(-3/4), q^(1/4)+q^(-1/4)],

Revision as of 21:30, 18 September 2005


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

Failed to parse (SVG (MathML can be enabled via browser plugin): Invalid response ("Math extension cannot connect to Restbase.") from server "https://wikimedia.org/api/rest_v1/":): {\displaystyle L(\backoverslash)+L(\slashoverback) = z\left(L(\smoothing)+L(\hsmoothing)\right)}

and by the initial condition where is the unknot BigCirc symbol.gif.

KnotTheory` knows about the Kauffman polynomial:

(For In[1] see Setup)

In[2]:= ?Kauffman
Kauffman[K][a, z] computes the Kauffman polynomial of a knot or link K, in the variables a and z.
In[3]:= Kauffman::about
The Kauffman program was written by Scott Morrison.

Thus, for example, here's the Kauffman polynomial of the knot 5_2:

In[4]:= Kauffman[Knot[5, 2]][a, z]
Out[4]= 2 4 6 5 7 2 2 4 2 6 2 3 3 -a + a + a - 2 a z - 2 a z + a z - a z - 2 a z + a z + 5 3 7 3 4 4 6 4 2 a z + a z + a z + a z
5 2.gif
5_2
T(8,3).jpg
T(8,3)

It is well known that the Jones polynomial is related to the Kauffman polynomial via

,

where is some knot or link and where is the number of components of . Let us verify this fact for the torus knot T(8,3):

In[5]:= K = TorusKnot[8, 3];
In[6]:= Simplify[{ (-1)^(Length[Skeleton[K]]-1)Kauffman[K][-q^(-3/4), q^(1/4)+q^(-1/4)], Jones[K][q] }]
Out[6]= 7 9 16 7 9 16 {q + q - q , q + q - q }

[Kauffman] ^  L. H. Kauffman, An invariant of regular isotopy, Trans. Amer. Math. Soc. 312 (1990) 417-471.