{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 "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 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 }{PSTYLE "N
ormal" -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 "Maple Output" 0 11 1 
{CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 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 749 "PROGRAM:  SpikeData\nC
ALLING SEQUENCE:  SpikeData(data)\nPARAMETERS:\n     data - a list of \+
real numbers\nSYNOPSIS:\n     -  This program takes a list of data val
ues representing the outcomes of a series of\n         experiments, an
d returns the distribution list representing these outcomes and\n     \+
    the fraction of the time they occurred (e.g., their experimental p
robabilities).  The\n         returned list is in a form acceptable as
 the first parameter being passed to the\n         programs \"Spikegra
ph[distributionlist, xmin, xmax].\"  (See also \"Spikegraph\".)\nRETUR
NED VALUES:\n     -  a distribution list representing the outcomes, an
d their probabilities, in data\nLOCATION:\n     Folder:  Important Pro
grams\n     File:  \"SpikeData.ImpProgs.map\"\n\n" }}{PARA 0 "> " 0 "
" {MPLTEXT 1 0 614 "SpikeData:=proc(data)\n\011local sorteddata,i,olis
t,plist,current,j,temp,distributionlist:\n\011olist:=sort(convert(conv
ert(data,set),list)):  \n\011sorteddata:=sort(data):\n\011plist:=[seq(
0,j=1..nops(olist))]:  current:=1:  \n\011for i from 1 to nops(data) d
o\n\011\011if op(i,sorteddata)=op(current,olist)\n\011\011\011then\n
\011\011\011\011temp:=op(current,plist):\n\011\011\011\011plist:=subso
p(current=temp+1,plist):\n\011\011\011else\n\011\011\011\011current:=c
urrent+1:\n\011\011\011\011temp:=op(current,plist):\n\011\011\011\011p
list:=subsop(current=temp+1,plist)\n\011\011fi:\n\011od:\n\011plist:=m
ap(proc(x,data) evalf(x/nops(data)) end,plist,data):\n\011distribution
list:=zip(proc(x,y) [x,y] end,olist,plist):\n\011distributionlist:\nen
d:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "SpikeData([4,3,5,4]);
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%7$\"\"$$\"+++++D!#57$\"\"%$\"+++
++]F(7$\"\"&F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}
{MARK "2 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }