私は現在、次の本を研究しています:VidiSaptariによる「FourierTransformSpectroscopyInstrumentationEngineering」。私の質問は、本の付録Cのコードに基づいて、以下のコードに関連しています。以下のコードは、波数[cm-1] 5000、10000、および15000の3つの波のインターフェログラムを計算し、FFTを実行します。情報を取得します。スケーリングされていない出力の大きさは、1ではなく1600です。
clear;
% Sampling clock signal generation
samp_period_nm = 632.8 / 4; % sampling period in nm. 632.8 is the HeNe laser's wavelength
samp_period = 1 * samp_period_nm * 10^-7; % sampling period in cm.
scan_dist = 0.1; % mirror scan distance in cm.
no_elements = floor(scan_dist/samp_period);
x_samp = 0:samp_period:samp_period*no_elements; %Vector of clock signals in cm
xn_samp = x_samp .* (1 + rand(1, length(x_samp)));
v1 = 5000;
v2 = 10000;
v3 = 15000;
arg = 4 * pi * x_samp;
y = cos(arg*v1) + cos(arg*v2) + cos(arg*v3) ;
total_data = 2^18;
no_zero_fills=[total_data - length(y)];
zero_fills=zeros(1, no_zero_fills);
%triangular apodization
n_y = length(y);
points = 1:1:n_y;
tri = 1 - 1/(n_y) * points(1:n_y);
y = y.*tri; %dot product of interferogram with triangular apodization function
y = [y zero_fills]; %zero filling
% FFT operation
fft_y = fft(y);
% fft_y = fft_y / n_y;
% fft_y = fft_y * samp_period;
fft_y(1) = [];
n_fft=length(fft_y);
spec_y = abs(fft_y(1:n_fft/2)); %spectrum generation
nyquist = 1 / (samp_period * 4);
freq = (1:n_fft/2)/(n_fft/2)*nyquist; %frequency scale generation
figure();
plot(freq, spec_y); % plot of spectrum vs wave number
xlabel('Wavenumber [cm-1]');
ylabel('Intesity [V]');
ここで提案されているように、fft(fft_y)の結果にdt = samp_periodを掛けると、ピークは0.025になります。
同じリンクの2番目の解に従い、 fft_yをn_y(yの長さ)で割ると、大きさは0.25になります。
明らかに、私は何か間違ったことをしています。どんな助けでも大歓迎です。
ありがとう、