clc
close all
clear all
fs = 10000;         %Abtastrate
t1 =  0:1/fs:1;
t_futr = 16e-3;     %Zeitverschiebung nach rechts
h2 =        20;     %Sprunghöhe
w_rec=   20e-3;     %Laenge/Dauer des Rechtecks
x1rectangle =   rectpuls(t1-t_futr,w_rec)*h2;
%Sinus
h1          =   0.5;%Amplitude
f_sine      =   400;%Frequenz Sinus
x2sine      =   h1*sin(2*pi*f_sine*t1);
x2     =   x2sine+x1rectangle;
%e function
tau =   0.001;
x3 =   exp(-(t1-(t_futr)/2)/tau);  %
%Gesamt
x4 =   (x3)+x2;
plot(t1,x3,'b'); hold on;
plot(t1,x4,'r');
axis([0 0.04 -0.5 30])
xlabel('Time (sec)')
ylabel('Amplitude')
title('Pulse')