Knot presentations
Planar diagram presentation

X_{4251} X_{10,6,11,5} X_{8394} X_{2,9,3,10} X_{16,12,17,11} X_{7,15,8,14} X_{15,7,16,6} X_{20,18,1,17} X_{18,13,19,14} X_{12,19,13,20}

Gauss code

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

DowkerThistlethwaite code

4 8 10 14 2 16 18 6 20 12

Conway Notation

[211,211,2]

Minimum Braid Representative

A Morse Link Presentation

An Arc Presentation

Length is 10, width is 5,
Braid index is 5


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

[edit Notes on presentations of 10 138]
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 138"];


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

Out[4]=

X_{4251} X_{10,6,11,5} X_{8394} X_{2,9,3,10} X_{16,12,17,11} X_{7,15,8,14} X_{15,7,16,6} X_{20,18,1,17} X_{18,13,19,14} X_{12,19,13,20}

Out[5]=

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

Out[6]=

4 8 10 14 2 16 18 6 20 12

(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[{2, 11}, {1, 7}, {10, 6}, {11, 9}, {8, 3}, {7, 10}, {5, 2}, {6, 4}, {3, 5}, {4, 8}, {9, 1}]

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

Invariant

1,0


2,0


A3 Invariants.
Weight

Invariant

0,1,0


1,0,0


B2 Invariants.
Weight

Invariant

0,1


1,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 138"];


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:
{}
Same Jones Polynomial (up to mirroring, ):
{K11n117,}
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 138"];

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} and V_{3}:

(3, 2)

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 138. Nonzero entries off the critical diagonals (if any exist) are highlighted in red.



4  3  2  1  0  1  2  3  4  χ 
11          2  2 
9         2   2 
7        3  2   1 
5       3  2    1 
3      3  3     0 
1     3  4      1 
1    1  2       1 
3   1  3        2 
5   1         1 
7  1          1 

The Coloured Jones Polynomials