%Rutina para obtener graficas de tiempo discreto
k=[0:40];
A=3;
alpha=.9;
tetha0=pi/12;
hk=alpha.^k;
%fk=A*cos(tetha0*k);
hold
figure(22),stem(k,hk,'b')
hold
%figure(22),stem(k,fk,'r')
%gk=hk.*fk;
%figure(22),stem(k,gk,'k')