function [] =piirto2(f)
%Arvojen f(z) piirtelyä. Kutsu
%
%piirto2('exp(z)')

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')

L=100;
figure(ffig),figure(zfig)
clear z,clear fz
g=ginput(1);
w=g(1)+1i*g(2);
for k=1:10
g=ginput(1);
Z=g(1)+1i*g(2);
Rz=real(Z);Iz=imag(Z);
Rw=real(w);Iw=imag(w);
reals=linspace(Rz,Rw,L);
imags=linspace(Iz,Iw,L);
z=reals+1i*imags;
plot(reals,imags)
fz=eval(f);
Rfz=real(fz);Ifz=imag(fz);
figure(ffig)
plot(Rfz,Ifz,'r')
figure(zfig)
w=Z;
end


end

