T(13,3)
From Knot Atlas
|
|
|
|
| See other torus knots
Visit T(13,3)'s page at Knotilus! Visit T(13,3)'s page at the original Knot Atlas! |
| Edit T(13,3) Quick Notes
|
Edit T(13,3) Further Notes and Views
[edit] Knot presentations
| Planar diagram presentation | X38,4,39,3 X21,5,22,4 X22,40,23,39 X5,41,6,40 X6,24,7,23 X41,25,42,24 X42,8,43,7 X25,9,26,8 X26,44,27,43 X9,45,10,44 X10,28,11,27 X45,29,46,28 X46,12,47,11 X29,13,30,12 X30,48,31,47 X13,49,14,48 X14,32,15,31 X49,33,50,32 X50,16,51,15 X33,17,34,16 X34,52,35,51 X17,1,18,52 X18,36,19,35 X1,37,2,36 X2,20,3,19 X37,21,38,20 |
| Gauss code | -24, -25, 1, 2, -4, -5, 7, 8, -10, -11, 13, 14, -16, -17, 19, 20, -22, -23, 25, 26, -2, -3, 5, 6, -8, -9, 11, 12, -14, -15, 17, 18, -20, -21, 23, 24, -26, -1, 3, 4, -6, -7, 9, 10, -12, -13, 15, 16, -18, -19, 21, 22 |
| Dowker-Thistlethwaite code | 36 -38 40 -42 44 -46 48 -50 52 -2 4 -6 8 -10 12 -14 16 -18 20 -22 24 -26 28 -30 32 -34 |
| Braid presentation |
|
[edit] Polynomial invariants
| Alexander polynomial | t12−t11 + t9−t8 + t6−t5 + t3−t2 + 1−t−2 + t−3−t−5 + t−6−t−8 + t−9−t−11 + t−12 |
| Conway polynomial | z24 + 23z22 + 230z20 + 1312z18 + 4709z16 + 11067z14 + 17187z12 + 17391z10 + 11033z8 + 4081z6 + 770z4 + 56z2 + 1 |
| 2nd Alexander ideal (db, data sources) | {1} |
| Determinant and Signature | { 1, 16 } |
| Jones polynomial | −q26 + q14 + q12 |
| HOMFLY-PT polynomial (db, data sources) | Data:T(13,3)/HOMFLYPT Polynomial |
| Kauffman polynomial (db, data sources) | Data:T(13,3)/Kauffman Polynomial |
| The A2 invariant | Data:T(13,3)/QuantumInvariant/A2/1,0 |
| The G2 invariant | Data:T(13,3)/QuantumInvariant/G2/1,0 |
Further Quantum Invariants
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`
|
Loading KnotTheory` version of August 31, 2006, 11:25:27.5625.
|
In[3]:=
| K = Knot["T(13,3)"];
|
In[4]:=
| Alexander[K][t]
|
KnotTheory::loading: Loading precomputed data in PD4Knots`.
|
Out[4]=
| t12−t11 + t9−t8 + t6−t5 + t3−t2 + 1−t−2 + t−3−t−5 + t−6−t−8 + t−9−t−11 + t−12 |
In[5]:=
| Conway[K][z]
|
Out[5]=
| z24 + 23z22 + 230z20 + 1312z18 + 4709z16 + 11067z14 + 17187z12 + 17391z10 + 11033z8 + 4081z6 + 770z4 + 56z2 + 1 |
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]=
| {1} |
In[7]:=
| {KnotDet[K], KnotSignature[K]}
|
Out[7]=
| { 1, 16 } |
In[8]:=
| Jones[K][q]
|
KnotTheory::loading: Loading precomputed data in Jones4Knots`.
|
Out[8]=
| −q26 + q14 + q12 |
In[9]:=
| HOMFLYPT[K][a, z]
|
KnotTheory::credits: The HOMFLYPT program was written by Scott Morrison.
|
Out[9]=
| Data:T(13,3)/HOMFLYPT Polynomial |
In[10]:=
| Kauffman[K][a, z]
|
KnotTheory::loading: Loading precomputed data in Kauffman4Knots`.
|
Out[10]=
| Data:T(13,3)/Kauffman Polynomial |
[edit] "Similar" Knots (within the Atlas)
Same Alexander/Conway Polynomial: {}
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`
|
Loading KnotTheory` version of May 31, 2006, 14:15:20.091.
|
In[3]:=
| K = Knot["T(13,3)"];
|
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]=
| { t12−t11 + t9−t8 + t6−t5 + t3−t2 + 1−t−2 + t−3−t−5 + t−6−t−8 + t−9−t−11 + t−12, −q26 + q14 + q12 } |
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.
|
Out[5]=
| {} |
In[6]:=
| DeleteCases[
Select[
AllKnots[],
(J === Jones[#][q] || (J /. q -> 1/q) === Jones[#][q]) &
],
K
]
|
KnotTheory::loading: Loading precomputed data in Jones4Knots11`.
|
Out[6]=
| {} |
[edit] Khovanov Homology
| The coefficients of the monomials trqj are shown, along with their alternating sums χ (fixed j, alternation over r). The squares with yellow highlighting are those on the "critical diagonals", where j−2r = s + 1 or j−2r = s−1, where s = 16 is the signature of T(13,3). Nonzero entries off the critical diagonals (if any exist) are highlighted in red. |
|
| Integral Khovanov Homology
(db, data source) |
|
[edit] Computer Talk
Much of the above data can be recomputed by Mathematica using the packageKnotTheory`. See A Sample KnotTheory` Session.
[edit] Modifying This Page
| Read me first: Modifying Knot Pages
See/edit the Torus Knot Page master template (intermediate). See/edit the Torus Knot_Splice_Base (expert). Back to the top. |
|
