v1030.m

来自「用matlab实现图像融合」· M 代码 · 共 29 行

%script v1030
while 1
  if or(x(k)==1,y(k)==1)|(v==4)
    break
  end
  xk1=x(k)-1;  yk1=y(k)-1; 
  if I(xk1,yk1)
    break
  end
  xk2=xk1+1;   yk2=yk1;
  if I(xk2,yk2)
    per=per+1;
    pr=pr+sqrt(2);
    if xk1==1
      per=per+1;
    else
      per=per+I(xk1-1,yk1);
    end
    if yk1==1
      per=per+1;
    else
      per=per+I(xk1,yk1-1);
    end
    k=k+1; v=8;
    x=[x xk1];  y=[y yk1];
  else
    break
  end
end