In[1]:=      | 
<< KnotTheory`  | 
Loading KnotTheory` (version of August 17, 2005, 14:44:34)...  | 
In[2]:=  | Crossings[Link[9, Alternating, 33]]  | 
Out[2]=    | 9  | 
In[3]:=  | PD[Link[9, Alternating, 33]]  | 
Out[3]=    | PD[X[8, 1, 9, 2], X[12, 3, 13, 4], X[18, 10, 7, 9], X[10, 14, 11, 13], 
 X[16, 5, 17, 6], X[14, 18, 15, 17], X[2, 7, 3, 8], X[4, 11, 5, 12], 
 
  X[6, 15, 1, 16]]  | 
In[4]:=  | GaussCode[Link[9, Alternating, 33]]  | 
Out[4]=    | GaussCode[{1, -7, 2, -8, 5, -9}, 
  {7, -1, 3, -4, 8, -2, 4, -6, 9, -5, 6, -3}] | 
In[5]:=  | BR[Link[9, Alternating, 33]]  | 
Out[5]=    | BR[Link[9, Alternating, 33]]  | 
In[6]:=  | alex = Alexander[Link[9, Alternating, 33]][t]  | 
Out[6]=    | ComplexInfinity  | 
In[7]:=  | Conway[Link[9, Alternating, 33]][z]  | 
Out[7]=    | ComplexInfinity  | 
In[8]:=  | Select[AllKnots[], (alex === Alexander[#][t])&]  | 
Out[8]=    | {} | 
In[9]:=  | {KnotDet[Link[9, Alternating, 33]], KnotSignature[Link[9, Alternating, 33]]} | 
Out[9]=    | {Infinity, -1} | 
In[10]:=  | J=Jones[Link[9, Alternating, 33]][q]  | 
Out[10]=    |   -(13/2)     2      6      7      9      10       8
-q        + ----- - ---- + ---- - ---- + ---- - ------- + 6 Sqrt[q] - 
 
            11/2    9/2    7/2    5/2    3/2   Sqrt[q]
           q       q      q      q      q
    3/2    5/2
  4 q    + q  | 
In[11]:=  | Select[AllKnots[], (J === Jones[#][q] || (J /. q-> 1/q) === Jones[#][q])&]  | 
Out[11]=    | {} | 
In[12]:=  | A2Invariant[Link[9, Alternating, 33]][q]  | 
Out[12]=    |      -22    2     2     4     2     -8   2    2     2      6    8
3 + q    + --- + --- + --- + --- - q   - -- - -- - q  + 2 q  - q
 
           20    16    14    10          6    2
 
           q     q     q     q           q    q  | 
In[13]:=  | Kauffman[Link[9, Alternating, 33]][a, z]  | 
Out[13]=    |        5    7
 6   a    a               3      5        7        2       2  2
 
-a  + -- + -- - 2 a z + 2 a  z + a  z - 3 a  z - 3 z  - 14 a  z  - 
 
     z    z
               3                                                  4
     4  2   4 z         3      3  3      5  3      7  3      4   z
 11 a  z  + ---- + 8 a z  - 2 a  z  - 3 a  z  + 3 a  z  + 8 z  - -- + 
             a                                                    2
                                                                 a
                                    5
     2  4       4  4      6  4   4 z       5      3  5      5  5
 24 a  z  + 18 a  z  + 3 a  z  - ---- - a z  + 9 a  z  + 5 a  z  - 
                                  a
  7  5      6       2  6      4  6      6  6        7      3  7
 a  z  - 6 z  - 11 a  z  - 7 a  z  - 2 a  z  - 4 a z  - 7 a  z  - 
    5  7    2  8    4  8
  3 a  z  - a  z  - a  z  | 
In[14]:=  | {Vassiliev[2][Link[9, Alternating, 33]], Vassiliev[3][Link[9, Alternating, 33]]} | 
Out[14]=    |       129
{0, -(---)}
 
      16  | 
In[15]:=  | Kh[Link[9, Alternating, 33]][q, t]  | 
Out[15]=    |     4      1        1        2        4        2       3       4
5 + -- + ------ + ------ + ------ + ------ + ----- + ----- + ----- + 
 
    2    14  6    12  6    12  5    10  4    8  4    8  3    6  3
   q    q   t    q   t    q   t    q   t    q  t    q  t    q  t
   6       3      4      6              2      2  2      4  2    6  3
 ----- + ----- + ---- + ---- + 3 t + 3 q  t + q  t  + 3 q  t  + q  t
  6  2    4  2    4      2
 
  q  t    q  t    q  t   q  t  |