function impout = impulse(strength, duration)
global samprate;

% An impulse with the given strength and duration in seconds.
% impulse(s,d)(1)=s, impulse(s,d)(i+1)=0.

impout = zeros(1, duration*samprate);
impout(1) = strength;

% End definition of impulse
