function [S] = cpulse(Is,Ts,Td,Ip,Tp)
%PULSE Creates a pulse
%   [S] = cpulse(Is,Ts,Td,Ip,Tp) this function creates a conditioned stimulation pulse.
%   The condition pulse has an intensity [Ip] and duration [Tp] and the stimulation pulse
%   is located at a delay of [Td] after the onset of the conditioned pulse. The stimulation
%   pulse has an intensity [Is] and duration [Ts].
S = [2 Is Ts Ip Tp Td 0];