{VERSION 2 3 "APPLE_68K_MAC" "2.3" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{CSTYLE "" -1 256 "" 0 1 255 0 0 1 0 1 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 -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 1 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 -1 36 "Newton's Model of Coolin
g, Revisited" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT 
-1 143 "The cell below illustrates how  Maple  can be used to investig
ate numerical solutions of initial value problems like the ones in thi
s module.  " }{TEXT 256 99 "Evaluate it now and then use it as an exam
ple for working with the questions raised in this module." }}{PARA 0 "
" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 351 "wit
h(plottools):\nwith(plots):\n\nAmbient := t -> sin(t):\n\nEndTime := 1
2.56:\n\nk := 1:\n\nIVP := \{diff(T(t), t) = k * (Ambient(t) - T(t)),
\n        T(0) = 2\}:\n\nsolution := dsolve(IVP, \{T(t)\}, numeric):\n
\nplt := display(\{odeplot(solution, [t, T(t)], 0..EndTime, color=red)
\}):\n\ngraf := plot(Ambient(t), t = 0..EndTime, -2..2, color=blue):\n
\ndisplay([plt, graf]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "
" }}}}{MARK "1 0 0" 17 }{VIEWOPTS 1 1 0 1 1 1803 }