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["Polynomial Invariants"];
|
|
KnotTheory::loading: Loading precomputed data in PD4Knots`.
|
In[6]:=
|
{KnotDet[K], KnotSignature[K]}
|
|
KnotTheory::loading: Loading precomputed data in Jones4Knots`.
|
In[8]:=
|
HOMFLYPT[K][a, z]
|
|
KnotTheory::credits: The HOMFLYPT program was written by Scott Morrison.
|
In[9]:=
|
Kauffman[K][a, z]
|
|
KnotTheory::loading: Loading precomputed data in Kauffman4Knots`.
|