function z =ammu(A,c,R,r,N)
%Antaa kompleksiluvun alueesta A
%
%A kuva
%L leveys pikseleinä
%l korkeus
%c keskipiste
%R mittakaava leveys
%r mittakaava korkeus
%Kutsu:
%
%[z]=ammu(A,c,R,r,N);

[n,m]=size(A);
L=n-1;l=m-1;
image(rot90(A))
title('Alueenne')
xlabel('Reaaliakseli')
ylabel('Imaginaariakseli')
w=ginput(N);Z=[w(:,1) m-w(:,2)];
z=c+Z(:,1)/R+1i*Z(:,2)/r;
end

