光纤激光器建模的matlab程序

利用matlab对光纤激光器进行建模，模拟光纤激光器的光谱特性

%===========================================================
%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