Hoste-Thistlethwaite Splice Base: Difference between revisions
No edit summary |
No edit summary |
||
Line 1: | Line 1: | ||
⚫ | |||
<!-- <*K=Knot[ThisKnot];{n,k}=List@@K;*> --> |
<!-- <*K=Knot[ThisKnot];{n,k}=List@@K;*> --> |
||
Line 58: | Line 60: | ||
<* (* <!-- *) *> {{Category:Knot Page}} <* (* --> *) *> |
<* (* <!-- *) *> {{Category:Knot Page}} <* (* --> *) *> |
||
⚫ |
Revision as of 18:26, 28 August 2005
- REDIRECT Template:Splice Base Notice
[[Image:Data:Hoste-Thistlethwaite Splice Base/Previous Knot.gif|80px|link=Data:Hoste-Thistlethwaite Splice Base/Previous Knot]] |
[[Image:Data:Hoste-Thistlethwaite Splice Base/Next Knot.gif|80px|link=Data:Hoste-Thistlethwaite Splice Base/Next Knot]] |
File:Hoste-Thistlethwaite Splice Base.gif | 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! |
Hoste-Thistlethwaite Splice Base Quick Notes |
Hoste-Thistlethwaite Splice Base Further Notes and Views
Knot presentations
Three dimensional invariants
Four dimensional invariants
|
[edit Notes for Hoste-Thistlethwaite Splice Base's four dimensional invariants] |
Polynomial invariants
Alexander polynomial | Data:Hoste-Thistlethwaite Splice Base/Alexander Polynomial |
Conway polynomial | Data:Hoste-Thistlethwaite Splice Base/Conway Polynomial |
2nd Alexander ideal (db, data sources) | Data:Hoste-Thistlethwaite Splice Base/2nd AlexanderIdeal |
Determinant and Signature | { Data:Hoste-Thistlethwaite Splice Base/Determinant, Data:Hoste-Thistlethwaite Splice Base/Signature } |
Jones polynomial | Data:Hoste-Thistlethwaite Splice Base/Jones Polynomial |
HOMFLY-PT polynomial (db, data sources) | Data:Hoste-Thistlethwaite Splice Base/HOMFLYPT Polynomial |
Kauffman polynomial (db, data sources) | Data:Hoste-Thistlethwaite Splice Base/Kauffman Polynomial |
The A2 invariant | Data:Hoste-Thistlethwaite Splice Base/QuantumInvariant/A2/1,0 |
The G2 invariant | Data:Hoste-Thistlethwaite Splice Base/QuantumInvariant/G2/1,0 |
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 |
Vassiliev invariants
V2 and V3: | (Data:Hoste-Thistlethwaite Splice Base/V 2, Data:Hoste-Thistlethwaite Splice Base/V 3) |
V2,1 through V6,9: |
|
V2,1 through V6,9 were provided by Petr Dunin-Barkowski <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 V2 and V3.
Khovanov Homology
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 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.
Computer Talk
Much of the above data can be recomputed by Mathematica using the package KnotTheory`
. See A Sample KnotTheory` Session.
<*InOut["Crossings[``]", K]*> <*InOut["PD[``]", K]*> <*InOut["GaussCode[``]", K]*> <*InOut["BR[``]", K]*> <*InOut["alex = Alexander[``][t]", K]*> <*InOut["Conway[``][z]", K]*> <*InOut["Select[AllKnots[], (alex === Alexander[#][t])&]"]*> <*InOut["{KnotDet[`1`], KnotSignature[`1`]}", K]*> <*InOut["J=Jones[``][q]", K]*> <*InOut[
"Select[AllKnots[], (J === Jones[#][q] || (J /. q-> 1/q) === Jones[#][q])&]"
]*> <* If[Crossings[K]<=18, Include["ColouredJonesM.mhtml"] ,""] *> <*InOut["A2Invariant[``][q]", K]*> <*InOut["Kauffman[``][a, z]", K]*> <*InOut["{Vassiliev[2][`1`], Vassiliev[3][`1`]}", K ]*> <*InOut["Kh[``][q, t]", K]*>
In[1]:= |
<< KnotTheory` |
<*InOut[1]; KnotTheoryWelcomeMessage[]*> |
<* (* *) *>