L8n8
|
|
|
|
Visit L8n8's page at Knotilus!
Visit L8n8's page at the original Knot Atlas! |
| L8n8 is [math]\displaystyle{ 8^4_{3} }[/math] in the Rolfsen table of links. |
Knot presentations
| Planar diagram presentation | X6172 X2536 X16,11,13,12 X3,11,4,10 X9,1,10,4 X7,15,8,14 X13,5,14,8 X12,15,9,16 |
| Gauss code | {1, -2, -4, 5}, {2, -1, -6, 7}, {-5, 4, 3, -8}, {-7, 6, 8, -3} |
Polynomial invariants
| Multivariable Alexander Polynomial (in [math]\displaystyle{ u }[/math], [math]\displaystyle{ v }[/math], [math]\displaystyle{ w }[/math], ...) | [math]\displaystyle{ -\frac{(t(2)-t(3)) (t(1)-t(4))}{\sqrt{t(1)} \sqrt{t(2)} \sqrt{t(3)} \sqrt{t(4)}} }[/math] (db) |
| Jones polynomial | [math]\displaystyle{ -q^{7/2}-q^{3/2}-2 \sqrt{q}-\frac{2}{\sqrt{q}}-\frac{1}{q^{3/2}}-\frac{1}{q^{7/2}} }[/math] (db) |
| Signature | 0 (db) |
| HOMFLY-PT polynomial | [math]\displaystyle{ a^3 z^{-3} - a^{-3} z^{-3} +a^3 z+2 a^3 z^{-1} -z a^{-3} -2 a^{-3} z^{-1} -a z^3-3 a z^{-3} +z^3 a^{-1} +3 a^{-1} z^{-3} -5 a z-6 a z^{-1} +5 z a^{-1} +6 a^{-1} z^{-1} }[/math] (db) |
| Kauffman polynomial | [math]\displaystyle{ -a^3 z^5-a z^5-z^5 a^{-1} -z^5 a^{-3} -a^2 z^4-z^4 a^{-2} -2 z^4+5 a^3 z^3+7 a z^3+7 z^3 a^{-1} +5 z^3 a^{-3} +6 a^2 z^2+6 z^2 a^{-2} +12 z^2-6 a^3 z-14 a z-14 z a^{-1} -6 z a^{-3} -8 a^2-8 a^{-2} -15+4 a^3 z^{-1} +9 a z^{-1} +9 a^{-1} z^{-1} +4 a^{-3} z^{-1} +3 a^2 z^{-2} +3 a^{-2} z^{-2} +6 z^{-2} -a^3 z^{-3} -3 a z^{-3} -3 a^{-1} z^{-3} - a^{-3} z^{-3} }[/math] (db) |
Vassiliev invariants
| V2 and V3: | (0, 0) |
| V2,1 through V6,9: |
|
V2,1 through V6,9 were provided by Petr Dunin-Barkowski <barkovs@itep.ru>, Andrey Smirnov <asmirnov@itep.ru>, and Alexei Sleptsov <sleptsov@itep.ru> and uploaded on October 2010 by User:Drorbn. Note that they are normalized differently than V2 and V3.
Khovanov Homology
| The coefficients of the monomials [math]\displaystyle{ t^rq^j }[/math] are shown, along with their alternating sums [math]\displaystyle{ \chi }[/math] (fixed [math]\displaystyle{ j }[/math], alternation over [math]\displaystyle{ r }[/math]). The squares with yellow highlighting are those on the "critical diagonals", where [math]\displaystyle{ j-2r=s+1 }[/math] or [math]\displaystyle{ j-2r=s-1 }[/math], where [math]\displaystyle{ s= }[/math]0 is the signature of L8n8. Nonzero entries off the critical diagonals (if any exist) are highlighted in red. |
|
| Integral Khovanov Homology
(db, data source) |
|
Computer Talk
Much of the above data can be recomputed by Mathematica using the package KnotTheory`. See A Sample KnotTheory` Session.
[math]\displaystyle{ \textrm{Include}(\textrm{ColouredJonesM.mhtml}) }[/math]
In[1]:= |
<< KnotTheory` |
Loading KnotTheory` (version of August 17, 2005, 14:44:34)... | |
In[2]:= | Crossings[Link[8, NonAlternating, 8]] |
Out[2]= | 8 |
In[3]:= | PD[Link[8, NonAlternating, 8]] |
Out[3]= | PD[X[6, 1, 7, 2], X[2, 5, 3, 6], X[16, 11, 13, 12], X[3, 11, 4, 10], X[9, 1, 10, 4], X[7, 15, 8, 14], X[13, 5, 14, 8], X[12, 15, 9, 16]] |
In[4]:= | GaussCode[Link[8, NonAlternating, 8]] |
Out[4]= | GaussCode[{1, -2, -4, 5}, {2, -1, -6, 7}, {-5, 4, 3, -8},
{-7, 6, 8, -3}] |
In[5]:= | BR[Link[8, NonAlternating, 8]] |
Out[5]= | BR[Link[8, NonAlternating, 8]] |
In[6]:= | alex = Alexander[Link[8, NonAlternating, 8]][t] |
Out[6]= | Indeterminate |
In[7]:= | Conway[Link[8, NonAlternating, 8]][z] |
Out[7]= | Indeterminate |
In[8]:= | Select[AllKnots[], (alex === Alexander[#][t])&] |
Out[8]= | {} |
In[9]:= | {KnotDet[Link[8, NonAlternating, 8]], KnotSignature[Link[8, NonAlternating, 8]]} |
Out[9]= | {Indeterminate, 0} |
In[10]:= | J=Jones[Link[8, NonAlternating, 8]][q] |
Out[10]= | -(7/2) -(3/2) 2 3/2 7/2 |
In[11]:= | Select[AllKnots[], (J === Jones[#][q] || (J /. q-> 1/q) === Jones[#][q])&] |
Out[11]= | {} |
In[12]:= | A2Invariant[Link[8, NonAlternating, 8]][q] |
Out[12]= | -12 2 4 6 9 12 2 4 6 8 |
In[13]:= | Kauffman[Link[8, NonAlternating, 8]][a, z] |
Out[13]= | 3 28 2 1 3 3 a a 6 3 3 a 4 |
In[14]:= | {Vassiliev[2][Link[8, NonAlternating, 8]], Vassiliev[3][Link[8, NonAlternating, 8]]} |
Out[14]= | {0, 0} |
In[15]:= | Kh[Link[8, NonAlternating, 8]][q, t] |
Out[15]= | 3 2 1 1 1 1 4 2 6 4 8 4 |



