my_isreal.m

来自「基于Matlab」· M 代码 · 共 8 行

function x = my_isreal(a)

if norm(imag(a))<eps
   x=1;
else
   x=0;
end;