9 38: 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_38}}

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

Revision as of 21:52, 27 August 2005


9 37.gif

9_37

9 39.gif

9_39

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

Visit 9 38's page at Knotilus!

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

9 38 Quick Notes


9 38 Further Notes and Views

Knot presentations

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

Three dimensional invariants

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

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

Four dimensional invariants

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

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

Polynomial invariants

Alexander polynomial [math]\displaystyle{ 5 t^2-14 t+19-14 t^{-1} +5 t^{-2} }[/math]
Conway polynomial [math]\displaystyle{ 5 z^4+6 z^2+1 }[/math]
2nd Alexander ideal (db, data sources) [math]\displaystyle{ \{1\} }[/math]
Determinant and Signature { 57, -4 }
Jones polynomial [math]\displaystyle{ q^{-2} -3 q^{-3} +7 q^{-4} -8 q^{-5} +10 q^{-6} -10 q^{-7} +8 q^{-8} -6 q^{-9} +3 q^{-10} - q^{-11} }[/math]
HOMFLY-PT polynomial (db, data sources) [math]\displaystyle{ -z^2 a^{10}+z^4 a^8-z^2 a^8-3 a^8+3 z^4 a^6+7 z^2 a^6+4 a^6+z^4 a^4+z^2 a^4 }[/math]
Kauffman polynomial (db, data sources) [math]\displaystyle{ z^5 a^{13}-2 z^3 a^{13}+z a^{13}+3 z^6 a^{12}-6 z^4 a^{12}+3 z^2 a^{12}+4 z^7 a^{11}-7 z^5 a^{11}+3 z^3 a^{11}-z a^{11}+2 z^8 a^{10}+3 z^6 a^{10}-10 z^4 a^{10}+3 z^2 a^{10}+9 z^7 a^9-15 z^5 a^9+5 z^3 a^9+z a^9+2 z^8 a^8+6 z^6 a^8-15 z^4 a^8+10 z^2 a^8-3 a^8+5 z^7 a^7-4 z^5 a^7-2 z^3 a^7+3 z a^7+6 z^6 a^6-10 z^4 a^6+9 z^2 a^6-4 a^6+3 z^5 a^5-2 z^3 a^5+z^4 a^4-z^2 a^4 }[/math]
The A2 invariant [math]\displaystyle{ -q^{34}+q^{32}+q^{30}-3 q^{28}-2 q^{24}-q^{22}+2 q^{20}+4 q^{16}+q^{12}+2 q^{10}-2 q^8+q^6 }[/math]
The G2 invariant [math]\displaystyle{ q^{176}-2 q^{174}+5 q^{172}-8 q^{170}+8 q^{168}-6 q^{166}-2 q^{164}+18 q^{162}-33 q^{160}+47 q^{158}-46 q^{156}+21 q^{154}+16 q^{152}-65 q^{150}+101 q^{148}-104 q^{146}+70 q^{144}-6 q^{142}-63 q^{140}+112 q^{138}-116 q^{136}+77 q^{134}-8 q^{132}-60 q^{130}+87 q^{128}-70 q^{126}+15 q^{124}+52 q^{122}-95 q^{120}+98 q^{118}-56 q^{116}-20 q^{114}+93 q^{112}-152 q^{110}+153 q^{108}-105 q^{106}+19 q^{104}+69 q^{102}-137 q^{100}+159 q^{98}-125 q^{96}+52 q^{94}+26 q^{92}-90 q^{90}+105 q^{88}-66 q^{86}+q^{84}+64 q^{82}-84 q^{80}+67 q^{78}-9 q^{76}-58 q^{74}+106 q^{72}-112 q^{70}+82 q^{68}-20 q^{66}-43 q^{64}+89 q^{62}-94 q^{60}+77 q^{58}-36 q^{56}+25 q^{52}-40 q^{50}+37 q^{48}-25 q^{46}+13 q^{44}-5 q^{40}+6 q^{38}-6 q^{36}+4 q^{34}-2 q^{32}+q^{30} }[/math]

Vassiliev invariants

V2 and V3: (6, -14)
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{ 24 }[/math] [math]\displaystyle{ -112 }[/math] [math]\displaystyle{ 288 }[/math] [math]\displaystyle{ 684 }[/math] [math]\displaystyle{ 100 }[/math] [math]\displaystyle{ -2688 }[/math] [math]\displaystyle{ -\frac{13888}{3} }[/math] [math]\displaystyle{ -\frac{2368}{3} }[/math] [math]\displaystyle{ -592 }[/math] [math]\displaystyle{ 2304 }[/math] [math]\displaystyle{ 6272 }[/math] [math]\displaystyle{ 16416 }[/math] [math]\displaystyle{ 2400 }[/math] [math]\displaystyle{ \frac{160231}{5} }[/math] [math]\displaystyle{ \frac{15308}{15} }[/math] [math]\displaystyle{ \frac{59748}{5} }[/math] [math]\displaystyle{ 259 }[/math] [math]\displaystyle{ \frac{7671}{5} }[/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]-4 is the signature of 9 38. Nonzero entries off the critical diagonals (if any exist) are highlighted in red.

\ r
  \  
j \
-9-8-7-6-5-4-3-2-10χ
-3         11
-5        31-2
-7       4  4
-9      43  -1
-11     64   2
-13    44    0
-15   46     -2
-17  24      2
-19 14       -3
-21 2        2
-231         -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, 38]]
Out[2]=  
9
In[3]:=
PD[Knot[9, 38]]
Out[3]=  
PD[X[1, 6, 2, 7], X[5, 14, 6, 15], X[7, 18, 8, 1], X[15, 8, 16, 9], 
 X[3, 10, 4, 11], X[9, 4, 10, 5], X[17, 12, 18, 13], 

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

19 + -- - -- - 14 t + 5 t

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

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

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

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

                      28    24           20    16           10    8
                     q     q            q     q            q     q

  -6
q
In[13]:=
Kauffman[Knot[9, 38]][a, z]
Out[13]=  
    6      8      7      9      11      13      4  2      6  2

-4 a - 3 a + 3 a z + a z - a z + a z - a z + 9 a z +

     8  2      10  2      12  2      5  3      7  3      9  3
 10 a  z  + 3 a   z  + 3 a   z  - 2 a  z  - 2 a  z  + 5 a  z  + 

    11  3      13  3    4  4       6  4       8  4       10  4
 3 a   z  - 2 a   z  + a  z  - 10 a  z  - 15 a  z  - 10 a   z  - 

    12  4      5  5      7  5       9  5      11  5    13  5
 6 a   z  + 3 a  z  - 4 a  z  - 15 a  z  - 7 a   z  + a   z  + 

    6  6      8  6      10  6      12  6      7  7      9  7
 6 a  z  + 6 a  z  + 3 a   z  + 3 a   z  + 5 a  z  + 9 a  z  + 

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

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

            23  9    21  8    19  8    19  7    17  7    17  6
           q   t    q   t    q   t    q   t    q   t    q   t

   4        6        4        4        6        4        4       3
 ------ + ------ + ------ + ------ + ------ + ------ + ----- + ----- + 
  15  6    15  5    13  5    13  4    11  4    11  3    9  3    9  2
 q   t    q   t    q   t    q   t    q   t    q   t    q  t    q  t

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