diff options
| -rw-r--r-- | examples/answ.Diabolo2OPO_seed_profile.txt | 2 | ||||
| -rw-r--r-- | examples/answ.txt | 2 | ||||
| -rw-r--r-- | examples/answ.txt.example_with_coupling_mirror_taken_in_account | 2 | ||||
| -rw-r--r-- | gbeam_propagation.m | 2 | ||||
| -rw-r--r-- | gbeam_propagation_froward_only.m | 6 |
5 files changed, 7 insertions, 7 deletions
diff --git a/examples/answ.Diabolo2OPO_seed_profile.txt b/examples/answ.Diabolo2OPO_seed_profile.txt index 5e6488a..34f59a8 100644 --- a/examples/answ.Diabolo2OPO_seed_profile.txt +++ b/examples/answ.Diabolo2OPO_seed_profile.txt @@ -25,7 +25,7 @@ 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) +q_infront_of_mirror=q_after_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) diff --git a/examples/answ.txt b/examples/answ.txt index c1036f8..789bbd0 100644 --- a/examples/answ.txt +++ b/examples/answ.txt @@ -25,7 +25,7 @@ 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); +q_infront_of_mirror=q_after_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) diff --git a/examples/answ.txt.example_with_coupling_mirror_taken_in_account b/examples/answ.txt.example_with_coupling_mirror_taken_in_account index 5e6488a..34f59a8 100644 --- a/examples/answ.txt.example_with_coupling_mirror_taken_in_account +++ b/examples/answ.txt.example_with_coupling_mirror_taken_in_account @@ -25,7 +25,7 @@ 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) +q_infront_of_mirror=q_after_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) diff --git a/gbeam_propagation.m b/gbeam_propagation.m index cd7c47c..53f9173 100644 --- a/gbeam_propagation.m +++ b/gbeam_propagation.m @@ -30,7 +30,7 @@ function q = gbeam_propagation(x_pos, q_in, x_in, optics_elements) % with x_in i.e it is 0 in backwards x coordinates (or at index 1) then % we need to apply abcd matrix of that element in advance. if ( optics_elements_backw{i}.x == 0) - q_in_backw(1) = q_afteer_element( q_in_backw(1), optics_elements_backw{i}.abcd); + q_in_backw(1) = q_after_element( q_in_backw(1), optics_elements_backw{i}.abcd); end end diff --git a/gbeam_propagation_froward_only.m b/gbeam_propagation_froward_only.m index 612d30f..91cca20 100644 --- a/gbeam_propagation_froward_only.m +++ b/gbeam_propagation_froward_only.m @@ -28,14 +28,14 @@ function q = gbeam_propagation_froward_only(x_pos, q_in, x_in, optics_elements) el=optics_elements{k}; if ( (x_last_calc < el.x) && (el.x <= x_pos_i) ) abcd=abcd_free_space(el.x-x_last_calc); - q_last_calc=q_afteer_element(q_last_calc,abcd); - q_last_calc=q_afteer_element(q_last_calc,el.abcd); + q_last_calc=q_after_element(q_last_calc,abcd); + q_last_calc=q_after_element(q_last_calc,el.abcd); x_last_calc=el.x; endif endfor if (x_pos_i > x_last_calc); abcd=abcd_free_space(x_pos_i-x_last_calc); - q_last_calc=q_afteer_element(q_last_calc,abcd); + q_last_calc=q_after_element(q_last_calc,abcd); x_last_calc=x_pos_i; endif q(i)=q_last_calc; |