(*********************************************************************** 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[ 373052, 11246]*) (*NotebookOutlinePosition[ 374029, 11276]*) (* CellTagsIndexPosition[ 373985, 11272]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell[TextData[StyleBox["Nuclear Matter Paper: DR/PDS Equation Checks", FontSize->18]], "Title", Evaluatable->False, TextAlignment->Center, AspectRatioFixed->True], Cell[TextData[{ StyleBox["Overview:\nIn this notebook, we check equations for the nuclear \ matter perturbative matching paper and generate numbers for the figures.\nWe \ do dimensional regularization with power divergence subtraction (DR/PDS) \ here.\n\nPlan:\nTry to make the equations and solutions as general as \ possible so that we can expand\n\n", Evaluatable->False, AspectRatioFixed->True], StyleBox["Mathematica", Evaluatable->False, AspectRatioFixed->True, FontSlant->"Italic"], StyleBox[" strategy:\n", Evaluatable->False, AspectRatioFixed->True], "Write equations as they appear in the notes, using := to define lhs's. \ Then the evaluation of the rhs is not performed until the lhs is actually \ used somewhere else. This avoids the mess of having explicit arguments for \ everything.\n", StyleBox["\n", Evaluatable->False, AspectRatioFixed->True] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell["Clear symbols", "Section", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ In order to avoid interference from symbols defined in other \ notebooks, we first Clear all symbols. We assume that the relevant symbols \ are in the Global` context.\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ \(Clear["\"]\)], "Input", AspectRatioFixed->True], Cell["\<\ Suppress spelling warnings (only do this after the notebook is \ debugged!).\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ \(\(\(\ \)\(Off[General::"\", General::"\"]\)\(\ \ \)\)\)], "Input", AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell["Date", "Section", Evaluatable->False, AspectRatioFixed->True], Cell["Print the date. The clock time is still buggy!", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(\((date = Date[\(-4\)]; \[IndentingNewLine]Print["\", date[\([2]\)], "\", date[\([3]\)], "\", date[\([1]\)], "\< at \>", date[\([4]\)], "\<:\>", date[\([5]\)]])\)\)], "Input"], Cell[BoxData[ InterpretationBox[\("Notebook run on: "\[InvisibleSpace]10\ \[InvisibleSpace]"/"\[InvisibleSpace]9\[InvisibleSpace]"/"\[InvisibleSpace]\ 1999\[InvisibleSpace]" at "\[InvisibleSpace]8\[InvisibleSpace]":"\ \[InvisibleSpace]17\), SequenceForm[ "Notebook run on: ", 10, "/", 9, "/", 1999, " at ", 8, ":", 17], Editable->False]], "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Define potentials and find free-space constants", "Section", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ Define the forward matrix element of the separable S-wave \ potential:\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ \(V0[k_]\ := \ 4\ Pi\ m/M\ \ alpha\ m^2\ /\((k^2 + m^2)\)^2\)], "Input"], Cell[BoxData[ \(kcotdel0[k_]\ := \ \(-4\)\ Pi\ /\ \((M\ V0[k])\)\ + \ I0[k]\)], "Input"], Cell["\<\ Since the potential is separable, we can analytically solve for k \ cot \[Delta].\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ \(I0[k_]\ := \ \((k^2 - m^2)\)/\((2 m)\)\)], "Input"], Cell["\<\ Define the forward K matrix. We should solve this more generally \ using the CR technology so that we can use different potentials, including \ multiple terms.\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(Kmat\ = \ \(-4\)\ Pi/M\ \ \ 1/kcotdel0[p]\)], "Input"], Cell[BoxData[ \(\(-\(\(4\ \[Pi]\)\/\(M\ \((\(-\(\((m\^2 + p\^2)\)\^2\/\(alpha\ m\^3\)\)\ \) + I0[p])\)\)\)\)\)], "Output"] }, Open ]], Cell["Effective range expansion:", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(s1\ = \ Series[kcotdel0[k], {k, 0, 8}]\)], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{\((\(-\(m\/2\)\) - m\/alpha)\), "+", \(\((1\/\(2\ m\) - 2\/\(alpha\ m\))\)\ k\^2\), "-", \(k\^4\/\(alpha\ m\^3\)\), "+", InterpretationBox[\(O[k]\^9\), SeriesData[ k, 0, {}, 0, 9, 1]]}], SeriesData[ k, 0, { Plus[ Times[ Rational[ -1, 2], m], Times[ -1, Power[ alpha, -1], m]], 0, Plus[ Times[ Rational[ 1, 2], Power[ m, -1]], Times[ -2, Power[ alpha, -1], Power[ m, -1]]], 0, Times[ -1, Power[ alpha, -1], Power[ m, -3]]}, 0, 9, 1]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(ERexpansion\ = \ \((Solve[{\(-1\)/as, 1/2\ r0, \ r1}\ == \ CoefficientList[s1, k^2], {as, r0, r1}])\)[\([1]\)]\)], "Input"], Cell[BoxData[ \({r0 \[Rule] \(-\(\(4 - alpha\)\/\(alpha\ m\)\)\), r1 \[Rule] \(-\(1\/\(alpha\ m\^3\)\)\), as \[Rule] \(2\ alpha\)\/\(\((2 + alpha)\)\ m\)}\)], "Output"] }, Open ]], Cell["Define the forward DR/PDS potential:", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ \(V0pds[k_]\ := \ C0\ + \ C2\ k^2\ + \ C4\ k^4\)], "Input"], Cell[BoxData[ \(kcotdel0pds[k_]\ := \ \(-4\)\ Pi\ /\ \((M\ V0pds[k])\)\ - \ mu\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(Kmatpds\ = \ \(-4\)\ Pi/M\ 1/kcotdel0pds[p]\)], "Input"], Cell[BoxData[ \(\(-\(\(4\ \[Pi]\)\/\(M\ \((\(-mu\) - \(4\ \[Pi]\)\/\(M\ \((C0 + C2\ \ p\^2 + C4\ p\^4)\)\))\)\)\)\)\)], "Output"] }, Open ]], Cell["DR/PDS effective range expansion:", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(s2\ = \ Series[kcotdel0pds[k], {k, 0, 4}]\)], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{\((\(-mu\) - \(4\ \[Pi]\)\/\(C0\ M\))\), "+", \(\(4\ C2\ \[Pi]\ k\^2\)\/\(C0\^2\ M\)\), "-", \(\(4\ \((\((C2\^2\/C0\^2 - C4\/C0)\)\ \[Pi])\)\ k\^4\)\/\(C0\ M\)\), "+", InterpretationBox[\(O[k]\^5\), SeriesData[ k, 0, {}, 0, 5, 1]]}], SeriesData[ k, 0, { Plus[ Times[ -1, mu], Times[ -4, Power[ C0, -1], Power[ M, -1], Pi]], 0, Times[ 4, Power[ C0, -2], C2, Power[ M, -1], Pi], 0, Times[ -4, Power[ C0, -1], Plus[ Times[ Power[ C0, -2], Power[ C2, 2]], Times[ -1, Power[ C0, -1], C4]], Power[ M, -1], Pi]}, 0, 5, 1]]], "Output"] }, Open ]], Cell["\<\ Match the effective range expansion term-by-term to find \ coefficients. This is to all orders in \[Alpha].\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(a1\ = \ \(Simplify[\ Solve[s1 == s2, {C0, C2, C4}]]\)[\([1]\)]\)], "Input"], Cell[BoxData[ \({C4 \[Rule] \(8\ alpha\ \((\((12 - 10\ alpha + alpha\^2)\)\ m + 4\ \ alpha\ mu)\)\ \[Pi]\)\/\(m\^3\ M\ \((\((2 + alpha)\)\ m - 2\ alpha\ \ mu)\)\^3\), C2 \[Rule] \(8\ \((\(-4\) + alpha)\)\ alpha\ \[Pi]\)\/\(m\ M\ \((\((2 + \ alpha)\)\ m - 2\ alpha\ mu)\)\^2\), C0 \[Rule] \(8\ alpha\ \[Pi]\)\/\(2\ m\ M + alpha\ m\ M - 2\ alpha\ M\ \ mu\)}\)], "Output"] }, Open ]], Cell["\<\ The a1 result agrees with Appendix (A7) and (A8). Check various equations in the paper:\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(a2\ = \ \(Simplify[\ Solve[s1 == s2, {C2, C4}]\ ]\)[\([1]\)]\)], "Input"], Cell[BoxData[ \({C4 \[Rule] \(C0\^2\ M\ \((\((\(-4\) + alpha)\)\^2\ C0\ m\ M - 16\ \ alpha\ \[Pi])\)\)\/\(64\ alpha\^2\ m\^3\ \[Pi]\^2\), C2 \[Rule] \(\((\(-4\) + alpha)\)\ C0\^2\ M\)\/\(8\ alpha\ m\ \ \[Pi]\)}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(Simplify[\ Solve[s1 == s2, {C4}]\ ]\)[\([1]\)]\)], "Input"], Cell[BoxData[ \({C4 \[Rule] \(C2\ \((\(-2\)\ C0 + \((\(-4\) + alpha)\)\ C2\ m\^2)\)\)\/\ \(\((\(-4\) + alpha)\)\ C0\ m\^2\)}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Simplify[\ \(-C0^2\)/ alpha\ M/\((2\ Pi\ m)\)\ \((1\ - \ alpha/4)\)\ /. \ a1\ ]\)], "Input"], Cell[BoxData[ \(\(8\ \((\(-4\) + alpha)\)\ alpha\ \[Pi]\)\/\(m\ M\ \((\((2 + alpha)\)\ \ m - 2\ alpha\ mu)\)\^2\)\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Simplify[ C2^2/C0\ - \ C0^2/alpha\ M/\((4\ Pi\ m^3)\)\ \ /. \ a1\ ]\)], "Input"], Cell[BoxData[ \(\(8\ alpha\ \((\((12 - 10\ alpha + alpha\^2)\)\ m + 4\ alpha\ mu)\)\ \ \[Pi]\)\/\(m\^3\ M\ \((\((2 + alpha)\)\ m - 2\ alpha\ mu)\)\^3\)\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Simplify[ Series[C2^2/C0\ - \ C0^2/alpha\ M/\((4\ Pi\ m^3)\)\ \ /. \ a1\ , {alpha, 0, 2}]]\)], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{\(\(12\ \[Pi]\ alpha\)\/\(m\^5\ M\)\), "+", \(\(\((\(-28\)\ m\ \[Pi] + 40\ mu\ \[Pi])\)\ alpha\^2\)\/\(m\^6\ M\)\), "+", InterpretationBox[\(O[alpha]\^3\), SeriesData[ alpha, 0, {}, 1, 3, 1]]}], SeriesData[ alpha, 0, { Times[ 12, Power[ m, -5], Power[ M, -1], Pi], Times[ Power[ m, -6], Power[ M, -1], Plus[ Times[ -28, m, Pi], Times[ 40, mu, Pi]]]}, 1, 3, 1]]], "Output"] }, Open ]], Cell["\<\ Expand the constants in powers of \[Alpha] and identify the DR/PDS \ perturbative coefficients.\ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \({C00, C01, C02}\ = \ CoefficientList[\ Simplify[Series[C0 /. a1, {alpha, 0, 2}]], \ alpha]\)], "Input"], Cell[BoxData[ \({0, \(4\ \[Pi]\)\/\(m\ M\), \(-\(\(2\ \((m - 2\ mu)\)\ \[Pi]\)\/\(m\^2\ M\)\)\)}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \({C20, C21, C22}\ = \ CoefficientList[\ Simplify[Series[C2 /. a1, {alpha, 0, 2}]], \ alpha]\)], "Input"], Cell[BoxData[ \({0, \(-\(\(8\ \[Pi]\)\/\(m\^3\ M\)\)\), \(2\ \((5\ m - 8\ mu)\)\ \ \[Pi]\)\/\(m\^4\ M\)}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \({C40, C41, C42}\ = \ CoefficientList[ Simplify[Series[C4 /. a1, {alpha, 0, 2}]], \ \ alpha]\)], "Input"], Cell[BoxData[ \({0, \(12\ \[Pi]\)\/\(m\^5\ M\), \(-\(\(4\ \((7\ m - 10\ mu)\)\ \[Pi]\)\/\(m\^6\ M\)\)\)}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Simplify[\(-\((M\ m/\((4 Pi)\))\)\) \((\ \((C21^2\ + \ 2\ C01\ C41)\) \((1/2\ - \ mu/m)\)\ + \ C01\ C21/m^2)\)]\)], "Input"], Cell[BoxData[ \(\(-\(\(4\ \((3\ m - 10\ mu)\)\ \[Pi]\)\/\(m\^6\ M\)\)\)\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Series[ C2^2/C0\ - \ C0^2/alpha\ M/\((4\ Pi\ m^3)\)\ /. \ {C2 \[Rule] \((alpha\ C21p\ \ + \ alpha^2\ C22p)\), \ C0 \[Rule] \((alpha\ C01p\ + \ alpha^2\ C02p)\)}, {alpha, 0, 2}]\)], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{\(\((C21p\^2\/C01p - \(C01p\^2\ M\)\/\(4\ m\^3\ \[Pi]\))\)\ \ alpha\), "+", \(\((\(-\(\(C02p\ C21p\^2\)\/C01p\^2\)\) + \(2\ C21p\ \ C22p\)\/C01p - \(C01p\ C02p\ M\)\/\(2\ m\^3\ \[Pi]\))\)\ alpha\^2\), "+", InterpretationBox[\(O[alpha]\^3\), SeriesData[ alpha, 0, {}, 1, 3, 1]]}], SeriesData[ alpha, 0, { Plus[ Times[ Power[ C01p, -1], Power[ C21p, 2]], Times[ Rational[ -1, 4], Power[ C01p, 2], Power[ m, -3], M, Power[ Pi, -1]]], Plus[ Times[ -1, Power[ C01p, -2], C02p, Power[ C21p, 2]], Times[ 2, Power[ C01p, -1], C21p, C22p], Times[ Rational[ -1, 2], C01p, C02p, Power[ m, -3], M, Power[ Pi, -1]]]}, 1, 3, 1]]], "Output"] }, Open ]], Cell[BoxData[ \(\(\(\ \)\(vgv1\ = Simplify[ Series[Series[Kmat, {alpha, 0, 2}]\ , \[IndentingNewLine]{p, 0, 0}\ ]\ /. \ p \[Rule] k];\)\)\)], "Input"], Cell[BoxData[ \(\(vgvpds1\ = \ Simplify[ Series[Series[ Kmatpds\ /. \ {C0 \[Rule] C01pds\ alpha\ + \ C02pds\ alpha^2, C2 -> 0, \ C4 -> \ 0}, {alpha, 0, 2}]\ , \[IndentingNewLine]{p, 0, 0}\ ]\ /. \ p \[Rule] k];\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(w1pds\ = \ \(ExpandAll[ Simplify[\ Solve[vgv1 \[Equal] vgvpds1, {C01pds, C02pds}]]]\)[\([1]\)]\)], "Input"], Cell[BoxData[ \({C02pds \[Rule] \(-\(\(2\ \[Pi]\)\/\(m\ M\)\)\) + \(4\ mu\ \[Pi]\)\/\(m\ \^2\ M\), C01pds \[Rule] \(4\ \[Pi]\)\/\(m\ M\)}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Simplify[vgv1\ - \ vgvpds1\ /. \ w1pds]\)], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{ InterpretationBox[\(O[k]\^1\), SeriesData[ k, 0, {}, 1, 1, 1]], " ", "alpha"}], "+", RowBox[{ InterpretationBox[\(O[k]\^1\), SeriesData[ k, 0, {}, 1, 1, 1]], " ", \(alpha\^2\)}], "+", InterpretationBox[\(O[alpha]\^3\), SeriesData[ alpha, 0, {}, 1, 3, 1]]}], SeriesData[ alpha, 0, { SeriesData[ k, 0, {}, 1, 1, 1], SeriesData[ k, 0, {}, 1, 1, 1]}, 1, 3, 1]]], "Output"] }, Open ]], Cell[BoxData[ \(\(\(\ \)\(vgv2\ = Simplify[ Series[Series[Kmat, {alpha, 0, 2}]\ , \[IndentingNewLine]{p, 0, 2}\ ]\ /. \ p \[Rule] k];\)\)\)], "Input"], Cell[BoxData[ \(\(vgv2tot\ = \ 4\ Pi/M\ \((\ alpha\ m^3/\((k^2 + m^2)\)^2\ + \ alpha^2\ m^6/\((k^2 + m^2)\)^4\ \((\((k^2 - m^2)\)/\((2 m)\)\ - \ I\ k)\))\);\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(Series[Series[vgv2tot - vgv2, {alpha, 0, 2}], {k, 0, 3}]\)], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{ InterpretationBox[\(O[k]\^3\), SeriesData[ k, 0, {}, 3, 3, 1]], " ", "alpha"}], "+", RowBox[{ RowBox[{"(", InterpretationBox[ RowBox[{\(-\(\(4\ \[ImaginaryI]\ \[Pi]\ k\)\/\(m\^2\ M\)\)\), "+", InterpretationBox[\(O[k]\^3\), SeriesData[ k, 0, {}, 1, 3, 1]]}], SeriesData[ k, 0, { Times[ Complex[ 0, -4], Power[ m, -2], Power[ M, -1], Pi]}, 1, 3, 1]], ")"}], " ", \(alpha\^2\)}], "+", InterpretationBox[\(O[alpha]\^3\), SeriesData[ alpha, 0, {}, 1, 3, 1]]}], SeriesData[ alpha, 0, { SeriesData[ k, 0, {}, 3, 3, 1], SeriesData[ k, 0, { Times[ Complex[ 0, -4], Power[ m, -2], Power[ M, -1], Pi]}, 1, 3, 1]}, 1, 3, 1]]], "Output"] }, Open ]], Cell[BoxData[ \(\(\(\ \)\(vgvpds2\ = \ \ Simplify[ Series[Series[ Kmatpds /. {C0 \[Rule] C01pds\ alpha\ + \ C02pds\ alpha^2, C2 \[Rule] C21pds\ alpha\ + \ C22pds\ alpha^2, \ C4 -> \ 0}, {alpha, 0, 2}]\ , \[IndentingNewLine]{p, 0, 2}\ ]\ /. \ p \[Rule] k];\)\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(ExpandAll[ Simplify[\(\(\((vgv2 - vgvpds2)\)/\((4\ Pi/\((m\ M)\))\)\)/\((k/ m)\)^2\ /. \ w1pds\)\ /. \ {C21pds \[Rule] 0, C22pds \[Rule] 0}]]\)], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{ RowBox[{"(", InterpretationBox[ RowBox[{\(-2\), "+", InterpretationBox[\(O[k]\^1\), SeriesData[ k, 0, {}, 0, 1, 1]]}], SeriesData[ k, 0, {-2}, 0, 1, 1]], ")"}], " ", "alpha"}], "+", RowBox[{ RowBox[{"(", InterpretationBox[ RowBox[{\(5\/2\), "+", InterpretationBox[\(O[k]\^1\), SeriesData[ k, 0, {}, 0, 1, 1]]}], SeriesData[ k, 0, { Rational[ 5, 2]}, 0, 1, 1]], ")"}], " ", \(alpha\^2\)}], "+", InterpretationBox[\(O[alpha]\^3\), SeriesData[ alpha, 0, {}, 1, 3, 1]]}], SeriesData[ alpha, 0, { SeriesData[ k, 0, {-2}, 0, 1, 1], SeriesData[ k, 0, { Rational[ 5, 2]}, 0, 1, 1]}, 1, 3, 1]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(w2pds\ = \ \(ExpandAll[ Simplify[\ Solve[vgv2 \[Equal] vgvpds2, {C01pds, C21pds, C02pds, C22pds}]]]\)[\([1]\)]\)], "Input"], Cell[BoxData[ \({C02pds \[Rule] \(-\(\(2\ \[Pi]\)\/\(m\ M\)\)\) + \(4\ mu\ \[Pi]\)\/\(m\ \^2\ M\), C22pds \[Rule] \(10\ \[Pi]\)\/\(m\^3\ M\) - \(16\ mu\ \[Pi]\)\/\(m\^4\ \ M\), C21pds \[Rule] \(-\(\(8\ \[Pi]\)\/\(m\^3\ M\)\)\), C01pds \[Rule] \(4\ \[Pi]\)\/\(m\ M\)}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Simplify[vgv2\ - \ vgvpds2\ /. \ w2pds]\)], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{ InterpretationBox[\(O[k]\^3\), SeriesData[ k, 0, {}, 3, 3, 1]], " ", "alpha"}], "+", RowBox[{ InterpretationBox[\(O[k]\^3\), SeriesData[ k, 0, {}, 3, 3, 1]], " ", \(alpha\^2\)}], "+", InterpretationBox[\(O[alpha]\^3\), SeriesData[ alpha, 0, {}, 1, 3, 1]]}], SeriesData[ alpha, 0, { SeriesData[ k, 0, {}, 3, 3, 1], SeriesData[ k, 0, {}, 3, 3, 1]}, 1, 3, 1]]], "Output"] }, Open ]], Cell[BoxData[ \(\(\(\ \)\(vgv3\ = Simplify[ Series[Series[Kmat, {alpha, 0, 2}]\ , \[IndentingNewLine]{p, 0, 4}\ ]\ /. \ p \[Rule] k];\)\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(Series[Series[vgv2tot - vgv3, {alpha, 0, 2}], {k, 0, 4}]\)], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{ InterpretationBox[\(O[k]\^5\), SeriesData[ k, 0, {}, 5, 5, 1]], " ", "alpha"}], "+", RowBox[{ RowBox[{"(", InterpretationBox[ RowBox[{\(-\(\(4\ \[ImaginaryI]\ \[Pi]\ k\)\/\(m\^2\ M\)\)\), "+", \(\(16\ \[ImaginaryI]\ \[Pi]\ k\^3\)\/\(m\^4\ M\)\), "+", InterpretationBox[\(O[k]\^5\), SeriesData[ k, 0, {}, 1, 5, 1]]}], SeriesData[ k, 0, { Times[ Complex[ 0, -4], Power[ m, -2], Power[ M, -1], Pi], 0, Times[ Complex[ 0, 16], Power[ m, -4], Power[ M, -1], Pi]}, 1, 5, 1]], ")"}], " ", \(alpha\^2\)}], "+", InterpretationBox[\(O[alpha]\^3\), SeriesData[ alpha, 0, {}, 1, 3, 1]]}], SeriesData[ alpha, 0, { SeriesData[ k, 0, {}, 5, 5, 1], SeriesData[ k, 0, { Times[ Complex[ 0, -4], Power[ m, -2], Power[ M, -1], Pi], 0, Times[ Complex[ 0, 16], Power[ m, -4], Power[ M, -1], Pi]}, 1, 5, 1]}, 1, 3, 1]]], "Output"] }, Open ]], Cell[BoxData[ \(\(\(\ \)\(vgvpds3\ = \ \ Simplify[ Series[Series[ Kmatpds /. {C0 \[Rule] C01pds\ alpha\ + \ C02pds\ alpha^2, C2 \[Rule] C21pds\ alpha\ + \ C22pds\ alpha^2, \ C4 -> \ C41pds\ alpha\ + \ C42pds\ alpha^2}, {alpha, 0, 2}]\ , \[IndentingNewLine]{p, 0, 4}\ ]\ /. \ p \[Rule] k];\)\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(ExpandAll[ Simplify[\(\(\((vgv3 - vgvpds3)\)/\((4\ Pi/\((m\ M)\))\)\)/\((k/ m)\)^4\ /. \ w2pds\)\ /. \ {C41pds \[Rule] 0, C42pds \[Rule] 0}]]\)], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{ RowBox[{"(", InterpretationBox[ RowBox[{"3", "+", InterpretationBox[\(O[k]\^1\), SeriesData[ k, 0, {}, 0, 1, 1]]}], SeriesData[ k, 0, {3}, 0, 1, 1]], ")"}], " ", "alpha"}], "+", RowBox[{ RowBox[{"(", InterpretationBox[ RowBox[{\((\(-7\) + \(4\ mu\)\/m)\), "+", InterpretationBox[\(O[k]\^1\), SeriesData[ k, 0, {}, 0, 1, 1]]}], SeriesData[ k, 0, { Plus[ -7, Times[ 4, Power[ m, -1], mu]]}, 0, 1, 1]], ")"}], " ", \(alpha\^2\)}], "+", InterpretationBox[\(O[alpha]\^3\), SeriesData[ alpha, 0, {}, 1, 3, 1]]}], SeriesData[ alpha, 0, { SeriesData[ k, 0, {3}, 0, 1, 1], SeriesData[ k, 0, { Plus[ -7, Times[ 4, Power[ m, -1], mu]]}, 0, 1, 1]}, 1, 3, 1]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(w3pds\ = \ \(ExpandAll[ Simplify[\ Solve[vgv3 \[Equal] vgvpds3, {C01pds, C21pds, C41pds, C02pds, C22pds, C42pds}]]]\)[\([1]\)]\)], "Input"], Cell[BoxData[ \({C02pds \[Rule] \(-\(\(2\ \[Pi]\)\/\(m\ M\)\)\) + \(4\ mu\ \[Pi]\)\/\(m\ \^2\ M\), C22pds \[Rule] \(10\ \[Pi]\)\/\(m\^3\ M\) - \(16\ mu\ \[Pi]\)\/\(m\^4\ \ M\), C42pds \[Rule] \(-\(\(28\ \[Pi]\)\/\(m\^5\ M\)\)\) + \(40\ mu\ \[Pi]\)\/\ \(m\^6\ M\), C41pds \[Rule] \(12\ \[Pi]\)\/\(m\^5\ M\), C21pds \[Rule] \(-\(\(8\ \[Pi]\)\/\(m\^3\ M\)\)\), C01pds \[Rule] \(4\ \[Pi]\)\/\(m\ M\)}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Simplify[vgv3\ - \ vgvpds3\ /. \ w3pds]\)], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{ InterpretationBox[\(O[k]\^5\), SeriesData[ k, 0, {}, 5, 5, 1]], " ", "alpha"}], "+", RowBox[{ InterpretationBox[\(O[k]\^5\), SeriesData[ k, 0, {}, 5, 5, 1]], " ", \(alpha\^2\)}], "+", InterpretationBox[\(O[alpha]\^3\), SeriesData[ alpha, 0, {}, 1, 3, 1]]}], SeriesData[ alpha, 0, { SeriesData[ k, 0, {}, 5, 5, 1], SeriesData[ k, 0, {}, 5, 5, 1]}, 1, 3, 1]]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Free Space Error Plots", "Section", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ \(<< Graphics`\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(vgvtrue = \ Simplify[Normal[Series[Kmat, {alpha, 0, 2}]]] /. p \[Rule] k\)], "Input"], Cell[BoxData[ \(\(2\ alpha\ m\^3\ \((2\ k\^4 + \((4 + alpha)\)\ k\^2\ m\^2 - \((\(-2\) \ + alpha)\)\ m\^4)\)\ \[Pi]\)\/\(\((k\^2 + m\^2)\)\^4\ M\)\)], "Output"] }, Open ]], Cell[BoxData[ \(\(\(\ \)\(vgvDRtot1 = \ \ Simplify[ Normal[\(Series[ Kmatpds /. {C0 \[Rule] C01pds\ alpha\ + \ C02pds\ alpha^2, C2 \[Rule] 0, \ C4 -> \ 0}, {alpha, 0, 2}]\ \ /. \ w1pds\) /. \ p \[Rule] k]];\)\)\)], "Input"], Cell[BoxData[ \(\(\(\ \)\(vgvDRtot2 = \ \ Simplify[ Normal[\(Series[ Normal[Series[Kmatpds, {p, 0, 2}]] /. {C0 \[Rule] C01pds\ alpha\ + \ C02pds\ alpha^2, C2 \[Rule] C21pds\ alpha\ + \ C22pds\ alpha^2, \ C4 -> \ 0}, {alpha, 0, 2}]\ \ /. \ w2pds\) /. \ p \[Rule] k]];\)\)\)], "Input"], Cell[BoxData[ \(\(\(\ \)\(vgvDRtot3\ = \ \ Simplify[ Normal[\(Series[ Normal[Series[Kmatpds, {p, 0, 4}]] /. {C0 \[Rule] C01pds\ alpha\ + \ C02pds\ alpha^2, C2 \[Rule] C21pds\ alpha\ + \ C22pds\ alpha^2, \ C4 -> \ C41pds\ alpha\ + \ C42pds\ alpha^2}, {alpha, 0, 2}]\ \ /. \ w3pds\) /. \ p \[Rule] k]];\)\)\)], "Input"], Cell[BoxData[ \(\(parameters\ = \ {alpha \[Rule] \(- .5\), \ m \[Rule] 600, \ M \[Rule] 940, \ mu \[Rule] 600, \ g \[Rule] 4, \ Lambdac \[Rule] 600, \ Lc \[Rule] 600};\)\)], "Input"], Cell[BoxData[ \(ximin\ = \ .001; \ \ ximax\ = \ 2; \ \ delxi\ = \ 1.2;\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(\(vgvtrue\ /. \ k \[Rule] m\ xi\)\ /. \ parameters\)], "Input"], Cell[BoxData[ \(\(-\(\(721897.8863568036`\ \((3.24`*^11 + 4.536`*^11\ xi\^2 + 259200000000\ xi\^4)\)\)\/\((360000 + 360000\ xi\^2)\)\^4\)\)\ \)], "Output"] }, Open ]], Cell[BoxData[ \(xip[i_]\ := \ ximin\ delxi^i\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(LogLogPlot[{Evaluate[\(Abs[vgvtrue - vgvDRtot1]*10^6 /. \ k \[Rule] m\ xi\) /. \ parameters], \[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ Evaluate[\(Abs[vgvtrue - vgvDRtot2]*10^6 /. \ k \[Rule] m\ xi\)\ /. \ parameters], \[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ Evaluate[\(Abs[vgvtrue - vgvDRtot3]*10^6 /. \ k \[Rule] m\ xi\)\ /. \ parameters]\[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ }, \[IndentingNewLine]{xi, .001, 2}, \[IndentingNewLine]PlotRange \[Rule] {{ .001, 1. }, {10^\((\(-8\))\), 10}}, PlotStyle \[Rule] {Thickness[ .0015], GrayLevel[0]}]\)], "Input"], 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 1 0.333333 0.549364 0.0686704 [ [.23299 -0.0125 -17 -9.8125 ] [.23299 -0.0125 17 0 ] [.33333 -0.0125 -14 -9.8125 ] [.33333 -0.0125 14 0 ] [.56632 -0.0125 -14 -9.8125 ] [.56632 -0.0125 14 0 ] [.66667 -0.0125 -11 -9.8125 ] [.66667 -0.0125 11 0 ] [.89966 -0.0125 -11 -9.8125 ] [.89966 -0.0125 11 0 ] [1 -0.0125 -5 -9.8125 ] [1 -0.0125 5 0 ] [-0.0125 .13734 -47.1875 -6.0625 ] [-0.0125 .13734 0 6.0625 ] [-0.0125 .27468 -40 -4.90625 ] [-0.0125 .27468 0 4.90625 ] [-0.0125 .41202 -28 -4.90625 ] [-0.0125 .41202 0 4.90625 ] [-0.0125 .54936 -10 -4.90625 ] [-0.0125 .54936 0 4.90625 ] [ -0.0005 -0.0005 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .23299 0 m .23299 .00625 L s gsave .23299 -0.0125 -78 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.005) show 93.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .33333 0 m .33333 .00625 L s gsave .33333 -0.0125 -75 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.01) show 87.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .56632 0 m .56632 .00625 L s gsave .56632 -0.0125 -75 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.05) show 87.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .66667 0 m .66667 .00625 L s gsave .66667 -0.0125 -72 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.1) show 81.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .89966 0 m .89966 .00625 L s gsave .89966 -0.0125 -72 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.5) show 81.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 1 0 m 1 .00625 L s gsave 1 -0.0125 -66 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1) show 69.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .001 w .10034 0 m .10034 .00375 L s .15904 0 m .15904 .00375 L s .20069 0 m .20069 .00375 L s .25938 0 m .25938 .00375 L s .2817 0 m .2817 .00375 L s .30103 0 m .30103 .00375 L s .31808 0 m .31808 .00375 L s .43368 0 m .43368 .00375 L s .49237 0 m .49237 .00375 L s .53402 0 m .53402 .00375 L s .59272 0 m .59272 .00375 L s .61503 0 m .61503 .00375 L s .63436 0 m .63436 .00375 L s .65141 0 m .65141 .00375 L s .76701 0 m .76701 .00375 L s .82571 0 m .82571 .00375 L s .86735 0 m .86735 .00375 L s .92605 0 m .92605 .00375 L s .94837 0 m .94837 .00375 L s .9677 0 m .9677 .00375 L s .98475 0 m .98475 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .13734 m .00625 .13734 L s gsave -0.0125 .13734 -108.188 -10.0625 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.125 translate 1 -1 scale 63.000 13.562 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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.562 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1.) show 75.000 13.562 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 76.812 13.562 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 (\\264) show 84.625 13.562 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (10) show 96.625 9.375 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 96.625 9.375 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (-) show 100.875 9.375 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (6) show 105.125 9.375 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 7.125 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 .27468 m .00625 .27468 L s gsave -0.0125 .27468 -101 -8.90625 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.0001) show 99.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .41202 m .00625 .41202 L s gsave -0.0125 .41202 -89 -8.90625 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.01) show 87.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .54936 m .00625 .54936 L s gsave -0.0125 .54936 -71 -8.90625 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1) show 69.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .001 w 0 .07411 m .00375 .07411 L s 0 .09351 m .00375 .09351 L s 0 .10517 m .00375 .10517 L s 0 .11353 m .00375 .11353 L s 0 .12005 m .00375 .12005 L s 0 .1254 m .00375 .1254 L s 0 .12993 m .00375 .12993 L s 0 .13387 m .00375 .13387 L s 0 .21145 m .00375 .21145 L s 0 .23085 m .00375 .23085 L s 0 .24251 m .00375 .24251 L s 0 .25087 m .00375 .25087 L s 0 .25739 m .00375 .25739 L s 0 .26274 m .00375 .26274 L s 0 .26727 m .00375 .26727 L s 0 .27121 m .00375 .27121 L s 0 .34879 m .00375 .34879 L s 0 .36819 m .00375 .36819 L s 0 .37985 m .00375 .37985 L s 0 .38821 m .00375 .38821 L s 0 .39473 m .00375 .39473 L s 0 .40008 m .00375 .40008 L s 0 .40461 m .00375 .40461 L s 0 .40855 m .00375 .40855 L s 0 .48613 m .00375 .48613 L s 0 .50553 m .00375 .50553 L s 0 .51719 m .00375 .51719 L s 0 .52555 m .00375 .52555 L s 0 .53207 m .00375 .53207 L s 0 .53742 m .00375 .53742 L s 0 .54195 m .00375 .54195 L s 0 .54589 m .00375 .54589 L s .25 Mabswid 0 0 m 0 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .0015 w 1e-05 .24439 m .6381 .5069 L .74394 .5492 L .80138 .57091 L .84102 .58479 L .8739 .59522 L .89976 .60253 L .92296 .60828 L .94227 .61242 L .9587 .61547 L .97434 .61797 L s .97434 .61797 m .97481 .61803 L s .5 Mabswid .17847 0 m .6381 .3785 L .74394 .46457 L .80138 .51017 L .84102 .54065 L .8739 .56497 L .89976 .58328 L .92296 .59899 L .94227 .61147 L s .94227 .61147 m .95287 .61803 L s .0015 w .41706 0 m .6381 .24644 L .74394 .3762 L .80138 .44559 L .84102 .49257 L .8739 .53064 L .89976 .55981 L .92296 .5853 L .94227 .60595 L s .94227 .60595 m .95386 .61803 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{493.5, 305}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgOol01000Oomoo`0027oo 00@007ooOol000Eoo`03001oogoo01Moo`04001oogoo000:Ool00`00Oomoo`1DOol01000Oomoo`00 2goo00<007ooOol08Woo00<007ooOol00goo002;Ool01000Oomoo`0027oo00@007ooOol0009oo`04 001oogoo0005Ool00`00Oomoo`0AOol01000Oomoo`0027oo00@007ooOol000Aoo`03001oogoo04io o`04001oogoo0008Ool01000Oomoo`001Goo00<007ooOol05goo00@007ooOol000Yoo`03001oogoo 05Aoo`04001oogoo000;Ool00`00Oomoo`0ROol00`00Oomoo`03Ool008]oo`04001oogoo0008Ool0 1000Oomoo`000Woo00@007ooOol0009oo`<001Aoo`04001oogoo0008Ool01000Oomoo`0017oo00<0 07ooOol0CWoo00@007ooOol000Qoo`04001oogoo0002Ool3000JOol01000Oomoo`002Woo00<007oo Ool0E7oo00@007ooOol000Qoo`<002Eoo`03001oogoo00=oo`00Rgoo00@007ooOol000Qoo`04001o ogoo0002Ool01000Oomoo`000Woo00<007ooOol057oo00@007ooOol000Qoo`04001oogoo0004Ool0 0`00Oomoo`1>Ool01000Oomoo`0027oo00@007ooOol0009oo`03001oogoo01Yoo`04001oogoo000: Ool00`00Oomoo`1DOol01000Oomoo`0027oo00<007ooOol09Goo00<007ooOol00goo002;Ool01000 Oomoo`0027oo00@007ooOol0009oo`04001oogoo0002Ool00`00Oomoo`0DOol01000Oomoo`0027oo 00@007ooOol0009oo`<0051oo`04001oogoo0008Ool01000Oomoo`000Woo00<007ooOol06Woo00@0 07ooOol000Qoo`<005Ioo`04001oogoo0008Ool00`00Oomoo`0SOol30005Ool008aoo`8000Yoo`80 00Aoo`8000=oo`@001Aoo`8000Yoo`8000Eoo`03001oogoo04moo`8000Yoo`8000=oo`@001Yoo`80 00]oo`03001oogoo05Eoo`8000Uoo`@002Aoo`03001oogoo00=oo`00ogookWoo003oOoo^Ool00?mo onioo`00ogookWoo003oOoo^Ool003Aoool00;D000Eoo`00=7oo00<007ooOol0:Goo00<007ooOol0 5Woo00<007ooOol01goo00<007ooOol01Goo00<007ooOol02goo00<007ooOol02Goo00<007ooOol0 1goo00<007ooOol01Goo00<007ooOol017oo00<007ooOol017oo00<007ooOol08Woo00<007ooOol0 17oo00<007ooOol05Woo00<007ooOol03goo00<007ooOol02goo00<007ooOol02Goo00<007ooOol0 1goo00<007ooOol01Goo00<007ooOol017oo00<007ooOol017oo00<007ooOol0:Goo00<007ooOol0 5Woo00<007ooOol03goo00<007ooOol02goo00<007ooOol02Goo00<007ooOol01goo00<007ooOol0 1Goo00<007ooOol017oo00<007ooOol017oo00<007ooOol00goo000dOol00`00Oomoo`1=Ool2000C Ool00`00Oomoo`0YOol00`00Oomoo`0SOol00`00Oomoo`0lOol00`00Oomoo`0YOol00`00Oomoo`1R Ool00`00Oomoo`0YOol00`00Oomoo`03Ool003Aoo`03001oogoo04moo`03001oogoo06=oo`03001o ogoo0?ioo`00=7oo00<007ooOol0D7oo00<007ooOol0Hgoo00<007ooOol0oGoo000dOol00`00Oomo o`1AOol00`00Oomoo`1SOol00`00Oomoo`3lOol003Aoo`03001oogoo059oo`03001oogoo069oo`03 001oogoo0?aoo`00=7oo00<007ooOol0Dgoo0P00Hgoo00<007ooOol0ngoo000dOol00`00Oomoo`1E Ool00`00Oomoo`1QOol00`00Oomoo`3jOol003Aoo`03001oogoo05Ioo`03001oogoo065oo`03001o ogoo0?Uoo`00=7oo00<007ooOol0Egoo00<007ooOol0HGoo00<007ooOol0n7oo000dOol00`00Oomo o`1HOol2001ROol00`00Oomoo`3gOol003Aoo`03001oogoo05Yoo`03001oogoo061oo`03001oogoo 0?Ioo`00=7oo00<007ooOol0Fgoo00<007ooOol0H7oo00<007ooOol0mGoo000dOol00`00Oomoo`1L Ool00`00Oomoo`1POol00`00Oomoo`3dOol003Aoo`03001oogoo05eoo`03001oogoo061oo`03001o ogoo0?=oo`00=7oo00<007ooOol0GWoo0P00HGoo00<007ooOol0lWoo000dOol00`00Oomoo`1POol0 0`00Oomoo`1NOol00`00Oomoo`3bOol003Aoo`03001oogoo065oo`03001oogoo05ioo`03001oogoo 0?5oo`00=7oo00<007ooOol0HWoo00<007ooOol0GWoo00<007ooOol0l7oo000dOol00`00Oomoo`1S Ool00`00Oomoo`1NOol00`00Oomoo`3_Ool003Aoo`03001oogoo06Aoo`8005moo`03001oogoo0>io o`00=7oo00<007ooOol0IWoo00<007ooOol0GGoo00<007ooOol0kGoo000dOol00`00Oomoo`1WOol0 0`00Oomoo`1MOol00`00Oomoo`3/Ool003Aoo`03001oogoo06Qoo`03001oogoo05eoo`03001oogoo 0>]oo`00=7oo00<007ooOol0JGoo0P00GWoo00<007ooOol0jWoo000dOol00`00Oomoo`1[Ool00`00 Oomoo`1LOol00`00Oomoo`3YOol003Aoo`03001oogoo06aoo`03001oogoo05]oo`03001oogoo0>Uo o`00=7oo00<007ooOol0KGoo00<007ooOol0Fgoo00<007ooOol0j7oo000dOol00`00Oomoo`1^Ool0 0`00Oomoo`1KOol00`00Oomoo`3WOol003Aoo`03001oogoo06moo`8005aoo`03001oogoo0>Ioo`00 =7oo00<007ooOol0LGoo00<007ooOol0FWoo00<007ooOol0iGoo000dOol3001bOol00`00Oomoo`1J Ool00`00Oomoo`3TOol003Aoo`03001oogoo07=oo`03001oogoo05Yoo`03001oogoo0>=oo`00=7oo 00<007ooOol0M7oo0P00Fgoo00<007ooOol0hWoo000dOol00`00Oomoo`1fOol00`00Oomoo`1IOol0 0`00Oomoo`3QOol003Aoo`03001oogoo07Moo`03001oogoo05Uoo`03001oogoo0>1oo`00=7oo00<0 07ooOol0N7oo00<007ooOol0FGoo00<007ooOol0ggoo000dOol00`00Oomoo`1iOol00`00Oomoo`1H Ool00`00Oomoo`3OOol003Aoo`03001oogoo07Yoo`8005Uoo`03001oogoo0=ioo`00=7oo0`00O7oo 00<007ooOol0Egoo00<007ooOol0gGoo000dOol00`00Oomoo`1mOol00`00Oomoo`1GOol00`00Oomo o`3LOol003Aoo`03001oogoo07ioo`03001oogoo05Moo`03001oogoo0=]oo`00=7oo00<007ooOol0 Ogoo0P00F7oo00<007ooOol0fWoo000dOol00`00Oomoo`21Ool00`00Oomoo`1FOol00`00Oomoo`3I Ool003Aoo`<0089oo`03001oogoo05Ioo`03001oogoo0=Qoo`00=7oo00<007ooOol0Pgoo00<007oo Ool0EWoo00<007ooOol0egoo000dOol00`00Oomoo`24Ool00`00Oomoo`1FOol00`00Oomoo`3FOol0 03Aoo`03001oogoo08Eoo`8005Moo`03001oogoo0=Eoo`00=7oo0`00Qgoo00<007ooOol0E7oo00<0 07ooOol0eGoo000dOol00`00Oomoo`28Ool00`00Oomoo`1DOol00`00Oomoo`3DOol003Aoo`03001o ogoo08Uoo`03001oogoo05Aoo`03001oogoo0==oo`00=7oo0`00RWoo0P00EGoo00<007ooOol0dWoo 000dOol00`00Oomoo`2Ool000=oo`@000=oo`03001oogoo00=oo`05001o ogooOol00003Ool40003Ool2000COol00`00Oomoo`2@Ool2001DOol00`00Oomoo`3=Ool000Eoo`03 001oogoo00Uoo`03001oo`0000Ioo`05001oogooOol00002Ool00`00Oomoo`0@Ool3002BOol00`00 Oomoo`1BOol00`00Oomoo`3Ool00`00Oomoo`2mOol003Aoo`03001oogoo0:Qoo`03001o ogoo04aoo`03001oogoo0;aoo`00=7oo00<007ooOol0ZGoo00<007ooOol0C7oo00<007ooOol0^goo 000dOol00`00Oomoo`2ZOol00`00Oomoo`1goo00<007ooOol0T7oo000dOol00`00Oomo o`0_Ool3002dOol00`00Oomoo`0jOol00`00Oomoo`2@Ool003Aoo`03001oogoo039oo`800;=oo`03 001oogoo03Yoo`03001oogoo08moo`00=7oo00<007ooOol0=7oo0`00/Goo00<007ooOol0>Woo00<0 07ooOol0SWoo000dOol00`00Oomoo`0gOol2002`Ool2000kOol00`00Oomoo`2=Ool003Aoo`03001o ogoo03Uoo`<00:moo`03001oogoo03Uoo`03001oogoo08aoo`00=7oo00<007ooOol0?7oo0P00[Woo 00<007ooOol0>Goo00<007ooOol0Rgoo000dOol00`00Oomoo`0nOol3002/Ool00`00Oomoo`0hOol0 0`00Oomoo`2;Ool003Aoo`03001oogoo045oo`800:]oo`8003Uoo`03001oogoo08Yoo`00=7oo00<0 07ooOol0@goo0P00Zgoo00<007ooOol0=goo00<007ooOol0RGoo000dOol00`00Oomoo`15Ool3002Y Ool00`00Oomoo`0gOol00`00Oomoo`28Ool003Aoo`03001oogoo04Qoo`800:Qoo`03001oogoo03Mo o`03001oogoo08Moo`00=7oo00<007ooOol0BWoo0`00YWoo00<007ooOol0=Woo00<007ooOol0Qgoo 000dOol00`00Oomoo`1=Ool2002UOol2000gOol00`00Oomoo`26Ool003Aoo`03001oogoo04moo`<0 0:Aoo`03001oogoo03Eoo`03001oogoo08Eoo`00=7oo00<007ooOol0DWoo0P00Xgoo00<007ooOol0 =Goo00<007ooOol0Q7oo000dOol00`00Oomoo`1DOol3002QOol00`00Oomoo`0eOol00`00Oomoo`23 Ool003Aoo`03001oogoo05Moo`800:1oo`03001oogoo03Eoo`03001oogoo089oo`00=7oo00<007oo Ool0FGoo0P00Wgoo0P00=Goo00<007ooOol0PWoo000dOol00`00Oomoo`1KOol3002NOol00`00Oomo o`0cOol00`00Oomoo`21Ool003Aoo`03001oogoo05ioo`8009eoo`03001oogoo03=oo`03001oogoo 081oo`00=7oo00<007ooOol0H7oo0`00Vgoo00<007ooOol0Aoo`8005Yoo`03001oogoo01eoo`03001oogoo05=o o`00=7oo00<007ooOol0iWoo0`00F7oo00<007ooOol07Goo00<007ooOol0DWoo000dOol00`00Oomo o`3YOol2001GOol00`00Oomoo`0MOol00`00Oomoo`1AOol003Aoo`03001oogoo0>]oo`<005Eoo`80 01eoo`03001oogoo055oo`00=7oo00<007ooOol0kWoo0P00EGoo00<007ooOol06goo00<007ooOol0 D7oo000dOol00`00Oomoo`3`Ool3001COol00`00Oomoo`0KOol00`00Oomoo`1?Ool003Aoo`03001o ogoo0?=oo`80059oo`03001oogoo01]oo`03001oogoo04ioo`00=7oo00<007ooOol0mGoo0P00DGoo 0P0077oo00<007ooOol0CGoo000dOol00`00Oomoo`3gOol3001@Ool00`00Oomoo`0JOol00`00Oomo o`1Ool30015Ool00`00Oomoo`0FOol00`00 Oomoo`15Ool003Aoo`03001oogoo0?mooa5oo`8004Aoo`03001oogoo01Ioo`03001oogoo04Aoo`00 =7oo0`00ogoo4goo0`00@Woo0P005goo00<007ooOol0@goo000dOol00`00Oomoo`3oOolFOol20012 Ool00`00Oomoo`0EOol00`00Oomoo`12Ool003Aoo`03001oogoo0?mooaQoo`<0041oo`03001oogoo 01Eoo`03001oogoo045oo`00=7oo00<007ooOol0ogoo6goo0P00?goo00<007ooOol057oo00<007oo Ool0@Goo000dOol00`00Oomoo`3oOolMOol2000nOol2000EOol00`00Oomoo`10Ool003Aoo`<00?mo oamoo`<003eoo`03001oogoo01=oo`03001oogoo03moo`00=7oo00<007ooOol0ogoo8Woo0P00?7oo 00<007ooOol04goo00<007ooOol0?Woo000dOol00`00Oomoo`3oOolTOol3000jOol2000DOol00`00 Oomoo`0mOol003Aoo`<00?moobMoo`8003Yoo`03001oogoo019oo`03001oogoo03aoo`00=7oo00<0 07ooOol0ogoo:Goo0P00>Goo00<007ooOol04Goo00<007ooOol0?7oo000dOol00`00Oomoo`3oOol[ Ool3000gOol2000BOol00`00Oomoo`0kOol003Aoo`<00?moobioo`8003Moo`03001oogoo011oo`03 001oogoo03Yoo`00=7oo00<007ooOol0ogoo<7oo0`00=Goo00<007ooOol047oo00<007ooOol0>Goo 000dOol3003oOolcOol2000dOol2000AOol00`00Oomoo`0hOol003Aoo`03001oogoo0?moocEoo`<0 03=oo`03001oogoo00moo`03001oogoo03Moo`00=7oo0`00ogoo>7oo0P00Ool00`00Oomoo`0cOol002Yoo`03001oogoo00Moo`03001o ogoo0?moodAoo`<002aoo`03001oogoo00aoo`03001oogoo039oo`00:Woo00<007ooOol01goo00<0 07ooOol0ogooAgoo0P00:goo0P003Goo00<007ooOol0"], ImageRangeCache->{{{91.5625, 485.312}, {393.438, 150.438}} -> {-4.1534, \ -2.54333, 0.00690349, 0.0335102}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(\[IndentingNewLine]\)\(TableForm[ Table[{xip[ i], \[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ FortranForm[\[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \(Abs[ vgvtrue - vgvDRtot1]*10^6\ /. \ k \[Rule] m\ xip[i]\) /. parameters\ ], \[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ FortranForm[\[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \(Abs[vgvtrue - vgvDRtot2]*10^6 /. \ k \[Rule] m\ xip[i]\) /. parameters], \[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ FortranForm[\[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \(Abs[ vgvtrue - vgvDRtot3]*10^6 /. \ k \[Rule] m\ xip[i]\) /. parameters]}, \[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ {i, 0, Log[ximax/ximin]/ Log[delxi]}], \[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ TableSpacing \[Rule] {0, 1}]\)\)\)], "Input"], Cell[BoxData[ TagBox[GridBox[{ {"0.001`", InterpretationBox[ StyleBox["0.00003620622589547539", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 3.6206225895475392*^-05], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(7.241623479255915 e - 11\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 7.2416234792559153*^-11], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(5.082197683525802 e - 15\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 5.082197683525802*^-15], Editable->True, AutoDelete->True]}, {"0.0012`", InterpretationBox[ StyleBox["0.0000521369194104532", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 5.2136919410453197*^-05], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.5016030682334786 e - 10\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.5016030682334786*^-10], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(6.776263578034403 e - 15\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 6.7762635780344027*^-15], Editable->True, AutoDelete->True]}, {"0.0014399999999999999`", InterpretationBox[ StyleBox["0.00007507706881583563", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 7.5077068815835625*^-05], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(3.113642292129973 e - 10\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 3.1136422921299728*^-10], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(5.082197683525802 e - 15\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 5.082197683525802*^-15], Editable->True, AutoDelete->True]}, {"0.0017279999999999997`", InterpretationBox[ StyleBox["0.00010811078182855482", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.00010811078182855482], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(6.456305352538563 e - 10\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 6.4563053525385633*^-10], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(8.470329472543003 e - 15\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 8.4703294725430034*^-15], Editable->True, AutoDelete->True]}, {"0.0020736`", InterpretationBox[ StyleBox["0.00015567911675699853", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.00015567911675699853], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.338786395112257 e - 9\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.3387863951122569*^-09], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(8.470329472543003 e - 15\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 8.4703294725430034*^-15], Editable->True, AutoDelete->True]}, {"0.0024883199999999996`", InterpretationBox[ StyleBox["0.0002241770798908202", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.00022417707989082019], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(2.776092886385556 e - 9\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.7760928863855561*^-09], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(3.3881317890172014 e - 14\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 3.3881317890172014*^-14], Editable->True, AutoDelete->True]}, {"0.0029859839999999993`", InterpretationBox[ StyleBox["0.0003228132361268244", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.00032281323612682439], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(5.75648673151706 e - 9\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 5.7564867315170604*^-09], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(8.470329472543003 e - 14\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 8.4703294725430034*^-14], Editable->True, AutoDelete->True]}, {"0.0035831807999999995`", InterpretationBox[ StyleBox["0.0004648474128035173", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.00046484741280351728], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.193656108742884 e - 8\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.193656108742884*^-08], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(2.659683454378503 e - 13\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.6596834543785031*^-13], Editable->True, AutoDelete->True]}, {"0.0042998169599999985`", InterpretationBox[ StyleBox["0.0006693727116916046", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.00066937271169160463], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(2.4751395391272614 e - 8\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.4751395391272614*^-08], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(8.182338270476541 e - 13\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 8.1823382704765413*^-13], Editable->True, AutoDelete->True]}, {"0.005159780351999999`", InterpretationBox[ StyleBox["0.0009638810230776506", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.00096388102307765056], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(5.1323765929475046 e - 8\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 5.1323765929475046*^-08], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(2.417432031463773 e - 12\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.4174320314637732*^-12], Editable->True, AutoDelete->True]}, {"0.006191736422399998`", InterpretationBox[ StyleBox["0.0013879561566973214", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.0013879561566973214], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.0642275770486251 e - 7\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.0642275770486251*^-07], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(7.216720710606639 e - 12\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 7.2167207106066389*^-12], Editable->True, AutoDelete->True]}, {"0.007430083706879997`", InterpretationBox[ StyleBox["0.001998589442772929", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.0019985894427729288], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(2.2067164413862913 e - 7\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.2067164413862913*^-07], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(2.1553600375832926 e - 11\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.1553600375832926*^-11], Editable->True, AutoDelete->True]}, {"0.008916100448255996`", InterpretationBox[ StyleBox["0.0028778289996971287", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.0028778289996971287], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(4.5756506188968007 e - 7\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 4.5756506188968007*^-07], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(6.43507870688037 e - 11\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 6.4350787068803705*^-11], Editable->True, AutoDelete->True]}, {"0.010699320537907194`", InterpretationBox[ StyleBox["0.004143783905060416", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.0041437839050604162], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(9.487481956879868 e - 7\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 9.4874819568798677*^-07], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.9215958848000508 e - 10\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.9215958848000508*^-10], Editable->True, AutoDelete->True]}, {"0.012839184645488633`", InterpretationBox[ StyleBox["0.005966447871703175", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.0059664478717031746], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.9671489846664718 e - 6\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.9671489846664718*^-06], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(5.737326846250168 e - 10\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 5.7373268462501681*^-10], Editable->True, AutoDelete->True]}, {"0.01540702157458636`", InterpretationBox[ StyleBox["0.008590439072902382", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.0085904390729023821], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(4.0785568891925535 e - 6\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 4.0785568891925535*^-06], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.712939482639321 e - 9\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.712939482639321*^-09], Editable->True, AutoDelete->True]}, {"0.01848842588950363`", InterpretationBox[ StyleBox["0.01236764965332831", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.01236764965332831], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(8.455733571896573 e - 6\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 8.4557335718965726*^-06], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(5.113942784322999 e - 9\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 5.1139427843229987*^-09], Editable->True, AutoDelete->True]}, {"0.022186111067404354`", InterpretationBox[ StyleBox["0.01780406261015402", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.01780406261015402], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.000017529146980921643", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.7529146980921643*^-05], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.5266425480004418 e - 8\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.5266425480004418*^-08], Editable->True, AutoDelete->True]}, {"0.026623333280885227`", InterpretationBox[ StyleBox["0.025626757603845328", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.025626757603845328], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.00003633452643000566", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 3.6334526430005661*^-05], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(4.5569210433077725 e - 8\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 4.5569210433077725*^-08], Editable->True, AutoDelete->True]}, {"0.03194799993706227`", InterpretationBox[ StyleBox["0.03687955090113734", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.036879550901137342], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.00007530176645670046", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 7.5301766456700465*^-05], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.3599985903883696 e - 7\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.3599985903883696*^-07], Editable->True, AutoDelete->True]}, {"0.038337599924474726`", InterpretationBox[ StyleBox["0.05305896588578436", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.053058965885784362], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.0001560219555531557", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.0001560219555531557], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(4.0579668497805945 e - 7\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 4.0579668497805945*^-07], Editable->True, AutoDelete->True]}, {"0.04600511990936966`", InterpretationBox[ StyleBox["0.07630642433322787", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.076306424333227874], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.00032315815829877116", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.00032315815829877116], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.210428743456289 e - 6\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.2104287434562891*^-06], Editable->True, AutoDelete->True]}, {"0.0552061438912436`", InterpretationBox[ StyleBox["0.10967759694324279", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.10967759694324279], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.000669001844554894", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.00066900184455489402], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(3.6088575331501716 e - 6\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 3.6088575331501716*^-06], Editable->True, AutoDelete->True]}, {"0.06624737266949232`", InterpretationBox[ StyleBox["0.15751512928341035", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.15751512928341035], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.001383972971018651", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.0013839729710186509], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.000010752580834248152", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.0752580834248152*^-05], Editable->True, AutoDelete->True]}, {"0.07949684720339077`", InterpretationBox[ StyleBox["0.22595461121822769", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.22595461121822769], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.0028600960281491197", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.0028600960281491197], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.000032006876166915284", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 3.2006876166915284*^-05], Editable->True, AutoDelete->True]}, {"0.09539621664406893`", InterpretationBox[ StyleBox["0.3235912582835697", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.32359125828356972], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.005901920151213589", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.0059019201512135891], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.00009514443117404332", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 9.5144431174043324*^-05], Editable->True, AutoDelete->True]}, {"0.11447545997288272`", InterpretationBox[ StyleBox["0.46231694381135335", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.46231694381135335], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.012153233134733866", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.012153233134733866], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.00028227998330319264", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.00028227998330319264], Editable->True, AutoDelete->True]}, {"0.13737055196745926`", InterpretationBox[ StyleBox["0.6582859479057916", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.65828594790579165], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.024951106896574274", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.024951106896574274], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.0008351731049868348", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.0008351731049868348], Editable->True, AutoDelete->True]}, {"0.16484466236095108`", InterpretationBox[ StyleBox["0.9328522782713901", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.93285227827139006], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.05100908064401432", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.051009080644014319], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.0024613495672247783", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.0024613495672247783], Editable->True, AutoDelete->True]}, {"0.1978135948331413`", InterpretationBox[ StyleBox["1.3130981482731636", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.3130981482731636], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.10366220856502231", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.10366220856502231], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.007214075521005766", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.0072140755210057658], Editable->True, AutoDelete->True]}, {"0.23737631379976953`", InterpretationBox[ StyleBox["1.8312046240845952", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.8312046240845952], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.20893028976239136", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.20893028976239136], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.020982772918388768", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.020982772918388768], Editable->True, AutoDelete->True]}, {"0.28485157655972343`", InterpretationBox[ StyleBox["2.521439045738474", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.5214390457384739], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.4163552302011834", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.41635523020118342], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.060392496573678664", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.060392496573678664], Editable->True, AutoDelete->True]}, {"0.3418218918716681`", InterpretationBox[ StyleBox["3.413221964807301", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 3.4132219648073008], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.8172017925458069", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.81720179254580694], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.17138229369454816", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.17138229369454816], Editable->True, AutoDelete->True]}, {"0.4101862702460017`", InterpretationBox[ StyleBox["4.519313718678418", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 4.5193137186784176], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["1.5724964919100555", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.5724964919100555], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.47743146931794356", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.47743146931794356], Editable->True, AutoDelete->True]}, {"0.4922235242952021`", InterpretationBox[ StyleBox["5.820738440652618", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 5.8207384406526179], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["2.9514682625947883", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.9514682625947883], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["1.2992623578075986", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.2992623578075986], Editable->True, AutoDelete->True]}, {"0.5906682291542424`", InterpretationBox[ StyleBox["7.254962513391385", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 7.2549625133913853], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["5.377015139284875", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 5.3770151392848753], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["3.4372998751815054", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 3.4372998751815054], Editable->True, AutoDelete->True]}, {"0.708801874985091`", InterpretationBox[ StyleBox["8.718011413768128", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 8.7180114137681279], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["9.472036406085687", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 9.472036406085687], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["8.805327207911798", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 8.8053272079117981], Editable->True, AutoDelete->True]}, {"0.850562249982109`", InterpretationBox[ StyleBox["10.087605384122519", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 10.087605384122519], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["16.10606347646697", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 16.106063476466971], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["21.793877713518206", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 21.793877713518206], Editable->True, AutoDelete->True]}, {"1.0206746999785308`", InterpretationBox[ StyleBox["11.259900362430177", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 11.259900362430177], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["26.45898279681868", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 26.458982796818681], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["52.13033525473455", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 52.130335254734547], Editable->True, AutoDelete->True]}, {"1.224809639974237`", InterpretationBox[ StyleBox["12.178913188091984", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 12.178913188091984], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["42.136278561226376", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 42.136278561226376], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["120.82653135047445", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 120.82653135047445], Editable->True, AutoDelete->True]}, {"1.4697715679690841`", InterpretationBox[ StyleBox["12.842411588396661", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 12.842411588396661], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["65.37146453062175", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 65.371464530621751], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["272.5482181022809", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 272.54821810228088], Editable->True, AutoDelete->True]}, {"1.763725881562901`", InterpretationBox[ StyleBox["13.286816942760703", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 13.286816942760703], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["99.34116466862584", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 99.341164668625836], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["601.3690892389611", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 601.36908923896112], Editable->True, AutoDelete->True]} }, RowSpacings->0, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{Left}], (TableForm[ #, TableSpacing -> {0, 1}]&)]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Nuclear Matter Energy/A", "Section", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ General definitions of dimensionless variable \[Xi] and density \ \>", "Text", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ \(kf\ := \ xi\ m\)], "Input"], Cell[BoxData[ \(rho\ := \ g\ kf^3/\((6\ Pi^2)\)\)], "Input"], Cell[BoxData[ \(EoverA\ := \ EoverA1\ \ + \ EoverA2\)], "Input"], Cell[BoxData[ \(EoverA1\ := \ g \((g - 1)\)/\((Pi^4\ rho)\)\ m^4\ J\)], "Input"], Cell[BoxData[ \(EoverA2\ := \ g \((g - 1)\)/\((Pi^4\ rho)\)\ m^4\ Jp\)], "Input"], Cell[BoxData[ \(EoverA2p\ := \ g \((g - 1)\) alpha^2\ m^5/\((6\ Pi^3\ M\ rho)\)\ *\ \((\[IndentingNewLine]\ Log[1 + xi^2]\ - \ xi^2 \((2 + xi^2)\)/\((2\ \((1 + xi^2)\))\)\ - \ Tp1)\)\)], "Input"], Cell[BoxData[ \(Tp1\ := \ 2/\((35\ Pi)\)\ \((xi^7 \((\(-11\)\ + \ 2 Log[2])\)\ - \ 4/9\ xi^9\ \((\(-167\)/3 + 8\ Log[2])\)\ )\)\)], "Input"], Cell[BoxData[ \(Jp\ := \ \(\(J1\)\(\ \)\(-\)\(\ \)\(J2\)\(\ \)\)\)], "Input"], Cell[BoxData[ \(J\ := \ alpha\ \((2\ Pi\ m/\((3\ M)\))\)\ \((\ xi^2\ + \ xi^3\ ArcTan[ xi]\[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ - \ \((1\ + \ 3/2\ xi^2)\)\ Log[1 + xi^2]\ )\)\)], "Input"], Cell[BoxData[ \(J1\ := \ alpha^2\ \((Pi\ m/\((6\ M)\))\)\ \((Log[1 + xi^2]\ - \ xi^2 \((2 + xi^2)\)/\((2\ \((1 + xi^2)\))\)\ )\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(Series[ J1/\((alpha^2\ \((Pi\ m/\((6\ M)\))\))\), {xi, 0, 20}]\)], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{\(-\(xi\^6\/6\)\), "+", \(xi\^8\/4\), "-", \(\(3\ xi\^10\)\/10\), "+", \(xi\^12\/3\), "-", \(\(5\ xi\^14\)\/14\), "+", \(\(3\ xi\^16\)\/8\), "-", \(\(7\ xi\^18\)\/18\), "+", \(\(2\ xi\^20\)\/5\), "+", InterpretationBox[\(O[xi]\^21\), SeriesData[ xi, 0, {}, 6, 21, 1]]}], SeriesData[ xi, 0, { Rational[ -1, 6], 0, Rational[ 1, 4], 0, Rational[ -3, 10], 0, Rational[ 1, 3], 0, Rational[ -5, 14], 0, Rational[ 3, 8], 0, Rational[ -7, 18], 0, Rational[ 2, 5]}, 6, 21, 1]]], "Output"] }, Open ]], Cell[BoxData[ \(J2\ := \ alpha^2 \((m/\((105\ M)\))\)\ \((xi^7 \((\(-11\)\ + \ 2\ Log[2])\)\ - \ 4/9\ xi^9\ \((\(-167\)/3\ + \ 8 Log[2])\)\ )\)\)], "Input"], Cell[BoxData[ \(EoverApds\ := \ EoverA1pds\ + \ EoverA2ppds\)], "Input"], Cell[BoxData[ \(EoverA1pds\ := \ \((g - 1)\) alpha\ \((m^2/\((3\ Pi\ M)\))\)\ \((M\ m/\((4\ Pi)\))\)\ *\ \((\ \[IndentingNewLine]\ \ C01p\ xi^3\ + \ 3/10\ m^2\ C21p\ xi^5\ + \ 9/70\ m^4\ C41p\ xi^7\ )\)\)], "Input"], Cell[BoxData[ \(EoverA2ppds\ := \ g \((g - 1)\) alpha^2\ m^5/\((6\ Pi^3\ M\ rho)\)\ *\((\[IndentingNewLine]\ \ \ \((M/\((4\ Pi\ m)\))\)^2\ \((\ 16\ Pi\ m/M\ Apds\ - \ mu/m\ Bpds\ - Tptilde\ )\)\ )\)\)], "Input"], Cell[BoxData[ \(EoverA2pds\ := \ \(-\((g - 1)\)\)\ alpha^2\ m^2\ /\ \((6\ Pi\ M)\)\ *\ \((M\ m/\((4\ \ Pi)\))\)\ *\[IndentingNewLine]\((\ \((\(-2\)\ C02p\ + \ M\ mu/\((2\ Pi)\)\ C01p^2)\)\ xi^3\ - \ 3\ m\ M\ C01p^2\ \((11\ - \ 2\ Log[2])\)/\((35\ Pi^2)\)\ xi^4\[IndentingNewLine]\ - \ \ \((3/5\ C22p\ - \ 3/\((10\ Pi)\)\ M\ mu\ C01p\ C21p)\)\ m^2\ xi^5\ \[IndentingNewLine] - \ C01p\ C21p\ M\ m^3\ 2\ \((167/3\ - \ 8\ Log[2])\)/\((105\ Pi^2)\)\ xi^6\[IndentingNewLine] - \ \ \((9/35\ C42p\ - \ 9/\((140\ Pi)\)\ M\ mu\ \((\ C21p^2\ + \ 2 C01p\ C41p)\))\)\ m^4\ xi^7\ )\)\)], "Input"], Cell[BoxData[ \(Apds\ := \ xi^6/12\ m^2\ C02p\ + \ xi^8/40\ m^4\ C22p\ + \ 3\ xi^10/280\ m^6\ C42p\)], "Input"], Cell[BoxData[ \(Bpds\ := \ xi^6/3 \((m^2\ C01p)\)^2\ + \ xi^8/5\ m^6\ C01p\ C21p\ + \ 3/70\ xi^10\ \((\ \((m^4\ C21p)\)^2\ + \ 2\ m^8\ C01p\ C41p\ )\)\)], "Input"], Cell[BoxData[ \(Tptilde\ := \ 2/\((35\ Pi)\)\ \((xi^7 \((m^2\ C01p)\)^2\ \((\(-11\)\ + \ 2 Log[2])\)\ + \ 2/9\ xi^9\ \ m^6\ C01p\ C21p \((\(-167\)/3 + 8\ Log[2])\)\ )\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(sf1\ = \ Series[EoverA1, {xi, 0, 15}]/\((\ \((g - 1)\) alpha\ m^2/\((3\ Pi\ M)\)\ )\)\)], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{\(xi\^3\), "-", \(\(3\ xi\^5\)\/5\), "+", \(\(27\ xi\^7\)\/70\), "-", \(\(4\ xi\^9\)\/15\), "+", \(\(15\ xi\^11\)\/77\), "-", \(\(27\ xi\^13\)\/182\), "+", \(\(7\ xi\^15\)\/60\), "+", InterpretationBox[\(O[xi]\^16\), SeriesData[ xi, 0, {}, 3, 16, 1]]}], SeriesData[ xi, 0, {1, 0, Rational[ -3, 5], 0, Rational[ 27, 70], 0, Rational[ -4, 15], 0, Rational[ 15, 77], 0, Rational[ -27, 182], 0, Rational[ 7, 60]}, 3, 16, 1]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(sf2\ = \ Series[EoverA1pds, {xi, 0, 15}]/\((\ \((g - 1)\) alpha\ m^2/\((3\ Pi\ M)\)\ )\)\)], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{\(\(C01p\ m\ M\ xi\^3\)\/\(4\ \[Pi]\)\), "+", \(\(3\ C21p\ m\^3\ M\ xi\^5\)\/\(40\ \[Pi]\)\), "+", \(\(9\ C41p\ m\^5\ M\ xi\^7\)\/\(280\ \[Pi]\)\), "+", InterpretationBox[\(O[xi]\^16\), SeriesData[ xi, 0, {}, 3, 16, 1]]}], SeriesData[ xi, 0, { Times[ Rational[ 1, 4], C01p, m, M, Power[ Pi, -1]], 0, Times[ Rational[ 3, 40], C21p, Power[ m, 3], M, Power[ Pi, -1]], 0, Times[ Rational[ 9, 280], C41p, Power[ m, 5], M, Power[ Pi, -1]]}, 3, 16, 1]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Simplify[\ sf1 - sf2\ /. \ {C01p \[Rule] C01, C21p \[Rule] 0, C41p \[Rule] 0}]\)], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{\(-\(\(3\ xi\^5\)\/5\)\), "+", \(\(27\ xi\^7\)\/70\), "-", \(\(4\ xi\^9\)\/15\), "+", \(\(15\ xi\^11\)\/77\), "-", \(\(27\ xi\^13\)\/182\), "+", \(\(7\ xi\^15\)\/60\), "+", InterpretationBox[\(O[xi]\^16\), SeriesData[ xi, 0, {}, 5, 16, 1]]}], SeriesData[ xi, 0, { Rational[ -3, 5], 0, Rational[ 27, 70], 0, Rational[ -4, 15], 0, Rational[ 15, 77], 0, Rational[ -27, 182], 0, Rational[ 7, 60]}, 5, 16, 1]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(sf3\ = \ Simplify[Series[ EoverA2, {xi, 0, 9}]/\((\(-\((g - 1)\)\) alpha^2\ m^2/\((6\ Pi\ M)\))\)]\)], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{\(xi\^3\), "+", \(\(12\ \((\(-11\) + Log[4])\)\ xi\^4\)\/\(35\ \[Pi]\)\), "-", \(\(3\ xi\^5\)\/2\), "-", \(\(16\ \((\(-167\) + 24\ Log[2])\)\ xi\^6\)\/\(315\ \[Pi]\)\), "+", \(\(9\ xi\^7\)\/5\), "-", \(2\ xi\^9\), "+", InterpretationBox[\(O[xi]\^10\), SeriesData[ xi, 0, {}, 3, 10, 1]]}], SeriesData[ xi, 0, {1, Times[ Rational[ 12, 35], Power[ Pi, -1], Plus[ -11, Log[ 4]]], Rational[ -3, 2], Times[ Rational[ -16, 315], Power[ Pi, -1], Plus[ -167, Times[ 24, Log[ 2]]]], Rational[ 9, 5], 0, -2}, 3, 10, 1]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(sf3p = \ Simplify[Series[ EoverA2p, {xi, 0, 9}]/\((\(-\((g - 1)\)\) alpha^2\ m^2/\((6\ Pi\ M)\))\)]\)], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{\(xi\^3\), "+", \(\(12\ \((\(-11\) + Log[4])\)\ xi\^4\)\/\(35\ \[Pi]\)\), "-", \(\(3\ xi\^5\)\/2\), "-", \(\(16\ \((\(-167\) + 24\ Log[2])\)\ xi\^6\)\/\(315\ \[Pi]\)\), "+", \(\(9\ xi\^7\)\/5\), "-", \(2\ xi\^9\), "+", InterpretationBox[\(O[xi]\^10\), SeriesData[ xi, 0, {}, 3, 10, 1]]}], SeriesData[ xi, 0, {1, Times[ Rational[ 12, 35], Power[ Pi, -1], Plus[ -11, Log[ 4]]], Rational[ -3, 2], Times[ Rational[ -16, 315], Power[ Pi, -1], Plus[ -167, Times[ 24, Log[ 2]]]], Rational[ 9, 5], 0, -2}, 3, 10, 1]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Simplify[sf3 - sf3p]\)], "Input"], Cell[BoxData[ InterpretationBox[\(O[xi]\^10\), SeriesData[ xi, 0, {}, 10, 10, 1]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(sf4 = \ Simplify[Series[ EoverA2pds, {xi, 0, 9}]/\((\(-\((g - 1)\)\) alpha^2\ m^2/\((6\ Pi\ M)\))\)]\)], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{\(\(m\ M\ \((C01p\^2\ M\ mu - 4\ C02p\ \[Pi])\)\ xi\^3\)\/\(8\ \[Pi]\^2\)\), "+", \(\(3\ C01p\^2\ m\^2\ M\^2\ \((\(-11\) + Log[4])\)\ xi\^4\)\/\(140\ \[Pi]\^3\)\), "+", \(\(3\ m\^3\ M\ \((C01p\ C21p\ M\ mu - 2\ C22p\ \[Pi])\)\ xi\^5\)\/\(40\ \[Pi]\^2\)\), "+", \(\(C01p\ C21p\ m\^4\ M\^2\ \((\(-167\) + 24\ Log[2])\)\ xi\^6\)\/\(630\ \[Pi]\^3\)\), "+", \(\(9\ m\^5\ M\ \((C21p\^2\ M\ mu + 2\ C01p\ C41p\ M\ mu - 4\ C42p\ \[Pi])\)\ xi\^7\)\/\(560\ \[Pi]\^2\)\), "+", InterpretationBox[\(O[xi]\^10\), SeriesData[ xi, 0, {}, 3, 10, 1]]}], SeriesData[ xi, 0, { Times[ Rational[ 1, 8], m, M, Power[ Pi, -2], Plus[ Times[ Power[ C01p, 2], M, mu], Times[ -4, C02p, Pi]]], Times[ Rational[ 3, 140], Power[ C01p, 2], Power[ m, 2], Power[ M, 2], Power[ Pi, -3], Plus[ -11, Log[ 4]]], Times[ Rational[ 3, 40], Power[ m, 3], M, Power[ Pi, -2], Plus[ Times[ C01p, C21p, M, mu], Times[ -2, C22p, Pi]]], Times[ Rational[ 1, 630], C01p, C21p, Power[ m, 4], Power[ M, 2], Power[ Pi, -3], Plus[ -167, Times[ 24, Log[ 2]]]], Times[ Rational[ 9, 560], Power[ m, 5], M, Power[ Pi, -2], Plus[ Times[ Power[ C21p, 2], M, mu], Times[ 2, C01p, C41p, M, mu], Times[ -4, C42p, Pi]]]}, 3, 10, 1]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(sf4p = \ Simplify[Series[ EoverA2ppds, {xi, 0, 9}]/\((\(-\((g - 1)\)\) alpha^2\ m^2/\((6\ Pi\ M)\))\)]\)], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{\(\(m\ M\ \((C01p\^2\ M\ mu - 4\ C02p\ \[Pi])\)\ xi\^3\)\/\(8\ \[Pi]\^2\)\), "+", \(\(3\ C01p\^2\ m\^2\ M\^2\ \((\(-11\) + Log[4])\)\ xi\^4\)\/\(140\ \[Pi]\^3\)\), "+", \(\(3\ m\^3\ M\ \((C01p\ C21p\ M\ mu - 2\ C22p\ \[Pi])\)\ xi\^5\)\/\(40\ \[Pi]\^2\)\), "+", \(\(C01p\ C21p\ m\^4\ M\^2\ \((\(-167\) + 24\ Log[2])\)\ xi\^6\)\/\(630\ \[Pi]\^3\)\), "+", \(\(9\ m\^5\ M\ \((C21p\^2\ M\ mu + 2\ C01p\ C41p\ M\ mu - 4\ C42p\ \[Pi])\)\ xi\^7\)\/\(560\ \[Pi]\^2\)\), "+", InterpretationBox[\(O[xi]\^10\), SeriesData[ xi, 0, {}, 3, 10, 1]]}], SeriesData[ xi, 0, { Times[ Rational[ 1, 8], m, M, Power[ Pi, -2], Plus[ Times[ Power[ C01p, 2], M, mu], Times[ -4, C02p, Pi]]], Times[ Rational[ 3, 140], Power[ C01p, 2], Power[ m, 2], Power[ M, 2], Power[ Pi, -3], Plus[ -11, Log[ 4]]], Times[ Rational[ 3, 40], Power[ m, 3], M, Power[ Pi, -2], Plus[ Times[ C01p, C21p, M, mu], Times[ -2, C22p, Pi]]], Times[ Rational[ 1, 630], C01p, C21p, Power[ m, 4], Power[ M, 2], Power[ Pi, -3], Plus[ -167, Times[ 24, Log[ 2]]]], Times[ Rational[ 9, 560], Power[ m, 5], M, Power[ Pi, -2], Plus[ Times[ Power[ C21p, 2], M, mu], Times[ 2, C01p, C41p, M, mu], Times[ -4, C42p, Pi]]]}, 3, 10, 1]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Simplify[\(Series[ EoverA2ppds, {xi, 0, 9}]/\((\(-\((g - 1)\)\) alpha^2\ m^2/\((6\ Pi\ M)\))\)\)/\((M\ m/\((4\ Pi)\))\)]\)], \ "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{\(\((\(-2\)\ C02p + \(C01p\^2\ M\ mu\)\/\(2\ \[Pi]\))\)\ \ xi\^3\), "+", \(\(3\ C01p\^2\ m\ M\ \((\(-11\) + Log[4])\)\ xi\^4\)\/\(35\ \[Pi]\^2\)\), "+", \(\(3\ m\^2\ \((C01p\ C21p\ M\ mu - 2\ C22p\ \[Pi])\)\ xi\^5\)\/\(10\ \[Pi]\)\), "+", \(\(2\ C01p\ C21p\ m\^3\ M\ \((\(-167\) + 24\ Log[2])\)\ xi\^6\)\/\(315\ \[Pi]\^2\)\), "+", \(\(9\ m\^4\ \((C21p\^2\ M\ mu + 2\ C01p\ C41p\ M\ mu - 4\ C42p\ \[Pi])\)\ xi\^7\)\/\(140\ \[Pi]\)\), "+", InterpretationBox[\(O[xi]\^10\), SeriesData[ xi, 0, {}, 3, 10, 1]]}], SeriesData[ xi, 0, { Plus[ Times[ -2, C02p], Times[ Rational[ 1, 2], Power[ C01p, 2], M, mu, Power[ Pi, -1]]], Times[ Rational[ 3, 35], Power[ C01p, 2], m, M, Power[ Pi, -2], Plus[ -11, Log[ 4]]], Times[ Rational[ 3, 10], Power[ m, 2], Power[ Pi, -1], Plus[ Times[ C01p, C21p, M, mu], Times[ -2, C22p, Pi]]], Times[ Rational[ 2, 315], C01p, C21p, Power[ m, 3], M, Power[ Pi, -2], Plus[ -167, Times[ 24, Log[ 2]]]], Times[ Rational[ 9, 140], Power[ m, 4], Power[ Pi, -1], Plus[ Times[ Power[ C21p, 2], M, mu], Times[ 2, C01p, C41p, M, mu], Times[ -4, C42p, Pi]]]}, 3, 10, 1]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Simplify[sf4 - sf4p]\)], "Input"], Cell[BoxData[ InterpretationBox[\(O[xi]\^10\), SeriesData[ xi, 0, {}, 10, 10, 1]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Simplify[ sf3p - sf4p\ /. \ {C01p \[Rule] C01, C02p \[Rule] C02, C21p \[Rule] 0, C22p \[Rule] 0, C41p \[Rule] 0, C42p \[Rule] 0}]\)], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{\(-\(\(3\ xi\^5\)\/2\)\), "-", \(\(16\ \((\(-167\) + 24\ Log[2])\)\ xi\^6\)\/\(315\ \[Pi]\)\), "+", \(\(9\ xi\^7\)\/5\), "-", \(2\ xi\^9\), "+", InterpretationBox[\(O[xi]\^10\), SeriesData[ xi, 0, {}, 5, 10, 1]]}], SeriesData[ xi, 0, { Rational[ -3, 2], Times[ Rational[ -16, 315], Power[ Pi, -1], Plus[ -167, Times[ 24, Log[ 2]]]], Rational[ 9, 5], 0, -2}, 5, 10, 1]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Simplify[ sf3p - sf4p\ /. \ {C01p \[Rule] C01, C02p \[Rule] C02, C21p \[Rule] C21, C22p \[Rule] C22, C41p \[Rule] 0, C42p \[Rule] 0}]\)], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{\(9\/35\ \((7 - \(4\ mu\)\/m)\)\ xi\^7\), "-", \(2\ xi\^9\), "+", InterpretationBox[\(O[xi]\^10\), SeriesData[ xi, 0, {}, 7, 10, 1]]}], SeriesData[ xi, 0, { Times[ Rational[ 9, 35], Plus[ 7, Times[ -4, Power[ m, -1], mu]]], 0, -2}, 7, 10, 1]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Simplify[ sf3p - sf4p\ /. \ {C01p \[Rule] C01, C02p \[Rule] C02, C21p \[Rule] C21, C22p \[Rule] C22, C41p \[Rule] C41, C42p \[Rule] C42}]\)], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{\(-\(2\ xi\^9\)\), "+", InterpretationBox[\(O[xi]\^10\), SeriesData[ xi, 0, {}, 9, 10, 1]]}], SeriesData[ xi, 0, {-2}, 9, 10, 1]]], "Output"] }, Open ]], Cell[BoxData[ \(sfmax1[imax_]\ := \ Normal[\ Simplify[\ Series[\((EoverA1 - EoverA1pds)\)/\((\ \((g - 1)\) alpha\ m^2/\((3\ Pi\ M)\)\ )\), {xi, 0, imax}]\ /. \ {C01p \[Rule] C01, C21p \[Rule] 0, C41p \[Rule] 0}]\ ]\)], "Input"], Cell[BoxData[ \(sfmaxt1[imax_]\ := \ Normal[\ Simplify[\ Series[\((EoverA - EoverApds)\)/\((\ \((g - 1)\) alpha\ m^2/\((3\ Pi\ M)\)\ )\), {xi, 0, imax}]\ /. \ {C01p \[Rule] C01, C02p \[Rule] C02, C21p \[Rule] 0, C22p \[Rule] 0, C41p \[Rule] 0, C42p \[Rule] 0}]\ ]\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(sfmaxt1[5]\)], "Input"], Cell[BoxData[ \(\((\(-\(3\/5\)\) + \(3\ alpha\)\/4)\)\ xi\^5\)], "Output"] }, Open ]], Cell[BoxData[ \(sfmax2[imax_]\ := \ Normal[\ Simplify[\ Series[\((EoverA1 - EoverA1pds)\)/\((\ \((g - 1)\) alpha\ m^2/\((3\ Pi\ M)\)\ )\), {xi, 0, imax}]\ /. \ {C01p \[Rule] C01, C21p \[Rule] C21, C41p \[Rule] 0}]\ ]\)], "Input"], Cell[BoxData[ \(sfmaxt2[imax_]\ := \ Normal[\ Simplify[\ Series[\((EoverA - EoverApds)\)/\((\ \((g - 1)\) alpha\ m^2/\((3\ Pi\ M)\)\ )\), {xi, 0, imax}]\ /. \ {C01p \[Rule] C01, C02p \[Rule] C02, C21p \[Rule] C21, C22p \[Rule] C22, C41p \[Rule] 0, C42p \[Rule] 0}]\ ]\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(sfmaxt2[15]\)], "Input"], Cell[BoxData[ \(\(\((27\ m - 63\ alpha\ m + 36\ alpha\ mu)\)\ xi\^7\)\/\(70\ m\) + \ \((\(-\(4\/15\)\) + alpha)\)\ xi\^9 + 15\/154\ \((2 - 11\ alpha)\)\ xi\^11 + \((\(-\(27\/182\)\) + \(9\ alpha\)\/8)\)\ \ xi\^13 + \((7\/60 - \(7\ alpha\)\/6)\)\ xi\^15\)], "Output"] }, Open ]], Cell[BoxData[ \(sfmax3[imax_]\ := \ Normal[\ Simplify[\ Series[\((EoverA1 - EoverA1pds)\)/\((\ \((g - 1)\) alpha\ m^2/\((3\ Pi\ M)\)\ )\), {xi, 0, imax}]\ /. \ {C01p \[Rule] C01, C21p \[Rule] C21, C41p \[Rule] C41}]\ ]\)], "Input"], Cell[BoxData[ \(sfmaxt3[imax_]\ := \ Normal[\ Simplify[\ Series[\((EoverA\ - EoverApds)\)/\((\ \((g - 1)\) alpha\ m^2/\((3\ Pi\ M)\)\ )\), {xi, 0, imax}]\ /. \ {C01p \[Rule] C01, C02p \[Rule] C02, C21p \[Rule] C21, C22p \[Rule] C22, C41p \[Rule] C41, C42p \[Rule] C42}]\ ]\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(sfmaxt3[15]\)], "Input"], Cell[BoxData[ \(\((\(-\(4\/15\)\) + alpha)\)\ xi\^9 + 15\/154\ \((2 - 11\ alpha)\)\ xi\^11 + \((\(-\(27\/182\)\) + \(9\ alpha\)\/8)\)\ \ xi\^13 + \((7\/60 - \(7\ alpha\)\/6)\)\ xi\^15\)], "Output"] }, Open ]], Cell[BoxData[ \(<< Graphics`\)], "Input"], Cell[BoxData[ \(\(parameters\ = \ {alpha \[Rule] \(- .5\), \ m \[Rule] 600, \ M \[Rule] 939, \ mu \[Rule] 600, \ g \[Rule] 4};\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(factor\ = \ \((\ \((g - 1)\) alpha\ m^2/\((3\ Pi\ M)\)\ )\)\ /. \ parameters\)], "Input"], Cell[BoxData[ \(\(-61.01786955599821`\)\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(LogLogPlot[{Evaluate[ Abs[factor* sfmax1[9]]], \[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ Evaluate[ Abs[factor*sfmaxt1[9]] /. \ parameters], \[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ Evaluate[ Abs[factor* sfmax2[11]]], \[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ Evaluate[ Abs[factor*sfmaxt2[11]] /. \ parameters], \[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ Evaluate[ Abs[factor* sfmax3[13]]], \[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ Evaluate[ Abs[factor*sfmaxt3[13]] /. \ parameters]\[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ }, \[IndentingNewLine]{xi, .2, 2}, \[IndentingNewLine]PlotRange \[Rule] {{ .2, 1.5}, {10^\((\(-5\))\), 1000}}, PlotStyle \[Rule] {Thickness[ .0015], GrayLevel[0]}]\)], "Input"], 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.798767 1.14278 0.386271 0.0772542 [ [.20123 -0.0125 -11 -9.8125 ] [.20123 -0.0125 11 0 ] [.45476 -0.0125 -11 -9.8125 ] [.45476 -0.0125 11 0 ] [.62175 -0.0125 -11 -9.8125 ] [.62175 -0.0125 11 0 ] [.79877 -0.0125 -5 -9.8125 ] [.79877 -0.0125 5 0 ] [1 -0.0125 -11 -9.8125 ] [1 -0.0125 11 0 ] [-0.0125 .15451 -34 -4.90625 ] [-0.0125 .15451 0 4.90625 ] [-0.0125 .30902 -22 -4.90625 ] [-0.0125 .30902 0 4.90625 ] [-0.0125 .46353 -16 -4.90625 ] [-0.0125 .46353 0 4.90625 ] [-0.0125 .61803 -28 -4.90625 ] [-0.0125 .61803 0 4.90625 ] [ -0.0005 -0.0005 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .20123 0 m .20123 .00625 L s gsave .20123 -0.0125 -72 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.3) show 81.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .45476 0 m .45476 .00625 L s gsave .45476 -0.0125 -72 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.5) show 81.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .62175 0 m .62175 .00625 L s gsave .62175 -0.0125 -72 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.7) show 81.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .79877 0 m .79877 .00625 L s gsave .79877 -0.0125 -66 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1) show 69.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 1 0 m 1 .00625 L s gsave 1 -0.0125 -72 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1.5) show 81.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .001 w .34401 0 m .34401 .00375 L s .54524 0 m .54524 .00375 L s .71811 0 m .71811 .00375 L s .84607 0 m .84607 .00375 L s .88925 0 m .88925 .00375 L s .92898 0 m .92898 .00375 L s .96576 0 m .96576 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .15451 m .00625 .15451 L s gsave -0.0125 .15451 -95 -8.90625 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.001) show 93.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .30902 m .00625 .30902 L s gsave -0.0125 .30902 -83 -8.90625 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.1) show 81.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .46353 m .00625 .46353 L s gsave -0.0125 .46353 -77 -8.90625 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (10) show 75.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .61803 m .00625 .61803 L s gsave -0.0125 .61803 -89 -8.90625 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1000) show 87.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .001 w 0 .08337 m .00375 .08337 L s 0 .1052 m .00375 .1052 L s 0 .11831 m .00375 .11831 L s 0 .12772 m .00375 .12772 L s 0 .13505 m .00375 .13505 L s 0 .14107 m .00375 .14107 L s 0 .14617 m .00375 .14617 L s 0 .1506 m .00375 .1506 L s 0 .23788 m .00375 .23788 L s 0 .25971 m .00375 .25971 L s 0 .27282 m .00375 .27282 L s 0 .28223 m .00375 .28223 L s 0 .28956 m .00375 .28956 L s 0 .29558 m .00375 .29558 L s 0 .30068 m .00375 .30068 L s 0 .30511 m .00375 .30511 L s 0 .39239 m .00375 .39239 L s 0 .41422 m .00375 .41422 L s 0 .42733 m .00375 .42733 L s 0 .43673 m .00375 .43673 L s 0 .44407 m .00375 .44407 L s 0 .45009 m .00375 .45009 L s 0 .45519 m .00375 .45519 L s 0 .45962 m .00375 .45962 L s 0 .5469 m .00375 .5469 L s 0 .56872 m .00375 .56872 L s 0 .58184 m .00375 .58184 L s 0 .59124 m .00375 .59124 L s 0 .59858 m .00375 .59858 L s 0 .6046 m .00375 .6046 L s 0 .6097 m .00375 .6097 L s 0 .61412 m .00375 .61412 L s .25 Mabswid 0 0 m 0 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .0015 w 0 .23623 m .15446 .28772 L .28149 .32968 L .37695 .36085 L .45413 .3858 L .52493 .40848 L .58469 .42755 L .64119 .44565 L .69014 .46159 L .73308 .47603 L .77502 .49082 L .8123 .50485 L .84569 .51833 L .87893 .53279 L .90895 .54683 L .93899 .56181 L .9663 .57621 L .99123 .58993 L s .99123 .58993 m 1 .59492 L s .5 Mabswid 0 .24761 m .15446 .29682 L .28149 .33585 L .37695 .36382 L .45413 .38517 L .52493 .40349 L .58469 .41794 L .64119 .4311 L .69014 .44315 L .73308 .45586 L .77502 .47216 L .8123 .49085 L .84569 .51066 L .87893 .53239 L .90895 .55296 L .93899 .57393 L .9663 .59306 L .99123 .61045 L s .99123 .61045 m 1 .61652 L s .0015 w 0 .11334 m .15446 .18567 L .28149 .24473 L .37695 .28874 L .45413 .32406 L .52493 .35625 L .58469 .38337 L .64119 .40914 L .69014 .43182 L .73308 .45225 L .77502 .47304 L .8123 .49252 L .84569 .51098 L .87893 .53047 L .90895 .54906 L .93899 .5686 L .9663 .5871 L .99123 .60451 L s .99123 .60451 m 1 .61079 L s .5 Mabswid 0 .1261 m .15446 .19772 L .28149 .2558 L .37695 .29875 L .45413 .33302 L .52493 .36426 L .58469 .39089 L .64119 .41695 L .69014 .44105 L .73308 .46405 L .77502 .4887 L .8123 .51254 L .84569 .53532 L .87893 .5591 L .90895 .58129 L .93899 .60397 L s .93899 .60397 m .95737 .61803 L s .0015 w .01176 0 m .15446 .08608 L .28149 .16226 L .37695 .21912 L .45413 .26482 L .52493 .30655 L .58469 .34173 L .64119 .37518 L .69014 .40457 L .73308 .431 L .77502 .45773 L .8123 .4826 L .84569 .50595 L .87893 .53035 L .90895 .55338 L .93899 .57734 L .9663 .59982 L s .9663 .59982 m .9879 .61803 L s .5 Mabswid 0 .02805 m .15446 .121 L .28149 .19688 L .37695 .25346 L .45413 .29895 L .52493 .3406 L .58469 .37597 L .64119 .41001 L .69014 .44049 L .73308 .46846 L .77502 .4973 L .8123 .52444 L .84569 .55002 L .87893 .5766 L .90895 .60144 L s .90895 .60144 m .92847 .61803 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{399.438, 246.875}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgGoo000VOol00`00Oomoo`0HOol2000DOol00`00 Oomoo`3oOolfOol002Ioo`03001oogoo01Yoo`8001=oo`800?moocIoo`009Woo0P007Goo00<007oo Ool04Woo0P00ogoo=7oo000VOol00`00Oomoo`0MOol2000DOol00`00Oomoo`3oOolaOol002Ioo`03 001oogoo01moo`8001=oo`800?mooc5oo`009Woo00<007ooOol08Goo00<007ooOol04Woo0P00ogoo ;goo000VOol00`00Oomoo`0ROol2000DOol00`00Oomoo`3oOol/Ool002Ioo`03001oogoo02Aoo`80 01=oo`800?moobaoo`009Woo00<007ooOol09Woo00<007ooOol04Woo00<007ooOol0ogoo:Goo000V Ool00`00Oomoo`0WOol2000COol2003oOolYOol002Ioo`8002Yoo`03001oogoo019oo`800?moobMo o`009Woo00<007ooOol0:Woo0P0057oo00<007ooOol0ogoo97oo000VOol00`00Oomoo`0/Ool2000C Ool2003oOolTOol002Ioo`8002moo`03001oogoo019oo`800?moob9oo`009Woo00@007oo000002io o`8001Aoo`03001oogoo0?mooamoo`009Woo0P000Woo0P00;Woo0P004goo0P00ogoo7goo000VOol0 0`00Oomoo`03Ool2000^Ool00`00Oomoo`0BOol00`00Oomoo`3oOolLOol002Ioo`8000Ioo`8002eo o`8001=oo`800?mooaaoo`009Woo10001Woo0P00;Goo0P004goo0P00ogoo6Woo000VOol01000Oomo ogoo0P001Woo0`00;7oo00<007ooOol04Woo00<007ooOol0ogoo5goo000VOol20004Ool20007Ool2 000[Ool2000COol2003oOolGOol002Ioo`03001oogoo00Eoo`8000Moo`8002]oo`8001=oo`800?mo oaEoo`009Woo00<007ooOol01goo0P001goo0P00:goo00<007ooOol04Woo00<007ooOol0ogoo4Woo 000VOol2000:Ool30006Ool2000ZOol2000COol2003oOolBOol002Ioo`8000eoo`8000Ioo`8002Yo o`8001=oo`800?mooa1oo`009Woo00<007ooOol03Woo0P001Woo0P00:Woo0P004goo00<007ooOol0 ogoo3Goo0004Ool20004Ool00`00Oomoo`03Ool20004Ool20003Ool40007Ool2000AOol20006Ool3 000YOol00`00Oomoo`0AOol2003oOol=Ool000=oo`04001oogoo0008Ool01000Oomoo`000Woo00@0 07ooOol000Aoo`03001oogoo00Ioo`<0019oo`8000Moo`8002Qoo`8001=oo`03001oogoo0?moo`Yo o`000goo00@007ooOol000Qoo`04001oogoo0002Ool01000Oomoo`0017oo00<007ooOol01Woo00<0 07ooOol057oo0P001goo0P00:7oo0P004Woo0P00ogoo2Woo0003Ool01000Oomoo`0027oo00@007oo Ool0009oo`04001oogoo0004Ool00`00Oomoo`06Ool00`00Oomoo`0FOol20007Ool2000XOol00`00 Oomoo`0AOol2003oOol8Ool000=oo`04001oogoo0008Ool01000Oomoo`000Woo00@007ooOol000Ao o`03001oogoo00Ioo`03001oogoo01Qoo`<000Ioo`8002Moo`8001=oo`03001oogoo0?moo`Eoo`00 0goo00@007ooOol000Qoo`04001oogoo0002Ool01000Oomoo`000Woo0`0027oo00<007ooOol06goo 0P001Woo0P009goo0P004Woo0P00ogoo1Goo0004Ool2000:Ool20004Ool20005Ool00`00Oomoo`06 Ool00`00Oomoo`0MOol20006Ool3000VOol00`00Oomoo`0AOol2003oOol3Ool002Ioo`03001oogoo 01moo`8000Moo`8002Eoo`8001=oo`03001oogoo0?moo`009Woo00<007ooOol08Goo0P001goo0P00 9Goo0P004Woo0P00ogoo000VOol00`00Oomoo`0SOol20007Ool2000UOol00`00Oomoo`0AOol2003m Ool002Ioo`03001oogoo02Eoo`<000Ioo`8002Aoo`8001=oo`03001oogoo0?Yoo`009Woo00<007oo Ool0:7oo0P001Woo0P0097oo0P004Woo0P00nWoo000VOol00`00Oomoo`0ZOol20006Ool3000SOol2 000BOol2003hOol002Ioo`03001oogoo02aoo`8000Moo`8002=oo`03001oogoo015oo`03001oogoo 0?Eoo`009Woo00<007ooOol0;Woo0P001goo0P008Woo0P004Woo0P00mGoo000VOol00`00Oomoo`0` Ool20007Ool2000ROol2000BOol00`00Oomoo`3bOol002Ioo`03001oogoo039oo`<000Ioo`80029o o`03001oogoo011oo`800?9oo`009Woo00<007ooOol0=Goo0P001Woo0P008Goo0P004Woo0P00l7oo 000VOol00`00Oomoo`0gOol20006Ool2000QOol2000BOol00`00Oomoo`3]Ool002Ioo`03001oogoo 03Uoo`8000Ioo`80025oo`03001oogoo011oo`800>eoo`009Woo00<007ooOol0>goo0P001Woo0P00 87oo0P004Woo0P00jgoo000VOol00`00Oomoo`0mOol20006Ool2000POol2000BOol00`00Oomoo`3X Ool002Ioo`03001oogoo03moo`8000Ioo`80021oo`03001oogoo011oo`800>Qoo`009Woo00<007oo Ool0@Goo0P001Woo0`007Woo0P004Woo0P00iWoo000VOol00`00Oomoo`13Ool20007Ool2000NOol2 000BOol00`00Oomoo`3SOol002Ioo`03001oogoo04Eoo`8000Moo`8001ioo`03001oogoo011oo`80 0>=oo`009Woo00<007ooOol0Agoo0P001goo0P007Goo0P004Woo0P00hGoo000VOol00`00Oomoo`19 Ool30006Ool2000MOol00`00Oomoo`0AOol00`00Oomoo`3NOol002Ioo`03001oogoo04aoo`8000Io o`8001aoo`80019oo`800=ioo`009Woo00<007ooOol0CWoo0P001Woo0P0077oo0P004Woo0P00g7oo 000VOol2001AOol20006Ool2000LOol00`00Oomoo`0AOol00`00Oomoo`3IOol002Ioo`03001oo`00 0080051oo`8000Ioo`8001]oo`80019oo`800=Uoo`009Woo00<007ooOol00Woo0`00Cgoo0P001Woo 0P006goo0P004Woo0P00egoo000VOol00`00Oomoo`05Ool3001>Ool20006Ool3000JOol00`00Oomo o`0AOol2003EOol002Ioo`8000Uoo`<004eoo`8000Moo`8001Uoo`8001=oo`03001oogoo0=9oo`00 9Woo00<007oo00000P002Goo0`00C7oo0P001goo0P006Goo0P004Woo0P00dWoo000VOol00`00Oomo o`02Ool30009Ool3001;Ool20007Ool2000IOol00`00Oomoo`0AOol2003@Ool002Ioo`03001oogoo 00Eoo`@000Qoo`<004Yoo`<000Ioo`8001Qoo`8001=oo`03001oogoo07oo0`001goo0`00?Goo0P001goo0P003goo0P0057oo 0P00/Woo000@Ool20004Ool00`00Oomoo`02Ool40007Ool2000lOol30007Ool3000lOol20007Ool2 000?Ool2000DOol00`00Oomoo`2_Ool000moo`04001oogoo000:Ool00`00Oomoo`06Ool3000nOol4 0006Ool3000kOol20007Ool2000?Ool2000COol2002_Ool000moo`04001oogoo000:Ool00`00Oomo o`06Ool00`00Oomoo`12Ool30006Ool3000jOol30006Ool3000>Ool2000COol2002]Ool000moo`04 001oogoo000:Ool00`00Oomoo`06Ool00`00Oomoo`15Ool30006Ool3000jOol20007Ool2000>Ool0 0`00Oomoo`0BOol00`00Oomoo`2ZOol000moo`04001oogoo000:Ool00`00Oomoo`06Ool00`00Oomo o`18Ool30006Ool3000iOol20007Ool2000=Ool2000COol2002ZOol000moo`04001oogoo0008Ool3 0008Ool00`00Oomoo`1;Ool30006Ool4000gOol20007Ool2000=Ool2000COol00`00Oomoo`2WOol0 011oo`8000]oo`03001oogoo00Ioo`03001oogoo04ioo`<000Moo`<003Ioo`<000Ioo`<000aoo`80 019oo`800:Moo`009Woo00<007ooOol0DGoo0`001goo0`00=Woo0P001goo0P0037oo00<007ooOol0 4Goo0P00YGoo000VOol00`00Oomoo`1DOol40006Ool3000eOol20007Ool2000;Ool2000COol00`00 Oomoo`2ROol002Ioo`03001oogoo05Qoo`<000Ioo`<003Aoo`8000Moo`8000]oo`80019oo`800:9o o`009Woo00<007ooOol0Fgoo0`001Woo0`00Ool2001[Ool002Ioo`03001oogoo0Ool2001YOol002Ioo`03001oogoo0<]oo`<000eoo`D0 00Moo`@0009oo`<000eoo`03001oogoo06Ioo`009Woo00<007ooOol0cWoo10003Woo10001Goo0`00 17oo0P0037oo0P00IWoo000VOol2003COol3000?Ool40003Ool30004Ool20001oo`@000moo`H0009oo`8000Yoo`8005ioo`009Woo00<007oo Ool0hgoo0`003Woo0`0000=oo`00000010002Woo00<007ooOol0Fgoo000VOol2003WOol3000Uoo`@000Yoo`04001oo`000004Ool30009Ool0 0`00Oomoo`1HOol001Eoo`@000=oo`8000Qoo`800>ioo`<000Qoo`800003Ool0000000Aoo`<000Qo o`8005Qoo`005goo00D007ooOomoo`00009oo`03001oogoo00Eoo`<00?1oo`<000Moo`04001oogoo 0005Ool30008Ool00`00Oomoo`1EOol001Moo`05001oogooOol00002Ool00`00Oomoo`05Ool00`00 Oomoo`3cOol30005Ool200000goo00000006Ool20007Ool2001EOol001Moo`05001oogooOol00002 Ool00`00Oomoo`05Ool00`00Oomoo`3fOol30004Ool01000Oomoo`001goo0P001goo00<007ooOol0 DWoo000GOol01@00Oomoogoo00000Woo00<007ooOol01Goo00<007ooOol0nGoo0`000Woo0P0000=o o`0000001goo0P001Woo00<007ooOol0DGoo000EOol30003Ool01000Oomoo`001goo00<007ooOol0 o7oo0`0000Eoo`00Oomoo`0000Qoo`8000Eoo`80055oo`005goo00<007ooOol00Woo0P0027oo00<0 07ooOol0ogoo0`000Woo0P0027oo0P001Goo00<007ooOol0CWoo000VOol00`00Oomoo`3oOol2Ool3 0002Ool20008Ool20004Ool2001>Ool002Ioo`03001oogoo0?moo`Aoo`<0009oo`03001oogoo00Mo o`8000Aoo`03001oogoo04]oo`009Woo00<007ooOol0ogoo1Woo0`0000=oo`0000002Goo0P000goo 0P00Bgoo000VOol00`00Oomoo`3oOol8Ool300000goo001oo`09Ool20003Ool00`00Oomoo`18Ool0 02Ioo`03001oogoo0?moo`Uoo`03001oo`0000<000Yoo`04001oogooOol20018Ool002Ioo`03001o ogoo0?moo`Yoo`80009oo`<000Uoo`8000=oo`03001oogoo04Eoo`009Woo00<007ooOol0ogoo37oo 00@007ooOomoo`<000Uoo`80009oo`8004Eoo`009Woo00<007ooOol0ogoo3Goo0P000goo100027oo 00D007ooOomoo`0004Aoo`009Woo00<007ooOol0ogoo3goo00<007ooOol00Woo00@007oo000000Mo o`80009oo`80049oo`009Woo00<007ooOol0ogoo47oo0P000goo0P0000Aoo`00000000Ioo`80009o o`03001oogoo03moo`009Woo00<007ooOol0ogoo4Woo00<007ooOol00Woo0P000Woo0`001Goo0P00 00=oo`000000?goo000VOol00`00Oomoo`3oOolCOol00`00Oomoo`03Ool00`00Oomoo`02Ool30004 Ool01000Oomoo`00?Woo000VOol00`00Oomoo`3oOolDOol20004Ool20005Ool30002Ool200000goo 0000000lOol002Ioo`03001oogoo0?mooaIoo`03001oogoo00=oo`03001oogoo00Eoo`<00005Ool0 0000Ool0000kOol002Ioo`03001oogoo0?mooaMoo`8000Aoo`8000Qoo`800003Ool00000008003Uo o`009Woo00<007ooOol0ogoo6Goo00<007ooOol00goo00<007ooOol01goo1P00>7oo000VOol00`00 Oomoo`3oOolJOol00`00Oomoo`03Ool20009Ool6000fOol002Ioo`03001oogoo0?mooa]oo`8000Eo o`03001oogoo00Uoo`@003Eoo`009Woo00<007ooOol0ogoo7Goo00<007ooOol00goo0P002goo1000 goo00<007ooOol01Woo00<007oo Ool027oo00D007ooOomoo`00009oo`03001oogoo00moo`009Woo00<007ooOol0ogoo>goo00<007oo Ool01Woo0P002Goo00@007ooOomoo`800003Ool0000000moo`009Woo0P00ogoo?Goo00<007ooOol0 1goo00<007ooOol01goo00<007ooOol00Woo00@007ooOol000ioo`009Woo00<007ooOol0ogoo?Goo 00<007ooOol01goo00<007ooOol01goo0P000goo0P0000=oo`00Ool037oo000VOol2003oOoloOol2 0008Ool00`00Oomoo`08Ool00`00Oomoo`02Ool00`00Ool0000"], ImageRangeCache->{{{91.5625, 410.062}, {373.625, 177.125}} -> {-1.08239, \ 2.48733, 0.00250904, 0.0371149}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(LogLogPlot[{Evaluate[ Abs[factor*sfmaxt1[11]] /. \ parameters], \[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ Evaluate[ Abs[factor*sfmaxt2[11]] /. \ parameters], \[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ Evaluate[ Abs[factor*sfmaxt3[11]] /. \ parameters]\[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ }, \[IndentingNewLine]{xi, .001, 2}, \[IndentingNewLine]PlotRange \[Rule] {{ .01, 1. }, {10^\((\(-5\))\), 1000}}, PlotStyle \[Rule] {Thickness[ .0015], GrayLevel[0]}]\)], "Input"], 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 1 0.5 0.386271 0.0772542 [ [.15051 -0.0125 -14 -9.8125 ] [.15051 -0.0125 14 0 ] [.34949 -0.0125 -14 -9.8125 ] [.34949 -0.0125 14 0 ] [.5 -0.0125 -11 -9.8125 ] [.5 -0.0125 11 0 ] [.65051 -0.0125 -11 -9.8125 ] [.65051 -0.0125 11 0 ] [.84949 -0.0125 -11 -9.8125 ] [.84949 -0.0125 11 0 ] [1 -0.0125 -5 -9.8125 ] [1 -0.0125 5 0 ] [-0.0125 .15451 -34 -4.90625 ] [-0.0125 .15451 0 4.90625 ] [-0.0125 .30902 -22 -4.90625 ] [-0.0125 .30902 0 4.90625 ] [-0.0125 .46353 -16 -4.90625 ] [-0.0125 .46353 0 4.90625 ] [-0.0125 .61803 -28 -4.90625 ] [-0.0125 .61803 0 4.90625 ] [ -0.0005 -0.0005 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .15051 0 m .15051 .00625 L s gsave .15051 -0.0125 -75 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.02) show 87.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .34949 0 m .34949 .00625 L s gsave .34949 -0.0125 -75 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.05) show 87.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .5 0 m .5 .00625 L s gsave .5 -0.0125 -72 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.1) show 81.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .65051 0 m .65051 .00625 L s gsave .65051 -0.0125 -72 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.2) show 81.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .84949 0 m .84949 .00625 L s gsave .84949 -0.0125 -72 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.5) show 81.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 1 0 m 1 .00625 L s gsave 1 -0.0125 -66 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1) show 69.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .001 w .23856 0 m .23856 .00375 L s .30103 0 m .30103 .00375 L s .38908 0 m .38908 .00375 L s .42255 0 m .42255 .00375 L s .45154 0 m .45154 .00375 L s .47712 0 m .47712 .00375 L s .73856 0 m .73856 .00375 L s .80103 0 m .80103 .00375 L s .88908 0 m .88908 .00375 L s .92255 0 m .92255 .00375 L s .95154 0 m .95154 .00375 L s .97712 0 m .97712 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .15451 m .00625 .15451 L s gsave -0.0125 .15451 -95 -8.90625 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.001) show 93.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .30902 m .00625 .30902 L s gsave -0.0125 .30902 -83 -8.90625 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.1) show 81.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .46353 m .00625 .46353 L s gsave -0.0125 .46353 -77 -8.90625 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (10) show 75.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .61803 m .00625 .61803 L s gsave -0.0125 .61803 -89 -8.90625 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1000) show 87.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .001 w 0 .08337 m .00375 .08337 L s 0 .1052 m .00375 .1052 L s 0 .11831 m .00375 .11831 L s 0 .12772 m .00375 .12772 L s 0 .13505 m .00375 .13505 L s 0 .14107 m .00375 .14107 L s 0 .14617 m .00375 .14617 L s 0 .1506 m .00375 .1506 L s 0 .23788 m .00375 .23788 L s 0 .25971 m .00375 .25971 L s 0 .27282 m .00375 .27282 L s 0 .28223 m .00375 .28223 L s 0 .28956 m .00375 .28956 L s 0 .29558 m .00375 .29558 L s 0 .30068 m .00375 .30068 L s 0 .30511 m .00375 .30511 L s 0 .39239 m .00375 .39239 L s 0 .41422 m .00375 .41422 L s 0 .42733 m .00375 .42733 L s 0 .43673 m .00375 .43673 L s 0 .44407 m .00375 .44407 L s 0 .45009 m .00375 .45009 L s 0 .45519 m .00375 .45519 L s 0 .45962 m .00375 .45962 L s 0 .5469 m .00375 .5469 L s 0 .56872 m .00375 .56872 L s 0 .58184 m .00375 .58184 L s 0 .59124 m .00375 .59124 L s 0 .59858 m .00375 .59858 L s 0 .6046 m .00375 .6046 L s 0 .6097 m .00375 .6097 L s 0 .61412 m .00375 .61412 L s .25 Mabswid 0 0 m 0 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .0015 w .32475 0 m .45715 .10202 L .6159 .22193 L .70207 .28528 L .76153 .32742 L .81085 .36059 L .84963 .38467 L .88444 .40342 L .89998 .41018 L .90648 .4125 L .91341 .41453 L .91653 .41526 L .91824 .4156 L .91985 .41587 L .92133 .41609 L .92293 .41628 L .92363 .41634 L .92438 .4164 L .92503 .41644 L .92572 .41647 L .92612 .41649 L .92657 .4165 L .92735 .41651 L .9278 .4165 L .92827 .4165 L .92871 .41648 L .92911 .41646 L .92989 .41642 L .93074 .41635 L .93153 .41626 L .93227 .41616 L .93361 .41592 L .93509 .41558 L .93662 .41513 L .93804 .4146 L .94087 .4132 L .94246 .41218 L .94392 .41104 L .94686 .40808 L .94848 .40594 L .94995 .40361 L .95255 .39817 L .95401 .39412 L .95534 .38946 L .9565 .38435 L .95777 .37707 L .95841 .37242 L .95909 .36632 L .95973 .35901 L .96032 .35021 L Mistroke .96102 .33429 L .96168 .30403 L .96228 .27013 L .96292 .3254 L .96361 .34725 L .96396 .35468 L .96435 .36142 L .96565 .37829 L .96687 .38952 L .96817 .39899 L .97048 .41236 L .97608 .43558 L .98105 .45125 L Mfstroke .98105 .45125 m 1 .49606 L s .5 Mabswid .53301 0 m .6159 .08914 L .70207 .18082 L .76153 .24319 L .81085 .29406 L .84963 .33345 L .88444 .36857 L .91341 .39822 L .93804 .42461 L .96151 .45185 L .98193 .4781 L .9999 .50354 L s .9999 .50354 m 1 .50369 L s .0015 w .63026 0 m .70207 .09887 L .76153 .17992 L .81085 .24613 L .84963 .29705 L .88444 .34123 L .91341 .37607 L .93804 .40319 L .94952 .41448 L .96151 .42472 L .96677 .4285 L .97229 .43179 L .97491 .43304 L .97738 .43399 L .97844 .43432 L .97956 .43461 L .98021 .43475 L .98079 .43486 L .98134 .43494 L .98193 .43501 L .98252 .43506 L .98308 .43508 L .98341 .43509 L .98373 .43509 L .98433 .43506 L .98496 .43501 L .98553 .43493 L .98617 .43481 L .98684 .43464 L .98793 .43427 L .98895 .4338 L .99006 .43315 L .99126 .43224 L .99245 .43108 L .99375 .42949 L .9951 .42738 L .99635 .4249 L .9975 .42204 L .99857 .41869 L .99981 .41373 L s .99981 .41373 m 1 .41269 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{399.438, 246.875}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgGoo0P002Goo 1000;Goo00<007ooOol00goo003oOon@Ool00?mooi1oo`00ogooT7oo003oOon@Ool002Ioool006D0 00Eoo`009Woo00<007ooOol0Ool00`00Oomo o`0oOol00`00Oomoo`0JOol00`00Oomoo`1fOol002Ioo`03001oogoo08moo`03001oogoo03moo`03 001oogoo01Yoo`03001oogoo07Eoo`009Woo00<007ooOol0T7oo0P00@7oo00<007ooOol06Woo00<0 07ooOol0M7oo000VOol00`00Oomoo`2BOol00`00Oomoo`0nOol00`00Oomoo`0JOol00`00Oomoo`1c Ool002Ioo`03001oogoo09=oo`03001oogoo03ioo`03001oogoo01Uoo`03001oogoo07=oo`009Woo 00<007ooOol0U7oo0P00?goo00<007ooOol06Goo00<007ooOol0LWoo000VOol2002GOol00`00Oomo o`0mOol00`00Oomoo`0IOol00`00Oomoo`1aOol002Ioo`03001oogoo09Moo`03001oogoo03eoo`03 001oogoo01Qoo`03001oogoo075oo`009Woo00<007ooOol0V7oo0P00?Woo00<007ooOol067oo00<0 07ooOol0L7oo000VOol00`00Oomoo`2JOol00`00Oomoo`0lOol00`00Oomoo`0HOol00`00Oomoo`1_ Ool002Ioo`03001oogoo09]oo`03001oogoo03aoo`03001oogoo01Qoo`03001oogoo06ioo`009Woo 00<007ooOol0W7oo0P00?Goo00<007ooOol05goo00<007ooOol0KWoo000VOol00`00Oomoo`2NOol0 0`00Oomoo`0kOol00`00Oomoo`0GOol00`00Oomoo`1]Ool002Ioo`03001oogoo09moo`03001oogoo 03]oo`03001oogoo01Moo`03001oogoo06aoo`009Woo0P00XGoo0P00>goo00<007ooOol05goo00<0 07ooOol0K7oo000VOol00`00Oomoo`2ROol00`00Oomoo`0iOol00`00Oomoo`0GOol00`00Oomoo`1[ Ool002Ioo`03001oogoo0:=oo`03001oogoo03Uoo`03001oogoo01Moo`03001oogoo06Yoo`009Woo 00<007ooOol0Y7oo0P00>Woo00<007ooOol05goo00<007ooOol0JGoo000VOol00`00Oomoo`2VOol0 0`00Oomoo`0hOol00`00Oomoo`0FOol00`00Oomoo`1YOol002Ioo`800:Qoo`03001oogoo03Qoo`03 001oogoo01Ioo`03001oogoo06Qoo`009Woo00<007ooOol0Z7oo0P00>Goo00<007ooOol05Woo00<0 07ooOol0Igoo000VOol00`00Oomoo`2ZOol00`00Oomoo`0gOol00`00Oomoo`0FOol00`00Oomoo`1V Ool002Ioo`800:aoo`03001oogoo03Moo`03001oogoo01Eoo`03001oogoo06Ioo`009Woo00<007oo Ool0[7oo0P00>7oo00<007ooOol05Goo00<007ooOol0IGoo000VOol2002_Ool00`00Oomoo`0fOol0 0`00Oomoo`0EOol00`00Oomoo`1TOol002Ioo`03001oogoo0:moo`03001oogoo03Eoo`03001oogoo 01Ioo`03001oogoo06=oo`009Woo00<007ooOol0/7oo0P00=Woo00<007ooOol05Goo00<007ooOol0 Hgoo000VOol2002cOol00`00Oomoo`0dOol00`00Oomoo`0EOol00`00Oomoo`1ROol002Ioo`800;Ao o`8003Eoo`03001oogoo01Eoo`03001oogoo065oo`009Woo00<007ooOol0]Goo00<007ooOol0 Ool2000]Ool00`00Oomoo`0AOol00`00Oomoo`1BOol002Ioo`03001oogoo0=1oo`03001oogoo02]o o`03001oogoo015oo`03001oogoo055oo`009Woo00<007ooOol0dGoo00<007ooOol0:goo00<007oo Ool047oo00<007ooOol0DGoo000VOol00`00Oomoo`3BOol2000/Ool00`00Oomoo`0@Ool00`00Oomo o`1@Ool002Ioo`03001oogoo0=Aoo`03001oogoo02Uoo`03001oogoo015oo`03001oogoo04moo`00 9Woo00<007ooOol0eGoo00<007ooOol0:Goo00<007ooOol04Goo00<007ooOol0CWoo000VOol00`00 Oomoo`3FOol2000ZOol00`00Oomoo`0@Ool00`00Oomoo`1>Ool002Ioo`03001oogoo0=Qoo`03001o ogoo02Qoo`03001oogoo011oo`03001oogoo04eoo`009Woo00<007ooOol0fGoo00<007ooOol0:7oo 00<007ooOol047oo00<007ooOol0C7oo000VOol00`00Oomoo`3JOol2000YOol00`00Oomoo`0@Ool0 0`00Oomoo`1;Ool002Ioo`03001oogoo0=aoo`03001oogoo02Moo`03001oogoo00moo`03001oogoo 04]oo`009Woo00<007ooOol0gGoo00<007ooOol09goo00<007ooOol03goo00<007ooOol0BWoo000V Ool00`00Oomoo`3NOol2000XOol00`00Oomoo`0?Ool00`00Oomoo`19Ool002Ioo`800>5oo`03001o ogoo02Ioo`03001oogoo00moo`03001oogoo04Qoo`009Woo00<007ooOol0hGoo00<007ooOol09Woo 00<007ooOol03Woo00<007ooOol0B7oo000VOol00`00Oomoo`3ROol2000WOol00`00Oomoo`0>Ool0 0`00Oomoo`17Ool002Ioo`03001oogoo0>Aoo`03001oogoo02Eoo`03001oogoo00ioo`03001oogoo 04Ioo`009Woo00<007ooOol0iGoo00<007ooOol09Goo00<007ooOol03Woo00<007ooOol0AGoo000V Ool00`00Oomoo`3VOol00`00Oomoo`0UOol00`00Oomoo`0>Ool00`00Oomoo`14Ool002Ioo`03001o ogoo0>Moo`8002Ioo`03001oogoo00eoo`03001oogoo04Aoo`009Woo00<007ooOol0jGoo00<007oo Ool097oo00<007ooOol03Goo00<007ooOol0@goo000VOol2003[Ool00`00Oomoo`0TOol00`00Oomo o`0=Ool00`00Oomoo`12Ool002Ioo`03001oogoo0>]oo`8002Eoo`03001oogoo00eoo`03001oogoo 045oo`009Woo00<007ooOol0kGoo00<007ooOol08goo00<007ooOol037oo00<007ooOol0@Goo000V Ool00`00Oomoo`3^Ool00`00Oomoo`0SOol00`00Oomoo`0Ool002Ioo`03001oogoo0?moocIoo`8000]oo`03001oogoo00Aoo`03001oogoo00=oo`03 001oogoo00=oo`03001oogoo00ioo`009Woo00<007ooOol0ogoo>7oo0P002Woo00<007ooOol017oo 00D007ooOomoo`0000Ioo`03001oogoo00ioo`009Woo00<007ooOol0ogoo>Woo0P002Goo00<007oo Ool017oo00@007oo000000Ioo`03001oogoo00ioo`009Woo00<007ooOol0ogoo?7oo0`001goo00<0 07ooOol017oo00<007ooOol01Woo00<007ooOol03Woo000VOol00`00Oomoo`3oOoloOol20006Ool0 0`00Oomoo`02Ool30007Ool00`00Oomoo`08Ool00`00Oomoo`03Ool002Ioo`800?mood9oo`/000=o o`03001oogoo00Aoo`03001oogoo00Qoo`03001oogoo00=oo`009Woo00<007ooOol0ogooBGoo00<0 07ooOol017oo00<007ooOol00goo00<007ooOol01goo00<007ooOol017oo000VOol00`00Oomoo`3o Oom:Ool00`00Oomoo`04Ool20004Ool00`00Oomoo`06Ool00`00Oomoo`04Ool002Ioo`03001oogoo 0?mood]oo`03001oogoo00Eoo`05001oogooOol00008Ool00`00Oomoo`04Ool002Ioo`800?moodeo o`03001oogoo00Eoo`04001oogoo0007Ool00`00Oomoo`05Ool002Ioo`03001oogoo0?moodeoo`03 001oogoo00Eoo`03001oo`0000Moo`03001oogoo00Eoo`009Woo00<007ooOol0ogooCGoo00<007oo Ool01Woo0`0017oo0P0027oo000VOol00`00Oomoo`3oOom>Ool00`00Oomoo`07Ool60009Ool002Io o`800?mooe1oo`03001oogoo00Ioo`03001oogoo00aoo`009Woo00<007ooOol0ogooD7oo00<007oo Ool01Woo00<007ooOol02goo000VOol2003oOomBOol00`00Oomoo`05Ool00`00Oomoo`0;Ool002Io o`03001oogoo0?mooe5oo`03001oogoo00Eoo`03001oogoo00]oo`009Woo0P00ogooDgoo00<007oo Ool01Goo00<007ooOol02Woo000VOol00`00Oomoo`3oOomCOol00`00Oomoo`04Ool00`00Oomoo`0: Ool002Ioo`800?mooeEoo`03001oogoo00=oo`03001oogoo00Yoo`009Woo00<007ooOol0ogooEGoo 00<007ooOol00goo00<007ooOol02Goo000EOol40003Ool20008Ool2003oOomGOol00`00Oomoo`02 Ool00`00Oomoo`09Ool001Moo`05001oogooOol00002Ool00`00Oomoo`05Ool3003oOomGOol00`00 Oomoo`02Ool00`00Oomoo`08Ool001Moo`05001oogooOol00002Ool00`00Oomoo`05Ool00`00Oomo o`3oOomGOol00`00Oomoo`02Ool00`00Oomoo`08Ool001Moo`05001oogooOol00002Ool00`00Oomo o`05Ool00`00Oomoo`3oOomHOol00`00Oomoo`02Ool00`00Oomoo`07Ool001Moo`05001oogooOol0 0002Ool00`00Oomoo`05Ool00`00Oomoo`3oOomIOol01@00Oomoogoo00002Goo000EOol30003Ool0 1000Oomoo`001goo00<007ooOol0ogooFWoo00@007ooOol000Uoo`005goo00<007ooOol00Woo0P00 27oo00<007ooOol0ogooFgoo00@007ooOol000Qoo`009Woo00<007ooOol0ogooG7oo00<007oo0000 27oo000VOol00`00Oomoo`3oOomLOol01000Oomoo`001goo000VOol00`00Oomoo`3oOomMOol00`00 Ool00007Ool002Ioo`03001oogoo0?mooeioo`03001oo`0000Ioo`009Woo00<007ooOol0ogooGWoo 00<007oo00001Woo000VOol00`00Oomoo`3oOomOOol00`00Ool00005Ool002Ioo`03001oogoo0?mo of1oo`8000Eoo`009Woo00<007ooOol0ogooH7oo00<007ooOol017oo000VOol00`00Oomoo`3oOomQ Ool00`00Oomoo`03Ool002Ioo`03001oogoo0?moofMoo`009Woo00<007ooOol0ogooIgoo000VOol0 0`00Oomoo`3oOomWOol002Ioo`03001oogoo0?moofMoo`009Woo00<007ooOol0ogooIgoo000VOol0 0`00Oomoo`3oOomWOol002Ioo`03001oogoo0?moofMoo`009Woo00<007ooOol0ogooIgoo000VOol0 0`00Oomoo`3oOomWOol002Ioo`03001oogoo0?moofMoo`009Woo00<007ooOol0ogooIgoo000VOol0 0`00Oomoo`3oOomWOol002Ioo`03001oogoo0?moofMoo`009Woo00<007ooOol0ogooIgoo000VOol0 0`00Oomoo`3oOomWOol002Ioo`800?moofQoo`009Woo00<007ooOol0ogooIgoo000VOol00`00Oomo o`3oOomWOol002Ioo`03001oogoo0?moofMoo`009Woo00<007ooOol0ogooIgoo000VOol00`00Oomo o`3oOomWOol002Ioo`03001oogoo0?moofMoo`009Woo0P00ogooJ7oo000VOol00`00Oomoo`3oOomW Ool002Ioo`03001oogoo0?moofMoo`009Woo00<007ooOol0ogooIgoo000VOol00`00Oomoo`3oOomW Ool002Ioo`800?moofQoo`009Woo00<007ooOol0ogooIgoo000VOol00`00Oomoo`3oOomWOol002Io o`800?moofQoo`009Woo00<007ooOol0ogooIgoo000VOol00`00Oomoo`3oOomWOol002Ioo`800?mo ofQoo`009Woo00<007ooOol0ogooIgoo000VOol2003oOomXOol002Ioo`03001oogoo0?moofMoo`00 9Woo0P00ogooJ7oo000VOol00`00Oomoo`3oOomWOol000Uoo`@000=oo`8000Aoo`8000Aoo`8000Qo o`800?moofQoo`002goo00D007ooOomoo`00009oo`04001oogoo0002Ool01000Oomoo`000Woo00<0 07ooOol01Goo0`00ogooIgoo000;Ool01@00Oomoogoo00000Woo00@007ooOol0009oo`04001oogoo 0002Ool00`00Oomoo`3oOom_Ool000]oo`05001oogooOol00002Ool01000Oomoo`000Woo00@007oo Ool0009oo`03001oogoo0?moofmoo`002goo00D007ooOomoo`00009oo`04001oogoo0002Ool01000 Oomoo`000Woo00<007ooOol0ogooKgoo0009Ool30003Ool01000Oomoo`000Woo00@007ooOol0009o o`04001oogoo003oOomaOol000]oo`03001oogoo009oo`8000Aoo`8000Aoo`800?moog9oo`00ogoo T7oo003oOon@Ool00?mooi1oo`00\ \>"], ImageRangeCache->{{{91.5625, 410.062}, {674.062, 477.562}} -> {-2.8621, \ 16.1332, 0.00563876, 0.0364949}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(LogLogPlot[{Evaluate[ Abs[factor*sfmaxt1[11]] /. \ parameters], \[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ Evaluate[ Abs[factor*sfmaxt2[11]] /. \ parameters], \[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ Evaluate[ Abs[factor*sfmaxt3[11]] /. \ parameters]\[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ }, \[IndentingNewLine]{xi, .001, 2}, \[IndentingNewLine]PlotRange \[Rule] {{ .1, 1. }, {10^\((\(-5\))\), 1000}}, PlotStyle \[Rule] {Thickness[ .0015], GrayLevel[0]}]\)], "Input"], 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 1 1 0.386271 0.0772542 [ [.17609 -0.0125 -14 -9.8125 ] [.17609 -0.0125 14 0 ] [.30103 -0.0125 -11 -9.8125 ] [.30103 -0.0125 11 0 ] [.47712 -0.0125 -11 -9.8125 ] [.47712 -0.0125 11 0 ] [.69897 -0.0125 -11 -9.8125 ] [.69897 -0.0125 11 0 ] [.8451 -0.0125 -11 -9.8125 ] [.8451 -0.0125 11 0 ] [1 -0.0125 -5 -9.8125 ] [1 -0.0125 5 0 ] [-0.0125 .15451 -34 -4.90625 ] [-0.0125 .15451 0 4.90625 ] [-0.0125 .30902 -22 -4.90625 ] [-0.0125 .30902 0 4.90625 ] [-0.0125 .46353 -16 -4.90625 ] [-0.0125 .46353 0 4.90625 ] [-0.0125 .61803 -28 -4.90625 ] [-0.0125 .61803 0 4.90625 ] [ -0.0005 -0.0005 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .17609 0 m .17609 .00625 L s gsave .17609 -0.0125 -75 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.15) show 87.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .30103 0 m .30103 .00625 L s gsave .30103 -0.0125 -72 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.2) show 81.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .47712 0 m .47712 .00625 L s gsave .47712 -0.0125 -72 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.3) show 81.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .69897 0 m .69897 .00625 L s gsave .69897 -0.0125 -72 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.5) show 81.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .8451 0 m .8451 .00625 L s gsave .8451 -0.0125 -72 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.7) show 81.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 1 0 m 1 .00625 L s gsave 1 -0.0125 -66 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1) show 69.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .001 w .04139 0 m .04139 .00375 L s .07918 0 m .07918 .00375 L s .11394 0 m .11394 .00375 L s .14613 0 m .14613 .00375 L s .21085 0 m .21085 .00375 L s .24304 0 m .24304 .00375 L s .273 0 m .273 .00375 L s .60206 0 m .60206 .00375 L s .77815 0 m .77815 .00375 L s .92942 0 m .92942 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .15451 m .00625 .15451 L s gsave -0.0125 .15451 -95 -8.90625 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.001) show 93.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .30902 m .00625 .30902 L s gsave -0.0125 .30902 -83 -8.90625 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.1) show 81.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .46353 m .00625 .46353 L s gsave -0.0125 .46353 -77 -8.90625 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (10) show 75.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .61803 m .00625 .61803 L s gsave -0.0125 .61803 -89 -8.90625 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1000) show 87.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .001 w 0 .08337 m .00375 .08337 L s 0 .1052 m .00375 .1052 L s 0 .11831 m .00375 .11831 L s 0 .12772 m .00375 .12772 L s 0 .13505 m .00375 .13505 L s 0 .14107 m .00375 .14107 L s 0 .14617 m .00375 .14617 L s 0 .1506 m .00375 .1506 L s 0 .23788 m .00375 .23788 L s 0 .25971 m .00375 .25971 L s 0 .27282 m .00375 .27282 L s 0 .28223 m .00375 .28223 L s 0 .28956 m .00375 .28956 L s 0 .29558 m .00375 .29558 L s 0 .30068 m .00375 .30068 L s 0 .30511 m .00375 .30511 L s 0 .39239 m .00375 .39239 L s 0 .41422 m .00375 .41422 L s 0 .42733 m .00375 .42733 L s 0 .43673 m .00375 .43673 L s 0 .44407 m .00375 .44407 L s 0 .45009 m .00375 .45009 L s 0 .45519 m .00375 .45519 L s 0 .45962 m .00375 .45962 L s 0 .5469 m .00375 .5469 L s 0 .56872 m .00375 .56872 L s 0 .58184 m .00375 .58184 L s 0 .59124 m .00375 .59124 L s 0 .59858 m .00375 .59858 L s 0 .6046 m .00375 .6046 L s 0 .6097 m .00375 .6097 L s 0 .61412 m .00375 .61412 L s .25 Mabswid 0 0 m 0 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .0015 w 0 .13438 m .23181 .22193 L .40414 .28528 L .52306 .32742 L .62169 .36059 L .69927 .38467 L .76888 .40342 L .79997 .41018 L .81295 .4125 L .82682 .41453 L .83307 .41526 L .83648 .4156 L .8397 .41587 L .84266 .41609 L .84586 .41628 L .84727 .41634 L .84876 .4164 L .85006 .41644 L .85143 .41647 L .85225 .41649 L .85314 .4165 L .85471 .41651 L .85559 .4165 L .85653 .4165 L .85742 .41648 L .85823 .41646 L .85979 .41642 L .86148 .41635 L .86307 .41626 L .86454 .41616 L .86723 .41592 L .87018 .41558 L .87323 .41513 L .87609 .4146 L .88174 .4132 L .88492 .41218 L .88785 .41104 L .89371 .40808 L .89696 .40594 L .89989 .40361 L .90511 .39817 L .90802 .39412 L .91069 .38946 L .91301 .38435 L .91555 .37707 L .91682 .37242 L .91818 .36632 L .91946 .35901 L .92063 .35021 L .92204 .33429 L Mistroke .92337 .30403 L .92456 .27013 L .92583 .3254 L .92723 .34725 L .92793 .35468 L .92869 .36142 L .9313 .37829 L .93374 .38952 L .93633 .39899 L .94097 .41236 L .95216 .43558 L .9621 .45125 L Mfstroke .9621 .45125 m 1 .49606 L s .5 Mabswid .06602 0 m .23181 .08914 L .40414 .18082 L .52306 .24319 L .62169 .29406 L .69927 .33345 L .76888 .36857 L .82682 .39822 L .87609 .42461 L .92301 .45185 L .96386 .4781 L .99981 .50354 L s .99981 .50354 m 1 .50369 L s .0015 w .26052 0 m .40414 .09887 L .52306 .17992 L .62169 .24613 L .69927 .29705 L .76888 .34123 L .82682 .37607 L .87609 .40319 L .89905 .41448 L .92301 .42472 L .93353 .4285 L .94458 .43179 L .94982 .43304 L .95475 .43399 L .95688 .43432 L .95913 .43461 L .96042 .43475 L .96159 .43486 L .96268 .43494 L .96386 .43501 L .96505 .43506 L .96615 .43508 L .96683 .43509 L .96746 .43509 L .96866 .43506 L .96991 .43501 L .97107 .43493 L .97233 .43481 L .97367 .43464 L .97586 .43427 L .9779 .4338 L .98013 .43315 L .98252 .43224 L .98491 .43108 L .98751 .42949 L .99021 .42738 L .9927 .4249 L .99499 .42204 L .99714 .41869 L .99961 .41373 L s .99961 .41373 m 1 .41269 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{406.375, 251.188}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgGoo0P00?Goo00<0 07ooOol0lWoo000VOol00`00Oomoo`0kOol2000lOol2003bOol002Ioo`03001oogoo03eoo`03001o ogoo03]oo`03001oogoo0>moo`009Woo00<007ooOol0?Woo0P00?7oo00<007ooOol0kWoo000VOol0 0`00Oomoo`10Ool2000kOol2003^Ool002Ioo`03001oogoo049oo`8003]oo`03001oogoo0>]oo`00 9Woo00<007ooOol0A7oo0P00>Woo0P00jgoo000VOol00`00Oomoo`16Ool00`00Oomoo`0iOol00`00 Oomoo`3XOol002Ioo`03001oogoo04Moo`8003Yoo`800>Qoo`009Woo00<007ooOol0BGoo0P00>Woo 00<007ooOol0iGoo000VOol20019oo`009Woo00<007ooOol0Cgoo0P00>7oo00<007ooOol0hGoo000VOol00`00Oomoo`1A Ool00`00Oomoo`0fOol2003QOol002Ioo`03001oogoo059oo`8003Qoo`03001oogoo0=ioo`009Woo 00<007ooOol0E7oo0P00=goo0P00gWoo000VOol00`00Oomoo`1FOol2000gOol00`00Oomoo`3KOol0 02Ioo`03001oogoo05Qoo`8003Ioo`800=]oo`009Woo0P00Fgoo0P00=Woo00<007ooOol0f7oo000V Ool00`00Oomoo`1LOol2000eOol2003HOol002Ioo`03001oogoo05ioo`8003Eoo`03001oogoo0=Eo o`009Woo00<007ooOol0H7oo00<007ooOol0Goo0P00 Ggoo0P00:7oo0P00Ygoo000VOol00`00Oomoo`0kOol3001NOol2000XOol00`00Oomoo`2TOol002Io o`03001oogoo03ioo`8005ioo`8002Moo`800:Aoo`009Woo00<007ooOol0@7oo0`00GGoo0P009goo 00<007ooOol0XGoo000VOol00`00Oomoo`13Ool3001LOol2000VOol2002QOol002Ioo`03001oogoo 04Ioo`8005aoo`8002Ioo`03001oogoo09ioo`009Woo00<007ooOol0B7oo0`00Fgoo0P009Goo0P00 WWoo000VOol00`00Oomoo`1;Ool3001JOol2000UOol00`00Oomoo`2KOol002Ioo`03001oogoo04io o`8005Yoo`8002Aoo`8009]oo`009Woo00<007ooOol0D7oo0`00FGoo0P0097oo00<007ooOol0V7oo 000VOol00`00Oomoo`1COol3001HOol2000SOol2002HOol002Ioo`03001oogoo05Ioo`8005Qoo`80 02=oo`03001oogoo09Eoo`009Woo00<007ooOol0F7oo0`00Egoo0P008Woo0P00UGoo000VOol00`00 Oomoo`1KOol3001FOol2000ROol00`00Oomoo`2BOol002Ioo`8005moo`8005Ioo`80025oo`80099o o`009Woo00<007ooOol0H7oo0`00EGoo0P008Goo00<007ooOol0Sgoo000VOol00`00Oomoo`1SOol3 001DOol00`00Oomoo`0OOol2002?Ool002Ioo`03001oogoo06Ioo`8005=oo`80025oo`03001oogoo 08aoo`009Woo00<007ooOol0J7oo0`00DWoo0P0087oo0P00S7oo000VOol00`00Oomoo`1[Ool3001A Ool2000POol00`00Oomoo`29Ool002Ioo`03001oogoo06ioo`80055oo`8001moo`8008Uoo`009Woo 00<007ooOol0L7oo0`00D7oo0P007goo00<007ooOol0QWoo000VOol2001dOol3001?Ool2000NOol2 0026Ool002Ioo`03001oogoo07Ioo`<004ioo`8001ioo`03001oogoo08=oo`009Woo00<007ooOol0 NGoo0P00CWoo0P007Goo0P00Pgoo000VOol00`00Oomoo`1kOol3001=Ool00`00Oomoo`0LOol00`00 Oomoo`20Ool002Ioo`03001oogoo07ioo`<004]oo`8001eoo`03001oogoo05ioo`03001oogoo01io o`009Woo0P00PWoo0P00Bgoo0P0077oo0P00GWoo00<007ooOol07Woo000VOol00`00Oomoo`23Ool3 001:Ool2000LOol00`00Oomoo`1KOol00`00Oomoo`0NOol002Ioo`03001oogoo08Ioo`<004Uoo`80 01]oo`8005]oo`03001oogoo01ioo`009Woo0P00RWoo0P00BGoo0P006goo00<007ooOol0F7oo00<0 07ooOol07Woo000VOol00`00Oomoo`2;Ool30018Ool2000JOol2001HOol00`00Oomoo`0NOol002Io o`03001oogoo08ioo`<004Moo`8001Yoo`03001oogoo05Eoo`03001oogoo01ioo`009Woo0P00TWoo 0`00AWoo0P006Goo0P00E7oo0P0087oo000VOol00`00Oomoo`2DOol30015Ool2000IOol00`00Oomo o`1AOol2000POol002Ioo`8009Qoo`<004Aoo`03001oogoo01Moo`80055oo`80021oo`009Woo00<0 07ooOol0VWoo0P00@goo0P006Goo00<007ooOol0CWoo0P0087oo000VOol2002MOol30012Ool2000H Ool2001>Ool2000POol002Ioo`03001oogoo09moo`<0045oo`8001Qoo`03001oogoo04]oo`80021o o`0047oo0P0017oo00<007ooOol00Woo10001goo0P00Xgoo0`00@7oo0P005goo0P00Bgoo0P0087oo 000?Ool01000Oomoo`002Woo00<007ooOol01Woo0`00YGoo0`00?goo0P005goo0P00BGoo0P0087oo 000?Ool01000Oomoo`002Woo00<007ooOol01Woo00<007ooOol0Z7oo0`00?Woo0P005goo00<007oo Ool0AWoo0P0087oo000?Ool01000Oomoo`002Woo00<007ooOol01Woo00<007ooOol0Zgoo0`00?Goo 0P005Woo0P00AWoo0P0087oo000?Ool01000Oomoo`002Woo00<007ooOol01Woo00<007ooOol0[Woo 0P00?Goo0P005Woo00<007ooOol0@goo0P0087oo000?Ool01000Oomoo`0027oo0`0027oo00<007oo Ool0/7oo0`00?7oo0P005Goo0P00@goo0P0087oo000@Ool2000;Ool00`00Oomoo`06Ool00`00Oomo o`2cOol3000kOol2000EOol00`00Oomoo`10Ool2000POol002Ioo`03001oogoo0;Ioo`<003Yoo`80 01Aoo`80041oo`80021oo`009Woo00<007ooOol0^Goo0`00>Goo0P0057oo00<007ooOol0?Goo0P00 87oo000VOol00`00Oomoo`2lOol3000hOol2000COol2000mOol2000POol002Ioo`03001oogoo0;mo o`<003Moo`8001=oo`8003]oo`80021oo`009Woo00<007ooOol0`Woo0`00=Woo0P004goo00<007oo Ool0>7oo0P0087oo000VOol00`00Oomoo`35Ool3000eOol2000BOol2000hOol00`00Ool0000OOol0 02Ioo`03001oogoo0Ool2000HOol00`00Oomoo`04 Ool00`00Oomoo`0LOol002Ioo`03001oogoo0?aoo`@001moo`8000ioo`8001Ioo`03001oogoo00Eo o`03001oogoo01]oo`009Woo00<007ooOol0ogoo0Goo0`007Woo0P003Woo00<007ooOol04goo00<0 07ooOol01Goo00<007ooOol06goo000VOol2003oOol5Ool4000LOol2000=Ool2000COol00`00Oomo o`05Ool00`00Oomoo`0KOol002Ioo`03001oogoo0?moo`Qoo`@001Yoo`8000eoo`80011oo`03001o ogoo00Ioo`03001oogoo01]oo`009Woo00<007ooOol0ogoo37oo0`006Goo0P003Goo0P003Goo00<0 07ooOol027oo00<007ooOol06Woo000VOol00`00Oomoo`3oOol?Ool4000GOol2000=Ool2000:Ool0 0`00Oomoo`09Ool00`00Oomoo`0JOol002Ioo`03001oogoo0?mooa=oo`<001Ioo`8000eoo`03001o ogoo00Ioo`03001oogoo00Yoo`03001oogoo01Yoo`009Woo00<007ooOol0ogoo5Woo100057oo0P00 37oo0P0017oo0P003Woo00<007ooOol06Goo000VOol00`00Oomoo`3oOolJOol4000BOol2000Goo0P003Woo0P002Goo00<007ooOol03goo00<007ooOol0 1Goo000VOol00`00Oomoo`3oOolkOol00`00Oomoo`0=Ool30007Ool00`00Oomoo`0=Ool00`00Oomo o`06Ool002Ioo`800?mooceoo`80011oo`<000Aoo`03001oogoo00aoo`03001oogoo00Moo`009Woo 00<007ooOol0ogoo?Woo0P004Goo0P000goo00<007ooOol02Goo0P002Woo000VOol00`00Oomoo`3o Oom0Ool00`00Oomoo`0@Ool60006Ool4000;Ool002Ioo`800?mood9oo`8001Aoo`03001oo`0000D0 00moo`009Woo00<007ooOol0ogoo@goo0P004Woo00<007ooOol057oo000VOol00`00Oomoo`3oOom5 Ool2000AOol00`00Oomoo`0COol002Ioo`800?moodQoo`03001oogoo00ioo`03001oogoo01=oo`00 9Woo00<007ooOol0ogooB7oo0P003goo00<007ooOol04Woo000VOol2003oOom;Ool2000=Ool00`00 Oomoo`0BOol002Ioo`03001oogoo0?moodaoo`03001oogoo00]oo`03001oogoo015oo`009Woo0P00 ogooCWoo0P0037oo00<007ooOol047oo000VOol00`00Oomoo`3oOom?Ool2000;Ool00`00Oomoo`0? Ool001Eoo`@000=oo`8000Qoo`800?mooe9oo`03001oogoo00Uoo`03001oogoo00ioo`005goo00D0 07ooOomoo`00009oo`03001oogoo00Eoo`<00?mooe9oo`8000Uoo`03001oogoo00ioo`005goo00D0 07ooOomoo`00009oo`03001oogoo00Eoo`03001oogoo0?mooeAoo`8000Qoo`03001oogoo00eoo`00 5goo00D007ooOomoo`00009oo`03001oogoo00Eoo`03001oogoo0?mooeIoo`03001oogoo00Ioo`03 001oogoo00aoo`005goo00D007ooOomoo`00009oo`03001oogoo00Eoo`03001oogoo0?mooeMoo`80 00Moo`03001oogoo00]oo`005Goo0`000goo00@007ooOol000Moo`03001oogoo0?mooeUoo`8000Io o`03001oogoo00Yoo`005goo00<007ooOol00Woo0P0027oo00<007ooOol0ogooFgoo00<007ooOol0 17oo00<007ooOol02Goo000VOol00`00Oomoo`3oOomLOol00`00Oomoo`04Ool00`00Oomoo`08Ool0 02Ioo`03001oogoo0?mooeeoo`8000Eoo`03001oogoo00Moo`009Woo00<007ooOol0ogooGgoo00<0 07ooOol00Woo00<007ooOol01goo000VOol00`00Oomoo`3oOomPOol00`00Oomoo`02Ool00`00Oomo o`06Ool002Ioo`03001oogoo0?moof5oo`8000=oo`03001oogoo00Eoo`009Woo00<007ooOol0ogoo Hgoo00D007ooOomoo`0000Ioo`009Woo00<007ooOol0ogooI7oo00D007ooOomoo`0000Eoo`009Woo 00<007ooOol0ogooIGoo0P001goo000VOol00`00Oomoo`3oOomWOol00`00Oomoo`04Ool002Ioo`03 001oogoo0?moofQoo`03001oogoo00=oo`009Woo00<007ooOol0ogooKWoo000VOol00`00Oomoo`3o Oom^Ool002Ioo`03001oogoo0?moofioo`009Woo00<007ooOol0ogooKWoo000VOol00`00Oomoo`3o Oom^Ool002Ioo`03001oogoo0?moofioo`009Woo00<007ooOol0ogooKWoo000VOol00`00Oomoo`3o Oom^Ool002Ioo`03001oogoo0?moofioo`009Woo00<007ooOol0ogooKWoo000VOol00`00Oomoo`3o Oom^Ool002Ioo`03001oogoo0?moofioo`009Woo00<007ooOol0ogooKWoo000VOol00`00Oomoo`3o Oom^Ool002Ioo`800?moofmoo`009Woo00<007ooOol0ogooKWoo000VOol00`00Oomoo`3oOom^Ool0 02Ioo`03001oogoo0?moofioo`009Woo00<007ooOol0ogooKWoo000VOol00`00Oomoo`3oOom^Ool0 02Ioo`03001oogoo0?moofioo`009Woo00<007ooOol0ogooKWoo000VOol2003oOom_Ool002Ioo`03 001oogoo0?moofioo`009Woo00<007ooOol0ogooKWoo000VOol00`00Oomoo`3oOom^Ool002Ioo`03 001oogoo0?moofioo`009Woo0P00ogooKgoo000VOol00`00Oomoo`3oOom^Ool002Ioo`03001oogoo 0?moofioo`009Woo0P00ogooKgoo000VOol00`00Oomoo`3oOom^Ool002Ioo`03001oogoo0?moofio o`009Woo0P00ogooKgoo000VOol00`00Oomoo`3oOom^Ool002Ioo`800?moofmoo`009Woo00<007oo Ool0ogooKWoo000VOol2003oOom_Ool002Ioo`03001oogoo0?moofioo`002Goo10000goo0P0017oo 0P0017oo0P0027oo0P00ogooKgoo000;Ool01@00Oomoogoo00000Woo00@007ooOol0009oo`04001o ogoo0002Ool00`00Oomoo`05Ool3003oOom^Ool000]oo`05001oogooOol00002Ool01000Oomoo`00 0Woo00@007ooOol0009oo`03001oogoo0?moogIoo`002goo00D007ooOomoo`00009oo`04001oogoo 0002Ool01000Oomoo`000Woo00<007ooOol0ogooMWoo000;Ool01@00Oomoogoo00000Woo00@007oo Ool0009oo`04001oogoo0002Ool00`00Oomoo`3oOomfOol000Uoo`<000=oo`04001oogoo0002Ool0 1000Oomoo`000Woo00@007ooOol00?moogQoo`002goo00<007ooOol00Woo0P0017oo0P0017oo0P00 ogooNGoo003oOonGOol00?mooiMoo`00ogooUgoo0000\ \>"], ImageRangeCache->{{{91.5625, 415.625}, {349.688, 149.75}} -> {-1.4231, \ 1.05906, 0.00276583, 0.0358017}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[BoxData[ \(ximin\ = \ .001; \ \ ximax\ = \ 2; \ \ delxi\ = \ 1.2;\)], "Input"], Cell[BoxData[ \(xip[i_]\ := \ ximin\ delxi^i\)], "Input"], Cell[BoxData[ \(maxt1[xip_]\ := \(Abs[factor*sfmaxt1[11]] /. parameters\)\ /. \ xi \[Rule] xip\)], "Input"], Cell[BoxData[ \(maxt2[xip_]\ := \(Abs[factor*sfmaxt2[11]] /. parameters\)\ /. \ xi \[Rule] xip\)], "Input"], Cell[BoxData[ \(maxt3[xip_]\ := \(Abs[factor*sfmaxt3[11]] /. parameters\)\ /. \ xi \[Rule] xip\)], "Input"], Cell["\<\ To extract this table for use in xmgr or xmgrace, first select it \ (clicking on the bar on the right) and then do Cell->Convert to OutputForm. \ This gets rid of spaces in the exponent. Then do Edit->Copy As Plain Text, \ which puts it in the copy buffer. Open up a new nedit window or emacs window and you should be able to just \"paste\" the result in \ (ctrl-v or Paste from the Edit menu in Nedit).\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(\[IndentingNewLine]\)\(TableForm[ Table[{xip[ i], \[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ FortranForm[\[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \(Abs[ factor*sfmaxt1[11]] /. parameters\)\ /. \ xi \[Rule] xip[i]], \[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ FortranForm[\[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \(Abs[ factor*sfmaxt2[11]] /. parameters\) /. \ xi \[Rule] xip[i]], \[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ FortranForm[\[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \(Abs[ factor*sfmaxt3[11]] /. parameters\) /. \ xi \[Rule] xip[i]]}, \[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ {i, 0, Log[ximax/ximin]/ Log[delxi]}], \[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ TableSpacing \[Rule] {0, 1}]\)\)\)], "Input"], Cell[BoxData[ TagBox[GridBox[{ {"0.001`", InterpretationBox[ StyleBox[\(5.94552865211192 e - 14\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 5.9455286521119201*^-14], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(3.5303149177076884 e - 20\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 3.5303149177076884*^-20], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(4.678032208485626 e - 26\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 4.6780322084856258*^-26], Editable->True, AutoDelete->True]}, {"0.0012`", InterpretationBox[ StyleBox[\(1.4792526670557268 e - 13\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.4792526670557268*^-13], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.2649749255710398 e - 19\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.2649749255710398*^-19], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(2.4137608555548562 e - 25\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.4137608555548562*^-25], Editable->True, AutoDelete->True]}, {"0.0014399999999999999`", InterpretationBox[ StyleBox[\(3.6803009021723616 e - 13\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 3.6803009021723616*^-13], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(4.532630060260814 e - 19\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 4.5326300602608138*^-19], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.2454468317808643 e - 24\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.2454468317808643*^-24], Editable->True, AutoDelete->True]}, {"0.0017279999999999997`", InterpretationBox[ StyleBox[\(9.156113615427206 e - 13\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 9.1561136154272055*^-13], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.6241213369776082 e - 18\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.6241213369776082*^-18], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(6.426226505321868 e - 24\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 6.426226505321868*^-24], Editable->True, AutoDelete->True]}, {"0.0020736`", InterpretationBox[ StyleBox[\(2.277840133897637 e - 12\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.2778401338976369*^-12], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(5.819510259984184 e - 18\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 5.8195102599841839*^-18], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(3.315787574955452 e - 23\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 3.3157875749554518*^-23], Editable->True, AutoDelete->True]}, {"0.0024883199999999996`", InterpretationBox[ StyleBox[\(5.666518763259606 e - 12\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 5.6665187632596059*^-12], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(2.085230515259468 e - 17\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.0852305152594681*^-17], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.710870473830391 e - 22\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.710870473830391*^-22], Editable->True, AutoDelete->True]}, {"0.0029859839999999993`", InterpretationBox[ StyleBox[\(1.4095697969983848 e - 11\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.4095697969983848*^-11], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(7.471730972504762 e - 17\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 7.4717309725047623*^-17], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(8.827692939557607 e - 22\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 8.8276929395576067*^-22], Editable->True, AutoDelete->True]}, {"0.0035831807999999995`", InterpretationBox[ StyleBox[\(3.506140734920114 e - 11\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 3.5061407349201137*^-11], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(2.6772423787779763 e - 16\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.6772423787779763*^-16], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(4.554878631425906 e - 21\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 4.5548786314259063*^-21], Editable->True, AutoDelete->True]}, {"0.0042998169599999985`", InterpretationBox[ StyleBox[\(8.720451611129625 e - 11\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 8.7204516111296249*^-11], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(9.592971677652574 e - 16\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 9.5929716776525738*^-16], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(2.350204675706247 e - 20\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.350204675706247*^-20], Editable->True, AutoDelete->True]}, {"0.005159780351999999`", InterpretationBox[ StyleBox[\(2.1687458705156232 e - 10\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.1687458705156232*^-10], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(3.4372981406544512 e - 15\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 3.4372981406544512*^-15], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.2126445910071299 e - 19\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.2126445910071299*^-19], Editable->True, AutoDelete->True]}, {"0.006191736422399998`", InterpretationBox[ StyleBox[\(5.392996591795364 e - 10\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 5.3929965917953643*^-10], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.231626952296103 e - 14\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.231626952296103*^-14], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(6.256909892730292 e - 19\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 6.2569098927302919*^-19], Editable->True, AutoDelete->True]}, {"0.007430083706879997`", InterpretationBox[ StyleBox[\(1.340890700003509 e - 9\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.340890700003509*^-09], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(4.4130434070058814 e - 14\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 4.4130434070058814*^-14], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(3.228376179752611 e - 18\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 3.228376179752611*^-18], Editable->True, AutoDelete->True]}, {"0.008916100448255996`", InterpretationBox[ StyleBox[\(3.3333900827845254 e - 9\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 3.3333900827845254*^-09], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.5812223458463211 e - 13\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.5812223458463211*^-13], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.6657326410913533 e - 17\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.6657326410913533*^-17], Editable->True, AutoDelete->True]}, {"0.010699320537907194`", InterpretationBox[ StyleBox[\(8.285018857820185 e - 9\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 8.285018857820185*^-09], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(5.665542959482116 e - 13\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 5.6655429594821158*^-13], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(8.594528071273304 e - 17\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 8.5945280712733038*^-17], Editable->True, AutoDelete->True]}, {"0.012839184645488633`", InterpretationBox[ StyleBox[\(2.0587195273705174 e - 8\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.0587195273705174*^-08], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(2.029930995393927 e - 12\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.0299309953939269*^-12], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(4.4343748492260054 e - 16\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 4.4343748492260054*^-16], Editable->True, AutoDelete->True]}, {"0.01540702157458636`", InterpretationBox[ StyleBox[\(5.1141647146672806 e - 8\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 5.1141647146672806*^-08], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(7.272910802835957 e - 12\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 7.2729108028359568*^-12], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(2.2878818664257553 e - 15\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.2878818664257553*^-15], Editable->True, AutoDelete->True]}, {"0.01848842588950363`", InterpretationBox[ StyleBox[\(1.269984243627065 e - 7\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.2699842436270651*^-07], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(2.6056548450418215 e - 11\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.6056548450418215*^-11], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.1803792792598943 e - 14\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.1803792792598943*^-14], Editable->True, AutoDelete->True]}, {"0.022186111067404354`", InterpretationBox[ StyleBox[\(3.152344055190924 e - 7\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 3.1523440551909238*^-07], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(9.334672299854137 e - 11\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 9.3346722998541365*^-11], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(6.089624696851704 e - 14\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 6.0896246968517039*^-14], Editable->True, AutoDelete->True]}, {"0.026623333280885227`", InterpretationBox[ StyleBox[\(7.820554917428959 e - 7\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 7.8205549174289586*^-07], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(3.343822414688661 e - 10\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 3.3438224146886612*^-10], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(3.141463853555566 e - 13\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 3.1414638535555659*^-13], Editable->True, AutoDelete->True]}, {"0.03194799993706227`", InterpretationBox[ StyleBox[\(1.9389036210797817 e - 6\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.9389036210797817*^-06], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.1976572264555665 e - 9\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.1976572264555665*^-09], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.6204443330339715 e - 12\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.6204443330339715*^-12], Editable->True, AutoDelete->True]}, {"0.038337599924474726`", InterpretationBox[ StyleBox[\(4.803095799570889 e - 6\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 4.8030957995708887*^-06], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(4.2888711684100335 e - 9\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 4.2888711684100335*^-09], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(8.357555428398967 e - 12\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 8.3575554283989667*^-12], Editable->True, AutoDelete->True]}, {"0.04600511990936966`", InterpretationBox[ StyleBox["0.000011886267075322994", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.1886267075322994*^-05], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.535465091629799 e - 8\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.535465091629799*^-08], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(4.3096540168358795 e - 11\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 4.3096540168358795*^-11], Editable->True, AutoDelete->True]}, {"0.0552061438912436`", InterpretationBox[ StyleBox["0.000029377625395953584", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.9377625395953584*^-05], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(5.4950742083491975 e - 8\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 5.4950742083491975*^-08], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(2.2217096576711776 e - 10\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.2217096576711776*^-10], Editable->True, AutoDelete->True]}, {"0.06624737266949232`", InterpretationBox[ StyleBox["0.00007249179940341824", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 7.2491799403418238*^-05], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.9654963837644022 e - 7\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.9654963837644022*^-07], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.1448843417344985 e - 9\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.1448843417344985*^-09], Editable->True, AutoDelete->True]}, {"0.07949684720339077`", InterpretationBox[ StyleBox["0.00017851310353276633", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.00017851310353276633], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(7.024787814437628 e - 7\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 7.0247878144376284*^-07], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(5.896436625163698 e - 9\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 5.8964366251636983*^-09], Editable->True, AutoDelete->True]}, {"0.09539621664406893`", InterpretationBox[ StyleBox["0.00043843471816978864", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.00043843471816978864], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(2.5078932628909915 e - 6\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.5078932628909915*^-06], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(3.0343217689399383 e - 8\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 3.0343217689399383*^-08], Editable->True, AutoDelete->True]}, {"0.11447545997288272`", InterpretationBox[ StyleBox["0.001073122271889803", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.0010731222718898029], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(8.938998465572239 e - 6\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 8.9389984655722387*^-06], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.5596175750299513 e - 7\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.5596175750299513*^-07], Editable->True, AutoDelete->True]}, {"0.13737055196745926`", InterpretationBox[ StyleBox["0.0026147655834634423", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.0026147655834634423], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.00003178863566293761", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 3.1788635662937612*^-05], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(8.002511851492771 e - 7\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 8.0025118514927711*^-07], Editable->True, AutoDelete->True]}, {"0.16484466236095108`", InterpretationBox[ StyleBox["0.006332917528996459", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.006332917528996459], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.00011267601947611804", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.00011267601947611804], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(4.095854171319228 e - 6\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 4.095854171319228*^-06], Editable->True, AutoDelete->True]}, {"0.1978135948331413`", InterpretationBox[ StyleBox["0.01521402067131494", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.015214020671314939], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.0003975281981869572", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.00039752819818695721], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.000020886537446565963", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.0886537446565963*^-05], Editable->True, AutoDelete->True]}, {"0.23737631379976953`", InterpretationBox[ StyleBox["0.03614380884842592", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.036143808848425919], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.0013933221986151712", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.0013933221986151712], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.00010593344854394445", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.00010593344854394445], Editable->True, AutoDelete->True]}, {"0.28485157655972343`", InterpretationBox[ StyleBox["0.08453380486333571", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.084533804863335713], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.0048391560491695025", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.0048391560491695025], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.0005329480000226138", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.00053294800002261385], Editable->True, AutoDelete->True]}, {"0.3418218918716681`", InterpretationBox[ StyleBox["0.19331433830063044", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.19331433830063044], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.016600711382828433", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.016600711382828433], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.0026485087018390113", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.0026485087018390113], Editable->True, AutoDelete->True]}, {"0.4101862702460017`", InterpretationBox[ StyleBox["0.42746806976962987", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.42746806976962987], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.056061018512856754", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.056061018512856754], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.012912417309497947", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.012912417309497947], Editable->True, AutoDelete->True]}, {"0.4922235242952021`", InterpretationBox[ StyleBox["0.8955888514370769", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.89558885143707689], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.1861161793581795", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.18611617935817951], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.0610281115905144", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.061028111590514397], Editable->True, AutoDelete->True]}, {"0.5906682291542424`", InterpretationBox[ StyleBox["1.6966188382093408", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.6966188382093408], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.6122581383316337", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.61225813833163367], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.27330453982533914", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.27330453982533914], Editable->True, AutoDelete->True]}, {"0.708801874985091`", InterpretationBox[ StyleBox["2.458580192779322", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.4585801927793218], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["2.071935508796209", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.071935508796209], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["1.101195676772436", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.101195676772436], Editable->True, AutoDelete->True]}, {"0.850562249982109`", InterpretationBox[ StyleBox["0.5949114276302819", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.59491142763028193], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["7.983838972585998", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 7.983838972585998], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["3.3860637674247998", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 3.3860637674247998], Editable->True, AutoDelete->True]}, {"1.0206746999785308`", InterpretationBox[ StyleBox["34.46251745507575", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 34.462517455075748], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["40.327533963959596", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 40.327533963959596], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.41288323191446213", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.41288323191446213], Editable->True, AutoDelete->True]}, {"1.224809639974237`", InterpretationBox[ StyleBox["296.6932422079059", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 296.69324220790588], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["270.5956949525433", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 270.59569495254328], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["124.61541427229751", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 124.61541427229751], Editable->True, AutoDelete->True]}, {"1.4697715679690841`", InterpretationBox[ StyleBox["2306.076404882818", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2306.0764048828182], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["2107.793816401965", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2107.7938164019652], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["1584.7200774898984", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1584.7200774898984], Editable->True, AutoDelete->True]}, {"1.763725881562901`", InterpretationBox[ StyleBox["17982.196133719783", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 17982.196133719783], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["17048.222228435538", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 17048.222228435538], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["15173.954450181604", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 15173.954450181604], Editable->True, AutoDelete->True]} }, RowSpacings->0, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{Left}], (TableForm[ #, TableSpacing -> {0, 1}]&)]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(\[IndentingNewLine]\)\(TableForm[ Table[{xip[ i], \[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ FortranForm[\[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \(Abs[ factor*sfmaxt1[11]]/xi^3 /. parameters\)\ /. \ xi \[Rule] xip[i]], \[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ FortranForm[\[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \(Abs[ factor*sfmaxt2[11]]/xi^3 /. parameters\) /. \ xi \[Rule] xip[i]], \[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ FortranForm[\[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \(Abs[ factor*sfmaxt3[11]]/xi^3 /. parameters\) /. \ xi \[Rule] xip[i]]}, \[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ {i, 0, Log[ximax/ximin]/ Log[delxi]}], \[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ TableSpacing \[Rule] {0, 1}]\)\)\)], "Input"], Cell[BoxData[ TagBox[GridBox[{ {"0.001`", InterpretationBox[ StyleBox["0.000059455286521119194", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 5.9455286521119194*^-05], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(3.530314917707688 e - 11\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 3.5303149177076879*^-11], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(4.678032208485625 e - 17\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 4.6780322084856251*^-17], Editable->True, AutoDelete->True]}, {"0.0012`", InterpretationBox[ StyleBox["0.00008560489971387311", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 8.5604899713873108*^-05], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(7.320456745202778 e - 11\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 7.3204567452027783*^-11], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.3968523469646166 e - 16\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.3968523469646166*^-16], Editable->True, AutoDelete->True]}, {"0.0014399999999999999`", InterpretationBox[ StyleBox["0.00012325253257125163", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.00012325253257125163], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.517968636222034 e - 10\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.5179686362220341*^-10], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(4.1709762402640616 e - 16\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 4.1709762402640616*^-16], Editable->True, AutoDelete->True]}, {"0.0017279999999999997`", InterpretationBox[ StyleBox["0.0001774516159758269", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.0001774516159758269], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(3.147655958548851 e - 10\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 3.1476559585488507*^-10], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.245445749029022 e - 15\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.245445749029022*^-15], Editable->True, AutoDelete->True]}, {"0.0020736`", InterpretationBox[ StyleBox["0.00025547492955209865", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.00025547492955209865], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(6.526968032445716 e - 10\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 6.5269680324457164*^-10], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(3.718876423833947 e - 15\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 3.7188764238339469*^-15], Editable->True, AutoDelete->True]}, {"0.0024883199999999996`", InterpretationBox[ StyleBox["0.00036778807219991426", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.00036778807219991426], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.353428698184614 e - 9\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.353428698184614*^-09], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.1104485481168177 e - 14\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.1104485481168177*^-14], Editable->True, AutoDelete->True]}, {"0.0029859839999999993`", InterpretationBox[ StyleBox["0.0005294490295887986", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.00052944902958879862], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(2.8064596170868082 e - 9\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.8064596170868082*^-09], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(3.3157729899642705 e - 14\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 3.3157729899642705*^-14], Editable->True, AutoDelete->True]}, {"0.0035831807999999995`", InterpretationBox[ StyleBox["0.0007621196818587212", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.00076211968185872119], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(5.819444409779081 e - 9\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 5.8194444097790807*^-09], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(9.900808084837168 e - 14\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 9.900808084837168*^-14], Editable->True, AutoDelete->True]}, {"0.0042998169599999985`", InterpretationBox[ StyleBox["0.0010969556552121573", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.0010969556552121573], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.206710959632045 e - 8\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.2067109596320451*^-08], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(2.956349538860711 e - 13\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.956349538860711*^-13], Editable->True, AutoDelete->True]}, {"0.005159780351999999`", InterpretationBox[ StyleBox["0.001578756028460424", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.0015787560284604241], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(2.502208873317105 e - 8\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.5022088733171048*^-08], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(8.827543994249833 e - 13\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 8.8275439942498332*^-13], Editable->True, AutoDelete->True]}, {"0.006191736422399998`", InterpretationBox[ StyleBox["0.0022719185859227872", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.0022719185859227872], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(5.1884997815535974 e - 8\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 5.1884997815535974*^-08], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(2.635861090170979 e - 12\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.635861090170979*^-12], Editable->True, AutoDelete->True]}, {"0.007430083706879997`", InterpretationBox[ StyleBox["0.0032689799665877027", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.0032689799665877027], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.0758632667932153 e - 7\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.0758632667932153*^-07], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(7.870512530359564 e - 12\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 7.8705125303595637*^-12], Editable->True, AutoDelete->True]}, {"0.008916100448255996`", InterpretationBox[ StyleBox["0.004702851671850671", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.0047028516718506707], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(2.2308382661651123 e - 7\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.2308382661651123*^-07], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(2.350068051282159 e - 11\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.3500680512821589*^-11], Editable->True, AutoDelete->True]}, {"0.010699320537907194`", InterpretationBox[ StyleBox["0.006764331849963603", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.0067643318499636031], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(4.6256518356609985 e - 7\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 4.6256518356609985*^-07], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(7.017031700905036 e - 11\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 7.0170317009050361*^-11], Editable->True, AutoDelete->True]}, {"0.012839184645488633`", InterpretationBox[ StyleBox["0.009727132906967627", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.0097271329069676272], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(9.59111152425385 e - 7\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 9.5911115242538509*^-07], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(2.0951738662929047 e - 10\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.0951738662929047*^-10], Editable->True, AutoDelete->True]}, {"0.01540702157458636`", InterpretationBox[ StyleBox["0.013983588628419943", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.013983588628419943], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.9886217686022647 e - 6\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.9886217686022647*^-06], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(6.255723199287058 e - 10\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 6.2557231992870575*^-10], Editable->True, AutoDelete->True]}, {"0.01848842588950363`", InterpretationBox[ StyleBox["0.020095486400537155", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.020095486400537155], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(4.123035523140546 e - 6\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 4.123035523140546*^-06], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.8677629957122993 e - 9\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.8677629957122993*^-09], Editable->True, AutoDelete->True]}, {"0.022186111067404354`", InterpretationBox[ StyleBox["0.028866229691645727", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.028866229691645727], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(8.547823143229603 e - 6\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 8.547823143229603*^-06], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(5.5763109025418 e - 9\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 5.5763109025417999*^-09], Editable->True, AutoDelete->True]}, {"0.026623333280885227`", InterpretationBox[ StyleBox["0.04144291389359543", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.041442913893595432], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.000017719681770737383", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.7719681770737383*^-05], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.664733735103631 e - 8\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.6647337351036309*^-08], Editable->True, AutoDelete->True]}, {"0.03194799993706227`", InterpretationBox[ StyleBox["0.05946003999797679", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.059460039997976791], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.00003672835813739691", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 3.6728358137396907*^-05], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(4.9693901135238584 e - 8\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 4.9693901135238584*^-08], Editable->True, AutoDelete->True]}, {"0.038337599924474726`", InterpretationBox[ StyleBox["0.08524059765026634", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.085240597650266342], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.00007611464707260868", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 7.6114647072608681*^-05], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.483216344915715 e - 7\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.4832163449157151*^-07], Editable->True, AutoDelete->True]}, {"0.04600511990936966`", InterpretationBox[ StyleBox["0.12207507036757585", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.12207507036757585], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.00015769627917650546", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.00015769627917650546], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(4.4261273453747436 e - 7\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 4.4261273453747436*^-07], Editable->True, AutoDelete->True]}, {"0.0552061438912436`", InterpretationBox[ StyleBox["0.17460410486103745", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.17460410486103745], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.0003265963468326954", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.00032659634683269539], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(1.3204594340433968 e - 6\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.3204594340433968*^-06], Editable->True, AutoDelete->True]}, {"0.06624737266949232`", InterpretationBox[ StyleBox["0.24933480282382398", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.24933480282382398], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.0006760304714876864", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.00067603047148768645], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox[\(3.937817987023154 e - 6\), ShowStringCharacters->True, NumberMarks->True], FortranForm[ 3.9378179870231536*^-06], Editable->True, AutoDelete->True]}, {"0.07949684720339077`", InterpretationBox[ StyleBox["0.3553205985621184", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.35532059856211839], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.001398245709475159", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.001398245709475159], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.00001173653557959794", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.173653557959794*^-05], Editable->True, AutoDelete->True]}, {"0.09539621664406893`", InterpretationBox[ StyleBox["0.5050233792869294", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.50502337928692942], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.0028887874933883517", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.0028887874933883517], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.000034951689957192234", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 3.4951689957192234*^-05], Editable->True, AutoDelete->True]}, {"0.11447545997288272`", InterpretationBox[ StyleBox["0.7153391868947365", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.71533918689473652], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.005958702061746393", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.0059587020617463933], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.00010396350883892855", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.00010396350883892855], Editable->True, AutoDelete->True]}, {"0.13737055196745926`", InterpretationBox[ StyleBox["1.0086763311715305", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.0086763311715305], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.012262837095694352", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.012262837095694352], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.0003087062314713718", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.00030870623147137181], Editable->True, AutoDelete->True]}, {"0.16484466236095108`", InterpretationBox[ StyleBox["1.4137713108169094", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.4137713108169094], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.02515398677197461", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.025153986771974609], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.0009143654712362084", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.00091436547123620836], Editable->True, AutoDelete->True]}, {"0.1978135948331413`", InterpretationBox[ StyleBox["1.965511530223132", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.9655115302231321], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.05135698669047223", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.051356986690472228], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.0026983485210497252", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.0026983485210497252], Editable->True, AutoDelete->True]}, {"0.23737631379976953`", InterpretationBox[ StyleBox["2.7022266480518025", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.7022266480518025], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.10416921996819414", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.10416921996819414], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.007919923126417755", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.0079199231264177553], Editable->True, AutoDelete->True]}, {"0.28485157655972343`", InterpretationBox[ StyleBox["3.6574174662619385", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 3.6574174662619385], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.20936965850304512", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.20936965850304512], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.023058388617942068", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.023058388617942068], Editable->True, AutoDelete->True]}, {"0.3418218918716681`", InterpretationBox[ StyleBox["4.840212697952829", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 4.840212697952829], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.41564932397957677", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.41564932397957677], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.06631347453050222", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.066313474530502223], Editable->True, AutoDelete->True]}, {"0.4101862702460017`", InterpretationBox[ StyleBox["6.193844834821494", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 6.1938448348214941], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.8123021916884228", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.81230219168842277], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.18709586730207664", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.18709586730207664], Editable->True, AutoDelete->True]}, {"0.4922235242952021`", InterpretationBox[ StyleBox["7.509682601831065", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 7.5096826018310647], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["1.5606195095022233", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.5606195095022233], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.5117323056204776", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.51173230562047756], Editable->True, AutoDelete->True]}, {"0.5906682291542424`", InterpretationBox[ StyleBox["8.23291155419066", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 8.2329115541906592], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["2.971007386984947", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2.9710073869849469], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["1.3262213368534834", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 1.3262213368534834], Editable->True, AutoDelete->True]}, {"0.708801874985091`", InterpretationBox[ StyleBox["6.90414343441128", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 6.9041434344112798], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["5.8183743534547085", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 5.8183743534547085], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["3.0923591282966605", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 3.0923591282966605], Editable->True, AutoDelete->True]}, {"0.850562249982109`", InterpretationBox[ StyleBox["0.9667941192898799", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.96679411928987991], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["12.974584466799719", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 12.974584466799719], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["5.5027124809599135", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 5.5027124809599135], Editable->True, AutoDelete->True]}, {"1.0206746999785308`", InterpretationBox[ StyleBox["32.410441690595434", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 32.410441690595434], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["37.926224912855744", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 37.926224912855744], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["0.38829803801861745", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 0.38829803801861745], Editable->True, AutoDelete->True]}, {"1.224809639974237`", InterpretationBox[ StyleBox["161.47372607340623", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 161.47372607340623], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["147.2702741668501", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 147.2702741668501], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["67.82127937591704", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 67.821279375917044], Editable->True, AutoDelete->True]}, {"1.4697715679690841`", InterpretationBox[ StyleBox["726.3135836946701", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 726.31358369467011], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["663.8632081915645", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 663.86320819156447], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["499.1177725930858", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 499.11777259308582], Editable->True, AutoDelete->True]}, {"1.763725881562901`", InterpretationBox[ StyleBox["3277.551061757912", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 3277.5510617579121], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["3107.3189531681073", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 3107.3189531681073], Editable->True, AutoDelete->True], InterpretationBox[ StyleBox["2765.7028179111016", ShowStringCharacters->True, NumberMarks->True], FortranForm[ 2765.7028179111016], Editable->True, AutoDelete->True]} }, RowSpacings->0, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{Left}], (TableForm[ #, TableSpacing -> {0, 1}]&)]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(LogLogPlot[{Evaluate[ Abs[factor*sfmaxt1[11]]/xi^3 /. \ parameters], \[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ Evaluate[ Abs[factor*sfmaxt2[11]]/xi^3 /. \ parameters], \[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ Evaluate[ Abs[factor*sfmaxt3[11]]/xi^3 /. \ parameters]\[IndentingNewLine]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ }, \[IndentingNewLine]{xi, .001, 2}, \[IndentingNewLine]PlotRange \[Rule] {{ .001, 1. }, {10^\((\(-8\))\), 10}}, PlotStyle \[Rule] {Thickness[ .0015], GrayLevel[0]}]\)], "Input"], 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 1 0.333333 0.549364 0.0686704 [ [.23299 -0.0125 -17 -9.8125 ] [.23299 -0.0125 17 0 ] [.33333 -0.0125 -14 -9.8125 ] [.33333 -0.0125 14 0 ] [.56632 -0.0125 -14 -9.8125 ] [.56632 -0.0125 14 0 ] [.66667 -0.0125 -11 -9.8125 ] [.66667 -0.0125 11 0 ] [.89966 -0.0125 -11 -9.8125 ] [.89966 -0.0125 11 0 ] [1 -0.0125 -5 -9.8125 ] [1 -0.0125 5 0 ] [-0.0125 .13734 -47.1875 -6.0625 ] [-0.0125 .13734 0 6.0625 ] [-0.0125 .27468 -40 -4.90625 ] [-0.0125 .27468 0 4.90625 ] [-0.0125 .41202 -28 -4.90625 ] [-0.0125 .41202 0 4.90625 ] [-0.0125 .54936 -10 -4.90625 ] [-0.0125 .54936 0 4.90625 ] [ -0.0005 -0.0005 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .23299 0 m .23299 .00625 L s gsave .23299 -0.0125 -78 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.005) show 93.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .33333 0 m .33333 .00625 L s gsave .33333 -0.0125 -75 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.01) show 87.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .56632 0 m .56632 .00625 L s gsave .56632 -0.0125 -75 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.05) show 87.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .66667 0 m .66667 .00625 L s gsave .66667 -0.0125 -72 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.1) show 81.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .89966 0 m .89966 .00625 L s gsave .89966 -0.0125 -72 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.5) show 81.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 1 0 m 1 .00625 L s gsave 1 -0.0125 -66 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1) show 69.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .001 w .10034 0 m .10034 .00375 L s .15904 0 m .15904 .00375 L s .20069 0 m .20069 .00375 L s .25938 0 m .25938 .00375 L s .2817 0 m .2817 .00375 L s .30103 0 m .30103 .00375 L s .31808 0 m .31808 .00375 L s .43368 0 m .43368 .00375 L s .49237 0 m .49237 .00375 L s .53402 0 m .53402 .00375 L s .59272 0 m .59272 .00375 L s .61503 0 m .61503 .00375 L s .63436 0 m .63436 .00375 L s .65141 0 m .65141 .00375 L s .76701 0 m .76701 .00375 L s .82571 0 m .82571 .00375 L s .86735 0 m .86735 .00375 L s .92605 0 m .92605 .00375 L s .94837 0 m .94837 .00375 L s .9677 0 m .9677 .00375 L s .98475 0 m .98475 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .13734 m .00625 .13734 L s gsave -0.0125 .13734 -108.188 -10.0625 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.125 translate 1 -1 scale 63.000 13.562 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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.562 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1.) show 75.000 13.562 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 76.812 13.562 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 (\\264) show 84.625 13.562 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (10) show 96.625 9.375 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 96.625 9.375 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (-) show 100.875 9.375 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (6) show 105.125 9.375 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 7.125 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 .27468 m .00625 .27468 L s gsave -0.0125 .27468 -101 -8.90625 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.0001) show 99.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .41202 m .00625 .41202 L s gsave -0.0125 .41202 -89 -8.90625 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.01) show 87.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .54936 m .00625 .54936 L s gsave -0.0125 .54936 -71 -8.90625 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1) show 69.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .001 w 0 .07411 m .00375 .07411 L s 0 .09351 m .00375 .09351 L s 0 .10517 m .00375 .10517 L s 0 .11353 m .00375 .11353 L s 0 .12005 m .00375 .12005 L s 0 .1254 m .00375 .1254 L s 0 .12993 m .00375 .12993 L s 0 .13387 m .00375 .13387 L s 0 .21145 m .00375 .21145 L s 0 .23085 m .00375 .23085 L s 0 .24251 m .00375 .24251 L s 0 .25087 m .00375 .25087 L s 0 .25739 m .00375 .25739 L s 0 .26274 m .00375 .26274 L s 0 .26727 m .00375 .26727 L s 0 .27121 m .00375 .27121 L s 0 .34879 m .00375 .34879 L s 0 .36819 m .00375 .36819 L s 0 .37985 m .00375 .37985 L s 0 .38821 m .00375 .38821 L s 0 .39473 m .00375 .39473 L s 0 .40008 m .00375 .40008 L s 0 .40461 m .00375 .40461 L s 0 .40855 m .00375 .40855 L s 0 .48613 m .00375 .48613 L s 0 .50553 m .00375 .50553 L s 0 .51719 m .00375 .51719 L s 0 .52555 m .00375 .52555 L s 0 .53207 m .00375 .53207 L s 0 .53742 m .00375 .53742 L s 0 .54195 m .00375 .54195 L s 0 .54589 m .00375 .54589 L s .25 Mabswid 0 0 m 0 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .0015 w 1e-05 .25918 m .6381 .52036 L .74394 .56154 L .80138 .58234 L .84102 .59531 L .8739 .60447 L .88687 .60746 L .89976 .60989 L .90633 .61088 L .90913 .61123 L .91215 .61156 L .91475 .6118 L .9175 .612 L .91899 .61208 L .92034 .61215 L .92099 .61217 L .92169 .61219 L .92231 .61221 L .92296 .61222 L .92329 .61223 L .92365 .61223 L .92428 .61224 L .92463 .61224 L .92501 .61224 L .92536 .61224 L .92568 .61224 L .92631 .61223 L .92666 .61222 L .92698 .61221 L .92761 .6122 L .9282 .61218 L .92928 .61213 L .93045 .61206 L .9328 .61187 L .93403 .61174 L .93532 .61158 L .9376 .61122 L .94 .61074 L .9426 .61007 L .94496 .60931 L .94716 .60845 L .95119 .6064 L .95541 .60336 L .95774 .60114 L .95985 .59866 L .96171 .59599 L .96368 .5925 L .96552 .58841 L .96718 .5837 L .9691 .5764 L Mistroke .97017 .57091 L .97116 .56439 L .97165 .5604 L .97211 .55599 L .97252 .55121 L .97296 .54505 L .97343 .53622 L .97387 .52459 L .97433 .50244 L .9746 .47236 L .97484 .45918 L .9753 .51182 L .97553 .52238 L .97578 .53093 L .97623 .54197 L .97665 .54969 L .97758 .56236 L .97858 .57216 L .98039 .58516 L .98203 .59409 L .98511 .60716 L .98828 .61781 L Mfstroke .98828 .61781 m .98838 .61803 L s .5 Mabswid .20445 0 m .6381 .35717 L .74394 .44351 L .80138 .48949 L .84102 .52043 L .8739 .54533 L .89976 .56436 L .92296 .58124 L .94227 .59566 L .9587 .60897 L s .9587 .60897 m .96844 .61803 L s .0015 w .46289 0 m .6381 .21653 L .74394 .3467 L .80138 .41665 L .84102 .4642 L .8739 .50273 L .89976 .53201 L .92296 .55694 L .94227 .57597 L .9587 .58993 L .96635 .59523 L .97025 .59749 L .97434 .59941 L .9763 .60013 L .97814 .60067 L .97893 .60086 L .97977 .60102 L .98025 .6011 L .98068 .60116 L .98108 .6012 L .98153 .60124 L .98194 .60127 L .98237 .60128 L .98277 .60129 L .98314 .60128 L .98358 .60126 L .98398 .60123 L .98444 .60117 L .98487 .60111 L .98564 .60095 L .98635 .60076 L .98713 .60049 L .98795 .60013 L .98956 .59919 L .99101 .59799 L .9926 .59622 L .99424 .5937 L .99567 .59076 L .99698 .58718 L .9984 .58188 L .99919 .57798 L .99991 .57358 L s .99991 .57358 m 1 .57288 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{399.438, 246.875}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgGoo00@007ooOol000Qoo`04001oogoo 0005Ool00`00Oomoo`0=Ool01000Oomoo`002Woo00<007ooOol0?goo00@007ooOol000]oo`03001o ogoo01Qoo`03001oogoo00=oo`00MGoo00@007ooOol000Qoo`04001oogoo0002Ool01000Oomoo`00 1Goo00<007ooOol01goo00@007ooOol000Qoo`04001oogoo0004Ool00`00Oomoo`0iOol01000Oomo o`0027oo00@007ooOol000Eoo`03001oogoo00eoo`04001oogoo000:Ool00`00Oomoo`0oOol01000 Oomoo`002goo00<007ooOol067oo00<007ooOol00goo001eOol01000Oomoo`0027oo00@007ooOol0 009oo`04001oogoo0002Ool3000:Ool01000Oomoo`0027oo00@007ooOol000Aoo`03001oogoo03Uo o`04001oogoo0008Ool01000Oomoo`000Woo0`0047oo00@007ooOol000Yoo`03001oogoo03moo`04 001oogoo0008Ool3000KOol00`00Oomoo`03Ool007Eoo`04001oogoo0008Ool01000Oomoo`000Woo 00@007ooOol0009oo`03001oogoo00Yoo`04001oogoo0008Ool01000Oomoo`0017oo00<007ooOol0 >Goo00@007ooOol000Qoo`04001oogoo0002Ool00`00Oomoo`0@Ool01000Oomoo`002Woo00<007oo Ool0?goo00@007ooOol000Qoo`03001oogoo01]oo`03001oogoo00=oo`00MGoo00@007ooOol000Qo o`04001oogoo0002Ool01000Oomoo`000Woo00<007ooOol02Woo00@007ooOol000Qoo`04001oogoo 0002Ool3000kOol01000Oomoo`0027oo00@007ooOol0009oo`03001oogoo011oo`04001oogoo0008 Ool30011Ool01000Oomoo`0027oo00<007ooOol06Goo0`001Goo001fOol2000:Ool20004Ool20003 Ool4000:Ool2000:Ool20005Ool00`00Oomoo`0jOol2000:Ool20003Ool4000@Ool2000;Ool00`00 Oomoo`10Ool20009Ool4000JOol00`00Oomoo`03Ool00?mooi1oo`00ogooT7oo003oOon@Ool00?mo oi1oo`00Ool003=oo`03001oogoo08Qoo`03 001oogoo03ioo`03001oogoo08eoo`00Ool00`00Oomoo`0lOol00`00Oomoo`29Ool003=oo`03001oogoo08moo`80 03eoo`03001oogoo08Qoo`00goo00<007ooOol0Qgoo000c Ool00`00Oomoo`2BOol00`00Oomoo`0kOol00`00Oomoo`26Ool003=oo`03001oogoo09=oo`03001o ogoo03]oo`03001oogoo08Eoo`00Woo00<007ooOol0QGoo 000cOol00`00Oomoo`2EOol2000kOol00`00Oomoo`24Ool003=oo`03001oogoo09Moo`03001oogoo 03Uoo`03001oogoo08=oo`00Goo00<007ooOol0PWoo000c Ool00`00Oomoo`2IOol00`00Oomoo`0iOol00`00Oomoo`21Ool003=oo`8009]oo`03001oogoo03Qo o`03001oogoo085oo`00Goo00<007ooOol0P7oo000cOol00`00Oomo o`2MOol00`00Oomoo`0gOol00`00Oomoo`1oOol003=oo`03001oogoo09ioo`03001oogoo03Moo`03 001oogoo07ioo`00Woo0P00TGoo00<007ooOol0:7oo00<007ooOol0 GWoo000cOol00`00Oomoo`0lOol2002@Ool2000YOol00`00Oomoo`1MOol003=oo`03001oogoo03io o`<008moo`03001oogoo02Ioo`03001oogoo05eoo`00Ool00`00Oomoo`0@Ool00`00Oomo o`0QOol00`00Oomoo`0Ool00`00Oomoo`0IOol2000=Ool003=oo`800=aoo`<0049oo`03001oogoo00aoo`03001o ogoo01Qoo`8000eoo`00=oo`<003ioo`03001oogoo00]oo`03001oogoo01Eoo`8000eoo`00]oo`8003]oo`03001oogoo00Yoo`03001oogoo019o o`8000eoo`00:Woo00<007ooOol01Woo0P00kWoo0`00>Goo00<007ooOol02Woo00<007ooOol04Goo 0P003Goo000ZOol00`00Oomoo`06Ool3003`Ool2000hOol2000;Ool00`00Oomoo`0@Ool2000=Ool0 02Yoo`03001oogoo00Ioo`03001oogoo0?9oo`<003Moo`03001oogoo00Uoo`03001oogoo00moo`80 00eoo`00:Woo00<007ooOol01Woo00<007ooOol0mGoo0`00=Goo00<007ooOol02Goo00<007ooOol0 3Goo00<007oo00003Goo000XOol30008Ool00`00Oomoo`3hOol2000dOol2000:Ool00`00Oomoo`0< Ool00`00Ool0000=Ool002Yoo`03001oogoo00Ioo`03001oogoo0?Yoo`<003=oo`03001oogoo00Qo o`03001oogoo00]oo`03001oo`0000eoo`00Ool20003Ool00`00Oomoo`06Ool00`00Oomo o`08Ool003=oo`03001oogoo0?mooc=oo`h000Ioo`03001oogoo00Eoo`03001oogoo00Qoo`00"], ImageRangeCache->{{{91.5625, 410.062}, {346.938, 150.438}} -> {-4.45682, \ -1.01976, 0.00878058, 0.0426218}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(LogLogPlot[{Evaluate[Abs[sfmax1[5]]], Evaluate[Abs[sfmax1[9]]], Evaluate[Abs[sfmax2[7]]], Evaluate[Abs[sfmax2[9]]]}, {xi, .001, 1}]\)], "Input"], 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.97619 0.521876 0.603319 0.0510853 [ [.08954 -0.0125 -14 -9.8125 ] [.08954 -0.0125 14 0 ] [.29721 -0.0125 -14 -9.8125 ] [.29721 -0.0125 14 0 ] [.45431 -0.0125 -11 -9.8125 ] [.45431 -0.0125 11 0 ] [.61141 -0.0125 -11 -9.8125 ] [.61141 -0.0125 11 0 ] [.81909 -0.0125 -11 -9.8125 ] [.81909 -0.0125 11 0 ] [.97619 -0.0125 -5 -9.8125 ] [.97619 -0.0125 5 0 ] [-0.0125 .09247 -51.4375 -6.0625 ] [-0.0125 .09247 0 6.0625 ] [-0.0125 .19464 -47.1875 -6.0625 ] [-0.0125 .19464 0 6.0625 ] [-0.0125 .29681 -47.1875 -6.0625 ] [-0.0125 .29681 0 6.0625 ] [-0.0125 .39898 -40 -4.90625 ] [-0.0125 .39898 0 4.90625 ] [-0.0125 .50115 -28 -4.90625 ] [-0.0125 .50115 0 4.90625 ] [-0.0125 .60332 -10 -4.90625 ] [-0.0125 .60332 0 4.90625 ] [ -0.0005 -0.0005 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .08954 0 m .08954 .00625 L s gsave .08954 -0.0125 -75 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.02) show 87.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .29721 0 m .29721 .00625 L s gsave .29721 -0.0125 -75 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.05) show 87.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .45431 0 m .45431 .00625 L s gsave .45431 -0.0125 -72 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.1) show 81.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .61141 0 m .61141 .00625 L s gsave .61141 -0.0125 -72 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.2) show 81.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .81909 0 m .81909 .00625 L s gsave .81909 -0.0125 -72 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.5) show 81.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .97619 0 m .97619 .00625 L s gsave .97619 -0.0125 -66 -13.8125 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1) show 69.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .001 w .18144 0 m .18144 .00375 L s .24664 0 m .24664 .00375 L s .33854 0 m .33854 .00375 L s .37347 0 m .37347 .00375 L s .40374 0 m .40374 .00375 L s .43043 0 m .43043 .00375 L s .70331 0 m .70331 .00375 L s .76852 0 m .76852 .00375 L s .86041 0 m .86041 .00375 L s .89535 0 m .89535 .00375 L s .92562 0 m .92562 .00375 L s .95231 0 m .95231 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .09247 m .00625 .09247 L s gsave -0.0125 .09247 -112.438 -10.0625 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.125 translate 1 -1 scale 63.000 13.562 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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.562 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1.) show 75.000 13.562 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 76.812 13.562 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 (\\264) show 84.625 13.562 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (10) show 96.625 9.375 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 96.625 9.375 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (-) show 100.875 9.375 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (10) show 109.375 9.375 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 7.125 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 .19464 m .00625 .19464 L s gsave -0.0125 .19464 -108.188 -10.0625 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.125 translate 1 -1 scale 63.000 13.562 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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.562 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1.) show 75.000 13.562 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 76.812 13.562 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 (\\264) show 84.625 13.562 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (10) show 96.625 9.375 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 96.625 9.375 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (-) show 100.875 9.375 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (8) show 105.125 9.375 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 7.125 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 .29681 m .00625 .29681 L s gsave -0.0125 .29681 -108.188 -10.0625 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.125 translate 1 -1 scale 63.000 13.562 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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.562 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1.) show 75.000 13.562 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 76.812 13.562 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 (\\264) show 84.625 13.562 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (10) show 96.625 9.375 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 96.625 9.375 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (-) show 100.875 9.375 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (6) show 105.125 9.375 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 7.125 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 .39898 m .00625 .39898 L s gsave -0.0125 .39898 -101 -8.90625 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.0001) show 99.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .50115 m .00625 .50115 L s gsave -0.0125 .50115 -89 -8.90625 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0.01) show 87.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .60332 m .00625 .60332 L s gsave -0.0125 .60332 -71 -8.90625 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 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1) show 69.000 11.250 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO 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 .001 w 0 .04543 m .00375 .04543 L s 0 .05986 m .00375 .05986 L s 0 .06853 m .00375 .06853 L s 0 .07475 m .00375 .07475 L s 0 .0796 m .00375 .0796 L s 0 .08358 m .00375 .08358 L s 0 .08695 m .00375 .08695 L s 0 .08988 m .00375 .08988 L s 0 .1476 m .00375 .1476 L s 0 .16203 m .00375 .16203 L s 0 .1707 m .00375 .1707 L s 0 .17692 m .00375 .17692 L s 0 .18177 m .00375 .18177 L s 0 .18575 m .00375 .18575 L s 0 .18912 m .00375 .18912 L s 0 .19205 m .00375 .19205 L s 0 .24977 m .00375 .24977 L s 0 .2642 m .00375 .2642 L s 0 .27287 m .00375 .27287 L s 0 .27909 m .00375 .27909 L s 0 .28394 m .00375 .28394 L s 0 .28792 m .00375 .28792 L s 0 .29129 m .00375 .29129 L s 0 .29422 m .00375 .29422 L s 0 .35194 m .00375 .35194 L s 0 .36637 m .00375 .36637 L s 0 .37504 m .00375 .37504 L s 0 .38126 m .00375 .38126 L s 0 .38611 m .00375 .38611 L s 0 .39009 m .00375 .39009 L s 0 .39347 m .00375 .39347 L s 0 .39639 m .00375 .39639 L s 0 .45411 m .00375 .45411 L s 0 .46854 m .00375 .46854 L s 0 .47721 m .00375 .47721 L s 0 .48343 m .00375 .48343 L s 0 .48828 m .00375 .48828 L s 0 .49226 m .00375 .49226 L s 0 .49564 m .00375 .49564 L s 0 .49856 m .00375 .49856 L s 0 .55628 m .00375 .55628 L s 0 .57071 m .00375 .57071 L s 0 .57938 m .00375 .57938 L s 0 .5856 m .00375 .5856 L s 0 .59046 m .00375 .59046 L s 0 .59443 m .00375 .59443 L s 0 .59781 m .00375 .59781 L s 0 .60073 m .00375 .60073 L s .25 Mabswid 0 0 m 0 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid 0 .1142 m .25513 .23907 L .4194 .31947 L .5089 .36328 L .57075 .39355 L .62209 .41867 L .66248 .43845 L .69875 .45619 L .72893 .47097 L .75461 .48354 L .77907 .49551 L .80036 .50593 L .8191 .5151 L .83749 .5241 L .85388 .53212 L .8701 .54006 L .8847 .5472 L .8979 .55367 L .91115 .56015 L .92322 .56606 L .93538 .57201 L .94651 .57746 L .95672 .58246 L .9671 .58754 L .97619 .59199 L s 0 .11418 m .25513 .23904 L .4194 .31937 L .5089 .36305 L .57075 .39315 L .62209 .41806 L .66248 .43757 L .69875 .455 L .72893 .46943 L .75461 .48164 L .77907 .49319 L .80036 .50319 L .8191 .51194 L .83749 .52048 L .85388 .52807 L .8701 .53556 L .8847 .5423 L .8979 .54842 L .91115 .55461 L .92322 .56031 L .93538 .56615 L .94651 .57161 L .95672 .57677 L .9671 .58217 L .97619 .58708 L s .12655 0 m .25513 .0881 L .4194 .20066 L .5089 .26199 L .57075 .30437 L .62209 .33955 L .66248 .36723 L .69875 .39208 L .72893 .41276 L .75461 .43035 L .77907 .44711 L .80036 .4617 L .8191 .47454 L .83749 .48714 L .85388 .49838 L .8701 .50949 L .8847 .51949 L .8979 .52854 L .91115 .53762 L .92322 .54589 L .93538 .55422 L .94651 .56184 L .95672 .56884 L .9671 .57595 L .97619 .58218 L s .12659 0 m .25513 .08807 L .4194 .20055 L .5089 .26174 L .57075 .30394 L .62209 .33886 L .66248 .36624 L .69875 .39071 L .72893 .41096 L .75461 .42807 L .77907 .44424 L .80036 .45819 L .8191 .47033 L .83749 .4821 L .85388 .49243 L .8701 .50247 L .8847 .51131 L .8979 .5191 L .91115 .52667 L .92322 .53329 L .93538 .53961 L .94651 .545 L .95672 .54948 L .9671 .55341 L .97619 .5561 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{399.438, 246.875}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgGoo0P002Goo1000;Woo00<007oo Ool01Woo003oOon@Ool00?mooi1oo`00ogooT7oo003oOon@Ool003Moool005T00000=goo00<007oo Ool077oo00<007ooOol02goo0P003goo00<007ooOol057oo00<007ooOol03Woo00<007ooOol02goo 00<007ooOol02Goo00<007ooOol027oo00<007ooOol01Woo00<007ooOol01Goo00<007ooOol0Ool0 03Moo`03001oogoo04Qoo`03001oogoo0?moo`]oo`00=goo00<007ooOol0BGoo00<007ooOol0ogoo 2Woo000gOol3001:Ool2003oOol:Ool003Moo`03001oogoo04aoo`03001oogoo0?moo`Moo`00=goo 0`00CGoo0P00ogoo1goo000gOol00`00Oomoo`1?Ool00`00Oomoo`3oOol4Ool003Moo`<0051oo`80 0?moo`Aoo`00=goo0`00DWoo00<007ooOol0ogoo0Goo0003Ool40003Ool00`00Oomoo`03Ool01@00 Oomoogoo00000goo10000goo0P005Woo00<007ooOol0Dgoo0P00ogoo0Goo0005Ool00`00Oomoo`09 Ool00`00Ool00006Ool01@00Oomoogoo00000Woo00<007ooOol04goo0`00EGoo00<007ooOol0oGoo 0005Ool00`00Oomoo`0:Ool00`00Oomoo`05Ool01@00Oomoogoo00000Woo00<007ooOol04goo0`00 EWoo0P00oGoo0005Ool00`00Oomoo`09Ool00`00Ool00006Ool01@00Oomoogoo00000Woo00<007oo Ool04goo00<007ooOol0F7oo00<007ooOol0nWoo0005Ool00`00Oomoo`08Ool01@00Oomoogoo0000 1Goo00D007ooOomoo`00009oo`03001oogoo00Aoo`<00003Ool0000000Uoo`03001oogoo05Uoo`80 0?Yoo`000goo0`004Woo0`000goo00@007ooOol0009oo`<0009oo`03001oo`00009oo`03001oogoo 00Ioo`03001oogoo05]oo`03001oogoo0?Moo`001Goo00<007ooOol04Woo00<007ooOol00Woo0P00 27oo00<007oo00000Woo00<007ooOol01Woo00<007ooOol0G7oo0P00mgoo000YOol00`00Oomoo`02 0009Ool00`00Oomoo`1NOol00`00Oomoo`3dOol003Moo`03001oogoo05moo`800?Aoo`00=goo00<0 07ooOol0HGoo00<007ooOol0lGoo000gOol2001SOol00`00Oomoo`3`Ool003Moo`04001oo`00001R Ool2003`Ool003Moo`04001oogooOol2001ROol00`00Oomoo`3]Ool003Moo`03001oogoo00=oo`80 065oo`800>eoo`00=goo00<007ooOol01Goo0P00HGoo00<007ooOol0jWoo000gOol00`00Oomoo`07 Ool2001POol2003ZOol003Moo`03001oogoo00Uoo`80061oo`03001oogoo0>Moo`00=goo00<007oo Ool02goo0P00Ggoo0P00igoo000gOol00`00Oomoo`0=Ool2001OOol00`00Oomoo`3TOol003Moo`03 001oogoo00moo`8005ioo`800>Aoo`00=goo00<007ooOol04Goo0P00GWoo00<007ooOol0hGoo000g Ool3000COol2001MOol2003QOol003Moo`03001oogoo01Eoo`8005eoo`03001oogoo0=ioo`00=goo 00<007ooOol05goo0P00G7oo0P00gWoo000gOol00`00Oomoo`0IOol2001LOol00`00Oomoo`3KOol0 03Moo`03001oogoo01]oo`8005]oo`800=]oo`00=goo0`007Goo0P00Fgoo00<007ooOol0f7oo000g Ool00`00Oomoo`0OOol2001JOol2003HOol003Moo`03001oogoo025oo`8005Yoo`03001oogoo0=Eo o`00=goo0`008goo0P00FGoo00<007ooOol0e7oo000gOol00`00Oomoo`0UOol2001HOol2003DOol0 03Moo`<002Moo`8005Qoo`03001oogoo0=5oo`00=goo00<007ooOol0:Goo0`00EWoo0P00dGoo000g Ool3000/Ool2001FOol00`00Oomoo`3>Ool003Moo`<002ioo`8005Eoo`800Woo0P00DWoo0P00aGoo0009 Ool00`00Oomoo`0BOol00`00Oomoo`02Ool20008Ool20008Ool00`00Oomoo`0lOol2001BOol00`00 Oomoo`32Ool002eoo`<000Moo`03001oogoo03ioo`80055oo`800<9oo`00=goo00<007ooOol0@7oo 0P00DGoo00<007ooOol0_goo000gOol00`00Oomoo`12Ool2001@Ool2002oOol003Moo`03001oogoo 04Aoo`80051oo`03001oogoo0;aoo`00=goo00<007ooOol0AWoo0P00Cgoo0P00_7oo000gOol00`00 Oomoo`18Ool2001?Ool00`00Oomoo`2iOol003Moo`03001oogoo04Yoo`8004ioo`800;Uoo`00=goo 00<007ooOol0C7oo0P00CWoo00<007ooOol0]Woo000gOol00`00Oomoo`1>Ool2001=Ool00`00Oomo o`2eOol003Moo`03001oogoo051oo`8004aoo`800;Eoo`00=goo00<007ooOol0DWoo0P00C7oo00<0 07ooOol0/Woo000gOol00`00Oomoo`1DOol3001:Ool2002bOol003Moo`03001oogoo05Moo`8004Yo o`03001oogoo0:moo`00=goo00<007ooOol0FGoo0P00BGoo0P00[goo000gOol3001KOol20019Ool0 0`00Oomoo`2/Ool003Moo`03001oogoo05eoo`8004Qoo`800:aoo`00=goo00<007ooOol0Ggoo0P00 B7oo00<007ooOol0ZGoo000gOol00`00Oomoo`1QOol20017Ool2002YOol003Moo`03001oogoo06=o o`8004Moo`03001oogoo0:Ioo`00=goo0`00IGoo0P00AWoo0P00YWoo000gOol00`00Oomoo`1WOol2 0016Ool00`00Oomoo`2SOol003Moo`03001oogoo06Uoo`8004Eoo`03001oogoo0:9oo`00=goo0`00 Jgoo0P00A7oo0P00XWoo000gOol00`00Oomoo`1]Ool20014Ool00`00Oomoo`2OOol003Moo`<006mo o`8004=oo`8009moo`00=goo00<007ooOol0LGoo0`00@Woo00<007ooOol0W7oo000gOol3001dOol2 0011Ool00`00Oomoo`2KOol003Moo`<007Ioo`80041oo`8009]oo`001goo10000goo00<007ooOol0 17oo00D007ooOomoo`00009oo`@000=oo`80019oo`03001oogoo07Qoo`80041oo`03001oogoo09Qo o`002Goo00<007ooOol02Woo00<007oo00001Goo00D007ooOomoo`00009oo`03001oogoo00moo`<0 07Yoo`8003moo`8009Qoo`002Goo00<007ooOol02goo00<007ooOol017oo00D007ooOomoo`00009o o`03001oogoo00moo`<007aoo`8003moo`03001oogoo09Eoo`002Goo00<007ooOol02Woo00<007oo 00001Goo00D007ooOomoo`00009oo`03001oogoo00moo`03001oogoo07ioo`8003ioo`03001oogoo 09Aoo`002Goo00<007ooOol02Goo00D007ooOomoo`0000Aoo`05001oogooOol00002Ool00`00Oomo o`05Ool20008Ool00`00Oomoo`20Ool2000mOol2002DOol000Moo`<0019oo`<000=oo`04001oogoo 0002Ool300001Goo001oogoo00001goo00<007ooOol0PWoo0P00?Goo00<007ooOol0TGoo0009Ool0 0`00Oomoo`0BOol00`00Oomoo`02Ool20007Ool30008Ool00`00Oomoo`24Ool2000lOol2002AOol0 02eoo`<000Moo`03001oogoo08Ioo`8003aoo`03001oogoo08ioo`00=goo00<007ooOol0R7oo0P00 >goo00<007ooOol0SGoo000gOol00`00Oomoo`2:Ool2000jOol2002=Ool003Moo`03001oogoo08ao o`<003Uoo`03001oogoo08Yoo`00=goo00<007ooOol0Sgoo0P00>7oo0P00RWoo000gOol00`00Oomo o`2AOol2000hOol00`00Oomoo`27Ool003Moo`03001oogoo09=oo`8003Moo`8008Moo`00=goo00<0 07ooOol0UGoo0P00=goo00<007ooOol0Q7oo000gOol00`00Oomoo`2GOol2000fOol00`00Oomoo`23 Ool003Moo`03001oogoo09Uoo`8003Eoo`8008=oo`00=goo00<007ooOol0Vgoo0P00=Goo00<007oo Ool0P7oo000gOol00`00Oomoo`2MOol2000dOol20020Ool003Moo`03001oogoo09moo`8003Aoo`03 001oogoo07eoo`00=goo00<007ooOol0XGoo0P00Ioo`80021oo`<004Yoo`00=goo00<007ooOol0j7oo0P007goo0`00BGoo000gOol3003ZOol2 000OOol30017Ool003Moo`03001oogoo0>aoo`8001ioo`@004Eoo`00=goo00<007ooOol0kWoo0P00 7Woo0`00A7oo000gOol00`00Oomoo`3`Ool2000NOol30012Ool003Moo`03001oogoo0?9oo`8001eo o`<0045oo`00=goo0`00m7oo0P007Goo0`00?goo000gOol00`00Oomoo`3fOol3000KOol3000nOol0 03Moo`03001oogoo0?Uoo`8001]oo`<003aoo`00=goo0`00ngoo0P006Woo00<007oo0000>goo000g Ool00`00Oomoo`3mOol2000IOol01000Ool00000>Goo000gOol3003oOol2000HOol200000goo001o o`0gOol003Moo`03001oogoo0?moo`9oo`8001Qoo`04001oo`00000fOol003Moo`<00?moo`Aoo`80 01Moo`03001oogoo008003Aoo`00=goo0`00ogoo1Goo0`005Woo0P000Woo0P00Ool20003Ool3000NOol003Moo`03 001oogoo0?moob1oo`D000eoo`03001oogoo00=oo`8001aoo`00=goo00<007ooOol0ogoo8Woo0P00 00=oo`00000037oo00<007ooOol017oo0P006Woo000gOol00`00Oomoo`3oOolTOol200000goo0000 000;Ool20006Ool00`00Oomoo`0GOol003Moo`03001oogoo0?moobIoo`800003Ool0000000]oo`03 001oogoo00Aoo`8001Moo`00=goo00<007ooOol0ogoo:7oo0P0000=oo`0000002Woo0P001Woo0P00 5Goo000gOol00`00Oomoo`3oOolZOol200000goo0000000:Ool20006Ool3000BOol003Moo`03001o ogoo0?moobaoo`D000Yoo`03001oogoo00Ioo`80011oo`00=goo00<007ooOol0ogoo;goo10002Goo 00<007ooOol01goo0P003Woo000gOol00`00Oomoo`3oOolaOol40008Ool20009Ool4000:Ool003Mo o`<00?mooc=oo`03001oo`00008000Moo`03001oogoo00Yoo`8000Qoo`00=goo00<007ooOol0ogoo =7oo0P000Woo0P001Woo0P0057oo000gOol00`00Oomoo`3oOolfOol20002Ool20006Ool2000BOol0 03Moo`03001oogoo0?moocQoo`80009oo`8000Ioo`03001oogoo00moo`00=goo00<007ooOol0ogoo >Woo0P000Woo0P001Goo00<007ooOol03Woo000gOol3003oOollOol20002Ool20004Ool00`00Oomo o`0=Ool003Moo`03001oogoo0?moocioo`80009oo`<0009oo`8000eoo`00=goo00<007ooOol0ogoo @7oo0P000goo0P000Woo0P002goo000gOol3003oOom2Ool30002Ool20002Ool20009Ool003Moo`03 001oogoo0?moodEoo`80009oo`80009oo`03001oogoo00Ioo`00=goo0`00ogooAgoo0P000Woo0P00 2Goo000gOol00`00Oomoo`3oOom9Ool20002Ool00`00Oomoo`06Ool003Moo`<00?mood]oo`8000Uo o`00=goo0`00ogooCGoo00<007ooOol01Woo000gOol00`00Oomoo`3oOomFOol002aoo`@000Moo`<0 0?mooeIoo`00;Woo00<007ooOol01Woo0`00ogooEWoo000^Ool00`00Oomoo`06Ool00`00Oomoo`3o OomFOol002ioo`03001oogoo00Ioo`03001oogoo0?mooeIoo`00;Woo00<007ooOol01Woo00<007oo Ool0ogooEWoo000/Ool30008Ool00`00Oomoo`3oOomFOol002ioo`03001oogoo00Ioo`03001oogoo 0?mooeIoo`00=goo00<007ooOol0ogooEWoo003oOon@Ool00?mooi1oo`00ogooT7oo003oOon@Ool0 0?mooi1oo`00ogooT7oo003oOon@Ool00?mooi1oo`00ogooT7oo0000\ \>"], ImageRangeCache->{{{91.5625, 410.062}, {601.5, 405}} -> {-2.82286, 15.7571, \ 0.00559621, 0.0571696}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]] }, Open ]] }, Open ]] }, FrontEndVersion->"4.0 for X", ScreenRectangle->{{0, 1280}, {0, 1024}}, WindowSize->{697, 850}, WindowMargins->{{Automatic, 57}, {Automatic, 56}}, PrintingPageRange->{Automatic, Automatic}, PrintingOptions->{"PaperSize"->{612, 792}, "PaperOrientation"->"Portrait", "PostScriptOutputFile":>FrontEnd`FileName[{$RootDirectory, "home", \ "furnstah", "Research", "papers", "nuclear_matter_paper", "Mathematica"}, \ "DR_check.nb.ps", CharacterEncoding -> "ISO8859-1"], "Magnification"->1} ] (*********************************************************************** 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[1739, 51, 170, 4, 83, "Title", Evaluatable->False], Cell[1912, 57, 969, 24, 230, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[2906, 85, 80, 2, 54, "Section", Evaluatable->False], Cell[2989, 89, 240, 6, 50, "Text", Evaluatable->False], Cell[3232, 97, 80, 2, 27, "Input"], Cell[3315, 101, 148, 5, 32, "Text", Evaluatable->False], Cell[3466, 108, 136, 3, 27, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[3639, 116, 71, 2, 54, "Section", Evaluatable->False], Cell[3713, 120, 111, 2, 32, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[3849, 126, 259, 5, 59, "Input"], Cell[4111, 133, 370, 7, 23, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[4530, 146, 114, 2, 54, "Section", Evaluatable->False], Cell[4647, 150, 142, 5, 32, "Text", Evaluatable->False], Cell[4792, 157, 91, 1, 27, "Input"], Cell[4886, 160, 103, 2, 27, "Input"], Cell[4992, 164, 153, 5, 32, "Text", Evaluatable->False], Cell[5148, 171, 73, 1, 27, "Input"], Cell[5224, 174, 232, 6, 50, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[5481, 184, 75, 1, 27, "Input"], Cell[5559, 187, 126, 2, 59, "Output"] }, Open ]], Cell[5700, 192, 90, 2, 32, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[5815, 198, 72, 1, 27, "Input"], Cell[5890, 201, 708, 22, 49, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6635, 228, 160, 2, 43, "Input"], Cell[6798, 232, 186, 3, 47, "Output"] }, Open ]], Cell[6999, 238, 100, 2, 32, "Text", Evaluatable->False], Cell[7102, 242, 80, 1, 27, "Input"], Cell[7185, 245, 106, 2, 27, "Input"], Cell[CellGroupData[{ Cell[7316, 251, 77, 1, 27, "Input"], Cell[7396, 254, 133, 2, 57, "Output"] }, Open ]], Cell[7544, 259, 97, 2, 32, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[7666, 265, 75, 1, 27, "Input"], Cell[7744, 268, 844, 25, 54, "Output"] }, Open ]], Cell[8603, 296, 180, 5, 32, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[8808, 305, 107, 2, 27, "Input"], Cell[8918, 309, 387, 7, 91, "Output"] }, Open ]], Cell[9320, 319, 159, 5, 50, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[9504, 328, 105, 2, 27, "Input"], Cell[9612, 332, 235, 4, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9884, 341, 81, 1, 27, "Input"], Cell[9968, 344, 142, 2, 49, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10147, 351, 135, 3, 27, "Input"], Cell[10285, 356, 131, 2, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10453, 363, 108, 2, 27, "Input"], Cell[10564, 367, 169, 2, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10770, 374, 142, 3, 27, "Input"], Cell[10915, 379, 574, 16, 46, "Output"] }, Open ]], Cell[11504, 398, 167, 5, 32, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[11696, 407, 140, 3, 27, "Input"], Cell[11839, 412, 133, 2, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12009, 419, 140, 3, 27, "Input"], Cell[12152, 424, 122, 2, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12311, 431, 140, 3, 27, "Input"], Cell[12454, 436, 141, 2, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12632, 443, 180, 3, 27, "Input"], Cell[12815, 448, 89, 1, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12941, 454, 250, 6, 59, "Input"], Cell[13194, 462, 930, 26, 51, "Output"] }, Open ]], Cell[14139, 491, 192, 4, 43, "Input"], Cell[14334, 497, 329, 7, 91, "Input"], Cell[CellGroupData[{ Cell[14688, 508, 168, 4, 27, "Input"], Cell[14859, 514, 155, 2, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15051, 521, 74, 1, 27, "Input"], Cell[15128, 524, 532, 13, 29, "Output"] }, Open ]], Cell[15675, 540, 192, 4, 43, "Input"], Cell[15870, 546, 262, 6, 59, "Input"], Cell[CellGroupData[{ Cell[16157, 556, 89, 1, 27, "Input"], Cell[16249, 559, 1016, 28, 44, "Output"] }, Open ]], Cell[17280, 590, 365, 6, 107, "Input"], Cell[CellGroupData[{ Cell[17670, 600, 215, 4, 59, "Input"], Cell[17888, 606, 923, 24, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18848, 635, 184, 4, 43, "Input"], Cell[19035, 641, 298, 5, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19370, 651, 74, 1, 27, "Input"], Cell[19447, 654, 532, 13, 29, "Output"] }, Open ]], Cell[19994, 670, 192, 4, 43, "Input"], Cell[CellGroupData[{ Cell[20211, 678, 89, 1, 27, "Input"], Cell[20303, 681, 1339, 37, 51, "Output"] }, Open ]], Cell[21657, 721, 414, 7, 123, "Input"], Cell[CellGroupData[{ Cell[22096, 732, 215, 4, 59, "Input"], Cell[22314, 738, 1055, 28, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23406, 771, 200, 4, 75, "Input"], Cell[23609, 777, 435, 7, 80, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24081, 789, 74, 1, 27, "Input"], Cell[24158, 792, 532, 13, 29, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[24739, 811, 89, 2, 54, "Section", Evaluatable->False], Cell[24831, 815, 45, 1, 27, "Input"], Cell[CellGroupData[{ Cell[24901, 820, 112, 2, 27, "Input"], Cell[25016, 824, 164, 2, 49, "Output"] }, Open ]], Cell[25195, 829, 297, 5, 91, "Input"], Cell[25495, 836, 404, 7, 107, "Input"], Cell[25902, 845, 461, 8, 107, "Input"], Cell[26366, 855, 209, 3, 27, "Input"], Cell[26578, 860, 91, 1, 27, "Input"], Cell[CellGroupData[{ Cell[26694, 865, 85, 1, 27, "Input"], Cell[26782, 868, 176, 3, 50, "Output"] }, Open ]], Cell[26973, 874, 62, 1, 27, "Input"], Cell[CellGroupData[{ Cell[27060, 879, 771, 13, 123, "Input"], Cell[27834, 894, 36639, 1092, 313, 16939, 844, "GraphicsData", "PostScript", \ "Graphics"], Cell[64476, 1988, 130, 3, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[64643, 1996, 1016, 16, 171, "Input"], Cell[65662, 2014, 36289, 931, 532, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[102000, 2951, 90, 2, 54, "Section", Evaluatable->False], Cell[102093, 2955, 137, 5, 50, "Text", Evaluatable->False], Cell[102233, 2962, 48, 1, 27, "Input"], Cell[102284, 2965, 65, 1, 27, "Input"], Cell[102352, 2968, 70, 1, 27, "Input"], Cell[102425, 2971, 85, 1, 27, "Input"], Cell[102513, 2974, 86, 1, 27, "Input"], Cell[102602, 2977, 255, 6, 43, "Input"], Cell[102860, 2985, 168, 3, 27, "Input"], Cell[103031, 2990, 82, 1, 27, "Input"], Cell[103116, 2993, 262, 6, 43, "Input"], Cell[103381, 3001, 167, 3, 27, "Input"], Cell[CellGroupData[{ Cell[103573, 3008, 101, 2, 27, "Input"], Cell[103677, 3012, 653, 16, 46, "Output"] }, Open ]], Cell[104345, 3031, 204, 4, 27, "Input"], Cell[104552, 3037, 78, 1, 27, "Input"], Cell[104633, 3040, 244, 4, 43, "Input"], Cell[104880, 3046, 266, 6, 43, "Input"], Cell[105149, 3054, 784, 15, 91, "Input"], Cell[105936, 3071, 134, 3, 27, "Input"], Cell[106073, 3076, 202, 4, 43, "Input"], Cell[106278, 3082, 247, 5, 59, "Input"], Cell[CellGroupData[{ Cell[106550, 3091, 139, 3, 27, "Input"], Cell[106692, 3096, 580, 13, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[107309, 3114, 142, 3, 27, "Input"], Cell[107454, 3119, 665, 18, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[108156, 3142, 130, 3, 27, "Input"], Cell[108289, 3147, 563, 13, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[108889, 3165, 166, 4, 27, "Input"], Cell[109058, 3171, 775, 22, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[109870, 3198, 166, 4, 27, "Input"], Cell[110039, 3204, 775, 22, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[110851, 3231, 53, 1, 27, "Input"], Cell[110907, 3234, 103, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[111047, 3241, 167, 4, 27, "Input"], Cell[111217, 3247, 1835, 53, 122, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[113089, 3305, 169, 4, 27, "Input"], Cell[113261, 3311, 1835, 53, 122, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[115133, 3369, 182, 4, 43, "Input"], Cell[115318, 3375, 1675, 48, 128, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[117030, 3428, 53, 1, 27, "Input"], Cell[117086, 3431, 103, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[117226, 3438, 180, 3, 27, "Input"], Cell[117409, 3443, 561, 15, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[118007, 3463, 195, 4, 43, "Input"], Cell[118205, 3469, 397, 11, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[118639, 3485, 199, 4, 43, "Input"], Cell[118841, 3491, 217, 5, 29, "Output"] }, Open ]], Cell[119073, 3499, 304, 6, 75, "Input"], Cell[119380, 3507, 368, 7, 75, "Input"], Cell[CellGroupData[{ Cell[119773, 3518, 43, 1, 27, "Input"], Cell[119819, 3521, 78, 1, 44, "Output"] }, Open ]], Cell[119912, 3525, 306, 6, 75, "Input"], Cell[120221, 3533, 372, 7, 91, "Input"], Cell[CellGroupData[{ Cell[120618, 3544, 44, 1, 27, "Input"], Cell[120665, 3547, 290, 5, 83, "Output"] }, Open ]], Cell[120970, 3555, 308, 6, 75, "Input"], Cell[121281, 3563, 378, 7, 91, "Input"], Cell[CellGroupData[{ Cell[121684, 3574, 44, 1, 27, "Input"], Cell[121731, 3577, 221, 4, 44, "Output"] }, Open ]], Cell[121967, 3584, 45, 1, 27, "Input"], Cell[122015, 3587, 157, 2, 27, "Input"], Cell[CellGroupData[{ Cell[122197, 3593, 120, 2, 27, "Input"], Cell[122320, 3597, 57, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[122414, 3603, 1045, 22, 171, "Input"], Cell[123462, 3627, 32584, 1011, 255, 15296, 793, "GraphicsData", \ "PostScript", "Graphics"], Cell[156049, 4640, 130, 3, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[156216, 4648, 663, 13, 123, "Input"], Cell[156882, 4663, 33950, 1078, 255, 16813, 862, "GraphicsData", \ "PostScript", "Graphics"], Cell[190835, 5743, 130, 3, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[191002, 5751, 662, 13, 123, "Input"], Cell[191667, 5766, 31552, 1042, 260, 16749, 855, "GraphicsData", \ "PostScript", "Graphics"], Cell[223222, 6810, 130, 3, 27, "Output"] }, Open ]], Cell[223367, 6816, 91, 1, 27, "Input"], Cell[223461, 6819, 62, 1, 27, "Input"], Cell[223526, 6822, 122, 2, 27, "Input"], Cell[223651, 6826, 122, 2, 27, "Input"], Cell[223776, 6830, 122, 2, 27, "Input"], Cell[223901, 6834, 430, 7, 86, "Text"], Cell[CellGroupData[{ Cell[224356, 6845, 1054, 19, 171, "Input"], Cell[225413, 6866, 36701, 931, 532, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[262151, 7802, 1075, 19, 171, "Input"], Cell[263229, 7823, 36305, 931, 532, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[299571, 8759, 677, 13, 123, "Input"], Cell[300251, 8774, 35454, 1154, 255, 18445, 940, "GraphicsData", \ "PostScript", "Graphics"], Cell[335708, 9930, 130, 3, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[335875, 9938, 183, 3, 43, "Input"], Cell[336061, 9943, 36818, 1293, 255, 23141, 1120, "GraphicsData", \ "PostScript", "Graphics"], Cell[372882, 11238, 130, 3, 27, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)