clc
clear
% Matrice
A=[1 0.5 0 -0.5; 0 -2 -0.5 1; 1.5 -0.5 4 0; -1 0 -1.5 3.5]
%Esegue la diagonale
Diagonale=diag (A)
% Azzera la diagonale
for k=1:(length(Diagonale))
    A(k,k)=0;
end
% Calcola il valore assoluto
A=abs(A);
% Trasposta
CerchiColonna=sum(A);
CerchiRiga=sum(A');
