function eplot(FileName)

size = 6;
AspectRatio=0.5;

FileName
File = strcat(FileName,'.dat');
Matrix = load(File);

FileCR = strcat(FileName,'.dat_CR');
CR = load(FileCR);

CR(1,1) 
CR(1,2)

%figure(1)  
%set(1)

figure

plot(Matrix(:,1),Matrix(:,2),'.','color','blue','MarkerSize',size)  %6


%h = gca
%get(h)


pbaspect('manual')
pbaspect([1,AspectRatio,1]);
pbaspect

%axis([min(Matrix(:,xIndex)),max(Matrix(:,xIndex)),...
%	 min(Matrix(:,yIndex)),max(Matrix(:,yIndex))])

hold on

plot(CR(:,1),CR(:,2),'+','color','red','MarkerSize',10)

hold off

grid on

%get(1)
