scandata.m

来自「基于matlab的反演程序,用于地球物理勘探中射线追踪及偏移成像程序.」· M 代码 · 共 2 行

function s= scandata(x)
%
%
  s = 0;
  j = 1;
 while( j<= length(x) )
  test = x(j);
  i = j;
 while( x(i) == test)
     i = i+1;
     if i>length(x)
	break;
     end
 end
   x(j), i-1
   j=i;
    s = [s i-1];
  end