clear all; close all; clc;
A=[0.000010 0.115949
0.000020 0.115362
0.000030 0.115218
0.000040 0.115354
0.000050 0.115492
0.000060 0.115604
0.000071 0.115685
0.000082 0.115742
0.000094 0.115778
0.000106 0.115797
0.000120 0.115803
0.000134 0.115801
0.000149 0.115793
0.000165 0.115777
0.000182 0.115759
.000182+(.000182-.000165), .115759-(.115777-.115759)];
FS=(A(:,1)); %size=1385
n=0:0.227493;
nn=0:1E-5:0.227493;
XX=interp1(A(:,1),A(:,2),nn);
N=16;
R2=A(:,2);
X=fft(R2,N);
mX=abs(fftshift(X));
%fc=[0:FS/N:(FS-1)/N]; <--- what is this line??? Not using this, see next line
fc=FS/N;
loglog(fc,mX),grid