T(17,2): Difference between revisions

From Knot Atlas
Jump to navigationJump to search
No edit summary
 
No edit summary
Line 118: Line 118:
Include[ColouredJonesM.mhtml]
Include[ColouredJonesM.mhtml]
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>In[12]:=</nowiki></pre></td><td><pre style="color: red; border: 0px; padding: 0em"><nowiki>A2Invariant[TorusKnot[17, 2]][q]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>In[12]:=</nowiki></pre></td><td><pre style="color: red; border: 0px; padding: 0em"><nowiki>A2Invariant[TorusKnot[17, 2]][q]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[12]=&nbsp;&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki> 30 32 34 36 38 66 68 70
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[12]=&nbsp;&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki>NotAvailable</nowiki></pre></td></tr>
q + q + 2 q + q + q - q - q - q</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>In[13]:=</nowiki></pre></td><td><pre style="color: red; border: 0px; padding: 0em"><nowiki>Kauffman[TorusKnot[17, 2]][a, z]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>In[13]:=</nowiki></pre></td><td><pre style="color: red; border: 0px; padding: 0em"><nowiki>Kauffman[TorusKnot[17, 2]][a, z]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[13]=&nbsp;&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki> 2
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[13]=&nbsp;&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki>NotAvailable</nowiki></pre></td></tr>
8 9 z z z z z z z z 8 z z
--- + --- + --- - --- + --- - --- + --- - --- + --- - --- - --- + --- -
18 16 33 31 29 27 25 23 21 19 17 32
a a a a a a a a a a a a
2 2 2 2 2 2 2 2 3
2 z 3 z 4 z 5 z 6 z 7 z 92 z 120 z z
---- + ---- - ---- + ---- - ---- + ---- - ----- - ------ + --- -
30 28 26 24 22 20 18 16 31
a a a a a a a a a
3 3 3 3 3 3 3 4 4
3 z 6 z 10 z 15 z 21 z 28 z 84 z z 4 z
---- + ---- - ----- + ----- - ----- + ----- + ----- + --- - ---- +
29 27 25 23 21 19 17 30 28
a a a a a a a a a
4 4 4 4 4 4 5 5
10 z 20 z 35 z 56 z 336 z 462 z z 5 z
----- - ----- + ----- - ----- + ------ + ------ + --- - ---- +
26 24 22 20 18 16 29 27
a a a a a a a a
5 5 5 5 5 6 6 6
15 z 35 z 70 z 126 z 252 z z 6 z 21 z
----- - ----- + ----- - ------ - ------ + --- - ---- + ----- -
25 23 21 19 17 28 26 24
a a a a a a a a
6 6 6 6 7 7 7 7
56 z 126 z 582 z 792 z z 7 z 28 z 84 z
----- + ------ - ------ - ------ + --- - ---- + ----- - ----- +
22 20 18 16 27 25 23 21
a a a a a a a a
7 7 8 8 8 8 8 8
210 z 330 z z 8 z 36 z 120 z 550 z 715 z
------ + ------ + --- - ---- + ----- - ------ + ------ + ------ +
19 17 26 24 22 20 18 16
a a a a a a a a
9 9 9 9 9 10 10 10
z 9 z 45 z 165 z 220 z z 10 z 55 z
--- - ---- + ----- - ------ - ------ + --- - ------ + ------ -
25 23 21 19 17 24 22 20
a a a a a a a a
10 10 11 11 11 11 12 12
298 z 364 z z 11 z 66 z 78 z z 12 z
------- - ------- + --- - ------ + ------ + ------ + --- - ------ +
18 16 23 21 19 17 22 20
a a a a a a a a
12 12 13 13 13 14 14 14
92 z 105 z z 13 z 14 z z 15 z 16 z
------ + ------- + --- - ------ - ------ + --- - ------ - ------ +
18 16 21 19 17 20 18 16
a a a a a a a a
15 15 16 16
z z z z
--- + --- + --- + ---
19 17 18 16
a a a a</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>In[14]:=</nowiki></pre></td><td><pre style="color: red; border: 0px; padding: 0em"><nowiki>{Vassiliev[2][TorusKnot[17, 2]], Vassiliev[3][TorusKnot[17, 2]]}</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>In[14]:=</nowiki></pre></td><td><pre style="color: red; border: 0px; padding: 0em"><nowiki>{Vassiliev[2][TorusKnot[17, 2]], Vassiliev[3][TorusKnot[17, 2]]}</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[14]=&nbsp;&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki>{0, 204}</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[14]=&nbsp;&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki>{0, 204}</nowiki></pre></td></tr>

Revision as of 21:18, 26 August 2005


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

T(8,3)

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

T(19,2)

Visit T(17,2)'s page at Knotilus!

