{VERSION 2 3 "SUN SPARC SOLARIS" "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 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 "" {MPLTEXT 1 0 40 "ivp:=\{diff(y(x),x)=
(y(x)^2+x)/x,y(1)=1\};" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "s
ol:=dsolve(ivp,y(x));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "Di
gits:=22;subs(x=2,rhs(sol));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 9 "evalf(\");" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "plot(rhs
(sol),x=1..2,y=0..20);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "D
igits:=18;bi:=dsolve(ivp,y(x),numeric);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 6 "bi(2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "1
6.3187109950551343-16.31871099505513318094;" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 37 "d1:=diff(A(t),t)=-200/(12*8*10)*A(t);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "i1:=A(0)=(3/100)*(12*10*8);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "s1:=dsolve(\{d1,i1\},A(t));
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "solve(rhs(s1)=(1/10000)
*8*10*12,t);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "evalf(\");" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "d2:=diff(T(t),t)=-a*(T(t)
-20);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "i2:=T(0)=85;" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "s2:=dsolve(\{d2,i2\},T(t));
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "ss2:=subs(t=5,rhs(s2));
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "solve(ss2=70,a);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "s3:=subs(a=\",rhs(s2));" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "solve(s3=45,t);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "evalf(\");" }}}}{MARK "13 0 0" 0 }
{VIEWOPTS 1 1 0 2 1 1805 }