
function demoI

% Mediante il calcolo dei minimi quadrati di grado 3, da una tabella di
% coeff. di corr. si estraggono i dati per un inclinazione di 80 gradi

% caricamento dati da file
[orientamento,inclinazione,dati]=dati_radiazione;

% =========================================================================
% calcolo dei dati richiesti
% =========================================================================

grado=3;

for k=1:5
    dati_ksimacolonna=dati(:,k);
    coeffs=polyfit(inclinazione,dati_ksimacolonna,grado);
    valore_inclinazione80gradi(k)=polyval(coeffs,80);
    fprintf('\n \t orientamento: %2.0f coeff. corr. %1.2f',...
        orientamento(k),valore_inclinazione80gradi(k));
end

fprintf('\n \n');

% =========================================================================
% stampa dei risultati su file
% =========================================================================

fid=fopen('dati_80gradi.txt','w');
for k=1:5
    fprintf(fid,'\n \t orientamento: %2.0f coeff. corr. %1.2f',...
        orientamento(k),valore_inclinazione80gradi(k));
end
fclose(fid);