Visit T(17,2)'s page at the original Knot Atlas!

Knot presentations

Planar diagram presentation X15,33,16,32 X33,17,34,16 X17,1,18,34 X1,19,2,18 X19,3,20,2 X3,21,4,20 X21,5,22,4 X5,23,6,22 X23,7,24,6 X7,25,8,24 X25,9,26,8 X9,27,10,26 X27,11,28,10 X11,29,12,28 X29,13,30,12 X13,31,14,30 X31,15,32,14
Gauss code {-4, 5, -6, 7, -8, 9, -10, 11, -12, 13, -14, 15, -16, 17, -1, 2, -3, 4, -5, 6, -7, 8, -9, 10, -11, 12, -13, 14, -15, 16, -17, 1, -2, 3}
Dowker-Thistlethwaite code 18 20 22 24 26 28 30 32 34 2 4 6 8 10 12 14 16

Polynomial invariants

Polynomial invariants

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

Vassiliev invariants

V2 and V3 {0, 204})

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 16 is the signature of T(17,2). Nonzero entries off the critical diagonals (if any exist) are highlighted in red.

\ r
  \  
j \
01234567891011121314151617χ
51                 1-1
49                  0
47               11 0
45                  0
43             11   0
41                  0
39           11     0
37                  0
35         11       0
33                  0
31       11         0
29                  0
27     11           0
25                  0
23   11             0
21                  0
19  1               1
171                 1
151                 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]:=
Crossings[TorusKnot[17, 2]]
Out[2]=   
17
In[3]:=
PD[TorusKnot[17, 2]]
Out[3]=   
PD[X[15, 33, 16, 32], X[33, 17, 34, 16], X[17, 1, 18, 34], 
 X[1, 19, 2, 18], X[19, 3, 20, 2], X[3, 21, 4, 20], X[21, 5, 22, 4], 

 X[5, 23, 6, 22], X[23, 7, 24, 6], X[7, 25, 8, 24], X[25, 9, 26, 8], 

 X[9, 27, 10, 26], X[27, 11, 28, 10], X[11, 29, 12, 28], 

X[29, 13, 30, 12], X[13, 31, 14, 30], X[31, 15, 32, 14]]
In[4]:=
GaussCode[TorusKnot[17, 2]]
Out[4]=   
GaussCode[-4, 5, -6, 7, -8, 9, -10, 11, -12, 13, -14, 15, -16, 17, -1, 
 2, -3, 4, -5, 6, -7, 8, -9, 10, -11, 12, -13, 14, -15, 16, -17, 1, 

-2, 3]
In[5]:=
BR[TorusKnot[17, 2]]
Out[5]=   
BR[2, {1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1}]
In[6]:=
alex = Alexander[TorusKnot[17, 2]][t]
Out[6]=   
     -8    -7    -6    -5    -4    -3    -2   1        2    3    4

1 + t - t + t - t + t - t + t - - - t + t - t + t -

                                             t

  5    6    7    8
t + t - t + t
In[7]:=
Conway[TorusKnot[17, 2]][z]
Out[7]=   
        2        4        6        8        10       12       14    16
1 + 36 z  + 210 z  + 462 z  + 495 z  + 286 z   + 91 z   + 15 z   + z
In[8]:=
Select[AllKnots[], (alex === Alexander[#][t])&]
Out[8]=   
{}
In[9]:=
{KnotDet[TorusKnot[17, 2]], KnotSignature[TorusKnot[17, 2]]}
Out[9]=   
{17, 16}
In[10]:=
J=Jones[TorusKnot[17, 2]][q]
Out[10]=   
 8    10    11    12    13    14    15    16    17    18    19    20

q + q - q + q - q + q - q + q - q + q - q + q -

  21    22    23    24    25
q + q - q + q - q
In[11]:=
Select[AllKnots[], (J === Jones[#][q] || (J /. q-> 1/q) === Jones[#][q])&]
Out[11]=   
{}
In[12]:=
A2Invariant[TorusKnot[17, 2]][q]
Out[12]=   
NotAvailable
In[13]:=
Kauffman[TorusKnot[17, 2]][a, z]
Out[13]=   
NotAvailable
In[14]:=
{Vassiliev[2][TorusKnot[17, 2]], Vassiliev[3][TorusKnot[17, 2]]}
Out[14]=   
{0, 204}
In[15]:=
Kh[TorusKnot[17, 2]][q, t]
Out[15]=   
 15    17    19  2    23  3    23  4    27  5    27  6    31  7

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

  31  8    35  9    35  10    39  11    39  12    43  13    43  14
 q   t  + q   t  + q   t   + q   t   + q   t   + q   t   + q   t   + 

  47  15    47  16    51  17
q t + q t + q t