From 621aff7d0168de6ae2f127e14edfde7d526baf69 Mon Sep 17 00:00:00 2001 From: Eugeniy Mikhailov Date: Thu, 14 Apr 2011 09:54:11 -0400 Subject: function renaming Ignore-this: f2170ad510bb6c590387dbc70f9fa6ec darcs-hash:20110414135411-067c0-dad8fdf4bfa010b2d8188dfb63a5e333de714a5c --- gbeam_propagation_froward_only.m | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'gbeam_propagation_froward_only.m') diff --git a/gbeam_propagation_froward_only.m b/gbeam_propagation_froward_only.m index 91cca20..5c7ea3a 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_after_element(q_last_calc,abcd); - q_last_calc=q_after_element(q_last_calc,el.abcd); + q_last_calc=q_after_abcd(q_last_calc,abcd); + q_last_calc=q_after_abcd(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_after_element(q_last_calc,abcd); + q_last_calc=q_after_abcd(q_last_calc,abcd); x_last_calc=x_pos_i; endif q(i)=q_last_calc; -- cgit v1.2.3