From 506f80314ddd14d8229decffec01d3b06c39365b Mon Sep 17 00:00:00 2001
From: Charlotte Bond <czb@star.sr.bham.ac.uk>
Date: Fri, 21 Feb 2014 16:39:44 +0000
Subject: [PATCH] correction to allow negative mirror tuning
---
src/new/finesse/simulations/FT_finesse_beam_detection.m | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/src/new/finesse/simulations/FT_finesse_beam_detection.m b/src/new/finesse/simulations/FT_finesse_beam_detection.m
index 3875512..93e1288 100644
--- a/src/new/finesse/simulations/FT_finesse_beam_detection.m
+++ b/src/new/finesse/simulations/FT_finesse_beam_detection.m
@@ -49,7 +49,11 @@ function [beam] = FT_finesse_beam_detection(FT,katname,nodename,mirrorname,phi0,
outbl(nb+1) = FT_add_line_to_block(outbl(nb+1),sprintf('beam beam0 0 %s',nodename));
% Tune given mirror
- outbl(nb+1) = FT_add_line_to_block(outbl(nb+1),sprintf('func tuning = %16.8f',phi0));
+ if phi0>0
+ outbl(nb+1) = FT_add_line_to_block(outbl(nb+1),sprintf('func tuning = %16.8f',phi0));
+ else
+ outbl(nb+1) = FT_add_line_to_block(outbl(nb+1),sprintf('func tuning = 0 - %16.8f',abs(phi0)));
+ end
outbl(nb+1) = FT_add_line_to_block(outbl(nb+1),sprintf('put %s phi $tuning',mirrorname));
% Add lines defining x and y axis
--
GitLab