9 31: Difference between revisions

From Knot Atlas
Jump to navigationJump to search
(Resetting knot page to basic template.)
 
No edit summary
Line 1: Line 1:
<!-- -->
{{Template:Basic Knot Invariants|name=9_31}}

<!-- provide an anchor so we can return to the top of the page -->
<span id="top"></span>

<!-- this relies on transclusion for next and previous links -->
{{Knot Navigation Links|ext=gif}}

{| align=left
|- valign=top
|[[Image:{{PAGENAME}}.gif]]
|{{Rolfsen Knot Site Links|n=9|k=31|KnotilusURL=http://srankin.math.uwo.ca/cgi-bin/retrieve.cgi/-1,9,-2,1,-4,5,-6,8,-9,2,-3,4,-7,6,-8,7,-5,3/goTop.html}}
|{{:{{PAGENAME}} Quick Notes}}
|}

<br style="clear:both" />

{{:{{PAGENAME}} Further Notes and Views}}

{{Knot Presentations}}
{{3D Invariants}}
{{4D Invariants}}
{{Polynomial Invariants}}
{{Vassiliev Invariants}}

===[[Khovanov Homology]]===

The coefficients of the monomials <math>t^rq^j</math> are shown, along with their alternating sums <math>\chi</math> (fixed <math>j</math>, alternation over <math>r</math>). The squares with <font class=HLYellow>yellow</font> highlighting are those on the "critical diagonals", where <math>j-2r=s+1</math> or <math>j-2r=s+1</math>, where <math>s=</math>{{Data:{{PAGENAME}}/Signature}} is the signature of {{PAGENAME}}. Nonzero entries off the critical diagonals (if any exist) are highlighted in <font class=HLRed>red</font>.

<center><table border=1>
<tr align=center>
<td width=14.2857%><table cellpadding=0 cellspacing=0>
<tr><td>\</td><td>&nbsp;</td><td>r</td></tr>
<tr><td>&nbsp;</td><td>&nbsp;\&nbsp;</td><td>&nbsp;</td></tr>
<tr><td>j</td><td>&nbsp;</td><td>\</td></tr>
</table></td>
<td width=7.14286%>-6</td ><td width=7.14286%>-5</td ><td width=7.14286%>-4</td ><td width=7.14286%>-3</td ><td width=7.14286%>-2</td ><td width=7.14286%>-1</td ><td width=7.14286%>0</td ><td width=7.14286%>1</td ><td width=7.14286%>2</td ><td width=7.14286%>3</td ><td width=14.2857%>&chi;</td></tr>
<tr align=center><td>5</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td bgcolor=yellow>1</td><td>-1</td></tr>
<tr align=center><td>3</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td bgcolor=yellow>2</td><td bgcolor=yellow>&nbsp;</td><td>2</td></tr>
<tr align=center><td>1</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td bgcolor=yellow>3</td><td bgcolor=yellow>1</td><td>&nbsp;</td><td>-2</td></tr>
<tr align=center><td>-1</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td bgcolor=yellow>5</td><td bgcolor=yellow>2</td><td>&nbsp;</td><td>&nbsp;</td><td>3</td></tr>
<tr align=center><td>-3</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td bgcolor=yellow>5</td><td bgcolor=yellow>4</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>-1</td></tr>
<tr align=center><td>-5</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td bgcolor=yellow>5</td><td bgcolor=yellow>4</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>1</td></tr>
<tr align=center><td>-7</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td bgcolor=yellow>3</td><td bgcolor=yellow>5</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>2</td></tr>
<tr align=center><td>-9</td><td>&nbsp;</td><td>&nbsp;</td><td bgcolor=yellow>3</td><td bgcolor=yellow>5</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>-2</td></tr>
<tr align=center><td>-11</td><td>&nbsp;</td><td bgcolor=yellow>1</td><td bgcolor=yellow>3</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>2</td></tr>
<tr align=center><td>-13</td><td bgcolor=yellow>&nbsp;</td><td bgcolor=yellow>3</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>-3</td></tr>
<tr align=center><td>-15</td><td bgcolor=yellow>1</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>1</td></tr>
</table></center>

{{Computer Talk Header}}

<table>
<tr valign=top>
<td><pre style="color: blue; border: 0px; padding: 0em">In[1]:=&nbsp;&nbsp;&nbsp;&nbsp;</pre></td>
<td align=left><pre style="color: red; border: 0px; padding: 0em">&lt;&lt; KnotTheory`</pre></td>
</tr>
<tr valign=top><td colspan=2><pre style="border: 0px; padding: 0em">Loading KnotTheory` (version of August 17, 2005, 14:44:34)...</pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>In[2]:=</nowiki></pre></td><td><pre style="color: red; border: 0px; padding: 0em"><nowiki>Crossings[Knot[9, 31]]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[2]=&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki>9</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>In[3]:=</nowiki></pre></td><td><pre style="color: red; border: 0px; padding: 0em"><nowiki>PD[Knot[9, 31]]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[3]=&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki>PD[X[1, 4, 2, 5], X[3, 10, 4, 11], X[11, 1, 12, 18], X[5, 13, 6, 12],
X[17, 7, 18, 6], X[7, 14, 8, 15], X[13, 16, 14, 17], X[15, 8, 16, 9],
X[9, 2, 10, 3]]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>In[4]:=</nowiki></pre></td><td><pre style="color: red; border: 0px; padding: 0em"><nowiki>GaussCode[Knot[9, 31]]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[4]=&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki>GaussCode[-1, 9, -2, 1, -4, 5, -6, 8, -9, 2, -3, 4, -7, 6, -8, 7, -5, 3]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>In[5]:=</nowiki></pre></td><td><pre style="color: red; border: 0px; padding: 0em"><nowiki>BR[Knot[9, 31]]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[5]=&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki>BR[4, {-1, -1, 2, -1, 2, -3, 2, -3, -3}]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>In[6]:=</nowiki></pre></td><td><pre style="color: red; border: 0px; padding: 0em"><nowiki>alex = Alexander[Knot[9, 31]][t]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[6]=&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki> -3 5 13 2 3
-17 + t - -- + -- + 13 t - 5 t + t
2 t
t</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>In[7]:=</nowiki></pre></td><td><pre style="color: red; border: 0px; padding: 0em"><nowiki>Conway[Knot[9, 31]][z]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[7]=&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki> 2 4 6
1 + 2 z + z + z</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>In[8]:=</nowiki></pre></td><td><pre style="color: red; border: 0px; padding: 0em"><nowiki>Select[AllKnots[], (alex === Alexander[#][t])&]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[8]=&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki>{Knot[9, 31], Knot[11, NonAlternating, 11],
Knot[11, NonAlternating, 22], Knot[11, NonAlternating, 112],
Knot[11, NonAlternating, 127]}</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>In[9]:=</nowiki></pre></td><td><pre style="color: red; border: 0px; padding: 0em"><nowiki>{KnotDet[Knot[9, 31]], KnotSignature[Knot[9, 31]]}</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[9]=&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki>{55, -2}</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>In[10]:=</nowiki></pre></td><td><pre style="color: red; border: 0px; padding: 0em"><nowiki>J=Jones[Knot[9, 31]][q]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[10]=&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki> -7 4 6 8 10 9 8 2
-5 + q - -- + -- - -- + -- - -- + - + 3 q - q
6 5 4 3 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[11]:=</nowiki></pre></td><td><pre style="color: red; border: 0px; padding: 0em"><nowiki>Select[AllKnots[], (J === Jones[#][q] || (J /. q-> 1/q) === Jones[#][q])&]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[11]=&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki>{Knot[9, 31]}</nowiki></pre></td></tr>
<math>\textrm{Include}(\textrm{ColouredJonesM.mhtml})</math>
<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[Knot[9, 31]][q]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[12]=&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki> -22 -20 2 -16 2 -12 -10 3 -4 3 2
q - q - --- + q - --- + q + q + -- - q + -- - q +
18 14 6 2
q q q q
4 6
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[Knot[9, 31]][a, z]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[13]=&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki> 2 4 z 3 5 2 2 2
-1 - 4 a - 2 a + - + 3 a z + 5 a z + 3 a z + 5 z + 15 a z +
a
3
4 2 6 2 2 z 3 3 3 5 3 7 3
13 a z + 3 a z - ---- - 3 a z - 5 a z - 8 a z - 4 a z -
a
5
4 2 4 4 4 6 4 8 4 z 5
7 z - 21 a z - 23 a z - 8 a z + a z + -- - 3 a z -
a
3 5 5 5 7 5 6 2 6 4 6 6 6
7 a z + a z + 4 a z + 3 z + 8 a z + 11 a z + 6 a z +
7 3 7 5 7 2 8 4 8
3 a z + 7 a z + 4 a z + a z + a z</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][Knot[9, 31]], Vassiliev[3][Knot[9, 31]]}</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[14]=&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki>{0, -2}</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>In[15]:=</nowiki></pre></td><td><pre style="color: red; border: 0px; padding: 0em"><nowiki>Kh[Knot[9, 31]][q, t]</nowiki></pre></td></tr>
<tr valign=top><td><pre style="color: blue; border: 0px; padding: 0em"><nowiki>Out[15]=&nbsp;&nbsp;</nowiki></pre></td><td><pre style="color: black; border: 0px; padding: 0em"><nowiki>4 5 1 3 1 3 3 5 3
-- + - + ------ + ------ + ------ + ------ + ----- + ----- + ----- +
3 q 15 6 13 5 11 5 11 4 9 4 9 3 7 3
q q t q t q t q t q t q t q t
5 5 4 5 2 t 2 3 2 5 3
----- + ----- + ---- + ---- + --- + 3 q t + q t + 2 q t + q t
7 2 5 2 5 3 q
q t q t q t q t</nowiki></pre></td></tr>
</table>

Revision as of 21:50, 27 August 2005


9 30.gif

9_30

9 32.gif

9_32

9 31.gif Visit 9 31's page at the Knot Server (KnotPlot driven, includes 3D interactive images!)

Visit 9 31's page at Knotilus!

Visit 9 31's page at the original Knot Atlas!

9 31 Quick Notes


9 31 Further Notes and Views

Knot presentations

Planar diagram presentation X1425 X3,10,4,11 X11,1,12,18 X5,13,6,12 X17,7,18,6 X7,14,8,15 X13,16,14,17 X15,8,16,9 X9,2,10,3
Gauss code -1, 9, -2, 1, -4, 5, -6, 8, -9, 2, -3, 4, -7, 6, -8, 7, -5, 3
Dowker-Thistlethwaite code 4 10 12 14 2 18 16 8 6
Conway Notation [2111112]

Three dimensional invariants

Symmetry type Reversible
Unknotting number 2
3-genus 3
Bridge index 2
Super bridge index [math]\displaystyle{ \{4,6\} }[/math]
Nakanishi index 1
Maximal Thurston-Bennequin number [-9][-2]
Hyperbolic Volume 11.6863
A-Polynomial See Data:9 31/A-polynomial

[edit Notes for 9 31's three dimensional invariants]

Four dimensional invariants

Smooth 4 genus [math]\displaystyle{ 1 }[/math]
Topological 4 genus [math]\displaystyle{ 1 }[/math]
Concordance genus [math]\displaystyle{ 3 }[/math]
Rasmussen s-Invariant -2

[edit Notes for 9 31's four dimensional invariants]

Polynomial invariants

Alexander polynomial [math]\displaystyle{ t^3-5 t^2+13 t-17+13 t^{-1} -5 t^{-2} + t^{-3} }[/math]
Conway polynomial [math]\displaystyle{ z^6+z^4+2 z^2+1 }[/math]
2nd Alexander ideal (db, data sources) [math]\displaystyle{ \{1\} }[/math]
Determinant and Signature { 55, -2 }
Jones polynomial [math]\displaystyle{ -q^2+3 q-5+8 q^{-1} -9 q^{-2} +10 q^{-3} -8 q^{-4} +6 q^{-5} -4 q^{-6} + q^{-7} }[/math]
HOMFLY-PT polynomial (db, data sources) [math]\displaystyle{ z^2 a^6-2 z^4 a^4-4 z^2 a^4-2 a^4+z^6 a^2+4 z^4 a^2+7 z^2 a^2+4 a^2-z^4-2 z^2-1 }[/math]
Kauffman polynomial (db, data sources) [math]\displaystyle{ z^4 a^8+4 z^5 a^7-4 z^3 a^7+6 z^6 a^6-8 z^4 a^6+3 z^2 a^6+4 z^7 a^5+z^5 a^5-8 z^3 a^5+3 z a^5+z^8 a^4+11 z^6 a^4-23 z^4 a^4+13 z^2 a^4-2 a^4+7 z^7 a^3-7 z^5 a^3-5 z^3 a^3+5 z a^3+z^8 a^2+8 z^6 a^2-21 z^4 a^2+15 z^2 a^2-4 a^2+3 z^7 a-3 z^5 a-3 z^3 a+3 z a+3 z^6-7 z^4+5 z^2-1+z^5 a^{-1} -2 z^3 a^{-1} +z a^{-1} }[/math]
The A2 invariant [math]\displaystyle{ q^{22}-q^{20}-2 q^{18}+q^{16}-2 q^{14}+q^{12}+q^{10}+3 q^6-q^4+3 q^2- q^{-2} + q^{-4} - q^{-6} }[/math]
The G2 invariant [math]\displaystyle{ q^{114}-3 q^{112}+6 q^{110}-10 q^{108}+8 q^{106}-4 q^{104}-5 q^{102}+22 q^{100}-33 q^{98}+45 q^{96}-41 q^{94}+16 q^{92}+17 q^{90}-54 q^{88}+80 q^{86}-86 q^{84}+65 q^{82}-20 q^{80}-33 q^{78}+75 q^{76}-90 q^{74}+70 q^{72}-28 q^{70}-23 q^{68}+48 q^{66}-52 q^{64}+24 q^{62}+26 q^{60}-67 q^{58}+82 q^{56}-60 q^{54}+2 q^{52}+65 q^{50}-121 q^{48}+136 q^{46}-108 q^{44}+48 q^{42}+32 q^{40}-96 q^{38}+129 q^{36}-115 q^{34}+68 q^{32}-4 q^{30}-51 q^{28}+73 q^{26}-55 q^{24}+22 q^{22}+29 q^{20}-57 q^{18}+59 q^{16}-26 q^{14}-24 q^{12}+72 q^{10}-94 q^8+83 q^6-43 q^4-9 q^2+55-80 q^{-2} +81 q^{-4} -55 q^{-6} +18 q^{-8} +13 q^{-10} -35 q^{-12} +38 q^{-14} -31 q^{-16} +19 q^{-18} -5 q^{-20} -5 q^{-22} +7 q^{-24} -8 q^{-26} +5 q^{-28} -2 q^{-30} + q^{-32} }[/math]

Vassiliev invariants

V2 and V3: (2, -2)
V2,1 through V6,9:
V2,1 V3,1 V4,1 V4,2 V4,3 V5,1 V5,2 V5,3 V5,4 V6,1 V6,2 V6,3 V6,4 V6,5 V6,6 V6,7 V6,8 V6,9
[math]\displaystyle{ 8 }[/math] [math]\displaystyle{ -16 }[/math] [math]\displaystyle{ 32 }[/math] [math]\displaystyle{ \frac{172}{3} }[/math] [math]\displaystyle{ \frac{20}{3} }[/math] [math]\displaystyle{ -128 }[/math] [math]\displaystyle{ -\frac{640}{3} }[/math] [math]\displaystyle{ -\frac{160}{3} }[/math] [math]\displaystyle{ -16 }[/math] [math]\displaystyle{ \frac{256}{3} }[/math] [math]\displaystyle{ 128 }[/math] [math]\displaystyle{ \frac{1376}{3} }[/math] [math]\displaystyle{ \frac{160}{3} }[/math] [math]\displaystyle{ \frac{11911}{15} }[/math] [math]\displaystyle{ \frac{916}{15} }[/math] [math]\displaystyle{ \frac{12604}{45} }[/math] [math]\displaystyle{ -\frac{55}{9} }[/math] [math]\displaystyle{ \frac{631}{15} }[/math]

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

\ r
  \  
j \
-6-5-4-3-2-10123χ
5         1-1
3        2 2
1       31 -2
-1      52  3
-3     54   -1
-5    54    1
-7   35     2
-9  35      -2
-11 13       2
-13 3        -3
-151         1

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[Knot[9, 31]]
Out[2]=  
9
In[3]:=
PD[Knot[9, 31]]
Out[3]=  
PD[X[1, 4, 2, 5], X[3, 10, 4, 11], X[11, 1, 12, 18], X[5, 13, 6, 12], 
 X[17, 7, 18, 6], X[7, 14, 8, 15], X[13, 16, 14, 17], X[15, 8, 16, 9], 

X[9, 2, 10, 3]]
In[4]:=
GaussCode[Knot[9, 31]]
Out[4]=  
GaussCode[-1, 9, -2, 1, -4, 5, -6, 8, -9, 2, -3, 4, -7, 6, -8, 7, -5, 3]
In[5]:=
BR[Knot[9, 31]]
Out[5]=  
BR[4, {-1, -1, 2, -1, 2, -3, 2, -3, -3}]
In[6]:=
alex = Alexander[Knot[9, 31]][t]
Out[6]=  
       -3   5    13             2    3

-17 + t - -- + -- + 13 t - 5 t + t

            2   t
t
In[7]:=
Conway[Knot[9, 31]][z]
Out[7]=  
       2    4    6
1 + 2 z  + z  + z
In[8]:=
Select[AllKnots[], (alex === Alexander[#][t])&]
Out[8]=  
{Knot[9, 31], Knot[11, NonAlternating, 11], 
 Knot[11, NonAlternating, 22], Knot[11, NonAlternating, 112], 

Knot[11, NonAlternating, 127]}
In[9]:=
{KnotDet[Knot[9, 31]], KnotSignature[Knot[9, 31]]}
Out[9]=  
{55, -2}
In[10]:=
J=Jones[Knot[9, 31]][q]
Out[10]=  
      -7   4    6    8    10   9    8          2

-5 + q - -- + -- - -- + -- - -- + - + 3 q - q

           6    5    4    3    2   q
q q q q q
In[11]:=
Select[AllKnots[], (J === Jones[#][q] || (J /. q-> 1/q) === Jones[#][q])&]
Out[11]=  
{Knot[9, 31]}
In[12]:=
A2Invariant[Knot[9, 31]][q]
Out[12]=  
 -22    -20    2     -16    2     -12    -10   3     -4   3     2

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

              18           14                  6          2
             q            q                   q          q

  4    6
q - q
In[13]:=
Kauffman[Knot[9, 31]][a, z]
Out[13]=  
        2      4   z              3        5        2       2  2

-1 - 4 a - 2 a + - + 3 a z + 5 a z + 3 a z + 5 z + 15 a z +

                  a

                         3
     4  2      6  2   2 z         3      3  3      5  3      7  3
 13 a  z  + 3 a  z  - ---- - 3 a z  - 5 a  z  - 8 a  z  - 4 a  z  - 
                       a

                                                 5
    4       2  4       4  4      6  4    8  4   z         5
 7 z  - 21 a  z  - 23 a  z  - 8 a  z  + a  z  + -- - 3 a z  - 
                                                a

    3  5    5  5      7  5      6      2  6       4  6      6  6
 7 a  z  + a  z  + 4 a  z  + 3 z  + 8 a  z  + 11 a  z  + 6 a  z  + 

      7      3  7      5  7    2  8    4  8
3 a z + 7 a z + 4 a z + a z + a z
In[14]:=
{Vassiliev[2][Knot[9, 31]], Vassiliev[3][Knot[9, 31]]}
Out[14]=  
{0, -2}
In[15]:=
Kh[Knot[9, 31]][q, t]
Out[15]=  
4    5     1        3        1        3        3       5       3

-- + - + ------ + ------ + ------ + ------ + ----- + ----- + ----- +

3   q    15  6    13  5    11  5    11  4    9  4    9  3    7  3

q q t q t q t q t q t q t q t

   5       5      4      5     2 t              2      3  2    5  3
 ----- + ----- + ---- + ---- + --- + 3 q t + q t  + 2 q  t  + q  t
  7  2    5  2    5      3      q
q t q t q t q t