In[1]:=      | 
<< KnotTheory`  | 
Loading KnotTheory` (version of August 29, 2005, 15:27:48)...  | 
In[2]:=  | PD[Knot[9, 24]]  | 
Out[2]=    | PD[X[1, 4, 2, 5], X[3, 8, 4, 9], X[5, 14, 6, 15], X[9, 17, 10, 16], 
 X[11, 1, 12, 18], X[17, 11, 18, 10], X[15, 13, 16, 12], 
 
  X[13, 6, 14, 7], X[7, 2, 8, 3]]  | 
In[3]:=  | GaussCode[Knot[9, 24]]  | 
Out[3]=    | GaussCode[-1, 9, -2, 1, -3, 8, -9, 2, -4, 6, -5, 7, -8, 3, -7, 4, -6, 5]  | 
In[4]:=  | DTCode[Knot[9, 24]]  | 
Out[4]=    | DTCode[4, 8, 14, 2, 16, 18, 6, 12, 10]  | 
In[5]:=  | br = BR[Knot[9, 24]]  | 
Out[5]=    | BR[4, {-1, -1, 2, -1, -3, 2, 2, 2, -3}] | 
In[6]:=  | {First[br], Crossings[br]} | 
Out[6]=    | {4, 9} | 
In[7]:=  | BraidIndex[Knot[9, 24]]  | 
Out[7]=    | 4  | 
In[8]:=  | Show[DrawMorseLink[Knot[9, 24]]]  | 
 |   | 
| Out[8]= | -Graphics- | 
In[9]:=  | (#[Knot[9, 24]]&) /@ {SymmetryType, UnknottingNumber, ThreeGenus, BridgeIndex, SuperBridgeIndex, NakanishiIndex} | 
Out[9]=    | {Reversible, 1, 3, 3, {4, 6}, 1} | 
In[10]:=  | alex = Alexander[Knot[9, 24]][t]  | 
Out[10]=    |       -3   5    10             2    3
13 - t   + -- - -- - 10 t + 5 t  - t
 
           2   t
 
           t  | 
In[11]:=  | Conway[Knot[9, 24]][z]  | 
Out[11]=    |      2    4    6
1 + z  - z  - z  | 
In[12]:=  | Select[AllKnots[], (alex === Alexander[#][t])&]  | 
Out[12]=    | {Knot[8, 18], Knot[9, 24], Knot[11, NonAlternating, 85], 
  Knot[11, NonAlternating, 164]} | 
In[13]:=  | {KnotDet[Knot[9, 24]], KnotSignature[Knot[9, 24]]} | 
Out[13]=    | {45, 0} | 
In[14]:=  | Jones[Knot[9, 24]][q]  | 
Out[14]=    |      -5   2    4    7    7            2      3    4
8 - q   + -- - -- + -- - - - 7 q + 5 q  - 3 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, 24]} | 
In[16]:=  | A2Invariant[Knot[9, 24]][q]  | 
Out[16]=    |       -16    -14    -10   3    2     -4   2     2      4    8    10
-2 - q    - q    - q    + -- + -- + q   + -- + q  - 2 q  + q  - q   + 
 
                          8    6          2
                         q    q          q
  12
  q  | 
In[17]:=  | HOMFLYPT[Knot[9, 24]][a, z]  | 
Out[17]=    |                                    2                             4
     -2      2      4      2   2 z       2  2    4  2      4   z
 
-3 + a   + 5 a  - 2 a  - 6 z  + ---- + 6 a  z  - a  z  - 4 z  + -- + 
 
                                 2                              2
                                a                              a
    2  4    6
  2 a  z  - z  | 
In[18]:=  | Kauffman[Knot[9, 24]][a, z]  | 
Out[18]=    |       -2      2      4   z    2 z              3        5        2
-3 - a   - 5 a  - 2 a  + -- + --- + 2 a z + 3 a  z + 2 a  z + 9 z  - 
 
                         3    a
                        a
  2      2                           3      3
 z    2 z        2  2      4  2   4 z    3 z       3      3  3
 -- + ---- + 10 a  z  + 4 a  z  - ---- - ---- + a z  - 3 a  z  - 
  4     2                           3     a
 a     a                           a
                    4      4                           5    5
    5  3       4   z    5 z        2  4      4  4   3 z    z
 3 a  z  - 11 z  + -- - ---- - 10 a  z  - 5 a  z  + ---- - -- - 
                    4     2                           3    a
                   a     a                           a
                                      6                          7
      5      3  5    5  5      6   4 z       2  6      4  6   3 z
 7 a z  - 2 a  z  + a  z  + 5 z  + ---- + 3 a  z  + 2 a  z  + ---- + 
                                     2                         a
                                    a
      7      3  7    8    2  8
  5 a z  + 2 a  z  + z  + a  z  | 
In[19]:=  | {Vassiliev[2][Knot[9, 24]], Vassiliev[3][Knot[9, 24]]} | 
Out[19]=    | {1, -2} | 
In[20]:=  | Kh[Knot[9, 24]][q, t]  | 
Out[20]=    | 5           1        1       1       3       1       4       3
- + 4 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
  3      4               3        3  2      5  2    5  3      7  3
 ---- + --- + 3 q t + 4 q  t + 2 q  t  + 3 q  t  + q  t  + 2 q  t  + 
  3     q t
 q  t
  9  4
 
  q  t  | 
In[21]:=  | ColouredJones[Knot[9, 24], 2][q]  | 
Out[21]=    |       -15    2     6     9     3    21   19   14   44   25   31   61
64 + q    - --- + --- - --- - --- + -- - -- - -- + -- - -- - -- + -- - 
 
            14    12    11    10    9    8    7    6    5    4    3
           q     q     q     q     q    q    q    q    q    q    q
 23   43              2       3      4       5       6    7       8
 -- - -- - 16 q - 43 q  + 49 q  - 6 q  - 31 q  + 26 q  + q  - 14 q  + 
  2   q
 q
    9    10      11    12
  8 q  + q   - 3 q   + q  |