{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 48 "1040ForShowA27.mws\nThu Oc
t 27 10:42:41 MDT 2005\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "
restart:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 34 "Page 98 of our Text -
- Integration" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 16 "Antiderivatives:
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "utah := Int( cos(2*x), \+
x);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "value(%);  value(uta
h);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 22 "Maple doesn't do \"+ C\"" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "wow := Int( exp(-x^2), x)
;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "value(wow);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "wow := Int( exp( sec(-x^2) )
, x);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "value(wow);  " }
{TEXT -1 22 "Maple says, \"I dunno.\"" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 18 "Definite integrals" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 31 "rex := Int( tan(x), x=0..Pi/4);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 9 "value(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 
"evalf(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "rex := int( t
an(x), x=0..Pi/2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "f := \+
x -> exp(-x^2);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 
0 "" {TEXT -1 47 "We now calculate the area under the graph of f:" }}
{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 28 "XRG := -2..3:  plot(f, XRG);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 39 "Int( f(x), x=XRG);  value(%); evalf(%);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "Int( f(x), x=0..5280);  value(%); e
valf(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "Int( f(x), x=0.
.infinity);  value(%); evalf(%);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 
32 "Section 7.1 in the MATH-171 Text" }}{PARA 0 "" 0 "" {TEXT -1 0 "" 
}}{PARA 0 "" 0 "" {TEXT -1 71 "Section 6.1 in the Calculus Text: the a
rea between two curves.  6.1: 36" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}
{PARA 0 "" 0 "" {TEXT -1 54 "Find the area of the region boxed in by f
 and g, where" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 16 "f := x -> 2-x^2;" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 9 "g := exp;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
29 "XRG := -2..2:  YRG := 0..2.1:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 43 "plot([f,g], XRG, YRG, colour=[black, red]);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "A := fsolve( f(x)=g(x), x=-2
..0);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "B := fsolve( f(x)=
g(x), x=0..1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Area := I
nt( f(x) - g(x), x=A..B);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 
"value(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "33" 0 }{VIEWOPTS 1 1 0 
2 1 1805 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }