new12

SCRIPT Snew12
function ok = snew(A)
B=A.';
ok=isequal(A,B);
end
COD new12
n=input('Ordinul matricii este:');
for i=1:n
    for j=1:n
        A(i,j)=input(['A(',num2str(i),',',num2str(j),')=']);
    end
end
ok=snew12(A);
if ok==1
    disp('Matricea A este simetrica fata de diagonala principala');
else
    disp('Matricea A nu este simetrica fata de diagonala principala');
end