iscomplex.m

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

function flag=iscomplex(matrix)
% ISCOMPLEX: logical test for presence of complex numbers
%
% flag=iscomplex(matrix)
%
% returns 1 if any elements of the input matrix are complex. 
% returns 0 otherwise. This is exactly one line:
% flag=any(any(imag(matrix)));
%
% G.F. Margrave October 1993

flag = any(any(imag(matrix)));