{VERSION 2 3 "APPLE_PPC_MAC" "2.3" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 1 12 255 0 0 1 0 1 0 
0 1 0 0 0 0 }{CSTYLE "Big Input" -1 256 "Courier" 1 12 255 0 0 1 0 1 
0 0 0 0 0 0 0 }{CSTYLE "" -1 257 "Geneva" 1 12 0 0 0 1 0 0 0 0 0 0 0 
0 0 }{CSTYLE "" -1 258 "Geneva" 1 12 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 259 "Geneva" 1 12 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" 
-1 260 "Geneva" 1 12 0 0 0 1 0 0 0 0 0 0 0 0 0 }{PSTYLE "Normal" -1 0 
1 {CSTYLE "" -1 -1 "Geneva" 1 10 0 0 0 1 2 2 2 0 0 0 0 0 0 }0 0 0 -1 
-1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 -1 
"Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 
0 -1 0 }{PSTYLE "" 2 6 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 
2 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plot" 0 13 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 }{PSTYLE "R3 Font 0" -1 256 1 {CSTYLE "" -1 -1 "Monaco" 
1 9 0 0 255 1 2 2 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }
{PSTYLE "R3 Font 2" -1 257 1 {CSTYLE "" -1 -1 "Monaco" 1 9 255 0 0 1 
2 2 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 256 "" 0 "" {TEXT 257 717 "PROGRAM:  Spikegraph\n
CALLING SEQUENCE:  Spikegraph(distributionlist, xmin, xmax, show)\nPAR
AMETERS:\n     distributionlist - a distribution list\n     xmin, xmax
 - real numbers\n     show - a Boolean variable (true or false)\nSYNOP
SIS:\n     - This program displays a graph of the distribution of x (w
here x has the\n        distribution given in distributionlist) by dra
wing a spike of height p(x) at each x.  If\n        show = true, this \+
graph is displayed.  Otherwise, the display is suppressed.            \+
                                Important note: only values of x which
 fall in the user-defined interval [xmin,  xmax] \n       will be incl
uded in the graph.   If not all values of x are included, and show = T
rue, " }}{PARA 256 "" 0 "" {TEXT 258 92 "       a warning is displayed
.  If show = False, no such warning will be given.  Also, note " }}
{PARA 256 "" 0 "" {TEXT 259 50 "       that the distribution list is o
f the form  " }}{PARA 256 "" 0 "" {TEXT 260 200 "                     \+
         [[x_1, p(x_1)], [x_2, p(x_2)], ..., [x_n, p(x_n)]].  \nRETURN
ED VALUES:\n     -  none\nLOCATION:\n     Folder:  Important Programs
\n     File:      \"Spikegraph.ImpProgs.map\"\n\n" }}{PARA 0 "> " 0 "
" {MPLTEXT 1 0 823 "\nSpikegraph:=proc(distributionlist,xmin,xmax,show
)\n\011local num,linelist,j,i,templist:\n\011templist:=[]:\n\011if ((d
istributionlist[1][1]<xmin) or \n\011    (distributionlist[nops(distri
butionlist)][1]>xmax)\n\011   ) then\n\011\011lprint(`Note:  some data
 values lie outside the user-defined interval.`)\n\011fi:\n\011for i f
rom 1 to nops(distributionlist) do\n\011\011if not((distributionlist[i
][1]<xmin) or (distributionlist[i][1]>xmax)) then\n\011\011\011templis
t:=[op(templist),\n\011\011\011           [distributionlist[i][1],\n
\011\011\011            distributionlist[i][2]\n\011\011\011          \+
 ]\n\011\011\011          ]:\n\011\011fi:\n\011od:\n\011num:=nops(temp
list):\n\011linelist:=[]:\n\011for j from 1 to num do\n\011\011linelis
t:=[op(linelist),[templist[j][1],0]]:\n\011\011linelist:=[op(linelist)
,[templist[j][1],templist[j][2]]]:\n\011\011linelist:=[op(linelist),[t
emplist[j][1],0]]:\n\011od:\n\011if show then plot(linelist,style=LINE
) fi;\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 65 "Spikegraph([
[1,1/3],[2,1/3],[3,1/6],[4,1/12],[5,1/12]],1,4,true);" }}{PARA 6 "" 1 
"" {TEXT -1 62 "Note:  some data values lie outside the user-defined i
nterval." }}{PARA 13 "" 1 "" {INLPLOT "6$-%'CURVESG6$7.7$$\"\"\"\"\"!F
*7$F($\"1LLLLLLLL!#;F'7$$\"\"#F*F*7$F0F,F/7$$\"\"$F*F*7$F4$\"1nmmmmmm;
F.F37$$\"\"%F*F*7$F:$\"1LLLLLLL$)!#<F9-%'COLOURG6&%$RGBG$\"#5!\"\"F*F*
-%&STYLEG6#%%LINEG" 2 254 254 254 6 0 1 0 2 9 0 4 2 1.000000 
45.000000 45.000000 10010 0 10056 10074 0 0 0 20030 0 12020 0 0 0 0 0 
0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 }}}}{MARK "1 2 0" 0 }{VIEWOPTS 1 1 0 1 
1 1803 }