{VERSION 5 0 "SUN SPARC SOLARIS" "5.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 14 0 
0 0 0 2 2 2 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R
3 Font 0" -1 256 1 {CSTYLE "" -1 -1 "Helvetica" 1 14 0 0 0 0 2 1 2 0 
0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Font 2" -1 
257 1 {CSTYLE "" -1 -1 "Courier" 1 14 0 0 0 0 2 2 2 0 0 0 0 0 0 1 }0 
0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "21+5/2;    25*3;   5
^7;   13-25;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "2.1^25; 3^3
5;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "m:= 3.12; a:= 4.6; pr
od:= m*a;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "plot(2*x*(1-x)
, x=0..1, y=0..1);    # 0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
52 "a:= evalf(Pi,45); b:= sqrt(5); b:=evalf(b,35);   # 1" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "a^5*b; %/b^3;   # 2" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "13!;    # 3" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 10 "%^3;   # 4" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 16 "ifactor(%);  # 5" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 21 "solve(x^3=%,x);   # 6" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 32 "123*111*129/127*187/1001;    # 7" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 17 "ifactor(%);   # 8" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 21 "evalf(%%,100);    # 9" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 33 "p1:= x -> (x+2)^2*(x^2-4);   # 10" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 18 "p1(y-3)^5;    # 11" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 18 "expand(%);    # 12" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 29 "plot(p1(x), x=-3..3);    # 13" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 13 "3!!!;    # 14" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 67 "a:= 'a': b:= 'b': poly:= (a*x^5-b*x^3+15*x)^7;  expan
d(poly);  # 15" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "coeff(%,a
,2);    # 16" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "factor(x^20
-1048576);   # 17" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "expand
(%);    # 18" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "yfnct:= 1/x
 + 1/x^2 - (x+2)/(x^2+2*x+5);    # 19" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 28 "ynew:=normal(yfnct);    # 20" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 22 "diff(yfnct,x);    # 21" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 21 "int(ynew,x);    #  22" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 33 "F:= int(sqrt(x+1)/x^2,x);    # 23" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "G:= diff(F,x);   # 24" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "?help" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 5 "?diff" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "?in
t" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "?normal" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "int(cos(x)/(sin(x)-cos(x)),x);   # \+
29" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "taylor(sin(x^2),x,25)
;   # 30" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "sum(1/i!, i=0..
45);   # 31" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "evalf(%,65);
   # 32" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "evalf(exp(1.0),6
5);    # 33" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "limit(sin(x)
/x, x=0);   limit(sin(x)/x, x=infinity); # 34" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 21 "with(student);   # 35" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 28 "fnct:= exp(x)*sin(x);   # 36" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 41 "showtangent(fnct,1.5,x=-Pi..Pi);     # 37" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "minimize(fnct);    evalf(%)
; maximize(fnct,x,\{x=0..3\});    evalf(%);# 38" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 34 "middlebox(fnct,x=0..Pi,20);   # 39" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "middlesum(fnct,x=0..Pi,20);  # 40" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "value(%); evalf(%);  # 41
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "p:=18*x^4+69*x^3-40*x^2
-124*x-48; solve(p=0);  # 42" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 18 "solve(p=1);   # 43" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 
"fsolve(p=1);   # 44" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 90 "eq:
= 4*x^2 - 9*y^2 =36; soln:= solve(eq,y); \{soln,2/3*x,-2/3*x\}; plot(%
,x=-10..10);   # 45" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "plot
(trunc(2*x),x=0..5,style=LINE);   # 46" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 31 "plot(sin(x^2-3),x=0..10);  # 47" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 46 "plot(2*cos(x) + .5*sin(8*x),x=-Pi..Pi);   # 4
8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "plot([cos(4*t),t,t=0..
2*Pi],coords=polar);   # 49" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
53 "plot([1 + 2*cos(t),t,t=0..2*Pi],coords=polar);   # 50" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "plot([3+sin(t),2+1/2*cos(.5*t),t=0.
.4*Pi]);   # 51" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 237 "F3D:= (
x,y) -> y*(1+x^2+y^2)*exp(-x^2-y^2); plot3d(F3D,-3..3,-3..3);   # 52 p
ress left button on picture and drag to get rotation box & rotate; the
n press right mouse button to get menu to Redraw (or to do other thing
s) to refresh graph!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 65 "G3D
:= (x,y) -> cos(x)*sin(3*y);   plot3d(G3D,-3..3,-3..3);   # 53" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "solve( \{A*x + 3*y =1, 3*x +
 2*y =2\},\{x,y\});   # 54" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
51 "dsolve(diff(y(x),x) - x^3*y(x)^2 = 0, y(x));   # 55" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 93 "with(plots): cylinderplot([z*theta,
theta,cos(z^2)],theta=0..Pi,z=-2..2, color = theta);   #56" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 114 "with(plots): list_polys := [seq([s
eq([T/10,S/20,sin(T*S/20)],T=0..20)],S=0..10)]:\npolygonplot3d(list_po
lys);   #57" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 129 "with(plots)
: polyhedraplot([0,0,0],polytype=dodecahedron,style=PATCH,\n          \+
    scaling=CONSTRAINED,orientation=[71,66]); #58" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 261 "with(plots): \nknot:= [ -10*cos(t) - 2*cos(
5*t) + 15*sin(2*t),\n   -15*cos(2*t) + 10*sin(t) - 2*sin(5*t), 10*cos(
3*t), t= 0..2*Pi]:\nhelix_points := [seq([10*cos(r/30),10*sin(r/30),r/
3],r=-240..360)]:\nspacecurve(helix_points):\nspacecurve(\{helix_point
s,knot\});  #59" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 82 "with(plo
ts): sphereplot([z*theta,exp(theta/10),z^2],\ntheta=0..2*Pi,z=-2..2); \+
  #60" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 253 "with(plots): tube
plot([3*sin(t),t,3*cos(t)],t=-3*Pi..4*Pi,\nradius=1.2+sin(t),numpoints
=80);\ntubeplot( [ -10*cos(t) - 2*cos(5*t) + 15*sin(2*t),\n           \+
 -15*cos(2*t) + 10*sin(t) - 2*sin(5*t),\n     10*cos(3*t) ], t= 0..2*P
i,radius=3*cos(t*Pi/3));   #61" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 304 "with(plots): tubeplot(\{[cos(t),sin(t),0],[0,sin(t)-1,cos(t)]
\},t=0..2*Pi,radius=1/4);\ntubeplot(\{[cos(t),sin(t),0],[0,sin(t)-1,co
s(t)]\},t=0..2*Pi,radius=1/10*t);\ntubeplot(\{[cos(t),sin(t),0,t=Pi..2
*Pi,numpoints=15,radius=0.25*(t-Pi)],\n          [0,cos(t)-1,sin(t),t=
0..2*Pi,numpoints=45,radius=0.25]\});  #62" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 131 "with(plots): F := (x,y) ->sin(x):\ntubeplot(\{[cos
(t),sin(t),0],[0,sin(t)-1,cos(t)]\},t=0..2*Pi,radius=1/4,color=F,style
=patch);   #63" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "Sum(1/n^2
,n=1..infinity)=sum(1/n^2,n=1..infinity); #64" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "8 0 0" 16 }{VIEWOPTS 1 1 0 1 1 1803 
1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }