The HOMFLY-PT Polynomial: Difference between revisions

From Knot Atlas
Jump to navigationJump to search
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=2|s=HOMFLYPT}}
{{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=3|s=HOMFLYPT}}
{{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=4}}
{{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=5}}
{{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=5}}<pre style="border: 0px; padding: 0em"><nowiki> -2 4 6 2 2 2 4 2
{{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=6}}
{{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=6}}<pre style="border: 0px; padding: 0em"><nowiki> -6 -5 -4 2 2 2 2
{{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=7}}
{{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=7}}<pre style="border: 0px; padding: 0em"><nowiki> -6 -5 -4 2 2 2 2
{{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=8}}
{{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=8}}<pre style="border: 0px; padding: 0em"><nowiki> 2 2
{{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=9}}
{{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=10}}
{{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=10}}<pre style="border: 0px; padding: 0em"><nowiki> -12 -8 -6 2 -2 2 4 6 -12 -8 -6 2 -2 2 4 6
{{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.