1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
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}
|
