diff options
Diffstat (limited to 'src/input/knot2.input.pamphlet')
-rw-r--r-- | src/input/knot2.input.pamphlet | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/src/input/knot2.input.pamphlet b/src/input/knot2.input.pamphlet new file mode 100644 index 00000000..17c24b7c --- /dev/null +++ b/src/input/knot2.input.pamphlet @@ -0,0 +1,46 @@ +\documentclass{article} +\usepackage{axiom} +\begin{document} +\title{\$SPAD/src/input knot2.input} +\author{The Axiom Team} +\maketitle +\begin{abstract} +\end{abstract} +\eject +\tableofcontents +\eject +<<*>>= +)cl all + +-- see how long this all takes +)set messages time on + +-- this is the color function, nothing elaborate for now +f(x:SF):SF == x + +-------------------------------------------------------------- +-- Creation of the knot!!! -- +-- only p/q is really used, but p and q correspond to -- +-- the factors in the notes deriving these knotty things -- +-- see the notes for detail...too involved to explain here -- +-------------------------------------------------------------- + +[p,q] := [3,5] +PQ := p/q + +l := lcm(p, q) quo p +maxRange := (odd? l => l * %pi::SF; 2 * l * %pi::SF) +theRange := 0..maxRange + +-- create the knot +knot:TUBE := tubePlot(sin t * cos(PQ*t),cos t * cos(PQ*t),cos t * sin(PQ*t), + f, theRange, 0.1::SF, 6, "open" ) + +-- make a viewport out of it +makeViewport3D(knot, concat ["knot",p::String,q::String])$VIEW3D +@ +\eject +\begin{thebibliography}{99} +\bibitem{1} nothing +\end{thebibliography} +\end{document} |