function Y = ympyra(w)
% YMPYRA piirtää yksikköympyrän
% Kaytto:  ympyra(w)
%      w   (vektori)  kulman arvot radiaaneissa
%      Y   (vektori)  ympyrän pisteet

Y = exp(j*w);

figure(1), clf;
plot(real(Y), imag(Y));
grid on;
title('Yksikköympyrä');
xlabel('reaaliakseli');
ylabel('imaginaariakseli');
axis equal;
axis([-1.2 1.2 -1.2 1.2]);
