diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-04-13 11:10:28 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-04-13 11:10:28 -0400 |
| commit | e75e6f968d620fde5d5596092e6c6b0f2cc4aa94 (patch) | |
| tree | 687bdfc42ff71a588e2bfb7208df78747914c99e /propagation.m | |
| parent | 855e0053c56bbe2555e87b180f3bf3f3ecccf121 (diff) | |
| download | mode_match-e75e6f968d620fde5d5596092e6c6b0f2cc4aa94.tar.gz mode_match-e75e6f968d620fde5d5596092e6c6b0f2cc4aa94.zip | |
beam propagation function renamed and moved to separate files
Ignore-this: 972fa9dce2f57e8ddb1624bab32be1ed
darcs-hash:20110413151028-067c0-a7e6d0c98e2856fdff930d4bf3216056eb937367
Diffstat (limited to 'propagation.m')
| -rw-r--r-- | propagation.m | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/propagation.m b/propagation.m index 35547f5..15d52c2 100644 --- a/propagation.m +++ b/propagation.m @@ -23,7 +23,7 @@ optics={lns1,lns2,lns3}; x=0:.001:Ltot; printf('======== Forward propagation ======\n') -q1=prop(x,q0,0,optics); +q1=gbeam_propagation(x,q0,0,optics); w1=q2waste(q1, lambda); r1=q2radius(q1,lambda); @@ -32,7 +32,7 @@ printf('======== Backward propagation ===\n') rf=-rf; q1b=waste_r2q(wf,rf,lambda); -q2b=prop(x,q1b,Ltot,optics); +q2b=gbeam_propagation(x,q1b,Ltot,optics); printf('=================================\n') wb=q2waste(q2b, lambda); rb=q2radius(q2b,lambda); @@ -48,7 +48,7 @@ r0 wf rf q0=waste_r2q(w0,r0,lambda); -qtf=prop(Ltot, q0,0, optics); +qtf=gbeam_propagation(Ltot, q0,0, optics); printf('values below should match wf and rf: \n') waste = q2waste(qtf, lambda) radius = q2radius(qtf,lambda) |