{VERSION 6 0 "IBM INTEL LINUX" "6.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 "" 0 1 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 45 "1340ShowB10.mws\nThu Nov 1
0 13:42:07 MST 2005\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "re
start; with(plots, display);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 47 "#
##############################################" }}}{EXCHG {PARA 0 "" 
0 "" {TEXT -1 160 "Write a procedure to take a polynomial and an inter
val and plot the polynomial on the interval and give a list of the zer
os for the polynomial on the interval. " }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 100 "EEE := proc(ff,XXX)\n   description \"Utah!\";\n   p
lot(ff,XXX);\n   [fsolve( ff(t) = 0, t=XXX)];  \n end;" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 34 "EEE(w -> (w^2 - 5)*(w-3/2), 0..3);" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 15 "#2.236067977^2;" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 148 "F
FF := proc(ff,XXX)\n   description \"Utah!\";\n   local P, Z;\n   P :=
 plot(ff,XXX);\n   Z := [fsolve( ff(t) = 0, t=XXX)]; \n   return(P,Z, \+
D(ff)); \n end;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "#Z := 15; P := -3;" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "Pf, Zros, DDDD:= FFF(w -> (w
^2 - 5)*(w-3/2), 0..3):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "
#Z; P; DDDD(u);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "display(
Pf);  Zros; DDDD(x);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "Pf, Zros, DDDD:= FFF(w -> w
^4+9, -3..3):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "display(Pf);  Zros; DDDD(x);
" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 56 "#############################
###########################" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
193 "tyee := proc(N,K)\n   local SS, n, k;\n   SS := 0; n := N; k := K
;\n   while(k >= 0)\n     do\n       SS := SS + binomial(n,k);\n      \+
 k := k - 1;\n       #print(k);\n     end do;\n   return(SS); \nend:" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 15 "x := tyee(4,4):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "y := tyee(5,2):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 4 "x+y;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "###
##############################################" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 38 "Sum( (-1)^k/(2*k+1), k = 0..infinity);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "value(%);" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 29 "Sum( 1/k^2, k = 1..infinity);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "value(%);" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 55 "##################################################
##333" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "x := 'x';" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "A := 1;  f := sqrt;" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "series( f(x), x=A, 5);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "PPP := convert(%, polynom);
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "display( plot(PPP, x=0.
.4), plot(f,0..4, color=BLACK));" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 33 "#################################" }}}}{MARK "37" 0 }
{VIEWOPTS 1 1 0 2 1 1805 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }