ScannerSInput.nb
No OneTemporary
Actions

Size

62 KB

Subscribers

None

ScannerSInput.nb
View Options

	(* 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[ 63594, 1701]
	NotebookOptionsPosition[ 60550, 1602]
	NotebookOutlinePosition[ 60987, 1619]
	CellTagsIndexPosition[ 60944, 1616]
	WindowFrame->Normal*)

	(* Beginning of Notebook Content *)
	Notebook[{

	Cell[CellGroupData[{
	Cell["ScannerS Input file generator", "Title",
	CellChangeTimes->{{3.534139124702258^9, 3.534139140894373^9}, {
	3.5431344646773643`^9, 3.543134466549079^9}}],

	Cell["\<\
	This notebook allows the user to generate an input file for the Hscanner \
	program, given a polynomial expression for the scalar potential and the \
	number of real components that compose the various scalar multiplets. The \
	first section needs to be edited for each particular model and the key \
	information to provide is: i)The number of real components defining the \
	variable Nreal and the number of couplings Ncoup ii) A fully expanded \
	expression for the scalar potential decomposed in Nreal scalars organised in \
	an array \[Phi][i] with i=1...Nreal, and in terms of the couplings \
	\[Lambda][j], j=1...Ncoup iii) The path and name where to save the Hscanner \
	input file.\
	\>", "Text",
	CellChangeTimes->{{3.534139153767818^9, 3.5341394862417727`^9}, {
	3.534140210077389^9, 3.534140226239519^9}, {3.534140287550242*^9,
	3.534140364231353^9}, {3.534140503439558^9, 3.534140510794918*^9}, {
	3.5341447449859133`^9, 3.534144752493857^9}}],

	Cell[CellGroupData[{

	Cell["User defined expressions (To be edited by the user)", "Section",
	CellChangeTimes->{{3.534139699550837^9, 3.534139703527507^9}, {
	3.534152333239427^9, 3.534152342256386^9}}],

	Cell[CellGroupData[{

	Cell["Number of real components and couplings", "Subsection",
	CellChangeTimes->{{3.5341400938604507`^9, 3.534140099025897^9}, {
	3.534140230565733^9, 3.5341402323063917`^9}}],

	Cell[BoxData[
	RowBox[{
	RowBox[{"Nreal", "=", "8"}], ";"}]], "Input",
	CellChangeTimes->{{3.534140001122467^9, 3.53414002733514^9}, {
	3.535107537502141^9, 3.535107539298517^9}, {3.549553504718693*^9,
	3.54955350476075^9}, {3.5496185414294558`^9, 3.5496185415172157`*^9}, {
	3.565078598988849^9, 3.56507859963789^9}}],

	Cell[BoxData[
	RowBox[{
	RowBox[{"Ncoup", "=", "8"}], ";"}]], "Input",
	CellChangeTimes->{{3.534140236071824^9, 3.534140262292913^9}, {
	3.535107550204233^9, 3.535107551069602^9}, {3.535115146643319*^9,
	3.535115148652267^9}, {3.537020277634386^9, 3.537020277848011*^9}, {
	3.549618546323228^9, 3.549618571938922^9}, {3.549621056195997*^9,
	3.549621056242008^9}, {3.549621150023106^9, 3.549621173023985*^9},
	3.565078602927618^9, 3.565089661638124^9}]
	}, Open ]],

	Cell[CellGroupData[{

	Cell["\<\
	Polynomial Expression for the potential in terms of \[Phi][i] and \[Lambda][j]\
	\>", "Subsection",
	CellChangeTimes->{{3.534140137138444^9, 3.534140159456518^9}, {
	3.534140270579125^9, 3.534140272374899^9}, {3.534140376055615*^9,
	3.534140382933145^9}, {3.534140544931155^9, 3.5341405499086857`*^9}}],

	Cell[CellGroupData[{

	Cell[BoxData[
	RowBox[{"\[CapitalPhi]1", "=",
	RowBox[{"{",
	RowBox[{
	RowBox[{
	RowBox[{"(",
	RowBox[{
	RowBox[{"\[Phi]", "[", "1", "]"}], "+",
	RowBox[{"I", " ",
	RowBox[{"\[Phi]", "[", "2", "]"}]}]}], ")"}], "/",
	RowBox[{"Sqrt", "[", "2", "]"}]}], ",",
	RowBox[{
	RowBox[{"(",
	RowBox[{
	RowBox[{"\[Phi]", "[", "3", "]"}], "+",
	RowBox[{"I", " ",
	RowBox[{"\[Phi]", "[", "4", "]"}]}]}], ")"}], "/",
	RowBox[{"Sqrt", "[", "2", "]"}]}]}], "}"}]}]], "Input",
	CellChangeTimes->{{3.535109196021991^9, 3.535109196373943^9}, {
	3.535109520871797^9, 3.535109528823069^9}, {3.535110070367919*^9,
	3.535110071019047^9}, {3.535111702122002^9, 3.535111702444166*^9}, {
	3.549553587505783^9, 3.549553597393755^9}, {3.5496187395042467`*^9,
	3.5496187613882113`^9}, {3.565089691920523^9, 3.565089706237021*^9}, {
	3.565089750073328^9, 3.565089751799815^9}, {3.56509265539555*^9,
	3.565092659255678^9}, {3.570780201546114^9, 3.570780246360174*^9}}],

	Cell[BoxData[
	FormBox[
	RowBox[{"{",
	RowBox[{
	FractionBox[
	RowBox[{
	RowBox[{"\[Phi]", "(", "1", ")"}], "+",
	RowBox[{"\[ImaginaryI]", " ",
	RowBox[{"\[Phi]", "(", "2", ")"}]}]}],
	SqrtBox["2"]], ",",
	FractionBox[
	RowBox[{
	RowBox[{"\[Phi]", "(", "3", ")"}], "+",
	RowBox[{"\[ImaginaryI]", " ",
	RowBox[{"\[Phi]", "(", "4", ")"}]}]}],
	SqrtBox["2"]]}], "}"}], TraditionalForm]], "Output",
	CellChangeTimes->{
	3.570347593155091^9, 3.570780234626966^9, 3.570780275568789*^9,
	3.570782347770499^9, 3.570801957205337^9, 3.57080200088017*^9,
	3.570802122705267^9, 3.570802161340332^9, 3.570802221310916*^9,
	3.570802303044646^9, 3.573370250600205^9, {3.577100674377851*^9,
	3.577100683118408^9}, 3.577100911586241^9, 3.577102192539304*^9}]
	}, Open ]],

	Cell[CellGroupData[{

	Cell[BoxData[
	RowBox[{"\[CapitalPhi]1Dag", "=",
	RowBox[{"{",
	RowBox[{
	RowBox[{
	RowBox[{"(",
	RowBox[{
	RowBox[{"\[Phi]", "[", "1", "]"}], "-",
	RowBox[{"I", " ",
	RowBox[{"\[Phi]", "[", "2", "]"}]}]}], ")"}], "/",
	RowBox[{"Sqrt", "[", "2", "]"}]}], ",",
	RowBox[{
	RowBox[{"(",
	RowBox[{
	RowBox[{"\[Phi]", "[", "3", "]"}], "-",
	RowBox[{"I", " ",
	RowBox[{"\[Phi]", "[", "4", "]"}]}]}], ")"}], "/",
	RowBox[{"Sqrt", "[", "2", "]"}]}]}], "}"}]}]], "Input",
	CellChangeTimes->{{3.535109199729326^9, 3.535109200029863^9}, {
	3.53510953462142^9, 3.535109535164555^9}, {3.535110074312305*^9,
	3.535110079458116^9}, {3.535111706207088^9, 3.535111706549427*^9}, {
	3.535115410604756^9, 3.535115410974568^9}, {3.549553589272149*^9,
	3.549553589294136^9}, {3.5495536303617373`^9, 3.5495536304272413`*^9}, {
	3.5496187412780724`^9, 3.549618763241658^9}, {3.565089712866297*^9,
	3.565089721854927^9}, {3.565092663498235^9, 3.565092664409509*^9}, {
	3.566636917275683^9, 3.566636918645827^9}, {3.566637118684303*^9,
	3.566637127880097^9}, {3.566637290440206^9, 3.566637293504091*^9}, {
	3.570780263370391^9, 3.570780271608928^9}}],

	Cell[BoxData[
	FormBox[
	RowBox[{"{",
	RowBox[{
	FractionBox[
	RowBox[{
	RowBox[{"\[Phi]", "(", "1", ")"}], "-",
	RowBox[{"\[ImaginaryI]", " ",
	RowBox[{"\[Phi]", "(", "2", ")"}]}]}],
	SqrtBox["2"]], ",",
	FractionBox[
	RowBox[{
	RowBox[{"\[Phi]", "(", "3", ")"}], "-",
	RowBox[{"\[ImaginaryI]", " ",
	RowBox[{"\[Phi]", "(", "4", ")"}]}]}],
	SqrtBox["2"]]}], "}"}], TraditionalForm]], "Output",
	CellChangeTimes->{
	3.535109536136553^9, 3.53511297970275^9, 3.535115165947134*^9, {
	3.535115404347159^9, 3.535115411975111^9}, 3.535278059564253*^9,
	3.535784418607324^9, 3.535805282405831^9, 3.535806163597977*^9, {
	3.536384721430085^9, 3.536384767407791^9}, 3.537020508222603*^9,
	3.5370205964999437`^9, 3.537189598911167^9, 3.547361880431159*^9,
	3.5473653958339252`^9, 3.547365821748208^9, 3.547905703027606*^9,
	3.5484829144440928`^9, {3.54955362680056^9, 3.5495536318513927`*^9},
	3.5495540396642313`^9, 3.549555530541011^9, 3.549555848016901*^9, {
	3.549555997320868^9, 3.5495560236449003`^9}, 3.5495669493263206`*^9,
	3.549600643604191^9, 3.5496006911698027`^9, {3.5496187228588057`*^9,
	3.5496187485891^9}, 3.5496194167279177`^9, 3.549620983841875*^9,
	3.5496210632086153`^9, {3.54962115410704^9, 3.549621179388376*^9},
	3.54962165502177^9, 3.549621706293095^9, 3.5497068453436832`*^9,
	3.549711878065778^9, 3.552302631944517^9, 3.5523027325171328`*^9,
	3.552302812672686^9, 3.5523055028230762`^9, 3.552842049456295*^9,
	3.555738441132964^9, 3.555741444525577^9, 3.570347593438706*^9,
	3.570780278138885^9, 3.570782347948301^9, 3.570801957254089*^9,
	3.570802000921617^9, 3.570802122868432^9, 3.570802161418197*^9,
	3.570802221419132^9, 3.570802303156346^9, 3.573370250693198*^9, {
	3.577100674596106^9, 3.5771006831698847`^9}, 3.5771009117233*^9,
	3.577102192738039*^9}]
	}, Open ]],

	Cell[CellGroupData[{

	Cell[BoxData[
	RowBox[{"\[CapitalPhi]2", "=",
	RowBox[{"{",
	RowBox[{
	RowBox[{
	RowBox[{"(",
	RowBox[{
	RowBox[{"\[Phi]", "[", "5", "]"}], "+",
	RowBox[{"I", " ",
	RowBox[{"\[Phi]", "[", "6", "]"}]}]}], ")"}], "/",
	RowBox[{"Sqrt", "[", "2", "]"}]}], ",",
	RowBox[{
	RowBox[{"(",
	RowBox[{
	RowBox[{"\[Phi]", "[", "7", "]"}], "+",
	RowBox[{"I", " ",
	RowBox[{"\[Phi]", "[", "8", "]"}]}]}], ")"}], "/",
	RowBox[{"Sqrt", "[", "2", "]"}]}]}], "}"}]}]], "Input",
	CellChangeTimes->{{3.549618764769656^9, 3.5496187702269573`^9}, {
	3.563002584479318^9, 3.563002599228941^9}, {3.566637273703445*^9,
	3.566637282579597^9}, {3.570779429412612^9, 3.57077945600967*^9}, {
	3.570780291194472^9, 3.570780308812855^9}}],

	Cell[BoxData[
	FormBox[
	RowBox[{"{",
	RowBox[{
	FractionBox[
	RowBox[{
	RowBox[{"\[Phi]", "(", "5", ")"}], "+",
	RowBox[{"\[ImaginaryI]", " ",
	RowBox[{"\[Phi]", "(", "6", ")"}]}]}],
	SqrtBox["2"]], ",",
	FractionBox[
	RowBox[{
	RowBox[{"\[Phi]", "(", "7", ")"}], "+",
	RowBox[{"\[ImaginaryI]", " ",
	RowBox[{"\[Phi]", "(", "8", ")"}]}]}],
	SqrtBox["2"]]}], "}"}], TraditionalForm]], "Output",
	CellChangeTimes->{
	3.570780346601282^9, 3.570782348054008^9, 3.570801957347242*^9,
	3.570802000985834^9, 3.570802123118985^9, 3.570802161506234*^9,
	3.570802221488554^9, 3.570802303318881^9, 3.573370250771912*^9, {
	3.5771006746229258`^9, 3.5771006832599087`^9}, 3.577100911978389*^9,
	3.577102192753706*^9}]
	}, Open ]],

	Cell[CellGroupData[{

	Cell[BoxData[
	RowBox[{"\[CapitalPhi]2Dag", "=",
	RowBox[{"{",
	RowBox[{
	RowBox[{
	RowBox[{"(",
	RowBox[{
	RowBox[{"\[Phi]", "[", "5", "]"}], "-",
	RowBox[{"I", " ",
	RowBox[{"\[Phi]", "[", "6", "]"}]}]}], ")"}], "/",
	RowBox[{"Sqrt", "[", "2", "]"}]}], ",",
	RowBox[{
	RowBox[{"(",
	RowBox[{
	RowBox[{"\[Phi]", "[", "7", "]"}], "-",
	RowBox[{"I", " ",
	RowBox[{"\[Phi]", "[", "8", "]"}]}]}], ")"}], "/",
	RowBox[{"Sqrt", "[", "2", "]"}]}]}], "}"}]}]], "Input",
	CellChangeTimes->{{3.549618781513886^9, 3.5496187832577333`^9}, {
	3.566637285796927^9, 3.56663730892208^9}, {3.570780342736515*^9,
	3.570780352659683*^9}}],

	Cell[BoxData[
	FormBox[
	RowBox[{"{",
	RowBox[{
	FractionBox[
	RowBox[{
	RowBox[{"\[Phi]", "(", "5", ")"}], "-",
	RowBox[{"\[ImaginaryI]", " ",
	RowBox[{"\[Phi]", "(", "6", ")"}]}]}],
	SqrtBox["2"]], ",",
	FractionBox[
	RowBox[{
	RowBox[{"\[Phi]", "(", "7", ")"}], "-",
	RowBox[{"\[ImaginaryI]", " ",
	RowBox[{"\[Phi]", "(", "8", ")"}]}]}],
	SqrtBox["2"]]}], "}"}], TraditionalForm]], "Output",
	CellChangeTimes->{
	3.549618784025077^9, 3.549619416777308^9, 3.549620984013175*^9,
	3.549621063422876^9, {3.549621154327694^9, 3.5496211796874437`*^9},
	3.5496216550449667`^9, 3.549621706315928^9, 3.5497068461074057`*^9,
	3.549711878211996^9, 3.552302631999094^9, 3.552302732540604*^9,
	3.552302812743764^9, 3.552305502847011^9, 3.552842049484744*^9,
	3.555738441206912^9, 3.555741444622259^9, 3.570347593958298*^9,
	3.570780353408888^9, 3.570782348288912^9, 3.570801957439808*^9,
	3.570802001049767^9, 3.570802123172003^9, 3.570802161525991*^9,
	3.570802221504252^9, 3.570802303441547^9, 3.573370250872563*^9, {
	3.577100674651019^9, 3.577100683359651^9}, 3.577100912221837*^9,
	3.577102192768567*^9}]
	}, Open ]],

	Cell[CellGroupData[{

	Cell[BoxData[
	RowBox[{"Vscalar", "=",
	RowBox[{"ComplexExpand", "[",
	RowBox[{
	RowBox[{
	RowBox[{"\[Lambda]", "[", "1", "]"}],
	RowBox[{"\[CapitalPhi]1Dag", ".", "\[CapitalPhi]1"}]}], "+",
	RowBox[{
	RowBox[{"\[Lambda]", "[", "2", "]"}], " ",
	RowBox[{"\[CapitalPhi]2Dag", ".", "\[CapitalPhi]2"}]}], "-",
	RowBox[{
	RowBox[{"\[Lambda]", "[", "3", "]"}], " ",
	RowBox[{"(",
	RowBox[{
	RowBox[{"\[CapitalPhi]1Dag", ".", "\[CapitalPhi]2"}], "+",
	RowBox[{"\[CapitalPhi]2Dag", ".", "\[CapitalPhi]1"}]}], ")"}]}], "+",
	RowBox[{
	RowBox[{
	RowBox[{"\[Lambda]", "[", "4", "]"}], "/", "2"}], " ",
	RowBox[{
	RowBox[{"(",
	RowBox[{"\[CapitalPhi]1Dag", ".", "\[CapitalPhi]1"}], ")"}], "^",
	"2"}]}], " ", "+",
	RowBox[{
	RowBox[{
	RowBox[{"\[Lambda]", "[", "5", "]"}], " ", "/", "2"}], " ",
	RowBox[{
	RowBox[{"(",
	RowBox[{"\[CapitalPhi]2Dag", ".", "\[CapitalPhi]2"}], ")"}], "^",
	"2"}]}], "+",
	RowBox[{
	RowBox[{"\[Lambda]", "[", "6", "]"}], " ",
	RowBox[{"(",
	RowBox[{"\[CapitalPhi]1Dag", ".", "\[CapitalPhi]1"}], ")"}], " ",
	RowBox[{"(",
	RowBox[{"\[CapitalPhi]2Dag", ".", "\[CapitalPhi]2"}], ")"}]}], "+",
	RowBox[{
	RowBox[{"\[Lambda]", "[", "7", "]"}],
	RowBox[{"(",
	RowBox[{"\[CapitalPhi]2Dag", ".", "\[CapitalPhi]1"}], ")"}], " ",
	RowBox[{"(",
	RowBox[{"\[CapitalPhi]1Dag", ".", "\[CapitalPhi]2"}], ")"}]}], "+",
	RowBox[{
	RowBox[{
	RowBox[{"\[Lambda]", "[", "8", "]"}], "/", "2"}], " ",
	RowBox[{"(",
	RowBox[{
	RowBox[{
	RowBox[{"(",
	RowBox[{"\[CapitalPhi]1Dag", ".", "\[CapitalPhi]2"}], ")"}], "^",
	"2"}], "+",
	RowBox[{
	RowBox[{"(",
	RowBox[{"\[CapitalPhi]2Dag", ".", "\[CapitalPhi]1"}], ")"}], "^",
	"2"}]}], ")"}]}]}], "]"}]}]], "Input",
	CellChangeTimes->{{3.534144310207885^9, 3.5341444506966047`^9}, {
	3.534144490509598^9, 3.53414458883617^9}, {3.534144624519189*^9,
	3.534144666441533^9}, {3.534178088516856^9, 3.534178111806834*^9}, {
	3.534178147673089^9, 3.5341781921278267`^9}, {3.534178224906232*^9,
	3.534178242164892^9}, {3.5342465770748453`^9, 3.5342465879329967`*^9}, {
	3.53424662105466^9, 3.5342466564110603`^9}, {3.53510999916111*^9,
	3.535110001047953^9}, {3.53511005129663^9, 3.535110051792281*^9}, {
	3.535110277667881^9, 3.535110290667621^9}, {3.535110760050255*^9,
	3.535110761128691^9}, 3.535111722829476^9, {3.535112079559593*^9,
	3.535112145279432^9}, {3.535112452325189^9, 3.535112534267795*^9}, {
	3.535112896297239^9, 3.535112912268751^9}, {3.535115195852663*^9,
	3.535115308267053^9}, {3.535784382495168^9, 3.535784383535134*^9}, {
	3.535805240382502^9, 3.535805241186414^9}, {3.536384713321053*^9,
	3.5363847140485077`^9}, {3.537020326846611^9, 3.53702034303214*^9}, {
	3.537020416238227^9, 3.5370204701153297`^9}, 3.537189581054373*^9,
	3.538305507421482^9, {3.547906780982019^9, 3.547906795151812*^9}, {
	3.5484835535811167`^9, 3.548483554435574^9}, {3.5495536372529383`*^9,
	3.54955368415438^9}, {3.5495558345272703`^9, 3.5495558345724993`*^9},
	3.549555984248444^9, 3.549556019979096^9, {3.549618831668489*^9,
	3.549618903965797^9}, {3.549620947291133^9, 3.549620954260638*^9}, {
	3.549706769625893^9, 3.549706774600843^9}, {3.563002618635407*^9,
	3.563002639581672^9}, {3.563003917132162^9, 3.563003968937449*^9}, {
	3.563005825040492^9, 3.563005866097913^9}, {3.566637402030693*^9,
	3.566637402660519^9}, {3.566637469465615^9, 3.566637476736376*^9}, {
	3.566637516045632^9, 3.566637602565646^9}, {3.566637637466981*^9,
	3.5666376384839^9}, {3.56663768016229^9, 3.566637696295292*^9}, {
	3.566637741054867^9, 3.566637768054602^9}, {3.566637829628353*^9,
	3.566637855787619^9}, {3.566644882033549^9, 3.566644902937996*^9}, {
	3.566644998329653^9, 3.566645000939214^9}, 3.566646094522893*^9,
	3.566646139462853^9, 3.566646182418709^9, 3.566646279403314*^9, {
	3.566646322090582^9, 3.566646362101699^9}}],

	Cell[BoxData[
	FormBox[
	RowBox[{
	RowBox[{
	FractionBox["1", "8"], " ",
	RowBox[{"\[Lambda]", "(", "4", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "1", ")"}], "4"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "4", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "2", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "1", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "4", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "3", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "1", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "4", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "4", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "1", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "6", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "5", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "1", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "7", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "5", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "1", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "8", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "5", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "1", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "6", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "6", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "1", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "7", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "6", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "1", ")"}], "2"]}], "-",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "8", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "6", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "1", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "6", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "7", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "1", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "6", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "8", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "1", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "2"], " ",
	RowBox[{"\[Lambda]", "(", "1", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "1", ")"}], "2"]}], "-",
	RowBox[{
	RowBox[{"\[Lambda]", "(", "3", ")"}], " ",
	RowBox[{"\[Phi]", "(", "5", ")"}], " ",
	RowBox[{"\[Phi]", "(", "1", ")"}]}], "+",
	RowBox[{
	RowBox[{"\[Lambda]", "(", "8", ")"}], " ",
	RowBox[{"\[Phi]", "(", "2", ")"}], " ",
	RowBox[{"\[Phi]", "(", "5", ")"}], " ",
	RowBox[{"\[Phi]", "(", "6", ")"}], " ",
	RowBox[{"\[Phi]", "(", "1", ")"}]}], "+",
	RowBox[{
	FractionBox["1", "2"], " ",
	RowBox[{"\[Lambda]", "(", "7", ")"}], " ",
	RowBox[{"\[Phi]", "(", "3", ")"}], " ",
	RowBox[{"\[Phi]", "(", "5", ")"}], " ",
	RowBox[{"\[Phi]", "(", "7", ")"}], " ",
	RowBox[{"\[Phi]", "(", "1", ")"}]}], "+",
	RowBox[{
	FractionBox["1", "2"], " ",
	RowBox[{"\[Lambda]", "(", "8", ")"}], " ",
	RowBox[{"\[Phi]", "(", "3", ")"}], " ",
	RowBox[{"\[Phi]", "(", "5", ")"}], " ",
	RowBox[{"\[Phi]", "(", "7", ")"}], " ",
	RowBox[{"\[Phi]", "(", "1", ")"}]}], "-",
	RowBox[{
	FractionBox["1", "2"], " ",
	RowBox[{"\[Lambda]", "(", "7", ")"}], " ",
	RowBox[{"\[Phi]", "(", "4", ")"}], " ",
	RowBox[{"\[Phi]", "(", "6", ")"}], " ",
	RowBox[{"\[Phi]", "(", "7", ")"}], " ",
	RowBox[{"\[Phi]", "(", "1", ")"}]}], "+",
	RowBox[{
	FractionBox["1", "2"], " ",
	RowBox[{"\[Lambda]", "(", "8", ")"}], " ",
	RowBox[{"\[Phi]", "(", "4", ")"}], " ",
	RowBox[{"\[Phi]", "(", "6", ")"}], " ",
	RowBox[{"\[Phi]", "(", "7", ")"}], " ",
	RowBox[{"\[Phi]", "(", "1", ")"}]}], "+",
	RowBox[{
	FractionBox["1", "2"], " ",
	RowBox[{"\[Lambda]", "(", "7", ")"}], " ",
	RowBox[{"\[Phi]", "(", "4", ")"}], " ",
	RowBox[{"\[Phi]", "(", "5", ")"}], " ",
	RowBox[{"\[Phi]", "(", "8", ")"}], " ",
	RowBox[{"\[Phi]", "(", "1", ")"}]}], "+",
	RowBox[{
	FractionBox["1", "2"], " ",
	RowBox[{"\[Lambda]", "(", "8", ")"}], " ",
	RowBox[{"\[Phi]", "(", "4", ")"}], " ",
	RowBox[{"\[Phi]", "(", "5", ")"}], " ",
	RowBox[{"\[Phi]", "(", "8", ")"}], " ",
	RowBox[{"\[Phi]", "(", "1", ")"}]}], "+",
	RowBox[{
	FractionBox["1", "2"], " ",
	RowBox[{"\[Lambda]", "(", "7", ")"}], " ",
	RowBox[{"\[Phi]", "(", "3", ")"}], " ",
	RowBox[{"\[Phi]", "(", "6", ")"}], " ",
	RowBox[{"\[Phi]", "(", "8", ")"}], " ",
	RowBox[{"\[Phi]", "(", "1", ")"}]}], "-",
	RowBox[{
	FractionBox["1", "2"], " ",
	RowBox[{"\[Lambda]", "(", "8", ")"}], " ",
	RowBox[{"\[Phi]", "(", "3", ")"}], " ",
	RowBox[{"\[Phi]", "(", "6", ")"}], " ",
	RowBox[{"\[Phi]", "(", "8", ")"}], " ",
	RowBox[{"\[Phi]", "(", "1", ")"}]}], "+",
	RowBox[{
	FractionBox["1", "8"], " ",
	RowBox[{"\[Lambda]", "(", "4", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "2", ")"}], "4"]}], "+",
	RowBox[{
	FractionBox["1", "8"], " ",
	RowBox[{"\[Lambda]", "(", "4", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "3", ")"}], "4"]}], "+",
	RowBox[{
	FractionBox["1", "8"], " ",
	RowBox[{"\[Lambda]", "(", "4", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "4", ")"}], "4"]}], "+",
	RowBox[{
	FractionBox["1", "8"], " ",
	RowBox[{"\[Lambda]", "(", "5", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "5", ")"}], "4"]}], "+",
	RowBox[{
	FractionBox["1", "8"], " ",
	RowBox[{"\[Lambda]", "(", "5", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "6", ")"}], "4"]}], "+",
	RowBox[{
	FractionBox["1", "8"], " ",
	RowBox[{"\[Lambda]", "(", "5", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "7", ")"}], "4"]}], "+",
	RowBox[{
	FractionBox["1", "8"], " ",
	RowBox[{"\[Lambda]", "(", "5", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "8", ")"}], "4"]}], "+",
	RowBox[{
	FractionBox["1", "2"], " ",
	RowBox[{"\[Lambda]", "(", "1", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "2", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "4", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "2", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "3", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "2"], " ",
	RowBox[{"\[Lambda]", "(", "1", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "3", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "4", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "2", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "4", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "4", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "3", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "4", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "2"], " ",
	RowBox[{"\[Lambda]", "(", "1", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "4", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "6", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "2", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "5", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "7", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "2", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "5", ")"}], "2"]}], "-",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "8", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "2", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "5", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "6", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "3", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "5", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "6", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "4", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "5", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "2"], " ",
	RowBox[{"\[Lambda]", "(", "2", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "5", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "6", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "2", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "6", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "7", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "2", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "6", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "8", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "2", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "6", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "6", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "3", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "6", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "6", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "4", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "6", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "5", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "5", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "6", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "2"], " ",
	RowBox[{"\[Lambda]", "(", "2", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "6", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "6", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "2", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "7", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "6", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "3", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "7", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "7", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "3", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "7", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "8", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "3", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "7", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "6", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "4", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "7", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "7", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "4", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "7", ")"}], "2"]}], "-",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "8", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "4", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "7", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "5", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "5", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "7", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "5", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "6", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "7", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "2"], " ",
	RowBox[{"\[Lambda]", "(", "2", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "7", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "6", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "2", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "8", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "6", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "3", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "8", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "7", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "3", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "8", ")"}], "2"]}], "-",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "8", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "3", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "8", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "6", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "4", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "8", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "7", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "4", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "8", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "8", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "4", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "8", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "5", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "5", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "8", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "5", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "6", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "8", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "4"], " ",
	RowBox[{"\[Lambda]", "(", "5", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "7", ")"}], "2"], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "8", ")"}], "2"]}], "+",
	RowBox[{
	FractionBox["1", "2"], " ",
	RowBox[{"\[Lambda]", "(", "2", ")"}], " ",
	SuperscriptBox[
	RowBox[{"\[Phi]", "(", "8", ")"}], "2"]}], "-",
	RowBox[{
	RowBox[{"\[Lambda]", "(", "3", ")"}], " ",
	RowBox[{"\[Phi]", "(", "2", ")"}], " ",
	RowBox[{"\[Phi]", "(", "6", ")"}]}], "-",
	RowBox[{
	RowBox[{"\[Lambda]", "(", "3", ")"}], " ",
	RowBox[{"\[Phi]", "(", "3", ")"}], " ",
	RowBox[{"\[Phi]", "(", "7", ")"}]}], "+",
	RowBox[{
	FractionBox["1", "2"], " ",
	RowBox[{"\[Lambda]", "(", "7", ")"}], " ",
	RowBox[{"\[Phi]", "(", "2", ")"}], " ",
	RowBox[{"\[Phi]", "(", "4", ")"}], " ",
	RowBox[{"\[Phi]", "(", "5", ")"}], " ",
	RowBox[{"\[Phi]", "(", "7", ")"}]}], "-",
	RowBox[{
	FractionBox["1", "2"], " ",
	RowBox[{"\[Lambda]", "(", "8", ")"}], " ",
	RowBox[{"\[Phi]", "(", "2", ")"}], " ",
	RowBox[{"\[Phi]", "(", "4", ")"}], " ",
	RowBox[{"\[Phi]", "(", "5", ")"}], " ",
	RowBox[{"\[Phi]", "(", "7", ")"}]}], "+",
	RowBox[{
	FractionBox["1", "2"], " ",
	RowBox[{"\[Lambda]", "(", "7", ")"}], " ",
	RowBox[{"\[Phi]", "(", "2", ")"}], " ",
	RowBox[{"\[Phi]", "(", "3", ")"}], " ",
	RowBox[{"\[Phi]", "(", "6", ")"}], " ",
	RowBox[{"\[Phi]", "(", "7", ")"}]}], "+",
	RowBox[{
	FractionBox["1", "2"], " ",
	RowBox[{"\[Lambda]", "(", "8", ")"}], " ",
	RowBox[{"\[Phi]", "(", "2", ")"}], " ",
	RowBox[{"\[Phi]", "(", "3", ")"}], " ",
	RowBox[{"\[Phi]", "(", "6", ")"}], " ",
	RowBox[{"\[Phi]", "(", "7", ")"}]}], "-",
	RowBox[{
	RowBox[{"\[Lambda]", "(", "3", ")"}], " ",
	RowBox[{"\[Phi]", "(", "4", ")"}], " ",
	RowBox[{"\[Phi]", "(", "8", ")"}]}], "-",
	RowBox[{
	FractionBox["1", "2"], " ",
	RowBox[{"\[Lambda]", "(", "7", ")"}], " ",
	RowBox[{"\[Phi]", "(", "2", ")"}], " ",
	RowBox[{"\[Phi]", "(", "3", ")"}], " ",
	RowBox[{"\[Phi]", "(", "5", ")"}], " ",
	RowBox[{"\[Phi]", "(", "8", ")"}]}], "+",
	RowBox[{
	FractionBox["1", "2"], " ",
	RowBox[{"\[Lambda]", "(", "8", ")"}], " ",
	RowBox[{"\[Phi]", "(", "2", ")"}], " ",
	RowBox[{"\[Phi]", "(", "3", ")"}], " ",
	RowBox[{"\[Phi]", "(", "5", ")"}], " ",
	RowBox[{"\[Phi]", "(", "8", ")"}]}], "+",
	RowBox[{
	FractionBox["1", "2"], " ",
	RowBox[{"\[Lambda]", "(", "7", ")"}], " ",
	RowBox[{"\[Phi]", "(", "2", ")"}], " ",
	RowBox[{"\[Phi]", "(", "4", ")"}], " ",
	RowBox[{"\[Phi]", "(", "6", ")"}], " ",
	RowBox[{"\[Phi]", "(", "8", ")"}]}], "+",
	RowBox[{
	FractionBox["1", "2"], " ",
	RowBox[{"\[Lambda]", "(", "8", ")"}], " ",
	RowBox[{"\[Phi]", "(", "2", ")"}], " ",
	RowBox[{"\[Phi]", "(", "4", ")"}], " ",
	RowBox[{"\[Phi]", "(", "6", ")"}], " ",
	RowBox[{"\[Phi]", "(", "8", ")"}]}], "+",
	RowBox[{
	RowBox[{"\[Lambda]", "(", "8", ")"}], " ",
	RowBox[{"\[Phi]", "(", "3", ")"}], " ",
	RowBox[{"\[Phi]", "(", "4", ")"}], " ",
	RowBox[{"\[Phi]", "(", "7", ")"}], " ",
	RowBox[{"\[Phi]", "(", "8", ")"}]}]}], TraditionalForm]], "Output",
	CellChangeTimes->{
	3.549553688644093^9, 3.549554039687963^9, 3.549555530601707*^9,
	3.549555848034932^9, {3.5495559974421377`^9, 3.549556023744195*^9},
	3.549566949367874^9, 3.5496006436360598`^9, 3.5496006912214403`*^9,
	3.549618907268854^9, 3.5496194168355007`^9, 3.5496209841571417`*^9,
	3.549621063497464^9, {3.5496211544701147`^9, 3.54962117981526*^9},
	3.5496216551061783`^9, 3.549621706388008^9, 3.549706846546579*^9,
	3.5497118783307123`^9, 3.5523026321262503`^9, 3.552302732594841*^9,
	3.552302812801145^9, 3.552305502904253^9, 3.552842049532589*^9,
	3.555738441253096^9, 3.55574144469486^9, 3.570347594470019*^9,
	3.570780359979332^9, 3.570782348939485^9, 3.5708019576759*^9,
	3.570802001141002^9, 3.570802123576994^9, 3.570802161608792*^9,
	3.57080222159209^9, 3.570802303763793^9, 3.573370251055904*^9, {
	3.5771006749764^9, 3.5771006834427433`^9}, 3.577100912709074*^9,
	3.577102193120843*^9}]
	}, Open ]]
	}, Open ]],

	Cell[CellGroupData[{

	Cell["Ranges", "Subsection",
	CellChangeTimes->{{3.546865685914077^9, 3.5468656870094137`^9}}],

	Cell[BoxData[
	RowBox[{"(*",
	RowBox[{"Vev", " ", "ranges"}], "*)"}]], "Input",
	CellChangeTimes->{{3.546865688705405^9, 3.546865697913678^9}}],

	Cell[BoxData[
	RowBox[{"For", "[",
	RowBox[{
	RowBox[{"i", "=", "1"}], ",",
	RowBox[{"i", "<",
	RowBox[{"Nreal", "+", "1"}]}], ",",
	RowBox[{"++", "i"}], ",", "\[IndentingNewLine]",
	RowBox[{
	RowBox[{
	RowBox[{"\[Phi]min", "[", "i", "]"}], "=", "0"}], ";",
	"\[IndentingNewLine]",
	RowBox[{
	RowBox[{"\[Phi]max", "[", "i", "]"}], "=", "0"}], ";"}]}],
	"\[IndentingNewLine]", "]"}]], "Input",
	CellChangeTimes->{{3.546865782888371^9, 3.5468658311969852`^9}, {
	3.5468662854386387`^9, 3.546866286727405^9}}],

	Cell[BoxData[{
	RowBox[{
	RowBox[{
	RowBox[{"\[Phi]min", "[", "3", "]"}], "=", "0"}],
	";"}], "\[IndentingNewLine]",
	RowBox[{
	RowBox[{
	RowBox[{"\[Phi]max", "[", "3", "]"}], "=", "246"}], ";"}]}], "Input",
	CellChangeTimes->{{3.5468657008270273`^9, 3.54686571271279^9}, {
	3.546865766370644^9, 3.546865778022243^9}, {3.54686583708139*^9,
	3.5468658665627413`^9}, {3.549553704335958^9, 3.549553712340315*^9}, {
	3.549555519385313^9, 3.549555520107472^9}, {3.570781337913424*^9,
	3.570781339185045*^9}}],

	Cell[BoxData[{
	RowBox[{
	RowBox[{
	RowBox[{"\[Phi]min", "[", "7", "]"}], "=", "0"}],
	";"}], "\[IndentingNewLine]",
	RowBox[{
	RowBox[{
	RowBox[{"\[Phi]max", "[", "7", "]"}], "=", "246"}], ";"}]}], "Input",
	CellChangeTimes->{{3.570781330574659^9, 3.570781344514953^9}}],

	Cell[BoxData[
	RowBox[{"(*",
	RowBox[{"Coupling", " ", "ranges"}], "*)"}]], "Input",
	CellChangeTimes->{{3.5468659269024887`^9, 3.5468659332655973`^9}}],

	Cell[BoxData[
	RowBox[{"(*", " ",
	RowBox[{"m11", "^", "2"}], " ", "*)"}]], "Input",
	CellChangeTimes->{{3.546866099586576^9, 3.546866102448353^9}, {
	3.549553885990747^9, 3.5495538876028357`^9}, {3.5496189726644793`*^9,
	3.549618976392605^9}, {3.568360675225217^9, 3.568360687350915*^9}}],

	Cell[BoxData[{
	RowBox[{
	RowBox[{
	RowBox[{"\[Lambda]min", "[", "1", "]"}], "=",
	RowBox[{"-",
	RowBox[{"10", "^", "6"}]}]}], ";"}], "\n",
	RowBox[{
	RowBox[{
	RowBox[{
	RowBox[{"\[Lambda]max", "[", "1", "]"}], "=",
	RowBox[{"10", "^", "6"}]}], ";"}], "\n",
	RowBox[{"(*", " ",
	RowBox[{"m22", "^", "2"}], "*)"}]}], "\n",
	RowBox[{
	RowBox[{
	RowBox[{"\[Lambda]min", "[", "2", "]"}], "=",
	RowBox[{"-",
	RowBox[{"10", "^", "6"}]}]}], ";"}], "\n",
	RowBox[{
	RowBox[{
	RowBox[{
	RowBox[{"\[Lambda]max", "[", "2", "]"}], "=",
	RowBox[{"10", "^", "6"}]}], ";"}], "\n",
	RowBox[{"(*", " ",
	RowBox[{"m12", "^", "2"}], "*)"}]}], "\n",
	RowBox[{
	RowBox[{
	RowBox[{"\[Lambda]min", "[", "3", "]"}], "=",
	RowBox[{"-",
	RowBox[{"10", "^", "6"}]}]}], ";"}], "\n",
	RowBox[{
	RowBox[{
	RowBox[{
	RowBox[{"\[Lambda]max", "[", "3", "]"}], "=",
	RowBox[{"10", "^", "6"}]}], ";"}], "\n", " ",
	RowBox[{"(", " ", "lambda1", " ", ")"}]}], "\n",
	RowBox[{
	RowBox[{
	RowBox[{"\[Lambda]min", "[", "4", "]"}], "=",
	RowBox[{"-", "10"}]}], ";"}], "\n",
	RowBox[{
	RowBox[{
	RowBox[{
	RowBox[{"\[Lambda]max", "[", "4", "]"}], "=", " ", "10"}], ";"}], "\n",
	" ",
	RowBox[{"(", " ", "lambda2", " ", ")"}]}], "\n",
	RowBox[{
	RowBox[{
	RowBox[{"\[Lambda]min", "[", "5", "]"}], "=",
	RowBox[{"-", "10"}]}], ";"}], "\n",
	RowBox[{
	RowBox[{
	RowBox[{
	RowBox[{"\[Lambda]max", "[", "5", "]"}], "=", "10"}], ";"}], "\n", " ",
	RowBox[{"(", " ", "lambda3", " ", ")"}]}], "\n",
	RowBox[{
	RowBox[{
	RowBox[{"\[Lambda]min", "[", "6", "]"}], "=",
	RowBox[{"-", "10"}]}], ";"}], "\n",
	RowBox[{
	RowBox[{
	RowBox[{"\[Lambda]max", "[", "6", "]"}], "=", " ", "10"}], ";"}]}], "Input",\

	CellChangeTimes->{{3.546865971934822^9, 3.546866141749364^9}, {
	3.54736590838002^9, 3.547365950861902^9}, {3.5495537902842817`*^9,
	3.54955382098479^9}, {3.549553853679388^9, 3.549553982174777*^9}, {
	3.549566937249063^9, 3.5495669446538687`^9}, {3.549618978213484*^9,
	3.549619137635911^9}, {3.549619179935617^9, 3.549619290523549*^9}, {
	3.5496209612335463`^9, 3.549620961646048^9}, {3.54970676170907*^9,
	3.5497067633455143`^9}, {3.552302726898242^9, 3.552302728204114*^9}, {
	3.552302799556973^9, 3.552302802056004^9}, {3.555736872697688*^9,
	3.555736887503777^9}, {3.555738408882618^9, 3.5557384285287857`*^9}, {
	3.555741414612959^9, 3.5557414335266848`^9}, {3.568360679305075*^9,
	3.568360740060766^9}, {3.570801886222523^9, 3.570801926361846*^9}}],

	Cell[BoxData[
	RowBox[{"\[IndentingNewLine]", " ",
	RowBox[{"(", " ", "lambda4", " ", ")"}], "\n",
	RowBox[{
	RowBox[{
	RowBox[{
	RowBox[{"\[Lambda]min", "[", "7", "]"}], "=",
	RowBox[{"-", "10"}]}], ";"}], "\n",
	RowBox[{
	RowBox[{
	RowBox[{"\[Lambda]max", "[", "7", "]"}], "=", " ", "10"}], ";"}], "\n",
	" ",
	RowBox[{"(", " ", "lambda5", " ", ")"}], "\[IndentingNewLine]",
	RowBox[{
	RowBox[{
	RowBox[{"\[Lambda]min", "[", "8", "]"}], "=",
	RowBox[{"-", "10"}]}], ";"}], "\n",
	RowBox[{
	RowBox[{
	RowBox[{"\[Lambda]max", "[", "8", "]"}], "=", " ", "10"}],
	";"}]}]}]], "Input",
	CellChangeTimes->{{3.568360748277626^9, 3.568360772398319^9}, {
	3.570801933871536^9, 3.570801940909851^9}}],

	Cell[BoxData[
	RowBox[{"(*",
	RowBox[{"**",
	RowBox[{"", " ", "Masses", " ", "ranges"}]}], " ", "***)"}]], "Input",
	CellChangeTimes->{{3.547361739076909^9, 3.5473617489008713`^9}}],

	Cell[BoxData[
	RowBox[{"For", "[",
	RowBox[{
	RowBox[{"i", "=", "1"}], ",",
	RowBox[{"i", "<",
	RowBox[{"Nreal", "+", "1"}]}], ",",
	RowBox[{"++", "i"}], ",", "\[IndentingNewLine]",
	RowBox[{
	RowBox[{
	RowBox[{"massmin", "[", "i", "]"}], "=", "200"}], ";",
	"\[IndentingNewLine]",
	RowBox[{
	RowBox[{"massmax", "[", "i", "]"}], "=", "400"}], ";"}]}],
	"\[IndentingNewLine]", "]"}]], "Input",
	CellChangeTimes->{{3.547361770015276^9, 3.547361784801909^9}, {
	3.549600627318317^9, 3.549600629953188^9}, {3.549600685742124*^9,
	3.549600685923493^9}, {3.549619309369874^9, 3.5496193161470957`*^9}, {
	3.552302626409864^9, 3.5523026264460297`^9}, {3.552305498544632*^9,
	3.5523054986004677`^9}, {3.55573843254038^9, 3.55573843280478*^9}, {
	3.5557414381981497`^9, 3.5557414384977827`^9}, {3.577100843939396*^9,
	3.5771008476465683`*^9}}],

	Cell[BoxData[
	RowBox[{
	RowBox[{
	RowBox[{"massmin", "[", "6", "]"}], "=", "0"}], ";",
	RowBox[{
	RowBox[{"massmin", "[", "7", "]"}], "=", "0"}], ";",
	RowBox[{
	RowBox[{"massmin", "[", "8", "]"}], "=", "0"}], ";"}]], "Input",
	CellChangeTimes->{{3.577102128950972^9, 3.577102179850559^9}}],

	Cell[BoxData[
	RowBox[{
	RowBox[{
	RowBox[{"massmin", "[", "1", "]"}], "=", "117"}], ";"}]], "Input",
	CellChangeTimes->{{3.549619343086762^9, 3.5496193554912987`^9}, {
	3.549621392217161^9, 3.549621392246396^9}, {3.57078233320813*^9,
	3.570782333509603^9}, {3.577100612135137^9, 3.5771006133111057`*^9}}],

	Cell[BoxData[
	RowBox[{
	RowBox[{
	RowBox[{"massmax", "[", "1", "]"}], "=", "117"}], ";"}]], "Input",
	CellChangeTimes->{{3.549619356594325^9, 3.5496193624912987`^9}, {
	3.5496213953506613`^9, 3.549621395402425^9}, {3.57078233633569*^9,
	3.570782336658552^9}, {3.57710061746104^9, 3.57710061824796*^9}}]
	}, Open ]],

	Cell[CellGroupData[{

	Cell["Path and name of the file where to write", "Subsection",
	CellChangeTimes->{{3.534140116963636^9, 3.534140127398847^9}, {
	3.534140263482255^9, 3.534140264947093^9}}],

	Cell[BoxData[
	RowBox[{
	RowBox[{"FileWrite", "=",
	RowBox[{"OpenWrite", "[", "\"\<./model.in\>\"", "]"}]}], ";"}]], "Input",
	CellChangeTimes->{{3.534139717587235^9, 3.534139768966077^9},
	3.534139803638607^9, 3.534152013617991^9, 3.534152213696398*^9, {
	3.53417802887564^9, 3.5341780331505747`^9}, 3.5363847417652483`*^9, {
	3.5495540290802603`^9, 3.549554033319929^9}}]
	}, Open ]]
	}, Open ]],

	Cell[CellGroupData[{

	Cell["Routines to generate the file (Not to be edited by the user)", "Section",
	CellChangeTimes->{{3.534139828687394^9, 3.5341398452615843`^9}, {
	3.534144775282943^9, 3.534144775694236^9}, {3.534152310951947*^9,
	3.5341523294879293`*^9}}],

	Cell[CellGroupData[{

	Cell["Print out header of the file", "Subsection",
	CellChangeTimes->{{3.534146235466889^9, 3.53414624680529^9}}],

	Cell[BoxData[
	RowBox[{"(*",
	RowBox[{"Number", " ", "of", " ", "real", " ", "components"}],
	"*)"}]], "Input",
	CellChangeTimes->{{3.534146270603792^9, 3.5341462803620453`^9}}],

	Cell[BoxData[
	RowBox[{"Write", "[",
	RowBox[{"FileWrite", ",", "Nreal"}], "]"}]], "Input",
	CellChangeTimes->{{3.534146295138804^9, 3.534146302878892^9}}],

	Cell[BoxData[
	RowBox[{"(*",
	RowBox[{"Vev", " ", "ranges", " ", "to", " ", "scan"}], " ",
	"*)"}]], "Input",
	CellChangeTimes->{{3.546866175737774^9, 3.54686619176974^9}}],

	Cell[BoxData[
	RowBox[{"For", "[",
	RowBox[{
	RowBox[{"i", "=", "1"}], ",",
	RowBox[{"i", "<",
	RowBox[{"Nreal", "+", "1"}]}], ",",
	RowBox[{"++", "i"}], ",", "\[IndentingNewLine]",
	RowBox[{
	RowBox[{"Write", "[",
	RowBox[{"FileWrite", ",",
	RowBox[{
	RowBox[{"\[Phi]min", "[", "i", "]"}], "//", "FortranForm"}]}], "]"}],
	";", "\[IndentingNewLine]",
	RowBox[{"Write", "[",
	RowBox[{"FileWrite", ",",
	RowBox[{
	RowBox[{"\[Phi]max", "[", "i", "]"}], "//", "FortranForm"}]}], "]"}],
	";"}]}], "\[IndentingNewLine]", "]"}]], "Input",
	CellChangeTimes->{{3.546866207586321^9, 3.546866301571433^9}, {
	3.549711852505024^9, 3.5497118541137447`^9}}],

	Cell[BoxData[
	RowBox[{"(*",
	RowBox[{"Number", " ", "of", " ", "couplings"}], "*)"}]], "Input",
	CellChangeTimes->{{3.546866167284968^9, 3.5468661734597683`^9}}],

	Cell[BoxData[
	RowBox[{"Write", "[",
	RowBox[{"FileWrite", ",", "Ncoup"}], "]"}]], "Input",
	CellChangeTimes->{{3.534146305635784^9, 3.534146321530244^9}}],

	Cell[BoxData[
	RowBox[{"(*", " ",
	RowBox[{"Coupling", " ", "ranges", " ", "to", " ", "scan"}], " ",
	"*)"}]], "Input",
	CellChangeTimes->{{3.546866197329687^9, 3.5468662041940107`^9}}],

	Cell[BoxData[
	RowBox[{"For", "[",
	RowBox[{
	RowBox[{"i", "=", "1"}], ",",
	RowBox[{"i", "<",
	RowBox[{"Ncoup", "+", "1"}]}], ",",
	RowBox[{"++", "i"}], ",", "\[IndentingNewLine]",
	RowBox[{
	RowBox[{"Write", "[",
	RowBox[{"FileWrite", ",",
	RowBox[{
	RowBox[{"\[Lambda]min", "[", "i", "]"}], "//", "FortranForm"}]}],
	"]"}], ";", "\[IndentingNewLine]",
	RowBox[{"Write", "[",
	RowBox[{"FileWrite", ",",
	RowBox[{
	RowBox[{"\[Lambda]max", "[", "i", "]"}], "//", "FortranForm"}]}],
	"]"}], ";"}]}], "\[IndentingNewLine]", "]"}]], "Input",
	CellChangeTimes->{{3.5468663168017483`^9, 3.546866326820451^9}, {
	3.5497118558573513`^9, 3.5497118574541283`^9}}],

	Cell[BoxData[
	RowBox[{"(*", " ",
	RowBox[{
	"Number", " ", "of", " ", "fields", " ", "again", " ", "to", " ", "read",
	" ", "the", " ", "mass", " ", "ranges"}], "*)"}]], "Input",
	CellChangeTimes->{{3.547365371911932^9, 3.547365383442315^9}}],

	Cell[BoxData[
	RowBox[{"Write", "[",
	RowBox[{"FileWrite", ",", "Nreal"}], "]"}]], "Input"],

	Cell[BoxData[
	RowBox[{"(*", " ",
	RowBox[{"Mass", " ", "ranges", " ", "to", " ", "scan"}], " ",
	"*)"}]], "Input",
	CellChangeTimes->{{3.547361830050603^9, 3.5473618359811296`^9}}],

	Cell[BoxData[
	RowBox[{"For", "[",
	RowBox[{
	RowBox[{"i", "=", "1"}], ",",
	RowBox[{"i", "<",
	RowBox[{"Nreal", "+", "1"}]}], ",",
	RowBox[{"++", "i"}], ",", "\[IndentingNewLine]",
	RowBox[{
	RowBox[{"Write", "[",
	RowBox[{"FileWrite", ",",
	RowBox[{
	RowBox[{"massmin", "[", "i", "]"}], "//", "FortranForm"}]}], "]"}],
	";", "\[IndentingNewLine]",
	RowBox[{"Write", "[",
	RowBox[{"FileWrite", ",",
	RowBox[{
	RowBox[{"massmax", "[", "i", "]"}], "//", "FortranForm"}]}], "]"}],
	";"}]}], "\[IndentingNewLine]", "]"}]], "Input",
	CellChangeTimes->{{3.547361839533407^9, 3.54736184189191^9}, {
	3.549711860470704^9, 3.549711862144705^9}}]
	}, Open ]],

	Cell[CellGroupData[{

	Cell["\<\
	Auxiliary functions to get powers and coefficients more easily\
	\>", "Subsection",
	CellChangeTimes->{{3.5341474506108103`^9, 3.534147464264497^9}}],

	Cell["\<\
	This routine extracts the coefficient of the monomial given by Expression_ by \
	replacing all fields by 1\
	\>", "Text",
	CellChangeTimes->{{3.534152362492773^9, 3.5341523979642067`^9}}],

	Cell[BoxData[
	RowBox[{
	RowBox[{"GetCoeff", "[",
	RowBox[{"Expression_", ",", "Nphi_"}], "]"}], ":=", " ",
	RowBox[{"Block", "[",
	RowBox[{
	RowBox[{"{",
	RowBox[{"Elocal", ",", "i"}], "}"}], ",", " ", "\[IndentingNewLine]",
	RowBox[{
	RowBox[{"Elocal", "=", "Expression"}], ";", "\[IndentingNewLine]",
	RowBox[{"For", "[",
	RowBox[{
	RowBox[{"i", "=", "1"}], ",",
	RowBox[{"i", "<",
	RowBox[{"Nphi", "+", "1"}]}], ",",
	RowBox[{"i", "++"}], ",",
	RowBox[{"Elocal", "=",
	RowBox[{"Elocal", "/.",
	RowBox[{
	RowBox[{"\[Phi]", "[", "i", "]"}], "\[Rule]", " ", "1"}]}]}]}],
	"]"}], ";", "\[IndentingNewLine]", "Elocal"}]}], "\[IndentingNewLine]",
	"]"}]}]], "Input",
	CellChangeTimes->{{3.534147477706274^9, 3.534147660073893^9}, {
	3.534147719313902^9, 3.534147720780384^9}}],

	Cell["\<\
	This routine extracts the power of the field j_ in the monomial by replacing \
	all other fields by 1 and extracting the power from the Full Form\
	\>", "Text",
	CellChangeTimes->{{3.534152408471933^9, 3.53415248356816^9}}],

	Cell[BoxData[
	RowBox[{
	RowBox[{"GetPower", "[",
	RowBox[{"Expression_", ",", "Nphi_", ",", "Coeff_", ",", "j_"}], "]"}], ":=",
	RowBox[{"Block", "[",
	RowBox[{
	RowBox[{"{",
	RowBox[{"Elocal", ",", "i", ",", "Pow", ",", "TestPow"}], "}"}], ",",
	" ", "\[IndentingNewLine]",
	RowBox[{"(*",
	RowBox[{"Normalise", " ", "coefficient", " ", "to", " ", "1"}], "*)"}],
	"\[IndentingNewLine]",
	RowBox[{
	RowBox[{"Elocal", "=",
	RowBox[{"Expand", "[",
	RowBox[{"Expression", "/", "Coeff"}], "]"}]}], ";",
	"\[IndentingNewLine]",
	RowBox[{"(*",
	RowBox[{
	"Replace", " ", "all", " ", "other", " ", "fields", " ", "by", " ",
	"1"}], "*)"}], "\[IndentingNewLine]",
	RowBox[{"For", "[",
	RowBox[{
	RowBox[{"i", "=", "1"}], ",",
	RowBox[{"i", "<",
	RowBox[{"Nphi", "+", "1"}]}], ",",
	RowBox[{"i", "++"}], ",",
	RowBox[{"If", "[",
	RowBox[{
	RowBox[{"j", "\[NotEqual]", "i"}], ",",
	RowBox[{"Elocal", "=",
	RowBox[{"Elocal", "/.",
	RowBox[{
	RowBox[{"\[Phi]", "[", "i", "]"}], "\[Rule]", " ", "1"}]}]}]}],
	"]"}]}], "]"}], ";", "\[IndentingNewLine]",
	RowBox[{"(*",
	RowBox[{
	"Test", " ", "variable", " ", "to", " ", "check", " ", "if", " ", "the",
	" ", "power", " ", "is", " ", "1", " ",
	RowBox[{"(",
	RowBox[{"Testpow", "=", "2"}], ")"}], " ", "or", " ", "zero", " ",
	RowBox[{"(",
	RowBox[{"TestPow", "=", "1"}], ")"}]}], "*)"}], "\[IndentingNewLine]",
	RowBox[{"TestPow", "=",
	RowBox[{"Elocal", "/.",
	RowBox[{
	RowBox[{"\[Phi]", "[", "j", "]"}], "\[Rule]", " ", "2"}]}]}], ";",
	"\[IndentingNewLine]",
	RowBox[{"Elocal", "=",
	RowBox[{"Apply", "[",
	RowBox[{"List", ",", "Elocal"}], "]"}]}], ";", "\[IndentingNewLine]",
	RowBox[{"If", "[",
	RowBox[{
	RowBox[{"TestPow", "\[Equal]", "1"}], ",",
	RowBox[{"Pow", "=", "0"}], ",", "\[IndentingNewLine]",
	RowBox[{"If", "[",
	RowBox[{
	RowBox[{"TestPow", "\[Equal]", "2"}], ",",
	RowBox[{"Pow", "=", "1"}], ",",
	RowBox[{"Pow", "=",
	RowBox[{"Elocal", "[",
	RowBox[{"[", "2", "]"}], "]"}]}]}], "]"}]}], "]"}], ";",
	"\[IndentingNewLine]", "Pow"}]}], "\[IndentingNewLine]",
	"]"}]}]], "Input",
	CellChangeTimes->{{3.534147728941441^9, 3.534147877455283^9}, {
	3.534147907829262^9, 3.5341480470972548`^9}, {3.5341482400736427`*^9,
	3.534148293956504^9}, {3.5341483610330067`^9, 3.5341483802055893`*^9}, {
	3.53414919102431^9, 3.534149217123686^9}, {3.5341496746046*^9,
	3.5341496859723473`^9}, {3.534149717673712^9, 3.534149742547817*^9}, {
	3.534149866051763^9, 3.534149866407319^9}, {3.534149900374804*^9,
	3.534149963110811^9}, 3.53415003026639^9, {3.5341501449809303`*^9,
	3.534150176231935^9}, {3.534150243880219^9, 3.534150295360586*^9}, {
	3.53415248877702^9, 3.5341525432943163`^9}, {3.534152587500475*^9,
	3.5341526298880777`*^9}}]
	}, Open ]],

	Cell[CellGroupData[{

	Cell["Creating operators, monomials and print out", "Subsection",
	CellChangeTimes->{{3.534144808363817^9, 3.534144820352249^9}, {
	3.534146207548975^9, 3.534146216550218^9}}],

	Cell[BoxData[
	RowBox[{"For", "[",
	RowBox[{
	RowBox[{"i", "=", "1"}], ",",
	RowBox[{"i", "<",
	RowBox[{"Ncoup", "+", "1"}]}], ",",
	RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
	RowBox[{"(*",
	RowBox[{"Pick", " ", "out", " ", "ith", " ", "operator"}], "*)"}],
	"\[IndentingNewLine]",
	RowBox[{
	RowBox[{"TempOperator", "=",
	RowBox[{"D", "[",
	RowBox[{"Vscalar", ",",
	RowBox[{"\[Lambda]", "[", "i", "]"}]}], "]"}]}], ";",
	"\[IndentingNewLine]",
	RowBox[{"(*",
	RowBox[{"Create", " ", "the", " ", "list", " ", "of", " ", "monomials"}],
	"*)"}], "\[IndentingNewLine]",
	RowBox[{"Htemp", "=",
	RowBox[{"TempOperator", "//", "Head"}]}], ";", "\[IndentingNewLine]",
	RowBox[{"(*",
	RowBox[{
	RowBox[{"Htemp", " ", "can", " ", "be", " ", "the", " ", "Times"}], ",",
	" ", "Plus", ",", " ",
	RowBox[{"Power", " ", "or", " ",
	RowBox[{"\[Phi]", ".", " ", "Plus"}], " ", "indicates", " ", "that",
	" ", "there", " ", "is", " ", "more", " ", "than", " ", "one", " ",
	"element", " ", "on", " ", "the", " ", "list"}], ",", " ",
	RowBox[{
	RowBox[{"i", ".", "e", ".", " ", "Plus"}], " ", "applied", " ", "to",
	" ", "the", " ", "list", " ",
	RowBox[{"{",
	RowBox[{"2", ",", "0"}], "}"}], " ", "is", " ", "2", " ", "whereas",
	" ", "for", " ", "Product", " ", "it", " ", "is", " ", "zero", " ",
	"and", " ", "for", " ", "Power", " ", "it", " ", "is", " ", "1.", " ",
	"The", " ", "extra", " ",
	RowBox[{"Apply", "[",
	RowBox[{"Times", ",", "..."}], "]"}], " ", "does", " ", "nothing",
	" ", "for", " ", "these", " ", "cases", " ", "and", " ", "produces",
	" ", "0", " ", "when", " ", "Htemp", " ", "is", " ", "\[Phi]", " ",
	RowBox[{
	RowBox[{"(",
	RowBox[{
	"since", " ", "it", " ", "will", " ", "be", " ", "applied", " ",
	"to", " ",
	RowBox[{"\[Phi]", "[",
	RowBox[{"2", ",", "0"}], "]"}]}], ")"}], ".", " ", "So"}], " ",
	"when", " ", "not", " ", "2", " ", "it", " ", "means", " ", "there",
	" ", "is", " ", "only", " ", "one", " ", "element", " ", "and", " ",
	"the", " ", "list", " ", "needs", " ", "to", " ", "be", " ",
	RowBox[{"redone", ".", " ", "If"}], " ", "the", " ", "term", " ", "is",
	" ", "something", " ", "like", " ",
	RowBox[{"\[Phi]", "[", "0", "]"}]}], ",", " ",
	RowBox[{
	"then", " ", "the", " ", "If", " ", "statement", " ", "does", " ",
	"nothing"}]}], "*)"}], "\[IndentingNewLine]",
	RowBox[{"If", "[",
	RowBox[{
	RowBox[{
	RowBox[{"Apply", "[",
	RowBox[{"Times", ",",
	RowBox[{"Apply", "[",
	RowBox[{"Htemp", ",",
	RowBox[{"{",
	RowBox[{"2", ",", "0"}], "}"}]}], "]"}]}], "]"}], "\[NotEqual]",
	"2"}], ",", "\[IndentingNewLine]",
	RowBox[{"(*",
	RowBox[{"Single", " ", "term", " ", "case"}], "*)"}],
	"\[IndentingNewLine]",
	RowBox[{
	RowBox[{"MonomList", "[", "i", "]"}], "=",
	RowBox[{"{", "TempOperator", "}"}]}], ",", "\[IndentingNewLine]",
	RowBox[{"(*",
	RowBox[{"Sum", " ", "of", " ", "terms"}], "*)"}],
	"\[IndentingNewLine]",
	RowBox[{
	RowBox[{"MonomList", "[", "i", "]"}], "=",
	RowBox[{"Apply", "[",
	RowBox[{"List", ",", "TempOperator"}], "]"}]}]}],
	"\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]",
	RowBox[{"(*",
	RowBox[{
	"Determine", " ", "number", " ", "of", " ", "monomials", " ", "and", " ",
	"print", " ", "that", " ", "number", " ", "to", " ", "the", " ",
	"file"}], "*)"}], "\[IndentingNewLine]",
	RowBox[{"TempDim", "=",
	RowBox[{
	RowBox[{"Dimensions", "[",
	RowBox[{"MonomList", "[", "i", "]"}], "]"}], "[",
	RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]",
	RowBox[{"Write", "[",
	RowBox[{"FileWrite", ",", "TempDim"}], "]"}], ";", "\[IndentingNewLine]",
	RowBox[{"(*",
	RowBox[{
	"Loop", " ", "over", " ", "monomials", " ", "and", " ", "print", " ",
	"coefficients", " ", "and", " ", "list", " ", "of", " ", "powers"}],
	"*)"}], "\[IndentingNewLine]",
	RowBox[{"For", "[",
	RowBox[{
	RowBox[{"a", "=", "1"}], ",",
	RowBox[{"a", "<",
	RowBox[{"TempDim", "+", "1"}]}], ",",
	RowBox[{"a", "++"}], ",", "\[IndentingNewLine]",
	RowBox[{"(*",
	RowBox[{
	"First", " ", "get", " ", "the", " ", "coefficient", " ", "and", " ",
	"print", " ", "it", " ", "out"}], "*)"}], "\[IndentingNewLine]",
	RowBox[{
	RowBox[{"Coeff", "=",
	RowBox[{"GetCoeff", "[",
	RowBox[{
	RowBox[{
	RowBox[{"MonomList", "[", "i", "]"}], "[",
	RowBox[{"[", "a", "]"}], "]"}], ",", "Nreal"}], "]"}]}], ";",
	"\[IndentingNewLine]",
	RowBox[{"Write", "[",
	RowBox[{"FileWrite", ",",
	RowBox[{
	RowBox[{"N", "[", "Coeff", "]"}], "//", "FortranForm"}]}], "]"}],
	";", "\[IndentingNewLine]",
	RowBox[{"(*",
	RowBox[{
	"Next", " ", "get", " ", "the", " ", "power", " ", "for", " ", "each",
	" ", "field", " ", "and", " ", "Print", " ", "out"}], "*)"}],
	"\[IndentingNewLine]",
	RowBox[{"For", "[",
	RowBox[{
	RowBox[{"j", "=", "1"}], ",",
	RowBox[{"j", "<",
	RowBox[{"Nreal", "+", "1"}]}], ",",
	RowBox[{"j", "++"}], ",", "\[IndentingNewLine]",
	RowBox[{"Write", "[",
	RowBox[{"FileWrite", ",",
	RowBox[{"GetPower", "[",
	RowBox[{
	RowBox[{
	RowBox[{"MonomList", "[", "i", "]"}], "[",
	RowBox[{"[", "a", "]"}], "]"}], ",", "Nreal", ",", "Coeff", ",",
	"j"}], "]"}]}], "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]",
	"]"}]}]}], "\[IndentingNewLine]", "]"}]], "Input",
	CellChangeTimes->{{3.534144834061233^9, 3.5341449452976627`^9}, {
	3.534144982413979^9, 3.53414501954377^9}, {3.534145055587228*^9,
	3.534145222214662^9}, {3.5341452559024563`^9, 3.5341453070385323`*^9}, {
	3.534145369671183^9, 3.5341454691094112`^9}, {3.5341456125005827`*^9,
	3.534145676150502^9}, {3.534145735962528^9, 3.534145911391561*^9}, {
	3.5341460530878773`^9, 3.5341460901853447`^9}, {3.5341461555125732`*^9,
	3.5341461834301863`^9}, {3.53414680370555^9, 3.534146922284253*^9}, {
	3.534147013994132^9, 3.534147046919161^9}, {3.534147082982407*^9,
	3.534147096393712^9}, {3.53414716101731^9, 3.534147304968095*^9}, {
	3.534148484611866^9, 3.5341486729357357`^9}, {3.5341489588403187`*^9,
	3.534148976934011^9}, {3.5341503917566633`^9, 3.534150400527993*^9}, {
	3.534151312246738^9, 3.534151326685^9}, {3.5341514161247053`*^9,
	3.534151435893795^9}, {3.5341515762424707`^9, 3.5341516120338287`*^9}, {
	3.534151662266857^9, 3.5341516836597643`^9}, {3.534151834283736*^9,
	3.5341520055779457`^9}, {3.534152735532069^9, 3.534152735697591*^9},
	3.549711872452415*^9}],

	Cell[BoxData[
	RowBox[{
	RowBox[{
	RowBox[{"Close", "[", "FileWrite", "]"}], ";"}],
	"\[IndentingNewLine]"}]], "Input",
	CellChangeTimes->{{3.534139863186119^9, 3.5341398745637503`^9}, {
	3.5341491405098133`^9, 3.534149144544272^9}}]
	}, Open ]]
	}, Open ]]
	}, Open ]]
	},
	WindowSize->{1280, 748},
	WindowMargins->{{0, Automatic}, {0, Automatic}},
	Magnification:>FEPrivate`If[
	FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.25, 1.25 Inherited],
	FrontEndVersion->"7.0 for Linux x86 (64-bit) (November 11, 2008)",
	StyleDefinitions->"Default.nb"
	]
	(* End of Notebook Content *)

	(* Internal cache information *)
	(*CellTagsOutline
	CellTagsIndex->{}
	*)
	(*CellTagsIndex
	CellTagsIndex->{}
	*)
	(*NotebookFileOutline
	Notebook[{
	Cell[CellGroupData[{
	Cell[567, 22, 163, 2, 104, "Title"],
	Cell[733, 26, 968, 15, 132, "Text"],
	Cell[CellGroupData[{
	Cell[1726, 45, 185, 2, 88, "Section"],
	Cell[CellGroupData[{
	Cell[1936, 51, 180, 2, 46, "Subsection"],
	Cell[2119, 55, 331, 6, 38, "Input"],
	Cell[2453, 63, 477, 8, 38, "Input"]
	}, Open ]],
	Cell[CellGroupData[{
	Cell[2967, 76, 320, 5, 46, "Subsection"],
	Cell[CellGroupData[{
	Cell[3312, 85, 1044, 24, 38, "Input"],
	Cell[4359, 111, 829, 21, 63, "Output"]
	}, Open ]],
	Cell[CellGroupData[{
	Cell[5225, 137, 1242, 27, 38, "Input"],
	Cell[6470, 166, 1940, 37, 63, "Output"]
	}, Open ]],
	Cell[CellGroupData[{
	Cell[8447, 208, 803, 21, 38, "Input"],
	Cell[9253, 231, 790, 21, 63, "Output"]
	}, Open ]],
	Cell[CellGroupData[{
	Cell[10080, 257, 711, 20, 38, "Input"],
	Cell[10794, 279, 1214, 27, 63, "Output"]
	}, Open ]],
	Cell[CellGroupData[{
	Cell[12045, 311, 4171, 85, 89, "Input"],
	Cell[16219, 398, 19713, 545, 669, "Output"]
	}, Open ]]
	}, Open ]],
	Cell[CellGroupData[{
	Cell[35981, 949, 96, 1, 46, "Subsection"],
	Cell[36080, 952, 147, 3, 38, "Input"],
	Cell[36230, 957, 549, 15, 114, "Input"],
	Cell[36782, 974, 526, 12, 64, "Input"],
	Cell[37311, 988, 282, 8, 64, "Input"],
	Cell[37596, 998, 156, 3, 38, "Input"],
	Cell[37755, 1003, 300, 5, 38, "Input"],
	Cell[38058, 1010, 2579, 73, 439, "Input"],
	Cell[40640, 1085, 766, 22, 189, "Input"],
	Cell[41409, 1109, 190, 4, 38, "Input"],
	Cell[41602, 1115, 892, 20, 114, "Input"],
	Cell[42497, 1137, 304, 8, 38, "Input"],
	Cell[42804, 1147, 317, 6, 38, "Input"],
	Cell[43124, 1155, 315, 6, 38, "Input"]
	}, Open ]],
	Cell[CellGroupData[{
	Cell[43476, 1166, 177, 2, 46, "Subsection"],
	Cell[43656, 1170, 392, 7, 38, "Input"]
	}, Open ]]
	}, Open ]],
	Cell[CellGroupData[{
	Cell[44097, 1183, 247, 3, 88, "Section"],
	Cell[CellGroupData[{
	Cell[44369, 1190, 115, 1, 46, "Subsection"],
	Cell[44487, 1193, 183, 4, 38, "Input"],
	Cell[44673, 1199, 159, 3, 38, "Input"],
	Cell[44835, 1204, 178, 4, 38, "Input"],
	Cell[45016, 1210, 715, 19, 114, "Input"],
	Cell[45734, 1231, 166, 3, 38, "Input"],
	Cell[45903, 1236, 159, 3, 38, "Input"],
	Cell[46065, 1241, 191, 4, 38, "Input"],
	Cell[46259, 1247, 727, 19, 114, "Input"],
	Cell[46989, 1268, 251, 5, 38, "Input"],
	Cell[47243, 1275, 93, 2, 38, "Input"],
	Cell[47339, 1279, 187, 4, 38, "Input"],
	Cell[47529, 1285, 708, 19, 114, "Input"]
	}, Open ]],
	Cell[CellGroupData[{
	Cell[48274, 1309, 160, 3, 46, "Subsection"],
	Cell[48437, 1314, 197, 4, 37, "Text"],
	Cell[48637, 1320, 885, 23, 139, "Input"],
	Cell[49525, 1345, 233, 4, 37, "Text"],
	Cell[49761, 1351, 3111, 73, 314, "Input"]
	}, Open ]],
	Cell[CellGroupData[{
	Cell[52909, 1429, 180, 2, 46, "Subsection"],
	Cell[53092, 1433, 7172, 156, 764, "Input"],
	Cell[60267, 1591, 243, 6, 64, "Input"]
	}, Open ]]
	}, Open ]]
	}, Open ]]
	}
	]
	*)

	(* End of internal cache information *)

File Metadata

Mime Type: text/plain
Expires: Sat, Dec 21, 5:59 PM (6 h, 41 m)
Storage Engine: blob
Storage Format: Raw Data
Storage Handle: 4022054
Default Alt Text: ScannerSInput.nb (62 KB)

ScannerSInput.nbNo OneTemporaryActions

ScannerSInput.nbView Options

File Metadata

Event Timeline

ScannerSInput.nb
No OneTemporary
Actions

ScannerSInput.nb
View Options