added q -> waste and radius function

Ignore-this: 30856c0dad521880036a8822bed1c6c8

darcs-hash:20110414133519-067c0-b7aaa6d5a8842913d351fea89541117d83c47596

1 files changed, 6 insertions, 0 deletions

diff --git a/abcd.m b/abcd.m
index da68fc9..bc7466a 100644
--- a/abcd.m
+++ b/abcd.m
@@ -39,6 +39,12 @@ function radius =q2radius(q, lambda)
 	radius=(1./real(1./q));
 endfunction
 
+function [waste,radius] =q2wr(q, lambda)
+	waste=sqrt (-lambda./pi./imag(1./q));
+	radius=(1./real(1./q));
+endfunction
+
+
 function q=waste_r2q(waste,R,lambda)
 	q=1./(1./R-1i.*lambda./pi./(waste.^2));
 endfunction