激光锁模技术matlab程序代码

亲测可运行

function [Eftft]=Efft（Ett）
% 本程序对输入二维数组的列向量进行傅立叶变换；
%-----------------------------
% Ey—为输入空域电场强度；
% y—为输入y轴坐标变量；
% Efy为对y方向进行空间傅立叶变换后的输出值；
% fy—为空间频率向量；
%-------------------------------
% 王艳海，2010-11-23
nt=size（Et2）;   
T=t（nt）-t（1）;      
dft=1/T;            %空间频率分辨率
n=-nt/2:1:nt/2-1;
ft=n*dft;           %空间频率向量
Eft=fft（Etnt）; 
Eft=fftshift（Eft）;  %把零频率移至中间位置

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        480  2010-11-23 10:48  Mode_Locked\Efft.m

     文件        349  2010-11-23 10:48  Mode_Locked\Eifft.m

     文件        364  2010-11-23 10:51  Mode_Locked\fguassian.m

     文件       2977  2010-11-23 10:47  Mode_Locked\Main_Mode_Locked.m

     文件        323  2010-11-23 10:54  Mode_Locked\shah.m

     目录          0  2010-11-23 10:55  Mode_Locked

----------- ---------  ---------- -----  ----

                 4493                    6