
function [spar] = sparsi(m)

% ingressi 
% m: il modello in forma idmodel risultato della identificazione
% uscite
% spar = percentuale fdt nulle


n_fdt_nul = 0; 
[r_tmp c_tmp] = size(m.b);

% % % conto righe nulle E quasi nulle:
% % for z=1:r_tmp        % scorro le righe
% %     if max(abs(Mnpf.b(z,:))) <= TOLL % se il coeff max e' piu' piccolo di TOLL=> si considera fdt quasi nulla 
% %         n_fdt_quasi_nul = n_fdt_quasi_nul + 1;
% %     end
% % end

% conto righe nulle:
for z=1:r_tmp      
    if m.b(z,:) == 0
        n_fdt_nul = n_fdt_nul + 1;
    end
end
% v = find(m.nb); % stampa l'indice delle fdt diverse da zero



% per calcolare la percentuale di sparsita' delle fdt
spar = (n_fdt_nul/r_tmp)*100; % percentuale sparsità
