replace SM[] by LowEnergyConstant[] head

FlexibleSUSY · Apr 21, 2015 · 1abdff0 · 1abdff0
1 parent 29a93de
commit 1abdff0
Show file tree

Hide file tree

Showing 53 changed files with 249 additions and 248 deletions.
diff --git a/doc/chapters/usage.tex b/doc/chapters/usage.tex
@@ -249,8 +249,8 @@ \subsection{Model files}
    {MassG, m12}
 };
 
-LowScale = SM[MZ];                          (* scale definition *)
-LowScaleFirstGuess = SM[MZ];                (* first scale guess *)
+LowScale = LowEnergyConstant[MZ];           (* scale definition *)
+LowScaleFirstGuess = LowEnergyConstant[MZ]; (* first scale guess *)
 LowScaleInput = {
    {vd, 2 MZDRbar / Sqrt[GUTNormalization[g1]^2 g1^2 + g2^2] Cos[ArcTan[TanBeta]]},
    {vu, 2 MZDRbar / Sqrt[GUTNormalization[g1]^2 g1^2 + g2^2] Sin[ArcTan[TanBeta]]}
@@ -262,8 +262,8 @@ \subsection{Model files}
 model parameters.  This can be done via
 \begin{lstlisting}[language=Mathematica]
 InitialGuessAtLowScale = {
-   {vd, SM[vev] Cos[ArcTan[TanBeta]]},
-   {vu, SM[vev] Sin[ArcTan[TanBeta]]}
+   {vd, LowEnergyConstant[vev] Cos[ArcTan[TanBeta]]},
+   {vu, LowEnergyConstant[vev] Sin[ArcTan[TanBeta]]}
 };
 
 InitialGuessAtHighScale = {
@@ -295,8 +295,8 @@ \subsection{Model files}
     OnlyLowEnergyFlexibleSUSY & False & low-energy model \\
     MINPAR & \{\} & list of input parameters in SLHA MINPAR block \\
     EXTPAR & \{\} & list of input parameters in SLHA EXTPAR block \\
-    LowScale & SM[MZ] & Standard Model matching scale (in GeV) \\
-    LowScaleFirstGuess & SM[MZ] & first guess for the Standard Model matching scale (in GeV) \\
+    LowScale & LowEnergyConstant[MZ] & Standard Model matching scale (in GeV) \\
+    LowScaleFirstGuess & LowEnergyConstant[MZ] & first guess for the Standard Model matching scale (in GeV) \\
     LowScaleInput & \{\} & settings applied at the low scale \\
     SUSYScale & 1000 & scale of supersymmetric particle masses (in GeV) \\
     SUSYScaleFirstGuess & 1000 & first guess for the susy scale (in GeV) \\

diff --git a/doc/flexiblesusy-paper.tex b/doc/flexiblesusy-paper.tex
@@ -739,9 +739,9 @@ \section{Setting up a FlexibleSUSY model}
 
 SUSYScaleInput = {};
 
-LowScale = SM[MZ];
+LowScale = LowEnergyConstant[MZ];
 
-LowScaleFirstGuess = SM[MZ];
+LowScaleFirstGuess = LowEnergyConstant[MZ];
 
 LowScaleInput = {
    {Yu, Automatic},
@@ -754,8 +754,8 @@ \section{Setting up a FlexibleSUSY model}
 };
 
 InitialGuessAtLowScale = {
-   {vd, SM[vev] Cos[ArcTan[TanBeta]]},
-   {vu, SM[vev] Sin[ArcTan[TanBeta]]},
+   {vd, LowEnergyConstant[vev] Cos[ArcTan[TanBeta]]},
+   {vu, LowEnergyConstant[vev] Sin[ArcTan[TanBeta]]},
    {Yu, Automatic},
    {Yd, Automatic},
    {Ye, Automatic}
@@ -936,26 +936,26 @@ \section{Setting up a FlexibleSUSY model}
   %
   \begin{lstlisting}
 FSMinimize[{vd,vu},
-           (SM[MZ] - Pole[M[VZ]])^2 / STANDARDDEVIATION[MZ]^2 +
-           (SM[MH] - Pole[M[hh[1]]])^2 / STANDARDDEVIATION[MH]^2]
+           (LowEnergyConstant[MZ] - Pole[M[VZ]])^2 / STANDARDDEVIATION[MZ]^2 +
+           (LowEnergyConstant[MH] - Pole[M[hh[1]]])^2 / STANDARDDEVIATION[MH]^2]
   \end{lstlisting}
   %
   Here, the parameters \code{vu} and \code{vd} are varied until the
   function
   %
   \begin{align}
     \chi^2(v_d,v_u) =
-    \frac{(\texttt{SM[MZ]}-m_Z^\pole)^2}{\sigma_{m_Z}^2} +
-    \frac{(\texttt{SM[MH]}-m_{h_1}^\pole)^2}{\sigma_{m_h}^2}
+    \frac{(\texttt{LowEnergyConstant[MZ]}-m_Z^\pole)^2}{\sigma_{m_Z}^2} +
+    \frac{(\texttt{LowEnergyConstant[MH]}-m_{h_1}^\pole)^2}{\sigma_{m_h}^2}
   \end{align}
   %
-  is minimal.  The constants \code{SM[MZ]}, \code{SM[MH]},
+  is minimal.  The constants \code{LowEnergyConstant[MZ]}, \code{LowEnergyConstant[MH]},
   $\sigma_{m_Z}$ and $\sigma_{m_h}$ are defined in
   \code{src/ew_input.hpp} to be
   %
   \begin{align}
-    \texttt{SM[MZ]} &= 91.1876, &
-    \texttt{SM[MH]} &= 125.9, \\
+    \texttt{LowEnergyConstant[MZ]} &= 91.1876, &
+    \texttt{LowEnergyConstant[MH]} &= 125.9, \\
     \sigma_{m_Z} &= 0.0021, &
     \sigma_{m_h} &= 0.4 .
   \end{align}
@@ -968,7 +968,7 @@ \section{Setting up a FlexibleSUSY model}
   %
   \begin{lstlisting}
 FSFindRoot[{vd,vu},
-           {SM[MZ] - Pole[M[VZ]], SM[MH] - Pole[M[hh[1]]]}]
+           {LowEnergyConstant[MZ] - Pole[M[VZ]], LowEnergyConstant[MH] - Pole[M[hh[1]]]}]
   \end{lstlisting}
   %
   Here, the parameters \code{vu} and \code{vd} are varied until the
@@ -977,8 +977,8 @@ \section{Setting up a FlexibleSUSY model}
   \begin{align}
     f(v_d,v_u) =
     \begin{pmatrix}
-      \texttt{SM[MZ]} - m_Z^\pole \\
-      \texttt{SM[MH]} - m_{h_1}^\pole
+      \texttt{LowEnergyConstant[MZ]} - m_Z^\pole \\
+      \texttt{LowEnergyConstant[MH]} - m_{h_1}^\pole
     \end{pmatrix}
   \end{align}
   %

diff --git a/meta/FlexibleSUSY.m b/meta/FlexibleSUSY.m
@@ -49,6 +49,7 @@
 AutomaticInputAtMSUSY = True; (* input unfixed parameters at MSUSY *)
 TreeLevelEWSBSolution = {};
 Pole;
+LowEnergyConstant;
 FSMinimize;
 FSFindRoot;
 MZ;
@@ -317,20 +318,20 @@
            If[!ValueQ[FlexibleSUSY`LowScale],
               Print["Warning: FlexibleSUSY`LowScale should be",
                     " set in the model file!"];
-              FlexibleSUSY`LowScale := SM[MZ];
+              FlexibleSUSY`LowScale := LowEnergyConstant[MZ];
               ,
-              If[FlexibleSUSY`LowScale =!= SM[MZ],
+              If[FlexibleSUSY`LowScale =!= LowEnergyConstant[MZ],
                  Print["Error: The low-scale was set differently from MZ!"];
                  Print["   LowScale = ", FlexibleSUSY`LowScale];
                  Print["   This is currently not supported."];
-                 Print["   Please set: LowScale = ", SM[MZ], ";"];
+                 Print["   Please set: LowScale = ", LowEnergyConstant[MZ], ";"];
                  Quit[1];
                 ];
              ];
            If[!ValueQ[FlexibleSUSY`LowScaleFirstGuess],
               Print["Warning: FlexibleSUSY`LowScaleFirstGuess should be",
                     " set in the model file!"];
-              FlexibleSUSY`LowScaleFirstGuess = SM[MZ];
+              FlexibleSUSY`LowScaleFirstGuess = LowEnergyConstant[MZ];
              ];
            If[Head[FlexibleSUSY`LowScaleInput] =!= List,
               FlexibleSUSY`LowScaleInput = {};

diff --git a/meta/Parameters.m b/meta/Parameters.m
@@ -837,7 +837,7 @@
           ];
 
 RemoveProtectedHeads[expr_] :=
-    expr /. { SARAH`SM[__] -> SARAH`SM[],
+    expr /. { FlexibleSUSY`LowEnergyConstant[__] -> FlexibleSUSY`LowEnergyConstant[],
               FlexibleSUSY`Pole[__]  -> FlexibleSUSY`Pole[] };
 
 DefineLocalConstCopy[parameter_, macro_String, prefix_String:""] :=

diff --git a/model_files/CMSSM/FlexibleSUSY.m.in b/model_files/CMSSM/FlexibleSUSY.m.in
@@ -41,9 +41,9 @@ HighScaleInput = {
    {MassG,m12}
 };
 
-LowScale = SM[MZ];
+LowScale = LowEnergyConstant[MZ];
 
-LowScaleFirstGuess = SM[MZ];
+LowScaleFirstGuess = LowEnergyConstant[MZ];
 
 LowScaleInput = {
    {Yu, Automatic},
@@ -54,8 +54,8 @@ LowScaleInput = {
 };
 
 InitialGuessAtLowScale = {
-   {vd, SM[vev] Cos[ArcTan[TanBeta]]},
-   {vu, SM[vev] Sin[ArcTan[TanBeta]]},
+   {vd, LowEnergyConstant[vev] Cos[ArcTan[TanBeta]]},
+   {vu, LowEnergyConstant[vev] Sin[ArcTan[TanBeta]]},
    {Yu, Automatic},
    {Yd, Automatic},
    {Ye, Automatic}

diff --git a/model_files/CMSSMCKM/FlexibleSUSY.m.in b/model_files/CMSSMCKM/FlexibleSUSY.m.in
@@ -21,7 +21,7 @@ EWSBOutputParameters = { B[\[Mu]], \[Mu] };
 
 SUSYScale = Sqrt[Product[M[Su[i]]^(Abs[ZU[i,3]]^2 + Abs[ZU[i,6]]^2), {i,6}]];
 
-SUSYScaleFirstGuess = SM[MZ];
+SUSYScaleFirstGuess = LowEnergyConstant[MZ];
 
 SUSYScaleInput = {};
 
@@ -45,9 +45,9 @@ HighScaleInput = {
    {MassG, LHInput[MassG]}
 };
 
-LowScale = SM[MZ];
+LowScale = LowEnergyConstant[MZ];
 
-LowScaleFirstGuess = SM[MZ];
+LowScaleFirstGuess = LowEnergyConstant[MZ];
 
 LowScaleInput = {
    {Yu, Sqrt[2] MatMul[Tp[CKM], topDRbar] / vu},
@@ -58,8 +58,8 @@ LowScaleInput = {
 };
 
 InitialGuessAtLowScale = {
-   {vd, SM[vev] Cos[ArcTan[TanBeta]]},
-   {vu, SM[vev] Sin[ArcTan[TanBeta]]},
+   {vd, LowEnergyConstant[vev] Cos[ArcTan[TanBeta]]},
+   {vu, LowEnergyConstant[vev] Sin[ArcTan[TanBeta]]},
    {Yu, Automatic},
    {Yd, Automatic},
    {Ye, Automatic}

diff --git a/model_files/CMSSMCPV/FlexibleSUSY.m.in b/model_files/CMSSMCPV/FlexibleSUSY.m.in
@@ -45,9 +45,9 @@ HighScaleInput = {
    {MassG, m12}
 };
 
-LowScale = SM[MZ];
+LowScale = LowEnergyConstant[MZ];
 
-LowScaleFirstGuess = SM[MZ];
+LowScaleFirstGuess = LowEnergyConstant[MZ];
 
 LowScaleInput = {
    {Yu, Automatic},
@@ -58,10 +58,10 @@ LowScaleInput = {
 };
 
 InitialGuessAtLowScale = {
-   {vd, SM[vev] Cos[ArcTan[TanBeta]]},
-   {vu, SM[vev] Sin[ArcTan[TanBeta]]},
-   {\[Mu]   , SM[MZ]},
-   {B[\[Mu]], SM[MZ]^2},
+   {vd, LowEnergyConstant[vev] Cos[ArcTan[TanBeta]]},
+   {vu, LowEnergyConstant[vev] Sin[ArcTan[TanBeta]]},
+   {\[Mu]   , LowEnergyConstant[MZ]},
+   {B[\[Mu]], LowEnergyConstant[MZ]^2},
    {Yu, Automatic},
    {Yd, Automatic},
    {Ye, Automatic}

diff --git a/model_files/CMSSMConvergenceTester/FlexibleSUSY.m.in b/model_files/CMSSMConvergenceTester/FlexibleSUSY.m.in
@@ -40,9 +40,9 @@ HighScaleInput = {
    {MassG,m12}
 };
 
-LowScale = SM[MZ];
+LowScale = LowEnergyConstant[MZ];
 
-LowScaleFirstGuess = SM[MZ];
+LowScaleFirstGuess = LowEnergyConstant[MZ];
 
 LowScaleInput = {
    {Yu, Automatic},
@@ -53,8 +53,8 @@ LowScaleInput = {
 };
 
 InitialGuessAtLowScale = {
-   {vd, SM[vev] Cos[ArcTan[TanBeta]]},
-   {vu, SM[vev] Sin[ArcTan[TanBeta]]},
+   {vd, LowEnergyConstant[vev] Cos[ArcTan[TanBeta]]},
+   {vu, LowEnergyConstant[vev] Sin[ArcTan[TanBeta]]},
    {Yu, Automatic},
    {Yd, Automatic},
    {Ye, Automatic}

diff --git a/model_files/CMSSMFPIAbsolute/FlexibleSUSY.m.in b/model_files/CMSSMFPIAbsolute/FlexibleSUSY.m.in
@@ -40,9 +40,9 @@ HighScaleInput = {
    {MassG,m12}
 };
 
-LowScale = SM[MZ];
+LowScale = LowEnergyConstant[MZ];
 
-LowScaleFirstGuess = SM[MZ];
+LowScaleFirstGuess = LowEnergyConstant[MZ];
 
 LowScaleInput = {
    {Yu, Automatic},
@@ -53,8 +53,8 @@ LowScaleInput = {
 };
 
 InitialGuessAtLowScale = {
-   {vd, SM[vev] Cos[ArcTan[TanBeta]]},
-   {vu, SM[vev] Sin[ArcTan[TanBeta]]},
+   {vd, LowEnergyConstant[vev] Cos[ArcTan[TanBeta]]},
+   {vu, LowEnergyConstant[vev] Sin[ArcTan[TanBeta]]},
    {Yu, Automatic},
    {Yd, Automatic},
    {Ye, Automatic}

diff --git a/model_files/CMSSMFPIRelative/FlexibleSUSY.m.in b/model_files/CMSSMFPIRelative/FlexibleSUSY.m.in
@@ -40,9 +40,9 @@ HighScaleInput = {
    {MassG,m12}
 };
 
-LowScale = SM[MZ];
+LowScale = LowEnergyConstant[MZ];
 
-LowScaleFirstGuess = SM[MZ];
+LowScaleFirstGuess = LowEnergyConstant[MZ];
 
 LowScaleInput = {
    {Yu, Automatic},
@@ -53,8 +53,8 @@ LowScaleInput = {
 };
 
 InitialGuessAtLowScale = {
-   {vd, SM[vev] Cos[ArcTan[TanBeta]]},
-   {vu, SM[vev] Sin[ArcTan[TanBeta]]},
+   {vd, LowEnergyConstant[vev] Cos[ArcTan[TanBeta]]},
+   {vu, LowEnergyConstant[vev] Sin[ArcTan[TanBeta]]},
    {Yu, Automatic},
    {Yd, Automatic},
    {Ye, Automatic}

diff --git a/model_files/CMSSMFPITadpole/FlexibleSUSY.m.in b/model_files/CMSSMFPITadpole/FlexibleSUSY.m.in
@@ -40,9 +40,9 @@ HighScaleInput = {
    {MassG,m12}
 };
 
-LowScale = SM[MZ];
+LowScale = LowEnergyConstant[MZ];
 
-LowScaleFirstGuess = SM[MZ];
+LowScaleFirstGuess = LowEnergyConstant[MZ];
 
 LowScaleInput = {
    {Yu, Automatic},
@@ -53,8 +53,8 @@ LowScaleInput = {
 };
 
 InitialGuessAtLowScale = {
-   {vd, SM[vev] Cos[ArcTan[TanBeta]]},
-   {vu, SM[vev] Sin[ArcTan[TanBeta]]},
+   {vd, LowEnergyConstant[vev] Cos[ArcTan[TanBeta]]},
+   {vu, LowEnergyConstant[vev] Sin[ArcTan[TanBeta]]},
    {Yu, Automatic},
    {Yd, Automatic},
    {Ye, Automatic}

diff --git a/model_files/CMSSMGSLBroyden/FlexibleSUSY.m.in b/model_files/CMSSMGSLBroyden/FlexibleSUSY.m.in
@@ -40,9 +40,9 @@ HighScaleInput = {
    {MassG,m12}
 };
 
-LowScale = SM[MZ];
+LowScale = LowEnergyConstant[MZ];
 
-LowScaleFirstGuess = SM[MZ];
+LowScaleFirstGuess = LowEnergyConstant[MZ];
 
 LowScaleInput = {
    {Yu, Automatic},
@@ -53,8 +53,8 @@ LowScaleInput = {
 };
 
 InitialGuessAtLowScale = {
-   {vd, SM[vev] Cos[ArcTan[TanBeta]]},
-   {vu, SM[vev] Sin[ArcTan[TanBeta]]},
+   {vd, LowEnergyConstant[vev] Cos[ArcTan[TanBeta]]},
+   {vu, LowEnergyConstant[vev] Sin[ArcTan[TanBeta]]},
    {Yu, Automatic},
    {Yd, Automatic},
    {Ye, Automatic}

diff --git a/model_files/CMSSMGSLHybrid/FlexibleSUSY.m.in b/model_files/CMSSMGSLHybrid/FlexibleSUSY.m.in
@@ -40,9 +40,9 @@ HighScaleInput = {
    {MassG,m12}
 };
 
-LowScale = SM[MZ];
+LowScale = LowEnergyConstant[MZ];
 
-LowScaleFirstGuess = SM[MZ];
+LowScaleFirstGuess = LowEnergyConstant[MZ];
 
 LowScaleInput = {
    {Yu, Automatic},
@@ -53,8 +53,8 @@ LowScaleInput = {
 };
 
 InitialGuessAtLowScale = {
-   {vd, SM[vev] Cos[ArcTan[TanBeta]]},
-   {vu, SM[vev] Sin[ArcTan[TanBeta]]},
+   {vd, LowEnergyConstant[vev] Cos[ArcTan[TanBeta]]},
+   {vu, LowEnergyConstant[vev] Sin[ArcTan[TanBeta]]},
    {Yu, Automatic},
    {Yd, Automatic},
    {Ye, Automatic}

diff --git a/model_files/CMSSMGSLHybridS/FlexibleSUSY.m.in b/model_files/CMSSMGSLHybridS/FlexibleSUSY.m.in
@@ -40,9 +40,9 @@ HighScaleInput = {
    {MassG,m12}
 };
 
-LowScale = SM[MZ];
+LowScale = LowEnergyConstant[MZ];
 
-LowScaleFirstGuess = SM[MZ];
+LowScaleFirstGuess = LowEnergyConstant[MZ];
 
 LowScaleInput = {
    {Yu, Automatic},
@@ -53,8 +53,8 @@ LowScaleInput = {
 };
 
 InitialGuessAtLowScale = {
-   {vd, SM[vev] Cos[ArcTan[TanBeta]]},
-   {vu, SM[vev] Sin[ArcTan[TanBeta]]},
+   {vd, LowEnergyConstant[vev] Cos[ArcTan[TanBeta]]},
+   {vu, LowEnergyConstant[vev] Sin[ArcTan[TanBeta]]},
    {Yu, Automatic},
    {Yd, Automatic},
    {Ye, Automatic}