{VERSION 2 3 "IBM INTEL NT" "2.3" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 105 110 
116 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 "" {MPLTEXT 1 0 18 "f := x -> 3/8*x^2;" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "Int(f(x),x=0..2) = int(f,
0..2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "Int(f(x)*x,x=0..2
) = int(f(x)*x,x=0..2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "
solve(int(f,0..M)=1/2,M); evalf(solve(int(f,0..M)=1/2,M));" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "int(f,0..M)=1/2; (int(f,0..M)=1/2)*
8;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "solve(int(f,0..p)=1/4
,p); int(f,0..p)=1/4; (int(f,0..p)=1/4)*8;" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 63 "solve(int(f,0..p)=3/4,p); int(f,0..p)=3/4; (int(f,0
..p)=3/4)*8;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "Int(f(x)*(x
-3/2)^2,x=0..2) = int(f(x)*(x-3/2)^2,x=0..2);" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 197 "sigma := sqrt(int(f(x)*(x-3/2)^2,x=0..2));\nInt
(f(x),x=3/2+sigma..3/2-sigma) = int(f(x),x=3/2-sigma..3/2+sigma);\neva
lf(int(f(x),x=3/2-sigma..3/2+sigma));\nevalf(int(f(x),x=3/2-sigma..3/2
+sigma), 50);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}
{MARK "9 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }