functions from abcd.m now in separate files

Ignore-this: 33d046a6087834ae6c896966261af8e3

darcs-hash:20110414140151-067c0-7ee6687ce86608989ad7b9b2b1db276c7c11dbc2

1 files changed, 7 insertions, 0 deletions

diff --git a/q2wr.m b/q2wr.m
new file mode 100644
index 0000000..9257448
--- /dev/null
+++ b/q2wr.m
@@ -0,0 +1,7 @@
+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
+
+