Next: 10 Further Knot Theory
Up: The Mathematica Package KnotTheory`
Previous: 8.1 Drawing with TubePlot
  Contents
  Index
In[2]:= ?NumberOfKnots
|
In[3]:= | NumberOfKnots[16, NonAlternating] |
Out[3]= | 1008906 |
In[4]:= ?MorseLink
In[5]:= MorseLink::about
|
In[6]:= | MorseLink[Knot[3, 1]] |
Out[6]= | MorseLink[1 \[Cup] 2, 4 \[Cup] 3, X[2, Under, Up, Up], X[2, Under, Up, Up], > X[2, Under, Up, Up], 2 \[Cap] 1, 1 \[Cap] 2] |
In[7]:= ?DrawMorseLink
|
In[8]:= | Show[DrawMorseLink[Link[11, Alternating, 548]]] |
![]() | |
Out[8]= | -Graphics- |