Link Splice Base: Difference between revisions
No edit summary |
No edit summary |
||
(5 intermediate revisions by 2 users not shown) | |||
Line 1: | Line 1: | ||
<!-- <* (* -->{{Splice |
<!-- <* (* -->{{Splice Base Notice}}<!-- *) *> --> |
||
<!-- <* (* --><!-- You can ignore this warning; it's for people trying to edit individual knot pages--><!-- *) *> --> |
<!-- <* (* --><!-- You can ignore this warning; it's for people trying to edit individual knot pages--><!-- *) *> --> |
||
<!-- WARNING! WARNING! WARNING! |
<!-- WARNING! WARNING! WARNING! |
||
Line 6: | Line 6: | ||
<!-- The text below simply calls [[Template:Link Page]] setting the values of all the parameters appropriately. |
<!-- The text below simply calls [[Template:Link Page]] setting the values of all the parameters appropriately. |
||
<!-- This page itself was created by running [[Media:KnotPageSpliceRobot.nb]] on [[Link Splice Template]]. --> |
<!-- This page itself was created by running [[Media:KnotPageSpliceRobot.nb]] on [[Link Splice Template]]. --> |
||
<!-- <* |
<!-- <*{n,k}=Drop[List@@K,{2}];*> --> |
||
{{Link Page| |
{{Link Page| |
||
n = <*n*> | |
n = <*n*> | |
||
Line 12: | Line 12: | ||
k = <*k*> | |
k = <*k*> | |
||
KnotilusURL = <*KnotilusURL[K]*> | |
KnotilusURL = <*KnotilusURL[K]*> | |
||
braid_table = <* BraidPlot[CollapseBraid[BR[K]], Mode -> "Wiki", |
|||
⚫ | |||
Images -> {"BraidPart0.gif", "BraidPart1.gif", |
|||
computer_talk = |
|||
"BraidPart2.gif", "BraidPart3.gif", "BraidPart4.gif"}] *> | |
|||
<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> |
|||
<*InOut["Crossings[``]", K]*> |
|||
<*InOut["Length[Skeleton[``]]", K]*> |
|||
<*InOut["PD[``]", K]*> |
|||
<*InOut["GaussCode[``]", K]*> |
|||
<*InOut["BR[``]", K]*> |
|||
<*GraphicsBox[NameString[K]<>"_ML.gif", "Show[DrawMorseLink[``]]", 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["A2Invariant[``][q]", K]*> |
|||
<*InOut["HOMFLYPT[``][a, z]", K]*> |
|||
<*InOut["Kauffman[``][a, z]", K]*> |
|||
<*InOut["{Vassiliev[2][`1`], Vassiliev[3][`1`]}", K ]*> |
|||
<*InOut["Kh[``][q, t]", K]*> |
|||
</table> }} |
Latest revision as of 16:11, 18 September 2005
[[Image:Data:Link Splice Base/Previous Knot.gif|80px|link=Data:Link Splice Base/Previous Knot]] |
[[Image:Data:Link Splice Base/Next Knot.gif|80px|link=Data:Link Splice Base/Next Knot]] |
File:Link Splice Base.gif (Knotscape image) |
See the full Thistlethwaite Link Table (up to 11 crossings).
Visit Data:Link Splice Base/KnotilusGaussCode Link Splice Base at Knotilus! |
Link Presentations
[edit Notes on Link Splice Base's Link Presentations]
Planar diagram presentation | Data:Link Splice Base/PD Presentation |
Gauss code | Data:Link Splice Base/Gauss Code |
A Braid Representative | <* BraidPlot[CollapseBraid[BR[K]], Mode -> "Wiki",
Images -> {"BraidPart0.gif", "BraidPart1.gif", "BraidPart2.gif", "BraidPart3.gif", "BraidPart4.gif"}] *> |
A Morse Link Presentation | File:Link Splice Base ML.gif |
Polynomial invariants
Khovanov Homology
The coefficients of the monomials are shown, along with their alternating sums (fixed , alternation over ). | Data:Link Splice Base/KhovanovTable |
Integral Khovanov Homology
(db, data source) |
Data:Link 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 Link Page master template (intermediate). See/edit the Link_Splice_Base (expert). Back to the top. |
|