Построение треугольных импульсов

clear
clc
 
A = 1; % амплитуда
t = 1; % начало импульса
T = 8; % конец импульса
for tau = [t:T,T:-1:t] % slider.value
    plot([0 t tau T 10],[0  0 A  0  0]) % рисуем теругольник
    axis([0 10 -1 2])
    f = getframe;
end

 clear
clc
 
A = 1.5; % амплитуда
 
t = 1; % начало импульса
T = 8; % конец импульса
 for tau = [t:T,T:-1:t] % slider.value
    plot([0 t tau T 10],[0  0 A  0  0],[10 15 tau 20 20],[0  0 A  0  0]) % рисуем теругольник
    axis([0 20 -1 2])
    f = getframe;
end

clear
clc
 
A = 1.5; % амплитуда
 
t = 1; % начало импульса
T = 8; % конец импульса
dt = 12
for tau = [t:T,T:-1:t] % slider.value
    % рисуем теругольник
    plot([0 t tau T 10, dt dt+t dt+tau dt+T 2*dt],[0 0 A 0 0, 0 0 0.5*A 0 0])
    axis([0 2*dt -1 2])
    f = getframe;
end

clear
clc
 
A1 = 1; % амплитуда
A2 = 2;
 
t = 1; % начало импульса
T = 8; % конец импульса
dt = 12;
 
for tau = [t:T,T:-1:t] % slider.value
    x = [0 t tau T 10];
    y = [0 0 1 0 0];
    % рисуем теругольник
    plot([x,x+dt],[y*A1, y*A2])
    axis([0 2*dt -1 2])
    f = getframe;
end