clear all

% Progammer delar in omr?det [xmin,xmax]x[ymin ymax] i N punkter i varje
% riktining. 
% Dessutom beraknar programmet avstandet fran varje punkt till origo och sparar
% detta i matrisen D. 

% Provkor programmet for N=3 och titta p? XX, YY, D for att forsta
% strukturen. 
% Notera att 

N=3;
xmin=-2;
xmax=2;
ymin=0;
ymax=4;
x=linspace(xmin,xmax,N);
y=linspace(ymin,ymax,N);
[XX,YY]=meshgrid(x,y);

for ii=1:N
    for jj=1:N
        D(ii,jj)=dist_fun(XX(ii,jj),YY(ii,jj));
    end
end

% Har ritas avstandet ut i en fargfigur. Sma avstand  - bla och stora -
% roda. 
figure(77)
subplot(2,2,1)
plot(XX,YY,'bo'),grid
subplot(2,2,2)
imagesc(x,y,D), axis xy % gor help imagesc 
colorbar