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
+
+