%Es handelt sich dabei um intrazellulaere Messungen des 
%Membranpotentials eines Blutegelneurons. Es wurden 10 Antworten 
%dieser Zelle auf einen jeweils gleichen Reiz aufgezeichnet, einen 
%Strompuls, dessen Zeitverlauf (in nA) im mitgespeicherten Vektor 
%stimulus abgelegt ist. Das Neuron antwortet auf diesen Strompuls mit 
%einer Depolarisation des Membranpotentials, die mit sogenannten 
%"spikes" (Aktionspotentialen) ueberlagert ist. Die Daten wurden mit 
%einer Frequenz von 10000 Datenpunkten pro Sekunde aufgenommen. 
%Schreiben Sie ein Skript, um sich alle Antwortspuren gemeinsam mit 
%dem Zeitverlauf der Reizung anzusehen (das darf auch nacheinander sein 

load spikedaten_kurz
figure
plot(stimulus_kurz)
hold on
plot(daten_kurz')
figure
plot(daten_kurz(2,:))
Zeile2=daten_kurz(2,:);
a= find(Zeile2 >= -10);
v=[]
for n=1:1:length(a)-1
    if a(n+1)- a(n)>1
        v=[v,n]
    end
end
x=length(v)
