Приложение

Функция, реализующая выбранную модель спектра монохроматического источника излучения:

function [Array] = modelSpectrum(l,dl)

Array = zeros(1, 4000);

i = 1;

for L = 0:1:4000

inspectrum = exp( -(((L - l)^2) / (dl^2)));

Array(i) = inspectrum;

i = i+1;

end;

Imax = max(Array);

Imin = min(Array);

end;

Функция-вызов:

l = 3600;

dl = 80;

spectrum = modelSpectrum(l, dl)

Fur = fft(spectrum);

IFur = fftshift(Fur);

St_kog = abs(IFur);

IFur = real(IFur);

hold on;

plot([1960 : 1 : 2040], IFur(1960:2040));

plot([1960 : 1 : 2040], St_kog(1960:2040), 'r');

Список литературы

1. Гуров И.П. Оптическая когерентная томография: принципы, проблемы и перспективы // Проблемы когерентной и нелинейной оптики. Под ред. Гурова И.П. и Козлова С.А. СПб.: СПб ГУ ИТМО, 2004 – С. 6-30.

2. Прикладная физическая оптика: учеб. пособие для студентов инж.-физ. и опт. спец. вузов / Москалев В.А., Нагибина И.М., Полушкина Н.А., Рудин В.Л.; Под общ. ред. Москалева В.А. - СПб.: Политехника, 1995 – 528 с.

3. Бутиков Е.И. Оптика. М: Высшая школа, 1986 – 515 с

4. Когерентно-оптические методы в измерительной технике и биофотонике: Учебное пособие / Под редакцией В.П. Рябухо и В.В. Тучина. - Саратов: Сателлит, 2009. - 127 с.