function y=triangular(A,f,fa,N)

% y=triangular(A,f,fa,N)
% função que gera uma onda triangular periódica de período 1/f
% y: amostradas da onda triangular [o valor máximo de y é A/2 e mínimo é -A/2] 
% A: amplitude de pico-a-pico do sinal 
% f: frequência do sinal
% fa: frequência de amostragem (fa > 2f)
% N: número de períodos

n=fa/f; % número de períodos de amostras da onda triangular
Nb=round(n/4);
T=1/f;

t1=(0:Nb-1)/fa;
t2=(Nb:3*Nb-1)/fa;
t3=(3*Nb:4*Nb-1)/fa;

Ampl=2*A*f;
x1=-Ampl*t1;
x2=Ampl*(t2-T/2);
x3=-Ampl*(t3-T);

x=[x3 x1 x2];
%x=[x2 x3 x3-2];
% x=[x1 x2 x3];

y=kron(ones(1,N),x);