{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 0 0 0 0 0 1 0 0 0 0 0 0 0 }
{CSTYLE "" -1 257 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 
"" 0 1 0 0 0 0 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 }{PSTYLE "" 0 257 1 {CSTYLE "" -1 
-1 "" 0 1 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 -1 11 "Boyle's Law" }}{PARA 0 "
" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 194 "The cell below co
ntains sample volume and pressure data for this module.  You can use t
his data or, better yet, data that you collect yourself.  The cell bel
ow draws a graph showing this data.  " }{TEXT 256 16 "Evaluate it now.
" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 491 "data := [[20,   .336],\n         [19,   .358],\n    \+
     [18,   .375],\n         [17,   .397],\n         [16,   .425],\n  \+
       [15,   .453],\n         [14,   .487],\n         [13,   .549],\n
         [12,   .560],\n         [11,   .638],\n         [10,   .666],
\n         [ 9,   .733],\n         [ 8,   .840],\n         [ 7,   .924
],\n         [ 6,  1.036],\n         [ 5,  1.192]]:\n\nwith(plottools)
:\nwith(plots):\n\ndisplay([seq(point(data[i]), i = 1 .. nops(data))],
 \n        color = red, symbol = BOX);\n\n" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 41 "The next cell adds a plot
 of the function" }}{PARA 257 "" 0 "" {TEXT -1 1 "\n" }{TEXT 258 17 "
\nP = 20 * 0.336/V" }{TEXT -1 1 "\n" }}{PARA 0 "" 0 "" {TEXT -1 19 "to
 the data plot.  " }{TEXT 257 61 "Evaluate it now.  Notice how closely
 the curve fits the data." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 272 "marks := display([seq(point(data[i
]), i = 1 .. nops(data))], \n                 color = red, symbol = BO
X):\n\nfcn := plot(0.336 * 20 / x, \n            x = 5..20, 0..1.5, \n
            color = blue,\n            axes = BOXED):\n\ndisplay([mark
s, fcn], font = [TIMES, ROMAN, 12]);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}}{MARK "0 2 0" 59 }{VIEWOPTS 1 1 0 1 1 1803 }