
function demoII

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

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

[orientamento,inclinazione,dati]=dati_radiazione;

grado=3;

for k=1:10
    dati_inclinazione_ksima=dati(k,:);
    coeffs=polyfit(orientamento',dati_inclinazione_ksima,grado);
    valore_orientamento60gradi(k)=polyval(coeffs,60);
    fprintf('\n \t inclinazione: %2.0f coeff. corr. %1.2f',...
        inclinazione(k),valore_orientamento60gradi(k));
end

fprintf('\n \n');

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

fid=fopen('dati_60gradi.txt','w');
for k=1:10
    fprintf(fid,'\n \t inclinazione: %2.0f coeff. corr. %1.2f',...
        inclinazione(k),valore_orientamento60gradi(k));
end
fclose(fid);