Graphical Input: Difference between revisions
From Knot Atlas
Jump to navigationJump to search
No edit summary |
DrorsRobot (talk | contribs) No edit summary |
||
| Line 16: | Line 16: | ||
<!--$$?KnotInput$$--> |
<!--$$?KnotInput$$--> |
||
<!--Robot Land, no human edits to "END"--> |
<!--Robot Land, no human edits to "END"--> |
||
{{HelpLine| |
|||
{{HelpAndAbout| |
|||
n = 3 | |
n = 3 | |
||
| ⚫ | |||
n1 = 4 | |
|||
out= <nowiki>KnotInput[] opens a window in which you can draw a knot or link by hand. Right click and select 'Quit' when you're done. This function requires the package LinKnots`, and will only run on Windows machines. Sorry!</nowiki>}} |
|||
| ⚫ | |||
out= <nowiki>ConwayNotation[s] represents the knot or link whose Conway notation is the string s. ConwayNotation[K], where K is a knot or a link with up to 12 crossings, returns ConwayNotation[s], where s is a string containing the Conway notation of K.</nowiki> | |
|||
about= <nowiki>The program ConwayNotation relies on code from the LinKnot package by Slavik Jablan and Ramila Sazdanovic.</nowiki>}} |
|||
<!--END--> |
<!--END--> |
||
| Line 39: | Line 37: | ||
<!--Robot Land, no human edits to "END"--> |
<!--Robot Land, no human edits to "END"--> |
||
{{InOut| |
{{InOut| |
||
n = |
n = 4 | |
||
in = <nowiki> |
in = <nowiki>Kh[K][q, t]</nowiki> | |
||
out= <nowiki>1 |
|||
- + q |
|||
q</nowiki>}} |
|||
<!--END--> |
<!--END--> |
||
Revision as of 20:25, 31 March 2006
Thanks to our link with LinKnot, on Windows systems KnotTheory` accepts graphical knot input.
(For In[1] see Setup)
As in the section Using the LinKnot package, the first step is to add LinKnot to the Mathematica search path. This path will likely be different on your computer.
In[2]:=
|
AppendTo[$Path, "C:/bin/LinKnot/"];
|
| ||||
Thus for example, the input line
In[5]:=
|
K = KnotInput[]
|
pops a blank window on which a knot or a link can be drawn with mouse clicks. At first pass all crossings are drawn as "new over old", but a further click on any given crossing will flip it.
A right click followed by selecting "quit" will then determine the Gauss code of the knot or link just drawn and return it to Mathematica:
Out[5]=
|
GaussCode[{-1,-4,2,3},{-3,-5,4,6},{5,1,-6,-2}]
|
K is now perfectly usable within KnotTheory`:
In[4]:=
|
Kh[K][q, t]
|
Out[4]=
|
1
- + q
q
|
