diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-04-13 10:52:39 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-04-13 10:52:39 -0400 |
| commit | be8a8f187a4eb3b274a951e6b8c3290d228604c4 (patch) | |
| tree | d40589c8e1b9325ca3ccaa2aa55cafdebce420fe /examples/answ.Diabolo2OPO_seed_profile.txt | |
| parent | 5fd9b5510e7a00295e6e6184a2e73953a2b182ab (diff) | |
| download | mode_match-be8a8f187a4eb3b274a951e6b8c3290d228604c4.tar.gz mode_match-be8a8f187a4eb3b274a951e6b8c3290d228604c4.zip | |
moved examples to example directory
Ignore-this: 4a958f7faca1d5841bd9a139680aa847
darcs-hash:20110413145239-067c0-2fefe84aeeb8bcf493e3cafaee61ef483e2e2e2b
Diffstat (limited to 'examples/answ.Diabolo2OPO_seed_profile.txt')
| -rw-r--r-- | examples/answ.Diabolo2OPO_seed_profile.txt | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/examples/answ.Diabolo2OPO_seed_profile.txt b/examples/answ.Diabolo2OPO_seed_profile.txt new file mode 100644 index 0000000..5e6488a --- /dev/null +++ b/examples/answ.Diabolo2OPO_seed_profile.txt @@ -0,0 +1,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) +########################################## |