{VERSION 5 0 "IBM INTEL NT" "5.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 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "# Newton's Law of Co
oling\n\n# filename = 03.3.mws\n\nrestart;" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 10 "\nExample 1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 71 
"de1:=dsolve(\{diff(temp(t),t)=k*(temp(t)-temps),temp(0)=temp0\},temp(
t));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "step_1:=subs(\{temp
0=350,temps=75\},rhs(de1));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
32 "k:=solve(subs(t=15,step_1)=150);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 21 "simplify(step_1,exp);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 36 "t00:=solve(step_1=80);\n  evalf(t00);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "plot(\{80,step_1\},t=0..90);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "fsolve(step_1=80,t,40..50);
" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 9 "Example 2" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 73 "Sol:=dsolve(\{diff(u(t),t)=1/4*\n\011(70-10*
cos(Pi*t/12)-u(t)),u(0)=60\},u(t)):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 28 "assign(Sol):\nsimplify(u(t));" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 19 "plot(u(t),t=0..24);" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 32 "fsolve(diff(u(t),t)=0,t,14..16);" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 83 "u:='u':\n  Sol:=dsolve(\{diff(u(t),t)=1/4
*\n\011(80-10*cos(Pi*t/12)-u(t)),u(0)=70\},u(t)):" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 30 "assign(Sol):\n  simplify(u(t));" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "plot(u(t),t=0..24);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "fsolve(diff(u(t),t)=0,t,14..16);" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "1 0 0" 0 }
{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }