Hoste-Thistlethwaite Splice Base
From Knot Atlas
|
[[Image:Data:Hoste-Thistlethwaite Splice Base/Previous Knot.gif|80px]] |
[[Image:Data:Hoste-Thistlethwaite Splice Base/Next Knot.gif|80px]] |
|
| Image:Hoste-Thistlethwaite Splice Base.gif (Knotscape image) | See the full Hoste-Thistlethwaite Table of 11 Crossing Knots.
Visit [<*KnotilusURL[K]*> Hoste-Thistlethwaite Splice Base's page] at Knotilus! Visit <*n*><*If [AlternatingQ[K,"a","n"]*><*k*>.html Hoste-Thistlethwaite Splice Base's page] at the original Knot Atlas! |
[edit] Knot presentations
| A Braid Representative | <* BraidPlot[CollapseBraid[BR[K]], Mode -> "Wiki",
Images -> {"BraidPart0.gif", "BraidPart1.gif",
"BraidPart2.gif", "BraidPart3.gif", "BraidPart4.gif"}] *>
|
| A Morse Link Presentation | Image:Hoste-Thistlethwaite Splice Base ML.gif |
[edit] Three dimensional invariants
|
[edit Notes for Hoste-Thistlethwaite Splice Base's three dimensional invariants] |
[edit] Four dimensional invariants
|
[edit Notes for Hoste-Thistlethwaite Splice Base's four dimensional invariants] |
[edit] Polynomial invariants
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["Hoste-Thistlethwaite Splice Base"];
|
In[4]:=
| Alexander[K][t]
|
KnotTheory::loading: Loading precomputed data in PD4Knots`.
|
Out[4]=
| Data:Hoste-Thistlethwaite Splice Base/Alexander Polynomial |
In[5]:=
| Conway[K][z]
|
Out[5]=
| Data:Hoste-Thistlethwaite Splice Base/Conway Polynomial |
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]=
| Data:Hoste-Thistlethwaite Splice Base/2nd AlexanderIdeal |
In[7]:=
| {KnotDet[K], KnotSignature[K]}
|
Out[7]=
| { Data:Hoste-Thistlethwaite Splice Base/Determinant, Data:Hoste-Thistlethwaite Splice Base/Signature } |
In[8]:=
| Jones[K][q]
|
KnotTheory::loading: Loading precomputed data in Jones4Knots`.
|
Out[8]=
| Data:Hoste-Thistlethwaite Splice Base/Jones Polynomial |
In[9]:=
| HOMFLYPT[K][a, z]
|
KnotTheory::credits: The HOMFLYPT program was written by Scott Morrison.
|
Out[9]=
| Data:Hoste-Thistlethwaite Splice Base/HOMFLYPT Polynomial |
In[10]:=
| Kauffman[K][a, z]
|
KnotTheory::loading: Loading precomputed data in Kauffman4Knots`.
|
Out[10]=
| Data:Hoste-Thistlethwaite Splice Base/Kauffman Polynomial |
[edit] "Similar" Knots (within the Atlas)
Same Alexander/Conway Polynomial: {<* alex = Alexander[K][t];
others = DeleteCases[Select[AllKnots[], (alex === Alexander[#][t])&], K];
If[others === {}, "", StringJoin[("[["<>NameString[#]<>"]], ")& /@ others]]
*>}
Same Jones Polynomial (up to mirroring, 
):
{<* J = Jones[K][q];
others = DeleteCases[Select[AllKnots[], (J === Jones[#][q]}
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["Hoste-Thistlethwaite Splice Base"];
|
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]=
| { Data:Hoste-Thistlethwaite Splice Base/Alexander Polynomial, Data:Hoste-Thistlethwaite Splice Base/Jones Polynomial } |
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]=
| {<* alex = Alexander[K][t];
others = DeleteCases[Select[AllKnots[], (alex === Alexander[#][t])&], K];
If[others === {}, "", StringJoin[("[["<>NameString[#]<>"]], ")& /@ others]]
*>}
|
In[6]:=
| DeleteCases[
Select[
AllKnots[],
(J === Jones[#][q] || (J /. q -> 1/q) === Jones[#][q]) &
],
K
]
|
KnotTheory::loading: Loading precomputed data in Jones4Knots11`.
|
Out[6]=
| {<* J = Jones[K][q];
others = DeleteCases[Select[AllKnots[], (J === Jones[#][q]} |
[edit] Vassiliev invariants
| V2 and V3: | (Data:Hoste-Thistlethwaite Splice Base/V 2, Data:Hoste-Thistlethwaite Splice Base/V 3) |
[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 = Data:Hoste-Thistlethwaite Splice Base/Signature is the signature of Hoste-Thistlethwaite Splice Base. Nonzero entries off the critical diagonals (if any exist) are highlighted in red. | Data:Hoste-Thistlethwaite Splice Base/KhovanovTable |
| Integral Khovanov Homology
(db, data source) | Data:Hoste-Thistlethwaite Splice Base/Integral Khovanov Homology |
[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 Hoste-Thistlethwaite Knot Page master template (intermediate). See/edit the Hoste-Thistlethwaite_Splice_Base (expert). Back to the top. |
|
