A=log(rand(3,3)) ;
if imag(A)==0 then disp('A is a real matrix '); end