9 26: 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_26}}

<!-- 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=26|KnotilusURL=http://srankin.math.uwo.ca/cgi-bin/retrieve.cgi/-1,4,-3,1,-2,7,-6,9,-8,3,-4,2,-5,6,-9,8,-7,5/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%>-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=7.14286%>4</td ><td width=7.14286%>5</td ><td width=7.14286%>6</td ><td width=14.2857%>&chi;</td></tr>
<tr align=center><td>15</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>13</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>11</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>9</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td bgcolor=yellow>4</td><td bgcolor=yellow>2</td><td>&nbsp;</td><td>&nbsp;</td><td>-2</td></tr>
<tr align=center><td>7</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td bgcolor=yellow>4</td><td bgcolor=yellow>3</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>4</td><td bgcolor=yellow>4</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>0</td></tr>
<tr align=center><td>3</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td bgcolor=yellow>3</td><td bgcolor=yellow>4</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>-1</td></tr>
<tr align=center><td>1</td><td>&nbsp;</td><td>&nbsp;</td><td bgcolor=yellow>2</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>3</td></tr>
<tr align=center><td>-1</td><td>&nbsp;</td><td bgcolor=yellow>1</td><td bgcolor=yellow>2</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>
<tr align=center><td>-3</td><td bgcolor=yellow>&nbsp;</td><td bgcolor=yellow>2</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>2</td></tr>
<tr align=center><td>-5</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, 26]]</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, 26]]</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[5, 12, 6, 13], X[3, 11, 4, 10], X[11, 3, 12, 2],
X[13, 18, 14, 1], X[7, 15, 8, 14], X[17, 7, 18, 6], X[9, 17, 10, 16],
X[15, 9, 16, 8]]</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, 26]]</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, 4, -3, 1, -2, 7, -6, 9, -8, 3, -4, 2, -5, 6, -9, 8, -7, 5]</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, 26]]</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, 1, -2, 1, -2, 3, -2, 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, 26]][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 11 2 3
-13 + t - -- + -- + 11 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, 26]][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> 4 6
1 + 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, 26], Knot[11, NonAlternating, 25]}</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, 26]], KnotSignature[Knot[9, 26]]}</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>{47, 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, 26]][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> -2 3 2 3 4 5 6 7
-4 - q + - + 7 q - 8 q + 8 q - 7 q + 5 q - 3 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, 26]}</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, 26]][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> -6 -4 2 4 6 8 14 16 18 22
1 - q + q + 3 q - q + 2 q - q - 2 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[Knot[9, 26]][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 2 2 2
-6 3 3 z z z z 2 z 2 z 11 z 13 z
-a - -- - -- + -- + -- - -- - - + 5 z - -- + ---- + ----- + ----- -
4 2 7 5 3 a 8 6 4 2
a a a a a a a a a
3 3 3 3 4 4 4
4 z 2 z 7 z 3 z 3 4 z 5 z 14 z
---- - ---- + ---- + ---- - 2 a z - 8 z + -- - ---- - ----- -
7 5 3 a 8 6 4
a a a a a a
4 5 5 5 5 6 6 6
16 z 3 z z 11 z 6 z 5 6 4 z 6 z 5 z
----- + ---- - -- - ----- - ---- + a z + 3 z + ---- + ---- + ---- +
2 7 5 3 a 6 4 2
a a a a a a a
7 7 7 8 8
3 z 6 z 3 z z z
---- + ---- + ---- + -- + --
5 3 a 4 2
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][Knot[9, 26]], Vassiliev[3][Knot[9, 26]]}</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, -1}</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, 26]][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> 3 1 2 1 2 2 q 3 5
5 q + 3 q + ----- + ----- + ---- + --- + --- + 4 q t + 4 q t +
5 3 3 2 2 q t t
q t q t q t
5 2 7 2 7 3 9 3 9 4 11 4 11 5
4 q t + 4 q t + 3 q t + 4 q t + 2 q t + 3 q t + q t +
13 5 15 6
2 q t + q t</nowiki></pre></td></tr>
</table>

Revision as of 21:44, 27 August 2005


9 25.gif

9_25

9 27.gif

9_27

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

Visit 9 26's page at Knotilus!

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

9 26 Quick Notes


9 26 Further Notes and Views

Knot presentations

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

Three dimensional invariants

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

[edit Notes for 9 26'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 26's four dimensional invariants]

Polynomial invariants

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

Vassiliev invariants

V2 and V3: (0, -1)
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{ 0 }[/math] [math]\displaystyle{ -8 }[/math] [math]\displaystyle{ 0 }[/math] [math]\displaystyle{ -32 }[/math] [math]\displaystyle{ -8 }[/math] [math]\displaystyle{ 0 }[/math] [math]\displaystyle{ -\frac{176}{3} }[/math] [math]\displaystyle{ \frac{64}{3} }[/math] [math]\displaystyle{ -40 }[/math] [math]\displaystyle{ 0 }[/math] [math]\displaystyle{ 32 }[/math] [math]\displaystyle{ 0 }[/math] [math]\displaystyle{ 0 }[/math] [math]\displaystyle{ 0 }[/math] [math]\displaystyle{ \frac{248}{3} }[/math] [math]\displaystyle{ -\frac{88}{3} }[/math] [math]\displaystyle{ -\frac{112}{3} }[/math] [math]\displaystyle{ 0 }[/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 26. Nonzero entries off the critical diagonals (if any exist) are highlighted in red.

\ r
  \  
j \
-3-2-10123456χ
15         11
13        2 -2
11       31 2
9      42  -2
7     43   1
5    44    0
3   34     -1
1  25      3
-1 12       -1
-3 2        2
-51         -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, 26]]
Out[2]=  
9
In[3]:=
PD[Knot[9, 26]]
Out[3]=  
PD[X[1, 4, 2, 5], X[5, 12, 6, 13], X[3, 11, 4, 10], X[11, 3, 12, 2], 
 X[13, 18, 14, 1], X[7, 15, 8, 14], X[17, 7, 18, 6], X[9, 17, 10, 16], 

X[15, 9, 16, 8]]
In[4]:=
GaussCode[Knot[9, 26]]
Out[4]=  
GaussCode[-1, 4, -3, 1, -2, 7, -6, 9, -8, 3, -4, 2, -5, 6, -9, 8, -7, 5]
In[5]:=
BR[Knot[9, 26]]
Out[5]=  
BR[4, {1, 1, 1, -2, 1, -2, 3, -2, 3}]
In[6]:=
alex = Alexander[Knot[9, 26]][t]
Out[6]=  
       -3   5    11             2    3

