% geração de funções degrau unitário e delta de Dirac (impulso unitário),
% a partir das funções f índice k e g índice k

clc
clearvars
close all

% variáveis
ls=10;
k=5; % 5 (início), 0.5 e 0.05 (final)
s=linspace(-ls,ls,500);

% função fk
fk=stepfun(s,k/2);
fk=fk+((s/k)+0.5).*(stepfun(s,-k/2)-stepfun(s,k/2));

% função gk
gk=zeros(1,length(s));
gk=gk+(1/k)*(stepfun(s,-k/2)-stepfun(s,k/2));

% visualização
figure(1)
subplot(2,1,1)
plot(s,fk,'b')
hold on
plot([0 0],[0 1*1.1],'k-')
hold off
axis([-ls,ls,0,1*1.1])
grid on
title('Função f_k')
grid on
subplot(2,1,2)
plot(s,gk,'r')
hold on
plot([0 0],[0 (1/k)*1.1],'k-')
hold off
axis([-ls,ls,0,(1/k)*1.1])
grid on
title('Função g_k')
grid on