%% Pistetehtava 107
% Jukka Parviainen, 25.1.2012

%% Luodaan x[n]
n = [0 : 30];
r = 1;
omega = (-3/8)*pi;
theta = -pi;
x = r * exp(j*(omega*n + theta));

%% Piirretaan pohjalle r-sateinen ympyra
figure(1); clf
w = [0 : pi/256 : 2*pi];
y = r*exp(j*w);
plot(real(y), imag(y));
hold on;
grid on;
axis(r*[-1.1 1.1 -1.1 1.1]);
axis equal;
p1 = plot([0 0.001],[0 0]);
    
%% Piirretaan sekvenssin x[n] arvot yksitellen
for m=1:length(n)
    delete(p1);
    plot(real(x(m)), imag(x(m)), 'o');
    p1 = plot([0 real(x(m))],[0 imag(x(m))]);
    text(real(x(m))-0.1, imag(x(m))+0.1, ['x[' num2str(n(m)) ']']);
    disp(['n = ' num2str(n(m)) ', paina nappainta... Ctrl-C katkaisuun']);
    pause;
end;
