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