scandata.m

基于matlab的反演程序,用于地球物理勘探中射线追踪及偏移成像程序.

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