(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 253012, 6372] NotebookOptionsPosition[ 229396, 5761] NotebookOutlinePosition[ 229791, 5778] CellTagsIndexPosition[ 229748, 5775] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"PyraGaussRuleInfo", "[", " ", RowBox[{ RowBox[{"{", RowBox[{"rule_", ",", "numer_"}], "}"}], ",", "point_"}], "]"}], " ", ":=", " ", RowBox[{"Module", " ", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ "g1", ",", "g2", ",", "g3", ",", "g4", ",", "g5", ",", "w1", ",", "w2", ",", "w3", ",", "w4", ",", RowBox[{"jk", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"jk4", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", RowBox[{"jk9", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"wg9", "=", RowBox[{ RowBox[{"{", RowBox[{"64", ",", "40", ",", "25"}], "}"}], "/", "81"}]}], ",", "\[IndentingNewLine]", RowBox[{"eps", "=", RowBox[{"10", "^", "16"}]}], ",", "\[IndentingNewLine]", RowBox[{"info", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Null", ",", "Null", ",", "Null"}], "}"}], ",", "0"}], "}"}]}], ",", "\[IndentingNewLine]", "j", ",", "k", ",", "m", ",", "\[IndentingNewLine]", RowBox[{"p", "=", "rule"}], ",", "\[IndentingNewLine]", RowBox[{"i", "=", "point"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", " ", "[", " ", RowBox[{ RowBox[{"p", " ", "\[Equal]", " ", "1"}], ",", " ", "\[IndentingNewLine]", RowBox[{"info", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "1"}], "/", "2"}]}], "}"}], ",", RowBox[{"128", "/", "27"}]}], "}"}]}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", " ", "[", " ", RowBox[{ RowBox[{"p", " ", "==", " ", "5"}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"g1", " ", "=", " ", RowBox[{"8", "*", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"2", "/", "15"}], "]"}], "/", "5"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", " ", RowBox[{ RowBox[{"i", "<", "5"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "=", RowBox[{"jk", "[", RowBox[{"[", "i", "]"}], "]"}]}], ";", " ", RowBox[{"info", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"j", "*", "g1"}], ",", RowBox[{"k", "*", "g1"}], ",", RowBox[{ RowBox[{"-", "2"}], "/", "3"}]}], "}"}], ",", RowBox[{"81", "/", "100"}]}], "}"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[Equal]", "5"}], ",", " ", RowBox[{"info", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"2", "/", "5"}]}], "}"}], ",", RowBox[{"125", "/", "27"}]}], "}"}]}]}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", " ", "[", " ", RowBox[{ RowBox[{"p", "\[Equal]", "6"}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"g1", "=", RowBox[{"Sqrt", "[", RowBox[{"12", "/", "35"}], "]"}]}], ";", "\[IndentingNewLine]", " ", RowBox[{"g2", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "6"}], ",", RowBox[{"1", "/", "2"}]}], "}"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"w2", "=", RowBox[{"{", RowBox[{ RowBox[{"576", "/", "625"}], ",", RowBox[{"64", "/", "15"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"i", "<", "5"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "=", RowBox[{"jk", "[", RowBox[{"[", "i", "]"}], "]"}]}], ";", RowBox[{"info", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"j", "*", "g1"}], ",", RowBox[{"k", "*", "g1"}], ",", RowBox[{ RowBox[{"-", "2"}], "/", "3"}]}], "}"}], ",", RowBox[{"504", "/", "625"}]}], "}"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"i", ">", "4"}], ",", RowBox[{"info", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"g2", "[", RowBox[{"[", RowBox[{"i", "-", "4"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"w2", "[", RowBox[{"[", RowBox[{"i", "-", "4"}], "]"}], "]"}]}], "}"}]}]}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", " ", "[", " ", RowBox[{ RowBox[{"p", " ", "\[Equal]", " ", "8"}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"g1", "=", RowBox[{"Sqrt", "[", RowBox[{"1", "/", "3"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"g2", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "*", RowBox[{"Sqrt", "[", "10", "]"}]}], "-", "5"}], ")"}], "/", "15"}]}], ";", "\[IndentingNewLine]", RowBox[{"g3", "=", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "/", "3"}], "-", "g2"}]}], ";", "\[IndentingNewLine]", RowBox[{"w1", "=", RowBox[{"5", "*", RowBox[{ RowBox[{"(", RowBox[{"68", "+", RowBox[{"5", "*", RowBox[{"Sqrt", "[", "10", "]"}]}]}], ")"}], "/", "432"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"w2", "=", RowBox[{ RowBox[{"85", "/", "54"}], "-", "w1"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"i", "<", "5"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "=", RowBox[{"jk", "[", RowBox[{"[", "i", "]"}], "]"}]}], ";", " ", RowBox[{"info", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"j", "*", "g1"}], ",", RowBox[{"k", "*", "g1"}], ",", "g2"}], "}"}], ",", "w1"}], "}"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"i", ">", "4"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "=", RowBox[{"jk", "[", RowBox[{"[", RowBox[{"i", "-", "4"}], "]"}], "]"}]}], ";", " ", RowBox[{"info", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"j", "*", "g1"}], ",", RowBox[{"k", "*", "g1"}], ",", "g3"}], "}"}], ",", "w2"}], "}"}]}]}]}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", " ", RowBox[{ RowBox[{"p", " ", "\[Equal]", " ", RowBox[{"-", "8"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"g1", " ", "=", " ", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{"2", "/", "15"}], ")"}], "*", RowBox[{"(", RowBox[{"573", "-", RowBox[{"2", "*", RowBox[{"Sqrt", "[", "51", "]"}]}]}], ")"}]}], "]"}], "/", "15"}]}], ";", "\[IndentingNewLine]", RowBox[{"g2", " ", "=", " ", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{"2", "/", "15"}], ")"}], "*", RowBox[{"(", RowBox[{"573", "+", RowBox[{"2", "*", RowBox[{"Sqrt", "[", "51", "]"}]}]}], ")"}]}], "]"}], "/", "15"}]}], ";", "\[IndentingNewLine]", RowBox[{"g3", "=", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"2", "*", RowBox[{"Sqrt", "[", "51", "]"}]}], "+", "13"}], ")"}]}], "/", "35"}]}], ";", "\[IndentingNewLine]", RowBox[{"g4", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "*", RowBox[{"Sqrt", "[", "51", "]"}]}], "-", "13"}], ")"}], "/", "35"}]}], ";", "\[IndentingNewLine]", RowBox[{"w1", "=", RowBox[{ RowBox[{"(", RowBox[{"11764", "-", RowBox[{"461", "*", RowBox[{"Sqrt", "[", "51", "]"}]}]}], ")"}], "/", "15300"}]}], ";", "\[IndentingNewLine]", RowBox[{"w2", " ", "=", " ", RowBox[{ RowBox[{"346", "/", "225"}], "-", "w1"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"i", "<", "5"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "=", RowBox[{"jk", "[", RowBox[{"[", "i", "]"}], "]"}]}], ";", " ", RowBox[{"info", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"j", "*", "g1"}], ",", RowBox[{"k", "*", "g1"}], ",", "g3"}], "}"}], ",", "w1"}], "}"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"i", ">", "4"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "=", RowBox[{"jk", "[", RowBox[{"[", RowBox[{"i", "-", "4"}], "]"}], "]"}]}], ";", " ", RowBox[{"info", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"j", "*", "g2"}], ",", RowBox[{"k", "*", "g2"}], ",", "g4"}], "}"}], ",", "w2"}], "}"}]}]}]}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"p", "\[Equal]", "9"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"g1", "=", RowBox[{"8", "*", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{"573", "+", RowBox[{"5", "*", RowBox[{"Sqrt", "[", "2865", "]"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"109825", "+", RowBox[{"969", "*", RowBox[{"Sqrt", "[", "2865", "]"}]}]}], ")"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"g2", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{"2", "*", RowBox[{"(", RowBox[{"8025", "+", RowBox[{"Sqrt", "[", "2865", "]"}]}], ")"}]}], ")"}], "/", "35"}], "]"}], "/", "37"}]}], ";", "\[IndentingNewLine]", RowBox[{"g3", "=", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"87", "+", RowBox[{"Sqrt", "[", "2865", "]"}]}], ")"}]}], "/", "168"}]}], ";", "\[IndentingNewLine]", RowBox[{"g4", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "87"}], "+", RowBox[{"Sqrt", "[", "2865", "]"}]}], ")"}], "/", "168"}]}], ";", "\[IndentingNewLine]", RowBox[{"w1", "=", RowBox[{"7", "*", RowBox[{ RowBox[{"(", RowBox[{"11472415", "-", RowBox[{"70057", "*", RowBox[{"Sqrt", "[", "2865", "]"}]}]}], ")"}], "/", "130739500"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"w2", "=", RowBox[{ RowBox[{"84091", "/", "68450"}], "-", "w1"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"i", "<", "5"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "=", RowBox[{"jk", "[", RowBox[{"[", "i", "]"}], "]"}]}], ";", " ", RowBox[{"info", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"j", "*", "g1"}], ",", RowBox[{"k", "*", "g1"}], ",", "g3"}], "}"}], ",", "w1"}], "}"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"i", ">", "4"}], "&&", RowBox[{"i", "<", "9"}]}], ",", " ", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "=", RowBox[{"jk", "[", RowBox[{"[", RowBox[{"i", "-", "4"}], "]"}], "]"}]}], ";", " ", RowBox[{"info", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"j", "*", "g2"}], ",", RowBox[{"k", "*", "g2"}], ",", "g4"}], "}"}], ",", "w2"}], "}"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[Equal]", "9"}], ",", RowBox[{"info", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"2", "/", "3"}]}], "}"}], ",", RowBox[{"18", "/", "5"}]}], "}"}]}]}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", " ", RowBox[{ RowBox[{"p", " ", "\[Equal]", " ", "13"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"g1", "=", RowBox[{"7", "*", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"35", "/", "59"}], "]"}], "/", "8"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"g2", "=", RowBox[{"224", "*", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"336633710", "/", "33088740423"}], "]"}], "/", "37"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"g3", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"37043", "/", "35"}], "]"}], "/", "56"}]}], ";", "\[IndentingNewLine]", RowBox[{"g4", "=", RowBox[{ RowBox[{"-", "127"}], "/", "153"}]}], ";", "\[IndentingNewLine]", RowBox[{"g5", "=", RowBox[{"1490761", "/", "2842826"}]}], ";", "\[IndentingNewLine]", RowBox[{"w1", "=", RowBox[{"170569", "/", "331200"}]}], ";", "\[IndentingNewLine]", RowBox[{"w2", "=", RowBox[{"276710106577408", "/", "1075923777052725"}]}], ";", "\[IndentingNewLine]", RowBox[{"w3", "=", RowBox[{"12827693806929", "/", "30577384040000"}]}], ";", "\[IndentingNewLine]", RowBox[{"w4", "=", RowBox[{ "10663383340655070643544192", "/", "4310170528879365193704375"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"i", "<", "5"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "=", RowBox[{"jk", "[", RowBox[{"[", "i", "]"}], "]"}]}], ";", " ", RowBox[{"info", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"j", "*", "g1"}], ",", RowBox[{"k", "*", "g1"}], ",", RowBox[{ RowBox[{"-", "1"}], "/", "7"}]}], "}"}], ",", "w1"}], "}"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"i", ">", "4"}], "&&", RowBox[{"i", "<", "9"}]}], ",", " ", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "=", RowBox[{"jk4", "[", RowBox[{"[", RowBox[{"i", "-", "4"}], "]"}], "]"}]}], ";", " ", RowBox[{"info", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"j", "*", "g2"}], ",", RowBox[{"k", "*", "g2"}], ",", RowBox[{ RowBox[{"-", "9"}], "/", "28"}]}], "}"}], ",", "w2"}], "}"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"i", ">", "8"}], "&&", RowBox[{"i", "<", "13"}]}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "=", RowBox[{"jk", "[", RowBox[{"[", RowBox[{"i", "-", "8"}], "]"}], "]"}]}], ";", " ", RowBox[{"info", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"j", "*", "g3"}], ",", RowBox[{"k", "*", "g3"}], ",", "g4"}], "}"}], ",", "w3"}], "}"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[Equal]", "13"}], ",", " ", RowBox[{"info", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "g5"}], "}"}], ",", "w4"}], "}"}]}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"p", "\[Equal]", "18"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"g1", "=", RowBox[{"Sqrt", "[", RowBox[{"3", "/", "5"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"g2", "=", RowBox[{"1", "-", RowBox[{"2", "*", RowBox[{ RowBox[{"(", RowBox[{"10", "-", RowBox[{"Sqrt", "[", "10", "]"}]}], ")"}], "/", "15"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"g3", "=", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "/", "3"}], "-", "g2"}]}], ";", "\[IndentingNewLine]", RowBox[{"w1", "=", RowBox[{"5", "*", RowBox[{ RowBox[{"(", RowBox[{"68", "+", RowBox[{"5", "*", RowBox[{"Sqrt", "[", "10", "]"}]}]}], ")"}], "/", "432"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"w2", "=", RowBox[{ RowBox[{"85", "/", "54"}], "-", "w1"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"i", "<", "10"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "=", RowBox[{"jk9", "[", RowBox[{"[", "i", "]"}], "]"}]}], ";", " ", RowBox[{"m", "=", RowBox[{ RowBox[{"Abs", "[", "j", "]"}], "+", RowBox[{"Abs", "[", "k", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"info", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"j", "*", "g1"}], ",", RowBox[{"k", "*", "g1"}], ",", "g2"}], "}"}], ",", RowBox[{"w1", "*", RowBox[{"wg9", "[", RowBox[{"[", RowBox[{"m", "+", "1"}], "]"}], "]"}]}]}], "}"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"i", ">", "9"}], "&&", RowBox[{"i", "<", "19"}]}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "=", RowBox[{"jk9", "[", RowBox[{"[", RowBox[{"i", "-", "9"}], "]"}], "]"}]}], ";", RowBox[{"m", "=", RowBox[{ RowBox[{"Abs", "[", "j", "]"}], "+", RowBox[{"Abs", "[", "k", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"info", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"j", "*", "g1"}], ",", RowBox[{"k", "*", "g1"}], ",", "g3"}], "}"}], ",", RowBox[{"w2", "*", RowBox[{"wg9", "[", RowBox[{"[", RowBox[{"m", "+", "1"}], "]"}], "]"}]}]}], "}"}]}]}]}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"p", "\[Equal]", "27"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"g1", "=", RowBox[{"Sqrt", "[", RowBox[{"3", "/", "5"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"g3", "=", RowBox[{"-", "0.854011951853700535688324041975993416"}]}], ";", "\[IndentingNewLine]", RowBox[{"g4", "=", RowBox[{"-", "0.305992467923296230556472913192103090"}]}], ";", "\[IndentingNewLine]", RowBox[{"g5", "=", RowBox[{"+", "0.410004419776996766244796955168096505"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", " ", "[", RowBox[{ RowBox[{"!", "numer"}], ",", " ", RowBox[{ RowBox[{"{", RowBox[{"g3", ",", "g4", ",", "g5"}], "}"}], "=", RowBox[{"Rationalize", "[", RowBox[{ RowBox[{"{", RowBox[{"g3", ",", "g4", ",", "g5"}], "}"}], ",", "eps"}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"w1", "=", RowBox[{ RowBox[{"(", RowBox[{"4", "/", "15"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"4", "+", RowBox[{"5", "*", RowBox[{"(", RowBox[{"g4", "+", "g5"}], ")"}]}], "+", RowBox[{"10", "*", "g4", "*", "g5"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"g3", "-", "g4"}], ")"}], "*", RowBox[{"(", RowBox[{"g3", "-", "g5"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "g3"}], ")"}], "^", "2"}]}], ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"w2", "=", RowBox[{ RowBox[{"(", RowBox[{"4", "/", "15"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"4", "+", RowBox[{"5", "*", RowBox[{"(", RowBox[{"g3", "+", "g5"}], ")"}]}], "+", RowBox[{"10", "*", "g3", "*", "g5"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"g3", "-", "g4"}], ")"}], "*", RowBox[{"(", RowBox[{"g5", "-", "g4"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "g4"}], ")"}], "^", "2"}]}], ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"w3", "=", RowBox[{ RowBox[{"(", RowBox[{"4", "/", "15"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"4", "+", RowBox[{"5", "*", RowBox[{"(", RowBox[{"g3", "+", "g4"}], ")"}]}], "+", RowBox[{"10", "*", "g3", "*", "g4"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"g3", "-", "g5"}], ")"}], "*", RowBox[{"(", RowBox[{"g4", "-", "g5"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "g5"}], ")"}], "^", "2"}]}], ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"i", "<", "10"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "=", RowBox[{"jk9", "[", RowBox[{"[", "i", "]"}], "]"}]}], ";", RowBox[{"m", "=", RowBox[{ RowBox[{"Abs", "[", "j", "]"}], "+", RowBox[{"Abs", "[", "k", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"info", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"j", "*", "g1"}], ",", RowBox[{"k", "*", "g1"}], ",", "g3"}], "}"}], ",", RowBox[{"w1", "*", RowBox[{"wg9", "[", RowBox[{"[", RowBox[{"m", "+", "1"}], "]"}], "]"}]}]}], "}"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"i", ">", "9"}], "&&", RowBox[{"i", "<", "19"}]}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "=", RowBox[{"jk9", "[", RowBox[{"[", RowBox[{"i", "-", "9"}], "]"}], "]"}]}], ";", RowBox[{"m", "=", RowBox[{ RowBox[{"Abs", "[", "j", "]"}], "+", RowBox[{"Abs", "[", "k", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"info", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"j", "*", "g1"}], ",", RowBox[{"k", "*", "g1"}], ",", "g4"}], "}"}], ",", RowBox[{"w2", "*", RowBox[{"wg9", "[", RowBox[{"[", RowBox[{"m", "+", "1"}], "]"}], "]"}]}]}], "}"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"i", ">", "18"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "=", RowBox[{"jk9", "[", RowBox[{"[", RowBox[{"i", "-", "18"}], "]"}], "]"}]}], ";", RowBox[{"m", "=", RowBox[{ RowBox[{"Abs", "[", "j", "]"}], "+", RowBox[{"Abs", "[", "k", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"info", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"j", "*", "g1"}], ",", RowBox[{"k", "*", "g1"}], ",", "g5"}], "}"}], ",", RowBox[{"w3", "*", RowBox[{"wg9", "[", RowBox[{"[", RowBox[{"m", "+", "1"}], "]"}], "]"}]}]}], "}"}]}]}]}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", " ", "[", " ", RowBox[{"numer", ",", " ", RowBox[{"Return", "[", RowBox[{"N", "[", RowBox[{"info", ",", "20"}], "]"}], "]"}], ",", " ", RowBox[{"Return", "[", "info", "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]], "Input",\ CellChangeTimes->{{3.413376886297916*^9, 3.4133773256082172`*^9}, { 3.413378742795382*^9, 3.413378888399621*^9}, {3.413378923615098*^9, 3.4133789328638353`*^9}, {3.413396985311747*^9, 3.413397147592699*^9}, { 3.413653443541477*^9, 3.413653597200617*^9}, {3.41365363703336*^9, 3.413653900925736*^9}, {3.413654239162406*^9, 3.413654567881105*^9}, { 3.413654917203484*^9, 3.413654925192285*^9}, {3.4136549840012903`*^9, 3.413654985096965*^9}, {3.413655112059662*^9, 3.413655115833828*^9}, { 3.413655182544448*^9, 3.413655403531612*^9}, {3.413655645788496*^9, 3.413655858704184*^9}, {3.4136558968602753`*^9, 3.4136559696428537`*^9}, { 3.413657095602586*^9, 3.4136573081847973`*^9}, 3.413819685894218*^9, { 3.4138197550324383`*^9, 3.413819756256186*^9}, 3.413819882135359*^9, { 3.414673591270568*^9, 3.414673592847736*^9}, {3.414746509322014*^9, 3.414746510392467*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< Mathematica version\>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "Print", "[", "\"\< Test the quadrature rules for a pyramid, returned\>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "Print", "[", "\"\< by {{x,y,z},w} = PyraGaussRuleInfo[{rule,numer},i]\>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< INPUT:\>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "Print", "[", "\"\< RULE is 1, 5, 6, 8, -8, 9, 13, 18 or 27,\>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "Print", "[", "\"\< the order of the rule. There are two rules of order 8,\>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "Print", "[", "\"\< so the value of -8 returns the second one.\>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "Print", "[", "\"\< NUMER is True to return numerical values for the output, or\>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "Print", "[", "\"\< False to return symbolic (exact, except for rule 27) values.\>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< I is the index, between 1 and |RULE|, of the point desired.\>\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< OUTPUT:\>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< {X,Y,Z} are the coordinates of the quadrature point,\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< with -1 <= X, Y, Z <= +1. X and Y represent the base\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< of the pyramid, which Z measures the height.\>\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< W is the weight of the quadrature point, and should be\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< multiplied by (1/4) (1-Z)^2 when used in a sum.\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< \>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< The following cells print out each rule, and the sum\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< of the weights, scaled by (1/4) (1-Z)^2. The scaled\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< weight should sum to 8/3 or 2.666..., the volume of\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< the pyramid.\>\"", "]"}]}], "Input", CellChangeTimes->{{3.413820383448031*^9, 3.413820964218034*^9}, { 3.4138210017963247`*^9, 3.413821002539048*^9}}], Cell[CellGroupData[{ Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413820967703148*^9}], Cell[BoxData["\<\"PyraGaussRuleInfoTest.nb\"\>"], "Print", CellChangeTimes->{3.413820967765345*^9}], Cell[BoxData["\<\" Mathematica version\"\>"], "Print", CellChangeTimes->{3.413820967811675*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413820967862602*^9}], Cell[BoxData["\<\" Test the quadrature rules for a pyramid, returned\"\>"], \ "Print", CellChangeTimes->{3.413820967902644*^9}], Cell[BoxData["\<\" by {{x,y,z},w} = PyraGaussRuleInfo[{rule,numer},i]\"\>"], \ "Print", CellChangeTimes->{3.413820967958683*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413820967986137*^9}], Cell[BoxData["\<\" INPUT:\"\>"], "Print", CellChangeTimes->{3.4138209680176373`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413820968050599*^9}], Cell[BoxData["\<\" RULE is 1, 5, 6, 8, -8, 9, 13, 18 or 27,\"\>"], "Print", CellChangeTimes->{3.413820968083971*^9}], Cell[BoxData["\<\" the order of the rule. There are two rules of order 8,\"\ \>"], "Print", CellChangeTimes->{3.413820968117506*^9}], Cell[BoxData["\<\" so the value of -8 returns the second one.\"\>"], "Print", CellChangeTimes->{3.4138209681669493`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413820968193915*^9}], Cell[BoxData["\<\" NUMER is True to return numerical values for the output, \ or\"\>"], "Print", CellChangeTimes->{3.4138209682328*^9}], Cell[BoxData["\<\" False to return symbolic (exact, except for rule 27) \ values.\"\>"], "Print", CellChangeTimes->{3.4138209682678947`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413820968301022*^9}], Cell[BoxData["\<\" I is the index, between 1 and |RULE|, of the point \ desired.\"\>"], "Print", CellChangeTimes->{3.413820968337451*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413820968368371*^9}], Cell[BoxData["\<\" OUTPUT:\"\>"], "Print", CellChangeTimes->{3.413820968401188*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4138209684343357`*^9}], Cell[BoxData["\<\" {X,Y,Z} are the coordinates of the quadrature \ point,\"\>"], "Print", CellChangeTimes->{3.413820968469121*^9}], Cell[BoxData["\<\" with -1 <= X, Y, Z <= +1. X and Y represent the \ base\"\>"], "Print", CellChangeTimes->{3.413820968506566*^9}], Cell[BoxData["\<\" of the pyramid, which Z measures the height.\"\>"], \ "Print", CellChangeTimes->{3.41382096853677*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413820968568121*^9}], Cell[BoxData["\<\" W is the weight of the quadrature point, and should \ be\"\>"], "Print", CellChangeTimes->{3.413820968601959*^9}], Cell[BoxData["\<\" multiplied by (1/4) (1-Z)^2 when used in a sum.\"\>"], \ "Print", CellChangeTimes->{3.413820968652543*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413820968682118*^9}], Cell[BoxData["\<\" The following cells print out each rule, and the \ sum\"\>"], "Print", CellChangeTimes->{3.4138209687183237`*^9}], Cell[BoxData["\<\" of the weights (scaled by (1/4) (1-Z)^2. The \ scaled\"\>"], "Print", CellChangeTimes->{3.4138209687513113`*^9}], Cell[BoxData["\<\" weight should sum to 8/3 or 2.666..., the volume \ of\"\>"], "Print", CellChangeTimes->{3.413820968784669*^9}], Cell[BoxData["\<\" the pyramid.\"\>"], "Print", CellChangeTimes->{3.413820968818873*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"rule", " ", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numer", " ", "=", " ", "True"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"wsum", " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "rule"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"3", "/", "8"}], " ", ")"}], " ", "*", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"1", " ", "-", " ", "z"}], ")"}], "^", "2"}], " ", "*", " ", "w"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "w", " ", "]"}], ";", "\[IndentingNewLine]", RowBox[{"wsum", " ", "=", " ", RowBox[{"wsum", " ", "+", "w"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "wsum"}], " ", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"x", " ", "=", " ", RowBox[{"a", " ", "*", " ", RowBox[{"(", " ", RowBox[{"1", " ", "-", " ", "z"}], " ", ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "x", " ", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"y", " ", "=", " ", RowBox[{"b", " ", "*", " ", RowBox[{"(", " ", RowBox[{"1", " ", "-", " ", "z"}], " ", ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "y", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "z", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.413654633924918*^9, 3.413654799625798*^9}, { 3.41365484902993*^9, 3.413654878240939*^9}, {3.413654957362526*^9, 3.413654963399206*^9}, {3.413655009030931*^9, 3.413655015807214*^9}, { 3.413655056153854*^9, 3.4136550564604473`*^9}, {3.41365560416474*^9, 3.4136556090032673`*^9}, {3.4138136887636223`*^9, 3.413813699871728*^9}, { 3.414673677845633*^9, 3.4146737578261414`*^9}, {3.4146737973797894`*^9, 3.414673820186462*^9}, {3.4152015668451138`*^9, 3.4152015975359373`*^9}}], Cell[CellGroupData[{ Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4136550570040913`*^9, 3.413655609904941*^9, 3.413813706748934*^9, 3.41467376248269*^9, 3.414673828767861*^9, 3.415201598441349*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Pyramid rule number \"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Pyramid rule number ", 1], Editable->False]], "Print", CellChangeTimes->{3.4136550570040913`*^9, 3.413655609904941*^9, 3.413813706748934*^9, 3.41467376248269*^9, 3.414673828767861*^9, 3.4152015984790087`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4136550570040913`*^9, 3.413655609904941*^9, 3.413813706748934*^9, 3.41467376248269*^9, 3.414673828767861*^9, 3.415201598519987*^9}], Cell[BoxData["\<\"W\"\>"], "Print", CellChangeTimes->{3.4136550570040913`*^9, 3.413655609904941*^9, 3.413813706748934*^9, 3.41467376248269*^9, 3.414673828767861*^9, 3.4152015985537853`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4136550570040913`*^9, 3.413655609904941*^9, 3.413813706748934*^9, 3.41467376248269*^9, 3.414673828767861*^9, 3.415201598587816*^9}], Cell[BoxData["0.99999999999999999999999999999684455638`19.778151250383644"], \ "Print", CellChangeTimes->{3.4136550570040913`*^9, 3.413655609904941*^9, 3.413813706748934*^9, 3.41467376248269*^9, 3.414673828767861*^9, 3.415201598621944*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"sum(w) = \"\>", "\[InvisibleSpace]", "0.99999999999999999999999999999684455638`19.778151250383644"}], SequenceForm["sum(w) = ", 1.`19.778151250383644], Editable->False]], "Print", CellChangeTimes->{3.4136550570040913`*^9, 3.413655609904941*^9, 3.413813706748934*^9, 3.41467376248269*^9, 3.414673828767861*^9, 3.415201598656389*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4136550570040913`*^9, 3.413655609904941*^9, 3.413813706748934*^9, 3.41467376248269*^9, 3.414673828767861*^9, 3.415201598680682*^9}], Cell[BoxData["\<\"X\"\>"], "Print", CellChangeTimes->{3.4136550570040913`*^9, 3.413655609904941*^9, 3.413813706748934*^9, 3.41467376248269*^9, 3.414673828767861*^9, 3.415201598710535*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4136550570040913`*^9, 3.413655609904941*^9, 3.413813706748934*^9, 3.41467376248269*^9, 3.414673828767861*^9, 3.4152015987449417`*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.4136550570040913`*^9, 3.413655609904941*^9, 3.413813706748934*^9, 3.41467376248269*^9, 3.414673828767861*^9, 3.415201598778454*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4136550570040913`*^9, 3.413655609904941*^9, 3.413813706748934*^9, 3.41467376248269*^9, 3.414673828767861*^9, 3.415201598811008*^9}], Cell[BoxData["\<\"Y\"\>"], "Print", CellChangeTimes->{3.4136550570040913`*^9, 3.413655609904941*^9, 3.413813706748934*^9, 3.41467376248269*^9, 3.414673828767861*^9, 3.415201598844962*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4136550570040913`*^9, 3.413655609904941*^9, 3.413813706748934*^9, 3.41467376248269*^9, 3.414673828767861*^9, 3.415201598900466*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.4136550570040913`*^9, 3.413655609904941*^9, 3.413813706748934*^9, 3.41467376248269*^9, 3.414673828767861*^9, 3.4152015989253387`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4136550570040913`*^9, 3.413655609904941*^9, 3.413813706748934*^9, 3.41467376248269*^9, 3.414673828767861*^9, 3.415201598949967*^9}], Cell[BoxData["\<\"Z\"\>"], "Print", CellChangeTimes->{3.4136550570040913`*^9, 3.413655609904941*^9, 3.413813706748934*^9, 3.41467376248269*^9, 3.414673828767861*^9, 3.415201598978764*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4136550570040913`*^9, 3.413655609904941*^9, 3.413813706748934*^9, 3.41467376248269*^9, 3.414673828767861*^9, 3.415201599011983*^9}], Cell[BoxData["0.25`20."], "Print", CellChangeTimes->{3.4136550570040913`*^9, 3.413655609904941*^9, 3.413813706748934*^9, 3.41467376248269*^9, 3.414673828767861*^9, 3.415201599045574*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"rule", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numer", " ", "=", " ", "True"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"wsum", " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "rule"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"3", "/", "8"}], " ", ")"}], " ", "*", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"1", " ", "-", " ", "z"}], ")"}], "^", "2"}], " ", "*", " ", "w"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "w", " ", "]"}], ";", "\[IndentingNewLine]", RowBox[{"wsum", " ", "=", " ", RowBox[{"wsum", " ", "+", "w"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "wsum"}], " ", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"x", " ", "=", " ", RowBox[{"a", " ", "*", " ", RowBox[{"(", " ", RowBox[{"1", " ", "-", " ", "z"}], " ", ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "x", " ", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"y", " ", "=", " ", RowBox[{"b", " ", "*", " ", RowBox[{"(", " ", RowBox[{"1", " ", "-", " ", "z"}], " ", ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "y", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "z", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.413654633924918*^9, 3.413654799625798*^9}, { 3.41365484902993*^9, 3.413654878240939*^9}, {3.413654957362526*^9, 3.413654963399206*^9}, {3.413655009030931*^9, 3.413655015807214*^9}, { 3.4136555956892033`*^9, 3.413655599497733*^9}, {3.4138137133463373`*^9, 3.413813722344843*^9}, {3.414673847465712*^9, 3.414673847940092*^9}, { 3.415201081249057*^9, 3.4152013249591084`*^9}, {3.415201392820709*^9, 3.415201396805786*^9}}], Cell[CellGroupData[{ Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.415201398584159*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Pyramid rule number \"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Pyramid rule number ", 5], Editable->False]], "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.4152013986182833`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.415201398648987*^9}], Cell[BoxData["\<\"W\"\>"], "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.415201398682036*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.415201398715253*^9}], Cell[BoxData["0.2109375`19.744727494896697"], "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.4152013987487383`*^9}], Cell[BoxData["0.2109375`19.744727494896697"], "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.4152013987828903`*^9}], Cell[BoxData["0.2109375`19.744727494896697"], "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.415201398813858*^9}], Cell[BoxData["0.2109375`19.744727494896697"], "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.41520139884013*^9}], Cell[BoxData["0.15624999999999999999999999999987378226`19.63202321470541"], \ "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.415201398874689*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"sum(w) = \"\>", "\[InvisibleSpace]", "0.99999999999999999999999999999987378226`19.725072806900226"}], SequenceForm["sum(w) = ", 1.`19.725072806900226], Editable->False]], "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.4152013989079247`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.415201398941025*^9}], Cell[BoxData["\<\"X\"\>"], "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.415201398975898*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.4152013990086813`*^9}], Cell[BoxData[ RowBox[{"-", "0.48686449556014765640619536248960189685`19.85387196432177"}]], "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.41520139906431*^9}], Cell[BoxData["0.48686449556014765640619536248960189685`19.85387196432177"], \ "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.415201399087089*^9}], Cell[BoxData["0.48686449556014765640619536248960189685`19.85387196432177"], \ "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.415201399109806*^9}], Cell[BoxData[ RowBox[{"-", "0.48686449556014765640619536248960189685`19.85387196432177"}]], "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.415201399142003*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.4152013991754723`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.415201399209103*^9}], Cell[BoxData["\<\"Y\"\>"], "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.415201399242753*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.415201399276143*^9}], Cell[BoxData[ RowBox[{"-", "0.48686449556014765640619536248960189685`19.85387196432177"}]], "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.415201399309084*^9}], Cell[BoxData[ RowBox[{"-", "0.48686449556014765640619536248960189685`19.85387196432177"}]], "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.415201399342329*^9}], Cell[BoxData["0.48686449556014765640619536248960189685`19.85387196432177"], \ "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.415201399375963*^9}], Cell[BoxData["0.48686449556014765640619536248960189685`19.85387196432177"], \ "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.4152013994095697`*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.41520139944326*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.4152013994761553`*^9}], Cell[BoxData["\<\"Z\"\>"], "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.415201399529716*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.4152013995541983`*^9}], Cell[BoxData["0.16666666666666666666666666666666666666`19.698970004336026"], \ "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.415201399578861*^9}], Cell[BoxData["0.16666666666666666666666666666666666666`19.698970004336026"], \ "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.415201399610002*^9}], Cell[BoxData["0.16666666666666666666666666666666666666`19.698970004336026"], \ "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.415201399643691*^9}], Cell[BoxData["0.16666666666666666666666666666666666666`19.698970004336026"], \ "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.415201399677368*^9}], Cell[BoxData["0.7`20.54406804435028"], "Print", CellChangeTimes->{ 3.413654888980755*^9, {3.4136549957687607`*^9, 3.4136550179711027`*^9}, 3.4136556003409863`*^9, 3.413813725817009*^9, 3.4146738522661257`*^9, { 3.415201328468487*^9, 3.415201341158718*^9}, 3.415201399709393*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"rule", " ", "=", " ", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numer", " ", "=", " ", "True"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"wsum", " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "rule"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"3", "/", "8"}], " ", ")"}], " ", "*", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"1", " ", "-", " ", "z"}], ")"}], "^", "2"}], " ", "*", " ", "w"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "w", " ", "]"}], ";", "\[IndentingNewLine]", RowBox[{"wsum", " ", "=", " ", RowBox[{"wsum", " ", "+", "w"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "wsum"}], " ", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"x", " ", "=", " ", RowBox[{"a", " ", "*", " ", RowBox[{"(", " ", RowBox[{"1", " ", "-", " ", "z"}], " ", ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "x", " ", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"y", " ", "=", " ", RowBox[{"b", " ", "*", " ", RowBox[{"(", " ", RowBox[{"1", " ", "-", " ", "z"}], " ", ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "y", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "z", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "Input", CellChangeTimes->{{3.413654633924918*^9, 3.413654799625798*^9}, { 3.41365484902993*^9, 3.413654878240939*^9}, {3.413654957362526*^9, 3.413654963399206*^9}, {3.413655009030931*^9, 3.413655015807214*^9}, { 3.413655074777342*^9, 3.413655075108171*^9}, {3.4136555839228897`*^9, 3.413655587706215*^9}, {3.4138136414533052`*^9, 3.413813652649139*^9}, { 3.413813735131393*^9, 3.413813741542747*^9}, {3.4146738704055853`*^9, 3.4146738708597116`*^9}, {3.415201436066044*^9, 3.4152014387062798`*^9}}], Cell[CellGroupData[{ Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.415201439249247*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Pyramid rule number \"\>", "\[InvisibleSpace]", "6"}], SequenceForm["Pyramid rule number ", 6], Editable->False]], "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.415201439280696*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.415201439312674*^9}], Cell[BoxData["\<\"W\"\>"], "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.4152014393442917`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.4152014393750353`*^9}], Cell[BoxData["0.21`19.744727494896697"], "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.4152014394008713`*^9}], Cell[BoxData["0.21`19.744727494896697"], "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.415201439434623*^9}], Cell[BoxData["0.21`19.744727494896697"], "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.415201439469058*^9}], Cell[BoxData["0.21`19.744727494896697"], "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.4152014395019197`*^9}], Cell[BoxData["0.06`19.85387196432176"], "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.4152014395351143`*^9}], Cell[BoxData["0.09999999999999999999999999999992111391`19.52287874528034"], \ "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.415201439568434*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"sum(w) = \"\>", "\[InvisibleSpace]", "0.99999999999999999999999999999992111391`19.72216166699796"}], SequenceForm["sum(w) = ", 1.`19.72216166699796], Editable->False]], "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.4152014396021748`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.415201439636169*^9}], Cell[BoxData["\<\"X\"\>"], "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.415201439669175*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.41520143972404*^9}], Cell[BoxData[ RowBox[{"-", "0.4879500364742665896771923181200500948`19.85387196432177"}]], "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.415201439747085*^9}], Cell[BoxData["0.4879500364742665896771923181200500948`19.85387196432177"], \ "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.415201439770501*^9}], Cell[BoxData["0.4879500364742665896771923181200500948`19.85387196432177"], \ "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.415201439802829*^9}], Cell[BoxData[ RowBox[{"-", "0.4879500364742665896771923181200500948`19.85387196432177"}]], "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.4152014398355417`*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.415201439869429*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.415201439903351*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.4152014399365*^9}], Cell[BoxData["\<\"Y\"\>"], "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.415201439970228*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.415201440003234*^9}], Cell[BoxData[ RowBox[{"-", "0.4879500364742665896771923181200500948`19.85387196432177"}]], "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.4152014400364943`*^9}], Cell[BoxData[ RowBox[{"-", "0.4879500364742665896771923181200500948`19.85387196432177"}]], "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.41520144007041*^9}], Cell[BoxData["0.4879500364742665896771923181200500948`19.85387196432177"], \ "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.415201440104073*^9}], Cell[BoxData["0.4879500364742665896771923181200500948`19.85387196432177"], \ "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.415201440137632*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.415201440189817*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.415201440215687*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.415201440240959*^9}], Cell[BoxData["\<\"Z\"\>"], "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.4152014402704353`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.415201440304159*^9}], Cell[BoxData["0.16666666666666666666666666666666666666`19.698970004336026"], \ "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.415201440337188*^9}], Cell[BoxData["0.16666666666666666666666666666666666666`19.698970004336026"], \ "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.415201440370392*^9}], Cell[BoxData["0.16666666666666666666666666666666666666`19.698970004336026"], \ "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.415201440403458*^9}], Cell[BoxData["0.16666666666666666666666666666666666666`19.698970004336026"], \ "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.415201440436821*^9}], Cell[BoxData["0.58333333333333333333333333333333333334`20.84509804001426"], \ "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.41520144047019*^9}], Cell[BoxData["0.75`20.477121254719663"], "Print", CellChangeTimes->{3.413655075568932*^9, 3.41365558859274*^9, 3.413813742476877*^9, 3.413819704095929*^9, 3.4146738728359632`*^9, 3.4152014405037746`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"rule", " ", "=", " ", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numer", " ", "=", " ", "True"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"wsum", " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "rule"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"3", "/", "8"}], " ", ")"}], " ", "*", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"1", " ", "-", " ", "z"}], ")"}], "^", "2"}], " ", "*", " ", "w"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "w", " ", "]"}], ";", "\[IndentingNewLine]", RowBox[{"wsum", " ", "=", " ", RowBox[{"wsum", " ", "+", "w"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "wsum"}], " ", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"x", " ", "=", " ", RowBox[{"a", " ", "*", " ", RowBox[{"(", " ", RowBox[{"1", " ", "-", " ", "z"}], " ", ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "x", " ", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"y", " ", "=", " ", RowBox[{"b", " ", "*", " ", RowBox[{"(", " ", RowBox[{"1", " ", "-", " ", "z"}], " ", ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "y", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "z", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "Input", CellChangeTimes->{{3.413654633924918*^9, 3.413654799625798*^9}, { 3.41365484902993*^9, 3.413654878240939*^9}, {3.413654957362526*^9, 3.413654963399206*^9}, {3.413655009030931*^9, 3.413655015807214*^9}, { 3.413655100840743*^9, 3.413655101204001*^9}, {3.4136555727306747`*^9, 3.413655577706349*^9}, {3.4138136587778482`*^9, 3.413813668023497*^9}, { 3.413813750364406*^9, 3.413813756006405*^9}, {3.414673894829178*^9, 3.4146738952988033`*^9}, {3.415201447176774*^9, 3.415201449792779*^9}}], Cell[CellGroupData[{ Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.415201451118979*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Pyramid rule number \"\>", "\[InvisibleSpace]", "8"}], SequenceForm["Pyramid rule number ", 8], Editable->False]], "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.4152014511507874`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.415201451193362*^9}], Cell[BoxData["\<\"W\"\>"], "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.415201451223928*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.415201451257547*^9}], Cell[BoxData["0.07558941155986907293751728836823841301`19.92310009707811"], \ "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.415201451283646*^9}], Cell[BoxData["0.07558941155986907293751728836823841301`19.92310009707811"], \ "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.4152014513166733`*^9}], Cell[BoxData["0.07558941155986907293751728836823841301`19.92310009707811"], \ "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.4152014513501863`*^9}], Cell[BoxData["0.07558941155986907293751728836823841301`19.92310009707811"], \ "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.415201451382707*^9}], Cell[BoxData["0.17441058844013092706248271163176122711`19.73039842905131"], \ "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.415201451417008*^9}], Cell[BoxData["0.17441058844013092706248271163176122711`19.73039842905131"], \ "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.415201451450328*^9}], Cell[BoxData["0.17441058844013092706248271163176122711`19.73039842905131"], \ "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.415201451483902*^9}], Cell[BoxData["0.17441058844013092706248271163176122711`19.73039842905131"], \ "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.4152014515169783`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"sum(w) = \"\>", "\[InvisibleSpace]", "0.99999999999999999999999999999999856048`19.780203919166894"}], SequenceForm["sum(w) = ", 1.`19.780203919166894], Editable->False]], "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.415201451550683*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.415201451605604*^9}], Cell[BoxData["\<\"X\"\>"], "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.415201451629469*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.4152014516531*^9}], Cell[BoxData[ RowBox[{"-", "0.26318405556971359557121701304556403629`19.959850197981535"}]], "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.4152014516836433`*^9}], Cell[BoxData["0.26318405556971359557121701304556403629`19.959850197981535"], \ "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.4152014517178917`*^9}], Cell[BoxData["0.26318405556971359557121701304556403629`19.959850197981535"], \ "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.415201451751396*^9}], Cell[BoxData[ RowBox[{"-", "0.26318405556971359557121701304556403629`19.959850197981535"}]], "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.4152014517849827`*^9}], Cell[BoxData[ RowBox[{"-", "0.50661630334978742377431469429035839296`19.844606322115272"}]], "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.415201451819026*^9}], Cell[BoxData["0.50661630334978742377431469429035839296`19.844606322115272"], \ "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.4152014518524637`*^9}], Cell[BoxData["0.50661630334978742377431469429035839296`19.844606322115272"], \ "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.415201451885275*^9}], Cell[BoxData[ RowBox[{"-", "0.50661630334978742377431469429035839296`19.844606322115272"}]], "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.4152014519183607`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.415201451951606*^9}], Cell[BoxData["\<\"Y\"\>"], "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.415201451985264*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.415201452019301*^9}], Cell[BoxData[ RowBox[{"-", "0.26318405556971359557121701304556403629`19.959850197981535"}]], "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.415201452052656*^9}], Cell[BoxData[ RowBox[{"-", "0.26318405556971359557121701304556403629`19.959850197981535"}]], "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.4152014521055403`*^9}], Cell[BoxData["0.26318405556971359557121701304556403629`19.959850197981535"], \ "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.415201452131917*^9}], Cell[BoxData["0.26318405556971359557121701304556403629`19.959850197981535"], \ "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.4152014521698627`*^9}], Cell[BoxData[ RowBox[{"-", "0.50661630334978742377431469429035839296`19.844606322115265"}]], "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.4152014522027893`*^9}], Cell[BoxData[ RowBox[{"-", "0.50661630334978742377431469429035839296`19.844606322115265"}]], "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.415201452235969*^9}], Cell[BoxData["0.50661630334978742377431469429035839296`19.844606322115265"], \ "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.415201452269699*^9}], Cell[BoxData["0.50661630334978742377431469429035839296`19.844606322115265"], \ "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.4152014523031073`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.415201452336748*^9}], Cell[BoxData["\<\"Z\"\>"], "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.415201452369637*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.415201452403078*^9}], Cell[BoxData["0.54415184401122528879992623629551456891`21.09077125854498"], \ "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.415201452435375*^9}], Cell[BoxData["0.54415184401122528879992623629551456891`21.09077125854498"], \ "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.4152014524697*^9}], Cell[BoxData["0.54415184401122528879992623629551456891`21.09077125854498"], \ "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.4152014525028267`*^9}], Cell[BoxData["0.54415184401122528879992623629551456891`21.09077125854498"], \ "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.4152014525360527`*^9}], Cell[BoxData["0.12251482265544137786674043037115209775`19.51128873278299"], \ "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.415201452587761*^9}], Cell[BoxData["0.12251482265544137786674043037115209775`19.51128873278299"], \ "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.415201452614842*^9}], Cell[BoxData["0.12251482265544137786674043037115209775`19.51128873278299"], \ "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.415201452652521*^9}], Cell[BoxData["0.12251482265544137786674043037115209775`19.51128873278299"], \ "Print", CellChangeTimes->{{3.413655102334674*^9, 3.413655123050221*^9}, 3.413655578412269*^9, 3.413813756875557*^9, 3.41467389649409*^9, 3.4152014526857862`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"rule", " ", "=", " ", RowBox[{"-", "8"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numer", " ", "=", " ", "True"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"wsum", " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "rule"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"3", "/", "8"}], " ", ")"}], " ", "*", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"1", " ", "-", " ", "z"}], ")"}], "^", "2"}], " ", "*", " ", "w"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "w", " ", "]"}], ";", "\[IndentingNewLine]", RowBox[{"wsum", " ", "=", " ", RowBox[{"wsum", " ", "+", "w"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "wsum"}], " ", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"x", " ", "=", " ", RowBox[{"a", " ", "*", " ", RowBox[{"(", " ", RowBox[{"1", " ", "-", " ", "z"}], " ", ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "x", " ", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"y", " ", "=", " ", RowBox[{"b", " ", "*", " ", RowBox[{"(", " ", RowBox[{"1", " ", "-", " ", "z"}], " ", ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "y", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "z", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "Input", CellChangeTimes->{{3.413654633924918*^9, 3.413654799625798*^9}, { 3.41365484902993*^9, 3.413654878240939*^9}, {3.413654957362526*^9, 3.413654963399206*^9}, {3.413655009030931*^9, 3.413655015807214*^9}, { 3.413655132528431*^9, 3.413655133586656*^9}, {3.4136555608281193`*^9, 3.413655564906551*^9}, {3.413813763053733*^9, 3.4138137700452633`*^9}, { 3.4146739027007504`*^9, 3.414673903114731*^9}, {3.415201460404704*^9, 3.415201463361573*^9}}], Cell[CellGroupData[{ Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201464611731*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Pyramid rule number \"\>", "\[InvisibleSpace]", RowBox[{"-", "8"}]}], SequenceForm["Pyramid rule number ", -8], Editable->False]], "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201464649694*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201464690445*^9}], Cell[BoxData["\<\"W\"\>"], "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201464721826*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201464756331*^9}], Cell[BoxData["0.16438287736328777572426139601856958058`19.726745121078157"], \ "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201464789424*^9}], Cell[BoxData["0.16438287736328777572426139601856958058`19.726745121078157"], \ "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201464820859*^9}], Cell[BoxData["0.16438287736328777572426139601856958058`19.726745121078157"], \ "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.4152014648481207`*^9}], Cell[BoxData["0.16438287736328777572426139601856958058`19.726745121078157"], \ "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201464881425*^9}], Cell[BoxData["0.08561712263671222427573860398143049219`19.968149294271626"], \ "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201464914887*^9}], Cell[BoxData["0.08561712263671222427573860398143049219`19.968149294271626"], \ "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201464947358*^9}], Cell[BoxData["0.08561712263671222427573860398143049219`19.968149294271626"], \ "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201464981051*^9}], Cell[BoxData["0.08561712263671222427573860398143049219`19.968149294271626"], \ "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201465015274*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"sum(w) = \"\>", "\[InvisibleSpace]", "1.00000000000000000000000000000000029109`19.79530483982384"}], SequenceForm["sum(w) = ", 1.`19.79530483982384], Editable->False]], "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201465070298*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201465094179*^9}], Cell[BoxData["\<\"X\"\>"], "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201465117901*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201465149042*^9}], Cell[BoxData[ RowBox[{"-", "0.51197009372656270106787177114855164201`19.842226734065253"}]], "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201465181823*^9}], Cell[BoxData["0.51197009372656270106787177114855164201`19.842226734065253"], \ "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.41520146521516*^9}], Cell[BoxData["0.51197009372656270106787177114855164201`19.842226734065253"], \ "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201465249669*^9}], Cell[BoxData[ RowBox[{"-", "0.51197009372656270106787177114855164201`19.842226734065253"}]], "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201465282353*^9}], Cell[BoxData[ RowBox[{"-", "0.28415447557052037455572583630241398546`19.983782725344142"}]], "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201465317027*^9}], Cell[BoxData["0.28415447557052037455572583630241398546`19.983782725344142"], \ "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201465350422*^9}], Cell[BoxData["0.28415447557052037455572583630241398546`19.983782725344142"], \ "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201465382992*^9}], Cell[BoxData[ RowBox[{"-", "0.28415447557052037455572583630241398546`19.983782725344142"}]], "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201465416317*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201465449728*^9}], Cell[BoxData["\<\"Y\"\>"], "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201465483526*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201465517473*^9}], Cell[BoxData[ RowBox[{"-", "0.51197009372656270106787177114855164201`19.842226734065243"}]], "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201465569152*^9}], Cell[BoxData[ RowBox[{"-", "0.51197009372656270106787177114855164201`19.842226734065243"}]], "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.41520146559543*^9}], Cell[BoxData["0.51197009372656270106787177114855164201`19.842226734065243"], \ "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.4152014656213083`*^9}], Cell[BoxData["0.51197009372656270106787177114855164201`19.842226734065243"], \ "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201465650537*^9}], Cell[BoxData[ RowBox[{"-", "0.28415447557052037455572583630241398546`19.983782725344142"}]], "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201465684061*^9}], Cell[BoxData[ RowBox[{"-", "0.28415447557052037455572583630241398546`19.983782725344142"}]], "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.41520146571736*^9}], Cell[BoxData["0.28415447557052037455572583630241398546`19.983782725344142"], \ "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201465750602*^9}], Cell[BoxData["0.28415447557052037455572583630241398546`19.983782725344142"], \ "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.4152014657840557`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201465817657*^9}], Cell[BoxData["\<\"Z\"\>"], "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.4152014658500223`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201465886146*^9}], Cell[BoxData["0.11024490204163285720001714824664956347`19.451566711477998"], \ "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201465921301*^9}], Cell[BoxData["0.11024490204163285720001714824664956347`19.451566711477998"], \ "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201465951128*^9}], Cell[BoxData["0.11024490204163285720001714824664956347`19.451566711477998"], \ "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201465983471*^9}], Cell[BoxData["0.11024490204163285720001714824664956347`19.451566711477998"], \ "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201466035845*^9}], Cell[BoxData["0.51832652652979571422855428032477900796`21.451523275513946"], \ "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201466063242*^9}], Cell[BoxData["0.51832652652979571422855428032477900796`21.451523275513946"], \ "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201466101202*^9}], Cell[BoxData["0.51832652652979571422855428032477900796`21.451523275513946"], \ "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.4152014661337433`*^9}], Cell[BoxData["0.51832652652979571422855428032477900796`21.451523275513946"], \ "Print", CellChangeTimes->{3.41365513440967*^9, 3.4136555657308187`*^9, 3.4138137716125402`*^9, 3.413819768218162*^9, 3.4146739044374323`*^9, 3.415201466167201*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"rule", " ", "=", " ", "9"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numer", " ", "=", " ", "True"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"wsum", " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "rule"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"3", "/", "8"}], " ", ")"}], " ", "*", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"1", " ", "-", " ", "z"}], ")"}], "^", "2"}], " ", "*", " ", "w"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "w", " ", "]"}], ";", "\[IndentingNewLine]", RowBox[{"wsum", " ", "=", " ", RowBox[{"wsum", " ", "+", "w"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "wsum"}], " ", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"x", " ", "=", " ", RowBox[{"a", " ", "*", " ", RowBox[{"(", " ", RowBox[{"1", " ", "-", " ", "z"}], " ", ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "x", " ", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"y", " ", "=", " ", RowBox[{"b", " ", "*", " ", RowBox[{"(", " ", RowBox[{"1", " ", "-", " ", "z"}], " ", ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "y", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "z", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "Input", CellChangeTimes->{{3.413654633924918*^9, 3.413654799625798*^9}, { 3.41365484902993*^9, 3.413654878240939*^9}, {3.413654957362526*^9, 3.413654963399206*^9}, {3.413655009030931*^9, 3.413655015807214*^9}, { 3.413655147967842*^9, 3.413655148322613*^9}, {3.413655547762664*^9, 3.413655553355095*^9}, {3.413813783432456*^9, 3.41381378869302*^9}, { 3.4146739126612387`*^9, 3.414673913050136*^9}, {3.415201474170848*^9, 3.415201476734393*^9}}], Cell[CellGroupData[{ Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.4152014772080317`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Pyramid rule number \"\>", "\[InvisibleSpace]", "9"}], SequenceForm["Pyramid rule number ", 9], Editable->False]], "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.41520147724074*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.415201477271002*^9}], Cell[BoxData["\<\"W\"\>"], "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.415201477296763*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.41520147732861*^9}], Cell[BoxData["0.1307338967227594479125121507626381027`19.71875074396513"], \ "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.415201477362423*^9}], Cell[BoxData["0.1307338967227594479125121507626381027`19.71875074396513"], \ "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.415201477396188*^9}], Cell[BoxData["0.1307338967227594479125121507626381027`19.71875074396513"], \ "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.415201477429695*^9}], Cell[BoxData["0.1307338967227594479125121507626381027`19.71875074396513"], \ "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.415201477462536*^9}], Cell[BoxData["0.10989110327724055208748784923735608703`19.875400077308992"], \ "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.415201477495598*^9}], Cell[BoxData["0.10989110327724055208748784923735608703`19.875400077308992"], \ "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.415201477529195*^9}], Cell[BoxData["0.10989110327724055208748784923735608703`19.875400077308992"], \ "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.4152014775628757`*^9}], Cell[BoxData["0.10989110327724055208748784923735608703`19.875400077308992"], \ "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.41520147759686*^9}], Cell[BoxData["0.0375`19.301029995663985"], "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.415201477630143*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"sum(w) = \"\>", "\[InvisibleSpace]", "0.99999999999999999999999999999997675893`19.751430311733657"}], SequenceForm["sum(w) = ", 1.`19.751430311733657], Editable->False]], "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.415201477684918*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.4152014777094803`*^9}], Cell[BoxData["\<\"X\"\>"], "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.415201477734614*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.4152014777632*^9}], Cell[BoxData[ RowBox[{"-", "0.52966422253852215131150208711142552046`19.8369952943752"}]], "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.4152014777970257`*^9}], Cell[BoxData["0.52966422253852215131150208711142552046`19.8369952943752"], \ "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.415201477829968*^9}], Cell[BoxData["0.52966422253852215131150208711142552046`19.8369952943752"], \ "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.415201477864243*^9}], Cell[BoxData[ RowBox[{"-", "0.52966422253852215131150208711142552046`19.8369952943752"}]], "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.415201477898172*^9}], Cell[BoxData[ RowBox[{"-", "0.34819753825720418038937936313073830536`19.933246785954605"}]], "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.415201477931178*^9}], Cell[BoxData["0.34819753825720418038937936313073830536`19.933246785954605"], \ "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.415201477964184*^9}], Cell[BoxData["0.34819753825720418038937936313073830536`19.933246785954605"], \ "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.41520147799842*^9}], Cell[BoxData[ RowBox[{"-", "0.34819753825720418038937936313073830536`19.933246785954605"}]], "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.415201478031968*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.4152014780646133`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.415201478099218*^9}], Cell[BoxData["\<\"Y\"\>"], "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.4152014781508713`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.415201478177771*^9}], Cell[BoxData[ RowBox[{"-", "0.52966422253852215131150208711142552046`19.8369952943752"}]], "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.415201478215214*^9}], Cell[BoxData[ RowBox[{"-", "0.52966422253852215131150208711142552046`19.8369952943752"}]], "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.415201478248728*^9}], Cell[BoxData["0.52966422253852215131150208711142552046`19.8369952943752"], \ "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.415201478282036*^9}], Cell[BoxData["0.52966422253852215131150208711142552046`19.8369952943752"], \ "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.4152014783150167`*^9}], Cell[BoxData[ RowBox[{"-", "0.34819753825720418038937936313073830536`19.933246785954605"}]], "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.415201478347927*^9}], Cell[BoxData[ RowBox[{"-", "0.34819753825720418038937936313073830536`19.933246785954605"}]], "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.415201478382079*^9}], Cell[BoxData["0.34819753825720418038937936313073830536`19.933246785954605"], \ "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.415201478416162*^9}], Cell[BoxData["0.34819753825720418038937936313073830536`19.933246785954605"], \ "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.415201478448614*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.415201478481992*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.4152014785152693`*^9}], Cell[BoxData["\<\"Z\"\>"], "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.415201478548484*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.4152014785812893`*^9}], Cell[BoxData["0.08176876558246862334615279746580020836`19.291170977750987"], \ "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.4152014786334667`*^9}], Cell[BoxData["0.08176876558246862334615279746580020836`19.291170977750987"], \ "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.4152014786615343`*^9}], Cell[BoxData["0.08176876558246862334615279746580020836`19.291170977750987"], \ "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.4152014786988783`*^9}], Cell[BoxData["0.08176876558246862334615279746580020836`19.291170977750987"], \ "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.415201478732195*^9}], Cell[BoxData["0.40037409156038851951099005967707556381`20.60409367172901"], \ "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.4152014787655773`*^9}], Cell[BoxData["0.40037409156038851951099005967707556381`20.60409367172901"], \ "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.41520147879856*^9}], Cell[BoxData["0.40037409156038851951099005967707556381`20.60409367172901"], \ "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.415201478831593*^9}], Cell[BoxData["0.40037409156038851951099005967707556381`20.60409367172901"], \ "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.415201478865139*^9}], Cell[BoxData["0.83333333333333333333333333333333333334`20.39794000867204"], \ "Print", CellChangeTimes->{3.413655149293708*^9, 3.413655554481958*^9, 3.413813789705792*^9, 3.414673617993634*^9, 3.414673913657628*^9, 3.415201478898407*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"rule", " ", "=", " ", "13"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numer", " ", "=", " ", "True"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"wsum", " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "rule"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"3", "/", "8"}], " ", ")"}], " ", "*", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"1", " ", "-", " ", "z"}], ")"}], "^", "2"}], " ", "*", " ", "w"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "w", " ", "]"}], ";", "\[IndentingNewLine]", RowBox[{"wsum", " ", "=", " ", RowBox[{"wsum", " ", "+", "w"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "wsum"}], " ", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"x", " ", "=", " ", RowBox[{"a", " ", "*", " ", RowBox[{"(", " ", RowBox[{"1", " ", "-", " ", "z"}], " ", ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "x", " ", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"y", " ", "=", " ", RowBox[{"b", " ", "*", " ", RowBox[{"(", " ", RowBox[{"1", " ", "-", " ", "z"}], " ", ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "y", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "z", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "Input", CellChangeTimes->{{3.413654633924918*^9, 3.413654799625798*^9}, { 3.41365484902993*^9, 3.413654878240939*^9}, {3.413654957362526*^9, 3.413654963399206*^9}, {3.413655009030931*^9, 3.413655015807214*^9}, { 3.413655156999885*^9, 3.413655157810032*^9}, {3.413655531234894*^9, 3.4136555369232883`*^9}, {3.4138137946896353`*^9, 3.413813800050177*^9}, { 3.414673924188126*^9, 3.414673924601865*^9}, {3.414746473869946*^9, 3.4147464977343273`*^9}, {3.414746555048737*^9, 3.414746561228405*^9}, { 3.4147466040871763`*^9, 3.414746647317836*^9}, {3.4147467697607183`*^9, 3.414746778135193*^9}, {3.415201485283515*^9, 3.4152014882174397`*^9}}], Cell[CellGroupData[{ Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201489776712*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Pyramid rule number \"\>", "\[InvisibleSpace]", "13"}], SequenceForm["Pyramid rule number ", 13], Editable->False]], "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.41520148986351*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.41520148991634*^9}], Cell[BoxData["\<\"W\"\>"], "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.4152014899436607`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201489977303*^9}], Cell[BoxData["0.06306159420289855072463768115942028986`19.903089986991947"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201490010454*^9}], Cell[BoxData["0.06306159420289855072463768115942028986`19.903089986991947"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201490043448*^9}], Cell[BoxData["0.06306159420289855072463768115942028986`19.903089986991947"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.41520149007813*^9}], Cell[BoxData["0.06306159420289855072463768115942028986`19.903089986991947"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201490110414*^9}], Cell[BoxData["0.04210194681557555619866999072688503726`19.827839034572754"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201490143615*^9}], Cell[BoxData["0.04210194681557555619866999072688503726`19.827839034572754"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.4152014901768637`*^9}], Cell[BoxData["0.04210194681557555619866999072688503726`19.827839034572754"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201490210853*^9}], Cell[BoxData["0.04210194681557555619866999072688503726`19.827839034572754"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.4152014902671833`*^9}], Cell[BoxData["0.13172030707666776585378557452294077934`19.719616774313657"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201490291253*^9}], Cell[BoxData["0.13172030707666776585378557452294077934`19.719616774313657"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201490315271*^9}], Cell[BoxData["0.13172030707666776585378557452294077934`19.719616774313657"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201490345004*^9}], Cell[BoxData["0.13172030707666776585378557452294077934`19.719616774313657"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201490378921*^9}], Cell[BoxData["0.05246460761943250889162701436301557417`19.494150050872207"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201490411892*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"sum(w) = \"\>", "\[InvisibleSpace]", "1.`19.75979053412035"}], SequenceForm["sum(w) = ", 1.`19.75979053412035], Editable->False]], "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201490445292*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.4152014904790087`*^9}], Cell[BoxData["\<\"X\"\>"], "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.4152014905129213`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.4152014905459223`*^9}], Cell[BoxData[ RowBox[{"-", "0.38510399211870384331190752398640294612`19.948847477552626"}]], "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.4152014905790873`*^9}], Cell[BoxData["0.38510399211870384331190752398640294612`19.948847477552626"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.4152014906127768`*^9}], Cell[BoxData["0.38510399211870384331190752398640294612`19.948847477552626"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201490645804*^9}], Cell[BoxData[ RowBox[{"-", "0.38510399211870384331190752398640294612`19.948847477552626"}]], "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201490679182*^9}], Cell[BoxData[ RowBox[{"-", "0.40345831960728204765767254841037022336`19.905443892385424"}]], "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.4152014907321453`*^9}], Cell[BoxData["0.40345831960728204765767254841037022336`19.905443892385424"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201490759036*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201490797813*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201490830597*^9}], Cell[BoxData[ RowBox[{"-", "0.53157877436961973359442595825954808264`19.837563622117003"}]], "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201490864073*^9}], Cell[BoxData["0.53157877436961973359442595825954808264`19.837563622117003"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201490896638*^9}], Cell[BoxData["0.53157877436961973359442595825954808264`19.837563622117003"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201490930326*^9}], Cell[BoxData[ RowBox[{"-", "0.53157877436961973359442595825954808264`19.837563622117003"}]], "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.41520149096388*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201490997417*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201491029711*^9}], Cell[BoxData["\<\"Y\"\>"], "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201491062811*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201491096882*^9}], Cell[BoxData[ RowBox[{"-", "0.38510399211870384331190752398640294612`19.94884747755262"}]], "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.4152014911302137`*^9}], Cell[BoxData[ RowBox[{"-", "0.38510399211870384331190752398640294612`19.94884747755262"}]], "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201491163842*^9}], Cell[BoxData["0.38510399211870384331190752398640294612`19.94884747755262"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.4152014912155123`*^9}], Cell[BoxData["0.38510399211870384331190752398640294612`19.94884747755262"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.4152014912439117`*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.4152014912804613`*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.4152014913138227`*^9}], Cell[BoxData[ RowBox[{"-", "0.40345831960728204765767254841037022336`19.905443892385424"}]], "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.4152014913472357`*^9}], Cell[BoxData["0.40345831960728204765767254841037022336`19.905443892385424"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201491379651*^9}], Cell[BoxData[ RowBox[{"-", "0.53157877436961973359442595825954808264`19.837563622116996"}]], "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201491412867*^9}], Cell[BoxData[ RowBox[{"-", "0.53157877436961973359442595825954808264`19.837563622116996"}]], "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201491447694*^9}], Cell[BoxData["0.53157877436961973359442595825954808264`19.837563622116996"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.41520149148024*^9}], Cell[BoxData["0.53157877436961973359442595825954808264`19.837563622116996"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201491513627*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201491546856*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.4152014915801907`*^9}], Cell[BoxData["\<\"Z\"\>"], "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201491613428*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201491646653*^9}], Cell[BoxData["0.42857142857142857142857142857142857143`20.778151250383644"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.4152014916991577`*^9}], Cell[BoxData["0.42857142857142857142857142857142857143`20.778151250383644"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201491727374*^9}], Cell[BoxData["0.42857142857142857142857142857142857143`20.778151250383644"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201491763711*^9}], Cell[BoxData["0.42857142857142857142857142857142857143`20.778151250383644"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.4152014917972517`*^9}], Cell[BoxData["0.33928571428571428571428571428571428571`20.324511091513507"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.4152014918297377`*^9}], Cell[BoxData["0.33928571428571428571428571428571428571`20.324511091513507"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201491863059*^9}], Cell[BoxData["0.33928571428571428571428571428571428571`20.324511091513507"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201491896141*^9}], Cell[BoxData["0.33928571428571428571428571428571428571`20.324511091513507"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201491929592*^9}], Cell[BoxData["0.08496732026143790849673202614379084967`19.311169627014863"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201491962577*^9}], Cell[BoxData["0.08496732026143790849673202614379084967`19.311169627014863"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201491996805*^9}], Cell[BoxData["0.08496732026143790849673202614379084967`19.311169627014863"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201492029332*^9}], Cell[BoxData["0.08496732026143790849673202614379084967`19.311169627014863"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.4152014920623703`*^9}], Cell[BoxData["0.76219701803768503594662494292651045122`20.46343949718014"], \ "Print", CellChangeTimes->{3.413655158805909*^9, 3.4136555378507767`*^9, 3.413813801402863*^9, 3.413819893036675*^9, 3.414673925121999*^9, 3.414746573702034*^9, 3.414746791304324*^9, 3.415201492096354*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"rule", " ", "=", " ", "18"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numer", " ", "=", " ", "True"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"wsum", " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "rule"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"3", "/", "8"}], " ", ")"}], " ", "*", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"1", " ", "-", " ", "z"}], ")"}], "^", "2"}], " ", "*", " ", "w"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "w", " ", "]"}], ";", "\[IndentingNewLine]", RowBox[{"wsum", " ", "=", " ", RowBox[{"wsum", " ", "+", "w"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "wsum"}], " ", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"x", " ", "=", " ", RowBox[{"a", " ", "*", " ", RowBox[{"(", " ", RowBox[{"1", " ", "-", " ", "z"}], " ", ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "x", " ", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"y", " ", "=", " ", RowBox[{"b", " ", "*", " ", RowBox[{"(", " ", RowBox[{"1", " ", "-", " ", "z"}], " ", ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "y", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "z", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "Input", CellChangeTimes->{{3.413654633924918*^9, 3.413654799625798*^9}, { 3.41365484902993*^9, 3.413654878240939*^9}, {3.413654957362526*^9, 3.413654963399206*^9}, {3.413655009030931*^9, 3.413655015807214*^9}, { 3.413655156999885*^9, 3.413655157810032*^9}, {3.413655432689314*^9, 3.4136554330442343`*^9}, {3.413655476213402*^9, 3.413655506434651*^9}, { 3.4138138065328007`*^9, 3.413813812229727*^9}, {3.414673931812873*^9, 3.414673932287344*^9}, 3.4147738077163153`*^9, {3.4147738484618273`*^9, 3.414773849030039*^9}, {3.415201497802809*^9, 3.4152015010483427`*^9}}], Cell[CellGroupData[{ Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.4152015022426863`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Pyramid rule number \"\>", "\[InvisibleSpace]", "18"}], SequenceForm["Pyramid rule number ", 18], Editable->False]], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201502325172*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201502378171*^9}], Cell[BoxData["\<\"W\"\>"], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201502408639*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201502441629*^9}], Cell[BoxData["0.02333006529625588670911027418772790526`19.92310009707811"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201502476022*^9}], Cell[BoxData["0.03732810447400941873457643870036464839`19.92310009707811"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201502508988*^9}], Cell[BoxData["0.02333006529625588670911027418772790526`19.92310009707811"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201502542301*^9}], Cell[BoxData["0.03732810447400941873457643870036464839`19.92310009707811"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201502575121*^9}], Cell[BoxData["0.05972496715841506997532230192058343744`19.923100097078116"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201502608356*^9}], Cell[BoxData["0.03732810447400941873457643870036464839`19.92310009707811"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201502641602*^9}], Cell[BoxData["0.02333006529625588670911027418772790526`19.92310009707811"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201502675013*^9}], Cell[BoxData["0.03732810447400941873457643870036464839`19.92310009707811"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.4152015027310743`*^9}], Cell[BoxData["0.02333006529625588670911027418772790526`19.92310009707811"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201502755012*^9}], Cell[BoxData["0.0538304285309046071180502196394324775`19.73039842905131"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201502778964*^9}], Cell[BoxData["0.086128685649447371388880351423091964`19.73039842905131"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201502810089*^9}], Cell[BoxData["0.0538304285309046071180502196394324775`19.73039842905131"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201502843006*^9}], Cell[BoxData["0.086128685649447371388880351423091964`19.73039842905131"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.4152015028767233`*^9}], Cell[BoxData["0.13780589703911579422220856227694714241`19.73039842905131"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201502909606*^9}], Cell[BoxData["0.086128685649447371388880351423091964`19.73039842905131"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.41520150294415*^9}], Cell[BoxData["0.0538304285309046071180502196394324775`19.73039842905131"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201502976695*^9}], Cell[BoxData["0.086128685649447371388880351423091964`19.73039842905131"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201503010466*^9}], Cell[BoxData["0.0538304285309046071180502196394324775`19.73039842905131"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.4152015030444317`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"sum(w) = \"\>", "\[InvisibleSpace]", "0.99999999999999999999999999999999856048`19.780203919166897"}], SequenceForm["sum(w) = ", 1.`19.780203919166897], Editable->False]], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201503078092*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.4152015031103287`*^9}], Cell[BoxData["\<\"X\"\>"], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201503144437*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.4152015031971416`*^9}], Cell[BoxData[ RowBox[{"-", "0.35309846330877704481074978165726052198`19.959850197981535"}]], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201503223886*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201503261232*^9}], Cell[BoxData["0.35309846330877704481074978165726052198`19.959850197981535"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.4152015032944307`*^9}], Cell[BoxData[ RowBox[{"-", "0.35309846330877704481074978165726052198`19.959850197981535"}]], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.41520150332771*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201503360985*^9}], Cell[BoxData["0.35309846330877704481074978165726052198`19.959850197981535"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.4152015033944187`*^9}], Cell[BoxData[ RowBox[{"-", "0.35309846330877704481074978165726052198`19.959850197981535"}]], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201503427836*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201503460639*^9}], Cell[BoxData["0.35309846330877704481074978165726052198`19.959850197981535"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201503494309*^9}], Cell[BoxData[ RowBox[{"-", "0.67969709567986745790372099161804604091`19.844606322115265"}]], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.4152015035282297`*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.41520150356185*^9}], Cell[BoxData["0.67969709567986745790372099161804604091`19.844606322115265"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201503595014*^9}], Cell[BoxData[ RowBox[{"-", "0.67969709567986745790372099161804604091`19.844606322115272"}]], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.4152015036281548`*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201503679659*^9}], Cell[BoxData["0.67969709567986745790372099161804604091`19.844606322115272"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.4152015037075367`*^9}], Cell[BoxData[ RowBox[{"-", "0.67969709567986745790372099161804604091`19.844606322115265"}]], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201503744936*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201503778398*^9}], Cell[BoxData["0.67969709567986745790372099161804604091`19.844606322115265"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201503812036*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.4152015038444567`*^9}], Cell[BoxData["\<\"Y\"\>"], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.4152015038775682`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201503911778*^9}], Cell[BoxData[ RowBox[{"-", "0.35309846330877704481074978165726052198`19.959850197981535"}]], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201503944936*^9}], Cell[BoxData[ RowBox[{"-", "0.35309846330877704481074978165726052198`19.959850197981535"}]], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.4152015039778643`*^9}], Cell[BoxData[ RowBox[{"-", "0.35309846330877704481074978165726052198`19.959850197981535"}]], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.4152015040111732`*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201504044606*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201504078751*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201504110682*^9}], Cell[BoxData["0.35309846330877704481074978165726052198`19.959850197981535"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201504162641*^9}], Cell[BoxData["0.35309846330877704481074978165726052198`19.959850197981535"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201504190156*^9}], Cell[BoxData["0.35309846330877704481074978165726052198`19.959850197981535"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201504227005*^9}], Cell[BoxData[ RowBox[{"-", "0.67969709567986745790372099161804604091`19.844606322115265"}]], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201504261064*^9}], Cell[BoxData[ RowBox[{"-", "0.67969709567986745790372099161804604091`19.844606322115265"}]], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.41520150429429*^9}], Cell[BoxData[ RowBox[{"-", "0.67969709567986745790372099161804604091`19.844606322115265"}]], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.4152015043277493`*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201504360804*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201504394104*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.41520150442803*^9}], Cell[BoxData["0.67969709567986745790372099161804604091`19.844606322115265"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.4152015044613256`*^9}], Cell[BoxData["0.67969709567986745790372099161804604091`19.844606322115265"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201504494705*^9}], Cell[BoxData["0.67969709567986745790372099161804604091`19.844606322115265"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.4152015045280657`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201504561208*^9}], Cell[BoxData["\<\"Z\"\>"], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201504594108*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201504646139*^9}], Cell[BoxData["0.54415184401122528879992623629551456892`21.09077125854498"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201504673571*^9}], Cell[BoxData["0.54415184401122528879992623629551456892`21.09077125854498"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201504710335*^9}], Cell[BoxData["0.54415184401122528879992623629551456892`21.09077125854498"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201504744382*^9}], Cell[BoxData["0.54415184401122528879992623629551456892`21.09077125854498"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.4152015047773857`*^9}], Cell[BoxData["0.54415184401122528879992623629551456892`21.09077125854498"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201504810225*^9}], Cell[BoxData["0.54415184401122528879992623629551456892`21.09077125854498"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201504844099*^9}], Cell[BoxData["0.54415184401122528879992623629551456892`21.09077125854498"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.41520150487751*^9}], Cell[BoxData["0.54415184401122528879992623629551456892`21.09077125854498"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.4152015049104567`*^9}], Cell[BoxData["0.54415184401122528879992623629551456892`21.09077125854498"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201504943687*^9}], Cell[BoxData["0.12251482265544137786674043037115209775`19.51128873278299"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.4152015049776573`*^9}], Cell[BoxData["0.12251482265544137786674043037115209775`19.51128873278299"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201505010454*^9}], Cell[BoxData["0.12251482265544137786674043037115209775`19.51128873278299"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201505044541*^9}], Cell[BoxData["0.12251482265544137786674043037115209775`19.51128873278299"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201505078307*^9}], Cell[BoxData["0.12251482265544137786674043037115209775`19.51128873278299"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201505129487*^9}], Cell[BoxData["0.12251482265544137786674043037115209775`19.51128873278299"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201505157322*^9}], Cell[BoxData["0.12251482265544137786674043037115209775`19.51128873278299"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201505194615*^9}], Cell[BoxData["0.12251482265544137786674043037115209775`19.51128873278299"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201505228109*^9}], Cell[BoxData["0.12251482265544137786674043037115209775`19.51128873278299"], \ "Print", CellChangeTimes->{ 3.4136554338313913`*^9, 3.413655507710927*^9, 3.413813813153119*^9, 3.414673932656825*^9, {3.414773825440731*^9, 3.414773851565384*^9}, 3.415201505261497*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"rule", " ", "=", " ", "27"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numer", " ", "=", " ", "True"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"wsum", " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "rule"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"3", "/", "8"}], " ", ")"}], " ", "*", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"1", " ", "-", " ", "z"}], ")"}], "^", "2"}], " ", "*", " ", "w"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "w", " ", "]"}], ";", "\[IndentingNewLine]", RowBox[{"wsum", " ", "=", " ", RowBox[{"wsum", " ", "+", "w"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "wsum"}], " ", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"x", " ", "=", " ", RowBox[{"a", " ", "*", " ", RowBox[{"(", " ", RowBox[{"1", " ", "-", " ", "z"}], " ", ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "x", " ", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"y", " ", "=", " ", RowBox[{"b", " ", "*", " ", RowBox[{"(", " ", RowBox[{"1", " ", "-", " ", "z"}], " ", ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "y", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Abs", "[", "rule", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "w"}], "}"}], " ", "=", " ", RowBox[{"PyraGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", " ", RowBox[{"c", " ", "+", " ", "1"}], " ", ")"}], " ", "/", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "z", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "Input", CellChangeTimes->{{3.413654633924918*^9, 3.413654799625798*^9}, { 3.41365484902993*^9, 3.413654878240939*^9}, {3.413654957362526*^9, 3.413654963399206*^9}, {3.413655009030931*^9, 3.413655015807214*^9}, { 3.413655156999885*^9, 3.413655157810032*^9}, {3.413655432689314*^9, 3.4136554330442343`*^9}, {3.413655476213402*^9, 3.413655506434651*^9}, { 3.4136573319536457`*^9, 3.41365733320397*^9}, {3.4138138180076323`*^9, 3.413813823888629*^9}, {3.414673942315737*^9, 3.414673942801434*^9}, { 3.414842104243662*^9, 3.414842121246578*^9}, {3.415201510501396*^9, 3.415201513408175*^9}}], Cell[CellGroupData[{ Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201514292902*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Pyramid rule number \"\>", "\[InvisibleSpace]", "27"}], SequenceForm["Pyramid rule number ", 27], Editable->False]], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201514351634*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.4152015144055147`*^9}], Cell[BoxData["\<\"W\"\>"], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201514439823*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201514473114*^9}], Cell[BoxData["0.03637415765390893826813537551233024385`19.716414242718166"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201514507052*^9}], Cell[BoxData["0.05819865224625430122901660081972839016`19.716414242718166"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201514539863*^9}], Cell[BoxData["0.03637415765390893826813537551233024385`19.716414242718166"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201514574005*^9}], Cell[BoxData["0.05819865224625430122901660081972839016`19.716414242718166"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201514605856*^9}], Cell[BoxData["0.09311784359400688196642656131156542426`19.716414242718166"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201514639887*^9}], Cell[BoxData["0.05819865224625430122901660081972839016`19.716414242718166"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201514672762*^9}], Cell[BoxData["0.03637415765390893826813537551233024385`19.716414242718166"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201514707036*^9}], Cell[BoxData["0.05819865224625430122901660081972839016`19.716414242718166"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.4152015147631598`*^9}], Cell[BoxData["0.03637415765390893826813537551233024385`19.716414242718166"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201514787278*^9}], Cell[BoxData["0.0338533030694134310193314861954257861`19.833097185911356"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201514811256*^9}], Cell[BoxData["0.05416528491106148963093037791268125777`19.83309718591135"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201514841054*^9}], Cell[BoxData["0.0338533030694134310193314861954257861`19.833097185911356"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201514874939*^9}], Cell[BoxData["0.05416528491106148963093037791268125777`19.83309718591135"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.4152015149074287`*^9}], Cell[BoxData["0.08666445585769838340948860466029001242`19.833097185911356"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201514941339*^9}], Cell[BoxData["0.05416528491106148963093037791268125777`19.83309718591135"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.4152015149748087`*^9}], Cell[BoxData["0.0338533030694134310193314861954257861`19.833097185911356"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.4152015150081177`*^9}], Cell[BoxData["0.05416528491106148963093037791268125777`19.83309718591135"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201515042142*^9}], Cell[BoxData["0.0338533030694134310193314861954257861`19.833097185911356"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201515075989*^9}], Cell[BoxData["0.00693303310383812453969363211940446387`19.621628284276"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201515107954*^9}], Cell[BoxData["0.01109285296614099926350981139104714219`19.621628284276007"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201515142192*^9}], Cell[BoxData["0.00693303310383812453969363211940446387`19.621628284276"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.4152015151753674`*^9}], Cell[BoxData["0.01109285296614099926350981139104714219`19.621628284276007"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.4152015152278347`*^9}], Cell[BoxData["0.01774856474582559882161569822567542751`19.621628284276007"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.4152015152546377`*^9}], Cell[BoxData["0.01109285296614099926350981139104714219`19.621628284276007"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.41520151528181*^9}], Cell[BoxData["0.00693303310383812453969363211940446387`19.621628284276"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201515309499*^9}], Cell[BoxData["0.01109285296614099926350981139104714219`19.621628284276007"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201515342917*^9}], Cell[BoxData["0.00693303310383812453969363211940446387`19.621628284276"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.41520151537607*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"sum(w) = \"\>", "\[InvisibleSpace]", "0.99999999999999999999999999999999999998`19.75331361806128"}], SequenceForm["sum(w) = ", 1.`19.75331361806128], Editable->False]], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.41520151541016*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.4152015154431458`*^9}], Cell[BoxData["\<\"X\"\>"], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201515476625*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201515509552*^9}], Cell[BoxData[ RowBox[{"-", "0.71805574131988893873307823958101315814`19.835460035944564"}]], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201515542569*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.4152015155757217`*^9}], Cell[BoxData["0.71805574131988893873307823958101315814`19.835460035944564"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201515609948*^9}], Cell[BoxData[ RowBox[{"-", "0.71805574131988893873307823958101315814`19.835460035944564"}]], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.4152015156435337`*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.41520151569482*^9}], Cell[BoxData["0.71805574131988893873307823958101315814`19.835460035944564"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201515722776*^9}], Cell[BoxData[ RowBox[{"-", "0.71805574131988893873307823958101315814`19.835460035944564"}]], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201515759355*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201515792584*^9}], Cell[BoxData["0.71805574131988893873307823958101315814`19.835460035944564"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201515825678*^9}], Cell[BoxData[ RowBox[{"-", "0.50580870785392503961340276902424567934`19.908579693266386"}]], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.41520151586024*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201515892419*^9}], Cell[BoxData["0.50580870785392503961340276902424567934`19.908579693266386"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201515925686*^9}], Cell[BoxData[ RowBox[{"-", "0.50580870785392503961340276902424567934`19.908579693266393"}]], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201515959715*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201515992961*^9}], Cell[BoxData["0.50580870785392503961340276902424567934`19.908579693266393"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.41520151602608*^9}], Cell[BoxData[ RowBox[{"-", "0.50580870785392503961340276902424567934`19.908579693266386"}]], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201516059474*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201516093547*^9}], Cell[BoxData["0.50580870785392503961340276902424567934`19.908579693266386"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201516125452*^9}], Cell[BoxData[ RowBox[{"-", "0.22850430565396735359574351631314101697`19.77084875826597"}]], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.4152015161780453`*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201516205964*^9}], Cell[BoxData["0.22850430565396735359574351631314101697`19.77084875826597"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201516242981*^9}], Cell[BoxData[ RowBox[{"-", "0.22850430565396735359574351631314101697`19.77084875826597"}]], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201516276394*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201516309801*^9}], Cell[BoxData["0.22850430565396735359574351631314101697`19.77084875826597"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.41520151634336*^9}], Cell[BoxData[ RowBox[{"-", "0.22850430565396735359574351631314101697`19.77084875826597"}]], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201516375843*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201516409547*^9}], Cell[BoxData["0.22850430565396735359574351631314101697`19.77084875826597"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201516442852*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201516475906*^9}], Cell[BoxData["\<\"Y\"\>"], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201516509438*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201516542712*^9}], Cell[BoxData[ RowBox[{"-", "0.71805574131988893873307823958101315814`19.835460035944564"}]], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.4152015165758057`*^9}], Cell[BoxData[ RowBox[{"-", "0.71805574131988893873307823958101315814`19.835460035944564"}]], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201516608878*^9}], Cell[BoxData[ RowBox[{"-", "0.71805574131988893873307823958101315814`19.835460035944564"}]], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.4152015166613083`*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201516689146*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201516725458*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.4152015167588253`*^9}], Cell[BoxData["0.71805574131988893873307823958101315814`19.835460035944564"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201516792143*^9}], Cell[BoxData["0.71805574131988893873307823958101315814`19.835460035944564"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.4152015168257723`*^9}], Cell[BoxData["0.71805574131988893873307823958101315814`19.835460035944564"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201516859235*^9}], Cell[BoxData[ RowBox[{"-", "0.50580870785392503961340276902424567934`19.908579693266386"}]], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.4152015168931093`*^9}], Cell[BoxData[ RowBox[{"-", "0.50580870785392503961340276902424567934`19.908579693266386"}]], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.4152015169253607`*^9}], Cell[BoxData[ RowBox[{"-", "0.50580870785392503961340276902424567934`19.908579693266386"}]], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201516959655*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.41520151699269*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201517025639*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201517058545*^9}], Cell[BoxData["0.50580870785392503961340276902424567934`19.908579693266386"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.4152015170934887`*^9}], Cell[BoxData["0.50580870785392503961340276902424567934`19.908579693266386"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.4152015171446*^9}], Cell[BoxData["0.50580870785392503961340276902424567934`19.908579693266386"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201517172532*^9}], Cell[BoxData[ RowBox[{"-", "0.22850430565396735359574351631314101697`19.77084875826596"}]], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.4152015172092743`*^9}], Cell[BoxData[ RowBox[{"-", "0.22850430565396735359574351631314101697`19.77084875826596"}]], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201517242695*^9}], Cell[BoxData[ RowBox[{"-", "0.22850430565396735359574351631314101697`19.77084875826596"}]], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201517276526*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201517308819*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.4152015173420362`*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201517375371*^9}], Cell[BoxData["0.22850430565396735359574351631314101697`19.77084875826596"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201517408433*^9}], Cell[BoxData["0.22850430565396735359574351631314101697`19.77084875826596"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201517442461*^9}], Cell[BoxData["0.22850430565396735359574351631314101697`19.77084875826596"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.4152015174754133`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201517509101*^9}], Cell[BoxData["\<\"Z\"\>"], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201517542522*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.4152015175756073`*^9}], Cell[BoxData["0.072994024073149732155837979012003292`19.23285335344858"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201517627914*^9}], Cell[BoxData["0.072994024073149732155837979012003292`19.23285335344858"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.4152015176556664`*^9}], Cell[BoxData["0.072994024073149732155837979012003292`19.23285335344858"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201517691931*^9}], Cell[BoxData["0.072994024073149732155837979012003292`19.23285335344858"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201517725238*^9}], Cell[BoxData["0.072994024073149732155837979012003292`19.23285335344858"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201517758823*^9}], Cell[BoxData["0.072994024073149732155837979012003292`19.23285335344858"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.4152015177925997`*^9}], Cell[BoxData["0.072994024073149732155837979012003292`19.23285335344858"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201517826068*^9}], Cell[BoxData["0.072994024073149732155837979012003292`19.23285335344858"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.4152015178597393`*^9}], Cell[BoxData["0.072994024073149732155837979012003292`19.23285335344858"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201517892003*^9}], Cell[BoxData["0.347003766038351884721763543403948455`20.35565344753442"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.41520151792529*^9}], Cell[BoxData["0.347003766038351884721763543403948455`20.35565344753442"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201517958569*^9}], Cell[BoxData["0.347003766038351884721763543403948455`20.35565344753442"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201517991769*^9}], Cell[BoxData["0.347003766038351884721763543403948455`20.35565344753442"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201518025309*^9}], Cell[BoxData["0.347003766038351884721763543403948455`20.35565344753442"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201518058631*^9}], Cell[BoxData["0.347003766038351884721763543403948455`20.35565344753442"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201518111143*^9}], Cell[BoxData["0.347003766038351884721763543403948455`20.35565344753442"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201518139018*^9}], Cell[BoxData["0.347003766038351884721763543403948455`20.35565344753442"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201518175425*^9}], Cell[BoxData["0.347003766038351884721763543403948455`20.35565344753442"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201518209066*^9}], Cell[BoxData["0.7050022098884983831223984775840482525`20.53643193562531"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201518242571*^9}], Cell[BoxData["0.7050022098884983831223984775840482525`20.53643193562531"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201518275725*^9}], Cell[BoxData["0.7050022098884983831223984775840482525`20.53643193562531"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201518308899*^9}], Cell[BoxData["0.7050022098884983831223984775840482525`20.53643193562531"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.41520151834229*^9}], Cell[BoxData["0.7050022098884983831223984775840482525`20.53643193562531"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201518375692*^9}], Cell[BoxData["0.7050022098884983831223984775840482525`20.53643193562531"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201518408865*^9}], Cell[BoxData["0.7050022098884983831223984775840482525`20.53643193562531"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201518442009*^9}], Cell[BoxData["0.7050022098884983831223984775840482525`20.53643193562531"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201518475183*^9}], Cell[BoxData["0.7050022098884983831223984775840482525`20.53643193562531"], \ "Print", CellChangeTimes->{3.413657333915588*^9, 3.4138138246219273`*^9, 3.4146739433399057`*^9, 3.414842141845455*^9, 3.415201518509076*^9}] }, Open ]] }, Open ]] }, WindowSize->{640, 750}, WindowMargins->{{Automatic, 506}, {80, Automatic}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, FrontEndVersion->"6.0 for Mac OS X PowerPC (32-bit) (June 19, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[568, 21, 32749, 852, 1633, "Input"], Cell[CellGroupData[{ Cell[33342, 877, 3588, 93, 493, "Input"], Cell[CellGroupData[{ Cell[36955, 974, 77, 1, 20, "Print"], Cell[37035, 977, 100, 1, 20, "Print"], Cell[37138, 980, 97, 1, 20, "Print"], Cell[37238, 983, 77, 1, 20, "Print"], Cell[37318, 986, 129, 2, 20, "Print"], Cell[37450, 990, 130, 2, 20, "Print"], Cell[37583, 994, 77, 1, 20, "Print"], Cell[37663, 997, 86, 1, 20, "Print"], Cell[37752, 1000, 77, 1, 20, "Print"], Cell[37832, 1003, 118, 1, 20, "Print"], Cell[37953, 1006, 135, 2, 20, "Print"], Cell[38091, 1010, 122, 1, 20, "Print"], Cell[38216, 1013, 77, 1, 20, "Print"], Cell[38296, 1016, 137, 2, 20, "Print"], Cell[38436, 1020, 142, 2, 20, "Print"], Cell[38581, 1024, 77, 1, 20, "Print"], Cell[38661, 1027, 139, 2, 20, "Print"], Cell[38803, 1031, 77, 1, 20, "Print"], Cell[38883, 1034, 85, 1, 20, "Print"], Cell[38971, 1037, 79, 1, 20, "Print"], Cell[39053, 1040, 132, 2, 20, "Print"], Cell[39188, 1044, 133, 2, 20, "Print"], Cell[39324, 1048, 123, 2, 20, "Print"], Cell[39450, 1052, 77, 1, 20, "Print"], Cell[39530, 1055, 134, 2, 20, "Print"], Cell[39667, 1059, 127, 2, 20, "Print"], Cell[39797, 1063, 77, 1, 20, "Print"], Cell[39877, 1066, 134, 2, 20, "Print"], Cell[40014, 1070, 134, 2, 20, "Print"], Cell[40151, 1074, 131, 2, 20, "Print"], Cell[40285, 1078, 90, 1, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[40424, 1085, 6719, 174, 673, "Input"], Cell[CellGroupData[{ Cell[47168, 1263, 194, 3, 20, "Print"], Cell[47365, 1268, 337, 7, 20, "Print"], Cell[47705, 1277, 194, 3, 20, "Print"], Cell[47902, 1282, 196, 3, 20, "Print"], Cell[48101, 1287, 194, 3, 20, "Print"], Cell[48298, 1292, 246, 4, 20, "Print"], Cell[48547, 1298, 395, 8, 20, "Print"], Cell[48945, 1308, 194, 3, 20, "Print"], Cell[49142, 1313, 194, 3, 20, "Print"], Cell[49339, 1318, 196, 3, 20, "Print"], Cell[49538, 1323, 186, 3, 20, "Print"], Cell[49727, 1328, 194, 3, 20, "Print"], Cell[49924, 1333, 194, 3, 20, "Print"], Cell[50121, 1338, 194, 3, 20, "Print"], Cell[50318, 1343, 188, 3, 20, "Print"], Cell[50509, 1348, 194, 3, 20, "Print"], Cell[50706, 1353, 194, 3, 20, "Print"], Cell[50903, 1358, 194, 3, 20, "Print"], Cell[51100, 1363, 193, 3, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[51342, 1372, 6671, 174, 673, "Input"], Cell[CellGroupData[{ Cell[58038, 1550, 276, 4, 20, "Print"], Cell[58317, 1556, 419, 8, 20, "Print"], Cell[58739, 1566, 276, 4, 20, "Print"], Cell[59018, 1572, 276, 4, 20, "Print"], Cell[59297, 1578, 276, 4, 20, "Print"], Cell[59576, 1584, 297, 4, 20, "Print"], Cell[59876, 1590, 297, 4, 20, "Print"], Cell[60176, 1596, 295, 4, 20, "Print"], Cell[60474, 1602, 294, 4, 20, "Print"], Cell[60771, 1608, 327, 5, 20, "Print"], Cell[61101, 1615, 479, 9, 20, "Print"], Cell[61583, 1626, 276, 4, 20, "Print"], Cell[61862, 1632, 276, 4, 20, "Print"], Cell[62141, 1638, 278, 4, 20, "Print"], Cell[62422, 1644, 344, 6, 20, "Print"], Cell[62769, 1652, 327, 5, 20, "Print"], Cell[63099, 1659, 327, 5, 20, "Print"], Cell[63429, 1666, 345, 6, 20, "Print"], Cell[63777, 1674, 270, 4, 20, "Print"], Cell[64050, 1680, 276, 4, 20, "Print"], Cell[64329, 1686, 276, 4, 20, "Print"], Cell[64608, 1692, 276, 4, 20, "Print"], Cell[64887, 1698, 345, 6, 20, "Print"], Cell[65235, 1706, 345, 6, 20, "Print"], Cell[65583, 1714, 327, 5, 20, "Print"], Cell[65913, 1721, 329, 5, 20, "Print"], Cell[66245, 1728, 267, 4, 20, "Print"], Cell[66515, 1734, 278, 4, 20, "Print"], Cell[66796, 1740, 276, 4, 20, "Print"], Cell[67075, 1746, 278, 4, 20, "Print"], Cell[67356, 1752, 328, 5, 20, "Print"], Cell[67687, 1759, 328, 5, 20, "Print"], Cell[68018, 1766, 328, 5, 20, "Print"], Cell[68349, 1773, 328, 5, 20, "Print"], Cell[68680, 1780, 288, 4, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[69017, 1790, 6632, 172, 643, "Input"], Cell[CellGroupData[{ Cell[75674, 1966, 194, 3, 20, "Print"], Cell[75871, 1971, 335, 7, 20, "Print"], Cell[76209, 1980, 194, 3, 20, "Print"], Cell[76406, 1985, 196, 3, 20, "Print"], Cell[76605, 1990, 196, 3, 20, "Print"], Cell[76804, 1995, 210, 3, 20, "Print"], Cell[77017, 2000, 208, 3, 20, "Print"], Cell[77228, 2005, 208, 3, 20, "Print"], Cell[77439, 2010, 210, 3, 20, "Print"], Cell[77652, 2015, 209, 3, 20, "Print"], Cell[77864, 2020, 245, 4, 20, "Print"], Cell[78112, 2026, 395, 8, 20, "Print"], Cell[78510, 2036, 194, 3, 20, "Print"], Cell[78707, 2041, 194, 3, 20, "Print"], Cell[78904, 2046, 193, 3, 20, "Print"], Cell[79100, 2051, 262, 5, 20, "Print"], Cell[79365, 2058, 244, 4, 20, "Print"], Cell[79612, 2064, 244, 4, 20, "Print"], Cell[79859, 2070, 264, 5, 20, "Print"], Cell[80126, 2077, 186, 3, 20, "Print"], Cell[80315, 2082, 186, 3, 20, "Print"], Cell[80504, 2087, 192, 3, 20, "Print"], Cell[80699, 2092, 194, 3, 20, "Print"], Cell[80896, 2097, 194, 3, 20, "Print"], Cell[81093, 2102, 264, 5, 20, "Print"], Cell[81360, 2109, 261, 5, 20, "Print"], Cell[81624, 2116, 244, 4, 20, "Print"], Cell[81871, 2122, 244, 4, 20, "Print"], Cell[82118, 2128, 186, 3, 20, "Print"], Cell[82307, 2133, 186, 3, 20, "Print"], Cell[82496, 2138, 194, 3, 20, "Print"], Cell[82693, 2143, 196, 3, 20, "Print"], Cell[82892, 2148, 194, 3, 20, "Print"], Cell[83089, 2153, 246, 4, 20, "Print"], Cell[83338, 2159, 246, 4, 20, "Print"], Cell[83587, 2165, 246, 4, 20, "Print"], Cell[83836, 2171, 246, 4, 20, "Print"], Cell[84085, 2177, 244, 4, 20, "Print"], Cell[84332, 2183, 210, 3, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[84591, 2192, 6628, 172, 643, "Input"], Cell[CellGroupData[{ Cell[91244, 2368, 196, 3, 20, "Print"], Cell[91443, 2373, 339, 7, 20, "Print"], Cell[91785, 2382, 196, 3, 20, "Print"], Cell[91984, 2387, 196, 3, 20, "Print"], Cell[92183, 2392, 196, 3, 20, "Print"], Cell[92382, 2397, 247, 4, 20, "Print"], Cell[92632, 2403, 249, 4, 20, "Print"], Cell[92884, 2409, 249, 4, 20, "Print"], Cell[93136, 2415, 247, 4, 20, "Print"], Cell[93386, 2421, 247, 4, 20, "Print"], Cell[93636, 2427, 247, 4, 20, "Print"], Cell[93886, 2433, 247, 4, 20, "Print"], Cell[94136, 2439, 249, 4, 20, "Print"], Cell[94388, 2445, 397, 8, 20, "Print"], Cell[94788, 2455, 196, 3, 20, "Print"], Cell[94987, 2460, 196, 3, 20, "Print"], Cell[95186, 2465, 194, 3, 20, "Print"], Cell[95383, 2470, 268, 5, 20, "Print"], Cell[95654, 2477, 250, 4, 20, "Print"], Cell[95907, 2483, 248, 4, 20, "Print"], Cell[96158, 2489, 268, 5, 20, "Print"], Cell[96429, 2496, 266, 5, 20, "Print"], Cell[96698, 2503, 250, 4, 20, "Print"], Cell[96951, 2509, 248, 4, 20, "Print"], Cell[97202, 2515, 268, 5, 20, "Print"], Cell[97473, 2522, 196, 3, 20, "Print"], Cell[97672, 2527, 196, 3, 20, "Print"], Cell[97871, 2532, 196, 3, 20, "Print"], Cell[98070, 2537, 266, 5, 20, "Print"], Cell[98339, 2544, 268, 5, 20, "Print"], Cell[98610, 2551, 248, 4, 20, "Print"], Cell[98861, 2557, 250, 4, 20, "Print"], Cell[99114, 2563, 268, 5, 20, "Print"], Cell[99385, 2570, 266, 5, 20, "Print"], Cell[99654, 2577, 248, 4, 20, "Print"], Cell[99905, 2583, 250, 4, 20, "Print"], Cell[100158, 2589, 196, 3, 20, "Print"], Cell[100357, 2594, 196, 3, 20, "Print"], Cell[100556, 2599, 196, 3, 20, "Print"], Cell[100755, 2604, 247, 4, 20, "Print"], Cell[101005, 2610, 245, 4, 20, "Print"], Cell[101253, 2616, 249, 4, 20, "Print"], Cell[101505, 2622, 249, 4, 20, "Print"], Cell[101757, 2628, 247, 4, 20, "Print"], Cell[102007, 2634, 247, 4, 20, "Print"], Cell[102257, 2640, 247, 4, 20, "Print"], Cell[102507, 2646, 249, 4, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[102805, 2656, 6601, 173, 643, "Input"], Cell[CellGroupData[{ Cell[109431, 2833, 198, 3, 20, "Print"], Cell[109632, 2838, 359, 8, 20, "Print"], Cell[109994, 2848, 198, 3, 20, "Print"], Cell[110195, 2853, 198, 3, 20, "Print"], Cell[110396, 2858, 198, 3, 20, "Print"], Cell[110597, 2863, 250, 4, 20, "Print"], Cell[110850, 2869, 250, 4, 20, "Print"], Cell[111103, 2875, 252, 4, 20, "Print"], Cell[111358, 2881, 250, 4, 20, "Print"], Cell[111611, 2887, 250, 4, 20, "Print"], Cell[111864, 2893, 250, 4, 20, "Print"], Cell[112117, 2899, 250, 4, 20, "Print"], Cell[112370, 2905, 250, 4, 20, "Print"], Cell[112623, 2911, 397, 8, 20, "Print"], Cell[113023, 2921, 198, 3, 20, "Print"], Cell[113224, 2926, 198, 3, 20, "Print"], Cell[113425, 2931, 198, 3, 20, "Print"], Cell[113626, 2936, 268, 5, 20, "Print"], Cell[113897, 2943, 249, 4, 20, "Print"], Cell[114149, 2949, 250, 4, 20, "Print"], Cell[114402, 2955, 268, 5, 20, "Print"], Cell[114673, 2962, 268, 5, 20, "Print"], Cell[114944, 2969, 250, 4, 20, "Print"], Cell[115197, 2975, 250, 4, 20, "Print"], Cell[115450, 2981, 268, 5, 20, "Print"], Cell[115721, 2988, 198, 3, 20, "Print"], Cell[115922, 2993, 198, 3, 20, "Print"], Cell[116123, 2998, 198, 3, 20, "Print"], Cell[116324, 3003, 268, 5, 20, "Print"], Cell[116595, 3010, 267, 5, 20, "Print"], Cell[116865, 3017, 252, 4, 20, "Print"], Cell[117120, 3023, 250, 4, 20, "Print"], Cell[117373, 3029, 268, 5, 20, "Print"], Cell[117644, 3036, 267, 5, 20, "Print"], Cell[117914, 3043, 250, 4, 20, "Print"], Cell[118167, 3049, 252, 4, 20, "Print"], Cell[118422, 3055, 198, 3, 20, "Print"], Cell[118623, 3060, 200, 3, 20, "Print"], Cell[118826, 3065, 198, 3, 20, "Print"], Cell[119027, 3070, 250, 4, 20, "Print"], Cell[119280, 3076, 250, 4, 20, "Print"], Cell[119533, 3082, 250, 4, 20, "Print"], Cell[119786, 3088, 250, 4, 20, "Print"], Cell[120039, 3094, 250, 4, 20, "Print"], Cell[120292, 3100, 250, 4, 20, "Print"], Cell[120545, 3106, 252, 4, 20, "Print"], Cell[120800, 3112, 250, 4, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[121099, 3122, 6577, 172, 643, "Input"], Cell[CellGroupData[{ Cell[127701, 3298, 195, 3, 20, "Print"], Cell[127899, 3303, 333, 7, 20, "Print"], Cell[128235, 3312, 193, 3, 20, "Print"], Cell[128431, 3317, 193, 3, 20, "Print"], Cell[128627, 3322, 192, 3, 20, "Print"], Cell[128822, 3327, 243, 4, 20, "Print"], Cell[129068, 3333, 243, 4, 20, "Print"], Cell[129314, 3339, 243, 4, 20, "Print"], Cell[129560, 3345, 243, 4, 20, "Print"], Cell[129806, 3351, 245, 4, 20, "Print"], Cell[130054, 3357, 245, 4, 20, "Print"], Cell[130302, 3363, 247, 4, 20, "Print"], Cell[130552, 3369, 244, 4, 20, "Print"], Cell[130799, 3375, 209, 3, 20, "Print"], Cell[131011, 3380, 394, 8, 20, "Print"], Cell[131408, 3390, 195, 3, 20, "Print"], Cell[131606, 3395, 193, 3, 20, "Print"], Cell[131802, 3400, 191, 3, 20, "Print"], Cell[131996, 3405, 263, 5, 20, "Print"], Cell[132262, 3412, 243, 4, 20, "Print"], Cell[132508, 3418, 243, 4, 20, "Print"], Cell[132754, 3424, 261, 5, 20, "Print"], Cell[133018, 3431, 263, 5, 20, "Print"], Cell[133284, 3438, 245, 4, 20, "Print"], Cell[133532, 3444, 244, 4, 20, "Print"], Cell[133779, 3450, 263, 5, 20, "Print"], Cell[134045, 3457, 187, 3, 20, "Print"], Cell[134235, 3462, 193, 3, 20, "Print"], Cell[134431, 3467, 195, 3, 20, "Print"], Cell[134629, 3472, 193, 3, 20, "Print"], Cell[134825, 3477, 261, 5, 20, "Print"], Cell[135089, 3484, 261, 5, 20, "Print"], Cell[135353, 3491, 243, 4, 20, "Print"], Cell[135599, 3497, 245, 4, 20, "Print"], Cell[135847, 3503, 263, 5, 20, "Print"], Cell[136113, 3510, 263, 5, 20, "Print"], Cell[136379, 3517, 245, 4, 20, "Print"], Cell[136627, 3523, 245, 4, 20, "Print"], Cell[136875, 3529, 185, 3, 20, "Print"], Cell[137063, 3534, 195, 3, 20, "Print"], Cell[137261, 3539, 193, 3, 20, "Print"], Cell[137457, 3544, 195, 3, 20, "Print"], Cell[137655, 3549, 247, 4, 20, "Print"], Cell[137905, 3555, 247, 4, 20, "Print"], Cell[138155, 3561, 247, 4, 20, "Print"], Cell[138405, 3567, 245, 4, 20, "Print"], Cell[138653, 3573, 246, 4, 20, "Print"], Cell[138902, 3579, 243, 4, 20, "Print"], Cell[139148, 3585, 244, 4, 20, "Print"], Cell[139395, 3591, 244, 4, 20, "Print"], Cell[139642, 3597, 244, 4, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[139935, 3607, 6779, 174, 643, "Input"], Cell[CellGroupData[{ Cell[146739, 3785, 239, 3, 20, "Print"], Cell[146981, 3790, 381, 7, 20, "Print"], Cell[147365, 3799, 238, 3, 20, "Print"], Cell[147606, 3804, 241, 3, 20, "Print"], Cell[147850, 3809, 239, 3, 20, "Print"], Cell[148092, 3814, 291, 4, 20, "Print"], Cell[148386, 3820, 291, 4, 20, "Print"], Cell[148680, 3826, 290, 4, 20, "Print"], Cell[148973, 3832, 291, 4, 20, "Print"], Cell[149267, 3838, 291, 4, 20, "Print"], Cell[149561, 3844, 293, 4, 20, "Print"], Cell[149857, 3850, 291, 4, 20, "Print"], Cell[150151, 3856, 293, 4, 20, "Print"], Cell[150447, 3862, 291, 4, 20, "Print"], Cell[150741, 3868, 291, 4, 20, "Print"], Cell[151035, 3874, 291, 4, 20, "Print"], Cell[151329, 3880, 291, 4, 20, "Print"], Cell[151623, 3886, 291, 4, 20, "Print"], Cell[151917, 3892, 396, 7, 20, "Print"], Cell[152316, 3901, 241, 3, 20, "Print"], Cell[152560, 3906, 241, 3, 20, "Print"], Cell[152804, 3911, 241, 3, 20, "Print"], Cell[153048, 3916, 311, 5, 20, "Print"], Cell[153362, 3923, 293, 4, 20, "Print"], Cell[153658, 3929, 291, 4, 20, "Print"], Cell[153952, 3935, 309, 5, 20, "Print"], Cell[154264, 3942, 311, 5, 20, "Print"], Cell[154578, 3949, 291, 4, 20, "Print"], Cell[154872, 3955, 231, 3, 20, "Print"], Cell[155106, 3960, 231, 3, 20, "Print"], Cell[155340, 3965, 309, 5, 20, "Print"], Cell[155652, 3972, 291, 4, 20, "Print"], Cell[155946, 3978, 291, 4, 20, "Print"], Cell[156240, 3984, 308, 5, 20, "Print"], Cell[156551, 3991, 231, 3, 20, "Print"], Cell[156785, 3996, 239, 3, 20, "Print"], Cell[157027, 4001, 239, 3, 20, "Print"], Cell[157269, 4006, 239, 3, 20, "Print"], Cell[157511, 4011, 310, 5, 20, "Print"], Cell[157824, 4018, 308, 5, 20, "Print"], Cell[158135, 4025, 292, 4, 20, "Print"], Cell[158430, 4031, 292, 4, 20, "Print"], Cell[158725, 4037, 233, 3, 20, "Print"], Cell[158961, 4042, 233, 3, 20, "Print"], Cell[159197, 4047, 311, 5, 20, "Print"], Cell[159511, 4054, 291, 4, 20, "Print"], Cell[159805, 4060, 309, 5, 20, "Print"], Cell[160117, 4067, 309, 5, 20, "Print"], Cell[160429, 4074, 290, 4, 20, "Print"], Cell[160722, 4080, 291, 4, 20, "Print"], Cell[161016, 4086, 231, 3, 20, "Print"], Cell[161250, 4091, 241, 3, 20, "Print"], Cell[161494, 4096, 239, 3, 20, "Print"], Cell[161736, 4101, 239, 3, 20, "Print"], Cell[161978, 4106, 293, 4, 20, "Print"], Cell[162274, 4112, 291, 4, 20, "Print"], Cell[162568, 4118, 291, 4, 20, "Print"], Cell[162862, 4124, 293, 4, 20, "Print"], Cell[163158, 4130, 293, 4, 20, "Print"], Cell[163454, 4136, 291, 4, 20, "Print"], Cell[163748, 4142, 291, 4, 20, "Print"], Cell[164042, 4148, 291, 4, 20, "Print"], Cell[164336, 4154, 291, 4, 20, "Print"], Cell[164630, 4160, 291, 4, 20, "Print"], Cell[164924, 4166, 291, 4, 20, "Print"], Cell[165218, 4172, 293, 4, 20, "Print"], Cell[165514, 4178, 290, 4, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[165853, 4188, 6711, 173, 643, "Input"], Cell[CellGroupData[{ Cell[172589, 4365, 226, 4, 20, "Print"], Cell[172818, 4371, 367, 8, 20, "Print"], Cell[173188, 4381, 224, 4, 20, "Print"], Cell[173415, 4387, 224, 4, 20, "Print"], Cell[173642, 4393, 224, 4, 20, "Print"], Cell[173869, 4399, 275, 5, 20, "Print"], Cell[174147, 4406, 275, 5, 20, "Print"], Cell[174425, 4413, 275, 5, 20, "Print"], Cell[174703, 4420, 275, 5, 20, "Print"], Cell[174981, 4427, 276, 5, 20, "Print"], Cell[175260, 4434, 275, 5, 20, "Print"], Cell[175538, 4441, 275, 5, 20, "Print"], Cell[175816, 4448, 277, 5, 20, "Print"], Cell[176096, 4455, 275, 5, 20, "Print"], Cell[176374, 4462, 274, 5, 20, "Print"], Cell[176651, 4469, 273, 5, 20, "Print"], Cell[176927, 4476, 274, 5, 20, "Print"], Cell[177204, 4483, 275, 5, 20, "Print"], Cell[177482, 4490, 275, 5, 20, "Print"], Cell[177760, 4497, 272, 5, 20, "Print"], Cell[178035, 4504, 274, 5, 20, "Print"], Cell[178312, 4511, 273, 5, 20, "Print"], Cell[178588, 4518, 276, 5, 20, "Print"], Cell[178867, 4525, 425, 9, 20, "Print"], Cell[179295, 4536, 226, 4, 20, "Print"], Cell[179524, 4542, 224, 4, 20, "Print"], Cell[179751, 4548, 226, 4, 20, "Print"], Cell[179980, 4554, 294, 6, 20, "Print"], Cell[180277, 4562, 216, 4, 20, "Print"], Cell[180496, 4568, 278, 5, 20, "Print"], Cell[180777, 4575, 293, 6, 20, "Print"], Cell[181073, 4583, 216, 4, 20, "Print"], Cell[181292, 4589, 278, 5, 20, "Print"], Cell[181573, 4596, 294, 6, 20, "Print"], Cell[181870, 4604, 216, 4, 20, "Print"], Cell[182089, 4610, 276, 5, 20, "Print"], Cell[182368, 4617, 296, 6, 20, "Print"], Cell[182667, 4625, 215, 4, 20, "Print"], Cell[182885, 4631, 276, 5, 20, "Print"], Cell[183164, 4638, 296, 6, 20, "Print"], Cell[183463, 4646, 216, 4, 20, "Print"], Cell[183682, 4652, 278, 5, 20, "Print"], Cell[183963, 4659, 294, 6, 20, "Print"], Cell[184260, 4667, 216, 4, 20, "Print"], Cell[184479, 4673, 276, 5, 20, "Print"], Cell[184758, 4680, 226, 4, 20, "Print"], Cell[184987, 4686, 226, 4, 20, "Print"], Cell[185216, 4692, 224, 4, 20, "Print"], Cell[185443, 4698, 294, 6, 20, "Print"], Cell[185740, 4706, 296, 6, 20, "Print"], Cell[186039, 4714, 296, 6, 20, "Print"], Cell[186338, 4722, 216, 4, 20, "Print"], Cell[186557, 4728, 216, 4, 20, "Print"], Cell[186776, 4734, 216, 4, 20, "Print"], Cell[186995, 4740, 276, 5, 20, "Print"], Cell[187274, 4747, 276, 5, 20, "Print"], Cell[187553, 4754, 276, 5, 20, "Print"], Cell[187832, 4761, 294, 6, 20, "Print"], Cell[188129, 4769, 293, 6, 20, "Print"], Cell[188425, 4777, 296, 6, 20, "Print"], Cell[188724, 4785, 216, 4, 20, "Print"], Cell[188943, 4791, 216, 4, 20, "Print"], Cell[189162, 4797, 215, 4, 20, "Print"], Cell[189380, 4803, 278, 5, 20, "Print"], Cell[189661, 4810, 276, 5, 20, "Print"], Cell[189940, 4817, 278, 5, 20, "Print"], Cell[190221, 4824, 224, 4, 20, "Print"], Cell[190448, 4830, 224, 4, 20, "Print"], Cell[190675, 4836, 224, 4, 20, "Print"], Cell[190902, 4842, 275, 5, 20, "Print"], Cell[191180, 4849, 275, 5, 20, "Print"], Cell[191458, 4856, 275, 5, 20, "Print"], Cell[191736, 4863, 277, 5, 20, "Print"], Cell[192016, 4870, 275, 5, 20, "Print"], Cell[192294, 4877, 275, 5, 20, "Print"], Cell[192572, 4884, 274, 5, 20, "Print"], Cell[192849, 4891, 277, 5, 20, "Print"], Cell[193129, 4898, 275, 5, 20, "Print"], Cell[193407, 4905, 277, 5, 20, "Print"], Cell[193687, 4912, 275, 5, 20, "Print"], Cell[193965, 4919, 275, 5, 20, "Print"], Cell[194243, 4926, 275, 5, 20, "Print"], Cell[194521, 4933, 275, 5, 20, "Print"], Cell[194799, 4940, 275, 5, 20, "Print"], Cell[195077, 4947, 275, 5, 20, "Print"], Cell[195355, 4954, 275, 5, 20, "Print"], Cell[195633, 4961, 275, 5, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[195957, 4972, 6726, 174, 643, "Input"], Cell[CellGroupData[{ Cell[202708, 5150, 172, 2, 20, "Print"], Cell[202883, 5154, 315, 6, 20, "Print"], Cell[203201, 5162, 174, 2, 20, "Print"], Cell[203378, 5166, 172, 2, 20, "Print"], Cell[203553, 5170, 172, 2, 20, "Print"], Cell[203728, 5174, 224, 3, 20, "Print"], Cell[203955, 5179, 224, 3, 20, "Print"], Cell[204182, 5184, 224, 3, 20, "Print"], Cell[204409, 5189, 224, 3, 20, "Print"], Cell[204636, 5194, 224, 3, 20, "Print"], Cell[204863, 5199, 224, 3, 20, "Print"], Cell[205090, 5204, 224, 3, 20, "Print"], Cell[205317, 5209, 226, 3, 20, "Print"], Cell[205546, 5214, 224, 3, 20, "Print"], Cell[205773, 5219, 223, 3, 20, "Print"], Cell[205999, 5224, 223, 3, 20, "Print"], Cell[206225, 5229, 223, 3, 20, "Print"], Cell[206451, 5234, 225, 3, 20, "Print"], Cell[206679, 5239, 224, 3, 20, "Print"], Cell[206906, 5244, 225, 3, 20, "Print"], Cell[207134, 5249, 225, 3, 20, "Print"], Cell[207362, 5254, 223, 3, 20, "Print"], Cell[207588, 5259, 223, 3, 20, "Print"], Cell[207814, 5264, 221, 3, 20, "Print"], Cell[208038, 5269, 224, 3, 20, "Print"], Cell[208265, 5274, 223, 3, 20, "Print"], Cell[208491, 5279, 226, 3, 20, "Print"], Cell[208720, 5284, 226, 3, 20, "Print"], Cell[208949, 5289, 223, 3, 20, "Print"], Cell[209175, 5294, 221, 3, 20, "Print"], Cell[209399, 5299, 224, 3, 20, "Print"], Cell[209626, 5304, 220, 3, 20, "Print"], Cell[209849, 5309, 370, 7, 20, "Print"], Cell[210222, 5318, 174, 2, 20, "Print"], Cell[210399, 5322, 172, 2, 20, "Print"], Cell[210574, 5326, 172, 2, 20, "Print"], Cell[210749, 5330, 242, 4, 20, "Print"], Cell[210994, 5336, 166, 2, 20, "Print"], Cell[211163, 5340, 224, 3, 20, "Print"], Cell[211390, 5345, 244, 4, 20, "Print"], Cell[211637, 5351, 163, 2, 20, "Print"], Cell[211803, 5355, 224, 3, 20, "Print"], Cell[212030, 5360, 242, 4, 20, "Print"], Cell[212275, 5366, 164, 2, 20, "Print"], Cell[212442, 5370, 224, 3, 20, "Print"], Cell[212669, 5375, 241, 4, 20, "Print"], Cell[212913, 5381, 164, 2, 20, "Print"], Cell[213080, 5385, 224, 3, 20, "Print"], Cell[213307, 5390, 242, 4, 20, "Print"], Cell[213552, 5396, 164, 2, 20, "Print"], Cell[213719, 5400, 223, 3, 20, "Print"], Cell[213945, 5405, 242, 4, 20, "Print"], Cell[214190, 5411, 164, 2, 20, "Print"], Cell[214357, 5415, 224, 3, 20, "Print"], Cell[214584, 5420, 243, 4, 20, "Print"], Cell[214830, 5426, 164, 2, 20, "Print"], Cell[214997, 5430, 223, 3, 20, "Print"], Cell[215223, 5435, 241, 4, 20, "Print"], Cell[215467, 5441, 164, 2, 20, "Print"], Cell[215634, 5445, 222, 3, 20, "Print"], Cell[215859, 5450, 241, 4, 20, "Print"], Cell[216103, 5456, 164, 2, 20, "Print"], Cell[216270, 5460, 223, 3, 20, "Print"], Cell[216496, 5465, 172, 2, 20, "Print"], Cell[216671, 5469, 172, 2, 20, "Print"], Cell[216846, 5473, 172, 2, 20, "Print"], Cell[217021, 5477, 244, 4, 20, "Print"], Cell[217268, 5483, 242, 4, 20, "Print"], Cell[217513, 5489, 244, 4, 20, "Print"], Cell[217760, 5495, 164, 2, 20, "Print"], Cell[217927, 5499, 164, 2, 20, "Print"], Cell[218094, 5503, 166, 2, 20, "Print"], Cell[218263, 5507, 224, 3, 20, "Print"], Cell[218490, 5512, 226, 3, 20, "Print"], Cell[218719, 5517, 224, 3, 20, "Print"], Cell[218946, 5522, 244, 4, 20, "Print"], Cell[219193, 5528, 244, 4, 20, "Print"], Cell[219440, 5534, 242, 4, 20, "Print"], Cell[219685, 5540, 163, 2, 20, "Print"], Cell[219851, 5544, 164, 2, 20, "Print"], Cell[220018, 5548, 164, 2, 20, "Print"], Cell[220185, 5552, 226, 3, 20, "Print"], Cell[220414, 5557, 222, 3, 20, "Print"], Cell[220639, 5562, 224, 3, 20, "Print"], Cell[220866, 5567, 243, 4, 20, "Print"], Cell[221112, 5573, 241, 4, 20, "Print"], Cell[221356, 5579, 241, 4, 20, "Print"], Cell[221600, 5585, 164, 2, 20, "Print"], Cell[221767, 5589, 166, 2, 20, "Print"], Cell[221936, 5593, 164, 2, 20, "Print"], Cell[222103, 5597, 223, 3, 20, "Print"], Cell[222329, 5602, 223, 3, 20, "Print"], Cell[222555, 5607, 225, 3, 20, "Print"], Cell[222783, 5612, 172, 2, 20, "Print"], Cell[222958, 5616, 172, 2, 20, "Print"], Cell[223133, 5620, 174, 2, 20, "Print"], Cell[223310, 5624, 221, 3, 20, "Print"], Cell[223534, 5629, 223, 3, 20, "Print"], Cell[223760, 5634, 221, 3, 20, "Print"], Cell[223984, 5639, 221, 3, 20, "Print"], Cell[224208, 5644, 221, 3, 20, "Print"], Cell[224432, 5649, 223, 3, 20, "Print"], Cell[224658, 5654, 221, 3, 20, "Print"], Cell[224882, 5659, 223, 3, 20, "Print"], Cell[225108, 5664, 221, 3, 20, "Print"], Cell[225332, 5669, 220, 3, 20, "Print"], Cell[225555, 5674, 221, 3, 20, "Print"], Cell[225779, 5679, 221, 3, 20, "Print"], Cell[226003, 5684, 221, 3, 20, "Print"], Cell[226227, 5689, 221, 3, 20, "Print"], Cell[226451, 5694, 221, 3, 20, "Print"], Cell[226675, 5699, 221, 3, 20, "Print"], Cell[226899, 5704, 221, 3, 20, "Print"], Cell[227123, 5709, 221, 3, 20, "Print"], Cell[227347, 5714, 222, 3, 20, "Print"], Cell[227572, 5719, 222, 3, 20, "Print"], Cell[227797, 5724, 222, 3, 20, "Print"], Cell[228022, 5729, 221, 3, 20, "Print"], Cell[228246, 5734, 222, 3, 20, "Print"], Cell[228471, 5739, 222, 3, 20, "Print"], Cell[228696, 5744, 222, 3, 20, "Print"], Cell[228921, 5749, 222, 3, 20, "Print"], Cell[229146, 5754, 222, 3, 20, "Print"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)