%rutina para graficar en tiempo discreto una 
%exponencial real
alpha=.9;
k=[0:20];
xd=alpha.^k;
figure(2),stem(k,xd,'r')
hold on