{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 49 "Looking for Periodicity \+
-- CD and Casette Players" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "
" 0 "" {TEXT -1 80 "The cell below looks at a signal and the result of
 \"clipping\" the same signal.  " }{TEXT 256 15 "Evaluate it now" }}
{PARA 0 "" 0 "" {TEXT -1 1 "." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 162 "signal := t -> sin(2 * Pi * 440 * t):\nclipped := t -> max(-0.5
, min(0.5, signal(t))):\nplot(signal(t), t = 0..2/440, -1..1);\nplot(c
lipped(t), t = 0..2/440, -1..1);" }}}}{MARK "1 0 0" 143 }{VIEWOPTS 1 
1 0 1 1 1803 }