%
%
%
%
%

fid1=fopen(fi);

dat1=textscan(fid1,'%f');
dat2=dat1{:};
dat3=reshape(dat2,42,length(dat2)/42);

r=logspace(1.25,250,32);

PSD=dat3(1:32,:)';


fclose all;

clearvars fid1 dat*
