PD Presentation: |
X7,37,8,36 X22,38,23,37 X23,9,24,8 X38,10,39,9 X39,25,40,24 X10,26,11,25 X11,41,12,40 X26,42,27,41 X27,13,28,12 X42,14,43,13 X43,29,44,28 X14,30,15,29 X15,1,16,44 X30,2,31,1 X31,17,32,16 X2,18,3,17 X3,33,4,32 X18,34,19,33 X19,5,20,4 X34,6,35,5 X35,21,36,20 X6,22,7,21 |
In[1]:= |
<< KnotTheory` |
Loading KnotTheory` (version of August 30, 2005, 10:15:35)... |
In[2]:= | TubePlot[TorusKnot[11, 3]] |
|  |
Out[2]= | -Graphics- |
In[3]:= | Crossings[TorusKnot[11, 3]] |
Out[3]= | 22 |
In[4]:= | PD[TorusKnot[11, 3]] |
Out[4]= | PD[X[7, 37, 8, 36], X[22, 38, 23, 37], X[23, 9, 24, 8], X[38, 10, 39, 9],
> X[39, 25, 40, 24], X[10, 26, 11, 25], X[11, 41, 12, 40], X[26, 42, 27, 41],
> X[27, 13, 28, 12], X[42, 14, 43, 13], X[43, 29, 44, 28], X[14, 30, 15, 29],
> X[15, 1, 16, 44], X[30, 2, 31, 1], X[31, 17, 32, 16], X[2, 18, 3, 17],
> X[3, 33, 4, 32], X[18, 34, 19, 33], X[19, 5, 20, 4], X[34, 6, 35, 5],
> X[35, 21, 36, 20], X[6, 22, 7, 21]] |
In[5]:= | GaussCode[TorusKnot[11, 3]] |
Out[5]= | GaussCode[14, -16, -17, 19, 20, -22, -1, 3, 4, -6, -7, 9, 10, -12, -13, 15, 16,
> -18, -19, 21, 22, -2, -3, 5, 6, -8, -9, 11, 12, -14, -15, 17, 18, -20, -21,
> 1, 2, -4, -5, 7, 8, -10, -11, 13] |
In[6]:= | BR[TorusKnot[11, 3]] |
Out[6]= | BR[3, {1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2}] |
In[7]:= | alex = Alexander[TorusKnot[11, 3]][t] |
Out[7]= | -10 -9 -7 -6 -4 -3 1 3 4 6 7 9 10
-1 + t - t + t - t + t - t + - + t - t + t - t + t - t + t
t |
In[8]:= | Conway[TorusKnot[11, 3]][z] |
Out[8]= | 2 4 6 8 10 12 14
1 + 40 z + 390 z + 1443 z + 2665 z + 2782 z + 1742 z + 666 z +
16 18 20
> 152 z + 19 z + z |
In[9]:= | Select[AllKnots[], (alex === Alexander[#][t])&] |
Out[9]= | {} |
In[10]:= | {KnotDet[TorusKnot[11, 3]], KnotSignature[TorusKnot[11, 3]]} |
Out[10]= | {1, 16} |
In[11]:= | J=Jones[TorusKnot[11, 3]][q] |
Out[11]= | 10 12 22
q + q - q |
In[12]:= | Select[AllKnots[], (J === Jones[#][q] || (J /. q-> 1/q) === Jones[#][q])&] |
Out[12]= | {} |
In[13]:= | A2Invariant[TorusKnot[11, 3]][q] |
Out[13]= | NotAvailable |
In[14]:= | Kauffman[TorusKnot[11, 3]][a, z] |
Out[14]= | NotAvailable |
In[15]:= | {Vassiliev[2][TorusKnot[11, 3]], Vassiliev[3][TorusKnot[11, 3]]} |
Out[15]= | {40, 220} |
In[16]:= | Kh[TorusKnot[11, 3]][q, t] |
Out[16]= | 19 21 23 2 27 3 25 4 27 4 29 5 31 5 29 6
q + q + q t + q t + q t + q t + q t + q t + q t +
33 7 31 8 33 8 35 9 37 9 35 10 39 11 37 12
> q t + q t + q t + q t + q t + q t + q t + q t +
39 12 41 13 43 13 41 14 45 15
> q t + q t + q t + q t + q t |