3 <title>Maxima Plotting
</title>
4 <body BGCOLOR=#ffffff TEXT=#
000000 LINK=#
244C21
>
7 <h4>Maxima
3d Plotting
</h4>
12 - Function:
<b> plot3d (expr, xrange, yrange,..., options,...)
</b>
13 - Function:
<b> plot3d ([expr1,expr2,expr3], xrange, yrange,..., options,...)
</b>
15 When viewed with the netmath plotting routines, you can rotate the object
16 by dragging with the right mouse button depressed.
18 <li> <eval program=maxima
> plot3d(
2^(-u^
2+v^
2),[u,-
2,
2],[v,-
2,
2]);
</eval>
19 would plot z =
2^(-u^
2+v^
2) with u and v varying in [-
2,
2] and
20 [-
2,
2] respectively, and with u on the x axis, and v on the y axis.
22 <li> a
<b>moebius band uses the second pattern of arguments
</b>
25 plot3d([cos(x)*(
3+y*cos(x/
2)), sin(x)*(
3+y*cos(x/
2)), y*sin(x/
2)],
26 [x,-%pi,%pi],[y,-
1,
1],['grid,
40,
15]);
</eval>
28 parametrized by the
3 expressions given as the first
29 argument to plot3d. An additional optional argument [grid,
50,
15]
30 gives the grid number of rectangles in the x direction and y
33 <li>A
<b>Riemann surface
</b>: Real part of z^
1/
3
35 plot3d(r^
.33*cos(th/
3),[r,
0,
1],[th,
0,
6*%pi],
37 ['transform_xy,polar_to_xy]);
</eval>
39 <li> a
<b>Klein bottle
</b>:
41 plot3d([
5*cos(x)*(cos(x/
2)*cos(y)+sin(x/
2)*sin(
2*y)+
3.0) -
10.0,
42 -
5*sin(x)*(cos(x/
2)*cos(y)+sin(x/
2)*sin(
2*y)+
3.0),
43 5*(-sin(x/
2)*cos(y)+cos(x/
2)*sin(
2*y))],
44 [x,-%pi,%pi],[y,-%pi,%pi],['grid,
40,
40]);
</eval>
48 plot3d([cos(y)*(
10.0+
6*cos(x)),
49 sin(y)*(
10.0+
6*cos(x)),
51 [x,
0,
2*%pi],[y,
0,
2*%pi], ['grid,
20,
20]);
</eval>