The Kauffman Polynomial: Difference between revisions
No edit summary |
DrorsRobot (talk | contribs) No edit summary |
||
Line 17: | Line 17: | ||
<!--$$?Kauffman$$--> |
<!--$$?Kauffman$$--> |
||
<!--Robot Land, no human edits to "END"--> |
<!--Robot Land, no human edits to "END"--> |
||
{{HelpAndAbout| |
|||
{{HelpAndAbout1|n=1|s=Kauffman}} |
|||
n = 1 | |
|||
⚫ | |||
n1 = 2 | |
|||
{{HelpAndAbout2|n=2|s=Kauffman}} |
|||
in = <nowiki>Kauffman</nowiki> | |
|||
⚫ | |||
⚫ | |||
{{HelpAndAbout3}} |
|||
⚫ | |||
<!--END--> |
<!--END--> |
||
Line 27: | Line 28: | ||
<!--$$Kauffman[Knot[5, 2]][a, z]$$--> |
<!--$$Kauffman[Knot[5, 2]][a, z]$$--> |
||
<!--Robot Land, no human edits to "END"--> |
<!--Robot Land, no human edits to "END"--> |
||
{{ |
{{InOut| |
||
n = 3 | |
|||
in = <nowiki>Kauffman[Knot[5, 2]][a, z]</nowiki> | |
|||
out= <nowiki> 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 + |
-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 |
5 3 7 3 4 4 6 4 |
||
2 a z + a z + a z + a z</nowiki> |
2 a z + a z + a z + a z</nowiki>}} |
||
{{InOut3}} |
|||
<!--END--> |
<!--END--> |
||
Line 45: | Line 46: | ||
<!--$$K = TorusKnot[8, 3];$$--> |
<!--$$K = TorusKnot[8, 3];$$--> |
||
<!--Robot Land, no human edits to "END"--> |
<!--Robot Land, no human edits to "END"--> |
||
{{ |
{{In| |
||
n = 4 | |
|||
in = <nowiki>K = TorusKnot[8, 3];</nowiki>}} |
|||
{{In2}} |
|||
<!--END--> |
<!--END--> |
||
Line 55: | Line 56: | ||
}]$$--> |
}]$$--> |
||
<!--Robot Land, no human edits to "END"--> |
<!--Robot Land, no human edits to "END"--> |
||
{{ |
{{InOut| |
||
n = 5 | |
|||
<pre style="color: red; border: 0px; padding: 0em"><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)], |
||
Jones[K][q] |
Jones[K][q] |
||
}]</nowiki> |
}]</nowiki> | |
||
out= <nowiki> 7 9 16 7 9 16 |
|||
{q + q - q , q + q - q }</nowiki> |
{q + q - q , q + q - q }</nowiki>}} |
||
{{InOut3}} |
|||
<!--END--> |
<!--END--> |
||
Revision as of 13:16, 30 August 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
(here , , and are , , and , respectively), and by the initial condition where is the unknot .
KnotTheory`
knows about the Kauffman polynomial:
(For In[1] see Setup)
|
|
Thus, for example, here's the Kauffman polynomial of the knot 5_2:
In[3]:=
|
Kauffman[Knot[5, 2]][a, z]
|
Out[3]=
|
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
|
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[4]:=
|
K = TorusKnot[8, 3];
|
In[5]:=
|
Simplify[{
(-1)^(Length[Skeleton[K]]-1)Kauffman[K][-q^(-3/4), q^(1/4)+q^(-1/4)],
Jones[K][q]
}]
|
Out[5]=
|
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.