From 41ca145d491d09549f27bc16cbb45a84eda3fd6b Mon Sep 17 00:00:00 2001 From: Eugeniy Mikhailov Date: Tue, 17 Sep 2013 17:42:22 -0400 Subject: using mirrors as optics elements --- cavity_design.m | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'cavity_design.m') 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) -- cgit v1.2.3