1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
% ####### Setting beam parameters ################
lambda= 1.064E-6 ; % wavelength
Ltot= 1.010675025828971 ; % distance between initial and final waists
% initial beam parameters
x0= 0 ; % beam starting point
w0= 2.563E-5 ; % initial waist size
r0= 1.0E+100 ; % initial beam wavefront curvature radius
q0=wr2q(w0,r0,lambda); %Calculate intial q
% final/desired beam parameters
xf= Ltot; % final position
wf= 3.709E-5 ; % final waist size
rf= 1.0E+100 ; % final beam wavefront curvature radius
qf=wr2q(wf,rf,lambda); %Calculate final q
% placing lenses in between
lns1.abcd=abcd_lens( 0.075 ) ;
lns1.x= 0.21358727296049 ;
lns2.abcd=abcd_lens( 0.075 ) ;
lns2.x= 0.40361319425309 ;
lns3.abcd=abcd_lens( 0.203 ) ;
lns3.x= 0.80361319425309 ;
optics={lns1,lns2,lns3};
% display properties setup
lens_width = .03; %Lens width
show_lens_width = 1; %Set to 1 to enable display of lens width on solution propagation plot
show_lens_position = 1; %Set to 1 to enable display of position of center of lens on solution propagation plot
display_prop = [show_lens_width, show_lens_position];
% ##########################################
[waste_at_the_end, radius_at_the_end, waist_at_lens_position] = solution_visualization(q0,x0, qf, xf, optics, lambda, lens_width, display_prop)
|
