//TRACCIA: scrivere uno script che data in input una matrice di dimensione 
//nxn richiami una apposita funzione (diversa dalla funzione diag di scilab) 
//che restituisca la diagonale principale di una matrice. Viausalizzare la 
//diagonale estratta e disegnare il grafico della diagonale rispetto ad un vettore 
//di ascisse generato (ad esempio tramite la funzione linspace)

//Soluzione 1
function [y] = estraiDiagonale (x)
	[nr,nc]=size(x)
	y = []
	for i=1:nr
	 for j = 1:nc
		if (i == j) 
		  y(i) = x(i,j)
		end
	 end
	end
endfunction


//Soluzione 2
function [y] = estraiDiagonale2 (x)
	[nr,nc]=size(x)
	y = []
	for i=1:nr
	  y(i) = x(i,i)
	end
endfunction



A=[ 1 2 3 4; 5 6 7 8; 9 10 11 12; 13 14 15 15]
d = estraiDiagonale2(A)
disp(d)
x = linspace(1,10,4)
plot2d(x,d)