Template:Similar Knots: Difference between revisions
From Knot Atlas
Jump to navigationJump to search
m (Reverted edits by 61.86.48.145 (Talk); changed back to last version by Drorbn) |
m (Reverted edits by 221.232.159.112 (Talk); changed back to last version by Drorbn) |
| (One intermediate revision by one other user not shown) | |
(No difference)
| |
Latest revision as of 10:21, 13 August 2007
"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`
|
Loading KnotTheory` version of May 31, 2006, 14:15:20.091.
|
In[3]:=
|
K = Knot["Similar Knots"];
|
In[4]:=
|
{A = Alexander[K][t], J = Jones[K][q]}
|
KnotTheory::loading: Loading precomputed data in PD4Knots`.
|
KnotTheory::loading: Loading precomputed data in Jones4Knots`.
|
Out[4]=
|
{ Data:Similar Knots/Alexander Polynomial, Data:Similar Knots/Jones Polynomial } |
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}}}} |
