Example_Thick_lens.m

clear all; close all; clear classes
addpath(genpath('Classes'));

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


% Define the grid for the simulation: 128 X 128, 30 cm X 30 cm
G1 = Grid(512,0.3);

% Define the incoming beam (beam radius 2 cm, at the waist)
E1 = E_Field(G1,0.02);

% Define the biconvex convergent thick lens made of fused silica (n=1.45),
% the length of the substrate is 4 cm

% First surface RofC = 1000 m, 10 cm of aperture, transmission = 1
L1 = Interface(G1,-1000,0.10,1,0,1,1.45);
% Second surface RofC = 2000 m, 4 cm of aperture, transmission = 1
L2 = Interface(G1,2000,0.10,1,0,1.45,1);

E2 = Transmit_Reflect_Interface(E1,L1);
E2 = Propagate_E(E2,0.04);
E2 = Transmit_Reflect_Interface(E2,L2);

% Propagate then 200 m
E3 = Propagate_E(E2,200);

% Display the beam parameter
Fit_TEM00(E3);