isvec.m

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

function flag = isvec( v )

%
% flag = isvec( v )
%
% returns 1 if min(size(v))==1 & length(v)>1
%   and   0 otherwise
%
% by G.F. Margrave, October 1993
%

	if( min(size(v))==1 & length(v) > 1 )
		flag = 1;
	else
		flag = 0;
	end