Page MenuHomeHEPForge
Files F7877263

No OneTemporary
Actions

View Options

Index: trunk/development/ObsoleteInterfaces/FHinput/HB_Mhmaxplus_3_MT173.3.m
===================================================================
--- trunk/development/ObsoleteInterfaces/FHinput/HB_Mhmaxplus_3_MT173.3.m (revision 0)
+++ trunk/development/ObsoleteInterfaces/FHinput/HB_Mhmaxplus_3_MT173.3.m (revision 105)
@@ -0,0 +1,40 @@
+(**********************)
+
+TB=2+82(i-1)/(ifin-1); (* use ifin =41*)
+MA0=90+120(j-1)/(jfin-1);(* use ifin =41*)
+
+
+(**********************)
+
+MStQ = 1000;
+
+modMUE = +200 (* note plus sign *);
+argMUE = 0;
+
+Xt= 2 MStQ;
+
+M1 = 200; (*0 means that FH will use SUSY-GUT relation*)
+M2 = 200;
+
+modM3 = 800;
+argM3 = 0;
+
+(**********************)
+
+M3 = modM3 Exp[argM3 I];
+MUE = modMUE Exp[argMUE I];
+
+At = Xt + MUE / TB
+(*At = modAt Exp[argAt I];*)
+
+(**********************)
+
+_MSL = _MSE = _MSQ = _MSU = _MSD = MStQ;
+_Af = At;
+
+(**********************)
+
+scalefactor = 1; (*MT = 1709/10;*)MT = 1733/10;
+MHp = -1; lambdat = 0; lambdab = 0; Qtau = Qt = Qb = 0;
+
+(**********************)
Index: trunk/development/ObsoleteInterfaces/FHinput/HB_Mhmaxplus_3_MT173.3MUE1000.m
===================================================================
--- trunk/development/ObsoleteInterfaces/FHinput/HB_Mhmaxplus_3_MT173.3MUE1000.m (revision 0)
+++ trunk/development/ObsoleteInterfaces/FHinput/HB_Mhmaxplus_3_MT173.3MUE1000.m (revision 105)
@@ -0,0 +1,40 @@
+(**********************)
+
+TB=2+82(i-1)/(ifin-1); (* use ifin =41*)
+MA0=90+120(j-1)/(jfin-1);(* use ifin =41*)
+
+
+(**********************)
+
+MStQ = 1000;
+
+modMUE = +1000 (* note plus sign *);
+argMUE = 0;
+
+Xt= 2 MStQ;
+
+M1 = 200; (*0 means that FH will use SUSY-GUT relation*)
+M2 = 200;
+
+modM3 = 800;
+argM3 = 0;
+
+(**********************)
+
+M3 = modM3 Exp[argM3 I];
+MUE = modMUE Exp[argMUE I];
+
+At = Xt + MUE / TB
+(*At = modAt Exp[argAt I];*)
+
+(**********************)
+
+_MSL = _MSE = _MSQ = _MSU = _MSD = MStQ;
+_Af = At;
+
+(**********************)
+
+scalefactor = 1; (*MT = 1709/10;*)MT = 1733/10;
+MHp = -1; lambdat = 0; lambdab = 0; Qtau = Qt = Qb = 0;
+
+(**********************)
Index: trunk/development/ObsoleteInterfaces/create_HiggsBounds_input_HB2-x-x.nb
===================================================================
--- trunk/development/ObsoleteInterfaces/create_HiggsBounds_input_HB2-x-x.nb (revision 0)
+++ trunk/development/ObsoleteInterfaces/create_HiggsBounds_input_HB2-x-x.nb (revision 105)
@@ -0,0 +1,1940 @@
+(* Content-type: application/mathematica *)
+
+(*** Wolfram Notebook File ***)
+(* http://www.wolfram.com/nb *)
+
+(* CreatedBy='Mathematica 7.0' *)
+
+(*CacheID: 234*)
+(* Internal cache information:
+NotebookFileLineBreakTest
+NotebookFileLineBreakTest
+NotebookDataPosition[ 145, 7]
+NotebookDataLength[ 87411, 1931]
+NotebookOptionsPosition[ 87137, 1917]
+NotebookOutlinePosition[ 87496, 1933]
+CellTagsIndexPosition[ 87453, 1930]
+WindowFrame->Normal*)
+
+(* Beginning of Notebook Content *)
+Notebook[{
+Cell[BoxData[
+ RowBox[{"\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FHsettings", "=", "\"\<400202013\>\""}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"whereami", "=", "\"\<laptop\>\""}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Switch", "[",
+ RowBox[{
+ "whereami", ",", "\[IndentingNewLine]", "\"\<work\>\"", ",",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"version", "=", "\"\<currentFeynHiggs\>\""}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"homedir", "=", "\"\</users/williams/\>\""}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"packdir", "=",
+ RowBox[{"homedir", "<>", "\"\<Packages/\>\""}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"inputdir", "=",
+ RowBox[{
+ "homedir", "<>",
+ "\"\<HiggsBounds/HBsvn/higgsbounds/trunk/development/\
+ObsoleteInterfaces/FHinput\>\""}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"outputdir", "=",
+ RowBox[{
+ "homedir", "<>",
+ "\"\<HiggsBounds/HBsvn/HiggsBounds/trunk/using_HB/more_input_files_\
+HB-2-x-x/\>\""}]}], ";", "\[IndentingNewLine]",
+ RowBox[{
+ "system", "=",
+ "\"\<x86_64-linux_sigmundsberg_g77_for_Mathematica\>\""}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"LTversion", "=", "\"\<2.3_02.02.09\>\""}], ";"}],
+ "\[IndentingNewLine]", ",", "\[IndentingNewLine]", "\"\<laptop\>\"",
+ ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"homedir", "=", "\"\</home/Karina/\>\""}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"packdir", "=",
+ RowBox[{"homedir", "<>", "\"\<Work/Packages/\>\""}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"inputdir", "=",
+ RowBox[{
+ "homedir", "<>",
+ "\"\<Work/HiggsBounds/HBsvn/higgsbounds/trunk/development/\
+ObsoleteInterfaces/FHinput\>\""}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"outputdir", "=",
+ RowBox[{
+ "homedir", "<>",
+ "\"\<Work/HiggsBounds/HBsvn/HiggsBounds/trunk/using_HB/more_input_\
+files_HB-2-x-x_bigger2/\>\""}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"version", "=", "\"\<currentFeynHiggs\>\""}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"system", "=", "\"\<i386-linux\>\""}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"LTversion", "=", "\"\<2.3_26.01.09\>\""}], ";"}]}],
+ "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{"(*", " ",
+ RowBox[{"Install", " ", "FeynHiggs"}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{"Print", "[",
+ RowBox[{"\"\<attempting to install\>\"", ",",
+ RowBox[{
+ "packdir", "<>", "version", "<>", "\"\</\>\"", "<>", "system", "<>",
+ "\"\</bin/MFeynHiggs\>\""}]}], "]"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Install", "[",
+ RowBox[{
+ "packdir", "<>", "version", "<>", "\"\</\>\"", "<>", "system", "<>",
+ "\"\</bin/MFeynHiggs\>\""}], "]"}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"Print", "[", "\"\<installed FH\>\"", "]"}], "\[IndentingNewLine]",
+ "\n",
+ RowBox[{"(*", " ",
+ RowBox[{"call", " ", "FeynHiggs", " ", "subroutine", " ", "FHSetFlags"}],
+ " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{"(*", " ",
+ RowBox[{"recall", ":", " ",
+ RowBox[{"FHSetFlags", "[",
+ RowBox[{
+ "mssmpart", ",", "fieldren", ",", "tanbren", ",", "higgsmix", ",",
+ "p2approx", ",", "looplevel", ",", "tlRunningMT", ",", "tlBotResum",
+ ",", "tlCplxApprox"}], "]"}]}], " ", "*)"}], "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"setfunc", "[", "b_", "]"}], ":=",
+ RowBox[{"ToExpression", "[",
+ RowBox[{"StringTake", "[",
+ RowBox[{"FHsettings", ",",
+ RowBox[{"{", "b", "}"}]}], "]"}], "]"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"If", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"StringLength", "[", "FHsettings", "]"}], "\[Equal]", "9"}],
+ ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"FHSetFlags", "[",
+ RowBox[{
+ RowBox[{"setfunc", "[", "1", "]"}], ",",
+ RowBox[{"setfunc", "[", "2", "]"}], ",",
+ RowBox[{"setfunc", "[", "3", "]"}], ",",
+ RowBox[{"setfunc", "[", "4", "]"}], ",",
+ RowBox[{"setfunc", "[", "5", "]"}], ",",
+ RowBox[{"setfunc", "[", "6", "]"}], ",",
+ RowBox[{"setfunc", "[", "7", "]"}], ",",
+ RowBox[{"setfunc", "[", "8", "]"}], ",",
+ RowBox[{"setfunc", "[", "9", "]"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"FHSetFlags", "[",
+ RowBox[{
+ "9", ",", "9", ",", "9", ",", "9", ",", "9", ",", "9", ",", "9", ",",
+ "9", ",", "9"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"(*", " ",
+ RowBox[{
+ "Do", " ", "loop", " ", "is", " ", "over", " ", "MSSM", " ",
+ "scenarios"}], " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Do", "[",
+ RowBox[{
+ RowBox[{"{", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Switch", "[",
+ RowBox[{"xx", ",", "\[IndentingNewLine]", "1", ",",
+ RowBox[{
+ RowBox[{"varypara", "=", "\"\<HB_Mhmaxplus_3_MT173.3\>\""}], ";"}],
+ ",", "\[IndentingNewLine]", "2", ",",
+ RowBox[{
+ RowBox[{"varypara", "=", "\"\<HB_Mhmaxplus_3_MT173.3MUE1000\>\""}],
+ ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{"(*", " ",
+ RowBox[{"set", " ", "size", " ", "of", " ", "scan"}], " ", "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{"(*",
+ RowBox[{
+ RowBox[{"ibeg", "=", "1"}], ";",
+ RowBox[{"ifin", "=", "51"}], ";", "\[IndentingNewLine]",
+ RowBox[{"jbeg", "=", "1"}], ";",
+ RowBox[{"jfin", "=", "51"}], ";"}], "*)"}], "\[IndentingNewLine]",
+ RowBox[{"ibeg", "=", "1"}], ";",
+ RowBox[{"ifin", "=", "41"}], ";", "\[IndentingNewLine]",
+ RowBox[{"jbeg", "=", "1"}], ";",
+ RowBox[{"jfin", "=", "41"}], ";", "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{"itot", "=",
+ RowBox[{"ifin", "-", "ibeg", "+", "1"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"jtot", "=",
+ RowBox[{"jfin", "-", "jbeg", "+", "1"}]}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"n", "=", "0"}], ";", "\[IndentingNewLine]",
+ RowBox[{"time1", "=",
+ RowBox[{"SessionTime", "[", "]"}]}], ";", "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{
+ "Initialise", " ", "the", " ", "arrays", " ", "that", " ", "will",
+ " ", "be", " ", "outputted", " ", "to", " ",
+ RowBox[{"files", ".", " ", "All"}], " ", "elements", " ", "are",
+ " ", "initialised", " ", "to"}], " ", "-", "1."}], " ", "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{"addit", "=",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"(",
+ RowBox[{"itot", " ", "jtot"}], ")"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"ik", ",", "1", ",",
+ RowBox[{"1", "+", "1"}]}], "}"}]}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"MhGammaTot", "=",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"(",
+ RowBox[{"itot", " ", "jtot"}], ")"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"ik", ",", "1", ",",
+ RowBox[{
+ RowBox[{"2", " ", "3"}], "+", "1"}]}], "}"}]}], "]"}]}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"MhplusGammaTot", "=",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"(",
+ RowBox[{"itot", " ", "jtot"}], ")"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"ik", ",", "1", ",",
+ RowBox[{
+ RowBox[{"2", " ", "1"}], "+", "1"}]}], "}"}]}], "]"}]}], ";",
+ "\n",
+ RowBox[{"(*",
+ RowBox[{
+ RowBox[{"effC", "=",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"(",
+ RowBox[{"itot", " ", "jtot"}], ")"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"ik", ",", "1", ",",
+ RowBox[{
+ RowBox[{"15", " ", "3"}], "+", "6", "+", "1"}]}], "}"}]}],
+ "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{"LEPHZCSratios", "=",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"(",
+ RowBox[{"itot", " ", "jtot"}], ")"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"ik", ",", "1", ",",
+ RowBox[{
+ RowBox[{"1", " ", "3"}], "+", "1"}]}], "}"}]}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"LEPHffCSratios", "=",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"(",
+ RowBox[{"itot", " ", "jtot"}], ")"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"ik", ",", "1", ",",
+ RowBox[{
+ RowBox[{"2", " ", "3"}], "+", "1"}]}], "}"}]}], "]"}]}], ";",
+ "\n",
+ RowBox[{"LEP2HCSratios", "=",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"(",
+ RowBox[{"itot", " ", "jtot"}], ")"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"ik", ",", "1", ",",
+ RowBox[{"6", "+", "1"}]}], "}"}]}], "]"}]}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"LEPHpHmCSratios", "=",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"(",
+ RowBox[{"itot", " ", "jtot"}], ")"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"ik", ",", "1", ",",
+ RowBox[{
+ RowBox[{"1", " ", "1"}], "+", "1"}]}], "}"}]}], "]"}]}], ";",
+ "\[IndentingNewLine]", "\n",
+ RowBox[{"TEVH0jetpartCSratios", "=",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"(",
+ RowBox[{"itot", " ", "jtot"}], ")"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"ik", ",", "1", ",",
+ RowBox[{
+ RowBox[{"2", " ", "3"}], "+", "1"}]}], "}"}]}], "]"}]}], ";",
+ "\n",
+ RowBox[{"TEVH1jetpartCSratios", "=",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"(",
+ RowBox[{"itot", " ", "jtot"}], ")"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"ik", ",", "1", ",",
+ RowBox[{
+ RowBox[{"1", " ", "3"}], "+", "1"}]}], "}"}]}], "]"}]}], ";",
+ "\n",
+ RowBox[{"TEVHWpartCSratios", "=",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"(",
+ RowBox[{"itot", " ", "jtot"}], ")"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"ik", ",", "1", ",",
+ RowBox[{
+ RowBox[{"4", " ", "3"}], "+", "1"}]}], "}"}]}], "]"}]}], ";",
+ "\n",
+ RowBox[{"TEVHZpartCSratios", "=",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"(",
+ RowBox[{"itot", " ", "jtot"}], ")"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"ik", ",", "1", ",",
+ RowBox[{
+ RowBox[{"5", " ", "3"}], "+", "1"}]}], "}"}]}], "]"}]}], ";",
+ "\[IndentingNewLine]", "\n",
+ RowBox[{"TEVHvbfhadCSratios", "=",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"(",
+ RowBox[{"itot", " ", "jtot"}], ")"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"ik", ",", "1", ",",
+ RowBox[{
+ RowBox[{"1", " ", "3"}], "+", "1"}]}], "}"}]}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"TEVHtthadCSratios", "=",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"(",
+ RowBox[{"itot", " ", "jtot"}], ")"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"ik", ",", "1", ",",
+ RowBox[{
+ RowBox[{"1", " ", "3"}], "+", "1"}]}], "}"}]}], "]"}]}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"BRHOP", "=",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"(",
+ RowBox[{"itot", " ", "jtot"}], ")"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"ik", ",", "1", ",",
+ RowBox[{
+ RowBox[{"9", " ", "3"}], "+", "1"}]}], "}"}]}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"BRHNP", "=",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"(",
+ RowBox[{"itot", " ", "jtot"}], ")"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"ik", ",", "1", ",",
+ RowBox[{
+ RowBox[{"1", " ", "3"}], "+", "6", "+", "1"}]}], "}"}]}],
+ "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"BRt", "=",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"(",
+ RowBox[{"itot", " ", "jtot"}], ")"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"ik", ",", "1", ",",
+ RowBox[{"1", "+",
+ RowBox[{"1", " ", "1"}], "+", "1"}]}], "}"}]}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"BRHplus", "=",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"(",
+ RowBox[{"itot", " ", "jtot"}], ")"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"ik", ",", "1", ",",
+ RowBox[{
+ RowBox[{"3", " ", "1"}], "+", "1"}]}], "}"}]}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"CPvalues", "=",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"-", "1"}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "1", ",",
+ RowBox[{"(",
+ RowBox[{"itot", " ", "jtot"}], ")"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"ik", ",", "1", ",",
+ RowBox[{
+ RowBox[{"3", " ", "1"}], "+", "1"}]}], "}"}]}], "]"}]}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"Do", "[",
+ RowBox[{
+ RowBox[{"{", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Do", "[",
+ RowBox[{
+ RowBox[{"{", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Import", "[",
+ RowBox[{"inputdir", "<>", "varypara", "<>", "\"\<.m\>\""}],
+ "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"(*", "*********************)"}],
+ "\[IndentingNewLine]",
+ RowBox[{"(*", " ",
+ RowBox[{
+ "Now", " ", "call", " ", "other", " ", "FeynHiggs", " ",
+ RowBox[{"routines", ":"}]}], " ", "*)"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"store", "=",
+ RowBox[{"FHSetPara", "[",
+ RowBox[{
+ "scalefactor", ",", "MT", ",", "TB", ",", "MA0", ",", "MHp",
+ ",",
+ RowBox[{"MSL", "[", "3", "]"}], ",",
+ RowBox[{"MSE", "[", "3", "]"}], ",",
+ RowBox[{"MSQ", "[", "3", "]"}], ",",
+ RowBox[{"MSU", "[", "3", "]"}], ",",
+ RowBox[{"MSD", "[", "3", "]"}], ",",
+ RowBox[{"MSL", "[", "2", "]"}], ",",
+ RowBox[{"MSE", "[", "2", "]"}], ",",
+ RowBox[{"MSQ", "[", "2", "]"}], ",",
+ RowBox[{"MSU", "[", "2", "]"}], ",",
+ RowBox[{"MSD", "[", "2", "]"}], ",",
+ RowBox[{"MSL", "[", "1", "]"}], ",",
+ RowBox[{"MSE", "[", "1", "]"}], ",",
+ RowBox[{"MSQ", "[", "1", "]"}], ",",
+ RowBox[{"MSU", "[", "1", "]"}], ",",
+ RowBox[{"MSD", "[", "1", "]"}], ",", "MUE", ",",
+ RowBox[{"Af", "[",
+ RowBox[{"2", ",", "3"}], "]"}], ",",
+ RowBox[{"Af", "[",
+ RowBox[{"3", ",", "3"}], "]"}], ",",
+ RowBox[{"Af", "[",
+ RowBox[{"4", ",", "3"}], "]"}], ",",
+ RowBox[{"Af", "[",
+ RowBox[{"2", ",", "2"}], "]"}], ",",
+ RowBox[{"Af", "[",
+ RowBox[{"3", ",", "2"}], "]"}], ",",
+ RowBox[{"Af", "[",
+ RowBox[{"4", ",", "2"}], "]"}], ",",
+ RowBox[{"Af", "[",
+ RowBox[{"2", ",", "1"}], "]"}], ",",
+ RowBox[{"Af", "[",
+ RowBox[{"3", ",", "1"}], "]"}], ",",
+ RowBox[{"Af", "[",
+ RowBox[{"4", ",", "1"}], "]"}], ",", "M1", ",", "M2", ",",
+ "M3", ",", "Qtau", ",", "Qt", ",", "Qb"}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"(*",
+ RowBox[{
+ RowBox[{"Print", "[", "store", "]"}], ";"}], "*)"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"FHSelectUZ", "[",
+ RowBox[{"2", ",", "2"}], "]"}], ";", "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{"corr", "=",
+ RowBox[{"FHHiggsCorr", "[", "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"coup", "=",
+ RowBox[{"FHCouplings", "[", "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"prod", "=",
+ RowBox[{"FHHiggsProd", "[", "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"smpara", "=",
+ RowBox[{"FHRetrieveSMPara", "[", "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"para", "=",
+ RowBox[{"FHGetPara", "[", "]"}]}], ";",
+ "\[IndentingNewLine]", "\n",
+ RowBox[{"MZ", "=",
+ RowBox[{"MZ", "/.", "smpara"}]}], ";", "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{"(*",
+ RowBox[{
+ RowBox[{"Print", "[",
+ RowBox[{"corr", ",", "coup", ",", "prod", ",", "MZ"}],
+ "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"Abort", "[", "]"}], ";"}], "*)"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"n", "=",
+ RowBox[{"n", "+", "1"}]}], ";",
+ RowBox[{"Print", "[",
+ RowBox[{"\"\<n=\>\"", ",", "n"}], "]"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"MhGammaTot", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",", "1"}], "]"}], "]"}], "=", "n"}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"MhplusGammaTot", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",", "1"}], "]"}], "]"}], "=", "n"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"LEPHZCSratios", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",", "1"}], "]"}], "]"}], "=", "n"}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"LEPHffCSratios", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",", "1"}], "]"}], "]"}], "=", "n"}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"LEP2HCSratios", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",", "1"}], "]"}], "]"}], "=", "n"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"LEPHpHmCSratios", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",", "1"}], "]"}], "]"}], "=", "n"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"TEVH0jetpartCSratios", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",", "1"}], "]"}], "]"}], "=", "n"}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"TEVH1jetpartCSratios", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",", "1"}], "]"}], "]"}], "=", "n"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"TEVHWpartCSratios", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",", "1"}], "]"}], "]"}], "=", "n"}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"TEVHZpartCSratios", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",", "1"}], "]"}], "]"}], "=", "n"}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"TEVHvbfhadCSratios", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",", "1"}], "]"}], "]"}], "=", "n"}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"TEVHtthadCSratios", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",", "1"}], "]"}], "]"}], "=", "n"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"BRHOP", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",", "1"}], "]"}], "]"}], "=", "n"}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"BRHNP", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",", "1"}], "]"}], "]"}], "=", "n"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"BRt", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",", "1"}], "]"}], "]"}], "=", "n"}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"BRHplus", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",", "1"}], "]"}], "]"}], "=", "n"}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"CPvalues", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",", "1"}], "]"}], "]"}], "=", "n"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"addit", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",", "1"}], "]"}], "]"}], "=", "n"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"If", "[",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"FreeQ", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"corr", ",", "coup", ",", "prod"}], "}"}], ",",
+ "FHError"}], "]"}], ")"}], ",", "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"MH", "=",
+ RowBox[{"MHiggs", "/.", "corr"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"addit", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"1", "+", "1"}]}], "]"}], "]"}], "=", "TB"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"MhplusGammaTot", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"1", "+", "1"}]}], "]"}], "]"}], "=",
+ RowBox[{"MH", "[",
+ RowBox[{"[", "4", "]"}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"MhplusGammaTot", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"2", "+", "1"}]}], "]"}], "]"}], "=",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"GammaTot", "/.", "coup"}], ")"}], "[",
+ RowBox[{"[", "4", "]"}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"LEPHpHmCSratios", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"1", "+", "1"}]}], "]"}], "]"}], "=", "1"}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"BRt", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"1", "+", "1"}]}], "]"}], "]"}], "=",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"BR", "[", "tBF", "]"}], "/.", "coup"}], ")"}],
+ "[",
+ RowBox[{"[", "1", "]"}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"BRt", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"2", "+", "1"}]}], "]"}], "]"}], "=",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"BR", "[", "tBF", "]"}], "/.", "coup"}], ")"}],
+ "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"BRHplus", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"1", "+", "1"}]}], "]"}], "]"}], "=",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"BR", "[", "HpFF", "]"}], "/.", "coup"}], ")"}],
+ "[",
+ RowBox[{"[",
+ RowBox[{"2", ",", "2"}], "]"}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"BRHplus", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"2", "+", "1"}]}], "]"}], "]"}], "=", "0"}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"BRHplus", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"3", "+", "1"}]}], "]"}], "]"}], "=",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"BR", "[", "HpFF", "]"}], "/.", "coup"}], ")"}],
+ "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"Do", "[",
+ RowBox[{
+ RowBox[{"{", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"MhGammaTot", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+", "1"}]}], "]"}], "]"}], "=",
+ RowBox[{"MH", "[",
+ RowBox[{"[", "h", "]"}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"MhGammaTot", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+", "3", "+", "1"}]}], "]"}], "]"}], "=",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"GammaTot", "/.", "coup"}], ")"}], "[",
+ RowBox[{"[", "h", "]"}], "]"}]}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"BRHOP", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+",
+ RowBox[{"0", " ", "3"}], "+", "1"}]}], "]"}], "]"}], "=",
+
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"BR", "[", "H0FF", "]"}], "/.", "coup"}], ")"}],
+ "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "4", ",", "2"}], "]"}], "]"}]}], ";",
+ RowBox[{"(*", "s", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"BRHOP", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+",
+ RowBox[{"1", " ", "3"}], "+", "1"}]}], "]"}], "]"}], "=",
+
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"BR", "[", "H0FF", "]"}], "/.", "coup"}], ")"}],
+ "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "3", ",", "2"}], "]"}], "]"}]}], ";",
+ RowBox[{"(*", "c", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"BRHOP", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+",
+ RowBox[{"2", " ", "3"}], "+", "1"}]}], "]"}], "]"}], "=",
+
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"BR", "[", "H0FF", "]"}], "/.", "coup"}], ")"}],
+ "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "4", ",", "3"}], "]"}], "]"}]}], ";",
+ RowBox[{"(*", "b", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"BRHOP", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+",
+ RowBox[{"3", " ", "3"}], "+", "1"}]}], "]"}], "]"}], "=",
+
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"BR", "[", "H0FF", "]"}], "/.", "coup"}], ")"}],
+ "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "2", ",", "3"}], "]"}], "]"}]}], ";",
+ RowBox[{"(*", "tau", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"BRHOP", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+",
+ RowBox[{"4", " ", "3"}], "+", "1"}]}], "]"}], "]"}], "=",
+
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"BR", "[", "H0VV", "]"}], "/.", "coup"}], ")"}],
+ "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "4"}], "]"}], "]"}]}], ";",
+ RowBox[{"(*", "WW", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"BRHOP", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+",
+ RowBox[{"5", " ", "3"}], "+", "1"}]}], "]"}], "]"}], "=",
+
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"BR", "[", "H0VV", "]"}], "/.", "coup"}], ")"}],
+ "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "3"}], "]"}], "]"}]}], ";",
+ RowBox[{"(*", "ZZ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"BRHOP", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+",
+ RowBox[{"6", " ", "3"}], "+", "1"}]}], "]"}], "]"}], "=",
+
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"BR", "[", "H0VV", "]"}], "/.", "coup"}], ")"}],
+ "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "2"}], "]"}], "]"}]}], ";",
+ RowBox[{"(*",
+ RowBox[{"Z", " ", "gamma"}], "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"BRHOP", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+",
+ RowBox[{"7", " ", "3"}], "+", "1"}]}], "]"}], "]"}], "=",
+
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"BR", "[", "H0VV", "]"}], "/.", "coup"}], ")"}],
+ "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "1"}], "]"}], "]"}]}], ";",
+ RowBox[{"(*", " ",
+ RowBox[{"gamma", " ", "gamma"}], " ", "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"BRHOP", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+",
+ RowBox[{"8", " ", "3"}], "+", "1"}]}], "]"}], "]"}], "=",
+
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"BR", "[", "H0VV", "]"}], "/.", "coup"}], ")"}],
+ "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "5"}], "]"}], "]"}]}], ";",
+ RowBox[{"(*", " ", "gg", " ", "*)"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"(*", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"BRHNP", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+",
+ RowBox[{"0", " ", "3"}], "+", "1"}]}], "]"}], "]"}], "=",
+ "0"}], ";", "\[IndentingNewLine]",
+ RowBox[{"Do", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Do", "[",
+ RowBox[{
+ RowBox[{"{", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"BRHNP", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+",
+ RowBox[{"0", " ", "3"}], "+", "1"}]}], "]"}], "]"}], "=",
+
+ RowBox[{
+ RowBox[{"BRHNP", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+",
+ RowBox[{"0", " ", "3"}], "+", "1"}]}], "]"}], "]"}], "+",
+
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"BR", "[", "H0NeuNeu", "]"}], "/.", "coup"}],
+ ")"}], "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "neu1", ",", "neu2"}], "]"}], "]"}]}]}],
+ ";"}], "\[IndentingNewLine]", "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"neu1", ",", "1", ",", "neu2"}], "}"}]}], "]"}],
+ ";"}], "\[IndentingNewLine]", "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"neu2", ",", "1", ",", "4"}], "}"}]}], "]"}],
+ ";"}],
+ RowBox[{"(*",
+ RowBox[{
+ RowBox[{
+ "Print", "[",
+ "\"\<Check: am i including some decays twice?\>\"", "]"}],
+ ";",
+ RowBox[{"Abort", "[", "]"}], ";", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"have", " ", "checked"}], "-",
+ RowBox[{"i", " ", "was"}]}], ")"}]}], "*)"}],
+ RowBox[{"(*",
+ RowBox[{
+ "should", " ", "only", " ", "include", " ", "LSP"}], " ",
+ "*)"}],
+ RowBox[{"(*",
+ RowBox[{"hopefully", " ", "fixed", " ", "now"}], "*)"}],
+ "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"BRHNP", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+",
+ RowBox[{"0", " ", "3"}], "+", "1"}]}], "]"}], "]"}], "=",
+
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"BR", "[", "H0NeuNeu", "]"}], "/.", "coup"}],
+ ")"}], "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "1", ",", "1"}], "]"}], "]"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"If", "[",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Min", "[",
+ RowBox[{"MCha", "/.", "para"}], "]"}], "<",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"MNeu", "/.", "para"}], ")"}], "[",
+ RowBox[{"[", "1", "]"}], "]"}]}], ")"}], ",",
+ RowBox[{
+ RowBox[{"Print", "[", "\"\<LSP problem 1\>\"", "]"}], ";",
+ RowBox[{"Abort", "[", "]"}], ";"}]}], " ", "]"}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"If", "[",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Min", "[",
+ RowBox[{"MASf", "/.", "para"}], "]"}], "<",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"MNeu", "/.", "para"}], ")"}], "[",
+ RowBox[{"[", "1", "]"}], "]"}]}], ")"}], ",",
+ RowBox[{
+ RowBox[{"Print", "[", "\"\<LSP problem 1\>\"", "]"}], ";",
+ RowBox[{"Abort", "[", "]"}], ";"}]}], " ", "]"}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"If", "[",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"MGl", "/.", "para"}], ")"}], "<",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"MNeu", "/.", "para"}], ")"}], "[",
+ RowBox[{"[", "1", "]"}], "]"}]}], ")"}], ",",
+ RowBox[{
+ RowBox[{"Print", "[", "\"\<LSP problem 1\>\"", "]"}], ";",
+ RowBox[{"Abort", "[", "]"}], ";"}]}], " ", "]"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"If", "[",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"CouplingSM", "[", "H0VV", "]"}], "/.", "coup"}],
+ ")"}], "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "3"}], "]"}], "]"}], "\[Equal]", "0"}],
+ ")"}], ")"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"g2hjZZ", "=", "0"}], ";"}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"g2hjZZ", "=",
+ RowBox[{
+ RowBox[{"Abs", "[",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Coupling", "[", "H0VV", "]"}], "/.", "coup"}],
+ ")"}], "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "3"}], "]"}], "]"}], ")"}], "/",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"CouplingSM", "[", "H0VV", "]"}], "/.", "coup"}],
+ ")"}], "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "3"}], "]"}], "]"}], ")"}]}], "]"}],
+ "^", "2"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"If", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"gghTevSM", "/.", "prod"}], ")"}], "[",
+ RowBox[{"[", "h", "]"}], "]"}], ">", "0"}],
+ "\[IndentingNewLine]", ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"g2hjgg", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"gghTev", "/.", "prod"}], ")"}], "[",
+ RowBox[{"[", "h", "]"}], "]"}], "/",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"gghTevSM", "/.", "prod"}], ")"}], "[",
+ RowBox[{"[", "h", "]"}], "]"}]}]}], ";"}],
+ "\[IndentingNewLine]", ",",
+ RowBox[{"(*",
+ RowBox[{
+ RowBox[{
+ RowBox[{"below", " ", "MH"}], "=", "80"}], ",", " ",
+ RowBox[{
+ "FH", " ", "does", " ", "not", " ", "calculate", " ",
+ "the", " ", "tevatron", " ", "production", " ", "cross",
+ " ", "sections"}]}], " ", "*)"}], "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"If", "[",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"GammaSM", "[", "H0VV", "]"}], "/.", "coup"}],
+ ")"}], "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "5"}], "]"}], "]"}], "\[Equal]", "0"}],
+ ")"}], ")"}], "\[IndentingNewLine]", ",",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"g2hjgg", "=", "0"}], ";",
+ RowBox[{"Print", "[", "\"\<uh oh: g2hjgg=0\>\"", "]"}],
+ ";",
+ RowBox[{"Abort", "[", "]"}], ";"}], "\[IndentingNewLine]",
+ ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"g2hjgg", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Gamma", "[", "H0VV", "]"}], "/.", "coup"}],
+ ")"}], "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "5"}], "]"}], "]"}], "/",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"GammaSM", "[", "H0VV", "]"}], "/.", "coup"}],
+ ")"}], "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "5"}], "]"}], "]"}]}]}], ";"}]}],
+ "\[IndentingNewLine]", "]"}], ";"}]}],
+ "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{"t", "=", "4"}], ";", "\[IndentingNewLine]",
+ RowBox[{"g", "=", "3"}], ";", "\[IndentingNewLine]",
+ RowBox[{"g2hjbbs", "=",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Abs", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"LCoupling", "[", "H0FF", "]"}], "/.", "coup"}],
+ ")"}], "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "t", ",", "g"}], "]"}], "]"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"RCoupling", "[", "H0FF", "]"}], "/.", "coup"}],
+ ")"}], "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "t", ",", "g"}], "]"}], "]"}]}], "]"}],
+ "/",
+ RowBox[{"Abs", "[",
+ RowBox[{"2",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"LCouplingSM", "[", "H0FF", "]"}], "/.", "coup"}],
+ ")"}], "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "t", ",", "g"}], "]"}], "]"}]}],
+ "]"}]}], ")"}], "^", "2"}]}], ";", "\[IndentingNewLine]",
+
+ RowBox[{"g2hjbbp", "=",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Abs", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"LCoupling", "[", "H0FF", "]"}], "/.", "coup"}],
+ ")"}], "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "t", ",", "g"}], "]"}], "]"}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"RCoupling", "[", "H0FF", "]"}], "/.", "coup"}],
+ ")"}], "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "t", ",", "g"}], "]"}], "]"}]}], "]"}],
+ "/",
+ RowBox[{"Abs", "[",
+ RowBox[{"2",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"LCouplingSM", "[", "H0FF", "]"}], "/.", "coup"}],
+ ")"}], "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "t", ",", "g"}], "]"}], "]"}]}],
+ "]"}]}], ")"}], "^", "2"}]}], ";", "\[IndentingNewLine]",
+
+ RowBox[{"g2hjbb", "=",
+ RowBox[{"g2hjbbs", "+", "g2hjbbp"}]}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"t", "=", "2"}], ";", "\[IndentingNewLine]",
+ RowBox[{"g", "=", "3"}], ";", "\[IndentingNewLine]",
+ RowBox[{"g2hjtautaus", "=",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Abs", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"LCoupling", "[", "H0FF", "]"}], "/.", "coup"}],
+ ")"}], "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "t", ",", "g"}], "]"}], "]"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"RCoupling", "[", "H0FF", "]"}], "/.", "coup"}],
+ ")"}], "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "t", ",", "g"}], "]"}], "]"}]}], "]"}],
+ "/",
+ RowBox[{"Abs", "[",
+ RowBox[{"2",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"LCouplingSM", "[", "H0FF", "]"}], "/.", "coup"}],
+ ")"}], "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "t", ",", "g"}], "]"}], "]"}]}],
+ "]"}]}], ")"}], "^", "2"}]}], ";", "\[IndentingNewLine]",
+
+ RowBox[{"g2hjtautaup", "=",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Abs", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"LCoupling", "[", "H0FF", "]"}], "/.", "coup"}],
+ ")"}], "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "t", ",", "g"}], "]"}], "]"}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"RCoupling", "[", "H0FF", "]"}], "/.", "coup"}],
+ ")"}], "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "t", ",", "g"}], "]"}], "]"}]}], "]"}],
+ "/",
+ RowBox[{"Abs", "[",
+ RowBox[{"2",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"LCouplingSM", "[", "H0FF", "]"}], "/.", "coup"}],
+ ")"}], "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "t", ",", "g"}], "]"}], "]"}]}],
+ "]"}]}], ")"}], "^", "2"}]}], ";", "\[IndentingNewLine]",
+
+ RowBox[{"g2hjtautau", "=",
+ RowBox[{"g2hjtautaus", "+", "g2hjtautaup"}]}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"t", "=", "3"}], ";", "\[IndentingNewLine]",
+ RowBox[{"g", "=", "3"}], ";", "\[IndentingNewLine]",
+ RowBox[{"g2hjtoptops", "=",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Abs", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"LCoupling", "[", "H0FF", "]"}], "/.", "coup"}],
+ ")"}], "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "t", ",", "g"}], "]"}], "]"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"RCoupling", "[", "H0FF", "]"}], "/.", "coup"}],
+ ")"}], "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "t", ",", "g"}], "]"}], "]"}]}], "]"}],
+ "/",
+ RowBox[{"Abs", "[",
+ RowBox[{"2",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"LCouplingSM", "[", "H0FF", "]"}], "/.", "coup"}],
+ ")"}], "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "t", ",", "g"}], "]"}], "]"}]}],
+ "]"}]}], ")"}], "^", "2"}]}], ";", "\[IndentingNewLine]",
+
+ RowBox[{"g2hjtoptopp", "=",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Abs", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"LCoupling", "[", "H0FF", "]"}], "/.", "coup"}],
+ ")"}], "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "t", ",", "g"}], "]"}], "]"}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"RCoupling", "[", "H0FF", "]"}], "/.", "coup"}],
+ ")"}], "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "t", ",", "g"}], "]"}], "]"}]}], "]"}],
+ "/",
+ RowBox[{"Abs", "[",
+ RowBox[{"2",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"LCouplingSM", "[", "H0FF", "]"}], "/.", "coup"}],
+ ")"}], "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "t", ",", "g"}], "]"}], "]"}]}],
+ "]"}]}], ")"}], "^", "2"}]}], ";", "\[IndentingNewLine]",
+
+ RowBox[{"g2hjtoptop", "=",
+ RowBox[{"g2hjtoptops", "+", "g2hjtoptopp"}]}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"(*", " ",
+ RowBox[{
+ "difference", " ", "is", " ", "because", " ", "CP", " ",
+ "even", " ", "MSSM", " ", "part", " ", "in", " ",
+ "feynHiggs", " ", "has", " ", "factor", " ",
+ RowBox[{"beta", "^", "2"}], " ", "different", " ", "to",
+ " ", "SM", " ",
+ RowBox[{"part", ".", " ", "Check"}], " ", "in", " ",
+ "new", " ", "version", " ", "of", " ", "FeynHiggs"}],
+ "*)"}], "\[IndentingNewLine]",
+ RowBox[{"(*",
+ RowBox[{
+ RowBox[{"Print", "[",
+ RowBox[{
+ "\"\<hello \>\"", ",", "g2hjbb", ",", "\"\< \>\"", ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"bbhTev", "/.", "prod"}], ")"}], "[",
+ RowBox[{"[", "h", "]"}], "]"}], "/",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"bbhTevSM", "/.", "prod"}], ")"}], "[",
+ RowBox[{"[", "h", "]"}], "]"}]}]}], "]"}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"Print", "[",
+ RowBox[{"\"\<hello4 \>\"", ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Gamma", "[", "H0FF", "]"}], "/.", "coup"}],
+ ")"}], "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "4", ",", "3"}], "]"}], "]"}], "/",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"GammaSM", "[", "H0FF", "]"}], "/.", "coup"}],
+ ")"}], "[",
+ RowBox[{"[",
+ RowBox[{"h", ",", "4", ",", "3"}], "]"}], "]"}]}]}],
+ "]"}], ";"}], "*)"}], "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{"Which", "[",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"g2hjbbs", ">", "0"}], ")"}], "&&",
+ RowBox[{"(",
+ RowBox[{"g2hjbbp", ">", "0"}], ")"}]}], ")"}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"CPvalues", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+", "1"}]}], "]"}], "]"}], "=", "0"}],
+ ";"}], ",", "\[IndentingNewLine]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"g2hjbbs", ">", "0"}], ")"}], "&&",
+ RowBox[{"(",
+ RowBox[{"g2hjbbp", "==", "0"}], ")"}]}], ")"}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"CPvalues", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+", "1"}]}], "]"}], "]"}], "=", "1"}],
+ ";"}], ",", "\[IndentingNewLine]",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"g2hjbbs", "==", "0"}], ")"}], "&&",
+ RowBox[{"(",
+ RowBox[{"g2hjbbp", ">", "0"}], ")"}]}], ")"}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"CPvalues", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+", "1"}]}], "]"}], "]"}], "=",
+ RowBox[{"-", "1"}]}], ";"}], ",", "\[IndentingNewLine]",
+ "True", ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ "Print", "[", "\"\<Problem with CPvalues\>\"", "]"}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"Abort", "[", "]"}], ";"}]}],
+ "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"(*",
+ RowBox[{"**", "**", "**", " ", "LEPHZCSratios"}], " ",
+ "*******)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"LEPHZCSratios", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+", "1"}]}], "]"}], "]"}], "=", "g2hjZZ"}],
+ ";", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"(*",
+ RowBox[{"**", "**", "**", " ", "LEPHffCSratios"}],
+ " ", "*******)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"LEPHffCSratios", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+", "1"}]}], "]"}], "]"}], "=", "g2hjbb"}],
+ ";", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"LEPHffCSratios", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+", "3", "+", "1"}]}], "]"}], "]"}], "=",
+ "g2hjtautau"}], ";", "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{"(*",
+ RowBox[{"**", "**", "**", " ", "TEVH0jetpartCSratios"}],
+ " ", "*******)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"TEVH0jetpartCSratios", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+", "1"}]}], "]"}], "]"}], "=", "g2hjgg"}],
+ ";", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"TEVH0jetpartCSratios", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+", "3", "+", "1"}]}], "]"}], "]"}], "=",
+ "g2hjbb"}], ";", "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{"(*",
+ RowBox[{"**", "**", "**", " ", "TEVH1jetpartCSratios"}],
+ " ", "*******)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"TEVH1jetpartCSratios", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+", "1"}]}], "]"}], "]"}], "=", "g2hjbb"}],
+ ";", "\[IndentingNewLine]",
+ RowBox[{"(*",
+ RowBox[{"**", "**", "**", " ", "TEVHWpartCSratios"}],
+ " ", "*******)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"TEVHWpartCSratios", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+", "1"}]}], "]"}], "]"}], "=", "g2hjZZ"}],
+ ";", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"TEVHWpartCSratios", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+", "3", "+", "1"}]}], "]"}], "]"}], "=",
+ "g2hjZZ"}], ";", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"TEVHWpartCSratios", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+", "6", "+", "1"}]}], "]"}], "]"}], "=",
+ "g2hjZZ"}], ";", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"TEVHWpartCSratios", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+", "9", "+", "1"}]}], "]"}], "]"}], "=",
+ "g2hjZZ"}], ";", "\[IndentingNewLine]",
+ RowBox[{"(*",
+ RowBox[{"**", "**", "**", " ", "TEVHZpartCSratios"}],
+ " ", "*******)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"TEVHZpartCSratios", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+", "1"}]}], "]"}], "]"}], "=", "g2hjZZ"}],
+ ";", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"TEVHZpartCSratios", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+", "3", "+", "1"}]}], "]"}], "]"}], "=",
+ "g2hjZZ"}], ";", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"TEVHZpartCSratios", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+", "6", "+", "1"}]}], "]"}], "]"}], "=",
+ "g2hjZZ"}], ";", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"TEVHZpartCSratios", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+", "9", "+", "1"}]}], "]"}], "]"}], "=",
+ "g2hjZZ"}], ";", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"TEVHZpartCSratios", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+", "12", "+", "1"}]}], "]"}], "]"}], "=",
+ "g2hjZZ"}], ";", "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{"(*",
+ RowBox[{"**", "**", "**", " ", "TEVHvbfhadCSratios"}],
+ " ", "*******)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"TEVHvbfhadCSratios", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+", "1"}]}], "]"}], "]"}], "=", "g2hjZZ"}],
+ ";", "\[IndentingNewLine]",
+ RowBox[{"(*",
+ RowBox[{"**", "**", "**", " ", "TEVHtthadCSratios"}],
+ " ", "*******)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"TEVHtthadCSratios", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"h", "+", "1"}]}], "]"}], "]"}], "=",
+ "g2hjtoptop"}], ";"}], "\[IndentingNewLine]",
+ "\[IndentingNewLine]", "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"h", ",", "1", ",", "3"}], "}"}]}], "]"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{"kk", "=", "0"}], ";", "\[IndentingNewLine]",
+ RowBox[{"Do", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Do", "[",
+ RowBox[{
+ RowBox[{"{", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"If", "[",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"ii", "\[NotEqual]", "jj"}], ")"}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"kk", "=",
+ RowBox[{"kk", "+", "1"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"BRHNP", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"3", "+", "kk", "+", "1"}]}], "]"}], "]"}], "=",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"BR", "[", "H0HH", "]"}], "/.", "coup"}], ")"}],
+ "[",
+ RowBox[{"[",
+ RowBox[{"jj", ",", "ii", ",", "ii"}], "]"}], "]"}]}],
+ ";"}]}], " ",
+ RowBox[{"(*", " ",
+ RowBox[{
+ "Note", " ", "this", " ", "FH", " ", "result", " ", "can",
+ " ", "be", " ", "very", " ", "unreliable"}], " ", "*)"}],
+ "\[IndentingNewLine]", "]"}], ";"}],
+ "\[IndentingNewLine]", "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"ii", ",", "1", ",", "3"}], "}"}]}], "]"}], ";"}],
+ "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"jj", ",", "1", ",", "3"}], "}"}]}], "]"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"norm", "=",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"Abs", "[",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"CouplingSM", "[", "H0VV", "]"}], "//.", "coup"}],
+ ")"}], "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "3"}], "]"}], "]"}], "]"}], ")"}], "/",
+ "MZ"}], "/", "2"}], ")"}], "^", "2"}]}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"kk", "=", "0"}], ";", "\[IndentingNewLine]",
+ RowBox[{"Do", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Do", "[",
+ RowBox[{
+ RowBox[{"{", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"If", "[",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"jj", "\[GreaterEqual]", " ", "ii"}], ")"}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"kk", "=",
+ RowBox[{"kk", "+", "1"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"If", "[",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"ii", "\[NotEqual]", "jj"}], ")"}], ",",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"LEP2HCSratios", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"kk", "+", "1"}]}], "]"}], "]"}], "=",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Abs", "[",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Coupling", "[", "H0HV", "]"}], "/.", "coup"}],
+ ")"}], "[",
+ RowBox[{"[",
+ RowBox[{"jj", ",", "ii"}], "]"}], "]"}], "]"}], "^",
+ "2"}], ")"}], "/", "norm"}]}], ";"}],
+ "\[IndentingNewLine]", ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"LEP2HCSratios", "[",
+ RowBox[{"[",
+ RowBox[{"n", ",",
+ RowBox[{"kk", "+", "1"}]}], "]"}], "]"}], "=", "0"}],
+ ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}],
+ "\[IndentingNewLine]", "]"}], ";"}],
+ "\[IndentingNewLine]", "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"ii", ",", "1", ",", "3"}], "}"}]}], "]"}], ";"}],
+ "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"jj", ",", "1", ",", "3"}], "}"}]}], "]"}],
+ ";"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]",
+ "]"}], ";"}], "\[IndentingNewLine]", "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "ibeg", ",", "ifin"}], "}"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"j", ",", "jbeg", ",", "jfin"}], "}"}]}], "]"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"outputlocation", "=",
+ RowBox[{
+ "outputdir", "<>", "\"\<HB_\>\"", "<>", "varypara", "<>",
+ "\"\<-\>\""}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]",
+
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"outputlocation", "<>", "\"\<MH_GammaTot.dat\>\""}], ",",
+ RowBox[{"N", "[",
+ RowBox[{"MhGammaTot", ",", "9"}], "]"}]}], "]"}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"outputlocation", "<>", "\"\<MHplus_GammaTot.dat\>\""}],
+ ",",
+ RowBox[{"N", "[",
+ RowBox[{"MhplusGammaTot", ",", "9"}], "]"}]}], "]"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"outputlocation", "<>", "\"\<LEP_HZ_CS_ratios.dat\>\""}],
+ ",",
+ RowBox[{"N", "[",
+ RowBox[{"LEPHZCSratios", ",", "9"}], "]"}]}], "]"}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"outputlocation", "<>", "\"\<LEP_H_ff_CS_ratios.dat\>\""}],
+ ",",
+ RowBox[{"N", "[",
+ RowBox[{"LEPHffCSratios", ",", "9"}], "]"}]}], "]"}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"outputlocation", "<>", "\"\<LEP_2H_CS_ratios.dat\>\""}],
+ ",",
+ RowBox[{"N", "[",
+ RowBox[{"LEP2HCSratios", ",", "9"}], "]"}]}], "]"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"outputlocation", "<>", "\"\<LEP_HpHm_CS_ratios.dat\>\""}],
+ ",",
+ RowBox[{"N", "[",
+ RowBox[{"LEPHpHmCSratios", ",", "9"}], "]"}]}], "]"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{
+ "outputlocation", "<>", "\"\<TEV_H_0jet_partCS_ratios.dat\>\""}],
+ ",",
+ RowBox[{"N", "[",
+ RowBox[{"TEVH0jetpartCSratios", ",", "9"}], "]"}]}], "]"}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{
+ "outputlocation", "<>", "\"\<TEV_H_1jet_partCS_ratios.dat\>\""}],
+ ",",
+ RowBox[{"N", "[",
+ RowBox[{"TEVH1jetpartCSratios", ",", "9"}], "]"}]}], "]"}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{
+ "outputlocation", "<>", "\"\<TEV_HW_partCS_ratios.dat\>\""}], ",",
+ RowBox[{"N", "[",
+ RowBox[{"TEVHWpartCSratios", ",", "9"}], "]"}]}], "]"}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{
+ "outputlocation", "<>", "\"\<TEV_HZ_partCS_ratios.dat\>\""}], ",",
+ RowBox[{"N", "[",
+ RowBox[{"TEVHZpartCSratios", ",", "9"}], "]"}]}], "]"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{
+ "outputlocation", "<>", "\"\<TEV_H_vbf_hadCS_ratios.dat\>\""}], ",",
+ RowBox[{"N", "[",
+ RowBox[{"TEVHvbfhadCSratios", ",", "9"}], "]"}]}], "]"}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{
+ "outputlocation", "<>", "\"\<TEV_H_tt_hadCS_ratios.dat\>\""}], ",",
+
+ RowBox[{"N", "[",
+ RowBox[{"TEVHtthadCSratios", ",", "9"}], "]"}]}], "]"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"outputlocation", "<>", "\"\<BR_H_OP.dat\>\""}], ",",
+ RowBox[{"N", "[",
+ RowBox[{"BRHOP", ",", "9"}], "]"}]}], "]"}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"outputlocation", "<>", "\"\<BR_H_NP.dat\>\""}], ",",
+ RowBox[{"N", "[",
+ RowBox[{"BRHNP", ",", "9"}], "]"}]}], "]"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"outputlocation", "<>", "\"\<BR_t.dat\>\""}], ",",
+ RowBox[{"N", "[",
+ RowBox[{"BRt", ",", "9"}], "]"}]}], "]"}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"outputlocation", "<>", "\"\<BR_Hplus.dat\>\""}], ",",
+ RowBox[{"N", "[",
+ RowBox[{"BRHplus", ",", "9"}], "]"}]}], "]"}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"outputlocation", "<>", "\"\<CP_values.dat\>\""}], ",",
+ "CPvalues"}], "]"}], ";", "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"outputlocation", "<>", "\"\<additional.dat\>\""}], ",",
+ RowBox[{"N", "[",
+ RowBox[{"addit", ",", "9"}], "]"}]}], "]"}], ";",
+ "\[IndentingNewLine]",
+ RowBox[{"(*",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"outputlocation", "<>", "\"\<effC.dat\>\""}], ",",
+ RowBox[{"N", "[",
+ RowBox[{"effC", ",", "9"}], "]"}]}], "]"}], ";"}], "*)"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"Print", "[",
+ RowBox[{"\"\<time used: \>\"", ",",
+ RowBox[{
+ RowBox[{"SessionTime", "[", "]"}], "-", "time1"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"xx", ",", "1", ",", "2"}], "}"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]"}]}]], "Input",
+ CellChangeTimes->{{3.406203681955541*^9, 3.406203743997806*^9},
+ 3.406278704416736*^9, {3.450696044010429*^9, 3.450696045647995*^9}, {
+ 3.450696081756885*^9, 3.45069610696495*^9}, {3.450696154530468*^9,
+ 3.450696175652822*^9}, {3.450696269953558*^9, 3.450696280291201*^9}, {
+ 3.450696323360458*^9, 3.450696330007853*^9}, {3.450696371997052*^9,
+ 3.450696378903576*^9}, {3.450696431582559*^9, 3.450696507857999*^9}, {
+ 3.450696583982996*^9, 3.450696596997334*^9}, {3.450696684458887*^9,
+ 3.4506966984358377`*^9}, 3.4506967371878967`*^9, {3.4506967786817713`*^9,
+ 3.450696797334614*^9}, {3.450696831311447*^9, 3.4506968821223803`*^9}, {
+ 3.4506971041576138`*^9, 3.4506971712017717`*^9}, {3.4506972429351482`*^9,
+ 3.450697249591701*^9}, {3.450697301382052*^9, 3.450697357794895*^9}, {
+ 3.4506978360206623`*^9, 3.45069790060707*^9}, {3.450697959104067*^9,
+ 3.4506980061970367`*^9}, {3.450698098467636*^9, 3.450698104712553*^9}, {
+ 3.450698262171707*^9, 3.4506982664613934`*^9}, {3.450700499022863*^9,
+ 3.450700505871057*^9}, {3.450700550074231*^9, 3.450700592354021*^9}, {
+ 3.450701528249077*^9, 3.450701563760931*^9}, {3.450701602515297*^9,
+ 3.450701614282949*^9}, {3.450701661816428*^9, 3.450701663712186*^9}, {
+ 3.450701814314883*^9, 3.450701858257021*^9}, {3.450701890115107*^9,
+ 3.4507019161390133`*^9}, 3.460351806972641*^9, {3.460351844307781*^9,
+ 3.460351845002887*^9}, {3.4658875668028803`*^9, 3.465887582519652*^9}, {
+ 3.465888474386998*^9, 3.4658884750786247`*^9}, {3.465888509639835*^9,
+ 3.4658886954363117`*^9}, {3.4658888528822393`*^9, 3.465888964361751*^9}, {
+ 3.4658891609413633`*^9, 3.46588919704583*^9}, {3.4658893201601686`*^9,
+ 3.465889475860289*^9}, {3.465889517158247*^9, 3.465889545591961*^9}, {
+ 3.465889580910046*^9, 3.465889844163353*^9}, {3.465890158293041*^9,
+ 3.465890304674221*^9}, {3.46589036858996*^9, 3.465890390559128*^9}, {
+ 3.4658904490727654`*^9, 3.465890494195365*^9}, {3.465890813599674*^9,
+ 3.465890837755187*^9}, {3.465890896092204*^9, 3.465890914252473*^9}, {
+ 3.4658909794875927`*^9, 3.465890984439681*^9}, {3.465891030270577*^9,
+ 3.465891163070571*^9}, {3.465891211143539*^9, 3.465891335698071*^9}, {
+ 3.465891435352806*^9, 3.465891458211302*^9}, {3.4658914932278214`*^9,
+ 3.465891524249201*^9}, {3.465891603950036*^9, 3.465891693128344*^9}, {
+ 3.465900207028695*^9, 3.465900282869926*^9}, 3.4659009140738297`*^9, {
+ 3.465900966464669*^9, 3.465900979032893*^9}, {3.465901043092013*^9,
+ 3.465901157638682*^9}, {3.465901327882725*^9, 3.465901400201437*^9}, {
+ 3.465901679632864*^9, 3.46590170487682*^9}, {3.465901940538514*^9,
+ 3.465902018599513*^9}, {3.465902088963072*^9, 3.4659020914729767`*^9}, {
+ 3.465902203062557*^9, 3.465902368302099*^9}, {3.465902633299079*^9,
+ 3.465902635243937*^9}, {3.465902973973037*^9, 3.465903066345666*^9}, {
+ 3.465903118455103*^9, 3.465903170535233*^9}, {3.465903232649728*^9,
+ 3.465903367916108*^9}, {3.465903606470457*^9, 3.465903695774476*^9}, {
+ 3.465903786198515*^9, 3.4659037878857193`*^9}, 3.465903827287416*^9, {
+ 3.465903861889271*^9, 3.465904091322074*^9}, {3.465904142456513*^9,
+ 3.465904256026956*^9}, {3.465904372935238*^9, 3.465904406302475*^9}, {
+ 3.465904467421541*^9, 3.465904471465725*^9}, {3.465904602233199*^9,
+ 3.465904689939761*^9}, {3.465904731344121*^9, 3.465904753254006*^9}, {
+ 3.465904796035268*^9, 3.465904874120249*^9}, {3.465906726772894*^9,
+ 3.465906758431493*^9}, {3.465908636154435*^9, 3.465908642721386*^9},
+ 3.465908951614522*^9, {3.465908985768628*^9, 3.465909020099187*^9}, {
+ 3.465984198810803*^9, 3.465984232228713*^9}, {3.465984297045167*^9,
+ 3.465984303284171*^9}, {3.465984395357769*^9, 3.465984396194051*^9}, {
+ 3.465985213066245*^9, 3.465985215787108*^9}, {3.465985426125858*^9,
+ 3.465985427347813*^9}, {3.465985485131112*^9, 3.465985512550182*^9}, {
+ 3.465985640072196*^9, 3.465985643224084*^9}, {3.465986504555216*^9,
+ 3.465986506296904*^9}, {3.465986543893702*^9, 3.465986545455091*^9}, {
+ 3.465986599271174*^9, 3.465986603437623*^9}, {3.465986705234288*^9,
+ 3.465986722438617*^9}, {3.465986771132012*^9, 3.465986866142804*^9}, {
+ 3.465986938449053*^9, 3.465986952858788*^9}, {3.465986992741964*^9,
+ 3.465987055665007*^9}, {3.465987563800815*^9, 3.465987578193302*^9}, {
+ 3.465987686711642*^9, 3.465987688599548*^9}, {3.465987762711335*^9,
+ 3.465987773589896*^9}, 3.465987820075982*^9, {3.465987924572604*^9,
+ 3.465987931882792*^9}, {3.465988323063008*^9, 3.465988381543946*^9}, {
+ 3.465988762187178*^9, 3.465988803370087*^9}, 3.465988970431691*^9, {
+ 3.465989906147279*^9, 3.465989909317596*^9}, {3.465990009373465*^9,
+ 3.465990014346333*^9}, {3.46599123519265*^9, 3.465991236821576*^9}, {
+ 3.465991269627785*^9, 3.465991270556481*^9}, {3.465991676377869*^9,
+ 3.465991706614868*^9}, {3.465992801328374*^9, 3.465992850606588*^9},
+ 3.465992997778525*^9, {3.465993150621069*^9, 3.465993152136075*^9}, {
+ 3.465993198414187*^9, 3.46599320339297*^9}, {3.466006511935948*^9,
+ 3.466006515574228*^9}, {3.46607610732871*^9, 3.466076111000911*^9}, {
+ 3.466076146590646*^9, 3.466076213144088*^9}, {3.466240690330389*^9,
+ 3.466240708479909*^9}, {3.466240764538719*^9, 3.466240815831353*^9}, {
+ 3.466240859849353*^9, 3.466240875748545*^9}, {3.466246127917664*^9,
+ 3.466246152697248*^9}, {3.466246258340739*^9, 3.466246260203463*^9}, {
+ 3.466423456596926*^9, 3.466423496191072*^9}, {3.4664292542964582`*^9,
+ 3.4664292670181313`*^9}, {3.466500497086344*^9, 3.466500521807201*^9}, {
+ 3.4665010342336493`*^9, 3.466501057537786*^9}, {3.46650119190364*^9,
+ 3.466501277056231*^9}, {3.4665013307117643`*^9, 3.466501348167328*^9}, {
+ 3.466501383489091*^9, 3.466501540919374*^9}, {3.466501578350383*^9,
+ 3.466501612858419*^9}, 3.466768753581659*^9, {3.46676878799051*^9,
+ 3.46676885862972*^9}, {3.466832077114751*^9, 3.466832084097108*^9}, {
+ 3.47237753937784*^9, 3.472377618536378*^9}, {3.472378453823055*^9,
+ 3.472378460738755*^9}, {3.472378505348677*^9, 3.472378510182871*^9}, {
+ 3.472378587223282*^9, 3.472378662179167*^9}, 3.486536799185456*^9, {
+ 3.489320189429579*^9, 3.489320251185216*^9}, {3.491403759924341*^9,
+ 3.491403819458763*^9}, {3.491404355182387*^9, 3.491404360129328*^9}, {
+ 3.491404390579096*^9, 3.491404433677149*^9}, {3.491404536004954*^9,
+ 3.491404559405905*^9}, {3.491404624502199*^9, 3.491404631088085*^9}, {
+ 3.491404718494264*^9, 3.491404840602973*^9}, {3.491404872578835*^9,
+ 3.491404922745447*^9}, {3.491406482455208*^9, 3.491406484590908*^9},
+ 3.491408097303306*^9, {3.491413235808671*^9, 3.491413297845994*^9}, {
+ 3.49141441223435*^9, 3.491414413741786*^9}, {3.49141591532986*^9,
+ 3.491415917288544*^9}, {3.491415954123398*^9, 3.491415955469967*^9}, {
+ 3.491416202502969*^9, 3.491416231247247*^9}, {3.491418577625089*^9,
+ 3.491418604275037*^9}, {3.491418838245801*^9, 3.491418840266616*^9}, {
+ 3.491463552891793*^9, 3.491463669834228*^9}, {3.491471284546367*^9,
+ 3.491471291181562*^9}, {3.491475485134574*^9, 3.491475487428399*^9}, {
+ 3.491475644821842*^9, 3.491475675134352*^9}, {3.491475721177581*^9,
+ 3.491475722885457*^9}, {3.491475840027904*^9, 3.491475840817207*^9}, {
+ 3.491476948009236*^9, 3.491476966285291*^9}, {3.491477032385544*^9,
+ 3.491477051466079*^9}, 3.491477082876907*^9, {3.491479345309809*^9,
+ 3.49147937047166*^9}, 3.491494671741496*^9, {3.515232609278597*^9,
+ 3.515232708553568*^9}, {3.515232743108805*^9, 3.515232751882814*^9}, {
+ 3.51523286778852*^9, 3.515232885962775*^9}}]
+},
+WindowSize->{1210, 724},
+WindowMargins->{{23, Automatic}, {Automatic, 25}},
+ShowSelection->True,
+FrontEndVersion->"7.0 for Linux x86 (32-bit) (November 10, 2008)",
+StyleDefinitions->"Default.nb"
+]
+(* End of Notebook Content *)
+
+(* Internal cache information *)
+(*CellTagsOutline
+CellTagsIndex->{}
+*)
+(*CellTagsIndex
+CellTagsIndex->{}
+*)
+(*NotebookFileOutline
+Notebook[{
+Cell[545, 20, 86588, 1895, 6592, "Input"]
+}
+]
+*)
+
+(* End of internal cache information *)

File Metadata

Mime Type
text/x-diff
Expires
Tue, Nov 19, 2:59 PM (1 d, 16 h)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
3804888
Default Alt Text
(89 KB)

Event Timeline