function [S] = expr(Is,TAU)
%EXPR Exponentially Rising Waveform
%   [S] = expr(Is,TAU)
S = [4 Is TAU 0 0 0 0];