Code covered by the BSD License  

Highlights from
OSCAR

image thumbnail

OSCAR

by

 

08 Jul 2008 (Updated )

An optical FFT code to simulate Fabry Perot cavities with arbitrary mirror profiles

Example_Display_maps.m
clear all; close all; clear classes
addpath(genpath('Classes'));

disp('---------------------------------------------------------------------------')
disp('                  OSCAR V3.13                                      ')
disp('  ')


% Define the grid for the simulation: 256 X 256, 40 cm X 40 cm
G1 = Grid(800,0.4);

%--------------------------------------------------------------------------------------------
% Tips to check the look of the map loaded

% Create a dummy flat mirror
Dummy = Interface(G1,'RoC',Inf);

% Load the mirror map as a ZYGO.dat file
[Map_loaded, dx] = ReadZygoBinary('Example_ZYGO_data.dat');
figure(1)
imagesc(Map_loaded); axis square

% Add the loaded map to the flat mirror
Dummy = Add_map(Dummy,Map_loaded,'reso',dx,'remove_tilt_focus',0.250);

% Plot the map over a diameter of 25cm
figure(2)
I_plot(Dummy,'diam',0.25)

%-------------------------------------------------------------------------------------------
I_HR = Dummy;

% Do and display the PSD of the map
figure(3)
Plot_PSD(I_HR,'diam',0.25,'window_Gaussian',0.05,'rect_1D',true);

Contact us