clc
close all
clear
L=10000;%傳播距離m
c=3e8;%光速
% lamda = 4e-7;%4*10-7m----7*10-7m
A=1.4580;
B=0.00350e-12;
% n_lamda = A+B/lamda^2;
% dot2_n_lamda=6*B/lamda^4;
% k=2*pi/lamda;
a=0.14;%直徑
n1 = 1.4682;%?
n2=1.45;% 折射率 光纖
% V=k*a*sqrt(n1^2-n2^2);
% delta=n1/n2-1;
% b=1;%歸一化常數
beta=2e7;
% beta=n2*k*(delta*b+1);
% Sigma_lamda=20e-9;%光譜展寬1-40nm
lamda=linspace(4, 7, 20)/10^7;
% lamda=(4:7)/10^7;%4*10-7m----7*10-7m
% Sigma_lamda=(1:40)/10^9;%光譜展寬1-40nm
Sigma_lamda=linspace(1, 40, 20)/10^9;%光譜展寬1-40nm
delta=zeros(length(lamda),length(Sigma_lamda));
for i=1:length(lamda)
? ? for j=1:length(Sigma_lamda)
? ? ? ? lamda1=lamda(i);
? ? ? ? Sigma_lamda1=Sigma_lamda(j);
? ? ? ? sim('untitled.slx')
? ? ? ? delta(i,j)=yout(end);
? ? ? ? clear yout tout
? ? end
end
[x,y] = meshgrid(lamda,Sigma_lamda);
plot(1)
mesh(x,y,delta);
xlabel 波長
ylabel 光譜展寬
zlabel 脈沖寬度
set(gcf,'color','w');

總結

以上是生活随笔為你收集整理的光纤通信 波长 光谱展宽 脉冲宽度的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。