Initial population.

1 files changed, 80 insertions, 0 deletions

diff --git a/src/input/drawex.input.pamphlet b/src/input/drawex.input.pamphlet
new file mode 100644
index 00000000..a9df5453
--- /dev/null
+++ b/src/input/drawex.input.pamphlet
@@ -0,0 +1,80 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/input drawex.input}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
+--Copyright The Numerical Algorithms Group Limited 1991.
+@
+<<*>>=
+<<license>>
+
+)clear all
+-- examples of the draw function
+
+-- graph of a cone
+draw(surface(u*cos(v),u*sin(v),u),u = -3..3,v = 0..2*%pi,title == "Cone")
+
+draw(curve(sin(t)*sin(2*t)*sin(3*t),sin(4*t)*sin(5*t)*sin(6*t)),t = 0..2*%pi)
+
+draw(curve(t - sin t,1 - cos t),t = -5..5)
+
+draw(curve(2*t - sin t,2 - cos t),t = -5..5)
+
+draw(curve(t - 2*sin t,1 - 2*cos t),t = -5..5)
+
+draw(surface(5*sin(u)*cos(v),4*sin(u)*sin(v),3*cos(u)),u=0..%pi,v=0..2*%pi)
+
+draw(surface(cos(t)/(1+sin(t)**2),sin(t)*cos(t)*cos(u)/(1+sin(t)**2),
+     sin(t)*cos(t)*sin(u)/(1+sin(t)**2)),t = -%pi..%pi,u = 0..%pi)
+
+-- helix
+draw(curve(4*cos(t),4*sin(t),t),t = -10..10, title == "Helix")
+
+draw(sin(2 * x**2 + 3 * y**2)/(x**2 + y**2),x = -3..3,y = -3..3)
+
+draw(curve(9*sin(3*t/4),8*sin(t)),t = -4*%pi..4*%pi, _
+     title == "Lissajous curve")
+
+draw(curve(-9*sin(4*t/5),8*sin(t)),t = -5*%pi..5*%pi, _
+     title == "Lissajous curve")
+
+draw(curve(t**2 + 2*t - 1,t**2 + t - 2),t = -4..3)
+
+draw((x**2 - y**2)/(x**2 + y**2),x = -1..1,y = -1..1)
+
+draw(x**2 - y**2,x = -2..2, y = -2..2)
+
+draw(sin inv x,x = -1.03..3)
+
+draw(sin(x) * sin(y),x = 0..2*%pi, y = 0..2*%pi)
+
+draw(sin(x) * sin(y),x = 20*%pi..22*%pi, y = 20*%pi..22*%pi)
+
+draw(t/100,t = 0..100,coordinates == polar)
+
+draw(cos(x*y),x = -3..3, y = -3..3)
+
+draw(curve(3*(t**2-3),t*(t**2-3)),t = -3..3, title == "Tschirnhausen's Cubic")
+
+draw(curve(sin(t), cos(t), 0), t=0..2*%pi, tubeRadius == 0.5)
+
+draw(curve((t**2-1)/(3*t**2+1),t*(t**2-1)/(3*t**2+1)),t = -3..3, title == "Folium of Descartes")
+
+draw(curve(t - 2*sin t,1 - 2*cos t),t = -5..5)
+
+draw(curve(cos(t)/(1+sin(t)**2),sin(t)*cos(t)/(1+sin(t)**2)),t = -%pi..%pi, title == "Lemniscate of Bernoulli")
+
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}