# diagnostics of matrix

mapari=!translate $\
$ to ; in $ma

diag=!exec pari ma=[$mapari];if(ma!=ma~,print("non_symmetric "));\
	b=round(ma*ma~);if(b!=matid($dim),print("non_orthogonal "));\
	d=round(matdet(ma));if(d!=-1,print("bad_det "));


