%===========================================================
%define?fiber
%===========================================================

function?[f]?=?fiber（LKnnefflambdalambda_B）?%?L?is?the?grating?length;?K?is?the?coupling?coefficient
delta（n）?=?2*pi*neff*（1./lambda（n）?-?1./lambda_B）;?%?detuning?parameter?
s（n）?=?sqrt（K.^2?-?delta（n）.^2）;?%?intermediate?parameter?we?definedto?simplify?s11s12s21s22?

s11（n）?=?cosh（s（n）*L）?-?j*（delta（n）./s（n））*sinh（s（n）.*L）;
s12（n）?=?-j*（K/s（n））*sinh（s（n）*L）;
s21（n）?=?j*（K/s（n））*sinh（s（n）*L）;
s22（n）?=?cosh（s（n）.*L）?+?j*（delta（n）./s（n））*sinh（s（n）.*L）;

f?=?[s11（n）s12（n）;s21（n）s22（n）];%?function?f?is?a?2x2?matrix

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

?????文件??????17810??2011-10-21?00:15??fiber\4.11.png

?????文件????????679??2011-10-13?09:09??fiber\fiber.m

?????文件????????863??2011-10-18?23:25??fiber\laser1.m

?????文件????????675??2011-10-18?23:24??fiber\laser4.m

?????文件???????1480??2011-10-13?06:23??fiber\LPFG.m

?????目錄??????????0??2011-10-21?22:02??fiber

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

????????????????21507????????????????????6