Knot presentations
Planar diagram presentation

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

Gauss code

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

DowkerThistlethwaite code

4 10 14 16 2 20 18 8 6 12

Conway Notation

[31312]

Minimum Braid Representative

A Morse Link Presentation

An Arc Presentation

Length is 12, width is 5,
Braid index is 5


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

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


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

Out[4]=

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

Out[5]=

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

Out[6]=

4 10 14 16 2 20 18 8 6 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[{12, 2}, {1, 10}, {4, 11}, {10, 12}, {3, 5}, {6, 4}, {5, 7}, {2, 6}, {8, 3}, {7, 9}, {11, 8}, {9, 1}]

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

Invariant

1


2


3


4


5


A2 Invariants.
Weight

Invariant

1,0


1,1


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 28"];


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

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 0 is the signature of 10 28. Nonzero entries off the critical diagonals (if any exist) are highlighted in red.



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

The Coloured Jones Polynomials