From 3bcd281d73cc58184664e0fe4e16cc5888d82692 Mon Sep 17 00:00:00 2001 From: evmik Date: Mon, 10 Jul 2006 15:13:57 -0400 Subject: Added code to solve waise parameters of the cavity darcs-hash:20060710191357-a6199-8087f094f9bb07466a82c4da5412e3ac9928a8d6 --- cavity_q_parameter_at_mirror.example.m | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 cavity_q_parameter_at_mirror.example.m (limited to 'cavity_q_parameter_at_mirror.example.m') diff --git a/cavity_q_parameter_at_mirror.example.m b/cavity_q_parameter_at_mirror.example.m new file mode 100644 index 0000000..60a0d8e --- /dev/null +++ b/cavity_q_parameter_at_mirror.example.m @@ -0,0 +1,18 @@ +source("abcd.m") +source("cavity.m") + +lambda=1.064e-6 +R1=.01 +R2=.01 + +cavity_abcd = abcd_lens(R1/2) * abcd_free_space(.007) * abcd_free_space(.01/1.8) * abcd_free_space(0.0036) + +global A = cavity_abcd(1,1) +global B = cavity_abcd(1,2) +global C = cavity_abcd(2,1) +global D = cavity_abcd(2,2) + +q_at_mirror=find_q_at_the_mirror(1/R1+3i) +q2waste(q_at_mirror,lambda) +q2radius(q_at_mirror,lambda) + -- cgit v1.2.3