-13 + t - -- + -- + 11 t - 5 t + t

            2   t
t
In[7]:=
Conway[Knot[9, 26]][z]
Out[7]=  
     4    6
1 + z  + z
In[8]:=
Select[AllKnots[], (alex === Alexander[#][t])&]
Out[8]=  
{Knot[9, 26], Knot[11, NonAlternating, 25]}
In[9]:=
{KnotDet[Knot[9, 26]], KnotSignature[Knot[9, 26]]}
Out[9]=  
{47, 2}
In[10]:=
J=Jones[Knot[9, 26]][q]
Out[10]=  
      -2   3            2      3      4      5      6    7

-4 - q + - + 7 q - 8 q + 8 q - 7 q + 5 q - 3 q + q

q
In[11]:=
Select[AllKnots[], (J === Jones[#][q] || (J /. q-> 1/q) === Jones[#][q])&]
Out[11]=  
{Knot[9, 26]}
In[12]:=
A2Invariant[Knot[9, 26]][q]
Out[12]=  
     -6    -4      2    4      6    8      14    16    18    22
1 - q   + q   + 3 q  - q  + 2 q  - q  - 2 q   + q   - q   + q
In[13]:=
Kauffman[Knot[9, 26]][a, z]
Out[13]=  
                                            2      2       2       2
 -6   3    3    z    z    z    z      2   z    2 z    11 z    13 z

-a - -- - -- + -- + -- - -- - - + 5 z - -- + ---- + ----- + ----- -

       4    2    7    5    3   a           8     6      4       2
      a    a    a    a    a               a     a      a       a

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

     4      5    5       5      5                    6      6      6
 16 z    3 z    z    11 z    6 z       5      6   4 z    6 z    5 z
 ----- + ---- - -- - ----- - ---- + a z  + 3 z  + ---- + ---- + ---- + 
   2       7     5     3      a                     6      4      2
  a       a     a     a                            a      a      a

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

5 q + 3 q + ----- + ----- + ---- + --- + --- + 4 q t + 4 q t +

             5  3    3  2      2   q t    t
            q  t    q  t    q t

    5  2      7  2      7  3      9  3      9  4      11  4    11  5
 4 q  t  + 4 q  t  + 3 q  t  + 4 q  t  + 2 q  t  + 3 q   t  + q   t  + 

    13  5    15  6
2 q t + q t