From bb84d84867c98e4aabc2347d5679274cd1726f59 Mon Sep 17 00:00:00 2001
From: Eugeniy Mikhailov <evgmik@gmail.com>
Date: Thu, 14 Apr 2011 09:49:14 -0400
Subject: removed functions which koined into one

Ignore-this: 4b7e57e0970990acac4e5c7ad818d6ae

darcs-hash:20110414134914-067c0-6b4daa366bdda162df3598f5bf33fa541fdf6876
---
 abcd.m | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/abcd.m b/abcd.m
index bc7466a..4b4739e 100644
--- a/abcd.m
+++ b/abcd.m
@@ -31,21 +31,16 @@ end
 
 
 
-function waste =q2waste(q, lambda)
-	waste=sqrt (-lambda./pi./imag(1./q));
-endfunction
-
-function radius =q2radius(q, lambda)
-	radius=(1./real(1./q));
-endfunction
 
 function [waste,radius] =q2wr(q, lambda)
+% convert Gaussian beam q parameter to waste and radius
 	waste=sqrt (-lambda./pi./imag(1./q));
 	radius=(1./real(1./q));
 endfunction
 
 
 function q=waste_r2q(waste,R,lambda)
+% convert Gaussian beam waste and radius to q parameter
 	q=1./(1./R-1i.*lambda./pi./(waste.^2));
 endfunction
 
-- 
cgit v1.2.3