monitu 制作人工散斑模拟图

制作人工散斑模拟图，很实用，可直接实用。

% 模拟散斑图
function [imagefimageh]=monitu（uvuxuyvxvyszxszynumsR）
% u=0;v=0;ux=0;vx=0; uy=0;vy=0;              %变形参数
X=unifrnd（1szx1nums）;
Y=unifrnd（1szy1nums）;
ik=round（unifrnd（010001nums））;
%%%%%%%%%%%%%%%%速度显示条程序段1%%%%%%%%%%%%%%%%%
steps=szy;
if steps<=0
    steps=1;
end
hwait=waitbar（0‘请等待>>>>>>>>‘）;
step=steps/100;
%%%%%%%%%%%%%%%%速度显示条程序段1%%%%%%%%%%%%%%%%%
for ii=1:szy
    for jj=1:szx
     image1（1）=0;
     image2（1）=0;
        for i=1:nums
           image1=image1+ik（i）*exp（-（（ii-X（i））^2+（jj-Y（i））^2）/R^2）;
           image2=image2+ik（i）*exp（-（（ii-X（i）-v-vx*X（i）-vy*Y（i））^2+（jj-Y（i）-u-ux*Y（i））^2-vy*Y（i））/R^2）;
        end

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     文件        1417  2010-01-06 16:49  monitu.m