var spikes[1000],x,n,y,z,u,anzahl,size;
' this shitty script calculates the PSTH values for several event channels and copies t hem to the LOGfile
' because spike2 can't do that, only 1 (!) stimulus can be measured!! n=1!!!!
' Channels 1 -10
u:=input("give start time of PSTH",0);
anzahl:=input("give end of PSTH",100);
size:=input("give Binwidth in ms",10);
size:=size/1000;

anzahl:=(anzahl-u)/size;

for x:=0 to anzahl do

for n:=1 to 10 do ' these are the channel numbers
y:=Count(n,z+u,z+u+size);
spikes[x]:=spikes[x]+y;

next;
'Printlog(spikes[1],",",spikes[2],",",spikes[3],",",spikes[4],",",spikes[5],",",spikes[6],",",spikes[7],",",spikes[8],",",spikes[9],",",spikes[10]);
Printlog(spikes[x]);

z:=z+size;
next;