processamento di dati lidar per l'analisi dell'evoluzione ... - CO.RI.STA

4.2.12 Import_quote
%--function per importare i valori della densità alle varie quote---
function quote_60_m=import_quote(percorso,file_name);
% per poter aprire il file ottenuto dal programma ussa1976 è
% necessario:
% 1)Definire il percorso dal quale prendere il file
path = percorso;
% 2) Definire il nome del file
filename=file_name;
% 3) Concatenare percorso e nome
file_dati=[path,'\', filename];
% 4) Aprire il file
fid=fopen(file_dati,'r');
% 5) Importare i dati
dati=textscan(fid,'%f %f %f %f %f %f %f %f %f','headerlines',1);
% i diversi valori della densità alle varie quote sono:
q=dati(:,1);
quote=q{:};
quote_60_m=quote(2:end);
% 6) Chiudere il file
fclose(fid);
4.2.13 Trova_posiz
%--------function per la ricerca della quota di riferimento---------
function posizione=trova_posiz(a,x);
% x vettore nel quale effettuare la ricerca
% a elemento da trovare
% dimensioni del vettore
[r c]=size(x);
i=1;
while i