//TRACCIA: Scrivere un file script che data in input una matrice 
//          1) verifichi che la matrice sia una matrice quadrata. Se la matrice non e' quadrata evidenzi un caso di errore
//          2) se la matrice e' quadrata chiami una funziona appositamente scritta che estragga la diagonale principale della matrice, la memorizzi in una lista e la restituisca al programma chiamante
//          3) si calcoli quindi la somma degli elementi nella diagonale e la si faccia visualizzare all'utente.

function L=estraiDiagonalePrincipale(Matrix)
  [m,n]=size(Matrix)
  L = list()
  
  for i=1:n
      L(i) = Matrix(i,i) 
  end
endfunction


M = [1 2 3; 4 5 6; 7 8 9]
[m,n] = size(M) 
totalDiag = 0

if m <> n
  disp("ERRORE, la matrice non è quadrata")
else
  ListDiag=estraiDiagonalePrincipale(M)
  
  disp("Diagonale")
  disp(ListDiag)
  
  for i=1:size(ListDiag)
    totalDiag = totalDiag + ListDiag(i)
  end
  
  disp("Somma Elementi Diagonale")
  disp(totalDiag)
end