{VERSION 2 3 "APPLE_PPC_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 14 "A Neat Problem" }}{PARA 
0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 107 "The cell below
 illustrates how Maple can be used to investigate problems like the pr
oblem in this module.  " }{TEXT 256 16 "Evaluate it now." }}{PARA 0 "
" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 480 "wit
h(plottools):\nwith(plots):\n\na := 1:\nb:= 1:\nc := 1:\n\nendtime := \+
4:\n\nIVP := \{diff(x(t), t) = a * (y(t) - x(t)),\n        diff(y(t), \+
t) = b * (x(t) - y(t)) - c * y(t),\n        x(0) = 0,\n        y(0) = \+
6\}:\n\nsolution := dsolve(IVP, \{x(t), y(t)\}, numeric):\n\nplot1 := \+
display(\{odeplot(solution, [t, x(t)], 0..endtime,\n                  \+
        color=red)\}):\n\nplot2 := display(\{odeplot(solution, [t, y(t
)], 0..endtime,\n                          color=blue)\}):\n\ndisplay(
[plot1, plot2]);\n" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 279 "\nThis giv
e us an immediate partial answer to our question. What is it? Notice t
hat we still have lots of questions. The most important question is --
 Why? We should also ask whether this always happens or we just happen
ed to pick one particular situation in which it did happen. " }}}}
{MARK "0 2 0" 32 }{VIEWOPTS 1 1 0 1 1 1803 }