相移光纤光栅仿真程序
function PhaseFiber_by_TransmissionMatrix(Fai)
lamda=1e-9*linspace(1540,1560,1000);
R=Transmission_FBG2(Fai);
subplot(2,1,1)
plot(lamda*1e9,R);
title('相移光栅的反射谱线');
xlabel('波长 /nm');
ylabel('反射率');
grid on
subplot(2,1,2)
plot(lamda*1e9,1-R)
title('相移光栅的透射谱线');
xlabel('波长 /nm');
ylabel('透射率');
grid on
end
%-------------------------------------------第一段光栅-------------------------------------------------------
function [F1]=Transmission_FBG1(n,lamda,lamda_B,v,dn,n_eff,j)
delta=2*n_eff*pi*(1./lamda-1./lamda_B);
k=pi*dn/lamda_B;
q=sqrt(k.^2-delta.^2);
评论4