In[1]:=      | 
<< KnotTheory`  | 
Loading KnotTheory` (version of August 29, 2005, 15:27:48)...  | 
In[2]:=  | PD[Knot[10, 69]]  | 
Out[2]=    | PD[X[1, 4, 2, 5], X[7, 12, 8, 13], X[3, 11, 4, 10], X[11, 3, 12, 2], 
 X[13, 17, 14, 16], X[5, 15, 6, 14], X[15, 7, 16, 6], 
 
  X[17, 20, 18, 1], X[9, 19, 10, 18], X[19, 9, 20, 8]]  | 
In[3]:=  | GaussCode[Knot[10, 69]]  | 
Out[3]=    | GaussCode[-1, 4, -3, 1, -6, 7, -2, 10, -9, 3, -4, 2, -5, 6, -7, 5, -8, 
  9, -10, 8]  | 
In[4]:=  | DTCode[Knot[10, 69]]  | 
Out[4]=    | DTCode[4, 10, 14, 12, 18, 2, 16, 6, 20, 8]  | 
In[5]:=  | br = BR[Knot[10, 69]]  | 
Out[5]=    | BR[5, {1, 1, 2, -1, -3, 2, 1, 4, -3, 2, -3, 4}] | 
In[6]:=  | {First[br], Crossings[br]} | 
Out[6]=    | {5, 12} | 
In[7]:=  | BraidIndex[Knot[10, 69]]  | 
Out[7]=    | 5  | 
In[8]:=  | Show[DrawMorseLink[Knot[10, 69]]]  | 
 |   | 
| Out[8]= | -Graphics- | 
In[9]:=  | (#[Knot[10, 69]]&) /@ {SymmetryType, UnknottingNumber, ThreeGenus, BridgeIndex, SuperBridgeIndex, NakanishiIndex} | 
Out[9]=    | {Reversible, 2, 3, 3, NotAvailable, 2} | 
In[10]:=  | alex = Alexander[Knot[10, 69]][t]  | 
Out[10]=    |        -3   7    21             2    3
-29 + t   - -- + -- + 21 t - 7 t  + t
 
            2   t
 
            t  | 
In[11]:=  | Conway[Knot[10, 69]][z]  | 
Out[11]=    |        2    4    6
1 + 2 z  - z  + z  | 
In[12]:=  | Select[AllKnots[], (alex === Alexander[#][t])&]  | 
Out[12]=    | {Knot[10, 69]} | 
In[13]:=  | {KnotDet[Knot[10, 69]], KnotSignature[Knot[10, 69]]} | 
Out[13]=    | {87, 2} | 
In[14]:=  | Jones[Knot[10, 69]][q]  | 
Out[14]=    |       -2   4              2       3       4       5      6      7    8
-7 - q   + - + 11 q - 14 q  + 15 q  - 13 q  + 11 q  - 7 q  + 3 q  - q
 
           q  | 
In[15]:=  | Select[AllKnots[], (J === Jones[#][q] || (J /. q-> 1/q) === Jones[#][q])&]  | 
Out[15]=    | {Knot[10, 69]} | 
In[16]:=  | A2Invariant[Knot[10, 69]][q]  | 
Out[16]=    |   -6   2     -2      2      4      6    8      12      14      16
-q   + -- - q   + 4 q  - 3 q  + 2 q  - q  + 2 q   - 2 q   + 3 q   - 
 
       4
      q
  18    20      22    24    26
  q   - q   + 2 q   - q   - q  | 
In[17]:=  | HOMFLYPT[Knot[10, 69]][a, z]  | 
Out[17]=    |                               2      2      2           4      4    6
 -8   2    2    2     2   3 z    5 z    5 z     4   3 z    3 z    z
 
-a   + -- - -- + -- - z  + ---- - ---- + ---- - z  - ---- + ---- + --
 
       6    4    2          6      4      2           4      2     2
 
       a    a    a          a      a      a           a      a     a  | 
In[18]:=  | Kauffman[Knot[10, 69]][a, z]  | 
Out[18]=    |                                                            2      2
 -8   2    2    2    z    2 z   6 z   4 z   z      2   3 z    7 z
 
-a   - -- - -- - -- + -- - --- - --- - --- - - + 3 z  + ---- + ---- + 
 
       6    4    2    9    7     5     3    a            8      6
      a    a    a    a    a     a     a                 a      a
     2       2      3      3       3       3      3
 12 z    11 z    2 z    5 z    23 z    22 z    5 z       3      4
 ----- + ----- - ---- + ---- + ----- + ----- + ---- - a z  - 7 z  - 
   4       2       9      7      5       3      a
  a       a       a      a      a       a
    4      4       4       4    5      5       5       5       5
 5 z    9 z    14 z    17 z    z    8 z    30 z    32 z    10 z
 ---- - ---- - ----- - ----- + -- - ---- - ----- - ----- - ----- + 
   8      6      4       2      9     7      5       3       a
  a      a      a       a      a     a      a       a
                  6      6      6      7       7       7      7
    5      6   3 z    4 z    3 z    5 z    13 z    14 z    6 z
 a z  + 4 z  + ---- - ---- + ---- + ---- + ----- + ----- + ---- + 
                 8      4      2      7      5       3      a
                a      a      a      a      a       a
    8      8      8    9    9
 4 z    8 z    4 z    z    z
 ---- + ---- + ---- + -- + --
   6      4      2     5    3
   a      a      a     a    a  | 
In[19]:=  | {Vassiliev[2][Knot[10, 69]], Vassiliev[3][Knot[10, 69]]} | 
Out[19]=    | {2, 4} | 
In[20]:=  | Kh[Knot[10, 69]][q, t]  | 
Out[20]=    |          3     1       3      1      4    3 q      3        5
7 q + 5 q  + ----- + ----- + ---- + --- + --- + 8 q  t + 6 q  t + 
 
             5  3    3  2      2   q t    t
            q  t    q  t    q t
    5  2      7  2      7  3      9  3      9  4      11  4
 7 q  t  + 8 q  t  + 6 q  t  + 7 q  t  + 5 q  t  + 6 q   t  + 
    11  5      13  5    13  6      15  6    17  7
  2 q   t  + 5 q   t  + q   t  + 2 q   t  + q   t  | 
In[21]:=  | ColouredJones[Knot[10, 69], 2][q]  | 
Out[21]=    |        -7   4    2    13   24   51               2       3       4
-61 + q   - -- + -- + -- - -- + -- - 19 q + 117 q  - 95 q  - 59 q  + 
 
            6    5    4    3   q
           q    q    q    q
      5        6        7        8       9        10        11
 180 q  - 104 q  - 101 q  + 202 q  - 83 q  - 117 q   + 172 q   - 
     12        13        14      15       16       17      18
 43 q   - 100 q   + 107 q   - 9 q   - 60 q   + 43 q   + 4 q   - 
     19      20      21      22    23
  21 q   + 9 q   + 2 q   - 3 q   + q  |