Template:Rolfsen Knot Presentations Computer Talk: Difference between revisions
From Knot Atlas
Jump to navigationJump to search
No edit summary |
No edit summary |
||
| Line 3: | Line 3: | ||
<!-- The following is meant to be similar to the notebook in http://katlas.math.toronto.edu/svn/KnotAtlas/RolfsenKnotPageSession.nb --> |
<!-- The following is meant to be similar to the notebook in http://katlas.math.toronto.edu/svn/KnotAtlas/RolfsenKnotPageSession.nb --> |
||
(The path below |
(The path below may be different on your system, and possibly also the <tt>KnotTheory`</tt> date) |
||
{{In|n=1|in=<nowiki>AppendTo[$Path, "C:/drorbn/projects/KAtlas/"]; |
{{In|n=1|in=<nowiki>AppendTo[$Path, "C:/drorbn/projects/KAtlas/"]; |
||
| Line 25: | Line 25: | ||
|} |
|} |
||
{{In|n=5|in=<nowiki>PD[K]</nowiki>}} |
|||
{{FreeStyleOut|5}} |
|||
|{{Data:{{PAGENAME}}/Gauss Code}} |
|||
|} |
|||
{{In|n=6|in=<nowiki>DTCode[K]</nowiki>}} |
|||
{{FreeStyleOut|6}} |
|||
|{{Data:{{PAGENAME}}/DT Code}} |
|||
|} |
|||
(The path below may be different on your system) |
|||
{{In|n=7|in=<nowiki>AppendTo[$Path, "C:/bin/LinKnot/"];}} |
|||
{{In|n=8|in=<nowiki>ConwayNotation[K]</nowiki>}} |
|||
{{FreeStyleOut|8}} |
|||
|{{Data:{{PAGENAME}}/Conway Notation}} |
|||
|} |
|||
</div></div> |
</div></div> |
||
Revision as of 14:14, 24 June 2006
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["Rolfsen Knot Presentations Computer Talk"];
|
In[4]:=
|
PD[K]
|
KnotTheory::loading: Loading precomputed data in PD4Knots`.
|
Out[4]=
|
Data:Rolfsen Knot Presentations Computer Talk/PD Presentation |
In[5]:=
|
PD[K]
|
Out[5]=
|
1, -4, 3, -6, 5, -1, 2, -3, 6, -8, 7, -5, 4, -2, 8, -7 |
In[6]:=
|
DTCode[K]
|
Out[6]=
|
Data:Rolfsen Knot Presentations Computer Talk/DT Code |
(The path below may be different on your system)
In[7]:=
|
AppendTo[$Path, "C:/bin/LinKnot/"];}}
{{In|n=8|in=<nowiki>ConwayNotation[K]
|
Out[8]=
|
Data:Rolfsen Knot Presentations Computer Talk/Conway Notation |
