1 files changed, 5 insertions, 0 deletions
diff --git a/wr2q.m b/wr2q.m
new file mode 100644
index 0000000..50b2ad7
--- /dev/null
+++ b/wr2q.m
@@ -0,0 +1,5 @@
+function q=wr2q(waste,R,lambda)
+% convert Gaussian beam waste and radius to q parameter
+	q=1./(1./R-1i.*lambda./pi./(waste.^2));
+endfunction
+