diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2013-09-17 17:42:22 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2013-09-17 17:42:22 -0400 |
| commit | 41ca145d491d09549f27bc16cbb45a84eda3fd6b (patch) | |
| tree | f1b299257f7d74e8063f7d55bc43cf0f355dba2d /cavity_design.m | |
| parent | 7217fc6411a1bc1951d4061014fea634aff627a7 (diff) | |
| download | mode_match-41ca145d491d09549f27bc16cbb45a84eda3fd6b.tar.gz mode_match-41ca145d491d09549f27bc16cbb45a84eda3fd6b.zip | |
using mirrors as optics elements
Diffstat (limited to 'cavity_design.m')
| -rw-r--r-- | cavity_design.m | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/cavity_design.m b/cavity_design.m index f8b8bcd..7bddf35 100644 --- a/cavity_design.m +++ b/cavity_design.m @@ -27,7 +27,7 @@ lambda = 795e-9; % follow figure 4: elements goes as d1, f1, d3, f2 % where f1 and f2 lens mirror equivalent with f_i=R_i/2 -abcd_cavity = abcd_lens(R2/2)*abcd_free_space(d2)*abcd_lens(R1/2)* abcd_free_space(d1); +abcd_cavity = abcd_mirror(R2)*abcd_free_space(d2)*abcd_mirror(R1)* abcd_free_space(d1); % spelling out abcd coefficients A = abcd_cavity(1,1); @@ -62,11 +62,11 @@ z0 = mod(z0,Ltot); q0=wr2q(w0, inf, lambda); %Calculate initial q % time to build the optics set -lns1.abcd=abcd_lens( R1/2 ) ; -lns1.x = d1; -lns2.abcd=abcd_lens( R2/2 ) ; -lns2.x = d1+d2; -optics={lns1,lns2}; +mirror1.abcd = abcd_mirror( R1 ) ; +mirror1.x = d1; +mirror2.abcd = abcd_mirror( R2 ) ; +mirror2.x = d1 + d2; +optics={mirror1, mirror2}; % display properties setup lens_width = .03; %Lens width @@ -81,5 +81,5 @@ zfinal = Ltot; qfinal = gbeam_propagation(zfinal, q0, z0, optics); % show beam in the resonator -[waste_at_the_end, radius_at_the_end, waist_at_lens_position] = solution_visualization(qstart,zstart, qfinal, zfinal, optics, lambda, lens_width, display_prop) +[waste_at_the_end, radius_at_the_end, waist_at_mirrors] = solution_visualization(qstart,zstart, qfinal, zfinal, optics, lambda, lens_width, display_prop) |