T(5,4): Difference between revisions

From Knot Atlas
Jump to navigationJump to search
No edit summary
No edit summary
Line 60: Line 60:
<table>
<table>
<tr valign=top>
<tr valign=top>
<td><font color=blue><pre>In[1]:=&nbsp;&nbsp;&nbsp;&nbsp;</font></pre></td>
<td><pre style="color: blue; border: 0px; padding: 0em">In[1]:=&nbsp;&nbsp;&nbsp;&nbsp;</pre></td>
<td align=left><font color=red><pre>&lt;&lt; KnotTheory`</pre></font></td>
<td align=left><pre style="color: red; border: 0px; padding: 0em">&lt;&lt; KnotTheory`</pre></td>
</tr>
</tr>
<tr valign=top><td colspan=2><pre>Loading KnotTheory` (version of August 19, 2005, 13:11:25)...</pre></td></tr>
<tr valign=top><td colspan=2><pre style="border: 0px; padding: 0em">Loading KnotTheory` (version of August 19, 2005, 13:11:25)...</pre></td></tr>
<tr valign=top><td><font color=blue><pre>In[2]:=</font></pre></td><td><font color=red><pre>Crossings[TorusKnot[5, 4]]</pre></font></td></tr>
<tr valign=top><td><font color=blue><pre>Out[2]=&nbsp;&nbsp;&nbsp;</pre></font></td><td><font color=black><pre>15</pre></font></td></tr>
<tr valign=top><td><font color=blue><pre>In[3]:=</font></pre></td><td><font color=red><pre>PD[TorusKnot[5, 4]]</pre></font></td></tr>
<tr valign=top><td><font color=blue><pre>Out[3]=&nbsp;&nbsp;&nbsp;</pre></font></td><td><font color=black><pre>PD[X[17, 25, 18, 24], X[10, 26, 11, 25], X[3, 27, 4, 26], X[11, 19, 12, 18],
X[4, 20, 5, 19], X[27, 21, 28, 20], X[5, 13, 6, 12], X[28, 14, 29, 13],
X[21, 15, 22, 14], X[29, 7, 30, 6], X[22, 8, 23, 7], X[15, 9, 16, 8],
X[23, 1, 24, 30], X[16, 2, 17, 1], X[9, 3, 10, 2]]</pre></font></td></tr>
<tr valign=top><td><font color=blue><pre>In[4]:=</font></pre></td><td><font color=red><pre>GaussCode[TorusKnot[5, 4]]</pre></font></td></tr>
<tr valign=top><td><font color=blue><pre>Out[4]=&nbsp;&nbsp;&nbsp;</pre></font></td><td><font color=black><pre>GaussCode[14, 15, -3, -5, -7, 10, 11, 12, -15, -2, -4, 7, 8, 9, -12, -14, -1,
4, 5, 6, -9, -11, -13, 1, 2, 3, -6, -8, -10, 13]</pre></font></td></tr>
<tr valign=top><td><font color=blue><pre>In[5]:=</font></pre></td><td><font color=red><pre>BR[TorusKnot[5, 4]]</pre></font></td></tr>
<tr valign=top><td><font color=blue><pre>Out[5]=&nbsp;&nbsp;&nbsp;</pre></font></td><td><font color=black><pre>BR[4, {1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3}]</pre></font></td></tr>
<tr valign=top><td><font color=blue><pre>In[6]:=</font></pre></td><td><font color=red><pre>alex = Alexander[TorusKnot[5, 4]][t]</pre></font></td></tr>
<tr valign=top><td><font color=blue><pre>Out[6]=&nbsp;&nbsp;&nbsp;</pre></font></td><td><font color=black><pre> -6 -5 -2 2 5 6
-1 + t - t + t + t - t + t</pre></font></td></tr>
<tr valign=top><td><font color=blue><pre>In[7]:=</font></pre></td><td><font color=red><pre>Conway[TorusKnot[5, 4]][z]</pre></font></td></tr>
<tr valign=top><td><font color=blue><pre>Out[7]=&nbsp;&nbsp;&nbsp;</pre></font></td><td><font color=black><pre> 2 4 6 8 10 12
1 + 15 z + 56 z + 77 z + 44 z + 11 z + z</pre></font></td></tr>
<tr valign=top><td><font color=blue><pre>In[8]:=</font></pre></td><td><font color=red><pre>Select[AllKnots[], (alex === Alexander[#][t])&]</pre></font></td></tr>
<tr valign=top><td><font color=blue><pre>Out[8]=&nbsp;&nbsp;&nbsp;</pre></font></td><td><font color=black><pre>{}</pre></font></td></tr>
<tr valign=top><td><font color=blue><pre>In[9]:=</font></pre></td><td><font color=red><pre>{KnotDet[TorusKnot[5, 4]], KnotSignature[TorusKnot[5, 4]]}</pre></font></td></tr>
<tr valign=top><td><font color=blue><pre>Out[9]=&nbsp;&nbsp;&nbsp;</pre></font></td><td><font color=black><pre>{5, 8}</pre></font></td></tr>
<tr valign=top><td><font color=blue><pre>In[10]:=</font></pre></td><td><font color=red><pre>J=Jones[TorusKnot[5, 4]][q]</pre></font></td></tr>
<tr valign=top><td><font color=blue><pre>Out[10]=&nbsp;&nbsp;&nbsp;</pre></font></td><td><font color=black><pre> 6 8 10 11 13
q + q + q - q - q</pre></font></td></tr>
<tr valign=top><td><font color=blue><pre>In[11]:=</font></pre></td><td><font color=red><pre>Select[AllKnots[], (J === Jones[#][q] || (J /. q-> 1/q) === Jones[#][q])&]</pre></font></td></tr>
<tr valign=top><td><font color=blue><pre>Out[11]=&nbsp;&nbsp;&nbsp;</pre></font></td><td><font color=black><pre>{}</pre></font></td></tr>
Include[ColouredJonesM.mhtml]
<tr valign=top><td><font color=blue><pre>In[12]:=</font></pre></td><td><font color=red><pre>A2Invariant[TorusKnot[5, 4]][q]</pre></font></td></tr>
<tr valign=top><td><font color=blue><pre>Out[12]=&nbsp;&nbsp;&nbsp;</pre></font></td><td><font color=black><pre> 22 24 26 28 30 32 34 36 38 40 42
q + q + 2 q + 2 q + 3 q + 2 q + q - q - 2 q - 3 q - 3 q -
44 46 48 50 52
2 q - q + q + q + q</pre></font></td></tr>
<tr valign=top><td><font color=blue><pre>In[13]:=</font></pre></td><td><font color=red><pre>Kauffman[TorusKnot[5, 4]][a, z]</pre></font></td></tr>
<tr valign=top><td><font color=blue><pre>Out[13]=&nbsp;&nbsp;&nbsp;</pre></font></td><td><font color=black><pre> 2 2 2
-18 9 21 14 z 8 z 28 z 21 z z 22 z 91 z
a + --- + --- + --- - --- - --- - ---- - ---- - --- - ----- - ----- -
16 14 12 19 17 15 13 18 16 14
a a a a a a a a a a
2 3 3 3 4 4 4 5 5
70 z 14 z 84 z 70 z 21 z 154 z 133 z 7 z 91 z
----- + ----- + ----- + ----- + ----- + ------ + ------ - ---- - ----- -
12 17 15 13 16 14 12 17 15
a a a a a a a a a
5 6 6 6 7 7 7 8 8 8
84 z 8 z 129 z 121 z z 46 z 45 z z 56 z 55 z
----- - ---- - ------ - ------ + --- + ----- + ----- + --- + ----- + ----- -
13 16 14 12 17 15 13 16 14 12
a a a a a a a a a a
9 9 10 10 11 11 12 12
11 z 11 z 12 z 12 z z z z z
----- - ----- - ------ - ------ + --- + --- + --- + ---
15 13 14 12 15 13 14 12
a a a a a a a a</pre></font></td></tr>
<tr valign=top><td><font color=blue><pre>In[14]:=</font></pre></td><td><font color=red><pre>{Vassiliev[2][TorusKnot[5, 4]], Vassiliev[3][TorusKnot[5, 4]]}</pre></font></td></tr>
<tr valign=top><td><font color=blue><pre>Out[14]=&nbsp;&nbsp;&nbsp;</pre></font></td><td><font color=black><pre>{0, 50}</pre></font></td></tr>
<tr valign=top><td><font color=blue><pre>In[15]:=</font></pre></td><td><font color=red><pre>Kh[TorusKnot[5, 4]][q, t]</pre></font></td></tr>
<tr valign=top><td><font color=blue><pre>Out[15]=&nbsp;&nbsp;&nbsp;</pre></font></td><td><font color=black><pre> 11 13 15 2 19 3 17 4 19 4 21 5 23 5 19 6
q + q + q t + q t + q t + q t + q t + q t + q t +
21 6 23 7 25 7 23 8 27 9
q t + q t + q t + q t + q t</pre></font></td></tr>
</table>

Revision as of 16:52, 26 August 2005


[[Image:T(7,3).{{{ext}}}|80px|link=T(7,3)]]

T(7,3)

[[Image:T(15,2).{{{ext}}}|80px|link=T(15,2)]]

T(15,2)

Visit T(5,4)'s page at Knotilus!

Visit T(5,4)'s page at the original Knot Atlas!

Knot presentations

Planar diagram presentation X17,25,18,24 X10,26,11,25 X3,27,4,26 X11,19,12,18 X4,20,5,19 X27,21,28,20 X5,13,6,12 X28,14,29,13 X21,15,22,14 X29,7,30,6 X22,8,23,7 X15,9,16,8 X23,1,24,30 X16,2,17,1 X9,3,10,2
Gauss code {14, 15, -3, -5, -7, 10, 11, 12, -15, -2, -4, 7, 8, 9, -12, -14, -1, 4, 5, 6, -9, -11, -13, 1, 2, 3, -6, -8, -10, 13}
Dowker-Thistlethwaite code 16 -26 -12 22 -2 -18 28 -8 -24 4 -14 -30 10 -20 -6

Polynomial invariants

Polynomial invariants

Alexander polynomial
Conway polynomial
2nd Alexander ideal (db, data sources)
Determinant and Signature { 5, 8 }
Jones polynomial
HOMFLY-PT polynomial (db, data sources)
Kauffman polynomial (db, data sources)
The A2 invariant Data:T(5,4)/QuantumInvariant/A2/1,0
The G2 invariant Data:T(5,4)/QuantumInvariant/G2/1,0

Vassiliev invariants

V2 and V3 {0, 50})

Khovanov Homology. The coefficients of the monomials are shown, along with their alternating sums (fixed , alternation over ). The squares with yellow highlighting are those on the "critical diagonals", where or , where 8 is the signature of T(5,4). Nonzero entries off the critical diagonals (if any exist) are highlighted in red.

\ r
  \  
j \
0123456789χ
27         1-1
25       1  -1
23     1 11 -1
21     11   0
19   11 1   1
17    1     1
15  1       1
131         1
111         1

Computer Talk

Much of the above data can be recomputed by Mathematica using the package KnotTheory`. See A Sample KnotTheory` Session.

Include[ColouredJonesM.mhtml]

In[1]:=    
<< KnotTheory`
Loading KnotTheory` (version of August 19, 2005, 13:11:25)...
In[2]:=</font>
Crossings[TorusKnot[5, 4]]
Out[2]=   
15
In[3]:=</font>
PD[TorusKnot[5, 4]]
Out[3]=   
PD[X[17, 25, 18, 24], X[10, 26, 11, 25], X[3, 27, 4, 26], X[11, 19, 12, 18], 
 X[4, 20, 5, 19], X[27, 21, 28, 20], X[5, 13, 6, 12], X[28, 14, 29, 13], 

 X[21, 15, 22, 14], X[29, 7, 30, 6], X[22, 8, 23, 7], X[15, 9, 16, 8], 

X[23, 1, 24, 30], X[16, 2, 17, 1], X[9, 3, 10, 2]]
In[4]:=</font>
GaussCode[TorusKnot[5, 4]]
Out[4]=   
GaussCode[14, 15, -3, -5, -7, 10, 11, 12, -15, -2, -4, 7, 8, 9, -12, -14, -1, 
  4, 5, 6, -9, -11, -13, 1, 2, 3, -6, -8, -10, 13]
In[5]:=</font>
BR[TorusKnot[5, 4]]
Out[5]=   
BR[4, {1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3}]
In[6]:=</font>
alex = Alexander[TorusKnot[5, 4]][t]
Out[6]=   
      -6    -5    -2    2    5    6
-1 + t   - t   + t   + t  - t  + t
In[7]:=</font>
Conway[TorusKnot[5, 4]][z]
Out[7]=   
        2       4       6       8       10    12
1 + 15 z  + 56 z  + 77 z  + 44 z  + 11 z   + z
In[8]:=</font>
Select[AllKnots[], (alex === Alexander[#][t])&]
Out[8]=   
{}
In[9]:=</font>
{KnotDet[TorusKnot[5, 4]], KnotSignature[TorusKnot[5, 4]]}
Out[9]=   
{5, 8}
In[10]:=</font>
J=Jones[TorusKnot[5, 4]][q]
Out[10]=   
 6    8    10    11    13
q  + q  + q   - q   - q
In[11]:=</font>
Select[AllKnots[], (J === Jones[#][q] || (J /. q-> 1/q) === Jones[#][q])&]
Out[11]=   
{}
In[12]:=</font>
A2Invariant[TorusKnot[5, 4]][q]
Out[12]=   
 22    24      26      28      30      32    34    36      38      40      42

q + q + 2 q + 2 q + 3 q + 2 q + q - q - 2 q - 3 q - 3 q -

    44    46    48    50    52
2 q - q + q + q + q
In[13]:=</font>
Kauffman[TorusKnot[5, 4]][a, z]
Out[13]=   
                                                    2        2       2
-18    9    21    14     z    8 z   28 z   21 z   z     22 z    91 z

a + --- + --- + --- - --- - --- - ---- - ---- - --- - ----- - ----- -

       16    14    12    19    17    15     13     18     16      14
      a     a     a     a     a     a      a      a      a       a

     2       3       3       3       4        4        4      5       5
 70 z    14 z    84 z    70 z    21 z    154 z    133 z    7 z    91 z
 ----- + ----- + ----- + ----- + ----- + ------ + ------ - ---- - ----- - 
   12      17      15      13      16      14       12      17      15
  a       a       a       a       a       a        a       a       a

     5      6        6        6    7        7       7    8        8       8
 84 z    8 z    129 z    121 z    z     46 z    45 z    z     56 z    55 z
 ----- - ---- - ------ - ------ + --- + ----- + ----- + --- + ----- + ----- - 
   13     16      14       12      17     15      13     16     14      12
  a      a       a        a       a      a       a      a      a       a

     9       9       10       10    11    11    12    12
 11 z    11 z    12 z     12 z     z     z     z     z
 ----- - ----- - ------ - ------ + --- + --- + --- + ---
   15      13      14       12      15    13    14    12
a a a a a a a a
In[14]:=</font>
{Vassiliev[2][TorusKnot[5, 4]], Vassiliev[3][TorusKnot[5, 4]]}
Out[14]=   
{0, 50}
In[15]:=</font>
Kh[TorusKnot[5, 4]][q, t]
Out[15]=   
 11    13    15  2    19  3    17  4    19  4    21  5    23  5    19  6

q + q + q t + q t + q t + q t + q t + q t + q t +

  21  6    23  7    25  7    23  8    27  9
q t + q t + q t + q t + q t