| In[1]:=     | << KnotTheory` | 
| Loading KnotTheory` (version of August 29, 2005, 15:27:48)... | 
| In[2]:= | PD[Knot[9, 33]] | 
| Out[2]=   | PD[X[4, 2, 5, 1], X[12, 8, 13, 7], X[8, 3, 9, 4], X[2, 9, 3, 10], 
 X[18, 13, 1, 14], X[14, 5, 15, 6], X[6, 17, 7, 18], 
X[16, 12, 17, 11], X[10, 16, 11, 15]] | 
| In[3]:= | GaussCode[Knot[9, 33]] | 
| Out[3]=   | GaussCode[1, -4, 3, -1, 6, -7, 2, -3, 4, -9, 8, -2, 5, -6, 9, -8, 7, -5] | 
| In[4]:= | DTCode[Knot[9, 33]] | 
| Out[4]=   | DTCode[4, 8, 14, 12, 2, 16, 18, 10, 6] | 
| In[5]:= | br = BR[Knot[9, 33]] | 
| Out[5]=   | BR[4, {-1, 2, -1, 2, 2, -1, -3, 2, -3}] | 
| In[6]:= | {First[br], Crossings[br]} | 
| Out[6]=   | {4, 9} | 
| In[7]:= | BraidIndex[Knot[9, 33]] | 
| Out[7]=   | 4 | 
| In[8]:= | Show[DrawMorseLink[Knot[9, 33]]] | 
|  |  | 
| Out[8]= | -Graphics- | 
| In[9]:= | (#[Knot[9, 33]]&) /@ {SymmetryType, UnknottingNumber, ThreeGenus, BridgeIndex, SuperBridgeIndex, NakanishiIndex} | 
| Out[9]=   | {Chiral, 1, 3, 3, {4, 6}, 1} | 
| In[10]:= | alex = Alexander[Knot[9, 33]][t] | 
| Out[10]=   |       -3   6    14             2    3
19 - t   + -- - -- - 14 t + 6 t  - t
            2   t
t | 
| In[11]:= | Conway[Knot[9, 33]][z] | 
| Out[11]=   |      2    6
1 + z  - z | 
| In[12]:= | Select[AllKnots[], (alex === Alexander[#][t])&] | 
| Out[12]=   | {Knot[9, 33], Knot[11, NonAlternating, 55]} | 
| In[13]:= | {KnotDet[Knot[9, 33]], KnotSignature[Knot[9, 33]]} | 
| Out[13]=   | {61, 0} | 
| In[14]:= | Jones[Knot[9, 33]][q] | 
| Out[14]=   |       -5   3    6    9    10            2      3    4
11 - q   + -- - -- + -- - -- - 9 q + 7 q  - 4 q  + q
            4    3    2   q
q    q    q | 
| In[15]:= | Select[AllKnots[], (J === Jones[#][q] || (J /. q-> 1/q) === Jones[#][q])&] | 
| Out[15]=   | {Knot[9, 33]} | 
| In[16]:= | A2Invariant[Knot[9, 33]][q] | 
| Out[16]=   |       -16    -12    2    2    3       2      4    8      10    12
-1 - q    + q    - --- + -- + -- + 3 q  - 2 q  + q  - 2 q   + q
                    10    8    2
q     q    q | 
| In[17]:= | HOMFLYPT[Knot[9, 33]][a, z] | 
| Out[17]=   |                     2                             4
  2    4      2   z       2  2    4  2      4   z       2  4    6
 2 a  - a  - 3 z  + -- + 4 a  z  - a  z  - 3 z  + -- + 2 a  z  - z
                    2                             2
a                             a | 
| In[18]:= | Kauffman[Knot[9, 33]][a, z] | 
| Out[18]=   |                                      2                           3
   2    4    3      5        2   3 z        2  2      4  2   3 z
 -2 a  - a  + a  z + a  z + 9 z  + ---- + 10 a  z  + 4 a  z  - ---- - 
                                    2                           3
                                  a                           a
  3                                       4      4
 z         3    3  3      5  3       4   z    9 z        2  4
 -- + 5 a z  + a  z  - 2 a  z  - 20 z  + -- - ---- - 16 a  z  - 
 a                                        4     2
                                         a     a
              5      5                                         6
    4  4   4 z    5 z          5      3  5    5  5      6   7 z
 6 a  z  + ---- - ---- - 16 a z  - 6 a  z  + a  z  + 9 z  + ---- + 
             3     a                                          2
            a                                                a
                        7
    2  6      4  6   6 z          7      3  7      8      2  8
 5 a  z  + 3 a  z  + ---- + 10 a z  + 4 a  z  + 2 z  + 2 a  z
a | 
| In[19]:= | {Vassiliev[2][Knot[9, 33]], Vassiliev[3][Knot[9, 33]]} | 
| Out[19]=   | {1, -1} | 
| In[20]:= | Kh[Knot[9, 33]][q, t] | 
| Out[20]=   | 6           1        2       1       4       2       5       4
- + 6 q + ------ + ----- + ----- + ----- + ----- + ----- + ----- + 
q          11  5    9  4    7  4    7  3    5  3    5  2    3  2
          q   t    q  t    q  t    q  t    q  t    q  t    q  t
  5      5               3        3  2      5  2    5  3      7  3
 ---- + --- + 4 q t + 5 q  t + 3 q  t  + 4 q  t  + q  t  + 3 q  t  + 
  3     q t
 q  t
  9  4
q  t | 
| In[21]:= | ColouredJones[Knot[9, 33], 2][q] | 
| Out[21]=   |        -15    3     -13   10    17     4    40   37   27   83   46
115 + q    - --- + q    + --- - --- - --- + -- - -- - -- + -- - -- - 
              14           12    11    10    9    8    7    6    5
            q            q     q     q     q    q    q    q    q
 60   113   39   83              2       3      4       5       6
 -- + --- - -- - -- - 22 q - 83 q  + 86 q  - 3 q  - 59 q  + 43 q  + 
  4    3     2   q
 q    q     q
    7       8       9      10      11    12
6 q  - 25 q  + 11 q  + 3 q   - 4 q   + q |