{VERSION 6 0 "IBM INTEL NT" "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 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Comment" 2 18 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }
{CSTYLE "" -1 256 "" 1 14 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{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 }{PSTYLE "" 0 256 1 {CSTYLE "" -1 -1 "" 0 1 
0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE 
"" 0 257 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 
-1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 256 "" 0 "" {TEXT 256 21 "Demo for the number e" 
}}{PARA 257 "" 0 "" {TEXT -1 21 "Math 151, Spring 2006" }}{PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 21 "restart; with(plots):" }}}{EXCHG {PARA 0 "" 0 
"" {TEXT -1 32 "An exponential function of type " }{XPPEDIT 18 0 "f(x)
 = a^x;" "6#/-%\"fG6#%\"xG)%\"aGF'" }{TEXT -1 34 "  such that the slop
e at x=0 is 1." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 160 "y := 1+x:\nA:=1:
 \nG1 := plot(y,x=-1..1,color=blue,view=[-A..A,(1-A)..(1+A)]):\nG2 := \+
animate(plot,[a^x,x=-1..1,view=[-A..A,(1-A)..(1+A)]],a=2..3):\ndisplay
(G1,G2);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 17 "Numerical values:" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "exp(1);\nexp(1.0);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "n := 1;\n(1+1.0/n)^n;" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "N := 6;\nSum(1/k!,k=0..N);\nvalue(%
);\nevalf(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}
{MARK "0 0 0" 21 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 
2 33 1 1 }