n_eff=1.46;??????????????%光柵有效折射率
L=0.01;????????????????????%光柵長度10mm;
m=1;?????????????????????%衍射階數
lambda_central=1550e-9;??%光柵中心波長
lambda=1e-9*linspace（154015601000）;????%波長范圍1540-1560，1000采樣點
K=5/L;???????????????????%耦合系數
theta=0;?????????????????%相移為0弧度???
F=[exp（-1i*theta）0;0exp（1i*theta）];
for?num=1:1000
????f=tansmit_fiber（LmKnumn_efflambdalambda_central）;??
????f=f*F;
????r（num）=f（21）/f（22）;
????R（num）=（abs（r（num）））^2;
end
plot（lambda*1e9R‘r‘）;
hold?on

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件???????1225??2018-04-03?16:17??tansmit_fiber.m

?????文件????????535??2018-04-03?16:52??RS.m

-----------?---------??----------?-----??----

?????????????????1760????????????????????2