% ##################################################################################
% ##  Loesung:  Komplexwertige Exponentialfolge                                   ##
% ##  --------------------------------------------------------------------------  ##
% ##  Benoetigte(s) m-File(s):  lgenexp.m                                         ##
% ##################################################################################

% #####  Teilaufgabe a:  komplexe Exponentialfolge erzeugen  #####
z0 = 0.9*( cos(pi/4) + j*sin(pi/4) );
[x,k] = lgenexp(z0, 0, 21);

figure; stem(k,real(x)); xlabel('k'); ylabel('Amplitude'); title('Realteil'); grid;
figure; stem(k,imag(x)); xlabel('k'); ylabel('Amplitude'); title('Imaginaerteil');
grid;

% #####  Teilaufgabe b:  Imaginaerteil ueber Realteil  #####
z0 = 0.9*( cos(pi/4) + j*sin(pi/4) );
x = lgenexp(z0, 0, 21 );

figure; plot(x); grid; xlabel('Realteil'); ylabel('Imaginaerteil');
title('Phi = 45 [Grad]');
% #####  EOF  #####