Torus Knot Splice Base: Difference between revisions
No edit summary |
No edit summary |
||
Line 27: | Line 27: | ||
coloured_jones_5 = <*ColouredJones[K, 5][q]*> | |
coloured_jones_5 = <*ColouredJones[K, 5][q]*> | |
||
coloured_jones_6 = <*ColouredJones[K, 6][q]*> | |
coloured_jones_6 = <*ColouredJones[K, 6][q]*> | |
||
coloured_jones_7 = <*ColouredJones[K, 7][q]*> |
coloured_jones_7 = <*ColouredJones[K, 7][q]*> |
||
}} |
|||
computer_talk = |
|||
<table> |
|||
<tr valign=top> |
|||
<td><pre style="color: blue; border: 0px; padding: 0em">In[1]:= </pre></td> |
|||
<td align=left><pre style="color: red; border: 0px; padding: 0em"><< KnotTheory`</pre></td> |
|||
</tr> |
|||
<tr valign=top><td colspan=2><*InOut[1]; KnotTheoryWelcomeMessage[]*></td></tr> |
|||
</table> |
|||
<*InOut["Crossings[``]", K]*> |
|||
<*GraphicsBox[NameString[K]<>".jpg", "TubePlot[`1`]", 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])&]" |
|||
]*> |
|||
<*InOut["A2Invariant[``][q]", K]*> |
|||
<*InOut["Kauffman[``][a, z]", K]*> |
|||
<*InOut["{Vassiliev[2][`1`], Vassiliev[3][`1`]}", K ]*> |
|||
<*InOut["Kh[``][q, t]", K]*> }} |
Latest revision as of 17:09, 18 September 2005
[[Image:Data:Torus Knot Splice Base/Previous Knot.jpg|80px|link=Data:Torus Knot Splice Base/Previous Knot]] |
[[Image:Data:Torus Knot Splice Base/Next Knot.jpg|80px|link=Data:Torus Knot Splice Base/Next Knot]] |
File:Torus Knot Splice Base.jpg | See other torus knots
Visit Torus Knot Splice Base at Knotilus! |
Edit Torus Knot Splice Base Quick Notes
|
Edit Torus Knot Splice Base Further Notes and Views
Knot presentations
Planar diagram presentation | Data:Torus Knot Splice Base/PD Presentation |
Gauss code | Data:Torus Knot Splice Base/Gauss Code |
Dowker-Thistlethwaite code | Data:Torus Knot Splice Base/DT Code |
Braid presentation | <* BraidPlot[CollapseBraid[BR[K]], Mode -> "Wiki", Images -> {"BraidPart0.gif", "BraidPart1.gif",
"BraidPart2.gif", "BraidPart3.gif", "BraidPart4.gif"}] *> |
Polynomial invariants
"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]}
Vassiliev invariants
V2 and V3: | (Data:Torus Knot Splice Base/V 2, Data:Torus Knot Splice Base/V 3) |
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:Torus Knot Splice Base/Signature is the signature of Torus Knot Splice Base. Nonzero entries off the critical diagonals (if any exist) are highlighted in red. | Data:Torus Knot Splice Base/KhovanovTable |
Integral Khovanov Homology
(db, data source) |
Data:Torus Knot Splice Base/Integral Khovanov Homology |
Computer Talk
Much of the above data can be recomputed by Mathematica using the package KnotTheory`
. See A Sample KnotTheory` Session.
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. |
|