Knot presentations
Planar diagram presentation

X_{1425} X_{3849} X_{14,9,15,10} X_{5,13,6,12} X_{13,7,14,6} X_{18,11,19,12} X_{20,15,1,16} X_{16,19,17,20} X_{10,17,11,18} X_{7283}

Gauss code

1, 10, 2, 1, 4, 5, 10, 2, 3, 9, 6, 4, 5, 3, 7, 8, 9, 6, 8, 7

DowkerThistlethwaite code

4 8 12 2 14 18 6 20 10 16

Conway Notation

[23,21,2]

Minimum Braid Representative

A Morse Link Presentation

An Arc Presentation

Length is 11, width is 4,
Braid index is 4


[{9, 1}, {11, 7}, {6, 8}, {7, 9}, {4, 10}, {1, 6}, {5, 3}, {8, 4}, {2, 5}, {3, 11}, {10, 2}]

[edit Notes on presentations of 10 133]
Computer Talk
The above data is available with the
Mathematica package
KnotTheory`
. Your input (in
red) is realistic; all else should have the same content as in a real mathematica session, but with different formatting.
(The path below may be different on your system, and possibly also the KnotTheory` date)
In[1]:=

AppendTo[$Path, "C:/drorbn/projects/KAtlas/"];
<< KnotTheory`

In[3]:=

K = Knot["10 133"];


KnotTheory::loading: Loading precomputed data in PD4Knots`.

Out[4]=

X_{1425} X_{3849} X_{14,9,15,10} X_{5,13,6,12} X_{13,7,14,6} X_{18,11,19,12} X_{20,15,1,16} X_{16,19,17,20} X_{10,17,11,18} X_{7283}

Out[5]=

1, 10, 2, 1, 4, 5, 10, 2, 3, 9, 6, 4, 5, 3, 7, 8, 9, 6, 8, 7

Out[6]=

4 8 12 2 14 18 6 20 10 16

(The path below may be different on your system)
In[7]:=

AppendTo[$Path, "C:/bin/LinKnot/"];

In[8]:=

ConwayNotation[K]


KnotTheory::credits: The minimum braids representing the knots with up to 10 crossings were provided by Thomas Gittings. See arXiv:math.GT/0401051.

Out[9]=


In[10]:=

{First[br], Crossings[br], BraidIndex[K]}


KnotTheory::loading: Loading precomputed data in IndianaData`.

In[11]:=

Show[BraidPlot[br]]

In[12]:=

Show[DrawMorseLink[K]]


KnotTheory::credits: "MorseLink was added to KnotTheory` by Siddarth Sankaran at the University of Toronto in the summer of 2005."


KnotTheory::credits: "DrawMorseLink was written by Siddarth Sankaran at the University of Toronto in the summer of 2005."

In[13]:=

ap = ArcPresentation[K]

Out[13]=

ArcPresentation[{9, 1}, {11, 7}, {6, 8}, {7, 9}, {4, 10}, {1, 6}, {5, 3}, {8, 4}, {2, 5}, {3, 11}, {10, 2}]

Four dimensional invariants
Polynomial invariants
Further Quantum Invariants
Further quantum knot invariants for 10_133.
A1 Invariants.
A2 Invariants.
Weight

Invariant

1,0


1,1


2,0


A3 Invariants.
Weight

Invariant

0,1,0


1,0,0


A4 Invariants.
Weight

Invariant

0,1,0,0


1,0,0,0


B2 Invariants.
Weight

Invariant

0,1


1,0


D4 Invariants.
Weight

Invariant

1,0,0,0


G2 Invariants.
Weight

Invariant

1,0


.
</div></div>
Computer Talk
The above data is available with the
Mathematica package
KnotTheory`
, as shown in the (simulated) Mathematica session below. Your input (in
red) is realistic; all else should have the same content as in a real mathematica session, but with different formatting. This Mathematica session is also available (albeit only for the knot
5_2) as the notebook
PolynomialInvariantsSession.nb.
(The path below may be different on your system, and possibly also the KnotTheory` date)
In[1]:=

AppendTo[$Path, "C:/drorbn/projects/KAtlas/"];
<< KnotTheory`

In[3]:=

K = Knot["10 133"];


KnotTheory::loading: Loading precomputed data in PD4Knots`.

Out[4]=


Out[5]=


In[6]:=

Alexander[K, 2][t]


KnotTheory::credits: The program Alexander[K, r] to compute Alexander ideals was written by Jana Archibald at the University of Toronto in the summer of 2005.

Out[6]=


In[7]:=

{KnotDet[K], KnotSignature[K]}


KnotTheory::loading: Loading precomputed data in Jones4Knots`.

Out[8]=


In[9]:=

HOMFLYPT[K][a, z]


KnotTheory::credits: The HOMFLYPT program was written by Scott Morrison.

Out[9]=


In[10]:=

Kauffman[K][a, z]


KnotTheory::loading: Loading precomputed data in Kauffman4Knots`.

Out[10]=


"Similar" Knots (within the Atlas)
Same Alexander/Conway Polynomial:
{7_6,}
Same Jones Polynomial (up to mirroring, ):
{K11n27,}
Computer Talk
The above data is available with the
Mathematica package
KnotTheory`
. Your input (in
red) is realistic; all else should have the same content as in a real mathematica session, but with different formatting.
(The path below may be different on your system, and possibly also the KnotTheory` date)
In[1]:=

AppendTo[$Path, "C:/drorbn/projects/KAtlas/"];
<< KnotTheory`

In[3]:=

K = Knot["10 133"];

In[4]:=

{A = Alexander[K][t], J = Jones[K][q]}


KnotTheory::loading: Loading precomputed data in PD4Knots`.


KnotTheory::loading: Loading precomputed data in Jones4Knots`.

Out[4]=

{ , }

In[5]:=

DeleteCases[Select[AllKnots[], (A === Alexander[#][t]) &], K]


KnotTheory::loading: Loading precomputed data in DTCode4KnotsTo11`.


KnotTheory::credits: The GaussCode to PD conversion was written by Siddarth Sankaran at the University of Toronto in the summer of 2005.

In[6]:=

DeleteCases[
Select[
AllKnots[],
(J === Jones[#][q]  (J /. q > 1/q) === Jones[#][q]) &
],
K
]


KnotTheory::loading: Loading precomputed data in Jones4Knots11`.

V_{2,1} through V_{6,9}:

V_{2,1}

V_{3,1}

V_{4,1}

V_{4,2}

V_{4,3}

V_{5,1}

V_{5,2}

V_{5,3}

V_{5,4}

V_{6,1}

V_{6,2}

V_{6,3}

V_{6,4}

V_{6,5}

V_{6,6}

V_{6,7}

V_{6,8}

V_{6,9}




















V_{2,1} through V_{6,9} were provided by Petr DuninBarkowski <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 V_{2} and V_{3}.
The coefficients of the monomials are shown, along with their alternating sums (fixed , alternation over ). The squares with yellow highlighting are those on the "critical diagonals", where or , where 2 is the signature of 10 133. Nonzero entries off the critical diagonals (if any exist) are highlighted in red.



8  7  6  5  4  3  2  1  0  χ 
1          1  1 
3         1  1  0 
5        2    2 
7       1  1    0 
9      2  2     0 
11     1  1      0 
13    1  2       1 
15   1  1        0 
17   1         1 
19  1          1 

The Coloured Jones Polynomials