|
|
Line 1: |
Line 1: |
|
|
<noinclude> |
|
|
This is the Rolfsen Knot Page master template. For testing purposes, some of the data in it is filled in with data for [[8_17]]. |
|
|
</noinclude> |
|
<span id="top"></span> |
|
<span id="top"></span> |
|
{{Knot Navigation Links|ext=gif}} |
|
{{Knot Navigation Links|ext=gif}} |
Line 33: |
Line 36: |
|
|style="padding-left: 1em;" | {{Data:{{PAGENAME}}/BraidPlot}} |
|
|style="padding-left: 1em;" | {{Data:{{PAGENAME}}/BraidPlot}} |
|
|- valign=top |
|
|- valign=top |
|
|'''[[MorseLink Presentations|A Morse Link Presentation]]''' |
|
|'''A [[MorseLink Presentations|Morse Link Presentation]] and an [[Arc Presentations|Arc Presentation]]''' |
|
|style="padding-left: 1em;" | [[Image:{{PAGENAME}}_ML.gif]] |
|
|style="padding-left: 1em;" | [[Image:{{PAGENAME}}_ML.gif]] |
|
|} |
|
|} |
Revision as of 12:04, 2 December 2007
This is the Rolfsen Knot Page master template. For testing purposes, some of the data in it is filled in with data for 8_17.
Knot presentations
[edit Notes on presentations of Rolfsen Knot Page]
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`
|
In[3]:=
|
K = Knot["Rolfsen Knot Page"];
|
|
KnotTheory::loading: Loading precomputed data in PD4Knots`.
|
(The path below may be different on your system)
In[7]:=
|
AppendTo[$Path, "C:/bin/LinKnot/"];
|
In[8]:=
|
ConwayNotation[K]
|
|
KnotTheory::credits: The minimum braids representing the knots with up to 10 crossings were provided by Thomas Gittings. See arXiv:math.GT/0401051.
|
In[10]:=
|
{First[br], Crossings[br], BraidIndex[K]}
|
|
KnotTheory::loading: Loading precomputed data in IndianaData`.
|
In[11]:=
|
Show[BraidPlot[br]]
|
In[12]:=
|
Show[DrawMorseLink[K]]
|
|
KnotTheory::credits: "MorseLink was added to KnotTheory` by Siddarth Sankaran at the University of Toronto in the summer of 2005."
|
|
KnotTheory::credits: "DrawMorseLink was written by Siddarth Sankaran at the University of Toronto in the summer of 2005."
|
In[13]:=
|
ap = ArcPresentation[K]
|
Out[13]=
|
ArcPresentation[{7, 10}, {9, 2}, {10, 4}, {3, 5}, {4, 8}, {6, 9}, {5, 1}, {2, 7}, {1, 6}, {8, 3}]
|
Four dimensional invariants
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`
|
In[3]:=
|
K = Knot["Rolfsen Knot Page"];
|
|
KnotTheory::loading: Loading precomputed data in PD4Knots`.
|
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.
|
In[7]:=
|
{KnotDet[K], KnotSignature[K]}
|
|
KnotTheory::loading: Loading precomputed data in Jones4Knots`.
|
In[9]:=
|
HOMFLYPT[K][a, z]
|
|
KnotTheory::credits: The HOMFLYPT program was written by Scott Morrison.
|
In[10]:=
|
Kauffman[K][a, z]
|
|
KnotTheory::loading: Loading precomputed data in Kauffman4Knots`.
|
"Similar" Knots (within the Atlas)
Same Alexander/Conway Polynomial:
{{{{same_alexander}}}}
Same Jones Polynomial (up to mirroring, ):
{{{{same_jones}}}}
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`
|
In[3]:=
|
K = Knot["Rolfsen Knot Page"];
|
In[4]:=
|
{A = Alexander[K][t], J = Jones[K][q]}
|
|
KnotTheory::loading: Loading precomputed data in PD4Knots`.
|
|
KnotTheory::loading: Loading precomputed data in Jones4Knots`.
|
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]=
|
{{{{same_alexander}}}}
|
In[6]:=
|
DeleteCases[
Select[
AllKnots[],
(J === Jones[#][q] || (J /. q -> 1/q) === Jones[#][q]) &
],
K
]
|
|
KnotTheory::loading: Loading precomputed data in Jones4Knots11`.
|
Out[6]=
|
{{{{same_jones}}}}
|
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:Rolfsen Knot Page/V 2,1
|
Data:Rolfsen Knot Page/V 3,1
|
Data:Rolfsen Knot Page/V 4,1
|
Data:Rolfsen Knot Page/V 4,2
|
Data:Rolfsen Knot Page/V 4,3
|
Data:Rolfsen Knot Page/V 5,1
|
Data:Rolfsen Knot Page/V 5,2
|
Data:Rolfsen Knot Page/V 5,3
|
Data:Rolfsen Knot Page/V 5,4
|
Data:Rolfsen Knot Page/V 6,1
|
Data:Rolfsen Knot Page/V 6,2
|
Data:Rolfsen Knot Page/V 6,3
|
Data:Rolfsen Knot Page/V 6,4
|
Data:Rolfsen Knot Page/V 6,5
|
Data:Rolfsen Knot Page/V 6,6
|
Data:Rolfsen Knot Page/V 6,7
|
Data:Rolfsen Knot Page/V 6,8
|
Data:Rolfsen Knot Page/V 6,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.
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:Rolfsen Knot Page/Signature is the signature of Rolfsen Knot Page. Nonzero entries off the critical diagonals (if any exist) are highlighted in red.
|
|
Data:Rolfsen Knot Page/KhovanovTable
|
The Coloured Jones Polynomials
|
|
2
|
{{{coloured_jones_2}}}
|
3
|
{{{coloured_jones_3}}}
|
4
|
{{{coloured_jones_4}}}
|
5
|
{{{coloured_jones_5}}}
|
6
|
{{{coloured_jones_6}}}
|
7
|
{{{coloured_jones_7}}}
|