flip1.m

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

%此函数实现数的倒排序
function y=flip1(x,N1)
y=x;
j=0;
for i=1:N1-1
    k=N1/2;
    while(k<=j)
      j=j-k;
      k=k/2;
    end
     j=j+k;
     if i<j
      g=j+1;
      h=i+1;
          temp=x(g);
          y(g)=x(h);
          y(h)=temp;
      end
  end