clear all;
% Golubkov Andrej
% Test 21.Mai,2004

l_gruen=545*10^(-9);
l_blau=439*10^(-9);
n0=1.52;

dat{1}=load('polar1.dat');
dat{2}=load('polar2.dat');
dat{3}=load('polar3.dat');

for i=1:3
	phi{i} = dat{i}(:,1)/180*pi;
	I{i} = dat{i}(:,2);
end

figure(1);clf;
p2=polar(phi{2},I{2},'rx-');

hold on;
p3=polar(phi{3},I{3},'rs-');
hold off;

hold on;
p1=polar(phi{1},I{1},'ro-');
hold off;

ax1=gca;
%set(ax1,'XLim',[0,2000])
%set(ax1,'YLim',[0,1800])

le1=legend([p1,p2,p3],'Zirkular polarisiert, U=1840V','Linear polarisiert, U=3550V','Ellyptisch polarisiert, U=1000V',1);
%xl1=xlabel('Spannung U / V');
%yl1=ylabel('Intensität I');
%ti1=title('Ueberlagerte Lorentz- Profile');

grid on;


b=min(sqrt(I{3}));
a=max(sqrt(I{3}));
dphi=2*atan(b/a);
r63=dphi*l_gruen/(1000*2*pi*n0^3)





