{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 }
{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 81 "Estimation and Limits --
 Estimating the Slope of a Tangent or Estimating Velocity" }}{PARA 0 "
" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 403 "The cell below co
ntains data from an experiment in which a pillow was dropped on a \"mo
tion detector\" and the results recorded using a TI-CBL.  The distance
 measurements were taken at intervals of 0.02 seconds.  This cell also
 graphs the data and it computes the average velocity over the fifth i
nterval.  After you've evaluated this cell you can work with the data \+
as described in your browser window.  " }{TEXT 256 23 "Evaluate this c
ell now." }{TEXT -1 1 " " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 401 "with(plots):\n\nFall := \n        \+
  [4.18803, 4.18083, 4.17722, 4.15202, 4.11241, \n           4.07639, \+
4.02958, 3.96836, 3.89634, 3.81352, \n           3.71629, 3.61186, 3.4
9662, 3.36699, 3.23015, \n           3.08970, 2.94566, 2.77281, 2.6071
6, 2.43071, \n           2.24706, 2.05260, 1.85454, 1.64928, 1.44762]:
\n\nplot([seq([n, Fall[n]], n = 1..20)],\n        1 .. 20, 0 .. 5);\n
\n(Fall[6] - Fall[5]) / 0.02;\n" }}}}{MARK "1 0 0" 401 }{VIEWOPTS 1 1 
0 1 1 1803 }