exm1.m

北京航空航天大学出版社张志涌、徐彦琴主编的matlab教程matlab_c文件程序压缩包

function y=exm1(A)
%exm1.m
[m,n]=size(A);
if m~=n;
	error('An input matrix should be n-by-n.')
end
r=rank(A);
if r==m
	disp('This matrix is nonsigular')
else
	disp('This matrix is sigular')
end