View source for Template:Rolfsen Knot Presentations Computer Talk

<div class="NavFrame"><div class="NavHead"><b>Computer Talk.</b>&nbsp;&nbsp;&nbsp;</div>
<div class="NavContent">The above data is available with the [http://www.wolfram.com/ Mathematica] package [[The Mathematica Package KnotTheory`|<code>KnotTheory`</code>]]. Your input (in <font color=red>red</font>) is realistic; all else should have the same content as in a real mathematica session, but with different formatting.
<!-- The following is meant to be similar to the notebook in http://katlas.math.toronto.edu/svn/KnotAtlas/RolfsenKnotPageSession.nb -->

(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/"];
<< KnotTheory`</nowiki>}}

{{Print|Loading KnotTheory` version of May 31, 2006, 14:15:20.091.
Read more at http://katlas.math.toronto.edu/wiki/KnotTheory.}}

{|
|- align=left valign=top
|width=70px|<code style="color: blue; border: 0px; padding: 0em">In[3]:=</code>
|<code style="white-space: pre; color: red; border: 0px; padding: 0em; background-color: rgb(255,255,255);">K = Knot["{{PAGENAME}}"];</code>
|}

{{In|n=4|in=<nowiki>PD[K]</nowiki>}}

{{Message|KnotTheory::loading: Loading precomputed data in PD4Knots`.}}

{{FreeStyleOut|4}}
|{{Data:{{PAGENAME}}/PD Presentation}}
|}

{{In|n=5|in=<nowiki>GaussCode[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/"];</nowiki>}}

{{In|n=8|in=<nowiki>ConwayNotation[K]</nowiki>}}

{{FreeStyleOut|8}}
|{{Data:{{PAGENAME}}/Conway Notation}}
|}

{{In|n=9|in=<nowiki>br = BR[K]</nowiki>}}

{{Message|KnotTheory::credits: The minimum braids representing the knots with up to 10 crossings were provided by Thomas Gittings. See arXiv:math.GT/0401051.}}

{{FreeStyleOut|9}}
| <tt>{{Data:{{PAGENAME}}/BraidWord}}</tt>
|}

{{In|n=10|in=<nowiki>{First[br], Crossings[br], BraidIndex[K]}</nowiki>}}

{{Message|KnotTheory::credits: The braid index data known to KnotTheory` is taken from Charles Livingston's http://www.indiana.edu/~knotinfo/.}}

{{Message|KnotTheory::loading: Loading precomputed data in IndianaData`.}}

{{FreeStyleOut|10}}
| { {{Data:{{PAGENAME}}/MinimalBraidWidth}}, {{Data:{{PAGENAME}}/MinimalBraidLength}}, {{Data:{{PAGENAME}}/BraidIndex}} }
|}

{{In|n=11|in=<nowiki>Show[BraidPlot[br]]</nowiki>}}

{|
|- align=left valign=top
|width=70px|
|{{Data:{{PAGENAME}}/BraidPlot}}
|}

{{FreeStyleOut|11}}
| <tt>-Graphics-</tt>
|}

{{In|n=12|in=<nowiki>Show[DrawMorseLink[K]]</nowiki>}}

{{Message|KnotTheory::credits: "MorseLink was added to KnotTheory` by Siddarth Sankaran at the University of Toronto in the summer of 2005."}}

{{Message|KnotTheory::credits: "DrawMorseLink was written by Siddarth Sankaran at the University of Toronto in the summer of 2005."}}

{|
|- align=left valign=top
|width=70px|
|[[Image:{{PAGENAME}}_ML.gif]]
|}

{{FreeStyleOut|12}}
| <tt>-Graphics-</tt>
|}
</div></div>