(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 4.0, MathReader 4.0, or any compatible application. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. ***********************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 340299, 8485]*) (*NotebookOutlinePosition[ 355337, 9031]*) (* CellTagsIndexPosition[ 355293, 9027]*) (*WindowFrame->Normal*) Notebook[{ Cell["Linear Stability of Pressure Driven Channel Flow", "Title"], Cell[TextData[{ "This notebook has been written in ", StyleBox["Mathematica ", FontSlant->"Italic"], "by \n\n", StyleBox["Mark J. McCready\nProfessor and Chair of Chemical Engineering\n\ University of Notre Dame\nNotre Dame IN 46556\nUSA", FontSize->14], "\n\nMark.J.McCready.1@nd.edu\nhttp://www.nd.edu/~mjm/\n\n\nIt is \ copyrighted to the extent allowed by whatever laws pertain to the World Wide \ Web and the Internet.\n\nI would hope that as a professional courtesy, that \ if you use it, that this notice remain visible to other users. \nThere is no \ charge for copying and dissemination \n\nVersion: 6/20/99\nMore recent \ versions of this notebook should be available at the web site:\n\ http://www.nd.edu/~mjm/channelflow.nb" }], "Text"], Cell[CellGroupData[{ Cell["Summary", "Subtitle"], Cell[TextData[{ "This notebook gives the Orszag-tau spectral linear stability calculation \ for channel flow.\n\n", StyleBox["Reference: S. A. Orszag (1971) ", "SmallText"], StyleBox["\"Accurate solution of the Orr-Sommerfeld stability equation\", \ Journal of Fluid Mechanics", "SmallText", FontWeight->"Plain"], StyleBox[", ", "SmallText"], StyleBox["50", "SmallText", FontWeight->"Bold"], StyleBox[" ", "SmallText"], StyleBox["pp 689-703", "SmallText", FontWeight->"Plain"], StyleBox[".", "SmallText"], "\n\nThe coefficients of the algebraic equations are computed directly from \ the orthogonality property of the Chebyshev polynomials using integration. \n\ \n", StyleBox["Reference: R. Miesen and B. J. Boersma (1995) \"Hydrodynamic \ stability of a sheared liquid film\",", "SmallText"], " ", StyleBox["Journal of Fluid Mechanics", "SmallText", FontWeight->"Plain"], StyleBox[", 301 ", "SmallText"], StyleBox["pp 175-202", "SmallText", FontWeight->"Plain"], StyleBox[".\n\n", "SmallText"], "In the tau method, the solution is approximated with Orthogonal \ polynomials that are valid over the entire domain, as in the Galerkin \ methods. However, in many problems because of the complexity of the boundary \ conditions, it is not possible to make a convenient set of functions exactly \ fit the boundary conditions. To solve this problem, the tau method enforces \ the boundary conditions as additional algebraic equations along with those \ that originate with the differential equation. To obtain the extra degrees \ of freedom that this requires, a requisite number of the highest \ \"frequency\" (i.e. highest n) modes generated from the differential \ equations are not enforced. As long as the number of modes can be made large \ (>10-20) this method will probably work fine. For the long wave region, \ numerical resolution limits the number of modes that can be used in this \ formulation and so there could be some problem getting the tau method to give \ reliable results. " }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " aside" }], "Subsubsection"], Cell["\<\ I have used a mix of input notation to show how it can be done. \ \ \>", "Text"], Cell["\<\ I would enter the dynamic boundary condition from a key pad \ as\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(dc = \(-\ \[Gamma]\)\ D[\[Eta][x, t], {x, 2}]\ - \n\t\t\(\[Rho]\_1\) \((\(-D[\[Phi]\_1[x, y, t], t]\) - U1\ D[\[Phi]\_1[x, y, t], x] - g\ \[Eta][x, t])\) + \n\t\t\t\(\[Rho]\_2\) \((\(-D[\[Phi]\_2[x, y, t], t]\) - \n\t\t\t\t\tU2\ D[\[Phi]\_2[x, y, t], x] - g\ \[Eta][x, t])\)\)], "Input", CellLabel->"In[51]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{\(-\[Gamma]\), " ", RowBox[{ SuperscriptBox["\[Eta]", TagBox[\((2, 0)\), Derivative], MultilineFunction->None], "(", \(x, t\), ")"}]}], "-", RowBox[{\(\[Rho]\_1\), " ", RowBox[{"(", RowBox[{\(\(-g\)\ \(\[Eta](x, t)\)\), "-", RowBox[{ SubsuperscriptBox["\[Phi]", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(x, y, t\), ")"}], "-", RowBox[{"U1", " ", RowBox[{ SubsuperscriptBox["\[Phi]", "1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(x, y, t\), ")"}]}]}], ")"}]}], "+", RowBox[{\(\[Rho]\_2\), " ", RowBox[{"(", RowBox[{\(\(-g\)\ \(\[Eta](x, t)\)\), "-", RowBox[{ SubsuperscriptBox["\[Phi]", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(x, y, t\), ")"}], "-", RowBox[{"U2", " ", RowBox[{ SubsuperscriptBox["\[Phi]", "2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(x, y, t\), ")"}]}]}], ")"}]}]}], TraditionalForm]], "Output", CellLabel->"Out[51]="] }, Open ]], Cell[TextData[{ "In ", StyleBox["Standard form", FontSlant->"Italic"], ", which is a little shorter, you would need the type set window to make \ this practical. " }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(dc = \(-\((\[Gamma]\ \[PartialD]\_{x, 2}\[Eta][x, t])\)\) - \[Rho]\_1\ \((\(-\[PartialD]\_t \[Phi]\_1[x, y, t]\) - U1\ \[PartialD]\_x \[Phi]\_1[x, y, t] - g\ \[Eta][x, t])\) + \[Rho]\_2\ \((\(-\[PartialD]\_t \[Phi]\_2[x, y, t]\) - U2\ \[PartialD]\_x \[Phi]\_2[x, y, t] - g\ \[Eta][x, t])\)\)], "Input", CellLabel->"In[53]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{\(-\[Gamma]\), " ", RowBox[{ SuperscriptBox["\[Eta]", TagBox[\((2, 0)\), Derivative], MultilineFunction->None], "(", \(x, t\), ")"}]}], "-", RowBox[{\(\[Rho]\_1\), " ", RowBox[{"(", RowBox[{\(\(-g\)\ \(\[Eta](x, t)\)\), "-", RowBox[{ SubsuperscriptBox["\[Phi]", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(x, y, t\), ")"}], "-", RowBox[{"U1", " ", RowBox[{ SubsuperscriptBox["\[Phi]", "1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(x, y, t\), ")"}]}]}], ")"}]}], "+", RowBox[{\(\[Rho]\_2\), " ", RowBox[{"(", RowBox[{\(\(-g\)\ \(\[Eta](x, t)\)\), "-", RowBox[{ SubsuperscriptBox["\[Phi]", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(x, y, t\), ")"}], "-", RowBox[{"U2", " ", RowBox[{ SubsuperscriptBox["\[Phi]", "2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(x, y, t\), ")"}]}]}], ")"}]}]}], TraditionalForm]], "Output", CellLabel->"Out[53]="] }, Open ]], Cell[TextData[{ "Finally it may be more easily ", StyleBox["read", FontVariations->{"Underline"->True}], " in ", StyleBox["Traditional form", FontSlant->"Italic"], " as" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"dc", "=", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"\[Gamma]", " ", FractionBox[\(\[PartialD]\^2\( \[Eta](x, t)\)\), \(\[PartialD]x\^2\), MultilineFunction->None]}], ")"}]}], "-", RowBox[{\(\[Rho]\_1\), " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[\(\[PartialD]\[Phi]\_1[x, y, t]\), \(\[PartialD]t\), MultilineFunction->None]}], "-", RowBox[{"U1", " ", FractionBox[\(\[PartialD]\[Phi]\_1[x, y, t]\), \(\[PartialD]x\), MultilineFunction->None]}], "-", \(g\ \(\[Eta](x, t)\)\)}], ")"}]}], "+", RowBox[{\(\[Rho]\_2\), " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[\(\[PartialD]\[Phi]\_2[x, y, t]\), \(\[PartialD]t\), MultilineFunction->None]}], "-", RowBox[{"U2", " ", FractionBox[\(\[PartialD]\[Phi]\_2[x, y, t]\), \(\[PartialD]x\), MultilineFunction->None]}], "-", \(g\ \(\[Eta](x, t)\)\)}], ")"}]}]}]}], TraditionalForm]], "Input", CellLabel->"In[52]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{\(-\[Gamma]\), " ", RowBox[{ SuperscriptBox["\[Eta]", TagBox[\((2, 0)\), Derivative], MultilineFunction->None], "(", \(x, t\), ")"}]}], "-", RowBox[{\(\[Rho]\_1\), " ", RowBox[{"(", RowBox[{\(\(-g\)\ \(\[Eta](x, t)\)\), "-", RowBox[{ SubsuperscriptBox["\[Phi]", "1", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(x, y, t\), ")"}], "-", RowBox[{"U1", " ", RowBox[{ SubsuperscriptBox["\[Phi]", "1", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(x, y, t\), ")"}]}]}], ")"}]}], "+", RowBox[{\(\[Rho]\_2\), " ", RowBox[{"(", RowBox[{\(\(-g\)\ \(\[Eta](x, t)\)\), "-", RowBox[{ SubsuperscriptBox["\[Phi]", "2", TagBox[\((0, 0, 1)\), Derivative], MultilineFunction->None], "(", \(x, y, t\), ")"}], "-", RowBox[{"U2", " ", RowBox[{ SubsuperscriptBox["\[Phi]", "2", TagBox[\((1, 0, 0)\), Derivative], MultilineFunction->None], "(", \(x, y, t\), ")"}]}]}], ")"}]}]}], TraditionalForm]], "Output", CellLabel->"Out[52]="] }, Open ]], Cell["\<\ Note that you can convert any \"cryptic\" input expression by \ selecting the cell, going up to the cell menu and selecting \"convert to \ traditional form\". This is \"shift curly t\" on the keypad. \ \>", "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ This section expands the terms of the Orr-Sommerfeld equation in \ terms of the Chebyshev polynomials and gets the coefficients using the \ orthogonality.\ \>", "Subtitle", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ We need use only even modes because the boundary conditions are \ symmetric. There are then two boundary conditions, no slip and no flow \ through the wall, thus we will drop off the two highest equations produced \ from substitution of the Chebyshev's in the ODE.\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ To do some of the integrals, we need to extend the limit of \ internal recursion. I don't know why!!\ \>", "Text"], Cell[BoxData[ \(\($RecursionLimit = Infinity;\)\)], "Input", CellLabel->"In[212]:="], Cell["\<\ Here is the start of the calculations. In this example we use nn/2 +1 modes. \ \>", "Text"], Cell[BoxData[ \(\(nn = 16;\)\)], "Input", CellLabel->"In[213]:=", AspectRatioFixed->True], Cell[BoxData[ \(\(nx = nn\/2 + 1;\)\)], "Input", CellLabel->"In[214]:=", AspectRatioFixed->True], Cell[CellGroupData[{ Cell["\<\ Here is the second derivative term of the Orr-Sommerfeld equation \ \ \>", "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(TD = \(-2\)\ \(\[Alpha]\^2\) D[vv[y, i], {y, 2}]\)], "Input", CellLabel->"In[266]:=", AspectRatioFixed->True], Cell[BoxData[ FormBox[ RowBox[{\(-2\), " ", \(\[Alpha]\^2\), " ", RowBox[{ SuperscriptBox["vv", TagBox[\((2, 0)\), Derivative], MultilineFunction->None], "(", \(y, i\), ")"}]}], TraditionalForm]], "Output", CellLabel->"Out[266]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(td1 = TD /. {vv[y, i] \[Rule] a[i]\ ChebyshevT[i, y], \[PartialD]\_{y, 2}vv[y, i] \[Rule] \[PartialD]\_{y, 2}\((a[i]\ ChebyshevT[i, y])\), \[PartialD]\_{y, 4}vv[y, i] \[Rule] \[PartialD]\_{y, 4}\((a[i]\ ChebyshevT[i, y])\)}\)], "Input", CellLabel->"In[267]:=", AspectRatioFixed->True], Cell[BoxData[ \(TraditionalForm\`\(-\(\(2\ i\ \[Alpha]\^2\ \(a( i)\)\ \((i\ \(\(T\_i\)(y)\) - y\ \(\(U\_\(i - 1\)\)(y)\))\)\)\/\(y\^2 - 1\)\)\)\)], "Output",\ CellLabel->"Out[267]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(temp2 = Sum[td1, {i, 0, nn, 2}];\)\)], "Input", CellLabel->"In[268]:=", AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(temp2a = Simplify[temp2]\)], "Input", CellLabel->"In[269]:=", AspectRatioFixed->True], Cell[BoxData[ \(TraditionalForm\`\(-8\)\ \[Alpha]\^2\ \((1966080\ \(a(16)\)\ y\^14 + 372736\ \(a(14)\)\ y\^12 - 5963776\ \(a(16)\)\ y\^12 + 67584\ \(a(12)\)\ y\^10 - 946176\ \(a(14)\)\ y\^10 + 7028736\ \(a(16)\)\ y\^10 + 11520\ \(a(10)\)\ y\^8 - 138240\ \(a(12)\)\ y\^8 + 887040\ \(a(14)\)\ y\^8 - 4055040\ \(a(16)\)\ y\^8 + 1792\ \(a(8)\)\ y\^6 - 17920\ \(a(10)\)\ y\^6 + 96768\ \(a(12)\)\ y\^6 - 376320\ \(a(14)\)\ y\^6 + 1182720\ \(a(16)\)\ y\^6 + 240\ \(a(6)\)\ y\^4 - 1920\ \(a(8)\)\ y\^4 + 8400\ \(a(10)\)\ y\^4 - 26880\ \(a(12)\)\ y\^4 + 70560\ \(a(14)\)\ y\^4 - 161280\ \(a(16)\)\ y\^4 - 144\ \(a(6)\)\ y\^2 + 480\ \(a(8)\)\ y\^2 - 1200\ \(a(10)\)\ y\^2 + 2520\ \(a(12)\)\ y\^2 - 4704\ \(a(14)\)\ y\^2 + 8064\ \(a(16)\)\ y\^2 + a(2) + 4\ \((6\ y\^2 - 1)\)\ \(a(4)\) + 9\ \(a(6)\) - 16\ \(a(8)\) + 25\ \(a(10)\) - 36\ \(a(12)\) + 49\ \(a(14)\) - 64\ \(a(16)\))\)\)], "Output", CellLabel->"Out[269]="] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Here is the fourth derivative term of the Orr-Sommerfeld equation \ \ \>", "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(FD = D[vv[y, i], {y, 4}]\)], "Input", CellLabel->"In[271]:=", AspectRatioFixed->True], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["vv", TagBox[\((4, 0)\), Derivative], MultilineFunction->None], "(", \(y, i\), ")"}], TraditionalForm]], "Output", CellLabel->"Out[271]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(fd1 = FullSimplify[ FD /. {vv[y, i] \[Rule] a[i]\ ChebyshevT[i, y], \[PartialD]\_{y, 2}vv[y, i] \[Rule] \[PartialD]\_{y, 2}\((a[i]\ ChebyshevT[i, y])\), \[PartialD]\_{y, 4}vv[y, i] \[Rule] \[PartialD]\_{y, 4}\((a[i]\ ChebyshevT[i, y])\)}]\)], "Input", CellLabel->"In[272]:=", AspectRatioFixed->True], Cell[BoxData[ \(TraditionalForm\`\(i\ \(a(i)\)\ \((i\ \((\((y\^2 - 1)\)\ i\^2 + 11\ \ y\^2 + 4)\)\ \(\(T\_i\)(y)\) - 3\ y\ \((2\ \((y\^2 - 1)\)\ i\^2 + 2\ y\^2 + \ 3)\)\ \(\(U\_\(i - 1\)\)(y)\))\)\)\/\((y\^2 - 1)\)\^3\)], "Output", CellLabel->"Out[272]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"temp4", "=", RowBox[{ UnderoverscriptBox["\[Sum]", GridBox[{ {\(i = 0\)}, {\(\[CapitalDelta]\[MediumSpace]i = 2\)} }], "nn"], "fd1"}]}], ";"}]], "Input", CellLabel->"In[273]:=", AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(temp4a = Simplify[temp4]\)], "Input", CellLabel->"In[274]:=", AspectRatioFixed->True], Cell[BoxData[ \(TraditionalForm\`192\ \((7454720\ \(a(16)\)\ y\^12 + 1025024\ \(a(14)\)\ y\^10 - 16400384\ \(a(16)\)\ y\^10 + 126720\ \(a(12)\)\ y\^8 - 1774080\ \(a(14)\)\ y\^8 + 13178880\ \(a(16)\)\ y\^8 + 13440\ \(a(10)\)\ y\^6 - 161280\ \(a(12)\)\ y\^6 + 1034880\ \(a(14)\)\ y\^6 - 4730880\ \(a(16)\)\ y\^6 + 1120\ \(a(8)\)\ y\^4 - 11200\ \(a(10)\)\ y\^4 + 60480\ \(a(12)\)\ y\^4 - 235200\ \(a(14)\)\ y\^4 + 739200\ \(a(16)\)\ y\^4 - 480\ \(a(8)\)\ y\^2 + 2100\ \(a(10)\)\ y\^2 - 6720\ \(a(12)\)\ y\^2 + 17640\ \(a(14)\)\ y\^2 - 40320\ \(a(16)\)\ y\^2 + a(4) + \((60\ y\^2 - 6)\)\ \(a(6)\) + 20\ \(a(8)\) - 50\ \(a(10)\) + 105\ \(a(12)\) - 196\ \(a(14)\) + 336\ \(a(16)\))\)\)], "Output", CellLabel->"Out[274]="] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Here is the zero derivative term of the Orr-Sommerfeld equation \ \ \>", "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(ZD = \[Alpha]\^4\ vv[y, i]\)], "Input", CellLabel->"In[275]:=", AspectRatioFixed->True], Cell[BoxData[ \(TraditionalForm\`\[Alpha]\^4\ \(vv(y, i)\)\)], "Output", CellLabel->"Out[275]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(z00d = Table[a00d[i] = \[Alpha]\^4\ a[i], {i, 0, nn, 2}]\)], "Input", CellLabel->"In[276]:=", AspectRatioFixed->True], Cell[BoxData[ \(TraditionalForm\`{\[Alpha]\^4\ \(a(0)\), \[Alpha]\^4\ \(a( 2)\), \[Alpha]\^4\ \(a(4)\), \[Alpha]\^4\ \(a( 6)\), \[Alpha]\^4\ \(a(8)\), \[Alpha]\^4\ \(a( 10)\), \[Alpha]\^4\ \(a(12)\), \[Alpha]\^4\ \(a( 14)\), \[Alpha]\^4\ \(a(16)\)}\)], "Output", CellLabel->"Out[276]="] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Here is the rest of the Orr-Sommerfeld equation ", "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(XD = \(-I\)\ \[Alpha]\ rr \((\((U\&\[HorizontalLine][ y] - \[Lambda])\)\ \((\[PartialD]\_{y, 2}vv[y, i] - \[Alpha]\^2\ vv[y, i])\) - \[PartialD]\_{y, 2}U\&\[HorizontalLine][y]\ vv[ y, i])\)\)], "Input", CellLabel->"In[277]:=", AspectRatioFixed->True], Cell[BoxData[ FormBox[ RowBox[{\(-\[ImaginaryI]\), " ", "rr", " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{\((\(U\&\[HorizontalLine]\)(y) - \[Lambda])\), " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["vv", TagBox[\((2, 0)\), Derivative], MultilineFunction->None], "(", \(y, i\), ")"}], "-", \(\[Alpha]\^2\ \(vv(y, i)\)\)}], ")"}]}], "-", RowBox[{\(vv(y, i)\), " ", RowBox[{ SuperscriptBox[\(U\&\[HorizontalLine]\), "\[Prime]\[Prime]", MultilineFunction->None], "(", "y", ")"}]}]}], ")"}]}], TraditionalForm]], "Output", CellLabel->"Out[277]="] }, Open ]], Cell[TextData[{ "We can substitute the average profile and the ", Cell[BoxData[ \(U\&\[HorizontalLine]\)]], "''(y)" }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(xd1 = XD /. {U\&\[HorizontalLine][y] \[Rule] 1 - y\^2, \(\(U\&\[HorizontalLine]'\)'\)[ y] \[Rule] \[PartialD]\_{y, 2}\((1 - y\^2)\)}\)], "Input", CellLabel->"In[278]:=", AspectRatioFixed->True], Cell[BoxData[ FormBox[ RowBox[{\(-\[ImaginaryI]\), " ", "rr", " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{\(2\ \(vv(y, i)\)\), "+", RowBox[{\((\(-y\^2\) - \[Lambda] + 1)\), " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["vv", TagBox[\((2, 0)\), Derivative], MultilineFunction->None], "(", \(y, i\), ")"}], "-", \(\[Alpha]\^2\ \(vv(y, i)\)\)}], ")"}]}]}], ")"}]}], TraditionalForm]], "Output", CellLabel->"Out[278]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(xd2 = xd1 /. {vv[y, i] \[Rule] a[i]\ ChebyshevT[i, y], \[PartialD]\_{y, 2}vv[y, i] \[Rule] \[PartialD]\_{y, 2}\((a[i]\ ChebyshevT[i, y])\), \[PartialD]\_{y, 4}vv[y, i] \[Rule] \[PartialD]\_{y, 4}\((a[i]\ ChebyshevT[i, y])\)}\)], "Input", CellLabel->"In[279]:=", AspectRatioFixed->True], Cell[BoxData[ \(TraditionalForm\`\(-\[ImaginaryI]\)\ rr\ \[Alpha]\ \((2\ \(a( i)\)\ \(\(T\_i\)( y)\) + \((\(-y\^2\) - \[Lambda] + 1)\)\ \((\(i\ \(a(i)\)\ \((i\ \(\(T\_i\)(y)\) - y\ \(\(U\_\(i \ - 1\)\)(y)\))\)\)\/\(y\^2 - 1\) - \[Alpha]\^2\ \(a(i)\)\ \(\(T\_i\)( y)\))\))\)\)], "Output", CellLabel->"Out[279]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"tempxd", "=", RowBox[{ UnderoverscriptBox["\[Sum]", GridBox[{ {\(i = 0\)}, {\(\[CapitalDelta]\[MediumSpace]i = 2\)} }], "nn"], "xd2"}]}], ";"}]], "Input", CellLabel->"In[280]:=", AspectRatioFixed->True], Cell[BoxData[ \(\(tempxda = Simplify[tempxd];\)\)], "Input", CellLabel->"In[281]:="] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Here are the boundary conditions.", "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ RowBox[{ RowBox[{"vexpand", "=", RowBox[{ UnderoverscriptBox["\[Sum]", GridBox[{ {\(i = 0\)}, {\(\[CapitalDelta]\[MediumSpace]i = 2\)} }], "nn"], \(a[i]\ ChebyshevT[i, y]\)}]}], ";"}]], "Input", CellLabel->"In[282]:=", AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(bc1 = vexpand /. {y \[Rule] \(-1\)}\)], "Input", CellLabel->"In[283]:=", AspectRatioFixed->True], Cell[BoxData[ \(TraditionalForm\`a(0) + a(2) + a(4) + a(6) + a(8) + a(10) + a(12) + a(14) + a(16)\)], "Output", CellLabel->"Out[283]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(bc2 = \[PartialD]\_y vexpand /. {y \[Rule] \(-1\)}\)], "Input", CellLabel->"In[284]:=", AspectRatioFixed->True], Cell[BoxData[ \(TraditionalForm\`\(-4\)\ \(a(2)\) - 16\ \(a(4)\) - 36\ \(a(6)\) - 64\ \(a(8)\) - 100\ \(a(10)\) - 144\ \(a(12)\) - 196\ \(a(14)\) - 256\ \(a(16)\)\)], "Output", CellLabel->"Out[284]="] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Here is where we use orthogonality", "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell["First get all of the pieces that we need to integrate", "Text"], Cell[BoxData[ \(\(orthog1 = temp2a + temp4a + tempxda;\)\)], "Input", CellLabel->"In[285]:="], Cell["\<\ Now form the products that would need to be integrated. First in \ terms of c[i]\ \>", "Text"], Cell[BoxData[ \(\(orthog2 = \(orthog1\ 1\/\@\(1 - y\^2\)\ ChebyshevT[i, y]\ \ 2\)\/\(\[Pi]\ c[i]\);\)\)], "Input", CellLabel->"In[286]:=", AspectRatioFixed->True], Cell["Now make all of the possible combinations.", "Text"], Cell[BoxData[ \(\(orthog3 = Table[orthog2, {i, 0, nn, 2}];\)\)], "Input", CellLabel->"In[287]:=", AspectRatioFixed->True], Cell["Let's get rid of the c[i]'s", "Text"], Cell[BoxData[ \(\(orthog4 = \((orthog3 /. c[0] \[Rule] 2)\) /. Table[c[i] \[Rule] 1, {i, 2, nn, 2}];\)\)], "Input", CellLabel->"In[288]:=", AspectRatioFixed->True], Cell[TextData[{ "At this point, we could just integrate \"temp7\" from -1 to 1 and we would \ have the desired algebraic equations. However the integration is very slow \ for a lot of terms and we need to speed it up. To do this, we factor out the \ common terms. These are all of the form ", Cell[BoxData[ \(\(\(\ \)\(y\^\(2 n\)\)\)\)]], "/ \[Sqrt](1-", Cell[BoxData[ \(\(\(y\^2\)\()\)\)\)]], ". We first collect the terms in powers of y. We use only the numerator \ for this so that the ", StyleBox["collect", FontSlant->"Italic"], " works. " }], "Text"], Cell["orthog5=Collect[Expand[Numerator[orthog4]],y];", "Input", CellLabel->"In[289]:="], Cell[TextData[{ "Here is where we factor them out. The Transpose is needed to put the \ matrix back in the form that would multiply a column vector of the ", Cell[BoxData[ \(\(\(\ \)\(y\^\(2 n\)\)\)\)]], "/ \[Sqrt](1-", Cell[BoxData[ \(\(\(y\^2\)\()\)\)\)]], "'s. " }], "Text"], Cell["\<\ orthog6=Transpose[Table[Coefficient[orthog5,y,i],{i,0,2 \ nn,2}]];\ \>", "Input", CellLabel->"In[290]:="], Cell["Here is what we integrate:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(orthog7 = Table[y\^i\/\(\[Pi]\ \@\(1 - y\^2\)\), {i, 0, 2\ nn, 2}]\)], "Input", CellLabel->"In[291]:="], Cell[BoxData[ \(TraditionalForm\`{1\/\(\[Pi]\ \@\(1 - y\^2\)\), y\^2\/\(\[Pi]\ \@\(1 - y\^2\)\), y\^4\/\(\[Pi]\ \@\(1 - y\^2\)\), y\^6\/\(\[Pi]\ \@\(1 - y\^2\)\), y\^8\/\(\[Pi]\ \@\(1 - y\^2\)\), y\^10\/\(\[Pi]\ \@\(1 - y\^2\)\), y\^12\/\(\[Pi]\ \@\(1 - y\^2\)\), y\^14\/\(\[Pi]\ \@\(1 - y\^2\)\), y\^16\/\(\[Pi]\ \@\(1 - y\^2\)\), y\^18\/\(\[Pi]\ \@\(1 - y\^2\)\), y\^20\/\(\[Pi]\ \@\(1 - y\^2\)\), y\^22\/\(\[Pi]\ \@\(1 - y\^2\)\), y\^24\/\(\[Pi]\ \@\(1 - y\^2\)\), y\^26\/\(\[Pi]\ \@\(1 - y\^2\)\), y\^28\/\(\[Pi]\ \@\(1 - y\^2\)\), y\^30\/\(\[Pi]\ \@\(1 - y\^2\)\), y\^32\/\(\[Pi]\ \@\(1 - y\^2\)\)}\)], "Output", CellLabel->"Out[291]="] }, Open ]], Cell["Here is the integration showing the time it takes. ", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Timing[ orthog8 = \[Integral]\_\(-1\)\%1 orthog7 \[DifferentialD]y]\)], "Input",\ CellLabel->"In[292]:="], Cell[BoxData[ \(TraditionalForm\`{4.716666666666697`\ Second, {1, 1\/2, 3\/8, 5\/16, 35\/128, 63\/256, 231\/1024, 429\/2048, 6435\/32768, 12155\/65536, 46189\/262144, 88179\/524288, 676039\/4194304, 1300075\/8388608, 5014575\/33554432, 9694845\/67108864, 300540195\/2147483648}}\)], "Output", CellLabel->"Out[292]="] }, Open ]], Cell["\<\ Now multiply the coefficients times the integrated polynomial \ pieces. \ \>", "Text"], Cell["orthog9= Simplify[Expand[orthog6.orthog8]]; ", "Input", CellLabel->"In[293]:="] }, Open ]], Cell[CellGroupData[{ Cell["Tau solution method", "Subsubsection"], Cell["\<\ We solve for the two highest coefficients because the two highest \ modes are dropped from the matrix of the differential equation mode \ coefficients (the Tau method). The boundary conditions replace these modes \ assure that the BC's are satisfied. However, the BC equations do not contain \ the eigen value and thus must be eliminated algebraically before solving the \ eigenvalue problem.\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(bcsolve = Solve[{bc1 == 0, bc2 == 0}, {a[nn], a[nn - 2]}]\)], "Input", CellLabel->"In[294]:=", AspectRatioFixed->True], Cell[BoxData[ \(TraditionalForm\`{{a(16) \[Rule] 1\/15\ \((49\ \(a(0)\) + 48\ \(a(2)\) + 45\ \(a(4)\) + 40\ \(a(6)\) + 33\ \(a(8)\) + 24\ \(a(10)\) + 13\ \(a(12)\))\), a(14) \[Rule] 1\/15\ \((\(-64\)\ \(a(0)\) - 63\ \(a(2)\) - 60\ \(a(4)\) - 55\ \(a(6)\) - 48\ \(a(8)\) - 39\ \(a(10)\) - 28\ \(a(12)\))\)}}\)], "Output", CellLabel->"Out[294]="] }, Open ]], Cell[TextData[ "Here is the table of coefficient equations from the O-S equation"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ \(\(dcoefs = orthog9\ + \ z00d;\)\)], "Input", CellLabel->"In[295]:=", AspectRatioFixed->True], Cell[TextData[ "Here is where we use the boundary conditions to replace the two highest \ coefficients."], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ \(\(dcoefsub = dcoefs /. bcsolve\[LeftDoubleBracket]1\[RightDoubleBracket];\)\)], "Input", CellLabel->"In[296]:=", AspectRatioFixed->True], Cell[TextData["Here we pick out the number of valid equations"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ \(\(coefs = Expand[Table[ dcoefsub\[LeftDoubleBracket]i\[RightDoubleBracket], {i, 1, nx - 2}]];\)\)], "Input", CellLabel->"In[297]:=", AspectRatioFixed->True], Cell["\<\ Here we construct the matrix that comprises the generalized \ eigenvalue problem AB = (AA - B \[Lambda])\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ \(\(AB = Table[Table[ Coefficient[coefs\[LeftDoubleBracket]j\[RightDoubleBracket], a[i]], {i, 0, nn - 4, 2}], {j, 1, nx - 2}];\)\)], "Input", CellLabel->"In[298]:=", AspectRatioFixed->True], Cell[TextData["The left side matrix will be AA"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ \(\(AA = AB /. \[Lambda] \[Rule] 0;\)\)], "Input", CellLabel->"In[299]:=", AspectRatioFixed->True], Cell[TextData["Now we get BB"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(B = Expand[\(AB - AA\)\/\[Lambda]]\)], "Input", CellLabel->"In[300]:=", AspectRatioFixed->True], Cell[BoxData[ FormBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(\(12544\ \[ImaginaryI]\ rr\ \[Alpha]\)\/15 - \[ImaginaryI]\ rr\ \ \[Alpha]\^3\), \(\(3976\ \[ImaginaryI]\ rr\ \[Alpha]\)\/5\), \(688\ \ \[ImaginaryI]\ rr\ \[Alpha]\), \(\(1616\ \[ImaginaryI]\ rr\ \[Alpha]\)\/3\), \ \(\(1856\ \[ImaginaryI]\ rr\ \[Alpha]\)\/5\), \(\(1048\ \[ImaginaryI]\ rr\ \ \[Alpha]\)\/5\), \(\(1168\ \[ImaginaryI]\ rr\ \[Alpha]\)\/15\)}, {\(\(8512\ \[ImaginaryI]\ rr\ \[Alpha]\)\/5\), \(\(8064\ \ \[ImaginaryI]\ rr\ \[Alpha]\)\/5 - \[ImaginaryI]\ rr\ \[Alpha]\^3\), \(1392\ \ \[ImaginaryI]\ rr\ \[Alpha]\), \(1088\ \[ImaginaryI]\ rr\ \[Alpha]\), \ \(\(3744\ \[ImaginaryI]\ rr\ \[Alpha]\)\/5\), \(\(2112\ \[ImaginaryI]\ rr\ \ \[Alpha]\)\/5\), \(\(784\ \[ImaginaryI]\ rr\ \[Alpha]\)\/5\)}, {\(1792\ \[ImaginaryI]\ rr\ \[Alpha]\), \(1704\ \[ImaginaryI]\ rr\ \ \[Alpha]\), \(1440\ \[ImaginaryI]\ rr\ \[Alpha] - \[ImaginaryI]\ rr\ \ \[Alpha]\^3\), \(1120\ \[ImaginaryI]\ rr\ \[Alpha]\), \(768\ \[ImaginaryI]\ \ rr\ \[Alpha]\), \(432\ \[ImaginaryI]\ rr\ \[Alpha]\), \(160\ \[ImaginaryI]\ \ rr\ \[Alpha]\)}, {\(\(5824\ \[ImaginaryI]\ rr\ \[Alpha]\)\/3\), \(1856\ \ \[ImaginaryI]\ rr\ \[Alpha]\), \(1600\ \[ImaginaryI]\ rr\ \[Alpha]\), \ \(\(3520\ \[ImaginaryI]\ rr\ \[Alpha]\)\/3 - \[ImaginaryI]\ rr\ \ \[Alpha]\^3\), \(800\ \[ImaginaryI]\ rr\ \[Alpha]\), \(448\ \[ImaginaryI]\ rr\ \ \[Alpha]\), \(\(496\ \[ImaginaryI]\ rr\ \[Alpha]\)\/3\)}, {\(\(10752\ \[ImaginaryI]\ rr\ \[Alpha]\)\/5\), \(\(10344\ \ \[ImaginaryI]\ rr\ \[Alpha]\)\/5\), \(1824\ \[ImaginaryI]\ rr\ \[Alpha]\), \ \(1416\ \[ImaginaryI]\ rr\ \[Alpha]\), \(\(4224\ \[ImaginaryI]\ rr\ \ \[Alpha]\)\/5 - \[ImaginaryI]\ rr\ \[Alpha]\^3\), \(\(2352\ \[ImaginaryI]\ rr\ \ \[Alpha]\)\/5\), \(\(864\ \[ImaginaryI]\ rr\ \[Alpha]\)\/5\)}, {\(\(12096\ \[ImaginaryI]\ rr\ \[Alpha]\)\/5\), \(\(11712\ \ \[ImaginaryI]\ rr\ \[Alpha]\)\/5\), \(2112\ \[ImaginaryI]\ rr\ \[Alpha]\), \ \(1728\ \[ImaginaryI]\ rr\ \[Alpha]\), \(\(5952\ \[ImaginaryI]\ rr\ \ \[Alpha]\)\/5\), \(\(2496\ \[ImaginaryI]\ rr\ \[Alpha]\)\/5 - \[ImaginaryI]\ \ rr\ \[Alpha]\^3\), \(\(912\ \[ImaginaryI]\ rr\ \[Alpha]\)\/5\)}, {\(\(41216\ \[ImaginaryI]\ rr\ \[Alpha]\)\/15\), \(\(13384\ \ \[ImaginaryI]\ rr\ \[Alpha]\)\/5\), \(2464\ \[ImaginaryI]\ rr\ \[Alpha]\), \(\ \(6328\ \[ImaginaryI]\ rr\ \[Alpha]\)\/3\), \(\(8064\ \[ImaginaryI]\ rr\ \ \[Alpha]\)\/5\), \(\(4872\ \[ImaginaryI]\ rr\ \[Alpha]\)\/5\), \(\(2912\ \ \[ImaginaryI]\ rr\ \[Alpha]\)\/15 - \[ImaginaryI]\ rr\ \[Alpha]\^3\)} }], "\[NoBreak]", ")"}], TraditionalForm]], "Output", CellLabel->"Out[300]="] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Now get numbers, so we finish it numerically.", "Subsubsection"], Cell["\<\ At this point we start doing things numerically. First choose \[Alpha] and Reynolds number\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[{ \(\(alfx = 1.02056;\)\), "\n", \(\(rrx = 5772.22;\)\)}], "Input", CellLabel->"In[301]:=", AspectRatioFixed->True], Cell[BoxData[ \(\(BN = B /. {\[Alpha] \[Rule] alfx, rr \[Rule] rrx};\)\)], "Input", CellLabel->"In[303]:=", AspectRatioFixed->True], Cell["Here is the calculation of Binverse to solve the GEP.", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ \(\(Binv = Inverse[N[\(-BN\)]];\)\)], "Input", CellLabel->"In[304]:=", AspectRatioFixed->True], Cell["Here is the matrix of the now regular eigenvalue problem", "Text", Evaluatable->False, AspectRatioFixed->True], Cell["Binv.AA = AZ", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ \(\(AZ = Binv . AA;\)\)], "Input", CellLabel->"In[305]:=", AspectRatioFixed->True], Cell["Now make it numerical for sure", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(N[AZ /. {\[Alpha] \[Rule] alfx, rr \[Rule] rrx}]\)], "Input", CellLabel->"In[306]:=", AspectRatioFixed->True], Cell[BoxData[ FormBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(\(-0.2181454194426975`\) - 5.340932249314278`\ \[ImaginaryI]\), \(\(-0.4739489943165982`\ \) - 5.1794970248713526`\ \[ImaginaryI]\), \(\(\(0.19384736485893436`\)\(\ \[InvisibleSpace]\)\) - 4.702164798799268`\ \[ImaginaryI]\), \ \(\(\(0.08268474279074621`\)\(\[InvisibleSpace]\)\) - 3.935445465638595`\ \[ImaginaryI]\), \ \(\(\(0.03459664242062902`\)\(\[InvisibleSpace]\)\) - 2.937477996426217`\ \[ImaginaryI]\), \ \(\(\(0.014923127341173955`\)\(\[InvisibleSpace]\)\) - 1.814271257253478`\ \[ImaginaryI]\), \ \(\(\(0.005209373843963802`\)\(\[InvisibleSpace]\)\) - 0.7426886828876178`\ \[ImaginaryI]\)}, {\(\(\(0.1932880476120733`\)\(\[InvisibleSpace]\)\) - 0.9284112239954254`\ \[ImaginaryI]\), \ \(\(\(0.4592159839170069`\)\(\[InvisibleSpace]\)\) - 0.9064436933016395`\ \[ImaginaryI]\), \ \(\(-0.6332547083719055`\) - 0.833719427027674`\ \[ImaginaryI]\), \ \(\(\(0.0094176025714802`\)\(\[InvisibleSpace]\)\) - 0.7094508989869561`\ \[ImaginaryI]\), \ \(\(\(0.0076054706996484985`\)\(\[InvisibleSpace]\)\) - 0.5391271240017508`\ \[ImaginaryI]\), \ \(\(\(0.003313226218352493`\)\(\[InvisibleSpace]\)\) - 0.3390431069242677`\ \[ImaginaryI]\), \ \(\(\(0.0011567050109526644`\)\(\[InvisibleSpace]\)\) - 0.14122662760307036`\ \[ImaginaryI]\)}, {\(\(\(0.014540329178631455`\)\(\[InvisibleSpace]\)\) + 0.2786656949798365`\ \[ImaginaryI]\), \ \(\(-0.009217657525077971`\) + 0.2645108215042171`\ \[ImaginaryI]\), \ \(\(\(0.494028608532808`\)\(\[InvisibleSpace]\)\) + 0.22182674256863777`\ \[ImaginaryI]\), \ \(\(-0.49143066043015743`\) + 0.17137103708262913`\ \[ImaginaryI]\), \ \(\(-0.0019070728340717367`\) + 0.1163976507947812`\ \[ImaginaryI]\), \ \(\(\(0.00005995766322319992`\)\(\[InvisibleSpace]\)\) + 0.06471890842579961`\ \[ImaginaryI]\), \ \(\(\(0.000024232082595529724`\)\(\[InvisibleSpace]\)\) + 0.023640366599757937`\ \[ImaginaryI]\)}, {\(\(\(0.00012430985315731809`\)\(\[InvisibleSpace]\)\) + 0.32933362734602495`\ \[ImaginaryI]\), \ \(\(\(0.002059260351000577`\)\(\[InvisibleSpace]\)\) + 0.3148545932105675`\ \[ImaginaryI]\), \ \(\(-0.0858233058899172`\) + 0.27141712639432214`\ \[ImaginaryI]\), \ \(\(\(0.49869250309836055`\)\(\[InvisibleSpace]\)\) + 0.19884320156177182`\ \[ImaginaryI]\), \ \(\(-0.41424193616743943`\) + 0.13568555021179307`\ \[ImaginaryI]\), \ \(\(-0.0007568600527017367`\) + 0.07597732196995038`\ \[ImaginaryI]\), \ \(\(-1.977375923259535`*^-6\) + 0.028036408253185534`\ \[ImaginaryI]\)}, {\(\(-7.038108361555495`*^-6\) + 0.3656889412045334`\ \[ImaginaryI]\), \(3.97979435599239`*^-6 \ + 0.3518194776032695`\ \[ImaginaryI]\), \(\(\(0.0007534479859122209`\)\(\ \[InvisibleSpace]\)\) + 0.31021114746816`\ \[ImaginaryI]\), \ \(\(-0.1260332640770029`\) + 0.24086480807150856`\ \[ImaginaryI]\), \ \(\(\(0.499596329845851`\)\(\[InvisibleSpace]\)\) + 0.14360733363004297`\ \[ImaginaryI]\), \ \(\(-0.3739813211666757`\) + 0.08009025709210182`\ \[ImaginaryI]\), \ \(\(-0.00035761976007740726`\) + 0.029433553367043907`\ \[ImaginaryI]\)}, {\(\(-0.002122041838082141`\) + 0.5924815437184174`\ \[ImaginaryI]\), \ \(\(-0.0015380592852756786`\) + 0.5745339010589814`\ \[ImaginaryI]\), \ \(\(-0.0010240638493073902`\) + 0.520708355953936`\ \[ImaginaryI]\), \ \(\(-0.0006772434591106215`\) + 0.43124548314873506`\ \[ImaginaryI]\), \ \(\(-0.15137447742967017`\) + 0.30717432763802144`\ \[ImaginaryI]\), \ \(\(\(0.49926507090620625`\)\(\[InvisibleSpace]\)\) + 0.15107772983608125`\ \[ImaginaryI]\), \ \(\(-0.3497013525110946`\) + 0.05892515172359303`\ \[ImaginaryI]\)}, {\(\(\(0.1655024739964026`\)\(\[InvisibleSpace]\)\) + 77.67705560854012`\ \[ImaginaryI]\), \ \(\(\(0.3968236667956112`\)\(\[InvisibleSpace]\)\) + 75.57964830707513`\ \[ImaginaryI]\), \ \(\(\(0.5641873726151719`\)\(\[InvisibleSpace]\)\) + 69.29480835663011`\ \[ImaginaryI]\), \ \(\(\(0.4775450999585806`\)\(\[InvisibleSpace]\)\) + 58.92470018601246`\ \[ImaginaryI]\), \ \(\(\(0.43901284205510055`\)\(\[InvisibleSpace]\)\) + 44.906326399755244`\ \[ImaginaryI]\), \ \(\(\(0.23942855640950594`\)\(\[InvisibleSpace]\)\) + 28.411620612898133`\ \[ImaginaryI]\), \ \(\(\(0.8717089085062244`\)\(\[InvisibleSpace]\)\) + 11.907400614223537`\ \[ImaginaryI]\)} }, ColumnAlignments->{Decimal}], "\[NoBreak]", ")"}], TraditionalForm]], "Output", CellLabel->"Out[306]="] }, Open ]], Cell["Get the eigenvalues.", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(Eigenvalues[ N[AZ /. {\[Alpha] \[Rule] alfx, rr \[Rule] rrx}]]\)], "Input", CellLabel->"In[307]:=", AspectRatioFixed->True], Cell[BoxData[ \(TraditionalForm\`{\(\(0.13781874566190788`\)\(\[InvisibleSpace]\)\) + 6.77144062525574`\ \[ImaginaryI], \(\(0.9107021703548599`\)\(\ \[InvisibleSpace]\)\) - 0.018777922412493098`\ \[ImaginaryI], \(\(0.7712796532756381`\)\(\ \[InvisibleSpace]\)\) - 0.0019792641271900733`\ \[ImaginaryI], \(\(0.5317802518620064`\)\(\ \[InvisibleSpace]\)\) - 0.1064152402674074`\ \[ImaginaryI], \(\(0.4041554658600684`\)\(\ \[InvisibleSpace]\)\) + 0.03671558467737531`\ \[ImaginaryI], \(\(0.12725782813066597`\)\(\ \[InvisibleSpace]\)\) - 0.2835369207409389`\ \[ImaginaryI], \(\(0.22136787021861387`\)\(\ \[InvisibleSpace]\)\) - 0.02206718318093279`\ \[ImaginaryI]}\)], "Output", CellLabel->"Out[307]="] }, Open ]] }, Open ]], Cell["These are not very accurate!! (See below for the good ones)", "Text"], Cell["Try a different Reynolds number and wavenumber.", "Text"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(alfx = 1;\)\), "\n", \(\(rrx = 10000;\)\)}], "Input", CellLabel->"In[308]:=", AspectRatioFixed->True], Cell[BoxData[ \(\(BN = B /. {\[Alpha] \[Rule] alfx, rr \[Rule] rrx};\)\)], "Input", CellLabel->"In[310]:=", AspectRatioFixed->True], Cell["Here is the calculation of Binverse to solve the GEP.", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ \(\(Binv = Inverse[N[\(-BN\)]];\)\)], "Input", CellLabel->"In[311]:=", AspectRatioFixed->True], Cell[TextData[ "Here is the matrix of the now regular eigenvalue problem"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["Binv.AA = AZ", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ \(\(AZ = Binv . AA;\)\)], "Input", CellLabel->"In[312]:=", AspectRatioFixed->True], Cell[TextData["Now make it numerical for sure"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(N[AZ /. {\[Alpha] \[Rule] alfx, rr \[Rule] rrx}]\)], "Input", CellLabel->"In[313]:=", AspectRatioFixed->True], Cell[BoxData[ FormBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(\(-0.2268049212122134`\) - 3.168485664755451`\ \[ImaginaryI]\), \ \(\(-0.47545162189476287`\) - 3.0727085325400765`\ \[ImaginaryI]\), \ \(\(\(0.1970501447353091`\)\(\[InvisibleSpace]\)\) - 2.789509846916369`\ \[ImaginaryI]\), \ \(\(\(0.08321443589997247`\)\(\[InvisibleSpace]\)\) - 2.3346353003169105`\ \[ImaginaryI]\), \ \(\(\(0.034821937791315795`\)\(\[InvisibleSpace]\)\) - 1.742586244680261`\ \[ImaginaryI]\), \ \(\(\(0.015023395679168588`\)\(\[InvisibleSpace]\)\) - 1.07625748827792`\ \[ImaginaryI]\), \ \(\(\(0.005244613901644252`\)\(\[InvisibleSpace]\)\) - 0.4405702112713403`\ \[ImaginaryI]\)}, {\(\(\(0.20190439918679015`\)\(\[InvisibleSpace]\)\) - 0.5271219670698031`\ \[ImaginaryI]\), \ \(\(\(0.4603017626095658`\)\(\[InvisibleSpace]\)\) - 0.5147843156499619`\ \[ImaginaryI]\), \ \(\(-0.6365537623935018`\) - 0.47373635268306913`\ \[ImaginaryI]\), \ \(\(\(0.00919719049629596`\)\(\[InvisibleSpace]\)\) - 0.403390686942161`\ \[ImaginaryI]\), \ \(\(\(0.007396171427294815`\)\(\[InvisibleSpace]\)\) - 0.3067604493656707`\ \[ImaginaryI]\), \ \(\(\(0.0032213043203881482`\)\(\[InvisibleSpace]\)\) - 0.1930474675327998`\ \[ImaginaryI]\), \ \(\(\(0.0011246548488670451`\)\(\[InvisibleSpace]\)\) - 0.08046570992872351`\ \[ImaginaryI]\)}, {\(\(\(0.014152704503361067`\)\(\[InvisibleSpace]\)\) + 0.1651389105775154`\ \[ImaginaryI]\), \ \(\(-0.008840915563672669`\) + 0.15677035704110054`\ \[ImaginaryI]\), \ \(\(\(0.49419378457006785`\)\(\[InvisibleSpace]\)\) + 0.13154120637194922`\ \[ImaginaryI]\), \ \(\(-0.49176528150331666`\) + 0.10167256752114362`\ \[ImaginaryI]\), \ \(\(-0.0018388267835188835`\) + 0.06910488584304117`\ \[ImaginaryI]\), \ \(\(\(0.00005614689557170004`\)\(\[InvisibleSpace]\)\) + 0.03845583874916687`\ \[ImaginaryI]\), \ \(\(\(0.000022652358417813674`\)\(\[InvisibleSpace]\)\) + 0.014061389623610664`\ \[ImaginaryI]\)}, {\(\(\(0.00011624030005844485`\)\(\[InvisibleSpace]\)\) + 0.1940198861908169`\ \[ImaginaryI]\), \ \(\(\(0.001981375720850791`\)\(\[InvisibleSpace]\)\) + 0.18549004148071088`\ \[ImaginaryI]\), \ \(\(-0.08572420488553031`\) + 0.1599003145530613`\ \[ImaginaryI]\), \ \(\(\(0.49874141156518603`\)\(\[InvisibleSpace]\)\) + 0.11715005998479278`\ \[ImaginaryI]\), \ \(\(-0.4143366331498282`\) + 0.07993797863414676`\ \[ImaginaryI]\), \ \(\(-0.0007273638332652723`\) + 0.0447617824856043`\ \[ImaginaryI]\), \ \(\(-1.8297856161912882`*^-6\) + 0.016517725432907297`\ \[ImaginaryI]\)}, {\(\(-6.439174877104946`*^-6\) + 0.21539413210612993`\ \[ImaginaryI]\), \ \(3.704621834246467`*^-6 + 0.20722456845590595`\ \[ImaginaryI]\), \ \(\(\(0.0007241891077121375`\)\(\[InvisibleSpace]\)\) + 0.18271591092043982`\ \[ImaginaryI]\), \ \(\(-0.12599207518762623`\) + 0.1418686268792726`\ \[ImaginaryI]\), \(\(\(0.49961206876624`\ \)\(\[InvisibleSpace]\)\) + 0.08458471907805887`\ \[ImaginaryI]\), \ \(\(-0.37402140284217056`\) + 0.04716956129822425`\ \[ImaginaryI]\), \ \(\(-0.0003435087707618186`\) + 0.01733446829444254`\ \[ImaginaryI]\)}, {\(\(-0.0020186522929047123`\) + 0.34486535199013424`\ \[ImaginaryI]\), \ \(\(-0.0014720842742083108`\) + 0.3344046755811949`\ \[ImaginaryI]\), \ \(\(-0.0009899841658160798`\) + 0.3030325941930155`\ \[ImaginaryI]\), \ \(\(-0.0006527836202747093`\) + 0.25088561125877235`\ \[ImaginaryI]\), \ \(\(-0.151320938379005`\) + 0.17854676555796156`\ \[ImaginaryI]\), \ \(\(\(0.4992936713156277`\)\(\[InvisibleSpace]\)\) + 0.08747893080270797`\ \[ImaginaryI]\), \ \(\(-0.3497133363025934`\) + 0.03407143505859178`\ \[ImaginaryI]\)}, {\(\(\(0.17398163390688226`\)\(\[InvisibleSpace]\)\) + 45.79906282972988`\ \[ImaginaryI]\), \ \(\(\(0.3990070930898584`\)\(\[InvisibleSpace]\)\) + 44.562304284460424`\ \[ImaginaryI]\), \ \(\(\(0.561321882207682`\)\(\[InvisibleSpace]\)\) + 40.85642776312002`\ \[ImaginaryI]\), \ \(\(\(0.47642600204092933`\)\(\[InvisibleSpace]\)\) + 34.74179754602713`\ \[ImaginaryI]\), \ \(\(\(0.43854805501500693`\)\(\[InvisibleSpace]\)\) + 26.476243890092245`\ \[ImaginaryI]\), \ \(\(\(0.2392274741622165`\)\(\[InvisibleSpace]\)\) + 16.75089771338872`\ \[ImaginaryI]\), \ \(\(\(0.8716333457952963`\)\(\[InvisibleSpace]\)\) + 7.020259153550764`\ \[ImaginaryI]\)} }, ColumnAlignments->{Decimal}], "\[NoBreak]", ")"}], TraditionalForm]], "Output", CellLabel->"Out[313]="] }, Open ]], Cell[TextData["Get the eigenvalues."], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(Eigenvalues[ N[AZ /. {\[Alpha] \[Rule] alfx, rr \[Rule] rrx}]]\)], "Input", CellLabel->"In[314]:=", AspectRatioFixed->True], Cell[BoxData[ \(TraditionalForm\`{\(\(0.13691227220041702`\)\(\[InvisibleSpace]\)\) + 3.9885008174689456`\ \[ImaginaryI], \(\(0.9111884192470301`\)\(\ \[InvisibleSpace]\)\) - 0.013765722904687003`\ \[ImaginaryI], \(\(0.7797111642428857`\)\(\ \[InvisibleSpace]\)\) + 0.018360639373490622`\ \[ImaginaryI], \(\(0.5566749794666989`\)\(\ \[InvisibleSpace]\)\) - 0.12556808488267632`\ \[ImaginaryI], \(\(0.4008961690894505`\)\(\ \[InvisibleSpace]\)\) + 0.09476098052742796`\ \[ImaginaryI], \(\(0.1316813582536444`\)\(\ \[InvisibleSpace]\)\) - 0.19514779259622883`\ \[ImaginaryI], \(\(0.17990676090964547`\)\(\ \[InvisibleSpace]\)\) - 0.00939674760341319`\ \[ImaginaryI]}\)], "Output", CellLabel->"Out[314]="] }, Open ]] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Here is the same calculation but made to run faster numerically by \ using recursion formulas for the coefficients.\ \>", "Subtitle", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(\(nn = 48;\)\)], "Input", CellLabel->"In[315]:=", AspectRatioFixed->True], Cell[BoxData[ \(\(nx = nn\/2 + 1;\)\)], "Input", CellLabel->"In[316]:=", AspectRatioFixed->True], Cell[CellGroupData[{ Cell["\<\ Here is the second derivative term of the Orr-Sommerfeld equation \ \ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(TDcoef = \(-2\)\ \[Alpha]\^2 - I\ \[Alpha]\ rr + I\ \[Alpha]\ \[Lambda]\ rr\)], "Input", CellLabel->"In[317]:=", AspectRatioFixed->True], Cell[BoxData[ \(TraditionalForm\`\(-2\)\ \[Alpha]\^2 - \[ImaginaryI]\ rr\ \[Alpha] + \ \[ImaginaryI]\ rr\ \[Lambda]\ \[Alpha]\)], "Output", CellLabel->"Out[317]="] }, Open ]], Cell[TextData[{ "The recursion formulas to construct the Matrix eigenvalue problem are \ available in Orszag's paper. These are several more that are useful when \ solving the two-layer interfacial eigenvalue problem are given in:\n\n", StyleBox["Primary and Secondary Interfacial Disturbances in Horizontal \ Cocurrent Flows", FontSlant->"Italic"], "\nPh. D. Thesis, \nWilliam C. Kuru\nDepartment of Chemical Engineering\n\ University of Notre Dame\n1995.\n\nNote how these match the ones obtained by \ integration." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ RowBox[{ RowBox[{"z2d", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"TDcoef", " ", RowBox[{ UnderoverscriptBox["\[Sum]", GridBox[{ {\(p = i + 2\)}, {\(\[CapitalDelta]\[MediumSpace]p = 2\)} }], "nn"], \(\(p\ \((p\^2 - i\^2)\)\ a[p]\)\/c[i]\)}]}], ",", \({i, 0, nn, 2}\)}], "]"}]}], ";"}]], "Input", CellLabel->"In[318]:=", AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Here is the fourth derivative term of the Orr-Sommerfeld equation \ \ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ RowBox[{ RowBox[{"z4d", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", GridBox[{ {\(p = i + 4\)}, {\(\[CapitalDelta]\[MediumSpace]p = 2\)} }], "nn"], \(\(p\ \((p\^2\ \((p\^2 - 4)\)\^2 - 3\ i\^2\ p\^4 + 3\ i\^4\ p\^2 - i\^2\ \((i\^2 - 4)\)\^2)\)\ a[ p]\)\/\(24\ c[i]\)\)}], ",", \({i, 0, nn, 2}\)}], "]"}]}], ";"}]], "Input", CellLabel->"In[319]:=", AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Here is the zero derivative term of the Orr-Sommerfeld equation. I \ now have all of the zero derivative terms here. \ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ \(\(z00d = Table[a00d[ i] = \((\[Alpha]\^4 - 2\ I\ \[Alpha]\ rr + I\ \[Alpha]\^3\ rr - I\ \[Alpha]\^3\ \[Lambda]\ rr)\)\ a[i], {i, 0, nn, 2}];\)\)], "Input", CellLabel->"In[320]:=", AspectRatioFixed->True] }, Open ]], Cell[TextData["Here is the y^2 vv[y] term"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(\(zxt = Table[\((c[i - 2]\ a[i - 2] + 2\ a[i] + a[i + 2])\)\ 1\/1, {i, 0, nn - 2, 2}];\)\)], "Input", CellLabel->"In[321]:=", AspectRatioFixed->True], Cell[BoxData[ \(\(z2y = \(-\(1\/4\)\)\ I\ \[Alpha]\^3\ rr\ Append[zxt, a[nn - 2] + a[nn]\ 2];\)\)], "Input", CellLabel->"In[322]:=", AspectRatioFixed->True] }, Open ]], Cell[TextData["Here is the y^2 v''[y] term"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ RowBox[{ RowBox[{"z0d", "=", RowBox[{"I", " ", "\[Alpha]", " ", "rr", " ", RowBox[{"Table", "[", RowBox[{ FractionBox[ RowBox[{\(i\ \((i - 1)\)\ a[i]\), "+", RowBox[{ UnderoverscriptBox["\[Sum]", GridBox[{ {\(j = i + 2\)}, {\(\[CapitalDelta]\[MediumSpace]j = 2\)} }], "nn"], \(j\ \((j\^2 - i\^2 - 2)\)\ a[j]\)}]}], \(c[ i]\)], ",", \({i, 0, nn, 2}\)}], "]"}]}]}], ";"}]], "Input",\ CellLabel->"In[323]:=", AspectRatioFixed->True], Cell[BoxData[ \(\(dcoefs = z4d + z2d + z00d + z0d + z2y;\)\)], "Input", CellLabel->"In[324]:=", AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData["Here are the boundary conditions"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ RowBox[{ RowBox[{"vexpand", "=", RowBox[{ UnderoverscriptBox["\[Sum]", GridBox[{ {\(i = 0\)}, {\(\[CapitalDelta]\[MediumSpace]i = 2\)} }], "nn"], \(a[i]\ ChebyshevT[i, y]\)}]}], ";"}]], "Input", CellLabel->"In[325]:=", AspectRatioFixed->True], Cell[BoxData[ \(\(bc1 = vexpand /. {y \[Rule] \(-1\)};\)\)], "Input", CellLabel->"In[326]:=", AspectRatioFixed->True], Cell[BoxData[ \(\(bc2 = \[PartialD]\_y vexpand /. {y \[Rule] \(-1\)};\)\)], "Input", CellLabel->"In[327]:=", AspectRatioFixed->True] }, Open ]], Cell[BoxData[ \(\(bcsolve = Solve[{bc1 == 0, bc2 == 0}, {a[nn], a[nn - 2]}];\)\)], "Input", CellLabel->"In[328]:=", AspectRatioFixed->True], Cell[BoxData[ \(\(dcoefsub = dcoefs /. bcsolve\[LeftDoubleBracket]1\[RightDoubleBracket];\)\)], "Input", CellLabel->"In[329]:=", AspectRatioFixed->True], Cell[BoxData[ \(\(coefs = Table[dcoefsub\[LeftDoubleBracket]i\[RightDoubleBracket], {i, 1, nx - 2}];\)\)], "Input", CellLabel->"In[330]:=", AspectRatioFixed->True], Cell["Here we replace all of the coefficients.", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ \(\(temp1 = Expand[\ \((coefs /. c[0] \[Rule] 2)\) /. Table[c[i] \[Rule] 1, {i, 2, nn, 2}]];\)\)], "Input", CellLabel->"In[331]:=", AspectRatioFixed->True], Cell[TextData["Here we are back at the matrix"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ \(\(AB = Table[Table[ Coefficient[temp1\[LeftDoubleBracket]j\[RightDoubleBracket], a[i]], {i, 0, nn - 4, 2}], {j, 1, nx - 2}];\)\)], "Input", CellLabel->"In[332]:=", AspectRatioFixed->True], Cell[BoxData[ \(\(Table[c[i] = 0, {i, \(-3\), nn + 1, 2}];\)\)], "Input", CellLabel->"In[333]:=", AspectRatioFixed->True], Cell[BoxData[ \(\(AA = AB /. \[Lambda] \[Rule] 0;\)\)], "Input", CellLabel->"In[334]:=", AspectRatioFixed->True], Cell[BoxData[ \(\(B = \(AB - AA\)\/\[Lambda];\)\)], "Input", CellLabel->"In[335]:=", AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[{ \(\(alfx = 1;\)\), "\n", \(\(rrx = 10000;\)\)}], "Input", CellLabel->"In[336]:=", AspectRatioFixed->True], Cell[BoxData[ \(\(BN = B /. {\[Alpha] \[Rule] alfx, rr \[Rule] rrx};\)\)], "Input", CellLabel->"In[338]:=", AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(\(Binv = Inverse[N[\(-BN\)]];\)\)], "Input", CellLabel->"In[339]:=", AspectRatioFixed->True], Cell[BoxData[ FormBox[ RowBox[{\(Inverse::"luc"\), \(\(:\)\(\ \)\), "\<\"Result for \ \\!\\(TraditionalForm\\`Inverse\\) of badly conditioned matrix \ \\!\\(TraditionalForm\\`\\((\[NoBreak] \\(\[LeftSkeleton] 1 \ \[RightSkeleton]\\) \[NoBreak])\\)\\) may contain significant numerical \ errors.\"\>"}], TraditionalForm]], "Message", CellLabel->"From In[339]:="] }, Open ]], Cell[CellGroupData[{ Cell["\<\ We get a warning that the matrix is badly conditioned, but the \ answers are not bad. You can look at the numbers to see how bad. The \ contour plot is not too scary since the change is spread over the entire \ range. \ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(\(ListContourPlot[Im[BN]];\)\)], "Input", CellLabel->"In[340]:="], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% ContourGraphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations -0.0244755 0.0437063 -0.0244755 0.0437063 [ [.19406 -0.0125 -3 -9 ] [.19406 -0.0125 3 0 ] [.41259 -0.0125 -6 -9 ] [.41259 -0.0125 6 0 ] [.63112 -0.0125 -6 -9 ] [.63112 -0.0125 6 0 ] [.84965 -0.0125 -6 -9 ] [.84965 -0.0125 6 0 ] [ 0 0 -0.125 0 ] [-0.0125 .19406 -6 -4.5 ] [-0.0125 .19406 0 4.5 ] [-0.0125 .41259 -12 -4.5 ] [-0.0125 .41259 0 4.5 ] [-0.0125 .63112 -12 -4.5 ] [-0.0125 .63112 0 4.5 ] [-0.0125 .84965 -12 -4.5 ] [-0.0125 .84965 0 4.5 ] [ 0 0 -0.125 0 ] [ 0 1 .125 0 ] [ 1 0 .125 0 ] [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .19406 0 m .19406 .00625 L s [(5)] .19406 -0.0125 0 1 Mshowa .41259 0 m .41259 .00625 L s [(10)] .41259 -0.0125 0 1 Mshowa .63112 0 m .63112 .00625 L s [(15)] .63112 -0.0125 0 1 Mshowa .84965 0 m .84965 .00625 L s [(20)] .84965 -0.0125 0 1 Mshowa .125 Mabswid .23776 0 m .23776 .00375 L s .28147 0 m .28147 .00375 L s .32517 0 m .32517 .00375 L s .36888 0 m .36888 .00375 L s .45629 0 m .45629 .00375 L s .5 0 m .5 .00375 L s .54371 0 m .54371 .00375 L s .58741 0 m .58741 .00375 L s .67483 0 m .67483 .00375 L s .71853 0 m .71853 .00375 L s .76224 0 m .76224 .00375 L s .80594 0 m .80594 .00375 L s .15035 0 m .15035 .00375 L s .10664 0 m .10664 .00375 L s .06294 0 m .06294 .00375 L s .01923 0 m .01923 .00375 L s .89336 0 m .89336 .00375 L s .93706 0 m .93706 .00375 L s .98077 0 m .98077 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .19406 m .00625 .19406 L s [(5)] -0.0125 .19406 1 0 Mshowa 0 .41259 m .00625 .41259 L s [(10)] -0.0125 .41259 1 0 Mshowa 0 .63112 m .00625 .63112 L s [(15)] -0.0125 .63112 1 0 Mshowa 0 .84965 m .00625 .84965 L s [(20)] -0.0125 .84965 1 0 Mshowa .125 Mabswid 0 .23776 m .00375 .23776 L s 0 .28147 m .00375 .28147 L s 0 .32517 m .00375 .32517 L s 0 .36888 m .00375 .36888 L s 0 .45629 m .00375 .45629 L s 0 .5 m .00375 .5 L s 0 .54371 m .00375 .54371 L s 0 .58741 m .00375 .58741 L s 0 .67483 m .00375 .67483 L s 0 .71853 m .00375 .71853 L s 0 .76224 m .00375 .76224 L s 0 .80594 m .00375 .80594 L s 0 .15035 m .00375 .15035 L s 0 .10664 m .00375 .10664 L s 0 .06294 m .00375 .06294 L s 0 .01923 m .00375 .01923 L s 0 .89336 m .00375 .89336 L s 0 .93706 m .00375 .93706 L s 0 .98077 m .00375 .98077 L s .25 Mabswid 0 0 m 0 1 L s .19406 .99375 m .19406 1 L s .41259 .99375 m .41259 1 L s .63112 .99375 m .63112 1 L s .84965 .99375 m .84965 1 L s .125 Mabswid .23776 .99625 m .23776 1 L s .28147 .99625 m .28147 1 L s .32517 .99625 m .32517 1 L s .36888 .99625 m .36888 1 L s .45629 .99625 m .45629 1 L s .5 .99625 m .5 1 L s .54371 .99625 m .54371 1 L s .58741 .99625 m .58741 1 L s .67483 .99625 m .67483 1 L s .71853 .99625 m .71853 1 L s .76224 .99625 m .76224 1 L s .80594 .99625 m .80594 1 L s .15035 .99625 m .15035 1 L s .10664 .99625 m .10664 1 L s .06294 .99625 m .06294 1 L s .01923 .99625 m .01923 1 L s .89336 .99625 m .89336 1 L s .93706 .99625 m .93706 1 L s .98077 .99625 m .98077 1 L s .25 Mabswid 0 1 m 1 1 L s .99375 .19406 m 1 .19406 L s .99375 .41259 m 1 .41259 L s .99375 .63112 m 1 .63112 L s .99375 .84965 m 1 .84965 L s .125 Mabswid .99625 .23776 m 1 .23776 L s .99625 .28147 m 1 .28147 L s .99625 .32517 m 1 .32517 L s .99625 .36888 m 1 .36888 L s .99625 .45629 m 1 .45629 L s .99625 .5 m 1 .5 L s .99625 .54371 m 1 .54371 L s .99625 .58741 m 1 .58741 L s .99625 .67483 m 1 .67483 L s .99625 .71853 m 1 .71853 L s .99625 .76224 m 1 .76224 L s .99625 .80594 m 1 .80594 L s .99625 .15035 m 1 .15035 L s .99625 .10664 m 1 .10664 L s .99625 .06294 m 1 .06294 L s .99625 .01923 m 1 .01923 L s .99625 .89336 m 1 .89336 L s .99625 .93706 m 1 .93706 L s .99625 .98077 m 1 .98077 L s .25 Mabswid 1 0 m 1 1 L s 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath .3 g .01923 .98077 m .98077 .98077 L .98077 .01923 L .01923 .01923 L F 0 g .5 Mabswid .4 g .01923 .02831 m .06294 .02853 L .10664 .02917 L .15035 .03027 L .19406 .03189 L .23776 .03415 L .28147 .0373 L .32517 .04177 L .36888 .04863 L .41259 .06183 L .41473 .06294 L .41621 .10664 L .41863 .15035 L .42195 .19406 L .4261 .23776 L .43101 .28147 L .4366 .32517 L .44278 .36888 L .44924 .41259 L .45629 .45537 L .45656 .45629 L .47389 .5 L .49613 .54371 L .5 .55159 L .51821 .58741 L .54178 .63112 L .54371 .63457 L .56691 .67483 L .58741 .70863 L .59361 .71853 L .62198 .76224 L .63112 .77578 L .65211 .80594 L .67483 .83724 L .68412 .84965 L .71816 .89336 L .71853 .89382 L .75444 .93706 L .76224 .9461 L .79318 .98077 L .01923 .98077 L F 0 g .01923 .02831 m .06294 .02853 L .10664 .02917 L .15035 .03027 L .19406 .03189 L .23776 .03415 L .28147 .0373 L .32517 .04177 L .36888 .04863 L .41259 .06183 L .41473 .06294 L .41621 .10664 L .41863 .15035 L .42195 .19406 L .4261 .23776 L .43101 .28147 L .4366 .32517 L .44278 .36888 L .44924 .41259 L .45629 .45537 L .45656 .45629 L .47389 .5 L .49613 .54371 L .5 .55159 L .51821 .58741 L .54178 .63112 L .54371 .63457 L .56691 .67483 L .58741 .70863 L .59361 .71853 L .62198 .76224 L .63112 .77578 L .65211 .80594 L .67483 .83724 L .68412 .84965 L .71816 .89336 L .71853 .89382 L .75444 .93706 L .76224 .9461 L .79318 .98077 L s .5 g .01923 .04151 m .06294 .04194 L .10664 .0432 L .15035 .04547 L .19406 .04905 L .23776 .05485 L .27217 .06294 L .27497 .10664 L .2795 .15035 L .28147 .16608 L .2856 .19406 L .29308 .23776 L .3012 .28147 L .3133 .32517 L .32517 .35973 L .33133 .36888 L .35097 .41259 L .36888 .45054 L .37171 .45629 L .39389 .5 L .41259 .53502 L .41737 .54371 L .4422 .58741 L .45629 .61128 L .46833 .63112 L .49581 .67483 L .5 .68131 L .52469 .71853 L .54371 .74619 L .55504 .76224 L .58695 .80594 L .58741 .80656 L .62058 .84965 L .63112 .8629 L .65606 .89336 L .67483 .91553 L .6936 .93706 L .71853 .96472 L .73344 .98077 L .01923 .98077 L F 0 g .01923 .04151 m .06294 .04194 L .10664 .0432 L .15035 .04547 L .19406 .04905 L .23776 .05485 L .27217 .06294 L .27497 .10664 L .2795 .15035 L .28147 .16608 L .2856 .19406 L .29308 .23776 L .3012 .28147 L .3133 .32517 L .32517 .35973 L .33133 .36888 L .35097 .41259 L .36888 .45054 L .37171 .45629 L .39389 .5 L .41259 .53502 L .41737 .54371 L .4422 .58741 L .45629 .61128 L .46833 .63112 L .49581 .67483 L .5 .68131 L .52469 .71853 L .54371 .74619 L .55504 .76224 L .58695 .80594 L .58741 .80656 L .62058 .84965 L .63112 .8629 L .65606 .89336 L .67483 .91553 L .6936 .93706 L .71853 .96472 L .73344 .98077 L s .6 g .01923 .1911 m .03811 .19406 L .06294 .20692 L .0978 .23776 L .10664 .24747 L .13598 .28147 L .15035 .3018 L .16793 .32517 L .19406 .36252 L .19856 .36888 L .22878 .41259 L .23776 .4259 L .25862 .45629 L .28147 .48987 L .28845 .5 L .31858 .54371 L .32517 .55325 L .34914 .58741 L .36888 .61531 L .38024 .63112 L .41205 .67483 L .41259 .67556 L .44475 .71853 L .45629 .73369 L .47843 .76224 L .5 .78949 L .51328 .80594 L .54371 .84281 L .54947 .84965 L .5872 .89336 L .58741 .8936 L .6267 .93706 L .63112 .94182 L .66823 .98077 L .01923 .98077 L F 0 g .01923 .1911 m .03811 .19406 L .06294 .20692 L .0978 .23776 L .10664 .24747 L .13598 .28147 L .15035 .3018 L .16793 .32517 L .19406 .36252 L .19856 .36888 L .22878 .41259 L .23776 .4259 L .25862 .45629 L .28147 .48987 L .28845 .5 L .31858 .54371 L .32517 .55325 L .34914 .58741 L .36888 .61531 L .38024 .63112 L .41205 .67483 L .41259 .67556 L .44475 .71853 L .45629 .73369 L .47843 .76224 L .5 .78949 L .51328 .80594 L .54371 .84281 L .54947 .84965 L .5872 .89336 L .58741 .8936 L .6267 .93706 L .63112 .94182 L .66823 .98077 L s .7 g .01923 .48659 m .06294 .49225 L .08687 .5 L .10664 .50874 L .15035 .53468 L .16332 .54371 L .19406 .56826 L .21623 .58741 L .23776 .60753 L .2621 .63112 L .28147 .65077 L .30475 .67483 L .32517 .69649 L .3458 .71853 L .36888 .74351 L .38618 .76224 L .41259 .79092 L .4265 .80594 L .45629 .838 L .46723 .84965 L .5 .88424 L .50876 .89336 L .54371 .92923 L .55146 .93706 L .58741 .97272 L .59569 .98077 L .01923 .98077 L F 0 g .01923 .48659 m .06294 .49225 L .08687 .5 L .10664 .50874 L .15035 .53468 L .16332 .54371 L .19406 .56826 L .21623 .58741 L .23776 .60753 L .2621 .63112 L .28147 .65077 L .30475 .67483 L .32517 .69649 L .3458 .71853 L .36888 .74351 L .38618 .76224 L .41259 .79092 L .4265 .80594 L .45629 .838 L .46723 .84965 L .5 .88424 L .50876 .89336 L .54371 .92923 L .55146 .93706 L .58741 .97272 L .59569 .98077 L s .8 g .01923 .65745 m .06294 .66134 L .10664 .6728 L .1128 .67483 L .15035 .69122 L .19406 .71565 L .19871 .71853 L .23776 .74505 L .261 .76224 L .28147 .77829 L .31529 .80594 L .32517 .81433 L .36598 .84965 L .36888 .85221 L .41259 .89114 L .41506 .89336 L .45629 .93045 L .46366 .93706 L .5 .96958 L .5126 .98077 L .01923 .98077 L F 0 g .01923 .65745 m .06294 .66134 L .10664 .6728 L .1128 .67483 L .15035 .69122 L .19406 .71565 L .19871 .71853 L .23776 .74505 L .261 .76224 L .28147 .77829 L .31529 .80594 L .32517 .81433 L .36598 .84965 L .36888 .85221 L .41259 .89114 L .41506 .89336 L .45629 .93045 L .46366 .93706 L .5 .96958 L .5126 .98077 L s .9 g .01923 .79139 m .06294 .79439 L .10664 .80326 L .11691 .80594 L .15035 .81763 L .19406 .83691 L .21883 .84965 L .23776 .86038 L .28147 .88728 L .29078 .89336 L .32517 .91683 L .35357 .93706 L .36888 .94828 L .41231 .98077 L .01923 .98077 L F 0 g .01923 .79139 m .06294 .79439 L .10664 .80326 L .11691 .80594 L .15035 .81763 L .19406 .83691 L .21883 .84965 L .23776 .86038 L .28147 .88728 L .29078 .89336 L .32517 .91683 L .35357 .93706 L .36888 .94828 L .41231 .98077 L s 1 g .01923 .90531 m .06294 .90773 L .10664 .91492 L .15035 .9266 L .18084 .93706 L .19406 .94236 L .23776 .9617 L .27543 .98077 L .01923 .98077 L F 0 g .01923 .90531 m .06294 .90773 L .10664 .91492 L .15035 .9266 L .18084 .93706 L .19406 .94236 L .23776 .9617 L .27543 .98077 L s .2 g .84862 .98077 m .81061 .93706 L .80594 .93148 L .77518 .89336 L .76224 .87661 L .7421 .84965 L .71853 .81664 L .71116 .80594 L .6822 .76224 L .67483 .75063 L .65511 .71853 L .63112 .67723 L .62977 .67483 L .60295 .63112 L .58741 .59591 L .58302 .58741 L .57589 .54371 L .57099 .5 L .56597 .45629 L .56124 .41259 L .55686 .36888 L .55287 .32517 L .5493 .28147 L .5462 .23776 L .54371 .19583 L .54361 .19406 L .54156 .15035 L .54007 .10664 L .53917 .06294 L .5 .04632 L .45629 .03762 L .41259 .03218 L .36888 .0284 L .32517 .02563 L .28147 .02354 L .23776 .02196 L .19406 .02076 L .15035 .01988 L .10664 .01927 L .10568 .01923 L .98077 .01923 L .98077 .98077 L F 0 g .84862 .98077 m .81061 .93706 L .80594 .93148 L .77518 .89336 L .76224 .87661 L .7421 .84965 L .71853 .81664 L .71116 .80594 L .6822 .76224 L .67483 .75063 L .65511 .71853 L .63112 .67723 L .62977 .67483 L .60295 .63112 L .58741 .59591 L .58302 .58741 L .57589 .54371 L .57099 .5 L .56597 .45629 L .56124 .41259 L .55686 .36888 L .55287 .32517 L .5493 .28147 L .5462 .23776 L .54371 .19583 L .54361 .19406 L .54156 .15035 L .54007 .10664 L .53917 .06294 L .5 .04632 L .45629 .03762 L .41259 .03218 L .36888 .0284 L .32517 .02563 L .28147 .02354 L .23776 .02196 L .19406 .02076 L .15035 .01988 L .10664 .01927 L .10568 .01923 L s .1 g .90059 .98077 m .89336 .97057 L .86305 .93706 L .84965 .92064 L .82819 .89336 L .80594 .86372 L .79576 .84965 L .76368 .80594 L .76224 .8016 L .73071 .76224 L .71853 .73354 L .70726 .71853 L .69647 .67483 L .69507 .63112 L .69133 .58741 L .68775 .54371 L .68433 .5 L .68112 .45629 L .67812 .41259 L .67536 .36888 L .67483 .35994 L .67286 .32517 L .67064 .28147 L .66873 .23776 L .66714 .19406 L .66589 .15035 L .66498 .10664 L .66443 .06294 L .63112 .04369 L .58741 .03299 L .54371 .02679 L .5 .02266 L .45629 .01971 L .44766 .01923 L .98077 .01923 L .98077 .98077 L F 0 g .90059 .98077 m .89336 .97057 L .86305 .93706 L .84965 .92064 L .82819 .89336 L .80594 .86372 L .79576 .84965 L .76368 .80594 L .76224 .8016 L .73071 .76224 L .71853 .73354 L .70726 .71853 L .69647 .67483 L .69507 .63112 L .69133 .58741 L .68775 .54371 L .68433 .5 L .68112 .45629 L .67812 .41259 L .67536 .36888 L .67483 .35994 L .67286 .32517 L .67064 .28147 L .66873 .23776 L .66714 .19406 L .66589 .15035 L .66498 .10664 L .66443 .06294 L .63112 .04369 L .58741 .03299 L .54371 .02679 L .5 .02266 L .45629 .01971 L .44766 .01923 L s .94965 .98077 m .93706 .97181 L .91027 .93706 L .89336 .91586 L .87563 .89336 L .84965 .85659 L .84036 .84965 L .83129 .80594 L .83338 .76224 L .83117 .71853 L .82902 .67483 L .82696 .63112 L .82498 .58741 L .82309 .54371 L .82131 .5 L .81964 .45629 L .8181 .41259 L .81669 .36888 L .81542 .32517 L .8143 .28147 L .81334 .23776 L .81255 .19406 L .81192 .15035 L .81147 .10664 L .8112 .06294 L .80594 .05487 L .76224 .03086 L .71853 .02178 L .69929 .01923 L .98077 .01923 L .98077 .98077 L F .94965 .98077 m .93706 .97181 L .91027 .93706 L .89336 .91586 L .87563 .89336 L .84965 .85659 L .84036 .84965 L .83129 .80594 L .83338 .76224 L .83117 .71853 L .82902 .67483 L .82696 .63112 L .82498 .58741 L .82309 .54371 L .82131 .5 L .81964 .45629 L .8181 .41259 L .81669 .36888 L .81542 .32517 L .8143 .28147 L .81334 .23776 L .81255 .19406 L .81192 .15035 L .81147 .10664 L .8112 .06294 L .80594 .05487 L .76224 .03086 L .71853 .02178 L .69929 .01923 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", CellLabel->"From In[340]:=", ImageSize->{288, 288}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgo8F>o003oHklQ Hkl00?mS_b5S_`00@V>o0`00=F>o0`0016>o0P00o0`000f>o0`00o1@000f>o0P009V>o0011 Hkl01@00HkmS_f>o0000=F>o00<006>oHkl00V>o00@006>oHkl0039S_`05001S_f>oHkl00003Hkl0 0`00HkmS_`0`Hkl01000HkmS_`000V>o00@006>oHkl002ES_`00AF>o00<006>oHkl0o00<006>o Hkl00V>o00@006>oHkl0039S_`03001S_f>o00ES_`03001S_f>o035S_`03001S_f>o009S_`04001S _f>o000UHkl004ES_`03001S_f>o03=S_`03001S_f>o009S_`04001S_f>o000bHkl00`00HkmS_`05 Hkl00`00HkmS_`0bHkl01@00HkmS_f>o00000V>o00<006>oHkl08f>o0011Hkl4000fHkl00`00HkmS _`02Hkl01000HkmS_`00o00@006>oHkmS_`@0039S_`05001S_f>oHkl00002Hkl01000HkmS_`00 9F>o0011Hkl00`00HkmS_`0fHkl20004Hkl01000HkmS_`00o0P000f>o00<006>oHkl0o00D0 06>oHkmS_`00009S_`04001S_f>o000UHkl0045S_`D003ES_`03001S_f>o00=S_`8003=S_`04001S _f>oHkl5000bHkl30004Hkl2000VHkl00?mS_b5S_`00of>o8F>o003oHklQHkl00?mS_b5S_`003f>o o`004@000F>o000?Hkl00`00HkmS_`02Hkl00`00HkmS_`09Hkl00`00HkmS_`09Hkl00`00HkmS_`09 Hkl00`00HkmS_`09Hkl00`00HkmS_`08Hkl00`00HkmS_`09Hkl00`00HkmS_`09Hkl00`00HkmS_`09 Hkl00`00HkmS_`09Hkl00`00HkmS_`09Hkl00`00HkmS_`09Hkl00`00HkmS_`09Hkl00`00HkmS_`08 Hkl00`00HkmS_`09Hkl00`00HkmS_`09Hkl00`00HkmS_`09Hkl00`00HkmS_`09Hkl00`00HkmS_`09 Hkl00`00HkmS_`09Hkl00`00HkmS_`08Hkl00`00HkmS_`09Hkl00`00HkmS_`09Hkl00`00HkmS_`02 Hkl10001Hkl000mS_`03001S_f>o039S_`03001S_f>o03QS_`03001S_f>o03QS_`03001S_f>o03US _`03001S_f>o02ES_`40005S_`003f>o00<006>oHkl0of>o3F>o0@000F>o000?Hkl00`00HkmS_`3o Hkl=Hkl10001Hkl000mS_`03001S_f>o0?mS_`eS_`40005S_`003f>o0P006f>o:P00o2P00>f>o 2000B6>o0P000F>o000?Hkl00`00HkmS_`02Hkm29BTH000T6o009S_al003/U:@`002@HaP`002lo00<006>oHkl00V>o 7c6<6000;bDY2@009aS61`00;0aS?0001F>o0@000F>o000?Hkl00`00HkmS_`02Hklgo009S_d8aS0`002LU:@H002HHaP@002T< HcL000ES_`40005S_`003f>o00<006>oHkl00V>o7`00;c6<2@0092DY1P0091S60`00:0aS=@001F>o 0@000F>o000?Hkl00`00HkmS_`02HklO?Nl<000/o009S_b/mk``002HaS0D002o00<006>oHkl00V>o=cg_1`00936<10008BDY0P008QS600<000aS36<0:0aS;`001F>o 0@000F>o000?Hkl00`00HkmS_`02Hkln?Nl3000Uo009S_d4mk`<002HaS08001lU:@80024HaP03000o0P000f>oA3g_0P009C6<00<002DY9BT07bDY00<001S66o0P000F>o000?Hkl00`00HkmS_`02Hkm5?Nl00`00o009S_dDmk`03000aS36< 02o00<0 06>oHkl00V>oACg_00<0036<o0@000F>o000?Hkl00`00HkmS_`02Hkm5?Nl00`00o009S_dDmk`03000aS36< 02o00<0 06>oHkl00V>oASg_00<0036<o0@000F>o000?Hkl00`00HkmS_`02Hkm6?Nl00`00o009S_dHmk`03000aS36< 02o00<0 06>oHkl00V>oASg_00<0036<o0@000F>o000?Hkl00`00HkmS_`02Hkm6?Nl00`00o00<006>oHkl0 0V>oASg_00<0036<o 0@000F>o000?Hkl00`00HkmS_`02Hkm6?Nl00`00o009S_dHmk`03000aS36<02o00<006>oHkl0 0V>oASg_00<0036<o 0@000F>o000?Hkl00`00HkmS_`02Hkm6?Nl00`00o009S_dHmk`03000aS36<02o00<006>oHkl0 0V>oAcg_00<0036<o 0@000F>o000?Hkl00`00HkmS_`02Hkm7?Nl00`00o009S_dLmk`03000aS36<02o00<006>oHkl0 0V>oAcg_00<0036<o 0@000F>o000?Hkl00`00HkmS_`02Hkm7?Nl00`00o00<006>oHkl00V>oAcg_ 00<0036<o0@000F>o 000?Hkl00`00HkmS_`02Hkm7?Nl00`00o009S_dLmk`03000aS36<02o00<006>oHkl00V>oAcg_ 00<0036<o0@000F>o 000?Hkl00`00HkmS_`02Hkm7?Nl00`00o009S_dLmk`03000aS36<02o00<006>oHkl00V>oAcg_ 00<0036<o0@000F>o 000?Hkl00`00HkmS_`02Hkm7?Nl00`00o009S_dPmk`03000aS36<028aS003000U:BDY 01hU:@03000HaQS601lHaP03000o0`001F>o00<006>oHkl0 0V>oB3g_00<0036<o 0@000F>o0006Hkl01@00HkmS_f>o000016>o00<006>oHkl00V>o1000A3g_00<0036<o0@000F>o000:Hkl00`00HkmS_`02 Hkl30002Hkl4CW<30011?Nl00`00o009S_`03001S_f>o009S_`M>L`8003lmk`03000a S36<028aS003000U:BDY01lU:@03000HaQS601hHaP03000o 10001F>o00<006>oHkl00V>o2Dic00<003g_?Nl0?3g_00<0036<o0@000F>o0006Hkl00`00HkmS_`06Hkl00`00HkmS_`02 Hkl:CW<2000l?Nl00`00o009S_`a>L`8003/mk`03000aS36<028aS003000U :BDY01hU:@03000HaQS601hHaP03000o00<006>oHkl00V>o 3Tic00<003g_?Nl0>3g_00<0036<o0@000F>o000?Hkl00`00HkmS_`02Hkl?CW<00`00?Nlmk`0g?Nl00`00o 009S_a1>L`03000mkcg_03Hmk`03000aS36<028aS003000U:BDY01hU:@03000HaQS601hHaP03000< H`aS02Do00<006>oHkl00V>o4Dic00<003g_?Nl0=Cg_00<0036<o0@000F>o000?Hkl00`00 HkmS_`02HklBCW<00`00?Nlmk`0d?Nl00`00o009S_a=>L`03000mkcg_03@mk`03000a S36<028aS003000U:BDY01dU:@03000HaQS601hHaP03000o 00<006>oHkl00V>o54ic00<003g_?Nl0o0@000F>o000?Hkl20003HklECW<00`00?Nlmk`0b?Nl00`00o009S_aI>L`03000mkcg_034mk`03000aS36<028aS003000U:BDY01dU:@03000HaQS601hH aP03000o00<006>oHkl00V>o5dic00<003g_?Nl0<3g_00<0 036<o0@000F>o000? Hkl00`00HkmS_`02HklHCW<00`00?Nlmk`0`?Nl00`00o009S_aQ>L`03000mkcg_030m k`03000aS36<024aS003000U:BDY01dU:@03000HaQS601hHaP03000o00<006>oHkl00V>o6Dic00<003g_?Nl0;cg_00<0036<o0@000F>o000?Hkl00`00HkmS_`02HklJCW<00`00?Nlm k`0^?Nl00`00o009S_a]>L`03000mkcg_02hmk`03000aS36<024aS003000U:BDY01dU :@03000HaQS601hHaP03000o00<006>oHkl00V>o74ic00<0 03g_?Nl0;Cg_00<0036<o0@000F>o000?Hkl00`00HkmS_`02HklMCW<00`00?Nlmk`0/?Nl00`00o009S_ai> L`03000mkcg_02/mk`03000aS36<024aS003000U:BDY01dU:@03000HaQS601hHaP03000o00<006>oHkl00V>o7dic00<003g_?Nl0:cg_00<0036<o0@000F>o000?Hkl20003HklPCW<0 0`00?Nlmk`0Z?Nl00`00o009S_b1>L`03000mkcg_02Xmk`03000aS36<020aS003000U :BDY01dU:@03000HaQS601hHaP03000o00<006>oHkl00V>o 8Dic00<003g_?Nl0:Cg_00<0036<o0@000F>o000?Hkl00`00HkmS_`02HklRCW<00`00?Nlmk`0Y?Nl00`00o 009S_b=>L`03000mkcg_02Pmk`03000aS36<01laS003000U:BDY01dU:@03000HaQS601hHaP03000< H`aS02@o00<006>oHkl00V>o94ic00<003g_?Nl09cg_00<0036<o0@000F>o000?Hkl00`00 HkmS_`02HklTCW<00`00?Nlmk`0W?Nl00`00o009S_bE>L`03000mkcg_02Lmk`03000a S36<01laS003000U:BDY01dU:@03000HaQS601hHaP03000o 00<006>oHkl00V>o9Dic00<003g_?Nl09cg_00<0036<o0@000F>o000?Hkl00`00HkmS_`02HklVCW<00`00?Nlmk`0V?Nl0 0`00o009S_bM>L`03000mkcg_02Dmk`03000aS36<01laS003000U:BDY01dU:@03000H aQS601hHaP03000o00<006>oHkl00V>o9dic00<003g_?Nl0 9Sg_00<0036<o0@00 0F>o000?Hkl20003HklXCW<00`00?Nlmk`0U?Nl00`00o009S_bQ>L`03000mkcg_02Dm k`03000aS36<01haS003000U:BDY01dU:@03000HaQS601hHaP03000o00<006>oHkl00V>o:Dic00<003g_?Nl09Cg_00<0036<o0@000F>o000?Hkl00`00HkmS_`02HklZCW<00`00?Nlm k`0T?Nl00`00o009S_b]>L`03000mkcg_02o00<006>oHkl00V>o;4ic00<0 03g_?Nl08cg_00<0036<o0@000F>o000?Hkl00`00HkmS_`02Hkl/CW<00`00?Nlmk`0S?Nl00`00o009S_be> L`03000mkcg_028mk`03000aS36<01daS003000U:BDY01dU:@03000HaQS601dHaP03000o00<006>oHkl00V>o;Tic00<003g_?Nl08Sg_00<0036<o0@000F>o000?Hkl00`00HkmS_`02 Hkl_CW<00`00?Nlmk`0Q?Nl00`00o009S_c1>L`03000mkcg_020mk`03000aS36<01da S003000U:BDY01`U:@03000HaQS601dHaP03000o00<006>o Hkl00V>o<4ic00<003g_?Nl08Cg_00<0036<o0@000F>o000?Hkl20003HklaCW<00`00?Nlmk`0Q?Nl00`00o 009S_c5>L`03000mkcg_024mk`03000aS36<01/aS003000U:BDY01`U:@03000HaQS601dHaP03000< H`aS02@o00<006>oHkl00V>oo0@000F>o000?Hkl00`00 HkmS_`02HklcCW<00`00?Nlmk`0P?Nl00`00o009S_cA>L`03000mkcg_020mk`03000a S36<01XaS003000U:BDY01/U:@03000HaQS601dHaP03000o 00<006>oHkl00V>o=4ic00<003g_?Nl083g_00<0036<o0@000F>o000?Hkl00`00HkmS_`02HkleCW<00`00?Nlmk`0P?Nl0 0`00o009S_cI>L`03000mkcg_01lmk`03000aS36<01TaS003000U:BDY01`U:@03000H aQS601dHaP03000o00<006>oHkl00V>o=Tic00<003g_?Nl0 7cg_00<0036<o0@00 0F>o000016>o0000000016>o0P001F>o00<006>oHkl00V>o=dic00<003g_?Nl07cg_00<0036<o0@000F>o0002Hkl00`00 HkmS_`02Hkl01000HkmS_`0016>o00<006>oHkl00V>o>4ic00<003g_?Nl07Sg_00<0036<o0@000F>o0002Hkl00`00HkmS _`02Hkl01000HkmS_`0016>o0`000V>o>Dic00<003g_?Nl07Sg_00<0036<o0P000F>o0002Hkl00`00HkmS_`02Hkl01000 HkmS_`0016>o00<006>oHkl00V>o>Dic00<003g_?Nl07Sg_00<0036<o0@000F>o0002Hkl00`00HkmS_`02Hkl01000HkmS _`0016>o00<006>oHkl00V>o>Tic00<003g_?Nl07Sg_00<0036<o0@000F>o00000f>o00000004Hkl01000HkmS_`0016>o 00<006>oHkl00V>o>Tic00<003g_?Nl07Sg_00<0036<o0@000F>o0002Hkl00`00HkmS_`03Hkl20005Hkl00`00HkmS_`02 HklkCW<00`00?Nlmk`0N?Nl00`00o009S_c]>L`03000mkcg_01hmk`03000aS36<01La S003000U:BDY01/U:@03000HaQS601`HaP03000o00<006>o Hkl00V>o?4ic00<003g_?Nl07Sg_00<0036<o0@000F>o000?Hkl00`00HkmS_`02HklmCW<00`00?Nlmk`0M?Nl00`00o009S_ci>L`03000mkcg_01`mk`03000aS36<01HaS003000U:BDY01/U:@03000HaQS601dH aP03000o00<006>oHkl00V>o?Tic00<003g_?Nl07Cg_00<0 036<o0@000F>o000? Hkl00`00HkmS_`02HkloCW<00`00?Nlmk`0L?Nl00`00o009S_d1>L`03000mkcg_01`m k`03000aS36<01DaS003000U:BDY01/U:@03000HaQS601`HaP03000o0P000f>o@Dic00<003g_?Nl073g_00<0036<o0P000F>o000?Hkl00`00HkmS_`02Hkm1CW<00`00?Nlmk`0L?Nl0 0`00o009S_d9>L`03000mkcg_01`mk`03000aS36<01@aS003000U:BDY01XU:@03000H aQS601`HaP03000o00<006>oHkl00V>o@dic00<003g_?Nl0 6cg_00<0036<o0@00 0F>o000?Hkl00`00HkmS_`02Hkm3CW<00`00?Nlmk`0L?Nl00`00o009S_dA>L`03000m kcg_01/mk`03000aS36<01@aS003000U:BDY01TU:@03000HaQS601`HaP03000o00<006>oHkl00V>oADic00<003g_?Nl06cg_00<0036<o0@000F>o000?Hkl00`00HkmS_`02Hkm5CW<0 0`00?Nlmk`0K?Nl00`00o009S_dI>L`03000mkcg_01/mk`03000aS36<01o00<006>oHkl00V>o 1`00@4ic00<003g_?Nl06Sg_00<0036<o0@000F>o000?Hkl00`00HkmS_`02Hkl7F]H8000hCW<00`00?Nlmk`0K?Nl00`00 o009S_`mJeP<003I>L`03000mkcg_01Xmk`03000aS36<01o0P000f>o4U[F0P00=Dic00<003g_ ?Nl06Sg_00<0036<o 0P000F>o000?Hkl00`00HkmS_`02HklDF]H2000cCW<00`00?Nlmk`0J?Nl00`00o009S _aIJeP80039>L`03000mkcg_01Xmk`03000aS36<01o00<006>oHkl00V>o65[F0P00o0@000F>o 000?Hkl00`00HkmS_`02HklJF]H2000_CW<00`00?Nlmk`0J?Nl00`00o009S_aaJeP03 001>Ldic02e>L`03000mkcg_01Tmk`03000aS36<01o00<006>oHkl00V>o7E[F0P00;Tic00<003g_?Nl06Cg_ 00<0036<o0@000F>o 000?Hkl00`00HkmS_`02HklOF]H2000/CW<00`00?Nlmk`0I?Nl00`00o009S_b5JeP03 001>Ldic02Y>L`03000mkcg_01Tmk`03000aS36<01o00<006>oHkl00V>o8U[F0P00:dic00<003g_?Nl063g_ 00<0036<o0@000F>o 000?Hkl00`00HkmS_`02HklTF]H2000YCW<00`00?Nlmk`0I?Nl00`00o009S_bIJeP03 001>Ldic02M>L`03000mkcg_01Pmk`03000aS36<01o0P000f>o9e[F0P00:4ic00<003g_?Nl063g_00<0036< o0P000F>o000?Hkl0 0`00HkmS_`02HklYF]H00`00CW=>L`0UCW<00`00?Nlmk`0H?Nl00`00o009S_bYJeP03 001>Ldic02E>L`03000mkcg_01Pmk`03000aS36<01o00<006>oHkl00V>o:e[F0P009Tic00<003g_?Nl05cg_ 00<0036<o0@000F>o 000?Hkl00`00HkmS_`02Hkl]F]H00`00CW=>L`0SCW<00`00?Nlmk`0H?Nl00`00o009S _biJeP03001>Ldic02=>L`03000mkcg_01Pmk`03000aS36<018aS003000U:BDY014U:@03000HaQS6 01/HaP03000o00<006>oHkl00V>o;e[F00<004icCW<08dic 00<003g_?Nl05cg_00<0036<o0@000F>o000?Hkl00`00HkmS_`02Hkl`F]H2000TCW<00`00?Nlmk`0G?Nl00`00o009S_c9JeP03001>Ldic029>L`03000mkcg_01Hmk`03000aS36<01o00<006>oHkl00V>oo0@000F>o000?Hkl00`00HkmS_`02HkldF]H00`00CW=>L`0QCW<00`00?Nlmk`0G ?Nl00`00o009S_cEJeP03001>Ldic025>L`03000mkcg_01Hmk`03000aS36<018aS003 000U:BDY00lU:@03000HaQS601/HaP03000o0P000f>o=U[F 00<004icCW<08Dic00<003g_?Nl05Sg_00<0036<o0P000F>o000?Hkl00`00HkmS_`02HklgF]H00`00CW=>L`0PCW<00`00 ?Nlmk`0F?Nl00`009BT00`006o009S_cQJeP03001>Ldic021>L`03000mkcg_01Hmk`03000aS36< 018aS003000U:BDY00hU:@03000HaQS601XHaP03000o00<0 06>oHkl00V>o>E[F00<004icCW<084ic00<003g_?Nl05Sg_00<0036<o0@000F>o000?Hkl00`00HkmS_`02HkljF]H00`00 CW=>L`0PCW<00`00?Nlmk`0E?Nl00`009BT00`006o009S_c]JeP03001>Ldic01m>L`03000mkcg_ 01Hmk`03000aS36<014aS003000U:BDY00hU:@03000HaQS601THaP03000o00<006>oHkl00V>o?5[F00<004icCW<07dic00<003g_?Nl05Sg_00<0036<o0@000F>o000?Hkl00`00HkmS _`02HklmF]H00`00CW=>L`0OCW<00`00?Nlmk`0E?Nl00`009BT00`00 6o009S_ciJeP03001>Ldic 01i>L`03000mkcg_01Hmk`03000aS36<014aS003000U:BDY00hU:@03000HaQS601PHaP03000o009S_cmJeP03001>Ldic 01i>L`03000mkcg_01Dmk`03000aS36<014aS003000U:BDY00hU:@03000HaQS601PHaP03000o00D006>oHkmS_`0000=S_`03001S_f>o009S_`03001S_f>o009S _d1JeP03001>Ldic01i>L`03000mkcg_01Dmk`03000aS36<014aS003000U:BDY00hU:@03000HaQS6 01LHaP03000o00<006>oHkl01F>o00<006>oHkl00V>o00<0 06>oHkl00V>o@E[F00<004icCW<07Dic00<003g_?Nl05Cg_00<0036<o0@000F>o0002Hkl00`00HkmS_`05Hkl00`00HkmS _`02Hkl30002Hkm2F]H00`00CW=>L`0MCW<00`00?Nlmk`0E?Nl00`00 9BT00`006oHkl40005Hkl0 0`00HkmS_`02Hkm3F]H00`00CW=>L`0LCW<00`00?Nlmk`0E?Nl00`00o 00IS_`03001S_f>o009S_dAJeP03001>Ldic01a>L`03000mkcg_01Dmk`03000aS36<014aS003000U :BDY00hU:@03000HaQS601DHaP03000o00@006>oHkmS_`D0 00AS_`03001S_f>o009S_dEJeP03001>Ldic01a>L`03000mkcg_01@mk`03000aS36<018aS003000U :BDY00dU:@03000HaQS601DHaP03000o00<006>oHkl00V>o AU[F00<004icCW<074ic00<003g_?Nl053g_00<0036<o0@000F>o000?Hkl00`00HkmS_`02Hkm7F]H00`00CW=>L`0KCW<0 0`00?Nlmk`0E?Nl00`009BT00`006o009S_dQJeP03001>Ldic01]>L`03000mkcg_01@mk`03000a S36<014aS003000U:BDY00hU:@03000HaQS601o 00<006>oHkl00V>o1`00@U[F00<004icCW<06dic00<003g_?Nl053g_00<0036<o0@000F>o000?Hkl00`00HkmS_`02Hkl7 IcT8000kF]H00`00CW=>L`0KCW<00`00?Nlmk`0C?Nl00`00o009S_`mW>@@003QJeP03 001>Ldic01Y>L`03000mkcg_01@mk`03000aS36<014aS003000U:BDY00hU:@03000HaQS6014HaP03 000o00<006>oHkl00V>o4fLi1000=E[F00<004icCW<06Tic 00<003g_?Nl053g_00<0036<o0@000F>o000?Hkl00`00HkmS_`02HklGIcT3000cF]H00`00CW=>L`0JCW<00`00?Nlmk`0C ?Nl00`009BT00`006@80039JeP03001>Ldic01Y>L`03000mkcg_01o00<006>oHkl00V>o76Li 0`00;e[F00<004icCW<06Tic00<003g_?Nl05Cg_00<0036<o0@000F>o000?Hkl00`00HkmS_`02HklOIcT2000^F]H00`00 CW=>L`0JCW<00`00?Nlmk`0D?Nl00`009BT00`0066o009S_b5W>@<002aJeP03001>Ldic01Y>L`03 000mkcg_01@mk`03000aS36<00laS003000U:BDY00hU:@03000HaQS600lHaP03000o00<006>oHkl00V>o96Li0P00:e[F00<004icCW<06Tic00<003g_?Nl04cg_ 00<0036<o0@000F>o 000?Hkl00`00HkmS_`02HklVIcT2000ZF]H00`00CW=>L`0ICW<00`00?Nlmk`0D?Nl00`009BT00`006o009S_bQW>@03001JeU[F02QJeP03001>Ldic01U>L`03000mkcg_01o00<006>oHkl0 0V>o:FLi0P00:E[F00<004icCW<06Dic00<003g_?Nl04cg_00<0036<o0@000F>o000?Hkl00`00HkmS_`02Hkl[IcT2000X F]H00`00CW=>L`0ICW<00`00?Nlmk`0C?Nl00`009BT00`006o009S_beW>@03001JeU[F02IJeP03 001>Ldic01Q>L`03000mkcg_01o00<006>oHkl00V>o;VLi0P009e[F00<004icCW<064ic 00<003g_?Nl04cg_00<0036<o0@000F>o000?Hkl00`00HkmS_`02Hkl`IcT00`00F]IJeP0UF]H00`00CW=>L`0HCW<00`00 ?Nlmk`0B?Nl00`009BT00`006@8002IJeP03001>Ldic01Q>L`03000mkcg_018mk`03000aS36< 010aS003000U:BDY00hU:@03000HaQS600/HaP03000o00<0 06>oHkl00V>oo0@000F>o000?Hkl00`00HkmS _`02HkldIcT2000UF]H00`00CW=>L`0GCW<00`00?Nlmk`0B?Nl00`00 9BT00`006o009S_cIW>@03 001JeU[F02=JeP03001>Ldic01M>L`03000mkcg_018mk`03000aS36<010aS003000U:BDY00hU:@03 000HaQS600/HaP03000o00<006>oHkl00V>o=fLi00<005[F F]H08e[F00<004icCW<05dic00<003g_?Nl04Sg_00<0036<o0@000F>o000?Hkl00`00HkmS_`02HklhIcT2000TF]H00`00 CW=>L`0FCW<00`00?Nlmk`0C?Nl00`009BT00`006o009S_cYW>@03001JeU[F029JeP03001>Ldic 01I>L`03000mkcg_01o00<006>oHkl00V>o>fLi0P008e[F00<004icCW<05Tic00<003g_ ?Nl04cg_00<0036<o 0@000F>o000?Hkl00`00HkmS_`02HklmIcT2000RF]H00`00CW=>L`0FCW<00`00?Nlmk`0B?Nl00`00 9BT00`006o009S_cmW>@03001JeU[F021JeP03001>Ldic01I>L`03000mkcg_018mk`03000aS36< 00laS003000U:BDY00dU:@03000HaQS600/HaP03000o00<0 06>oHkl00V>o@6Li0P008E[F00<004icCW<05Tic00<003g_?Nl04Sg_00<0036<o0@000F>o000?Hkl20003Hkm2IcT00`00 F]IJeP0OF]H00`00CW=>L`0FCW<00`00?Nlmk`0B?Nl00`00o009S_d=W>@03001JeU[F 01iJeP03001>Ldic01I>L`03000mkcg_018mk`03000aS36<00laS003000U:BDY00dU:@03000HaQS6 00XHaP03000o00<006>oHkl00V>oA6Li00<005[FF]H07U[F 00<004icCW<05Tic00<003g_?Nl04Sg_00<0036<o0@000F>o000?Hkl00`00HkmS_`02Hkm5IcT00`00F]IJeP0NF]H00`00 CW=>L`0FCW<00`00?Nlmk`0B?Nl00`009BT00`006o009S_dIW>@03001JeU[F01iJeP03001>Ldic 01I>L`03000mkcg_014mk`03000aS36<00laS003000U:BDY00dU:@03000HaQS600/HaP03000o00<006>oHkl00V>oAfLi0P007e[F00<004icCW<05Dic00<003g_ ?Nl04Sg_00<0036<o 0@000F>o000?Hkl00`00HkmS_`02Hkm9IcT00`00F]IJeP0MF]H00`00CW=>L`0ECW<00`00?Nlmk`0B ?Nl00`009BT00`006o009S_dYW>@03001JeU[F01eJeP03001>Ldic01E>L`03000mkcg_014mk`03 000aS36<00laS003000U:BDY00dU:@03000HaQS600/HaP03000o00<006>oHkl00V>o1`00A6Li0P007U[F00<004icCW<05Dic00<003g_?Nl04Cg_00<0036<o0@000F>o000?Hkl00`00 HkmS_`02Hkl7Li`8000nIcT00`00F]IJeP0LF]H00`00CW=>L`0DCW<00`00?Nlmk`0B?Nl00`009BT00`006o009S_`mcW0@003]W>@03001JeU[F01aJeP03001>Ldic01A>L`03000mkcg_014mk`03000a S36<00laS003000U:BDY00dU:@03000HaQS600`HaP03000o 00<006>oHkl00V>o4g>L1000>6Li00<005[FF]H075[F00<004icCW<054ic00<003g_?Nl04Cg_00<0 036<o0@000F>o000? Hkl20003HklGLi`7000bIcT00`00F]IJeP0LF]H00`00CW=>L`0DCW<00`00?Nlmk`0A?Nl00`00o009S_aicW0<0031W>@03001JeU[F01]JeP03001>Ldic01A>L`03000mkcg_014mk`03000a S36<00laS003000U:BDY00dU:@03000HaQS600/HaP03000o 00<006>oHkl00V>o8G>L0`00;VLi00<005[FF]H06e[F00<004icCW<054ic00<003g_?Nl04Cg_00<0 036<o0@000F>o000? Hkl00`00HkmS_`02HklTLi`2000]IcT2000LF]H00`00CW=>L`0DCW<00`00?Nlmk`0A?Nl00`0036o009S_bIcW08002eW>@03001JeU[F01YJeP03001>Ldic01A>L`03000mkcg_014mk`03000a S36<00haS003000U:BDY00dU:@03000HaQS600`HaP03000o 00<006>oHkl00V>o:7>L0P00;6Li00<005[FF]H06U[F00<004icCW<054ic00<003g_?Nl043g_00<0 036<o0@000F>o000? Hkl00`00HkmS_`02HklZLi`2000[IcT00`00F]IJeP0JF]H00`00CW=>L`0DCW<00`00?Nlmk`0@?Nl0 0`00o009S_bacW08002YW>@8001]JeP03001>Ldic01A>L`03000mkcg_010mk`03000a S36<00haS003000U:BDY00dU:@03000HaQS600`HaP03000o 00<006>oHkl00V>o;W>L0P00:VLi00<005[FF]H06E[F00<004icCW<054ic00<003g_?Nl043g_00<0 036<o0@000F>o000? Hkl00`00HkmS_`02Hkl`Li`2000YIcT00`00F]IJeP0IF]H00`00CW=>L`0DCW<00`00?Nlmk`0??Nl0 0`00o009S_c9cW08002QW>@03001JeU[F01UJeP03001>Ldic01A>L`03 000mkcg_00lmk`03000aS36<00laS003000U:BDY00`U:@03000HaQS600`HaP03000o0004Hkl00`00HkmS_`02HkldLi`2000W IcT00`00F]IJeP0IF]H00`00CW=>L`0CCW<00`00?Nlmk`0@?Nl00`00o009S_`04001S _f>o0004Hkl30002HklfLi`2000VIcT00`00F]IJeP0IF]H00`00CW=>L`0CCW<00`00?Nlmk`0@?Nl0 0`00oHkl00002Hkl00`00HkmS_`02Hkl00`00HkmS_`02HklhLi`2000UIcT2000IF]H0 0`00CW=>L`0CCW<00`00?Nlmk`0@?Nl00`00oHkl00002Hkl01000HkmS_`0016>o00<006>o Hkl00V>o>W>L00<006LiIcT096Li00<005[FF]H05e[F00<004icCW<04dic00<003g_?Nl043g_00<0 036<o0@000F>o0000 1@00HkmS_f>o00000V>o00@006>oHkl000AS_`03001S_f>o009S_c]cW08002EW>@03001JeU[F01MJ eP03001>Ldic01=>L`03000mkcg_010mk`03000aS36<00laS003000U:BDY00`U:@03000HaQS600`H aP03000o009S_cec W08002AW>@03001JeU[F01MJeP03001>Ldic01=>L`03000mkcg_010mk`03000aS36<00laS003000U :BDY00`U:@03000HaQS600`HaP03000o00<006>oHkl00V>o ?g>L00<006LiIcT08VLi00<005[FF]H05e[F00<004icCW<04dic00<003g_?Nl03cg_00<0036<o0@000F>o000?Hkl00`00 HkmS_`02Hkm0Li`2000SIcT2000HF]H00`00CW=>L`0CCW<00`00?Nlmk`0??Nl00`00o 009S_d9cW08002=W>@03001JeU[F01IJeP03001>Ldic019>L`03000mkcg_010mk`03000aS36<00la S003000U:BDY00dU:@03000HaQS600/HaP03000o00<006>o Hkl00V>oA7>L00<006LiIcT08FLi00<005[FF]H05U[F00<004icCW<04Tic00<003g_?Nl043g_00<0 036<o0@000F>o000? Hkl00`00HkmS_`02Hkm5Li`2000RIcT00`00F]IJeP0FF]H00`00CW=>L`0BCW<00`00?Nlmk`0@?Nl0 0`00o009S_dMcW080025W>@03001JeU[F01IJeP03001>Ldic019>L`03000mkcg_010m k`03000aS36<00haS003000U:BDY00dU:@03000HaQS600/HaP03000o00<006>oHkl00V>oBG>L00<006LiIcT07fLi00<005[FF]H05U[F00<004icCW<04Tic00<0 03g_?Nl043g_00<0036<o0@000F>o000?Hkl20003Hkm:Li`2000PIcT2000GF]H00`00CW=>L`0BCW<00`00?Nlmk`0@?Nl0 0`00o009S_dacW003001W>FLi01mW>@03001JeU[F01EJeP03001>Ldic015>L`03000m kcg_010mk`03000aS36<00haS003000U:BDY00`U:@03000HaQS600`HaP03000o00<006>oHkl00V>oCG>L0P0086Li00<005[FF]H05E[F00<004icCW<04Dic00<0 03g_?Nl043g_00<0036<o0@000F>o000?Hkl00`00HkmS_`02Hkl70018Li`00`00IcUW>@0NIcT00`00F]IJeP0EF]H00`00 CW=>L`0ACW<00`00?Nlmk`0@?Nl00`00o009S_`Moo`T0041cW08001mW>@03001JeU[F 01EJeP03001>Ldic015>L`03000mkcg_010mk`03000aS36<00haS003000U:BDY00`U:@03000HaQS6 00`HaP03000o00<006>oHkl00V>o47oo1P00?7>L00<006Li IcT07FLi00<005[FF]H05E[F00<004icCW<04Dic00<003g_?Nl043g_00<0036<o0@000F>o000?Hkl00`00HkmS_`02HklF Ool5000hLi`2000NIcT00`00F]IJeP0EF]H00`00CW=>L`0ACW<00`00?Nlmk`0@?Nl00`00 o009S_a]oo`@003IcW003001W>FLi01aW>@03001JeU[F01EJeP03001>Ldic015>L`03000mkcg_ 00lmk`03000aS36<00haS003000U:BDY00dU:@03000HaQS600`HaP03000o00<006>oHkl00V>o7goo1000L00<006LiIcT076Li00<005[FF]H05E[F00<004ic CW<04Dic00<003g_?Nl03cg_00<0036<o0@000F>o000?Hkl00`00HkmS_`02HklSOol3000aLi`2000MIcT00`00F]IJeP0E F]H00`00CW=>L`0ACW<00`00?Nlmk`0??Nl00`00o009S_bIoo`<0031cW003001W>FLi 01]W>@03001JeU[F01EJeP03001>Ldic015>L`03000mkcg_00lmk`03000aS36<00haS003000U:BDY 00dU:@03000HaQS600/HaP03000o00<006>oHkl00V>o:Goo 0`00;W>L00<006LiIcT06fLi00<005[FF]H05E[F00<004icCW<04Dic00<003g_?Nl03cg_00<0036< o0@000F>o000?Hkl2 0003Hkl/Ool3000/Li`2000LIcT2000FF]H00`00CW=>L`0ACW<00`00?Nlmk`0??Nl00`00 o009S_bmoo`<002]cW003001W>FLi01]W>@03001JeU[F01=JeP03001>Ldic019>L`03000mkcg_ 00lmk`03000aS36<00haS003000U:BDY00/U:@03000HaQS600/HaP03000o00<006>oHkl00V>oL00<006LiIcT06fLi00<005[FF]H04e[F00<004ic CW<04Dic00<003g_?Nl043g_00<0036<o0@000F>o000?Hkl00`00HkmS_`02HkldOol2000YLi`2000LIcT00`00F]IJeP0C F]H00`00CW=>L`0ACW<00`00?Nlmk`0@?Nl00`00o009S_cIoo`03001cW7>L02QcW003 001W>FLi01YW>@03001JeU[F01=JeP03001>Ldic015>L`03000mkcg_010mk`03000aS36<00daS003 000U:BDY00`U:@03000HaQS600/HaP03000o00<006>oHkl0 0V>o=goo0P00:G>L00<006LiIcT06VLi00<005[FF]H04e[F00<004icCW<04Dic00<003g_?Nl043g_ 00<0036<o0@000F>o 000?Hkl00`00HkmS_`02HkliOol2000XLi`2000KIcT00`00F]IJeP0CF]H00`00CW=>L`0ACW<00`00 ?Nlmk`0@?Nl00`00o009S_c]oo`8002QcW003001W>FLi01UW>@03001JeU[F01=JeP03 001>Ldic015>L`03000mkcg_010mk`03000aS36<00daS003000U:BDY00/U:@03000HaQS600`HaP03 000o00<006>oHkl00V>o?Goo0P009g>L00<006LiIcT06FLi 00<005[FF]H04e[F00<004icCW<04Dic00<003g_?Nl03cg_00<0036<o0@000F>o000?Hkl00`00HkmS_`02HkloOol3000U Li`2000JIcT00`00F]IJeP0CF]H00`00CW=>L`0ACW<00`00?Nlmk`0??Nl00`00o009S _d9oo`8002EcW003001W>FLi01QW>@03001JeU[F01=JeP80019>L`03000mkcg_00lmk`03000aS36< 00daS003000U:BDY00`U:@03000HaQS600/HaP03000o00<0 06>oHkl00V>oA7oo0P0097>L00<006LiIcT066Li00<005[FF]H055[F00<004icCW<044ic00<003g_ ?Nl03cg_00<0036<o 0@000F>o000?Hkl20003Hkm6Ool00`00LiacW00RLi`00`00IcUW>@0HIcT00`00F]IJeP0DF]H00`00 CW=>L`0@CW<00`00?Nlmk`0??Nl00`00o0?mS_`eS_`40005S_`003f>o00<006>oHkl0 of>o3F>o0@000F>o000?Hkl00`00HkmS_`0bHkl00`00HkmS_`0hHkl00`00HkmS_`0hHkl00`00HkmS _`0iHkl00`00HkmS_`0UHkl10001Hkl000mS_`03001S_f>o009S_`03001S_f>o00US_`03001S_f>o 00US_`03001S_f>o00US_`03001S_f>o00US_`03001S_f>o00QS_`03001S_f>o00US_`03001S_f>o 00US_`03001S_f>o00US_`03001S_f>o00US_`03001S_f>o00US_`03001S_f>o00US_`03001S_f>o 00US_`03001S_f>o00QS_`03001S_f>o00US_`03001S_f>o00US_`03001S_f>o00US_`03001S_f>o 00US_`03001S_f>o00US_`03001S_f>o00US_`03001S_f>o00QS_`03001S_f>o00US_`03001S_f>o 00US_`03001S_f>o009S_`40005S_`003f>oo`004@000F>o003oHklQHkl00001\ \>"], ImageRangeCache->{{{0, 287}, {287, 0}} -> {-0.737466, -0.616315, 0.0842791, \ 0.0842791}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(ListDensityPlot[Im[BN]];\)\)], "Input", CellLabel->"In[350]:="], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% DensityGraphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0192308 0.041806 0.0192308 0.041806 [ [.01923 -0.0125 -3 -9 ] [.01923 -0.0125 3 0 ] [.22826 -0.0125 -3 -9 ] [.22826 -0.0125 3 0 ] [.43729 -0.0125 -6 -9 ] [.43729 -0.0125 6 0 ] [.64632 -0.0125 -6 -9 ] [.64632 -0.0125 6 0 ] [.85535 -0.0125 -6 -9 ] [.85535 -0.0125 6 0 ] [ 0 0 -0.125 0 ] [-0.0125 .01923 -6 -4.5 ] [-0.0125 .01923 0 4.5 ] [-0.0125 .22826 -6 -4.5 ] [-0.0125 .22826 0 4.5 ] [-0.0125 .43729 -12 -4.5 ] [-0.0125 .43729 0 4.5 ] [-0.0125 .64632 -12 -4.5 ] [-0.0125 .64632 0 4.5 ] [-0.0125 .85535 -12 -4.5 ] [-0.0125 .85535 0 4.5 ] [ 0 0 -0.125 0 ] [ 0 1 .125 0 ] [ 1 0 .125 0 ] [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .01923 0 m .01923 .00625 L s [(0)] .01923 -0.0125 0 1 Mshowa .22826 0 m .22826 .00625 L s [(5)] .22826 -0.0125 0 1 Mshowa .43729 0 m .43729 .00625 L s [(10)] .43729 -0.0125 0 1 Mshowa .64632 0 m .64632 .00625 L s [(15)] .64632 -0.0125 0 1 Mshowa .85535 0 m .85535 .00625 L s [(20)] .85535 -0.0125 0 1 Mshowa .125 Mabswid .06104 0 m .06104 .00375 L s .10284 0 m .10284 .00375 L s .14465 0 m .14465 .00375 L s .18645 0 m .18645 .00375 L s .27007 0 m .27007 .00375 L s .31187 0 m .31187 .00375 L s .35368 0 m .35368 .00375 L s .39548 0 m .39548 .00375 L s .4791 0 m .4791 .00375 L s .5209 0 m .5209 .00375 L s .56271 0 m .56271 .00375 L s .60452 0 m .60452 .00375 L s .68813 0 m .68813 .00375 L s .72993 0 m .72993 .00375 L s .77174 0 m .77174 .00375 L s .81355 0 m .81355 .00375 L s .89716 0 m .89716 .00375 L s .93896 0 m .93896 .00375 L s .98077 0 m .98077 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .01923 m .00625 .01923 L s [(0)] -0.0125 .01923 1 0 Mshowa 0 .22826 m .00625 .22826 L s [(5)] -0.0125 .22826 1 0 Mshowa 0 .43729 m .00625 .43729 L s [(10)] -0.0125 .43729 1 0 Mshowa 0 .64632 m .00625 .64632 L s [(15)] -0.0125 .64632 1 0 Mshowa 0 .85535 m .00625 .85535 L s [(20)] -0.0125 .85535 1 0 Mshowa .125 Mabswid 0 .06104 m .00375 .06104 L s 0 .10284 m .00375 .10284 L s 0 .14465 m .00375 .14465 L s 0 .18645 m .00375 .18645 L s 0 .27007 m .00375 .27007 L s 0 .31187 m .00375 .31187 L s 0 .35368 m .00375 .35368 L s 0 .39548 m .00375 .39548 L s 0 .4791 m .00375 .4791 L s 0 .5209 m .00375 .5209 L s 0 .56271 m .00375 .56271 L s 0 .60452 m .00375 .60452 L s 0 .68813 m .00375 .68813 L s 0 .72993 m .00375 .72993 L s 0 .77174 m .00375 .77174 L s 0 .81355 m .00375 .81355 L s 0 .89716 m .00375 .89716 L s 0 .93896 m .00375 .93896 L s 0 .98077 m .00375 .98077 L s .25 Mabswid 0 0 m 0 1 L s .01923 .99375 m .01923 1 L s .22826 .99375 m .22826 1 L s .43729 .99375 m .43729 1 L s .64632 .99375 m .64632 1 L s .85535 .99375 m .85535 1 L s .125 Mabswid .06104 .99625 m .06104 1 L s .10284 .99625 m .10284 1 L s .14465 .99625 m .14465 1 L s .18645 .99625 m .18645 1 L s .27007 .99625 m .27007 1 L s .31187 .99625 m .31187 1 L s .35368 .99625 m .35368 1 L s .39548 .99625 m .39548 1 L s .4791 .99625 m .4791 1 L s .5209 .99625 m .5209 1 L s .56271 .99625 m .56271 1 L s .60452 .99625 m .60452 1 L s .68813 .99625 m .68813 1 L s .72993 .99625 m .72993 1 L s .77174 .99625 m .77174 1 L s .81355 .99625 m .81355 1 L s .89716 .99625 m .89716 1 L s .93896 .99625 m .93896 1 L s .98077 .99625 m .98077 1 L s .25 Mabswid 0 1 m 1 1 L s .99375 .01923 m 1 .01923 L s .99375 .22826 m 1 .22826 L s .99375 .43729 m 1 .43729 L s .99375 .64632 m 1 .64632 L s .99375 .85535 m 1 .85535 L s .125 Mabswid .99625 .06104 m 1 .06104 L s .99625 .10284 m 1 .10284 L s .99625 .14465 m 1 .14465 L s .99625 .18645 m 1 .18645 L s .99625 .27007 m 1 .27007 L s .99625 .31187 m 1 .31187 L s .99625 .35368 m 1 .35368 L s .99625 .39548 m 1 .39548 L s .99625 .4791 m 1 .4791 L s .99625 .5209 m 1 .5209 L s .99625 .56271 m 1 .56271 L s .99625 .60452 m 1 .60452 L s .99625 .68813 m 1 .68813 L s .99625 .72993 m 1 .72993 L s .99625 .77174 m 1 .77174 L s .99625 .81355 m 1 .81355 L s .99625 .89716 m 1 .89716 L s .99625 .93896 m 1 .93896 L s .99625 .98077 m 1 .98077 L s .25 Mabswid 1 0 m 1 1 L s 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath % Start of gray image p .01923 .01923 translate .96154 .96154 scale 23 string 23 23 8 [23 0 0 23 0 0] { \tcurrentfile \t1 index \treadhexstring \tpop } Mimage 444342413E3C3935312D2925201C1814100C0906040200 888785827E78726B635B534A423930282019120C080401 898886837E79726B645C534A423930282019120C080401 8A8987837F79736C645C534B423931282019120D080401 8C8B8985807A746D655D544B423A31292119120D080401 8E8D8B88827C756E665E554C433A31292119130D080401 91908E8A857F776F675F564D443B3229211A130D080401 9493918E88827A716860574E443B322A211A130D080401 989795918C867E756A61584F453C332A221A130D080401 9C9B9996918A83796F635950463D342B221A130D080401 A1A09E9A958F887E74685B51473E342B231B140D080401 A6A5A3A09B958D847A6E6153493F352C231B140E080401 ABABA9A5A19B938A8075685A4A40362D241C140E080401 B2B1AFACA7A19A91877C6F615241372D241C150E080401 B8B8B6B2AEA8A1988E8377695A4A382E251D150E090401 C0BFBDBAB5AFA8A0968C7F726353422F261D150E090401 C7C7C5C2BDB7B1A89F94887B6D5D4C3A271E160F090401 CFCFCDCAC6C0B9B1A89E928577685746331E160F090401 D8D7D6D3CEC9C2BBB2A89C90827363523F2C170F090501 E1E1DFDCD8D3CCC5BCB2A79B8E7F6F5F4D392510090501 EBEAE8E6E2DDD6CFC7BDB2A79A8C7C6C5B4834200A0501 F5F4F3F0ECE7E1DAD2C9BEB3A6998A7A6A5845301B0501 FFFFFDFBF7F2EDE6DED5CBC0B4A79989796855422D1801 pop P % End of image .01923 .01923 m .01923 .98077 L s .06104 .01923 m .06104 .98077 L s .10284 .01923 m .10284 .98077 L s .14465 .01923 m .14465 .98077 L s .18645 .01923 m .18645 .98077 L s .22826 .01923 m .22826 .98077 L s .27007 .01923 m .27007 .98077 L s .31187 .01923 m .31187 .98077 L s .35368 .01923 m .35368 .98077 L s .39548 .01923 m .39548 .98077 L s .43729 .01923 m .43729 .98077 L s .4791 .01923 m .4791 .98077 L s .5209 .01923 m .5209 .98077 L s .56271 .01923 m .56271 .98077 L s .60452 .01923 m .60452 .98077 L s .64632 .01923 m .64632 .98077 L s .68813 .01923 m .68813 .98077 L s .72993 .01923 m .72993 .98077 L s .77174 .01923 m .77174 .98077 L s .81355 .01923 m .81355 .98077 L s .85535 .01923 m .85535 .98077 L s .89716 .01923 m .89716 .98077 L s .93896 .01923 m .93896 .98077 L s .98077 .01923 m .98077 .98077 L s .01923 .01923 m .98077 .01923 L s .01923 .06104 m .98077 .06104 L s .01923 .10284 m .98077 .10284 L s .01923 .14465 m .98077 .14465 L s .01923 .18645 m .98077 .18645 L s .01923 .22826 m .98077 .22826 L s .01923 .27007 m .98077 .27007 L s .01923 .31187 m .98077 .31187 L s .01923 .35368 m .98077 .35368 L s .01923 .39548 m .98077 .39548 L s .01923 .43729 m .98077 .43729 L s .01923 .4791 m .98077 .4791 L s .01923 .5209 m .98077 .5209 L s .01923 .56271 m .98077 .56271 L s .01923 .60452 m .98077 .60452 L s .01923 .64632 m .98077 .64632 L s .01923 .68813 m .98077 .68813 L s .01923 .72993 m .98077 .72993 L s .01923 .77174 m .98077 .77174 L s .01923 .81355 m .98077 .81355 L s .01923 .85535 m .98077 .85535 L s .01923 .89716 m .98077 .89716 L s .01923 .93896 m .98077 .93896 L s .01923 .98077 m .98077 .98077 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", CellLabel->"From In[350]:=", ImageSize->{288, 288}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgo8F>o003oHklQ Hkl00?mS_b5S_`004f>o0P00=V>o0`00o0`0016>o0P00;f>o0`000f>o0`00;f>o1@000f>o0P00 9F>o000BHkl01000HkmS_`00=6>o00D006>oHkmS_`0003=S_`03001S_f>o009S_`04001S_f>o000_ Hkl01@00HkmS_f>o00000f>o00<006>oHkl0;F>o00@006>oHkl0009S_`04001S_f>o000THkl0019S _`04001S_f>o000hHkl00`00HkmS_`0aHkl00`00HkmS_`02Hkl01000HkmS_`00;f>o00<006>oHkl0 1F>o00<006>oHkl0;V>o00<006>oHkl00V>o00@006>oHkl002AS_`004V>o00@006>oHkl003QS_`03 001S_f>o035S_`03001S_f>o009S_`04001S_f>o000_Hkl00`00HkmS_`05Hkl00`00HkmS_`0_Hkl0 1@00HkmS_f>o00000V>o00<006>oHkl08V>o000BHkl01000HkmS_`00=6>o1000=6>o00<006>oHkl0 0V>o00@006>oHkl002mS_`04001S_f>oHkl4000_Hkl01@00HkmS_f>o00000V>o00@006>oHkl002AS _`004V>o00@006>oHkl003AS_`03001S_f>o03AS_`8000AS_`04001S_f>o000^Hkl20003Hkl00`00 HkmS_`0`Hkl01@00HkmS_f>o00000V>o00@006>oHkl002AS_`004f>o0P00=F>o1@00o00<006>o Hkl00f>o0P00<6>o00@006>oHkmS_`D002mS_`<000AS_`8002ES_`00of>o8F>o003oHklQHkl00?mS _b5S_`00of>o8F>o000?Hkoo000A0001Hkl000mS_`03001S_f>o009S_`03001S_f>o00QS_`03001S _f>o00US_`03001S_f>o00QS_`03001S_f>o00US_`03001S_f>o00QS_`03001S_f>o00QS_`03001S _f>o00US_`03001S_f>o00QS_`03001S_f>o00QS_`03001S_f>o00US_`03001S_f>o00QS_`03001S _f>o00QS_`03001S_f>o00US_`03001S_f>o00QS_`03001S_f>o00QS_`03001S_f>o00US_`03001S _f>o00QS_`03001S_f>o00QS_`03001S_f>o00US_`03001S_f>o00QS_`03001S_f>o00QS_`03001S _f>o00US_`03001S_f>o00QS_`03001S_f>o009S_`40005S_`003f>o00<006>oHkl00V>o00<006>o Hkl0=V>o00<006>oHkl0=V>o00<006>oHkl0=F>o00<006>oHkl0=V>o00<006>oHkl096>o0@000F>o 0008Hkl20005Hkl00`00HkmS_`3oHkl=Hkl10001Hkl000MS_`04001S_f>o0004Hkl00`00HkmS_`3o Hkl=Hkl10001Hkl000MS_`04001S_f>o0004Hkl00`00HkmS_`3oHkl=Hkl10001Hkl000MS_`04001S _f>o0004Hkl30002Hkoo00070003Hkl20001Hkl000MS_`04001S_f>o0004Hkl00`00HkmS_`02Hkl0 0`008@PQ20088@P00`008@PQ20098@P00`008@PQ20088@P00`008@PQ20098@P00`007>LLi`087>L0 0`007>LLi`087>L00`007>LLi`097>L00`006o0004Hkl00`00HkmS_`02Hkl00`008@PQ20088@P00`008@PQ20098@P00`008@PQ 20088@P00`008@PQ20098@P00`007>LLi`087>L00`007>LLi`087>L00`007>LLi`097>L00`006o009S_`03000Q2248 00PQ2003000Q224800TQ2003000Q224800PQ2003000Q224800TQ2003000LiacW00PLi`03000LiacW 00PLi`03000LiacW00TLi`03000HaQS600PHaP03000HaQS600PHaP03000DYABU00TDY@03000DYABU 00PDY@03000@Q12400P@Q003000@Q12400T@Q003000o00<0 06>oHkl00V>o00<002488@P0224800<002488@P02B4800<002488@P0224800<002488@P02B4800<0 01cW7>L021cW00<001cW7>L021cW00<001cW7>L02AcW00<001S66o0@000F>o000?Hkl00`00HkmS_`02Hkl00`008@PQ20088@P00`008@PQ20098@P00`008@PQ2008 8@P00`008@PQ20098@P00`007>LLi`087>L00`007>LLi`087>L00`007>LLi`097>L00`006o009S_`03000Q224800PQ2003000Q 224800TQ2003000Q224800PQ2003000Q224800TQ2003000LiacW00PLi`03000LiacW00PLi`03000L iacW00TLi`03000HaQS600PHaP03000HaQS600PHaP03000DYABU00TDY@03000DYABU00PDY@03000@ Q12400P@Q003000@Q12400T@Q003000o00<006>oHkl00V>o 00<002488@P0224800<002488@P02B4800<002488@P0224800<002488@P02B4800<001cW7>L021cW 00<001cW7>L021cW00<001cW7>L02AcW00<001S66o0@000F>o 000?Hkl00`00HkmS_`02Hkl00`008@PQ20088@P00`008@PQ20098@P00`008@PQ20088@P00`008@PQ 20098@P00`007>LLi`087>L00`007>LLi`087>L00`007>LLi`097>L00`006o009S_`03000Q224800PQ2003000Q224800TQ2003 000Q224800PQ2003000Q224800TQ2003000LiacW00PLi`03000LiacW00PLi`03000LiacW00TLi`03 000HaQS600PHaP03000HaQS600PHaP03000DYABU00TDY@03000DYABU00PDY@03000@Q12400P@Q003 000@Q12400T@Q003000o00<006>oHkl00V>o00<002488@P0 224800<002488@P02B4800<002488@P0224800<002488@P02B4800<001cW7>L021cW00<001cW7>L0 21cW00<001cW7>L02AcW00<001S66o0@000F>o000?Hkl20003 Hkoo00070003Hkl20001Hkl000mS_`03001S_f>o009S_`03001600TicP03 000e[CF]00Pe[@03000aS36<00PaS003000]Jbe[00T]J`03000YBRU:00PYBP03000U:BDY00PU:@03 000Q224800TQ2003000LiacW00PLi`03000HaQS600PHaP03000DYABU00TDY@03000@Q12400P@Q003 000o00<006>oHkl00V>o00<004HaAS4024Ha00<0048@@Q002D8@00<0048@@Q00248@00<0048@@Q00 2D8@00<003g_?Nl023g_00<003g_?Nl023g_00<003W>>Lh02CW>00<003F]=Jd023F]00<0036<L0 21cW00<001S66o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00 AS56<@08AS400`00@Q124009@Q000`00@Q124008@Q000`00@Q124009@Q000`00?Nlmk`08?Nl00`00 ?Nlmk`08?Nl00`00>LhicP09>Lh00`00=Jde[@08=Jd00`00LLi`087>L00`006o009S_`03001600Ti cP03000e[CF]00Pe[@03000aS36<00PaS003000]Jbe[00T]J`03000YBRU:00PYBP03000U:BDY00PU :@03000Q224800TQ2003000LiacW00PLi`03000HaQS600PHaP03000DYABU00TDY@03000@Q12400P@ Q003000o00<006>oHkl00V>o00<004HaAS4024Ha00<0048@@Q002D8@00<0048@@Q00248@00<0048@ @Q002D8@00<003g_?Nl023g_00<003g_?Nl023g_00<003W>>Lh02CW>00<003F]=Jd023F]00<0036< L021cW00<001S66o0@000F>o000?Hkl00`00HkmS_`02Hkl0 0`00AS56<@08AS400`00@Q124009@Q000`00@Q124008@Q000`00@Q124009@Q000`00?Nlmk`08?Nl0 0`00?Nlmk`08?Nl00`00>LhicP09>Lh00`00=Jde[@08=Jd00`00LLi`087>L00`006o009S_`030016 00TicP03000e[CF]00Pe[@03000aS36<00PaS003000]Jbe[00T]J`03000YBRU:00PYBP03000U:BDY 00PU:@03000Q224800TQ2003000LiacW00PLi`03000HaQS600PHaP03000DYABU00TDY@03000@Q124 00P@Q003000o00<006>oHkl00V>o00<004HaAS4024Ha00<0048@@Q002D8@00<0048@@Q00248@00<0 048@@Q002D8@00<003g_?Nl023g_00<003g_?Nl023g_00<003W>>Lh02CW>00<003F]=Jd023F]00<0 036<L021cW00<001S66o0@000F>o000?Hkl00`00HkmS_`02 Hkl00`00AS56<@08AS400`00@Q124009@Q000`00@Q124008@Q000`00@Q124009@Q000`00?Nlmk`08 ?Nl00`00?Nlmk`08?Nl00`00>LhicP09>Lh00`00=Jde[@08=Jd00`00LLi`087>L00`006o009S_`03001600TicP03000e[CF]00Pe[@03000aS36<00PaS003000]Jbe[00T]J`03000YBRU:00PYBP03000U :BDY00PU:@03000Q224800TQ2003000LiacW00PLi`03000HaQS600PHaP03000DYABU00TDY@03000@ Q12400P@Q003000o0P000f>oo`001`000f>o0P000F>o000?Hkl00`00HkmS_`02Hkl00`00AS56<@08 AS400`00AS56<@09AS400`00@Q124008@Q000`00@Q124009@Q000`00?Nlmk`08?Nl00`00?Nlmk`08 ?Nl00`00>LhicP09>Lh00`00=Jde[@08=Jd00`00LLi`087>L00`006o009S_`03001600TicP03000e [CF]00Pe[@03000aS36<00PaS003000]Jbe[00T]J`03000YBRU:00PYBP03000U:BDY00PU:@03000Q 224800TQ2003000LiacW00PLi`03000HaQS600PHaP03000DYABU00TDY@03000@Q12400P@Q003000< H`aS00Po 00<006>oHkl00V>o00<004HaAS4024Ha00<004HaAS402DHa00<0048@@Q00248@00<0048@@Q002D8@ 00<003g_?Nl023g_00<003g_?Nl023g_00<003W>>Lh02CW>00<003F]=Jd023F]00<0036<L021cW 00<001S66o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00AS56 <@08AS400`00AS56<@09AS400`00@Q124008@Q000`00@Q124009@Q000`00?Nlmk`08?Nl00`00?Nlm k`08?Nl00`00>LhicP09>Lh00`00=Jde[@08=Jd00`00LLi`087>L00`006o009S_`03001600TicP03 000e[CF]00Pe[@03000aS36<00PaS003000]Jbe[00T]J`03000YBRU:00PYBP03000U:BDY00PU:@03 000Q224800TQ2003000LiacW00PLi`03000HaQS600PHaP03000DYABU00TDY@03000@Q12400P@Q003 000o00<006>oHkl00V>o00<004HaAS4024Ha00<004HaAS402DHa00<0048@@Q00248@00<0048@@Q00 2D8@00<003g_?Nl023g_00<003g_?Nl023g_00<003W>>Lh02CW>00<003F]=Jd023F]00<0036<L0 21cW00<001S66o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00 AS56<@08AS400`00AS56<@09AS400`00@Q124008@Q000`00@Q124009@Q000`00?Nlmk`08?Nl00`00 ?Nlmk`08?Nl00`00>LhicP09>Lh00`00=Jde[@08=Jd00`00LLi`087>L00`006o009S_`03001600Ti cP03000e[CF]00Pe[@03000aS36<00PaS003000]Jbe[00T]J`03000YBRU:00PYBP03000U:BDY00PU :@03000Q224800TQ2003000LiacW00PLi`03000HaQS600PHaP03000DYABU00TDY@03000@Q12400P@ Q003000o00<006>oHkl00V>o00<004HaAS4024Ha00<004HaAS402DHa00<0048@@Q00248@00<0048@ @Q002D8@00<003g_?Nl023g_00<003g_?Nl023g_00<003W>>Lh02CW>00<003F]=Jd023F]00<0036< L021cW00<001S66o0@000F>o000?Hkl00`00HkmS_`02Hkl0 0`00AS56<@08AS400`00AS56<@09AS400`00@Q124008@Q000`00@Q124009@Q000`00?Nlmk`08?Nl0 0`00?Nlmk`08?Nl00`00>LhicP09>Lh00`00=Jde[@08=Jd00`00LLi`087>L00`006o009S_`030016 00TicP03000e[CF]00Pe[@03000aS36<00PaS003000]Jbe[00T]J`03000YBRU:00PYBP03000U:BDY 00PU:@03000Q224800TQ2003000LiacW00PLi`03000HaQS600PHaP03000DYABU00TDY@03000@Q124 00P@Q003000o0P000f>oo`001`000f>o0P000F>o000?Hkl00`00HkmS_`02Hkl00`00AS56<@08AS40 0`00AS56<@09AS400`00@Q124008@Q000`00@Q124009@Q000`00?Nlmk`08?Nl00`00?Nlmk`08?Nl0 0`00>LhicP09>Lh00`00=Jde[@08=Jd00`00LLi`087>L00`006o009S_`03001600TicP03000e[CF] 00Pe[@03000aS36<00PaS003000]Jbe[00T]J`03000YBRU:00PYBP03000U:BDY00PU:@03000Q2248 00TQ2003000LiacW00PLi`03000HaQS600PHaP03000DYABU00TDY@03000@Q12400P@Q003000o00<0 06>oHkl00V>o00<004HaAS4024Ha00<004HaAS402DHa00<0048@@Q00248@00<0048@@Q002D8@00<0 03g_?Nl023g_00<003g_?Nl023g_00<003W>>Lh02CW>00<003F]=Jd023F]00<0036<L021cW00<0 01S66o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00AS56<@08 AS400`00AS56<@09AS400`00@Q124008@Q000`00@Q124009@Q000`00?Nlmk`08?Nl00`00?Nlmk`08 ?Nl00`00>LhicP09>Lh00`00=Jde[@08=Jd00`00LLi`087>L00`006o009S_`03001600TicP03000e [CF]00Pe[@03000aS36<00PaS003000]Jbe[00T]J`03000YBRU:00PYBP03000U:BDY00PU:@03000Q 224800TQ2003000LiacW00PLi`03000HaQS600PHaP03000DYABU00TDY@03000@Q12400P@Q003000< H`aS00Po 00<006>oHkl00V>o00<004HaAS4024Ha00<004HaAS402DHa00<0048@@Q00248@00<0048@@Q002D8@ 00<003g_?Nl023g_00<003g_?Nl023g_00<003W>>Lh02CW>00<003F]=Jd023F]00<0036<L021cW 00<001S66o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00AS56 <@08AS400`00AS56<@09AS400`00@Q124008@Q000`00@Q124009@Q000`00?Nlmk`08?Nl00`00?Nlm k`08?Nl00`00>LhicP09>Lh00`00=Jde[@08=Jd00`00LLi`087>L00`006o009S_`03001600TicP03 000e[CF]00Pe[@03000aS36<00PaS003000]Jbe[00T]J`03000YBRU:00PYBP03000U:BDY00PU:@03 000Q224800TQ2003000LiacW00PLi`03000HaQS600PHaP03000DYABU00TDY@03000@Q12400P@Q003 000o00<006>oHkl00V>o00<004HaAS4024Ha00<004HaAS402DHa00<0048@@Q00248@00<0048@@Q00 2D8@00<003g_?Nl023g_00<003g_?Nl023g_00<003W>>Lh02CW>00<003F]=Jd023F]00<0036<L0 21cW00<001S66o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00 AS56<@08AS400`00AS56<@09AS400`00@Q124008@Q000`00@Q124009@Q000`00?Nlmk`08?Nl00`00 ?Nlmk`08?Nl00`00>LhicP09>Lh00`00=Jde[@08=Jd00`00LLi`087>L00`006o00<006>oHkl0 0V>o00<004HaAS4024Ha00<004HaAS402DHa00<004HaAS4024Ha00<0048@@Q002D8@00<0048@@Q00 248@00<003g_?Nl023g_00<003W>>Lh02CW>00<003F]=Jd023F]00<0036<L021cW00<001S66o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00AS56<@08AS400`00 AS56<@09AS400`00AS56<@08AS400`00@Q124009@Q000`00@Q124008@Q000`00?Nlmk`08?Nl00`00 >LhicP09>Lh00`00=Jde[@08=Jd00`00LLi`087>L00`006o009S_`03001600TicP03000e[CF]00Pe [@03000aS36<00PaS003000]Jbe[00T]J`03000YBRU:00PYBP03000U:BDY00PU:@03000Q224800TQ 2003000LiacW00PLi`03000HaQS600PHaP03000DYABU00TDY@03000@Q12400P@Q003000o00<006>o Hkl00V>o00<004HaAS4024Ha00<004HaAS402DHa00<004HaAS4024Ha00<0048@@Q002D8@00<0048@ @Q00248@00<003g_?Nl023g_00<003W>>Lh02CW>00<003F]=Jd023F]00<0036<L021cW00<001S6 6o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00AS56<@08AS40 0`00AS56<@09AS400`00AS56<@08AS400`00@Q124009@Q000`00@Q124008@Q000`00?Nlmk`08?Nl0 0`00>LhicP09>Lh00`00=Jde[@08=Jd00`00LLi`087>L00`006o009S_`03001600TicP03000e[CF] 00Pe[@03000aS36<00PaS003000]Jbe[00T]J`03000YBRU:00PYBP03000U:BDY00PU:@03000Q2248 00TQ2003000LiacW00PLi`03000HaQS600PHaP03000DYABU00TDY@03000@Q12400P@Q003000o00<0 06>oHkl00V>o00<004HaAS4024Ha00<004HaAS402DHa00<004HaAS4024Ha00<0048@@Q002D8@00<0 048@@Q00248@00<003g_?Nl023g_00<003W>>Lh02CW>00<003F]=Jd023F]00<0036<L021cW00<0 01S66o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00AS56<@08 AS400`00AS56<@09AS400`00AS56<@08AS400`00@Q124009@Q000`00@Q124008@Q000`00?Nlmk`08 ?Nl00`00>LhicP09>Lh00`00=Jde[@08=Jd00`00LLi`087>L00`006o009S_`03001600Ti cP03000e[CF]00Pe[@03000aS36<00PaS003000]Jbe[00T]J`03000YBRU:00PYBP03000U:BDY00PU :@03000Q224800TQ2003000LiacW00PLi`03000HaQS600PHaP03000DYABU00TDY@03000@Q12400P@ Q003000o00D006>oHkmS_`0000AS_`03001S_f>o009S_`03001600TicP03 000e[CF]00Pe[@03000aS36<00PaS003000]Jbe[00T]J`03000YBRU:00PYBP03000U:BDY00PU:@03 000Q224800TQ2003000LiacW00PLi`03000HaQS600PHaP03000DYABU00TDY@03000@Q12400P@Q003 000o00<006>oHkl00V>o0`000V>oo`001`000f>o0P000F>o000:Hkl00`00HkmS_`02Hkl00`00HkmS _`02Hkl00`00AS56<@08AS400`00AS56<@09AS400`00AS56<@08AS400`00AS56<@09AS400`00@Q12 4008@Q000`00?Nlmk`08?Nl00`00>LhicP09>Lh00`00=Jde[@08=Jd00`00LLi`087>L00`006o009S_`03001600TicP03000e[CF]00Pe[@03000aS36<00PaS003000]Jbe[00T]J`03000YBRU: 00PYBP03000U:BDY00PU:@03000Q224800TQ2003000LiacW00PLi`03000HaQS600PHaP03000DYABU 00TDY@03000@Q12400P@Q003000o00<006>oHkl01V>o00<006>oHkl00V>o00<004HaAS4024Ha00<0 04HaAS402DHa00<004HaAS4024Ha00<004HaAS402DHa00<0048@@Q00248@00<003g_?Nl023g_00<0 03W>>Lh02CW>00<003F]=Jd023F]00<0036<L021cW00<001S66o0@000F>o0006Hkl50004Hkl00`00HkmS_`02Hkl00`00AS56<@08AS400`00AS56<@09AS400`00 AS56<@08AS400`00AS56<@09AS400`00@Q124008@Q000`00?Nlmk`08?Nl00`00>LhicP09>Lh00`00 =Jde[@08=Jd00`00LLi`087>L00`006o009S_`03001600TicP03000e[CF]00Pe[@03000aS36<00Pa S003000]Jbe[00T]J`03000YBRU:00PYBP03000U:BDY00PU:@03000Q224800TQ2003000LiacW00PL i`03000HaQS600PHaP03000DYABU00TDY@03000@Q12400P@Q003000o00<006>oHkl00V>o00<004Ha AS4024Ha00<004HaAS402DHa00<004HaAS4024Ha00<004HaAS402DHa00<0048@@Q00248@00<003g_ ?Nl023g_00<003W>>Lh02CW>00<003F]=Jd023F]00<0036<L021cW00<001S66o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00AS56<@08AS400`00AS56<@09AS40 0`00AS56<@08AS400`00AS56<@09AS400`00@Q124008@Q000`00?Nlmk`08?Nl00`00>LhicP09>Lh0 0`00=Jde[@08=Jd00`00LLi`087>L00`006o009S_`03001600TicP03000e[CF]00Pe[@03000aS36< 00PaS003000]Jbe[00T]J`03000YBRU:00PYBP03000U:BDY00PU:@03000Q224800TQ2003000LiacW 00PLi`03000HaQS600PHaP03000DYABU00TDY@03000@Q12400P@Q003000o00<006>oHkl00V>o00<0 04HaAS4024Ha00<004HaAS402DHa00<004HaAS4024Ha00<004HaAS402DHa00<0048@@Q00248@00<0 03g_?Nl023g_00<003W>>Lh02CW>00<003F]=Jd023F]00<0036<L021cW00<001S66o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00AS56<@08AS400`00AS56<@09 AS400`00AS56<@08AS400`00AS56<@09AS400`00@Q124008@Q000`00?Nlmk`08?Nl00`00>LhicP09 >Lh00`00=Jde[@08=Jd00`00LLi`087>L00`006o009S_`03001600TicP03000e[CF]00Pe[@03000a S36<00PaS003000]Jbe[00T]J`03000YBRU:00PYBP03000U:BDY00PU:@03000Q224800TQ2003000L iacW00PLi`03000HaQS600PHaP03000DYABU00TDY@03000@Q12400P@Q003000o0P000f>oo`001`00 0f>o0P000F>o000?Hkl00`00HkmS_`02Hkl00`00BU9:DP08BU800`00BU9:DP09BU800`00AS56<@08 AS400`00AS56<@09AS400`00@Q124008@Q000`00?Nlmk`08?Nl00`00>LhicP09>Lh00`00=Jde[@08 =Jd00`00LLi`087>L00`006o009S_`03001:DTYB00Q:DP03001:DTYB00U:DP03001600TicP03000e[CF]00Pe[@03000aS36<00PaS003000] Jbe[00T]J`03000YBRU:00PYBP03000U:BDY00PU:@03000Q224800TQ2003000LiacW00PLi`03000H aQS600PHaP03000DYABU00TDY@03000@Q12400P@Q003000o00<006>oHkl00V>o00<004YBBU8024YB 00<004YBBU802DYB00<004HaAS4024Ha00<004HaAS402DHa00<0048@@Q00248@00<003g_?Nl023g_ 00<003W>>Lh02CW>00<003F]=Jd023F]00<0036<L021cW00<001S66o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00BU9:DP08BU800`00BU9:DP09BU800`00AS56 <@08AS400`00AS56<@09AS400`00@Q124008@Q000`00?Nlmk`08?Nl00`00>LhicP09>Lh00`00=Jde [@08=Jd00`00LLi`087>L00`006o009S_`03001:DTYB00Q:DP03001:DTYB00U:DP03001600TicP03000e[CF]00Pe[@03000aS36<00PaS003 000]Jbe[00T]J`03000YBRU:00PYBP03000U:BDY00PU:@03000Q224800TQ2003000LiacW00PLi`03 000HaQS600PHaP03000DYABU00TDY@03000@Q12400P@Q003000o00<006>oHkl00V>o00<004YBBU80 24YB00<004YBBU802DYB00<004HaAS4024Ha00<004HaAS402DHa00<0048@@Q00248@00<003g_?Nl0 23g_00<003W>>Lh02CW>00<003F]=Jd023F]00<0036<L021cW00<001S66o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00BU9:DP08BU800`00BU9:DP09BU800`00 AS56<@08AS400`00AS56<@09AS400`00@Q124008@Q000`00?Nlmk`08?Nl00`00>LhicP09>Lh00`00 =Jde[@08=Jd00`00LLi`087>L00`006o009S_`03001:DTYB00Q:DP03001:DTYB00U:DP03001600TicP03000e[CF]00Pe[@03000aS36<00Pa S003000]Jbe[00T]J`03000YBRU:00PYBP03000U:BDY00PU:@03000Q224800TQ2003000LiacW00PL i`03000HaQS600PHaP03000DYABU00TDY@03000@Q12400P@Q003000o00<006>oHkl00V>o00<004YB BU8024YB00<004YBBU802DYB00<004HaAS4024Ha00<004HaAS402DHa00<0048@@Q00248@00<003g_ ?Nl023g_00<003W>>Lh02CW>00<003F]=Jd023F]00<0036<L021cW00<001S66o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00BU9:DP08BU800`00BU9:DP09BU80 0`00AS56<@08AS400`00AS56<@09AS400`00@Q124008@Q000`00?Nlmk`08?Nl00`00>LhicP09>Lh0 0`00=Jde[@08=Jd00`00LLi`087>L00`006o00<006>oHkl00V>o00<004YBBU8024YB00<004YB BU802DYB00<004YBBU8024YB00<004HaAS402DHa00<004HaAS4024Ha00<0048@@Q00248@00<003g_ ?Nl02Cg_00<003W>>Lh023W>00<003F]=Jd023F]00<0036<L021cW00<001S66o 0@000F>o000?Hkl00`00HkmS_`02Hkl00`00BU9:DP08BU800`00BU9:DP09BU800`00BU9:DP08BU80 0`00AS56<@09AS400`00AS56<@08AS400`00@Q124008@Q000`00?Nlmk`09?Nl00`00>LhicP08>Lh0 0`00=Jde[@08=Jd00`00LLi`087>L00`006o 009S_`03001:DTYB00Q:DP03001:DTYB00U:DP03001:DTYB00Q:DP03001600PicP03000e[CF]00Pe[@03000aS36< 00TaS003000YBRU:00PYBP03000U:BDY00PU:@03000Q224800TQ2003000LiacW00PLi`03000HaQS6 00PHaP03000DYABU00TDY@03000@Q12400P@Q003000o00<006>oHkl00V>o00<004YBBU8024YB00<0 04YBBU802DYB00<004YBBU8024YB00<004HaAS402DHa00<004HaAS4024Ha00<0048@@Q00248@00<0 03g_?Nl02Cg_00<003W>>Lh023W>00<003F]=Jd023F]00<0036<L021cW00<001S66o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00BU9:DP08BU800`00BU9:DP09BU800`00BU9:DP08 BU800`00AS56<@09AS400`00AS56<@08AS400`00@Q124008@Q000`00?Nlmk`09?Nl00`00>LhicP08 >Lh00`00=Jde[@08=Jd00`00LLi`087>L00`006o009S_`03001:DTYB00Q:DP03001:DTYB00U:DP03001:DTYB00Q:DP03001600PicP03000e[CF]00Pe[@03000a S36<00TaS003000YBRU:00PYBP03000U:BDY00PU:@03000Q224800TQ2003000LiacW00PLi`03000H aQS600PHaP03000DYABU00TDY@03000@Q12400P@Q003000o00<006>oHkl00V>o00<004YBBU8024YB 00<004YBBU802DYB00<004YBBU8024YB00<004HaAS402DHa00<004HaAS4024Ha00<0048@@Q00248@ 00<003g_?Nl02Cg_00<003W>>Lh023W>00<003F]=Jd023F]00<0036<L021cW00<001S66o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00BU9:DP08BU800`00BU9:DP09BU800`00BU9: DP08BU800`00AS56<@09AS400`00AS56<@08AS400`00@Q124008@Q000`00?Nlmk`09?Nl00`00>Lhi cP08>Lh00`00=Jde[@08=Jd00`00LLi`087>L00`006o009S_`03001:DTYB00Q:DP03001:DTYB00U:DP03001:DTYB00Q:DP03001600PicP03000e[CF]00Pe[@03 000aS36<00TaS003000YBRU:00PYBP03000U:BDY00PU:@03000Q224800TQ2003000LiacW00PLi`03 000HaQS600PHaP03000DYABU00TDY@03000@Q12400P@Q003000o00<006>oHkl00V>o00<004YBBU80 24YB00<004YBBU802DYB00<004YBBU8024YB00<004HaAS402DHa00<004HaAS4024Ha00<0048@@Q00 248@00<003g_?Nl02Cg_00<003W>>Lh023W>00<003F]=Jd023F]00<0036<L021cW00<001S66o0@000F>o000?Hkl20003Hkoo00070003Hkl20001Hkl000mS_`03001S_f>o009S_`03 001>Ldic00Q>L`03001:DTYB00U:DP03001:DTYB00Q:DP03001:DTYB00U:DP03001600PicP03000e[CF]00Pe[@03000aS36<00TaS003 000]Jbe[00P]J`03000U:BDY00PU:@03000Q224800TQ2003000LiacW00PLi`03000HaQS600PHaP03 000DYABU00TDY@03000@Q12400P@Q003000o00<006>oHkl00V>o00<004icCW<024ic00<004YBBU80 2DYB00<004YBBU8024YB00<004YBBU802DYB00<004HaAS4024Ha00<0048@@Q00248@00<003g_?Nl0 2Cg_00<003W>>Lh023W>00<003F]=Jd023F]00<0036<L021cW00<001S66o0@00 0F>o000?Hkl00`00HkmS_`02Hkl00`00CW=>L`08CW<00`00BU9:DP09BU800`00BU9:DP08BU800`00 BU9:DP09BU800`00AS56<@08AS400`00@Q124008@Q000`00?Nlmk`09?Nl00`00>LhicP08>Lh00`00 =Jde[@08=Jd00`00LLi`087>L00`006o009S _`03001>Ldic00Q>L`03001:DTYB00U:DP03001:DTYB00Q:DP03001:DTYB00U:DP03001600PicP03000e[CF]00Pe[@03000aS36<00Ta S003000]Jbe[00P]J`03000U:BDY00PU:@03000Q224800TQ2003000LiacW00PLi`03000HaQS600PH aP03000DYABU00TDY@03000@Q12400P@Q003000o00<006>oHkl00V>o00<004icCW<024ic00<004YB BU802DYB00<004YBBU8024YB00<004YBBU802DYB00<004HaAS4024Ha00<0048@@Q00248@00<003g_ ?Nl02Cg_00<003W>>Lh023W>00<003F]=Jd023F]00<0036<L021cW00<001S66o 0@000F>o000?Hkl00`00HkmS_`02Hkl00`00CW=>L`08CW<00`00BU9:DP09BU800`00BU9:DP08BU80 0`00BU9:DP09BU800`00AS56<@08AS400`00@Q124008@Q000`00?Nlmk`09?Nl00`00>LhicP08>Lh0 0`00=Jde[@08=Jd00`00LLi`087>L00`006o 009S_`03001>Ldic00Q>L`03001:DTYB00U:DP03001:DTYB00Q:DP03001:DTYB00U:DP03001600PicP03000e[CF]00Pe[@03000aS36< 00TaS003000]Jbe[00P]J`03000U:BDY00PU:@03000Q224800TQ2003000LiacW00PLi`03000HaQS6 00PHaP03000DYABU00TDY@03000@Q12400P@Q003000o00<006>oHkl00V>o00<004icCW<024ic00<0 04YBBU802DYB00<004YBBU8024YB00<004YBBU802DYB00<004HaAS4024Ha00<0048@@Q00248@00<0 03g_?Nl02Cg_00<003W>>Lh023W>00<003F]=Jd023F]00<0036<L021cW00<001S66o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00CW=>L`08CW<00`00BU9:DP09BU800`00BU9:DP08 BU800`00BU9:DP09BU800`00AS56<@08AS400`00@Q124008@Q000`00?Nlmk`09?Nl00`00>LhicP08 >Lh00`00=Jde[@08=Jd00`00LLi`087>L00`006o009S_`03001>Ldic00Q>L`03001:DTYB00U:DP03001:DTYB00Q:DP03001:DTYB00U:DP030016 00PicP03000e[CF]00Pe[@03000a S36<00TaS003000]Jbe[00P]J`03000U:BDY00PU:@03000Q224800TQ2003000LiacW00PLi`03000H aQS600PHaP03000DYABU00TDY@03000@Q12400P@Q003000o00<006>oHkl00V>o00<004icCW<024ic 00<004YBBU802DYB00<004YBBU8024YB00<004YBBU802DYB00<004HaAS4024Ha00<0048@@Q00248@ 00<003g_?Nl02Cg_00<003W>>Lh023W>00<003F]=Jd023F]00<0036<L021cW00<001S66o0@000F>o000?Hkl20003Hkoo00070003Hkl20001Hkl000mS_`03001S_f>o009S_`03001> Ldic00Q>L`03001>Ldic00U>L`03001>Ldic00Q>L`03001:DTYB00U:DP03001:DTYB00Q:DP030016 o00<006>oHkl00V>o00<004icCW<024ic00<004icCW<02Dic 00<004icCW<024ic00<004YBBU802DYB00<004YBBU8024YB00<004HaAS4024Ha00<0048@@Q002D8@ 00<003g_?Nl023g_00<003F]=Jd023F]00<0036<L021cW00<001S66o0@000F>o 000?Hkl00`00HkmS_`02Hkl00`00CW=>L`08CW<00`00CW=>L`09CW<00`00CW=>L`08CW<00`00BU9: DP09BU800`00BU9:DP08BU800`00AS56<@08AS400`00@Q124009@Q000`00?Nlmk`08?Nl00`00=Jde [@08=Jd00`00LL i`087>L00`006o009S_`03 001>Ldic00Q>L`03001>Ldic00U>L`03001>Ldic00Q>L`03001:DTYB00U:DP03001:DTYB00Q:DP03 0016o00<006>oHkl00V>o00<004icCW<024ic00<004icCW<0 2Dic00<004icCW<024ic00<004YBBU802DYB00<004YBBU8024YB00<004HaAS4024Ha00<0048@@Q00 2D8@00<003g_?Nl023g_00<003F]=Jd023F]00<0036<L021cW00<001S66o0@00 0F>o000?Hkl00`00HkmS_`02Hkl00`00CW=>L`08CW<00`00CW=>L`09CW<00`00CW=>L`08CW<00`00 BU9:DP09BU800`00BU9:DP08BU800`00AS56<@08AS400`00@Q124009@Q000`00?Nlmk`08?Nl00`00 =Jde[@08=Jd00`00LLi`087>L00`006o009S _`03001>Ldic00Q>L`03001>Ldic00U>L`03001>Ldic00Q>L`03001:DTYB00U:DP03001:DTYB00Q: DP030016o00<006>oHkl00V>o00<004icCW<024ic00<004ic CW<02Dic00<004icCW<024ic00<004YBBU802DYB00<004YBBU8024YB00<004HaAS4024Ha00<0048@ @Q002D8@00<003g_?Nl023g_00<003F]=Jd023F]00<0036<L021cW00<001S66o 0@000F>o000016>o0000000016>o0P001F>o00<006>oHkl00V>o00<004icCW<024ic00<004icCW<0 2Dic00<004icCW<024ic00<004YBBU802DYB00<004YBBU8024YB00<004HaAS4024Ha00<0048@@Q00 2D8@00<003g_?Nl023g_00<003F]=Jd023F]00<0036<L021cW00<001S66o0@00 0F>o0002Hkl00`00HkmS_`02Hkl01000HkmS_`0016>o00<006>oHkl00V>o00<004icCW<024ic00<0 04icCW<02Dic00<004icCW<024ic00<004YBBU802DYB00<004YBBU8024YB00<004HaAS4024Ha00<0 048@@Q002D8@00<003g_?Nl023g_00<003F]=Jd023F]00<0036<L021cW00<001S66o0@000F>o0002Hkl00`00HkmS_`02Hkl01000HkmS_`0016>o0`000V>oo`001`000f>o0P000F>o 0002Hkl00`00HkmS_`02Hkl01000HkmS_`0016>o00<006>oHkl00V>o00<005:DDY@025:D00<005:D DY@02E:D00<004icCW<024ic00<004icCW<02Dic00<004YBBU8024YB00<004HaAS4024Ha00<004Ha AS402DHa00<003g_?Nl023g_00<003W>>Lh023W>00<003F]=Jd02CF]00<002e[;F/022e[00<002U: :DX022U:00<002488@P02B4800<001cW7>L021cW00<001S66o 0@000F>o0002Hkl00`00HkmS_`02Hkl01000HkmS_`0016>o00<006>oHkl00V>o00<005:DDY@025:D 00<005:DDY@02E:D00<004icCW<024ic00<004icCW<02Dic00<004YBBU8024YB00<004HaAS4024Ha 00<004HaAS402DHa00<003g_?Nl023g_00<003W>>Lh023W>00<003F]=Jd02CF]00<002e[;F/022e[ 00<002U::DX022U:00<002488@P02B4800<001cW7>L021cW00<001S66o0@000F>o00000f>o00000004Hkl01000HkmS_`0016>o00<006>oHkl00V>o00<005:DDY@0 25:D00<005:DDY@02E:D00<004icCW<024ic00<004icCW<02Dic00<004YBBU8024YB00<004HaAS40 24Ha00<004HaAS402DHa00<003g_?Nl023g_00<003W>>Lh023W>00<003F]=Jd02CF]00<002e[;F/0 22e[00<002U::DX022U:00<002488@P02B4800<001cW7>L021cW00<001S66o0@000F>o0002Hkl00`00HkmS_`03Hkl20005Hkl00`00HkmS_`02Hkl00`00DYABU008 DY@00`00DYABU009DY@00`00CW=>L`08CW<00`00CW=>L`09CW<00`00BU9:DP08BU800`00AS56<@08 AS400`00AS56<@09AS400`00?Nlmk`08?Nl00`00>LhicP08>Lh00`00=Jde[@09=Jd00`00;F/]J`08 ;F/00`00:DXYBP08:DX00`008@PQ20098@P00`007>LLi`087>L00`006o009S_`03001BU5:D00QBU003001BU5:D00UBU003001> Ldic00Q>L`03001>Ldic00U>L`03001:DTYB00Q:DP03001600PicP03000e[CF]00Te[@03000]Jbe[00P]J`03000YBRU:00PYBP03000Q 224800TQ2003000LiacW00PLi`03000HaQS600PHaP03000DYABU00TDY@03000@Q12400P@Q003000< H`aS00Po 00<006>oHkl00V>o00<005:DDY@025:D00<005:DDY@02E:D00<004icCW<024ic00<004icCW<02Dic 00<004YBBU8024YB00<004HaAS4024Ha00<004HaAS402DHa00<003g_?Nl023g_00<003W>>Lh023W> 00<003F]=Jd02CF]00<002e[;F/022e[00<002U::DX022U:00<002488@P02B4800<001cW7>L021cW 00<001S66o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00DYAB U008DY@00`00DYABU009DY@00`00CW=>L`08CW<00`00CW=>L`09CW<00`00BU9:DP08BU800`00AS56 <@08AS400`00AS56<@09AS400`00?Nlmk`08?Nl00`00>LhicP08>Lh00`00=Jde[@09=Jd00`00;F/] J`08;F/00`00:DXYBP08:DX00`008@PQ20098@P00`007>LLi`087>L00`006o009S_`03001BU5:D00QBU003001BU5:D00UBU003 001>Ldic00Q>L`03001>Ldic00U>L`03001:DTYB00Q:DP03001600PicP03000e[CF]00Te[@03000]Jbe[00P]J`03000YBRU:00PYBP03 000Q224800TQ2003000LiacW00PLi`03000HaQS600PHaP03000DYABU00TDY@03000@Q12400P@Q003 000o00<006>oHkl00V>o00<005:DDY@025:D00<005:DDY@02E:D00<004icCW<024ic00<004icCW<0 2Dic00<004YBBU8024YB00<004HaAS4024Ha00<004HaAS402DHa00<003g_?Nl023g_00<003W>>Lh0 23W>00<003F]=Jd02CF]00<002e[;F/022e[00<002U::DX022U:00<002488@P02B4800<001cW7>L0 21cW00<001S66o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00 DYABU008DY@00`00DYABU009DY@00`00CW=>L`08CW<00`00CW=>L`09CW<00`00BU9:DP08BU800`00 AS56<@08AS400`00AS56<@09AS400`00?Nlmk`08?Nl00`00>LhicP08>Lh00`00=Jde[@09=Jd00`00 ;F/]J`08;F/00`00:DXYBP08:DX00`008@PQ20098@P00`007>LLi`087>L00`006o009S_`03001BU5:D00QBU003001BU5:D00UB U003001>Ldic00Q>L`03001>Ldic00U>L`03001:DTYB00Q:DP03001600PicP03000e[CF]00Te[@03000]Jbe[00P]J`03000YBRU:00PY BP03000Q224800TQ2003000LiacW00PLi`03000HaQS600PHaP03000DYABU00TDY@03000@Q12400P@ Q003000o0P000f>oo`001`000f>o0P000F>o000?Hkl00`00HkmS_`02Hkl00`00DYABU008DY@00`00 DYABU009DY@00`00DYABU008DY@00`00DYABU009DY@00`00CW=>L`08CW<00`00BU9:DP08BU800`00 AS56<@09AS400`00@Q124008@Q000`00?Nlmk`08?Nl00`00=Jde[@09=Jd00`00LLi`087>L00`006o009S_`03001BU5:D00QBU003001BU5:D00UBU003001BU5:D00QB U003001BU5:D00UBU003001>Ldic00Q>L`03001:DTYB00Q:DP030016o00<006>o Hkl00V>o00<005:DDY@025:D00<005:DDY@02E:D00<005:DDY@025:D00<005:DDY@02E:D00<004ic CW<024ic00<004YBBU8024YB00<004HaAS402DHa00<0048@@Q00248@00<003g_?Nl023g_00<003F] =Jd02CF]00<0036<L021cW00<001S6 6o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00DYABU008DY@0 0`00DYABU009DY@00`00DYABU008DY@00`00DYABU009DY@00`00CW=>L`08CW<00`00BU9:DP08BU80 0`00AS56<@09AS400`00@Q124008@Q000`00?Nlmk`08?Nl00`00=Jde[@09=Jd00`00LLi`087>L00`006o009S_`03001BU5:D00QBU003001BU5:D00UBU003001BU5:D 00QBU003001BU5:D00UBU003001>Ldic00Q>L`03001:DTYB00Q:DP030016o00<0 06>oHkl00V>o00<005:DDY@025:D00<005:DDY@02E:D00<005:DDY@025:D00<005:DDY@02E:D00<0 04icCW<024ic00<004YBBU8024YB00<004HaAS402DHa00<0048@@Q00248@00<003g_?Nl023g_00<0 03F]=Jd02CF]00<0036<L021cW00<0 01S66o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00DYABU008 DY@00`00DYABU009DY@00`00DYABU008DY@00`00DYABU009DY@00`00CW=>L`08CW<00`00BU9:DP08 BU800`00AS56<@09AS400`00@Q124008@Q000`00?Nlmk`08?Nl00`00=Jde[@09=Jd00`00LLi`087>L00`006o009S_`03001BU5:D00QBU003001BU5:D00UBU003001B U5:D00QBU003001BU5:D00UBU003001>Ldic00Q>L`03001:DTYB00Q:DP030016o 00<006>oHkl00V>o00<005:DDY@025:D00<005:DDY@02E:D00<005:DDY@025:D00<005:DDY@02E:D 00<004icCW<024ic00<004YBBU8024YB00<004HaAS402DHa00<0048@@Q00248@00<003g_?Nl023g_ 00<003F]=Jd02CF]00<0036<L021cW 00<001S66o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00DYAB U008DY@00`00DYABU009DY@00`00DYABU008DY@00`00DYABU009DY@00`00CW=>L`08CW<00`00BU9: DP08BU800`00AS56<@09AS400`00@Q124008@Q000`00?Nlmk`08?Nl00`00=Jde[@09=Jd00`00LLi`087>L00`006o00<006>oHkl00V>o 00<005JeE[D025Je00<005JeE[D02EJe00<005JeE[D025Je00<005:DDY@02E:D00<005:DDY@025:D 00<004icCW<024ic00<004YBBU802DYB00<004HaAS4024Ha00<0048@@Q00248@00<003W>>Lh02CW> 00<003F]=Jd023F]00<002e[;F/022e[00<002DY9BT02BDY00<002488@P0224800<001S66o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00E[EF]@08E[D00`00E[EF ]@09E[D00`00E[EF]@08E[D00`00DYABU009DY@00`00DYABU008DY@00`00CW=>L`08CW<00`00BU9: DP09BU800`00AS56<@08AS400`00@Q124008@Q000`00>LhicP09>Lh00`00=Jde[@08=Jd00`00;F/] J`08;F/00`009BTU:@099BT00`008@PQ20088@P00`006o009S_`03001F]EJe00QF]@03001F]EJe00UF]@03001F]EJe00QF]@03 001BU5:D00UBU003001BU5:D00QBU003001>Ldic00Q>L`03001:DTYB00U:DP03001600TicP03000e[CF]00Pe[@03000]Jbe[00P]J`03000U:BDY00TU:@03 000Q224800PQ2003000HaQS600PHaP03000DYABU00TDY@03000@Q12400P@Q003000o00<006>oHkl0 0V>o00<005JeE[D025Je00<005JeE[D02EJe00<005JeE[D025Je00<005:DDY@02E:D00<005:DDY@0 25:D00<004icCW<024ic00<004YBBU802DYB00<004HaAS4024Ha00<0048@@Q00248@00<003W>>Lh0 2CW>00<003F]=Jd023F]00<002e[;F/022e[00<002DY9BT02BDY00<002488@P0224800<001S66o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00E[EF]@08E[D00`00 E[EF]@09E[D00`00E[EF]@08E[D00`00DYABU009DY@00`00DYABU008DY@00`00CW=>L`08CW<00`00 BU9:DP09BU800`00AS56<@08AS400`00@Q124008@Q000`00>LhicP09>Lh00`00=Jde[@08=Jd00`00 ;F/]J`08;F/00`009BTU:@099BT00`008@PQ20088@P00`006o009S_`03001F]EJe00QF]@03001F]EJe00UF]@03001F]EJe00QF ]@03001BU5:D00UBU003001BU5:D00QBU003001>Ldic00Q>L`03001:DTYB00U:DP03001600TicP03000e[CF]00Pe[@03000]Jbe[00P]J`03000U:BDY00TU :@03000Q224800PQ2003000HaQS600PHaP03000DYABU00TDY@03000@Q12400P@Q003000o00<006>o Hkl00V>o00<005JeE[D025Je00<005JeE[D02EJe00<005JeE[D025Je00<005:DDY@02E:D00<005:D DY@025:D00<004icCW<024ic00<004YBBU802DYB00<004HaAS4024Ha00<0048@@Q00248@00<003W> >Lh02CW>00<003F]=Jd023F]00<002e[;F/022e[00<002DY9BT02BDY00<002488@P0224800<001S6 6o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00E[EF]@08E[D0 0`00E[EF]@09E[D00`00E[EF]@08E[D00`00DYABU009DY@00`00DYABU008DY@00`00CW=>L`08CW<0 0`00BU9:DP09BU800`00AS56<@08AS400`00@Q124008@Q000`00>LhicP09>Lh00`00=Jde[@08=Jd0 0`00;F/]J`08;F/00`009BTU:@099BT00`008@PQ20088@P00`006o009S_`03001F]EJe00QF]@03001F]EJe00UF]@03001F]EJe 00QF]@03001BU5:D00UBU003001BU5:D00QBU003001>Ldic00Q>L`03001:DTYB00U:DP03001600TicP03000e[CF]00Pe[@03000]Jbe[00P]J`03000U:BDY 00TU:@03000Q224800PQ2003000HaQS600PHaP03000DYABU00TDY@03000@Q12400P@Q003000o00<0 06>oHkl00V>o00<005JeE[D025Je00<005JeE[D02EJe00<005JeE[D025Je00<005:DDY@02E:D00<0 05:DDY@025:D00<004icCW<024ic00<004YBBU802DYB00<004HaAS4024Ha00<0048@@Q00248@00<0 03W>>Lh02CW>00<003F]=Jd023F]00<002e[;F/022e[00<002DY9BT02BDY00<002488@P0224800<0 01S66o0@000F>o000?Hkl20003Hkoo00070003Hkl20001Hkl0 00mS_`03001S_f>o009S_`03001JeU[F00QJeP03001JeU[F00UJeP03001F]EJe00QF]@03001F]EJe 00UF]@03001BU5:D00QBU003001BU5:D00QBU003001>Ldic00U>L`03001:DTYB00Q:DP030012448@ 00Q24003000mkcg_00Tmk`03000e[CF]00Pe[@03000aS36<00PaS003000YBRU:00TYBP03000Q2248 00PQ2003000HaQS600PHaP03000DYABU00TDY@03000@Q12400P@Q003000o00<006>oHkl00V>o00<0 05[FF]H025[F00<005[FF]H02E[F00<005JeE[D025Je00<005JeE[D02EJe00<005:DDY@025:D00<0 05:DDY@025:D00<004icCW<02Dic00<004YBBU8024YB00<0048@@Q00248@00<003g_?Nl02Cg_00<0 03F]=Jd023F]00<0036<o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00F]IJeP08F]H00`00F]IJeP09 F]H00`00E[EF]@08E[D00`00E[EF]@09E[D00`00DYABU008DY@00`00DYABU008DY@00`00CW=>L`09 CW<00`00BU9:DP08BU800`00@Q124008@Q000`00?Nlmk`09?Nl00`00=Jde[@08=Jd00`00o009S_`03001JeU[F00QJeP03001JeU[F00UJeP03001F]EJe00QF]@03001F ]EJe00UF]@03001BU5:D00QBU003001BU5:D00QBU003001>Ldic00U>L`03001:DTYB00Q:DP030012 448@00Q24003000mkcg_00Tmk`03000e[CF]00Pe[@03000aS36<00PaS003000YBRU:00TYBP03000Q 224800PQ2003000HaQS600PHaP03000DYABU00TDY@03000@Q12400P@Q003000o00<006>oHkl00V>o 00<005[FF]H025[F00<005[FF]H02E[F00<005JeE[D025Je00<005JeE[D02EJe00<005:DDY@025:D 00<005:DDY@025:D00<004icCW<02Dic00<004YBBU8024YB00<0048@@Q00248@00<003g_?Nl02Cg_ 00<003F]=Jd023F]00<0036<o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00F]IJeP08F]H00`00F]IJ eP09F]H00`00E[EF]@08E[D00`00E[EF]@09E[D00`00DYABU008DY@00`00DYABU008DY@00`00CW=> L`09CW<00`00BU9:DP08BU800`00@Q124008@Q000`00?Nlmk`09?Nl00`00=Jde[@08=Jd00`00o009S_`03001JeU[F00QJeP03001JeU[F00UJeP03001F]EJe00QF]@03 001F]EJe00UF]@03001BU5:D00QBU003001BU5:D00QBU003001>Ldic00U>L`03001:DTYB00Q:DP03 0012448@00Q24003000mkcg_00Tmk`03000e[CF]00Pe[@03000aS36<00PaS003000YBRU:00TYBP03 000Q224800PQ2003000HaQS600PHaP03000DYABU00TDY@03000@Q12400P@Q003000o00<006>oHkl0 0V>o00<005[FF]H025[F00<005[FF]H02E[F00<005JeE[D025Je00<005JeE[D02EJe00<005:DDY@0 25:D00<005:DDY@025:D00<004icCW<02Dic00<004YBBU8024YB00<0048@@Q00248@00<003g_?Nl0 2Cg_00<003F]=Jd023F]00<0036<o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00F]IJeP08F]H00`00 F]IJeP09F]H00`00E[EF]@08E[D00`00E[EF]@09E[D00`00DYABU008DY@00`00DYABU008DY@00`00 CW=>L`09CW<00`00BU9:DP08BU800`00@Q124008@Q000`00?Nlmk`09?Nl00`00=Jde[@08=Jd00`00 o009S_`03001JeU[F00QJeP03001JeU[F00UJeP03001F]EJe00QF ]@03001F]EJe00UF]@03001BU5:D00QBU003001BU5:D00QBU003001>Ldic00U>L`03001:DTYB00Q: DP030012448@00Q24003000mkcg_00Tmk`03000e[CF]00Pe[@03000aS36<00PaS003000YBRU:00TY BP03000Q224800PQ2003000HaQS600PHaP03000DYABU00TDY@03000@Q12400P@Q003000o00<006>o Hkl00V>o00<005[FF]H025[F00<005[FF]H02E[F00<005JeE[D025Je00<005JeE[D02EJe00<005:D DY@025:D00<005:DDY@025:D00<004icCW<02Dic00<004YBBU8024YB00<0048@@Q00248@00<003g_ ?Nl02Cg_00<003F]=Jd023F]00<0036<o0@000F>o000?Hkl20003Hkoo00070003Hkl20001Hkl000mS _`03001S_f>o009S_`03001Nmekg00QNm`03001Nmekg00UNm`03001JeU[F00QJeP03001JeU[F00UJ eP03001F]EJe00QF]@03001F]EJe00QF]@03001BU5:D00UBU003001>Ldic00Q>L`03001600PicP03000e[CF]00Pe[@03000]Jbe[00T]J`03000U:BDY00PU :@03000LiacW00PLi`03000DYABU00TDY@03000@Q12400P@Q003000o00<006>oHkl00V>o00<005kg G_L025kg00<005kgG_L02Ekg00<005[FF]H025[F00<005[FF]H02E[F00<005JeE[D025Je00<005Je E[D025Je00<005:DDY@02E:D00<004icCW<024ic00<004HaAS4024Ha00<0048@@Q002D8@00<003W> >Lh023W>00<003F]=Jd023F]00<002e[;F/02Be[00<002DY9BT022DY00<001cW7>L021cW00<001BU 5:D02ABU00<0012448@0212400<000aS36<020aS00<000Q224802@Q200<000@Q124020@Q00<000@Q 124020@Q600016>o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00G_MNm`08G_L00`00G_MNm`09G_L0 0`00F]IJeP08F]H00`00F]IJeP09F]H00`00E[EF]@08E[D00`00E[EF]@08E[D00`00DYABU009DY@0 0`00CW=>L`08CW<00`00AS56<@08AS400`00@Q124009@Q000`00>LhicP08>Lh00`00=Jde[@08=Jd0 0`00;F/]J`09;F/00`009BTU:@089BT00`007>LLi`087>L00`005:DDY@095:D00`0048@@Q00848@0 0`0036<o009S_`03001Nmekg00QNm`03001Nmekg00UNm`03001JeU[F00QJeP03001JeU[F 00UJeP03001F]EJe00QF]@03001F]EJe00QF]@03001BU5:D00UBU003001>Ldic00Q>L`03001600PicP03000e[CF]00Pe[@03000]Jbe[00T]J`03000U:BDY 00PU:@03000LiacW00PLi`03000DYABU00TDY@03000@Q12400P@Q003000o00<006>oHkl00V>o00<0 05kgG_L025kg00<005kgG_L02Ekg00<005[FF]H025[F00<005[FF]H02E[F00<005JeE[D025Je00<0 05JeE[D025Je00<005:DDY@02E:D00<004icCW<024ic00<004HaAS4024Ha00<0048@@Q002D8@00<0 03W>>Lh023W>00<003F]=Jd023F]00<002e[;F/02Be[00<002DY9BT022DY00<001cW7>L021cW00<0 01BU5:D02ABU00<0012448@0212400<000aS36<020aS00<000Q224802@Q200<000@Q124020@Q00<0 00@Q124020@Q600016>o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00G_MNm`08G_L00`00G_MNm`09 G_L00`00F]IJeP08F]H00`00F]IJeP09F]H00`00E[EF]@08E[D00`00E[EF]@08E[D00`00DYABU009 DY@00`00CW=>L`08CW<00`00AS56<@08AS400`00@Q124009@Q000`00>LhicP08>Lh00`00=Jde[@08 =Jd00`00;F/]J`09;F/00`009BTU:@089BT00`007>LLi`087>L00`005:DDY@095:D00`0048@@Q008 48@00`0036<o009S_`03001Nmekg00QNm`03001Nmekg00UNm`03001JeU[F00QJeP03001J eU[F00UJeP03001F]EJe00QF]@03001F]EJe00QF]@03001BU5:D00UBU003001>Ldic00Q>L`030016 00PicP03000e[CF]00Pe[@03000]Jbe[00T]J`03000U :BDY00PU:@03000LiacW00PLi`03000DYABU00TDY@03000@Q12400P@Q003000o009S_`03001Nmekg00QNm`03001Nmekg00UNm`03001JeU[F00QJeP03001JeU[F 00UJeP03001F]EJe00QF]@03001F]EJe00QF]@03001BU5:D00UBU003001>Ldic00Q>L`03001600PicP03000e[CF]00Pe[@03000]Jbe[00T]J`03000U:BDY 00PU:@03000LiacW00PLi`03000DYABU00TDY@03000@Q12400P@Q003000o00D006>oHkmS_`0000=S _`03001S_f>o009S_`03001S_f>o009S_`03001Nmekg00QNm`03001Nmekg00UNm`03001JeU[F00QJ eP03001JeU[F00UJeP03001F]EJe00QF]@03001F]EJe00QF]@03001BU5:D00UBU003001>Ldic00Q> L`03001600PicP03000e[CF]00Pe[@03000]Jbe[00T] J`03000U:BDY00PU:@03000LiacW00PLi`03000DYABU00TDY@03000@Q12400P@Q003000o00<006>o Hkl01F>o00<006>oHkl00V>o00<006>oHkl00V>o00<005kgG_L025kg00<005kgG_L02Ekg00<005[F F]H025[F00<005[FF]H02E[F00<005JeE[D025Je00<005JeE[D025Je00<005:DDY@02E:D00<004ic CW<024ic00<004HaAS4024Ha00<0048@@Q002D8@00<003W>>Lh023W>00<003F]=Jd023F]00<002e[ ;F/02Be[00<002DY9BT022DY00<001cW7>L021cW00<001BU5:D02ABU00<0012448@0212400<000aS 36<020aS00<000Q224802@Q200<000@Q124020@Q00<000@Q124020@Q600016>o0@000F>o0002Hkl0 0`00HkmS_`05Hkl00`00HkmS_`02Hkl30002Hkoo00070003Hkl20001Hkl0009S_`04001S_f>oHkl4 0005Hkl00`00HkmS_`02Hkl00`00HaQS6008HaP00`00G_MNm`09G_L00`00G_MNm`08G_L00`00G_MN m`09G_L00`00F]IJeP08F]H00`00E[EF]@08E[D00`00E[EF]@09E[D00`00DYABU008DY@00`00BU9: DP08BU800`00AS56<@09AS400`00?Nlmk`08?Nl00`00>LhicP08>Lh00`00o00IS_`03001S_f>o009S_`03001S6600PicP03000aS36<00TaS003000Y BRU:00PYBP03000Q224800PQ2003000DYABU00TDY@03000@Q12400P@Q003000o00@006>oHkmS_`D0 00AS_`03001S_f>o009S_`03001S6600PicP03000aS36<00TaS003000YBRU: 00PYBP03000Q224800PQ2003000DYABU00TDY@03000@Q12400P@Q003000o00<006>oHkl00V>o00<0 06>Lh023W>00<0036<o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00HaQS6008HaP00`00G_MNm`09 G_L00`00G_MNm`08G_L00`00G_MNm`09G_L00`00F]IJeP08F]H00`00E[EF]@08E[D00`00E[EF]@09 E[D00`00DYABU008DY@00`00BU9:DP08BU800`00AS56<@09AS400`00?Nlmk`08?Nl00`00>LhicP08 >Lh00`00o009S_`03001S6600PicP03000aS36<00TaS003000Y BRU:00PYBP03000Q224800PQ2003000DYABU00TDY@03000@Q12400P@Q003000o00<006>oHkl00V>o 00<006>Lh023W>00<0036<o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00HaQS6008HaP00`00G_MN m`09G_L00`00G_MNm`08G_L00`00G_MNm`09G_L00`00F]IJeP08F]H00`00E[EF]@08E[D00`00E[EF ]@09E[D00`00DYABU008DY@00`00BU9:DP08BU800`00AS56<@09AS400`00?Nlmk`08?Nl00`00>Lhi cP08>Lh00`00o009S_`03001S6600PicP03000aS36<00TaS003 000YBRU:00PYBP03000Q224800PQ2003000DYABU00TDY@03000@Q12400P@Q003000o00<006>oHkl0 0V>o00<006>Lh023W>00<0036<o0@000F>o000?Hkl20003Hkoo00070003Hkl20001Hkl000mS_`03 001S_f>o009S_`03001S66Ldic00Q>L`03 001:DTYB00U:DP030016o00<006>oHkl00V>o00<006L0 2AcW00<0012448@0212400<000aS36<020aS00<000Q224802@Q200<000@Q124020@Q00<000@Q1240 20@Q600016>o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00HaQS6008HaP00`00HaQS6009HaP00`00 HaQS6008HaP00`00HaQS6009HaP00`00G_MNm`08G_L00`00F]IJeP08F]H00`00F]IJeP09F]H00`00 E[EF]@08E[D00`00CW=>L`08CW<00`00BU9:DP09BU800`00AS56<@08AS400`00?Nlmk`08?Nl00`00 =Jde[@09=Jd00`00;F/]J`08;F/00`009BTU:@089BT00`007>LLi`097>L00`0048@@Q00848@00`00 36<o009S_`03001S66Ldic00Q> L`03001:DTYB00U:DP030016o00<006>oHkl00V>o00<006L02AcW00<0012448@0212400<000aS36<020aS00<000Q224802@Q200<000@Q124020@Q00<000@Q 124020@Q600016>o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00HaQS6008HaP00`00HaQS6009HaP0 0`00HaQS6008HaP00`00HaQS6009HaP00`00G_MNm`08G_L00`00F]IJeP08F]H00`00F]IJeP09F]H0 0`00E[EF]@08E[D00`00CW=>L`08CW<00`00BU9:DP09BU800`00AS56<@08AS400`00?Nlmk`08?Nl0 0`00=Jde[@09=Jd00`00;F/]J`08;F/00`009BTU:@089BT00`007>LLi`097>L00`0048@@Q00848@0 0`0036<o009S_`03001S66Ldic 00Q>L`03001:DTYB00U:DP030016o00<006>oHkl00V>o00<0 06L02AcW00<0012448@0212400<000aS36<020aS00<000Q224802@Q200<000@Q124020@Q00<0 00@Q124020@Q600016>o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00HaQS6008HaP00`00HaQS6009 HaP00`00HaQS6008HaP00`00HaQS6009HaP00`00G_MNm`08G_L00`00F]IJeP08F]H00`00F]IJeP09 F]H00`00E[EF]@08E[D00`00CW=>L`08CW<00`00BU9:DP09BU800`00AS56<@08AS400`00?Nlmk`08 ?Nl00`00=Jde[@09=Jd00`00;F/]J`08;F/00`009BTU:@089BT00`007>LLi`097>L00`0048@@Q008 48@00`0036<o009S_`03001S66 Ldic00Q>L`03001:DTYB00U:DP030016o00<006>oHkl00V>o 00<006L02AcW00<0012448@0212400<000aS36<020aS00<000Q224802@Q200<000@Q124020@Q 00<000@Q124020@Q600016>o0@000F>o000?Hkl20003Hkoo00070003Hkl20001Hkl000mS_`03001S _f>o009S_`03001W>FLi00QW>@03001W>FLi00UW>@03001W>FLi00QW>@03001W>FLi00UW>@03001S 66 Ldic00U>L`03001:DTYB00Q:DP030012448@00Q24003000icSW>00TicP03000e[CF]00Pe[@03000Y BRU:00PYBP03000Q224800TQ2003000HaQS600PHaP03000o00<006>oHkl00V>o00<006LiIcT026Li 00<006LiIcT02FLi00<006LiIcT026Li00<006LiIcT02FLi00<006>Lh02CW>00<003F]=Jd023F]00<002U::DX022U:00<002488@P02B48 00<001S66o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00IcUW>@08IcT00`00IcUW>@09IcT00`00IcUW >@08IcT00`00IcUW>@09IcT00`00HaQS6008HaP00`00HaQS6008HaP00`00G_MNm`09G_L00`00F]IJ eP08F]H00`00E[EF]@08E[D00`00CW=>L`09CW<00`00BU9:DP08BU800`00@Q124008@Q000`00>Lhi cP09>Lh00`00=Jde[@08=Jd00`00:DXYBP08:DX00`008@PQ20098@P00`006o009S_`03001W>FLi00QW>@03001W>FLi00UW>@03001W>FLi00QW>@03001W>FLi00UW>@03 001S66Ldic00U>L`03001:DTYB00Q:DP030012448@00Q24003000icSW>00TicP03000e[CF]00Pe[@03 000YBRU:00PYBP03000Q224800TQ2003000HaQS600PHaP03000o00<006>oHkl00V>o00<006LiIcT0 26Li00<006LiIcT02FLi00<006LiIcT026Li00<006LiIcT02FLi00<006>Lh02CW>00<003F]=Jd023F]00<002U::DX022U:00<002488@P0 2B4800<001S66o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00IcUW>@08IcT00`00IcUW>@09IcT00`00 IcUW>@08IcT00`00IcUW>@09IcT00`00HaQS6008HaP00`00HaQS6008HaP00`00G_MNm`09G_L00`00 F]IJeP08F]H00`00E[EF]@08E[D00`00CW=>L`09CW<00`00BU9:DP08BU800`00@Q124008@Q000`00 >LhicP09>Lh00`00=Jde[@08=Jd00`00:DXYBP08:DX00`008@PQ20098@P00`006o009S_`03001W>FLi00QW>@03001W>FLi00UW>@03001W>FLi00QW>@03001W>FLi00UW >@03001S66Ldic00U>L`03001:DTYB00Q:DP030012448@00Q24003000icSW>00TicP03000e[CF]00Pe [@03000YBRU:00PYBP03000Q224800TQ2003000HaQS600PHaP03000o00<006>oHkl00V>o00<006Li IcT026Li00<006LiIcT02FLi00<006LiIcT026Li00<006LiIcT02FLi00<006>Lh02CW>00<003F]=Jd023F]00<002U::DX022U:00<00248 8@P02B4800<001S66o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00IcUW>@08IcT00`00IcUW>@09IcT0 0`00IcUW>@08IcT00`00IcUW>@09IcT00`00HaQS6008HaP00`00HaQS6008HaP00`00G_MNm`09G_L0 0`00F]IJeP08F]H00`00E[EF]@08E[D00`00CW=>L`09CW<00`00BU9:DP08BU800`00@Q124008@Q00 0`00>LhicP09>Lh00`00=Jde[@08=Jd00`00:DXYBP08:DX00`008@PQ20098@P00`006o009S_`03001W>FLi00QW>@03001W>FLi00UW>@03001W>FLi00QW>@03001W>FLi 00UW>@03001S66Ldic00U>L`03001:DTYB00Q:DP030012448@00Q24003000icSW>00TicP03000e[CF] 00Pe[@03000YBRU:00PYBP03000Q224800TQ2003000HaQS600PHaP03000o0P000f>oo`001`000f>o 0P000F>o000?Hkl00`00HkmS_`02Hkl00`00Kg]_N`08Kg/00`00JeY[FP09JeX00`00JeY[FP08JeX0 0`00JeY[FP09JeX00`00IcUW>@08IcT00`00IcUW>@08IcT00`00HaQS6009HaP00`00G_MNm`08G_L0 0`00F]IJeP08F]H00`00E[EF]@09E[D00`00CW=>L`08CW<00`00BU9:DP08BU800`00@Q124009@Q00 0`00>LhicP08>Lh00`00LLi`087>L00`005:DDY@085:D0 0`002488@P0924800`0012448@0812400`0012448@08124H0004Hkl10001Hkl000mS_`03001S_f>o 009S_`03001_Nfmk00Q_N`03001[FV]J00U[FP03001[FV]J00Q[FP03001[FV]J00U[FP03001W>FLi 00QW>@03001W>FLi00QW>@03001S66Ldic00Q>L`03001:DTYB00Q:DP030012448@00U24003000icSW>00PicP03000aS36< 00PaS003000YBRU:00TYBP03000LiacW00PLi`03000DYABU00PDY@030008@PQ200T8@P0300048@@Q 00P48@0300048@@Q00P48AP000AS_`40005S_`003f>o00<006>oHkl00V>o00<006mkKg/026mk00<0 06]JJeX02F]J00<006]JJeX026]J00<006]JJeX02F]J00<006LiIcT026Li00<006LiIcT026Li00<0 06>Lh023W>00<0036<L021cW00<001BU5:D021BU00<000Q224802@Q200<000@Q124020@Q00<000@Q124020@Q6000 16>o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00Kg]_N`08Kg/00`00JeY[FP09JeX00`00JeY[FP08 JeX00`00JeY[FP09JeX00`00IcUW>@08IcT00`00IcUW>@08IcT00`00HaQS6009HaP00`00G_MNm`08 G_L00`00F]IJeP08F]H00`00E[EF]@09E[D00`00CW=>L`08CW<00`00BU9:DP08BU800`00@Q124009 @Q000`00>LhicP08>Lh00`00LLi`087>L00`005:DDY@08 5:D00`002488@P0924800`0012448@0812400`0012448@08124H0004Hkl10001Hkl000mS_`03001S _f>o009S_`03001_Nfmk00Q_N`03001[FV]J00U[FP03001[FV]J00Q[FP03001[FV]J00U[FP03001W >FLi00QW>@03001W>FLi00QW>@03001S66Ldic00Q>L`03001:DTYB00Q:DP030012448@00U24003000icSW>00PicP03000a S36<00PaS003000YBRU:00TYBP03000LiacW00PLi`03000DYABU00PDY@030008@PQ200T8@P030004 8@@Q00P48@0300048@@Q00P48AP000AS_`40005S_`003f>o00<006>oHkl00V>o00<006mkKg/026mk 00<006]JJeX02F]J00<006]JJeX026]J00<006]JJeX02F]J00<006LiIcT026Li00<006LiIcT026Li 00<006>Lh023W>00<0036<L021cW00<001BU5:D021BU00<000Q224802@Q200<000@Q124020@Q00<000@Q124020@Q 600016>o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00Kg]_N`08Kg/00`00JeY[FP09JeX00`00JeY[ FP08JeX00`00JeY[FP09JeX00`00IcUW>@08IcT00`00IcUW>@08IcT00`00HaQS6009HaP00`00G_MN m`08G_L00`00F]IJeP08F]H00`00E[EF]@09E[D00`00CW=>L`08CW<00`00BU9:DP08BU800`00@Q12 4009@Q000`00>LhicP08>Lh00`00LLi`087>L00`005:DD Y@085:D00`002488@P0924800`0012448@0812400`0012448@08124H0004Hkl10001Hkl000mS_`03 001S_f>o009S_`03001_Nfmk00Q_N`03001[FV]J00U[FP03001[FV]J00Q[FP03001[FV]J00U[FP03 001W>FLi00QW>@03001W>FLi00QW>@03001S66Ldic00Q>L`03001:DTYB00Q:DP030012448@00U24003000icSW>00PicP03 000aS36<00PaS003000YBRU:00TYBP03000LiacW00PLi`03000DYABU00PDY@030008@PQ200T8@P03 00048@@Q00P48@0300048@@Q00P48AP000AS_`40005S_`003f>o00<006>oHkl00V>o00<006mkKg/0 26mk00<006]JJeX02F]J00<006]JJeX026]J00<006]JJeX02F]J00<006LiIcT026Li00<006LiIcT0 26Li00<006>Lh023W>00<0036<L021cW00<001BU5:D021BU00<000Q224802@Q200<000@Q124020@Q00<000@Q1240 20@Q600016>o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00Kg]_N`08Kg/00`00JeY[FP09JeX00`00 JeY[FP08JeX00`00JeY[FP09JeX00`00IcUW>@08IcT00`00IcUW>@08IcT00`00HaQS6009HaP00`00 G_MNm`08G_L00`00F]IJeP08F]H00`00E[EF]@09E[D00`00CW=>L`08CW<00`00BU9:DP08BU800`00 @Q124009@Q000`00>LhicP08>Lh00`00LLi`087>L00`00 5:DDY@085:D00`002488@P0924800`0012448@0812400`0012448@08124H0004Hkl10001Hkl000mS _`8000=S_ol000L000=S_`80005S_`003f>o00<006>oHkl00V>o00<007>LLi`027>L00<007>LLi`0 2G>L00<006mkKg/026mk00<006mkKg/02Fmk00<006mkKg/026mk00<006]JJeX026]J00<006LiIcT0 2FLi00<006L021cW00<0012448@02A2400<000Q2248020Q200<000@Q124020@Q600016>o0@00 0F>o000?Hkl00`00HkmS_`02Hkl00`00LiacW008Li`00`00LiacW009Li`00`00Kg]_N`08Kg/00`00 Kg]_N`09Kg/00`00Kg]_N`08Kg/00`00JeY[FP08JeX00`00IcUW>@09IcT00`00HaQS6008HaP00`00 G_MNm`08G_L00`00F]IJeP09F]H00`00DYABU008DY@00`00CW=>L`08CW<00`00AS56<@09AS400`00 ?Nlmk`08?Nl00`00=Jde[@08=Jd00`00;F/]J`09;F/00`009BTU:@089BT00`007>LLi`087>L00`00 48@@Q00948@00`002488@P0824800`0012448@08124H0004Hkl10001Hkl000mS_`03001S_f>o009S _`03001cW7>L00QcW003001cW7>L00UcW003001_Nfmk00Q_N`03001_Nfmk00U_N`03001_Nfmk00Q_ N`03001[FV]J00Q[FP03001W>FLi00UW>@03001S66Ldic00Q>L`030016o00<006>oHkl00V>o00<007>LLi`027>L00<007>L Li`02G>L00<006mkKg/026mk00<006mkKg/02Fmk00<006mkKg/026mk00<006]JJeX026]J00<006Li IcT02FLi00<006L021cW00<0012448@02A2400<000Q2248020Q200<000@Q124020@Q600016>o 0@000F>o000?Hkl00`00HkmS_`02Hkl00`00LiacW008Li`00`00LiacW009Li`00`00Kg]_N`08Kg/0 0`00Kg]_N`09Kg/00`00Kg]_N`08Kg/00`00JeY[FP08JeX00`00IcUW>@09IcT00`00HaQS6008HaP0 0`00G_MNm`08G_L00`00F]IJeP09F]H00`00DYABU008DY@00`00CW=>L`08CW<00`00AS56<@09AS40 0`00?Nlmk`08?Nl00`00=Jde[@08=Jd00`00;F/]J`09;F/00`009BTU:@089BT00`007>LLi`087>L0 0`0048@@Q00948@00`002488@P0824800`0012448@08124H0004Hkl10001Hkl000mS_`03001S_f>o 009S_`03001cW7>L00QcW003001cW7>L00UcW003001_Nfmk00Q_N`03001_Nfmk00U_N`03001_Nfmk 00Q_N`03001[FV]J00Q[FP03001W>FLi00UW>@03001S66Ldic00Q>L`030016o00<006>oHkl00V>o00<007>LLi`027>L00<0 07>LLi`02G>L00<006mkKg/026mk00<006mkKg/02Fmk00<006mkKg/026mk00<006]JJeX026]J00<0 06LiIcT02FLi00<006L021cW00<0012448@02A2400<000Q2248020Q200<000@Q124020@Q6000 16>o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00LiacW008Li`00`00LiacW009Li`00`00Kg]_N`08 Kg/00`00Kg]_N`09Kg/00`00Kg]_N`08Kg/00`00JeY[FP08JeX00`00IcUW>@09IcT00`00HaQS6008 HaP00`00G_MNm`08G_L00`00F]IJeP09F]H00`00DYABU008DY@00`00CW=>L`08CW<00`00AS56<@09 AS400`00?Nlmk`08?Nl00`00=Jde[@08=Jd00`00;F/]J`09;F/00`009BTU:@089BT00`007>LLi`08 7>L00`0048@@Q00948@00`002488@P0824800`0012448@08124H0004Hkl10001Hkl000D000=S_`80 00ES_`03001S_f>o009S_`03001cW7>L00QcW003001cW7>L00UcW003001_Nfmk00Q_N`03001_Nfmk 00U_N`03001_Nfmk00Q_N`03001[FV]J00Q[FP03001W>FLi00UW>@03001S66Ldic00Q>L`030016o0004Hkl00`00HkmS_`02Hkl00`00LiacW008Li`00`00LiacW009Li`00`00Kg]_N`08Kg/0 0`00Kg]_N`09Kg/00`00Kg]_N`08Kg/00`00JeY[FP08JeX00`00IcUW>@09IcT00`00HaQS6008HaP0 0`00G_MNm`08G_L00`00F]IJeP09F]H00`00DYABU008DY@00`00CW=>L`08CW<00`00AS56<@09AS40 0`00?Nlmk`08?Nl00`00=Jde[@08=Jd00`00;F/]J`09;F/00`009BTU:@089BT00`007>LLi`087>L0 0`0048@@Q00948@00`002488@P0824800`0012448@08124H0004Hkl10001Hkl0009S_`03001S_f>o 009S_`04001S_f>o0004Hkl00`00HkmS_`02Hkl00`00LiacW008Li`00`00LiacW009Li`00`00Kg]_ N`08Kg/00`00Kg]_N`09Kg/00`00Kg]_N`08Kg/00`00JeY[FP08JeX00`00IcUW>@09IcT00`00HaQS 6008HaP00`00G_MNm`08G_L00`00F]IJeP09F]H00`00DYABU008DY@00`00CW=>L`08CW<00`00AS56 <@09AS400`00?Nlmk`08?Nl00`00=Jde[@08=Jd00`00;F/]J`09;F/00`009BTU:@089BT00`007>LL i`087>L00`0048@@Q00948@00`002488@P0824800`0012448@08124H0004Hkl10001Hkl000=S_`05 001S_f>oHkl00002Hkl00`00HkmS_`02Hkl30002Hkoo00070003Hkl20001Hkl00005001S_f>oHkl0 0002Hkl01000HkmS_`0016>o00<006>oHkl00V>o00<007NmMkd027Nm00<007NmMkd02GNm00<007Nm Mkd027Nm00<007>LLi`02G>L00<007>LLi`027>L00<006mkKg/026mk00<006]JJeX02F]J00<006Li IcT026Li00<006o0@000F>o00001@00 HkmS_f>o00000V>o00@006>oHkl000AS_`03001S_f>o009S_`03001g_GNm00Qg_@03001g_GNm00Ug _@03001g_GNm00Qg_@03001cW7>L00UcW003001cW7>L00QcW003001_Nfmk00Q_N`03001[FV]J00U[ FP03001W>FLi00QW>@03001S66Ldic00U>L`030016o009S_`03001g_GNm00Qg_@03001g_GNm00Ug_@03 001g_GNm00Qg_@03001cW7>L00UcW003001cW7>L00QcW003001_Nfmk00Q_N`03001[FV]J00U[FP03 001W>FLi00QW>@03001S66Ldic00U>L`030016o00<006>oHkl00V>o00<007NmMkd027Nm00<007NmMkd02GNm00<007NmMkd027Nm00<007>LLi`0 2G>L00<007>LLi`027>L00<006mkKg/026mk00<006]JJeX02F]J00<006LiIcT026Li00<006o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00 Mkeg_@08Mkd00`00Mkeg_@09Mkd00`00Mkeg_@08Mkd00`00LiacW009Li`00`00LiacW008Li`00`00 Kg]_N`08Kg/00`00JeY[FP09JeX00`00IcUW>@08IcT00`00HaQS6008HaP00`00G_MNm`09G_L00`00 F]IJeP08F]H00`00DYABU008DY@00`00CW=>L`09CW<00`00AS56<@08AS400`00?Nlmk`08?Nl00`00 =Jde[@09=Jd00`00;F/]J`08;F/00`009BTU:@089BT00`006o009S_`03001g_GNm00Qg_@03001g_GNm00Ug _@03001g_GNm00Qg_@03001cW7>L00UcW003001cW7>L00QcW003001_Nfmk00Q_N`03001[FV]J00U[ FP03001W>FLi00QW>@03001S66Ldic00U>L`030016o00<006>oHkl00V>o00<007NmMkd027Nm00<007NmMkd02GNm00<007NmMkd027Nm00<007>L Li`02G>L00<007>LLi`027>L00<006mkKg/026mk00<006]JJeX02F]J00<006LiIcT026Li00<006o0@000F>o000?Hkl00`00HkmS_`02Hkl0 0`00Mkeg_@08Mkd00`00Mkeg_@09Mkd00`00Mkeg_@08Mkd00`00LiacW009Li`00`00LiacW008Li`0 0`00Kg]_N`08Kg/00`00JeY[FP09JeX00`00IcUW>@08IcT00`00HaQS6008HaP00`00G_MNm`09G_L0 0`00F]IJeP08F]H00`00DYABU008DY@00`00CW=>L`09CW<00`00AS56<@08AS400`00?Nlmk`08?Nl0 0`00=Jde[@09=Jd00`00;F/]J`08;F/00`009BTU:@089BT00`006o009S_`03001g_GNm00Qg_@03001g_GNm 00Ug_@03001g_GNm00Qg_@03001cW7>L00UcW003001cW7>L00QcW003001_Nfmk00Q_N`03001[FV]J 00U[FP03001W>FLi00QW>@03001S66Ldic00U>L`030016o00<006>oHkl00V>o00<007NmMkd027Nm00<007NmMkd02GNm00<007NmMkd027Nm00<0 07>LLi`02G>L00<007>LLi`027>L00<006mkKg/026mk00<006]JJeX02F]J00<006LiIcT026Li00<0 06o0@000F>o000?Hkl20003Hkoo0007 0003Hkl20001Hkl000mS_`03001S_f>o009S_`03001kgW_N00QkgP03001kgW_N00UkgP03001kgW_N 00QkgP03001kgW_N00UkgP03001g_GNm00Qg_@03001cW7>L00QcW003001cW7>L00UcW003001_Nfmk 00Q_N`03001[FV]J00Q[FP03001W>FLi00UW>@03001Nmekg00QNm`03001JeU[F00QJeP03001BU5:D 00UBU003001>Ldic00Q>L`030016o00<0 06>oHkl00V>o00<007_NNmh027_N00<007_NNmh02G_N00<007_NNmh027_N00<007_NNmh02G_N00<0 07NmMkd027Nm00<007>LLi`027>L00<007>LLi`02G>L00<006mkKg/026mk00<006]JJeX026]J00<0 06LiIcT02FLi00<005kgG_L025kg00<005[FF]H025[F00<005:DDY@02E:D00<004icCW<024ic00<0 04HaAS4024Ha00<003g_?Nl02Cg_00<003F]=Jd023F]00<002e[;F/022e[00<002488@P02B4800<0 01S66o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00NmikgP08 Nmh00`00NmikgP09Nmh00`00NmikgP08Nmh00`00NmikgP09Nmh00`00Mkeg_@08Mkd00`00LiacW008 Li`00`00LiacW009Li`00`00Kg]_N`08Kg/00`00JeY[FP08JeX00`00IcUW>@09IcT00`00G_MNm`08 G_L00`00F]IJeP08F]H00`00DYABU009DY@00`00CW=>L`08CW<00`00AS56<@08AS400`00?Nlmk`09 ?Nl00`00=Jde[@08=Jd00`00;F/]J`08;F/00`008@PQ20098@P00`006o009S_`03001kgW_N00QkgP03001kgW_N00UkgP03001k gW_N00QkgP03001kgW_N00UkgP03001g_GNm00Qg_@03001cW7>L00QcW003001cW7>L00UcW003001_ Nfmk00Q_N`03001[FV]J00Q[FP03001W>FLi00UW>@03001Nmekg00QNm`03001JeU[F00QJeP03001B U5:D00UBU003001>Ldic00Q>L`030016o 00<006>oHkl00V>o00<007_NNmh027_N00<007_NNmh02G_N00<007_NNmh027_N00<007_NNmh02G_N 00<007NmMkd027Nm00<007>LLi`027>L00<007>LLi`02G>L00<006mkKg/026mk00<006]JJeX026]J 00<006LiIcT02FLi00<005kgG_L025kg00<005[FF]H025[F00<005:DDY@02E:D00<004icCW<024ic 00<004HaAS4024Ha00<003g_?Nl02Cg_00<003F]=Jd023F]00<002e[;F/022e[00<002488@P02B48 00<001S66o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00Nmik gP08Nmh00`00NmikgP09Nmh00`00NmikgP08Nmh00`00NmikgP09Nmh00`00Mkeg_@08Mkd00`00Liac W008Li`00`00LiacW009Li`00`00Kg]_N`08Kg/00`00JeY[FP08JeX00`00IcUW>@09IcT00`00G_MN m`08G_L00`00F]IJeP08F]H00`00DYABU009DY@00`00CW=>L`08CW<00`00AS56<@08AS400`00?Nlm k`09?Nl00`00=Jde[@08=Jd00`00;F/]J`08;F/00`008@PQ20098@P00`006o009S_`03001kgW_N00QkgP03001kgW_N00UkgP03 001kgW_N00QkgP03001kgW_N00UkgP03001g_GNm00Qg_@03001cW7>L00QcW003001cW7>L00UcW003 001_Nfmk00Q_N`03001[FV]J00Q[FP03001W>FLi00UW>@03001Nmekg00QNm`03001JeU[F00QJeP03 001BU5:D00UBU003001>Ldic00Q>L`030016o00<006>oHkl00V>o00<007_NNmh027_N00<007_NNmh02G_N00<007_NNmh027_N00<007_NNmh0 2G_N00<007NmMkd027Nm00<007>LLi`027>L00<007>LLi`02G>L00<006mkKg/026mk00<006]JJeX0 26]J00<006LiIcT02FLi00<005kgG_L025kg00<005[FF]H025[F00<005:DDY@02E:D00<004icCW<0 24ic00<004HaAS4024Ha00<003g_?Nl02Cg_00<003F]=Jd023F]00<002e[;F/022e[00<002488@P0 2B4800<001S66o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00 NmikgP08Nmh00`00NmikgP09Nmh00`00NmikgP08Nmh00`00NmikgP09Nmh00`00Mkeg_@08Mkd00`00 LiacW008Li`00`00LiacW009Li`00`00Kg]_N`08Kg/00`00JeY[FP08JeX00`00IcUW>@09IcT00`00 G_MNm`08G_L00`00F]IJeP08F]H00`00DYABU009DY@00`00CW=>L`08CW<00`00AS56<@08AS400`00 ?Nlmk`09?Nl00`00=Jde[@08=Jd00`00;F/]J`08;F/00`008@PQ20098@P00`006o009S_`03001kgW_N00QkgP03001kgW_N00Uk gP03001kgW_N00QkgP03001kgW_N00UkgP03001g_GNm00Qg_@03001cW7>L00QcW003001cW7>L00Uc W003001_Nfmk00Q_N`03001[FV]J00Q[FP03001W>FLi00UW>@03001Nmekg00QNm`03001JeU[F00QJ eP03001BU5:D00UBU003001>Ldic00Q>L`030016o0P000f>oo`001`000f>o0P000F>o000?Hkl00`00HkmS_`02Hkl00`00Oomoo`08Ool00`00 Oomoo`09Ool00`00Oomoo`08Ool00`00Oomoo`09Ool00`00NmikgP08Nmh00`00NmikgP08Nmh00`00 Mkeg_@09Mkd00`00LiacW008Li`00`00Kg]_N`08Kg/00`00JeY[FP09JeX00`00IcUW>@08IcT00`00 HaQS6008HaP00`00F]IJeP09F]H00`00DYABU008DY@00`00CW=>L`08CW<00`00AS56<@09AS400`00 ?Nlmk`08?Nl00`00=Jde[@08=Jd00`00:DXYBP09:DX00`008@PQ20088@P00`005:DDY@085:D00`00 36<o009S_`03001oogoo00Qoo`03001oogoo00Uo o`03001oogoo00Qoo`03001oogoo00Uoo`03001kgW_N00QkgP03001kgW_N00QkgP03001g_GNm00Ug _@03001cW7>L00QcW003001_Nfmk00Q_N`03001[FV]J00U[FP03001W>FLi00QW>@03001S66Ldic00Q>L`030016o00<006>oHkl00V>o00<007ooOol027oo00<007ooOol02Goo00<007oo Ool027oo00<007ooOol02Goo00<007_NNmh027_N00<007_NNmh027_N00<007NmMkd02GNm00<007>L Li`027>L00<006mkKg/026mk00<006]JJeX02F]J00<006LiIcT026Li00<006o 0@000F>o000?Hkl00`00HkmS_`02Hkl00`00Oomoo`08Ool00`00Oomoo`09Ool00`00Oomoo`08Ool0 0`00Oomoo`09Ool00`00NmikgP08Nmh00`00NmikgP08Nmh00`00Mkeg_@09Mkd00`00LiacW008Li`0 0`00Kg]_N`08Kg/00`00JeY[FP09JeX00`00IcUW>@08IcT00`00HaQS6008HaP00`00F]IJeP09F]H0 0`00DYABU008DY@00`00CW=>L`08CW<00`00AS56<@09AS400`00?Nlmk`08?Nl00`00=Jde[@08=Jd0 0`00:DXYBP09:DX00`008@PQ20088@P00`005:DDY@085:D00`0036<o009S_`03001oogoo00Qoo`03001oogoo00Uoo`03001oogoo00Qoo`03001oogoo 00Uoo`03001kgW_N00QkgP03001kgW_N00QkgP03001g_GNm00Ug_@03001cW7>L00QcW003001_Nfmk 00Q_N`03001[FV]J00U[FP03001W>FLi00QW>@03001S66Ldic00Q>L`030016o00<0 06>oHkl00V>o00<007ooOol027oo00<007ooOol02Goo00<007ooOol027oo00<007ooOol02Goo00<0 07_NNmh027_N00<007_NNmh027_N00<007NmMkd02GNm00<007>LLi`027>L00<006mkKg/026mk00<0 06]JJeX02F]J00<006LiIcT026Li00<006o0@000F>o000?Hkl00`00HkmS_`02 Hkl00`00Oomoo`08Ool00`00Oomoo`09Ool00`00Oomoo`08Ool00`00Oomoo`09Ool00`00NmikgP08 Nmh00`00NmikgP08Nmh00`00Mkeg_@09Mkd00`00LiacW008Li`00`00Kg]_N`08Kg/00`00JeY[FP09 JeX00`00IcUW>@08IcT00`00HaQS6008HaP00`00F]IJeP09F]H00`00DYABU008DY@00`00CW=>L`08 CW<00`00AS56<@09AS400`00?Nlmk`08?Nl00`00=Jde[@08=Jd00`00:DXYBP09:DX00`008@PQ2008 8@P00`005:DDY@085:D00`0036<o009S_`03001o ogoo00Qoo`03001oogoo00Uoo`03001oogoo00Qoo`03001oogoo00Uoo`03001kgW_N00QkgP03001k gW_N00QkgP03001g_GNm00Ug_@03001cW7>L00QcW003001_Nfmk00Q_N`03001[FV]J00U[FP03001W >FLi00QW>@03001S66Ldic00Q>L`030016 o00<006>oHkl00V>o00<007ooOol027oo 00<007ooOol02Goo00<007ooOol027oo00<007ooOol02Goo00<007_NNmh027_N00<007_NNmh027_N 00<007NmMkd02GNm00<007>LLi`027>L00<006mkKg/026mk00<006]JJeX02F]J00<006LiIcT026Li 00<006o0@000F>o000?Hkl00`00HkmS_`02Hkl00`00Oomoo`08Ool00`00Oomo o`09Ool00`00Oomoo`08Ool00`00Oomoo`09Ool00`00NmikgP08Nmh00`00NmikgP08Nmh00`00Mkeg _@09Mkd00`00LiacW008Li`00`00Kg]_N`08Kg/00`00JeY[FP09JeX00`00IcUW>@08IcT00`00HaQS 6008HaP00`00F]IJeP09F]H00`00DYABU008DY@00`00CW=>L`08CW<00`00AS56<@09AS400`00?Nlm k`08?Nl00`00=Jde[@08=Jd00`00:DXYBP09:DX00`008@PQ20088@P00`005:DDY@085:D00`0036<< H`0936<<0004Hkl10001Hkl000mS_`03001S_f>o009S_`03001oogoo00Qoo`03001oogoo00Uoo`03 001oogoo00Qoo`03001oogoo00Uoo`03001kgW_N00QkgP03001kgW_N00QkgP03001g_GNm00Ug_@03 001cW7>L00QcW003001_Nfmk00Q_N`03001[FV]J00U[FP03001W>FLi00QW>@03001S66Ldic00Q>L`030016o0P000f>oo`001`000f>o0P000F>o000?Hkl00`00HkmS_`3oHkl=Hkl10001 Hkl000mS_`03001S_f>o0?mS_`eS_`40005S_`003f>o00<006>oHkl00V>o00<006>oHkl0=V>o00<0 06>oHkl0=V>o00<006>oHkl0=F>o00<006>oHkl0=V>o00<006>oHkl096>o0@000F>o000?Hkl00`00 HkmS_`02Hkl00`00HkmS_`08Hkl00`00HkmS_`09Hkl00`00HkmS_`08Hkl00`00HkmS_`09Hkl00`00 HkmS_`08Hkl00`00HkmS_`08Hkl00`00HkmS_`09Hkl00`00HkmS_`08Hkl00`00HkmS_`08Hkl00`00 HkmS_`09Hkl00`00HkmS_`08Hkl00`00HkmS_`08Hkl00`00HkmS_`09Hkl00`00HkmS_`08Hkl00`00 HkmS_`08Hkl00`00HkmS_`09Hkl00`00HkmS_`08Hkl00`00HkmS_`08Hkl00`00HkmS_`09Hkl00`00 HkmS_`08Hkl00`00HkmS_`08Hkl00`00HkmS_`09Hkl00`00HkmS_`08Hkl00`00HkmS_`02Hkl10001 Hkl000mS_ol00140005S_`00of>o8F>o0000\ \>"], ImageRangeCache->{{{0, 287}, {287, 0}} -> {-1.81644, -1.68978, 0.0881101, \ 0.0881101}}] }, Open ]], Cell[BoxData[ \(\(AAN = N[AA /. {\[Alpha] \[Rule] alfx, rr \[Rule] rrx}];\)\)], "Input",\ CellLabel->"In[341]:=", AspectRatioFixed->True], Cell[BoxData[ \(\(AZ = Binv . AAN;\)\)], "Input", CellLabel->"In[342]:=", AspectRatioFixed->True], Cell[TextData[{ "We are exceedingly happy that ", StyleBox["Mathematica", FontSlant->"Italic"], " finds these all and sorts them. The ", StyleBox["last", FontVariations->{"Underline"->True}], " one is the one that we want. " }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(eigs = Eigenvalues[N[AZ]]\)], "Input", CellLabel->"In[343]:=", AspectRatioFixed->True], Cell[BoxData[ \(TraditionalForm\`{\(\(0.0426766136385161`\)\(\[InvisibleSpace]\)\) + 475.2547883415399`\ \[ImaginaryI], \(\(0.047038348125170326`\)\(\ \[InvisibleSpace]\)\) - 19.818145754468436`\ \[ImaginaryI], \(\(0.06826623357540021`\)\(\ \[InvisibleSpace]\)\) - 3.7325378324447778`\ \[ImaginaryI], \(\(0.10508018046030383`\)\(\ \[InvisibleSpace]\)\) - 1.5249025801203389`\ \[ImaginaryI], \(\(0.964639801145369`\)\(\ \[InvisibleSpace]\)\) - 0.035190355979023764`\ \[ImaginaryI], \(\(0.94525290121718`\)\(\ \[InvisibleSpace]\)\) - 0.1324002991446907`\ \[ImaginaryI], \(\(0.9368837599119264`\)\(\ \[InvisibleSpace]\)\) - 0.06367073186991791`\ \[ImaginaryI], \(\(0.9136361768226925`\)\(\ \[InvisibleSpace]\)\) - 0.0810209383056387`\ \[ImaginaryI], \(\(0.8715137015167541`\)\(\ \[InvisibleSpace]\)\) - 0.0832452735596647`\ \[ImaginaryI], \(\(0.15386275837946484`\)\(\ \[InvisibleSpace]\)\) - 0.8225323211947814`\ \[ImaginaryI], \(\(0.8203495592272338`\)\(\ \[InvisibleSpace]\)\) - 0.08787868303677991`\ \[ImaginaryI], \(\(0.7636016408652774`\)\(\ \[InvisibleSpace]\)\) - 0.09354830025557655`\ \[ImaginaryI], \(\(0.7018735736324887`\)\(\ \[InvisibleSpace]\)\) - 0.10036929027275725`\ \[ImaginaryI], \(\(0.6358800438941179`\)\(\ \[InvisibleSpace]\)\) - 0.10848883182627357`\ \[ImaginaryI], \(\(0.5663827802502759`\)\(\ \[InvisibleSpace]\)\) - 0.11801537262944631`\ \[ImaginaryI], \(\(0.2083993880849996`\)\(\ \[InvisibleSpace]\)\) - 0.4988531157663118`\ \[ImaginaryI], \(\(0.49446391592907496`\)\(\ \[InvisibleSpace]\)\) - 0.12894481710460878`\ \[ImaginaryI], \(\(0.4189290163020207`\)\(\ \[InvisibleSpace]\)\) - 0.14511678624844856`\ \[ImaginaryI], \(\(0.2615469608287285`\)\(\ \[InvisibleSpace]\)\) - 0.3075890710774621`\ \[ImaginaryI], \(\(0.3243665033993136`\)\(\ \[InvisibleSpace]\)\) - 0.19411464217661126`\ \[ImaginaryI], \(\(0.34865766685885335`\)\(\ \[InvisibleSpace]\)\) - 0.12240918422666325`\ \[ImaginaryI], \(\(0.1900463031073152`\)\(\ \[InvisibleSpace]\)\) - 0.18253603546190605`\ \[ImaginaryI], \(\(0.23752651482634476`\)\(\ \[InvisibleSpace]\)\) + 0.0037396777940397743`\ \[ImaginaryI]}\)], "Output", CellLabel->"Out[343]="] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(\(alfx = 1.02056;\)\), "\n", \(\(rrx = 5772.22;\)\)}], "Input", CellLabel->"In[314]:=", AspectRatioFixed->True], Cell[BoxData[ \(\(BN = B /. {\[Alpha] \[Rule] alfx, rr \[Rule] rrx};\)\)], "Input", CellLabel->"In[316]:=", AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(\(Binv = Inverse[N[\(-BN\)]];\)\)], "Input", CellLabel->"In[317]:=", AspectRatioFixed->True], Cell[BoxData[ FormBox[ RowBox[{\(Inverse::"luc"\), \(\(:\)\(\ \)\), "\<\"Result for \ \\!\\(TraditionalForm\\`Inverse\\) of badly conditioned matrix \ \\!\\(TraditionalForm\\`\\((\[NoBreak] \\(\[LeftSkeleton] 1 \ \[RightSkeleton]\\) \[NoBreak])\\)\\) may contain significant numerical \ errors.\"\>"}], TraditionalForm]], "Message", CellLabel->"From In[317]:="] }, Open ]], Cell[BoxData[ \(\(AAN = N[AA /. {\[Alpha] \[Rule] alfx, rr \[Rule] rrx}];\)\)], "Input",\ CellLabel->"In[318]:=", AspectRatioFixed->True], Cell[BoxData[ \(\(AZ = Binv . AAN;\)\)], "Input", CellLabel->"In[319]:=", AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(Eigenvalues[ N[AZ /. {\[Alpha] \[Rule] alfx, rr \[Rule] rrx}]]\)], "Input", CellLabel->"In[320]:=", AspectRatioFixed->True], Cell[BoxData[ \(TraditionalForm\`{\(\(0.037854346699387365`\)\(\[InvisibleSpace]\)\) + 1317.9720004444991`\ \[ImaginaryI], \(\(0.04131186243243501`\)\(\ \[InvisibleSpace]\)\) - 54.935238923527464`\ \[ImaginaryI], \(\(0.05829663503698912`\)\(\ \[InvisibleSpace]\)\) - 10.33546395173493`\ \[ImaginaryI], \(\(0.08870822816207906`\)\(\ \[InvisibleSpace]\)\) - 4.226490988049273`\ \[ImaginaryI], \(\(0.13145108988726742`\)\(\ \[InvisibleSpace]\)\) - 2.305385472295332`\ \[ImaginaryI], \(\(0.1847704311422152`\)\(\ \[InvisibleSpace]\)\) - 1.4574728768625893`\ \[ImaginaryI], \(\(0.2452174567625684`\)\(\ \[InvisibleSpace]\)\) - 1.0018826070110896`\ \[ImaginaryI], \(\(0.9009939190404289`\)\(\ \[InvisibleSpace]\)\) - 0.3359640145221244`\ \[ImaginaryI], \(\(0.9539305083266483`\)\(\ \[InvisibleSpace]\)\) - 0.04576460405865989`\ \[ImaginaryI], \(\(0.9170631398329263`\)\(\ \[InvisibleSpace]\)\) - 0.08222476905813086`\ \[ImaginaryI], \(\(0.8801905707013388`\)\(\ \[InvisibleSpace]\)\) - 0.1186860684900251`\ \[ImaginaryI], \(\(0.8447024697416509`\)\(\ \[InvisibleSpace]\)\) - 0.23678733515861772`\ \[ImaginaryI], \(\(0.8439291239239797`\)\(\ \[InvisibleSpace]\)\) - 0.15489774882256288`\ \[ImaginaryI], \(\(0.8069870216072388`\)\(\ \[InvisibleSpace]\)\) - 0.1802485656816037`\ \[ImaginaryI], \(\(0.30795474015031393`\)\(\ \[InvisibleSpace]\)\) - 0.7188434134254214`\ \[ImaginaryI], \(\(0.7545033160605884`\)\(\ \[InvisibleSpace]\)\) - 0.1901912350895934`\ \[ImaginaryI], \(\(0.6947804654540709`\)\(\ \[InvisibleSpace]\)\) - 0.2004311837737158`\ \[ImaginaryI], \(\(0.6309793490093348`\)\(\ \[InvisibleSpace]\)\) - 0.21244819942274265`\ \[ImaginaryI], \(\(0.36871280401669054`\)\(\ \[InvisibleSpace]\)\) - 0.5214139187371447`\ \[ImaginaryI], \(\(0.564088908045933`\)\(\ \[InvisibleSpace]\)\) - 0.22091681560184886`\ \[ImaginaryI], \(\(0.5103513991279862`\)\(\ \[InvisibleSpace]\)\) - 0.24796234788046406`\ \[ImaginaryI], \(\(0.42486232987062106`\)\(\ \[InvisibleSpace]\)\) - 0.3702339071609718`\ \[ImaginaryI], \(\(0.43724387092997347`\)\(\ \[InvisibleSpace]\)\) - 0.2669344967296792`\ \[ImaginaryI], \(\(0.4035589937471676`\)\(\ \[InvisibleSpace]\)\) - 0.1523453874621035`\ \[ImaginaryI], \(\(0.227726678947447`\)\(\ \[InvisibleSpace]\)\) - 0.20829745050568632`\ \[ImaginaryI], \(\(0.2640017397781607`\)\(\ \[InvisibleSpace]\)\) - 3.0160232963012734`*^-9\ \[ImaginaryI]}\)], "Output", CellLabel->"Out[320]="] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Here is the growth curve in Im[\[Lambda]] vs. \[Alpha] space\ \>", \ "Subtitle", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ Initialize functions to use in the calculations. If this is done, \ all that is needed is that alfx and rrx be assigned values, and then \"lambda\ \" gives the eigenvalues\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(Clear[BN, Binv, AAN, AZ, zeigs, Neig, lambda, rr, rrx]\)], "Input", CellLabel->"In[355]:=", AspectRatioFixed->True], Cell[BoxData[ FormBox[ RowBox[{\(General::"spell1"\), \(\(:\)\(\ \)\), "\<\"Possible spelling \ error: new symbol name \\\"\\!\\(TraditionalForm\\`zeigs\\)\\\" is similar to \ existing symbol \\\"\\!\\(TraditionalForm\\`eigs\\)\\\".\"\>"}], TraditionalForm]], "Message", CellLabel->"From In[355]:="] }, Open ]], Cell[BoxData[{ \(\(BN := N[B /. {\[Alpha] \[Rule] alfx, rr \[Rule] rrx}];\)\), "\n", \(\(Binv := Inverse[N[\(-BN\)]];\)\), "\n", \(\(AAN := N[AA /. {\[Alpha] \[Rule] alfx, rr \[Rule] rrx}];\)\), "\n", \(\(AZ := Binv . AAN;\)\), "\n", \(\(zeigs := Eigenvalues[ N[AZ /. {\[Alpha] \[Rule] alfx, rr \[Rule] rrx}]];\)\), "\n", \(\(Neig := Length[zeigs];\)\), "\n", \(\(lambda := zeigs\[LeftDoubleBracket]Neig\[RightDoubleBracket];\)\)}], "Input", CellLabel->"In[356]:=", AspectRatioFixed->True], Cell[BoxData[ \(\(rrx = 10000;\)\)], "Input", CellLabel->"In[363]:=", AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(Do[{alfx = 0.5 + i\ .05; alfz[i] = alfx; imlamb[i] = Im[lambda]; relamb[i] = Re[lambda];}, {i, 0, 25}]\)], "Input", CellLabel->"In[364]:=", AspectRatioFixed->True], Cell[BoxData[ FormBox[ RowBox[{\(Inverse::"luc"\), \(\(:\)\(\ \)\), "\<\"Result for \ \\!\\(TraditionalForm\\`Inverse\\) of badly conditioned matrix \ \\!\\(TraditionalForm\\`\\((\[NoBreak] \\(\[LeftSkeleton] 1 \ \[RightSkeleton]\\) \[NoBreak])\\)\\) may contain significant numerical \ errors.\"\>"}], TraditionalForm]], "Message", CellLabel->"From In[364]:="], Cell[BoxData[ FormBox[ RowBox[{\(Inverse::"luc"\), \(\(:\)\(\ \)\), "\<\"Result for \ \\!\\(TraditionalForm\\`Inverse\\) of badly conditioned matrix \ \\!\\(TraditionalForm\\`\\((\[NoBreak] \\(\[LeftSkeleton] 1 \ \[RightSkeleton]\\) \[NoBreak])\\)\\) may contain significant numerical \ errors.\"\>"}], TraditionalForm]], "Message", CellLabel->"From In[364]:="], Cell[BoxData[ FormBox[ RowBox[{\(Inverse::"luc"\), \(\(:\)\(\ \)\), "\<\"Result for \ \\!\\(TraditionalForm\\`Inverse\\) of badly conditioned matrix \ \\!\\(TraditionalForm\\`\\((\[NoBreak] \\(\[LeftSkeleton] 1 \ \[RightSkeleton]\\) \[NoBreak])\\)\\) may contain significant numerical \ errors.\"\>"}], TraditionalForm]], "Message", CellLabel->"From In[364]:="], Cell[BoxData[ FormBox[ RowBox[{\(General::"stop"\), \(\(:\)\(\ \)\), "\<\"Further output of \ \\!\\(TraditionalForm\\`\\(Inverse :: \\\"luc\\\"\\)\\) will be suppressed \ during this calculation.\"\>"}], TraditionalForm]], "Message", CellLabel->"From In[364]:="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(imtt = Table[{alfz[i], imlamb[i]}, {i, 0, 25}]\)], "Input", CellLabel->"In[365]:=", AspectRatioFixed->True], Cell[BoxData[ FormBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.5`", \(-0.03485080888443092`\)}, {"0.55`", \(-0.027744083553375962`\)}, {"0.6`", \(-0.02052907289963432`\)}, {"0.65`", \(-0.013848074794810109`\)}, {"0.7`", \(-0.008084939627039297`\)}, {"0.75`", \(-0.003399395269310121`\)}, {"0.8`", "0.00016839101241989434`"}, {"0.8500000000000001`", "0.002630489514734992`"}, {"0.9`", "0.004019330678297502`"}, {"0.95`", "0.004374672274590462`"}, {"1.`", "0.003739677748230474`"}, {"1.05`", "0.002162142218254847`"}, {"1.1`", \(-0.00029994907231404997`\)}, {"1.15`", \(-0.0035676439336318525`\)}, {"1.2000000000000002`", \(-0.007523869860063982`\)}, {"1.25`", \(-0.011991864082025405`\)}, {"1.3`", \(-0.016721205765864465`\)}, {"1.35`", \(-0.17913742240228192`\)}, {"1.4`", \(-0.1776483084677164`\)}, {"1.4500000000000002`", \(-0.17586079158124013`\)}, {"1.5`", \(-0.1738824404319336`\)}, {"1.55`", \(-0.17181174863001475`\)}, {"1.6`", \(-0.16972613389047328`\)}, {"1.6500000000000001`", \(-0.16768330680181362`\)}, {"1.7000000000000002`", \(-0.16572629689759596`\)}, {"1.75`", \(-0.16388854111610712`\)} }, ColumnAlignments->{Decimal}], "\[NoBreak]", ")"}], TraditionalForm]], "Output", CellLabel->"Out[365]="], Cell[CellGroupData[{ Cell[BoxData[ \(\(ListPlot[imtt, PlotJoined \[Rule] True];\)\)], "Input", CellLabel->"In[366]:=", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations -0.357143 0.761905 0.589287 3.20744 [ [.1 .57679 -9 -9 ] [.1 .57679 9 0 ] [.25238 .57679 -9 -9 ] [.25238 .57679 9 0 ] [.55714 .57679 -9 -9 ] [.55714 .57679 9 0 ] [.70952 .57679 -9 -9 ] [.70952 .57679 9 0 ] [.8619 .57679 -9 -9 ] [.8619 .57679 9 0 ] [.39226 .02799 -36 -4.5 ] [.39226 .02799 0 4.5 ] [.39226 .10817 -30 -4.5 ] [.39226 .10817 0 4.5 ] [.39226 .18836 -36 -4.5 ] [.39226 .18836 0 4.5 ] [.39226 .26854 -24 -4.5 ] [.39226 .26854 0 4.5 ] [.39226 .34873 -36 -4.5 ] [.39226 .34873 0 4.5 ] [.39226 .42892 -30 -4.5 ] [.39226 .42892 0 4.5 ] [.39226 .5091 -36 -4.5 ] [.39226 .5091 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .1 .58929 m .1 .59554 L s [(0.6)] .1 .57679 0 1 Mshowa .25238 .58929 m .25238 .59554 L s [(0.8)] .25238 .57679 0 1 Mshowa .55714 .58929 m .55714 .59554 L s [(1.2)] .55714 .57679 0 1 Mshowa .70952 .58929 m .70952 .59554 L s [(1.4)] .70952 .57679 0 1 Mshowa .8619 .58929 m .8619 .59554 L s [(1.6)] .8619 .57679 0 1 Mshowa .125 Mabswid .1381 .58929 m .1381 .59304 L s .17619 .58929 m .17619 .59304 L s .21429 .58929 m .21429 .59304 L s .29048 .58929 m .29048 .59304 L s .32857 .58929 m .32857 .59304 L s .36667 .58929 m .36667 .59304 L s .44286 .58929 m .44286 .59304 L s .48095 .58929 m .48095 .59304 L s .51905 .58929 m .51905 .59304 L s .59524 .58929 m .59524 .59304 L s .63333 .58929 m .63333 .59304 L s .67143 .58929 m .67143 .59304 L s .74762 .58929 m .74762 .59304 L s .78571 .58929 m .78571 .59304 L s .82381 .58929 m .82381 .59304 L s .0619 .58929 m .0619 .59304 L s .02381 .58929 m .02381 .59304 L s .9 .58929 m .9 .59304 L s .9381 .58929 m .9381 .59304 L s .97619 .58929 m .97619 .59304 L s .25 Mabswid 0 .58929 m 1 .58929 L s .40476 .02799 m .41101 .02799 L s [(-0.175)] .39226 .02799 1 0 Mshowa .40476 .10817 m .41101 .10817 L s [(-0.15)] .39226 .10817 1 0 Mshowa .40476 .18836 m .41101 .18836 L s [(-0.125)] .39226 .18836 1 0 Mshowa .40476 .26854 m .41101 .26854 L s [(-0.1)] .39226 .26854 1 0 Mshowa .40476 .34873 m .41101 .34873 L s [(-0.075)] .39226 .34873 1 0 Mshowa .40476 .42892 m .41101 .42892 L s [(-0.05)] .39226 .42892 1 0 Mshowa .40476 .5091 m .41101 .5091 L s [(-0.025)] .39226 .5091 1 0 Mshowa .125 Mabswid .40476 .04402 m .40851 .04402 L s .40476 .06006 m .40851 .06006 L s .40476 .0761 m .40851 .0761 L s .40476 .09213 m .40851 .09213 L s .40476 .12421 m .40851 .12421 L s .40476 .14025 m .40851 .14025 L s .40476 .15628 m .40851 .15628 L s .40476 .17232 m .40851 .17232 L s .40476 .20439 m .40851 .20439 L s .40476 .22043 m .40851 .22043 L s .40476 .23647 m .40851 .23647 L s .40476 .25251 m .40851 .25251 L s .40476 .28458 m .40851 .28458 L s .40476 .30062 m .40851 .30062 L s .40476 .31666 m .40851 .31666 L s .40476 .33269 m .40851 .33269 L s .40476 .36477 m .40851 .36477 L s .40476 .3808 m .40851 .3808 L s .40476 .39684 m .40851 .39684 L s .40476 .41288 m .40851 .41288 L s .40476 .44495 m .40851 .44495 L s .40476 .46099 m .40851 .46099 L s .40476 .47703 m .40851 .47703 L s .40476 .49306 m .40851 .49306 L s .40476 .52514 m .40851 .52514 L s .40476 .54118 m .40851 .54118 L s .40476 .55721 m .40851 .55721 L s .40476 .57325 m .40851 .57325 L s .40476 .01195 m .40851 .01195 L s .40476 .60532 m .40851 .60532 L s .25 Mabswid .40476 0 m .40476 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .47751 m .0619 .5003 L .1 .52344 L .1381 .54487 L .17619 .56336 L .21429 .57838 L .25238 .58983 L .29048 .59772 L .32857 .60218 L .36667 .60332 L .40476 .60128 L .44286 .59622 L .48095 .58833 L .51905 .57784 L .55714 .56516 L .59524 .55082 L .63333 .53566 L .67143 .01472 L .70952 .01949 L .74762 .02522 L .78571 .03157 L .82381 .03821 L .8619 .0449 L .9 .05145 L .9381 .05773 L .97619 .06362 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", CellLabel->"From In[366]:=", Evaluatable->False, AspectRatioFixed->True, ImageSize->{281.438, 173.875}, ImageMargins->{{34, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgo00<006>oHkl0 YF>o001aHkl00`00HkmS_`2UHkl0075S_`03001S_f>o0:ES_`00LF>o0P00YV>o001aHkl00`00HkmS _`18Hkl6001GHkl0059S_`8000AS_`03001S_f>o009S_`<000AS_`03001S_f>o009S_`<000ES_`03 001S_f>o04QS_`03001S_f>o00=S_`P004mS_`00DF>o00@006>oHkl000US_`03001S_f>o00=S_`05 001S_f>oHkl00003Hkl00`00HkmS_`02Hkl00`00HkmS_`18Hkl00`00HkmS_`0;Hkl5001:Hkl004YS _`D0009S_`04001S_f>o0009Hkl00`00HkmS_`04Hkl00`00HkmS_`04Hkl00`00HkmS_`02Hkl30018 Hkl00`00HkmS_`0@Hkl90011Hkl0055S_`04001S_f>o0009Hkl00`00HkmS_`04Hkl00`00HkmS_`04 Hkl00`00HkmS_`02Hkl00`00HkmS_`18Hkl00`00HkmS_`0IHkl8000iHkl0055S_`04001S_f>o0009 Hkl00`00HkmS_`05Hkl00`00Hkl000030005Hkl00`00HkmS_`18Hkl00`00HkmS_`0QHkl5000dHkl0 055S_`04001S_f>o0008Hkl20003Hkl01`00HkmS_f>o001S_`0000QS_`03001S_f>o04QS_`03001S _f>o02IS_`D002mS_`00DV>o0P002V>o00@006>oHkmS_`D00003Hkl0000000<000AS_`03001S_f>o 04QS_`03001S_f>o02]S_`D002YS_`00LF>o0P00B6>o00<006>oHkl0o1P0096>o001aHkl00`00 HkmS_`17Hkl00`00HkmS_`0gHkl5000OHkl0075S_`03001S_f>o04MS_`03001S_f>o03aS_`H001US _`00LF>o00<006>oHkl0Af>o00<006>oHkl0@V>o1@0056>o001aHkl20018Hkl00`00HkmS_`17Hkl8 000o04MS_`03001S_f>o04mS_`D000MS_`00LF>o00<006>oHkl0Af>o00<0 06>oHkl0Ff>o001aHkl00`00HkmS_`17Hkl00`00HkmS_`1KHkl0075S_`03001S_f>o04MS_`03001S _f>o05]S_`00LF>o0P00B6>o00<006>oHkl0Ff>o001aHkl00`00HkmS_`17Hkl00`00HkmS_`1KHkl0 075S_`03001S_f>o04MS_`03001S_f>o05]S_`00LF>o00<006>oHkl0Af>o00<006>oHkl0Ff>o001a Hkl20017Hkl00`00HkmS_`1LHkl0075S_`03001S_f>o04IS_`03001S_f>o05aS_`00F6>o0P0016>o 00<006>oHkl00V>o0`000f>o0`001F>o00<006>oHkl0AV>o00<006>oHkl0G6>o001GHkl01000HkmS _`002F>o00D006>oHkmS_`0000=S_`03001S_f>o009S_`03001S_f>o04IS_`03001S_f>o05aS_`00 D6>o1@000V>o00@006>oHkl000US_`03001S_f>o00ES_`03001S_f>o009S_`03001S_f>o04IS_`03 001S_f>o05aS_`00Ef>o00@006>oHkl000US_`03001S_f>o00ES_`03001S_f>o009S_`<004IS_`03 001S_f>o05aS_`00Ef>o00@006>oHkl000US_`04001S_f>oHkl40005Hkl00`00HkmS_`16Hkl00`00 HkmS_`1LHkl005MS_`04001S_f>o0008Hkl20003Hkl00`00HkmS_`06Hkl00`00HkmS_`16Hkl00`00 HkmS_`1LHkl005QS_`8000YS_`04001S_f>oHkl50004Hkl00`00HkmS_`16Hkl00`00HkmS_`1LHkl0 075S_`8004MS_`03001S_f>o05aS_`00LF>o00<006>oHkl0AV>o00<006>oHkl0G6>o001aHkl00`00 HkmS_`16Hkl00`00HkmS_`1LHkl0075S_`03001S_f>o04IS_`03001S_f>o05aS_`00LF>o00<006>o Hkl0AF>o00<006>oHkl0GF>o001aHkl20016Hkl00`00HkmS_`1MHkl0075S_`03001S_f>o04ES_`03 001S_f>o05eS_`00LF>o00<006>oHkl0AF>o00<006>oHkl0GF>o001aHkl00`00HkmS_`15Hkl00`00 HkmS_`1MHkl0075S_`8004IS_`03001S_f>o05eS_`00LF>o00<006>oHkl0AF>o00<006>oHkl0GF>o 001aHkl00`00HkmS_`15Hkl00`00HkmS_`1MHkl0075S_`03001S_f>o04ES_`03001S_f>o05eS_`00 LF>o00<006>oHkl0AF>o00<006>oHkl0GF>o001aHkl20016Hkl00`00HkmS_`1MHkl0075S_`03001S _f>o04ES_`03001S_f>o05eS_`00DV>o0P0016>o00<006>oHkl00V>o0`000V>o1@000V>o0`001F>o 00<006>oHkl0AF>o00<006>oHkl0GF>o001AHkl01000HkmS_`002F>o00<006>oHkl00V>o00H006>o Hkl006>o0003Hkl00`00HkmS_`02Hkl00`00HkmS_`14Hkl00`00HkmS_`1NHkl004YS_`D0009S_`04 001S_f>o0009Hkl00`00HkmS_`03Hkl00`00HkmS_`05Hkl00`00HkmS_`02Hkl30014Hkl00`00HkmS _`1NHkl0055S_`04001S_f>o0009Hkl00`00HkmS_`04Hkl00`00HkmS_`04Hkl00`00HkmS_`02Hkl0 0`00HkmS_`14Hkl00`00HkmS_`1NHkl0055S_`04001S_f>o0009Hkl01@00HkmS_f>o00000f>o00<0 06>o00000`001F>o00<006>oHkl0A6>o00<006>oHkl0GV>o001AHkl01000HkmS_`0026>o0P000f>o 00L006>oHkmS_`00Hkl00008Hkl00`00HkmS_`14Hkl00`00HkmS_`1NHkl0059S_`8000YS_`03001S _f>o009S_`<0009S_`D000AS_`03001S_f>o04AS_`03001S_f>o05iS_`00LF>o0P00AF>o00<006>o Hkl0GV>o001aHkl00`00HkmS_`14Hkl00`00HkmS_`1NHkl0075S_`03001S_f>o04AS_`03001S_f>o 05iS_`00LF>o00<006>oHkl0A6>o00<006>oHkl0GV>o001aHkl20015Hkl00`00HkmS_`1NHkl0075S _`03001S_f>o04AS_`03001S_f>o05iS_`00LF>o00<006>oHkl0A6>o00<006>oHkl0GV>o001aHkl0 0`00HkmS_`13Hkl00`00HkmS_`1OHkl0075S_`03001S_f>o04=S_`03001S_f>o05mS_`00LF>o0P00 A6>o00<006>oHkl0Gf>o001aHkl00`00HkmS_`13Hkl00`00HkmS_`1OHkl0075S_`03001S_f>o04=S _`03001S_f>o05mS_`00LF>o00<006>oHkl0@f>o00<006>oHkl0Gf>o001aHkl20014Hkl00`00HkmS _`1OHkl0075S_`03001S_f>o04=S_`03001S_f>o05mS_`00GV>o0P0016>o00<006>oHkl00V>o0`00 1F>o00<006>oHkl0@f>o00<006>oHkl0Gf>o001MHkl01000HkmS_`002F>o00<006>oHkl016>o00<0 06>oHkl0@f>o00<006>oHkl0Gf>o001FHkl50002Hkl01000HkmS_`002F>o00<006>oHkl016>o00<0 06>oHkl0@f>o00<006>oHkl0Gf>o001MHkl01000HkmS_`002F>o00<006>oHkl016>o0`00@f>o00<0 06>oHkl0Gf>o001MHkl01000HkmS_`002F>o00<006>oHkl016>o00<006>oHkl0@f>o00<006>oHkl0 Gf>o001MHkl01000HkmS_`0026>o0P001V>o00<006>oHkl0@V>o00<006>oHkl0H6>o001NHkl2000: Hkl00`00HkmS_`04Hkl00`00HkmS_`12Hkl00`00HkmS_`1PHkl0075S_`8004=S_`03001S_f>o061S _`00LF>o00<006>oHkl0@V>o00<006>oHkl0H6>o001aHkl00`00HkmS_`12Hkl00`00HkmS_`1PHkl0 075S_`03001S_f>o049S_`03001S_f>o061S_`00LF>o00<006>oHkl0@V>o00<006>oHkl0H6>o001a Hkl20013Hkl00`00HkmS_`1PHkl0075S_`03001S_f>o049S_`03001S_f>o061S_`00LF>o00<006>o Hkl0@V>o00<006>oHkl0H6>o001aHkl00`00HkmS_`12Hkl00`00HkmS_`1PHkl0075S_`8004=S_`03 001S_f>o061S_`00LF>o00<006>oHkl0@V>o00<006>oHkl0H6>o001aHkl00`00HkmS_`12Hkl00`00 HkmS_`1PHkl0075S_`03001S_f>o045S_`03001S_f>o065S_`00LF>o00<006>oHkl0@F>o00<006>o Hkl0HF>o001aHkl20012Hkl00`00HkmS_`1QHkl0075S_`03001S_f>o045S_`03001S_f>o065S_`00 DV>o0P0016>o00<006>oHkl00f>o0P0016>o00<006>oHkl00V>o0`001F>o00<006>oHkl0@F>o00<0 06>oHkl0HF>o001AHkl01000HkmS_`0026>o00@006>oHkl000=S_`05001S_f>oHkl00003Hkl00`00 HkmS_`02Hkl00`00HkmS_`11Hkl00`00HkmS_`1QHkl004YS_`D0009S_`04001S_f>o0008Hkl01000 HkmS_`0016>o00<006>oHkl016>o00<006>oHkl00V>o0`00@F>o00<006>oHkl0HF>o001AHkl01000 HkmS_`0026>o00@006>oHkl000AS_`03001S_f>o00AS_`03001S_f>o009S_`03001S_f>o045S_`03 001S_f>o065S_`00DF>o00@006>oHkl000QS_`04001S_f>o0005Hkl00`00Hkl000030005Hkl00`00 HkmS_`11Hkl00`00HkmS_`1QHkl0055S_`04001S_f>o0008Hkl01P00HkmS_`00Hkl000=S_`03001S _`0000QS_`03001S_f>o045S_`03001S_f>o065S_`00DV>o0P002V>o0P000V>o1@0000=S_`000000 0`0016>o00<006>oHkl0@F>o00<006>oHkl0HF>o001aHkl20012Hkl00`00HkmS_`1QHkl0075S_`03 001S_f>o045S_`03001S_f>o065S_`00LF>o00<006>oHkl0@6>o00<006>oHkl0HV>o001aHkl00`00 HkmS_`10Hkl00`00HkmS_`1RHkl0075S_`80045S_`03001S_f>o069S_`00LF>o00<006>oHkl0@6>o 00<006>oHkl0HV>o001aHkl00`00HkmS_`10Hkl00`00HkmS_`1RHkl0075S_`03001S_f>o041S_`03 001S_f>o069S_`00LF>o00<006>oHkl0@6>o00<006>oHkl0HV>o001aHkl20011Hkl00`00HkmS_`1R Hkl0075S_`03001S_f>o041S_`03001S_f>o069S_`00LF>o00<006>oHkl0@6>o00<006>oHkl0HV>o 001aHkl00`00HkmS_`10Hkl00`00HkmS_`1RHkl0075S_`80045S_`03001S_f>o069S_`00LF>o00<0 06>oHkl0@6>o00<006>oHkl0HV>o001HHkl20004Hkl00`00HkmS_`03Hkl20003Hkl30005Hkl00`00 HkmS_`0oHkl00`00HkmS_`1SHkl005MS_`04001S_f>o0008Hkl01P00HkmS_`00Hkl000=S_`03001S _f>o009S_`03001S_f>o03mS_`03001S_f>o06=S_`00D6>o1@000V>o00@006>oHkl000QS_`04001S _f>o0005Hkl00`00HkmS_`02Hkl00`00HkmS_`0oHkl00`00HkmS_`1SHkl005MS_`04001S_f>o0008 Hkl01000HkmS_`001F>o00<006>oHkl00V>o0`00?f>o00<006>oHkl0Hf>o001GHkl01000HkmS_`00 26>o00D006>oHkl006>o00@000ES_`03001S_f>o03mS_`03001S_f>o06=S_`00Ef>o00@006>oHkl0 00QS_`06001S_f>o001S_`0026>o00<006>oHkl0?f>o00<006>oHkl0Hf>o001HHkl2000:Hkl20002 Hkl50004Hkl00`00HkmS_`0oHkl00`00HkmS_`1SHkl0075S_`80041S_`03001S_f>o06=S_`00LF>o 00<006>oHkl0?f>o00<006>oHkl0Hf>o001aHkl00`00HkmS_`0oHkl00`00HkmS_`1SHkl0075S_`03 001S_f>o03mS_`03001S_f>o06=S_`00LF>o00<006>oHkl0?f>o00<006>oHkl0Hf>o001aHkl20010 Hkl00`00HkmS_`1SHkl0075S_`03001S_f>o03iS_`03001S_f>o06AS_`00LF>o00<006>oHkl0?V>o 00<006>oHkl0I6>o001aHkl00`00HkmS_`0nHkl00`00HkmS_`1THkl000MS_`8006QS_`8003mS_`03 001S_f>o06AS_`002F>o00<006>oHkl0IF>o00<006>oHkl0?V>o00<006>oHkl0I6>o000:Hkl2001U Hkl00`00HkmS_`0nHkl00`00HkmS_`1THkl000aS_`03001S_f>o069S_`03001S_f>o03iS_`03001S _f>o06AS_`003F>o00<006>oHkl0HF>o00<006>oHkl0?V>o00<006>oHkl0I6>o000>Hkl2001QHkl2 000oHkl00`00HkmS_`1THkl0011S_`03001S_f>o05iS_`03001S_f>o03iS_`03001S_f>o06AS_`00 4F>o0P00?f>o0P0016>o00<006>oHkl00f>o0P000V>o1@000V>o0`001F>o00<006>oHkl0?V>o00<0 06>oHkl0I6>o000CHkl2000lHkl01000HkmS_`0026>o00@006>oHkl0009S_`06001S_f>o001S_`00 0f>o00<006>oHkl00V>o00<006>oHkl0?V>o00<006>oHkl0I6>o000EHkl2000cHkl50002Hkl01000 HkmS_`0026>o00@006>oHkl000=S_`03001S_f>o00ES_`03001S_f>o009S_`<003iS_`03001S_f>o 06AS_`005f>o00<006>oHkl0=f>o00@006>oHkl000QS_`04001S_f>o0004Hkl00`00HkmS_`04Hkl0 0`00HkmS_`02Hkl00`00HkmS_`0mHkl00`00HkmS_`1UHkl001QS_`8003MS_`04001S_f>o0008Hkl0 1P00HkmS_`00Hkl000=S_`03001S_`0000<000ES_`03001S_f>o03eS_`03001S_f>o06ES_`006V>o 0P00=F>o00@006>oHkl000QS_`06001S_f>o001S_`000f>o00<006>o000026>o00<006>oHkl0?F>o 00<006>oHkl0IF>o000LHkl2000dHkl2000:Hkl20003Hkl30002Hkl50004Hkl00`00HkmS_`0mHkl0 0`00HkmS_`1UHkl001iS_`80055S_`8003iS_`03001S_f>o06ES_`0086>o00<006>oHkl0CV>o00<0 06>oHkl0?F>o00<006>oHkl0IF>o000QHkl2001>Hkl00`00HkmS_`0lHkl2001WHkl002=S_`8004aS _`03001S_f>o03YS_`8006US_`009F>o00<006>oHkl0BF>o0P00>6>o0`00Jf>o000VHkl20019Hkl0 0`00HkmS_`0eHkl2001^Hkl001ES_`8000AS_`03001S_f>o009S_`<000ES_`8001ES_`8000AS_`03 001S_f>o009S_`<002AS_`03001S_f>o021S_`<000AS_`04001S_f>oHkl50003Hkl2000EHkl30004 Hkl00`00HkmS_`03Hkl3000KHkl30004Hkl00`00HkmS_`02Hkl3000QHkl001AS_`04001S_f>o0007 Hkl01@00HkmS_f>o00001V>o0`004F>o00@006>oHkl000MS_`05001S_f>oHkl0000SHkl00`00HkmS _`0QHkl00`00HkmS_`08Hkl01@00HkmS_`00Hkl00P0066>o00<006>oHkl02V>o00<006>oHkl06f>o 00<006>oHkl01f>o00D006>oHkmS_`00021S_`0056>o00@006>oHkl000MS_`05001S_f>oHkl00009 Hkl2000?Hkl01000HkmS_`001f>o00D006>oHkmS_`0002=S_`80029S_`03001S_f>o00US_`@001YS _`03001S_f>o00MS_`D001aS_`03001S_f>o00MS_`05001S_f>oHkl0000PHkl001AS_`04001S_f>o 0007Hkl4000o0`0096>o00<006>oHkl08F>o00<006>oHkl026>o 0`0076>o00<006>oHkl01f>o00@006>oHkl001eS_`03001S_f>o00MS_`@0025S_`0056>o00@006>o Hkl000MS_`03001S_f>o00mS_`8000]S_`04001S_f>o0007Hkl01@00HkmS_f>o00008f>o00<006>o Hkl08F>o00<006>oHkl01F>o0`000f>o00<006>oHkl06F>o00<006>oHkl026>o00<006>o00007F>o 00<006>oHkl01f>o00<006>oHkl08V>o000DHkl01000HkmS_`0026>o00<006>oHkl046>o0`0026>o 00@006>oHkl000MS_`05001S_f>oHkl0000SHkl00`00HkmS_`0PHkl20004Hkl30002Hkl01@00HkmS _f>o00006V>o0P002f>o0P0076>o0P002V>o00<006>oHkl08F>o000EHkl2000:Hkl2000CHkl30006 Hkl20009Hkl3000THkl00`00HkmS_`0QHkl50006Hkl3000LHkl00`00HkmS_`0:Hkl00`00HkmS_`0K Hkl00`00HkmS_`09Hkl2000QHkl003US_`<003ES_`80021S_`<008=S_`00?6>o0P00o00<006>o Hkl06f>o1000QV>o000nHkl3000`Hkl00`00HkmS_`0GHkl4002:Hkl0045S_`8002iS_`03001S_f>o 01AS_`<008iS_`00o`006P000007Hkl00`00HkmS_`07Hkl00`00HkmS_`08Hkl00`00HkmS_`07Hkl0 0`00HkmS_`08Hkl00`00HkmS_`08Hkl00`00HkmS_`07Hkl40007Hkl00`00HkmS_`08Hkl00`00HkmS _`07Hkl00`00HkmS_`08Hkl00`00HkmS_`08Hkl00`00HkmS_`050002Hkl00`00HkmS_`08Hkl00`00 HkmS_`08Hkl00`00HkmS_`07Hkl00`00HkmS_`08Hkl00`00HkmS_`08Hkl00`00HkmS_`07Hkl00`00 HkmS_`08Hkl00`00HkmS_`08Hkl00`00HkmS_`07Hkl00`00HkmS_`08Hkl00`00HkmS_`08Hkl00`00 HkmS_`07Hkl00`00HkmS_`08Hkl00`00HkmS_`05Hkl000MS_`03001S_f>o00MS_`03001S_f>o00QS _`03001S_f>o00MS_`03001S_f>o00QS_`03001S_f>o00QS_`03001S_f>o00MS_`04001S_f>oHkl5 0002Hkl00`00HkmS_`08Hkl00`00HkmS_`07Hkl00`00HkmS_`08Hkl00`00HkmS_`05Hkl60007Hkl0 0`00HkmS_`08Hkl00`00HkmS_`08Hkl00`00HkmS_`07Hkl00`00HkmS_`08Hkl00`00HkmS_`08Hkl0 0`00HkmS_`07Hkl00`00HkmS_`08Hkl00`00HkmS_`08Hkl00`00HkmS_`07Hkl00`00HkmS_`08Hkl0 0`00HkmS_`08Hkl00`00HkmS_`07Hkl00`00HkmS_`08Hkl00`00HkmS_`05Hkl004mS_`T001US_`03 001S_f>o00D00:1S_`00F6>o7000YF>o001aHkl2002VHkl0075S_`03001S_f>o0:ES_`00LF>o00<0 06>oHkl0YF>o001aHkl00`00HkmS_`2UHkl00001\ \>"], ImageRangeCache->{{{0, 280.438}, {172.875, 0}} -> {0.467059, -0.183726, \ 0.00469225, 0.00111461}}] }, Open ]], Cell[TextData[{ "The break occurs when a different mode becomes the last eigenvalue. (Thus \ we should be more careful about the sorting of eigenvalues than ", StyleBox["Mathematica", FontSlant->"Italic"], " is doing)." }], "Text"], Cell[BoxData[ \(\(rett = Table[{alfz[i], relamb[i]}, {i, 0, 25}];\)\)], "Input", CellLabel->"In[367]:=", AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(\(ListPlot[rett, PlotJoined \[Rule] True];\)\)], "Input", CellLabel->"In[368]:=", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations -0.357143 0.761905 -1.00371 6.27115 [ [.1 .23802 -9 -9 ] [.1 .23802 9 0 ] [.25238 .23802 -9 -9 ] [.25238 .23802 9 0 ] [.55714 .23802 -9 -9 ] [.55714 .23802 9 0 ] [.70952 .23802 -9 -9 ] [.70952 .23802 9 0 ] [.8619 .23802 -9 -9 ] [.8619 .23802 9 0 ] [.39226 .12509 -24 -4.5 ] [.39226 .12509 0 4.5 ] [.39226 .37594 -24 -4.5 ] [.39226 .37594 0 4.5 ] [.39226 .50136 -24 -4.5 ] [.39226 .50136 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .1 .25052 m .1 .25677 L s [(0.6)] .1 .23802 0 1 Mshowa .25238 .25052 m .25238 .25677 L s [(0.8)] .25238 .23802 0 1 Mshowa .55714 .25052 m .55714 .25677 L s [(1.2)] .55714 .23802 0 1 Mshowa .70952 .25052 m .70952 .25677 L s [(1.4)] .70952 .23802 0 1 Mshowa .8619 .25052 m .8619 .25677 L s [(1.6)] .8619 .23802 0 1 Mshowa .125 Mabswid .1381 .25052 m .1381 .25427 L s .17619 .25052 m .17619 .25427 L s .21429 .25052 m .21429 .25427 L s .29048 .25052 m .29048 .25427 L s .32857 .25052 m .32857 .25427 L s .36667 .25052 m .36667 .25427 L s .44286 .25052 m .44286 .25427 L s .48095 .25052 m .48095 .25427 L s .51905 .25052 m .51905 .25427 L s .59524 .25052 m .59524 .25427 L s .63333 .25052 m .63333 .25427 L s .67143 .25052 m .67143 .25427 L s .74762 .25052 m .74762 .25427 L s .78571 .25052 m .78571 .25427 L s .82381 .25052 m .82381 .25427 L s .0619 .25052 m .0619 .25427 L s .02381 .25052 m .02381 .25427 L s .9 .25052 m .9 .25427 L s .9381 .25052 m .9381 .25427 L s .97619 .25052 m .97619 .25427 L s .25 Mabswid 0 .25052 m 1 .25052 L s .40476 .12509 m .41101 .12509 L s [(0.18)] .39226 .12509 1 0 Mshowa .40476 .37594 m .41101 .37594 L s [(0.22)] .39226 .37594 1 0 Mshowa .40476 .50136 m .41101 .50136 L s [(0.24)] .39226 .50136 1 0 Mshowa .125 Mabswid .40476 .03102 m .40851 .03102 L s .40476 .06238 m .40851 .06238 L s .40476 .09374 m .40851 .09374 L s .40476 .15645 m .40851 .15645 L s .40476 .1878 m .40851 .1878 L s .40476 .21916 m .40851 .21916 L s .40476 .28187 m .40851 .28187 L s .40476 .31323 m .40851 .31323 L s .40476 .34458 m .40851 .34458 L s .40476 .40729 m .40851 .40729 L s .40476 .43865 m .40851 .43865 L s .40476 .47001 m .40851 .47001 L s .40476 .53272 m .40851 .53272 L s .40476 .56407 m .40851 .56407 L s .40476 .59543 m .40851 .59543 L s .25 Mabswid .40476 0 m .40476 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .01472 m .0619 .0789 L .1 .13842 L .1381 .19261 L .17619 .24244 L .21429 .28897 L .25238 .33291 L .29048 .37461 L .32857 .41412 L .36667 .45131 L .40476 .48585 L .44286 .51729 L .48095 .54502 L .51905 .56832 L .55714 .58632 L .59524 .59818 L .63333 .60332 L .67143 .14206 L .70952 .13208 L .74762 .12291 L .78571 .11498 L .82381 .10842 L .8619 .10322 L .9 .09929 L .9381 .09654 L .97619 .09489 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", CellLabel->"From In[368]:=", Evaluatable->False, AspectRatioFixed->True, ImageSize->{281.438, 173.875}, ImageMargins->{{34, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgo00<006>oHkl0 YF>o001aHkl00`00HkmS_`2UHkl0075S_`03001S_f>o0:ES_`00LF>o00<006>oHkl0YF>o0007Hkl0 0`00HkmS_`1WHkl00`00HkmS_`2UHkl000MS_`03001S_f>o06MS_`03001S_f>o0:ES_`0026>o00<0 06>oHkl0IV>o00<006>oHkl0YF>o0008Hkl00`00HkmS_`1VHkl00`00HkmS_`2UHkl000US_`03001S _f>o06ES_`800:IS_`002V>o00<006>oHkl0I6>o00<006>oHkl0YF>o000:Hkl00`00HkmS_`1THkl0 0`00HkmS_`2UHkl000]S_`03001S_f>o06=S_`03001S_f>o0:ES_`002f>o00<006>oHkl0Hf>o00<0 06>oHkl0YF>o000o069S_`03001S _f>o0:ES_`003F>o00<006>oHkl0HF>o00<006>oHkl0YF>o000=Hkl00`00HkmS_`1QHkl00`00HkmS _`2UHkl000iS_`03001S_f>o061S_`800:IS_`003f>o00<006>oHkl0Gf>o00<006>oHkl0YF>o000? Hkl00`00HkmS_`1OHkl00`00HkmS_`2UHkl0011S_`03001S_f>o05iS_`03001S_f>o0:ES_`0046>o 00<006>oHkl0GV>o00<006>oHkl0YF>o000AHkl00`00HkmS_`1MHkl00`00HkmS_`2UHkl0015S_`03 001S_f>o05eS_`03001S_f>o0:ES_`004V>o00<006>oHkl0G6>o00<006>oHkl0YF>o000CHkl00`00 HkmS_`1KHkl00`00HkmS_`2UHkl001=S_`03001S_f>o05]S_`8009US_`H000MS_`0056>o00<006>o Hkl0FV>o00<006>oHkl0Pf>o5@003F>o000EHkl00`00HkmS_`1IHkl00`00HkmS_`1jHkl9000RHkl0 01ES_`03001S_f>o05US_`03001S_f>o07ES_`D002]S_`005V>o00<006>oHkl0F6>o00<006>oHkl0 L6>o1@00<6>o000GHkl00`00HkmS_`1GHkl00`00HkmS_`1[Hkl5000eHkl001QS_`03001S_f>o03eS _`8000AS_`03001S_f>o009S_`<000=S_`<000ES_`03001S_f>o06ES_`H003YS_`0066>o00<006>o Hkl0?6>o00@006>oHkl000US_`05001S_f>oHkl00003Hkl00`00HkmS_`02Hkl00`00HkmS_`1PHkl5 0010Hkl001US_`03001S_f>o03]S_`04001S_f>o0009Hkl01@00HkmS_f>o00000f>o00<006>oHkl0 0V>o00<006>oHkl0Ff>o1@00AF>o000JHkl00`00HkmS_`0jHkl01000HkmS_`002F>o00<006>oHkl0 0V>o0`001F>o0`00Ef>o1000BV>o000JHkl00`00HkmS_`0jHkl01000HkmS_`002F>o00D006>oHkmS _`0000=S_`03001S_f>o009S_`03001S_f>o05AS_`<004iS_`006f>o00<006>oHkl0>F>o00@006>o Hkl000QS_`8000=S_`05001S_f>oHkl00004Hkl00`00HkmS_`1@Hkl4001AHkl001aS_`03001S_f>o 03US_`8000YS_`03001S_f>o009S_`<000ES_`03001S_f>o04]S_`D005ES_`0076>o00<006>oHkl0 DV>o00<006>oHkl0B6>o0`00FV>o000MHkl00`00HkmS_`1AHkl00`00HkmS_`18Hkl00`00HkmS_`1J Hkl001iS_`03001S_f>o051S_`03001S_f>o04QS_`03001S_f>o05YS_`007V>o00<006>oHkl0D6>o 00<006>oHkl0B6>o00<006>oHkl0FV>o000OHkl00`00HkmS_`1?Hkl20019Hkl00`00HkmS_`1JHkl0 01mS_`03001S_f>o04mS_`03001S_f>o04QS_`03001S_f>o05YS_`0086>o00<006>oHkl0CV>o00<0 06>oHkl0B6>o00<006>oHkl0FV>o000QHkl00`00HkmS_`1=Hkl00`00HkmS_`17Hkl00`00HkmS_`1K Hkl0025S_`03001S_f>o04eS_`03001S_f>o04MS_`03001S_f>o05]S_`008V>o00<006>oHkl0C6>o 00<006>oHkl0Af>o00<006>oHkl0Ff>o000SHkl00`00HkmS_`1;Hkl00`00HkmS_`17Hkl00`00HkmS _`1KHkl002=S_`03001S_f>o04]S_`03001S_f>o04MS_`03001S_f>o05]S_`0096>o00<006>oHkl0 BV>o00<006>oHkl0Af>o00<006>oHkl0Ff>o000THkl00`00HkmS_`1:Hkl20018Hkl00`00HkmS_`1K Hkl002ES_`03001S_f>o04US_`03001S_f>o04MS_`03001S_f>o05]S_`009V>o00<006>oHkl0B6>o 00<006>oHkl0Af>o00<006>oHkl0Ff>o000VHkl00`00HkmS_`18Hkl00`00HkmS_`17Hkl00`00HkmS _`1KHkl002MS_`03001S_f>o04MS_`03001S_f>o04MS_`03001S_f>o05]S_`00:6>o00<006>oHkl0 AV>o00<006>oHkl0Af>o00<006>oHkl0Ff>o000EHkl20004Hkl00`00HkmS_`02Hkl30006Hkl00`00 HkmS_`0CHkl20004Hkl00`00HkmS_`02Hkl3000THkl00`00HkmS_`0PHkl30004Hkl01000HkmS_f>o 1@005V>o00@006>oHkmS_`<000AS_`03001S_f>o00=S_`<001]S_`<000AS_`03001S_f>o009S_`<0 025S_`0056>o00@006>oHkl000MS_`05001S_f>oHkl00006Hkl00`00HkmS_`0AHkl01000HkmS_`00 1f>o00D006>oHkmS_`0002=S_`03001S_f>o025S_`03001S_f>o00QS_`04001S_f>o000FHkl00`00 HkmS_`02Hkl00`00HkmS_`0:Hkl00`00HkmS_`0KHkl00`00HkmS_`07Hkl01@00HkmS_f>o000086>o 000DHkl01000HkmS_`001f>o00D006>oHkmS_`0000MS_`03001S_f>o011S_`04001S_f>o0007Hkl0 1@00HkmS_f>o00008f>o00<006>oHkl08F>o00<006>oHkl02F>o00<006>oHkl05V>o00<006>oHkl0 0V>o00<006>oHkl01f>o1@0076>o00<006>oHkl01f>o00D006>oHkmS_`00021S_`0056>o00@006>o Hkl000MS_`@000US_`03001S_f>o00mS_`04001S_f>o0008Hkl3000THkl2000RHkl00`00HkmS_`0: Hkl00`00HkmS_`0EHkl00`00HkmS_`02Hkl00`00HkmS_`07Hkl01000HkmS_`007F>o00<006>oHkl0 1f>o10008F>o000DHkl01000HkmS_`001f>o00<006>oHkl02V>o00<006>oHkl03f>o00@006>oHkl0 00MS_`05001S_f>oHkl0000SHkl00`00HkmS_`0QHkl00`00HkmS_`07Hkl01@00HkmS_f>o00005V>o 00<006>oHkl00V>o00<006>oHkl026>o00<006>o00007F>o00<006>oHkl01f>o00<006>oHkl08V>o 000DHkl01000HkmS_`0026>o00<006>oHkl02V>o00<006>oHkl03V>o00@006>oHkl000MS_`05001S _f>oHkl0000SHkl00`00HkmS_`0PHkl20009Hkl01@00HkmS_f>o00005V>o00@006>oHkmS_`8000]S _`8001aS_`8000YS_`03001S_f>o025S_`005F>o0P002V>o0P002f>o00<006>oHkl03V>o0P002F>o 0`0096>o00<006>oHkl08F>o00<006>oHkl026>o0`005f>o00<006>oHkl00V>o00<006>oHkl02V>o 00<006>oHkl06f>o00<006>oHkl02F>o0P008F>o000_Hkl00`00HkmS_`0oHkl00`00HkmS_`16Hkl0 0`00HkmS_`1LHkl0031S_`03001S_f>o03iS_`03001S_f>o04IS_`03001S_f>o05aS_`00o00<0 06>oHkl0?F>o00<006>oHkl0AV>o00<006>oHkl0G6>o000aHkl00`00HkmS_`0mHkl00`00HkmS_`16 Hkl00`00HkmS_`1LHkl0039S_`03001S_f>o03aS_`03001S_f>o04ES_`03001S_f>o05eS_`00o`00 6P000007Hkl00`00HkmS_`07Hkl00`00HkmS_`08Hkl00`00HkmS_`07Hkl00`00HkmS_`08Hkl01000 HkmS_`001f>o00<006>oHkl01f>o00<006>oHkl026>o00<006>oHkl026>o00<006>oHkl01f>o00<0 06>oHkl026>o00<006>oHkl026>o00<006>oHkl01f>o00<006>oHkl026>o00<006>oHkl026>o00<0 06>oHkl01f>o00<006>oHkl026>o00<006>oHkl01F>o00@006>oHkl000US_`03001S_f>o00QS_`03 001S_f>o00QS_`03001S_f>o00MS_`03001S_f>o00QS_`03001S_f>o00QS_`03001S_f>o00MS_`03 001S_f>o00QS_`03001S_f>o00ES_`00=F>o00<006>oHkl0>F>o00<006>oHkl0AF>o00<006>oHkl0 GF>o000fHkl00`00HkmS_`0hHkl00`00HkmS_`15Hkl00`00HkmS_`1MHkl003MS_`03001S_f>o03MS _`03001S_f>o04ES_`03001S_f>o05eS_`00=f>o00<006>oHkl0=f>o00<006>oHkl0AF>o00<006>o Hkl0GF>o000hHkl00`00HkmS_`0fHkl00`00HkmS_`15Hkl00`00HkmS_`1MHkl003US_`03001S_f>o 03ES_`03001S_f>o04ES_`03001S_f>o05eS_`00>V>o00<006>oHkl0=6>o0P00AV>o00<006>oHkl0 GF>o000kHkl00`00HkmS_`0cHkl00`00HkmS_`15Hkl00`00HkmS_`1MHkl003aS_`03001S_f>o039S _`03001S_f>o04ES_`03001S_f>o05eS_`00?6>o00<006>oHkl0o00<006>oHkl0A6>o00<006>o Hkl0GV>o000mHkl00`00HkmS_`0aHkl00`00HkmS_`14Hkl00`00HkmS_`1NHkl003iS_`03001S_f>o 031S_`03001S_f>o04AS_`03001S_f>o05iS_`00?f>o00<006>oHkl0;f>o00<006>oHkl0A6>o00<0 06>oHkl0GV>o000oHkl00`00HkmS_`0_Hkl00`00HkmS_`14Hkl00`00HkmS_`1NHkl0041S_`03001S _f>o02iS_`03001S_f>o04AS_`03001S_f>o05iS_`00@F>o00<006>oHkl0;F>o0P00AF>o00<006>o Hkl0GV>o0012Hkl00`00HkmS_`0/Hkl00`00HkmS_`14Hkl00`00HkmS_`1NHkl004=S_`03001S_f>o 02]S_`03001S_f>o04AS_`03001S_f>o05iS_`00@f>o00<006>oHkl0:f>o00<006>oHkl0A6>o00<0 06>oHkl0GV>o0014Hkl00`00HkmS_`0ZHkl00`00HkmS_`14Hkl00`00HkmS_`1NHkl004ES_`03001S _f>o02US_`03001S_f>o04AS_`03001S_f>o05iS_`00AV>o00<006>oHkl0:6>o00<006>oHkl0@f>o 00<006>oHkl0Gf>o0017Hkl00`00HkmS_`0WHkl00`00HkmS_`13Hkl00`00HkmS_`1OHkl004QS_`03 001S_f>o02IS_`03001S_f>o04=S_`03001S_f>o05mS_`00BF>o00<006>oHkl09F>o0P00A6>o00<0 06>oHkl0Gf>o001:Hkl00`00HkmS_`0THkl00`00HkmS_`13Hkl00`00HkmS_`1OHkl004]S_`03001S _f>o02=S_`03001S_f>o04=S_`03001S_f>o05mS_`00C6>o00<006>oHkl08V>o00<006>oHkl0@f>o 00<006>oHkl0Gf>o001=Hkl00`00HkmS_`0QHkl00`00HkmS_`13Hkl00`00HkmS_`1OHkl004iS_`03 001S_f>o021S_`03001S_f>o04=S_`03001S_f>o05mS_`00Cf>o00<006>oHkl01V>o0P0016>o00@0 06>oHkmS_`D00003Hkl0000000<000AS_`03001S_f>o04=S_`03001S_f>o05mS_`00D6>o00<006>o Hkl016>o00@006>oHkl000QS_`04001S_f>o0002Hkl01000HkmS_`0016>o00<006>oHkl0@f>o00<0 06>oHkl0Gf>o001AHkl00`00HkmS_`03Hkl01000HkmS_`002F>o00<006>oHkl00f>o00<006>oHkl0 16>o00<006>oHkl0@V>o00<006>oHkl0H6>o001BHkl00`00HkmS_`02Hkl01000HkmS_`002V>o00<0 06>oHkl00f>o00<006>oHkl00f>o0`00@V>o00<006>oHkl0H6>o001CHkl01@00HkmS_f>o00000V>o 00<006>oHkl01F>o00L006>oHkmS_`00Hkl00003Hkl00`00HkmS_`02Hkl00`00HkmS_`12Hkl00`00 HkmS_`1PHkl005AS_`04001S_f>o0002Hkl00`00HkmS_`05Hkl01`00HkmS_f>o001S_`0000=S_`03 001S_f>o009S_`03001S_f>o049S_`03001S_f>o061S_`00EF>o00<006>oHkl00P002F>o0`000f>o 0`001F>o00<006>oHkl0@V>o00<006>oHkl0H6>o001FHkl00`00HkmS_`0HHkl00`00HkmS_`12Hkl0 0`00HkmS_`1PHkl005MS_`03001S_f>o01MS_`03001S_f>o049S_`03001S_f>o061S_`00F6>o00<0 06>oHkl05V>o00<006>oHkl0@V>o00<006>oHkl0H6>o001IHkl00`00HkmS_`0EHkl00`00HkmS_`12 Hkl00`00HkmS_`1PHkl005YS_`03001S_f>o01AS_`03001S_f>o049S_`03001S_f>o061S_`00Ff>o 00<006>oHkl04f>o0P00@f>o00<006>oHkl0H6>o001LHkl00`00HkmS_`0BHkl00`00HkmS_`12Hkl0 0`00HkmS_`1PHkl005aS_`03001S_f>o019S_`03001S_f>o045S_`03001S_f>o065S_`00GF>o00<0 06>oHkl04F>o00<006>oHkl0@F>o00<006>oHkl0HF>o001NHkl00`00HkmS_`0@Hkl00`00HkmS_`11 Hkl00`00HkmS_`1QHkl005mS_`03001S_f>o00mS_`03001S_f>o045S_`03001S_f>o065S_`00H6>o 00<006>oHkl03V>o00<006>oHkl0@F>o00<006>oHkl0HF>o001QHkl00`00HkmS_`0=Hkl00`00HkmS _`11Hkl00`00HkmS_`1QHkl0069S_`03001S_f>o00aS_`80049S_`03001S_f>o065S_`00Hf>o00<0 06>oHkl02f>o00<006>oHkl0@F>o00<006>oHkl0HF>o001THkl00`00HkmS_`0:Hkl00`00HkmS_`11 Hkl00`00HkmS_`1QHkl006ES_`03001S_f>o00US_`03001S_f>o045S_`03001S_f>o065S_`00IV>o 0P002F>o00<006>oHkl0@F>o00<006>oHkl0HF>o001XHkl00`00HkmS_`06Hkl00`00HkmS_`11Hkl0 0`00HkmS_`1QHkl006US_`03001S_f>o00ES_`03001S_f>o041S_`03001S_f>o069S_`00JV>o00<0 06>oHkl016>o00<006>oHkl0@6>o00<006>oHkl0HV>o001[Hkl00`00HkmS_`03Hkl00`00HkmS_`10 Hkl00`00HkmS_`1RHkl006aS_`03001S_f>o009S_`80045S_`03001S_f>o069S_`00KF>o00D006>o HkmS_`00049S_`03001S_f>o069S_`00KV>o00@006>oHkl0049S_`03001S_f>o069S_`00Kf>o00<0 06>o0000@V>o00<006>oHkl0HV>o001`Hkl20012Hkl00`00HkmS_`1RHkl0075S_`80045S_`03001S _f>o069S_`00F6>o0P0016>o00@006>oHkmS_`D000=S_`<000AS_`03001S_`00041S_`03001S_f>o 069S_`00Ef>o00@006>oHkl000QS_`04001S_f>o0004Hkl00`00HkmS_`03Hkl01000HkmS_`00?f>o 00<006>oHkl0HV>o001GHkl01000HkmS_`002F>o00@006>oHkmS_`D000AS_`04001S_f>oHkl2000m Hkl00`00HkmS_`1RHkl005MS_`04001S_f>o000:Hkl01000HkmS_`000V>o00<006>oHkl00f>o0`00 0f>o00<006>oHkl0>F>o00<006>oHkl0Hf>o001GHkl01000HkmS_`001f>o00D006>oHkmS_`00009S _`03001S_`0000ES_`03001S_f>o00AS_`8003US_`03001S_f>o06=S_`00Ef>o00@006>oHkl000MS _`05001S_f>oHkl00003Hkl20005Hkl00`00HkmS_`06Hkl00`00HkmS_`0fHkl00`00HkmS_`1SHkl0 05QS_`8000US_`<000ES_`03001S_f>o00=S_`03001S_f>o00MS_`03001S_f>o03ES_`03001S_f>o 06=S_`00LF>o00<006>oHkl026>o0P00=F>o00<006>oHkl0Hf>o001aHkl00`00HkmS_`0:Hkl00`00 HkmS_`0bHkl00`00HkmS_`1SHkl0075S_`03001S_f>o00]S_`03001S_f>o035S_`03001S_f>o06=S _`00LF>o00<006>oHkl036>o00<006>oHkl0<6>o00<006>oHkl0Hf>o001aHkl00`00HkmS_`0=Hkl2 000`Hkl00`00HkmS_`1SHkl0075S_`80011S_`03001S_f>o02eS_`03001S_f>o06=S_`00LF>o00<0 06>oHkl046>o00<006>oHkl0;6>o00<006>oHkl0Hf>o001aHkl00`00HkmS_`0AHkl00`00HkmS_`0Z Hkl00`00HkmS_`1THkl0075S_`03001S_f>o019S_`8002YS_`03001S_f>o06AS_`00LF>o00<006>o Hkl056>o00<006>oHkl09f>o00<006>oHkl0I6>o001aHkl00`00HkmS_`0EHkl2000WHkl00`00HkmS _`1THkl0075S_`03001S_f>o01MS_`8002ES_`03001S_f>o06AS_`00LF>o00<006>oHkl06F>o00<0 06>oHkl08V>o00<006>oHkl0I6>o001aHkl2000KHkl2000RHkl00`00HkmS_`1THkl0075S_`03001S _f>o01aS_`03001S_f>o01mS_`03001S_f>o06AS_`00LF>o00<006>oHkl07F>o0P007f>o00<006>o Hkl0I6>o001aHkl00`00HkmS_`0OHkl2000MHkl00`00HkmS_`1THkl0075S_`03001S_f>o025S_`<0 01YS_`03001S_f>o06AS_`00LF>o00<006>oHkl096>o0P0066>o00<006>oHkl0I6>o001aHkl00`00 HkmS_`0VHkl2000EHkl00`00HkmS_`1UHkl0075S_`03001S_f>o02QS_`<0019S_`03001S_f>o06ES _`00LF>o00<006>oHkl0:f>o0`003f>o00<006>oHkl0IF>o001aHkl2000_Hkl3000o035S_`P000AS_`03001S_f>o06ES_`00LF>o00<006>oHkl0>F>o1@00 If>o001aHkl00`00HkmS_`2UHkl0075S_`03001S_f>o0:ES_`00LF>o00<006>oHkl0YF>o001aHkl0 0`00HkmS_`2UHkl00001\ \>"], ImageRangeCache->{{{0, 280.438}, {172.875, 0}} -> {0.467059, 0.160051, \ 0.00469225, 0.000570078}}] }, Open ]] }, Open ]], Cell["rrx=5772.22", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ \(\(rrx = 5772.22;\)\)], "Input", CellLabel->"In[369]:=", AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(Do[{alfx = 0.5 + i\ .05; alfz[i] = alfx; imlamb[i] = Im[lambda]; relamb[i] = Re[lambda];}, {i, 0, 25}]\)], "Input", CellLabel->"In[370]:=", AspectRatioFixed->True], Cell[BoxData[ FormBox[ RowBox[{\(Inverse::"luc"\), \(\(:\)\(\ \)\), "\<\"Result for \ \\!\\(TraditionalForm\\`Inverse\\) of badly conditioned matrix \ \\!\\(TraditionalForm\\`\\((\[NoBreak] \\(\[LeftSkeleton] 1 \ \[RightSkeleton]\\) \[NoBreak])\\)\\) may contain significant numerical \ errors.\"\>"}], TraditionalForm]], "Message", CellLabel->"From In[370]:="], Cell[BoxData[ FormBox[ RowBox[{\(Inverse::"luc"\), \(\(:\)\(\ \)\), "\<\"Result for \ \\!\\(TraditionalForm\\`Inverse\\) of badly conditioned matrix \ \\!\\(TraditionalForm\\`\\((\[NoBreak] \\(\[LeftSkeleton] 1 \ \[RightSkeleton]\\) \[NoBreak])\\)\\) may contain significant numerical \ errors.\"\>"}], TraditionalForm]], "Message", CellLabel->"From In[370]:="], Cell[BoxData[ FormBox[ RowBox[{\(Inverse::"luc"\), \(\(:\)\(\ \)\), "\<\"Result for \ \\!\\(TraditionalForm\\`Inverse\\) of badly conditioned matrix \ \\!\\(TraditionalForm\\`\\((\[NoBreak] \\(\[LeftSkeleton] 1 \ \[RightSkeleton]\\) \[NoBreak])\\)\\) may contain significant numerical \ errors.\"\>"}], TraditionalForm]], "Message", CellLabel->"From In[370]:="], Cell[BoxData[ FormBox[ RowBox[{\(General::"stop"\), \(\(:\)\(\ \)\), "\<\"Further output of \ \\!\\(TraditionalForm\\`\\(Inverse :: \\\"luc\\\"\\)\\) will be suppressed \ during this calculation.\"\>"}], TraditionalForm]], "Message", CellLabel->"From In[370]:="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(imtt = Table[{alfz[i], imlamb[i]}, {i, 0, 25}]\)], "Input", CellLabel->"In[371]:=", AspectRatioFixed->True], Cell[BoxData[ FormBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.5`", \(-0.04744902352445136`\)}, {"0.55`", \(-0.04098916996710495`\)}, {"0.6`", \(-0.03399579911860139`\)}, {"0.65`", \(-0.026920065996471683`\)}, {"0.7`", \(-0.02026800859524696`\)}, {"0.75`", \(-0.01439567820866895`\)}, {"0.8`", \(-0.009485856372064786`\)}, {"0.8500000000000001`", \(-0.005606068901821282`\)}, {"0.9`", \(-0.002762483205074031`\)}, {"0.95`", \(-0.0009319089623133932`\)}, {"1.`", \(-0.00007778639603347975`\)}, {"1.05`", \(-0.0001570792923976065`\)}, {"1.1`", \(-0.0011220601514480351`\)}, {"1.15`", \(-0.002918707058620654`\)}, {"1.2000000000000002`", \(-0.005482146187080704`\)}, {"1.25`", \(-0.008729061576103897`\)}, {"1.3`", \(-0.012547475280341487`\)}, {"1.35`", \(-0.016786524574492902`\)}, {"1.4`", \(-0.021253148643189883`\)}, {"1.4500000000000002`", \(-0.025725928796870242`\)}, {"1.5`", \(-0.029990457213713982`\)}, {"1.55`", \(-0.033882628647873676`\)}, {"1.6`", \(-0.03731416429485389`\)}, {"1.6500000000000001`", \(-0.040268037126229825`\)}, {"1.7000000000000002`", \(-0.0427747687413134`\)}, {"1.75`", \(-0.044887310507856944`\)} }, ColumnAlignments->{Decimal}], "\[NoBreak]", ")"}], TraditionalForm]], "Output", CellLabel->"Out[371]="], Cell[CellGroupData[{ Cell[BoxData[ \(\(ListPlot[imtt, PlotJoined \[Rule] True];\)\)], "Input", CellLabel->"In[372]:=", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations -0.357143 0.761905 0.603319 12.405 [ [.1 .59082 -9 -9 ] [.1 .59082 9 0 ] [.25238 .59082 -9 -9 ] [.25238 .59082 9 0 ] [.55714 .59082 -9 -9 ] [.55714 .59082 9 0 ] [.70952 .59082 -9 -9 ] [.70952 .59082 9 0 ] [.8619 .59082 -9 -9 ] [.8619 .59082 9 0 ] [.39226 .10712 -30 -4.5 ] [.39226 .10712 0 4.5 ] [.39226 .23117 -30 -4.5 ] [.39226 .23117 0 4.5 ] [.39226 .35522 -30 -4.5 ] [.39226 .35522 0 4.5 ] [.39226 .47927 -30 -4.5 ] [.39226 .47927 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .1 .60332 m .1 .60957 L s [(0.6)] .1 .59082 0 1 Mshowa .25238 .60332 m .25238 .60957 L s [(0.8)] .25238 .59082 0 1 Mshowa .55714 .60332 m .55714 .60957 L s [(1.2)] .55714 .59082 0 1 Mshowa .70952 .60332 m .70952 .60957 L s [(1.4)] .70952 .59082 0 1 Mshowa .8619 .60332 m .8619 .60957 L s [(1.6)] .8619 .59082 0 1 Mshowa .125 Mabswid .1381 .60332 m .1381 .60707 L s .17619 .60332 m .17619 .60707 L s .21429 .60332 m .21429 .60707 L s .29048 .60332 m .29048 .60707 L s .32857 .60332 m .32857 .60707 L s .36667 .60332 m .36667 .60707 L s .44286 .60332 m .44286 .60707 L s .48095 .60332 m .48095 .60707 L s .51905 .60332 m .51905 .60707 L s .59524 .60332 m .59524 .60707 L s .63333 .60332 m .63333 .60707 L s .67143 .60332 m .67143 .60707 L s .74762 .60332 m .74762 .60707 L s .78571 .60332 m .78571 .60707 L s .82381 .60332 m .82381 .60707 L s .0619 .60332 m .0619 .60707 L s .02381 .60332 m .02381 .60707 L s .9 .60332 m .9 .60707 L s .9381 .60332 m .9381 .60707 L s .97619 .60332 m .97619 .60707 L s .25 Mabswid 0 .60332 m 1 .60332 L s .40476 .10712 m .41101 .10712 L s [(-0.04)] .39226 .10712 1 0 Mshowa .40476 .23117 m .41101 .23117 L s [(-0.03)] .39226 .23117 1 0 Mshowa .40476 .35522 m .41101 .35522 L s [(-0.02)] .39226 .35522 1 0 Mshowa .40476 .47927 m .41101 .47927 L s [(-0.01)] .39226 .47927 1 0 Mshowa .125 Mabswid .40476 .13193 m .40851 .13193 L s .40476 .15674 m .40851 .15674 L s .40476 .18155 m .40851 .18155 L s .40476 .20636 m .40851 .20636 L s .40476 .25598 m .40851 .25598 L s .40476 .28079 m .40851 .28079 L s .40476 .3056 m .40851 .3056 L s .40476 .33041 m .40851 .33041 L s .40476 .38003 m .40851 .38003 L s .40476 .40484 m .40851 .40484 L s .40476 .42965 m .40851 .42965 L s .40476 .45446 m .40851 .45446 L s .40476 .50408 m .40851 .50408 L s .40476 .52889 m .40851 .52889 L s .40476 .5537 m .40851 .5537 L s .40476 .57851 m .40851 .57851 L s .40476 .08231 m .40851 .08231 L s .40476 .0575 m .40851 .0575 L s .40476 .03269 m .40851 .03269 L s .40476 .00788 m .40851 .00788 L s .25 Mabswid .40476 0 m .40476 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .01472 m .0619 .09485 L .1 .1816 L .1381 .26938 L .17619 .35189 L .21429 .42474 L .25238 .48565 L .29048 .53378 L .32857 .56905 L .36667 .59176 L .40476 .60235 L .44286 .60137 L .48095 .5894 L .51905 .56711 L .55714 .53531 L .59524 .49504 L .63333 .44767 L .67143 .39508 L .70952 .33967 L .74762 .28419 L .78571 .23129 L .82381 .18301 L .8619 .14044 L .9 .1038 L .9381 .0727 L .97619 .04649 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", CellLabel->"From In[372]:=", Evaluatable->False, AspectRatioFixed->True, ImageSize->{281.438, 173.875}, ImageMargins->{{34, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgo00<006>oHkl0 YF>o001aHkl00`00HkmS_`2UHkl0075S_`800:IS_`00LF>o00<006>oHkl0YF>o0007Hkl00`00HkmS _`1WHkl00`00HkmS_`2UHkl000MS_`03001S_f>o06MS_`03001S_f>o0:ES_`0026>o00<006>oHkl0 IV>o00<006>oHkl0YF>o0008Hkl00`00HkmS_`1VHkl00`00HkmS_`2UHkl000US_`03001S_f>o06ES _`03001S_f>o0:ES_`002F>o00<006>oHkl0IF>o0P00YV>o000:Hkl00`00HkmS_`1THkl00`00HkmS _`2UHkl000YS_`03001S_f>o06AS_`03001S_f>o0:ES_`002V>o00<006>oHkl0I6>o00<006>oHkl0 YF>o000;Hkl00`00HkmS_`1SHkl00`00HkmS_`2LHkl20007Hkl000]S_`03001S_f>o06=S_`03001S _f>o09]S_`03001S_f>o00MS_`0036>o00<006>oHkl0HV>o00<006>oHkl0VF>o0P002V>o000o065S_`03001S_f>o09IS_`03001S_f>o 00aS_`003F>o00<006>oHkl0HF>o00<006>oHkl0U6>o0P003f>o000>Hkl00`00HkmS_`1PHkl00`00 HkmS_`2CHkl00`00HkmS_`0?Hkl000iS_`03001S_f>o061S_`03001S_f>o095S_`80019S_`003f>o 00<006>oHkl0Gf>o00<006>oHkl0T6>o00<006>oHkl04V>o000?Hkl00`00HkmS_`1OHkl00`00HkmS _`2?Hkl00`00HkmS_`0CHkl000mS_`03001S_f>o05mS_`8008mS_`03001S_f>o01AS_`0046>o00<0 06>oHkl0GV>o00<006>oHkl0SF>o00<006>oHkl05F>o000@Hkl00`00HkmS_`1NHkl00`00HkmS_`2< Hkl00`00HkmS_`0FHkl0015S_`03001S_f>o05eS_`03001S_f>o08]S_`03001S_f>o01MS_`004F>o 00<006>oHkl0A6>o0P0016>o00<006>oHkl00f>o0P0016>o0`0016>o00<006>oHkl0RV>o00<006>o Hkl066>o000BHkl00`00HkmS_`12Hkl01000HkmS_`0026>o00@006>oHkl000AS_`03001S_f>o00=S _`03001S_f>o08US_`03001S_f>o01US_`004V>o00<006>oHkl0>f>o1@000V>o00@006>oHkl000QS _`05001S_f>o001S_`050004Hkl00`00HkmS_`27Hkl2000LHkl001=S_`03001S_f>o045S_`04001S _f>o0008Hkl01P00HkmS_`00Hkl0009S_`03001S_f>o00=S_`<008IS_`03001S_f>o01aS_`004f>o 00<006>oHkl0@F>o00@006>oHkl000QS_`04001S_f>o0002Hkl00`00Hkl00005Hkl00`00HkmS_`25 Hkl00`00HkmS_`0MHkl001AS_`03001S_f>o041S_`04001S_f>o0008Hkl01000HkmS_`000f>o0P00 1F>o00<006>oHkl0Q6>o00<006>oHkl07V>o000DHkl00`00HkmS_`11Hkl2000:Hkl20005Hkl00`00 HkmS_`03Hkl00`00HkmS_`23Hkl00`00HkmS_`0OHkl001AS_`03001S_f>o05YS_`03001S_f>o089S _`03001S_f>o021S_`005F>o00<006>oHkl0FF>o00<006>oHkl0PF>o00<006>oHkl08F>o000EHkl0 0`00HkmS_`1IHkl00`00HkmS_`20Hkl00`00HkmS_`0RHkl001IS_`03001S_f>o05QS_`80081S_`03 001S_f>o02=S_`005V>o00<006>oHkl0F6>o00<006>oHkl0OV>o00<006>oHkl096>o000GHkl00`00 HkmS_`1GHkl00`00HkmS_`1mHkl00`00HkmS_`0UHkl001MS_`03001S_f>o05MS_`03001S_f>o07eS _`03001S_f>o02ES_`0066>o00<006>oHkl0EV>o00<006>oHkl0O6>o00<006>oHkl09V>o000HHkl0 0`00HkmS_`1FHkl00`00HkmS_`1kHkl00`00HkmS_`0WHkl001US_`03001S_f>o05ES_`8007]S_`03 001S_f>o02QS_`006F>o00<006>oHkl0EF>o00<006>oHkl0NF>o00<006>oHkl0:F>o000IHkl00`00 HkmS_`1EHkl00`00HkmS_`1hHkl00`00HkmS_`0ZHkl001YS_`03001S_f>o05AS_`03001S_f>o07MS _`03001S_f>o02]S_`006V>o00<006>oHkl0E6>o00<006>oHkl0MV>o00<006>oHkl0;6>o000KHkl0 0`00HkmS_`1CHkl00`00HkmS_`1eHkl00`00HkmS_`0]Hkl001]S_`03001S_f>o05=S_`03001S_f>o 07AS_`03001S_f>o02iS_`0076>o00<006>oHkl0DV>o0P00M6>o00<006>oHkl0;f>o000LHkl00`00 HkmS_`1BHkl00`00HkmS_`1bHkl00`00HkmS_`0`Hkl001eS_`03001S_f>o055S_`03001S_f>o079S _`03001S_f>o031S_`007F>o00<006>oHkl0DF>o00<006>oHkl0LF>o00<006>oHkl0o000MHkl0 0`00HkmS_`1AHkl00`00HkmS_`1`Hkl00`00HkmS_`0bHkl001iS_`03001S_f>o051S_`03001S_f>o 06mS_`03001S_f>o03=S_`007V>o00<006>oHkl0D6>o00<006>oHkl0Kf>o00<006>oHkl0o000O Hkl00`00HkmS_`1?Hkl2001_Hkl00`00HkmS_`0dHkl001mS_`03001S_f>o04mS_`03001S_f>o06eS _`03001S_f>o03ES_`007f>o00<006>oHkl0Cf>o00<006>oHkl0K6>o00<006>oHkl0=V>o000PHkl0 0`00HkmS_`1>Hkl00`00HkmS_`1[Hkl00`00HkmS_`0gHkl0021S_`03001S_f>o04iS_`03001S_f>o 06]S_`03001S_f>o03MS_`008F>o00<006>oHkl0=6>o0P0016>o00<006>oHkl00f>o0P000f>o0`00 1F>o00<006>oHkl0JV>o00<006>oHkl0>6>o000QHkl00`00HkmS_`0cHkl01000HkmS_`0026>o00H0 06>oHkl006>o0003Hkl00`00HkmS_`02Hkl00`00HkmS_`1YHkl00`00HkmS_`0iHkl0025S_`03001S _f>o02aS_`D0009S_`04001S_f>o0008Hkl01000HkmS_`001F>o00<006>oHkl00V>o0`00J6>o00<0 06>oHkl0>V>o000RHkl00`00HkmS_`0bHkl01000HkmS_`0026>o00@006>oHkl000=S_`8000ES_`03 001S_f>o06QS_`03001S_f>o03YS_`008V>o00<006>oHkl0o00@006>oHkl000QS_`04001S_f>o 0005Hkl00`00HkmS_`02Hkl00`00HkmS_`1WHkl00`00HkmS_`0kHkl002=S_`03001S_f>o035S_`04 001S_f>o0008Hkl01P00HkmS_`00Hkl000=S_`03001S_f>o009S_`03001S_f>o06IS_`03001S_f>o 03aS_`008f>o00<006>oHkl0o0P002V>o0P000f>o0`001F>o00<006>oHkl0IF>o00<006>oHkl0 ?F>o000SHkl00`00HkmS_`1;Hkl00`00HkmS_`1UHkl00`00HkmS_`0mHkl002AS_`03001S_f>o04YS _`03001S_f>o06AS_`03001S_f>o03iS_`0096>o00<006>oHkl0BV>o0P00I6>o00<006>oHkl0?f>o 000UHkl00`00HkmS_`19Hkl00`00HkmS_`1RHkl00`00HkmS_`10Hkl002ES_`03001S_f>o04US_`03 001S_f>o069S_`03001S_f>o041S_`009F>o00<006>oHkl0BF>o00<006>oHkl0HF>o00<006>oHkl0 @F>o000VHkl00`00HkmS_`18Hkl00`00HkmS_`1PHkl00`00HkmS_`12Hkl002IS_`03001S_f>o04QS _`03001S_f>o061S_`03001S_f>o049S_`009f>o00<006>oHkl0Af>o00<006>oHkl0Gf>o00<006>o Hkl0@f>o000WHkl00`00HkmS_`17Hkl2001OHkl00`00HkmS_`14Hkl002QS_`03001S_f>o04IS_`03 001S_f>o05eS_`03001S_f>o04ES_`00:6>o00<006>oHkl0AV>o00<006>oHkl0GF>o00<006>oHkl0 AF>o000YHkl00`00HkmS_`15Hkl00`00HkmS_`1LHkl00`00HkmS_`16Hkl002US_`03001S_f>o04ES _`03001S_f>o05]S_`03001S_f>o04MS_`00:V>o00<006>oHkl0A6>o00<006>oHkl0Ff>o00<006>o Hkl0Af>o000ZHkl00`00HkmS_`14Hkl00`00HkmS_`1JHkl00`00HkmS_`18Hkl002]S_`03001S_f>o 04=S_`8005YS_`03001S_f>o04US_`00:f>o00<006>oHkl0@f>o00<006>oHkl0FF>o00<006>oHkl0 BF>o000/Hkl00`00HkmS_`12Hkl00`00HkmS_`1HHkl00`00HkmS_`1:Hkl002aS_`03001S_f>o049S _`03001S_f>o05MS_`03001S_f>o04]S_`00;6>o00<006>oHkl0@V>o00<006>oHkl0EV>o00<006>o Hkl0C6>o000]Hkl00`00HkmS_`11Hkl00`00HkmS_`1FHkl00`00HkmS_`1o 045S_`03001S_f>o05ES_`03001S_f>o04eS_`00;V>o00<006>oHkl0@6>o0P00EF>o00<006>oHkl0 CV>o000^Hkl00`00HkmS_`10Hkl00`00HkmS_`1DHkl00`00HkmS_`1>Hkl002mS_`03001S_f>o03mS _`03001S_f>o05=S_`03001S_f>o04mS_`00;f>o00<006>oHkl0?f>o00<006>oHkl0DV>o00<006>o Hkl0D6>o000`Hkl00`00HkmS_`0UHkl20004Hkl00`00HkmS_`03Hkl20002Hkl50004Hkl00`00HkmS _`1BHkl00`00HkmS_`1@Hkl0031S_`03001S_f>o02AS_`04001S_f>o0008Hkl01000HkmS_`000V>o 00@006>oHkl000AS_`03001S_f>o055S_`03001S_f>o055S_`00o00<006>oHkl076>o1@000V>o 00@006>oHkl000QS_`04001S_f>o0003Hkl00`00HkmS_`04Hkl00`00HkmS_`1@Hkl00`00HkmS_`1B Hkl0035S_`03001S_f>o02=S_`04001S_f>o0008Hkl01000HkmS_`0016>o00<006>oHkl00f>o0`00 D6>o00<006>oHkl0DV>o000bHkl00`00HkmS_`0RHkl01000HkmS_`0026>o00H006>oHkl006>o0003 Hkl00`00HkmS_`02Hkl00`00HkmS_`1?Hkl00`00HkmS_`1CHkl0039S_`03001S_f>o029S_`04001S _f>o0008Hkl01P00HkmS_`00Hkl000=S_`03001S_f>o009S_`03001S_f>o04iS_`03001S_f>o05AS _`00o00<006>oHkl08V>o0P002V>o0P000f>o0`001F>o00<006>oHkl0CV>o00<006>oHkl0E6>o 000cHkl00`00HkmS_`0kHkl00`00HkmS_`1=Hkl00`00HkmS_`1EHkl003AS_`03001S_f>o03YS_`03 001S_f>o04aS_`03001S_f>o05IS_`00=F>o00<006>oHkl0>F>o00<006>oHkl0C6>o00<006>oHkl0 EV>o000eHkl00`00HkmS_`0iHkl2001o03QS_`03001S _f>o04YS_`03001S_f>o05QS_`00=V>o00<006>oHkl0>6>o00<006>oHkl0BV>o00<006>oHkl0F6>o 000gHkl00`00HkmS_`0gHkl00`00HkmS_`19Hkl00`00HkmS_`1IHkl003MS_`03001S_f>o03MS_`03 001S_f>o04QS_`03001S_f>o05YS_`00>6>o00<006>oHkl0=V>o00<006>oHkl0B6>o00<006>oHkl0 FV>o000hHkl00`00HkmS_`0fHkl00`00HkmS_`17Hkl00`00HkmS_`1KHkl003US_`03001S_f>o03ES _`8004MS_`03001S_f>o05aS_`00>V>o00<006>oHkl0=6>o00<006>oHkl0AF>o00<006>oHkl0GF>o 000jHkl00`00HkmS_`0dHkl00`00HkmS_`15Hkl00`00HkmS_`1MHkl003]S_`03001S_f>o03=S_`03 001S_f>o04AS_`03001S_f>o05iS_`00>f>o00<006>oHkl0o00<006>oHkl0@f>o00<006>oHkl0 Gf>o000lHkl00`00HkmS_`0bHkl00`00HkmS_`12Hkl00`00HkmS_`1PHkl003aS_`03001S_f>o039S _`03001S_f>o049S_`03001S_f>o061S_`00?F>o00<006>oHkl0o0P00@V>o00<006>oHkl0HF>o 000mHkl00`00HkmS_`0aHkl00`00HkmS_`10Hkl00`00HkmS_`1RHkl003iS_`03001S_f>o031S_`03 001S_f>o041S_`03001S_f>o069S_`00?f>o00<006>oHkl0;f>o00<006>oHkl0?f>o00<006>oHkl0 Hf>o000oHkl00`00HkmS_`0_Hkl00`00HkmS_`0nHkl00`00HkmS_`1THkl0041S_`03001S_f>o02iS _`03001S_f>o03eS_`03001S_f>o06ES_`00@6>o00<006>oHkl0;V>o00<006>oHkl0?F>o00<006>o Hkl0IF>o0011Hkl00`00HkmS_`0]Hkl2000mHkl00`00HkmS_`1VHkl0049S_`03001S_f>o02aS_`03 001S_f>o03]S_`03001S_f>o06MS_`00@V>o00<006>oHkl0;6>o00<006>oHkl0>V>o00<006>oHkl0 J6>o0013Hkl00`00HkmS_`0[Hkl00`00HkmS_`0iHkl00`00HkmS_`1YHkl004=S_`03001S_f>o019S _`8000AS_`03001S_f>o00=S_`8000=S_`<000ES_`03001S_f>o03QS_`03001S_f>o06YS_`00A6>o 00<006>oHkl046>o00@006>oHkl000QS_`04001S_f>o0003Hkl00`00HkmS_`04Hkl00`00HkmS_`0g Hkl00`00HkmS_`1[Hkl004ES_`03001S_f>o00QS_`D0009S_`04001S_f>o0008Hkl01000HkmS_`00 0f>o00<006>oHkl016>o00<006>oHkl0=f>o00<006>oHkl0Jf>o0015Hkl00`00HkmS_`0?Hkl01000 HkmS_`0026>o00@006>oHkl000=S_`03001S_f>o00AS_`<003IS_`03001S_f>o06aS_`00AV>o00<0 06>oHkl03V>o00@006>oHkl000QS_`04001S_f>o0003Hkl00`00HkmS_`04Hkl00`00HkmS_`0eHkl0 0`00HkmS_`1]Hkl004IS_`03001S_f>o00iS_`04001S_f>o0008Hkl01000HkmS_`000V>o0P001V>o 00<006>oHkl0=6>o00<006>oHkl0KV>o0017Hkl00`00HkmS_`0>Hkl2000:Hkl20004Hkl00`00HkmS _`04Hkl00`00HkmS_`0cHkl00`00HkmS_`1_Hkl004QS_`03001S_f>o02IS_`03001S_f>o039S_`03 001S_f>o071S_`00BF>o00<006>oHkl09F>o00<006>oHkl0o00<006>oHkl0L6>o001:Hkl00`00 HkmS_`0THkl00`00HkmS_`0aHkl00`00HkmS_`1aHkl004YS_`03001S_f>o02AS_`80035S_`03001S _f>o079S_`00Bf>o00<006>oHkl08f>o00<006>oHkl0;f>o00<006>oHkl0Lf>o001o025S_`03001S_f>o02eS_`03 001S_f>o07ES_`00CF>o00<006>oHkl08F>o00<006>oHkl0;6>o00<006>oHkl0MV>o001>Hkl00`00 HkmS_`0PHkl00`00HkmS_`0[Hkl00`00HkmS_`1gHkl004mS_`03001S_f>o01mS_`03001S_f>o02YS _`03001S_f>o07QS_`00D6>o00<006>oHkl07V>o0P00:V>o00<006>oHkl0NF>o001AHkl2000NHkl0 0`00HkmS_`0WHkl2001lHkl005=S_`03001S_f>o01]S_`03001S_f>o02IS_`03001S_f>o07aS_`00 E6>o00<006>oHkl06V>o00<006>oHkl09F>o00<006>oHkl0OF>o001EHkl00`00HkmS_`0IHkl00`00 HkmS_`0THkl00`00HkmS_`1nHkl005IS_`03001S_f>o01QS_`03001S_f>o029S_`80085S_`00Ef>o 00<006>oHkl05f>o00<006>oHkl08F>o00<006>oHkl0PF>o001HHkl00`00HkmS_`0FHkl2000QHkl0 0`00HkmS_`22Hkl005US_`03001S_f>o01ES_`03001S_f>o01mS_`03001S_f>o08=S_`005F>o0P00 16>o00<006>oHkl00V>o0`0076>o0P0016>o00<006>oHkl00V>o0`003F>o00<006>oHkl056>o00<0 06>oHkl07V>o00<006>o00000P0016>o00@006>oHkmS_`D001YS_`<000AS_`03001S_f>o00=S_`<0 01]S_`<000AS_`03001S_f>o009S_`<0025S_`0056>o00@006>oHkl000MS_`05001S_f>oHkl0000J Hkl01000HkmS_`001f>o00D006>oHkmS_`0000eS_`03001S_f>o01=S_`03001S_f>o01aS_`8000=S _`03001S_f>o00QS_`04001S_f>o000KHkl00`00HkmS_`0:Hkl00`00HkmS_`0KHkl00`00HkmS_`07 Hkl01@00HkmS_f>o000086>o000DHkl01000HkmS_`001f>o00D006>oHkmS_`0001YS_`04001S_f>o 0007Hkl01@00HkmS_f>o00003V>o0P004f>o00<006>oHkl06V>o0P001F>o00<006>oHkl02F>o00<0 06>oHkl06f>o00<006>oHkl01f>o1@0076>o00<006>oHkl01f>o00D006>oHkmS_`00021S_`0056>o 00@006>oHkl000MS_`@001]S_`04001S_f>o0008Hkl3000AHkl2000AHkl00`00HkmS_`0HHkl20007 Hkl00`00HkmS_`0:Hkl00`00HkmS_`0JHkl00`00HkmS_`07Hkl01000HkmS_`007F>o00<006>oHkl0 1f>o10008F>o000DHkl01000HkmS_`001f>o00<006>oHkl076>o00@006>oHkl000MS_`05001S_f>o Hkl0000BHkl00`00HkmS_`0>Hkl2000HHkl00`00HkmS_`07Hkl00`00HkmS_`07Hkl01@00HkmS_f>o 00006f>o00<006>oHkl026>o00<006>o00007F>o00<006>oHkl01f>o00<006>oHkl08V>o000DHkl0 1000HkmS_`0026>o00<006>oHkl06f>o00@006>oHkl000MS_`05001S_f>oHkl0000CHkl2000>Hkl0 0`00HkmS_`0EHkl20009Hkl20009Hkl01@00HkmS_f>o00006V>o0P002f>o0P0076>o0P002V>o00<0 06>oHkl08F>o000EHkl2000:Hkl2000LHkl20009Hkl3000FHkl2000o00US_`03001S_f>o015S_`80099S_`00IV>o0`0026>o00<006>oHkl03V>o 0`00U6>o001YHkl40004Hkl00`00HkmS_`0o00YS_`<009US _`00o`006P000007Hkl00`00HkmS_`07Hkl00`00HkmS_`08Hkl00`00HkmS_`07Hkl00`00HkmS_`08 Hkl00`00HkmS_`08Hkl00`00HkmS_`07Hkl00`00HkmS_`08Hkl00`00HkmS_`08Hkl00`00HkmS_`07 Hkl00`00HkmS_`08Hkl00`00HkmS_`08Hkl00`00HkmS_`07Hkl00`00HkmS_`08Hkl00`00HkmS_`08 Hkl00`00HkmS_`07Hkl00`00HkmS_`08Hkl00`00HkmS_`08Hkl00`00HkmS_`07Hkl00`00HkmS_`08 Hkl00`00HkmS_`08Hkl00`00HkmS_`07Hkl00`00HkmS_`08Hkl00`00HkmS_`08Hkl00`00HkmS_`07 Hkl00`00HkmS_`08Hkl00`00HkmS_`05Hkl001aS_`03001S_f>o02MS_`03001S_f>o02QS_`03001S _f>o02QS_`03001S_f>o02MS_`03001S_f>o02QS_`03001S_f>o02ES_`00LF>o00<006>oHkl0YF>o 001aHkl00`00HkmS_`2UHkl00001\ \>"], ImageRangeCache->{{{0, 280.438}, {172.875, 0}} -> {0.467059, -0.0486354, \ 0.00469225, 0.000288194}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(rett = Table[{alfz[i], relamb[i]}, {i, 0, 25}]\)], "Input", CellLabel->"In[373]:=", AspectRatioFixed->True], Cell[BoxData[ FormBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.5`", "0.17760967135986833`"}, {"0.55`", "0.18823350875369102`"}, {"0.6`", "0.19877769027369677`"}, {"0.65`", "0.20872790193935614`"}, {"0.7`", "0.21791660895726678`"}, {"0.75`", "0.2264024388906548`"}, {"0.8`", "0.23430662884479045`"}, {"0.8500000000000001`", "0.24173074537554845`"}, {"0.9`", "0.24873659665526657`"}, {"0.95`", "0.25534948991933265`"}, {"1.`", "0.26156594356281787`"}, {"1.05`", "0.2673600184991268`"}, {"1.1`", "0.27268730584692996`"}, {"1.15`", "0.2774870964311735`"}, {"1.2000000000000002`", "0.2816838365279865`"}, {"1.25`", "0.28518964921008394`"}, {"1.3`", "0.2879107566735769`"}, {"1.35`", "0.2897615109445477`"}, {"1.4`", "0.2906882753654757`"}, {"1.4500000000000002`", "0.2906982275079852`"}, {"1.5`", "0.289877024500736`"}, {"1.55`", "0.28837796608931865`"}, {"1.6`", "0.2863846367273335`"}, {"1.6500000000000001`", "0.2840700648262721`"}, {"1.7000000000000002`", "0.28157268610579095`"}, {"1.75`", "0.2789914925368948`"} }, ColumnAlignments->{Decimal}], "\[NoBreak]", ")"}], TraditionalForm]], "Output", CellLabel->"Out[373]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(ListPlot[rett, PlotJoined \[Rule] True];\)\)], "Input", CellLabel->"In[374]:=", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations -0.357143 0.761905 -0.909708 5.2048 [ [.1 .11875 -9 -9 ] [.1 .11875 9 0 ] [.25238 .11875 -9 -9 ] [.25238 .11875 9 0 ] [.55714 .11875 -9 -9 ] [.55714 .11875 9 0 ] [.70952 .11875 -9 -9 ] [.70952 .11875 9 0 ] [.8619 .11875 -9 -9 ] [.8619 .11875 9 0 ] [.39226 .02716 -24 -4.5 ] [.39226 .02716 0 4.5 ] [.39226 .23535 -24 -4.5 ] [.39226 .23535 0 4.5 ] [.39226 .33944 -24 -4.5 ] [.39226 .33944 0 4.5 ] [.39226 .44354 -24 -4.5 ] [.39226 .44354 0 4.5 ] [.39226 .54764 -24 -4.5 ] [.39226 .54764 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .1 .13125 m .1 .1375 L s [(0.6)] .1 .11875 0 1 Mshowa .25238 .13125 m .25238 .1375 L s [(0.8)] .25238 .11875 0 1 Mshowa .55714 .13125 m .55714 .1375 L s [(1.2)] .55714 .11875 0 1 Mshowa .70952 .13125 m .70952 .1375 L s [(1.4)] .70952 .11875 0 1 Mshowa .8619 .13125 m .8619 .1375 L s [(1.6)] .8619 .11875 0 1 Mshowa .125 Mabswid .1381 .13125 m .1381 .135 L s .17619 .13125 m .17619 .135 L s .21429 .13125 m .21429 .135 L s .29048 .13125 m .29048 .135 L s .32857 .13125 m .32857 .135 L s .36667 .13125 m .36667 .135 L s .44286 .13125 m .44286 .135 L s .48095 .13125 m .48095 .135 L s .51905 .13125 m .51905 .135 L s .59524 .13125 m .59524 .135 L s .63333 .13125 m .63333 .135 L s .67143 .13125 m .67143 .135 L s .74762 .13125 m .74762 .135 L s .78571 .13125 m .78571 .135 L s .82381 .13125 m .82381 .135 L s .0619 .13125 m .0619 .135 L s .02381 .13125 m .02381 .135 L s .9 .13125 m .9 .135 L s .9381 .13125 m .9381 .135 L s .97619 .13125 m .97619 .135 L s .25 Mabswid 0 .13125 m 1 .13125 L s .40476 .02716 m .41101 .02716 L s [(0.18)] .39226 .02716 1 0 Mshowa .40476 .23535 m .41101 .23535 L s [(0.22)] .39226 .23535 1 0 Mshowa .40476 .33944 m .41101 .33944 L s [(0.24)] .39226 .33944 1 0 Mshowa .40476 .44354 m .41101 .44354 L s [(0.26)] .39226 .44354 1 0 Mshowa .40476 .54764 m .41101 .54764 L s [(0.28)] .39226 .54764 1 0 Mshowa .125 Mabswid .40476 .05318 m .40851 .05318 L s .40476 .0792 m .40851 .0792 L s .40476 .10523 m .40851 .10523 L s .40476 .15728 m .40851 .15728 L s .40476 .1833 m .40851 .1833 L s .40476 .20932 m .40851 .20932 L s .40476 .26137 m .40851 .26137 L s .40476 .2874 m .40851 .2874 L s .40476 .31342 m .40851 .31342 L s .40476 .36547 m .40851 .36547 L s .40476 .39149 m .40851 .39149 L s .40476 .41752 m .40851 .41752 L s .40476 .46956 m .40851 .46956 L s .40476 .49559 m .40851 .49559 L s .40476 .52161 m .40851 .52161 L s .40476 .00113 m .40851 .00113 L s .40476 .57366 m .40851 .57366 L s .40476 .59968 m .40851 .59968 L s .25 Mabswid .40476 0 m .40476 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .01472 m .0619 .07001 L .1 .12489 L .1381 .17668 L .17619 .2245 L .21429 .26867 L .25238 .30981 L .29048 .34845 L .32857 .38492 L .36667 .41934 L .40476 .45169 L .44286 .48185 L .48095 .50958 L .51905 .53456 L .55714 .5564 L .59524 .57465 L .63333 .58881 L .67143 .59844 L .70952 .60327 L .74762 .60332 L .78571 .59904 L .82381 .59124 L .8619 .58087 L .9 .56882 L .9381 .55582 L .97619 .54239 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", CellLabel->"From In[374]:=", Evaluatable->False, AspectRatioFixed->True, ImageSize->{281.438, 173.875}, ImageMargins->{{34, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgo0P00YV>o001a Hkl00`00HkmS_`2UHkl0075S_`03001S_f>o0:ES_`00LF>o00<006>oHkl0YF>o0007Hkl00`00HkmS _`1WHkl00`00HkmS_`2UHkl000MS_`03001S_f>o04iS_`8000AS_`03001S_f>o009S_`<000=S_`<0 00ES_`03001S_f>o0:ES_`0026>o00<006>oHkl0C6>o00@006>oHkl000US_`05001S_f>oHkl00003 Hkl00`00HkmS_`02Hkl00`00HkmS_`2UHkl000US_`03001S_f>o04]S_`04001S_f>o0009Hkl01@00 HkmS_f>o00000f>o00<006>oHkl00V>o0`00YF>o0009Hkl00`00HkmS_`1;Hkl01000HkmS_`002F>o 00<006>oHkl00V>o0`001F>o00<006>oHkl0YF>o000:Hkl00`00HkmS_`1:Hkl01000HkmS_`002F>o 00D006>oHkmS_`0000=S_`03001S_f>o009S_`03001S_f>o0:ES_`002f>o00<006>oHkl0BF>o00@0 06>oHkl000QS_`8000=S_`05001S_f>oHkl00004Hkl00`00HkmS_`2UHkl000]S_`03001S_f>o04YS _`8000YS_`03001S_f>o009S_`<000ES_`03001S_f>o0:ES_`0036>o00<006>oHkl0HV>o00<006>o Hkl0YF>o000=Hkl00`00HkmS_`1QHkl00`00HkmS_`2UHkl000eS_`03001S_f>o065S_`800:IS_`00 3V>o00<006>oHkl0H6>o00<006>oHkl0YF>o000?Hkl00`00HkmS_`1OHkl00`00HkmS_`2UHkl000mS _`03001S_f>o05mS_`03001S_f>o0:ES_`0046>o00<006>oHkl0GV>o00<006>oHkl0YF>o000AHkl0 0`00HkmS_`1MHkl00`00HkmS_`2UHkl0015S_`03001S_f>o05eS_`03001S_f>o0:ES_`004V>o00<0 06>oHkl0G6>o00<006>oHkl0YF>o000CHkl00`00HkmS_`1KHkl2002VHkl001=S_`03001S_f>o05]S _`03001S_f>o0:ES_`0056>o00<006>oHkl0FV>o00<006>oHkl0YF>o000EHkl20004Hkl00`00HkmS _`02Hkl3000LHkl20004Hkl00`00HkmS_`02Hkl3000THkl00`00HkmS_`0PHkl30004Hkl01000HkmS _f>o1@006V>o0`0016>o00<006>oHkl00f>o0`006f>o0`0016>o00<006>oHkl00V>o0`008F>o000D Hkl200000f>o001S_`06Hkl01@00HkmS_f>o00006V>o00@006>oHkl000MS_`05001S_f>oHkl0000S Hkl00`00HkmS_`0QHkl00`00HkmS_`08Hkl01000HkmS_`006f>o00<006>oHkl02V>o00<006>oHkl0 6f>o00<006>oHkl01f>o00D006>oHkmS_`00021S_`0056>o00@006>o000000MS_`05001S_f>oHkl0 000JHkl01000HkmS_`001f>o00D006>oHkmS_`0002=S_`03001S_f>o025S_`03001S_f>o00US_`03 001S_f>o01]S_`03001S_f>o00MS_`D001aS_`03001S_f>o00MS_`05001S_f>oHkl0000PHkl001AS _`04001S_f>o0007Hkl4000KHkl01000HkmS_`0026>o0`0096>o00<006>oHkl08F>o00<006>oHkl0 2V>o00<006>oHkl06V>o00<006>oHkl01f>o00@006>oHkl001eS_`03001S_f>o00MS_`@0025S_`00 56>o00<006>oHkl00P001V>o00<006>oHkl076>o00@006>oHkl000MS_`05001S_f>oHkl0000SHkl2 000RHkl00`00HkmS_`07Hkl01@00HkmS_f>o00006f>o00<006>oHkl026>o00<006>o00007F>o00<0 06>oHkl01f>o00<006>oHkl08V>o000DHkl00`00HkmS_`020007Hkl00`00HkmS_`0KHkl01000HkmS _`001f>o00D006>oHkmS_`0002=S_`03001S_f>o021S_`8000US_`05001S_f>oHkl0000JHkl2000; Hkl2000LHkl2000:Hkl00`00HkmS_`0QHkl001ES_`80009S_`03001S_f>o00ES_`8001aS_`8000US _`<002AS_`03001S_f>o025S_`03001S_f>o00QS_`<001aS_`03001S_f>o00YS_`03001S_f>o01]S _`03001S_f>o00US_`80025S_`006V>o00<006>oHkl0E6>o00<006>oHkl0YF>o000JHkl00`00HkmS _`1DHkl00`00HkmS_`2UHkl001]S_`03001S_f>o05=S_`03001S_f>o0:ES_`0076>o00<006>oHkl0 DV>o00<006>oHkl0YF>o003o000J000000MS_`03001S_f>o00MS_`03001S_f>o00QS_`8000QS_`03 001S_f>o00QS_`03001S_f>o00QS_`03001S_f>o00MS_`03001S_f>o00QS_`03001S_f>o00QS_`03 001S_f>o00MS_`03001S_f>o00QS_`03001S_f>o00QS_`03001S_f>o00MS_`03001S_f>o00QS_`03 001S_f>o00QS_`03001S_f>o00MS_`03001S_f>o00QS_`03001S_f>o00QS_`03001S_f>o00MS_`03 001S_f>o00QS_`03001S_f>o00QS_`03001S_f>o00MS_`03001S_f>o00QS_`03001S_f>o00QS_`03 001S_f>o00MS_`03001S_f>o00QS_`03001S_f>o00ES_`0076>o00<006>o00009f>o00<006>oHkl0 :6>o00<006>oHkl0:6>o00<006>oHkl09f>o00<006>oHkl0:6>o00<006>oHkl09F>o000OHkl00`00 HkmS_`1?Hkl00`00HkmS_`2UHkl001mS_`03001S_f>o04mS_`03001S_f>o0:ES_`0086>o00<006>o Hkl0CV>o00<006>oHkl0YF>o000QHkl00`00HkmS_`1=Hkl00`00HkmS_`2UHkl0025S_`03001S_f>o 04eS_`03001S_f>o0:ES_`008V>o00<006>oHkl0C6>o0P00YV>o000SHkl00`00HkmS_`1;Hkl00`00 HkmS_`2UHkl002AS_`03001S_f>o04YS_`03001S_f>o0:ES_`0096>o00<006>oHkl0BV>o00<006>o Hkl0YF>o000UHkl00`00HkmS_`19Hkl00`00HkmS_`2UHkl002IS_`03001S_f>o04QS_`03001S_f>o 0:ES_`009V>o00<006>oHkl0B6>o00<006>oHkl0YF>o000WHkl00`00HkmS_`17Hkl2002VHkl002QS _`03001S_f>o04IS_`03001S_f>o0:ES_`00:F>o00<006>oHkl0AF>o00<006>oHkl0YF>o000ZHkl0 0`00HkmS_`14Hkl00`00HkmS_`2UHkl002]S_`03001S_f>o04=S_`03001S_f>o0:ES_`00;6>o00<0 06>oHkl0@V>o00<006>oHkl0YF>o000/Hkl00`00HkmS_`12Hkl00`00HkmS_`2UHkl002eS_`03001S _f>o045S_`800:IS_`00;V>o00<006>oHkl0@6>o00<006>oHkl0YF>o000_Hkl00`00HkmS_`0oHkl0 0`00HkmS_`2UHkl0031S_`03001S_f>o03iS_`03001S_f>o0:ES_`00o00<006>oHkl0?F>o00<0 06>oHkl0YF>o000aHkl00`00HkmS_`0THkl20004Hkl01000HkmS_f>o1@0000=S_`0000000`0016>o 00<006>oHkl0YF>o000bHkl00`00HkmS_`0RHkl01000HkmS_`0026>o00@006>oHkl0009S_`04001S _f>o0004Hkl00`00HkmS_`2UHkl003=S_`03001S_f>o025S_`04001S_f>o0009Hkl00`00HkmS_`03 Hkl00`00HkmS_`04Hkl3002UHkl003AS_`03001S_f>o021S_`04001S_f>o000:Hkl00`00HkmS_`03 Hkl00`00HkmS_`03Hkl00`00HkmS_`2UHkl003ES_`03001S_f>o01mS_`04001S_f>o0007Hkl01`00 HkmS_f>o001S_`0000=S_`03001S_f>o009S_`03001S_f>o0:ES_`00=V>o00<006>oHkl07V>o00@0 06>oHkl000MS_`07001S_f>oHkl006>o00000f>o00<006>oHkl00V>o00<006>oHkl0YF>o000gHkl0 0`00HkmS_`0NHkl20009Hkl30003Hkl30005Hkl00`00HkmS_`2UHkl003MS_`03001S_f>o03MS_`03 001S_f>o0:ES_`00>6>o00<006>oHkl0=V>o00<006>oHkl0YF>o000iHkl00`00HkmS_`0eHkl00`00 HkmS_`2UHkl003YS_`03001S_f>o03AS_`800:IS_`00>f>o00<006>oHkl0o00<006>oHkl0YF>o 000lHkl00`00HkmS_`0bHkl00`00HkmS_`2UHkl003aS_`03001S_f>o039S_`03001S_f>o0:ES_`00 ?F>o00<006>oHkl0o00<006>oHkl0YF>o000nHkl00`00HkmS_`0`Hkl00`00HkmS_`2UHkl003mS _`03001S_f>o02mS_`03001S_f>o0:ES_`00@6>o00<006>oHkl0;V>o0P00YV>o0011Hkl00`00HkmS _`0]Hkl00`00HkmS_`2UHkl0049S_`03001S_f>o02aS_`03001S_f>o0:ES_`00@f>o00<006>oHkl0 :f>o00<006>oHkl0YF>o0014Hkl00`00HkmS_`0ZHkl00`00HkmS_`2UHkl004ES_`03001S_f>o02US _`03001S_f>o0:ES_`00AV>o00<006>oHkl0:6>o00<006>oHkl0YF>o0017Hkl00`00HkmS_`0WHkl2 002VHkl004QS_`03001S_f>o02IS_`03001S_f>o0:ES_`00BF>o00<006>oHkl09F>o00<006>oHkl0 YF>o001:Hkl00`00HkmS_`0THkl00`00HkmS_`2UHkl004]S_`03001S_f>o02=S_`03001S_f>o0:ES _`00C6>o00<006>oHkl02F>o0P0016>o00@006>oHkmS_`D000=S_`<000AS_`03001S_f>o0:ES_`00 CF>o00<006>oHkl01f>o00@006>oHkl000QS_`04001S_f>o0004Hkl00`00HkmS_`03Hkl00`00HkmS _`2UHkl004iS_`03001S_f>o00IS_`04001S_f>o0009Hkl01000HkmS_f>o1@0016>o00<006>oHkl0 YF>o001?Hkl00`00HkmS_`05Hkl01000HkmS_`002V>o00@006>oHkl0009S_`03001S_f>o00=S_`<0 0:ES_`00D6>o00<006>oHkl016>o00@006>oHkl000MS_`05001S_f>oHkl00002Hkl00`00Hkl00005 Hkl00`00HkmS_`2UHkl0055S_`8000AS_`04001S_f>o0007Hkl01@00HkmS_f>o00000f>o0P001F>o 00<006>oHkl0YF>o001CHkl00`00HkmS_`02Hkl20009Hkl30005Hkl00`00HkmS_`03Hkl00`00HkmS _`2UHkl005AS_`03001S_f>o01YS_`03001S_f>o0:ES_`00EF>o00<006>oHkl06F>o00<006>oHkl0 YF>o001FHkl00`00HkmS_`0HHkl00`00HkmS_`2UHkl005MS_`03001S_f>o01MS_`800:IS_`00F6>o 00<006>oHkl05V>o00<006>oHkl0YF>o001IHkl00`00HkmS_`0EHkl00`00HkmS_`2UHkl005YS_`03 001S_f>o01AS_`03001S_f>o0:ES_`00Ff>o00<006>oHkl04f>o00<006>oHkl0YF>o001LHkl00`00 HkmS_`0BHkl00`00HkmS_`2UHkl005eS_`03001S_f>o015S_`03001S_f>o0:ES_`00GV>o00<006>o Hkl046>o0P00YV>o001OHkl00`00HkmS_`0?Hkl00`00HkmS_`2UHkl0061S_`03001S_f>o00iS_`03 001S_f>o0:ES_`00HF>o00<006>oHkl03F>o00<006>oHkl0YF>o001RHkl00`00HkmS_`0o00]S_`03001S_f>o0:ES_`00I6>o00<006>oHkl02V>o00<006>o Hkl0YF>o001UHkl00`00HkmS_`09Hkl2002VHkl006IS_`8000US_`03001S_f>o0:ES_`00J6>o00<0 06>oHkl01V>o00<006>oHkl0YF>o001YHkl00`00HkmS_`05Hkl00`00HkmS_`2UHkl006YS_`03001S _f>o00AS_`03001S_f>o0:ES_`00F6>o0P0016>o00@006>oHkmS_`D0009S_`@000AS_`03001S_f>o 0:ES_`00Ef>o00@006>oHkl000QS_`06001S_f>o001S_`000f>o0P000f>o00<006>oHkl0YF>o001G Hkl01000HkmS_`002F>o00D006>oHkmS_`0000=S_`03001S_`00009S_`03001S_f>o0:ES_`00Ef>o 00@006>oHkl000YS_`03001S_f>o00@000=S_`03001S_`0000800:ES_`00Ef>o00@006>oHkl000MS _`07001S_f>oHkl006>o00001f>o0P00Yf>o001GHkl01000HkmS_`001f>o00D006>oHkmS_`00009S _`03001S_f>o00ES_`800:IS_`00F6>o0P002F>o0`0016>o0P001F>o00<006>o0000YF>o001aHkl0 1000HkmS_`00Y6>o001aHkl01000HkmS_f>o0P00XV>o001aHkl00`00HkmS_`03Hkl00`00HkmS_`2O Hkl0075S_`8000ES_`8009mS_`00LF>o00<006>oHkl01V>o00<006>oHkl0W6>o001aHkl00`00HkmS _`07Hkl00`00HkmS_`2KHkl0075S_`03001S_f>o00QS_`8009]S_`00LF>o00<006>oHkl02V>o00<0 06>oHkl0V6>o001aHkl00`00HkmS_`0;Hkl00`00HkmS_`2GHkl0075S_`03001S_f>o00aS_`03001S _f>o09IS_`00LF>o0P003V>o0P00UV>o001aHkl00`00HkmS_`0?Hkl00`00HkmS_`2CHkl0075S_`03 001S_f>o011S_`03001S_f>o099S_`00LF>o00<006>oHkl04F>o00<006>oHkl0TF>o001aHkl00`00 HkmS_`0BHkl2002AHkl0075S_`03001S_f>o01AS_`03001S_f>o08iS_`00LF>o00<006>oHkl05F>o 0P00SV>o001aHkl00`00HkmS_`0GHkl2002o08US_`00LF>o00<0 06>oHkl06V>o0P00RF>o001aHkl00`00HkmS_`0LHkl00`00HkmS_`26Hkl0075S_`03001S_f>o01eS _`8008IS_`00F6>o0P0016>o00@006>oHkmS_`D0009S_`<000ES_`03001S_f>o01mS_`8008AS_`00 Ef>o00@006>oHkl000QS_`06001S_f>o001S_`000f>o00<006>oHkl00V>o00<006>oHkl08F>o0P00 NF>o0P001f>o001GHkl01000HkmS_`002F>o00D006>oHkmS_`0000=S_`03001S_f>o009S_`03001S _f>o02=S_`03001S_f>o07=S_`<000US_`00Ef>o00@006>oHkl000YS_`04001S_f>oHkl30005Hkl3 000THkl2001`Hkl3000o0007Hkl01`00HkmS_f>o001S_`0000=S_`03001S _f>o009S_`03001S_f>o02IS_`8006]S_`<000mS_`00Ef>o00@006>oHkl000MS_`07001S_f>oHkl0 06>o00000f>o00<006>oHkl00V>o00<006>oHkl0:6>o0P00If>o0P004V>o001HHkl20009Hkl30003 Hkl30005Hkl00`00HkmS_`0ZHkl2001RHkl3000DHkl0075S_`03001S_f>o02aS_`8005iS_`8001MS _`00LF>o00<006>oHkl0;V>o0P00FF>o0`006F>o001aHkl00`00HkmS_`0`Hkl2001DHkl3000LHkl0 075S_`8003=S_`8004iS_`@001mS_`00LF>o00<006>oHkl0=6>o0`00B6>o0`008f>o001aHkl00`00 HkmS_`0gHkl30011Hkl4000VHkl0075S_`03001S_f>o03YS_`<003YS_`@002YS_`00LF>o00<006>o Hkl0?F>o0`00=6>o0`00;V>o001aHkl00`00HkmS_`10Hkl4000/Hkl4000aHkl0075S_`03001S_f>o 04AS_`<002AS_`D003ES_`00LF>o0P00B6>o1`005F>o2000>V>o001aHkl00`00HkmS_`1>HklE0012 Hkl0075S_`03001S_f>o0:ES_`00LF>o00<006>oHkl0YF>o001aHkl00`00HkmS_`2UHkl0075S_`03 001S_f>o0:ES_`00\ \>"], ImageRangeCache->{{{0, 280.438}, {172.875, 0}} -> {0.467059, 0.174782, \ 0.00469225, 0.000686875}}] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Here is the stability boundary in \[Alpha]-Re space\ \>", "Subtitle", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData[{ "This module employs the secant method (adapted from Press, Teukolsky, \ Vetterling and Flannery ", StyleBox["Numerical Recipes in Fortran, ", FontSlant->"Italic"], "2nd Ed. Cambridge Press, 1992, p 351.) (Since there is no ", StyleBox["Numerical Recipes in", FontSlant->"Italic"], " ", StyleBox["Mathematica", FontSlant->"Italic"], ". " }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(\(Do[{alfx = 0.9 + i\ .01; dx = 10; xacc = .1; rrx = 6800; x1 = rrx; fl = Im[lambda]; rrx = 6500; f = Im[lambda]; x2 = rrx; If[Abs[fl] < Abs[f], {rtsec = x1; x1 = x2; swap = fl; fl = f; f = swap}, {xl = x1; rtsec = x2}]; While[Abs[dx] > xacc, {dx = \(\((xl - rtsec)\)\ f\)\/\(f - fl\); xl = rtsec; fl = f; rtsec = rtsec + dx; rrx = rtsec; f = Im[lambda]; Print["\", rrx, "\< f= \>", f]}]; rr[i] = rrx; alfz[i] = alfx;}, {i, 0, 19}];\)\)], "Input", CellLabel->"In[375]:=", AspectRatioFixed->True], Cell[BoxData[ FormBox[ RowBox[{\(Inverse::"luc"\), \(\(:\)\(\ \)\), "\<\"Result for \ \\!\\(TraditionalForm\\`Inverse\\) of badly conditioned matrix \ \\!\\(TraditionalForm\\`\\((\[NoBreak] \\(\[LeftSkeleton] 1 \ \[RightSkeleton]\\) \[NoBreak])\\)\\) may contain significant numerical \ errors.\"\>"}], TraditionalForm]], "Message", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ RowBox[{\(Inverse::"luc"\), \(\(:\)\(\ \)\), "\<\"Result for \ \\!\\(TraditionalForm\\`Inverse\\) of badly conditioned matrix \ \\!\\(TraditionalForm\\`\\((\[NoBreak] \\(\[LeftSkeleton] 1 \ \[RightSkeleton]\\) \[NoBreak])\\)\\) may contain significant numerical \ errors.\"\>"}], TraditionalForm]], "Message", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ RowBox[{\(Inverse::"luc"\), \(\(:\)\(\ \)\), "\<\"Result for \ \\!\\(TraditionalForm\\`Inverse\\) of badly conditioned matrix \ \\!\\(TraditionalForm\\`\\((\[NoBreak] \\(\[LeftSkeleton] 1 \ \[RightSkeleton]\\) \[NoBreak])\\)\\) may contain significant numerical \ errors.\"\>"}], TraditionalForm]], "Message", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ RowBox[{\(General::"stop"\), \(\(:\)\(\ \)\), "\<\"Further output of \ \\!\\(TraditionalForm\\`\\(Inverse :: \\\"luc\\\"\\)\\) will be suppressed \ during this calculation.\"\>"}], TraditionalForm]], "Message", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6800\[InvisibleSpace]" f= "\ \[InvisibleSpace]\(-0.0003265763869372487`\)\), SequenceForm[ "rrx= ", 6800, " f= ", -0.00032657638693724871], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6800\[InvisibleSpace]" f= "\ \[InvisibleSpace]0.00003246382936406139`\), SequenceForm[ "rrx= ", 6800, " f= ", 3.2463829364061393*^-05], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6620.433933628408`\ \[InvisibleSpace]" f= "\[InvisibleSpace]6.488871148780735`*^-6\), SequenceForm[ "rrx= ", 6620.4339336284083, " f= ", 6.4888711487807346*^-06], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6617.202843626365`\ \[InvisibleSpace]" f= "\[InvisibleSpace]1.1625832977583566`*^-7\), SequenceForm[ "rrx= ", 6617.2028436263654, " f= ", 1.1625832977583566*^-07], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6617.143897455044`\ \[InvisibleSpace]" f= "\[InvisibleSpace]4.318888311535749`*^-11\), SequenceForm[ "rrx= ", 6617.1438974550438, " f= ", 4.3188883115357493*^-11], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6464.231767070988`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-3.607648868419899`*^-6\)\), SequenceForm[ "rrx= ", 6464.2317670709881, " f= ", -3.607648868419899*^-06], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6466.058714265434`\ \[InvisibleSpace]" f= "\[InvisibleSpace]1.943552315595665`*^-8\), SequenceForm[ "rrx= ", 6466.058714265434, " f= ", 1.9435523155956649*^-08], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6466.048924673942`\ \[InvisibleSpace]" f= "\[InvisibleSpace]1.187740623760911`*^-10\), SequenceForm[ "rrx= ", 6466.0489246739417, " f= ", 1.1877406237609111*^-10], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6316.210142012192`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-0.000026715385301440748`\)\), SequenceForm[ "rrx= ", 6316.2101420121917, " f= ", -2.6715385301440748*^-05], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6329.991959061858`\ \[InvisibleSpace]" f= "\[InvisibleSpace]7.502069106246311`*^-7\), SequenceForm[ "rrx= ", 6329.9919590618583, " f= ", 7.5020691062463111*^-07], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6329.615516627565`\ \[InvisibleSpace]" f= "\[InvisibleSpace]1.5040477500442547`*^-9\), SequenceForm[ "rrx= ", 6329.6155166275648, " f= ", 1.5040477500442547*^-09], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6329.614760403134`\ \[InvisibleSpace]" f= "\[InvisibleSpace]1.4898254704664695`*^-10\), SequenceForm[ "rrx= ", 6329.6147604031339, " f= ", 1.4898254704664695*^-10], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6177.292273802254`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-0.000060320546128555294`\)\), SequenceForm[ "rrx= ", 6177.2922738022544, " f= ", -6.0320546128555294*^-05], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6209.054566698841`\ \[InvisibleSpace]" f= "\[InvisibleSpace]3.007406787212838`*^-6\), SequenceForm[ "rrx= ", 6209.054566698841, " f= ", 3.0074067872128382*^-06], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6207.546194316084`\ \[InvisibleSpace]" f= "\[InvisibleSpace]1.5680352792371154`*^-8\), SequenceForm[ "rrx= ", 6207.5461943160844, " f= ", 1.5680352792371154*^-08], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6207.538288576164`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-7.412693174569776`*^-11\)\), SequenceForm[ "rrx= ", 6207.5382885761637, " f= ", -7.4126931745697764*^-11], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6048.589964884156`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-0.0001015798336756661`\)\), SequenceForm[ "rrx= ", 6048.589964884156, " f= ", -0.0001015798336756661], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6103.314555990534`\ \[InvisibleSpace]" f= "\[InvisibleSpace]7.160213357265602`*^-6\), SequenceForm[ "rrx= ", 6103.3145559905342, " f= ", 7.1602133572656021*^-06], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6099.711102075417`\ \[InvisibleSpace]" f= "\[InvisibleSpace]6.440333871160938`*^-8\), SequenceForm[ "rrx= ", 6099.7111020754173, " f= ", 6.4403338711609379*^-08], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6099.67839623036`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-8.416308485458227`*^-11\)\), SequenceForm[ "rrx= ", 6099.6783962303598, " f= ", -8.4163084854582269*^-11], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5931.452684909357`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-0.0001472928676395482`\)\), SequenceForm[ "rrx= ", 5931.4526849093572, " f= ", -0.00014729286763954819], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6012.871318313008`\ \[InvisibleSpace]" f= "\[InvisibleSpace]0.000013211660977817097`\), SequenceForm[ "rrx= ", 6012.8713183130076, " f= ", 1.3211660977817097*^-05], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6006.169480108987`\ \[InvisibleSpace]" f= "\[InvisibleSpace]1.790306274700633`*^-7\), SequenceForm[ "rrx= ", 6006.169480108987, " f= ", 1.790306274700633*^-07], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6006.077416245698`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-2.0744618222380165`*^-10\)\), SequenceForm[ "rrx= ", 6006.0774162456983, " f= ", -2.0744618222380165*^-10], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5827.532620641587`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-0.00019388818926838896`\)\), SequenceForm[ "rrx= ", 5827.5326206415866, " f= ", -0.00019388818926838896], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5937.881023527915`\ \[InvisibleSpace]" f= "\[InvisibleSpace]0.000020783669184911596`\), SequenceForm[ "rrx= ", 5937.8810235279152, " f= ", 2.0783669184911596*^-05], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5927.1975333061555`\ \[InvisibleSpace]" f= "\[InvisibleSpace]3.8782847382375894`*^-7\), SequenceForm[ "rrx= ", 5927.1975333061555, " f= ", 3.8782847382375894*^-07], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5926.994385921033`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-7.718985167380798`*^-10\)\), SequenceForm[ "rrx= ", 5926.9943859210334, " f= ", -7.7189851673807976*^-10], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5926.994789443975`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-2.3401074678614393`*^-10\)\), SequenceForm[ "rrx= ", 5926.9947894439747, " f= ", -2.3401074678614393*^-10], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5738.876316001471`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-0.00023742944442634752`\)\), SequenceForm[ "rrx= ", 5738.8763160014714, " f= ", -0.00023742944442634752], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5878.599036356577`\ \[InvisibleSpace]" f= "\[InvisibleSpace]0.000029128368860780725`\), SequenceForm[ "rrx= ", 5878.599036356577, " f= ", 2.9128368860780725*^-05], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5863.330697805378`\ \[InvisibleSpace]" f= "\[InvisibleSpace]6.997640238663011`*^-7\), SequenceForm[ "rrx= ", 5863.3306978053779, " f= ", 6.9976402386630114*^-07], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5862.954870919619`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-2.1956637488921477`*^-9\)\), SequenceForm[ "rrx= ", 5862.9548709196188, " f= ", -2.1956637488921477*^-09], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5862.956046470699`\ \[InvisibleSpace]" f= "\[InvisibleSpace]9.505298396132641`*^-11\), SequenceForm[ "rrx= ", 5862.9560464706992, " f= ", 9.5052983961326412*^-11], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5668.044236063248`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-0.00027367861917399486`\)\), SequenceForm[ "rrx= ", 5668.0442360632478, " f= ", -0.00027367861917399486], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5835.450293344211`\ \[InvisibleSpace]" f= "\[InvisibleSpace]0.000037172142805874875`\), SequenceForm[ "rrx= ", 5835.4502933442109, " f= ", 3.7172142805874875*^-05], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5815.431549210589`\ \[InvisibleSpace]" f= "\[InvisibleSpace]1.0906705626922706`*^-6\), SequenceForm[ "rrx= ", 5815.4315492105889, " f= ", 1.0906705626922706*^-06], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5814.8264227129375`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-4.321944701808265`*^-9\)\), SequenceForm[ "rrx= ", 5814.8264227129375, " f= ", -4.3219447018082651*^-09], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5814.82881115235`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-7.420639767917341`*^-11\)\), SequenceForm[ "rrx= ", 5814.8288111523498, " f= ", -7.4206397679173408*^-11], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5618.283668284253`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-0.00029822732275420523`\)\), SequenceForm[ "rrx= ", 5618.2836682842526, " f= ", -0.00029822732275420523], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5809.1459258843715`\ \[InvisibleSpace]" f= "\[InvisibleSpace]0.00004360934579445273`\), SequenceForm[ "rrx= ", 5809.1459258843715, " f= ", 4.3609345794452732*^-05], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5784.796934226653`\ \[InvisibleSpace]" f= "\[InvisibleSpace]1.4916711981736144`*^-6\), SequenceForm[ "rrx= ", 5784.7969342266533, " f= ", 1.4916711981736144*^-06], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5783.934572049526`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-7.837398868663494`*^-9\)\), SequenceForm[ "rrx= ", 5783.9345720495257, " f= ", -7.8373988686634941*^-09], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5783.939079310348`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-3.79533662185541`*^-12\)\), SequenceForm[ "rrx= ", 5783.9390793103476, " f= ", -3.7953366218554102*^-12], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5593.7749393673475`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-0.00030675868311375764`\)\), SequenceForm[ "rrx= ", 5593.7749393673475, " f= ", -0.00030675868311375764], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5800.8836914868625`\ \[InvisibleSpace]" f= "\[InvisibleSpace]0.00004705579905177587`\), SequenceForm[ "rrx= ", 5800.8836914868625, " f= ", 4.7055799051775873*^-05], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5773.339121343913`\ \[InvisibleSpace]" f= "\[InvisibleSpace]1.7923432281941678`*^-6\), SequenceForm[ "rrx= ", 5773.3391213439127, " f= ", 1.7923432281941678*^-06], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5772.248410904974`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-1.0819504340953017`*^-8\)\), SequenceForm[ "rrx= ", 5772.2484109049738, " f= ", -1.0819504340953017*^-08], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5772.254955486955`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-1.5890641298756377`*^-10\)\), SequenceForm[ "rrx= ", 5772.2549554869547, " f= ", -1.5890641298756377*^-10], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5599.994863462871`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-0.0002955006538126604`\)\), SequenceForm[ "rrx= ", 5599.9948634628709, " f= ", -0.0002955006538126604], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5812.696363502468`\ \[InvisibleSpace]" f= "\[InvisibleSpace]0.00004627973846265654`\), SequenceForm[ "rrx= ", 5812.6963635024676, " f= ", 4.6279738462656539*^-05], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5783.89491668185`\ \[InvisibleSpace]" f= "\[InvisibleSpace]1.8679904673518907`*^-6\), SequenceForm[ "rrx= ", 5783.8949166818502, " f= ", 1.8679904673518907*^-06], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5782.683506851448`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-1.2439821733921438`*^-8\)\), SequenceForm[ "rrx= ", 5782.6835068514483, " f= ", -1.2439821733921438*^-08], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5782.691520826986`\ \[InvisibleSpace]" f= "\[InvisibleSpace]6.528496945619453`*^-11\), SequenceForm[ "rrx= ", 5782.6915208269857, " f= ", 6.5284969456194527*^-11], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5644.2475364442635`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-0.0002620240427446722`\)\), SequenceForm[ "rrx= ", 5644.2475364442635, " f= ", -0.00026202404274467219], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5848.096640338985`\ \[InvisibleSpace]" f= "\[InvisibleSpace]0.00004054703971030381`\), SequenceForm[ "rrx= ", 5848.0966403389848, " f= ", 4.0547039710303808*^-05], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5820.779166231858`\ \[InvisibleSpace]" f= "\[InvisibleSpace]1.6308908585182813`*^-6\), SequenceForm[ "rrx= ", 5820.7791662318577, " f= ", 1.6308908585182813*^-06], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5819.634350516181`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-1.0764778134057724`*^-8\)\), SequenceForm[ "rrx= ", 5819.6343505161813, " f= ", -1.0764778134057724*^-08], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5819.641857381146`\ \[InvisibleSpace]" f= "\[InvisibleSpace]5.490156809891298`*^-11\), SequenceForm[ "rrx= ", 5819.6418573811461, " f= ", 5.4901568098912978*^-11], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5736.50464202857`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-0.00020650625719349834`\)\), SequenceForm[ "rrx= ", 5736.5046420285698, " f= ", -0.00020650625719349834], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5913.324642062785`\ \[InvisibleSpace]" f= "\[InvisibleSpace]0.000030103608730162522`\), SequenceForm[ "rrx= ", 5913.3246420627847, " f= ", 3.0103608730162522*^-05], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5890.828031129347`\ \[InvisibleSpace]" f= "\[InvisibleSpace]1.1050589690112799`*^-6\), SequenceForm[ "rrx= ", 5890.8280311293474, " f= ", 1.1050589690112799*^-06], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5889.970744061921`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-6.208238815070848`*^-9\)\), SequenceForm[ "rrx= ", 5889.9707440619213, " f= ", -6.2082388150708479*^-09], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5889.9755334076435`\ \[InvisibleSpace]" f= "\[InvisibleSpace]3.733486705064721`*^-11\), SequenceForm[ "rrx= ", 5889.9755334076435, " f= ", 3.7334867050647209*^-11], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]5890.722543230137`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-0.0001338137180549067`\)\), SequenceForm[ "rrx= ", 5890.7225432301366, " f= ", -0.0001338137180549067], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6019.978846486514`\ \[InvisibleSpace]" f= "\[InvisibleSpace]0.000016831951168675343`\), SequenceForm[ "rrx= ", 6019.9788464865142, " f= ", 1.6831951168675343*^-05], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6005.5367732701525`\ \[InvisibleSpace]" f= "\[InvisibleSpace]4.848870251463246`*^-7\), SequenceForm[ "rrx= ", 6005.5367732701525, " f= ", 4.8488702514632458*^-07], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6005.108392133495`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-1.9357108167139337`*^-9\)\), SequenceForm[ "rrx= ", 6005.1083921334948, " f= ", -1.9357108167139337*^-09], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6005.110095468073`\ \[InvisibleSpace]" f= "\[InvisibleSpace]9.86070085969748`*^-11\), SequenceForm[ "rrx= ", 6005.1100954680733, " f= ", 9.8607008596974801*^-11], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6127.058366314032`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-0.00005679622076136648`\)\), SequenceForm[ "rrx= ", 6127.0583663140324, " f= ", -5.6796220761366479*^-05], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6191.150816050216`\ \[InvisibleSpace]" f= "\[InvisibleSpace]4.903557129417759`*^-6\), SequenceForm[ "rrx= ", 6191.1508160502162, " f= ", 4.9035571294177589*^-06], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6186.057102594683`\ \[InvisibleSpace]" f= "\[InvisibleSpace]7.812911205801221`*^-8\), SequenceForm[ "rrx= ", 6186.0571025946829, " f= ", 7.8129112058012208*^-08], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6185.974629639346`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-1.1058763218090042`*^-10\)\), SequenceForm[ "rrx= ", 6185.9746296393459, " f= ", -1.1058763218090042*^-10], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6475.7094048894105`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-1.6416995349203666`*^-6\)\), SequenceForm[ "rrx= ", 6475.7094048894105, " f= ", -1.6416995349203666*^-06], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6477.990367374607`\ \[InvisibleSpace]" f= "\[InvisibleSpace]1.0934243715234422`*^-8\), SequenceForm[ "rrx= ", 6477.9903673746066, " f= ", 1.0934243715234422*^-08], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6477.975275949004`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-5.4698213933313564`*^-11\)\), SequenceForm[ "rrx= ", 6477.9752759490038, " f= ", -5.4698213933313564*^-11], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]6997.528813062451`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-0.000010706602855531245`\)\), SequenceForm[ "rrx= ", 6997.5288130624513, " f= ", -1.0706602855531245*^-05], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]7019.9592201339965`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-8.563927315551224`*^-7\)\), SequenceForm[ "rrx= ", 7019.9592201339965, " f= ", -8.5639273155512238*^-07], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]7021.909354937226`\ \[InvisibleSpace]" f= "\[InvisibleSpace]\(-8.03765005805512`*^-9\)\), SequenceForm[ "rrx= ", 7021.9093549372265, " f= ", -8.0376500580551202*^-09], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="], Cell[BoxData[ FormBox[ InterpretationBox[\("rrx= "\[InvisibleSpace]7021.927831282163`\ \[InvisibleSpace]" f= "\[InvisibleSpace]2.0316871533825584`*^-10\), SequenceForm[ "rrx= ", 7021.9278312821634, " f= ", 2.0316871533825584*^-10], Editable->False], TraditionalForm]], "Print", CellLabel->"From In[375]:="] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ans = Table[{rr[i], alfz[i]}, {i, 0, 19}]\)], "Input", CellLabel->"In[376]:="], Cell[BoxData[ FormBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"6800", "0.9`"}, {"6800", "0.91`"}, {"6617.143897455044`", "0.92`"}, {"6466.048924673942`", "0.93`"}, {"6329.614760403134`", "0.9400000000000001`"}, {"6207.538288576164`", "0.9500000000000001`"}, {"6099.67839623036`", "0.96`"}, {"6006.077416245698`", "0.97`"}, {"5926.994789443975`", "0.98`"}, {"5862.956046470699`", "0.99`"}, {"5814.82881115235`", "1.`"}, {"5783.939079310348`", "1.01`"}, {"5772.254955486955`", "1.02`"}, {"5782.691520826986`", "1.03`"}, {"5819.641857381146`", "1.04`"}, {"5889.9755334076435`", "1.05`"}, {"6005.110095468073`", "1.06`"}, {"6185.974629639346`", "1.07`"}, {"6477.975275949004`", "1.08`"}, {"7021.927831282163`", "1.09`"} }, ColumnAlignments->{Decimal}], "\[NoBreak]", ")"}], TraditionalForm]], "Output", CellLabel->"Out[376]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(ListPlot[ans, PlotJoined \[Rule] True, AxesLabel -> {"\", "\<\[Alpha]\>"}, \n\t PlotLabel -> \ "\"\ ];\)\)], "Input", CellLabel->"In[377]:=", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations -4.37525 0.000762104 -2.77341 3.09791 [ [.19737 .31201 -12 -9 ] [.19737 .31201 12 0 ] [.3498 .31201 -12 -9 ] [.3498 .31201 12 0 ] [.50222 .31201 -12 -9 ] [.50222 .31201 12 0 ] [.65464 .31201 -12 -9 ] [.65464 .31201 12 0 ] [.80706 .31201 -12 -9 ] [.80706 .31201 12 0 ] [.95948 .31201 -12 -9 ] [.95948 .31201 12 0 ] [1.025 .32451 0 -6 ] [1.025 .32451 16 6 ] [.03245 .01472 -18 -4.5 ] [.03245 .01472 0 4.5 ] [.03245 .09216 -30 -4.5 ] [.03245 .09216 0 4.5 ] [.03245 .16961 -24 -4.5 ] [.03245 .16961 0 4.5 ] [.03245 .24706 -30 -4.5 ] [.03245 .24706 0 4.5 ] [.03245 .40195 -30 -4.5 ] [.03245 .40195 0 4.5 ] [.03245 .4794 -24 -4.5 ] [.03245 .4794 0 4.5 ] [.03245 .55685 -30 -4.5 ] [.03245 .55685 0 4.5 ] [.04495 .64303 -5 0 ] [.04495 .64303 5 12 ] [.5 .63053 -56 0 ] [.5 .63053 56 12 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .19737 .32451 m .19737 .33076 L s [(6000)] .19737 .31201 0 1 Mshowa .3498 .32451 m .3498 .33076 L s [(6200)] .3498 .31201 0 1 Mshowa .50222 .32451 m .50222 .33076 L s [(6400)] .50222 .31201 0 1 Mshowa .65464 .32451 m .65464 .33076 L s [(6600)] .65464 .31201 0 1 Mshowa .80706 .32451 m .80706 .33076 L s [(6800)] .80706 .31201 0 1 Mshowa .95948 .32451 m .95948 .33076 L s [(7000)] .95948 .31201 0 1 Mshowa .125 Mabswid .08306 .32451 m .08306 .32826 L s .12116 .32451 m .12116 .32826 L s .15927 .32451 m .15927 .32826 L s .23548 .32451 m .23548 .32826 L s .27359 .32451 m .27359 .32826 L s .31169 .32451 m .31169 .32826 L s .3879 .32451 m .3879 .32826 L s .42601 .32451 m .42601 .32826 L s .46411 .32451 m .46411 .32826 L s .54032 .32451 m .54032 .32826 L s .57843 .32451 m .57843 .32826 L s .61653 .32451 m .61653 .32826 L s .69274 .32451 m .69274 .32826 L s .73085 .32451 m .73085 .32826 L s .76895 .32451 m .76895 .32826 L s .84516 .32451 m .84516 .32826 L s .88327 .32451 m .88327 .32826 L s .92137 .32451 m .92137 .32826 L s .00685 .32451 m .00685 .32826 L s .99758 .32451 m .99758 .32826 L s .25 Mabswid 0 .32451 m 1 .32451 L s gsave 1.025 .32451 -61 -10 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (Re) show 75.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore .04495 .01472 m .0512 .01472 L s [(0.9)] .03245 .01472 1 0 Mshowa .04495 .09216 m .0512 .09216 L s [(0.925)] .03245 .09216 1 0 Mshowa .04495 .16961 m .0512 .16961 L s [(0.95)] .03245 .16961 1 0 Mshowa .04495 .24706 m .0512 .24706 L s [(0.975)] .03245 .24706 1 0 Mshowa .04495 .40195 m .0512 .40195 L s [(1.025)] .03245 .40195 1 0 Mshowa .04495 .4794 m .0512 .4794 L s [(1.05)] .03245 .4794 1 0 Mshowa .04495 .55685 m .0512 .55685 L s [(1.075)] .03245 .55685 1 0 Mshowa .125 Mabswid .04495 .0302 m .0487 .0302 L s .04495 .04569 m .0487 .04569 L s .04495 .06118 m .0487 .06118 L s .04495 .07667 m .0487 .07667 L s .04495 .10765 m .0487 .10765 L s .04495 .12314 m .0487 .12314 L s .04495 .13863 m .0487 .13863 L s .04495 .15412 m .0487 .15412 L s .04495 .1851 m .0487 .1851 L s .04495 .20059 m .0487 .20059 L s .04495 .21608 m .0487 .21608 L s .04495 .23157 m .0487 .23157 L s .04495 .26255 m .0487 .26255 L s .04495 .27804 m .0487 .27804 L s .04495 .29353 m .0487 .29353 L s .04495 .30902 m .0487 .30902 L s .04495 .34 m .0487 .34 L s .04495 .35549 m .0487 .35549 L s .04495 .37098 m .0487 .37098 L s .04495 .38646 m .0487 .38646 L s .04495 .41744 m .0487 .41744 L s .04495 .43293 m .0487 .43293 L s .04495 .44842 m .0487 .44842 L s .04495 .46391 m .0487 .46391 L s .04495 .49489 m .0487 .49489 L s .04495 .51038 m .0487 .51038 L s .04495 .52587 m .0487 .52587 L s .04495 .54136 m .0487 .54136 L s .04495 .57234 m .0487 .57234 L s .04495 .58783 m .0487 .58783 L s .04495 .60332 m .0487 .60332 L s .25 Mabswid .04495 0 m .04495 .61803 L s gsave .04495 .64303 -66 -4 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (a) show 69.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .5 .63053 -117 -4 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20 translate 1 -1 scale 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (Stability) show 123.000 13.000 moveto (boundary) show 171.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .80706 .01472 m .80706 .04569 L .6677 .07667 L .55255 .10765 L .44858 .13863 L .35554 .16961 L .27334 .20059 L .20201 .23157 L .14174 .26255 L .09293 .29353 L .05626 .32451 L .03271 .35549 L .02381 .38646 L .03176 .41744 L .05992 .44842 L .11352 .4794 L .20127 .51038 L .33911 .54136 L .56164 .57234 L .97619 .60332 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", CellLabel->"From In[377]:=", ImageSize->{288.812, 178.438}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgo8F>o003oHklQ Hkl00?mS_b5S_`00of>o8F>o003oHklQHkl0025S_`03001S_f>o0?aS_`003V>o0P0016>o00<006>o Hkl00V>o0P001V>o00<006>oHkl0o6>o000=Hkl01000HkmS_`002V>o00<006>oHkl00f>o00<006>o Hkl0o6>o000=Hkl01000HkmS_`002f>o00<006>oHkl00V>o0P00]f>o00<006>oHkl0@f>o000=Hkl0 1000HkmS_`0026>o100016>o00<006>oHkl0]V>o00<006>oHkl0@f>o000=Hkl01000HkmS_`001f>o 00D006>oHkmS_`0000AS_`03001S_f>o0;IS_`03001S_f>o04=S_`003F>o00@006>oHkl000MS_`05 001S_f>oHkl00004Hkl00`00HkmS_`2fHkl00`00HkmS_`13Hkl000iS_`8000US_`<000ES_`03001S _f>o0;IS_`03001S_f>o04=S_`008F>o00<006>oHkl0]V>o00<006>oHkl0@f>o000QHkl00`00HkmS _`2fHkl00`00HkmS_`13Hkl0025S_`03001S_f>o0;IS_`03001S_f>o04=S_`008F>o00<006>oHkl0 ]6>o0`00AF>o000QHkl00`00HkmS_`2`Hkl40018Hkl0025S_`03001S_f>o0:]S_`D004aS_`008F>o 00<006>oHkl0Yf>o1000DF>o000QHkl00`00HkmS_`2SHkl4001EHkl0025S_`03001S_f>o09mS_`@0 05US_`008F>o00<006>oHkl0VV>o1@00GF>o000QHkl00`00HkmS_`2FHkl4001RHkl0025S_`03001S _f>o099S_`@006IS_`000V>o0P0016>o00<006>oHkl00V>o0P000f>o1@000V>o0`001F>o00<006>o Hkl0SV>o1000JV>o00001F>o001S_f>o00002V>o00D006>oHkmS_`00009S_`03001S_`0000=S_`03 001S_f>o009S_`03001S_f>o08YS_`@006iS_`0000ES_`00HkmS_`0000]S_`05001S_f>oHkl00007 Hkl00`00HkmS_`02Hkl20027Hkl4001bHkl00005Hkl006>oHkl00008Hkl40004Hkl00`00HkmS_`04 Hkl00`00HkmS_`02Hkl00`00HkmS_`22Hkl4001fHkl00005Hkl006>oHkl00007Hkl01`00HkmS_f>o 001S_`0000=S_`03001S_`0000<000ES_`03001S_f>o07iS_`@007YS_`0000ES_`00HkmS_`0000MS _`07001S_f>oHkl006>o00000f>o00<006>o000026>o00<006>oHkl0NV>o1000OV>o0002Hkl20009 Hkl30003Hkl30002Hkl50004Hkl00`00HkmS_`1fHkl40022Hkl0025S_`03001S_f>o07=S_`<008IS _`008F>o00<006>oHkl0L6>o0`00RF>o000QHkl00`00HkmS_`1]Hkl3002o 06YS_`<008mS_`008F>o00<006>oHkl0If>o0`00TV>o000QHkl00`00HkmS_`1THkl3002EHkl0025S _`03001S_f>o065S_`<009QS_`008F>o00<006>oHkl0GF>o1000Vf>o000QHkl00`00HkmS_`1JHkl3 002OHkl0025S_`03001S_f>o05MS_`<00:9S_`008F>o00<006>oHkl0Df>o1000YF>o000QHkl00`00 HkmS_`1@Hkl3002YHkl000QS_`8000AS_`03001S_f>o009S_`8000AS_`<000ES_`03001S_f>o04eS _`<00:aS_`001f>o00@006>oHkl000YS_`04001S_f>o0003Hkl00`00HkmS_`02Hkl00`00HkmS_`1: Hkl3002_Hkl000MS_`04001S_f>o000;Hkl00`00HkmS_`03Hkl00`00HkmS_`02Hkl20018Hkl3002b Hkl000MS_`04001S_f>o0008Hkl40005Hkl00`00HkmS_`02Hkl00`00HkmS_`14Hkl3002eHkl000MS _`04001S_f>o0007Hkl01P00HkmS_f>o001S_`@000ES_`03001S_f>o049S_`800;QS_`001f>o00@0 06>oHkl000MS_`07001S_f>oHkl006>o000026>o00<006>oHkl0?f>o0`00^V>o0008Hkl20009Hkl3 0002Hkl50004Hkl00`00HkmS_`0mHkl2002mHkl0025S_`03001S_f>o03YS_`<00;mS_`008F>o00<0 06>oHkl0>6>o0P00`V>o000QHkl00`00HkmS_`0eHkl30034Hkl0025S_`03001S_f>o03=S_`800o00<006>oHkl0<6>o0`00bF>o000QHkl00`00HkmS_`0^Hkl2003o 02]S_`<00o00<006>oHkl0:F>o0P00dF>o000QHkl00`00HkmS_`0WHkl2003CHkl0025S _`03001S_f>o02AS_`<00=ES_`008F>o00<006>oHkl08V>o0P00f6>o000QHkl00`00HkmS_`0PHkl2 003JHkl0009S_`8000AS_`03001S_f>o009S_`8000ES_`03001S_f>o009S_`<000ES_`03001S_f>o 01iS_`800=aS_`0000ES_`00HkmS_`0000YS_`03001S_f>o009S_`05001S_f>oHkl00003Hkl00`00 HkmS_`02Hkl00`00HkmS_`0LHkl2003NHkl00005Hkl006>oHkl0000;Hkl00`00HkmS_`02Hkl00`00 HkmS_`04Hkl00`00HkmS_`02Hkl2000LHkl00`00HkmS_`3NHkl00005Hkl006>oHkl00008Hkl40004 Hkl00`00HkmS_`04Hkl00`00HkmS_`02Hkl00`00HkmS_`0IHkl2003QHkl00005Hkl006>oHkl00007 Hkl01@00HkmS_f>o00001F>o00<006>o00000`001F>o00<006>oHkl05f>o0P00hf>o00001F>o001S _f>o00001f>o00L006>oHkmS_`00Hkl00003Hkl00`00Hkl00008Hkl00`00HkmS_`0EHkl2003UHkl0 009S_`8000US_`<0009S_`D00003Hkl0000000<000AS_`03001S_f>o01=S_`800>MS_`008F>o00<0 06>oHkl04F>o0P00jF>o000QHkl00`00HkmS_`0@Hkl00`00HkmS_`3YHkl0025S_`03001S_f>o00iS _`800>aS_`008F>o00<006>oHkl036>o0P002F>o0`0016>o0P0016>o0P0016>o0P0046>o0`000V>o 1@000f>o0P0016>o0P0046>o0`0016>o0`000f>o0P0016>o0P0046>o0`000f>o0`0016>o0P0016>o 0P0046>o0`000f>o0`0016>o0P0016>o0P004F>o00<006>oHkl00f>o0P0016>o0P0016>o0P005f>o 000QHkl00`00HkmS_`0;Hkl00`00HkmS_`08Hkl01@00HkmS_f>o00000V>o00@006>oHkl0009S_`04 001S_f>o0002Hkl01000HkmS_`003V>o00D006>oHkmS_`00009S_`04001S_f>o0002Hkl01000HkmS _`000V>o00@006>oHkl000iS_`05001S_f>oHkl00004Hkl01@00HkmS_f>o00000V>o00@006>oHkl0 009S_`03001S_f>o00aS_`07001S_f>oHkl006>o00000f>o00@006>oHkl0009S_`04001S_f>o0002 Hkl00`00HkmS_`0o001S_`0000=S_`04001S_f>o0002Hkl01000HkmS_`000V>o 00<006>oHkl03V>o00<006>oHkl00V>o00@006>oHkl0009S_`04001S_f>o0002Hkl01000HkmS_`00 5V>o000QHkl00`00HkmS_`09Hkl2000;Hkl01@00HkmS_f>o00000V>o00@006>oHkl0009S_`04001S _f>o0002Hkl01000HkmS_`003V>o00D006>oHkmS_`0000=S_`03001S_f>o009S_`04001S_f>o0002 Hkl01000HkmS_`003V>o00H006>oHkmS_`00Hkl50002Hkl01000HkmS_`000V>o00@006>oHkl000iS _`07001S_f>oHkl006>o00000f>o00@006>oHkl0009S_`04001S_f>o0002Hkl00`00HkmS_`0o001S_`0000=S_`04001S_f>o0002Hkl01000HkmS_`000V>o00<006>oHkl03f>o00D0 06>oHkmS_`00009S_`04001S_f>o0002Hkl01000HkmS_`000V>o00<006>oHkl056>o000QHkl00`00 HkmS_`07Hkl2000=Hkl40003Hkl01000HkmS_`000V>o00@006>oHkl0009S_`04001S_f>o000>Hkl4 0005Hkl01@00HkmS_f>o00000V>o00@006>oHkl0009S_`03001S_f>o00aS_`@0009S_`04001S_f>o 0003Hkl01000HkmS_`000V>o00@006>oHkl000iS_`@0009S_`@000=S_`04001S_f>o0002Hkl01000 HkmS_`003V>o10000f>o0`000f>o00@006>oHkl0009S_`04001S_f>o000AHkl01@00HkmS_f>o0000 0V>o00@006>oHkl0009S_`04001S_f>o0002Hkl00`00HkmS_`0DHkl0025S_`03001S_f>o00IS_`03 001S_f>o00eS_`03001S_f>o00AS_`04001S_f>o0002Hkl01000HkmS_`000V>o00@006>oHkl000iS _`03001S_f>o00=S_`05001S_f>oHkl00002Hkl01000HkmS_`000V>o00@006>oHkl000iS_`03001S _f>o00AS_`03001S_`0000=S_`04001S_f>o0002Hkl01000HkmS_`003V>o00<006>oHkl00f>o00<0 06>oHkl016>o00@006>oHkl0009S_`04001S_f>o000>Hkl00`00HkmS_`03Hkl01@00HkmS_f>o0000 0V>o00@006>oHkl0009S_`04001S_f>o000BHkl01000HkmS_`000V>o00@006>oHkl0009S_`04001S _f>o0002Hkl00`00HkmS_`0DHkl0025S_`03001S_f>o00ES_`03001S_f>o00mS_`03001S_f>o00=S _`04001S_f>o0002Hkl01000HkmS_`000V>o00@006>oHkl000mS_`03001S_f>o009S_`05001S_f>o Hkl00002Hkl01000HkmS_`000V>o00@006>oHkl000mS_`03001S_f>o00AS_`8000=S_`04001S_f>o 0002Hkl01000HkmS_`003f>o00<006>oHkl00f>o00<006>oHkl00f>o00@006>oHkl0009S_`04001S _f>o000?Hkl00`00HkmS_`02Hkl01@00HkmS_f>o00000V>o00@006>oHkl0009S_`04001S_f>o000> Hkl01@00HkmS_f>o00000V>o00@006>oHkl0009S_`04001S_f>o0002Hkl01000HkmS_`005V>o000Q Hkl00`00HkmS_`04Hkl00`00HkmS_`0AHkl20004Hkl20004Hkl20004Hkl2000AHkl20003Hkl30004 Hkl20004Hkl2000AHkl20005Hkl00`00HkmS_`02Hkl20004Hkl2000AHkl20004Hkl20004Hkl20004 Hkl2000AHkl20003Hkl30004Hkl20004Hkl2000?Hkl50003Hkl20004Hkl20004Hkl2000GHkl0025S _`03001S_f>o00=S_`03001S_f>o0?IS_`008F>o00<006>oHkl00V>o00<006>oHkl0mf>o000QHkl0 1@00HkmS_f>o0000jf>o0`000V>o00<006>o00000P001F>o000QHkl01000HkmS_`00kF>o00H006>o Hkl006>o0008Hkl001IS_o@000QS_`03001S_`00009S_`D000AS_`005f>o00<006>oHkl01f>o00<0 06>o00001V>o00<006>oHkl01V>o00<006>oHkl01V>o00<006>oHkl01f>o00<006>oHkl01V>o00<0 06>oHkl01V>o00<006>oHkl01f>o00<006>oHkl01V>o00<006>oHkl01V>o00<006>oHkl01V>o00<0 06>oHkl01f>o00<006>oHkl01V>o00<006>oHkl01V>o00<006>oHkl01f>o00<006>oHkl01V>o00<0 06>oHkl01V>o00<006>oHkl01V>o00<006>oHkl01f>o00<006>oHkl01V>o00<006>oHkl01V>o00<0 06>oHkl01V>o00<006>oHkl01f>o00<006>oHkl01V>o00<006>oHkl01V>o00<006>oHkl01f>o00<0 06>oHkl01V>o0`000V>o00D006>oHkmS_`0000AS_`008F>o0P00kf>o00@006>oHkl0009S_`<000ES _`008F>o00<006>oHkl0kV>o00@006>oHkl000YS_`008F>o00<006>oHkl0kF>o10002f>o000PHkl2 003nHkl0021S_`800?iS_`007f>o00<006>o0000oV>o000NHkl01000HkmS_`00oV>o000NHkl01000 HkmS_`00oV>o000MHkl01@00HkmS_f>o0000oV>o000MHkl01@00HkmS_f>o0000oV>o000LHkl00`00 HkmS_`02Hkl00`00HkmS_`3lHkl001aS_`03001S_f>o009S_`03001S_f>o0?aS_`0076>o00<006>o Hkl00V>o00<006>oHkl0o6>o000KHkl00`00HkmS_`03Hkl00`00HkmS_`3lHkl00004Hkl000000004 Hkl00`00HkmS_`03Hkl20002Hkl50002Hkl30005Hkl00`00HkmS_`3lHkl0009S_`03001S_f>o00QS _`04001S_f>o0002Hkl01P00HkmS_`00Hkl0009S_`8000AS_`03001S_f>o0?aS_`000V>o00<006>o Hkl026>o00@006>oHkl000=S_`03001S_f>o00ES_`03001S_f>o009S_`03001S_f>o0?aS_`000V>o 00<006>oHkl026>o00@006>oHkl000AS_`03001S_f>o00AS_`03001S_f>o009S_`800?eS_`000V>o 00<006>oHkl026>o00H006>oHkl006>o0003Hkl00`00Hkl000040004Hkl00`00HkmS_`3lHkl00003 Hkl0000000YS_`06001S_f>o001S_`000f>o00<006>o00000f>o00<006>oHkl00V>o00<006>oHkl0 o6>o0002Hkl00`00HkmS_`09Hkl20003Hkl30002Hkl60003Hkl00`00HkmS_`3lHkl001eS_`05001S _f>oHkl0003nHkl001iS_`04001S_f>o003nHkl001mS_`03001S_`000?iS_`0086>o0P00oV>o000Q Hkl00`00HkmS_`3lHkl0025S_`800?eS_`008F>o00<006>o0000o6>o000QHkl00`00HkmS_`02003j Hkl0025S_`03001S_f>o009S_`03001S_f>o0?MS_`008F>o00<006>oHkl00f>o0P00mf>o000QHkl0 0`00HkmS_`05Hkl2003eHkl0025S_`03001S_f>o00MS_`03001S_f>o0?9S_`001f>o0`0016>o00<0 06>oHkl00f>o0P000f>o0`001F>o00<006>oHkl026>o0P00lV>o0008Hkl00`00HkmS_`08Hkl01P00 HkmS_`00Hkl000=S_`03001S_f>o009S_`03001S_f>o00YS_`800?1S_`0026>o00<006>oHkl026>o 00@006>oHkl000ES_`03001S_f>o009S_`03001S_f>o00aS_`03001S_f>o0>eS_`0026>o00<006>o Hkl026>o00@006>oHkl000ES_`03001S_f>o009S_`8000iS_`<00>aS_`0026>o00<006>oHkl026>o 00D006>oHkl006>o00@000ES_`03001S_f>o011S_`<00>US_`001f>o0P002V>o00H006>oHkl006>o 0008Hkl00`00HkmS_`0CHkl3003VHkl000QS_`03001S_f>o00US_`80009S_`D000AS_`03001S_f>o 01IS_`<00>=S_`008F>o00<006>oHkl06F>o0`00h6>o000QHkl00`00HkmS_`0LHkl3003MHkl0025S _`03001S_f>o01mS_`<00=YS_`008F>o00<006>oHkl08V>o1000eV>o000QHkl00`00HkmS_`0VHkl4 003BHkl0025S_`03001S_f>o02YS_`@00o00<006>oHkl0;V>o1000bV>o000QHkl00`00 HkmS_`0bHkl50035Hkl0025S_`03001S_f>o03MS_`@00<5S_`008F>o00<006>oHkl0>f>o1000_F>o 000QHkl00`00HkmS_`0oHkl4002iHkl0025S_`03001S_f>o04=S_`H00;=S_`0000AS_`00000000AS _`03001S_f>o00=S_`8000AS_`03001S_f>o009S_`<000ES_`03001S_f>o04US_`P00:]S_`000V>o 00<006>oHkl026>o00@006>oHkl000=S_`05001S_f>oHkl00003Hkl00`00HkmS_`02Hkl00`00HkmS _`1AHkl7002THkl0009S_`03001S_f>o00QS_`04001S_f>o0004Hkl00`00HkmS_`04Hkl00`00HkmS _`02Hkl00`00HkmS_`1HHkl8002LHkl0009S_`03001S_f>o00QS_`04001S_f>o0004Hkl00`00HkmS _`04Hkl00`00HkmS_`02Hkl2001QHkl8002DHkl0009S_`03001S_f>o00QS_`04001S_f>o0005Hkl0 0`00Hkl000030005Hkl00`00HkmS_`1XHkl7002=Hkl00003Hkl0000000YS_`06001S_f>o001S_`00 0f>o00<006>o000026>o00<006>oHkl0Kf>o2000QF>o0002Hkl00`00HkmS_`09Hkl20002Hkl50000 0f>o000000030004Hkl00`00HkmS_`1gHkl:001kHkl0025S_`03001S_f>o085S_`d006iS_`008F>o 00<006>oHkl0SV>o3@00HF>o000QHkl00`00HkmS_`2KHkl<001EHkl0025S_`03001S_f>o0:MS_`d0 04QS_`008F>o00<006>oHkl0]6>o3000?6>o000QHkl00`00HkmS_`30Hkl=000_Hkl0025S_`03001S _f>o0o00<006>oHkl0fV>o1P0076>o000QHkl00`00HkmS_`3lHkl0025S_`03 001S_f>o0?aS_`008F>o00<006>oHkl0o6>o003oHklQHkl00?mS_b5S_`00of>o8F>o003oHklQHkl0 0?mS_b5S_`00RF>o0`00o0`00GV>o002:Hkl00`00HkmS_`0cHkl00`00HkmS_`1MHkl005YS_`<0 00AS_`8000=S_`@00003Hkl000000080009S_`D00003Hkl0000000<00003Hkl0000000<000=S_`80 00AS_`03001S_f>o00MS_`@000=S_`<000AS_`800003Hkl0000000800004Hkl00000Hkl40002Hkl4 000016>o000000001F>o00<006>oHkl0G6>o001JHkl01000HkmS_`000V>o00H006>oHkl006>o0002 Hkl01@00HkmS_f>o00000V>o00D006>oHkmS_`0000ES_`03001S_f>o00=S_`03001S_f>o009S_`04 001S_f>o0003Hkl00`00HkmS_`08Hkl01P00HkmS_`00Hkl000=S_`04001S_f>o0002Hkl01000HkmS _`000V>o00<006>o00000V>o00@006>oHkl0009S_`05001S_f>oHkl00006Hkl00`00HkmS_`1LHkl0 05eS_`04001S_f>o0005Hkl30003Hkl01000HkmS_`000f>o00<006>oHkl00f>o00<006>oHkl00f>o 00<006>oHkl00V>o00<006>oHkl00f>o00<006>o00002F>o00H006>oHkl006>o0003Hkl01000HkmS _`000V>o00@006>oHkl0009S_`03001S_`00009S_`04001S_f>oHkl30003Hkl00`00HkmS_`03Hkl0 0`00Hkl0001MHkl001mS_`800003Hkl006>o03MS_`8000=S_`03001S_f>o009S_`04001S_f>o0003 Hkl01000HkmS_`000f>o00<006>oHkl00f>o00<006>oHkl00f>o00<006>oHkl00V>o00<006>oHkl0 0f>o00<006>o00002F>o00H006>oHkl006>o0003Hkl01000HkmS_`000V>o00@006>oHkl0009S_`03 001S_`00009S_`04001S_f>o0002Hkl01000HkmS_f>o0P0016>o00<006>o0000GF>o000NHkl01000 HkmS_`00>6>o00<006>oHkl00V>o10000f>o0P0016>o0`000V>o0`001F>o00@006>oHkmS_`<000=S _`@0009S_`800003Hkl0000000QS_`<000=S_`<0009S_`800004Hkl00000Hkl40003Hkl30003Hkl2 0003Hkl2000016>o000006>o0P0000=S_`000000G6>o000NHkl01000HkmS_`00>6>o00@006>oHkl0 009S_`03001S_f>o00US_`03001S_f>o00YS_`03001S_f>o00QS_`03001S_f>o00mS_`03001S_f>o 01MS_`03001S_f>o06eS_`007V>o00@006>oHkl003US_`<0009S_`03001S_f>o00QS_`8000IS_`04 001S_f>oHkl30005Hkl00`00HkmS_`02Hkl00`00HkmS_`0>Hkl2000HHkl2001_Hkl001mS_`800003 Hkl006>o0?aS_`00of>o8F>o003oHklQHkl00?mS_b5S_`00of>o8F>o003oHklQHkl00?mS_b5S_`00 of>o8F>o0000\ \>"], ImageRangeCache->{{{0, 287.812}, {177.438, 0}} -> {5622.01, 0.88883, \ 5.38597, 0.00132498}}] }, Open ]] }, Open ]] }, Closed]] }, FrontEndVersion->"4.0 for Macintosh", ScreenRectangle->{{0, 1152}, {0, 850}}, ScreenStyleEnvironment->"Working", WindowToolbars->{}, CellGrouping->Manual, WindowSize->{500, 710}, WindowMargins->{{10, Automatic}, {Automatic, 16}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, 128}}, ShowCellLabel->True, ShowCellTags->False, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False}, CharacterEncoding->"MacintoshAutomaticEncoding", Magnification->1, StyleDefinitions -> Notebook[{ Cell[CellGroupData[{ Cell["Style Definitions", "Subtitle"], Cell["\<\ Modify the definitions below to change the default appearance of \ all cells in a given style. Make modifications to any definition using commands in the Format menu.\ \>", "Text"], Cell[CellGroupData[{ Cell["Style Environment Names", "Section"], Cell[StyleData[All, "Working"], ScriptMinSize->9], Cell[StyleData[All, "Printout"], PageWidth->PaperWidth, ShowCellLabel->False, ImageSize->{200, 200}, PrivateFontOptions->{"FontType"->"Outline"}] }, Closed]], Cell[CellGroupData[{ Cell["Notebook Options", "Section"], Cell["\<\ The options defined for the style below will be used at the \ Notebook level.\ \>", "Text"], Cell[StyleData["Notebook"], PageHeaders->{{Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"], None, Cell[ TextData[ { ValueBox[ "FileName"]}], "Header"]}, {Cell[ TextData[ { ValueBox[ "FileName"]}], "Header"], None, Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"]}}, PageHeaderLines->{True, True}, PrintingOptions->{"FirstPageHeader"->False, "FacingPages"->True}, CellLabelAutoDelete->False, CellFrameLabelMargins->6, StyleMenuListing->None] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Headings", "Section"], Cell[CellGroupData[{ Cell[StyleData["Title"], CellFrame->{{0, 0}, {0, 0.25}}, CellMargins->{{18, 30}, {4, 20}}, CellGroupingRules->{"TitleGrouping", 0}, PageBreakBelow->False, CellFrameMargins->9, LineSpacing->{0.95, 0}, CounterIncrements->"Title", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, FontSize->36, Background->RGBColor[0.750011, 1, 0.750011]], Cell[StyleData["Title", "Printout"], CellMargins->{{18, 30}, {4, 0}}, CellFrameMargins->4, FontSize->30] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["Subtitle"], CellMargins->{{18, 30}, {0, 10}}, CellGroupingRules->{"TitleGrouping", 10}, PageBreakBelow->False, LineSpacing->{1, 0}, CounterIncrements->"Subtitle", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, FontSize->24, FontSlant->"Italic", Background->RGBColor[0.8, 0.920012, 0.920012]], Cell[StyleData["Subtitle", "Printout"], CellMargins->{{18, 30}, {0, 10}}, FontSize->18, Background->RGBColor[0.8, 0.920012, 0.920012]] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["SectionFirst"], CellFrame->{{0, 0}, {0, 3}}, CellMargins->{{18, 30}, {4, 30}}, CellGroupingRules->{"SectionGrouping", 40}, PageBreakBelow->False, CellFrameMargins->3, CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, FontSize->18, FontWeight->"Bold"], Cell[StyleData["SectionFirst", "Printout"], FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Section"], CellMargins->{{18, 30}, {4, 30}}, CellGroupingRules->{"SectionGrouping", 40}, PageBreakBelow->False, CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, FontSize->18, FontWeight->"Bold", Background->RGBColor[0.920012, 0.870024, 0.770016]], Cell[StyleData["Section", "Printout"], FontSize->14] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["Subsection"], CellDingbat->"\[FilledSquare]", CellMargins->{{18, 30}, {4, 20}}, CellGroupingRules->{"SectionGrouping", 50}, PageBreakBelow->False, CounterIncrements->"Subsection", CounterAssignments->{{"Subsubsection", 0}}, FontSize->14, FontWeight->"Bold", Background->RGBColor[0.970001, 0.890013, 0.850004]], Cell[StyleData["Subsection", "Printout"], FontSize->12] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubsection"], CellDingbat->"\[FilledSmallSquare]", CellMargins->{{18, 30}, {4, 12}}, CellGroupingRules->{"SectionGrouping", 60}, PageBreakBelow->False, CounterIncrements->"Subsubsection", FontSize->12, FontWeight->"Bold", Background->RGBColor[0.870008, 1, 0.960006]], Cell[StyleData["Subsubsection", "Printout"], FontSize->10] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Styles for Body Text", "Section"], Cell[CellGroupData[{ Cell[StyleData["Text"], CellMargins->{{18, 10}, {Inherited, 6}}, TextJustification->1, LineSpacing->{1, 2}, CounterIncrements->"Text", Background->RGBColor[0.900008, 1, 0.940002]], Cell[StyleData["Text", "Printout"], CellMargins->{{18, 30}, {Inherited, 4}}, LineSpacing->{1, 3}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Caption"], CellMargins->{{55, 50}, {5, 5}}, PageBreakAbove->False, FontSize->10], Cell[StyleData["Caption", "Printout"], CellMargins->{{55, 55}, {5, 2}}, FontSize->8] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Input/Output", "Section"], Cell["\<\ The cells in this section define styles used for input and output \ to the kernel. Be careful when modifying, renaming, or removing these \ styles, because the front end associates special meanings with these style \ names.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Input"], CellMargins->{{55, 10}, {5, 8}}, Evaluatable->True, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, CellLabelMargins->{{26, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultInputFormatType, AutoItalicWords->{}, FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, CounterIncrements->"Input", FontSize->12, FontWeight->"Bold"], Cell[StyleData["Input", "Printout"], CellMargins->{{55, 55}, {0, 10}}, ShowCellLabel->False, FontSize->9.5] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Output"], CellMargins->{{55, 10}, {8, 5}}, CellEditDuplicate->True, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, CellLabelPositioning->Left, CellLabelMargins->{{26, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Output", Background->RGBColor[0.940017, 0.890013, 0.990005]], Cell[StyleData["Output", "Printout"], CellMargins->{{55, 55}, {10, 10}}, ShowCellLabel->False, FontSize->9.5] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["Message"], CellDingbat->"\[LongDash]", CellMargins->{{55, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"OutputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{26, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Message", StyleMenuListing->None, FontSize->10, FontSlant->"Italic"], Cell[StyleData["Message", "Printout"], CellMargins->{{55, 55}, {0, 3}}, FontSize->8] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["Print"], CellMargins->{{55, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{26, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, TextAlignment->Left, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Print", StyleMenuListing->None], Cell[StyleData["Print", "Printout"], CellMargins->{{54, 72}, {2, 10}}, FontSize->8] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Graphics"], CellMargins->{{55, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, DefaultFormatType->DefaultOutputFormatType, FormatType->InputForm, CounterIncrements->"Graphics", StyleMenuListing->None, Background->RGBColor[0.780011, 0.920012, 1], ButtonBoxOptions->{Background->RGBColor[0.750011, 0.630014, 0.760021]}], Cell[StyleData["Graphics", "Printout"], CellMargins->{{55, 55}, {0, 15}}, ImageSize->{0.0625, 0.0625}, ImageMargins->{{35, Inherited}, {Inherited, 0}}, FontSize->8] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["CellLabel"], CellMargins->{{9, Inherited}, {Inherited, Inherited}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->9, FontSlant->"Oblique"], Cell[StyleData["CellLabel", "Printout"], CellMargins->{{0, Inherited}, {Inherited, Inherited}}, FontSize->8] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Unique Styles", "Section"], Cell[CellGroupData[{ Cell[StyleData["Author"], CellMargins->{{45, Inherited}, {2, 20}}, CellGroupingRules->{"TitleGrouping", 20}, PageBreakBelow->False, CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, FontSize->14, FontWeight->"Bold"], Cell[StyleData["Author", "Printout"], CellMargins->{{36, Inherited}, {2, 30}}, FontSize->12] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Address"], CellMargins->{{45, Inherited}, {2, 2}}, CellGroupingRules->{"TitleGrouping", 30}, PageBreakBelow->False, LineSpacing->{1, 1}, CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, FontSize->12, FontSlant->"Italic"], Cell[StyleData["Address", "Printout"], CellMargins->{{36, Inherited}, {2, 2}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Abstract"], CellMargins->{{45, 75}, {Inherited, 30}}, LineSpacing->{1, 0}], Cell[StyleData["Abstract", "Printout"], CellMargins->{{36, 67}, {Inherited, 50}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Reference"], CellMargins->{{18, 40}, {2, 2}}, TextJustification->1, LineSpacing->{1, 0}], Cell[StyleData["Reference", "Printout"], CellMargins->{{18, 40}, {Inherited, 0}}, FontSize->8] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Automatic Numbering", "Section"], Cell["\<\ The following styles are useful for numbered equations, figures, \ etc. They automatically give the cell a FrameLabel containing a reference to \ a particular counter, and also increment that counter.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["NumberedEquation"], CellMargins->{{55, 10}, {0, 10}}, CellFrameLabels->{{None, Cell[ TextData[ {"(", CounterBox[ "NumberedEquation"], ")"}]]}, {None, None}}, DefaultFormatType->DefaultInputFormatType, CounterIncrements->"NumberedEquation", FormatTypeAutoConvert->False], Cell[StyleData["NumberedEquation", "Printout"], CellMargins->{{55, 55}, {0, 10}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["NumberedFigure"], CellMargins->{{55, 145}, {2, 10}}, CellHorizontalScrolling->True, CellFrameLabels->{{None, None}, {Cell[ TextData[ {"Figure ", CounterBox[ "NumberedFigure"]}], FontWeight -> "Bold"], None}}, CounterIncrements->"NumberedFigure", FormatTypeAutoConvert->False], Cell[StyleData["NumberedFigure", "Printout"], FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["NumberedTable"], CellMargins->{{55, 145}, {2, 10}}, CellFrameLabels->{{None, None}, {Cell[ TextData[ {"Table ", CounterBox[ "NumberedTable"]}], FontWeight -> "Bold"], None}}, TextAlignment->Center, CounterIncrements->"NumberedTable", FormatTypeAutoConvert->False], Cell[StyleData["NumberedTable", "Printout"], CellMargins->{{18, Inherited}, {Inherited, Inherited}}, FontSize->10] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Formulas and Programming", "Section"], Cell[CellGroupData[{ Cell[StyleData["DisplayFormula"], CellMargins->{{55, 10}, {2, 10}}, CellHorizontalScrolling->True, DefaultFormatType->DefaultInputFormatType, ScriptLevel->0, SingleLetterItalics->True, UnderoverscriptBoxOptions->{LimitsPositioning->True}], Cell[StyleData["DisplayFormula", "Printout"], FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ChemicalFormula"], CellMargins->{{55, 10}, {2, 10}}, DefaultFormatType->DefaultInputFormatType, AutoSpacing->False, ScriptLevel->1, ScriptBaselineShifts->{0.6, Automatic}, SingleLetterItalics->False, ZeroWidthTimes->True], Cell[StyleData["ChemicalFormula", "Printout"], FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Program"], CellMargins->{{18, 10}, {Inherited, 6}}, FontFamily->"Courier"], Cell[StyleData["Program", "Printout"], CellMargins->{{18, 30}, {Inherited, 4}}, FontSize->9.5] }, Closed]] }, Closed]] }, Open ]] }], MacintoshSystemPageSetup->"\<\ 00<0004/0B`000002mT8o?mooh<" ] (*********************************************************************** Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. ***********************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[1717, 49, 65, 0, 78, "Title"], Cell[1785, 51, 769, 15, 351, "Text"], Cell[CellGroupData[{ Cell[2579, 70, 27, 0, 53, "Subtitle"], Cell[2609, 72, 2112, 42, 223, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[4746, 118, 99, 4, 48, "Subsubsection"], Cell[4848, 124, 90, 3, 40, "Text"], Cell[4941, 129, 88, 3, 40, "Text"], Cell[CellGroupData[{ Cell[5054, 136, 431, 8, 76, "Input"], Cell[5488, 146, 1575, 39, 48, "Output"] }, Open ]], Cell[7078, 188, 186, 6, 42, "Text"], Cell[CellGroupData[{ Cell[7289, 198, 457, 8, 45, "Input"], Cell[7749, 208, 1575, 39, 48, "Output"] }, Open ]], Cell[9339, 250, 199, 8, 42, "Text"], Cell[CellGroupData[{ Cell[9563, 262, 1552, 40, 48, "Input"], Cell[11118, 304, 1575, 39, 48, "Output"] }, Open ]], Cell[12708, 346, 226, 4, 54, "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[12983, 356, 230, 6, 128, "Subtitle", Evaluatable->False], Cell[13216, 364, 337, 7, 54, "Text", Evaluatable->False], Cell[13556, 373, 125, 3, 40, "Text"], Cell[13684, 378, 90, 2, 28, "Input"], Cell[13777, 382, 106, 3, 54, "Text"], Cell[13886, 387, 97, 3, 28, "Input"], Cell[13986, 392, 104, 3, 41, "Input"], Cell[CellGroupData[{ Cell[14115, 399, 149, 5, 48, "Subsubsection", Evaluatable->False], Cell[CellGroupData[{ Cell[14289, 408, 133, 3, 30, "Input"], Cell[14425, 413, 307, 9, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14769, 427, 404, 9, 45, "Input"], Cell[15176, 438, 220, 5, 65, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15433, 448, 121, 3, 28, "Input"], Cell[CellGroupData[{ Cell[15579, 455, 109, 3, 28, "Input"], Cell[15691, 460, 1078, 17, 100, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16830, 484, 149, 5, 48, "Subsubsection", Evaluatable->False], Cell[CellGroupData[{ Cell[17004, 493, 109, 3, 28, "Input"], Cell[17116, 498, 245, 8, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17398, 511, 437, 10, 45, "Input"], Cell[17838, 523, 261, 4, 66, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18136, 532, 314, 9, 64, "Input"], Cell[CellGroupData[{ Cell[18475, 545, 109, 3, 28, "Input"], Cell[18587, 550, 853, 14, 97, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[19501, 571, 147, 5, 48, "Subsubsection", Evaluatable->False], Cell[CellGroupData[{ Cell[19673, 580, 111, 3, 30, "Input"], Cell[19787, 585, 102, 2, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19926, 592, 141, 3, 32, "Input"], Cell[20070, 597, 332, 6, 46, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[20451, 609, 121, 2, 48, "Subsubsection", Evaluatable->False], Cell[CellGroupData[{ Cell[20597, 615, 356, 7, 33, "Input"], Cell[20956, 624, 826, 19, 48, "Output"] }, Open ]], Cell[21797, 646, 187, 7, 43, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[22009, 657, 251, 6, 33, "Input"], Cell[22263, 665, 629, 15, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[22929, 685, 405, 9, 45, "Input"], Cell[23337, 696, 382, 7, 63, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23756, 708, 315, 9, 64, "Input"], Cell[24074, 719, 90, 2, 28, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[24213, 727, 106, 2, 48, "Subsubsection", Evaluatable->False], Cell[24322, 731, 337, 9, 64, "Input"], Cell[CellGroupData[{ Cell[24684, 744, 120, 3, 28, "Input"], Cell[24807, 749, 148, 3, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24992, 757, 135, 3, 29, "Input"], Cell[25130, 762, 220, 4, 43, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[25399, 772, 107, 2, 48, "Subsubsection", Evaluatable->False], Cell[25509, 776, 69, 0, 40, "Text"], Cell[25581, 778, 99, 2, 28, "Input"], Cell[25683, 782, 105, 3, 40, "Text"], Cell[25791, 787, 170, 4, 60, "Input"], Cell[25964, 793, 58, 0, 38, "Text"], Cell[26025, 795, 129, 3, 28, "Input"], Cell[26157, 800, 43, 0, 38, "Text"], Cell[26203, 802, 182, 4, 28, "Input"], Cell[26388, 808, 592, 15, 69, "Text"], Cell[26983, 825, 89, 1, 28, "Input"], Cell[27075, 828, 304, 9, 41, "Text"], Cell[27382, 839, 117, 4, 28, "Input"], Cell[27502, 845, 42, 0, 40, "Text"], Cell[CellGroupData[{ Cell[27569, 849, 132, 3, 52, "Input"], Cell[27704, 854, 710, 11, 123, "Output"] }, Open ]], Cell[28429, 868, 68, 0, 40, "Text"], Cell[CellGroupData[{ Cell[28522, 872, 134, 4, 44, "Input"], Cell[28659, 878, 358, 6, 84, "Output"] }, Open ]], Cell[29032, 887, 98, 3, 40, "Text"], Cell[29133, 892, 87, 1, 28, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[29257, 898, 44, 0, 48, "Subsubsection"], Cell[29304, 900, 466, 9, 68, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[29795, 913, 142, 3, 28, "Input"], Cell[29940, 918, 449, 9, 93, "Output"] }, Open ]], Cell[30404, 930, 139, 3, 40, "Text", Evaluatable->False], Cell[30546, 935, 117, 3, 28, "Input"], Cell[30666, 940, 162, 4, 40, "Text", Evaluatable->False], Cell[30831, 946, 180, 5, 28, "Input"], Cell[31014, 953, 120, 2, 40, "Text", Evaluatable->False], Cell[31137, 957, 216, 6, 28, "Input"], Cell[31356, 965, 181, 6, 54, "Text", Evaluatable->False], Cell[31540, 973, 247, 6, 28, "Input"], Cell[31790, 981, 105, 2, 38, "Text", Evaluatable->False], Cell[31898, 985, 120, 3, 28, "Input"], Cell[32021, 990, 87, 2, 40, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[32133, 996, 119, 3, 43, "Input"], Cell[32255, 1001, 2667, 39, 194, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[34971, 1046, 70, 0, 48, "Subsubsection"], Cell[35044, 1048, 162, 5, 54, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[35231, 1057, 141, 4, 44, "Input"], Cell[35375, 1063, 139, 3, 28, "Input"], Cell[35517, 1068, 117, 2, 40, "Text", Evaluatable->False], Cell[35637, 1072, 116, 3, 28, "Input"], Cell[35756, 1077, 120, 2, 40, "Text", Evaluatable->False], Cell[35879, 1081, 76, 2, 40, "Text", Evaluatable->False], Cell[35958, 1085, 104, 3, 28, "Input"], Cell[36065, 1090, 94, 2, 40, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[36184, 1096, 133, 3, 28, "Input"], Cell[36320, 1101, 5166, 99, 144, "Output"] }, Open ]], Cell[41501, 1203, 84, 2, 40, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[41610, 1209, 153, 4, 28, "Input"], Cell[41766, 1215, 760, 14, 58, "Output"] }, Open ]] }, Open ]], Cell[42553, 1233, 76, 0, 40, "Text"], Cell[42632, 1235, 63, 0, 40, "Text"], Cell[CellGroupData[{ Cell[42720, 1239, 133, 4, 44, "Input"], Cell[42856, 1245, 139, 3, 28, "Input"], Cell[42998, 1250, 117, 2, 40, "Text", Evaluatable->False], Cell[43118, 1254, 116, 3, 28, "Input"], Cell[43237, 1259, 131, 3, 40, "Text", Evaluatable->False], Cell[43371, 1264, 76, 2, 40, "Text", Evaluatable->False], Cell[43450, 1268, 104, 3, 28, "Input"], Cell[43557, 1273, 104, 2, 40, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[43686, 1279, 133, 3, 28, "Input"], Cell[43822, 1284, 5210, 101, 144, "Output"] }, Open ]], Cell[49047, 1388, 94, 2, 40, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[49166, 1394, 153, 4, 28, "Input"], Cell[49322, 1400, 762, 14, 58, "Output"] }, Open ]] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[50157, 1422, 191, 5, 101, "Subtitle", Evaluatable->False], Cell[CellGroupData[{ Cell[50373, 1431, 97, 3, 28, "Input"], Cell[50473, 1436, 104, 3, 41, "Input"], Cell[CellGroupData[{ Cell[50602, 1443, 140, 5, 40, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[50767, 1452, 169, 4, 30, "Input"], Cell[50939, 1458, 169, 3, 46, "Output"] }, Open ]], Cell[51123, 1464, 587, 12, 182, "Text", Evaluatable->False], Cell[51713, 1478, 515, 13, 74, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[52265, 1496, 140, 5, 40, "Text", Evaluatable->False], Cell[52408, 1503, 608, 15, 74, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[53053, 1523, 191, 5, 40, "Text", Evaluatable->False], Cell[53247, 1530, 282, 7, 32, "Input"] }, Open ]], Cell[53544, 1540, 100, 2, 40, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[53669, 1546, 195, 5, 43, "Input"], Cell[53867, 1553, 177, 4, 43, "Input"] }, Open ]], Cell[54059, 1560, 101, 2, 40, "Text", Evaluatable->False], Cell[54163, 1564, 679, 17, 62, "Input"], Cell[54845, 1583, 127, 3, 28, "Input"], Cell[CellGroupData[{ Cell[54997, 1590, 106, 2, 40, "Text", Evaluatable->False], Cell[55106, 1594, 337, 9, 64, "Input"], Cell[55446, 1605, 125, 3, 28, "Input"], Cell[55574, 1610, 140, 3, 29, "Input"] }, Open ]], Cell[55729, 1616, 156, 4, 28, "Input"], Cell[55888, 1622, 180, 5, 28, "Input"], Cell[56071, 1629, 193, 5, 28, "Input"], Cell[56267, 1636, 104, 2, 40, "Text", Evaluatable->False], Cell[56374, 1640, 199, 5, 28, "Input"], Cell[56576, 1647, 104, 2, 40, "Text", Evaluatable->False], Cell[56683, 1651, 247, 6, 28, "Input"], Cell[56933, 1659, 129, 3, 28, "Input"], Cell[57065, 1664, 120, 3, 28, "Input"], Cell[57188, 1669, 116, 3, 43, "Input"], Cell[CellGroupData[{ Cell[57329, 1676, 133, 4, 44, "Input"], Cell[57465, 1682, 139, 3, 28, "Input"], Cell[CellGroupData[{ Cell[57629, 1689, 116, 3, 28, "Input"], Cell[57748, 1694, 373, 7, 21, "Message"] }, Open ]], Cell[CellGroupData[{ Cell[58158, 1706, 244, 5, 54, "Text"], Cell[CellGroupData[{ Cell[58427, 1715, 87, 2, 28, "Input"], Cell[58517, 1719, 51672, 1467, 312, 13434, 990, "GraphicsData", "PostScript", \ "Graphics"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[110238, 3192, 87, 2, 28, "Input"], Cell[110328, 3196, 101639, 1732, 312, 7298, 562, "GraphicsData", \ "PostScript", "Graphics"] }, Open ]], Cell[211982, 4931, 146, 4, 28, "Input"], Cell[212131, 4937, 105, 3, 28, "Input"], Cell[212239, 4942, 304, 10, 42, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[212568, 4956, 110, 3, 28, "Input"], Cell[212681, 4961, 2340, 46, 88, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[215082, 5014, 141, 4, 44, "Input"], Cell[215226, 5020, 139, 3, 28, "Input"], Cell[CellGroupData[{ Cell[215390, 5027, 116, 3, 28, "Input"], Cell[215509, 5032, 373, 7, 21, "Message"] }, Open ]], Cell[215897, 5042, 146, 4, 28, "Input"], Cell[216046, 5048, 105, 3, 28, "Input"], Cell[CellGroupData[{ Cell[216176, 5055, 153, 4, 28, "Input"], Cell[216332, 5061, 2631, 52, 106, "Output"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[219024, 5120, 138, 5, 74, "Subtitle", Evaluatable->False], Cell[219165, 5127, 244, 6, 40, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[219434, 5137, 139, 3, 28, "Input"], Cell[219576, 5142, 318, 6, 21, "Message"] }, Open ]], Cell[219909, 5151, 555, 12, 124, "Input"], Cell[220467, 5165, 101, 3, 28, "Input"], Cell[CellGroupData[{ Cell[220593, 5172, 197, 4, 28, "Input"], Cell[220793, 5178, 373, 7, 21, "Message"], Cell[221169, 5187, 373, 7, 21, "Message"], Cell[221545, 5196, 373, 7, 21, "Message"], Cell[221921, 5205, 274, 5, 21, "Message"] }, Open ]], Cell[CellGroupData[{ Cell[222232, 5215, 131, 3, 28, "Input"], Cell[222366, 5220, 1564, 32, 442, "Output"], Cell[CellGroupData[{ Cell[223955, 5256, 129, 3, 28, "Input"], Cell[224087, 5261, 15487, 445, 198, 4180, 299, "GraphicsData", "PostScript", \ "Graphics", Evaluatable->False] }, Open ]], Cell[239589, 5709, 242, 6, 42, "Text"], Cell[239834, 5717, 136, 3, 28, "Input"], Cell[CellGroupData[{ Cell[239995, 5724, 129, 3, 28, "Input"], Cell[240127, 5729, 14406, 375, 198, 3200, 230, "GraphicsData", "PostScript", \ "Graphics", Evaluatable->False] }, Open ]] }, Open ]], Cell[254560, 6108, 75, 2, 40, "Text", Evaluatable->False], Cell[254638, 6112, 103, 3, 28, "Input"], Cell[CellGroupData[{ Cell[254766, 6119, 197, 4, 28, "Input"], Cell[254966, 6125, 373, 7, 21, "Message"], Cell[255342, 6134, 373, 7, 21, "Message"], Cell[255718, 6143, 373, 7, 21, "Message"], Cell[256094, 6152, 274, 5, 21, "Message"] }, Open ]], Cell[CellGroupData[{ Cell[256405, 6162, 131, 3, 28, "Input"], Cell[256539, 6167, 1587, 32, 442, "Output"], Cell[CellGroupData[{ Cell[258151, 6203, 129, 3, 28, "Input"], Cell[258283, 6208, 15509, 406, 198, 3483, 251, "GraphicsData", "PostScript", \ "Graphics", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[273829, 6619, 131, 3, 28, "Input"], Cell[273963, 6624, 1473, 32, 442, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[275473, 6661, 129, 3, 28, "Input"], Cell[275605, 6666, 13149, 377, 198, 3486, 251, "GraphicsData", "PostScript", \ "Graphics", Evaluatable->False] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[288815, 7050, 127, 4, 74, "Subtitle", Evaluatable->False], Cell[CellGroupData[{ Cell[288967, 7058, 441, 14, 58, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[289433, 7076, 618, 10, 100, "Input"], Cell[290054, 7088, 373, 7, 21, "Message"], Cell[290430, 7097, 373, 7, 21, "Message"], Cell[290806, 7106, 373, 7, 21, "Message"], Cell[291182, 7115, 274, 5, 21, "Message"], Cell[291459, 7122, 309, 6, 22, "Print"], Cell[291771, 7130, 305, 6, 22, "Print"], Cell[292079, 7138, 341, 7, 25, "Print"], Cell[292423, 7147, 342, 7, 25, "Print"], Cell[292768, 7156, 342, 7, 25, "Print"], Cell[293113, 7165, 346, 7, 25, "Print"], Cell[293462, 7174, 340, 7, 25, "Print"], Cell[293805, 7183, 342, 7, 25, "Print"], Cell[294150, 7192, 349, 7, 22, "Print"], Cell[294502, 7201, 341, 7, 25, "Print"], Cell[294846, 7210, 342, 7, 25, "Print"], Cell[295191, 7219, 343, 7, 25, "Print"], Cell[295537, 7228, 349, 7, 22, "Print"], Cell[295889, 7237, 340, 7, 25, "Print"], Cell[296232, 7246, 342, 7, 25, "Print"], Cell[296577, 7255, 348, 7, 25, "Print"], Cell[296928, 7264, 344, 7, 22, "Print"], Cell[297275, 7273, 341, 7, 25, "Print"], Cell[297619, 7282, 341, 7, 25, "Print"], Cell[297963, 7291, 347, 7, 25, "Print"], Cell[298313, 7300, 346, 7, 22, "Print"], Cell[298662, 7309, 343, 7, 22, "Print"], Cell[299008, 7318, 339, 7, 25, "Print"], Cell[299350, 7327, 349, 7, 25, "Print"], Cell[299702, 7336, 347, 7, 22, "Print"], Cell[300052, 7345, 343, 7, 22, "Print"], Cell[300398, 7354, 343, 7, 25, "Print"], Cell[300744, 7363, 348, 7, 25, "Print"], Cell[301095, 7372, 349, 7, 25, "Print"], Cell[301447, 7381, 347, 7, 22, "Print"], Cell[301797, 7390, 342, 7, 22, "Print"], Cell[302142, 7399, 341, 7, 25, "Print"], Cell[302486, 7408, 348, 7, 25, "Print"], Cell[302837, 7417, 342, 7, 25, "Print"], Cell[303182, 7426, 347, 7, 22, "Print"], Cell[303532, 7435, 343, 7, 22, "Print"], Cell[303878, 7444, 342, 7, 25, "Print"], Cell[304223, 7453, 348, 7, 25, "Print"], Cell[304574, 7462, 347, 7, 25, "Print"], Cell[304924, 7471, 347, 7, 22, "Print"], Cell[305274, 7480, 343, 7, 22, "Print"], Cell[305620, 7489, 342, 7, 25, "Print"], Cell[305965, 7498, 347, 7, 25, "Print"], Cell[306315, 7507, 347, 7, 25, "Print"], Cell[306665, 7516, 348, 7, 22, "Print"], Cell[307016, 7525, 343, 7, 22, "Print"], Cell[307362, 7534, 342, 7, 25, "Print"], Cell[307707, 7543, 348, 7, 25, "Print"], Cell[308058, 7552, 349, 7, 25, "Print"], Cell[308410, 7561, 345, 7, 22, "Print"], Cell[308758, 7570, 342, 7, 22, "Print"], Cell[309103, 7579, 341, 7, 25, "Print"], Cell[309447, 7588, 348, 7, 25, "Print"], Cell[309798, 7597, 342, 7, 25, "Print"], Cell[310143, 7606, 347, 7, 22, "Print"], Cell[310493, 7615, 342, 7, 22, "Print"], Cell[310838, 7624, 342, 7, 25, "Print"], Cell[311183, 7633, 348, 7, 25, "Print"], Cell[311534, 7642, 342, 7, 25, "Print"], Cell[311879, 7651, 346, 7, 22, "Print"], Cell[312228, 7660, 343, 7, 22, "Print"], Cell[312574, 7669, 342, 7, 25, "Print"], Cell[312919, 7678, 347, 7, 25, "Print"], Cell[313269, 7687, 343, 7, 25, "Print"], Cell[313615, 7696, 345, 7, 22, "Print"], Cell[313963, 7705, 343, 7, 22, "Print"], Cell[314309, 7714, 342, 7, 25, "Print"], Cell[314654, 7723, 348, 7, 25, "Print"], Cell[315005, 7732, 341, 7, 25, "Print"], Cell[315349, 7741, 348, 7, 22, "Print"], Cell[315700, 7750, 341, 7, 25, "Print"], Cell[316044, 7759, 341, 7, 25, "Print"], Cell[316388, 7768, 349, 7, 25, "Print"], Cell[316740, 7777, 349, 7, 25, "Print"], Cell[317092, 7786, 342, 7, 25, "Print"], Cell[317437, 7795, 349, 7, 25, "Print"], Cell[317789, 7804, 349, 7, 22, "Print"], Cell[318141, 7813, 348, 7, 25, "Print"], Cell[318492, 7822, 346, 7, 25, "Print"], Cell[318841, 7831, 343, 7, 25, "Print"] }, Closed]], Cell[CellGroupData[{ Cell[319221, 7843, 100, 2, 24, "Input"], Cell[319324, 7847, 1102, 26, 346, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[320463, 7878, 234, 5, 44, "Input"], Cell[320700, 7885, 19559, 595, 203, 7363, 439, "GraphicsData", "PostScript", \ "Graphics"] }, Open ]] }, Open ]] }, Closed]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)