9 18: 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_18}}

<!-- 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=18|KnotilusURL=http://srankin.math.uwo.ca/cgi-bin/retrieve.cgi/-1,9,-2,1,-3,5,-6,7,-4,8,-9,2,-8,3,-7,6,-5,4/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>2</td><td bgcolor=yellow>1</td><td>-1</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>3</td><td bgcolor=yellow>&nbsp;</td><td>&nbsp;</td><td>3</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>3</td><td bgcolor=yellow>2</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>4</td><td bgcolor=yellow>3</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>1</td></tr>
<tr align=center><td>-13</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td bgcolor=yellow>3</td><td bgcolor=yellow>3</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>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>-17</td><td>&nbsp;</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>2</td></tr>
<tr align=center><td>-19</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>-21</td><td bgcolor=yellow>&nbsp;</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>1</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, 18]]</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, 18]]</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, 12, 4, 13], X[5, 14, 6, 15], X[9, 18, 10, 1],
X[17, 6, 18, 7], X[7, 16, 8, 17], X[15, 8, 16, 9], X[13, 10, 14, 11],
X[11, 2, 12, 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, 18]]</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, -3, 5, -6, 7, -4, 8, -9, 2, -8, 3, -7, 6, -5, 4]</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, 18]]</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, -2, -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, 18]][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> 4 10 2
13 + -- - -- - 10 t + 4 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, 18]][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 + 4 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, 18], Knot[11, Alternating, 246]}</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, 18]], KnotSignature[Knot[9, 18]]}</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>{41, -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, 18]][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 2 4 6 7 7 6 5 2 -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, 18]}</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, 18]][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 2 -26 -20 -18 2 -12 2 -8 -6
-q - --- + q + q - q + --- + q + --- - q + q
28 16 10
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, 18]][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> 4 6 10 7 13 4 2 6 2 10 2
a - a + a + 2 a z + 2 a z - 2 a z + 3 a z - 2 a z +
12 2 5 3 7 3 9 3 13 3 4 4 6 4
3 a z - 2 a z - 4 a z + a z - 3 a z + a z - 4 a z -
8 4 10 4 12 4 5 5 7 5 9 5
2 a z - 2 a z - 5 a z + 2 a z + a z - 5 a z -
11 5 13 5 6 6 8 6 10 6 12 6 7 7
3 a z + a z + 3 a z + 2 a z + a z + 2 a z + 2 a z +
9 7 11 7 8 8 10 8
4 a z + 2 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, 18]], Vassiliev[3][Knot[9, 18]]}</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, -15}</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, 18]][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 1 1 3 1 3
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
3 4 3 3 4 3 3 2
------ + ------ + ------ + ------ + ------ + ------ + ----- + ----- +
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
3 2
----- + ----
7 2 5
q t q t</nowiki></pre></td></tr>
</table>

Revision as of 21:44, 27 August 2005


9 17.gif

9_17

9 19.gif

9_19

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

Visit 9 18's page at Knotilus!

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

9 18 Quick Notes


9 18 Further Notes and Views

Knot presentations

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

Three dimensional invariants

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

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

Polynomial invariants

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

Vassiliev invariants

V2 and V3: (6, -15)
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{ -120 }[/math] [math]\displaystyle{ 288 }[/math] [math]\displaystyle{ 748 }[/math] [math]\displaystyle{ 108 }[/math] [math]\displaystyle{ -2880 }[/math] [math]\displaystyle{ -5200 }[/math] [math]\displaystyle{ -896 }[/math] [math]\displaystyle{ -664 }[/math] [math]\displaystyle{ 2304 }[/math] [math]\displaystyle{ 7200 }[/math] [math]\displaystyle{ 17952 }[/math] [math]\displaystyle{ 2592 }[/math] [math]\displaystyle{ \frac{184471}{5} }[/math] [math]\displaystyle{ \frac{17828}{15} }[/math] [math]\displaystyle{ \frac{207524}{15} }[/math] [math]\displaystyle{ \frac{889}{3} }[/math] [math]\displaystyle{ \frac{8791}{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 18. 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        21-1
-7       3  3
-9      32  -1
-11     43   1
-13    33    0
-15   34     -1
-17  13      2
-19 13       -2
-21 1        1
-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, 18]]
Out[2]=  
9
In[3]:=
PD[Knot[9, 18]]
Out[3]=  
PD[X[1, 4, 2, 5], X[3, 12, 4, 13], X[5, 14, 6, 15], X[9, 18, 10, 1], 
 X[17, 6, 18, 7], X[7, 16, 8, 17], X[15, 8, 16, 9], X[13, 10, 14, 11], 

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

13 + -- - -- - 10 t + 4 t

     2   t
t
In[7]:=
Conway[Knot[9, 18]][z]
Out[7]=  
       2      4
1 + 6 z  + 4 z
In[8]:=
Select[AllKnots[], (alex === Alexander[#][t])&]
Out[8]=  
{Knot[9, 18], Knot[11, Alternating, 246]}
In[9]:=
{KnotDet[Knot[9, 18]], KnotSignature[Knot[9, 18]]}
Out[9]=  
{41, -4}
In[10]:=
J=Jones[Knot[9, 18]][q]
Out[10]=  
  -11    2    4    6    7    7    6    5    2     -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, 18]}
In[12]:=
A2Invariant[Knot[9, 18]][q]
Out[12]=  
  -34    2     -26    -20    -18    2     -12    2     -8    -6

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

        28                         16           10
q q q
In[13]:=
Kauffman[Knot[9, 18]][a, z]
Out[13]=  
 4    6    10      7        13        4  2      6  2      10  2

a - a + a + 2 a z + 2 a z - 2 a z + 3 a z - 2 a z +

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

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

    11  5    13  5      6  6      8  6    10  6      12  6      7  7
 3 a   z  + a   z  + 3 a  z  + 2 a  z  + a   z  + 2 a   z  + 2 a  z  + 

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

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

   3        4        3        3        4        3        3       2
 ------ + ------ + ------ + ------ + ------ + ------ + ----- + ----- + 
  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

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