(* 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[ 65730, 1966] NotebookOptionsPosition[ 62124, 1841] NotebookOutlinePosition[ 62535, 1859] CellTagsIndexPosition[ 62492, 1856] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Scaling Vector", "Section", CellChangeTimes->{{3.426079509553897*^9, 3.42607953415069*^9}, { 3.426079643486648*^9, 3.426079646412459*^9}}], Cell[CellGroupData[{ Cell["Matrices", "Subsection", CellChangeTimes->{{3.426079653769202*^9, 3.426079655085194*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"G", "[", RowBox[{"-", "2"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ FractionBox["1", "80"], " ", SqrtBox[ RowBox[{ FractionBox["7", "3"], " ", RowBox[{"(", RowBox[{"23", "-", RowBox[{"6", " ", SqrtBox["14"]}]}], ")"}]}]]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "80"]}], " ", SqrtBox["3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["14"]}], ")"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "80"]}], " ", SqrtBox[ RowBox[{ FractionBox["151", "3"], "-", RowBox[{"10", " ", SqrtBox["14"]}]}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.422491937349691*^9, 3.4224919670739594`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"G", "[", RowBox[{"-", "1"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "40"], " ", SqrtBox[ RowBox[{ FractionBox["151", "2"], "-", RowBox[{"15", " ", SqrtBox["14"]}]}]]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "80"]}], " ", SqrtBox[ RowBox[{ FractionBox["71", "3"], "-", RowBox[{"4", " ", SqrtBox["14"]}]}]]}], ",", RowBox[{ FractionBox["1", "80"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox["3"]}], "-", RowBox[{"4", " ", SqrtBox["42"]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "80"]}], " ", SqrtBox[ RowBox[{ FractionBox["1351", "3"], "+", RowBox[{"70", " ", SqrtBox["14"]}]}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.422491975380383*^9, 3.422491987500465*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"G", "[", "0", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", SqrtBox["2"]], ",", RowBox[{ RowBox[{"-", FractionBox["1", "80"]}], " ", SqrtBox[ RowBox[{ FractionBox["71", "3"], "-", RowBox[{"4", " ", SqrtBox["14"]}]}]]}], ",", RowBox[{ FractionBox["1", "80"], " ", RowBox[{"(", RowBox[{ SqrtBox["3"], "+", RowBox[{"4", " ", SqrtBox["42"]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "80"]}], " ", SqrtBox[ RowBox[{ FractionBox["1351", "3"], "+", RowBox[{"70", " ", SqrtBox["14"]}]}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", FractionBox["7", RowBox[{"8", " ", SqrtBox["2"]}]], ",", RowBox[{"-", FractionBox[ SqrtBox[ FractionBox["7", "2"]], "8"]}], ",", RowBox[{"-", FractionBox["1", "8"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", FractionBox[ RowBox[{"3", " ", SqrtBox[ FractionBox["7", "2"]]}], "8"], ",", FractionBox["1", RowBox[{"8", " ", SqrtBox["2"]}]], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ FractionBox["1", "80"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "16"}], "-", RowBox[{"3", " ", SqrtBox["14"]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "40"]}], " ", SqrtBox[ RowBox[{ FractionBox["905", "2"], "-", RowBox[{"24", " ", SqrtBox["14"]}]}]]}], ",", RowBox[{"-", FractionBox[ RowBox[{"3", " ", SqrtBox["7"]}], "40"]}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.422491993231812*^9, 3.4224920076877127`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"G", "[", "1", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "40"], " ", SqrtBox[ RowBox[{ FractionBox["151", "2"], "-", RowBox[{"15", " ", SqrtBox["14"]}]}]]}], ",", RowBox[{ FractionBox["1", "80"], " ", SqrtBox[ RowBox[{ FractionBox["7", "3"], " ", RowBox[{"(", RowBox[{"23", "-", RowBox[{"6", " ", SqrtBox["14"]}]}], ")"}]}]]}], ",", RowBox[{ FractionBox["1", "80"], " ", SqrtBox["3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["14"]}], ")"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "80"]}], " ", SqrtBox[ RowBox[{ FractionBox["151", "3"], "-", RowBox[{"10", " ", SqrtBox["14"]}]}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SqrtBox[ FractionBox["3", "2"]], "4"], ",", FractionBox["7", RowBox[{"8", " ", SqrtBox["2"]}]], ",", FractionBox[ SqrtBox[ FractionBox["7", "2"]], "8"], ",", RowBox[{"-", FractionBox["1", "8"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", FractionBox[ RowBox[{"3", " ", SqrtBox[ FractionBox["7", "2"]]}], "8"]}], ",", FractionBox["1", RowBox[{"8", " ", SqrtBox["2"]}]], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"3", " ", SqrtBox[ FractionBox["21", "2"]]}], "20"], ",", RowBox[{ FractionBox["1", "80"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "16"}], "-", RowBox[{"3", " ", SqrtBox["14"]}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "40"], " ", SqrtBox[ RowBox[{ FractionBox["905", "2"], "-", RowBox[{"24", " ", SqrtBox["14"]}]}]]}], ",", RowBox[{"-", FractionBox[ RowBox[{"3", " ", SqrtBox["7"]}], "40"]}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.422492061101413*^9, 3.4224920778198147`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Function Values", "Subsection", CellChangeTimes->{{3.426079668423839*^9, 3.426079672418662*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", "phi", "]"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"phi", "[", "0", "]"}], "=", RowBox[{"{", RowBox[{ SqrtBox["10"], ",", "0", ",", "0", ",", "0"}], "}"}]}]], "Input", CellChangeTimes->{{3.422492093154285*^9, 3.4224920936006393`*^9}, { 3.422492249639336*^9, 3.42249225132487*^9}, {3.426079696982203*^9, 3.426079699370281*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ SqrtBox["10"], ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.4224920954136953`*^9, 3.422492252300322*^9, 3.4225214450124702`*^9, 3.4260798054944153`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"phi", "[", "x_", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"x", "\[LessEqual]", RowBox[{"-", "1"}]}], "||", RowBox[{"x", "\[GreaterEqual]", "1"}]}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"phi", "[", "x", "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.422492098737545*^9, 3.4224921028860292`*^9}, { 3.422492256375923*^9, 3.422492258525436*^9}, {3.426079813041006*^9, 3.426079817023744*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"phi", "[", "3", "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.422492106708912*^9, 3.42249226041698*^9, 3.422521445965222*^9, 3.4260798214133368`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"fill", "[", "j_", "]"}], ":=", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"phi", "[", "x", "]"}], "=", RowBox[{ SqrtBox["2"], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"G", "[", "i", "]"}], ".", RowBox[{"phi", "[", RowBox[{ RowBox[{"2", "x"}], "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "2"}], ",", "1"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1", ",", SuperscriptBox["2", RowBox[{"-", "j"}]]}], "}"}]}], "]"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{"fill", "[", "1", "]"}]], "Input"], Cell[BoxData[ RowBox[{"fill", "[", "2", "]"}]], "Input"], Cell[BoxData[ RowBox[{"fill", "[", "3", "]"}]], "Input"], Cell[BoxData[ RowBox[{"fill", "[", "4", "]"}]], "Input"], Cell[BoxData[ RowBox[{"fill", "[", "5", "]"}]], "Input"], Cell[BoxData[ RowBox[{"fill", "[", "6", "]"}]], "Input"], Cell[BoxData[ RowBox[{"fill", "[", "7", "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"pts", "[", "i_", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"phi", "[", "x", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1", ",", SuperscriptBox["2", RowBox[{"-", "7"}]]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.426079837297325*^9, 3.4260798379821587`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"phi", "[", RowBox[{"-", FractionBox["3", "4"]}], "]"}], "//", "FullSimplify"}]], "Input", CellChangeTimes->{{3.426079848736381*^9, 3.426079865105317*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "32"]}], " ", SqrtBox[ RowBox[{ FractionBox["173", "2"], "-", FractionBox[ RowBox[{"114", " ", SqrtBox["14"]}], "5"]}]]}], ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.4260798672904377`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"phi", "[", RowBox[{"-", FractionBox["1", "2"]}], "]"}], "//", "FullSimplify"}]], "Input", CellChangeTimes->{{3.426079879648033*^9, 3.42607988126973*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", SqrtBox[ RowBox[{ FractionBox["151", "10"], "-", RowBox[{"3", " ", SqrtBox["14"]}]}]]}], ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",\ CellChangeTimes->{3.426079882957687*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"phi", "[", RowBox[{"-", FractionBox["1", "4"]}], "]"}], "//", "FullSimplify"}]], "Input", CellChangeTimes->{3.426079891055929*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"31", "+", RowBox[{"6", " ", SqrtBox["14"]}]}], RowBox[{"32", " ", SqrtBox["10"]}]]}], ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.4260798919002523`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"phi", "[", "0", "]"}]], "Input", CellChangeTimes->{{3.426079893881399*^9, 3.426079895670433*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ SqrtBox["10"], ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.426079898593402*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"phi", "[", FractionBox["1", "4"], "]"}], "//", "FullSimplify"}]], "Input", CellChangeTimes->{{3.422492118826902*^9, 3.4224921533038273`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"31", "+", RowBox[{"6", " ", SqrtBox["14"]}]}], RowBox[{"32", " ", SqrtBox["10"]}]]}], ",", FractionBox[ RowBox[{"3", " ", SqrtBox[ FractionBox["15", "2"]]}], "8"], ",", FractionBox[ RowBox[{"3", " ", SqrtBox[ FractionBox["105", "2"]]}], "16"], ",", RowBox[{ RowBox[{"-", FractionBox["1", "8"]}], " ", SqrtBox[ RowBox[{ FractionBox["57", "2"], "+", FractionBox[ RowBox[{"36", " ", SqrtBox["14"]}], "5"]}]]}]}], "}"}]], "Output", CellChangeTimes->{{3.42249214540973*^9, 3.422492154812541*^9}, 3.426079844127453*^9, 3.4260799023736553`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"phi", "[", FractionBox["1", "2"], "]"}], "//", "FullSimplify"}]], "Input", CellChangeTimes->{{3.422492118826902*^9, 3.4224921533038273`*^9}, 3.422492197838951*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", SqrtBox[ RowBox[{ FractionBox["151", "10"], "-", RowBox[{"3", " ", SqrtBox["14"]}]}]]}], ",", FractionBox[ SqrtBox[ FractionBox["15", "2"]], "2"], ",", "0", ",", FractionBox[ RowBox[{"3", " ", SqrtBox[ FractionBox["21", "10"]]}], "2"]}], "}"}]], "Output", CellChangeTimes->{{3.42249214540973*^9, 3.422492154812541*^9}, 3.422492211464282*^9, 3.4260799118989058`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"phi", "[", FractionBox["3", "4"], "]"}], "//", "FullSimplify"}]], "Input", CellChangeTimes->{{3.422492118826902*^9, 3.4224921533038273`*^9}, 3.422492197838951*^9, {3.422492229278633*^9, 3.422492232276347*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "32"]}], " ", SqrtBox[ RowBox[{ FractionBox["173", "2"], "-", FractionBox[ RowBox[{"114", " ", SqrtBox["14"]}], "5"]}]]}], ",", FractionBox[ RowBox[{"3", " ", SqrtBox[ FractionBox["15", "2"]]}], "8"], ",", RowBox[{"-", FractionBox[ RowBox[{"3", " ", SqrtBox[ FractionBox["105", "2"]]}], "16"]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "8"]}], " ", SqrtBox[ RowBox[{ FractionBox["57", "2"], "+", FractionBox[ RowBox[{"36", " ", SqrtBox["14"]}], "5"]}]]}]}], "}"}]], "Output", CellChangeTimes->{{3.42249214540973*^9, 3.422492154812541*^9}, { 3.422492211464282*^9, 3.422492234381468*^9}, 3.426079914191599*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Graphs", "Subsection", CellChangeTimes->{{3.426079711307004*^9, 3.426079712276244*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Thickness", "[", ".008", "]"}], ",", RowBox[{"Line", "[", RowBox[{ RowBox[{"pts", "[", "1", "]"}], "//", "N"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.7"}], ",", RowBox[{ SqrtBox["10"], "+", ".1"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", ".5"}], ",", ".5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", ".5"}], ",", ".5", ",", "1", ",", "1.5", ",", "2", ",", "2.5", ",", "3"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.422492315951827*^9, 3.4224923478099833`*^9}, { 3.422492425332272*^9, 3.422492429209611*^9}, {3.4224925177459993`*^9, 3.4224925411710577`*^9}, {3.4224925726229887`*^9, 3.422492574072151*^9}, { 3.4260799386767797`*^9, 3.4260799391626797`*^9}}], Cell[BoxData[ GraphicsBox[ {GrayLevel[0], Thickness[0.008], LineBox[CompressedData[" 1:eJxVl3lUVPcVx5+oxVhL7Um0DYtLNDVRUQuapJL2vrqltASNmGAUlTSx1Uhj XLA1eszTJqEqIo1iAQ1BRCGoCQHcELiPRYcdBmYGhm32hVkYSIOiFW175s45 vfMP58vlw/ze7/1+936/M/+wc+1WP0EQxowRhP/99H4GUfj/j+xBz8jT8+7s jvf+XvJg5hfLw3XP7/Jq0YM5Z7cVzL/6EXEezIgNtEobj3i1PIAhtUMlx9KS iB/AvAPr554cSSZ+ABfN2dex+NV/ED+Av0m5qP5o3Gni3TjhnadW+LecId6N 5ScGNYq0DOLduM6vYFnB2nPEu/HelU8izj3JIt6F5nJb6cqGbOJdGPu1q61o Qg7xLvx31ghMWnKBeBfW/yC857ev5xLvxK646sNboi8S78QXfqac+NqSS8Q7 sfmbv71x7zFpwYlNmX6L3svPI96Br6xJlJIW5BPvwMmvjQ2JTSEtOvDP99p1 dTWkBQeuVgdc0DSTlvuxaUO3uPcrH9+P5tH4Uxlv+Ph+zF+i2PurGvo+oR9n 7F+Cb/nWI9sxDtqjeh751m/HrU8U92vK6PlEOy5bFJHpH+F7fjuOj1wXcHbv eeJt+MHhxDhXI+2nZMPG4Pn504Myibfh82uDSsqb6H0JNnx1+uzt28pPEG/F 3M8qbhtOSsRbsaokZOXUl9YQb8Xf9Qf/OEx1ALy8FR9OWxqliT7p1bIFn7ke 39z4bIZXSxYUsmeaZ3513qtFC17QlS7cNS+PeAtqc1Q7e6deJd6MkbdmWV6+ 8S3xZnQ7E4vSA68Rb0ZFaFPRlBs3iTdjTPWU/eEpZcSb8NhISNTtNTLxJsTR NOUv9lcRb8Kkp7efgcoa4k04Le5H5ksvKog3ovxgZOzc4jrijVgYkAPHNzcS b8RZ5Yf0yfNbiDfi16f80kcClMQbsOGGOqI8o414A07o2SMNv6Qi3oBHfpJ+ zM+mJt6A67ePHlpZ0EG8Hi9/v/nI9MNa4vWYXvOXW0M7uonXY4TDLzJkRy/x eizZd/vNsR/r6O91mA/FKa9Por8XdLhx+ZS/by3UUL0P/7ni3fjRBFqf0IdR k36dkJJEzyf1opx2erUjwbc/vfjwzbOrLYG3qN6DpauKFQuKLlC9B+HTmPyw U6fovHRjyfwX4x//tJjOVzd2PLsgpytOpnoXnkuM+eC04S7Vu3Dc7MOxtVOb qK5FbHl78tGDSqprcfG3e+5+tkxF9U48vyd54eVuDdU7ceG650JXrNJSvQOD U4uzv/zvOrz1Dsx4r2LHD4/2Ul2DhoDKnepNOqprcLI1WHHxkJ7qaqxNiFH1 hhmorsbFS5e33qonLanQlXD5cvxKI9VVmDzr97EPzpOW2rHooKG6QOert+PQ mVDj2VFfvQ3tqQM5/3roq7dh2FHTvU6Nr67E97Mamnen+upKnOPZGmT/ua/e ihMydzVtyfCtrxVzy6+qBRutX2jB9L9qZ38X4NPN+LjtT7HXZvSRbkLDppFr VSrf/jTi5Bbjqg2v0P4JDSi/e9FZF+nb33pc9HbFp1v820nX4XhtrFvZ10y6 Fh9c64RtgoK0Al9Oun88Ql9G+i5uGhqe+MsC6l/CHaxMOxNUEO07PzVYEG3M MwQh6WpsS9lmyPdvIF2FDYVz9gXltJOuxMzPVekfz+oiLWN9bNYB7Sd60hUY ZRnsCJ9nJl2G4e05g3nj7aRL0eQ3rAqY4iJ9E01zn6mfETpI+jp+oanImrTj O9IluH448MMbNd+TLsKq+7V3Tiy9T7oQk6O3z3nU+ID0Fdz9/rngnQcfkc7H oDK/0JjIJ6Rz8bkN0z6cGDhG9OpsbHhneHNqlh/pdPzjVc2lXWHjSKdiZOLn x83q8aQlVA6NrJl+1J+0IMRs7Fq6PuopXx14PRU4nw78/2cD//5c4OvLB77+ K8CfrxD48xcB358S4Pt3Hfj+3gS+/6XA308Z8PdXAfz9ysDffyXw81EF/PxU Az9fNcDP3x3g5/Mu8POrAH6+a4Gf/zrg96Me+P1pAH6/GoHfvybg97MZ+P1t AX6/W4Hdf6kVeH9QAu8fSuD9pQ14/2kD3p/agfevduD9TQW8/6mA90c18P6p Bt5fNcD7rwZ4f+4A3r87gPf3TuD9vxP4fNACnx9a4POlC/j86QI+n7qBz69u 4POtB/j86wE+H3uBz89e4PO1D/j87QM+n3XA57cO+HzXA5v/oh6YP5D0wPyD rAfmLwQDMP8hGoD5E8kAzL/IBmD+RjAC8z+iEZg/kozA/JNsBOavBBMw/yWa gPkzyQTMv8kmYP5OMAPzf6IZmD+UzMD8o2wG5i8FCzD/KVqA+VPJAsy/yhZg /lawAvO/ohWYP5aswPyzbAXmrwUbMP8t2oD5c8kGzL/LNmD+XrAD8/+iHVg+ kOzA8oNsB5YvhH5g+UPsB5ZPpH5g+UXuB5ZvBAew/CM6gOUjyQEsP8kOYPlK cALLX6ITWD6TnMDym+wElu8EF7D8J7qA5UPJBSw/yi5g+VJwA8ufohtYPpXc wPKr7AaWb4UBYPlXHACWj6UBYPlZHgCWrwUPsPwteoDlc8kDLL/LHmD5XvDN TUH4D5Uj4F4= "]]}, Axes->True, PlotRange->{{-1.1, 1.1}, {-0.7, 3.2622776601683796`}}, Ticks->{{{-1, FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {-0.5, FormBox[ RowBox[{"-", "0.5`"}], TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}}, {{-1.5, FormBox[ RowBox[{"-", "1.5`"}], TraditionalForm]}, {-1, FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {-0.5, FormBox[ RowBox[{"-", "0.5`"}], TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}, {1.5, FormBox["1.5`", TraditionalForm]}, {2, FormBox["2", TraditionalForm]}, {2.5, FormBox["2.5`", TraditionalForm]}, {3, FormBox["3", TraditionalForm]}}}]], "Output", CellChangeTimes->{3.422492318163797*^9, 3.4224923492148457`*^9, 3.4224924333740053`*^9, 3.4224925426916027`*^9, 3.422492575065572*^9, 3.422521450763176*^9, 3.426079942288534*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Thickness", "[", ".017", "]"}], ",", RowBox[{"Line", "[", RowBox[{ RowBox[{"pts", "[", "2", "]"}], "//", "N"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1.1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.7"}], ",", RowBox[{ SqrtBox["10"], "+", ".1"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", ".5"}], ",", ".5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".5"}], ",", ".5", ",", "1", ",", "1.5", ",", "2", ",", "2.5", ",", "3"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.4224924047607927`*^9, 3.422492411890287*^9}, { 3.422492452516047*^9, 3.422492455065404*^9}, {3.422492592114868*^9, 3.422492594230373*^9}, {3.426079946516314*^9, 3.426079946957944*^9}}], Cell[BoxData[ GraphicsBox[ {GrayLevel[0], Thickness[0.017], LineBox[CompressedData[" 1:eJxd1XtM1WUYB/AXW7Rma4x0WMyJSpctAqZl2sXnHWHBkOFlbSWYRWqXP8xE aW2t3nB2IVaa01FpowQlRsnk4iWCV+AcucrhcIcDB87hXDgXDnFpxphr2fvb er+/f84++57nXH6/532e1dnv7di3hDEWFsbYv6//XdP17P+XDOkWYA5mYDkF 9WAOZmAZhHowBzOwDEA9mIMZWPqhHszBDCx9UA/mYAaWk1AP5mAGll6oB3Mw A0sP1IM5mIGlG+rBHMzA0gX1YA5mYDkB9WAOZmDphHowBzOwdEA9mIMZWI5D PZiDGViOQT2Ygxm+3w45WIxCDhYjkIOFDXKwGIYcLIYgB4tByMFiAHKw6Icc LPogB4teyMGiB3Kw6IYcLKyQg0UX5GBhgRzdCb4J7gC3g9vAreAWcDP4BtgM NoGbwI3gBvB1sATXgWvB18BXwDXgKvAlcAW4HFwKLgYXgQvBx8ECjJegzRu/ zbXVlpCqp7nW4ENLT1QrF9IL4R9k+JdK5SJ6Y7r4zbc3mZSLyX6OtS5ua1Uu paqY/LzSHZ3K5ZRTWWR+apVVuYKefvaB+TX5PcqXqOzCmfZoX59yFbXcei49 hgaVa+h0/Fxu4pfDylcoIrUhdWvziPI1ejLlgiln0a5cS+Gntx/pjhxXrqMX F3bZZlY7lCXZLaGowsedytep7cGIxxoTJpQbKLL39/sOx7uUG6l8yayp7FG3 chOd/bl651vRHmUTuavuqvnlXq+ymT7bNBJ4f8bwDfo4MelWfe+kcjO1fLdu 4GSlT7mF3j3yW0HwK79yK+1trF7e8VpAuY2qj6bkrIsLKrdTVs3+kpVzhjso MzOi/OuaKeWbVH5oy+fHckLKnRR3Oy/60+XTyhaKWyzdnXdAWVjolcpl+eYm I++ii2vNRekr/lR5F61P/+OnqHeUmZXGEhYKYi8buZWutn2UfXjJjMq7qS5m y5p70pRFNwXjd7bbjht5D6X+df71+W4j7yFLLrdvWzar8l4SFatSQtuVRS/t Ppf8g6XAyPtoX8bFgbkmI++j76v2sKwFI++nv60vR4Y/MafyfjpaduL+2Sxl NkAb7/SfkQ/QimNDplNVRj5IsV94RJrNyAcpM/mZR5LD5lU+RPVXrdWfrFUW Q7TVW5FwO8nIh+luS8/J+j1GPky+g5sdjR8auY0W7pwvI7fRhlHH86dKjHyE zpatTMu+bOQjFJ/4Y9Ihs5GPkv/A3liT1chHqXv/weldNiO3kyeq4fx6p5Hb 6eG8V1/K8Bj5GH1TssH6q1eZj+m5GNPr5Rh8/rj+/Xxc/31iXP/9chz+n0P/ /9yh3x/h0O+fdMD9der3nzv15yOc+vOTTni+E/rz5xN6f4gJvX/kBPSXS+8/ 7tL7U7j0/pUu6G+33v/crZ8P4dbPj3TD+fLo54979PMpPPr5lR443179/HOv Ph+EV58f0gvzZVKfP3xSn09iUp9fchLmm0+ff9ynz0fh0+en9MF89evzl/v1 +Sz8+vyWfpjvAX3+84C+H0RA3x8yAPslqO8fHtT3kwjq+0sGYb9N6fuPT+n7 UUzp+1NOwX4N6fuXh/T9LEL6/pYh2O9GHzD2D/55qt4= "]]}, Axes->True, PlotRange->{{0, 1.1}, {-0.7, 3.2622776601683796`}}, Ticks->{{{-1, FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {-0.5, FormBox[ RowBox[{"-", "0.5`"}], TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}}, {{-0.5, FormBox[ RowBox[{"-", "0.5`"}], TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}, {1.5, FormBox["1.5`", TraditionalForm]}, {2, FormBox["2", TraditionalForm]}, {2.5, FormBox["2.5`", TraditionalForm]}, {3, FormBox["3", TraditionalForm]}}}]], "Output", CellChangeTimes->{3.422492413179223*^9, 3.422492460576274*^9, 3.422492595260558*^9, 3.422521451327215*^9, 3.426079949885811*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Thickness", "[", ".017", "]"}], ",", RowBox[{"Line", "[", RowBox[{ RowBox[{"pts", "[", "3", "]"}], "//", "N"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1.1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "2.3"}], "}"}]}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", ".5"}], ",", ".5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", ".5"}], ",", ".5", ",", "1", ",", "1.5", ",", "2", ",", "2.5", ",", "3"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.422492489678637*^9, 3.4224924932915792`*^9}, { 3.4224926180160103`*^9, 3.4224926694463167`*^9}, 3.422492703376362*^9, { 3.426079954548111*^9, 3.42607995499561*^9}}], Cell[BoxData[ GraphicsBox[ {GrayLevel[0], Thickness[0.017], LineBox[CompressedData[" 1:eJxd1XtMlXUcx/EfGjhMzdI0Wc1ZsrxMapipc/V9ltkqM82l6ZrVKOdMg3LL aYn76R+Vo7ZILcqWblrhJGXOmDkmjyDHOyL32+FwbhzO4XCOloradcbnu9Xn /ONe+/IWzvP8LhNy8havHGSMSUkx5va/A5/LFea/Hzf5f1uyQzZkN0E92SEb sttHPdkhG7Ibp57skA3Z7aWe7JAN2Y1RT3bIhuxGqSc7ZEN2e6gnO2RDdiPU kx2yIbvd1JMdsiG7YerJDtmQ3RD1ZIdsyG6QerJDNmQ3QD3ZIRuy66ee7JAN 2e2inuyQDf+8j+Zk20lzsvXSnGw7aE627TQn2zaak20rzcm2heZk20xzsm2i Odk20pxsG2hOtvU0J9s6mpPtJZqTbS3N2RfJNeQL5PPkc+Sz5DPk0+RTZA+5 mnySXEWuJJ8gu+Tj5HLyMfJRchn5CPkwuZRcQi4m7yPvIReRPydbMn+sTLse vrfoxXJBL9Pbtk1+e+85uEhGZkRufDKnAd4j9RdDm/IXt8H7JLjWP6P/zi64 WPanzD29yxOASyRRMO7VtuVhuFRWvhepf8MTgQ9LxdhH7vMOi8FH5GBo3fA/ p8XhMok9MePr3CkJ+KgUPr2pNi/lMnxM7vhyfOrf7epymeSZ553z/RX4uDQP KZ2fv+JX2JXoZ+PnZqT+Bp+Q2QVLylZ/q66UPdmjiiofugpXSX/ZuPYPd6lP ypj5U9bFB1+Dq6V1QtqiNSvUHhmbm7tqYbH6lJTkTDyQDKlPS152dPjeUdfh MzJn5Oat7mPqsxLN2vf7d8+qz8miE/ev3blQfV4W3Cr23HpOfUF+GTb0r8xZ 6hpZMzUlNTdDfVGe3LawZvIV/f21kr687IXSctjWyoEL19cty9f5Jbk5rm76 xuk6vyQ176ZvXe3T718nJvW1RXYLbOtkbXph4egMnddLvPTNWfn78TxtvSzJ +mrm3Y/q822Qj47Etzx8EO/DNsiS9ZlDx07U99Mou34YVPX4F3h/tlGyN8zb 7b2h77dJrj5wqDBnGWybZOPOlIzZOUnMm6Uip39IdRrWi22W99Mr68bs1vXU IguSwdc7pvZi3iL9G307qn6KYt4qU++a+coHmT2Yt8r20e98enB7N+ZtEksO zhhxM4R5m/jSNoefWRrEvF0erFjRkFbix7xdvH88X9R/zYd5h/hePvTWjx93 YN4hP7/U17JhRCvmXqk8nu6eKmjE3Ct5q9LDydvP/d9Pp8zNCmR+03ke807Z kF0weX1pNeY+2RHKalp6FfvZ+mTSPU8N8twswVz3KT5Ol84Hzgnbpf2A3S79 /3GO+PX3D9jx69+H3q9/P3q/fj/0Af3+6AP6fNAH9PmhD+jzRR/U548+qO8H fVDfH/qgvl/0IX3/6EO6PtCHdP2gD+n6Qh/W9Yc+rOsTfVjXL/qwrm/03br+ 0Xfr/kDfrfsHfbfuL/QR3X/oI7o/0Ud0/6KP6P5G36P7H32Png/oe/T8QN+j 5wv6qJ4/6KN6PqGP6vmFPqrnG/qYnn/oY3o+oo/p+Yk+pucr+l49f9H36vmM vlfPb/S9er6jj+v5jz6u9wP6uN4f6ON6v6Dv0/sHfZ/eT+j79P5C36f3G/qE 3n/oE3o/ok/o/Yk+ofcr+qTev+iTej+jT+r9jT6p9zt6PUeN+Qfjs663 "]]}, Axes->True, PlotRange->{{0, 1.1}, {-1.5, 2.3}}, Ticks->{{{-1, FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {-0.5, FormBox[ RowBox[{"-", "0.5`"}], TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}}, {{-1.5, FormBox[ RowBox[{"-", "1.5`"}], TraditionalForm]}, {-1, FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {-0.5, FormBox[ RowBox[{"-", "0.5`"}], TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}, {1.5, FormBox["1.5`", TraditionalForm]}, {2, FormBox["2", TraditionalForm]}, {2.5, FormBox["2.5`", TraditionalForm]}, {3, FormBox["3", TraditionalForm]}}}]], "Output", CellChangeTimes->{ 3.422492494387488*^9, {3.422492656764056*^9, 3.422492670551756*^9}, 3.422492704647955*^9, 3.4225214520116253`*^9, 3.426079956254087*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Thickness", "[", ".017", "]"}], ",", RowBox[{"Line", "[", RowBox[{ RowBox[{"pts", "[", "4", "]"}], "//", "N"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1.1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "2.3"}], "}"}]}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", ".5"}], ",", ".5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", ".5"}], ",", ".5", ",", "1", ",", "1.5", ",", "2", ",", "2.5", ",", "3"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.422492683119113*^9, 3.422492694376299*^9}, { 3.426079960276178*^9, 3.426079960778685*^9}}], Cell[BoxData[ GraphicsBox[ {GrayLevel[0], Thickness[0.017], LineBox[CompressedData[" 1:eJxd1n1M1VUYB/CDrvk2TSkZ5WRarizXpq42NfE5zJeVljkayXoz0WSUATP7 q61OtLaarRzZpjIRt+uiiY7xFqnB4U1A5f3Ky7283MvbvVwuFwgRUnStcc7W 873/sM++9+H+fud3zvP8ViekxH48RwgRFibEf39nP2Ol4v8fPcqtwBIswDoE 9WAJFmA9AvVgCRZgHYR6sAQLsB6GerAEC7AOQD1YggVYD0E9WIIFWPuhHizB Aqx9UA+WYAHWg1APlmAB1gNQD5ZgAdb9UA+WYAHWfVAPlmAB1r1QD5ZgAdZe qAdLsABrD9SDJVjg93sgB6tuyMGqC3Kw6oQcrNyQg5ULcrDqgBys2iEHqzbI waoVcrC6AzlYOSEHqxbIwaoZcrBqghysGiFHN4DrwXXg2+Bb4JvgWnANuBp8 A1wFrgRXgMvBZWANLgFfB18FF4OLwAXgPHAuOAecDXaAs8CnwSfBCowfRWnf vPDJ3NdKzfdO0onpzNTRBLsPTtPMcc/esFV232dR+6f1b285b8+xg8Jj4koO xNu+lE0ZwbTSiHW2z+bQutpN35+ssX0/l1IS6fOMDXaO5dGS+APuxxLtXC2g K+sOrshMsnO+iKaPLf5p4xb73lFMbx6IqK45at9jrtLZhu3XdqwZN75OxbET ++5WWJfQzPofCre98bexpqt5SREn/rIuo12r/smSkRPG5XS3LCPtxvvWFRTp KfR/e8K6kuZXXBIeh3UVPZHvnYr53foG/TJ97cHSM9bV1O7O3Fxw3LqGNl0M dadvta6l+ecef+rJcXs9N+nMoiPLz6db36KYze+EZay2vk1xyTsWpmTa+6uj tROnPkhbYF1Pi5fmrN16yK5PAxU83blhXrxdv0aqPPLVH1/XmPVVjTR1al50 bqR9L2qisVfkysTXzXuKaqL9rrG8Y+/Z94Zmcob3xl94yzxP1UzhqZ1JZc/Z 591CxWnZ8oLX7AfVQq6ilalRc+xccdL15blx+YtMH1dOenf7Gd85r+2Ld2hZ ubNocqHpS+oObVyVVFc3bs95Kx2ufnbm/qQ5R6qVHN998dGSvLM0m7fRssKc PZ89LJm1aqOItmcczz+4ZfJ2co77L7902GnydhrM9Kz/cdxl8g66kp0fu6DZ Y/IOmpqYfDE8ut/kLnJkJe8K/9NnchctiYrb/erOYZO7Kd3tcZd4QiZ30zbH mn2JO8dN3kkRgYSovasnTN5Jj+7tupQzd9LkXZSVdrR2RfCeybvotx0pe152 TZu8m0rvBub+XHff5N306+4vqyqrZkzeQ20PryUklz8yeQ9FHFqzP/2gkLO5 hy5c/jBaHwqbtfTwXHl4vfbA//fy35defn3Ky69fe+H+evn9y16+PqqXr5/u hfXt4+sv+/jzUX38+ek+eL79/PnLfr4/VD/fP7of9tcA339ygO9PNcD3rx6A /T3I978c5OdDDfLzowfhfPn4+ZM+fj6Vj59f7YPz7efnX/p5f1B+3j+0H/rL EO8/coj3JzXE+5cegv4W4P1PBnh/VAHeP3UA+usw779ymPdnNcz7tx6G/h7k /V8G+XxQQT4/dBDmywifP3KEzyc1wueXHoH5FuLzT4b4fFQhPj91CObrKJ+/ cpTPZzXK57cehfk+ZvaxEP8COC7MJg== "]]}, Axes->True, PlotRange->{{0, 1.1}, {-1.5, 2.3}}, Ticks->{{{-1, FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {-0.5, FormBox[ RowBox[{"-", "0.5`"}], TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}}, {{-1.5, FormBox[ RowBox[{"-", "1.5`"}], TraditionalForm]}, {-1, FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {-0.5, FormBox[ RowBox[{"-", "0.5`"}], TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}, {1.5, FormBox["1.5`", TraditionalForm]}, {2, FormBox["2", TraditionalForm]}, {2.5, FormBox["2.5`", TraditionalForm]}, {3, FormBox["3", TraditionalForm]}}}]], "Output", CellChangeTimes->{{3.422492688953597*^9, 3.422492695348342*^9}, 3.422521452932658*^9, 3.426079962621372*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Multiwavelet", "Section", CellChangeTimes->{{3.426079610315893*^9, 3.426079623140115*^9}, { 3.426080285831526*^9, 3.426080286960017*^9}}], Cell[CellGroupData[{ Cell["Matrices", "Subsection", CellChangeTimes->{{3.426080290025937*^9, 3.426080295036337*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"H", "[", RowBox[{"-", "2"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", FractionBox["1", "80"]}], " ", SqrtBox[ RowBox[{ FractionBox["7", "3"], " ", RowBox[{"(", RowBox[{"23", "-", RowBox[{"6", " ", SqrtBox["14"]}]}], ")"}]}]]}], ",", RowBox[{ FractionBox["1", "80"], " ", SqrtBox["3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["14"]}], ")"}]}], ",", RowBox[{ FractionBox["1", "80"], " ", SqrtBox[ RowBox[{ FractionBox["151", "3"], "-", RowBox[{"10", " ", SqrtBox["14"]}]}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", FractionBox["1", "40"]}], " ", SqrtBox[ RowBox[{ FractionBox["161", "6"], "-", RowBox[{"7", " ", SqrtBox["14"]}]}]]}], ",", RowBox[{ FractionBox["1", "40"], " ", SqrtBox[ FractionBox["3", "2"]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["14"]}], ")"}]}], ",", RowBox[{ FractionBox["1", "40"], " ", SqrtBox[ RowBox[{ FractionBox["151", "6"], "-", RowBox[{"5", " ", SqrtBox["14"]}]}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.422514121704938*^9, 3.422514137559124*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"H", "[", RowBox[{"-", "1"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "40"]}], " ", SqrtBox[ RowBox[{ FractionBox["151", "2"], "-", RowBox[{"15", " ", SqrtBox["14"]}]}]]}], ",", RowBox[{ FractionBox["1", "80"], " ", SqrtBox[ RowBox[{ FractionBox["71", "3"], "-", RowBox[{"4", " ", SqrtBox["14"]}]}]]}], ",", RowBox[{ FractionBox["1", "80"], " ", RowBox[{"(", RowBox[{ SqrtBox["3"], "+", RowBox[{"4", " ", SqrtBox["42"]}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "80"], " ", SqrtBox[ RowBox[{ FractionBox["1351", "3"], "+", RowBox[{"70", " ", SqrtBox["14"]}]}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "40"], " ", RowBox[{"(", RowBox[{"5", "-", RowBox[{"3", " ", SqrtBox["14"]}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "40"], " ", SqrtBox[ RowBox[{ FractionBox["71", "6"], "-", RowBox[{"2", " ", SqrtBox["14"]}]}]]}], ",", RowBox[{ FractionBox["1", "80"], " ", RowBox[{"(", RowBox[{ SqrtBox["6"], "+", RowBox[{"8", " ", SqrtBox["21"]}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "40"], " ", SqrtBox[ RowBox[{ FractionBox["1351", "6"], "+", RowBox[{"35", " ", SqrtBox["14"]}]}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.422514142895932*^9, 3.422514158309534*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"H", "[", "0", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", SqrtBox["2"]], ",", RowBox[{ FractionBox["1", "80"], " ", SqrtBox[ RowBox[{ FractionBox["71", "3"], "-", RowBox[{"4", " ", SqrtBox["14"]}]}]]}], ",", RowBox[{ FractionBox["1", "80"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox["3"]}], "-", RowBox[{"4", " ", SqrtBox["42"]}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "80"], " ", SqrtBox[ RowBox[{ FractionBox["1351", "3"], "+", RowBox[{"70", " ", SqrtBox["14"]}]}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", FractionBox["1", "40"]}], " ", SqrtBox[ RowBox[{ FractionBox["71", "6"], "-", RowBox[{"2", " ", SqrtBox["14"]}]}]]}], ",", RowBox[{ FractionBox["1", "80"], " ", RowBox[{"(", RowBox[{ SqrtBox["6"], "+", RowBox[{"8", " ", SqrtBox["21"]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "40"]}], " ", SqrtBox[ RowBox[{ FractionBox["1351", "6"], "+", RowBox[{"35", " ", SqrtBox["14"]}]}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ FractionBox["1", "40"], " ", RowBox[{"(", RowBox[{"3", "-", SqrtBox["14"]}], ")"}]}], ",", RowBox[{ FractionBox["1", "40"], " ", SqrtBox[ RowBox[{"65", "+", RowBox[{"6", " ", SqrtBox["14"]}]}]]}], ",", RowBox[{ FractionBox["1", "20"], " ", SqrtBox[ RowBox[{ FractionBox["239", "2"], "-", RowBox[{"15", " ", SqrtBox["14"]}]}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", FractionBox["1", RowBox[{"8", " ", SqrtBox["6"]}]]}], ",", FractionBox[ SqrtBox[ FractionBox["21", "2"]], "8"], ",", FractionBox["1", SqrtBox["3"]]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.422514166125059*^9, 3.422514183047657*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"H", "[", "1", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "40"]}], " ", SqrtBox[ RowBox[{ FractionBox["151", "2"], "-", RowBox[{"15", " ", SqrtBox["14"]}]}]]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "80"]}], " ", SqrtBox[ RowBox[{ FractionBox["7", "3"], " ", RowBox[{"(", RowBox[{"23", "-", RowBox[{"6", " ", SqrtBox["14"]}]}], ")"}]}]]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "80"]}], " ", SqrtBox["3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["14"]}], ")"}]}], ",", RowBox[{ FractionBox["1", "80"], " ", SqrtBox[ RowBox[{ FractionBox["151", "3"], "-", RowBox[{"10", " ", SqrtBox["14"]}]}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "40"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"3", " ", SqrtBox["14"]}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "40"], " ", SqrtBox[ RowBox[{ FractionBox["161", "6"], "-", RowBox[{"7", " ", SqrtBox["14"]}]}]]}], ",", RowBox[{ FractionBox["1", "40"], " ", SqrtBox[ FractionBox["3", "2"]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["14"]}], ")"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "40"]}], " ", SqrtBox[ RowBox[{ FractionBox["151", "6"], "-", RowBox[{"5", " ", SqrtBox["14"]}]}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "20"], " ", SqrtBox["3"], " ", RowBox[{"(", RowBox[{"5", "+", SqrtBox["14"]}], ")"}]}], ",", RowBox[{ FractionBox["1", "40"], " ", RowBox[{"(", RowBox[{"3", "-", SqrtBox["14"]}], ")"}]}], ",", RowBox[{ FractionBox["1", "40"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox["2"]}], "-", RowBox[{"3", " ", SqrtBox["7"]}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "20"], " ", SqrtBox[ RowBox[{ FractionBox["239", "2"], "-", RowBox[{"15", " ", SqrtBox["14"]}]}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", FractionBox["1", RowBox[{"8", " ", SqrtBox["6"]}]], ",", FractionBox[ SqrtBox[ FractionBox["21", "2"]], "8"], ",", RowBox[{"-", FractionBox["1", SqrtBox["3"]]}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.42251418775177*^9, 3.422514197537468*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Graphs", "Subsection", CellChangeTimes->{{3.426080307028167*^9, 3.4260803078080606`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"psi", "[", "x", "]"}], "=", RowBox[{ SqrtBox["2"], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"H", "[", "i", "]"}], ".", RowBox[{"phi", "[", RowBox[{ RowBox[{"2", "x"}], "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "2"}], ",", "1"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1", ",", SuperscriptBox["2", RowBox[{"-", "7"}]]}], "}"}]}], "]"}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"pts", "[", "i_", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"psi", "[", "x", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1", ",", SuperscriptBox["2", RowBox[{"-", "7"}]]}], "}"}]}], "]"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Thickness", "[", ".01", "]"}], ",", RowBox[{"Line", "[", RowBox[{"pts", "[", "1", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.75"}], ",", RowBox[{ SqrtBox["10"], "+", ".1"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", ".5"}], ",", ".5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", ".5"}], ",", ".5", ",", "1", ",", "1.5", ",", "2", ",", "2.5", ",", "3"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.422514244713917*^9, 3.422514271569365*^9}, 3.42251447246319*^9}], Cell[BoxData[ GraphicsBox[ {GrayLevel[0], Thickness[0.01], LineBox[CompressedData[" 1:eJxVV3tQVPcVvoJGdCxNx5JplVUxpRrFqlVMK9pzE8tEM5jiK2BEpa220hSt UTTEjL3SRB2rSKMQQJsgYEBFQFhFRDxX3iALLCzLW9j3g31IVLKkVfvg7EzO /Wfnm+9+d+/9/c7vnO8L+t2+jbt9BEGYMEEQ/vc7fj1C4buX7Ea3Z/rC2g9i 4f9YcmPmP9csGwzeP45FN2Zf2HM15PpH41hwY0bUDLO0LWkcyy5UNIwoT6We IL0L845ELzjrOU16Fy6Zd6hr+ap/kN6FbyRf7vxo4nnSO9Hvt1N+Pbk1jfRO rDzzSFufmkF6J272ufrm1Y0XSe/E0YJPwi6++IL0DjRWWu6EP8givQOjCh3t JX7ZpHfgv77wwLTQHNI7sOmlZf1r1+eSfhh7Y6qP7XznMumHcf6P1FPfCv2K 9MPYUvS3DaPPCQvDqMr0WbIrP4/0dvxFZIJ04mf5pLfjy2/5KqKSCYt2jB/t GGysISzY8Ted/jnaFsKyDVXv9YkHr3j1NjQ+iz2XscGrt2F+aP3B1TX0f4IN 5ySG4rve95GtGAMdEf3/9r6/FXe/qP+m5i59n2jFN5eEZU4O836/FSet2+x/ 4eAl0ltw77GEGEczradkwebAkPzZMzNJb8HgjTOVlSraL8GCq2b/JG5P5RnS mzH3+L0K3VmJ9GasUirCX1kRSXozvm0L/P7PNUeo7sz47ayVEdp3zo5j2YQ/ vBXb0vzjjHEsmVDICjIGXbk0jkUT5gzeWbx/YR7pTdiTrdk38Mp10htxXfmr ptfLbpDeiM7hhJL0GTdJb8T6RaqSgLLbpDfipuqAxGXJd0lvwFMeRURFpEx6 A+KzVPXSxCrSG/DE9Lg0uF9DegPOivme8avX6kmvR3nM47ugtJH0eiz2z4a/ 72gmvR5frTw6dDqklfR6LDznk+7xV5Nehw/KOsMqM9pJr0O//gPS0xUa0usw 6Qfpp3wsnaTXYXTcs6PhV7tIP4TXnuxImn2sh/RDmF5zuHzk/T7SD2GY3Wed 4v0B0g+h8lDFFt+/DtL9g3g+Zv3Jj1PpfmEQNdZDaQotPV96iBua/TYdX0Xv IzxEV1lHyrs1bcQP4OLyyPCY9ibiB3CltvDW1vW0XlI/lm6oW9GkqyC+H5++ vWqXp62Q+D7M3gZbwu0nie/DqqWl87Pn0vmVenF+bg6ql9+k+uvF7eVjk7YX ycT3YPIc36jwtjrie7DncsQi/SQV8d3YcCBzJLFATXw3ut84E6ewaYjvwqRp hdfCVncT34V5c0NMy6/3Ea/FDztWrIlbPUi8Fv3KjiYGJuqI78TGrK6XffYY iO/Esy2rj6bGm4jXoMWytvul0xbiNRh7PiX0eK2N+A787EhBwZpAB/EdKIQv 37zvMxfx7TineeelwNRHxLfjX/wP1Fu/HiFejb+s/HKe8vePiVejWLBUlWZ9 QnwbRhYdrM5PGiW+DUMylQE+yzyEW3Fs+2HttZ1efQtedrfrgjY7Catw70RD 4YylRsLNGLeje+RxrZbwA8yfNxBcWVpGuAmVqZ/mqGd5z0sjWhLC0nIDqD6F Brzx0xDFguMGwvVYegC+9XXaCNfh1PhTz/JK3IRrUe+aHbR499eEa/Dw2sb9 ZeeeEK7G5vz3nqfsGCVchX9IiNfsxG8I30fV9AsTGoo8hGU8afv4XPxrY4Tv YXBMwedPgr34Lgapq2ZO+NJ7/x2cUrh10evJ3ufdxtjoqb0rnU8J38KS0L2L i28+JqzEpGuzwsJ03jlbgmW/+lOA0GEnXIyfOFOjwlP0hAtwLMZcFNhH/UDI x+TMrR+Y/W/QeuZiRY/xxR+3DBDOwsmlrUFF5d56Scc/K6KnVS/y7m8Kfn6x eNeHLc8JS1jlWVh3Ze5EUaBr07beldERUwhLwPkU4Pp04M/PAv7/ucDfLx/4 +xcA/75i4N9fAnx9lMDX7xbw9b0NfP3vAN+fu8D37x7w/ZWB7/994PVRBbx+ qoHXVw3w+qsFXp91wOu3Hnh9NwCv/0bg56MJ+Pl5APx8NQM/fyrg57MF+Plt BX6+24Cdf6kNeH9QA+8fauD9pR14/2kH3p86gPevDuD9TQO8/2mA98dO4P2z E3h/1QLvv1rg/bkLeP/uAt7fu4H3/27g86EH+PzoAT5feoHPn17g86kP+Pzq Az7f+oHPv37g83EA+PwcAD5fHwKfvw+Bz+dB4PN7EPh8HwI2/8UhYP5AGgLm H+QhYP5C0AHzH6IOmD+RdMD8i6wD5m8EPTD/I+qB+SNJD8w/yXpg/kowAPNf ogGYP5MMwPybbADm7wQjMP8nGoH5Q8kIzD/KRmD+UjAB85+iCZg/lf5bt9/1 r7IJmL8VzMD8r2gG5o8lMzD/LJuB+WvBAsx/ixZg/lyyAPPvsgWYvxeswPy/ aAWWDyQrsPwgW4HlC8EGLH+INmD5RLIByy+yDVi+EezA8o9oB5aPJDuw/CTb geUrYRhY/hKHgeUzaRhYfpOHgeU7wQEs/4kOYPlQcgDLj7IDWL4UnMDyp+gE lk8lJ7D8KjuB5VvBBSz/ii5g+VhyAcvPsgtYvhbcwPK36AaWzyU3sPwuu4Hl e8HbpwXhP2+cyUY= "]]}, Axes->True, PlotRange->{{-1.1, 1.1}, {-1.75, 3.2622776601683796`}}, Ticks->{{{-1, FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {-0.5, FormBox[ RowBox[{"-", "0.5`"}], TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}}, {{-1.5, FormBox[ RowBox[{"-", "1.5`"}], TraditionalForm]}, {-1, FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {-0.5, FormBox[ RowBox[{"-", "0.5`"}], TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}, {1.5, FormBox["1.5`", TraditionalForm]}, {2, FormBox["2", TraditionalForm]}, {2.5, FormBox["2.5`", TraditionalForm]}, {3, FormBox["3", TraditionalForm]}}}]], "Output", CellChangeTimes->{3.426080012185947*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Thickness", "[", ".01", "]"}], ",", RowBox[{"Line", "[", RowBox[{"pts", "[", "2", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.75"}], ",", RowBox[{ SqrtBox["10"], "+", ".1"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", ".5"}], ",", ".5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", ".5"}], ",", ".5", ",", "1", ",", "1.5", ",", "2", ",", "2.5", ",", "3"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.422514286914637*^9, 3.422514289662528*^9}, 3.422514458031961*^9}], Cell[BoxData[ GraphicsBox[ {GrayLevel[0], Thickness[0.01], LineBox[CompressedData[" 1:eJxdl31wzHcexxc5RzsYTBOOajxci9ZTSjvI9JOhOEXbIzIiExxtcYfU4YYq TcNV1dRFpY7DJU4UFyEIjQSfjackCJHn52x2N/uUbDYhRBDuYV87c3P7z857 3vv67e/3/X2/n8/7M3Bx1OxPOxoMhg4dDIb/fHs/TWr434/Ro6UXDx9xT1oq /9XRHk2NmbP43ZD1Xh3i0ac7nyS0VMZ4tcGj2Z/v7virR9u92tioCVJ8d1Ry LHyj/sn5PGHml3Hwjfrxlfjw3IV74Rt1aXFcdb+PDsC79VmfyJfuBSbAuzWt aV3TJwH/gHfr9scd4553ToR3a+w7f7TPrj8C36DtKWOq/I1H4RvUsvLU0hfR x+EbdNOa8A2Zw5LgG7Qu66Bfr/Mn4Ov1g9Wup0cGnoSv1xvrkn8btOwUfL1m rxz+7NykFPh6XRD6RvOWdLTRpZmr/b6O7Hsa3qVPsh8PeTUSHeLS1yMnhh3c gja4NHRMp51p36GNTt3/m21Tpn/u453q99Pzh8OCfLxTk2Ym9Bl3x/f/To2X w69P8d2P0aGeTpuClvfhfqMdGjNidkHGnGR4h47qOHbQu0G+53do129je8ae OgZv1xnXi3ZvzGI9o+3a1bh6/8l1vvW3q+tZ4riLfzgIb9fQbre7bP7lj/A2 jdi4fHjfFdvgbTov8fTTfu4weJvOOrT917uSt7DvbHr+0apN8wbv8WpjnZYd OdstXQ95dXSdxtU6rpa2HfPqkDqdErf252GLU+DrNHjC4J3pu1Lhrbp3Yc6K a90uwFs1tMPo8hWll+Ct+mb32JMNGzLhraphYy4HjLkGb1H7vEULb/bKgrdo wO6v5wYE3oS36NUtbUt6zs+Ft+jpUP+jdYvy4M06NlPr33wrH96s/5yaVPtJ j0J4s04bssPV9+VieLPO2NdzWeFrpfC12mJtynj1w3L4Wt0wtWLaV3sq4Wu1 V3vMypi2avha7TBk1rTSDBO8SeXs8m9yupjhTWqZ0ZRYtsQCb9Jvu6XPmZVr hTfp7YCEycun2Ph9jQb5vzz0wsf83lCjnwZaog1ruH50tR5LT9q8L6wCv1oL 7QOPhzUX4VfpCP+tS+aksh6GKu35RkTg3Im+9azUrj/bplQmp+NX6pbhEw8E XzqIX6Fxm7OHDN73E/urQk+O+kXk/O8vsZ/KNX7p2ZKPkrPwy3V7W+fo9pF5 +GUaeXfl6uBVhfhlGm4/UzV9Tyl+qZ578IX5peOV+KU6fc65D4NCTfgl2iW8 t/+AGWb8Eh1tHRY2cYIVv1iLZt06+OUgG36xdvLkbCz0c+AXaXHg483jzE78 Io0MHvrODxn1+IWa9Le3RlftcuMXalFcydMun3nwC/RxZnvvrQea8Av0m0Xn Dtn+3Iyfr3/P37jqSNR9/HzNfT89c/z8B/j3dJ+lzNx/agv+Pd1RMblv9tsP 8fN0dPjvTqQOfoSfpz2277dE+Lei72rKe+curV3E9Qx3NGDgsjv2JdyfIVdD 1jduCxjA8xpua1Z7RlRVK+tnuKUzwwfsD35QgL6p/Z+/Pb018gI6R1+LepZc 80EG7z9bMzvmdN//RQE6S7dq7y6L/1KDvqGvjGw+PPDfdcCrr+vvmyPiJ1S7 0Nc09+SOkX8t86Cv6uGHpvedY++jr2jLKwktkye3oDPV8uTwpOO9H6GN2vRZ t1u2Q63oy5rUv33YTedj9EXdXb37aaC9DZ2uY6PuV6T9+ASdpj13jV+6sNmn z+vpzt+NNz/06VSN/8HP0z3ep8/ogtacwWcdvuul6NrWJ2sO3PH93wmNmpu2 ce9M3/0c07sFg0rWLniITtR+4yIGvXjhe74ErZ4Y0+Y3wtfH9+r4uaubj15x omP1wrb31q8ZQz0wROueoRFf9Qj2rff/f6IFn/cVK/DovcL10QnC/6MThftD HxPuH31CeD50ivD86DPC+qBThfVDnxfWF50mrD86XXg/6IvC+0NfFt4v2ii8 f3SmsD/QV4T9g74q7C/0NWH/oa8L+xN9Q9i/6Cxhf6Ozhf3vOx/C+fCdH+H8 8L5uCecLfVs4f+hc4Xyi7wjnF31XON/oPOH8U3/zhPqAf0+oH/j3hPqCny/U H/x8oT7hFwj1C79AqG/4hUL9wy8U6iN+kVA/8YuE+opfLNRf/GKhPuOXCPUb v0So7/ilQv3HLxX6A36Z0D/wy4T+gl8u9B/8cqE/4VcI/cvX34T+5ut/Qv+j PlcK/ZH3XyX0T/wqob/iVwv9F79a6M/4NUL/xq8R+ju+Sej/Xh1iEvIBvzcJ +cGrjSYhX8DXCvkDvlbIJ/C1Qn6BrxXyDbxZyD/wZiEfwZuF/ARvFvIVvEXI X/AWIZ/BW4T8Bm8R8h28Vch/8FYhH8JbhfwIbxXyJXydkD/h64R8Cl8n5Ff4 OiHfwtuE/AtvE/IxvE3Iz979YrQJ+Zr9Yxfyt1eH2IV8zn6zC/kd3i7ke3iH kP/hHcJ8AO8Q5gd4hzBfwDuF+QPeKcwn8E5hfoF3CvMNvEuYf+BdwnwE7xLm J3iXMF/B1wvzF3y9MJ/B1wvzG3y9MN/BNwjzH3yDMB/CNwjzI3yDMF/Cu4X5 E94tzKfwbmF+hXcL8y18ozD/wjcK8zF8ozA/wzcK8zW8R5i/4T3CfA7vEeZ3 eI8w38P7+rbB8C8/9NQT "]]}, Axes->True, PlotRange->{{-1.1, 1.1}, {-1.75, 3.2622776601683796`}}, Ticks->{{{-1, FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {-0.5, FormBox[ RowBox[{"-", "0.5`"}], TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}}, {{-1.5, FormBox[ RowBox[{"-", "1.5`"}], TraditionalForm]}, {-1, FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {-0.5, FormBox[ RowBox[{"-", "0.5`"}], TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}, {1.5, FormBox["1.5`", TraditionalForm]}, {2, FormBox["2", TraditionalForm]}, {2.5, FormBox["2.5`", TraditionalForm]}, {3, FormBox["3", TraditionalForm]}}}]], "Output", CellChangeTimes->{3.426080015458001*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Thickness", "[", ".02", "]"}], ",", RowBox[{"Line", "[", RowBox[{"pts", "[", "3", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", ".1"}], ",", "1.1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{ SqrtBox["10"], "+", ".3"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", ".5"}], ",", ".5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "1.5"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", ".5"}], ",", ".5", ",", "1", ",", "1.5", ",", "2", ",", "2.5", ",", "3"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.42251430165633*^9, 3.4225143244710217`*^9}, { 3.422514372997903*^9, 3.422514386071525*^9}, 3.4225144417997637`*^9, { 3.4225215228456783`*^9, 3.422521531762266*^9}}], Cell[BoxData[ GraphicsBox[ {GrayLevel[0], Thickness[0.02], LineBox[CompressedData[" 1:eJxd1n1MlVUcB/CjI5fIHA6apltWzjUdzLU1MGn9TummwoxymS+rmaiVTWi+ bLTm6CxDmygw0CQuFIoOlxiGJIwQjgi+wBV5vby/XC6Xe+Hey6UwkljrZfc8 23O+zz/ss+/zu9x7nnN+v+eFhM+27p/LGJszh7H//wauyRpmvqRftwBzMAPL CagHczADSx/UgzmYgaUX6sEczMDSA/VgDmZgOQ71YA5mYDkG9WAOZmDphnow BzOwdEE9mIMZWI5CPZiDGVg6oR7MwQwsR6AezMEMLB1QD+ZgBpbDUA/mYAaW dqgHczADyyGoB3Mww/sHIQeLAcjBoh9ysOiDHCx6IQeLHsjBohtysOiCHCw6 IQcLG+Rg0QE5WLRDDhZtkINFK+Rg0QI5WDRDjn4EbgI/BFvBjeAG8APwffA9 8F1wPbgOfAdcC74NluBqcBW4ElwBvgkuA5eCr4OLwVfAl8AF4BxwJliA8RI0 fsb67I3LP6v7Minj0InwD3KNdcqhLsvx9t3bjedUQO12EVwebOyLS9RUEvqX pcfYV1fIsuRrV+9VY58W045XD3pTZ4x9fZ0WFuQWBdUZ56CUZM9Qee0C49yU 0dHk0KrVLUZ+kyKCZrcWhRuuoOmFh5cV2ozPryTbyo1l3yw29n0VXbl2/vPU EuP7VVPH7sJLyWuMfSdpT8q7q2+VGPviNuXG5qW/l2A8t1oqnR+dfWRzmvId urowYX5ReAkFXEcJltLEN2NqlespszI6rb/4ofJdOp9wcSIrpEP5Hp2JXxZW WNOrfJ/C05bG5ibblR9QVHjGgaQtTuUGevHYVzlL9owpN1LPbNrJvaU+ZSut /ujC1Onnf1N+SFvClr9y/MSUchNZL5zqnwmeVn5EkT+t2WS79kS5mdztO61/ J80GLJppyrl+w9po4/4WOvso/f3ZFerzRQtFfHzu5OvJbpW3Uk3TcxcnFw2o vJXizpQ0vPPSfZW30b6QohvOxhuB9RNt9OHG/bnn3Mbza6f85YlHnd1qjol2 al4UFJ+Xb7yXdJA1qvOf6lL1nig66NRKx9m35v2uchtlpHZFr49/rHIb/fpd zDpn5LTKOymOH0vss/yp8k5K2R5c2Jz1ROVdlH1rW/GBkBmVd1Hr20274ucq s2467Hd8uSpJ3S+6qTx5nu+HzerzWA8N3rt8ZFf6Hyrvocjql50sakrlvdS3 dmlYzDr1ni16aV/E9/l7VhnvbX3U+YloC0tRc1j0EaV7fjx03uiT/VRmiXW1 ldSp9e2nFV9sKg/dMKzWd4DqDu49l508qfIB2hZUvuNxnvF8B+lO1uJP37Ay HsgH6emZSEtcxVMBsyHqqh+11T2zIGA+pOdiSK+XQ/D5dv3/c7v+/YSdfjF/ f2mn17TfN6z/fj6sr48Y1tdPDsP6OvT15w79+QiH/vykA57viP78+Yi+P8SI vn/kCOwvp77/uFPfn8JJjeb9K52wv0cpz7z/+ah+PsSofn7kKJwvl37+uEs/ n8Kln1/pgvPt1s8/d+v9Qbj1/iHd0F/G9P7Dx/T+JMb0/iXHoL+N6/2Pj9Np c38U4/StuX/KceivHr3/co/en4VH79/SQwVaf/fq/Z97qdc8H4SXLpvnh/TC fPHRE/P84T6KNM8n4dPnl/RRrTbfJvT5xydop3k+ignKM89POQHz1U+t5vnL /fp8Fn7KNM9v6SePNt/Vuf3v+hfF1sCc "]]}, Axes->True, PlotRange->{{-0.1, 1.1}, {-2, 3.4622776601683793`}}, Ticks->{{{-1, FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {-0.5, FormBox[ RowBox[{"-", "0.5`"}], TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}}, {{-2, FormBox[ RowBox[{"-", "2"}], TraditionalForm]}, {-1.5, FormBox[ RowBox[{"-", "1.5`"}], TraditionalForm]}, {-1, FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {-0.5, FormBox[ RowBox[{"-", "0.5`"}], TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}, {1.5, FormBox["1.5`", TraditionalForm]}, {2, FormBox["2", TraditionalForm]}, {2.5, FormBox["2.5`", TraditionalForm]}, {3, FormBox["3", TraditionalForm]}}}]], "Output", CellChangeTimes->{3.4260800179040213`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Thickness", "[", ".02", "]"}], ",", RowBox[{"Line", "[", RowBox[{"pts", "[", "4", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", ".1"}], ",", "1.1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{ SqrtBox["10"], "+", ".3"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", ".5"}], ",", ".5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "1.5"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", ".5"}], ",", ".5", ",", "1", ",", "1.5", ",", "2", ",", "2.5", ",", "3"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.42251434391084*^9, 3.422514363109478*^9}, { 3.422514399375564*^9, 3.4225144277678423`*^9}}], Cell[BoxData[ GraphicsBox[ {GrayLevel[0], Thickness[0.02], LineBox[CompressedData[" 1:eJxdlntMlXUYx3/Y2qxBLlwloIbO6A+7ba1maT4votO2JnlLl6ZEVrDmnKG2 /nC96KSsWQZNvJT3nDpvIV7GTF6Qo4CiXJQ7yDmHyzlw4CAwRDFr7Xyfrb7v P+yz7/s5vO/v9/ye552QvHr+pyOMMWFhxvz7N3T15pv/Xk7w/2wTW8SG2Okh n9giNsRON/nEFrEhdgLkE1vEhtjpIp/YIjbETif5xBaxIXb85BNbxIbY8ZFP bBEbYqeDfGKL2BA77eQTW8SG2Gkjn9giNsROK/nEFrEhdrzkE1vEhtjxkE9s ERtix00+sUVsiJ0W8oktYsP336Gc2G6mnNhuopzYbqSc2G6gnNiup5zYrqOc 2K6lnNiuoZzYrqac2L5NObF9i3Jiu4pyYruScmK7gnJiu5xy5pvEN4jLiK8T XyMuJS4hLia+SnyF2EVcRHyZuJC4gNghvkR8kTiP+ALxOeJc4hzi08THiY8Q HyLeR7yDeBuxTcyXLSPfcc/YsOkM7tsmm+ZUpGaM03XcIe9OiE3uj9F93Cej 31uatd+ldXJIJq23Nm3/WevuiGRlzvbsGK91fFyGwmd0vfCU1v1peTR48sAP K5VzJDE5ImJMnHKubElqfCVqsfrnZN5ju8ObhvX3L8i8ZcXH/hijdZwn8x9c iSn9ROvwoowJVq/9Plvr5pIkrN1QZR/7E+zIhOG7EbHbdd0LpPh+VOLk3gwJ caGcGI5e9W3+WfBl+WVoydD4SS5wkUwfPDblYlQ52CUvxSSE7xpRDb4iKXXr +j6c0wi+KodHJactSXODi2XnqsV9hwOt4BLJ39DQf3erD1wq086fXBe5KAC+ JgeLi/N6n+8FX5f0+ANDMXF94DKpCpuZdm/qAPiGTJ7149HVSYPgmzJx9sfR azKHwOWSmPDbTF/5gxDb5bInc9nJnG/0/goJi046N2o6ft+ukI3nZ21eEavP UynxufJlxoAXeaXkfTTnb39YLfIqWXLqUNurUwqQV0lpev3BPc16bm7JT+lx 07JSsN/2LYnfn5I90Kdz6bY8t2rzQFoivjPs21KwN83/Wbx+91XLgl3jF72Z dBd5tewZvf6NSE8/8hr5+i3XqWcnDiKvkV+feHr56LFDyGslP315fc21+8hr Ze/enEuvvzyMvE66kyJ/H5z6EHmdpFze+GJvP9jUS2HRyJbg+38hr5cLyUdT XHPBpkHM7tSlll/9Bln4xdz5r41Vv1FSK5Z1rPQ+QN4oD0t35p54G89jmsS1 6MmF9ePuIW+SdavPrMj7bgB5s5Q9s2vNuK/0/Zvl8a0Zsw+X6HfpHcl+9Hns B7vxnWLfkS33ihKqzur5asE+4bJaNMd+tagfYqdFfx+eW/9/iC23Ph98tz4/ fLe+H3yPvj98j64PfI+uH3yPri98r64/fK/uD3yv7h98r+4v/Fbdf/itWh/w W7V+4LdqfcFv0/qD36b1Cb9N6xd+m9Y3/Hatf/jtej7gt+v5Ce2X067nC/vX oecvxFaHnk/sd4eeX/gder7h+/T8w/dpf4Dv0/4B36f9Bb5f+w98v/Yn+H7t X/D92t/gd2r/g9+p/RF+p/ZP+J3aX+F3af+F36X9GX6X9m/4Xdrf4Qe0/2P9 AzofsP4BnR/Yv4DOF+xft84f+N06n+B36/yC363zDX6Pzj/4PTof4ffo/ITf o/MVflDnL/ygzmf4QZ3f8IM63+HrHDHmH8FStO0= "]]}, Axes->True, PlotRange->{{-0.1, 1.1}, {-2, 3.4622776601683793`}}, Ticks->{{{-1, FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {-0.5, FormBox[ RowBox[{"-", "0.5`"}], TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}}, {{-2, FormBox[ RowBox[{"-", "2"}], TraditionalForm]}, {-1.5, FormBox[ RowBox[{"-", "1.5`"}], TraditionalForm]}, {-1, FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {-0.5, FormBox[ RowBox[{"-", "0.5`"}], TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}, {1.5, FormBox["1.5`", TraditionalForm]}, {2, FormBox["2", TraditionalForm]}, {2.5, FormBox["2.5`", TraditionalForm]}, {3, FormBox["3", TraditionalForm]}}}]], "Output", CellChangeTimes->{3.426080020804925*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{871, 1125}, WindowMargins->{{Automatic, 29}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, Magnification->1.5, FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (April 20, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 147, 2, 100, "Section"], Cell[CellGroupData[{ Cell[762, 29, 96, 1, 51, "Subsection"], Cell[861, 32, 1231, 41, 145, "Input"], Cell[2095, 75, 1377, 47, 146, "Input"], Cell[3475, 124, 2093, 74, 368, "Input"], Cell[5571, 200, 2434, 86, 394, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[8042, 291, 103, 1, 51, "Subsection"], Cell[8148, 294, 78, 2, 40, "Input"], Cell[CellGroupData[{ Cell[8251, 300, 326, 8, 56, "Input"], Cell[8580, 310, 224, 5, 50, "Output"] }, Open ]], Cell[8819, 318, 566, 15, 42, "Input"], Cell[CellGroupData[{ Cell[9410, 337, 56, 1, 40, "Input"], Cell[9469, 340, 205, 4, 40, "Output"] }, Open ]], Cell[9689, 347, 730, 24, 95, "Input"], Cell[10422, 373, 57, 1, 40, "Input"], Cell[10482, 376, 57, 1, 40, "Input"], Cell[10542, 379, 57, 1, 40, "Input"], Cell[10602, 382, 57, 1, 40, "Input"], Cell[10662, 385, 57, 1, 40, "Input"], Cell[10722, 388, 57, 1, 40, "Input"], Cell[10782, 391, 57, 1, 40, "Input"], Cell[10842, 394, 526, 16, 49, "Input"], Cell[CellGroupData[{ Cell[11393, 414, 199, 5, 65, "Input"], Cell[11595, 421, 350, 13, 78, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11982, 439, 198, 5, 65, "Input"], Cell[12183, 446, 297, 11, 78, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12517, 462, 175, 5, 65, "Input"], Cell[12695, 469, 295, 10, 74, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13027, 484, 122, 2, 40, "Input"], Cell[13152, 488, 149, 4, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13338, 497, 181, 4, 65, "Input"], Cell[13522, 503, 751, 28, 82, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14310, 536, 207, 5, 65, "Input"], Cell[14520, 543, 518, 18, 82, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15075, 566, 253, 5, 65, "Input"], Cell[15331, 573, 848, 31, 79, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16228, 610, 94, 1, 51, "Subsection"], Cell[CellGroupData[{ Cell[16347, 615, 1382, 39, 134, "Input"], Cell[17732, 656, 3733, 71, 670, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[21502, 732, 1227, 35, 134, "Input"], Cell[22732, 769, 2533, 49, 670, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[25302, 823, 1230, 35, 87, "Input"], Cell[26535, 860, 2759, 55, 670, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29331, 920, 1152, 34, 87, "Input"], Cell[30486, 956, 2686, 54, 670, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[33233, 1017, 146, 2, 100, "Section"], Cell[CellGroupData[{ Cell[33404, 1023, 96, 1, 51, "Subsection"], Cell[33503, 1026, 1823, 63, 255, "Input"], Cell[35329, 1091, 2058, 72, 280, "Input"], Cell[37390, 1165, 2474, 88, 390, "Input"], Cell[39867, 1255, 3151, 112, 437, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[43055, 1372, 96, 1, 51, "Subsection"], Cell[43154, 1375, 652, 22, 56, "Input"], Cell[43809, 1399, 490, 16, 49, "Input"], Cell[CellGroupData[{ Cell[44324, 1419, 1168, 35, 134, "Input"], Cell[45495, 1456, 3593, 69, 670, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[49125, 1530, 1169, 35, 134, "Input"], Cell[50297, 1567, 3658, 70, 670, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[53992, 1642, 1300, 37, 157, "Input"], Cell[55295, 1681, 2760, 56, 670, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[58092, 1742, 1223, 36, 157, "Input"], Cell[59318, 1780, 2766, 56, 670, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)