zernike 泽尼克多项式仿真

泽尼克多项式仿真， 模拟大气湍流，k为与大气有关参数，以彩色曲线绘制

clear;
clc;

D=0.3;
r0=0.1;
x = -1:0.0025:1;
[XY] = meshgrid（xx）;
[thetar] = cart2pol（XY）;%直角坐标系与极坐标系相互转化
idx = r<=1;
z= nan（size（X））;%确定像差对称显示平面
N=32;%%%%%%%%%%%ZERNIKE多项式的项数
figure;
k=1;
  for       n=1:N;
   for      m=0:n;
          if （m<=n）&&（mod（n-m+12））&&（k<=N）;
              nm（::k）=[n m];
              z（idx）= zernfun（nmr（idx）theta（idx））;
              zern（::k）=z;
              k=k+1;
           
              nm（::k）=[n m];
              z（idx）= zernfun（n-mr（idx）theta（idx））;
              zern（::k）=z;
              k=k+1;
          
          end   
   end
  end
  k=k-1;
  for i=1:k;
      j=1:k;
                            %if（abs（nm（12i））==abs（nm（12j）））;%%%%%%%%%%%%%%%%%%%%%%.*delta（nm（12i）nm（12j））
                 

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     文件        2054  2013-01-13 10:25  zernike.m