(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 75757, 2128] NotebookOptionsPosition[ 71532, 1977] NotebookOutlinePosition[ 71940, 1993] CellTagsIndexPosition[ 71897, 1990] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[StyleBox["One loop Diagram ( Two Point Function ) :", \ "Chapter"]], "Section", CellChangeTimes->{{3.728122192475917*^9, 3.728122241320765*^9}},ExpressionUUID->"e27b5f45-8235-45ff-8bd3-\ b5b969e2b324"], Cell[TextData[{ "Consider the integral , I ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{ SuperscriptBox["q", "2"], ",", SuperscriptBox["m", "2"], ",", "d"}]}], TraditionalForm]], ExpressionUUID->"4f8c5324-9040-4b21-b357-d9c048792c32"], ") = ", Cell[BoxData[ FormBox[ RowBox[{"\[Integral]", FractionBox[ RowBox[{ SuperscriptBox["d", "d"], "k"}], RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["k", "2"], "-", RowBox[{"2", " ", SubscriptBox["p", "1"], "k"}]}], ")"}], RowBox[{"(", RowBox[{ SuperscriptBox["k", "2"], "-", RowBox[{"2", " ", SubscriptBox["p", "2"], "k"}]}], ")"}], RowBox[{"(", RowBox[{ SuperscriptBox["k", "2"], "-", SuperscriptBox["m", "2"]}], ")"}]}]], " "}], TraditionalForm]], ExpressionUUID->"af2ea029-f3ee-49ce-9777-a61d6a0b28aa"], "in the limit of ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ SubscriptBox["p", "1"], "2"], "=", RowBox[{ SuperscriptBox[ SubscriptBox["p", "2"], "2"], "=", RowBox[{ RowBox[{"0", " ", "and", " ", "2", SubscriptBox["p", "1"], SubscriptBox["p", "2"]}], "=", SuperscriptBox["q", "2"]}]}]}], TraditionalForm]],ExpressionUUID-> "1d574f89-95e9-47f1-9d70-363c7c976874"], " . This process consists of two on-shell massless fermions and gauge boson \ having small mass ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["m", "2"], RowBox[{"<<", SuperscriptBox["q", "2"]}]}], TraditionalForm]],ExpressionUUID-> "cabc8ab3-0fd3-47b3-976f-2a727ec36682"], ". The expansion parameter here is, x = ", Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ SuperscriptBox["m", "2"], SuperscriptBox["q", "2"]], "."}], TraditionalForm]],ExpressionUUID-> "fc03c0a2-bdb9-43b2-8107-fb061b16995d"], "\n " }], "Text", CellChangeTimes->{{3.728122254613879*^9, 3.728122458102771*^9}, 3.731414810206316*^9, {3.734758934252224*^9, 3.73475900506793*^9}, { 3.73475903762893*^9, 3.734759400008396*^9}, {3.745168960026031*^9, 3.7451689611438837`*^9}, {3.745319278916026*^9, 3.745319280319318*^9}},ExpressionUUID->"9ee073b7-b91b-4664-a421-\ 518cd50469df"] }, Open ]], Cell[CellGroupData[{ Cell["Loading Packages :", "Section", CellChangeTimes->{{3.731309594470561*^9, 3.7313096306932077`*^9}, { 3.745318252534129*^9, 3.745318256450288*^9}},ExpressionUUID->"c01948d9-a67c-4e2d-ae65-\ 698283512b2b"], Cell[BoxData[{ RowBox[{"<<", "UF`"}], "\[IndentingNewLine]", RowBox[{"<<", "NDConvexHull`"}]}], "Input", CellChangeTimes->{{3.7281224879549007`*^9, 3.728122511768701*^9}}, ExpressionUUID -> "9de51d65-db22-4e3c-a540-6d24bef8f08e"] }, Open ]], Cell[CellGroupData[{ Cell["Defining relevant functions:", "Section", CellChangeTimes->{{3.7453182252888517`*^9, 3.745318235117008*^9}, 3.745318271219097*^9},ExpressionUUID->"95732086-eaa4-4da8-93b1-\ 20f3fabb3e74"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"getMul", "[", RowBox[{"exp_", ",", "vars_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "expArr", "}"}], ",", RowBox[{ RowBox[{"expArr", "=", RowBox[{"ConstantArray", "[", RowBox[{"0", ",", RowBox[{"Length", "[", "vars", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"expArr", "=", RowBox[{ RowBox[{ RowBox[{"Exponent", "[", RowBox[{"exp", ",", RowBox[{"vars", "[", RowBox[{"[", "#", "]"}], "]"}]}], "]"}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"Length", "[", "vars", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"expArr", ",", "Module"}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"getCoordinates", "[", RowBox[{"listc_", ",", "listpID_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"retList", "=", RowBox[{ RowBox[{ RowBox[{"listc", "[", RowBox[{"[", RowBox[{"listpID", "[", RowBox[{"[", "#", "]"}], "]"}], "]"}], "]"}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"Length", "[", "listpID", "]"}], "]"}]}]}]}], "]"}]}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{ RowBox[{"getNormal", "[", RowBox[{"cList_", ",", "restList_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "dimension", "}"}], ",", RowBox[{ RowBox[{"dimension", "=", RowBox[{ RowBox[{"cList", "[", RowBox[{"[", "1", "]"}], "]"}], "//", "Length"}]}], ";", "\[IndentingNewLine]", RowBox[{"nv", "=", RowBox[{ RowBox[{ RowBox[{"v", "[", "#", "]"}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"dimension", "-", "1"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"nv", "=", RowBox[{"Prepend", "[", RowBox[{"nv", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"planeList", "=", RowBox[{ RowBox[{ RowBox[{"nv", ".", "#"}], "&"}], "/@", "cList"}]}], ";", "\[IndentingNewLine]", RowBox[{"belowList", "=", RowBox[{ RowBox[{ RowBox[{"nv", ".", "#"}], "&"}], "/@", "restList"}]}], ";", "\[IndentingNewLine]", RowBox[{"conditions1", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "\[Equal]", "c"}], "&"}], "/@", "planeList"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "\[GreaterEqual]", "c"}], "&"}], "/@", "belowList"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"inst1", "=", RowBox[{"FindInstance", "[", RowBox[{"conditions1", ",", RowBox[{"Append", "[", RowBox[{ RowBox[{"Rest", "[", "nv", "]"}], ",", "c"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "inst1", "]"}], ">", "0"}], ",", RowBox[{"AppendTo", "[", RowBox[{ RowBox[{"inst1", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"surf", "\[Rule]", RowBox[{"-", "1"}]}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"nv", "=", RowBox[{ RowBox[{ RowBox[{"v", "[", "#", "]"}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"dimension", "-", "1"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"nv", "=", RowBox[{"Prepend", "[", RowBox[{"nv", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"planeList", "=", RowBox[{ RowBox[{ RowBox[{"nv", ".", "#"}], "&"}], "/@", "cList"}]}], ";", "\[IndentingNewLine]", RowBox[{"belowList", "=", RowBox[{ RowBox[{ RowBox[{"nv", ".", "#"}], "&"}], "/@", "restList"}]}], ";", "\[IndentingNewLine]", RowBox[{"conditions2", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "\[Equal]", "c"}], "&"}], "/@", "planeList"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "\[LessEqual]", "c"}], "&"}], "/@", "belowList"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"inst2", "=", RowBox[{"FindInstance", "[", RowBox[{"conditions2", ",", RowBox[{"Append", "[", RowBox[{ RowBox[{"Rest", "[", "nv", "]"}], ",", "c"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "inst2", "]"}], ">", "0"}], ",", RowBox[{ RowBox[{"AppendTo", "[", RowBox[{ RowBox[{"inst2", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"surf", "\[Rule]", "1"}]}], "]"}], ";"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"normal", "=", "Null"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Length", "[", "inst1", "]"}], "\[NotEqual]", "0"}], "&&", RowBox[{ RowBox[{"Length", "[", "inst2", "]"}], "\[NotEqual]", "0"}]}], ",", RowBox[{ RowBox[{"normal", "=", RowBox[{"Union", "[", RowBox[{ RowBox[{"inst1", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"inst2", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "inst1", "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"normal", "=", RowBox[{"inst1", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "inst2", "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"normal", "=", RowBox[{"inst2", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}]}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"normal", ",", "Module"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{ RowBox[{"genCoordinatesNormal", "[", RowBox[{"surfPts_", ",", "allPts_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "This", " ", "function", " ", "takes", " ", "the", " ", "set", " ", "of", " ", "points", " ", "on", " ", "the", " ", "surface", " ", "and", " ", "finds", " ", "the", " ", "normal"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"RegSurfPts", "=", RowBox[{"getCoordinates", "[", RowBox[{"allPts", ",", "surfPts"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"restregSurfList", "=", RowBox[{"Complement", "[", RowBox[{"allPts", ",", "RegSurfPts"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"normale", "=", RowBox[{"getNormal", "[", RowBox[{"RegSurfPts", ",", "restregSurfList"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"normale", ",", "Module"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"UniqueRegion", "[", RowBox[{"allRegions_", ",", "length_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{ RowBox[{"arr", "=", RowBox[{"allRegions", "/.", RowBox[{"Null", "\[Rule]", RowBox[{"Sequence", "[", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"vectors", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Array", "[", RowBox[{"v", ",", "length"}], "]"}], ",", "surf"}], "}"}], "//", "Flatten"}]}], ";", "\[IndentingNewLine]", RowBox[{"NumVectors", "=", RowBox[{"vectors", "/.", "arr"}]}], ";", "\[IndentingNewLine]", RowBox[{"scalings", "=", RowBox[{"DeleteDuplicates", "[", RowBox[{"arr", ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"t", "=", RowBox[{"(", RowBox[{"#", "-", "#2"}], ")"}]}], ")"}], "\[Equal]", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"ConstantArray", "[", RowBox[{"1", ",", RowBox[{"Length", "[", "t", "]"}]}], "]"}]}]}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"scalings", ",", "Module"}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"getLOUF", "[", RowBox[{"U_", ",", "F_", ",", "scaling_", ",", "param_", ",", "surf_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "i", ",", "UVarList", ",", "FVarList", ",", "UScalings", ",", "FScalings", ",", "ULOTerms", ",", "FLOTerms", ",", "ULOExp", ",", "FLOExp", ",", "retArr"}], "}"}], ",", RowBox[{ RowBox[{"UVarList", "=", RowBox[{"U", "[", RowBox[{"[", "All", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"surf", "=", RowBox[{ RowBox[{"1", "\[Rule]", RowBox[{"top", " ", "surface", " ", "and", " ", "surf"}]}], "=", RowBox[{ RowBox[{"-", "1"}], "\[Rule]", RowBox[{"bottom", " ", "surface"}]}]}]}], "*)"}], RowBox[{"FVarList", "=", RowBox[{"F", "[", RowBox[{"[", "All", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"UScalings", "=", RowBox[{"{", "0", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FScalings", "=", RowBox[{"{", "0", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "UVarList", "]"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"AppendTo", "[", RowBox[{"UScalings", ",", RowBox[{"getScaling", "[", RowBox[{"scaling", ",", RowBox[{"UVarList", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "param"}], "]"}]}], "]"}], ";"}]}], "]"}], " ", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "FVarList", "]"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"AppendTo", "[", RowBox[{"FScalings", ",", RowBox[{"getScaling", "[", RowBox[{"scaling", ",", RowBox[{"FVarList", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "param"}], "]"}]}], "]"}], ";"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"UScalings", "=", RowBox[{"Rest", "[", "UScalings", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"FScalings", "=", RowBox[{"Rest", "[", "FScalings", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "UScalings"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "FScalings"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "find", " ", "the", " ", "min", " ", "in", " ", "each", " ", "list", " ", "and", " ", "then", " ", "write", " ", "out", " ", "the", " ", "leading", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"surf", "\[Equal]", RowBox[{"-", "1"}]}], ",", RowBox[{ RowBox[{"ULOTerms", "=", RowBox[{"Position", "[", RowBox[{"UScalings", ",", RowBox[{"Min", "[", "UScalings", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"FLOTerms", "=", RowBox[{"Position", "[", RowBox[{"FScalings", ",", RowBox[{"Min", "[", "FScalings", "]"}]}], "]"}]}], ";"}], ",", RowBox[{ RowBox[{"ULOTerms", "=", RowBox[{"Position", "[", RowBox[{"UScalings", ",", RowBox[{"Max", "[", "UScalings", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"FLOTerms", "=", RowBox[{"Position", "[", RowBox[{"FScalings", ",", RowBox[{"Max", "[", "FScalings", "]"}]}], "]"}]}], ";"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"ULOExp", "=", RowBox[{"Total", "[", RowBox[{"Extract", "[", RowBox[{"U", ",", "ULOTerms"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"FLOExp", "=", RowBox[{"Total", "[", RowBox[{"Extract", "[", RowBox[{"F", ",", "FLOTerms"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"retArr", "=", RowBox[{"{", RowBox[{"ULOExp", ",", "FLOExp"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"retArr", ",", "Module"}], "]"}], ";"}]}], "]"}]}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"getScaling", "[", RowBox[{"scaling_", ",", "exp_", ",", "param_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"scale", ",", "i", ",", "pow", ",", "temp", ",", "pos"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "param", " ", "is", " ", "a", " ", "list", " ", "of", " ", "variables"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"scale", "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "exp", "]"}], "\[Equal]", "Power"}], ",", RowBox[{ RowBox[{"pos", "=", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Position", "[", RowBox[{"param", ",", RowBox[{"exp", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pow", "=", RowBox[{"exp", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"scale", "+=", RowBox[{ RowBox[{"scaling", "[", RowBox[{"[", "pos", "]"}], "]"}], "*", "pow"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"scale", ",", "Module"}], "]"}], ";"}]}], "]"}], " ", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "scaling", "]"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"scale", "+=", RowBox[{ RowBox[{"Count", "[", RowBox[{"exp", ",", RowBox[{"param", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "*", RowBox[{"scaling", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], ";"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "exp", "]"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"(*", RowBox[{"Multiple", " ", "variables", " ", "present"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", RowBox[{"Extract", "[", RowBox[{"exp", ",", "i"}], "]"}], "]"}], "\[Equal]", "Power"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Power", " ", "found"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"temp", "=", RowBox[{"Extract", "[", RowBox[{"exp", ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pos", "=", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Position", "[", RowBox[{"param", ",", RowBox[{"temp", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pow", "=", RowBox[{"temp", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"scale", "+=", RowBox[{ RowBox[{"scaling", "[", RowBox[{"[", "pos", "]"}], "]"}], "*", "pow"}]}], ";"}]}], "]"}], ";"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"scale", ",", "Module"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{"Scalecheck", "[", RowBox[{"Upoly_", ",", "Fpoly_", ",", "alphaparam_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{ RowBox[{"alphaCount", "=", RowBox[{"Length", "[", "alphaparam", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"AllSub", "=", RowBox[{"Subsets", "[", RowBox[{"alphaparam", ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"alphaCount", "-", "1"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"AllTran", "=", RowBox[{"a", " ", "AllSub"}]}], ";", "\[IndentingNewLine]", RowBox[{"TabTran", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AllSub", "[", RowBox[{"[", RowBox[{"Row", ",", "Column"}], "]"}], "]"}], "\[Rule]", RowBox[{"AllTran", "[", RowBox[{"[", RowBox[{"Row", ",", "Column"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"Row", ",", "1", ",", RowBox[{"Length", "[", "AllSub", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Column", ",", "1", ",", RowBox[{"Length", "[", RowBox[{"AllSub", "[", RowBox[{"[", "Row", "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"list1", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Upoly", "/.", RowBox[{"TabTran", "[", RowBox[{"[", "#", "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"a", "^", RowBox[{"Exponent", "[", RowBox[{ RowBox[{"Upoly", "/.", RowBox[{"TabTran", "[", RowBox[{"[", "#", "]"}], "]"}]}], ",", "a"}], "]"}]}], ")"}]}], "===", "Upoly"}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"Length", "[", "TabTran", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"list2", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Fpoly", "/.", RowBox[{"TabTran", "[", RowBox[{"[", "#", "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"a", "^", RowBox[{"Exponent", "[", RowBox[{ RowBox[{"Fpoly", "/.", RowBox[{"TabTran", "[", RowBox[{"[", "#", "]"}], "]"}]}], ",", "a"}], "]"}]}], ")"}]}], "===", "Fpoly"}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"Length", "[", "TabTran", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"list", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"list1", "[", RowBox[{"[", "#", "]"}], "]"}], "&&", RowBox[{"list2", "[", RowBox[{"[", "#", "]"}], "]"}]}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"1", ",", RowBox[{"Length", "[", "list1", "]"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"TabTran", "[", RowBox[{"[", RowBox[{"Flatten", "@", RowBox[{"Position", "[", RowBox[{"list", ",", "True"}], "]"}]}], "]"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TrueLength", "=", RowBox[{"Length", "[", RowBox[{"Position", "[", RowBox[{"list", ",", "True"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"TrueLength", "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], ",", RowBox[{"Print", "[", "\"\\"", "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}]}], "Input", CellChangeTimes->{{3.745318294496614*^9, 3.745318341167096*^9}, { 3.74531872050099*^9, 3.745318722468505*^9}}, ExpressionUUID -> "0b6e2279-9472-49b6-9312-a8176855a347"] }, Closed]], Cell[CellGroupData[{ Cell["Algorithm : ASPIRE", "Section", CellChangeTimes->{{3.745318370503214*^9, 3.745318378922233*^9}},ExpressionUUID->"9b85d175-9d35-4e64-b577-\ b1c5aa2c6a23"], Cell[CellGroupData[{ Cell["Evaluating Symanzik Polynomials :", "Subsection", CellChangeTimes->{{3.745318409915072*^9, 3.7453184283773003`*^9}},ExpressionUUID->"635f40b5-02a6-4493-9824-\ a09cfd3d0e87"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "Changes", " ", "have", " ", "been", " ", "made", " ", "to", " ", "ensure", " ", "that", " ", "U", " ", "polynomial", " ", "has", " ", "the", " ", "correct", " ", "positive", " ", "sign"}], "*)"}], "\[IndentingNewLine]", RowBox[{"uf", "=", RowBox[{"UF", "[", RowBox[{ RowBox[{"{", "k", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["k", "2"], "-", RowBox[{"2", "p1", " ", "k"}]}], ")"}]}], ",", RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["k", "2"], "-", RowBox[{"2", " ", "p2", " ", "k"}]}], ")"}]}], ",", RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["k", "2"], "-", SuperscriptBox["m", "2"]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["p1", "2"], "\[Rule]", "0"}], ",", RowBox[{ SuperscriptBox["p2", "2"], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"2", "p1", " ", "p2"}], "\[Rule]", SuperscriptBox["q", "2"]}], ",", RowBox[{ SuperscriptBox["m", "2"], "\[Rule]", "x"}], ",", " ", RowBox[{ SuperscriptBox["q", "2"], "\[Rule]", "1"}]}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.7281230096434717`*^9, 3.728123028287327*^9}, { 3.734759409694916*^9, 3.7347594876839542`*^9}, {3.734759529013505*^9, 3.7347595335715933`*^9}, {3.74516897099261*^9, 3.745168971760981*^9}, { 3.745171320176259*^9, 3.7451713245818768`*^9}, {3.745319269156949*^9, 3.745319270660338*^9}, {3.752888913965029*^9, 3.752888933308576*^9}, { 3.7529033962684507`*^9, 3.752903399106203*^9}}, ExpressionUUID -> "db948beb-acd7-4680-b10a-09730db146d2"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", "1", "]"}], "+", RowBox[{"x", "[", "2", "]"}], "+", RowBox[{"x", "[", "3", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"x", "[", "1", "]"}], " ", RowBox[{"x", "[", "2", "]"}]}], "+", RowBox[{"x", " ", RowBox[{"x", "[", "1", "]"}], " ", RowBox[{"x", "[", "3", "]"}]}], "+", RowBox[{"x", " ", RowBox[{"x", "[", "2", "]"}], " ", RowBox[{"x", "[", "3", "]"}]}], "+", RowBox[{"x", " ", SuperscriptBox[ RowBox[{"x", "[", "3", "]"}], "2"]}]}], ",", "1"}], "}"}]], "Output", CellChangeTimes->{ 3.728123034438016*^9, 3.728187243028741*^9, 3.7281977015676947`*^9, 3.728202605754078*^9, 3.731311238994238*^9, 3.731311271274014*^9, { 3.731311339539671*^9, 3.7313113592091217`*^9}, 3.731315222044526*^9, 3.731409238294615*^9, 3.731410168576838*^9, 3.7314102044283543`*^9, 3.733651628456855*^9, {3.733666018917987*^9, 3.733666042194357*^9}, 3.7336660759432783`*^9, 3.733666199952224*^9, 3.7336662654351473`*^9, { 3.734759508079029*^9, 3.734759534723157*^9}, {3.734760209316867*^9, 3.734760228379753*^9}, 3.7366609753189363`*^9, 3.736661006311967*^9, { 3.745169073995864*^9, 3.745169095190481*^9}, 3.745169251725665*^9, { 3.745169290840667*^9, 3.745169309800811*^9}, 3.745169396730095*^9, 3.745169727490596*^9, {3.745171325040023*^9, 3.745171340823044*^9}, 3.7451715522050953`*^9, 3.7452165799510202`*^9, 3.745216912946698*^9, 3.7452269740040894`*^9, 3.74522918509411*^9, {3.745312491563155*^9, 3.745312527909378*^9}, 3.745312574164926*^9, 3.745318183489752*^9, 3.745318387207368*^9, 3.745318433204186*^9, 3.745319271488448*^9, 3.752418055000922*^9, 3.752888937901947*^9}, ExpressionUUID -> "b53a59aa-ca32-4603-89eb-d202bbd7db7c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Constructing Groebner basis of Landau Equation :", "Subsection", CellChangeTimes->{{3.728123907446653*^9, 3.7281239231734447`*^9}, { 3.745318391438985*^9, 3.7453183934748993`*^9}},ExpressionUUID->"e6089380-88d3-4095-9e62-\ be266e4d9e1f"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"AlphaVariables", "=", RowBox[{ RowBox[{ RowBox[{"x", "[", "#", "]"}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"Length", "[", RowBox[{"Variables", "[", RowBox[{"uf", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Gb", "=", RowBox[{ RowBox[{"GroebnerBasis", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"uf", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"uf", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"x", "[", "1", "]"}]}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"uf", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"x", "[", "2", "]"}]}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"uf", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"x", "[", "3", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "1", "]"}], ",", RowBox[{"x", "[", "2", "]"}], ",", RowBox[{"x", "[", "3", "]"}]}], "}"}]}], "]"}], "//", "FullSimplify"}]}]}], "Input", CellChangeTimes->{{3.728123055012587*^9, 3.72812315597854*^9}, { 3.7347595607569857`*^9, 3.7347595836695147`*^9}, 3.745318400283554*^9}, ExpressionUUID -> "4463eb1a-5c35-4032-9c50-afd94868acad"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", "x", " ", RowBox[{"x", "[", "3", "]"}]}], ",", RowBox[{ RowBox[{"x", "[", "2", "]"}], "+", RowBox[{"x", " ", RowBox[{"x", "[", "3", "]"}]}]}], ",", RowBox[{ RowBox[{"x", "[", "1", "]"}], "+", RowBox[{"x", " ", RowBox[{"x", "[", "3", "]"}]}]}]}], "}"}]], "Output", CellChangeTimes->{ 3.72812316275611*^9, 3.7281872456317873`*^9, 3.728197701658087*^9, 3.7282026058448067`*^9, 3.7313112389972754`*^9, 3.7313112712770987`*^9, { 3.731311339542609*^9, 3.7313113592125463`*^9}, 3.7313152220506077`*^9, 3.7314092382987022`*^9, 3.731410168580284*^9, 3.731410204431222*^9, 3.733651628460292*^9, {3.73366601892255*^9, 3.7336660421986847`*^9}, 3.733666075962276*^9, 3.7336661999560213`*^9, 3.733666265448503*^9, 3.734759585095934*^9, {3.734760209320539*^9, 3.734760228383603*^9}, 3.736660975321657*^9, 3.736661006314711*^9, {3.745169074011999*^9, 3.7451690951929083`*^9}, 3.745169251749033*^9, {3.745169290858395*^9, 3.7451693098040247`*^9}, 3.745169396732952*^9, 3.745169727493297*^9, 3.745171343743496*^9, 3.745171552208357*^9, 3.7452165799546833`*^9, 3.7452169129656982`*^9, 3.745226974007045*^9, 3.745229185096718*^9, { 3.745312491566189*^9, 3.745312527929968*^9}, 3.745312574188501*^9, 3.745318186406221*^9, 3.745318400733293*^9, 3.745318436173036*^9, 3.7524180584499397`*^9, 3.752888937964787*^9}, ExpressionUUID -> "79cb7fb8-4422-40f6-9228-7d44318da566"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Constructing G polynomial:", "Subsection", CellChangeTimes->{{3.72812457551089*^9, 3.728124596939144*^9}, { 3.728124630972982*^9, 3.7281246346668367`*^9}, {3.7453182053575773`*^9, 3.745318210055237*^9}, 3.745318438456051*^9},ExpressionUUID->"7a0830e0-471d-4964-8a9e-\ 8d80533b640d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"G", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"uf", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"uf", "[", RowBox[{"[", "2", "]"}], "]"}]}], "/.", RowBox[{"{", RowBox[{ SuperscriptBox["q", "2"], "\[Rule]", "1"}], "}"}]}], "//", "Expand"}]}]], "Input", CellChangeTimes->{{3.728124638339748*^9, 3.728124661008401*^9}, { 3.7282025701129017`*^9, 3.728202601382532*^9}, {3.731410159258236*^9, 3.731410161337082*^9}, {3.7314101955575447`*^9, 3.73141020002139*^9}, { 3.7316529770414457`*^9, 3.731652979937437*^9}, {3.7347596357132072`*^9, 3.734759651025011*^9}, 3.745169234255026*^9, 3.745169301551408*^9}, ExpressionUUID -> "f5fe457f-aabe-4a03-ab40-172a65203f62"], Cell[BoxData[ RowBox[{ RowBox[{"x", "[", "1", "]"}], "+", RowBox[{"x", "[", "2", "]"}], "+", RowBox[{ RowBox[{"x", "[", "1", "]"}], " ", RowBox[{"x", "[", "2", "]"}]}], "+", RowBox[{"x", "[", "3", "]"}], "+", RowBox[{"x", " ", RowBox[{"x", "[", "1", "]"}], " ", RowBox[{"x", "[", "3", "]"}]}], "+", RowBox[{"x", " ", RowBox[{"x", "[", "2", "]"}], " ", RowBox[{"x", "[", "3", "]"}]}], "+", RowBox[{"x", " ", SuperscriptBox[ RowBox[{"x", "[", "3", "]"}], "2"]}]}]], "Output", CellChangeTimes->{ 3.745169309851871*^9, 3.745169396774362*^9, 3.745169727533346*^9, 3.745171347188534*^9, 3.745171552248692*^9, 3.7452165799884853`*^9, 3.7452169130053263`*^9, 3.7452269740421886`*^9, 3.7452291851251*^9, { 3.745312491602363*^9, 3.7453125279817257`*^9}, 3.745312574247203*^9, { 3.745318188264308*^9, 3.745318214631974*^9}, 3.745318440831105*^9, 3.752418063664896*^9, 3.752888937987707*^9}, ExpressionUUID -> "7b893db5-2b24-4f5b-87db-8ff4d9fcff15"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Generating support vectors :", "Subsection", CellChangeTimes->{{3.731314509034342*^9, 3.731314547385685*^9}, { 3.731409153974925*^9, 3.731409155765921*^9}, 3.74522861771388*^9, { 3.745318454175556*^9, 3.745318474585783*^9}},ExpressionUUID->"a5e3e22c-3263-4ea3-aabb-\ 5b944594c88a"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"terms1", "=", RowBox[{ RowBox[{ RowBox[{"G", "[", RowBox[{"[", "#", "]"}], "]"}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"Length", "[", "G", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"vecExp1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"getMul", "[", RowBox[{ RowBox[{"terms1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Prepend", "[", RowBox[{"AlphaVariables", ",", "x"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "terms1", "]"}]}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.7281248128215227`*^9, 3.72812487685919*^9}, 3.731314784753673*^9, {3.7453182762620487`*^9, 3.74531830607108*^9}}, ExpressionUUID -> "f152566b-428f-442e-b917-bec4b90b594e"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "2"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.728124850362763*^9, 3.728124883971199*^9, 3.72818725539892*^9, 3.728197702403822*^9, 3.72820260627111*^9, 3.731311239188065*^9, 3.7313112713403482`*^9, {3.731311339605894*^9, 3.731311359327293*^9}, 3.731314786962731*^9, 3.731315222128928*^9, 3.731409238394415*^9, 3.73141016865079*^9, 3.731410204497075*^9, 3.733651628573286*^9, { 3.7336660189826317`*^9, 3.733666042266469*^9}, 3.733666076020412*^9, 3.733666200014144*^9, 3.7336662655133333`*^9, 3.73475965806809*^9, { 3.7347602093567543`*^9, 3.734760228446896*^9}, 3.7366609753817596`*^9, 3.7366610063822308`*^9, {3.7451690740721893`*^9, 3.745169095258485*^9}, 3.74516925192179*^9, {3.7451692910082617`*^9, 3.7451693098734913`*^9}, 3.745169396793879*^9, 3.745169727551803*^9, 3.745171349663769*^9, 3.7451715522689037`*^9, 3.745216580014967*^9, 3.745216913023569*^9, 3.745226974076994*^9, 3.745229185152966*^9, {3.74531249162295*^9, 3.74531252800282*^9}, 3.745312574271847*^9, 3.7453184464224987`*^9, 3.745318494415848*^9, 3.752418067111245*^9, 3.752888938007676*^9}, ExpressionUUID -> "0bfbee4c-eda9-4112-b591-1efa2dd4cf3b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Constructing Newton Polytope of the support:", "Subsection", CellChangeTimes->{{3.731314805449808*^9, 3.7313148401687307`*^9}, { 3.731315196583253*^9, 3.731315200647011*^9}, {3.731409158613769*^9, 3.731409160501829*^9}, {3.7453184847386427`*^9, 3.745318500250098*^9}},ExpressionUUID->"6b609678-cc91-42c6-9e34-\ f5481b1cd9f3"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NP1", "=", RowBox[{"CHNQuickHull", "[", "vecExp1", "]"}]}]], "Input", CellChangeTimes->{{3.728124902872465*^9, 3.728124909579042*^9}}, ExpressionUUID -> "b7351eae-6cf2-4aab-b793-50d2e861976d"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "4", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "5", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "7", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "7", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "4", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "6", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "7", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "7", ",", "6"}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.728124910921954*^9, 3.728187259013158*^9, 3.7281977024881287`*^9, 3.728202606372286*^9, 3.7313112392137127`*^9, 3.7313112713635674`*^9, { 3.7313113396284103`*^9, 3.7313113593782167`*^9}, 3.731315222147091*^9, 3.7314092384230433`*^9, 3.7314101686693907`*^9, 3.731410204516046*^9, 3.73365162859373*^9, {3.7336660190011787`*^9, 3.733666042286525*^9}, 3.7336660760392714`*^9, 3.733666200041638*^9, 3.733666265524663*^9, 3.73475966890309*^9, {3.7347602093594418`*^9, 3.734760228462578*^9}, 3.736660975399798*^9, 3.736661006405756*^9, {3.74516907409368*^9, 3.745169095283058*^9}, 3.745169251926108*^9, {3.7451692910118837`*^9, 3.745169309902401*^9}, 3.745169396810566*^9, 3.745169727567333*^9, 3.745171352541501*^9, 3.7451715522906837`*^9, 3.745216580041156*^9, 3.745216913046097*^9, 3.745226974106064*^9, 3.745229185178721*^9, { 3.745312491646906*^9, 3.745312528021521*^9}, 3.745312574296323*^9, 3.7453185057462893`*^9, 3.752418069983425*^9, 3.752888938034754*^9}, ExpressionUUID -> "f44bf727-7e98-48d1-b24d-bf3cccc7e564"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Finding normals to the faces of Newton Polytope:", "Subsection", CellChangeTimes->{{3.7313148614016647`*^9, 3.7313149084719563`*^9}, { 3.731409165958394*^9, 3.731409168053681*^9}, {3.74531851657197*^9, 3.745318534668797*^9}},ExpressionUUID->"adb409a9-3e82-4c78-bf36-\ fa64bdd92625"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"NormalReg", "=", "0"}], ";"}], "\n", RowBox[{ RowBox[{"regions", "=", RowBox[{"{", "NP1", "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"listPts", "=", RowBox[{"{", "vecExp1", "}"}]}], ";"}], "\n", RowBox[{"AllRegionsOrigin", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"NormalReg", "=", RowBox[{"genCoordinatesNormal", "[", RowBox[{ RowBox[{"regions", "[", RowBox[{"[", RowBox[{"reg", ",", "2", ",", "surface"}], "]"}], "]"}], ",", RowBox[{"listPts", "[", RowBox[{"[", "reg", "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"reg", ",", "1", ",", RowBox[{"Length", "[", "regions", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"surface", ",", "1", ",", RowBox[{"Length", "[", RowBox[{ RowBox[{"regions", "[", RowBox[{"[", "reg", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{ 3.7281871627483463`*^9, {3.728187208561181*^9, 3.728187226343232*^9}, { 3.731311324292034*^9, 3.73131133368766*^9}, {3.7452165742598248`*^9, 3.745216595251275*^9}, {3.745318547444488*^9, 3.745318550614972*^9}}, ExpressionUUID -> "87dcc9d7-d9af-4c1f-8756-8e8af92301f7"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"v", "[", "1", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"v", "[", "2", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"v", "[", "3", "]"}], "\[Rule]", "0"}], ",", RowBox[{"c", "\[Rule]", "0"}], ",", RowBox[{"surf", "\[Rule]", RowBox[{"-", "1"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"v", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "1"}]}], ",", RowBox[{ RowBox[{"v", "[", "2", "]"}], "\[Rule]", RowBox[{"-", "1"}]}], ",", RowBox[{ RowBox[{"v", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "1"}]}], ",", RowBox[{"c", "\[Rule]", RowBox[{"-", "1"}]}], ",", RowBox[{"surf", "\[Rule]", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"v", "[", "1", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"v", "[", "2", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"v", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "1"}]}], ",", RowBox[{"c", "\[Rule]", "0"}], ",", RowBox[{"surf", "\[Rule]", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"v", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "1"}]}], ",", RowBox[{ RowBox[{"v", "[", "2", "]"}], "\[Rule]", RowBox[{"-", "1"}]}], ",", RowBox[{ RowBox[{"v", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "1"}]}], ",", RowBox[{"c", "\[Rule]", RowBox[{"-", "1"}]}], ",", RowBox[{"surf", "\[Rule]", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"v", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "1"}]}], ",", RowBox[{ RowBox[{"v", "[", "2", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"v", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "1"}]}], ",", RowBox[{"c", "\[Rule]", RowBox[{"-", "1"}]}], ",", RowBox[{"surf", "\[Rule]", RowBox[{"-", "1"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"v", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "1"}]}], ",", RowBox[{ RowBox[{"v", "[", "2", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"v", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "1"}]}], ",", RowBox[{"c", "\[Rule]", RowBox[{"-", "1"}]}], ",", RowBox[{"surf", "\[Rule]", RowBox[{"-", "1"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"v", "[", "1", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"v", "[", "2", "]"}], "\[Rule]", RowBox[{"-", "1"}]}], ",", RowBox[{ RowBox[{"v", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "1"}]}], ",", RowBox[{"c", "\[Rule]", RowBox[{"-", "1"}]}], ",", RowBox[{"surf", "\[Rule]", RowBox[{"-", "1"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"v", "[", "1", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"v", "[", "2", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"v", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "1"}]}], ",", RowBox[{"c", "\[Rule]", "0"}], ",", RowBox[{"surf", "\[Rule]", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"v", "[", "1", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"v", "[", "2", "]"}], "\[Rule]", RowBox[{"-", "1"}]}], ",", RowBox[{ RowBox[{"v", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "1"}]}], ",", RowBox[{"c", "\[Rule]", RowBox[{"-", "1"}]}], ",", RowBox[{"surf", "\[Rule]", RowBox[{"-", "1"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"v", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "1"}]}], ",", RowBox[{ RowBox[{"v", "[", "2", "]"}], "\[Rule]", RowBox[{"-", "1"}]}], ",", RowBox[{ RowBox[{"v", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "1"}]}], ",", RowBox[{"c", "\[Rule]", RowBox[{"-", "1"}]}], ",", RowBox[{"surf", "\[Rule]", "1"}]}], "}"}], ",", "Null"}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.7281872313264027`*^9, 3.728187267345912*^9, 3.7281977027628107`*^9, 3.728202606647938*^9, 3.731311239343336*^9, 3.731311271480597*^9, { 3.7313113397393417`*^9, 3.73131135950558*^9}, 3.731315222261883*^9, 3.731409238578657*^9, 3.7314101687301207`*^9, 3.7314102046302023`*^9, 3.733651628720077*^9, {3.733666019034256*^9, 3.733666042324107*^9}, 3.733666076073535*^9, 3.7336662000997963`*^9, 3.7336662655541058`*^9, 3.734759679052577*^9, {3.7347602093890543`*^9, 3.734760228506156*^9}, 3.736660975462693*^9, 3.7366610064731007`*^9, {3.745169074192267*^9, 3.7451690953533077`*^9}, 3.745169251956299*^9, {3.7451692910690937`*^9, 3.7451693099828*^9}, 3.74516939687047*^9, 3.745169727629251*^9, 3.745171357562626*^9, 3.745171552357595*^9, {3.7452165800699997`*^9, 3.745216596116798*^9}, 3.74521691306839*^9, 3.7452269741378527`*^9, 3.7452291852092133`*^9, {3.745312491670472*^9, 3.745312528043754*^9}, 3.745312574324235*^9, {3.7453185425404263`*^9, 3.745318551620368*^9}, 3.7524180757044067`*^9, 3.752888938086739*^9}, ExpressionUUID -> "3348fb47-862b-47b6-ab92-98a237c05d41"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Eliminating multiple instances of equivalent scalings:", "Subsection", CellChangeTimes->{{3.731314356684156*^9, 3.731314367722736*^9}, 3.734759708688789*^9, {3.745318559942865*^9, 3.7453185990277557`*^9}}, ExpressionUUID -> "f6bf809a-a2cf-469d-847c-862d4830bc86"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"regAllsectors", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"UniqueRegion", "[", RowBox[{ RowBox[{"AllRegionsOrigin", "[", RowBox[{"[", "#", "]"}], "]"}], ",", RowBox[{"Length", "[", RowBox[{"Variables", "[", "AlphaVariables", "]"}], "]"}]}], "]"}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"Length", "[", "AllRegionsOrigin", "]"}], "]"}]}], ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Regions", "=", RowBox[{ RowBox[{"DeleteDuplicates", "[", RowBox[{"regAllsectors", ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"t", "=", RowBox[{"#", "-", "#2"}]}], ")"}], "\[Equal]", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"ConstantArray", "[", RowBox[{"1", ",", RowBox[{"Length", "[", "t", "]"}]}], "]"}]}]}], "&"}]}], "]"}], "//", "MatrixForm"}]}]}], "Input", CellChangeTimes->{{3.731310893152093*^9, 3.7313108931593018`*^9}, { 3.731311365155087*^9, 3.731311423425994*^9}, {3.7313114575941753`*^9, 3.731311528409937*^9}, {3.731314225396731*^9, 3.731314314311007*^9}, { 3.731409217851866*^9, 3.731409242113805*^9}, 3.734759708689207*^9, { 3.734759765351757*^9, 3.734759787591658*^9}, {3.7347598276378193`*^9, 3.734759927108995*^9}, {3.7366608924448767`*^9, 3.7366609169860687`*^9}, { 3.7366609811352873`*^9, 3.736660994683008*^9}, 3.7453124869087763`*^9, { 3.745312538755419*^9, 3.745312554642713*^9}, {3.745318312728673*^9, 3.745318315587184*^9}, 3.7453186051432133`*^9, 3.7453673699457493`*^9}, ExpressionUUID -> "e9b516d3-3f6c-43b4-b299-4f2f572be454"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"v", "[", "1", "]"}], "\[Rule]", "0"}], RowBox[{ RowBox[{"v", "[", "2", "]"}], "\[Rule]", "0"}], RowBox[{ RowBox[{"v", "[", "3", "]"}], "\[Rule]", "0"}], RowBox[{"c", "\[Rule]", "0"}], RowBox[{"surf", "\[Rule]", RowBox[{"-", "1"}]}]}, { RowBox[{ RowBox[{"v", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "1"}]}], RowBox[{ RowBox[{"v", "[", "2", "]"}], "\[Rule]", RowBox[{"-", "1"}]}], RowBox[{ RowBox[{"v", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "1"}]}], RowBox[{"c", "\[Rule]", RowBox[{"-", "1"}]}], RowBox[{"surf", "\[Rule]", "1"}]}, { RowBox[{ RowBox[{"v", "[", "1", "]"}], "\[Rule]", "0"}], RowBox[{ RowBox[{"v", "[", "2", "]"}], "\[Rule]", "0"}], RowBox[{ RowBox[{"v", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "1"}]}], RowBox[{"c", "\[Rule]", "0"}], RowBox[{"surf", "\[Rule]", "1"}]}, { RowBox[{ RowBox[{"v", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "1"}]}], RowBox[{ RowBox[{"v", "[", "2", "]"}], "\[Rule]", "0"}], RowBox[{ RowBox[{"v", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "1"}]}], RowBox[{"c", "\[Rule]", RowBox[{"-", "1"}]}], RowBox[{"surf", "\[Rule]", RowBox[{"-", "1"}]}]}, { RowBox[{ RowBox[{"v", "[", "1", "]"}], "\[Rule]", "0"}], RowBox[{ RowBox[{"v", "[", "2", "]"}], "\[Rule]", RowBox[{"-", "1"}]}], RowBox[{ RowBox[{"v", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "1"}]}], RowBox[{"c", "\[Rule]", RowBox[{"-", "1"}]}], RowBox[{"surf", "\[Rule]", RowBox[{"-", "1"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.734759930514431*^9, {3.734760209403112*^9, 3.734760228523077*^9}, 3.736660975667365*^9, 3.73666100649485*^9, {3.745169074205325*^9, 3.745169095364353*^9}, 3.7451692519802713`*^9, {3.745169291095332*^9, 3.7451693100466537`*^9}, 3.745169396887269*^9, 3.7451697276465187`*^9, 3.745171360308652*^9, 3.745171552374131*^9, 3.745216580140654*^9, 3.745216913165225*^9, 3.745226974212216*^9, 3.745229185278576*^9, { 3.745312491743202*^9, 3.7453125281121387`*^9}, 3.745312574437029*^9, 3.7453186062248793`*^9, 3.7524180800829153`*^9, 3.752888938109744*^9}, ExpressionUUID -> "4cd3a22b-e1a8-412c-aaa7-8f4b6caf4428"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Classification of obtained regions as scaleless or scaleful :\ \>", "Section", CellChangeTimes->{{3.745318629775742*^9, 3.745318655444894*^9}}, ExpressionUUID -> "def02f02-23a9-43d0-9c1b-c3da5441b171"], Cell[CellGroupData[{ Cell["Scalings obtained from bottom facets of Newton Polytope:", "Subsection", CellChangeTimes->{{3.745318775562014*^9, 3.745318817957917*^9}, { 3.745318877804669*^9, 3.745318897248475*^9}}, ExpressionUUID -> "ed12819a-2bac-4a97-83e3-d9e94dbf04d7"], Cell[CellGroupData[{ Cell["Scaling : {0, 0, 0}", "Subsubsection", CellChangeTimes->{{3.745318902459787*^9, 3.745318915068121*^9}, { 3.745319124026367*^9, 3.7453191274416513`*^9}},ExpressionUUID->"7528423c-3aa1-4b62-b5cf-\ 29b7e06997be"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Reg", "=", RowBox[{"getLOUF", "[", RowBox[{ RowBox[{"uf", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"uf", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"x", "[", "1", "]"}], ",", RowBox[{"x", "[", "2", "]"}], ",", RowBox[{"x", "[", "3", "]"}]}], "}"}], ",", RowBox[{"-", "1"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"Scalecheck", "[", RowBox[{ RowBox[{"Reg", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Reg", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "1", "]"}], ",", RowBox[{"x", "[", "2", "]"}], ",", RowBox[{"x", "[", "3", "]"}]}], "}"}]}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.745169054749111*^9, 3.7451690698382607`*^9}, 3.7451691674022617`*^9, {3.745169426756929*^9, 3.745169466953868*^9}, 3.745169499922126*^9, {3.745169641217923*^9, 3.745169646474122*^9}, 3.7453186922067757`*^9, 3.745318755540436*^9, 3.7453190713145933`*^9}, ExpressionUUID -> "9699249a-5c5d-49da-a7d2-5cc4068b057c"], Cell[CellGroupData[{ Cell[BoxData["\<\"Scalings obtained :\"\>"], "Print", CellChangeTimes->{ 3.745171367115838*^9, 3.74517155242619*^9, 3.745216580173725*^9, 3.74521691319776*^9, 3.745226974248344*^9, 3.7452291853114853`*^9, { 3.745312491768427*^9, 3.745312528171973*^9}, 3.745312574469208*^9, 3.745318692957707*^9, 3.745318741824401*^9, 3.745318825763814*^9, 3.745318934778159*^9, 3.745319071932399*^9, 3.752888938299015*^9}, ExpressionUUID -> "2f5b0745-8b83-42eb-9657-1a5c9371b838"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"U: \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], SequenceForm["U: ", {0, 0, 0}], Editable->False]], "Print", CellChangeTimes->{ 3.745171367115838*^9, 3.74517155242619*^9, 3.745216580173725*^9, 3.74521691319776*^9, 3.745226974248344*^9, 3.7452291853114853`*^9, { 3.745312491768427*^9, 3.745312528171973*^9}, 3.745312574469208*^9, 3.745318692957707*^9, 3.745318741824401*^9, 3.745318825763814*^9, 3.745318934778159*^9, 3.745319071932399*^9, 3.752888938318705*^9}, ExpressionUUID -> "2f5b0745-8b83-42eb-9657-1a5c9371b838"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"F \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "1"}], "}"}]}], SequenceForm["F ", {0, 1, 1, 1}], Editable->False]], "Print", CellChangeTimes->{ 3.745171367115838*^9, 3.74517155242619*^9, 3.745216580173725*^9, 3.74521691319776*^9, 3.745226974248344*^9, 3.7452291853114853`*^9, { 3.745312491768427*^9, 3.745312528171973*^9}, 3.745312574469208*^9, 3.745318692957707*^9, 3.745318741824401*^9, 3.745318825763814*^9, 3.745318934778159*^9, 3.745319071932399*^9, 3.7528889383215227`*^9}, ExpressionUUID -> "2f5b0745-8b83-42eb-9657-1a5c9371b838"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"List of transformations :\"\>", "\[InvisibleSpace]", RowBox[{"{", "}"}]}], SequenceForm["List of transformations :", {}], Editable->False]], "Print", CellChangeTimes->{ 3.745171367115838*^9, 3.74517155242619*^9, 3.745216580173725*^9, 3.74521691319776*^9, 3.745226974248344*^9, 3.7452291853114853`*^9, { 3.745312491768427*^9, 3.745312528171973*^9}, 3.745312574469208*^9, 3.745318692957707*^9, 3.745318741824401*^9, 3.745318825763814*^9, 3.745318934778159*^9, 3.745319071932399*^9, 3.7528889383223553`*^9}, ExpressionUUID -> "2f5b0745-8b83-42eb-9657-1a5c9371b838"], Cell[BoxData["\<\"Scaleful\"\>"], "Print", CellChangeTimes->{ 3.745171367115838*^9, 3.74517155242619*^9, 3.745216580173725*^9, 3.74521691319776*^9, 3.745226974248344*^9, 3.7452291853114853`*^9, { 3.745312491768427*^9, 3.745312528171973*^9}, 3.745312574469208*^9, 3.745318692957707*^9, 3.745318741824401*^9, 3.745318825763814*^9, 3.745318934778159*^9, 3.745319071932399*^9, 3.752888938323155*^9}, ExpressionUUID -> "2f5b0745-8b83-42eb-9657-1a5c9371b838"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scaling : {-1, 0, -1}", "Subsubsection", CellChangeTimes->{{3.745319021077474*^9, 3.745319023188054*^9}, { 3.745319055792426*^9, 3.7453190586485653`*^9}, {3.745319129610778*^9, 3.74531913065807*^9}},ExpressionUUID->"f00acf1c-22fb-42b0-baa3-\ 5247164a2aba"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Reg", "=", RowBox[{"getLOUF", "[", RowBox[{ RowBox[{"uf", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"uf", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"x", "[", "1", "]"}], ",", RowBox[{"x", "[", "2", "]"}], ",", RowBox[{"x", "[", "3", "]"}]}], "}"}], ",", RowBox[{"-", "1"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"Scalecheck", "[", RowBox[{ RowBox[{"Reg", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Reg", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "1", "]"}], ",", RowBox[{"x", "[", "2", "]"}], ",", RowBox[{"x", "[", "3", "]"}]}], "}"}]}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.745319050368495*^9, 3.745319068412588*^9}}, ExpressionUUID -> "93eea307-9aa6-41dd-a8ef-747c3bf45363"], Cell[CellGroupData[{ Cell[BoxData["\<\"Scalings obtained :\"\>"], "Print", CellChangeTimes->{{3.745319062300357*^9, 3.74531906895184*^9}, 3.7528889383478413`*^9}, ExpressionUUID -> "3c508a7e-1bd9-4cf9-a4ca-89a5b5f929d1"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"U: \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], SequenceForm["U: ", {0, 0, 0}], Editable->False]], "Print", CellChangeTimes->{{3.745319062300357*^9, 3.74531906895184*^9}, 3.752888938348174*^9}, ExpressionUUID -> "3c508a7e-1bd9-4cf9-a4ca-89a5b5f929d1"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"F \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "0", ",", RowBox[{"-", "1"}]}], "}"}]}], SequenceForm["F ", {-1, -1, 0, -1}], Editable->False]], "Print", CellChangeTimes->{{3.745319062300357*^9, 3.74531906895184*^9}, 3.752888938349059*^9}, ExpressionUUID -> "3c508a7e-1bd9-4cf9-a4ca-89a5b5f929d1"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"List of transformations :\"\>", "\[InvisibleSpace]", RowBox[{"{", "}"}]}], SequenceForm["List of transformations :", {}], Editable->False]], "Print", CellChangeTimes->{{3.745319062300357*^9, 3.74531906895184*^9}, 3.752888938349873*^9}, ExpressionUUID -> "3c508a7e-1bd9-4cf9-a4ca-89a5b5f929d1"], Cell[BoxData["\<\"Scaleful\"\>"], "Print", CellChangeTimes->{{3.745319062300357*^9, 3.74531906895184*^9}, 3.752888938350609*^9}, ExpressionUUID -> "3c508a7e-1bd9-4cf9-a4ca-89a5b5f929d1"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scaling : {0, -1, -1}", "Subsubsection", CellChangeTimes->{{3.745319077112838*^9, 3.7453191011500177`*^9}, { 3.745319132634276*^9, 3.745319133673987*^9}},ExpressionUUID->"f8e3a764-17db-4f66-adfe-\ a7fe5ea423b5"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Reg", "=", RowBox[{"getLOUF", "[", RowBox[{ RowBox[{"uf", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"uf", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"x", "[", "1", "]"}], ",", RowBox[{"x", "[", "2", "]"}], ",", RowBox[{"x", "[", "3", "]"}]}], "}"}], ",", RowBox[{"-", "1"}]}], "]"}]}], ";"}], "\n", RowBox[{"Scalecheck", "[", RowBox[{ RowBox[{"Reg", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Reg", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "1", "]"}], ",", RowBox[{"x", "[", "2", "]"}], ",", RowBox[{"x", "[", "3", "]"}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{3.745319111422907*^9}, ExpressionUUID -> "89ffaaa6-4a16-4adb-823c-6d32e0abc96f"], Cell[CellGroupData[{ Cell[BoxData["\<\"Scalings obtained :\"\>"], "Print", CellChangeTimes->{3.745319111924465*^9, 3.752888938375558*^9}, ExpressionUUID -> "86afb0b9-ad11-4a21-b158-e9516426dee9"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"U: \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], SequenceForm["U: ", {0, 0, 0}], Editable->False]], "Print", CellChangeTimes->{3.745319111924465*^9, 3.7528889383758163`*^9}, ExpressionUUID -> "86afb0b9-ad11-4a21-b158-e9516426dee9"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"F \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}]}], SequenceForm["F ", {-1, 0, -1, -1}], Editable->False]], "Print", CellChangeTimes->{3.745319111924465*^9, 3.7528889383767033`*^9}, ExpressionUUID -> "86afb0b9-ad11-4a21-b158-e9516426dee9"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"List of transformations :\"\>", "\[InvisibleSpace]", RowBox[{"{", "}"}]}], SequenceForm["List of transformations :", {}], Editable->False]], "Print", CellChangeTimes->{3.745319111924465*^9, 3.7528889383774548`*^9}, ExpressionUUID -> "86afb0b9-ad11-4a21-b158-e9516426dee9"], Cell[BoxData["\<\"Scaleful\"\>"], "Print", CellChangeTimes->{3.745319111924465*^9, 3.752888938378193*^9}, ExpressionUUID -> "86afb0b9-ad11-4a21-b158-e9516426dee9"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Scalings obtained from the top facets of Newton Polytope :\ \>", "Subsection", CellChangeTimes->{{3.745319145821621*^9, 3.745319165924518*^9}, { 3.745479359475752*^9, 3.745479363282733*^9}}, ExpressionUUID -> "a54588d7-3bba-42ca-afc2-3e36b9a85e46"], Cell[CellGroupData[{ Cell["Scaling : {-1, -1, -1}", "Subsubsection", CellChangeTimes->{{3.745319172261485*^9, 3.745319225617978*^9}},ExpressionUUID->"1c03246f-a9a6-4d85-b4b4-\ 7fa58e71ef07"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Reg", "=", RowBox[{"getLOUF", "[", RowBox[{ RowBox[{"uf", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"uf", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"x", "[", "1", "]"}], ",", RowBox[{"x", "[", "2", "]"}], ",", RowBox[{"x", "[", "3", "]"}]}], "}"}], ",", "1"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"Scalecheck", "[", RowBox[{ RowBox[{"Reg", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Reg", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "1", "]"}], ",", RowBox[{"x", "[", "2", "]"}], ",", RowBox[{"x", "[", "3", "]"}]}], "}"}]}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.745171474648109*^9, 3.745171502058942*^9}, { 3.745229171470132*^9, 3.745229178380497*^9}, {3.7453189579934053`*^9, 3.745318958226001*^9}, {3.745319205052183*^9, 3.745319230832685*^9}}, ExpressionUUID -> "2d0863b9-8899-4771-8fb6-3c551cdc0d9b"], Cell[CellGroupData[{ Cell[BoxData["\<\"Scalings obtained :\"\>"], "Print", CellChangeTimes->{3.745319232344445*^9, 3.752888938383698*^9}, ExpressionUUID -> "80eac5c5-ed07-4648-9013-4da6e0efc21f"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"U: \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], SequenceForm["U: ", {0, 0, 0}], Editable->False]], "Print", CellChangeTimes->{3.745319232344445*^9, 3.7528889383840427`*^9}, ExpressionUUID -> "80eac5c5-ed07-4648-9013-4da6e0efc21f"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"F \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}]}], SequenceForm["F ", {-2, -1, -1, -1}], Editable->False]], "Print", CellChangeTimes->{3.745319232344445*^9, 3.752888938384985*^9}, ExpressionUUID -> "80eac5c5-ed07-4648-9013-4da6e0efc21f"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"List of transformations :\"\>", "\[InvisibleSpace]", RowBox[{"{", "}"}]}], SequenceForm["List of transformations :", {}], Editable->False]], "Print", CellChangeTimes->{3.745319232344445*^9, 3.752888938385846*^9}, ExpressionUUID -> "80eac5c5-ed07-4648-9013-4da6e0efc21f"], Cell[BoxData["\<\"Scaleful\"\>"], "Print", CellChangeTimes->{3.745319232344445*^9, 3.7528889383866453`*^9}, ExpressionUUID -> "80eac5c5-ed07-4648-9013-4da6e0efc21f"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scaling : {0, 0, -1}", "Subsubsection", CellChangeTimes->{{3.745319172261485*^9, 3.745319202110791*^9}},ExpressionUUID->"f5ddf727-70c7-4d8f-bae6-\ 341791f03bcb"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Reg", "=", RowBox[{"getLOUF", "[", RowBox[{ RowBox[{"uf", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"uf", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"x", "[", "1", "]"}], ",", RowBox[{"x", "[", "2", "]"}], ",", RowBox[{"x", "[", "3", "]"}]}], "}"}], ",", "1"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"Scalecheck", "[", RowBox[{ RowBox[{"Reg", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Reg", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "1", "]"}], ",", RowBox[{"x", "[", "2", "]"}], ",", RowBox[{"x", "[", "3", "]"}]}], "}"}]}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.745171474648109*^9, 3.745171502058942*^9}, { 3.745229171470132*^9, 3.745229178380497*^9}, {3.7453189579934053`*^9, 3.745318958226001*^9}, {3.745319205052183*^9, 3.745319208779657*^9}}, ExpressionUUID -> "2a07d6b8-6519-4049-95a6-c2ef7a6d6aeb"], Cell[CellGroupData[{ Cell[BoxData["\<\"Scalings obtained :\"\>"], "Print", CellChangeTimes->{ 3.74522918533607*^9, {3.745312491791773*^9, 3.745312528195855*^9}, 3.74531257449754*^9, 3.7453192065701847`*^9, 3.745319248582985*^9, 3.75288893841037*^9}, ExpressionUUID -> "5bd42638-da1a-4d7e-8874-113476d9fd17"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"U: \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], SequenceForm["U: ", {0, 0, 0}], Editable->False]], "Print", CellChangeTimes->{ 3.74522918533607*^9, {3.745312491791773*^9, 3.745312528195855*^9}, 3.74531257449754*^9, 3.7453192065701847`*^9, 3.745319248582985*^9, 3.752888938410684*^9}, ExpressionUUID -> "5bd42638-da1a-4d7e-8874-113476d9fd17"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"F \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", RowBox[{"-", "1"}]}], "}"}]}], SequenceForm["F ", {0, 0, 0, -1}], Editable->False]], "Print", CellChangeTimes->{ 3.74522918533607*^9, {3.745312491791773*^9, 3.745312528195855*^9}, 3.74531257449754*^9, 3.7453192065701847`*^9, 3.745319248582985*^9, 3.7528889384115877`*^9}, ExpressionUUID -> "5bd42638-da1a-4d7e-8874-113476d9fd17"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"List of transformations :\"\>", "\[InvisibleSpace]", RowBox[{"{", "}"}]}], SequenceForm["List of transformations :", {}], Editable->False]], "Print", CellChangeTimes->{ 3.74522918533607*^9, {3.745312491791773*^9, 3.745312528195855*^9}, 3.74531257449754*^9, 3.7453192065701847`*^9, 3.745319248582985*^9, 3.752888938412037*^9}, ExpressionUUID -> "5bd42638-da1a-4d7e-8874-113476d9fd17"], Cell[BoxData["\<\"Scaleful\"\>"], "Print", CellChangeTimes->{ 3.74522918533607*^9, {3.745312491791773*^9, 3.745312528195855*^9}, 3.74531257449754*^9, 3.7453192065701847`*^9, 3.745319248582985*^9, 3.752888938412476*^9}, ExpressionUUID -> "5bd42638-da1a-4d7e-8874-113476d9fd17"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1863, 1056}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"9.0 for Linux x86 (64-bit) (November 20, 2012)", StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", CharacterEncoding -> "UTF-8"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 219, 4, 82, "Section"], Cell[801, 28, 2275, 71, 119, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[3113, 104, 214, 4, 82, "Section"], Cell[3330, 110, 234, 4, 64, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[3601, 119, 198, 3, 82, "Section"], Cell[3802, 124, 22177, 591, 1978, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[26016, 720, 163, 3, 52, "Section"], Cell[CellGroupData[{ Cell[26204, 727, 183, 3, 32, "Subsection"], Cell[CellGroupData[{ Cell[26412, 734, 1859, 49, 67, "Input"], Cell[28274, 785, 1825, 37, 46, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[30148, 828, 249, 4, 32, "Subsection"], Cell[CellGroupData[{ Cell[30422, 836, 1480, 43, 64, "Input"], Cell[31905, 881, 1584, 32, 41, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[33538, 919, 300, 5, 32, "Subsection"], Cell[CellGroupData[{ Cell[33863, 928, 757, 18, 46, "Input"], Cell[34623, 948, 1011, 24, 43, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[35683, 978, 298, 5, 32, "Subsection"], Cell[CellGroupData[{ Cell[36006, 987, 869, 24, 64, "Input"], Cell[36878, 1013, 1761, 33, 41, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[38688, 1052, 340, 5, 32, "Subsection"], Cell[CellGroupData[{ Cell[39053, 1061, 221, 4, 41, "Input"], Cell[39277, 1067, 2215, 46, 41, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[41541, 1119, 294, 4, 32, "Subsection"], Cell[CellGroupData[{ Cell[41860, 1127, 1327, 35, 130, "Input"], Cell[43190, 1164, 5535, 152, 108, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[48774, 1322, 275, 3, 32, "Subsection"], Cell[CellGroupData[{ Cell[49074, 1329, 1792, 42, 64, "Input"], Cell[50869, 1373, 3025, 84, 111, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[53955, 1464, 213, 4, 82, "Section"], Cell[CellGroupData[{ Cell[54193, 1472, 252, 3, 32, "Subsection"], Cell[CellGroupData[{ Cell[54470, 1479, 221, 4, 31, "Subsubsection"], Cell[CellGroupData[{ Cell[54716, 1487, 1264, 33, 64, "Input"], Cell[CellGroupData[{ Cell[56005, 1524, 483, 7, 23, "Print"], Cell[56491, 1533, 639, 13, 23, "Print"], Cell[57133, 1548, 652, 13, 23, "Print"], Cell[57788, 1563, 638, 12, 23, "Print"], Cell[58429, 1577, 472, 7, 23, "Print"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[58962, 1591, 268, 4, 31, "Subsubsection"], Cell[CellGroupData[{ Cell[59255, 1599, 1088, 32, 64, "Input"], Cell[CellGroupData[{ Cell[60368, 1635, 205, 3, 23, "Print"], Cell[60576, 1640, 359, 9, 23, "Print"], Cell[60938, 1651, 436, 12, 23, "Print"], Cell[61377, 1665, 356, 8, 23, "Print"], Cell[61736, 1675, 192, 3, 23, "Print"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[61989, 1685, 223, 4, 31, "Subsubsection"], Cell[CellGroupData[{ Cell[62237, 1693, 1036, 31, 64, "Input"], Cell[CellGroupData[{ Cell[63298, 1728, 176, 2, 23, "Print"], Cell[63477, 1732, 334, 8, 23, "Print"], Cell[63814, 1742, 411, 11, 23, "Print"], Cell[64228, 1755, 331, 7, 23, "Print"], Cell[64562, 1764, 165, 2, 23, "Print"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[64800, 1774, 262, 5, 32, "Subsection"], Cell[CellGroupData[{ Cell[65087, 1783, 173, 3, 31, "Subsubsection"], Cell[CellGroupData[{ Cell[65285, 1790, 1239, 35, 64, "Input"], Cell[CellGroupData[{ Cell[66549, 1829, 176, 2, 23, "Print"], Cell[66728, 1833, 334, 8, 23, "Print"], Cell[67065, 1843, 431, 12, 23, "Print"], Cell[67499, 1857, 329, 7, 23, "Print"], Cell[67831, 1866, 167, 2, 23, "Print"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[68059, 1875, 171, 3, 31, "Subsubsection"], Cell[CellGroupData[{ Cell[68255, 1882, 1193, 33, 64, "Input"], Cell[CellGroupData[{ Cell[69473, 1919, 298, 5, 23, "Print"], Cell[69774, 1926, 455, 11, 23, "Print"], Cell[70232, 1939, 490, 12, 23, "Print"], Cell[70725, 1953, 452, 10, 23, "Print"], Cell[71180, 1965, 288, 5, 23, "Print"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *)