function [] = piirto1(f)
%Arvojen f(z) piirtelyä. Kutsu
%
%piirto1('z.^2')

zfig=figure;hold on,axis equal 	%avaa kuvaikkunan
set(zfig,'units','normalized','outerposition',[0 0.2 0.5 0.6])
title('z-plane')

M=3;axis([-M M -M M])		%säätää kuvaikkunaa
t=linspace(0,2*pi,100);T=exp(1i*t);plot(T)	%piirtää yksikköympyrän
xaxis=linspace(-M,M,3)+1i/10^5;plot(xaxis,'k')	%piirtää x-akselin
yaxis=1i*xaxis;plot(yaxis,'k')			%piirtää y-akselin
title('z-plane')

ffig=figure;hold on,axis equal 	%avaa kuvaikkunan
set(ffig,'units','normalized','outerposition',[0.5 0.2 0.5 0.6])
plot(T,'r'),plot(xaxis,'k'),plot(yaxis,'k')
title('f-plane')

figure(ffig),figure(zfig)
clear z, clear fz
for k=1:10
g=ginput(1);
z(k)=g(1)+1i*g(2);
plot(z(k),'b*')
end

fz=eval(f);
figure(ffig)
plot(fz,'r*')


end

