Link Splice Base

<* (*

• ) *>

<* (* Template:Splice Template )* *>

[[Image:Data:Link Splice Base/Previous Knot.gif|80px|link=Data:Link Splice Base/Previous Knot]] [[Data:Link Splice Base/Previous Knot]]

[[Image:Data:Link Splice Base/Next Knot.gif|80px|link=Data:Link Splice Base/Next Knot]] [[Data:Link Splice Base/Next Knot]]

File:Link Splice Base.gif

Visit [<*KnotilusURL[K]*> Link Splice Base's page] at Knotilus! Visit <*n*><*If [AlternatingQ[K,"a","n"]*><*k*>.html Link Splice Base's page] at the original Knot Atlas!

Link Splice Base Quick Notes

Link Splice Base Further Notes and Views

Knot presentations

Planar diagram presentation	Data:Link Splice Base/PD Presentation
Gauss code	Data:Link Splice Base/Gauss Code
Dowker-Thistlethwaite code	Data:Link Splice Base/DT Code
Conway Notation	Data:Link Splice Base/Conway Notation

Three dimensional invariants

Symmetry type Data:Link Splice Base/Symmetry Type Unknotting number Data:Link Splice Base/Unknotting Number 3-genus Data:Link Splice Base/3-Genus Bridge index Missing Super bridge index Missing Nakanishi index Missing Maximal Thurston-Bennequin number Data:Link Splice Base/ThurstonBennequinNumber Hyperbolic Volume Data:Link Splice Base/HyperbolicVolume A-Polynomial See Data:Link Splice Base/A-polynomial

[edit Notes for Link Splice Base's three dimensional invariants]

Four dimensional invariants

Smooth 4 genus Missing Topological 4 genus Missing Concordance genus Missing Rasmussen s-Invariant Missing

[edit Notes for Link Splice Base's four dimensional invariants]

Polynomial invariants

Alexander polynomial	Data:Link Splice Base/Alexander Polynomial
Conway polynomial	Data:Link Splice Base/Conway Polynomial
2nd Alexander ideal (db, data sources)	Data:Link Splice Base/2nd AlexanderIdeal
Determinant and Signature	{ Data:Link Splice Base/Determinant, Data:Link Splice Base/Signature }
Jones polynomial	Data:Link Splice Base/Jones Polynomial
HOMFLY-PT polynomial (db, data sources)	Data:Link Splice Base/HOMFLYPT Polynomial
Kauffman polynomial (db, data sources)	Data:Link Splice Base/Kauffman Polynomial
The A2 invariant	Data:Link Splice Base/QuantumInvariant/A2/1,0
The G2 invariant	Data:Link Splice Base/QuantumInvariant/G2/1,0

Further Quantum Invariants

Link Splice Base 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. Read more at http://katlas.math.toronto.edu/wiki/KnotTheory.

In[3]:=

K = Knot["Link Splice Base"];

In[4]:=

Alexander[K][t]

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

Out[4]=

Data:Link Splice Base/Alexander Polynomial

In[5]:=

Conway[K][z]

Out[5]=

Data:Link 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:Link Splice Base/2nd AlexanderIdeal

In[7]:=

{KnotDet[K], KnotSignature[K]}

Out[7]=

{ Data:Link Splice Base/Determinant, Data:Link Splice Base/Signature }

In[8]:=

Jones[K][q]

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

Out[8]=

Data:Link Splice Base/Jones Polynomial

In[9]:=

HOMFLYPT[K][a, z]

KnotTheory::credits: The HOMFLYPT program was written by Scott Morrison.

Out[9]=

Data:Link Splice Base/HOMFLYPT Polynomial

In[10]:=

Kauffman[K][a, z]

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

Out[10]=

Data:Link Splice Base/Kauffman Polynomial

Vassiliev invariants

V2 and V3:

(Data:Link Splice Base/V 2, Data:Link Splice Base/V 3)

V2,1 through V6,9:

V2,1 V3,1 V4,1 V4,2 V4,3 V5,1 V5,2 V5,3 V5,4 V6,1 V6,2 V6,3 V6,4 V6,5 V6,6 V6,7 V6,8 V6,9 Data:Link Splice Base/V 2,1 Data:Link Splice Base/V 3,1 Data:Link Splice Base/V 4,1 Data:Link Splice Base/V 4,2 Data:Link Splice Base/V 4,3 Data:Link Splice Base/V 5,1 Data:Link Splice Base/V 5,2 Data:Link Splice Base/V 5,3 Data:Link Splice Base/V 5,4 Data:Link Splice Base/V 6,1 Data:Link Splice Base/V 6,2 Data:Link Splice Base/V 6,3 Data:Link Splice Base/V 6,4 Data:Link Splice Base/V 6,5 Data:Link Splice Base/V 6,6 Data:Link Splice Base/V 6,7 Data:Link Splice Base/V 6,8 Data:Link Splice Base/V 6,9

V_2,1 through V_6,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 V₂ and V₃.

Khovanov Homology

The coefficients of the monomials $t^{r}q^{j}$ are shown, along with their alternating sums $\chi$ (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:Link Splice Base/Signature is the signature of Link Splice Base. Nonzero entries off the critical diagonals (if any exist) are highlighted in red.

<*TabularKh[Kh[K][q, t], KnotSignature[K]+{1,-1}]*>

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[]*>