1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93
| clear all
close all
clc
%np=1.418;
N=0;
M=0;
P=0;
W0=5.25;
lam=0.6328;
W0ld=2.2;
indice=zeros(10,1);
indice(1)=1.40;
indice(2)=1.41;
indice(3)=1.42;
indice(4)=1.43;
indice(5)=1.44;
indice(6)=1.45;
indice(7)=1.46;
indice(8)=1.47;
indice(9)=1.48;
indice(10)=1.49;
R=zeros(16,1);
R(1)=25;
R(2)=26;
R(3)=27;
R(4)=28;
R(5)=29;
R(6)=30;
R(7)=31;
R(8)=32;
R(9)=33;
R(10)=34;
R(11)=35;
R(12)=36;
R(13)=37;
R(14)=38;
R(15)=39;
R(16)=40;
Z=zeros(100,1);
Z(1,1)=20;
for M=2:1:100
Z((M),1)=Z((M-1),1)+5;
end
for N=1:1:10
for P=1:1:16
% for Z=20:5:150
% M=1:1:((150-20)/5);
for M=1:1:100
%Z((M+1),1)=Z((M),1)+5;
%end
% R(M,P,N)=R(P);
np(N)=indice(N);%np=1.418;
f(M,P,N)=R(P)./((np(N))-1);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% CALCULE DE PROPAGATION
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Propagation dans une distance z d'indice n
lamp(N)=lam./np(N);
Zr=pi*W0.^2./lamp(N);
%Z=100;
W1(M,P,N)=(W0.^2*(1+Z(M).^2./Zr.^2)).^0.5;
R1(M,P,N)=Z(M)+Zr.^2/Z(M);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Propagation a travers une lentille mince
W2(M,P,N)=W1(M,P,N);
R2(M,P,N)=1./((1./R1(M,P,N))-(1./f(M,P,N)));
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% le nouveau Waist W et la distance de travail
W01(M,P,N)=W2(M,P,N)./(1+(pi.*W2(M,P,N).^2./(lam.*R2(M,P,N))).^2).^0.5;
Z01(M,P,N)=-R2(M,P,N)./(1+(lam.*R2(M,P,N)./(pi.*W2(M,P,N).^2)).^2).^0.5;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% couplage lentille et faisceau gaussienne
w0lens(M,P,N)=W01(M,P,N);
Nu(M,P,N)=2.*(w0lens(M,P,N).*W0ld)./(w0lens(M,P,N).^2+W0ld.^2);
Perte(M,P,N)=-10*log(Nu(M,P,N)) ;
end;
end;
end; |
Partager