(* 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[ 40899, 1029] NotebookOptionsPosition[ 36508, 905] NotebookOutlinePosition[ 36849, 920] CellTagsIndexPosition[ 36806, 917] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"LineGaussRuleInfo", "[", " ", RowBox[{ RowBox[{"{", RowBox[{"rule_", ",", " ", "numer_"}], " ", "}"}], ",", " ", "point_"}], " ", "]"}], " ", ":=", " ", RowBox[{"Module", " ", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"g2", " ", "=", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], "/", RowBox[{"Sqrt", "[", "3", "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"w3", "=", RowBox[{"{", RowBox[{ RowBox[{"5", "/", "9"}], ",", RowBox[{"8", "/", "9"}], ",", RowBox[{"5", "/", "9"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"g3", "=", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sqrt", "[", RowBox[{"3", "/", "5"}], "]"}]}], ",", "0", ",", RowBox[{"Sqrt", "[", RowBox[{"3", "/", "5"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"w4", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], "-", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"5", "/", "6"}], "]"}], "/", "6"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], "+", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"5", "/", "6"}], "]"}], "/", "6"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], "+", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"5", "/", "6"}], "]"}], "/", "6"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], "-", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"5", "/", "6"}], "]"}], "/", "6"}]}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"g4", "=", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{"3", "+", RowBox[{"2", "*", RowBox[{"Sqrt", "[", RowBox[{"6", "/", "5"}], "]"}]}]}], ")"}], "/", "7"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"-", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", "*", RowBox[{"Sqrt", "[", RowBox[{"6", "/", "5"}], "]"}]}]}], ")"}], "/", "7"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", "*", RowBox[{"Sqrt", "[", RowBox[{"6", "/", "5"}], "]"}]}]}], ")"}], "/", "7"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{"3", "+", RowBox[{"2", "*", RowBox[{"Sqrt", "[", RowBox[{"6", "/", "5"}], "]"}]}]}], ")"}], "/", "7"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"g5", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sqrt", "[", RowBox[{"5", "+", RowBox[{"2", "*", RowBox[{"Sqrt", "[", RowBox[{"10", "/", "7"}], "]"}]}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"-", RowBox[{"Sqrt", "[", RowBox[{"5", "-", RowBox[{"2", "*", RowBox[{"Sqrt", "[", RowBox[{"10", "/", "7"}], "]"}]}]}], "]"}]}], ",", "\[IndentingNewLine]", "0", ",", "\[IndentingNewLine]", RowBox[{"Sqrt", "[", RowBox[{"5", "-", RowBox[{"2", "*", RowBox[{"Sqrt", "[", RowBox[{"10", "/", "7"}], "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sqrt", "[", RowBox[{"5", "+", RowBox[{"2", "*", RowBox[{"Sqrt", "[", RowBox[{"10", "/", "7"}], "]"}]}]}], "]"}]}], "}"}], "/", "3"}]}], ",", "\[IndentingNewLine]", RowBox[{"w5", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"322", "-", RowBox[{"13", "*", RowBox[{"Sqrt", "[", "70", "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"322", "+", RowBox[{"13", "*", RowBox[{"Sqrt", "[", "70", "]"}]}]}], ",", "\[IndentingNewLine]", "512", ",", "\[IndentingNewLine]", RowBox[{"322", "+", RowBox[{"13", "*", RowBox[{"Sqrt", "[", "70", "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"322", "-", RowBox[{"13", "*", RowBox[{"Sqrt", "[", "70", "]"}]}]}]}], "}"}], "/", "900"}]}], ",", "\[IndentingNewLine]", RowBox[{"i", "=", "point"}], ",", RowBox[{"p", "=", "rule"}], ",", " ", RowBox[{"info", "=", RowBox[{"{", RowBox[{"Null", ",", "0"}], "}"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", " ", "[", " ", RowBox[{ RowBox[{"p", " ", "\[Equal]", " ", "1"}], ",", RowBox[{"info", " ", "=", " ", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", " ", "[", " ", RowBox[{ RowBox[{"p", " ", "\[Equal]", " ", "2"}], ",", " ", RowBox[{"info", "=", RowBox[{"{", RowBox[{ RowBox[{"g2", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "1"}], "}"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", " ", "[", " ", RowBox[{ RowBox[{"p", " ", "\[Equal]", " ", "3"}], ",", " ", RowBox[{"info", "=", RowBox[{"{", RowBox[{ RowBox[{"g3", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"w3", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", " ", "[", " ", RowBox[{ RowBox[{"p", " ", "\[Equal]", " ", "4"}], ",", " ", RowBox[{"info", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"g4", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"w4", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", " ", "[", " ", RowBox[{ RowBox[{"p", " ", "\[Equal]", " ", "5"}], ",", " ", RowBox[{"info", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"g5", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"w5", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", " ", "[", " ", RowBox[{"numer", ",", " ", RowBox[{"Return", " ", "[", " ", RowBox[{"N", "[", RowBox[{"info", ",", "20"}], "]"}], "]"}], ",", " ", RowBox[{"Return", " ", "[", " ", RowBox[{"Simplify", "[", "info", "]"}], "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]], "Input",\ CellChangeTimes->{ 3.447753633073769*^9, {3.447754009523332*^9, 3.447754010444119*^9}, { 3.447754190727346*^9, 3.447754191065433*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{3.4477531908787327`*^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 line, returned\>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "Print", "[", "\"\< by {x,w} = LineGaussRuleInfo[{rule,numer},i]\>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< INPUT:\>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "Print", "[", "\"\< RULE is 1, 2, 3, 4, or 5, the order of the rule.\>\"", "]"}], ";"}], "\[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 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 is the coordinate of the quadrature point,\>\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< with -1 <= X <= +1.\>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< W is the weight of the quadrature point.\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< \>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< The following cells print out each rule, and the sum\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< of the weights. The weights should sum to 2.\>\"", "]"}]}], "Input",\ CellChangeTimes->{{3.4477532264327106`*^9, 3.447753379554166*^9}}], Cell[CellGroupData[{ Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.447753390657502*^9}], Cell[BoxData["\<\"LineGaussRuleInfoTest.nb\"\>"], "Print", CellChangeTimes->{3.447753390699273*^9}], Cell[BoxData["\<\" Mathematica version\"\>"], "Print", CellChangeTimes->{3.447753390749633*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.447753390799088*^9}], Cell[BoxData["\<\" Test the quadrature rules for a line, returned\"\>"], \ "Print", CellChangeTimes->{3.447753390848103*^9}], Cell[BoxData["\<\" by {x,w} = LineGaussRuleInfo[{rule,numer},i]\"\>"], \ "Print", CellChangeTimes->{3.447753390881405*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.447753390932352*^9}], Cell[BoxData["\<\" INPUT:\"\>"], "Print", CellChangeTimes->{3.44775339098199*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.447753391031865*^9}], Cell[BoxData["\<\" RULE is 1, 2, 3, 4, or 5, the order of the rule.\"\>"], \ "Print", CellChangeTimes->{3.447753391065378*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.447753391109984*^9}], Cell[BoxData["\<\" NUMER is True to return numerical values for the output, \ or\"\>"], "Print", CellChangeTimes->{3.4477533911481733`*^9}], Cell[BoxData["\<\" False to return symbolic values.\"\>"], "Print", CellChangeTimes->{3.447753391181629*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.447753391214876*^9}], Cell[BoxData["\<\" I is the index, between 1 and |RULE|, of the point \ desired.\"\>"], "Print", CellChangeTimes->{3.447753391247778*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.447753391281457*^9}], Cell[BoxData["\<\" OUTPUT:\"\>"], "Print", CellChangeTimes->{3.447753391315317*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4477533913485518`*^9}], Cell[BoxData["\<\" X is the coordinate of the quadrature point,\"\>"], \ "Print", CellChangeTimes->{3.447753391381546*^9}], Cell[BoxData["\<\" with -1 <= X <= +1.\"\>"], "Print", CellChangeTimes->{3.447753391415038*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.447753391447254*^9}], Cell[BoxData["\<\" W is the weight of the quadrature point.\"\>"], "Print", CellChangeTimes->{3.447753391481846*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.44775339151373*^9}], Cell[BoxData["\<\" The following cells print out each rule, and the \ sum\"\>"], "Print", CellChangeTimes->{3.4477533915479603`*^9}], Cell[BoxData["\<\" of the weights. The weights should sum to 2.\"\>"], \ "Print", CellChangeTimes->{3.4477533915888853`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"rule", " ", "=", "1"}], ",", " ", RowBox[{"rule", " ", "\[LessEqual]", " ", "5"}], ",", " ", RowBox[{"rule", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"numer", " ", "=", " ", "True"}], ";", "\[IndentingNewLine]", RowBox[{"wsum", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "rule"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";", "\[IndentingNewLine]", RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", "rule"}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x", ",", "w"}], "}"}], " ", "=", RowBox[{"LineGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "w", " ", "]"}], ";", "\[IndentingNewLine]", RowBox[{"wsum", " ", "=", " ", RowBox[{"wsum", " ", "+", "w"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "wsum"}], " ", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";", "\[IndentingNewLine]", RowBox[{"For", " ", "[", " ", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", "rule"}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", " ", RowBox[{"x", ",", "w"}], "}"}], " ", "=", " ", RowBox[{"LineGaussRuleInfo", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "numer"}], "}"}], ",", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", " ", "[", " ", "x", " ", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.447753437747608*^9, 3.447753580551982*^9}, { 3.447753860775012*^9, 3.447753895703621*^9}}], Cell[CellGroupData[{ Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.4477543332909517`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Line rule number \"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Line rule number ", 1], Editable->False]], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754333341474*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754333390814*^9}], Cell[BoxData["\<\"W\"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754333441432*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754333473525*^9}], Cell[BoxData["2.`20."], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754333501443*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"sum(w) = \"\>", "\[InvisibleSpace]", "2.`20."}], SequenceForm["sum(w) = ", 2.`20.], Editable->False]], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.4477543335357313`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754333568534*^9}], Cell[BoxData["\<\"X\"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754333601253*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.4477543336344843`*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754333669057*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.4477543337030897`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Line rule number \"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Line rule number ", 2], Editable->False]], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.4477543337449417`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754333773058*^9}], Cell[BoxData["\<\"W\"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754333802321*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754333835915*^9}], Cell[BoxData["1.`20."], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754333868615*^9}], Cell[BoxData["1.`20."], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754333902513*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"sum(w) = \"\>", "\[InvisibleSpace]", "2.`20."}], SequenceForm["sum(w) = ", 2.`20.], Editable->False]], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754333936118*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754333968966*^9}], Cell[BoxData["\<\"X\"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.4477543340015097`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754334034192*^9}], Cell[BoxData[ RowBox[{"-", "0.57735026918962576450914878050194182194`20."}]], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.4477543340682163`*^9}], Cell[BoxData["0.57735026918962576450914878050194182194`20."], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754334100915*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754334139658*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Line rule number \"\>", "\[InvisibleSpace]", "3"}], SequenceForm["Line rule number ", 3], Editable->False]], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754334176206*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754334205966*^9}], Cell[BoxData["\<\"W\"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754334234776*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754334268309*^9}], Cell[BoxData["0.625`20.000000000000007"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754334301242*^9}], Cell[BoxData["0.88888888888888888888888888888888888889`19.999999999999996"], \ "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.4477543343348923`*^9}], Cell[BoxData["0.55555555555555555555555555555555555555`20.000000000000007"], \ "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.4477543343731813`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"sum(w) = \"\>", "\[InvisibleSpace]", "2.06944444444444444444444444444444444445`20.000000000000007"}], SequenceForm["sum(w) = ", 2.06944444444444444444`20.000000000000007], Editable->False]], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754334407023*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.4477543344398527`*^9}], Cell[BoxData["\<\"X\"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754334467963*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754334506136*^9}], Cell[BoxData[ RowBox[{"-", "0.77459666924148337703585307995647992217`20."}]], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754334539749*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754334572744*^9}], Cell[BoxData["0.77459666924148337703585307995647992217`20."], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754334605865*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754334648179*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Line rule number \"\>", "\[InvisibleSpace]", "4"}], SequenceForm["Line rule number ", 4], Editable->False]], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.4477543346737833`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754334706586*^9}], Cell[BoxData["\<\"W\"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.4477543347395353`*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.4477543347680597`*^9}], Cell[BoxData["0.34785484513745385737306394922199940724`20."], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754334801642*^9}], Cell[BoxData["0.65214515486254614262693605077800059276`20."], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754334839945*^9}], Cell[BoxData["0.65214515486254614262693605077800059276`20."], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754334873452*^9}], Cell[BoxData["0.34785484513745385737306394922199940724`20."], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754334906584*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"sum(w) = \"\>", "\[InvisibleSpace]", "2.`20.000000000000007"}], SequenceForm["sum(w) = ", 2.`20.000000000000007], Editable->False]], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754334939784*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754334972924*^9}], Cell[BoxData["\<\"X\"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754335006567*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754335039523*^9}], Cell[BoxData[ RowBox[{"-", "0.8611363115940525752239464888928095051`20."}]], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754335068076*^9}], Cell[BoxData[ RowBox[{"-", "0.3399810435848562648026657591032446872`20."}]], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754335109763*^9}], Cell[BoxData["0.3399810435848562648026657591032446872`20."], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754335139194*^9}], Cell[BoxData["0.8611363115940525752239464888928095051`20."], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754335172902*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.4477543352019997`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Line rule number \"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Line rule number ", 5], Editable->False]], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754335240158*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.44775433527306*^9}], Cell[BoxData["\<\"W\"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754335306305*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754335335177*^9}], Cell[BoxData["0.23692688505618908751426404071992220591`20.000000000000007"], \ "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754335372841*^9}], Cell[BoxData["0.4786286704993664680412915148356333491`20.000000000000007"], \ "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754335406477*^9}], Cell[BoxData["0.56888888888888888888888888888888888889`19.999999999999996"], \ "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754335439474*^9}], Cell[BoxData["0.4786286704993664680412915148356333491`20.000000000000007"], \ "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.4477543354725723`*^9}], Cell[BoxData["0.23692688505618908751426404071992220591`20.000000000000007"], \ "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754335505928*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"sum(w) = \"\>", "\[InvisibleSpace]", "1.99999999999999999999999999999999999892`20.000000000000007"}], SequenceForm["sum(w) = ", 2.`20.000000000000007], Editable->False]], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754335547769*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.4477543355727167`*^9}], Cell[BoxData["\<\"X\"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754335605813*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.4477543356393547`*^9}], Cell[BoxData[ RowBox[{"-", "0.90617984593866399279762687829939296512`20."}]], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.4477543356732264`*^9}], Cell[BoxData[ RowBox[{"-", "0.53846931010568309103631442070020880497`20."}]], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.44775433570623*^9}], Cell[BoxData["0"], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754335740251*^9}], Cell[BoxData["0.53846931010568309103631442070020880497`20."], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.44775433577334*^9}], Cell[BoxData["0.90617984593866399279762687829939296512`20."], "Print", CellChangeTimes->{3.4477535102380953`*^9, 3.447753541693922*^9, 3.447753589314702*^9, 3.447753645374147*^9, 3.4477538744426823`*^9, 3.4477540209684973`*^9, 3.447754335806655*^9}] }, Open ]] }, Open ]] }, WindowSize->{640, 750}, WindowMargins->{{Automatic, 183}, {Automatic, 38}}, 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, 8194, 219, 478, "Input"], Cell[8765, 242, 70, 1, 27, "Input"], Cell[CellGroupData[{ Cell[8860, 247, 2719, 69, 403, "Input"], Cell[CellGroupData[{ Cell[11604, 320, 77, 1, 20, "Print"], Cell[11684, 323, 100, 1, 20, "Print"], Cell[11787, 326, 97, 1, 20, "Print"], Cell[11887, 329, 77, 1, 20, "Print"], Cell[11967, 332, 126, 2, 20, "Print"], Cell[12096, 336, 124, 2, 20, "Print"], Cell[12223, 340, 77, 1, 20, "Print"], Cell[12303, 343, 83, 1, 20, "Print"], Cell[12389, 346, 77, 1, 20, "Print"], Cell[12469, 349, 128, 2, 20, "Print"], Cell[12600, 353, 77, 1, 20, "Print"], Cell[12680, 356, 141, 2, 20, "Print"], Cell[12824, 360, 110, 1, 20, "Print"], Cell[12937, 363, 77, 1, 20, "Print"], Cell[13017, 366, 139, 2, 20, "Print"], Cell[13159, 370, 77, 1, 20, "Print"], Cell[13239, 373, 85, 1, 20, "Print"], Cell[13327, 376, 79, 1, 20, "Print"], Cell[13409, 379, 124, 2, 20, "Print"], Cell[13536, 383, 97, 1, 20, "Print"], Cell[13636, 386, 77, 1, 20, "Print"], Cell[13716, 389, 118, 1, 20, "Print"], Cell[13837, 392, 76, 1, 20, "Print"], Cell[13916, 395, 134, 2, 20, "Print"], Cell[14053, 399, 127, 2, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[14229, 407, 2877, 61, 358, "Input"], Cell[CellGroupData[{ Cell[17131, 472, 223, 3, 20, "Print"], Cell[17357, 477, 356, 7, 20, "Print"], Cell[17716, 486, 221, 3, 20, "Print"], Cell[17940, 491, 221, 3, 20, "Print"], Cell[18164, 496, 221, 3, 20, "Print"], Cell[18388, 501, 218, 3, 20, "Print"], Cell[18609, 506, 352, 7, 20, "Print"], Cell[18964, 515, 221, 3, 20, "Print"], Cell[19188, 520, 221, 3, 20, "Print"], Cell[19412, 525, 223, 3, 20, "Print"], Cell[19638, 530, 213, 3, 20, "Print"], Cell[19854, 535, 223, 3, 20, "Print"], Cell[20080, 540, 358, 7, 20, "Print"], Cell[20441, 549, 221, 3, 20, "Print"], Cell[20665, 554, 221, 3, 20, "Print"], Cell[20889, 559, 221, 3, 20, "Print"], Cell[21113, 564, 218, 3, 20, "Print"], Cell[21334, 569, 218, 3, 20, "Print"], Cell[21555, 574, 350, 7, 20, "Print"], Cell[21908, 583, 221, 3, 20, "Print"], Cell[22132, 588, 223, 3, 20, "Print"], Cell[22358, 593, 221, 3, 20, "Print"], Cell[22582, 598, 275, 4, 20, "Print"], Cell[22860, 604, 256, 3, 20, "Print"], Cell[23119, 609, 221, 3, 20, "Print"], Cell[23343, 614, 356, 7, 20, "Print"], Cell[23702, 623, 221, 3, 20, "Print"], Cell[23926, 628, 221, 3, 20, "Print"], Cell[24150, 633, 221, 3, 20, "Print"], Cell[24374, 638, 236, 3, 20, "Print"], Cell[24613, 643, 275, 4, 20, "Print"], Cell[24891, 649, 275, 4, 20, "Print"], Cell[25169, 655, 442, 8, 20, "Print"], Cell[25614, 665, 223, 3, 20, "Print"], Cell[25840, 670, 221, 3, 20, "Print"], Cell[26064, 675, 221, 3, 20, "Print"], Cell[26288, 680, 273, 4, 20, "Print"], Cell[26564, 686, 213, 3, 20, "Print"], Cell[26780, 691, 256, 3, 20, "Print"], Cell[27039, 696, 221, 3, 20, "Print"], Cell[27263, 701, 358, 7, 20, "Print"], Cell[27624, 710, 221, 3, 20, "Print"], Cell[27848, 715, 223, 3, 20, "Print"], Cell[28074, 720, 223, 3, 20, "Print"], Cell[28300, 725, 256, 3, 20, "Print"], Cell[28559, 730, 256, 3, 20, "Print"], Cell[28818, 735, 256, 3, 20, "Print"], Cell[29077, 740, 256, 3, 20, "Print"], Cell[29336, 745, 383, 8, 20, "Print"], Cell[29722, 755, 221, 3, 20, "Print"], Cell[29946, 760, 221, 3, 20, "Print"], Cell[30170, 765, 221, 3, 20, "Print"], Cell[30394, 770, 272, 4, 20, "Print"], Cell[30669, 776, 272, 4, 20, "Print"], Cell[30944, 782, 255, 3, 20, "Print"], Cell[31202, 787, 255, 3, 20, "Print"], Cell[31460, 792, 223, 3, 20, "Print"], Cell[31686, 797, 356, 7, 20, "Print"], Cell[32045, 806, 220, 3, 20, "Print"], Cell[32268, 811, 221, 3, 20, "Print"], Cell[32492, 816, 221, 3, 20, "Print"], Cell[32716, 821, 273, 4, 20, "Print"], Cell[32992, 827, 272, 4, 20, "Print"], Cell[33267, 833, 273, 4, 20, "Print"], Cell[33543, 839, 274, 4, 20, "Print"], Cell[33820, 845, 273, 4, 20, "Print"], Cell[34096, 851, 422, 8, 20, "Print"], Cell[34521, 861, 223, 3, 20, "Print"], Cell[34747, 866, 221, 3, 20, "Print"], Cell[34971, 871, 223, 3, 20, "Print"], Cell[35197, 876, 275, 4, 20, "Print"], Cell[35475, 882, 272, 4, 20, "Print"], Cell[35750, 888, 213, 3, 20, "Print"], Cell[35966, 893, 255, 3, 20, "Print"], Cell[36224, 898, 256, 3, 20, "Print"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)