blob: c1036f8a6de3866bf71f347e64a47ee4e7e3edfb (
plain)
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
|
source("abcd.m")
##########################################
lambda= 1.064E-6
Ltot= 0.55
r0= 1e100
w0= 0.00675
f1=0.1526;
lns1.abcd=abcd_lens( f1) ;
lns1.x= 0.2;
f2=0.019;
lns2.abcd=abcd_lens( f2) ;
lns2.x= lns1.x+ f1 + f2;
lns3.abcd=abcd_lens( 0.0629) ;
lns3.x= 0.500;
# befrore we calculate final waste we need to take in account propagation through the thick mirror
# since we try to match to the waste right in front of front coupling mirror
r_at_mirror=.01;
w_at_mirror=83.729e-6;
q_at_mirror=waste_r2q(w_at_mirror, r_at_mirror, lambda);
n_fused_cilica=1.44968;
R_of_mirror=.01;
mirror_thickness=6.35e-3;
f_of_mirrr_formed_lense=1/((n_fused_cilica-1)*(1/(-R_of_mirror)));
abcd_of_mirrr_formed_lense=abcd_lens(f_of_mirrr_formed_lense);
abcd_of_propagation_through_mirror=abcd_free_space(mirror_thickness/n_fused_cilica);
abcd_of_thick_mirror=abcd_of_propagation_through_mirror*abcd_of_mirrr_formed_lense;
# q right in front of front coupling mirror of the cavity
q_infront_of_mirror=q_afteer_element(q_at_mirror, abcd_of_thick_mirror);
wf=q2waste(q_infront_of_mirror,lambda)
# we need minus for rf since we will solve injection to the cavity problem
rf= - q2radius(q_infront_of_mirror,lambda)
##########################################
|
