%This function plots raster plots of activity on each cell for single
%trial datasets
function Rasterize(spks,time_vec,spk_nums,time_win),

spks;       %Logical matrix of spikes from array
time_vec;   %Time vector associated with spks
spk_nums;   %Vector of [First_Cell Last_Cell] to display
time_win;   %Vector of [Start_Time Stop_Time] to display

%Create figure and turn hold on
figure(1);
hold on;

%Find indexes of times to be displayed
tmp = find((time_vec >= time_win(1)) & (time_vec <= time_win(2)));	
start = tmp(1);
stop = tmp(length(tmp));

%Plot raster plot for desired cells
for j = spk_nums(1):spk_nums(2),
    
    plot(time_vec(start:stop),j*spks(start:stop,j),'b.','Markersize',4);
    
end;

xlabel('Time (ms)');
ylabel('Pad #');
title('Raster Plot of Responses Over Entire Array vs. Time');
axis([time_vec(start) time_vec(stop) spk_nums(1)-0.5 spk_nums(2)+0.5]);