The first step is to load KnotTheory` as in the Setup section:
In[1]:= << KnotTheory`
Loading KnotTheory` (version of September 14, 2005, 13:37:36)...
Let us now introduce the four star knots that will accompany us throughout this session:
In[2]:=
|
K = Knot[8, 17];
K11 = Knot[11, Alternating, 231];
L = Link[8, NonAlternating, 6];
TK = TorusKnot[7,5];
|
In[3]:=
|
PD[K]
|
Out[3]=
|
PD[X[6, 2, 7, 1], X[14, 8, 15, 7], X[8, 3, 9, 4], X[2, 13, 3, 14],
X[12, 5, 13, 6], X[4, 9, 5, 10], X[16, 12, 1, 11], X[10, 16, 11, 15]]
|
In[4]:=
|
{GaussCode[K], GaussCode[L]}
|
Out[4]=
|
{GaussCode[1, -4, 3, -6, 5, -1, 2, -3, 6, -8, 7, -5, 4, -2, 8, -7],
GaussCode[{1, -7, 2, -8}, {-5, 4, -6, 3},
{7, -1, -4, 5, 8, -2, -3, 6}]}
|
In[5]:=
|
DTCode[K]
|
Out[5]=
|
DTCode[6, 8, 12, 14, 4, 16, 2, 10]
|
In[6]:=
|
br = BR[K]
|
Out[6]=
|
BR[3, {-1, -1, 2, -1, 2, -1, 2, 2}]
|
In[7]:=
|
Show[BraidPlot[br]]
|
|
|
|
Out[7]=
|
-Graphics-
|
In[8]:=
|
{First[br], Crossings[br], BraidIndex[K]}
|
Out[8]=
|
{3, 8, 3}
|
In[9]:=
|
Show[DrawMorseLink[K]]
|
|
|
|
Out[9]=
|
-Graphics-
|
In[10]:=
|
Show[DrawMorseLink[L]]
|
|
|
|
Out[10]=
|
-Graphics-
|
In[11]:=
|
(#[K]&) /@ {
SymmetryType, UnknottingNumber, ThreeGenus,
BridgeIndex, SuperBridgeIndex, NakanishiIndex
}
|
Out[11]=
|
{NegativeAmphicheiral, 1, 3, 3, 4, 1}
|
Polynomial Invariants
In[12]:=
|
alex = Alexander[K11][t]
|
Out[12]=
|
-4 5 12 20 2 3 4
-23 - t + -- - -- + -- + 20 t - 12 t + 5 t - t
3 2 t
t t
|
In[13]:=
|
Conway[K11][t]
|
Out[13]=
|
2 4 6 8
1 + t - 2 t - 3 t - t
|
"Similar" Knots (within the Atlas)
In[14]:=
|
Select[AllKnots[], (alex === Alexander[#][t])&]
|
Out[14]=
|
{Knot[11, Alternating, 57], Knot[11, Alternating, 108],
Knot[11, Alternating, 139], Knot[11, Alternating, 231]}
|
In[15]:=
|
{KnotDet[K], KnotSignature[K]}
|
Out[15]=
|
{37, 0}
|
In[16]:=
|
J=Jones[K11][q]
|
Out[16]=
|
-7 3 7 12 14 16 16 2 3 4
-12 + q - -- + -- - -- + -- - -- + -- + 10 q - 5 q + 2 q - q
6 5 4 3 2 q
q q q q q
|
"Similar" Knots (within the Atlas)
In[17]:=
|
Select[AllKnots[], (J === Jones[#][q] || (J /. q -> 1/q) === Jones[#][q])&]
|
Out[17]=
|
{Knot[11, Alternating, 57], Knot[11, Alternating, 231]}
|
In[18]:=
|
A2Invariant[K11][q]
|
Out[18]=
|
-20 -18 3 -14 -12 6 -6 3 4 2
5 + q - q + --- - q - q - -- + q - -- + -- + 2 q +
16 8 4 2
q q q q
4 6 8 10 12
4 q - 2 q - q - q - q
|
In[19]:=
|
HOMFLYPT[K11][q]
|
Out[19]=
|
Function[{KnotTheory`HOMFLYPT`a, KnotTheory`HOMFLYPT`z},
4 2
12 - ---------------------- - 10 KnotTheory`HOMFLYPT`a +
2
KnotTheory`HOMFLYPT`a
4 2
3 KnotTheory`HOMFLYPT`a + 18 KnotTheory`HOMFLYPT`z -
2
4 KnotTheory`HOMFLYPT`z
------------------------ -
2
KnotTheory`HOMFLYPT`a
2 2
19 KnotTheory`HOMFLYPT`a KnotTheory`HOMFLYPT`z +
4 2
6 KnotTheory`HOMFLYPT`a KnotTheory`HOMFLYPT`z +
4
4 KnotTheory`HOMFLYPT`z
10 KnotTheory`HOMFLYPT`z - ---------------------- -
2
KnotTheory`HOMFLYPT`a
2 4
15 KnotTheory`HOMFLYPT`a KnotTheory`HOMFLYPT`z +
4 4
4 KnotTheory`HOMFLYPT`a KnotTheory`HOMFLYPT`z +
6
2 KnotTheory`HOMFLYPT`z -
2 6
6 KnotTheory`HOMFLYPT`a KnotTheory`HOMFLYPT`z +
4 6
KnotTheory`HOMFLYPT`a KnotTheory`HOMFLYPT`z -
2 8
KnotTheory`HOMFLYPT`a KnotTheory`HOMFLYPT`z ][q]
|
In[20]:=
|
Kauffman[K11][q]
|
Out[20]=
|
4 2 4 4 #2 11 #2 3 5
12 + -- + 10 q + 3 q - ---- - ----- - 17 q #2 - 16 q #2 - 6 q #2 -
2 3 q
q q
2 3
2 8 #2 2 2 4 2 6 2 8 2 8 #2
24 #2 - ----- - 22 q #2 - 2 q #2 + 3 q #2 - q #2 + ----- +
2 3
q q
3
20 #2 3 3 3 5 3 7 3 4
------ + 29 q #2 + 35 q #2 + 16 q #2 - 2 q #2 + 28 #2 +
q
4 5 5
11 #2 2 4 4 4 6 4 8 4 5 #2 9 #2
------ + 30 q #2 + 6 q #2 - 6 q #2 + q #2 - ----- - ----- -
2 3 q
q q
6
5 3 5 5 5 7 5 6 8 #2
14 q #2 - 29 q #2 - 16 q #2 + 3 q #2 - 21 #2 - ----- -
2
q
7 7
2 6 4 6 6 6 #2 3 #2 7 3 7
31 q #2 - 12 q #2 + 6 q #2 + --- - ----- - 9 q #2 + 4 q #2 +
3 q
q
8 9
5 7 8 2 #2 2 8 4 8 2 #2 9
9 q #2 + 4 #2 + ----- + 10 q #2 + 8 q #2 + ----- + 6 q #2 +
2 q
q
3 9 10 2 10
4 q #2 + #2 + q #2
|
