diff options
| author | evmik <evmik@ligo.mit.edu> | 2006-07-07 18:54:19 -0400 |
|---|---|---|
| committer | evmik <evmik@ligo.mit.edu> | 2006-07-07 18:54:19 -0400 |
| commit | 786b4e0ece4249b92058faff8d1ac85644ad99eb (patch) | |
| tree | 55ab0f80936784afea438e3e0827a21fca90dcb7 | |
| parent | e3155109853a3ce620ef3c9c1114b3ff6ec5b4de (diff) | |
| download | mode_match-786b4e0ece4249b92058faff8d1ac85644ad99eb.tar.gz mode_match-786b4e0ece4249b92058faff8d1ac85644ad99eb.zip | |
some minor fixes
darcs-hash:20060707225419-a6199-2433d7ba33da7da52c10f96758050d6dddae17a0
| -rw-r--r-- | answ.txt | 40 | ||||
| -rw-r--r-- | waste2waste.max | 2 |
2 files changed, 30 insertions, 12 deletions
@@ -1,14 +1,32 @@ +source("abcd.m") ########################################## lambda= 1.064E-6 -Ltot= z_col + space_between_wastes + dist2waste + 0.3 -r0= 1.0E+100 -w0= 3.0E-4 -lns1.abcd=abcd_lens( 0.025 ) -lns1.x= dist2first_lens -lns2.abcd=abcd_lens( 0.075 ) -lns2.x= space_between_wastes + dist2waste -lns3.abcd=abcd_lens( 0.7118 ) -lns3.x= space_between_wastes + dist2waste + 0.3 -wf= 3.709E-5 -rf= 1.0E+100 +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) ########################################## diff --git a/waste2waste.max b/waste2waste.max index d71c635..c431352 100644 --- a/waste2waste.max +++ b/waste2waste.max @@ -270,7 +270,7 @@ rsol:qffql2z1z2z3(q0,f1,f2,qf,ltotal-z_col)$ print("##########################################") )$ system("cat answ.txt")$ - system("xterm -e octave abcd.m") $ + system("xterm -e octave propagation.m") $ quit()$ |