The HOMFLY-PT Polynomial: Difference between revisions
DrorsRobot (talk | contribs) No edit summary |
No edit summary |
||
Line 15: | Line 15: | ||
{{Startup Note}} |
{{Startup Note}} |
||
<!--$$?HOMFLYPT$$--> |
<!--$$?HOMFLYPT$$--> |
||
<!--Robot Land, no human edits to "END"--> |
|||
<!--The lines to END were generated by WikiSplice: do not edit; see manual.--> |
|||
{{HelpAndAbout1|n= |
{{HelpAndAbout1|n=1|s=HOMFLYPT}} |
||
HOMFLYPT[K][a, z] computes the HOMFLY-PT (Hoste, Ocneanu, Millett, Freyd, Lickorish, Yetter, Przytycki and Traczyk) polynomial of a knot/link K, in the variables a and z. |
HOMFLYPT[K][a, z] computes the HOMFLY-PT (Hoste, Ocneanu, Millett, Freyd, Lickorish, Yetter, Przytycki and Traczyk) polynomial of a knot/link K, in the variables a and z. |
||
{{HelpAndAbout2|n= |
{{HelpAndAbout2|n=2|s=HOMFLYPT}} |
||
The HOMFLYPT program was written by Scott Morrison. |
The HOMFLYPT program was written by Scott Morrison. |
||
{{HelpAndAbout3}} |
{{HelpAndAbout3}} |
||
Line 25: | Line 25: | ||
Thus, for example, here's the HOMFLY-PT polynomial of the knot [[8_1]]: |
Thus, for example, here's the HOMFLY-PT polynomial of the knot [[8_1]]: |
||
<!--$$K = Knot[8, 1];$$--> |
<!--$$K = Knot[8, 1];$$--> |
||
<!--Robot Land, no human edits to "END"--> |
|||
<!--The lines to END were generated by WikiSplice: do not edit; see manual.--> |
|||
{{In1|n= |
{{In1|n=3}} |
||
<pre style="color: red; border: 0px; padding: 0em"><nowiki>K = Knot[8, 1];</nowiki></pre> |
<pre style="color: red; border: 0px; padding: 0em"><nowiki>K = Knot[8, 1];</nowiki></pre> |
||
{{In2}} |
{{In2}} |
||
Line 32: | Line 32: | ||
<!--$$HOMFLYPT[Knot[8, 1]][a, z]$$--> |
<!--$$HOMFLYPT[Knot[8, 1]][a, z]$$--> |
||
<!--Robot Land, no human edits to "END"--> |
|||
<!--The lines to END were generated by WikiSplice: do not edit; see manual.--> |
|||
{{InOut1|n= |
{{InOut1|n=4}} |
||
<pre style="color: red; border: 0px; padding: 0em"><nowiki>HOMFLYPT[Knot[8, 1]][a, z]</nowiki></pre> |
<pre style="color: red; border: 0px; padding: 0em"><nowiki>HOMFLYPT[Knot[8, 1]][a, z]</nowiki></pre> |
||
{{InOut2|n= |
{{InOut2|n=4}}<pre style="border: 0px; padding: 0em"><nowiki> -2 4 6 2 2 2 4 2 |
||
a - a + a - z - a z - a z</nowiki></pre> |
a - a + a - z - a z - a z</nowiki></pre> |
||
{{InOut3}} |
{{InOut3}} |
||
Line 43: | Line 43: | ||
<!--$$Expand[HOMFLYPT[K][1/q, Sqrt[q]-1/Sqrt[q]]]$$--> |
<!--$$Expand[HOMFLYPT[K][1/q, Sqrt[q]-1/Sqrt[q]]]$$--> |
||
<!--Robot Land, no human edits to "END"--> |
|||
<!--The lines to END were generated by WikiSplice: do not edit; see manual.--> |
|||
{{InOut1|n= |
{{InOut1|n=5}} |
||
<pre style="color: red; border: 0px; padding: 0em"><nowiki>Expand[HOMFLYPT[K][1/q, Sqrt[q]-1/Sqrt[q]]]</nowiki></pre> |
<pre style="color: red; border: 0px; padding: 0em"><nowiki>Expand[HOMFLYPT[K][1/q, Sqrt[q]-1/Sqrt[q]]]</nowiki></pre> |
||
{{InOut2|n= |
{{InOut2|n=5}}<pre style="border: 0px; padding: 0em"><nowiki> -6 -5 -4 2 2 2 2 |
||
2 + q - q + q - -- + -- - - - q + q |
2 + q - q + q - -- + -- - - - q + q |
||
3 2 q |
3 2 q |
||
Line 54: | Line 54: | ||
<!--$$Jones[K][q]$$--> |
<!--$$Jones[K][q]$$--> |
||
<!--Robot Land, no human edits to "END"--> |
|||
<!--The lines to END were generated by WikiSplice: do not edit; see manual.--> |
|||
{{InOut1|n= |
{{InOut1|n=6}} |
||
<pre style="color: red; border: 0px; padding: 0em"><nowiki>Jones[K][q]</nowiki></pre> |
<pre style="color: red; border: 0px; padding: 0em"><nowiki>Jones[K][q]</nowiki></pre> |
||
{{InOut2|n= |
{{InOut2|n=6}}<pre style="border: 0px; padding: 0em"><nowiki> -6 -5 -4 2 2 2 2 |
||
2 + q - q + q - -- + -- - - - q + q |
2 + q - q + q - -- + -- - - - q + q |
||
3 2 q |
3 2 q |
||
Line 65: | Line 65: | ||
<!--$${HOMFLYPT[K][1, z], Conway[K][z]}$$--> |
<!--$${HOMFLYPT[K][1, z], Conway[K][z]}$$--> |
||
<!--Robot Land, no human edits to "END"--> |
|||
<!--The lines to END were generated by WikiSplice: do not edit; see manual.--> |
|||
{{InOut1|n= |
{{InOut1|n=7}} |
||
<pre style="color: red; border: 0px; padding: 0em"><nowiki>{HOMFLYPT[K][1, z], Conway[K][z]}</nowiki></pre> |
<pre style="color: red; border: 0px; padding: 0em"><nowiki>{HOMFLYPT[K][1, z], Conway[K][z]}</nowiki></pre> |
||
{{InOut2|n= |
{{InOut2|n=7}}<pre style="border: 0px; padding: 0em"><nowiki> 2 2 |
||
{1 - 3 z , 1 - 3 z }</nowiki></pre> |
{1 - 3 z , 1 - 3 z }</nowiki></pre> |
||
{{InOut3}} |
{{InOut3}} |
||
Line 80: | Line 80: | ||
<!--$$L = Link[5, Alternating, 1];$$--> |
<!--$$L = Link[5, Alternating, 1];$$--> |
||
<!--Robot Land, no human edits to "END"--> |
|||
<!--The lines to END were generated by WikiSplice: do not edit; see manual.--> |
|||
{{In1|n= |
{{In1|n=8}} |
||
<pre style="color: red; border: 0px; padding: 0em"><nowiki>L = Link[5, Alternating, 1];</nowiki></pre> |
<pre style="color: red; border: 0px; padding: 0em"><nowiki>L = Link[5, Alternating, 1];</nowiki></pre> |
||
{{In2}} |
{{In2}} |
||
Line 90: | Line 90: | ||
A2Invariant[L][q] |
A2Invariant[L][q] |
||
}]$$--> |
}]$$--> |
||
<!--Robot Land, no human edits to "END"--> |
|||
<!--The lines to END were generated by WikiSplice: do not edit; see manual.--> |
|||
{{InOut1|n= |
{{InOut1|n=9}} |
||
<pre style="color: red; border: 0px; padding: 0em"><nowiki>Simplify[{ |
<pre style="color: red; border: 0px; padding: 0em"><nowiki>Simplify[{ |
||
(-1)^(Length[Skeleton[L]]-1)(q^2+1+1/q^2)HOMFLYPT[L][1/q^3, q-1/q], |
(-1)^(Length[Skeleton[L]]-1)(q^2+1+1/q^2)HOMFLYPT[L][1/q^3, q-1/q], |
||
A2Invariant[L][q] |
A2Invariant[L][q] |
||
}]</nowiki></pre> |
}]</nowiki></pre> |
||
{{InOut2|n= |
{{InOut2|n=9}}<pre style="border: 0px; padding: 0em"><nowiki> -12 -8 -6 2 -2 2 4 6 -12 -8 -6 2 -2 2 4 6 |
||
{2 - q + q + q + -- + q + q + q + q , 2 - q + q + q + -- + q + q + q + q } |
{2 - q + q + q + -- + q + q + q + q , 2 - q + q + q + -- + q + q + q + q } |
||
4 4 |
4 4 |
Revision as of 19:44, 27 August 2005
The HOMFLY-PT polynomial (see [HOMFLY] and [PT]) of a knot or link is defined by the skein relation
and by the initial condition =1.
KnotTheory`
knows about the HOMFLY-PT polynomial:
(For In[1] see Setup)
In[1]:= ?HOMFLYPT
HOMFLYPT[K][a, z] computes the HOMFLY-PT (Hoste, Ocneanu, Millett, Freyd, Lickorish, Yetter, Przytycki and Traczyk) polynomial of a knot/link K, in the variables a and z. |
In[2]:= HOMFLYPT::about
The HOMFLYPT program was written by Scott Morrison. |
Thus, for example, here's the HOMFLY-PT polynomial of the knot 8_1:
In[3]:= |
K = Knot[8, 1]; |
In[4]:= |
HOMFLYPT[Knot[8, 1]][a, z] |
Out[4]= | -2 4 6 2 2 2 4 2 a - a + a - z - a z - a z |
It is well known that HOMFLY-PT polynomial specializes to the Jones polynomial at and and to the Conway polynomial at . Indeed,
In[5]:= |
Expand[HOMFLYPT[K][1/q, Sqrt[q]-1/Sqrt[q]]] |
Out[5]= | -6 -5 -4 2 2 2 2 2 + q - q + q - -- + -- - - - q + q 3 2 q q q |
In[6]:= |
Jones[K][q] |
Out[6]= | -6 -5 -4 2 2 2 2 2 + q - q + q - -- + -- - - - q + q 3 2 q q q |
In[7]:= |
{HOMFLYPT[K][1, z], Conway[K][z]} |
Out[7]= | 2 2 {1 - 3 z , 1 - 3 z } |
In our parametirzation of the link invariant, it satisfies
where is some knot or link and where is the number of components of . Let us verify this fact for the Whitehead link, L5a1:
In[8]:= |
L = Link[5, Alternating, 1]; |
In[9]:= |
Simplify[{ (-1)^(Length[Skeleton[L]]-1)(q^2+1+1/q^2)HOMFLYPT[L][1/q^3, q-1/q], A2Invariant[L][q] }] |
Out[9]= | -12 -8 -6 2 -2 2 4 6 -12 -8 -6 2 -2 2 4 6 {2 - q + q + q + -- + q + q + q + q , 2 - q + q + q + -- + q + q + q + q } 4 4 q q |
[HOMFLY] ^ J. Hoste, A. Ocneanu, K. Millett, P. Freyd, W. B. R. Lickorish and D. Yetter, A new polynomial invariant of knots and links, Bull. Amer. Math. Soc. 12 (1985) 239-246.
[PT] ^ J. Przytycki and P. Traczyk, , Proc. Amer. Math. Soc. 100 (1987) 744-748.