aboutsummaryrefslogtreecommitdiff
path: root/src/input/drawcfn.input.pamphlet
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2007-08-14 05:14:52 +0000
committerdos-reis <gdr@axiomatics.org>2007-08-14 05:14:52 +0000
commitab8cc85adde879fb963c94d15675783f2cf4b183 (patch)
treec202482327f474583b750b2c45dedfc4e4312b1d /src/input/drawcfn.input.pamphlet
downloadopen-axiom-ab8cc85adde879fb963c94d15675783f2cf4b183.tar.gz
Initial population.
Diffstat (limited to 'src/input/drawcfn.input.pamphlet')
-rw-r--r--src/input/drawcfn.input.pamphlet93
1 files changed, 93 insertions, 0 deletions
diff --git a/src/input/drawcfn.input.pamphlet b/src/input/drawcfn.input.pamphlet
new file mode 100644
index 00000000..98a682e2
--- /dev/null
+++ b/src/input/drawcfn.input.pamphlet
@@ -0,0 +1,93 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/input drawcfn.input}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+<<*>>=
+
+-- Two dimensional function plots
+
+f(x:SF):SF == sin(11*x)
+draw(f,0..2*%pi)
+draw(f,0..2*%pi,adaptive == false,title == "Non-adaptive plot")
+draw(f,0..2*%pi,toScale == true,title == "Drawn to scale")
+draw(f,0..2*%pi,coordinates == polar,title == "Polar plot")
+
+g(x:SF):SF == tan(x)
+draw(g,-6..6,title == "Clipping on")
+draw(g,-6..6,clip == false,title == "Clipping off")
+
+-- Parametric plane curves
+
+f1(t:SF):SF == 9*sin(3*t/4)
+f2(t:SF):SF == 8*sin(t)
+draw(curve(f1,f2),-4*%pi..4*%pi,toScale == true,title == "Lissajous curve")
+
+g1(t:SF):SF == sin(5*t)
+g2(t:SF):SF == t
+draw(curve(g1,g2),0..2*%pi,title == "Parametric curve")
+draw(curve(g1,g2),0..2*%pi,_
+ coordinates == polar,title == "Parametric polar curve")
+
+h1(t:SF):SF == t
+h2(t:SF):SF == 2
+draw(curve(h1,h2),-3..3,coordinates == parabolic,title == "Parabolic plot")
+
+-- Parametric space curves
+
+i1(t:SF):SF == sin(t)*cos(3*t/5)
+i2(t:SF):SF == cos(t)*cos(3*t/5)
+i3(t:SF):SF == cos(t)*sin(3*t/5)
+draw(curve(i1,i2,i3),0..15*%pi,title == "Parametric curve")
+draw(curve(i1,i2,i3),0..15*%pi,tubeRadius == .15,title == "Tube around curve")
+
+j1(t:SF):SF == 4
+j2(t:SF):SF == t
+draw(curve(j1,j2,j2),-9..9,coordinates == cylindrical,title == "Spiral")
+
+k1(t:SF):SF == 1
+k2(t:SF):SF == t/7
+k3(t:SF):SF == t/5
+draw(curve(k1,k2,k3),-70*%pi..70*%pi,coordinates == spherical,_
+ title == "Gnarly curve on sphere")
+
+-- Three dimensional function plots
+
+l(x:SF,y:SF):SF == cos(x*y)
+draw(l,-3..3,-3..3)
+
+colorFunction1(x:SF,y:SF):SF == x
+draw(l,-3..3,-3..3,colorFunction == colorFunction1)
+
+colorFunction2(x:SF,y:SF):SF == x**2 + y**2
+draw(l,-3..3,-3..3,colorFunction == colorFunction2)
+
+colorFunction3(x:SF,y:SF,z:SF):SF == -z
+draw(l,-3..3,-3..3,colorFunction == colorFunction3)
+
+m(u:SF,v:SF):SF == 1
+draw(m,0..2*%pi,0..%pi,coordinates == spherical,title == "Sphere")
+draw(m,0..2*%pi,0..%pi,coordinates == spherical,_
+ colorFunction == colorFunction2,title == "Sphere")
+
+draw(m,-%pi/2..%pi/2,0..2*%pi,coordinates == oblateSpheroidal(1$SF),_
+ title == "Oblate spheroidal coordinates")
+
+-- Parametric surfaces
+
+n1(u:SF,v:SF):SF == 5*sin(u)*cos(v)
+n2(u:SF,v:SF):SF == 4*sin(u)*sin(v)
+n3(u:SF,v:SF):SF == 3*cos(u)
+draw(surface(n1,n2,n3),0..%pi,0..2*%pi,title == "Which came first?")
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}