(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 3.0, MathReader 3.0, or any compatible application. The data for the notebook starts with the line of 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[ 16406, 625]*) (*NotebookOutlinePosition[ 17461, 661]*) (* CellTagsIndexPosition[ 17417, 657]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{Cell[TextData["AbsArg"], "Title", Evaluatable->False, AspectRatioFixed->False], Cell[TextData["Stephan Kaufmann"], "Subsubtitle", Evaluatable->False, AspectRatioFixed->False], Cell[TextData[{ StyleBox["The functions ", Evaluatable->False, AspectRatioFixed->False], StyleBox["Abs", Evaluatable->False, AspectRatioFixed->False, FontFamily->"Courier"], StyleBox[" und ", Evaluatable->False, AspectRatioFixed->False], StyleBox["Arg", Evaluatable->False, AspectRatioFixed->False, FontFamily->"Courier"], StyleBox[" are generalized to work with symbolic expressions.", Evaluatable->False, AspectRatioFixed->False] }], "Special1", Evaluatable->False, AspectRatioFixed->False], Cell[CellGroupData[{Cell[TextData["Reference"], "Subsection", Evaluatable->False, AspectRatioFixed->False], Cell[CellGroupData[{Cell[TextData["Author"], "Subsubsection", Editable->False, Evaluatable->False, AspectRatioFixed->False], Cell[TextData[ "Stephan Kaufmann\nInstitute of Mechanics\nSwiss Federal Institute of \ Technology\nETH Zentrum, HG F38.4 \nCH-8092 Zuerich\nSwitzerland\n\ kaufmann@ifm.ethz.ch"], "SmallText", Editable->False, Evaluatable->False, AspectRatioFixed->False]}, Open]], Cell[CellGroupData[{Cell[TextData["Copyright Notice"], "Subsubsection", Editable->False, Evaluatable->False, AspectRatioFixed->False], Cell[TextData["Copyright \[Copyright] 1992 by Stephan Kaufmann"], "SmallText", Editable->False, Evaluatable->False, AspectRatioFixed->False], Cell[TextData[ "Permission is hereby granted to make copies of\tthis file for any purpose \ other than direct profit,\tor as part of a commercial product, provided this \ copyright notice is left intact.\tSale is prohibited.\n\t\nPermission is \ hereby granted to reproduce part or all of this file provided that the source \ is acknowledged."], "SmallText", Editable->False, Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[CellGroupData[{Cell[TextData["Version"], "Subsubsection", Evaluatable->False, AspectRatioFixed->False], Cell[TextData["Notebook Version 2.1 (E)"], "SmallText", Evaluatable->False, AspectRatioFixed->False]}, Open]], Cell[CellGroupData[{Cell[TextData["Requirements"], "Subsubsection", Evaluatable->False, AspectRatioFixed->False], Cell[TextData[{ StyleBox["This package is based on ", Evaluatable->False, AspectRatioFixed->True], StyleBox["SKPackages`NonNegativeQ`", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier"], StyleBox[" and ", Evaluatable->False, AspectRatioFixed->True], StyleBox["Algebra`ReIm`", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier"], StyleBox[". These packages must be present.", Evaluatable->False, AspectRatioFixed->True] }], "SmallText", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ StyleBox["Mathematica", Evaluatable->False, AspectRatioFixed->False, FontSlant->"Italic"], StyleBox[" Version: 2.0 or higher.", Evaluatable->False, AspectRatioFixed->False] }], "SmallText", Evaluatable->False, AspectRatioFixed->False], Cell[TextData[ "If[$VersionNumber < 2.0, Print[\n \"This package requires Mathematica \ version 2.0 or higher.\"]]"], "Input", InitializationCell->True, AspectRatioFixed->False]}, Open]]}, Open]], Cell[CellGroupData[{Cell[TextData["Discussion"], "Section", Evaluatable->False, AspectRatioFixed->False], Cell[CellGroupData[{Cell[TextData["Background"], "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ StyleBox["The built in functions ", Evaluatable->False, AspectRatioFixed->True], StyleBox["Re", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier"], StyleBox[", ", Evaluatable->False, AspectRatioFixed->True], StyleBox["Im", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier"], StyleBox[", ", Evaluatable->False, AspectRatioFixed->True], StyleBox["Conjugate", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier"], StyleBox[", ", Evaluatable->False, AspectRatioFixed->True], StyleBox["Abs", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier"], StyleBox[" and ", Evaluatable->False, AspectRatioFixed->True], StyleBox["Arg", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier"], StyleBox[" evaluate for numbers only. The package ", Evaluatable->False, AspectRatioFixed->True], StyleBox["Algebra`ReIm`", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier"], StyleBox[" extends ", Evaluatable->False, AspectRatioFixed->True], StyleBox["Re", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier"], StyleBox[", ", Evaluatable->False, AspectRatioFixed->True], StyleBox["Im", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier"], StyleBox[" and ", Evaluatable->False, AspectRatioFixed->True], StyleBox["Conjugate", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier"], StyleBox[" to symbols and expressions. This package also extends ", Evaluatable->False, AspectRatioFixed->True], StyleBox["Abs", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier"], StyleBox[" and ", Evaluatable->False, AspectRatioFixed->True], StyleBox["Arg", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier"], StyleBox[".\n\n", Evaluatable->False, AspectRatioFixed->True], StyleBox["Mathematica", Evaluatable->False, AspectRatioFixed->True, FontSlant->"Italic"], StyleBox[ " does not know a priori if a symbol stands for a real or a complex number. \ A real symbol can be defined by:", Evaluatable->False, AspectRatioFixed->True] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["a /: Im[a] = 0;"], "Input", AspectRatioFixed->True], Cell[TextData["or, equivalently, by:"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["Im[a] ^= 0;"], "Input", AspectRatioFixed->True], Cell[TextData[{ StyleBox["Abs", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier"], StyleBox[" and ", Evaluatable->False, AspectRatioFixed->True], StyleBox["Arg", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier"], StyleBox[ " often allow further simplification if information about the positivity of \ symbols is given. This can be done with the functions ", Evaluatable->False, AspectRatioFixed->True], StyleBox["Positive", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier"], StyleBox[", ", Evaluatable->False, AspectRatioFixed->True], StyleBox["Negative", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier"], StyleBox[" and ", Evaluatable->False, AspectRatioFixed->True], StyleBox["NonNegative", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier"], StyleBox[" or with ", Evaluatable->False, AspectRatioFixed->True], StyleBox["NonNegativeQ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier"], StyleBox[" from the package ", Evaluatable->False, AspectRatioFixed->True], StyleBox["SKPackages`NonNegativeQ`", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier"], StyleBox[", e.g.:", Evaluatable->False, AspectRatioFixed->True] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["Positive[a] ^= True;"], "Input", AspectRatioFixed->True]}, Open]], Cell[CellGroupData[{Cell[TextData["Examples"], "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ StyleBox["We assume ", Evaluatable->False, AspectRatioFixed->True], StyleBox["x", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier"], StyleBox[" and ", Evaluatable->False, AspectRatioFixed->True], StyleBox["y", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier"], StyleBox[" to be real:", Evaluatable->False, AspectRatioFixed->True] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["Im[x] ^= 0;"], "Input", AspectRatioFixed->True], Cell[TextData["Im[y] ^= 0;"], "Input", AspectRatioFixed->True], Cell[TextData["Now, the following absolute values can be calculated:"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData["Abs[x]"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ (x^2)^(1/2)\ \>", "\<\ 2 Sqrt[x ]\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[CellGroupData[{Cell[TextData["Abs[x^2]"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ x^2\ \>", "\<\ 2 x\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[CellGroupData[{Cell[TextData["Abs[x + I y]"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ (x^2 + y^2)^(1/2)\ \>", "\<\ 2 2 Sqrt[x + y ]\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[CellGroupData[{Cell[TextData["Abs[x y]"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ (x^2*y^2)^(1/2)\ \>", "\<\ 2 2 Sqrt[x y ]\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[TextData[ "If nothing else is said, the generic case is chosen, i.e.: the real part is \ assumed to be unequal to zero:"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData["Arg[x + I y]"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ ArcTan[y/x]\ \>", "\<\ y ArcTan[-] x\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[TextData[ "In the following example, the result is either 0 or \[Pi]. In such a case, \ the result will not be evaluated."], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData["Arg[x/y]"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ Arg[x/y]\ \>", "\<\ x Arg[-] y\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[TextData[ "With assumptions about the positivity or negativity of symbols, we get \ further simplifications:"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["Positive[x] ^= True;"], "Input", AspectRatioFixed->True], Cell[TextData["Negative[y] ^= True;"], "Input", AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData["Abs[x]"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ x\ \>", "\<\ x\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[CellGroupData[{Cell[TextData["Abs[y]"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ -y\ \>", "\<\ -y\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[CellGroupData[{Cell[TextData["Abs[x y]"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ -(x*y)\ \>", "\<\ -(x y)\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[CellGroupData[{Cell[TextData["Arg[x]"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ 0\ \>", "\<\ 0\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[CellGroupData[{Cell[TextData["Arg[x/y]"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ Pi\ \>", "\<\ Pi\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]]}, Open]]}, Open]], Cell[CellGroupData[{Cell[TextData["Implementation"], "Section", Evaluatable->False, AspectRatioFixed->False], Cell[CellGroupData[{Cell[TextData["Preparation"], "Subsection", Evaluatable->False, AspectRatioFixed->False], Cell[TextData[ "BeginPackage[\"SKPackages`AbsArg`\",\n \"Algebra`ReIm`\", \ \"SKPackages`NonNegativeQ`\"];"], "Input", InitializationCell->True, AspectRatioFixed->False], Cell[TextData[ "AbsArg::usage = \n\"The package AbsArg extends the definitions of Abs and \ Arg to symbols. Properties of symbols should be given in the form: Re[z] ^= \ z; Im[z] ^= 0; Positive[z] ^= True, Negative[x] ^= True etc.\";"], "Input", PageWidth->PaperWidth, InitializationCell->True, AspectRatioFixed->False], Cell[TextData["Begin[\"`Private`\"];"], "Input", InitializationCell->True, AspectRatioFixed->False]}, Open]], Cell[CellGroupData[{Cell[TextData["Definitions"], "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["protected = Unprotect[Abs, Arg];"], "Input", InitializationCell->True, AspectRatioFixed->False], Cell[TextData[ "Abs[z_] := Re[z] /; Im[z] == 0 && NonNegativeQ[Re[z]]"], "Input", InitializationCell->True, AspectRatioFixed->False], Cell[TextData[ "Abs[z_] := -Re[z] /; Im[z] == 0 && NonNegativeQ[-Re[z]]"], "Input", InitializationCell->True, AspectRatioFixed->False], Cell[TextData[ "Abs[z_] := Im[z] /; Re[z] == 0 && NonNegativeQ[Im[z]]"], "Input", InitializationCell->True, AspectRatioFixed->False], Cell[TextData[ "Abs[z_] := -Im[z] /; Re[z] == 0 && NonNegativeQ[-Im[z]]"], "Input", InitializationCell->True, AspectRatioFixed->False], Cell[TextData["Abs[z_] := Sqrt[Re[z]^2 + Im[z]^2]"], "Input", InitializationCell->True, AspectRatioFixed->False], Cell[TextData["Arg[z_] := 0 /; NonNegativeQ[z]"], "Input", InitializationCell->True, AspectRatioFixed->False], Cell[TextData["Arg[z_] := Pi /; NonNegativeQ[-z]"], "Input", InitializationCell->True, AspectRatioFixed->False], Cell[TextData["Arg[z_] := Pi/2 /; Re[z] == 0 && NonNegativeQ[Im[z]]"], "Input", InitializationCell->True, AspectRatioFixed->False], Cell[TextData[ "Arg[z_] := -Pi/2 /; Re[z] == 0 && NonNegativeQ[-Im[z]]"], "Input", InitializationCell->True, AspectRatioFixed->False], Cell[TextData[ "Arg[z_] := ArcTan[Im[z]/Re[z]] /; Re[z] =!= 0 && Im[z] =!= 0"], "Input", InitializationCell->True, AspectRatioFixed->False], Cell[TextData["Protect[Release[protected]];"], "Input", InitializationCell->True, AspectRatioFixed->False]}, Open]], Cell[CellGroupData[{Cell[TextData["Finish"], "Subsection", Evaluatable->False, AspectRatioFixed->False], Cell[TextData["End[];"], "Input", InitializationCell->True, AspectRatioFixed->False], Cell[TextData["EndPackage[];"], "Input", InitializationCell->True, AspectRatioFixed->False]}, Open]]}, Open]]}, Open]] }, FrontEndVersion->"Macintosh 3.0", ScreenRectangle->{{0, 640}, {0, 460}}, WindowToolbars->{}, CellGrouping->Manual, WindowSize->{520, 365}, WindowMargins->{{52, Automatic}, {Automatic, 16}}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, -1}}, ShowCellLabel->True, ShowCellTags->False, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False}, MacintoshSystemPageSetup->"\<\ AVU/IFiQKFD000000W7D@09ag@0000000O=J`09FV" ] (*********************************************************************** 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[CellGroupData[{ Cell[1731, 51, 82, 2, 70, "Title", Evaluatable->False], Cell[1816, 55, 98, 2, 70, "Subsubtitle", Evaluatable->False], Cell[1917, 59, 554, 20, 70, "Special1", Evaluatable->False], Cell[CellGroupData[{ Cell[2494, 81, 90, 2, 70, "Subsection", Evaluatable->False], Cell[CellGroupData[{ Cell[2607, 85, 109, 3, 70, "Subsubsection", Evaluatable->False], Cell[2719, 90, 259, 6, 70, "SmallText", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[3010, 98, 119, 3, 70, "Subsubsection", Evaluatable->False], Cell[3132, 103, 146, 3, 70, "SmallText", Evaluatable->False], Cell[3281, 108, 425, 8, 70, "SmallText", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[3738, 118, 91, 2, 70, "Subsubsection", Evaluatable->False], Cell[3832, 122, 104, 2, 70, "SmallText", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[3968, 126, 96, 2, 70, "Subsubsection", Evaluatable->False], Cell[4067, 130, 573, 20, 70, "SmallText", Evaluatable->False], Cell[4643, 152, 278, 10, 70, "SmallText", Evaluatable->False], Cell[4924, 164, 182, 4, 70, "Input", InitializationCell->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[5147, 170, 88, 2, 70, "Section", Evaluatable->False], Cell[CellGroupData[{ Cell[5258, 174, 90, 2, 70, "Subsection", Evaluatable->False], Cell[5351, 178, 2425, 92, 70, "Text", Evaluatable->False], Cell[7779, 272, 68, 1, 70, "Input"], Cell[7850, 275, 95, 2, 70, "Text", Evaluatable->False], Cell[7948, 279, 64, 1, 70, "Input"], Cell[8015, 282, 1464, 54, 70, "Text", Evaluatable->False], Cell[9482, 338, 73, 1, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[9587, 341, 88, 2, 70, "Subsection", Evaluatable->False], Cell[9678, 345, 497, 20, 70, "Text", Evaluatable->False], Cell[10178, 367, 64, 1, 70, "Input"], Cell[10245, 370, 64, 1, 70, "Input"], Cell[10312, 373, 127, 2, 70, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[10462, 377, 59, 1, 70, "Input"], Cell[10524, 380, 129, 7, 70, "Output", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[10685, 389, 61, 1, 70, "Input"], Cell[10749, 392, 109, 7, 70, "Output", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[10890, 401, 65, 1, 70, "Input"], Cell[10958, 404, 145, 7, 70, "Output", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[11135, 413, 61, 1, 70, "Input"], Cell[11199, 416, 139, 7, 70, "Output", Evaluatable->False] }, Closed]], Cell[11350, 425, 183, 4, 70, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[11556, 431, 65, 1, 70, "Input"], Cell[11624, 434, 140, 8, 70, "Output", Evaluatable->False] }, Closed]], Cell[11776, 444, 185, 4, 70, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[11984, 450, 61, 1, 70, "Input"], Cell[12048, 453, 128, 8, 70, "Output", Evaluatable->False] }, Closed]], Cell[12188, 463, 172, 4, 70, "Text", Evaluatable->False], Cell[12363, 469, 73, 1, 70, "Input"], Cell[12439, 472, 73, 1, 70, "Input"], Cell[CellGroupData[{ Cell[12535, 475, 59, 1, 70, "Input"], Cell[12597, 478, 104, 6, 70, "Output", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[12733, 486, 59, 1, 70, "Input"], Cell[12795, 489, 106, 6, 70, "Output", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[12933, 497, 61, 1, 70, "Input"], Cell[12997, 500, 114, 6, 70, "Output", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[13143, 508, 59, 1, 70, "Input"], Cell[13205, 511, 104, 6, 70, "Output", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[13341, 519, 61, 1, 70, "Input"], Cell[13405, 522, 106, 6, 70, "Output", Evaluatable->False] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[13561, 530, 92, 2, 70, "Section", Evaluatable->False], Cell[CellGroupData[{ Cell[13676, 534, 92, 2, 70, "Subsection", Evaluatable->False], Cell[13771, 538, 174, 4, 70, "Input", InitializationCell->True], Cell[13948, 544, 325, 6, 70, "Input", InitializationCell->True], Cell[14276, 552, 103, 2, 70, "Input", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[14411, 556, 91, 2, 70, "Subsection", Evaluatable->False], Cell[14505, 560, 114, 2, 70, "Input", InitializationCell->True], Cell[14622, 564, 136, 3, 70, "Input", InitializationCell->True], Cell[14761, 569, 138, 3, 70, "Input", InitializationCell->True], Cell[14902, 574, 136, 3, 70, "Input", InitializationCell->True], Cell[15041, 579, 138, 3, 70, "Input", InitializationCell->True], Cell[15182, 584, 116, 2, 70, "Input", InitializationCell->True], Cell[15301, 588, 113, 2, 70, "Input", InitializationCell->True], Cell[15417, 592, 115, 2, 70, "Input", InitializationCell->True], Cell[15535, 596, 134, 2, 70, "Input", InitializationCell->True], Cell[15672, 600, 137, 3, 70, "Input", InitializationCell->True], Cell[15812, 605, 143, 3, 70, "Input", InitializationCell->True], Cell[15958, 610, 110, 2, 70, "Input", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[16100, 614, 87, 2, 70, "Subsection", Evaluatable->False], Cell[16190, 618, 88, 2, 70, "Input", InitializationCell->True], Cell[16281, 622, 95, 2, 70, "Input", InitializationCell->True] }, Closed]] }, Closed]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)