No OneTemporary
Actions

Size

89 KB

Subscribers

None

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, 14 h)
Storage Engine: blob
Storage Format: Raw Data
Storage Handle: 3804888
Default Alt Text: (89 KB)

No OneTemporaryActions

View Options

File Metadata

Event Timeline

No OneTemporary
Actions