Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.stsci.edu/~jordan/other/ao_orbit_30.nb.gz Дата изменения: Thu Apr 26 04:22:19 2001 Дата индексирования: Tue Oct 2 14:17:30 2012 Кодировка: Поисковые слова: туманность андромеды

(***********************************************************************

Mathematica-Compatible Notebook

This notebook can be used on any computer system with Mathematica 3.0,
MathReader 3.0, or any compatible application. The data for the notebook
starts with the line of stars above.

To get the notebook into a Mathematica-compatible application, do one of
the following:

* Save the data starting with the line of stars above into a file
with a name ending in .nb, then open the file inside the application;

* Copy the data starting with the line of stars above to the
clipboard, then use the Paste menu command inside the application.

Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode. Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).

NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing the
word CacheID, otherwise Mathematica-compatible applications may try to
use invalid cache data.

For more information on notebooks and Mathematica-compatible
applications, contact Wolfram Research:
web: http://www.wolfram.com
email: info@wolfram.com
phone: +1-217-398-0700 (U.S.)

Notebook reader applications are available free of charge from
Wolfram Research.
***********************************************************************)

(*CacheID: 232*)


(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[ 732320, 19787]*)
(*NotebookOutlinePosition[ 733269, 19818]*)
(* CellTagsIndexPosition[ 733225, 19814]*)
(*WindowFrame->Normal*)



Notebook[{

Cell[CellGroupData[{
Cell["Orbital Influence on Atomic Oxygen Fluence", "Title"],

Cell["\<\
Mathematica model of the Jacchia Thermosphere/Exosphere Model which \
determines the integrated fluence of Atomic Oxygen.
\t\
\>", "Text"],

Cell[BoxData[
\(Basic\ Setup\ of\ the\ equations\ which\ govern\ the\ model\)], "Input",\

Evaluatable->False],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Fixed Constants:", "Section"]], "Text",
CellFrame->True,
TextAlignment->Left,
TextJustification->0.25,
Background->GrayLevel[0.849989]],

Cell[BoxData[
\(\(\(amu = 1.66*10\^\(-24\);
\)\ (*\ grams/atomic - mass - unit\ *) \)\)], "Input",
CellFrame->True,
InitializationCell->True,
TextAlignment->Left,
TextJustification->0.25,
Background->GrayLevel[1]],

Cell[BoxData[
\(\(\(g0 = 9.80665; \)\ (*\ \(metres/second\)/second\ *) \)\)], "Input",
CellFrame->True,
InitializationCell->True,
TextAlignment->Left,
TextJustification->0.25,
Background->GrayLevel[1]],

Cell[BoxData[
\(\(\(bigR0 = 6356.766; \)\ (*\ kilometres\ *) \)\)], "Input",
CellFrame->True,
InitializationCell->True,
TextAlignment->Left,
TextJustification->0.25,
Background->GrayLevel[1]],

Cell[BoxData[
\(\(\(avogadro = 6.02257*10^23; \)\ (*\ #/mole\ *) \)\)], "Input",
CellFrame->True,
InitializationCell->True,
TextAlignment->Left,
TextJustification->0.25,
Background->GrayLevel[1]],

Cell[BoxData[
\(\(\(k = 1.380658*10^\(-23\); \)\ (*\ Joules/Kelvin\ *) \)\)], "Input",
CellFrame->True,
InitializationCell->True,
TextAlignment->Left,
TextJustification->0.25,
Background->GrayLevel[1]],

Cell[BoxData[
\(\(\(kJ = \ k*avogadro; \)\ (*\ \(Joules/Kelvin\)/mole\ *) \)\)],
"Input",
CellFrame->True,
InitializationCell->True,
TextAlignment->Left,
TextJustification->0.25,
Background->GrayLevel[1]],

Cell[BoxData[
\(\(\(ai = 0; \)\ (*\ ' ai'\ is\ the\ diffusion\ constant\ *) \)\)],
"Input",
CellFrame->True,
InitializationCell->True,
TextAlignment->Left,
TextJustification->0.25,
Background->GrayLevel[1]],

Cell[BoxData[
\(\(\(rEq = 6378.14;
\)\ (*\ ' rEq'\ is\ the\ exospheric\ \(temperature . \)\ *) \)\)],
"Input",
CellFrame->True,
InitializationCell->True,
TextAlignment->Left,
TextJustification->0.25,
Background->GrayLevel[1]],

Cell[BoxData[
\(\(\(rPo = 6356.785; \)\ (*\ polar\ radius\ km\ *) \)\)], "Input",
CellFrame->True,
InitializationCell->True,
TextAlignment->Left,
TextJustification->0.25,
Background->GrayLevel[1]],

Cell[BoxData[
\(\(elliptEarth = 0.08182; \)\)], "Input",
CellFrame->True,
InitializationCell->True,
TextAlignment->Left,
TextJustification->0.25,
Background->GrayLevel[1]],

Cell[BoxData[
\(\(\(ecclipticIncl = 23.45;
\)\ (*\ obliquity\ of\ the\ ecliptic, \ degrees\ *) \)\)], "Input",
CellFrame->True,
InitializationCell->True,
TextAlignment->Left,
TextJustification->0.25,
Background->GrayLevel[1]],

Cell[BoxData[
\(\(\(bigG = 6.67259*10^\(-11\); \)\ (*\ mks\ units\ *) \)\)], "Input",
CellFrame->True,
InitializationCell->True,
TextAlignment->Left,
TextJustification->0.25,
Background->GrayLevel[1]],

Cell[BoxData[
\(\(\(massEa = 5.9742*10^24; \)\ (*\ earth\ mass\ in\ kg\ *) \)\)],
"Input",
CellFrame->True,
InitializationCell->True,
TextAlignment->Left,
TextJustification->0.25,
Background->GrayLevel[1]]
}, Open ]],

Cell[CellGroupData[{

Cell["Jacchia Model Constants:", "Subsubtitle"],

Cell[BoxData[
\(\(\(T0 = 183;
\)\ (*\ , \
\(' T0'\ is\ the\ temperature\ at\ the\ reference\ altitude\ '
\(z0' . \)\)\ *) \)\)], "Input",
InitializationCell->True],

Cell["\<\
'mu' is a fixed constant, along with 'lambda', 'temp1' and 'temp2' \
are fitting Temperature parameters.\
\>", "Text"],

Cell[BoxData[
\(\(\(z0 = 90000;
\)\ (*\ altitude\ of\ start\ of\ Jaccchia\ \(model . \)\ *) \)\)],
"Input",
InitializationCell->True],

Cell[BoxData[
\(\(\(rho0 = 3.46*10\^\(-9\);
\)\ \ (*\
density\ at\ reference\ altitude\ of\ 90\ km\ in\ grams/cubic\
centimetre\ *) \)\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(\(mj = 2.5; \)\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(\(nj = 3.0; \)\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(\(\(\[Beta] = \(-37.0\); \)\ (*\ degrees\ *) \)\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(\(\(pj = 6.0; \)\ (*\ degrees\ *) \)\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(\(\(\[Gamma] = 43.0; \)\ (*\ degrees\ *) \)\)], "Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell["Julian Day calculation:", "Subsection"],

Cell["\<\
We define a junction JD which returns the Julian date given the \
inputs year, month, day, and UT hour. the Julian Day function is called by \
JD[YYYY,MO,DD,HR.HR]\
\>", "Text"],

Cell[BoxData[
\(\(bigYY := 1969; \)\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(\(bigMM := 1; \)\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(\(bigDD := 20; \)\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(\(bigUT := 19.18; \)\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(LittleMonth[x_] := If[x <= 2, x + 12, x]\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(LittleY[y_, x_] := If[x <= 2, y - 1, y]\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(B[x_] := IntegerPart[x/400] - IntegerPart[x/100]\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(JD[a_, b_, c_, d_] :=
IntegerPart[365.25\ LittleY[a, b]] +
IntegerPart[30.6001\ \((LittleMonth[b] + 1)\)] + B[a] + 1720996.5 +
c + d/24\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(JDstart := JD[bigYY, bigMM, bigDD, bigUT]\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(doy := JD[bigYY, bigMM, bigDD, bigUT] - JD[bigYY, 1, 0, 0]\)], "Input",
InitializationCell->True]
}, Open ]],

Cell[CellGroupData[{

Cell["Orbital Elements", "Section"],

Cell[BoxData[
\(\(\(hp\ = 300;
\)\ (*\ perigee\ above\ spherical\ earth\ \((equator)\), \ km\ *) \)\)],
"Input",
InitializationCell->True],

Cell[BoxData[
\(\(ha = 348; \)\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(\(\(io = 45;
\)\ (*\ inclination\ of\ the\ orbit\ in\ degrees\ *) \)\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(\(\(\[Omega] = 140;
\)\ (*\ ascending\ node\ - \
periapsis\ \((degrees)\)\ in\ plane\ of\ \(orbit . \)\ *) \)\)],
"Input",
InitializationCell->True],

Cell[BoxData[
\(\(\(\[CapitalOmega] = 167.5;
\)\ (*\ ascending\ node\ crossing\ \((degrees)\)\ *) \)\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(\(a := \(2*rEq + ha + hp\)\/2\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ (*\
semimajor\ axis\ *) \)\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(\(period :=
2*Pi*\@\(\((1000*a)\)\^3\/\(massEa*bigG\)\)\ \ \ \ \ \ \ \ \ \ \ (*\
period\ in\ seconds\ *) \)\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(\(eccenOrb := 1 - \(rEq + hp\)\/a\ \ \ \ \ \ \ \ (*\
eccentricity\ of\ the\ orbit\ *) \)\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(\(eccAnomANC :=
2*ArcTan[Sqrt[\(1 + eccenOrb\)\/\(1 - eccenOrb\)]*
Tan[\(\[Omega]*Pi\)\/\(2*180\)]]\ \ \ \ \ \ \ \ \ (*\
eccentric\ anomaly\ in\ radians\ *) \)\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(\(meanAnomANC :=
eccAnomANC - eccenOrb*Sin[eccAnomANC]\ \ \ \ \ \ \ \ (*\
mean\ anomaly\ in\ radians\ *) \)\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(\(nmean := 2*Pi/period\ \ \ \ \ \ \ \ \ (*\
mean\ motion\ in\ radians/second\ *) \)\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(timePeriANC := meanAnomANC/nmean\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(\(decSol :=
ecclipticIncl*
Sin[\(2*Pi \((doy - 81 + bigUT/24)\)\)\/\((365.242)\)]
\ \ \ \ \ \ \ \ (*\
This\ is\ an\ approximation\ for\ the\ declination\ of\ the\
\(sun . \)\ *) \)\)], "Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(Timing[{period, a, meanAnomANC, timePeriANC, decSol}]\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(TraditionalForm
\`{0.`\ Second, {5460.2561002593557`, 6702.13999999999998`,
2.44346411799743812`, 2123.43567852677628`,
\(-20.0049100741932672`\)}}\)], "Output"]
}, Open ]]
}, Open ]],

Cell[CellGroupData[{

Cell["\<\
Environment Data
\
\>", "Section"],

Cell[BoxData[
\(\(F\_10.7\%0\)\&_ := 136\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(\(F\_10.7\%75\)\&_ := 155\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(\(F\_10.7\%400\)\&_ := 138.5\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(bigKp := 2.35\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(tempSubC :=
383 + 3.32*\(F\_10.7\%75\)\&_ +
1.8*\((\(F\_10.7\%0\)\&_ - \(F\_10.7\%75\)\&_)\)\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(r := \(-0.19\) + Log[10, \(F\_10.7\%400\)\&_]\/4\)], "Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(Timing[{r, tempSubC}]\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(TraditionalForm
\`{0.`\ Second, {0.345362443350116743`, 863.400000000000034`}}\)],
"Output"]
}, Open ]]
}, Open ]],

Cell[CellGroupData[{

Cell["Function Definitions.", "Section"],

Cell[BoxData[
\(LittleROrb[y_] :=
\(a*\((1 - eccenOrb\^2)\)\)\/\(1 + eccenOrb*Cos[Pi*y/180]\)\)], "Input",\

InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(Timing[Do[u = N[CompLittleROrb[j]], {j, 1, 1000}]]\)], "Input"],

Cell[BoxData[
\(TraditionalForm\`{0.380000000000052295`\ Second, Null}\)], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(CompLittleROrb = \
Compile[{dummy},
\(a*\((1 - eccenOrb\^2)\)\)\/\(1 + eccenOrb*Cos[Pi*trueAnom/180]\)]
\)], "Input",
InitializationCell->True],

Cell[BoxData[
FormBox[
TagBox[
\(CompiledFunction({dummy},
\(a\ \((1 - eccenOrb\^2)\)\)\/\(eccenOrb\
\(cos(\(\[Pi]\ trueAnom\)\/180)\) + 1\), "-CompiledCode-")\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell["\<\
distance from the earth center (same units as a)as a function of \
true anomaly.\
\>", "Text"],

Cell[BoxData[
\(AltiSpher[y_] := LittleROrb[y] - rEq\)], "Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(CompAltiSpher = Compile[{dummy}, littlerorbCon - rEq]\)], "Input",
InitializationCell->True],

Cell[BoxData[
FormBox[
TagBox[
\(CompiledFunction({dummy}, littlerorbCon - rEq, "-CompiledCode-")\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell["\<\
altitude above a spherical earth (equatorial radius) as function of \
true anomaly.\
\>", "Text"],

Cell[BoxData[
\(Speed[con1_] := \@\(\(bigG*massEa\)\/1000*\((2\/a - 1\/con1)\)\)\)],
"Input",
InitializationCell->True],

Cell["speed in orbit (m/s) as function of true anomaly.", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
\(CompSpeed =
Compile[{dummy},
\@\(\(bigG*massEa\)\/1000*\((2\/a - 1\/littlerorbCon)\)\)]\)], "Input",\

InitializationCell->True],

Cell[BoxData[
FormBox[
TagBox[
\(CompiledFunction({dummy},
\@\(\(\((bigG\ massEa)\)\ \((2\/a - 1\/littlerorbCon)\)\)\/1000\),
"-CompiledCode-")\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell[BoxData[
\(EccAnom[y_] :=
2*ArcTan[\@\(\(1 - eccenOrb\)\/\(1 + eccenOrb\)\)*Tan[y*Pi/360]]\)],
"Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(CompEccAnom =
Compile[{dummy},
2*ArcTan[
\@\(\(1 - eccenOrb\)\/\(1 + eccenOrb\)\)*Tan[trueAnom*Pi/360]]]
\)], "Input",
InitializationCell->True],

Cell[BoxData[
FormBox[
TagBox[
\(CompiledFunction({dummy},
2\ \(\(tan\^\(-1\)\)(
\@\(\(1 - eccenOrb\)\/\(eccenOrb + 1\)\)\
\(tan(\(trueAnom\ \[Pi]\)\/360)\))\), "-CompiledCode-")\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell["eccentric anomaly (in radians) as function of true anomaly.", "Text"],

Cell[BoxData[
\(MeanAnom[y_] := EccAnom[y] - eccenOrb*Sin[y]\)], "Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(CompMeanAnom =
Compile[{dummy}, eccanomCon - eccenOrb*Sin[trueAnom]]\)], "Input",
InitializationCell->True],

Cell[BoxData[
FormBox[
TagBox[
\(CompiledFunction({dummy}, eccanomCon - eccenOrb\ \(sin(trueAnom)\),
"-CompiledCode-")\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell["mean anomaly (in radians) as function of true anomaly.", "Text"],

Cell[BoxData[
\(LatGeoc[y_] :=
180\/Pi*ArcSin[Sin[\(Pi*\((y - \[Omega])\)\)\/180]*Sin[\(Pi*io\)\/180]]
\)], "Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(CompLatGeoc\ = \
Compile[{dummy},
180\/Pi*ArcSin[
Sin[\(Pi*\((trueAnom - \[Omega])\)\)\/180]*Sin[\(Pi*io\)\/180]]]
\)], "Input",
InitializationCell->True],

Cell[BoxData[
FormBox[
TagBox[
\(CompiledFunction({dummy},
\(180\ \(\(sin\^\(-1\)\)(
\(sin(1\/180\ \[Pi]\ \((trueAnom - \[Omega])\))\)\
\(sin(\(\[Pi]\ io\)\/180)\))\)\)\/\[Pi], "-CompiledCode-")
\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell["Geocentric lattitude (degrees) as function of true anomaly.", "Text"],

Cell[BoxData[
\(\(LongGeoc[y_] :=
\[CapitalOmega] +
Sign[LatGeoc[y]]*180\/Pi*
ArcCos[Cos[Pi*\((y - \[Omega])\)/180]\/Cos[LatGeoc[y]*Pi/180]]\t
\)\)], "Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(CompLongGeoc =
Compile[{dummy},
\[CapitalOmega] +
Sign[latgeocCon]*180\/Pi*
ArcCos[Cos[Pi*\((trueAnom - \[Omega])\)/180]\/Cos[
latgeocCon*Pi/180]]]\)], "Input",
InitializationCell->True],

Cell[BoxData[
FormBox[
TagBox[
\(CompiledFunction({dummy},
\[CapitalOmega] +
\(180\ \(\(cos\^\(-1\)\)(
\(cos(1\/180\ \[Pi]\ \((trueAnom - \[Omega])\))\)\/\(cos(
\(latgeocCon\ \[Pi]\)\/180)\))\)\
\(sgn(latgeocCon)\)\)\/\[Pi], "-CompiledCode-")\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell["\<\
Geocentric longitude (in degrees) at epoch of orbit ascending node \
crossing as function of true anomaly.\
\>", "Text"],

Cell[BoxData[
\(Tperi[y_] := Mod[\(MeanAnom[y]*period\)\/\(2*Pi\), period]\)], "Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(qq = D[Mod[\((MeanAnom[y]*period)\)/\((2 Pi)\), period], y]\)], "Input"],

Cell[BoxData[
FormBox[
RowBox[{
"869.026748903952039`", " ",
\((\(0.0173909047292617291`\
\(\(sec\^2\)(\(\[Pi]\ y\)\/360)\)\)\/\(0.992863663260057016`\
\(\(tan\^2\)(\(\[Pi]\ y\)\/360)\) + 1\) -
0.00358094578746492864`\ \(cos(y)\))\), " ",
RowBox[{
SuperscriptBox["Mod",
TagBox[\((1, 0)\),
Derivative],
MultilineFunction->None], "(",
\(869.026748903952039`\
\((2\ \(\(tan\^\(-1\)\)(
0.996425442900800817`\ \(tan(\(\[Pi]\ y\)\/360)\))\) -
0.00358094578746492864`\ \(sin(y)\))\), 5460.2561002593557`
\), ")"}]}], TraditionalForm]], "Output"]
}, Closed]],

Cell[BoxData[
\(NIntegrate[
CompJustO[CompAltGeoid[y], y]*D[CompTperi[y], y], {y, 0, 180}]\)],
"Input"],

Cell["\<\
time from last periapsis of satellite orbit (seconds) as function \
of true anomaly.\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
\(CompTperi =
Compile[{dummy}, Mod[\(meananomCon*period\)\/\(2*Pi\), period]]\)],
"Input",
InitializationCell->True],

Cell[BoxData[
FormBox[
TagBox[
RowBox[{"CompiledFunction", "(",
RowBox[{\({dummy}\), ",",

InterpretationBox[
\(\(meananomCon\ period\)\/\(2\ \[Pi]\)\ mod\ period\),
Mod[
Times[ meananomCon, period,
Power[
Times[ 2, Pi], -1]], period]], ",",
"\<\"-CompiledCode-\"\>"}], ")"}],
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell[BoxData[
\(LongGeocSubTc[y_] :=
\(360*\((Tperi[y] - timePeriANC)\)\)\/86400 + LongGeoc[y]\)], "Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(CompLongGeocSubTc =
Compile[{dummy},
\(360*\((tperiCon - timePeriANC)\)\)\/86400 + longgeocCon]\)], "Input",\

InitializationCell->True],

Cell[BoxData[
FormBox[
TagBox[
\(CompiledFunction({dummy},
longgeocCon + \(360\ \((tperiCon - timePeriANC)\)\)\/86400,
"-CompiledCode-")\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell["\<\
Geocentric longitude (in degrees) corrected for earth rotation \
during the orbit as function of true anomaly (true, real-time \
longitude).\
\>", "Text"],

Cell[BoxData[
\(\(lGMTdays =
Mod[\((0.5 + \((Tperi[0] - timePeriANC)\)\/86400 +
FractionalPart[JD[bigYY, bigMM, bigDD, bigUT]])\), 1]; \)\)],
"Input",
InitializationCell->True],

Cell["fraction of a day from perigee to ascending node crossing.", "Text"],

Cell[BoxData[
\(\(Rgeoid[y_] :=
rEq*\@\(\((1 - elliptEarth\^2)\)\^2*
\((Sin[\(Pi*LatGeoc[y]\)\/180])\)\^2 +
\((Cos[\(Pi*LatGeoc[y]\)\/180])\)\^2\)\/\@\((
1 - \((elliptEarth*Sin[\(Pi*LatGeoc[y]\)\/180])\)\^2)\)\n\)\)],
"Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(CompRgeoid =
Compile[{dummy},
rEq*\@\(\((1 - elliptEarth\^2)\)\^2*
\((Sin[\(Pi*latgeocCon\)\/180])\)\^2 +
\((Cos[\(Pi*latgeocCon\)\/180])\)\^2\)\/\@\((
1 - \((elliptEarth*Sin[\(Pi*latgeocCon\)\/180])\)\^2)\)]\)],
"Input",
InitializationCell->True],

Cell[BoxData[
FormBox[
TagBox[
\(CompiledFunction({dummy},
\(rEq\ \@\(\(cos\^2\)(\(\[Pi]\ latgeocCon\)\/180) +
\((1 - elliptEarth\^2)\)\^2\
\(\(sin\^2\)(\(\[Pi]\ latgeocCon\)\/180)\)\)\)\/\@\(1 -
\((elliptEarth\ \(sin(\(\[Pi]\ latgeocCon\)\/180)\))\)\^2\),
"-CompiledCode-")\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell["\<\
radius of earth at a given point in the satellite orbit (true \
anomaly) above a given latitude.\
\>", "Text"],

Cell[BoxData[
\(HAneqt[y_] :=
15*Mod[\((\(-24\)*\((lGMTdays - LongGeocSubTc[y]\/360)\))\), 24]\)],
"Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(CompHAneqt =
Compile[{dummy},
15*Mod[\((\(-24\)*\((lGMTdays - longgeocsubtcCon\/360)\))\), 24]]\)],
"Input",
InitializationCell->True],

Cell[BoxData[
FormBox[
TagBox[
RowBox[{"CompiledFunction", "(",
RowBox[{\({dummy}\), ",",
RowBox[{"15", " ",
RowBox[{"(",

InterpretationBox[
\(\(\(-24\)\ \((lGMTdays - longgeocsubtcCon\/360)\)\)\ mod\
24\),
Mod[
Times[ -24,
Plus[ lGMTdays,
Times[ -1,
Times[ longgeocsubtcCon,
Power[ 360, -1]]]]], 24]], ")"}]}], ",",
"\<\"-CompiledCode-\"\>"}], ")"}],
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell["Hour angle of the satellite orbit with respect to sun.", "Text"],

Cell["\<\
The above equation is not corrected for the equation of time.\
\>",
"Text"],

Cell[BoxData[
\(AltGeoid[y_] := LittleROrb[y] - Rgeoid[y]\)], "Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(CompAltGeoid = Compile[{dummy}, littlerorbCon - rgeoidCon]\)], "Input",
InitializationCell->True],

Cell[BoxData[
FormBox[
TagBox[
\(CompiledFunction({dummy}, littlerorbCon - rgeoidCon,
"-CompiledCode-")\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell["satellite altitude above the elliptical earth geoid.", "Text"],

Cell[BoxData[
\(Eta[y_] := Abs[decSol - LatGeoc[y]]\/2\)], "Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(CompEta = Compile[{dummy}, Abs[decSol - latgeocCon]\/2]\)], "Input",
InitializationCell->True],

Cell[BoxData[
FormBox[
TagBox[
\(CompiledFunction({dummy},
\[LeftBracketingBar]decSol - latgeocCon\[RightBracketingBar]\/2,
"-CompiledCode-")\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell[BoxData[
\(Theta[y_] := Abs[decSol + latgeocCon]\/2\)], "Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(CompTheta = Compile[{dummy}, Abs[decSol + latgeocCon]\/2]\)], "Input",
InitializationCell->True],

Cell[BoxData[
FormBox[
TagBox[
\(CompiledFunction({dummy},
\[LeftBracketingBar]decSol + latgeocCon\[RightBracketingBar]\/2,
"-CompiledCode-")\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell[BoxData[
\(Tau[y_] :=
Mod[\((HAneqt[y] + \[Beta] +
\((pj*Sin[Pi*\((HAneqt[y] + \[Gamma])\)/180])\) + 180)\),
360] - 180\)], "Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(CompTau =
Compile[{dummy},
Mod[\((haneqtCon + \[Beta] +
\((pj*Sin[Pi*\((haneqtCon + \[Gamma])\)/180])\) + 180)\),
360] - 180]\)], "Input",
InitializationCell->True],

Cell[BoxData[
FormBox[
TagBox[
RowBox[{"CompiledFunction", "(",
RowBox[{\({dummy}\), ",",
RowBox[{

InterpretationBox[
\(\(haneqtCon + \[Beta] +
pj\ \(sin(1\/180\ \[Pi]\ \((haneqtCon + \[Gamma])\))\) +
180\)\ mod\ 360\),
Mod[
Plus[ haneqtCon, \[Beta],
Times[ pj,
Sin[
Times[ Pi,
Times[
Plus[ haneqtCon, \[Gamma]],
Power[ 180, -1]]]]], 180], 360]], "-", "180"}],
",", "\<\"-CompiledCode-\"\>"}], ")"}],
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell[BoxData[
\(A[y_] :=
r*\(\((Cos[Eta[y]*Pi/180])\)\^mj -
\((Sin[Theta[y]*Pi/180])\)\^mj\)\/\(1 +
r*\((Sin[Theta[y]*Pi/180])\)\^mj\)\)], "Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(CompA =
Compile[{dummy},
r*\(\((Cos[etaCon*Pi/180])\)\^mj -
\((Sin[thetaCon*Pi/180])\)\^mj\)\/\(1 +
r*\((Sin[thetaCon*Pi/180])\)\^mj\)]\)], "Input",
InitializationCell->True],

Cell[BoxData[
FormBox[
TagBox[
\(CompiledFunction({dummy},
\(r\ \((\(cos\^mj\)(\(etaCon\ \[Pi]\)\/180) -
\(sin\^mj\)(\(thetaCon\ \[Pi]\)\/180))\)\)\/\(r\
\(\(sin\^mj\)(\(thetaCon\ \[Pi]\)\/180)\) + 1\),
"-CompiledCode-")\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell["4 arguments in Jacchia model", "Text"],

Cell[BoxData[
\(Tni[y_] := tempSubC*\((1 + r*\((Sin[Theta[y]*Pi/180])\)\^mj)\)\)],
"Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(CompTni =
Compile[{dummy}, tempSubC*\((1 + r*\((Sin[thetaCon*Pi/180])\)\^mj)\)]
\)], "Input",
InitializationCell->True],

Cell[BoxData[
FormBox[
TagBox[
\(CompiledFunction({dummy},
tempSubC\ \((r\ \(\(sin\^mj\)(\(thetaCon\ \[Pi]\)\/180)\) + 1)\),
"-CompiledCode-")\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell[BoxData[
\(Tday[y_] := tempSubC*\((1 + r*\((Cos[Eta[y]*Pi/180])\)\^mj)\)\)],
"Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(CompTday =
Compile[{dummy}, tempSubC*\((1 + r*\((Cos[etaCon*Pi/180])\)\^mj)\)]\)],
"Input",
InitializationCell->True],

Cell[BoxData[
FormBox[
TagBox[
\(CompiledFunction({dummy},
tempSubC\ \((r\ \(\(cos\^mj\)(\(etaCon\ \[Pi]\)\/180)\) + 1)\),
"-CompiledCode-")\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell["\<\
minimum night-time and maximum day-time temperatures base values \
for the exosphere.\
\>", "Text"],

Cell[BoxData[
\(Tl[y_] := Tni[y]*\((1 + A[y]*\((Cos[Pi*\(Tau[y]/180\)/2])\)\^nj)\)\)],
"Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(CompTl =
Compile[{dummy},
tniCon*\((1 + aCon*\((Cos[Pi*\(tauCon/180\)/2])\)\^nj)\)]\)], "Input",\

InitializationCell->True],

Cell[BoxData[
FormBox[
TagBox[
\(CompiledFunction({dummy},
tniCon\ \((aCon\ \(\(cos\^nj\)(\(\[Pi]\ tauCon\)\/\(180\ 2\))\) + 1)
\), "-CompiledCode-")\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell["uncorrected exospheric temperature.", "Text"],

Cell[BoxData[
\(dTg := 28*bigKp + 0.03*Exp[bigKp]\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(\[Xi] :=
doy\/365.242 +
0.1145*\((
\((\(1 + Sin[\((342.3 + \((doy\/365.242*360)\))\)*Pi\/180]\)\/2)
\)\^2.16 - 0.5)\)\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(dTs :=
2.41 + \(F\_10.7\%75\)\&_*
\((0.349 + 0.206*Sin[\((226.5 + 360*\[Xi])\)*Pi/180])\)*
Sin[\((247.6 + 720*\[Xi])\)*Pi/180]\)], "Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\({dTg, dTs}\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(TraditionalForm\`{66.1145670917418204`, \(-25.0040428018544513`\)}\)],
"Output"]
}, Open ]],

Cell[BoxData[""], "Input"],

Cell[CellGroupData[{

Cell["The Exospheric Temperature:", "Subsection"],

Cell[BoxData[
\(TempInf[y_] := Tl[y] + dTg + dTs\)], "Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(CompTempInf = Compile[{dummy}, tlCon + dTg + dTs]\)], "Input",
InitializationCell->True],

Cell[BoxData[
FormBox[
TagBox[
\(CompiledFunction({dummy}, dTg + dTs + tlCon, "-CompiledCode-")\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell["\<\
'rEq' is the exospheric temperature at a given location around the \
earth. Input is the true anomaly of the orbit.\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
\(Timing[TempInf[165]]\)], "Input",
InitializationCell->True],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{\(0.0200000000000102318`\ Second\), ",",
RowBox[{
RowBox[{"863.400000000000034`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"0.345362443350116743`", " ",
RowBox[{
SuperscriptBox["sin",
StyleBox["2.5`",
StyleBoxAutoDelete->True,
PrintPrecision->2]], "(",
\(1\/360\ \[Pi]\
\[LeftBracketingBar]latgeocCon - 20.0049100741932672`
\[RightBracketingBar]\), ")"}]}], "+", "1"}],
")"}], " ",
RowBox[{"(",
RowBox[{
FractionBox[
RowBox[{"0.0218486183838806846`", " ",
RowBox[{"(",
RowBox[{
\(0.873252108501829837`\[InvisibleSpace]\), "-",
RowBox[{
SuperscriptBox["sin",
StyleBox["2.5`",
StyleBoxAutoDelete->True,
PrintPrecision->2]], "(",
\(1\/360\ \[Pi]\
\[LeftBracketingBar]latgeocCon -
20.0049100741932672`
\[RightBracketingBar]\), ")"}]}], ")"}]}],
RowBox[{
RowBox[{"0.345362443350116743`", " ",
RowBox[{
SuperscriptBox["sin",
StyleBox["2.5`",
StyleBoxAutoDelete->True,
PrintPrecision->2]], "(",
\(1\/360\ \[Pi]\
\[LeftBracketingBar]latgeocCon -
20.0049100741932672`\[RightBracketingBar]\),
")"}]}], "+", "1"}]], "+", "1"}], ")"}]}], "+",
"41.110524289887369`"}]}], "}"}], TraditionalForm]], "Output"]
}, Open ]],

Cell["Now for the Temperature Model...", "Text"],

Cell[BoxData[
\(Tsubx[y_] :=
444.3807 + 0.02385*TempInf[y] +
\(-392.8292\)*Exp[\(-0.0021357\)*TempInf[y]]\)], "Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(CompTsubx =
Compile[{dummy},
444.3807 + 0.02385*tempinfCon +
\(-392.8292\)*Exp[\(-0.0021357\)*tempinfCon]]\)], "Input",
InitializationCell->True],

Cell[BoxData[
FormBox[
TagBox[
RowBox[{"CompiledFunction", "(",
RowBox[{\({dummy}\), ",",
RowBox[{
RowBox[{
StyleBox["0.0238499999999999978`",
StyleBoxAutoDelete->True,
PrintPrecision->4], " ", "tempinfCon"}], "-",
RowBox[{
StyleBox["392.829200000000042`",
StyleBoxAutoDelete->True,
PrintPrecision->7], " ",
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-",
StyleBox["0.00213569999999999993`",
StyleBoxAutoDelete->True,
PrintPrecision->5]}], " ", "tempinfCon"}]]}], "+",
StyleBox["444.380699999999961`",
StyleBoxAutoDelete->True,
PrintPrecision->7]}], ",", "\<\"-CompiledCode-\"\>"}], ")"}],
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell["\<\
'Tsubx' is the temperature at 125 km which is used as a parameter \
in the model.\
\>", "Text"]
}, Open ]],

Cell[CellGroupData[{

Cell["The Temperature Model:", "Subsection"],

Cell[BoxData[
\(DzVect[x_] := {x - 125, \((x - 125)\)\^2, \((x - 125)\)\^3,
\((x - 125)\)\^4}\)], "Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(CompDzVect =
Compile[{x}, {x - 125, \((x - 125)\)\^2, \((x - 125)\)\^3,
\((x - 125)\)\^4}]\)], "Input",
InitializationCell->True],

Cell[BoxData[
FormBox[
TagBox[
\(CompiledFunction({x}, {x - 125, \((x - 125)\)\^2, \((x - 125)\)\^3,
\((x - 125)\)\^4}, "-CompiledCode-")\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell[BoxData[
\(BigGsubx[y_] := 1.90*\(Tsubx[y] - T0\)\/\(125 - 90\)\)], "Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(CompBigGsubx =
Compile[{dummy}, 1.90*\(tsubxCon - T0\)\/\(125 - 90\)]\)], "Input",
InitializationCell->True],

Cell[BoxData[
FormBox[
TagBox[
RowBox[{"CompiledFunction", "(",
RowBox[{\({dummy}\), ",",
FractionBox[
RowBox[{
StyleBox["1.9`",
StyleBoxAutoDelete->True,
PrintPrecision->3], " ", \((tsubxCon - T0)\)}],
\(125 - 90\)], ",", "\<\"-CompiledCode-\"\>"}], ")"}],
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell[BoxData[
\(ConstraintVect[y_] := {T0 - Tsubx[y], 0, BigGsubx[y], 0}\)], "Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(CompConstraintVect =
Compile[{dummy}, {T0 - tsubxCon, 0, biggsubxCon, 0}]\)], "Input",
InitializationCell->True],

Cell[BoxData[
FormBox[
TagBox[
\(CompiledFunction({dummy}, {T0 - tsubxCon, 0, biggsubxCon, 0},
"-CompiledCode-")\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell[BoxData[
\(\(dz = 90 - 125; \)\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(\(theMatrix =
Inverse[{{dz, dz\^2, dz\^3, dz\^4}, {1, 2*dz, 3*dz\^2, 4*dz\^3}, {1, 0,
0, 0}, {0, 2, 0, 0}}]; \)\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(BigA[y_] := \(2\/Pi\) \((TempInf[y] - Tsubx[y])\)\)], "Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(CompBigA = Compile[{dummy}, \(2\/Pi\) \((tempinfCon - tsubxCon)\)]\)],
"Input",
InitializationCell->True],

Cell[BoxData[
FormBox[
TagBox[
\(CompiledFunction({dummy},
\(2\ \((tempinfCon - tsubxCon)\)\)\/\[Pi], "-CompiledCode-")\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell["Thus concludes the Temperature model.", "Text"],

Cell[BoxData[
\(Temper[x_ /; \ x <= 125, y_] :=
Tsubx[y] +
\((\ \((theMatrix . \ \ ConstraintVect[y])\)\ . \ DzVect[x]\ )\)\)],
"Input",
InitializationCell->True],

Cell[BoxData[
\(Temper[x_ /; \ x > 125, y_] :=
Tsubx[y] +
BigA[y]*ArcTan[
BigGsubx[y]\/BigA[y]*\((x - 125)\)*
\((1 + \((4.5*10\^\(-6\)*\((x - 125)\)\^2.5)\)\ )\)]\)], "Input",\

InitializationCell->True],

Cell[BoxData[
\(CompTemper[x_ /; x <= 125, y_] :=
CompTsubx[y] +
\((\ \((theMatrix\ . \ \ CompConstraintVect[y])\)\ . \
CompDzVect[x]\ )\)\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(\(\tCompTemper[x_ /; x > 125, y_] :=
CompTsubx[y] +
CompBigA[y]*
ArcTan[CompBigGsubx[y]\/CompBigA[y]*\((x - 125)\)*
\((1 + \((4.5*10\^\(-6\)*\((x - 125)\)\^2.5)\)\ )\)]\)\)],
"Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(Plot[Evaluate[CompTemper[x, 111], {x, 90, 400}]]\)], "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.252688 0.0030722 -0.131382 0.000798344 [
[.05453 .01579 -9 -9 ]
[.05453 .01579 9 0 ]
[.20814 .01579 -9 -9 ]
[.20814 .01579 9 0 ]
[.36175 .01579 -9 -9 ]
[.36175 .01579 9 0 ]
[.51536 .01579 -9 -9 ]
[.51536 .01579 9 0 ]
[.66897 .01579 -9 -9 ]
[.66897 .01579 9 0 ]
[.82258 .01579 -9 -9 ]
[.82258 .01579 9 0 ]
[.97619 .01579 -9 -9 ]
[.97619 .01579 9 0 ]
[.01131 .10812 -18 -4.5 ]
[.01131 .10812 0 4.5 ]
[.01131 .18796 -18 -4.5 ]
[.01131 .18796 0 4.5 ]
[.01131 .26779 -18 -4.5 ]
[.01131 .26779 0 4.5 ]
[.01131 .34762 -18 -4.5 ]
[.01131 .34762 0 4.5 ]
[.01131 .42746 -18 -4.5 ]
[.01131 .42746 0 4.5 ]
[.01131 .50729 -18 -4.5 ]
[.01131 .50729 0 4.5 ]
[.01131 .58713 -18 -4.5 ]
[.01131 .58713 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.05453 .02829 m
.05453 .03454 L
s
[(100)] .05453 .01579 0 1 Mshowa
.20814 .02829 m
.20814 .03454 L
s
[(150)] .20814 .01579 0 1 Mshowa
.36175 .02829 m
.36175 .03454 L
s
[(200)] .36175 .01579 0 1 Mshowa
.51536 .02829 m
.51536 .03454 L
s
[(250)] .51536 .01579 0 1 Mshowa
.66897 .02829 m
.66897 .03454 L
s
[(300)] .66897 .01579 0 1 Mshowa
.82258 .02829 m
.82258 .03454 L
s
[(350)] .82258 .01579 0 1 Mshowa
.97619 .02829 m
.97619 .03454 L
s
[(400)] .97619 .01579 0 1 Mshowa
.125 Mabswid
.08525 .02829 m
.08525 .03204 L
s
.11598 .02829 m
.11598 .03204 L
s
.1467 .02829 m
.1467 .03204 L
s
.17742 .02829 m
.17742 .03204 L
s
.23886 .02829 m
.23886 .03204 L
s
.26959 .02829 m
.26959 .03204 L
s
.30031 .02829 m
.30031 .03204 L
s
.33103 .02829 m
.33103 .03204 L
s
.39247 .02829 m
.39247 .03204 L
s
.4232 .02829 m
.4232 .03204 L
s
.45392 .02829 m
.45392 .03204 L
s
.48464 .02829 m
.48464 .03204 L
s
.54608 .02829 m
.54608 .03204 L
s
.5768 .02829 m
.5768 .03204 L
s
.60753 .02829 m
.60753 .03204 L
s
.63825 .02829 m
.63825 .03204 L
s
.69969 .02829 m
.69969 .03204 L
s
.73041 .02829 m
.73041 .03204 L
s
.76114 .02829 m
.76114 .03204 L
s
.79186 .02829 m
.79186 .03204 L
s
.8533 .02829 m
.8533 .03204 L
s
.88402 .02829 m
.88402 .03204 L
s
.91475 .02829 m
.91475 .03204 L
s
.94547 .02829 m
.94547 .03204 L
s
.25 Mabswid
0 .02829 m
1 .02829 L
s
.02381 .10812 m
.03006 .10812 L
s
[(300)] .01131 .10812 1 0 Mshowa
.02381 .18796 m
.03006 .18796 L
s
[(400)] .01131 .18796 1 0 Mshowa
.02381 .26779 m
.03006 .26779 L
s
[(500)] .01131 .26779 1 0 Mshowa
.02381 .34762 m
.03006 .34762 L
s
[(600)] .01131 .34762 1 0 Mshowa
.02381 .42746 m
.03006 .42746 L
s
[(700)] .01131 .42746 1 0 Mshowa
.02381 .50729 m
.03006 .50729 L
s
[(800)] .01131 .50729 1 0 Mshowa
.02381 .58713 m
.03006 .58713 L
s
[(900)] .01131 .58713 1 0 Mshowa
.125 Mabswid
.02381 .04425 m
.02756 .04425 L
s
.02381 .06022 m
.02756 .06022 L
s
.02381 .07619 m
.02756 .07619 L
s
.02381 .09215 m
.02756 .09215 L
s
.02381 .12409 m
.02756 .12409 L
s
.02381 .14006 m
.02756 .14006 L
s
.02381 .15602 m
.02756 .15602 L
s
.02381 .17199 m
.02756 .17199 L
s
.02381 .20392 m
.02756 .20392 L
s
.02381 .21989 m
.02756 .21989 L
s
.02381 .23586 m
.02756 .23586 L
s
.02381 .25182 m
.02756 .25182 L
s
.02381 .28376 m
.02756 .28376 L
s
.02381 .29972 m
.02756 .29972 L
s
.02381 .31569 m
.02756 .31569 L
s
.02381 .33166 m
.02756 .33166 L
s
.02381 .36359 m
.02756 .36359 L
s
.02381 .37956 m
.02756 .37956 L
s
.02381 .39553 m
.02756 .39553 L
s
.02381 .41149 m
.02756 .41149 L
s
.02381 .44343 m
.02756 .44343 L
s
.02381 .45939 m
.02756 .45939 L
s
.02381 .47536 m
.02756 .47536 L
s
.02381 .49133 m
.02756 .49133 L
s
.02381 .52326 m
.02756 .52326 L
s
.02381 .53923 m
.02756 .53923 L
s
.02381 .55519 m
.02756 .55519 L
s
.02381 .57116 m
.02756 .57116 L
s
.02381 .01232 m
.02756 .01232 L
s
.02381 .60309 m
.02756 .60309 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02381 .01472 m
.02499 .01472 L
.02605 .01474 L
.02729 .01478 L
.02846 .01484 L
.02954 .01491 L
.03053 .01499 L
.03279 .01525 L
.03506 .01561 L
.03756 .01615 L
.04017 .01687 L
.04262 .01772 L
.04761 .02002 L
.05217 .02285 L
.05744 .02707 L
.06244 .03208 L
.07289 .04587 L
.08259 .06283 L
.10458 .11531 L
.14371 .23716 L
.16368 .29702 L
.18529 .35182 L
.22536 .42505 L
.2453 .45089 L
.26636 .47292 L
.30433 .50306 L
.34476 .52625 L
.38367 .54297 L
.42503 .55659 L
.46487 .56675 L
.5032 .57443 L
.54398 .58088 L
.58325 .58576 L
.621 .5895 L
.6612 .59268 L
.69989 .59512 L
.74103 .5972 L
.78066 .59881 L
.81876 .60006 L
.85933 .60116 L
.89837 .60202 L
.93987 .60277 L
.97619 .60332 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
ImageSize->{288, 177.938},
ImageMargins->{{62, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg NYM1Imb]`ULU>oooojjb`i>GYMcNiEePJ@0006=SW5ADQ;NgdBl_B_ooooogjMSAa/c5^YVDR`0009BD
U:f][B4Q8Kfm_MkNg]gNiUiPJD92@_l0og=cLf=SHooo003ooe5Anl30`820P8200?XC@3_j=7emOFAT
I4];BlS8b>7QhIJFU_l0003o0000oclo?nKVn_GeoHF5TLC4eOogjBm?CfUYJKjn_]?CdiT0I_ooc020
P80006IVc3
SU5lSL?ooc0`UZRXogEeM@00E@00ZP1E001EE@1EZP1Eoc2XW1TIL8b<^5iNVc/kQKno08X[h/VNlT KgDT`;no_m7FjVQ[MJo^k[C^];8R8[b?Sj0Pl=Y`e[R62b:;8V2PX>K>/OoTa;2`/=WIfOn^^LfgWTJ2
];0`H9V9MX:2PYUXKoodohYlJ_oon7k0kRj;EoZ0LP2Z002ZE@2ZZP2Zo`3oE@3oZUD005D0EED0ZUD0
oeEE05EEEEEEZUEEoeFZ05FZEEFZZUFZoeGo05GoEEGoZUGoojX00:X0EJX0ZZX0ojYE0:YEEJYEZZYE
ojZZ0:ZZEJZZZZZZoj[o0:[oEJ[oZZ[oool0EOl0Z_mE0?mEEOmEZ_mEoonZ0?nZEOnZZ_nZooooEOoo
ZYBGY^o_kgalO000?`00O`00_`0o000o?`0oO`0o_`0oo`1o001o?`1oO`1o_`1oo`2o002o?`2oO`2o
_`2oo`3o?`3oO`3o_cl003l0?cl0Ocl0_cl0oclo03loOclo_cloocmo03mo?cmoOcmo_cmoocno03no
?cnoOcno_cnoocoo03oo?cooOcoo_cooogl007l0?fK=ZY[=jdPmRoGN/m:dS?oG0?nU0:1B
;LeLG=9Y7_o0bmfPgKYEdiTbc4SAc7l0Ogl0_gl0oglo0=P0003H0000f0000=P0003H000040030@80
0P4300814`030@800`4200814P040@800P4300814P040@800`4200814`030@800P4300814`030@80
0`4200814`030@800P4300810P0001000P4200060@000@010P000`40000A00090@0000400@010080
00<1000040001@400@01008000<100400P000`40000@00030@01008000D100400@0200030@000100
00D100400@0200030@01008000<1000040000`400@0200050@0100400P000`40000?00@100L00@00
0@0100800@41000040020@8000H10001004200030@00014000<100000`000`400@0200030@000140
00@100010P000`400@0200030@00014000<100000`000`400@0200030@00018000<100400P000`40
0@0200030@00018000<100000P000`400@0200030@0000l000<100400P001P4000400@800@410000
40020@8000H10001004200030@00014000@100000`401@01000101@000<100400P000`400@020003
0@00018000<100000`401@01000101<000@100010P000`400@0200030@00014000@100000`401@01
000101800P4200060@000@010P010@40000@00D10P000`400@0200030@00014000D100000@030004
0@000A4000H10001004200030@01008000<100003`001040004200050@0000400P000`40000?0006
0@000@010P000`400@0200030@0000l000@100010P001@400001008000<1000040020@8000H10001
004200410@0001000P4200<10`020A<00P4300<10P020A<00P4300810`020A<00P4300<10P020A<0
0`4200810`020A<00`4200<10P020A@000@100000P4300810P0000/0b`42000040000`4000030081
10000`40000300030@0000<000<1000010000`40000300030@0000<000<100000`000`4000030003
0@0000@000<100000`000`40000300030@0000<000<100000`000`40000400030@0000<000<10000
0`000`40000300030@0000<000<1000010000`40000300030@0000<000<100000`000`4000030003
0@0000@000<100000`000`40000300030@0000<000<100000`000`40000400030@0000<000<10000
1@00010000<100000`000`400@0L00030@0001`000<1000070000`40000L00030@0001`000<10000
70000`400005000040000`40000500030@000;d0000@00030@0000H000<10000_000010000<10000
1`000`40002k000040000`40000700030@000;/0000@00030@0000P000<10000^P00010000<10000
20000`40002j000040000`40000900030@000;T0000@00030@0000T000<10000^@00010000<10000
2P000`40002h000040000`40000:00030@000;P0000@00030@0000/000<10000]`00010000<10000
2`000`40002g000040000`40000<00030@000;H0000010010@4200810`020@<000<1000030000`40
002f000000H00@01004200030@01008000<100000P4>00030@000;D0000300030@01008000<10040
0P001040004?00030@000;D0000200040@000@8000<100400P001040004?00030@000;D000001P40
00400@8000<100400P001040004@00030@000;@0000010010@4200810`020@<000<100003P000`40
002d000040000`40000>00030@000;@0000@00030@0000l000<10000/`00010000<100003`000`40
002c000040000`40000?00030@000;<0000@00030@00010000<10000/P00010000<1000040000`40
002b000040000`40000@00030@000;80000@00030@00014000<10000/@00010000<100004@000`40
002a000040000`40000A00030@000;40000010010@4200810`020@<000<100004@000`40002a0000
10401`01000100400P000`4000020A<000<10000/00000030@01008000H10001004200040@000A@0
00<10000/00000030041008000H10001004200040@000A@000<10000/00000030041008000H10001
004200040@000AD000<10000[`00008000@100000P4300810`000`40000C00030@000:l0000@0003
0@0001<000<10000[`00010000<1000050000`40002^000040000`40000D00030@000:h0000@0003
0@0001@000<10000[P00010000<100005@000`40002]000040000`40000E00030@000:d0000@0003
0@0001D000<10000[@00010000<100005P000`40002/000040000`40000F00030@000:`0000@0003
0@0001H000<10000[000000400410@800P4300810`000`40000G00030@000:/000001P0100400@80
00<100400P000`4000020AP000<10000Z`0000<000<100400P000`400@0200040@000AT000<10000
Z`00000600410@010P000`400@0200040@000AX000<10000ZP0000030040008000H1000100420004
0@000AX000<10000ZP00000400410@800P4300810`000`40000H00030@000:X0000@00030@0001T0
00<10000Z@00010000<100006@000`40002Y000040000`40000I00030@000:T0000@00030@0001X0
00<10000Z000010000<100006P000`40002X000040000`40000J00030@000:P0000@00030@0001/0
00<10000Y`00010000<100006`000`40002W000040000`40000L00030@000:H0000@00030@0001`0
00<10000YP0000800P4200810`020@<000<1000070000`40002V000000@00@000P4200030@010080
00<100000P4N00030@000:D0000010010@020@8000<100400P001040004O00030@000:D000001P01
0@400@8000<100400P001040004P00030@000:@000000`010@0200060@000@010P001040004P0003
0@000:@0000200<100<00@400`020@<000<100007`000`40002S000040000`40000O00030@000:<0
000@00030@00020000<10000XP00010000<1000080000`40002R000040000`40000Q00030@000:40
000@00030@00028000<10000X000010000<100008P000`40002P000040000`40000S00030@0009l0
000@00030@0002<000<10000W`00010000<1000090000`40002N000040000`40000T00030@0009h0
000200040@0000810`020@<000<100009@000`40002M00000P001040004200030@01008000<10000
0P4W00030@0009`0000200040@000@8000<100400P001040004X00030@0009`0000200040@000@80
00<100400P001040004Y00030@0009/000001P4000400@8000<100400P001040004Z00030@0009X0
00040@800P4300810`000`40000X00030@0009X0000@00030@0002T000<10000V@00010000<10000
:P000`40002H000040000`40000[00030@0009L0000@00030@0002`000<10000UP00010000<10000
;@000`40002E000040000`40000^0081U@00010000<10000<0000`40002B000040000`40000a0003
0@000940000@00030@0003800P6A000040000`40000d00030@0008h000000`010@0300810`020@<0
00<10000=@000`40002=000000H10001004200030@01008000<100000P4g0081S@0000060@000@01
0P000`400@0200040@000CX00P6;000010401`01000100400P001040004l00030@0008P000001P40
00400@8000<100400P001040004m0081R0000003004100<00P4300810`000`40000m0081QP000100
00<10000?`030H<0000@00030@0004800P61000040000`40001400<1OP00010000<10000A`030G/0
000@00030@0004X00`5h000040000`40001=00@1M000010000<10000D@040G00000@00030@0005D0
0`5]000040000`40001H00@1J@00010000<10000G0060F<0000010010@4200810`020@<000<10000
HP080E/0000300<10P000`400@0200030@000081J`080E<0000200@10P000`400@0200040@000G@0
4053000000<00@000`4200030@01008000@10001Q00@0C<00000100100020@8000<100400P001040
006D02`11`0000800P4200810`020@<000<10000a@00010000<10000a@00010000<10000a@000=P0
003H0000\
\>"],
ImageRangeCache->{{{0, 215}, {132.438, 0}} -> {64.1584, 129.63, 1.20952,
4.65448}}],

Cell[BoxData[
FormBox[
TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell["\<\
'Temper' is the Temperature at a height for a given angular \
location around the earth.\
\>", "Text"]
}, Open ]]
}, Open ]],

Cell[CellGroupData[{

Cell["\<\
Upper Atmospheric Density Model
\
\>", "Section",
InitializationCell->True],

Cell[BoxData[
\(\(constMbar = {\(-0.085586\), 1.2840*10\^\(-4\), 1.0056*10\^\(-5\),
\(-1.0210\)*10\^\(-5\), 1.5044*10\^\(-6\), 9.9826*10\^\(-8\)}; \)\)],
"Input",
InitializationCell->True],

Cell["\<\
cMbar is the set of constants used to compute Mbar in the series \
approximation in the Jaccia model.\
\>", "Text"],

Cell[BoxData[
\(Mbar[x_] :=
28.15204 + \[Sum]\+\(n = 1\)\%6 constMbar[\([n]\)]*\((x - 100)\)\^n /;
90 <= \ x <= 105\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(\(mbar105 = Mbar[105]; \)\)], "Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(\(moleculesSL = {{N2, 0.78109711, 28.0134, 0}, {Ar, 0.00934, 39.948,
0}, {He, 0.00001289, 4.0026, \(-0.38\)}, {O2, 0.20955, 31.9988,
0}, {O, 0, 31.9988/2, 0}}\ \ \ (*\ species, \
percentage\ by\ volume, \ atomic\ weight\ \((g/mole)\), \
and\ diffusion\ constant\ alpha\ *) \)\)], "Input",
InitializationCell->True],

Cell[BoxData[
FormBox[
RowBox[{"(", GridBox[{
{"N2",
StyleBox["0.781097110000000061`",
StyleBoxAutoDelete->True,
PrintPrecision->8],
StyleBox["28.0134000000000007`",
StyleBoxAutoDelete->True,
PrintPrecision->6], "0"},
{"Ar",
StyleBox["0.00933999999999999985`",
StyleBoxAutoDelete->True,
PrintPrecision->3],
StyleBox["39.9480000000000003`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "0"},
{"He",
StyleBox["0.0000128899999999999991`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["4.00260000000000015`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
RowBox[{"-",
StyleBox["0.379999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->2]}]},
{"O2",
StyleBox["0.209549999999999991`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["31.9987999999999983`",
StyleBoxAutoDelete->True,
PrintPrecision->6], "0"},
{"O", "0", "15.9993999999999996`", "0"}
}], ")"}], TraditionalForm]], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(Timing[N[Sum[moleculesSL[\([i, 2]\)], {i, 5}], 30]]\)], "Input"],

Cell[OutputFormData["\<\
{0.*Second, 1.}\
\>",
"\<\
{0. Second, 1.}\
\>"], "Output"]
}, Open ]],

Cell[BoxData[
\(\(MonatomicO = moleculesSL[\([5]\)]; \)\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(\(meanMolecularMassSL =
\[Sum]\+\(n = 1\)\%4 moleculesSL[\([n, 2]\)]*moleculesSL[\([n, 3]\)];
\)\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(GAccel[x_] := g0\/\(\ \((1 + x/bigR0)\)\^2\)\)], "Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(CompGAccel\ = \ Compile[{x}, g0\/\(\ \((1 + x/bigR0)\)\^2\)]\)],
"Input",
InitializationCell->True],

Cell[BoxData[
FormBox[
TagBox[
\(CompiledFunction({x}, g0\/\((x\/bigR0 + 1)\)\^2, "-CompiledCode-")
\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell[BoxData[
\(DeltaLogRho[x_ /; 90 <= x <= 105, y_] :=
Log[Mbar[x]\/Temper[x, y]]\ - Log[Mbar[90]\/Temper[90, y]] -
NIntegrate[\(Mbar[z]*GAccel[z]\)\/Temper[z, y], {z, 90, x}]\/kJ\)],
"Input",
InitializationCell->True],

Cell[BoxData[""], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
\(CompDeltaLogRho =
Compile[{x, y},
Log[Mbar[x]\/CompTemper[x, y]]\ - Log[Mbar[90]\/CompTemper[90, y]] -
NIntegrate[\(Mbar[z]*CompGAccel[z]\)\/CompTemper[z, y], {z, 90, x}]
\/kJ]\)], "Input",
InitializationCell->True],

Cell[BoxData[
FormBox[
TagBox[
\(CompiledFunction({x, y},
\(-\(log(\(Mbar(90)\)\/\(CompTemper(90, y)\))\)\) -
\(NIntegrate(
\(\(Mbar(z)\)\ \(CompGAccel(z)\)\)\/\(CompTemper(z, y)\), {z,
90, x})\)\/kJ + log(\(Mbar(x)\)\/\(CompTemper(x, y)\)),
"-CompiledCode-")\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell["Separate subexpressions for O2, O, and He/N2/Ar:", "Text"],

Cell[BoxData[
\(N2ArHe[x_ /; 90 <= x <= 105, y_, z_] :=
avogadro*rho0*Exp[DeltaLogRho[x, y]]*
moleculesSL[\([z, 2]\)]\/meanMolecularMassSL\)], "Input",
CellFrame->{{0, 0}, {0, 2}},
InitializationCell->True],

Cell[BoxData[
\(O2[x_ /; 90 <= x <= 105, y_] :=
avogadro*rho0*Exp[DeltaLogRho[x, y]]*\
\((\(Mbar[x]*
\((1 + moleculesSL[\([4, 2]\)])\)\)\/meanMolecularMassSL -
1)\)/Mbar[x]\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(JustO[x_ /; 90 <= x <= 105, y_] :=
2*avogadro*rho0*Exp[CompDeltaLogRho[x, y]]*
\((1 - Mbar[x]\/meanMolecularMassSL)\)/Mbar[x]\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(\(N2ArHe[x_ /; x > 105, y_, z_] :=
Exp[LogNDensAbove105[x, y, z]]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ (*
\ going\ to\ init\ *) \)\)], "Input",
CellFrame->{{0, 0}, {0, 0.5}},
InitializationCell->True],

Cell[BoxData[
\(\(O2[x_ /; x > 105, y_] := Exp[LogNDensAbove105[x, y, 4]]\ \ \ (*\
going\ to\ init\ *) \)\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(\(JustO[x_ /; x > 105, y_] :=
Exp[LogNDensAbove105[x, y, 5]]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ (*\
going\ to\ init\ *) \)\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(CompN2ArHe[x_ /; 90 <= x <= 105, y_, z_] :=
avogadro*rho0*Exp[CompDeltaLogRho[x, y]]*
moleculesSL[\([z, 2]\)]\/meanMolecularMassSL\)], "Input",
CellFrame->{{0, 0}, {0, 2}},
InitializationCell->True],

Cell[BoxData[
\(CompO2[x_ /; 90 <= x <= 105, y_] :=
avogadro*rho0*Exp[CompDeltaLogRho[x, y]]*\
\((\(Mbar[x]*
\((1 + moleculesSL[\([4, 2]\)])\)\)\/meanMolecularMassSL -
1)\)/Mbar[x]\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(\(CompJustO[x_ /; 90 <= x <= 105, y_] :=
2*avogadro*rho0*Exp[CompDeltaLogRho[x, y]]*
\((1 - Mbar[x]\/meanMolecularMassSL)\)/Mbar[x]\ \ \ \ \ \ \ \ (*\ \
going\ to\ init\ *) \)\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(\(CompN2ArHe[x_ /; x > 105, y_, z_] :=
Exp[CompLogNDensAbove105[x, y, z]]\ \ \ \ \ \ \ \ \ \ \ \ \ \ (*\
going\ to\ init\ *) \)\)], "Input",
CellFrame->{{0, 0}, {0, 0.5}},
InitializationCell->True],

Cell[BoxData[
\(\(CompO2[x_ /; x > 105, y_] :=
Exp[CompLogNDensAbove105[x, y, 4]]
\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ (*\ going\ to\ init\ *)
\)\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(\(CompJustO[x_ /; x > 105, y_] :=
Exp[CompLogNDensAbove105[x, y, 5]]\ \ \ \ \ \ \ \ \ \ \ \ \ (*\
going\ to\ init\ *) \)\)], "Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(Timing[{O2[320, 51.25], JustO[320, 51.25]}]\)], "Input"],

Cell[OutputFormData["\<\
$Aborted\
\>", "\<\
$Aborted\
\>"], "Output"]
}, Open ]],

Cell[BoxData[
\(Timing[{CompO2[320, 51.25], CompJustO[320, 51.25]}]\)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
\(Timing[CompJustO[320, 51.25]]\)], "Input"],

Cell[BoxData[
\(TraditionalForm
\`{15.2299999999999986`\ Second, 4.34516148862629325`*^8}\)], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(Timing[CompO2[320, 51.25]]\)], "Input"],

Cell[BoxData[
\(TraditionalForm
\`{15.2800000000000002`\ Second, 3.84904160271095463`*^6}\)], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(Timing[{CompLogNDensAbove105[320, 51.25, 4],
CompLogNDensAbove105[320, 51.25, 5]}]\)], "Input"],

Cell[BoxData[
\(TraditionalForm
\`{30.5200000000000049`\ Second, {15.1633347409138741`,
19.8897436685213619`}}\)], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(Timing[{LogNDensAbove105[320, 51.25, 4],
LogNDensAbove105[320, 51.25, 5]}]\)], "Input"],

Cell[BoxData[
\(TraditionalForm
\`{32.6599999999999957`\ Second, {15.1633347409138741`,
19.8897436685213619`}}\)], "Output"]
}, Open ]],

Cell["\<\
now, an expression for the total number density of a species \
between 90 & 105 km:\
\>", "Text"],

Cell[CellGroupData[{

Cell["Ntotal & CompNtotal for x<=105 km", "Subsubsection"],

Cell[BoxData[
\(Ntotal[x_ /; x <= 105, y_] := {N2ArHe[x, y, 1], N2ArHe[x, y, 2],
N2ArHe[x, y, 3], O2[x, y], JustO[x, y]}\)], "Input",
CellFrame->{{0, 0}, {0, 0.5}},
InitializationCell->True],

Cell[BoxData[
\(CompNtotal[x_ /; x <= 105, y_] := {CompN2ArHe[x, y, 1],
CompN2ArHe[x, y, 2], CompN2ArHe[x, y, 3], CompO2[x, y],
CompJustO[x, y]}\)], "Input",
CellFrame->{{0, 0}, {0.5, 0}},
InitializationCell->True],

Cell["\<\
Returns number of molecules per cubic centimetre for each species \
as function of height and true anomaly. Note this is only half the function \
definition. The rest is defined in a few steps...\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
\(Timing[{Log[10, Ntotal[102, 51.25]], Log[10, Ntotal[105, 51.25]],
Log[10, Ntotal[140, 51.25]], Log[10, Ntotal[320, 51.25]]}]\)], "Input"],

Cell[BoxData[
FormBox[
RowBox[{"(", GridBox[{
{"12.7906788276492555`", "10.8683206729273207`",
"8.00822671405062891`", "12.139982590701086`",
"11.7426280038329156`"},
{"12.559162453084105`", "10.636804298362168`",
"7.7767103394854784`", "11.8843265189201252`",
"11.6149056524607008`"},
{"10.7758660263553607`", "8.2815733528797697`",
"7.31158318494582459`", "9.91004021142111568`",
"10.4073487820058541`"},
{"7.83860988323761898`", "4.18412261469345381`",
"6.78980083263907552`", "6.58535260523076981`",
"8.63800592170896663`"}
},
ColumnAlignments->{Decimal}], ")"}], TraditionalForm]], "Output"]
}, Open ]],

Cell[BoxData[
\(N105[y_] := Ntotal[105, y]\)], "Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(CompN105 = Compile[{y}, CompNtotal[105, y]]\)], "Input",
InitializationCell->True],

Cell[BoxData[
FormBox[
TagBox[\(CompiledFunction({y}, CompNtotal(105, y), "-CompiledCode-")\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(Timing[{CompN105[51.25], CompNtotal[105, 51.25]}]\)], "Input"],

Cell[BoxData[
FormBox[
RowBox[{
\(CompiledFunction::"ccr"\), \( : \ \),
"\<\"Expression \\!\\(TraditionalForm\\`\\({3.62378525121321493`*^12, \
4.3331557386419508`*^10, 5.98012606756903064`*^7, 7.66172427660005972`*^11, \
4.12008003421786561`*^11}\\)\\) should be a machine-size real number.\"\>"}],
TraditionalForm]], "Message"],

Cell[BoxData[
FormBox[
RowBox[{
\(CompiledFunction::"cfex"\), \( : \ \),
"\<\"External evaluation error at instruction \
\\!\\(TraditionalForm\\`3\\); proceeding with uncompiled evaluation.\"\>"}],
TraditionalForm]], "Message"],

Cell[BoxData[
FormBox[
RowBox[{"(", GridBox[{
{"3.62378525121321493`*^12", "4.3331557386419508`*^10",
"5.98012606756903064`*^7", "7.66172427660005972`*^11",
"4.12008003421786561`*^11"},
{"3.62378525121321493`*^12", "4.3331557386419508`*^10",
"5.98012606756903064`*^7", "7.66172427660005972`*^11",
"4.12008003421786561`*^11"}
},
ColumnAlignments->{Decimal}], ")"}], TraditionalForm]], "Output"]
}, Open ]],

Cell["\<\
Returns the number of molecules of each species at the 105 km \
boundary.\
\>", "Text"],

Cell[BoxData[
\(BoundaryN105 := N105[51.25]\)], "Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(Timing[BoundaryN105]\)], "Input"],

Cell[BoxData[
\(TraditionalForm
\`{5.73000000000000397`\ Second, {3.62378525121320915`*^12,
4.33315573864194369`*^10, 5.98012606756902087`*^7,
7.66172427660004728`*^11, 4.12008003421786561`*^11}}\)], "Output"]
}, Open ]],

Cell["specific instantiation for nu=51.25 deg.", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
\(CompGoverT =
Compile[{x, y},
NIntegrate[CompGAccel[z]\/CompTemper[z, y], {z, 105, x}]]\)], "Input",\

InitializationCell->True],

Cell[BoxData[
FormBox[
TagBox[
\(CompiledFunction({x, y},
NIntegrate(\(CompGAccel(z)\)\/\(CompTemper(z, y)\), {z, 105, x}),
"-CompiledCode-")\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell[BoxData[
\(LogNDensAbove105[x_ /; x > 105, y_, i_] :=
Log[BoundaryN105[\([i]\)]] -
moleculesSL[\([i, 3]\)]\/kJ*
NIntegrate[GAccel[z]\/Temper[z, y], {z, 105, x}] -
\((1 + moleculesSL[\([i, 4]\)])\)*
\((Log[Temper[x, y]] - Log[Temper[105, y]])\)\)], "Input",
CellFrame->{{0, 0}, {0, 0.5}},
InitializationCell->True],

Cell[BoxData[
\(CompLogNDensAbove105[x_ /; x > 105, y_, i_] :=
Log[BoundaryN105[\([i]\)]] -
moleculesSL[\([i, 3]\)]\/kJ*CompGoverT[x, y] -
\((1 + moleculesSL[\([i, 4]\)])\)*
\((Log[CompTemper[x, y]] - Log[CompTemper[105, y]])\)\)], "Input",
CellFrame->{{0, 0}, {0.5, 0}},
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(\({BoundaryN105[\([4]\)], Log[BoundaryN105[\([4]\)]],
moleculesSL[\([{4, 5}, 3]\)]\/kJ*CompGoverT[318, 111],
\((1 + moleculesSL[\([{4, 5}, 4]\)])\),
\(Timing[Log[CompTemper[318, 111]], Log[CompTemper[105, 111]]\)}]
\)\)], "Input"],

Cell[BoxData[
\(TraditionalForm
\`{7.66172427660004728`*^11,
27.3646730827393058`, {11.1595282410660767`, 5.5797641205330386`}, {1,
1}, 6.81523028903276095`, 5.37745718949740147`}\)], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(Timing[CompLogNDensAbove105[318, 12, {3, 4, 5}]]\)], "Input"],

Cell[BoxData[
\(TraditionalForm
\`{15.2499999999999991`\ Second, {15.6620336129496573`,
15.67729185037384`, 20.1099993048676095`}}\)], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(Timing[\(CompNtotal[105, 12]\)[\([5]\)]]\)], "Input"],

Cell[BoxData[
\(TraditionalForm\`{5.25`\ Second, 4.11302409436541349`*^11}\)], "Output"]
}, Open ]],

Cell["\<\
log of the number density for each species as function of height \
and true anomaly.\
\>", "Text"],

Cell[BoxData[
\(OLogDensAbove105[x_, y_] := Log[CompN105[\([5]\)]]\)], "Input"],

Cell[BoxData[
\(\(Ntotal[x_ /; \ x > 105, y_] := {Exp[LogNDensAbove105[x, y, 1]],
Exp[LogNDensAbove105[x, y, 2]], Exp[LogNDensAbove105[x, y, 3]],
Exp[LogNDensAbove105[x, y, 4]], Exp[LogNDensAbove105[x, y, 5]]\ }\
\)\)], "Input",
CellFrame->{{0, 0}, {0, 0.5}},
InitializationCell->True],

Cell[BoxData[
\(CompNtotal[x_ /; \ x > 105, y_] := {Exp[CompLogNDensAbove105[x, y, 1]],
Exp[CompLogNDensAbove105[x, y, 2]],
Exp[CompLogNDensAbove105[x, y, 3]],
Exp[CompLogNDensAbove105[x, y, 4]],
Exp[CompLogNDensAbove105[x, y, 5]]\ }\)], "Input",
CellFrame->{{0, 0}, {0.5, 0}},
InitializationCell->True],

Cell[BoxData[
\(MonoOCompNtotal[x_ /; x <= 105, y_] := CompJustO[x, y]\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(MonoOCompNtotal[x_ /; \ x > 105, y_] :=
Exp[CompLogNDensAbove105[x, y, 5]]\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(MonoONtotal[x_ /; x <= 105, y_] := JustO[x, y]\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(MonoONtotal[x_ /; \ x > 105, y_] := Exp[LogNDensAbove105[x, y, 5]]\)],
"Input",
InitializationCell->True],

Cell["Other half of the relation which is obeyed above 105 km.", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
\(Timing[{Mbar[90], meanMolecularMassSL, TempInf[120], TempInf[51.25]}]
\)], "Input",
InitializationCell->True],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{\(0.0400000000000062527`\ Second\), ",",
RowBox[{"{",
RowBox[{
"28.8579699999999981`", ",", "28.9597002347880039`", ",",
RowBox[{
RowBox[{"863.400000000000034`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"0.345362443350116743`", " ",
RowBox[{
SuperscriptBox["sin",
StyleBox["2.5`",
StyleBoxAutoDelete->True,
PrintPrecision->2]], "(",
\(1\/360\ \[Pi]\
\[LeftBracketingBar]latgeocCon -
20.0049100741932672`\[RightBracketingBar]\),
")"}]}], "+", "1"}], ")"}], " ",
RowBox[{"(",
RowBox[{
FractionBox[
RowBox[{"0.000226211586926792884`", " ",
RowBox[{"(",
RowBox[{
\(0.996566564654773934`\[InvisibleSpace]\), "-",
RowBox[{
SuperscriptBox["sin",
StyleBox["2.5`",
StyleBoxAutoDelete->True,
PrintPrecision->2]], "(",
\(1\/360\ \[Pi]\
\[LeftBracketingBar]latgeocCon -
20.0049100741932672`
\[RightBracketingBar]\), ")"}]}],
")"}]}],
RowBox[{
RowBox[{"0.345362443350116743`", " ",
RowBox[{
SuperscriptBox["sin",
StyleBox["2.5`",
StyleBoxAutoDelete->True,
PrintPrecision->2]], "(",
\(1\/360\ \[Pi]\
\[LeftBracketingBar]latgeocCon -
20.0049100741932672`
\[RightBracketingBar]\), ")"}]}], "+",
"1"}]], "+", "1"}], ")"}]}], "+",
"41.110524289887369`"}], ",",
RowBox[{
RowBox[{"863.400000000000034`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"0.345362443350116743`", " ",
RowBox[{
SuperscriptBox["sin",
StyleBox["2.5`",
StyleBoxAutoDelete->True,
PrintPrecision->2]], "(",
\(1\/360\ \[Pi]\
\[LeftBracketingBar]latgeocCon -
20.0049100741932672`\[RightBracketingBar]\),
")"}]}], "+", "1"}], ")"}], " ",
RowBox[{"(",
RowBox[{
FractionBox[
RowBox[{"0.051494865676798982`", " ",
RowBox[{"(",
RowBox[{
\(0.941873804624464305`\[InvisibleSpace]\), "-",
RowBox[{
SuperscriptBox["sin",
StyleBox["2.5`",
StyleBoxAutoDelete->True,
PrintPrecision->2]], "(",
\(1\/360\ \[Pi]\
\[LeftBracketingBar]latgeocCon -
20.0049100741932672`
\[RightBracketingBar]\), ")"}]}],
")"}]}],
RowBox[{
RowBox[{"0.345362443350116743`", " ",
RowBox[{
SuperscriptBox["sin",
StyleBox["2.5`",
StyleBoxAutoDelete->True,
PrintPrecision->2]], "(",
\(1\/360\ \[Pi]\
\[LeftBracketingBar]latgeocCon -
20.0049100741932672`
\[RightBracketingBar]\), ")"}]}], "+",
"1"}]], "+", "1"}], ")"}]}], "+",
"41.110524289887369`"}]}], "}"}]}], "}"}], TraditionalForm]],
"Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(Timing[{{90, Log[10, Ntotal[90, 51.25]]}, {105,
Log[10, BoundaryN105]}, {140, Log[10, Ntotal[140, 51.25]]}\ , {320,
Log[10, Ntotal[320, 51.25]]}}]\)], "Input"],

Cell[OutputFormData["\<\
$Aborted\
\>", "\<\
$Aborted\
\>"], "Output"]
}, Open ]],

Cell[BoxData[
\(TotalParticles[x_, y_] :=
\[Sum]\+\(j = 1\)\%5\( Ntotal[x, y]\)[\([j]\)]\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(CompTotalParticles[x_, y_] :=
\[Sum]\+\(j = 1\)\%5\( CompNtotal[x, y]\)[\([j]\)]\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(MeanMolecWt[x_, y_] :=
\(\[Sum]\+\(j = 1\)\%5\((
\(Ntotal[x, y]\)[\([j]\)]*moleculesSL[\([j, 3]\)])
\)\)\/TotalParticles[x, y]\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(CompMeanMolecWt[x_, y_] :=
\(\[Sum]\+\(j = 1\)\%5\((
\(CompNtotal[x, y]\)[\([j]\)]*moleculesSL[\([j, 3]\)])
\)\)\/CompTotalParticles[x, y]\)], "Input",
InitializationCell->True],

Cell[CellGroupData[{

Cell[BoxData[
\(Timing[MeanMolecWt[105, 51.25]]\)], "Input"],

Cell[BoxData[
\(TraditionalForm
\`{57.2699999999999853`\ Second, 27.7284567812499993`}\)], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(Timing[CompMeanMolecWt[105, 51.25]]\)], "Input"],

Cell[BoxData[
\(TraditionalForm
\`{52.4000000000000376`\ Second, 27.7284567812500037`}\)], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(Timing[MonoOCompNtotal[300, 38]]\)], "Input"],

Cell[BoxData[
\(TraditionalForm
\`{15.2000000000000179`\ Second, 6.53625269696056676`*^8}\)], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(Timing[{CompJustO[103, 182], CompJustO[308, 191]}]\)], "Input"],

Cell[BoxData[
\(TraditionalForm
\`{16.1299999999999954`\ Second, {5.0426177438043922`*^11,
4.81694852939649376`*^8}}\)], "Output"]
}, Open ]]
}, Open ]]
}, Open ]],

Cell[BoxData[
\(\(vv2 = AbsoluteTime[]; \)\)], "Input"],

Cell[BoxData[
\(\(\t\(v = AbsoluteTime[]; \)\)\)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
\(v - vv2\)], "Input"],

Cell[BoxData[
\(TraditionalForm\`22.`7.062\)], "Output"]
}, Open ]],

Cell["Data Setup", "Section"],

Cell[CellGroupData[{

Cell[BoxData[
\(Flatten[inputData[\([1]\)]]\)], "Input"],

Cell[BoxData[
\(inputData[\([1]\)]\)], "Input"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["1411.99999999999992`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["1415.00000000000003`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",", "0.`", ",", "0.`", ",",
StyleBox["52.0000000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"GlobalStar\"\>"}], "}"}],
TraditionalForm]], "Output"]
}, Open ]],

Cell[BoxData[
\(\(inputDataHeader = {"\", "\", "\", "\",
"\", \ "\", "\",
"\", "\", "\", "\",
"\", \ "\", "\"}; \)\)], "Input",
InitializationCell->True],

Cell[BoxData[
\(\(\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ (*\ YYYY, \ MM, \ DD,
UT . UT, Peri, \ Apoa, \ AscNo, Arper, \ Incl, \ F0, \ F75, \ F400, \ Kp
\ \ *) \)\)], "Input"],

Cell[BoxData[
\(\(inputData = {\n
\t\t{1969, 01, 20, 19.18, 1412.0, \ 1415.0, 0.00, 0.00, 52.0, 136,
155, 138.5, 2.35, "\"},
\ \ \ {1969, 01, 20, 19.18, 776.0, 779.0, 0.000, 0.000, 86.4, 136,
155, 138.5, 2.35, "\"}, \ \n
\t\t{1969, 01, 20, 19.18, 374.6, 391.2, 0.000, 0.000, 51.6, 136, 155,
138.5, 2.35, "\"}, \n
\t\t{1969, 01, 20, 19.18, 518.0, 542.0, 0.000, 0.000, 86.4, 136, 155,
138.5, 2.35, "\"}, \n
\t\t{1969, 01, 20, 19.18, 760.3, 770.4, 0.000, 0.000, 98.1, 136, 155,
138.5, 2.35, "\"}, \n
\t\t{1969, 01, 20, 19.18, 35072, 36505, 0.000, 0.000, 10.9, 136, 155,
138.5, 2.35, "\"}, \n
\t\t{1969, 01, 20, 19.18, 599.4, 39242, 0.000, 279.7, 63.43, 136,
155, 138.5, 2.35, "\"}, \n
\t\t{1969, 01, 20, 19.18, 746.7, 752.4, 0.000, 0.000, 45.04, 136,
155, 138.5, 2.35, "\"}, \n
\t\t{1969, 01, 20, 19.18, 688.6, 691.5, 0.000, 0.000, 108.0, 136,
155, 138.5, 2.35, "\"}, {1969, 01, 20, 19.18, 632.2,
637.2, 0.000, 0.000, 98.2, 136, 155, 138.5, 2.35, "\"}, {
1969, 01, 20, 19.18, 578.5, 789.9, 0.000, 0.000, 96.5, 136, 155,
138.5, 2.35, "\"}, {1969, 01, 20, 19.18, 405.1, 413.3,
0.000, 0.000, 97.3, 136, 155, 138.5, 2.35, "\"}, {1969,
01, 20, 19.18, 511.8, 528.3, 0.000, 0.000, 28.5, 136, 155, 138.5,
2.35, "\"}, {1969, 01, 20, 19.18, 359.5, 391.9, 0.000, 0.000,
38.0, 136, 155, 138.5, 2.35, "\"}, {1969, 01, 20, 19.18,
634.3, 635.7, 0.000, 0.000, 98.1, 136, 155, 138.5, 2.35,
"\"}, {1969, 01, 20, 19.18, 6215, 113656, 0.000, 0.000,
33.4, 136, 155, 138.5, 2.35, "\"}, {1969, 01, 20, 19.18,
683.3, 697.5, 0.000, 0.000, 25.0, 136, 155, 138.5, 2.35,
"\"}, {1969, 01, 20, 19.18, 285.4, 3859.6, 0.000, 0.000, 83,
136, 155, 138.5, 2.35, "\"}, {1969, 01, 20, 19.18, 259.1,
33792, 0.000, 0.000, 17.6, 136, 155, 138.5, 2.35, "\"}, {
1969, 01, 20, 19.18, 498.8, 504.3, 0.000, 0.000, 31.3, 136, 155,
138.5, 2.35, "\"}\n\t\t\n\t}; \)\)], "Input",
InitializationCell->True]
}, Open ]]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(\(\ninputData = {1969, 01, 20, 19.18, 359.7, 391.7, 0.000, 0.000, 38.0,
136, 155, 138.5, 2.35, "\"}; \n\n\tbigYY = inputData[\([1]\)];
\n\tbigMM = inputData[\([2]\)]; \norigMM = inputData[\([2]\)]; \n\t
bigDD = inputData[\([3]\)]; \n\tbigUT = inputData[\([4]\)]; \n\t
hp = inputData[\([5]\)]; \norigHP = inputData[\([5]\)]; \n\t
ha = inputData[\([6]\)]; \norigHA = inputData[\([6]\)]; \n\t
\[CapitalOmega] = inputData[\([7]\)]; \n
origCapOmega\ = \ inputData[\([7]\)]; \n\t\[Omega] = inputData[\([8]\)];
\norigLitOmega\ = \ inputData[\([8]\)]; \n\tio = inputData[\([9]\)]; \n
origIO\ = \ inputData[\([9]\)]; \n\t
\(F\_10.7\%0\)\&_ = inputData[\([10]\)]; \n\t
\(F\_10.7\%75\)\&_ = inputData[\([11]\)]; \n\t
\(F\_10.7\%400\)\&_ = inputData[\([12]\)]; \n\t
bigKp = inputData[\([13]\)]; \n\n
variationMatrix = {\n\t\t\t{2, {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12}},
\n\t\t\t{
7, {0, 15, 30, 45, 60, 75, 90, 105, 120, 135, 150, 165, 180, 195,
210, 225, 240, 255, 270, 285, \n\ \ \ \ \ \ 300, 315, 330, 345}},
\n\t\t\t{
8, {0, 15, 30, 45, 60, 75, 90, 105, 120, 135, 150, 165, 180, 195,
210, 225, 240, 255, 270, 285, \n\ \ \ \ \ \ 300, 315, 330, 345}},
\n\t\t\t{
9, {0, 5, 10, 15, 20, 25, 30, 35, 40, 45, 50, 55, 60, 65, 70, 75,
80, 85, 90, 95, 100, 105, 110, 115, \n\ \ \ \ \ \ 120, 125, 130,
135, 140, 145}}, \n
\t\t{e, {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16}}\n
\t\t\t}; \ \n\n\tsummaryfile = "\"; \n\t
Close[summaryfile]; \n\tmasterfile = OpenWrite[summaryfile]; \n\n\n\t\t
dumpMatrixToFile[currentoutputfile_String, data_List] := \n\t\t\t
Block[{}, \n\t\t\t\t
\(Scan[\((\n\t\t\t\t\t\t
WriteString[currentoutputfile, FortranForm[First[#]]]; \n
\t\t\t\t\t\t
Scan[WriteString[currentoutputfile, "\<\t\>", FortranForm[#]]&,
Rest[#]]; \n\t\t\t\t\t\t
WriteString[currentoutputfile, "\<\n\>"])\)&, data]; \)\n
\t\t\t\t]; \nClose[summaryfile]; \n
sumfile\ = \ OpenWrite[summaryfile]; \n\n
For[pick = 1, pick <= \ 5, \ \(++pick\), \n\t\t
subset = variationMatrix[\([pick, 2]\)]; \n\t\n\t\t\t\t
Clear[allSummary]; \n\t\tallSummary = {}; \n\t\n\t
For[elementValue = 1, elementValue <= Length[subset],
\(++elementValue\), \n\t\tinputVal = subset[\([elementValue]\)]; \n
\t\tIf[pick == 1, bigMM = inputVal, bigMM = origMM]; \n\t\t
If[pick == 2, \[CapitalOmega] = inputVal,
\[CapitalOmega] = origCapOmega]; \n\t\t
If[pick == 3, \[Omega] = inputVal, \[Omega] = origLitOmega]; \n\t\t
If[pick == 4, io = inputVal, io = origIO]; \n\t\t
If[pick == 5, \n\t\t\t
Module[{}, \n\t\t\t\thp = origHP + inputVal; \n\t\t\t\t
ha = origHP - inputVal; ], \n\t\t\t
Module[{}, \n\t\t\t\thp = origHP; \n\t\t\t\tha = origHA; ]\n
\t\t\t]\n\t\t\n\t\t\t\t\n
Module[{}, \n\t\t\t\n\tClear[allResults]; \n\tClear[result]; \n
\t\t\t\n\tlastTperi = 0; \n\tsumParticles = 0; \n\t
allResults = {}; \n\t\t\t\ \n\t\t\t
\(For[trueAnom = 0, trueAnom < 360, trueAnom = trueAnom + 3.6, \n
\t\t\t\n\t\t\tlittlerorbCon = CompLittleROrb[trueAnom]; \n
\t\t\t\taltispherCon\ = \ CompAltiSpher[trueAnom]; \n\t\t
speedCon = CompSpeed[trueAnom]; \n\t\t
eccanomCon\ = \ CompEccAnom[trueAnom]; \n\t\t
meananomCon\ = \ \ CompMeanAnom[trueAnom]; \n\t\t
latgeocCon\ = \ \ CompLatGeoc[trueAnom]; \n\t\t
longgeocCon\ = \ \ CompLongGeoc[trueAnom]; \n\t\t
tperiCon = CompTperi[trueAnom]; \n\t\t
longgeocsubtcCon\ = \ \ CompLongGeocSubTc[trueAnom]; \n\t\t
rgeoidCon\ = \ \ CompRgeoid[trueAnom]; \n\t\t
haneqtCon\ = \ \ CompHAneqt[trueAnom]; \n\t\t
altgeoidCon\ = \ \ CompAltGeoid[trueAnom]; \n\t\t
etaCon\ = \ \ CompEta[trueAnom]; \n\t\t
thetaCon\ = \ \ CompTheta[trueAnom]; \n\t\t
tauCon\ = \ \ CompTau[trueAnom]; \n\t\t
aCon\ = \ CompA[trueAnom]; \n\t\t
tniCon\ = \ \ CompTni[trueAnom]; \n\t\t
tdayCon\ = \ \ CompTday[trueAnom]; \n\t\t
tlCon\ = \ \ CompTl[trueAnom]; \n\t\t
tempinfCon\ = \ \ CompTempInf[trueAnom]; \n\t\t
tsubxCon\ = \ \ CompTsubx[trueAnom]; \n\t\t
biggsubxCon\ = \ \ CompBigGsubx[trueAnom]; \n\t\t
constraintvectCon\ = \ \ CompConstraintVect[trueAnom]; \n\t\t
bigaCon\ = \ \ CompBigA[trueAnom]; \n\t\t\t\n\t\t\t\t
oxyNumber = MonoOCompNtotal[altgeoidCon, trueAnom]; \n\t\t
logONumber = Log[10, oxyNumber]; \n\t\tClear[result]; \n\t\t
result\ =
\ {N[trueAnom, 4], N[tperiCon, 6], N[altgeoidCon, 6], \
N[speedCon, 6], \ N[oxyNumber], \ N[logONumber, 5]}; \n
\t\t\t\n\t\t\tAppendTo[allResults, result]; \n\t\t
sumParticles =
sumParticles +
100*speedCon*oxyNumber*\((tperiCon - lastTperi)\); \n\t\t
lastTperi = tperiCon; \n\t\t\t\n\t\t\t];\)\n\t\t\n\t\t; \n
\t\t\tmaxvalue = Max[Last[Transpose[allResults]]]; \n\t\t\t
minvalue\ = \ Min[Last[Transpose[allResults]]]; \n\t\t
timeatperi = allResults[\([2, 2]\)] - allResults[\([1, 2]\)]; \n
\t\ttimeatapo =
allResults[\([52, 2]\)] - allResults[\([51, 2]\)]; \n\t\t\t\n
\t\t\toutputRecord =
Flatten[{inputData, period, sumParticles, minvalue, maxvalue,
timeatperi, timeatapo, bigMM, \[CapitalOmega], \[Omega],
io, hp, ha}]; \n\t\t\t\t
WriteString[summaryfile, FortranForm[outputRecord]]; \n\t\t\t\t\n
\t\t\t\tPrint["\"]; \n\t\t
AppendTo[allSummary, outputRecord]; \n\t\t
outputRecord >>> summary_orbit_variation_2.txt; \n\t\t
Print[outputRecord]; \n\t];
\ (*\ end\ of\ enclosed\ module\ *) \n\t\n\n\t];
\ (*\ end\ of\ middlemost\ for\ looping\ over\ the\ variations\ within
\ an\ \(element . \)\ *) \n\t\t\n\t\t\t\n\t\t];
\ (*\ end\ of\ the\ outermost\ for\ selecting\ different\
\(elements . \)\ *) \n\n\tClose[summaryfile]; \n\)\)], "Input"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.51819566026374008`*^17", ",",
StyleBox["7.93762822758398645`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.47831349647169574`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "8.0718065142194213`*^17", ",",
StyleBox["7.98832043394212298`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.50816054868988302`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "2", ",",
"0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "8.80670093936287834`*^17", ",",
StyleBox["8.05363371916031489`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.54085398071568668`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "3", ",",
"0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "8.64285283007879634`*^17", ",",
StyleBox["8.05697142913610342`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.53467032031971051`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "4", ",",
"0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.592980408788085`*^17", ",",
StyleBox["7.99164078120568177`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.48954088062282785`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "5", ",",
"0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "6.72705447121121835`*^17", ",",
StyleBox["7.92374923828530519`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.44800076296626123`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "6", ",",
"0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "6.21250942487587742`*^17", ",",
StyleBox["7.86630098620008499`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.42341445723348769`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "7", ",",
"0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "6.53821254284024622`*^17", ",",
StyleBox["7.87877423084033434`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.44307212581598065`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "8", ",",
"0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "8.28408964182875706`*^17", ",",
StyleBox["8.0139283029153443`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.52067524173939183`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "9", ",",
"0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "9.70800945923443237`*^17", ",",
StyleBox["8.10830909347045825`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.56917584917658103`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "10", ",",
"0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "9.25532433758018058`*^17", ",",
StyleBox["8.07508151860347922`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.54832419671616072`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "11", ",",
"0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.95288187533415147`*^17", ",",
StyleBox["7.97483674665544661`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.49467844338274602`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "12", ",",
"0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.51819566026374008`*^17", ",",
StyleBox["7.93762822758398645`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.47831349647169574`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.39503944213061981`*^17", ",",
StyleBox["7.94358784488736091`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.4416922893265287`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"15", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.28522381844544764`*^17", ",",
StyleBox["7.95311728833516351`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.40977218517564928`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"30", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.19770367760201956`*^17", ",",
StyleBox["7.96656605562404784`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.38206532329206766`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"45", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.13449090004913522`*^17", ",",
StyleBox["7.983168903710677`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.36550895103114555`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"60", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.0915794537831216`*^17", ",",
StyleBox["8.00301996075002186`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.35853002037493908`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"75", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.06106425000159454`*^17", ",",
StyleBox["8.02610549220300661`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.3557237362107255`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"90", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.03373079901098741`*^17", ",",
StyleBox["8.05189913612020369`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.35240555249673199`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"105", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.00143169294315903`*^17", ",",
StyleBox["8.08138625593032067`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.34561244256126144`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"120", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "6.95939629142566218`*^17", ",",
StyleBox["8.11483072476294786`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.33449781700543645`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"135", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "6.91209381780221576`*^17", ",",
StyleBox["8.13446706573217603`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.31922097702346974`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"150", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "6.8755156323002371`*^17", ",",
StyleBox["8.11064273019828618`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.30239791514496694`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"165", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "6.86891621898449322`*^17", ",",
StyleBox["8.08676418647337058`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.29164932500369111`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"180", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "6.90825497154260403`*^17", ",",
StyleBox["8.06270794211266483`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.30762314191255235`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"195", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.00093047597088524`*^17", ",",
StyleBox["8.0386434586306823`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.36282962207038949`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"210", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.14212231539368325`*^17", ",",
StyleBox["8.0151319623122621`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.41878487063291558`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"225", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.31450238131402574`*^17", ",",
StyleBox["7.99314568899749744`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.46848401168867859`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"240", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.49223873374150706`*^17", ",",
StyleBox["7.97377155019090899`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.50715712151860259`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"255", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.64777809005661346`*^17", ",",
StyleBox["7.95791313609130135`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.53246399719363779`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"270", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.75852133308544278`*^17", ",",
StyleBox["7.94616627122136609`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.54385638140607461`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"285", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.81107933376059815`*^17", ",",
StyleBox["7.9386879924334428`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.54432613699557919`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"300", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.80274452533758555`*^17", ",",
StyleBox["7.93506386340911351`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.54235123709403154`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"315", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.74070574091943619`*^17", ",",
StyleBox["7.93425173543456363`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.53190266701683519`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"330", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.63964012925621016`*^17", ",",
StyleBox["7.9347728886371911`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.50999975104632611`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"345", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.51819566026374008`*^17", ",",
StyleBox["7.93762822758398645`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.47831349647169574`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "0", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.63265032973496904`*^17", ",",
StyleBox["7.91887189428082027`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.50960007966286191`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "15", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.72457779094709717`*^17", ",",
StyleBox["7.90331052804470157`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.52475911370333427`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "30", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.78382731791431847`*^17", ",",
StyleBox["7.89116858809171883`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.52568244561167531`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "45", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.80270372089276786`*^17", ",",
StyleBox["7.8837299348362011`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.52100607915142305`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "60", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.7771565411514274`*^17", ",",
StyleBox["7.88197712988224807`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.51178169915103133`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "75", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.70821547962384556`*^17", ",",
StyleBox["7.88598010500042434`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.49825055542208929`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "90", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.60338303404402005`*^17", ",",
StyleBox["7.89613715935957927`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.48072229932686205`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "105", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.47607761368885359`*^17", ",",
StyleBox["7.91228976389705085`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.45974377116298725`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "120", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.34213996497668652`*^17", ",",
StyleBox["7.93369085653481853`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.43600448221148369`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "135", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.21580133685261415`*^17", ",",
StyleBox["7.95994243232741016`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.41046981835796714`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "150", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.1074366681314105`*^17", ",",
StyleBox["7.99012083508968373`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.38456904933986102`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "165", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
FormBox[
RowBox[{
\(CompiledFunction::"ccr"\), \( : \ \),
"\<\"Expression \\!\\(TraditionalForm\\`Indeterminate\\) should be a \
machine-size real number.\"\>"}], TraditionalForm]], "Message"],

Cell[BoxData[
FormBox[
RowBox[{
\(CompiledFunction::"cfex"\), \( : \ \),
"\<\"External evaluation error at instruction \
\\!\\(TraditionalForm\\`5\\); proceeding with uncompiled evaluation.\"\>"}],
TraditionalForm]], "Message"],

Cell[BoxData[
FormBox[
RowBox[{
\(CompiledFunction::"ccr"\), \( : \ \),
"\<\"Expression \\!\\(TraditionalForm\\`Indeterminate\\) should be a \
machine-size real number.\"\>"}], TraditionalForm]], "Message"],

Cell[BoxData[
FormBox[
RowBox[{
\(CompiledFunction::"cfex"\), \( : \ \),
"\<\"External evaluation error at instruction \
\\!\\(TraditionalForm\\`6\\); proceeding with uncompiled evaluation.\"\>"}],
TraditionalForm]], "Message"],

Cell[BoxData[
FormBox[
RowBox[{
\(CompiledFunction::"ccr"\), \( : \ \),
"\<\"Expression \\!\\(TraditionalForm\\`Indeterminate\\) should be a \
machine-size real number.\"\>"}], TraditionalForm]], "Message"],

Cell[BoxData[
FormBox[
RowBox[{
\(General::"stop"\), \( : \ \),
"\<\"Further output of \\!\\(TraditionalForm\\`\\(CompiledFunction :: \
\\\"ccr\\\"\\)\\) will be suppressed during this calculation.\"\>"}],
TraditionalForm]], "Message"],

Cell[BoxData[
FormBox[
RowBox[{
\(CompiledFunction::"cfex"\), \( : \ \),
"\<\"External evaluation error at instruction \
\\!\\(TraditionalForm\\`3\\); proceeding with uncompiled evaluation.\"\>"}],
TraditionalForm]], "Message"],

Cell[BoxData[
FormBox[
RowBox[{
\(General::"stop"\), \( : \ \),
"\<\"Further output of \\!\\(TraditionalForm\\`\\(CompiledFunction :: \
\\\"cfex\\\"\\)\\) will be suppressed during this calculation.\"\>"}],
TraditionalForm]], "Message"],

Cell[BoxData[
FormBox[
RowBox[{
\(NIntegrate::"inum"\), \( : \ \),
"\<\"Integrand \\!\\(TraditionalForm\\`Indeterminate\\) is not \
numerical at \\!\\(TraditionalForm\\`\\({z}\\)\\) = \
\\!\\(TraditionalForm\\`\\({195\\/2}\\)\\).\"\>"}], TraditionalForm]],
"Message"],

Cell[BoxData[
FormBox[
RowBox[{
\(NIntegrate::"inum"\), \( : \ \),
"\<\"Integrand \\!\\(TraditionalForm\\`Indeterminate\\) is not \
numerical at \\!\\(TraditionalForm\\`\\({z}\\)\\) = \
\\!\\(TraditionalForm\\`\\({195\\/2}\\)\\).\"\>"}], TraditionalForm]],
"Message"],

Cell[BoxData[
FormBox[
RowBox[{
\(NIntegrate::"inum"\), \( : \ \),
"\<\"Integrand \\!\\(TraditionalForm\\`Indeterminate\\) is not \
numerical at \\!\\(TraditionalForm\\`\\({z}\\)\\) = \
\\!\\(TraditionalForm\\`\\({195\\/2}\\)\\).\"\>"}], TraditionalForm]],
"Message"],

Cell[BoxData[
FormBox[
RowBox[{
\(General::"stop"\), \( : \ \),
"\<\"Further output of \\!\\(TraditionalForm\\`\\(NIntegrate :: \
\\\"inum\\\"\\)\\) will be suppressed during this calculation.\"\>"}],
TraditionalForm]], "Message"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "Indeterminate", ",", "Indeterminate",
",", "Indeterminate", ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "180", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.00182632214661726`*^17", ",",
StyleBox["8.02362066001391482`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.35371053160315213`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "195", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "6.93356161802158954`*^17", ",",
StyleBox["8.05704308782136813`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.33050657123535032`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "210", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "6.89336191669821651`*^17", ",",
StyleBox["8.08848369030844338`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.31332491762660374`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "225", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "6.87840433921224558`*^17", ",",
StyleBox["8.11491044611563516`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.30591661206096176`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "240", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "6.88540528504179327`*^17", ",",
StyleBox["8.13172292003703844`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.31126401687909677`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "255", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "6.91549461202951221`*^17", ",",
StyleBox["8.11053393202571548`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.32866879591460396`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "270", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "6.97046042850636649`*^17", ",",
StyleBox["8.07704539217953509`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.35311386166286773`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "285", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.04957361809074889`*^17", ",",
StyleBox["8.04418498332036691`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.38024043599027734`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "300", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.14992870442886641`*^17", ",",
StyleBox["8.01323822980457656`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.4071443444460101`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "315", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.26659944619936215`*^17", ",",
StyleBox["7.98496952741768062`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.43207462110057548`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "330", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.39250556684672677`*^17", ",",
StyleBox["7.95965833768509778`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.45403644679898214`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "345", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "9.30475584365536256`*^17", ",",
StyleBox["8.23065774317181286`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.47831349647169574`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "0.`", ",", "0", ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "8.0487990713570241`*^17", ",",
StyleBox["7.95535793963930171`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.49856847452382524`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "0.`", ",", "5", ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "8.02922581504583376`*^17", ",",
StyleBox["7.95361288593301374`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.49916410941252031`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "0.`", ",", "10", ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.98459542422858969`*^17", ",",
StyleBox["7.95148440462206274`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.49783727460019555`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "0.`", ",", "15", ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.91623211984810648`*^17", ",",
StyleBox["7.9493117639266968`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.49465406389616184`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "0.`", ",", "20", ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.82612112130909753`*^17", ",",
StyleBox["7.94674826919915044`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.48980231667516349`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "0.`", ",", "25", ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.71789059233833807`*^17", ",",
StyleBox["7.94389517407515555`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.48381001935716838`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "0.`", ",", "30", ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.59599725241247636`*^17", ",",
StyleBox["7.94032937653358406`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.47831349647169574`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "0.`", ",", "35", ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.46498252881479551`*^17", ",",
StyleBox["7.93564618963665324`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.47831349647169574`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "0.`", ",", "40", ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.3292788624931493`*^17", ",",
StyleBox["7.93013570079941843`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.47831349647169574`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "0.`", ",", "45", ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.19308040070326626`*^17", ",",
StyleBox["7.92437242150237164`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.47831349647169574`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "0.`", ",", "50", ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.06023504577727756`*^17", ",",
StyleBox["7.91882155264520903`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.47831349647169574`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "0.`", ",", "55", ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "6.93419806296456364`*^17", ",",
StyleBox["7.91411650367761154`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.47831349647169574`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "0.`", ",", "60", ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "6.81799412630089385`*^17", ",",
StyleBox["7.91049793858268035`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.47831349647169574`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "0.`", ",", "65", ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "6.71422409828982402`*^17", ",",
StyleBox["7.9084735342131891`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.47831349647169574`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "0.`", ",", "70", ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "6.62510394967198124`*^17", ",",
StyleBox["7.90829770047003766`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.47831349647169574`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "0.`", ",", "75", ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "6.55253551270443335`*^17", ",",
StyleBox["7.91024350585764945`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.47831349647169574`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "0.`", ",", "80", ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "6.49828149678723754`*^17", ",",
StyleBox["7.91458859282916549`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.47831349647169574`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "0.`", ",", "85", ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
FormBox[
RowBox[{
\(CompiledFunction::"cfn"\), \( : \ \),
"\<\"Numerical error encountered at instruction \\!\\(TraditionalForm\
\\`50\\); proceeding with uncompiled evaluation.\"\>"}], TraditionalForm]],
"Message"],

Cell[BoxData[
FormBox[
RowBox[{
\(CompiledFunction::"cfn"\), \( : \ \),
"\<\"Numerical error encountered at instruction \\!\\(TraditionalForm\
\\`50\\); proceeding with uncompiled evaluation.\"\>"}], TraditionalForm]],
"Message"],

Cell[BoxData[
FormBox[
RowBox[{
\(CompiledFunction::"cfn"\), \( : \ \),
"\<\"Numerical error encountered at instruction \\!\\(TraditionalForm\
\\`50\\); proceeding with uncompiled evaluation.\"\>"}], TraditionalForm]],
"Message"],

Cell[BoxData[
FormBox[
RowBox[{
\(General::"stop"\), \( : \ \),
"\<\"Further output of \\!\\(TraditionalForm\\`\\(CompiledFunction :: \
\\\"cfn\\\"\\)\\) will be suppressed during this calculation.\"\>"}],
TraditionalForm]], "Message"],

Cell[BoxData[
FormBox[
RowBox[{
\(NIntegrate::"ncvb"\), \( : \ \),
"\<\"NIntegrate failed to converge to prescribed accuracy after \
\\!\\(TraditionalForm\\`7\\) recursive bisections in \
\\!\\(TraditionalForm\\`z\\) near \\!\\(TraditionalForm\\`z\\) = \
\\!\\(TraditionalForm\\`90.0005015176009948`\\).\"\>"}], TraditionalForm]],
"Message"],

Cell[BoxData[
FormBox[
RowBox[{
\(NIntegrate::"ncvb"\), \( : \ \),
"\<\"NIntegrate failed to converge to prescribed accuracy after \
\\!\\(TraditionalForm\\`7\\) recursive bisections in \
\\!\\(TraditionalForm\\`z\\) near \\!\\(TraditionalForm\\`z\\) = \
\\!\\(TraditionalForm\\`90.0000016968096616`\\).\"\>"}], TraditionalForm]],
"Message"],

Cell[BoxData[
FormBox[
RowBox[{
\(Max::"nord"\), \( : \ \),
"\<\"Invalid comparison with \
\\!\\(TraditionalForm\\`\\(\\(-\\*StyleBox[\\\"2.85447399293351455`\\\", \
Rule[PrintPrecision, 5], Rule[StyleBoxAutoDelete, True]]\\) - \\(\\*StyleBox[\
\\\"0.135370994872601202`\\\", Rule[PrintPrecision, 5], \
Rule[StyleBoxAutoDelete, True]]\\\\ \\\\[ImaginaryI]\\)\\)\\) \
attempted.\"\>"}], TraditionalForm]], "Message"],

Cell[BoxData[
FormBox[
RowBox[{
\(Max::"nord"\), \( : \ \),
"\<\"Invalid comparison with \
\\!\\(TraditionalForm\\`\\(\\(\\*StyleBox[\\\"2.57463740775992677`\\\", \
Rule[PrintPrecision, 5], Rule[StyleBoxAutoDelete, True]] \\\\[InvisibleSpace]\
\\) - \\(\\*StyleBox[\\\"0.904757679612033349`\\\", Rule[PrintPrecision, 5], \
Rule[StyleBoxAutoDelete, True]]\\\\ \\\\[ImaginaryI]\\)\\)\\) \
attempted.\"\>"}], TraditionalForm]], "Message"],

Cell[BoxData[
FormBox[
RowBox[{
\(Max::"nord"\), \( : \ \),
"\<\"Invalid comparison with \
\\!\\(TraditionalForm\\`\\(\\(\\*StyleBox[\\\"7.2891057597837765`\\\", \
Rule[PrintPrecision, 5], Rule[StyleBoxAutoDelete, True]] \\\\[InvisibleSpace]\
\\) + \\(\\*StyleBox[\\\"0.925401737941232127`\\\", Rule[PrintPrecision, 5], \
Rule[StyleBoxAutoDelete, True]]\\\\ \\\\[ImaginaryI]\\)\\)\\) \
attempted.\"\>"}], TraditionalForm]], "Message"],

Cell[BoxData[
FormBox[
RowBox[{
\(General::"stop"\), \( : \ \),
"\<\"Further output of \\!\\(TraditionalForm\\`\\(Max :: \\\"nord\\\"\
\\)\\) will be suppressed during this calculation.\"\>"}], TraditionalForm]],
"Message"],

Cell[BoxData[
FormBox[
RowBox[{
\(Min::"nord"\), \( : \ \),
"\<\"Invalid comparison with \
\\!\\(TraditionalForm\\`\\(\\(-\\*StyleBox[\\\"2.85447399293351455`\\\", \
Rule[PrintPrecision, 5], Rule[StyleBoxAutoDelete, True]]\\) - \\(\\*StyleBox[\
\\\"0.135370994872601202`\\\", Rule[PrintPrecision, 5], \
Rule[StyleBoxAutoDelete, True]]\\\\ \\\\[ImaginaryI]\\)\\)\\) \
attempted.\"\>"}], TraditionalForm]], "Message"],

Cell[BoxData[
FormBox[
RowBox[{
\(Min::"nord"\), \( : \ \),
"\<\"Invalid comparison with \
\\!\\(TraditionalForm\\`\\(\\(\\*StyleBox[\\\"2.57463740775992677`\\\", \
Rule[PrintPrecision, 5], Rule[StyleBoxAutoDelete, True]] \\\\[InvisibleSpace]\
\\) - \\(\\*StyleBox[\\\"0.904757679612033349`\\\", Rule[PrintPrecision, 5], \
Rule[StyleBoxAutoDelete, True]]\\\\ \\\\[ImaginaryI]\\)\\)\\) \
attempted.\"\>"}], TraditionalForm]], "Message"],

Cell[BoxData[
FormBox[
RowBox[{
\(Min::"nord"\), \( : \ \),
"\<\"Invalid comparison with \
\\!\\(TraditionalForm\\`\\(\\(\\*StyleBox[\\\"7.2891057597837765`\\\", \
Rule[PrintPrecision, 5], Rule[StyleBoxAutoDelete, True]] \\\\[InvisibleSpace]\
\\) + \\(\\*StyleBox[\\\"0.925401737941232127`\\\", Rule[PrintPrecision, 5], \
Rule[StyleBoxAutoDelete, True]]\\\\ \\\\[ImaginaryI]\\)\\)\\) \
attempted.\"\>"}], TraditionalForm]], "Message"],

Cell[BoxData[
FormBox[
RowBox[{
\(General::"stop"\), \( : \ \),
"\<\"Further output of \\!\\(TraditionalForm\\`\\(Min :: \\\"nord\\\"\
\\)\\) will be suppressed during this calculation.\"\>"}], TraditionalForm]],
"Message"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",",
\(6.5501264898773357`*^17 +
2.10902687316917258`*^16\ \[ImaginaryI]\), ",",
RowBox[{"Min", "(",
RowBox[{
RowBox[{
RowBox[{"-",
StyleBox["2.85447399293351455`",
StyleBoxAutoDelete->True,
PrintPrecision->5]}], "-",
RowBox[{
StyleBox["0.135370994872601202`",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
RowBox[{
RowBox[{
StyleBox["2.57463740775992677`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "-",
RowBox[{
StyleBox["0.904757679612033349`",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
RowBox[{
RowBox[{
StyleBox["7.2891057597837765`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "+",
RowBox[{
StyleBox["0.925401737941232127`",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
RowBox[{
RowBox[{
StyleBox["7.88909714794470495`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "-",
RowBox[{
StyleBox["0.000457019868422653541`",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
RowBox[{
RowBox[{
StyleBox["7.90114148994960263`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "-",
RowBox[{
StyleBox["0.0201558755594019789`",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
StyleBox["7.9227352591256821`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
RowBox[{
RowBox[{
StyleBox["7.92865229800888737`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "-",
RowBox[{
StyleBox["0.00596575830986759481`",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
RowBox[{
RowBox[{
StyleBox["8.01125889106786637`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "+",
RowBox[{
StyleBox["2.91010169170830579`*^-9",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
RowBox[{
RowBox[{
StyleBox["8.03010903849123813`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "+",
RowBox[{
StyleBox["4.33837247825073024`*^-9",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
RowBox[{
RowBox[{
StyleBox["8.036037958850196`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "+",
RowBox[{
StyleBox["3.35043651304622347`*^-9",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
RowBox[{
RowBox[{
StyleBox["8.04990152037811235`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "+",
RowBox[{
StyleBox["2.06363772062618755`*^-9",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
RowBox[{
RowBox[{
StyleBox["8.06681853422130679`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "+",
RowBox[{
StyleBox["3.84463998919966734`*^-9",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
RowBox[{
RowBox[{
StyleBox["8.11111630716885656`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "+",
RowBox[{
StyleBox["3.71792761304701135`*^-9",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
RowBox[{
RowBox[{
StyleBox["8.13867497034783227`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "+",
RowBox[{
StyleBox["1.60368507414285748`*^-9",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
RowBox[{
RowBox[{
StyleBox["8.1695966879970765`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "+",
RowBox[{
StyleBox["1.94569228042976902`*^-9",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
RowBox[{
RowBox[{
StyleBox["8.36628801054830439`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "-",
RowBox[{
StyleBox["2.77934348594254476`*^-9",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
RowBox[{
RowBox[{
StyleBox["8.47248415788530451`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "+",
RowBox[{
StyleBox["0.115640341571955773`",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
RowBox[{
RowBox[{
StyleBox["8.62574204985715375`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "+",
RowBox[{
StyleBox["0.169002205655265669`",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
RowBox[{
RowBox[{
StyleBox["8.71984789040285512`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "+",
RowBox[{
StyleBox["0.204849062872859999`",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}]}], ")"}],
",",
RowBox[{"Max", "(",
RowBox[{
RowBox[{
RowBox[{"-",
StyleBox["2.85447399293351455`",
StyleBoxAutoDelete->True,
PrintPrecision->5]}], "-",
RowBox[{
StyleBox["0.135370994872601202`",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
RowBox[{
RowBox[{
StyleBox["2.57463740775992677`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "-",
RowBox[{
StyleBox["0.904757679612033349`",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
RowBox[{
RowBox[{
StyleBox["7.2891057597837765`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "+",
RowBox[{
StyleBox["0.925401737941232127`",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
RowBox[{
RowBox[{
StyleBox["7.88909714794470495`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "-",
RowBox[{
StyleBox["0.000457019868422653541`",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
RowBox[{
RowBox[{
StyleBox["7.90114148994960263`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "-",
RowBox[{
StyleBox["0.0201558755594019789`",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
RowBox[{
RowBox[{
StyleBox["7.92865229800888737`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "-",
RowBox[{
StyleBox["0.00596575830986759481`",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
RowBox[{
RowBox[{
StyleBox["8.01125889106786637`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "+",
RowBox[{
StyleBox["2.91010169170830579`*^-9",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
RowBox[{
RowBox[{
StyleBox["8.03010903849123813`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "+",
RowBox[{
StyleBox["4.33837247825073024`*^-9",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
RowBox[{
RowBox[{
StyleBox["8.036037958850196`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "+",
RowBox[{
StyleBox["3.35043651304622347`*^-9",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
RowBox[{
RowBox[{
StyleBox["8.04990152037811235`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "+",
RowBox[{
StyleBox["2.06363772062618755`*^-9",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
RowBox[{
RowBox[{
StyleBox["8.06681853422130679`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "+",
RowBox[{
StyleBox["3.84463998919966734`*^-9",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
RowBox[{
RowBox[{
StyleBox["8.11111630716885656`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "+",
RowBox[{
StyleBox["3.71792761304701135`*^-9",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
RowBox[{
RowBox[{
StyleBox["8.13867497034783227`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "+",
RowBox[{
StyleBox["1.60368507414285748`*^-9",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
RowBox[{
RowBox[{
StyleBox["8.1695966879970765`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "+",
RowBox[{
StyleBox["1.94569228042976902`*^-9",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
RowBox[{
RowBox[{
StyleBox["8.36628801054830439`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "-",
RowBox[{
StyleBox["2.77934348594254476`*^-9",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
RowBox[{
RowBox[{
StyleBox["8.47248415788530451`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "+",
RowBox[{
StyleBox["0.115640341571955773`",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
StyleBox["8.47831349647169574`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
RowBox[{
RowBox[{
StyleBox["8.62574204985715375`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "+",
RowBox[{
StyleBox["0.169002205655265669`",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}], ",",
RowBox[{
RowBox[{
StyleBox["8.71984789040285512`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\[InvisibleSpace]"}], "+",
RowBox[{
StyleBox["0.204849062872859999`",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}]}], ")"}],
",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "0.`", ",", "90", ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "6.49828149678723754`*^17", ",",
StyleBox["7.91458859282916549`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.47831349647169574`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "0.`", ",", "95", ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "6.55253551270443335`*^17", ",",
StyleBox["7.91024350585764945`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.47831349647169574`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "0.`", ",", "100", ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "6.62510394967198124`*^17", ",",
StyleBox["7.90829770047003766`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.47831349647169574`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "0.`", ",", "105", ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "6.71422409828982402`*^17", ",",
StyleBox["7.9084735342131891`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.47831349647169574`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "0.`", ",", "110", ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "6.8179941263008974`*^17", ",",
StyleBox["7.91049793858268035`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.47831349647169574`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "0.`", ",", "115", ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "6.93419806296457164`*^17", ",",
StyleBox["7.91411650367760444`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.47831349647169574`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "0.`", ",", "120", ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.06023504577727756`*^17", ",",
StyleBox["7.91882155264520015`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.47831349647169574`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "0.`", ",", "125", ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.19308040070326359`*^17", ",",
StyleBox["7.92437242150237164`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.47831349647169574`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "0.`", ",", "130", ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.32927886249313864`*^17", ",",
StyleBox["7.93013570079941843`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.47831349647169574`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "0.`", ",", "135", ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.46498252881478396`*^17", ",",
StyleBox["7.93564618963665324`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.47831349647169574`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "0.`", ",", "140", ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5523.55803343557472`", ",", "7.59599725241248613`*^17", ",",
StyleBox["7.94032937653358406`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.47831349647169574`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.0265644760089109`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "51.6502419367207021`", ",", "1", ",",
"0.`", ",", "0.`", ",", "145", ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4]}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5503.94151169825995`", ",", "9.36483143068065793`*^17", ",",
StyleBox["8.14323811440944211`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.50196128637115222`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["54.9900474333022071`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "55.2632434576830711`", ",", "1", ",",
"0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "360.70000000000002`", ",",
"358.699999999999974`"}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5503.94151169825995`", ",", "9.35619999405231794`*^17", ",",
StyleBox["8.1452693425327638`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.49894209089881336`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["54.9406809593339229`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "55.4870730070224471`", ",", "1", ",",
"0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "361.699999999999999`", ",",
"357.699999999999951`"}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5503.94151169825995`", ",", "9.34888794475273599`*^17", ",",
StyleBox["8.14688012663888372`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.49626827036961884`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["54.8913156956162051`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "55.7109037644590898`", ",", "1", ",",
"0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "362.699999999999977`", ",",
"356.700000000000017`"}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5503.94151169825995`", ",", "9.34290587092372959`*^17", ",",
StyleBox["8.14841320871473406`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.4936913840896473`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["54.8419516426875741`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "55.9347357294568592`", ",", "1", ",",
"0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "363.699999999999956`", ",",
"355.699999999999993`"}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5503.94151169825995`", ",", "9.33825722458018958`*^17", ",",
StyleBox["8.14964549078800537`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.49139773622298221`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["54.7925888010870743`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "56.1585689014782474`", ",", "1", ",",
"0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "364.699999999999979`", ",",
"354.69999999999997`"}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5503.94151169825995`", ",", "9.33494232445614535`*^17", ",",
StyleBox["8.15067602850084149`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.48929546068900009`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["54.743227171353741`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "56.3824032799861907`", ",", "1", ",",
"0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "365.700000000000002`", ",",
"353.699999999999992`"}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5503.94151169825995`", ",", "9.33296564176658982`*^17", ",",
StyleBox["8.15160705234749372`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.48737565697242324`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["54.693866754026903`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "56.606238864445455`", ",", "1", ",",
"0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "366.700000000000025`", ",",
"352.699999999999969`"}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5503.94151169825995`", ",", "9.33232400329560185`*^17", ",",
StyleBox["8.15213338446784341`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.48576023335857776`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["54.6445075496461818`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "56.8300756543167118`", ",", "1", ",",
"0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "367.69999999999996`", ",",
"351.700000000000034`"}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5503.94151169825995`", ",", "9.33302544701734149`*^17", ",",
StyleBox["8.15265761857521376`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.4842545164411387`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["54.5951495587513324`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "57.0539136490670006`", ",", "1", ",",
"0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "368.699999999999983`", ",",
"350.700000000000011`"}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5503.94151169825995`", ",", "9.33507006213262435`*^17", ",",
StyleBox["8.15283136490490356`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.48309725480492637`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["54.5457927818824561`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "57.2777528481583431`", ",", "1", ",",
"0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "369.700000000000006`", ",",
"349.699999999999988`"}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5503.94151169825995`", ",", "9.33846138956850602`*^17", ",",
StyleBox["8.15285537443037888`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.48210137837786781`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["54.4964372195798762`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "57.501593251055052`", ",", "1", ",",
"0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "370.699999999999985`", ",",
"348.699999999999965`"}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5503.94151169825995`", ",", "9.34320166018808606`*^17", ",",
StyleBox["8.15287450708320982`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.48133494146740396`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["54.4470828723841115`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "57.7254348572228082`", ",", "1", ",",
"0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "371.700000000000008`", ",",
"347.699999999999942`"}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5503.94151169825995`", ",", "9.34929875455193837`*^17", ",",
StyleBox["8.15239935209488564`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.48084387231982894`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["54.3977297408359916`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "57.94927766612318`", ",", "1", ",",
"0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "372.699999999999942`", ",",
"346.700000000000008`"}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5503.94151169825995`", ",", "9.35675161257930199`*^17", ",",
StyleBox["8.15192658815754711`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.48049366959303618`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["54.3483778254765059`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "58.1731216772254811`", ",", "1", ",",
"0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "373.699999999999965`", ",",
"345.699999999999985`"}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5503.94151169825995`", ",", "9.36557028115895562`*^17", ",",
StyleBox["8.15130238653732597`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.48052018151679476`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["54.2990271268469548`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "58.3969668899912885`", ",", "1", ",",
"0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "374.699999999999988`", ",",
"344.700000000000006`"}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.699999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.700000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>", ",",
"5503.94151169825995`", ",", "9.37575739894117887`*^17", ",",
StyleBox["8.15033398603988423`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.48073371337597592`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["54.2496776454887985`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "58.620813303888557`", ",", "1", ",",
"0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "375.700000000000011`", ",",
"343.699999999999983`"}], "}"}], TraditionalForm]], "Print"],

Cell[BoxData[
\(allSummary >>> monday_run.txt\)], "Input"],

Cell[BoxData[
\(TraditionalForm\`{"using ", "GlobalStar"}\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{
\(General::"openx"\), \( : \ \),
"\<\"\\!\\(TraditionalForm\\`\\\"GlobalStar\\\"\\) is not \
open.\"\>"}], TraditionalForm]], "Message"],

Cell[BoxData[
\(TraditionalForm\`"writing result to individual spacecraft file"\)],
"Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["1411.99999999999992`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["1415.00000000000003`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",", "0.`", ",", "0.`", ",",
StyleBox["52.0000000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"GlobalStar\"\>", ",",
"6844.41110351692039`", ",", "7.80811198179688847`*^11", ",",
StyleBox["0.767477175231331276`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["2.7865435835472847`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["68.5237453630579551`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "68.0830690306602281`"}], "}"}],
TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`{"using ", "Iridiium"}\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{
\(General::"openx"\), \( : \ \),
"\<\"\\!\\(TraditionalForm\\`\\\"Iridiium\\\"\\) is not open.\"\>"}],
TraditionalForm]], "Message"],

Cell[BoxData[
\(TraditionalForm\`"writing result to individual spacecraft file"\)],
"Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["775.999999999999978`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["779.000000000000092`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["86.4000000000000056`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"Iridiium\"\>", ",",
"6023.72995503101993`", ",", "1.42612425928195074`*^15", ",",
StyleBox["4.99689017278060276`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["5.90083020149251336`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["60.313614695397435`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "59.8913064815205853`"}], "}"}],
TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`{"using ", "ISS"}\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{
\(General::"openx"\), \( : \ \),
"\<\"\\!\\(TraditionalForm\\`\\\"ISS\\\"\\) is not open.\"\>"}],
TraditionalForm]], "Message"],

Cell[BoxData[
FormBox[
RowBox[{
\(General::"stop"\), \( : \ \),
"\<\"Further output of \\!\\(TraditionalForm\\`\\(General :: \
\\\"openx\\\"\\)\\) will be suppressed during this calculation.\"\>"}],
TraditionalForm]], "Message"],

Cell[BoxData[
\(TraditionalForm\`"writing result to individual spacecraft file"\)],
"Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["374.599999999999999`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.199999999999992`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["51.6000000000000014`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"ISS\"\>", ",",
"5532.39305510322765`", ",", "6.22575975037588769`*^17", ",",
StyleBox["7.90214212646044611`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.37918594977529629`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["55.7344337111854226`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "53.4630063442073133`"}], "}"}],
TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`{"using ", "Meteor"}\)], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing result to individual spacecraft file"\)],
"Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["517.999999999999971`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["541.999999999999992`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["86.4000000000000056`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"Meteor\"\>", ",",
"5713.92407137220548`", ",", "5.63274923663327342`*^16", ",",
StyleBox["6.74570079729226268`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["7.45678523366789658`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["57.7391860360579034`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "54.4196621298124227`"}], "}"}],
TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`{"using ", "UO-22"}\)], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing result to individual spacecraft file"\)],
"Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["760.299999999999975`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["770.399999999999884`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["98.0999999999999872`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"UO-22\"\>", ",",
"6008.39437866980752`", ",", "1.76515440872499196`*^15", ",",
StyleBox["5.05105231669491505`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["5.99220865669289182`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["60.3406637469433437`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "58.9201003484172325`"}], "}"}],
TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`{"using ", "TDRS"}\)], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing result to individual spacecraft file"\)],
"Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "35072", ",", "36505", ",", "0.`", ",",
"0.`", ",",
StyleBox["10.9000000000000007`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"TDRS\"\>", ",",
"86168.049759834524`", ",", "1.70051353471674548`*^-17", ",",
RowBox[{"-",
StyleBox["37.5625511618276908`",
StyleBoxAutoDelete->True,
PrintPrecision->5]}], ",",
RowBox[{"-",
StyleBox["26.0180571252705572`",
StyleBoxAutoDelete->True,
PrintPrecision->5]}], ",",
StyleBox["950.291309676865658`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "460.612869140655689`"}], "}"}],
TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`{"using ", "Molniya"}\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{
\(CompiledFunction::"cfn"\), \( : \ \),
"\<\"Numerical error encountered at instruction \\!\\(TraditionalForm\
\\`22\\); proceeding with uncompiled evaluation.\"\>"}], TraditionalForm]],
"Message"],

Cell[BoxData[
FormBox[
RowBox[{
\(CompiledFunction::"cfn"\), \( : \ \),
"\<\"Numerical error encountered at instruction \\!\\(TraditionalForm\
\\`22\\); proceeding with uncompiled evaluation.\"\>"}], TraditionalForm]],
"Message"],

Cell[BoxData[
FormBox[
RowBox[{
\(CompiledFunction::"cfn"\), \( : \ \),
"\<\"Numerical error encountered at instruction \\!\\(TraditionalForm\
\\`22\\); proceeding with uncompiled evaluation.\"\>"}], TraditionalForm]],
"Message"],

Cell[BoxData[
FormBox[
RowBox[{
\(General::"stop"\), \( : \ \),
"\<\"Further output of \\!\\(TraditionalForm\\`\\(CompiledFunction :: \
\\\"cfn\\\"\\)\\) will be suppressed during this calculation.\"\>"}],
TraditionalForm]], "Message"],

Cell[BoxData[
\(TraditionalForm\`"writing result to individual spacecraft file"\)],
"Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["599.399999999999977`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "39242", ",", "0.`", ",",
StyleBox["279.69999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["63.4299999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"Molniya\"\>", ",",
"42442.1776423163077`", ",",
\(8.63102440726847142`*^-8 +
8.36551330353518984`*^16\ \[ImaginaryI]\), ",",
RowBox[{"-",
StyleBox["32.0571208853164568`",
StyleBoxAutoDelete->True,
PrintPrecision->5]}], ",",
StyleBox["6.49528325260693151`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["2362.12568093781616`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", \(-7772.28319397887368`\)}], "}"}],
TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`{"using ", "OrbComm"}\)], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing result to individual spacecraft file"\)],
"Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["746.700000000000052`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["752.399999999999913`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["45.0399999999999955`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"OrbComm\"\>", ",",
"5988.47131892127748`", ",", "2.88994718234090708`*^15", ",",
StyleBox["5.14117774106095559`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["6.20581089736583546`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["60.0294307745603195`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "59.2286137672203949`"}], "}"}],
TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`{"using ", "SeaSat"}\)], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing result to individual spacecraft file"\)],
"Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["688.600000000000012`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["691.500000000000092`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["108.000000000000007`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"SeaSat\"\>", ",",
"5913.64285359184016`", ",", "5.39992247123881163`*^15", ",",
StyleBox["5.58565587087005344`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["6.41477376962448353`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["59.2097476456559679`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "58.8040185641643819`"}], "}"}],
TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`{"using ", "LandSat"}\)], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing result to individual spacecraft file"\)],
"Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["632.200000000000095`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["637.200000000000077`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["98.2000000000000028`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"LandSat\"\>", ",",
"5844.31566508524014`", ",", "1.14599764485704103`*^16", ",",
StyleBox["6.00191982635925747`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["6.75338715208259543`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["58.5690745494825737`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "57.872286007131608`"}], "}"}],
TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`{"using ", "SunSat"}\)], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing result to individual spacecraft file"\)],
"Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["578.500000000000014`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["789.899999999999913`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["96.5000000000000035`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"SunSat\"\>", ",",
"5906.30271737768453`", ",", "1.2363168080098581`*^16", ",",
StyleBox["5.02078792332336298`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["7.08108646441821054`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["64.4119349389562056`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "34.8481232749427372`"}], "}"}],
TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`{"using ", "EROS-A-1"}\)], "Print"],

Cell[BoxData[
\(TraditionalForm\`"writing result to individual spacecraft file"\)],
"Print"],

Cell[BoxData[
\(TraditionalForm\`"writing summary to summaryfile"\)], "Print"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["405.100000000000015`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["413.3`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["97.3000000000000042`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"EROS-A-1\"\>", ",",
"5564.70539402955477`", ",", "3.66186955535378544`*^17", ",",
StyleBox["7.70011714139076719`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.17857601966983516`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["55.8502161912158534`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "54.7260055728693295`"}], "}"}],
TraditionalForm]], "Print"],

Cell[BoxData[
\(TraditionalForm\`{"using ", "HST"}\)], "Print"]
}, Open ]],

Cell[BoxData[""], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
\(Print[{spacecraftname}]\)], "Input"],

Cell[BoxData[
\(TraditionalForm\`{spacecraftname}\)], "Print"]
}, Open ]],

Cell[BoxData[
\(\(\(Module[{}, \n
\t (*\ this\ module\ is\ for\ running\ variations\ on\ a\ particular\
orbit\ to\ see\ the\ \(effects . \)\ *) \n
\t (*\ variations\ will\ be\ taken\ on\ the\ HETE\ \(orbit . \)\ *) \n
\t\(variationMatrix = {\n
\t\t\t{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12}, \n
\t\t\t{0, 15, 30, 45, 60, 75, 90, 105, 120, 135, 150, 165, 180,
195, 210, 225, 240, 255, 270, 285, 300, 315, 330, 345}, \n
\t\t\t{0, 15, 30, 45, 60, 75, 90, 105, 120, 135, 150, 165, 180,
195, 210, 225, 240, 255, 270, 285, 300, 315, 330, 345}, \n
\t\t\t{0, 5, 10, 15, 20, 25, 30, 35, 40, 45, 50, 55, 60, 65, 70,
75, 80, 85, 90, 95, 100, 105, 110, 115, 120, 125, 130, 135,
140, 145}\n\t}; \)\n\t\n\t\t\t\)}\); \ \n\t\n
\t (*\ this\ matrix\ shows\ the\ changing\ values\ for\ the\ month, \
ascending\ node, \ longitude\ of\ perigee, \
and\ the\ inclination . \ \ Variations\ on\ the\ eccentricity\ are\
handled\ by\ a\ different\ \(mechanism . \)\ *) \n\t\n\t
\(For[category = 1, category <= 4, \(++category\), \n\t\n\t\t
For[elementValue = 1,
elementValue <= Length[variationMatrix[\([category]\)]], \n\t\t\t
\(Print[category, elementValue,
\(elementValue[\([category, elementValue]\)]; \)\n\t\t\t\t\n
\t\t\t\t]; \)\n\t\n\t]\)\)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
\({Close["\"], Close["\"]}
\)], "Input"],

Cell[BoxData[
\(TraditionalForm\`{"/home/jordan/ss2/summary.txt", "GlobalStar"}\)],
"Output"]
}, Open ]],

Cell[BoxData[
\(outputRecord >> summary_file\)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
\(\(!! summary_file\)\)], "Input"],

Cell["\<\
{1969, 1, 20, 19.17999999999999, 498.8, 504.3, 0., 0., \
31.29999999999999,
136, 155, 138.5, 2.35, \"UARS\", 5678.662701162205, 1.06257260702545*^17,
7.017015158424131, 7.668463714277641, 56.92381597364509, 56.16465975329765}\
\
\>", "Print"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(numbSC = \(Dimensions[inputData]\)[\([1]\)]\)], "Input"],

Cell[BoxData[
\(TraditionalForm\`20\)], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\({inputData[\([1]\)], period, oxyNumber, logONumber, sumParticles,
Min[Last[Transpose[allResults]]], Max[Last[Transpose[allResults]]]}\)],
"Input"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["1411.99999999999992`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["1415.00000000000003`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",", "0.`", ",", "0.`", ",",
StyleBox["52.0000000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"GlobalStar\"\>"}], "}"}], ",",
"6844.41110351692039`", ",", "56.2436172720019111`", ",",
"1.75007324427974779`", ",", "8.02649143986426949`*^10", ",",
StyleBox["1.75007324427974779`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["2.51094941495757684`",
StyleBoxAutoDelete->True,
PrintPrecision->5]}], "}"}], TraditionalForm]], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(masterfile = OpenWrite["\"]\)], "Input"],

Cell[BoxData[
\(TraditionalForm\`OutputStream("/home/jordan/ss2/summary.txt", 25)\)],
"Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(Last[inputData]\)], "Input"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["498.800000000000043`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["504.300000000000014`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["31.2999999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"UARS\"\>"}], "}"}],
TraditionalForm]], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(inputData[\([1]\)]\)], "Input"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["1411.99999999999992`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["1415.00000000000003`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",", "0.`", ",", "0.`", ",",
StyleBox["52.0000000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"GlobalStar\"\>"}], "}"}],
TraditionalForm]], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(allResults\)], "Input"],

Cell[BoxData[
FormBox[
RowBox[{"(", GridBox[{
{"0",
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["1412.00000000000098`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7152.05496911400295`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["324.301841649851763`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.51094941495757684`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["3.60000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["68.5237453630579551`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["1412.05487787006696`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7152.05632784566347`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["284.835332489468573`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.45459386050361549`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["7.20000000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["136.695501099757832`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["1412.21869365264574`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7152.06039867680054`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["248.367131209940916`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.39509412097852125`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["10.8000000000000007`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["205.498753014362511`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["1412.48900583857617`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7152.06716553709309`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["215.064112569101606`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.33256794635436603`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["14.3999999999999994`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["273.521788470682825`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["1412.86178501818371`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7152.07660171323311`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["185.055503828225802`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.26730200619245003`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["18.`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["342.313246573452101`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["1413.33147304902739`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7152.08866995446612`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["158.265766004709611`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.1993869840782807`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["21.6000000000000014`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["410.507521874019687`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["1413.89106490706284`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7152.10332261976766`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["134.620302077489606`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.12911056074486637`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["25.2000000000000046`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["479.005400770159539`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["1414.5322122330171`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7152.12050186607939`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["113.915451827031399`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.05658263705599919`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["28.8000000000000042`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["547.557098467675906`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["1415.24534729807482`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7152.14013987682761`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["95.9316494085421034`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.98196191161132713`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["32.4000000000000065`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["615.710002575858617`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["1416.01982582441898`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7152.16215912984409`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["80.4795318773350132`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.90568544157266792`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["36.0000000000000053`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["684.525841341553054`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["1416.84408680859093`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7152.18647270363483`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["67.3259155634842265`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.8281822680837763`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["39.6000000000000085`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["752.553169229238783`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["1417.70582721306093`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7152.21298462075338`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["56.2436172720019111`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.75007324427974779`",
StyleBoxAutoDelete->True,
PrintPrecision->5]}
},
ColumnAlignments->{Decimal}], ")"}], TraditionalForm]], "Output"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
\(Last[allResults]\)], "Input"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{
StyleBox["39.6000000000000085`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["752.553169229238783`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",",
StyleBox["1417.70582721306093`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",",
StyleBox["7152.21298462075338`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",",
StyleBox["56.2436172720019111`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["1.75007324427974779`",
StyleBoxAutoDelete->True,
PrintPrecision->5]}], "}"}], TraditionalForm]], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(Transpose[allResults]\)], "Input"],

Cell[BoxData[
FormBox[
RowBox[{"(", GridBox[{
{"0",
StyleBox["3.60000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["7.20000000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["10.8000000000000007`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["14.3999999999999994`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["18.`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["21.6000000000000014`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["25.2000000000000046`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["28.8000000000000042`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["32.4000000000000065`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["36.0000000000000053`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["39.6000000000000085`",
StyleBoxAutoDelete->True,
PrintPrecision->4]},
{
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["68.5237453630579551`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["136.695501099757832`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["205.498753014362511`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["273.521788470682825`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["342.313246573452101`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["410.507521874019687`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["479.005400770159539`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["547.557098467675906`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["615.710002575858617`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["684.525841341553054`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["752.553169229238783`",
StyleBoxAutoDelete->True,
PrintPrecision->6]},
{
StyleBox["1412.00000000000098`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["1412.05487787006696`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["1412.21869365264574`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["1412.48900583857617`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["1412.86178501818371`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["1413.33147304902739`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["1413.89106490706284`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["1414.5322122330171`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["1415.24534729807482`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["1416.01982582441898`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["1416.84408680859093`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["1417.70582721306093`",
StyleBoxAutoDelete->True,
PrintPrecision->6]},
{
StyleBox["7152.05496911400295`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7152.05632784566347`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7152.06039867680054`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7152.06716553709309`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7152.07660171323311`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7152.08866995446612`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7152.10332261976766`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7152.12050186607939`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7152.14013987682761`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7152.16215912984409`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7152.18647270363483`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7152.21298462075338`",
StyleBoxAutoDelete->True,
PrintPrecision->6]},
{
StyleBox["324.301841649851763`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["284.835332489468573`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["248.367131209940916`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["215.064112569101606`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["185.055503828225802`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["158.265766004709611`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["134.620302077489606`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["113.915451827031399`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["95.9316494085421034`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["80.4795318773350132`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["67.3259155634842265`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["56.2436172720019111`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["2.51094941495757684`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.45459386050361549`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.39509412097852125`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.33256794635436603`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.26730200619245003`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.1993869840782807`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.12911056074486637`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.05658263705599919`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.98196191161132713`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.90568544157266792`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.8281822680837763`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.75007324427974779`",
StyleBoxAutoDelete->True,
PrintPrecision->5]}
},
ColumnAlignments->{Decimal}], ")"}], TraditionalForm]], "Output"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
\(Last[Transpose[allResults]]\)], "Input"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{
StyleBox["2.51094941495757684`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["2.45459386050361549`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["2.39509412097852125`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["2.33256794635436603`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["2.26730200619245003`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["2.1993869840782807`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["2.12911056074486637`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["2.05658263705599919`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["1.98196191161132713`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["1.90568544157266792`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["1.8281822680837763`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["1.75007324427974779`",
StyleBoxAutoDelete->True,
PrintPrecision->5]}], "}"}], TraditionalForm]], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(Max[%]\)], "Input"],

Cell[BoxData[
FormBox[
StyleBox["2.51094941495757684`",
StyleBoxAutoDelete->True,
PrintPrecision->5], TraditionalForm]], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(inputData\)], "Input"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["1411.99999999999992`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["1415.00000000000003`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",", "0.`", ",", "0.`", ",",
StyleBox["52.0000000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"GlobalStar\"\>"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["775.999999999999978`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["779.000000000000092`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["86.4000000000000056`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"Iridiium\"\>"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["374.599999999999999`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.199999999999992`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["51.6000000000000014`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"ISS\"\>"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["517.999999999999971`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["541.999999999999992`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["86.4000000000000056`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"Meteor\"\>"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["760.299999999999975`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["770.399999999999884`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["98.0999999999999872`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"UO-22\"\>"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "35072", ",", "36505", ",", "0.`",
",", "0.`", ",",
StyleBox["10.9000000000000007`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"TDRS\"\>"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["599.399999999999977`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "39242", ",", "0.`", ",",
StyleBox["279.69999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["63.4299999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"Molniya\"\>"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["746.700000000000052`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["752.399999999999913`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["45.0399999999999955`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"OrbComm\"\>"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["688.600000000000012`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["691.500000000000092`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["108.000000000000007`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"SeaSat\"\>"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["632.200000000000095`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["637.200000000000077`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["98.2000000000000028`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"LandSat\"\>"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["578.500000000000014`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["789.899999999999913`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["96.5000000000000035`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"SunSat\"\>"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["405.100000000000015`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["413.3`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["97.3000000000000042`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"EROS A-1\"\>"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["511.800000000000032`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["528.299999999999947`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["28.5`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HST\"\>"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["359.500000000000019`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["391.899999999999959`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["37.9999999999999982`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"HETE\"\>"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["634.299999999999908`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["635.700000000000109`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["98.0999999999999872`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"TERRA\"\>"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "6215", ",", "113656", ",", "0.`",
",", "0.`", ",",
StyleBox["33.3999999999999985`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"XMM\"\>"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["683.300000000000018`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["697.499999999999964`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["25.`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"FUSE\"\>"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["285.400000000000009`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["3859.59999999999947`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",", "0.`", ",", "0.`", ",", "83", ",",
"136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"FAST\"\>"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["259.100000000000019`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "33792", ",", "0.`", ",", "0.`",
",",
StyleBox["17.6000000000000023`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"CRRES\"\>"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["498.800000000000043`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["504.300000000000014`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["31.2999999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"UARS\"\>"}], "}"}], ",",
"Null"}], "}"}], TraditionalForm]], "Output"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
\(numbSC\)], "Input"],

Cell[BoxData[
\(TraditionalForm\`{21}\)], "Output"]
}, Open ]],

Cell[BoxData[
\(\(allResults // StandardForm; \)\)], "Input"],

Cell[BoxData[
\(\(Transpose[allResults] // StandardForm; \)\)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
\(Last[Transpose[allResults]]\)], "Input"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{
StyleBox["8.84950699226773629`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.83893285039150988`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.82734957503154049`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.81474476699366249`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.8013715708150837`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.78716884862268976`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.77239870402906696`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.75707889494824698`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.7413556809447428`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.72539427501436293`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.70919978857762444`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.69302784290731622`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.67682840992538118`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.66081556210676417`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.64499269692907112`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.62943927164018553`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.61424470811021869`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.59936775847598333`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.58492535276231016`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.57084097322211135`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.55718014430760298`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.54389952576888767`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.530987623878298`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.51843788627085451`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.50619505832734468`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.49425460959547606`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.4825602332390062`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.47108761944751087`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.459793391973216`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.44864025696412568`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.43759091891975643`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.42662098891015887`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.41576971099695825`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.40509598941438973`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.39465315973884607`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.38449794524489355`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.37468915016023807`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.36526779841549661`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.35631700930709264`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.34785250176235571`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.33997723019774106`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.33270922189271168`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.32612350248880161`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.32029938561421289`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.31523001993864596`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.31108297677472585`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.30778059472783603`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.3055080975695219`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.30422889799546126`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.30412292147430619`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.30537126001930481`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.30793890295543313`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.31211903017978137`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.31773614611434375`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.32504493970623649`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.3339115177124885`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.3443558519766583`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.35641296957739143`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.3698139616674485`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.38470370968829037`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.40067801152044246`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.41779718287494027`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.43575301068797855`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.45438835323603576`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.47360186742721488`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.49308002450093901`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.51285355096727869`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.53263357382896359`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.55243849008399337`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.57212295474950103`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.59162853134958481`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.61092508226469455`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.62991836026740521`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.64859350099004231`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.66687627994772213`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.68471526759776857`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.70204939292853474`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.7188200749471818`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.73493068344172307`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.75035805032634783`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.7649552254695493`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.77872036300440505`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.79151044202537867`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.80328211335192634`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.81398208004012495`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.82347744410249568`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.83182048517129913`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.83882461214247783`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.84457617417610997`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.84894255227539971`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.85193672305079104`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.85357332142336517`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.85374650222373382`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.85261179199916803`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.85001298784516166`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.84613519521707303`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.84090830028127072`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.83441896621349265`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.82677571776312852`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.81793133842757903`",
StyleBoxAutoDelete->True,
PrintPrecision->5]}], "}"}], TraditionalForm]], "Output"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
\(x = Last[Transpose[allResults]]\)], "Input"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{
StyleBox["8.84950699226773629`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.83893285039150988`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.82734957503154049`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.81474476699366249`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.8013715708150837`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.78716884862268976`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.77239870402906696`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.75707889494824698`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.7413556809447428`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.72539427501436293`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.70919978857762444`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.69302784290731622`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.67682840992538118`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.66081556210676417`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.64499269692907112`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.62943927164018553`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.61424470811021869`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.59936775847598333`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.58492535276231016`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.57084097322211135`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.55718014430760298`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.54389952576888767`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.530987623878298`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.51843788627085451`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.50619505832734468`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.49425460959547606`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.4825602332390062`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.47108761944751087`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.459793391973216`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.44864025696412568`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.43759091891975643`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.42662098891015887`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.41576971099695825`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.40509598941438973`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.39465315973884607`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.38449794524489355`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.37468915016023807`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.36526779841549661`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.35631700930709264`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.34785250176235571`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.33997723019774106`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.33270922189271168`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.32612350248880161`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.32029938561421289`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.31523001993864596`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.31108297677472585`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.30778059472783603`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.3055080975695219`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.30422889799546126`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.30412292147430619`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.30537126001930481`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.30793890295543313`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.31211903017978137`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.31773614611434375`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.32504493970623649`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.3339115177124885`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.3443558519766583`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.35641296957739143`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.3698139616674485`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.38470370968829037`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.40067801152044246`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.41779718287494027`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.43575301068797855`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.45438835323603576`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.47360186742721488`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.49308002450093901`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.51285355096727869`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.53263357382896359`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.55243849008399337`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.57212295474950103`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.59162853134958481`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.61092508226469455`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.62991836026740521`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.64859350099004231`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.66687627994772213`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.68471526759776857`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.70204939292853474`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.7188200749471818`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.73493068344172307`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.75035805032634783`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.7649552254695493`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.77872036300440505`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.79151044202537867`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.80328211335192634`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.81398208004012495`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.82347744410249568`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.83182048517129913`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.83882461214247783`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.84457617417610997`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.84894255227539971`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.85193672305079104`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.85357332142336517`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.85374650222373382`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.85261179199916803`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.85001298784516166`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.84613519521707303`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.84090830028127072`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.83441896621349265`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.82677571776312852`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["8.81793133842757903`",
StyleBoxAutoDelete->True,
PrintPrecision->5]}], "}"}], TraditionalForm]], "Output"]
}, Closed]],

Cell[BoxData[
\(Remove[xy]\)], "Input"],

Cell[BoxData[
\(\(xyarr =
Transpose[{First[Transpose[allResults]], Last[Transpose[allResults]]}];
\)\)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
\(uv = ListPlot[xyarr]\)], "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.0238095 0.00267222 -8.87835 1.07092 [
[.15742 -0.0022 -6 -9 ]
[.15742 -0.0022 6 0 ]
[.29103 -0.0022 -9 -9 ]
[.29103 -0.0022 9 0 ]
[.42464 -0.0022 -9 -9 ]
[.42464 -0.0022 9 0 ]
[.55825 -0.0022 -9 -9 ]
[.55825 -0.0022 9 0 ]
[.69187 -0.0022 -9 -9 ]
[.69187 -0.0022 9 0 ]
[.82548 -0.0022 -9 -9 ]
[.82548 -0.0022 9 0 ]
[.95909 -0.0022 -9 -9 ]
[.95909 -0.0022 9 0 ]
[.01131 .11739 -18 -4.5 ]
[.01131 .11739 0 4.5 ]
[.01131 .22448 -18 -4.5 ]
[.01131 .22448 0 4.5 ]
[.01131 .33158 -18 -4.5 ]
[.01131 .33158 0 4.5 ]
[.01131 .43867 -18 -4.5 ]
[.01131 .43867 0 4.5 ]
[.01131 .54576 -18 -4.5 ]
[.01131 .54576 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.15742 .0103 m
.15742 .01655 L
s
[(50)] .15742 -0.0022 0 1 Mshowa
.29103 .0103 m
.29103 .01655 L
s
[(100)] .29103 -0.0022 0 1 Mshowa
.42464 .0103 m
.42464 .01655 L
s
[(150)] .42464 -0.0022 0 1 Mshowa
.55825 .0103 m
.55825 .01655 L
s
[(200)] .55825 -0.0022 0 1 Mshowa
.69187 .0103 m
.69187 .01655 L
s
[(250)] .69187 -0.0022 0 1 Mshowa
.82548 .0103 m
.82548 .01655 L
s
[(300)] .82548 -0.0022 0 1 Mshowa
.95909 .0103 m
.95909 .01655 L
s
[(350)] .95909 -0.0022 0 1 Mshowa
.125 Mabswid
.05053 .0103 m
.05053 .01405 L
s
.07725 .0103 m
.07725 .01405 L
s
.10398 .0103 m
.10398 .01405 L
s
.1307 .0103 m
.1307 .01405 L
s
.18414 .0103 m
.18414 .01405 L
s
.21087 .0103 m
.21087 .01405 L
s
.23759 .0103 m
.23759 .01405 L
s
.26431 .0103 m
.26431 .01405 L
s
.31775 .0103 m
.31775 .01405 L
s
.34448 .0103 m
.34448 .01405 L
s
.3712 .0103 m
.3712 .01405 L
s
.39792 .0103 m
.39792 .01405 L
s
.45137 .0103 m
.45137 .01405 L
s
.47809 .0103 m
.47809 .01405 L
s
.50481 .0103 m
.50481 .01405 L
s
.53153 .0103 m
.53153 .01405 L
s
.58498 .0103 m
.58498 .01405 L
s
.6117 .0103 m
.6117 .01405 L
s
.63842 .0103 m
.63842 .01405 L
s
.66514 .0103 m
.66514 .01405 L
s
.71859 .0103 m
.71859 .01405 L
s
.74531 .0103 m
.74531 .01405 L
s
.77203 .0103 m
.77203 .01405 L
s
.79875 .0103 m
.79875 .01405 L
s
.8522 .0103 m
.8522 .01405 L
s
.87892 .0103 m
.87892 .01405 L
s
.90564 .0103 m
.90564 .01405 L
s
.93237 .0103 m
.93237 .01405 L
s
.98581 .0103 m
.98581 .01405 L
s
.25 Mabswid
0 .0103 m
1 .0103 L
s
.02381 .11739 m
.03006 .11739 L
s
[(8.4)] .01131 .11739 1 0 Mshowa
.02381 .22448 m
.03006 .22448 L
s
[(8.5)] .01131 .22448 1 0 Mshowa
.02381 .33158 m
.03006 .33158 L
s
[(8.6)] .01131 .33158 1 0 Mshowa
.02381 .43867 m
.03006 .43867 L
s
[(8.7)] .01131 .43867 1 0 Mshowa
.02381 .54576 m
.03006 .54576 L
s
[(8.8)] .01131 .54576 1 0 Mshowa
.125 Mabswid
.02381 .03172 m
.02756 .03172 L
s
.02381 .05314 m
.02756 .05314 L
s
.02381 .07456 m
.02756 .07456 L
s
.02381 .09597 m
.02756 .09597 L
s
.02381 .13881 m
.02756 .13881 L
s
.02381 .16023 m
.02756 .16023 L
s
.02381 .18165 m
.02756 .18165 L
s
.02381 .20307 m
.02756 .20307 L
s
.02381 .2459 m
.02756 .2459 L
s
.02381 .26732 m
.02756 .26732 L
s
.02381 .28874 m
.02756 .28874 L
s
.02381 .31016 m
.02756 .31016 L
s
.02381 .35299 m
.02756 .35299 L
s
.02381 .37441 m
.02756 .37441 L
s
.02381 .39583 m
.02756 .39583 L
s
.02381 .41725 m
.02756 .41725 L
s
.02381 .46009 m
.02756 .46009 L
s
.02381 .48151 m
.02756 .48151 L
s
.02381 .50292 m
.02756 .50292 L
s
.02381 .52434 m
.02756 .52434 L
s
.02381 .56718 m
.02756 .56718 L
s
.02381 .5886 m
.02756 .5886 L
s
.02381 .61002 m
.02756 .61002 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.008 w
.02381 .59878 Mdot
.03343 .58745 Mdot
.04305 .57505 Mdot
.05267 .56155 Mdot
.06229 .54723 Mdot
.07191 .53202 Mdot
.08153 .5162 Mdot
.09115 .4998 Mdot
.10077 .48296 Mdot
.11039 .46586 Mdot
.12001 .44852 Mdot
.12963 .4312 Mdot
.13925 .41385 Mdot
.14887 .3967 Mdot
.15849 .37976 Mdot
.16811 .3631 Mdot
.17773 .34683 Mdot
.18735 .3309 Mdot
.19697 .31543 Mdot
.20659 .30035 Mdot
.21621 .28572 Mdot
.22583 .2715 Mdot
.23545 .25767 Mdot
.24507 .24423 Mdot
.25469 .23112 Mdot
.26431 .21833 Mdot
.27393 .20581 Mdot
.28355 .19352 Mdot
.29317 .18143 Mdot
.30279 .16948 Mdot
.31241 .15765 Mdot
.32203 .1459 Mdot
.33165 .13428 Mdot
.34127 .12285 Mdot
.35089 .11167 Mdot
.36051 .10079 Mdot
.37013 .09029 Mdot
.37975 .0802 Mdot
.38937 .07061 Mdot
.39899 .06155 Mdot
.40861 .05311 Mdot
.41823 .04533 Mdot
.42785 .03828 Mdot
.43747 .03204 Mdot
.44709 .02661 Mdot
.45671 .02217 Mdot
.46633 .01863 Mdot
.47595 .0162 Mdot
.48557 .01483 Mdot
.49519 .01472 Mdot
.50481 .01605 Mdot
.51443 .0188 Mdot
.52405 .02328 Mdot
.53367 .02929 Mdot
.54329 .03712 Mdot
.55291 .04662 Mdot
.56253 .0578 Mdot
.57215 .07071 Mdot
.58177 .08507 Mdot
.59139 .10101 Mdot
.60101 .11812 Mdot
.61063 .13645 Mdot
.62025 .15568 Mdot
.62987 .17564 Mdot
.63949 .19621 Mdot
.64911 .21707 Mdot
.65873 .23825 Mdot
.66835 .25943 Mdot
.67797 .28064 Mdot
.68759 .30172 Mdot
.69721 .32261 Mdot
.70683 .34328 Mdot
.71645 .36362 Mdot
.72607 .38362 Mdot
.73569 .4032 Mdot
.74531 .4223 Mdot
.75493 .44086 Mdot
.76455 .45882 Mdot
.77417 .47608 Mdot
.78379 .4926 Mdot
.79341 .50823 Mdot
.80303 .52297 Mdot
.81265 .53667 Mdot
.82227 .54928 Mdot
.83189 .56073 Mdot
.84151 .5709 Mdot
.85113 .57984 Mdot
.86075 .58734 Mdot
.87037 .5935 Mdot
.87999 .59817 Mdot
.88961 .60138 Mdot
.89923 .60313 Mdot
.90885 .60332 Mdot
.91847 .6021 Mdot
.92809 .59932 Mdot
.93771 .59517 Mdot
.94733 .58957 Mdot
.95695 .58262 Mdot
.96657 .57444 Mdot
.97619 .56496 Mdot
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
ImageSize->{288, 177.938},
ImageMargins->{{62, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg NYM1Imb]`ULU>oooojjb`i>GYMcNiEePJ@0006=SW5ADQ;NgdBl_B_ooooogjMSAa/c5^YVDR`0009BD
U:f][B4Q8Kfm_MkNg]gNiUiPJD92@_l0og=cLf=SHooo003ooe5Anl30`820P8200?XC@3_j=7emOFAT
I4];BlS8b>7QhIJFU_l0003o0000oclo?nKVn_GeoHF5TLC4eOogjBm?CfUYJKjn_]?CdiT0I_ooc020
P80006IVc3
SU5lSL?ooc0`UZRXogEeM@00E@00ZP1E001EE@1EZP1Eoc2XW1TIL8b<^5iNVc/kQKno08X[h/VNlT KgDT`;no_m7FjVQ[MJo^k[C^];8R8[b?Sj0Pl=Y`e[R62b:;8V2PX>K>/OoTa;2`/=WIfOn^^LfgWTJ2
];0`H9V9MX:2PYUXKoodohYlJ_oon7k0kRj;EoZ0LP2Z002ZE@2ZZP2Zo`3oE@3oZUD005D0EED0ZUD0
oeEE05EEEEEEZUEEoeFZ05FZEEFZZUFZoeGo05GoEEGoZUGoojX00:X0EJX0ZZX0ojYE0:YEEJYEZZYE
ojZZ0:ZZEJZZZZZZoj[o0:[oEJ[oZZ[oool0EOl0Z_mE0?mEEOmEZ_mEoonZ0?nZEOnZZ_nZooooEOoo
ZYBGY^o_kgalO7no07no?gnoOgno_gnoogoo07oo?gooOgoo_goookl00;l0?kl0Okl0_kl0oklo0;lo
?kloOklo_klookmo0;mo?kmoOkmo_kmookno?knoOknookoo0;oo?kooOkoo_kooool0?ol0Ool0_olo
0?lo?oloOolo_olooomo0?mo?omoOomo_omooono06K=ZY[=jdPmRoGN/m:dS?oG0?nU0:1B
;LeLG=9Y7_o0bmfPgKYEdiTbc4SAc?no?onoOono_onoomP0003H0000f00002P00`4200814P030@80
0P4300813`030@800`4200813P040@800P4300813P040@800`4200813`030@800P4300813`030@80
0`420081100002P000D100400@0200030@00010000@100010P000`400@0200030@0000d000T10000
0@0100400P000`40000<00050@0100400P000`400@0200030@0000`000<100400P001@400@010080
00<1000030001@400@01008000<100400P000`40000<00030@01008000D100400@0200030@000040
000Z00030@01008000<1000040001040004200030@01008000<100003@000`40000300030@010080
00<100003@001040004200030@01008000<100003@000`40000300030@01008000<100003P000`40
0@0200030@01008000<100003P000`40000200030@01008000<100000@0002P00`401@0100010180
00@100010P000`400@0200030@0000d000@100000`401@010001010000<100400P000`400@020003
0@0000h000<100000`401@01000100l000@100010P000`400@0200030@0000d000@100000`401@01
000100<0000@00030@0001D000D100000@0200030@00010000@100010P000`400@0200030@0000d0
00D100000@0300040@000@d000H10001004200030@01008000<100002`001040004200050@000040
0P000`40000;00060@000@010P000`400@0200030@0000/000@100010P001@400001008000<10000
0@00010000<100005@030@800P4B00810`020@<00P4?00810`030@800P4?00810`020@<00P4?0081
0`030@800P4?00<10P020@<00P4?00<10P030@800P4400002`3<0@40000@00030@0000<000<10000
0P000`40000200030@0000<000<100000P000`40000300030@00008000<100000P000`4000030003
0@00008000<100000`000`40000200030@0000<000<100000P000`40000200030@0000<000<10000
0P001040004200030@00008000<100000P000`40000300030@00008000<100000`000`4000020003
0@00008000<100000`000`40000200030@0000<000<100000P000`40000300030@00008000<10000
0P000`40000300030@00008000<100000`000`40000200030@000080000@00030@0001P000<10000
60000`40000H00030@0000H00P400`01000200030@0100P000<1000060000`40000I00030@0001P0
00<100001`00010000<10000E@000`40000:00030@000600000@00030@0005<000<100003P000`40
001N000040020E8000<10000L@00010000<10000C`000`40000D00030@0005`0000@00030@000 000@00030@0004d000<1000060000`40001J000040020D`000<10000M`00010000<10000JP000`40
001H000040000`40001900030@0007T0000@00030@000 000@00030@000 001300030@0007l0000@0081aP00010000<10000@@000`40000/00030@000580000@00030@000 00000`010@0400040@0000<10P000`40000o00030@0008<000001040004600@10P020G<000<10000
D00000040@000@H000<100400`000`40000m00030@0008D000040@L00P4300030@000 004700810`000`400035000000<00@402@00104000020C`000<10000=P000`40001>000040000`40
0035000040000`40000i00030@0008T0000@00030@000 001<000040020LH0000@00030@000 001:000040020C@000<10000S`00010000<10000a@00010000<10000a@00010000<10000<@000`40
001600030@0004P0000@0081aP00010000<10000<0000`40002B000040000`400035000040000`40
001l00030@0004H000000`010@0400040@0000<10P000`40000^00030@0009@00000104000470003
0@0100800P76000000@100012@001040004^00030@0009H000040@L00`4200030@000 004700030@00008000<10000OP000`400014000000<00@4020030@800P4[00030@0009P0000@0003
0@000 0@000 0@0009h0000@0081aP00010000<10000a@00010000<100008P000`40002P000040000`4000230003
0@0003l0000@0081aP00010000<1000080000`40002R000040000`400035000040000`4000250003
0@0003d000000`010@0400030@0000800P420081aP0000040@000@L000H10001004P00030@000:@0
000010400047008100@00@01a`0000@11`030@8000<10000Q`000`40000k000000@100011`020@<0
00<1000070000`40002V000000<00@402@030@0300410 00<10000K0000`40000i000040000`400035000040020LH0000@00030@0001P000<10000ZP000100
00<10000R`000`40000g000040000`400035000040020LH0000@00030@0001H000<10000[0000100
00<10000S@000`40000e000040000`400035000040000`40000D00030@000:h0000@0081aP000100
00<10000S`000`40000c000040000`400035000000<00@4010000`40000200050@00004050000`40
002`000000@100012000104000020LH000001040004800050@000040T`000`40000a000010480005
0@0000404P000`40002b000000@100011P001040004200030@000 00<10000;`00010000<10000a@00010000<100003P000`40002d000040000`400035000040000`40
002E00030@0002d0000@00813@000`40002f000040000`400035000040000`40002G00030@0002/0
000@00030@000 000@00030@0000T000<10000^@00010000<10000V`000`40000W000040020LH0000@00030@0000L0
00<10000^`00010000<10000W@000`40000U000000<00@401000104000020@<000<10000a@000004
0@000@H000@100010P020@H000<10000_@0000040@000@H000@100010P000`40002O00030@0002<0
00040@H0104200030@000 00000`010@0800810`020Kl000<100001000010000<10000X`000`40000O000040001@4000010;X0
00<100001P00010000<10000Y@000`40000M000040000`40002j00030@0000P0000@00<1YP000`40
000?00030@0000X0000@00030@000:P000<100002`000`40000<000040000`40002Z00030@0100L0
00<100003P00010000<10000[P001@400@010180000@0081aP00010000<10000a@000001\
\>"],
ImageRangeCache->{{{0, 215}, {132.438, 0}} -> {-30.6672, 8.25723, 1.38501,
0.00345596}}],

Cell[BoxData[
FormBox[
TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(fittrend =
Fit[xyarr, {1, x, Cos[x*2*Pi/360], Sin[x*2*Pi/360], Cos[2 x*2*Pi/360],
Sin[2 x*2*Pi/360]}, x]\)], "Input"],

Cell[BoxData[
\(TraditionalForm
\`\(-0.000124666279180476324`\)\ x +
0.255568310909203955`\ \(cos(\(\[Pi]\ x\)\/180)\) -
0.011299270776131105`\ \(cos(\(\[Pi]\ x\)\/90)\) -
0.1066073340470437`\ \(sin(\(\[Pi]\ x\)\/180)\) -
0.0281264430599487713`\ \(sin(\(\[Pi]\ x\)\/90)\) + 8.60118704859767646`
\)], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(\(?TrigFit\)\)], "Input"],

Cell[BoxData[
\(TraditionalForm
\`"TrigFit[data, n, x] gives the least squares trigonometric fit to data \
much as Fit[data, {1, Cos[x], Sin[x], Cos[2x], Sin[2x, ... Cos[n x], Sin[n \
x]}, x] would do, except that the calculation is done using Fourier[ ]. The \
data must be a list of numbers sampled at equally spaced points over one \
period starting at 0. TrigFit[data, n, {x, L}] can be used if the \
fundamental period is not 2Pi. TrigFit[data, n, {x, x0, x1}] can be used for \
data starting at x0 and ending at the sample point immediately before x1."\)],
"Print"]
}, Open ]],

Cell[BoxData[
\(Remove[TrigFit]\)], "Input"],

Cell[BoxData[
\(Needs["\"]\)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
\(fitu = TrigFit[Last[Transpose[xyarr]], 4, {x, 360}]\)], "Input"],

Cell[BoxData[
\(TraditionalForm
\`0.256017109514253204`\ \(cos(\(\[Pi]\ x\)\/180)\) -
0.0108504721710817886`\ \(cos(\(\[Pi]\ x\)\/90)\) +
0.00709287960384627158`\ \(cos(\(\[Pi]\ x\)\/60)\) +
0.0000384356000835684152`\ \(cos(\(\[Pi]\ x\)\/45)\) -
0.0923263308750252242`\ \(sin(\(\[Pi]\ x\)\/180)\) -
0.020992993506120805`\ \(sin(\(\[Pi]\ x\)\/90)\) +
0.0053159262311908435`\ \(sin(\(\[Pi]\ x\)\/60)\) +
0.00230927355334350359`\ \(sin(\(\[Pi]\ x\)\/45)\) + 8.5789715176477177`
\)], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(Show[uv, Plot[{fitu, fittrend}, {x, 0, 360}]]\)], "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.0238095 0.0026455 -8.84583 1.06723 [
[.15608 -0.00034 -6 -9 ]
[.15608 -0.00034 6 0 ]
[.28836 -0.00034 -9 -9 ]
[.28836 -0.00034 9 0 ]
[.42063 -0.00034 -9 -9 ]
[.42063 -0.00034 9 0 ]
[.55291 -0.00034 -9 -9 ]
[.55291 -0.00034 9 0 ]
[.68519 -0.00034 -9 -9 ]
[.68519 -0.00034 9 0 ]
[.81746 -0.00034 -9 -9 ]
[.81746 -0.00034 9 0 ]
[.94974 -0.00034 -9 -9 ]
[.94974 -0.00034 9 0 ]
[.01131 .11888 -18 -4.5 ]
[.01131 .11888 0 4.5 ]
[.01131 .2256 -18 -4.5 ]
[.01131 .2256 0 4.5 ]
[.01131 .33233 -18 -4.5 ]
[.01131 .33233 0 4.5 ]
[.01131 .43905 -18 -4.5 ]
[.01131 .43905 0 4.5 ]
[.01131 .54577 -18 -4.5 ]
[.01131 .54577 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.15608 .01216 m
.15608 .01841 L
s
[(50)] .15608 -0.00034 0 1 Mshowa
.28836 .01216 m
.28836 .01841 L
s
[(100)] .28836 -0.00034 0 1 Mshowa
.42063 .01216 m
.42063 .01841 L
s
[(150)] .42063 -0.00034 0 1 Mshowa
.55291 .01216 m
.55291 .01841 L
s
[(200)] .55291 -0.00034 0 1 Mshowa
.68519 .01216 m
.68519 .01841 L
s
[(250)] .68519 -0.00034 0 1 Mshowa
.81746 .01216 m
.81746 .01841 L
s
[(300)] .81746 -0.00034 0 1 Mshowa
.94974 .01216 m
.94974 .01841 L
s
[(350)] .94974 -0.00034 0 1 Mshowa
.125 Mabswid
.05026 .01216 m
.05026 .01591 L
s
.07672 .01216 m
.07672 .01591 L
s
.10317 .01216 m
.10317 .01591 L
s
.12963 .01216 m
.12963 .01591 L
s
.18254 .01216 m
.18254 .01591 L
s
.20899 .01216 m
.20899 .01591 L
s
.23545 .01216 m
.23545 .01591 L
s
.2619 .01216 m
.2619 .01591 L
s
.31481 .01216 m
.31481 .01591 L
s
.34127 .01216 m
.34127 .01591 L
s
.36772 .01216 m
.36772 .01591 L
s
.39418 .01216 m
.39418 .01591 L
s
.44709 .01216 m
.44709 .01591 L
s
.47354 .01216 m
.47354 .01591 L
s
.5 .01216 m
.5 .01591 L
s
.52646 .01216 m
.52646 .01591 L
s
.57937 .01216 m
.57937 .01591 L
s
.60582 .01216 m
.60582 .01591 L
s
.63228 .01216 m
.63228 .01591 L
s
.65873 .01216 m
.65873 .01591 L
s
.71164 .01216 m
.71164 .01591 L
s
.7381 .01216 m
.7381 .01591 L
s
.76455 .01216 m
.76455 .01591 L
s
.79101 .01216 m
.79101 .01591 L
s
.84392 .01216 m
.84392 .01591 L
s
.87037 .01216 m
.87037 .01591 L
s
.89683 .01216 m
.89683 .01591 L
s
.92328 .01216 m
.92328 .01591 L
s
.97619 .01216 m
.97619 .01591 L
s
.25 Mabswid
0 .01216 m
1 .01216 L
s
.02381 .11888 m
.03006 .11888 L
s
[(8.4)] .01131 .11888 1 0 Mshowa
.02381 .2256 m
.03006 .2256 L
s
[(8.5)] .01131 .2256 1 0 Mshowa
.02381 .33233 m
.03006 .33233 L
s
[(8.6)] .01131 .33233 1 0 Mshowa
.02381 .43905 m
.03006 .43905 L
s
[(8.7)] .01131 .43905 1 0 Mshowa
.02381 .54577 m
.03006 .54577 L
s
[(8.8)] .01131 .54577 1 0 Mshowa
.125 Mabswid
.02381 .0335 m
.02756 .0335 L
s
.02381 .05485 m
.02756 .05485 L
s
.02381 .07619 m
.02756 .07619 L
s
.02381 .09754 m
.02756 .09754 L
s
.02381 .14023 m
.02756 .14023 L
s
.02381 .16157 m
.02756 .16157 L
s
.02381 .18292 m
.02756 .18292 L
s
.02381 .20426 m
.02756 .20426 L
s
.02381 .24695 m
.02756 .24695 L
s
.02381 .26829 m
.02756 .26829 L
s
.02381 .28964 m
.02756 .28964 L
s
.02381 .31098 m
.02756 .31098 L
s
.02381 .35367 m
.02756 .35367 L
s
.02381 .37502 m
.02756 .37502 L
s
.02381 .39636 m
.02756 .39636 L
s
.02381 .41771 m
.02756 .41771 L
s
.02381 .46039 m
.02756 .46039 L
s
.02381 .48174 m
.02756 .48174 L
s
.02381 .50308 m
.02756 .50308 L
s
.02381 .52443 m
.02756 .52443 L
s
.02381 .56712 m
.02756 .56712 L
s
.02381 .58846 m
.02756 .58846 L
s
.02381 .60981 m
.02756 .60981 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02381 .57914 m
.04262 .56241 L
.06244 .53991 L
.10458 .47749 L
.14264 .41003 L
.18314 .33677 L
.22214 .2729 L
.26358 .21514 L
.30351 .16646 L
.34193 .12206 L
.38279 .07679 L
.40311 .05645 L
.42214 .03993 L
.44037 .02734 L
.45061 .02198 L
.45998 .01829 L
.46474 .0169 L
.46736 .01627 L
.46982 .01578 L
.47213 .0154 L
.47462 .01508 L
.47572 .01497 L
.47688 .01488 L
.47788 .01481 L
.47896 .01476 L
.47963 .01474 L
.48035 .01472 L
.48167 .01472 L
.48295 .01473 L
.48414 .01477 L
.48542 .01484 L
.48683 .01495 L
.4883 .0151 L
.48968 .01527 L
.4945 .01611 L
.49721 .01676 L
.49969 .01745 L
.50949 .02122 L
.51861 .0262 L
.52862 .03327 L
.53931 .04267 L
.56066 .06692 L
.58081 .09605 L
.61928 .16571 L
.6602 .2537 L
.6996 .34308 L
.73749 .42448 L
.77783 .4979 L
.81665 .55067 L
.83782 .57151 L
Mistroke
.84756 .57924 L
.85793 .58624 L
.86834 .59202 L
.87777 .59618 L
.88233 .59784 L
.88725 .59936 L
.89156 .60048 L
.89617 .60144 L
.89875 .60188 L
.9011 .60221 L
.90349 .60249 L
.9057 .60269 L
.90695 .60278 L
.90827 .60285 L
.9096 .60291 L
.91036 .60293 L
.91107 .60294 L
.91235 .60296 L
.91352 .60295 L
.9148 .60293 L
.91544 .60291 L
.91615 .60289 L
.91758 .60282 L
.91892 .60274 L
.92143 .60252 L
.92414 .60221 L
.92707 .60178 L
.93236 .60075 L
.93723 .59951 L
.94683 .59623 L
.95579 .59216 L
.97619 .57914 L
Mfstroke
.02381 .59428 m
.06244 .54173 L
.10458 .47456 L
.14415 .40781 L
.18221 .34404 L
.22272 .27897 L
.26171 .22019 L
.30316 .1625 L
.34309 .11263 L
.3815 .07182 L
.40095 .05474 L
.42237 .03942 L
.43215 .03382 L
.44268 .02887 L
.44778 .0269 L
.45262 .0253 L
.45731 .024 L
.46172 .02302 L
.46413 .02258 L
.46674 .02218 L
.46892 .02192 L
.4713 .02169 L
.47264 .0216 L
.47389 .02153 L
.47521 .02148 L
.47595 .02146 L
.47663 .02145 L
.47783 .02145 L
.47914 .02147 L
.48038 .02151 L
.48152 .02156 L
.48257 .02162 L
.48371 .02171 L
.48576 .0219 L
.4882 .02221 L
.49044 .02256 L
.49505 .0235 L
.49991 .02481 L
.50945 .02834 L
.51965 .03355 L
.53802 .04675 L
.55936 .06827 L
.57952 .09452 L
.61798 .1592 L
.6589 .24423 L
.6983 .33416 L
.73619 .41941 L
.77653 .49942 L
.79511 .53012 L
.81535 .55806 L
Mistroke
.82634 .57058 L
.83653 .58042 L
.84619 .58816 L
.85663 .59474 L
.86215 .59747 L
.86723 .59951 L
.87208 .60105 L
.87455 .60169 L
.87719 .60225 L
.8796 .60266 L
.88179 .60294 L
.88285 .60305 L
.88399 .60315 L
.88508 .60322 L
.88608 .60327 L
.88724 .60331 L
.88832 .60332 L
.88952 .60331 L
.8908 .60328 L
.89208 .60321 L
.89272 .60317 L
.89342 .60312 L
.89581 .60288 L
.89836 .60252 L
.90112 .60202 L
.90611 .60079 L
.91098 .59922 L
.91546 .59744 L
.92565 .59229 L
.93643 .58522 L
.95604 .56839 L
.97437 .54856 L
.97619 .54639 L
Mfstroke
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
ImageSize->{288, 177.938},
ImageMargins->{{62, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg NYM1Imb]`ULU>oooojjb`i>GYMcNiEePJ@0006=SW5ADQ;NgdBl_B_ooooogjMSAa/c5^YVDR`0009BD
U:f][B4Q8Kfm_MkNg]gNiUiPJD92@_l0og=cLf=SHooo003ooe5Anl30`820P8200?XC@3_j=7emOFAT
I4];BlS8b>7QhIJFU_l0003o0000oclo?nKVn_GeoHF5TLC4eOogjBm?CfUYJKjn_]?CdiT0I_ooc020
P80006IVc3
SU5lSL?ooc0`UZRXogEeM@00E@00ZP1E001EE@1EZP1Eoc2XW1TIL8b<^5iNVc/kQKno08X[h/VNlT KgDT`;no_m7FjVQ[MJo^k[C^];8R8[b?Sj0Pl=Y`e[R62b:;8V2PX>K>/OoTa;2`/=WIfOn^^LfgWTJ2
];0`H9V9MX:2PYUXKoodohYlJ_oon7k0kRj;EoZ0LP2Z002ZE@2ZZP2Zo`3oE@3oZUD005D0EED0ZUD0
oeEE05EEEEEEZUEEoeFZ05FZEEFZZUFZoeGo05GoEEGoZUGoojX00:X0EJX0ZZX0ojYE0:YEEJYEZZYE
ojZZ0:ZZEJZZZZZZoj[o0:[oEJ[oZZ[oool0EOl0Z_mE0?mEEOmEZ_mEoonZ0?nZEOnZZ_nZooooEOoo
ZYBGY^o_kgalO7no07no?gnoOgno_gnoogoo07oo?gooOgoo_goookl00;l0?kl0Okl0_kl0oklo0;lo
?kloOklo_klookmo0;mo?kmoOkmo_kmookno?knoOknookoo0;oo?kooOkoo_kooool0?ol0Ool0_olo
0?lo?oloOolo_olooomo0?mo?omoOomo_omooono06K=ZY[=jdPmRoGN/m:dS?oG0?nU0:1B
;LeLG=9Y7_o0bmfPgKYEdiTbc4SAc?no?onoOono_onoomP0003H0000f00002L00`4200814P030@80
0P4300813`030@800`4200813P040@800P4300813@040@800`4200813`030@800P4300813`030@80
0`4200811P0002L000D100400@0200030@00010000@100010P000`400@0200030@0000d000T10000
0@0100400P000`40000<00050@0100400P000`400@0200030@0000/000<100400P001@400@010080
00<1000030001@400@01008000<100400P000`40000<00030@01008000D100400@0200030@0000<0
000Y00030@01008000<1000040001040004200030@01008000<100003@000`40000300030@010080
00<100003@001040004200030@01008000<1000030000`40000300030@01008000<100003P000`40
0@0200030@01008000<100003P000`40000200030@01008000<100000`0002L00`401@0100010180
00@100010P000`400@0200030@0000d000@100000`401@010001010000<100400P000`400@020003
0@0000d000<100000`401@01000100l000@100010P000`400@0200030@0000d000@100000`401@01
000100D0000@00030@0001@000D100000@0200030@00010000@100010P000`400@0200030@0000d0
00D100000@0300040@000@d000H10001004200030@01008000<100002P001040004200050@000040
0P000`40000;00060@000@010P000`400@0200030@0000/000@100010P001@400001008000<10000
0`00010000<1000050030@800P4B00810`020@<00P4?00810`030@800P4?00810`020@<00P4>0081
0`030@800P4?00<10P020@<00P4?00<10P030@800P4600002`3<0@40000@00030@00008000<10000
0`000`40000200030@00008000<100000`000`40000200030@00008000<100000`000`4000020003
0@0000<000<100000P000`40000200030@0000<000<100000P000`40000200030@0000<000<10000
2P4300030@00008000<100000`000`40000200030@00008000<100000`000`40000200030@0000<0
00<100000P000`40000200030@0000<000<100000P000`40000300030@00008000<100000P000`40
000300030@00008000<100000P000`400004000040000`40000H00030@0001P000<100005`000`40
000300X10`000`40000500030@0001P000<1000060000`40000H00030@0000T0000@00030@000540
1P4600<100<00@00HP00010000<10000D0030@d00`5R000040020E000P4A0081H@00010000<10000
CP000`40000B00<1G`00010000<10000C0020AL00P5N000040000`40001:00816P020Ed0000@0081
BP020A`00P5L000040000`40001800817P020E/0000@00030@0004L00P4P0081FP00010000<10000
AP020B800P5I000040020DH00P4T00030@0005L0000@00030@0004@00P4V00030@0005H0000@0003
0@0004<00P4W0081E`00010000<10000@P020BT000<10000E@00010000<10000@P000`40000Y0003
0@0005@0000@0081@P020B`000<10000D`00010000<10000@0020Bd000<10000D`00010000<10000
?`020Bl000<10000DP000003004100@000@100000`4200030@0003h00P4`00030@00058000001040
004600@10P020Ch00P4b00030@00054000001040004600030@0100<000<10000?0020C<00P5B0000
104700810`000`40000l00030@0003<000<10000D00000040@000@L00P4300030@0003/000<10000
=0020E4000000`010@0900040@000081>`020CL00P5@000040000`40000i0081>0020E00000@0003
0@0003P00P4j0081C`00010000<10000>0000`40000i0081C`00010000<10000=`020C`00P5>0000
40020CL00P4m0081CP00010000<10000=@020Cl00P5=000040000`40000e00030@0003h00P5=0000
40000`40000d00030@0004000P5<000040020C@00P520081C000010000<10000 40000`40000b00030@0004<00P5;000040000`40000a00030@0004D00P5:000040020C4000<10000
AP020DX0000@00030@0002l00P5900030@0004P0000@00030@0002l000<10000B0020DT0000@0003
0@0002h000<10000BP000`400017000000<00@401000104000030@8000<10000;@000`40001;0081
B00000040@000@L000<100400P020Bd000<10000C@000`400016000000@100012@001040004^0003
0@0004d00P570000104700<10P000`40000[00030@0004l000<10000A@0000040@000@L000<10000
0P000`40000Z00030@0005000P56000000<00@4020030@800P4Z0081D`000`400014000040000`40
000X0081E0000`400014000040000`40000W0081E@020DD0000@00030@0002L00P5F00030@0004<0
000@00819`020EL00P54000040000`40000U0081F@000`400012000040000`40000T00030@0105T0
0P53000040000`40000T0081F`000`400011000040000`40000S0081G0020D80000@008190020E`0
0P52000040000`40000R0081GP000`400010000040000`40000Q00030@0105h00P51000040000`40
000Q0081H0000`40000o000040020B400P5Q0081@000010000<100007`000`400@1Q0081@0000100
00<100007`020F<00P4o000040000`40000N0081I0020Cl000000`010@0400030@0000800P420081
7`020FD00P4n000000@100011`001P4000400Al00P5V0081?P0000040@000@L00P401001004N0003
0@0106L000<10000?00000@11`030@8000<1000070020FP00P4m000000@100011`020@<000<10000
6`020FX000<10000>`000003004100T00`400`010@0L0081JP020C`0000@00030@0001X00P5/0003
0@0003X0000@00030@0001X00P5/0081>`00010000<100006@020Fh000<10000>@0001000P4J0003
0@0006d00P4j000040000`40000H0081L0000`40000h000040000`40000H00030@0006l00P4i0000
40000`40000G00030@00074000<10000=`0001000P4H00030@0007400P4h000040000`40000F0003
0@0007<000<10000=P00010000<100005P000`40001c0081=`00010000<100005@000`40001e0003
0@0003D0000@00030@0001@000<10000MP020CH0000@00815@000`40001g00030@0003@0000@0003
0@0001<000<10000N0020CD0000@00030@0001<000<10000N@000`40000c000000<00@4010000`40
000200050@00004050000`40001j0081=00000040@000@P000@100000P4B0081O@000`40000b0000
00@1000120001@40000101<000<10000O0020C<000040@P000D100000@0B00030@0007h000<10000
<@0000040@000@H000@100010P000`40000?0081P0020C8000000`010@0700@10P020A0000<10000
P0000`40000`000040000`40000>0081PP020C40000@00030@0000h000<10000PP000`40000_0000
40000`40000=0081Q0020C00000@00030@0000`00P6600030@0002h0000@00813@000`4000250081
;`00010000<100002`020HP000<10000;@00010000<100002`000`4000270081;P00010000<10000
2P020HX000<10000;00001000P4;00030@0008X000<10000:`00010000<100002@000`40002;0003
0@0002/0000@00030@0000P00P6>00030@0002X0000@00030@0000P000<10000S@020B/0000@0081
20000`40002?0081:P00010000<100001`000`40002?0081:P00010000<100001P000`40002A0081
:@00010000<100001P000`40002B0081:0000003004100@000@100000P4300030@0000D000<10000
U0020BL000001040004600040@000@800P4500030@0009D00P4P00030@0000@00000104000460004
0@000@8000<100000`020IP00P4N00030@0000D000040@H0104200030@0000800P6J008170000`40
0006000000@100011P001040004200040@000081W0020AX000<100001`000003004100P00P430081
00<00@40W@000`400@0H00030@0000P0000@00050@010040WP000`400@0F00030@0000T0000@0081
00<00@00W`000`400@0D00030@0000X0000@00030@010:80104A00030@0000<00P46000040020JD0
00@100413@020@@00P48000040020JH000<100000P49008110020@X0000@00030@000:H00P420081
1P000`40000200813000010000<10000Z00?0@h0000@00030@000:`00P4G000040020LH0000@0003
0@000 \>"],
ImageRangeCache->{{{0, 215}, {132.438, 0}} -> {-30.3378, 8.25715, 1.39481,
0.00345751}}],

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.0238095 0.0026455 -8.84583 1.06723 [
[.15608 -0.00034 -6 -9 ]
[.15608 -0.00034 6 0 ]
[.28836 -0.00034 -9 -9 ]
[.28836 -0.00034 9 0 ]
[.42063 -0.00034 -9 -9 ]
[.42063 -0.00034 9 0 ]
[.55291 -0.00034 -9 -9 ]
[.55291 -0.00034 9 0 ]
[.68519 -0.00034 -9 -9 ]
[.68519 -0.00034 9 0 ]
[.81746 -0.00034 -9 -9 ]
[.81746 -0.00034 9 0 ]
[.94974 -0.00034 -9 -9 ]
[.94974 -0.00034 9 0 ]
[.01131 .11888 -18 -4.5 ]
[.01131 .11888 0 4.5 ]
[.01131 .2256 -18 -4.5 ]
[.01131 .2256 0 4.5 ]
[.01131 .33233 -18 -4.5 ]
[.01131 .33233 0 4.5 ]
[.01131 .43905 -18 -4.5 ]
[.01131 .43905 0 4.5 ]
[.01131 .54577 -18 -4.5 ]
[.01131 .54577 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.15608 .01216 m
.15608 .01841 L
s
[(50)] .15608 -0.00034 0 1 Mshowa
.28836 .01216 m
.28836 .01841 L
s
[(100)] .28836 -0.00034 0 1 Mshowa
.42063 .01216 m
.42063 .01841 L
s
[(150)] .42063 -0.00034 0 1 Mshowa
.55291 .01216 m
.55291 .01841 L
s
[(200)] .55291 -0.00034 0 1 Mshowa
.68519 .01216 m
.68519 .01841 L
s
[(250)] .68519 -0.00034 0 1 Mshowa
.81746 .01216 m
.81746 .01841 L
s
[(300)] .81746 -0.00034 0 1 Mshowa
.94974 .01216 m
.94974 .01841 L
s
[(350)] .94974 -0.00034 0 1 Mshowa
.125 Mabswid
.05026 .01216 m
.05026 .01591 L
s
.07672 .01216 m
.07672 .01591 L
s
.10317 .01216 m
.10317 .01591 L
s
.12963 .01216 m
.12963 .01591 L
s
.18254 .01216 m
.18254 .01591 L
s
.20899 .01216 m
.20899 .01591 L
s
.23545 .01216 m
.23545 .01591 L
s
.2619 .01216 m
.2619 .01591 L
s
.31481 .01216 m
.31481 .01591 L
s
.34127 .01216 m
.34127 .01591 L
s
.36772 .01216 m
.36772 .01591 L
s
.39418 .01216 m
.39418 .01591 L
s
.44709 .01216 m
.44709 .01591 L
s
.47354 .01216 m
.47354 .01591 L
s
.5 .01216 m
.5 .01591 L
s
.52646 .01216 m
.52646 .01591 L
s
.57937 .01216 m
.57937 .01591 L
s
.60582 .01216 m
.60582 .01591 L
s
.63228 .01216 m
.63228 .01591 L
s
.65873 .01216 m
.65873 .01591 L
s
.71164 .01216 m
.71164 .01591 L
s
.7381 .01216 m
.7381 .01591 L
s
.76455 .01216 m
.76455 .01591 L
s
.79101 .01216 m
.79101 .01591 L
s
.84392 .01216 m
.84392 .01591 L
s
.87037 .01216 m
.87037 .01591 L
s
.89683 .01216 m
.89683 .01591 L
s
.92328 .01216 m
.92328 .01591 L
s
.97619 .01216 m
.97619 .01591 L
s
.25 Mabswid
0 .01216 m
1 .01216 L
s
.02381 .11888 m
.03006 .11888 L
s
[(8.4)] .01131 .11888 1 0 Mshowa
.02381 .2256 m
.03006 .2256 L
s
[(8.5)] .01131 .2256 1 0 Mshowa
.02381 .33233 m
.03006 .33233 L
s
[(8.6)] .01131 .33233 1 0 Mshowa
.02381 .43905 m
.03006 .43905 L
s
[(8.7)] .01131 .43905 1 0 Mshowa
.02381 .54577 m
.03006 .54577 L
s
[(8.8)] .01131 .54577 1 0 Mshowa
.125 Mabswid
.02381 .0335 m
.02756 .0335 L
s
.02381 .05485 m
.02756 .05485 L
s
.02381 .07619 m
.02756 .07619 L
s
.02381 .09754 m
.02756 .09754 L
s
.02381 .14023 m
.02756 .14023 L
s
.02381 .16157 m
.02756 .16157 L
s
.02381 .18292 m
.02756 .18292 L
s
.02381 .20426 m
.02756 .20426 L
s
.02381 .24695 m
.02756 .24695 L
s
.02381 .26829 m
.02756 .26829 L
s
.02381 .28964 m
.02756 .28964 L
s
.02381 .31098 m
.02756 .31098 L
s
.02381 .35367 m
.02756 .35367 L
s
.02381 .37502 m
.02756 .37502 L
s
.02381 .39636 m
.02756 .39636 L
s
.02381 .41771 m
.02756 .41771 L
s
.02381 .46039 m
.02756 .46039 L
s
.02381 .48174 m
.02756 .48174 L
s
.02381 .50308 m
.02756 .50308 L
s
.02381 .52443 m
.02756 .52443 L
s
.02381 .56712 m
.02756 .56712 L
s
.02381 .58846 m
.02756 .58846 L
s
.02381 .60981 m
.02756 .60981 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.008 w
.02381 .59861 Mdot
.03333 .58732 Mdot
.04286 .57496 Mdot
.05238 .56151 Mdot
.0619 .54724 Mdot
.07143 .53208 Mdot
.08095 .51632 Mdot
.09048 .49997 Mdot
.1 .48319 Mdot
.10952 .46615 Mdot
.11905 .44887 Mdot
.12857 .43161 Mdot
.1381 .41432 Mdot
.14762 .39723 Mdot
.15714 .38034 Mdot
.16667 .36375 Mdot
.17619 .34753 Mdot
.18571 .33165 Mdot
.19524 .31624 Mdot
.20476 .30121 Mdot
.21429 .28663 Mdot
.22381 .27246 Mdot
.23333 .25868 Mdot
.24286 .24528 Mdot
.25238 .23222 Mdot
.2619 .21947 Mdot
.27143 .20699 Mdot
.28095 .19475 Mdot
.29048 .18269 Mdot
.3 .17079 Mdot
.30952 .159 Mdot
.31905 .14729 Mdot
.32857 .13571 Mdot
.3381 .12432 Mdot
.34762 .11318 Mdot
.35714 .10234 Mdot
.36667 .09187 Mdot
.37619 .08181 Mdot
.38571 .07226 Mdot
.39524 .06323 Mdot
.40476 .05482 Mdot
.41429 .04707 Mdot
.42381 .04004 Mdot
.43333 .03382 Mdot
.44286 .02841 Mdot
.45238 .02399 Mdot
.4619 .02046 Mdot
.47143 .01804 Mdot
.48095 .01667 Mdot
.49048 .01656 Mdot
.5 .01789 Mdot
.50952 .02063 Mdot
.51905 .02509 Mdot
.52857 .03109 Mdot
.5381 .03889 Mdot
.54762 .04835 Mdot
.55714 .0595 Mdot
.56667 .07236 Mdot
.57619 .08667 Mdot
.58571 .10256 Mdot
.59524 .11961 Mdot
.60476 .13788 Mdot
.61429 .15704 Mdot
.62381 .17693 Mdot
.63333 .19743 Mdot
.64286 .21822 Mdot
.65238 .23932 Mdot
.6619 .26043 Mdot
.67143 .28157 Mdot
.68095 .30258 Mdot
.69048 .32339 Mdot
.7 .34399 Mdot
.70952 .36426 Mdot
.71905 .38419 Mdot
.72857 .4037 Mdot
.7381 .42274 Mdot
.74762 .44124 Mdot
.75714 .45914 Mdot
.76667 .47633 Mdot
.77619 .49279 Mdot
.78571 .50837 Mdot
.79524 .52306 Mdot
.80476 .53671 Mdot
.81429 .54928 Mdot
.82381 .56069 Mdot
.83333 .57083 Mdot
.84286 .57973 Mdot
.85238 .58721 Mdot
.8619 .59335 Mdot
.87143 .59801 Mdot
.88095 .6012 Mdot
.89048 .60295 Mdot
.9 .60313 Mdot
.90952 .60192 Mdot
.91905 .59915 Mdot
.92857 .59501 Mdot
.9381 .58943 Mdot
.94762 .58251 Mdot
.95714 .57435 Mdot
.96667 .56491 Mdot
.5 Mabswid
.02381 .57914 m
.04262 .56241 L
.06244 .53991 L
.10458 .47749 L
.14264 .41003 L
.18314 .33677 L
.22214 .2729 L
.26358 .21514 L
.30351 .16646 L
.34193 .12206 L
.38279 .07679 L
.40311 .05645 L
.42214 .03993 L
.44037 .02734 L
.45061 .02198 L
.45998 .01829 L
.46474 .0169 L
.46736 .01627 L
.46982 .01578 L
.47213 .0154 L
.47462 .01508 L
.47572 .01497 L
.47688 .01488 L
.47788 .01481 L
.47896 .01476 L
.47963 .01474 L
.48035 .01472 L
.48167 .01472 L
.48295 .01473 L
.48414 .01477 L
.48542 .01484 L
.48683 .01495 L
.4883 .0151 L
.48968 .01527 L
.4945 .01611 L
.49721 .01676 L
.49969 .01745 L
.50949 .02122 L
.51861 .0262 L
.52862 .03327 L
.53931 .04267 L
.56066 .06692 L
.58081 .09605 L
.61928 .16571 L
.6602 .2537 L
.6996 .34308 L
.73749 .42448 L
.77783 .4979 L
.81665 .55067 L
.83782 .57151 L
Mistroke
.84756 .57924 L
.85793 .58624 L
.86834 .59202 L
.87777 .59618 L
.88233 .59784 L
.88725 .59936 L
.89156 .60048 L
.89617 .60144 L
.89875 .60188 L
.9011 .60221 L
.90349 .60249 L
.9057 .60269 L
.90695 .60278 L
.90827 .60285 L
.9096 .60291 L
.91036 .60293 L
.91107 .60294 L
.91235 .60296 L
.91352 .60295 L
.9148 .60293 L
.91544 .60291 L
.91615 .60289 L
.91758 .60282 L
.91892 .60274 L
.92143 .60252 L
.92414 .60221 L
.92707 .60178 L
.93236 .60075 L
.93723 .59951 L
.94683 .59623 L
.95579 .59216 L
.97619 .57914 L
Mfstroke
.02381 .59428 m
.06244 .54173 L
.10458 .47456 L
.14415 .40781 L
.18221 .34404 L
.22272 .27897 L
.26171 .22019 L
.30316 .1625 L
.34309 .11263 L
.3815 .07182 L
.40095 .05474 L
.42237 .03942 L
.43215 .03382 L
.44268 .02887 L
.44778 .0269 L
.45262 .0253 L
.45731 .024 L
.46172 .02302 L
.46413 .02258 L
.46674 .02218 L
.46892 .02192 L
.4713 .02169 L
.47264 .0216 L
.47389 .02153 L
.47521 .02148 L
.47595 .02146 L
.47663 .02145 L
.47783 .02145 L
.47914 .02147 L
.48038 .02151 L
.48152 .02156 L
.48257 .02162 L
.48371 .02171 L
.48576 .0219 L
.4882 .02221 L
.49044 .02256 L
.49505 .0235 L
.49991 .02481 L
.50945 .02834 L
.51965 .03355 L
.53802 .04675 L
.55936 .06827 L
.57952 .09452 L
.61798 .1592 L
.6589 .24423 L
.6983 .33416 L
.73619 .41941 L
.77653 .49942 L
.79511 .53012 L
.81535 .55806 L
Mistroke
.82634 .57058 L
.83653 .58042 L
.84619 .58816 L
.85663 .59474 L
.86215 .59747 L
.86723 .59951 L
.87208 .60105 L
.87455 .60169 L
.87719 .60225 L
.8796 .60266 L
.88179 .60294 L
.88285 .60305 L
.88399 .60315 L
.88508 .60322 L
.88608 .60327 L
.88724 .60331 L
.88832 .60332 L
.88952 .60331 L
.8908 .60328 L
.89208 .60321 L
.89272 .60317 L
.89342 .60312 L
.89581 .60288 L
.89836 .60252 L
.90112 .60202 L
.90611 .60079 L
.91098 .59922 L
.91546 .59744 L
.92565 .59229 L
.93643 .58522 L
.95604 .56839 L
.97437 .54856 L
.97619 .54639 L
Mfstroke
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
ImageSize->{896, 553.5},
ImageMargins->{{62, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg NYM1Imb]`ULU>oooojjb`i>GYMcNiEePJ@0006=SW5ADQ;NgdBl_B_ooooogjMSAa/c5^YVDR`0009BD
U:f][B4Q8Kfm_MkNg]gNiUiPJD92@_l0og=cLf=SHooo003ooe5Anl30`820P8200?XC@3_j=7emOFAT
I4];BlS8b>7QhIJFU_l0003o0000oclo?nKVn_GeoHF5TLC4eOogjBm?CfUYJKjn_]?CdiT0I_ooc020
P80006IVc3
SU5lSL?ooc0`UZRXogEeM@00E@00ZP1E001EE@1EZP1Eoc2XW1TIL8b<^5iNVc/kQKno08X[h/VNlT KgDT`;no_m7FjVQ[MJo^k[C^];8R8[b?Sj0Pl=Y`e[R62b:;8V2PX>K>/OoTa;2`/=WIfOn^^LfgWTJ2
];0`H9V9MX:2PYUXKoodohYlJ_oon7k0kRj;EoZ0LP2Z002ZE@2ZZP2Zo`3oE@3oZUD005D0EED0ZUD0
oeEE05EEEEEEZUEEoeFZ05FZEEFZZUFZoeGo05GoEEGoZUGoojX00:X0EJX0ZZX0ojYE0:YEEJYEZZYE
ojZZ0:ZZEJZZZZZZoj[o0:[oEJ[oZZ[oool0EOl0Z_mE0?mEEOmEZ_mEoonZ0?nZEOnZZ_nZooooEOoo
ZYBGY^o_kgalO7no07no?gnoOgno_gnoogoo07oo?gooOgoo_goookl00;l0?kl0Okl0_kl0oklo0;lo
?kloOklo_klookmo0;mo?kmoOkmo_kmookno?knoOknookoo0;oo?kooOkoo_kooool0?ol0Ool0_olo
0?lo?oloOolo_olooomo0?mo?omoOomo_omooono06K=ZY[=jdPmRoGN/m:dS?oG0?nU0:1B
;LeLG=9Y7_o0bmfPgKYEdiTbc4SAc?no?onoOono_onoool0o`2R0000o`3o0:80003o0?l0XP0006`0
0`420081CP030@800P430081B`030@800`420081BP040@800P430081BP040@800`420081B`030@80
0P430081C0030@800`4200817`0006`000D100400@0200030@0004`000@100010P000`400@020003
0@0004T000T100000@0100400P000`40001800050@0100400P000`400@0200030@0004P000<10040
0P001@400@01008000<10000B0001@400@01008000<100400P000`40001900030@01008000D10040
0@0200030@0001`0001^00030@01008000<10000C0001040004200030@01008000<10000B@000`40
000300030@01008000<10000B@001040004200030@01008000<10000B@000`40000300030@010080
00<10000BP000`400@0200030@01008000<10000B`000`40000200030@01008000<10000700006`0
0`401@01000104h000@100010P000`400@0200030@0004T000@100000`401@01000104`000<10040
0P000`400@0200030@0004X000<100000`401@01000104/000@100010P000`400@0200030@0004X0
00@100000`401@01000101h0000H00030@00054000D100000@0200030@0004`000@100010P000`40
0@0200030@0004T000D100000@0300040@000DT000H10001004200030@01008000<10000A`001040
004200050@0000400P000`40001700060@000@010P000`400@0200030@0004P000@100010P001@40
0001008000<10000700001P000<10000D@030@800P5>00810`020@<00P5;00810`030@800P5;0081
0`020@<00P5;00810`030@800P5;00<10P020@<00P5<00<10P030@800P4O000060000`40003o0?l0
Q`0001P000<10000o`3o08L0000H00030@000?l0o`27000060000`40003o0?l0Q`0001P000<10000
o`3o08L0000H00030@000?l0o`2700002@3o0Ol1U@44000060000`40000?00030@0000h000<10000
3`000`40000>00030@0000h000<100003`000`40000>00030@0000l000<100003P000`40000?0003
0@0000h000<100003P000`40000?00030@0000h000<100003`000`40000>00030@0000l000<10000
104300@10`000`40000>00030@0000l000<100003P000`40000?00030@0000h000<100003`000`40
000>00030@0000h000<100003`000`40000>00030@0000l000<100003P000`40000?00030@0000h0
00<100003P000`40000?00030@0000h000<100003`000`40000A000060000`40000?00030@0000h0
00<100003`000`40000>00030@0000h000<100003`000`40000>00030@0000l000<100003P000`40
000?00030@0000h000<100003P000`40000?00030@0000h000<100003`000`40000>00030@0000`0
4@4200@13P000`40000?00030@0000h000<100003`000`40000>00030@0000l000<100003P000`40
000>00030@0000l000<100003P000`40000?00030@0000h000<100003`000`40000>00030@0000h0
00<100003`000`40000>00030@0000l000<100004@0001P000<100003`000`40000>00030@0000l0
00<100003P000`40000>00030@0000l000<100003P000`40000?00030@0000h000<100003`000`40
000>00030@0000h000<100003`000`40000>00030@0000l000<100003P000`40000800P10P040@<0
2P4>00030@0000l000<100003P000`40000?00030@0000h000<100003`000`40000>00030@0000h0
00<100003`000`40000>00030@0000l000<100003P000`40000?00030@0000h000<100003P000`40
000?00030@0000h000<100003`000`40000A000060000`40001D00030@0005D000<10000E0000`40
000F00D10P040@80104300@10P040@80104J00030@0005@000<10000E0000`40001D00030@0002<0
000H00030@000?l06`020@03004100810P040@l02P7o04H0000H00030@000?l060040@80104600<1
4P040Ol0AP0001P000<10000o`0F00H10P0:0@<02@4900@10P040Ol0@00001P000<10000o`0D0081
0P080A@00`4:00030@0100<1o`10000060000`40003o0140104300@16`030@P01@7o0400000H0003
0@000?l04@070B800`4600@1o`10000060000`40003o00l01P4X00<11@020@<0107o03T0000H0003
0@000?l03P000`400@040B/00P45008100<00@400P7o03T0000H00030@000?l02`050C800P4500D1
o`0i000060040Ol02P040CD00P4400@1o`0i000060000`40003o00X01@4g008110000`40003o03P0
000H00030@000?l020020@0300410081>@000`40000200030@0000@1o`0c000060000`40003o00D0
105000030@0000801P7o03<0000H00030@000?l01@040D400P4400@1o`0c000060000`40003o00<0
1P5300040@0000@1o`0c000060000`40003o008000<10040105400030@00008000<10000o`0b0000
60000`40003m00@100<00@00B@020@<000<10000o`0a000060000`40003m00D1C@001P40000100@1
o`0]000060000`40003m00@1C`00104000050Ol0;@0001P000<10000n`060E0000@10000107o02d0
000H00030@000?X000@10001E0000`4000040Ol0;@0001P000<10000n@001040005F00040@000Ol0
;`0001P000<10000m`050EP000@10001o`0^000060040OD01@5J00040@000Ol0;@0001P000<10000
m@000`400@030E/000@10001o`0/000060000`40003d00030@0000@1G0001@40004000@1o`0V0000
60000`40003c00040@000F4000<100001@7o02H0000H00030@000?401@5S00030@0000@1o`0V0000
60000`40003a00@1I@000`400@030Ol09P0001P000<10000k`060FH000<10040o`0X000060000`40
003^00030@0000@1I`000`400@3o02L0000H00030@000>d000D100000@1[00030@010?l09P0001P0
00<10000k0001@40000106d000<10040o`0U000060000`40003[00D1K`020@0300410081o`0P0000
60000`40003Z00D1L0000`400@040Ol0800001P000<10000j@000`400@030G4000<100400`7o0200
000H00030@000>P000<10000105b00D1o`0P000060000`40003W00050@000040MP020Ol08P0001P0
107U00050@000040M`000`400@3o0240000H00030@000>@010400`01001h0081o`0Q000060000`40
003T00D1N`020Ol0800001P000<10000h`050Gd00P7o01l0000H00030@000><01@5m0081o`0O0000
60000`40003R00050@000040O`060Ol06P0001P000<10000h@001@40000108401@7o01X0000H0003
0@000>0000D100000@2200D1o`0J000060000`40003N00@100<00@00P`040Ol06P0001P000<10000
gP050HH000<10000o`0J000060000`40003M00D1R0000`40003o01T0000H00030@000=`000<10040
0`680081o`0J000060000`40003K00050@000040R`000`40003o01P0000H00030@000=X000D10000
0@2=00030@000?l05`0001P0107H00050@000040SP020Ol0600001P000<10000f0040@03004008h0
1@7o01@0000H00030@000=L01P6@00D1o`0D000060000`40003F00030@0100<1TP040Ol0500001P0
00<10000eP000`400@030I80107o01@0000H00030@000=D000D100000@2E00030@000?l0500001P0
00<10000e0001@40000109L000<10000o`0C000060000`40003C00050@000040V@000`40003o0180
000H00030@000=801@6J00030@000?l04P0001P000<10000d@050I`000<10000o`0A000060000`40
003@00030@0100<1W0000`40003o0140000H00030@000 00<10000cP000`40000200030@0009d01P7o00d0000400811000104000030@L000<10000c@000`40
000200030@0009l01@7o00d0000300040@000@H0104700D1b`001@4000010:801@7o00d000030004
0@000@H000<1004020000`40003;00@100<00@00X`040Ol03@0000<01047008120000`40003;00D1
YP000`40003o00d0000300040@000@L00P4800030@000000010020@T000<10000
1P000`40003900030@0100<1Z0000`40003o00`0000H00030@000 60000`40003800050@000040Z`020Ol0300001P000<10000a`001@4000010:`00P7o00`0000H0003
0@000 1@6a00D1o`07000060000`40003300030@0100<1/P040Ol01`0001P000<10000``000`400@030K80
107o00L0000H00030@000<8000D100000@2d00@1o`07000060040L0000D100000@2f00030@010?l0
1`0001P000<10000`0001@4000010;P00P7o00L0000H00030@000;l000D100000@2j0081o`060000
60000`40002n00D1^`020Ol01P0001P000<10000_@000`400@030K`00P7o00D0000H00030@000;d0
00<100400`6l00030@010?l0100001P000<10000_0000`4000040Kd00P7o00@0000H00030@000;/0
00D100000@3000030@010?l00`0001P000<10000^P001@4000010<8000<10040o`02000060000`40
002i00050@000040``040Ol00@0001P000<10000^0050L@0107o0040000H00030@000;P0107500@1
o`01000060000`40002g00D1a@050Ol0000H00030@000;H000<100400`780081o`0001P0106d0005
0@000040bP000`400@3n000060000`40002d00050@000040c0020Oh0000H00030@000;@000@10001
c@000`400@3m000060000`40002c00040@000Ll00P7m000060000`40002b00@1d0000`400@3l0000
60000`40002a00D1d@020O`0000H00030@000;401@7A00030@010?/0000H00030@000;0000<10040
0`7B0081n`0001P000<10000[`001040007D00@1nP0001P000<10000[`000`400@3E00@1nP0001P0
00<10000[P000`400@3F00D1n@0001P000<10000[@000`400@3G00D1n@0001P000<10000[0040MX0
00<10040n00001P000<10000[0040M/00P7h000060040JX01@7K00030@010?L0000H00030@000:X0
00<100400`7L0081m`0001P000<10000ZP020N0000<10040mP0001P000<10000Z@020N800P7f0000
60000`40002X0081h`000`400@3e000060000`40002X0081i0020OD0000H00030@000:H0107T0003
0@010?@0000H00030@000:H0107U0081m00001P000<10000Y@050N@0107c000060000`40002U00D1
i0040O<0000H00030@000:@000<10000i`050O80000H00030@000:<000<10000j0050O80000H0003
0@000:<000<10000j`000`400@3a000060000`40002R00030@000>`000<10040l@0001P0106N00@1
k`020O40000H00030@0009l0107_00030@010?00000H00030@0009l0107`0081l00001P000<10000
WP050O0000<10040k`0001P000<10000WP000`40003c0081k`0001P000<10000W@020OD000<10040
kP0001P000<10000W0020OL00P7^000060000`40002K0081m`040Nd0000H00030@0009T0107g00@1
k@0001P000<10000V@040OL01@7/000060000`40002I00@1m`050N`0000H00030@0009P01@7j0003
0@010>/0000H00030@0009L000<10040oP020N/0000400811000104000030@L000<10000U`020Ol0
00<10040jP0000<000@100011`000`400@0700D1U0020Ol00@000`400@3Z00000`00104000490003
0@0000D000<10000U@000`400@3o008000<10040j@0000<0104700<11`000`40002C00@1o`030003
0@010>T0000300040@000@L000<100001`000`40002C00@1o`0400030@010>P00004008120030@L0
00<10000T`040Ol010000`400@3X000060000`40002B00D1o`0500030@010>L0000H00030@000980
0P7o00P000<10040i`0001P000<10000T@000`400@3o00L01@7V000060000`40002@00030@010?l0
20050NH0000H00030@0009000P7o00T010400`01003T000060000`40002?00030@010?l02@040@03
00400>@0000H00030@0008d0107o00h000<10040i00001P000<10000S@040Ol03P000`400@3T0000
60000`40002=00@1o`0?0081i00001P0106;00D1o`0?00030@010><0000H00030@0008/000<10040
o`0C0081h`0001P000<10000R`000`400@3o01<000<10040hP0001P000<10000RP000`400@3o01D0
0P7R000060000`40002900030@010?l05P000`400@3Q000060000`40002900030@010?l05P000`40
0@3Q000060000`40002600D1o`0H00030@010>00000H00030@0008H0107o01P0107P000060000`40
002600@1o`0H00@1h00001P000<10000QP040Ol060050Ml0000H00030@0008D000<10040o`0J00D1
g`0001P000<10000Q0001040007o01d000<10040gP0001P000<10000Q0000`400@3o01l00P7N0000
60000`40002300030@010?l080000`400@3M000060040H4000@10001o`0P00030@010=d0000H0003
0@0008001@7o02800P7M000060000`40002000@1o`0S00030@010=`0000H00030@000800107o02@0
0P7L000060000`40001o00D1o`0T00030@010=/0000H00030@0007l000<10040o`0W0081f`0001P0
00<10000OP001040007o02L000<10040fP0001P000<10000OP000`400@3o02L0107J000060000`40
001m00030@010?l0:0050MT0000H00030@0007`000@10001o`0X00D1f@0001P000<10000NP050Ol0
:@050MT0000H00030@0007X01@7o02`000<10040f00001P000<10000NP040Ol0;P020MP0000H0003
0@0007X0107o02h000<10040e`0001P0105h00040@000Ol0<0020ML0000H00030@0007T000<10040
o`0a00030@010=H0000H00030@0007P000@10001o`0a00030@010=H0000H00030@0007L000@10001
o`0c00030@010=D0000H00030@0007L000<10040o`0d00030@010=D0000H00030@0007H000@10001
o`0e0081e@0001P000<10000L`040@0300400?l0=@000`400@3D000060000`40001c00@100<00@00
o`0d00@1e00001P000<10000L`050Ol0=P050M<0000H00030@0007<0107o03L01@7C000060000`40
001c00040@000Ol0=`040@0300400=40000H00030@00078000@10001o`0k00030@010=80000H0003
0@00078000@10001o`0l00030@010=40000H00030@00074000@10001o`0m00030@010=40000H00@1
L0000`400@3o03l00P7A000060000`40001`00040@000Ol0?`000`400@3@000060000`40001]00@1
00<00@00o`100081d00001P000<10000K@050Ol0@P000`400@3?000060000`40001]00D1o`130081
c`0001P000<10000K@040Ol0A0000`400@3>000060000`40001]00040@000Ol0A0000`400@3>0000
60000`40001/00040@000Ol0A0040Lh0000H00030@0006`000<10040o`1500D1c@0001P000<10000
J`001040007o04D01@7=000060000`40001Z00040@000Ol0AP040@0300400 00@10001o`1:0081c00001P000<10000I`040@0300400?l0BP000`400@3;000060000`40001W00D1
o`1<00030@010 1`001040004600030@0006L0107o04h000<10040bP0000<000@100011`020@03004000D000<10000
I`001040007o04l00P7:00000`040@L00`4700030@0006H000@10001o`1@00030@010 0@000@L00P4800030@0006D000@10001o`1B0081b@0000@00P4900<11P000`40001U00040@000Ol0
DP000`400@38000060000`40001T00040@000Ol0D`040LL0000H00030@0006@000@10001o`1C00@1
a`0001P000<10000H@040@0300400?l0D`040LL0000H00030@0006401@7o05D01@76000060000`40
001Q00D1o`1G00030@010 F@000`400@35000060000`40001Q00030@010?l0F`020LD0000H00@1G`000`400@3o05`000<10040
a00001P000<10000H0000`400@3o05d00P74000060000`40001O00030@010?l0GP000`400@330000
60000`40001N00040@000Ol0GP000`400@33000060000`40001N00030@010?l0H0020L<0000H0003
0@0005X010400`01003o06001071000060000`40001J00@100<00@00o`1P00@1`@0001P000<10000
FP050Ol0HP040L40000H00030@0005X01@7o06801071000060000`40001K00030@010?l0I@000`40
0@30000060000`40001K0081o`1W0081`00001P000<10000FP000`400@3o06L000<10040_`0001P0
00<10000FP020Ol0J0000`400@2o000060000`40001I00030@010?l0J@020Kl0000H00@1E`000`40
0@3o06X000<10040_P0001P000<10000F0000`400@3o06/00P6n000060000`40001D00@100<00@00
o`1[00030@010;d0000H00030@0005@01@7o06h00P6m000060000`40001D00D1o`1^00030@010;`0
000H00030@0005@0107o06l0106k000060000`40001E00030@010?l0K`040K/0000H00030@0005D0
0P7o0700106k000060000`40001D0081o`1a00@1^`0001P000<10000E0020Ol0L`000`400@2j0000
60000`40001C0081o`1e0081^P0001P000<10000D`020Ol0M@000`400@2i000060000`40001B0081
o`1g0081^@0001P000<10000CP050Ol0N0000`400@2h000060040Dd01@7o07T00P6h000060000`40
001>00@1o`1j0081^00001P000<10000CP040Ol0NP000`400@2g000060000`40001?0081o`1l00@1
]@0001P000<10000C`000`40003o07/0106e000060000`40001>0081o`1m00@1]@0001P000<10000
CP000`40003o07`0106e000060000`40001=0081o`200081]@0001P000<10000C@000`40003o07l0
0P6e000060000`40001<00030@000?l0P@020K@0000H00030@0004L01P7o08<00P6d000060000`40
001700D1o`2400030@010;<0000H00030@0004L01@7o08D00P6c000060000`40001700@1o`260003
0@010;80000H00030@0004T000<10000o`260081/P0001P0105800030@000?l0QP000`400@2a0000
60000`40001800030@000?l0R0050Jh0000H00030@0004P000<10000o`2800D1[P0001P000<10000
A`000`40003o08X0106^000060000`4000160081o`2<00@1[P0001P000<10000AP000`40003o08`0
0P6_000060000`40001500030@000?l0S@000`400@2^000060000`40001100D1o`2@0081[P0001P0
00<10000@@040Ol0T@000`400@2]000060000`40001100@1o`2B0081[@0001P000<10000@@040Ol0
TP000`400@2/000060000`4000120081o`2D0081[00001P000<10000@P000`40003o09@00P6[0000
10020@@000<100000P000`40000600030@00044000<10000o`2E00D1Z00000<000@1000120000`40
000600D1?`000`40003o09H0106X00000`001040004800030@0000H000<10000@0000`40003o09L0
106X00000`040@P000<100001P000`40000o0081o`2I00@1Z00000<000@100011P00104000470003
0@0003l000<10000o`2I0081Z@0000@00P4700@11`000`40000k00D1o`2L0081Z00001P000<10000
>`040Ol0W@020JP0000H00030@0003/0107o09h00P6W000060000`40000k00@1o`2O00030@000:D0
000H00030@0003`000<10000o`2O0081YP0001P000<10000>`020Ol0XP000`40002T000060000`40
000k00030@000?l0X@020JD0000H00030@0003X00P7o0:@0106R000060000`40000j00030@000?l0
X`040J80000H00030@0003T00P7o0:D0106R000060040CL00P7o0:H0106R000060000`40000h0081
o`2X00030@000:40000H00030@0003D0107o0:X000<10000X00001P000<10000=@040Ol0ZP000`40
002P000060000`40000e00@1o`2[00030@0009l0000H00030@0003D0107o0:/000<10000W`0001P0
00<10000=@020Ol0[P000`40002N000060000`40000d0081o`2_00030@0009h0000H00030@0003@0
0P7o0;001@6K000060000`40000c0081o`2a00D1V`0001P000<10000 60000`40000b0081o`2c00@1V`0001P000<10000<@020Ol0]@000`40002K000060000`40000^00D1
o`2e0081W00001P0104]00@1o`2g00030@0009X0000H00030@0002h0107o0;L00P6K000060000`40
000^00@1o`2h0081VP0001P000<10000;P020Ol0^P020IX0000H00030@0002d00P7o0;`00P6I0000
60000`40000]0081o`2l00H1U@0001P000<10000;0020Ol0_P050ID0000H00030@0002/00P7o0;l0
1@6E000060000`40000[00030@000?l0_`040ID0000H00030@0002X00P7o0<400P6G000060000`40
000X00@1o`320081UP0001P000<10000:0040Ol0`P000`400@2E000060000`40000X00@1o`330081
U@0001P000<10000:0040Ol0``000`400@2D000060040BH000<10000o`3600030@0109<0000H0003
0@0002H00P7o0 0@0002D000<10000o`3900030@0100<1S`0001P000<1000090020Ol0c0050Hl0000H00030@0002@0
00<10000o`3<00040@000Hl0000H00030@0002<000<10000o`3=00040@000Hl0000H00030@000280
107o0 00D100000@2<000060000`40000Q00D1o`3?00050@000040S00001P000<1000080000`40003o0=<0
00<100001069000060000`40000O00030@000?l0e@000`400@030HT0000H00030@0001l000<10000
o`3E00030@0100<1R@0001P0104M00030@000?l0e`050HT0000H00030@0001d000<10000o`3H0003
0@00008000<10000QP0001P000<1000070020Ol0f`000`40000200030@0008D0000H00030@0001`0
107o0=T000<100000`000`400024000060000`40000K00D1o`3J00030@00008000<10000Q00001P0
00<100006P060Ol0f`000`40000200030@0008<0000H00030@0001X000<100400`7o0=`000@10000
1062000060000`40000I0081o`3Q00040@0000@1PP0001P000<1000060020Ol0h`000`4000040H80
000H00030@0001P000<10000o`3S00030@0100<1PP0001P000<100005`020Ol0iP000`4000020003
0@0007l0000H00030@0001H00P7o0>L000<100000`000`40001n000060000`40000E0081o`3Y0003
0@00008000<10000OP0000@00P4400040@00008120000`40000D00D1o`3X00030@00008000<10000
O@0000<000@100011P001040004700D14P050Ol0j@00104000040FP000<100004@0000<000@10001
1P001040004700030@0001<01P7o0>X000<10000105X00030@000140000300@11P040@L000<10000
4P020@0300410081o`3Z00030@0000@1I`000`40000B00000`001040004600040@000@L000<10000
4@000`400@3o0?0000<100400`5V00030@0001<00004008120020@P000<1000040000`400@3o0?80
00<100000P000`40001R00030@0001@0000H00030@0000l000<10040o`3d00030@00008000<10000
H0000`40000E000060000`40000>00030@010?l0m@000`40000300030@0005h000<100005P0001P0
00<100003@001040007o0?H000<100000`000`40001L00030@0001L0000H00030@0000d000<10040
0`7o0?D000@10000105K00030@0001P0000H00030@0000`000<10040107o0?H000<10000105J0003
0@0001T0000H00030@0000/000@10040107o0?L000<10040105H00030@0001X0000H00030@0000X0
00D1000100040Ol0n0050@03004005D000<100400`4H000060000`40000900040@000Ol0o`000`40
000300030@00058000<10000104H000060000`40000800040@000Ol0o`0100030@0000@000<10000
D000104000040AP0000H00@11@020@8000<10000o`3o004000<1000010000`40001>00030@000080
104H000060000`40000500030@00008000<10000o`3o008000@10000105>00030@0001l0000H0003
0@0000@000<100000P000`40003o0?l010000`4000050D`000<10000800001P000<100000`000`40
000200D1o`3o00@000<100400`400`01001900030@0100<17P0001P000<100000P000`4000020003
0@0100<1o`3o00D01@4200030@0004H000<10000104N000060000`4000020@D000<100400`7o0?l0
1P000`4000040081A@00104000040Ah0000H00030@0100H000<10000107o0?l01`000`40000300@1
@@020@@0104N000060020@H000<10000o`3o00d000<100000P040D0000<100009P0001P000<10000
10000`40003o0?l03`00104000050Ch000<100400`4@00030@000140000H00030@0000@000<10000
o`3o010000<1000010400`010@0k00030@0000@13P020A@0000H00030@0000<000<10000o`3o0180
00<100001P000`40000g00040@0000@130020AH0000H00030@000080107o0?l04`020@D0104f0003
0@000080104:0081600001P000@100001@7o0?l05@000`40000200D1=0000`40000@00030@0001P0
000H00040@0000D1o`3o01H000@1000010400`010@0`00H13@020A/0000H00@100<00@400P7o0?l0
5`000`4000040@<00P4/00810P040@/00P4M000060000`400@3o0?l07P020@H01@4Y00030@000080
104900817`0001P00P7o0?l08@020@@0104010010@4T00@10`040@L00P4Q000060020Ol0o`0S0081
0P040@@00P4P00H130020B<0000H00030@000?l0o`0T00H10`050A`00P4200@12P020BD0000G00@1
o`3o02H00P4500@100<00@4060040@80104800819`0001L0107o0?l0:0020@<0104300<14`060@/0
0`4Y00005`040Ol0o`0Z00L10P070@`0104200@120030B`0000G00@1o`3o02d00`4300@10P040@80
2`4200@110040Bl0000H00030@000?l0o`0`00L10P0A0@80204c000060000`40003o0?l0<`0@0@<0
1P4k000060000`40003o0?l0>@040@801054000060000`40003o0?l0Q`0001P000<10000o`3o08L0
000H00@1o`3o08H0000H00030@000?l0o`27000060000`40003o0?l0Q`0001P000<10000o`3o08L0
000H00030@000?l0o`27000060000`40003o0?l0Q`000001\
\>"],
ImageRangeCache->{{{0, 671}, {414.125, 0}} -> {-14.2408, 8.27867, 0.43034,
0.00106675}}],

Cell[BoxData[
FormBox[
TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell[BoxData[""], "Input"],

Cell[BoxData[
\(\(u = Table[{fitu[x]}, {x, 0, 360, 3.6}]; \)\)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
\(u[\([2]\)] // StandardForm\)], "Input"],

Cell[BoxData[
\({8.82386505638625884`[3.60000000000000008`]}\)], "Output"]
}, Open ]],

Cell[BoxData[
\(\(Do\ [Append[u, fitu[x]], {x, 0, 360, 3.6}]\n\t\t\t\)\)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
\(u\)], "Input"],

Cell[BoxData[
\(TraditionalForm\`{}\)], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(vv2\)], "Input"],

Cell[BoxData[
\(TraditionalForm\`459.`8.3814\)], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(sumParticles\)], "Input"],

Cell[BoxData[
\(TraditionalForm\`1.72950527976080792`*^18\)], "Output"]
}, Open ]],

Cell[BoxData[
\(\(ha = 500; \)\)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
\({vv2, sumParticles, a, period}\)], "Input"],

Cell[BoxData[
\(TraditionalForm
\`{449.`8.3718, \(-1.99317715560681172`*^18\), 6778.14000000000049`,
5553.39508601091225`}\)], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(5408.92*7611.24*100*7.0714*10^8\)], "Input"],

Cell[BoxData[
\(TraditionalForm\`2.91119555027421128`*^18\)], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(\((5408.92*7611.24*100*7.0714*10^8)\) - 1.99317715560681172*^18\)],
"Input"],

Cell[BoxData[
\(TraditionalForm\`9.18018394667399206`*^17\)], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(allResults // TableForm\)], "Input"],

Cell[BoxData[
FormBox[
TagBox[GridBox[{
{"0",
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["304.388552708970561`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7698.36606638279885`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7.07142585791381161`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.84950699226773629`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["3.60000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["55.7846047811140088`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["305.099667321380341`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7698.39336379970262`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["6.90133088808175632`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.83893285039150988`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["7.20000000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["106.345938228342506`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["305.909091980394798`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7698.47514774056929`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["6.71969521208906694`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.82734957503154049`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["10.8000000000000007`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["166.278198370947682`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["306.80573763769825`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7698.61109371250051`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["6.52746823389000052`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.81474476699366249`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["14.3999999999999994`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["214.63260714643999`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["307.778234458856791`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7698.80066234763127`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["6.32953157677247535`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.8013715708150837`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["18.`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["274.389820657195304`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["308.815101233248245`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7699.04310157701843`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["6.1258851269211636`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.78716884862268976`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["21.6000000000000014`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["325.285258010567934`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["309.904913160966311`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7699.33744966106825`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["5.9210496667145307`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.77239870402906696`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["25.2000000000000046`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["380.685920203960037`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["311.036465303443021`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7699.68253906351396`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["5.71582462243860955`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.75707889494824698`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["28.8000000000000042`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["436.885181767214092`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["312.198929016622983`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7700.07700115242688`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["5.51258984773960936`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.7413556809447428`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["32.4000000000000065`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["487.166605965920052`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["313.381998770494663`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7700.51927170819272`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["5.31366627456004803`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.72539427501436293`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["36.0000000000000053`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["547.285453494499307`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["314.576026898507743`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7701.00759721502647`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["5.11917278789100116`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.70919978857762444`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["39.6000000000000085`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["595.703342421582693`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["315.772144014323208`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7701.54004190931829`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["4.93205422668182702`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.69302784290731622`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["43.2000000000000117`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["655.296873121465051`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["316.962363079199338`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7702.11449555491789`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["4.75147457735643374`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.67682840992538118`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["46.8000000000000149`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["706.577164718025407`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["318.139665397181481`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7702.72868191255088`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["4.5794736251995447`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.66081556210676417`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["50.4000000000000092`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["761.623443253247423`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["319.298067151032238`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7703.3801678676621`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["4.41563021992601179`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.64499269692907112`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["54.0000000000000124`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["818.262361750878497`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["320.432665461764409`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7704.06637317837983`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["4.26029106823410863`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.62943927164018553`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["57.6000000000000156`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["868.314564640879638`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["321.539663349878557`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7704.78458080280415`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["4.11381453318897083`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.61424470811021869`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["61.2000000000000188`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["928.62500791924738`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["322.616373386551469`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7705.53194776259964`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["3.97528031806609192`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.59936775847598333`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["64.8000000000000131`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["977.162986042509018`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["323.661200237464985`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7706.30551649775874`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["3.8452568346879957`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.58492535276231016`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["68.4000000000000074`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["1036.59748253571182`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["324.673602709625797`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7707.10222666561683`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["3.72255371544990421`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.57084097322211135`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["72.0000000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["1088.30333895714769`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["325.654036301859406`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7707.91892733554551`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["3.60728241200735189`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.55718014430760298`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["75.599999999999996`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["1143.01728232890553`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["326.603877622507798`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7708.75238952935681`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["3.49864216414957152`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.54389952576888767`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["79.1999999999999904`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["1200.10897684108153`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["327.52533236475303`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7709.59931905627104`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["3.39615594402009168`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.530987623878298`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["82.7999999999999758`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["1249.97304660720276`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["328.42132881335786`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7710.45636959036784`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["3.29942215492155099`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.51843788627085451`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["86.3999999999999701`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["1310.46788738946107`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["329.29539909106098`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7711.32015593772202`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["3.20770970661086085`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.50619505832734468`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["89.9999999999999644`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["1359.17001883890642`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["330.151550534837934`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7712.18726743990146`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["3.12071860119717303`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.49425460959547606`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["93.5999999999999587`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["1418.43823025108628`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["330.994129719570073`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7713.05428146029026`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["3.03780738279279427`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.4825602332390062`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["97.1999999999999531`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["1470.59524964859722`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["331.82768172015038`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7713.91777689959656`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.95860930942083442`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.47108761944751087`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["100.799999999999956`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["1524.98670155449822`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["332.656807223768691`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7714.77434768712999`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.88265980173648195`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.459793391973216`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["104.399999999999937`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["1582.52806839606607`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["333.486020075943079`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7715.62061619476668`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.80957258783290608`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.44864025696412568`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["107.99999999999994`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["1632.23135498518416`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["334.31960777080163`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7716.45324652114616`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.73899297845446865`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.43759091891975643`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["111.599999999999921`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["1692.8876143256395`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["335.161497283690579`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7717.26895759440179`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.67067467944636893`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.42662098891015887`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["115.199999999999924`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["1741.78197368711877`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["336.015128498008408`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7718.06453604273201`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.60477197727982545`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.41576971099695825`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["118.799999999999927`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["1800.86191239001678`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["336.88333730423623`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7718.83684878325482`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.54153438304857193`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.40509598941438973`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["122.399999999999908`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["1853.47798273518762`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["337.76825025309427`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7719.58285528095267`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.48115079432408069`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.39465315973884607`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["125.999999999999912`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["1907.54245506230617`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["338.671192432066181`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7720.29961943099873`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.42380649689671523`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.38449794524489355`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["129.599999999999893`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["1965.5125088218373`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["339.592610009861317`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7720.98432101940357`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.36967698276360971`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.37468915016023807`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["133.199999999999896`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2015.06724530453995`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["340.532008660771712`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7721.63426671880426`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.31882406254163209`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.36526779841549661`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["136.799999999999899`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2075.8454375318065`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["341.487908843339038`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7722.24690057803719`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.2715223239424338`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.35631700930709264`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["140.399999999999884`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2124.94358336459665`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["342.457818667827273`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7722.81981396637995`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.22767844049054541`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.34785250176235571`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["143.999999999999879`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2183.79865901593817`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["343.438224846159778`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7723.35075493536926`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.18764692391126036`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.33997723019774106`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["147.599999999999864`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2236.86439320588092`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["344.424601977078026`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7723.83763696357483`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.15134084079014353`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.33270922189271168`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["151.199999999999867`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2290.58399354236597`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["345.411440178876549`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7724.27854705199923`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.11896362983757935`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.32612350248880161`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["154.799999999999871`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2348.94530413192637`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["346.392290842261862`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7724.67175314037035`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.09073690636566356`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.32029938561421289`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["158.399999999999856`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2398.35032515990542`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["347.359830036611105`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7725.01571081709226`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.06647435449177629`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.31523001993864596`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["161.99999999999985`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2459.19683668926314`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["348.305938864444186`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7725.30906929836724`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.04683567001086919`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.31108297677472585`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["165.599999999999836`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2508.49637901573974`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["349.221799821778366`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7725.55067665470396`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.03133052489049559`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.30778059472783603`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["169.199999999999839`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2567.07859446383857`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["350.098007987022352`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7725.73958426577256`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.02072910882809075`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.3055080975695219`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["172.799999999999842`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2620.57080325032343`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["350.924695630211314`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7725.87505048749267`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.01478587729479041`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.30422889799546126`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["176.399999999999828`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2673.91813386187715`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["351.691668609741991`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7725.95654351802529`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.01429428931107779`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.30412292147430619`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["179.999999999999822`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2732.62118720078595`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["352.388552708970559`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7725.9837434523586`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.02009251758564767`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.30537126001930481`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["183.599999999999816`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2781.86648309428452`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["353.00494786394756`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7725.95654351802529`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.03207111673724805`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.30793890295543313`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["187.19999999999981`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2842.71870343806565`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["353.530588050884952`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7725.87505048749267`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.05172443249014113`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.31211903017978137`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["190.799999999999805`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2892.20852360789226`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["353.955504443498281`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7725.73958426577256`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.07843355939361629`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.31773614611434375`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["194.399999999999799`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2950.46420067861969`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["354.270189321166961`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7725.55067665470396`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.11370774970941344`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.32504493970623649`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["197.999999999999793`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["3004.35178369808175`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["354.465758115286888`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7725.30906929836724`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.15730483941045214`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.3339115177124885`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["201.599999999999779`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["3057.29610539297436`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["354.534106928625991`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7725.01571081709226`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.20981466814814586`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.3443558519766583`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["205.199999999999782`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["3116.28579621102153`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["354.468062855629773`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7724.67175314037035`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.27202428744569573`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.35641296957739143`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["208.799999999999785`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["3165.35903003099194`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["354.26152447519783`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7724.27854705199923`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.34322483520497915`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.3698139616674485`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["212.399999999999788`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["3226.15228260678454`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["353.909589983637484`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7723.83763696357483`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.42495514460377936`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.38470370968829037`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["215.999999999999747`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["3275.81937920667831`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["353.40867058614549`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7723.35075493536926`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.51581099908864569`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.40067801152044246`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["219.59999999999975`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["3333.6963163446045`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["352.756586969672758`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7722.81981396637995`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.61696059255481339`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.41779718287494027`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["223.199999999999754`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["3387.94740765593482`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["351.952646936131685`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7722.24690057803719`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.7274262164288805`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.43575301068797855`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["226.799999999999757`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["3440.46184394303278`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["350.997702578531933`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7721.63426671880426`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.84700580872724362`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.45438835323603576`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["230.39999999999976`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["3499.68482032695016`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["349.894185727797779`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7720.98432101940357`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["2.97578717296253447`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.47360186742721488`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["233.999999999999719`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["3548.57847902154688`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["348.646120776748835`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7720.29961943099873`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["3.11228976481635388`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.49308002450093901`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["237.599999999999722`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["3609.25337877635765`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["347.259114391310541`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7719.58285528095267`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["3.25726843688655787`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.51285355096727869`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["241.199999999999725`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["3659.08993132376414`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["345.740322037000646`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7718.83684878325482`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["3.40905159209736874`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.53263357382896359`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["244.799999999999728`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["3716.54455455596188`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["344.098391670282577`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7718.06453604273201`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["3.56811209885066427`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.55243849008399337`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["248.399999999999732`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["3771.13346237030233`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["342.343385358810348`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7717.26895759440179`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["3.73355845016332565`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.57212295474950103`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["251.99999999999969`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["3823.2017686768053`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["340.4866799907313`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7716.45324652114616`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["3.90506737582622989`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.59162853134958481`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["255.599999999999694`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["3882.61314513762112`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["338.540848601597677`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7715.62061619476668`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["4.08248955492228127`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.61092508226469455`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["259.199999999999697`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["3931.33084241519412`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["336.519524178950613`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7714.77434768712999`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["4.26499336883151247`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.62991836026740521`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["262.799999999999744`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["3991.83960433832538`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["334.437248092094696`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7713.91777689959656`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["4.45239309947795369`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.64859350099004231`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["266.399999999999748`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["4041.84879481328085`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["332.309305532507082`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7713.05428146029026`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["4.64382964840240841`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.66687627994772213`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["269.999999999999795`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["4098.85186353452724`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["330.151550534837046`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7712.18726743990146`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["4.83855038248474933`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.68471526759776857`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["273.599999999999798`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["4153.76439545111342`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["327.980223278123972`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7711.32015593772202`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["5.03557875884061711`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.70204939292853474`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["277.199999999999802`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["4205.38592114887865`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["325.811762441411678`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7710.45636959036784`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["5.23383557652656694`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.7188200749471818`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["280.79999999999984`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["4264.95403041346854`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["323.66261540957204`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7709.59931905627104`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["5.43163631707183203`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.73493068344172307`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["284.399999999999852`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["4313.51468182475805`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["321.549049096853201`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7708.75238952935681`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["5.62805133793494327`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.75035805032634783`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["287.9999999999999`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["4373.82515509970826`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["319.486964081929736`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7707.91892733554551`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["5.82043207672077933`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.7649552254695493`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["291.599999999999894`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["4424.02458403612541`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["317.491714634506028`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7707.10222666561683`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["6.00786773535406393`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.77872036300440505`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["295.199999999999906`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["4480.56435367771221`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["315.577937065190772`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7706.30551649775874`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["6.18743204220656473`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.79151044202537867`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["298.799999999999954`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["4535.80050062034523`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["313.759388653787052`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7705.53194776259964`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["6.35743770544354802`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.80328211335192634`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["302.400000000000002`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["4586.99239222473487`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["312.048799211661398`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7704.78458080280415`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["6.5160150697327408`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.81398208004012495`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["306.000000000000005`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["4646.70070221220221`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["310.457737117081711`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7704.06637317837983`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["6.66004930186444443`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.82347744410249568`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["309.600000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["4695.13978176645885`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["308.996491433095821`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7703.3801678676621`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["6.78922943054833183`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.83182048517129913`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["313.200000000000056`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["4755.23650237432526`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["307.673971479421215`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7702.72868191255088`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["6.89961109903285585`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.83882461214247783`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["316.800000000000059`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["4805.65858004455748`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["306.497624986405758`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7702.11449555491789`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["6.9915935682697512`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.84457617417610997`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["320.400000000000062`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["4861.74088979469765`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["305.473375712476791`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7701.54004190931829`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7.06224129974921499`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.84894255227539971`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["324.00000000000011`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["4917.31442652469041`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["304.605581158522031`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7701.00759721502647`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7.11109896994811929`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.85193672305079104`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["327.600000000000113`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["4968.11072021984845`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["303.897010763934272`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7700.51927170819272`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7.13794704065409213`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.85357332142336517`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["331.200000000000205`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["5027.9566538393432`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["303.348844720301702`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7700.07700115242688`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7.14079396119445597`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.85374650222373382`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["334.800000000000164`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["5076.32436059362124`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["302.960693290076044`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7699.68253906351396`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7.12216108374667555`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.85261179199916803`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["338.400000000000167`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["5136.20653874208876`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["302.730636268952357`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7699.33744966106825`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7.07966956257376001`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.85001298784516166`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["342.000000000000259`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["5186.89585660313934`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["302.655281982406432`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7699.04310157701843`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7.01673694387613977`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.84613519521707303`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["345.600000000000218`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["5242.54123293784068`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["302.729844959468241`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7698.80066234763127`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["6.93279407106579803`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.84090830028127072`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["349.20000000000031`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["5298.4764103941`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["302.948241181222321`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7698.61109371250051`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["6.82997267549218811`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.83441896621349265`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["352.800000000000313`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["5348.92427147923932`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["303.303199559722092`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7698.47514774056929`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["6.71082197157583237`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.82677571776312852`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["356.400000000000272`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["5408.91526560301016`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["303.786388067174817`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["7698.39336379970262`",
StyleBoxAutoDelete->True,
PrintPrecision->6],
StyleBox["6.57553870453355404`*^8",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.81793133842757903`",
StyleBoxAutoDelete->True,
PrintPrecision->5]}
},
RowSpacings->1,
ColumnSpacings->3,
RowAlignments->Baseline,
ColumnAlignments->{Left}],
(TableForm[ #]&)], TraditionalForm]], "Output"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
\(result\)], "Input"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{
StyleBox["356.400000000000272`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["5622.25476760317732`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",",
StyleBox["498.827988493298057`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",",
StyleBox["7610.54895364184869`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "3.04014378133413387`*^7", ",",
StyleBox["7.4828941237282871`",
StyleBoxAutoDelete->True,
PrintPrecision->5]}], "}"}], TraditionalForm]], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(\(Out[333] : \)\)], "Input"],

Cell[BoxData[
FormBox[
RowBox[{
\(Syntax::"tsntxi"\), \( : \ \),
"\<\"\\\"\\!\\(TraditionalForm\\`\\(\\(Out[333]\\) :\\)\\)\\\" is \
incomplete; more input is needed.\\!\\(TraditionalForm\\`\\\"\\\"\\)\"\>"}],
TraditionalForm]], "Message"],

Cell[BoxData[
StyleBox[
ErrorBox[\(Out[333] : \)],
ShowStringCharacters->True]], "Message"]
}, Open ]],

Cell[BoxData[""], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
\(outputRecord\)], "Input"],

Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{"1969", ",", "1", ",", "20", ",",
StyleBox["19.1799999999999997`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["498.800000000000043`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["504.300000000000014`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",", "0.`", ",", "0.`", ",",
StyleBox["31.2999999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "136", ",", "155", ",",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4], ",",
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], ",", "\<\"UARS\"\>", ",",
"5678.66270116220572`", ",", "1.06257260702545019`*^17", ",",
StyleBox["7.01701515842413137`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["7.6684637142776415`",
StyleBoxAutoDelete->True,
PrintPrecision->5], ",",
StyleBox["56.9238159736450999`",
StyleBoxAutoDelete->True,
PrintPrecision->6], ",", "56.1646597532976521`"}], "}"}],
TraditionalForm]], "Output"]
}, Open ]],

Cell[BoxData[
\(outputRecord >> test2\)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
\(WriteString[test3, outputRecord]\)], "Input"],

Cell[BoxData[
FormBox[
RowBox[{
\(General::"strml"\), \( : \ \),
"\<\"\\!\\(TraditionalForm\\`test3\\) is not a string, stream, or \
list of strings and streams.\"\>"}], TraditionalForm]], "Message"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(allData = {\n
\t\t{1969, \ 1, \ 20, \ 19.17999999999999, \ 498.8, \ 504.3, \ 0. , \
0. , \ 31.29999999999999, \ \n\ \ 136, \ 155, \ 138.5, \ 2.35, \
"\", \ 5678.662701162205, \ 1.06257260702545*^17, \ \n\ \
7.017015158424131, \ 7.668463714277641, \ 56.92381597364509, \
56.16465975329765},
\n{1969, \ 1, \ 20, \ 19.17999999999999, \ 1411.999999999999, \
1415. , \ 0. , \ 0. , \ 52. , \ 136, \ \n\ \ 155, \ 138.5, \ 2.35,
\ "\", \ 6844.41110351692, \ 7.808111981796888*^11, \
\n\ \ 0.7674771752313312, \ 2.786543583547284, \ 68.52374536305795,
\ 68.08306903066022},
\n{1969, \ 1, \ 20, \ 19.17999999999999, \ 775.9999999999999, \
779. , \ 0. , \ 0. , \ 86.4, \ 136, \ \n\ \ 155, \ 138.5, \ 2.35, \
"\", \ 6023.729955031019, \ 1.42612425928195*^15, \ \n
\ \ 4.996890172780602, \ 5.900830201492513, \ 60.31361469539743, \
59.89130648152058},
\n{1969, \ 1, \ 20, \ 19.17999999999999, \ 374.5999999999999, \
391.1999999999999, \ 0. , \ \n\ \ 0. , \ 51.6, \ 136, \ 155, \
138.5, \ 2.35, \ "\", \ 5532.393055103227, \ \n\ \
6.225759750375887*^17, \ 7.902142126460446, \ 8.379185949775296, \
\n\ \ 55.73443371118542, \ 53.46300634420731},
\n{1969, \ 1, \ 20, \ 19.17999999999999, \ 517.9999999999999, \
541.9999999999999, \ 0. , \ \n\ \ 0. , \ 86.4, \ 136, \ 155, \
138.5, \ 2.35, \ "\", \ 5713.924071372205, \ \n\ \
5.632749236633273*^16, \ 6.745700797292262, \ 7.456785233667896, \
\n\ \ 57.7391860360579, \ 54.41966212981242},
\n{1969, \ 1, \ 20, \ 19.17999999999999, \ 760.2999999999999, \
770.3999999999998, \ 0. , \ \n\ \ 0. , \ 98.09999999999998, \ 136,
\ 155, \ 138.5, \ 2.35, \ "\", \ 6008.394378669807, \ \n\ \
1.765154408724991*^15, \ 5.051052316694915, \ 5.992208656692891, \
\n\ \ 60.34066374694334, \ 58.92010034841723},
\n{1969, \ 1, \ 20, \ 19.17999999999999, \ 35072, \ 36505, \ 0. , \
0. , \ 10.9, \ 136, \ 155, \ 138.5, \ \n\ \ 2.35, \ "\", \
86168.04975983452, \ 1.700513534716745*^-17, \ \n\ \
\(-37.56255116182769\), \ \(-26.01805712527055\), \
950.2913096768656, \ \n\ \ 460.6128691406556},
\n{1969, \ 1, \ 20, \ 19.17999999999999, \ 599.3999999999999, \
39242, \ 0. , \ \n\ \ 279.6999999999999, \ 63.42999999999999, \
136, \ 155, \ 138.5, \ 2.35, \ "\", \ \n\ \
42442.1776423163, \
8.631024407268471*^-8\ + \ 8.365513303535189*^16*I, \ \n\ \
\(-32.05712088531645\), \ 6.495283252606931, \ 2362.125680937816, \
\n\ \ \(-7772.283193978873\)},
\n{1969, \ 1, \ 20, \ 19.17999999999999, \ 746.7, \
752.3999999999999, \ 0. , \ 0. , \ \n\ \ 45.03999999999999, \ 136,
\ 155, \ 138.5, \ 2.35, \ "\", \ 5988.471318921277, \ \n
\ \ 2.889947182340907*^15, \ 5.141177741060955, \
6.205810897365835, \ \n\ \ 60.02943077456031, \ 59.22861376722039},
\n{1969, \ 1, \ 20, \ 19.17999999999999, \ 688.6, \ 691.5, \ 0. , \
0. , \ 108. , \ 136, \ 155, \ 138.5, \ \n\ \ 2.35, \ "\",
\ 5913.64285359184, \ 5.399922471238811*^15, \ 5.585655870870053, \
\n\ \ 6.414773769624483, \ 59.20974764565596, \ 58.80401856416438},
\n{1969, \ 1, \ 20, \ 19.17999999999999, \ 632.2, \ 637.2, \ 0. , \
0. , \ 98.2, \ 136, \ 155, \ 138.5, \ \n\ \ 2.35, \ "\",
\ 5844.31566508524, \ 1.145997644857041*^16, \ \n\ \
6.001919826359257, \ 6.753387152082595, \ 58.56907454948257, \
57.8722860071316},
\n{1969, \ 1, \ 20, \ 19.17999999999999, \ 578.5, \
789.8999999999999, \ 0. , \ 0. , \ 96.5, \ 136, \ \n\ \ 155, \
138.5, \ 2.35, \ "\", \ 5906.302717377684, \
1.236316808009858*^16, \ \n\ \ 5.020787923323362, \
7.08108646441821, \ 64.4119349389562, \ 34.84812327494273},
\n{1969, \ 1, \ 20, \ 19.17999999999999, \ 405.1, \ 413.3, \ 0. , \
0. , \ 97.3, \ 136, \ 155, \ 138.5, \ \n\ \ 2.35, \ "\",
\ 5564.705394029554, \ 3.661869555353785*^17, \ \n\ \
7.700117141390767, \ 8.178576019669835, \ 55.85021619121585, \
54.72600557286932},
\n{1969, \ 1, \ 20, \ 19.17999999999999, \ 511.8, \
528.2999999999999, \ 0. , \ 0. , \ 28.5, \ 136, \ \n\ \ 155, \
138.5, \ 2.35, \ "\", \ 5701.583614831954, \
8.270931504844927*^16, \ \n\ \ 6.852362855414557, \
7.580298545344848, \ 57.42798306274493, \ 55.14745440224851},
\n{1969, \ 1, \ 20, \ 19.17999999999999, \ 359.5, \
391.8999999999999, \ 0. , \ 0. , \ \n\ \ 37.99999999999999, \ 136,
\ 155, \ 138.5, \ 2.35, \ "\", \ 5523.558033435572, \ \n\ \
7.523309652200053*^17, \ 7.936319924622316, \ 8.479649664043575, \
\n\ \ 56.03645372502255, \ 51.60542717263842},
\n{1969, \ 1, \ 20, \ 19.17999999999999, \ 634.2999999999999, \
635.7000000000001, \ 0. , \ \n\ \ 0. , \ 98.09999999999998, \ 136,
\ 155, \ 138.5, \ 2.35, \ "\", \ 5844.690687212572, \ \n\ \
1.132951944038285*^16, \ 6.007696247360502, \ 6.740678432801591, \
\n\ \ 58.4821638914761, \ 58.28705892590505},
\n{1969, \ 1, \ 20, \ 19.17999999999999, \ 6215, \ 113656, \ 0. , \
0. , \ 33.39999999999999, \ \n\ \ 136, \ 155, \ 138.5, \ 2.35, \
"\", \ 169940.5699199474, \ \n\ \
4.073758845015328*^-19\ + \ 0.7686010271225188*I, \
\(-43.00276527015887\), \ \n\ \ \(-11.05220346826522\), \
10246.49519910556, \ \(-33865.80180102685\)},
\n{1969, \ 1, \ 20, \ 19.17999999999999, \ 683.3, \
697.4999999999999, \ 0. , \ 0. , \ 25. , \ 136, \ \n\ \ 155, \
138.5, \ 2.35, \ "\", \ 5914.082103375969, \
7.311917784305601*^15, \ \n\ \ 5.577039550362122, \
6.611707847843655, \ 59.49986438550437, \ 57.51314182216811},
\n{1969, \ 1, \ 20, \ 19.17999999999999, \ 285.4, \
3859.599999999999, \ 0. , \ 0. , \ 83, \ 136, \ \n\ \ 155, \ 138.5,
\ 2.35, \ "\", \ 7730.848649925898, \
\(-3.208892467786502*^18\), \ \n\ \ \(-9.824671394710001\), \
8.98875418319989, \ 177.5210584209873, \ \(-368.4986582983128\)},
\n{1969, \ 1, \ 20, \ 19.17999999999999, \ 259.1, \ 33792, \ 0. , \
0. , \ 17.6, \ 136, \ 155, \ 138.5, \ \n\ \ 2.35, \ "\", \
35630.28324650447, \ \n\ \
\(-0.001005625766107524\)\ - \ 1.364937326449441*^19*I, \
\(-34.07459670243562\), \ \n\ \ 9.179976700158531, \
1942.621679321338, \ \(-6374.1700429982\)},
\n{1969, \ 1, \ 20, \ 19.17999999999999, \ 498.8, \ 504.3, \ 0. , \
0. , \ 31.29999999999999, \ \n\ \ 136, \ 155, \ 138.5, \ 2.35, \
"\", \ 5678.662701162205, \ 1.06257260702545*^17, \ \n\ \
7.017015158424131, \ 7.668463714277641, \ 56.92381597364509, \
56.16465975329765}\n}\)], "Input"],

Cell[BoxData[
FormBox[
RowBox[{"(", GridBox[{
{"1969", "1", "20",
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["498.800000000000043`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["504.300000000000014`",
StyleBoxAutoDelete->True,
PrintPrecision->4], "0.`", "0.`",
StyleBox["31.29999999999999`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "136", "155",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], "\<\"UARS\"\>",
StyleBox["5678.66270116220483`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "1.06257260702544975`*^17",
StyleBox["7.01701515842413137`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["7.66846371427764061`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["56.923815973645091`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["56.1646597532976521`",
StyleBoxAutoDelete->True,
PrintPrecision->16]},
{"1969", "1", "20",
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["1411.99999999999903`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["1415.00000000000003`",
StyleBoxAutoDelete->True,
PrintPrecision->4], "0.`", "0.`",
StyleBox["52.0000000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->2], "136", "155",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], "\<\"GlobalStar\"\>",
StyleBox["6844.41110351692039`",
StyleBoxAutoDelete->True,
PrintPrecision->15], "7.80811198179688847`*^11",
StyleBox["0.767477175231331187`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["2.78654358354728381`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["68.5237453630579551`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["68.0830690306602281`",
StyleBoxAutoDelete->True,
PrintPrecision->16]},
{"1969", "1", "20",
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["775.999999999999978`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["779.000000000000092`",
StyleBoxAutoDelete->True,
PrintPrecision->3], "0.`", "0.`",
StyleBox["86.4000000000000056`",
StyleBoxAutoDelete->True,
PrintPrecision->3], "136", "155",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], "\<\"Iridiium\"\>",
StyleBox["6023.72995503101993`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "1.42612425928195012`*^15",
StyleBox["4.99689017278060187`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["5.90083020149251336`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["60.313614695397435`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["59.8913064815205764`",
StyleBoxAutoDelete->True,
PrintPrecision->16]},
{"1969", "1", "20",
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["374.599999999999955`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["391.199999999999903`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "0.`", "0.`",
StyleBox["51.6000000000000014`",
StyleBoxAutoDelete->True,
PrintPrecision->3], "136", "155",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], "\<\"ISS\"\>",
StyleBox["5532.39305510322765`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "6.22575975037588591`*^17",
StyleBox["7.90214212646044611`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["8.37918594977529629`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["55.7344337111854137`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["53.4630063442073044`",
StyleBoxAutoDelete->True,
PrintPrecision->16]},
{"1969", "1", "20",
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["517.999999999999882`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["541.999999999999904`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "0.`", "0.`",
StyleBox["86.4000000000000056`",
StyleBoxAutoDelete->True,
PrintPrecision->3], "136", "155",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], "\<\"Meteor\"\>",
StyleBox["5713.92407137220548`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "5.63274923663327342`*^16",
StyleBox["6.74570079729226179`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["7.45678523366789569`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["57.7391860360579034`",
StyleBoxAutoDelete->True,
PrintPrecision->15],
StyleBox["54.4196621298124227`",
StyleBoxAutoDelete->True,
PrintPrecision->16]},
{"1969", "1", "20",
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["760.299999999999975`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["770.399999999999796`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "0.`", "0.`",
StyleBox["98.0999999999999872`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "136", "155",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], "\<\"UO-22\"\>",
StyleBox["6008.39437866980752`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "1.7651544087249908`*^15",
StyleBox["5.05105231669491505`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["5.99220865669289093`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["60.3406637469433437`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["58.9201003484172325`",
StyleBoxAutoDelete->True,
PrintPrecision->16]},
{"1969", "1", "20",
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "35072", "36505", "0.`", "0.`",
StyleBox["10.9000000000000007`",
StyleBoxAutoDelete->True,
PrintPrecision->3], "136", "155",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], "\<\"TDRS\"\>",
StyleBox["86168.049759834524`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "1.70051353471674531`*^-17",
RowBox[{"-",
StyleBox["37.5625511618276908`",
StyleBoxAutoDelete->True,
PrintPrecision->16]}],
RowBox[{"-",
StyleBox["26.0180571252705483`",
StyleBoxAutoDelete->True,
PrintPrecision->16]}],
StyleBox["950.291309676865481`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["460.6128691406556`",
StyleBoxAutoDelete->True,
PrintPrecision->16]},
{"1969", "1", "20",
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["599.399999999999799`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "39242", "0.`",
StyleBox["279.699999999999882`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["63.4299999999999908`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "136", "155",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], "\<\"Molniya\"\>",
StyleBox["42442.1776423162988`",
StyleBoxAutoDelete->True,
PrintPrecision->15],
\(8.63102440726847142`*^-8 +
8.36551330353518984`*^16\ \[ImaginaryI]\),
RowBox[{"-",
StyleBox["32.0571208853164524`",
StyleBoxAutoDelete->True,
PrintPrecision->16]}],
StyleBox["6.49528325260693062`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["2362.12568093781616`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
RowBox[{"-",
StyleBox["7772.28319397887368`",
StyleBoxAutoDelete->True,
PrintPrecision->16]}]},
{"1969", "1", "20",
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["746.700000000000052`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["752.399999999999824`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "0.`", "0.`",
StyleBox["45.0399999999999955`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "136", "155",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], "\<\"OrbComm\"\>",
StyleBox["5988.47131892127659`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "2.88994718234090708`*^15",
StyleBox["5.1411777410609547`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["6.20581089736583457`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["60.0294307745603106`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["59.228613767220386`",
StyleBoxAutoDelete->True,
PrintPrecision->16]},
{"1969", "1", "20",
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["688.600000000000012`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["691.500000000000092`",
StyleBoxAutoDelete->True,
PrintPrecision->4], "0.`", "0.`",
StyleBox["108.000000000000007`",
StyleBoxAutoDelete->True,
PrintPrecision->3], "136", "155",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], "\<\"SeaSat\"\>",
StyleBox["5913.64285359184016`",
StyleBoxAutoDelete->True,
PrintPrecision->15], "5.39992247123881163`*^15",
StyleBox["5.58565587087005344`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["6.41477376962448264`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["59.209747645655959`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["58.8040185641643819`",
StyleBoxAutoDelete->True,
PrintPrecision->16]},
{"1969", "1", "20",
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["632.200000000000095`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["637.200000000000077`",
StyleBoxAutoDelete->True,
PrintPrecision->4], "0.`", "0.`",
StyleBox["98.2000000000000028`",
StyleBoxAutoDelete->True,
PrintPrecision->3], "136", "155",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], "\<\"LandSat\"\>",
StyleBox["5844.31566508523925`",
StyleBoxAutoDelete->True,
PrintPrecision->15], "1.14599764485704103`*^16",
StyleBox["6.00191982635925658`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["6.75338715208259543`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["58.5690745494825737`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["57.8722860071315992`",
StyleBoxAutoDelete->True,
PrintPrecision->15]},
{"1969", "1", "20",
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["578.500000000000014`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["789.899999999999824`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "0.`", "0.`",
StyleBox["96.5000000000000035`",
StyleBoxAutoDelete->True,
PrintPrecision->3], "136", "155",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], "\<\"SunSat\"\>",
StyleBox["5906.30271737768275`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "1.2363168080098581`*^16",
StyleBox["5.0207879233233621`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["7.08108646441820965`",
StyleBoxAutoDelete->True,
PrintPrecision->15],
StyleBox["64.4119349389561968`",
StyleBoxAutoDelete->True,
PrintPrecision->15],
StyleBox["34.8481232749427283`",
StyleBoxAutoDelete->True,
PrintPrecision->16]},
{"1969", "1", "20",
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["405.100000000000015`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["413.3`",
StyleBoxAutoDelete->True,
PrintPrecision->4], "0.`", "0.`",
StyleBox["97.3000000000000042`",
StyleBoxAutoDelete->True,
PrintPrecision->3], "136", "155",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], "\<\"EROS-A-1\"\>",
StyleBox["5564.70539402955388`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "3.66186955535378544`*^17",
StyleBox["7.70011714139076719`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["8.17857601966983516`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["55.8502161912158534`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["54.7260055728693206`",
StyleBoxAutoDelete->True,
PrintPrecision->16]},
{"1969", "1", "20",
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["511.800000000000032`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["528.299999999999947`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "0.`", "0.`",
StyleBox["28.5`",
StyleBoxAutoDelete->True,
PrintPrecision->3], "136", "155",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], "\<\"HST\"\>",
StyleBox["5701.58361483195452`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "8.27093150484492767`*^16",
StyleBox["6.85236285541455725`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["7.58029854534484837`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["57.427983062744925`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["55.1474544022485169`",
StyleBoxAutoDelete->True,
PrintPrecision->16]},
{"1969", "1", "20",
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["359.500000000000019`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["391.899999999999906`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "0.`", "0.`",
StyleBox["37.9999999999999937`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "136", "155",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], "\<\"HETE\"\>",
StyleBox["5523.55803343557205`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "7.52330965220005243`*^17",
StyleBox["7.93631992462231572`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["8.47964966404357411`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["56.0364537250225502`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["51.605427172638425`",
StyleBoxAutoDelete->True,
PrintPrecision->16]},
{"1969", "1", "20",
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["634.299999999999908`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["635.700000000000109`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "0.`", "0.`",
StyleBox["98.0999999999999872`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "136", "155",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], "\<\"TERRA\"\>",
StyleBox["5844.69068721257123`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "1.13295194403828514`*^16",
StyleBox["6.007696247360502`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["6.74067843280159095`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["58.4821638914760999`",
StyleBoxAutoDelete->True,
PrintPrecision->15],
StyleBox["58.2870589259050486`",
StyleBoxAutoDelete->True,
PrintPrecision->16]},
{"1969", "1", "20",
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "6215", "113656", "0.`", "0.`",
StyleBox["33.3999999999999896`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "136", "155",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], "\<\"XMM\"\>",
StyleBox["169940.569919947392`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
RowBox[{"4.07375884501532858`*^-19", "+",
RowBox[{
StyleBox["0.768601027122518765`",
StyleBoxAutoDelete->True,
PrintPrecision->16], " ", "\[ImaginaryI]"}]}],
RowBox[{"-",
StyleBox["43.0027652701588714`",
StyleBoxAutoDelete->True,
PrintPrecision->16]}],
RowBox[{"-",
StyleBox["11.0522034682652203`",
StyleBoxAutoDelete->True,
PrintPrecision->16]}],
StyleBox["10246.4951991055608`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
RowBox[{"-",
StyleBox["33865.8018010268468`",
StyleBoxAutoDelete->True,
PrintPrecision->16]}]},
{"1969", "1", "20",
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["683.300000000000018`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["697.499999999999875`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "0.`", "0.`",
StyleBox["25.`",
StyleBoxAutoDelete->True,
PrintPrecision->2], "136", "155",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], "\<\"FUSE\"\>",
StyleBox["5914.08210337596962`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "7.31191778430560113`*^15",
StyleBox["5.57703955036212217`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["6.61170784784365483`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["59.4998643855043685`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["57.5131418221681123`",
StyleBoxAutoDelete->True,
PrintPrecision->16]},
{"1969", "1", "20",
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["285.400000000000009`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["3859.59999999999894`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "0.`", "0.`", "83", "136", "155",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], "\<\"FAST\"\>",
StyleBox["7730.84864992589793`",
StyleBoxAutoDelete->True,
PrintPrecision->16], \(-3.2088924677865025`*^18\),
RowBox[{"-",
StyleBox["9.82467139471000017`",
StyleBoxAutoDelete->True,
PrintPrecision->16]}],
StyleBox["8.98875418319988916`",
StyleBoxAutoDelete->True,
PrintPrecision->15],
StyleBox["177.521058420987287`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
RowBox[{"-",
StyleBox["368.498658298312786`",
StyleBoxAutoDelete->True,
PrintPrecision->16]}]},
{"1969", "1", "20",
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["259.100000000000019`",
StyleBoxAutoDelete->True,
PrintPrecision->4], "33792", "0.`", "0.`",
StyleBox["17.6000000000000023`",
StyleBoxAutoDelete->True,
PrintPrecision->3], "136", "155",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], "\<\"CRRES\"\>",
StyleBox["35630.2832465044705`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
RowBox[{
RowBox[{"-",
StyleBox["0.00100562576610752407`",
StyleBoxAutoDelete->True,
PrintPrecision->16]}], "-",
\(1.3649373264494411`*^19\ \[ImaginaryI]\)}],
RowBox[{"-",
StyleBox["34.0745967024356222`",
StyleBoxAutoDelete->True,
PrintPrecision->16]}],
StyleBox["9.17997670015853017`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["1942.62167932133777`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
RowBox[{"-",
StyleBox["6374.1700429982`",
StyleBoxAutoDelete->True,
PrintPrecision->14]}]},
{"1969", "1", "20",
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["498.800000000000043`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["504.300000000000014`",
StyleBoxAutoDelete->True,
PrintPrecision->4], "0.`", "0.`",
StyleBox["31.29999999999999`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "136", "155",
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->4],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->3], "\<\"UARS\"\>",
StyleBox["5678.66270116220483`",
StyleBoxAutoDelete->True,
PrintPrecision->16], "1.06257260702544975`*^17",
StyleBox["7.01701515842413137`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["7.66846371427764061`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["56.923815973645091`",
StyleBoxAutoDelete->True,
PrintPrecision->16],
StyleBox["56.1646597532976521`",
StyleBoxAutoDelete->True,
PrintPrecision->16]}
}], ")"}], TraditionalForm]], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(N[allData, 5]\)], "Input"],

Cell[BoxData[
FormBox[
RowBox[{"(", GridBox[{
{
StyleBox["1969.00000000000012`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["20.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["498.800000000000043`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["504.300000000000014`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["31.29999999999999`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["135.999999999999987`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["155.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"UARS\"\>",
StyleBox["5678.66270116220483`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.06257260702544975`*^17",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["7.01701515842413137`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["7.66846371427764061`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["56.923815973645091`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["56.1646597532976521`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["1969.00000000000012`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["20.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1411.99999999999903`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1415.00000000000003`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["52.0000000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["135.999999999999987`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["155.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"GlobalStar\"\>",
StyleBox["6844.41110351692039`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["7.80811198179688847`*^11",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.767477175231331187`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.78654358354728381`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["68.5237453630579551`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["68.0830690306602281`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["1969.00000000000012`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["20.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["775.999999999999978`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["779.000000000000092`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["86.4000000000000056`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["135.999999999999987`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["155.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"Iridiium\"\>",
StyleBox["6023.72995503101993`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.42612425928195012`*^15",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["4.99689017278060187`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["5.90083020149251336`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["60.313614695397435`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["59.8913064815205764`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["1969.00000000000012`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["20.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["374.599999999999955`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["391.199999999999903`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["51.6000000000000014`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["135.999999999999987`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["155.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"ISS\"\>",
StyleBox["5532.39305510322765`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["6.22575975037588591`*^17",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["7.90214212646044611`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.37918594977529629`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["55.7344337111854137`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["53.4630063442073044`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["1969.00000000000012`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["20.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["517.999999999999882`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["541.999999999999904`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["86.4000000000000056`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["135.999999999999987`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["155.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"Meteor\"\>",
StyleBox["5713.92407137220548`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["5.63274923663327342`*^16",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["6.74570079729226179`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["7.45678523366789569`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["57.7391860360579034`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["54.4196621298124227`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["1969.00000000000012`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["20.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["760.299999999999975`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["770.399999999999796`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["98.0999999999999872`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["135.999999999999987`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["155.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"UO-22\"\>",
StyleBox["6008.39437866980752`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.7651544087249908`*^15",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["5.05105231669491505`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["5.99220865669289093`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["60.3406637469433437`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["58.9201003484172325`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["1969.00000000000012`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["20.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["35071.9999999999965`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["36505.0000000000007`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["10.9000000000000007`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["135.999999999999987`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["155.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"TDRS\"\>",
StyleBox["86168.049759834524`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.70051353471674531`*^-17",
StyleBoxAutoDelete->True,
PrintPrecision->5],
RowBox[{"-",
StyleBox["37.5625511618276908`",
StyleBoxAutoDelete->True,
PrintPrecision->5]}],
RowBox[{"-",
StyleBox["26.0180571252705483`",
StyleBoxAutoDelete->True,
PrintPrecision->5]}],
StyleBox["950.291309676865481`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["460.6128691406556`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["1969.00000000000012`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["20.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["599.399999999999799`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["39241.9999999999991`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["279.699999999999882`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["63.4299999999999908`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["135.999999999999987`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["155.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"Molniya\"\>",
StyleBox["42442.1776423162988`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
RowBox[{
StyleBox["8.63102440726847142`*^-8",
StyleBoxAutoDelete->True,
PrintPrecision->5], "+",
RowBox[{
StyleBox["8.36551330353518984`*^16",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}],
RowBox[{"-",
StyleBox["32.0571208853164524`",
StyleBoxAutoDelete->True,
PrintPrecision->5]}],
StyleBox["6.49528325260693062`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2362.12568093781616`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
RowBox[{"-",
StyleBox["7772.28319397887368`",
StyleBoxAutoDelete->True,
PrintPrecision->5]}]},
{
StyleBox["1969.00000000000012`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["20.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["746.700000000000052`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["752.399999999999824`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["45.0399999999999955`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["135.999999999999987`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["155.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"OrbComm\"\>",
StyleBox["5988.47131892127659`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.88994718234090708`*^15",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["5.1411777410609547`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["6.20581089736583457`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["60.0294307745603106`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["59.228613767220386`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["1969.00000000000012`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["20.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["688.600000000000012`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["691.500000000000092`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["108.000000000000007`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["135.999999999999987`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["155.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"SeaSat\"\>",
StyleBox["5913.64285359184016`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["5.39992247123881163`*^15",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["5.58565587087005344`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["6.41477376962448264`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["59.209747645655959`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["58.8040185641643819`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["1969.00000000000012`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["20.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["632.200000000000095`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["637.200000000000077`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["98.2000000000000028`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["135.999999999999987`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["155.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"LandSat\"\>",
StyleBox["5844.31566508523925`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.14599764485704103`*^16",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["6.00191982635925658`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["6.75338715208259543`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["58.5690745494825737`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["57.8722860071315992`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["1969.00000000000012`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["20.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["578.500000000000014`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["789.899999999999824`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["96.5000000000000035`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["135.999999999999987`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["155.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"SunSat\"\>",
StyleBox["5906.30271737768275`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.2363168080098581`*^16",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["5.0207879233233621`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["7.08108646441820965`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["64.4119349389561968`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["34.8481232749427283`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["1969.00000000000012`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["20.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["405.100000000000015`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["413.3`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["97.3000000000000042`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["135.999999999999987`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["155.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"EROS-A-1\"\>",
StyleBox["5564.70539402955388`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["3.66186955535378544`*^17",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["7.70011714139076719`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.17857601966983516`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["55.8502161912158534`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["54.7260055728693206`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["1969.00000000000012`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["20.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["511.800000000000032`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["528.299999999999947`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["28.5`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["135.999999999999987`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["155.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"HST\"\>",
StyleBox["5701.58361483195452`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.27093150484492767`*^16",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["6.85236285541455725`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["7.58029854534484837`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["57.427983062744925`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["55.1474544022485169`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["1969.00000000000012`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["20.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["359.500000000000019`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["391.899999999999906`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["37.9999999999999937`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["135.999999999999987`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["155.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"HETE\"\>",
StyleBox["5523.55803343557205`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["7.52330965220005243`*^17",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["7.93631992462231572`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.47964966404357411`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["56.0364537250225502`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["51.605427172638425`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["1969.00000000000012`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["20.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["634.299999999999908`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["635.700000000000109`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["98.0999999999999872`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["135.999999999999987`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["155.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"TERRA\"\>",
StyleBox["5844.69068721257123`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.13295194403828514`*^16",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["6.007696247360502`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["6.74067843280159095`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["58.4821638914760999`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["58.2870589259050486`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["1969.00000000000012`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["20.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["6214.99999999999985`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["113656.000000000001`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["33.3999999999999896`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["135.999999999999987`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["155.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"XMM\"\>",
StyleBox["169940.569919947392`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
RowBox[{
StyleBox["4.07375884501532858`*^-19",
StyleBoxAutoDelete->True,
PrintPrecision->5], "+",
RowBox[{
StyleBox["0.768601027122518765`",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}],
RowBox[{"-",
StyleBox["43.0027652701588714`",
StyleBoxAutoDelete->True,
PrintPrecision->5]}],
RowBox[{"-",
StyleBox["11.0522034682652203`",
StyleBoxAutoDelete->True,
PrintPrecision->5]}],
StyleBox["10246.4951991055608`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
RowBox[{"-",
StyleBox["33865.8018010268468`",
StyleBoxAutoDelete->True,
PrintPrecision->5]}]},
{
StyleBox["1969.00000000000012`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["20.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["683.300000000000018`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["697.499999999999875`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["25.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["135.999999999999987`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["155.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"FUSE\"\>",
StyleBox["5914.08210337596962`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["7.31191778430560113`*^15",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["5.57703955036212217`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["6.61170784784365483`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["59.4998643855043685`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["57.5131418221681123`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["1969.00000000000012`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["20.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["285.400000000000009`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["3859.59999999999894`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["83.0000000000000071`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["135.999999999999987`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["155.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"FAST\"\>",
StyleBox["7730.84864992589793`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
RowBox[{"-",
StyleBox["3.2088924677865025`*^18",
StyleBoxAutoDelete->True,
PrintPrecision->5]}],
RowBox[{"-",
StyleBox["9.82467139471000017`",
StyleBoxAutoDelete->True,
PrintPrecision->5]}],
StyleBox["8.98875418319988916`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["177.521058420987287`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
RowBox[{"-",
StyleBox["368.498658298312786`",
StyleBoxAutoDelete->True,
PrintPrecision->5]}]},
{
StyleBox["1969.00000000000012`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["20.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["259.100000000000019`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["33791.9999999999953`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["17.6000000000000023`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["135.999999999999987`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["155.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"CRRES\"\>",
StyleBox["35630.2832465044705`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
RowBox[{
RowBox[{"-",
StyleBox["0.00100562576610752407`",
StyleBoxAutoDelete->True,
PrintPrecision->5]}], "-",
RowBox[{
StyleBox["1.3649373264494411`*^19",
StyleBoxAutoDelete->True,
PrintPrecision->5], " ", "\[ImaginaryI]"}]}],
RowBox[{"-",
StyleBox["34.0745967024356222`",
StyleBoxAutoDelete->True,
PrintPrecision->5]}],
StyleBox["9.17997670015853017`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1942.62167932133777`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
RowBox[{"-",
StyleBox["6374.1700429982`",
StyleBoxAutoDelete->True,
PrintPrecision->5]}]},
{
StyleBox["1969.00000000000012`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["20.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["19.179999999999989`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["498.800000000000043`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["504.300000000000014`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["31.29999999999999`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["135.999999999999987`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["155.`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["138.5`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.35000000000000008`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"UARS\"\>",
StyleBox["5678.66270116220483`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.06257260702544975`*^17",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["7.01701515842413137`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["7.66846371427764061`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["56.923815973645091`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["56.1646597532976521`",
StyleBoxAutoDelete->True,
PrintPrecision->5]}
}], ")"}], TraditionalForm]], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(croppedSet =
N[allData[
\([{1, 2, 3, 4, 5, 6, 9, 10, 11, 12, 13, 14, 15, 16, 18}, {5, 6, 9,
14, 15, 16, 17, 18, 19, 20}]\)], 5]\)], "Input"],

Cell[BoxData[
FormBox[
RowBox[{"(", GridBox[{
{
StyleBox["498.800000000000043`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["504.300000000000014`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["31.29999999999999`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"UARS\"\>",
StyleBox["5678.66270116220483`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.06257260702544975`*^17",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["7.01701515842413137`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["7.66846371427764061`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["56.923815973645091`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["56.1646597532976521`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["1411.99999999999903`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1415.00000000000003`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["52.0000000000000017`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"GlobalStar\"\>",
StyleBox["6844.41110351692039`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["7.80811198179688847`*^11",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["0.767477175231331187`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.78654358354728381`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["68.5237453630579551`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["68.0830690306602281`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["775.999999999999978`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["779.000000000000092`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["86.4000000000000056`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"Iridiium\"\>",
StyleBox["6023.72995503101993`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.42612425928195012`*^15",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["4.99689017278060187`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["5.90083020149251336`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["60.313614695397435`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["59.8913064815205764`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["374.599999999999955`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["391.199999999999903`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["51.6000000000000014`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"ISS\"\>",
StyleBox["5532.39305510322765`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["6.22575975037588591`*^17",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["7.90214212646044611`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.37918594977529629`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["55.7344337111854137`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["53.4630063442073044`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["517.999999999999882`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["541.999999999999904`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["86.4000000000000056`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"Meteor\"\>",
StyleBox["5713.92407137220548`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["5.63274923663327342`*^16",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["6.74570079729226179`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["7.45678523366789569`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["57.7391860360579034`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["54.4196621298124227`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["760.299999999999975`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["770.399999999999796`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["98.0999999999999872`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"UO-22\"\>",
StyleBox["6008.39437866980752`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.7651544087249908`*^15",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["5.05105231669491505`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["5.99220865669289093`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["60.3406637469433437`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["58.9201003484172325`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["746.700000000000052`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["752.399999999999824`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["45.0399999999999955`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"OrbComm\"\>",
StyleBox["5988.47131892127659`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["2.88994718234090708`*^15",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["5.1411777410609547`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["6.20581089736583457`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["60.0294307745603106`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["59.228613767220386`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["688.600000000000012`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["691.500000000000092`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["108.000000000000007`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"SeaSat\"\>",
StyleBox["5913.64285359184016`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["5.39992247123881163`*^15",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["5.58565587087005344`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["6.41477376962448264`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["59.209747645655959`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["58.8040185641643819`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["632.200000000000095`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["637.200000000000077`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["98.2000000000000028`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"LandSat\"\>",
StyleBox["5844.31566508523925`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.14599764485704103`*^16",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["6.00191982635925658`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["6.75338715208259543`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["58.5690745494825737`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["57.8722860071315992`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["578.500000000000014`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["789.899999999999824`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["96.5000000000000035`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"SunSat\"\>",
StyleBox["5906.30271737768275`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.2363168080098581`*^16",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["5.0207879233233621`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["7.08108646441820965`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["64.4119349389561968`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["34.8481232749427283`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["405.100000000000015`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["413.3`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["97.3000000000000042`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"EROS-A-1\"\>",
StyleBox["5564.70539402955388`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["3.66186955535378544`*^17",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["7.70011714139076719`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.17857601966983516`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["55.8502161912158534`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["54.7260055728693206`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["511.800000000000032`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["528.299999999999947`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["28.5`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"HST\"\>",
StyleBox["5701.58361483195452`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.27093150484492767`*^16",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["6.85236285541455725`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["7.58029854534484837`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["57.427983062744925`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["55.1474544022485169`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["359.500000000000019`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["391.899999999999906`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["37.9999999999999937`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"HETE\"\>",
StyleBox["5523.55803343557205`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["7.52330965220005243`*^17",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["7.93631992462231572`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["8.47964966404357411`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["56.0364537250225502`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["51.605427172638425`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["634.299999999999908`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["635.700000000000109`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["98.0999999999999872`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"TERRA\"\>",
StyleBox["5844.69068721257123`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["1.13295194403828514`*^16",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["6.007696247360502`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["6.74067843280159095`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["58.4821638914760999`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["58.2870589259050486`",
StyleBoxAutoDelete->True,
PrintPrecision->5]},
{
StyleBox["683.300000000000018`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["697.499999999999875`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["25.`",
StyleBoxAutoDelete->True,
PrintPrecision->5], "\<\"FUSE\"\>",
StyleBox["5914.08210337596962`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["7.31191778430560113`*^15",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["5.57703955036212217`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["6.61170784784365483`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["59.4998643855043685`",
StyleBoxAutoDelete->True,
PrintPrecision->5],
StyleBox["57.5131418221681123`",
StyleBoxAutoDelete->True,
PrintPrecision->5]}
}], ")"}], TraditionalForm]], "Output"]
}, Open ]],

Cell[BoxData[
\(\(scs = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15}; \)\)],
"Input"],

Cell[BoxData[
\(\(dataSet1 =
Transpose[
Evaluate[{croppedSet[\([scs, 1]\)], croppedSet[\([scs, 8]\)]}]];
\)\)], "Input"],

Cell[BoxData[
\(\(dataSet2 =
Transpose[
Evaluate[{croppedSet[\([scs, 2]\)], croppedSet[\([scs, 7]\)]}]];
\)\)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
\($Size\)], "Input"],

Cell[BoxData[
FormBox[
RowBox[{
\(General::"spell1"\), \( : \ \),
"\<\"Possible spelling error: new symbol name \
\\\"\\!\\(TraditionalForm\\`$Size\\)\\\" is similar to existing symbol \
\\\"\\!\\(TraditionalForm\\`$size\\)\\\".\"\>"}], TraditionalForm]], "Message"],

Cell[BoxData[
\(TraditionalForm\`$Size\)], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(dataSet1\)], "Input"],

Cell["\<\
Your options are:
\tretry (or r) to retry server
\texit (or quit) to exit Mathematica
Your options are:
\tretry (or r) to retry server
\texit (or quit) to exit Mathematica
Your options are:
\tretry (or r) to retry server
\texit (or quit) to exit Mathematica
Your options are:
\tretry (or r) to retry server
\texit (or quit) to exit Mathematica
Your options are:
\tretry (or r) to retry server
\texit (or quit) to exit Mathematica\
\>", "Print"]
}, Open ]],

Cell[BoxData[""], "Input"],

Cell[BoxData[
\(<< Graphics`MultipleListPlot`\)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
\(vvv =
MultipleListPlot[dataSet1, dataSet2, PlotRange -> All,
SymbolShape -> {PlotSymbol[Box], PlotSymbol[Triangle]},
Frame -> True\t]\)], "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.300568 0.000902303 -0.0438598 0.0763214 [
[.06035 -0.0125 -9 -9 ]
[.06035 -0.0125 9 0 ]
[.24081 -0.0125 -9 -9 ]
[.24081 -0.0125 9 0 ]
[.42127 -0.0125 -9 -9 ]
[.42127 -0.0125 9 0 ]
[.60173 -0.0125 -12 -9 ]
[.60173 -0.0125 12 0 ]
[.7822 -0.0125 -12 -9 ]
[.7822 -0.0125 12 0 ]
[.96266 -0.0125 -12 -9 ]
[.96266 -0.0125 12 0 ]
[ 0 0 -0.125 0 ]
[-0.0125 .10878 -6 -4.5 ]
[-0.0125 .10878 0 4.5 ]
[-0.0125 .26143 -6 -4.5 ]
[-0.0125 .26143 0 4.5 ]
[-0.0125 .41407 -6 -4.5 ]
[-0.0125 .41407 0 4.5 ]
[-0.0125 .56671 -6 -4.5 ]
[-0.0125 .56671 0 4.5 ]
[ 0 0 -0.125 0 ]
[ 0 .61803 .125 0 ]
[ 1 0 .125 0 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.06035 0 m
.06035 .00625 L
s
[(400)] .06035 -0.0125 0 1 Mshowa
.24081 0 m
.24081 .00625 L
s
[(600)] .24081 -0.0125 0 1 Mshowa
.42127 0 m
.42127 .00625 L
s
[(800)] .42127 -0.0125 0 1 Mshowa
.60173 0 m
.60173 .00625 L
s
[(1000)] .60173 -0.0125 0 1 Mshowa
.7822 0 m
.7822 .00625 L
s
[(1200)] .7822 -0.0125 0 1 Mshowa
.96266 0 m
.96266 .00625 L
s
[(1400)] .96266 -0.0125 0 1 Mshowa
.125 Mabswid
.10547 0 m
.10547 .00375 L
s
.15058 0 m
.15058 .00375 L
s
.1957 0 m
.1957 .00375 L
s
.28593 0 m
.28593 .00375 L
s
.33104 0 m
.33104 .00375 L
s
.37616 0 m
.37616 .00375 L
s
.46639 0 m
.46639 .00375 L
s
.5115 0 m
.5115 .00375 L
s
.55662 0 m
.55662 .00375 L
s
.64685 0 m
.64685 .00375 L
s
.69196 0 m
.69196 .00375 L
s
.73708 0 m
.73708 .00375 L
s
.82731 0 m
.82731 .00375 L
s
.87243 0 m
.87243 .00375 L
s
.91754 0 m
.91754 .00375 L
s
.01524 0 m
.01524 .00375 L
s
.25 Mabswid
0 0 m
1 0 L
s
0 .10878 m
.00625 .10878 L
s
[(2)] -0.0125 .10878 1 0 Mshowa
0 .26143 m
.00625 .26143 L
s
[(4)] -0.0125 .26143 1 0 Mshowa
0 .41407 m
.00625 .41407 L
s
[(6)] -0.0125 .41407 1 0 Mshowa
0 .56671 m
.00625 .56671 L
s
[(8)] -0.0125 .56671 1 0 Mshowa
.125 Mabswid
0 .14694 m
.00375 .14694 L
s
0 .1851 m
.00375 .1851 L
s
0 .22327 m
.00375 .22327 L
s
0 .29959 m
.00375 .29959 L
s
0 .33775 m
.00375 .33775 L
s
0 .37591 m
.00375 .37591 L
s
0 .45223 m
.00375 .45223 L
s
0 .49039 m
.00375 .49039 L
s
0 .52855 m
.00375 .52855 L
s
0 .07062 m
.00375 .07062 L
s
0 .03246 m
.00375 .03246 L
s
0 .60487 m
.00375 .60487 L
s
.25 Mabswid
0 0 m
0 .61803 L
s
.06035 .61178 m
.06035 .61803 L
s
.24081 .61178 m
.24081 .61803 L
s
.42127 .61178 m
.42127 .61803 L
s
.60173 .61178 m
.60173 .61803 L
s
.7822 .61178 m
.7822 .61803 L
s
.96266 .61178 m
.96266 .61803 L
s
.125 Mabswid
.10547 .61428 m
.10547 .61803 L
s
.15058 .61428 m
.15058 .61803 L
s
.1957 .61428 m
.1957 .61803 L
s
.28593 .61428 m
.28593 .61803 L
s
.33104 .61428 m
.33104 .61803 L
s
.37616 .61428 m
.37616 .61803 L
s
.46639 .61428 m
.46639 .61803 L
s
.5115 .61428 m
.5115 .61803 L
s
.55662 .61428 m
.55662 .61803 L
s
.64685 .61428 m
.64685 .61803 L
s
.69196 .61428 m
.69196 .61803 L
s
.73708 .61428 m
.73708 .61803 L
s
.82731 .61428 m
.82731 .61803 L
s
.87243 .61428 m
.87243 .61803 L
s
.91754 .61428 m
.91754 .61803 L
s
.01524 .61428 m
.01524 .61803 L
s
.25 Mabswid
0 .61803 m
1 .61803 L
s
.99375 .10878 m
1 .10878 L
s
.99375 .26143 m
1 .26143 L
s
.99375 .41407 m
1 .41407 L
s
.99375 .56671 m
1 .56671 L
s
.125 Mabswid
.99625 .14694 m
1 .14694 L
s
.99625 .1851 m
1 .1851 L
s
.99625 .22327 m
1 .22327 L
s
.99625 .29959 m
1 .29959 L
s
.99625 .33775 m
1 .33775 L
s
.99625 .37591 m
1 .37591 L
s
.99625 .45223 m
1 .45223 L
s
.99625 .49039 m
1 .49039 L
s
.99625 .52855 m
1 .52855 L
s
.99625 .07062 m
1 .07062 L
s
.99625 .03246 m
1 .03246 L
s
.99625 .60487 m
1 .60487 L
s
.25 Mabswid
1 0 m
1 .61803 L
s
0 .10878 m
1 .10878 L
s
.0001 w
.1495 .54141 -2.5 2.5 Mabsadd m
.1495 .54141 2.5 2.5 Mabsadd L
.1495 .54141 2.5 -2.5 Mabsadd L
.1495 .54141 -2.5 -2.5 Mabsadd L
.1495 .54141 -2.5 2.5 Mabsadd L closepath F
.97348 .16881 -2.5 2.5 Mabsadd m
.97348 .16881 2.5 2.5 Mabsadd L
.97348 .16881 2.5 -2.5 Mabsadd L
.97348 .16881 -2.5 -2.5 Mabsadd L
.97348 .16881 -2.5 2.5 Mabsadd L closepath F
.39962 .4065 -2.5 2.5 Mabsadd m
.39962 .4065 2.5 2.5 Mabsadd L
.39962 .4065 2.5 -2.5 Mabsadd L
.39962 .4065 -2.5 -2.5 Mabsadd L
.39962 .4065 -2.5 2.5 Mabsadd L closepath F
.03743 .59565 -2.5 2.5 Mabsadd m
.03743 .59565 2.5 2.5 Mabsadd L
.03743 .59565 2.5 -2.5 Mabsadd L
.03743 .59565 -2.5 -2.5 Mabsadd L
.03743 .59565 -2.5 2.5 Mabsadd L closepath F
.16682 .52525 -2.5 2.5 Mabsadd m
.16682 .52525 2.5 2.5 Mabsadd L
.16682 .52525 2.5 -2.5 Mabsadd L
.16682 .52525 -2.5 -2.5 Mabsadd L
.16682 .52525 -2.5 2.5 Mabsadd L closepath F
.38545 .41347 -2.5 2.5 Mabsadd m
.38545 .41347 2.5 2.5 Mabsadd L
.38545 .41347 2.5 -2.5 Mabsadd L
.38545 .41347 -2.5 -2.5 Mabsadd L
.38545 .41347 -2.5 2.5 Mabsadd L closepath F
.37318 .42978 -2.5 2.5 Mabsadd m
.37318 .42978 2.5 2.5 Mabsadd L
.37318 .42978 2.5 -2.5 Mabsadd L
.37318 .42978 -2.5 -2.5 Mabsadd L
.37318 .42978 -2.5 2.5 Mabsadd L closepath F
.32076 .44572 -2.5 2.5 Mabsadd m
.32076 .44572 2.5 2.5 Mabsadd L
.32076 .44572 2.5 -2.5 Mabsadd L
.32076 .44572 -2.5 -2.5 Mabsadd L
.32076 .44572 -2.5 2.5 Mabsadd L closepath F
.26987 .47157 -2.5 2.5 Mabsadd m
.26987 .47157 2.5 2.5 Mabsadd L
.26987 .47157 2.5 -2.5 Mabsadd L
.26987 .47157 -2.5 -2.5 Mabsadd L
.26987 .47157 -2.5 2.5 Mabsadd L closepath F
.22141 .49658 -2.5 2.5 Mabsadd m
.22141 .49658 2.5 2.5 Mabsadd L
.22141 .49658 2.5 -2.5 Mabsadd L
.22141 .49658 -2.5 -2.5 Mabsadd L
.22141 .49658 -2.5 2.5 Mabsadd L closepath F
.06495 .58034 -2.5 2.5 Mabsadd m
.06495 .58034 2.5 2.5 Mabsadd L
.06495 .58034 2.5 -2.5 Mabsadd L
.06495 .58034 -2.5 -2.5 Mabsadd L
.06495 .58034 -2.5 2.5 Mabsadd L closepath F
.16123 .53468 -2.5 2.5 Mabsadd m
.16123 .53468 2.5 2.5 Mabsadd L
.16123 .53468 2.5 -2.5 Mabsadd L
.16123 .53468 -2.5 -2.5 Mabsadd L
.16123 .53468 -2.5 2.5 Mabsadd L closepath F
.02381 .60332 -2.5 2.5 Mabsadd m
.02381 .60332 2.5 2.5 Mabsadd L
.02381 .60332 2.5 -2.5 Mabsadd L
.02381 .60332 -2.5 -2.5 Mabsadd L
.02381 .60332 -2.5 2.5 Mabsadd L closepath F
.27176 .4706 -2.5 2.5 Mabsadd m
.27176 .4706 2.5 2.5 Mabsadd L
.27176 .4706 2.5 -2.5 Mabsadd L
.27176 .4706 -2.5 -2.5 Mabsadd L
.27176 .4706 -2.5 2.5 Mabsadd L closepath F
.31598 .46075 -2.5 2.5 Mabsadd m
.31598 .46075 2.5 2.5 Mabsadd L
.31598 .46075 2.5 -2.5 Mabsadd L
.31598 .46075 -2.5 -2.5 Mabsadd L
.31598 .46075 -2.5 2.5 Mabsadd L closepath F
.15446 .49169 0 2.5 Mabsadd m
.15446 .49169 -2.165 -1.25 Mabsadd L
.15446 .49169 2.165 -1.25 Mabsadd L
.15446 .49169 0 2.5 Mabsadd L closepath F
.97619 .01472 0 2.5 Mabsadd m
.97619 .01472 -2.165 -1.25 Mabsadd L
.97619 .01472 2.165 -1.25 Mabsadd L
.97619 .01472 0 2.5 Mabsadd L closepath F
.40233 .33751 0 2.5 Mabsadd m
.40233 .33751 -2.165 -1.25 Mabsadd L
.40233 .33751 2.165 -1.25 Mabsadd L
.40233 .33751 0 2.5 Mabsadd L closepath F
.05241 .55924 0 2.5 Mabsadd m
.05241 .55924 -2.165 -1.25 Mabsadd L
.05241 .55924 2.165 -1.25 Mabsadd L
.05241 .55924 0 2.5 Mabsadd L closepath F
.18848 .47098 0 2.5 Mabsadd m
.18848 .47098 -2.165 -1.25 Mabsadd L
.18848 .47098 2.165 -1.25 Mabsadd L
.18848 .47098 0 2.5 Mabsadd L closepath F
.39457 .34164 0 2.5 Mabsadd m
.39457 .34164 -2.165 -1.25 Mabsadd L
.39457 .34164 2.165 -1.25 Mabsadd L
.39457 .34164 0 2.5 Mabsadd L closepath F
.37832 .34852 0 2.5 Mabsadd m
.37832 .34852 -2.165 -1.25 Mabsadd L
.37832 .34852 2.165 -1.25 Mabsadd L
.37832 .34852 0 2.5 Mabsadd L closepath F
.32337 .38245 0 2.5 Mabsadd m
.32337 .38245 -2.165 -1.25 Mabsadd L
.32337 .38245 2.165 -1.25 Mabsadd L
.32337 .38245 0 2.5 Mabsadd L closepath F
.27438 .41422 0 2.5 Mabsadd m
.27438 .41422 -2.165 -1.25 Mabsadd L
.27438 .41422 2.165 -1.25 Mabsadd L
.27438 .41422 0 2.5 Mabsadd L closepath F
.41216 .33933 0 2.5 Mabsadd m
.41216 .33933 -2.165 -1.25 Mabsadd L
.41216 .33933 2.165 -1.25 Mabsadd L
.41216 .33933 0 2.5 Mabsadd L closepath F
.07235 .54382 0 2.5 Mabsadd m
.07235 .54382 -2.165 -1.25 Mabsadd L
.07235 .54382 2.165 -1.25 Mabsadd L
.07235 .54382 0 2.5 Mabsadd L closepath F
.17612 .47912 0 2.5 Mabsadd m
.17612 .47912 -2.165 -1.25 Mabsadd L
.17612 .47912 2.165 -1.25 Mabsadd L
.17612 .47912 0 2.5 Mabsadd L closepath F
.05304 .56185 0 2.5 Mabsadd m
.05304 .56185 -2.165 -1.25 Mabsadd L
.05304 .56185 2.165 -1.25 Mabsadd L
.05304 .56185 0 2.5 Mabsadd L closepath F
.27303 .41466 0 2.5 Mabsadd m
.27303 .41466 -2.165 -1.25 Mabsadd L
.27303 .41466 2.165 -1.25 Mabsadd L
.27303 .41466 0 2.5 Mabsadd L closepath F
.32879 .38179 0 2.5 Mabsadd m
.32879 .38179 -2.165 -1.25 Mabsadd L
.32879 .38179 2.165 -1.25 Mabsadd L
.32879 .38179 0 2.5 Mabsadd L closepath F
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
ImageSize->{838.625, 518.062},
ImageMargins->{{62, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg NYM1Imb]`ULU>oooojjb`i>GYMcNiEePJ@0006=SW5ADQ;NgdBl_B_ooooogjMSAa/c5^YVDR`0009BD
U:f][B4Q8Kfm_MkNg]gNiUiPJD92@_l0og=cLf=SHooo003ooe5Anl30`820P8200?XC@3_j=7emOFAT
I4];BlS8b>7QhIJFU_l0003o0000oclo?nKVn_GeoHF5TLC4eOogjBm?CfUYJKjn_]?CdiT0I_ooc020
P80006IVc3 ?`0oO`0o_`0oo`1o001o?`1oO`1o_`1oo`2o002o?`2oOc2XW1TIL8b<^5iNVc/kQKno08X[h/VNlT KgDT`;no_m7FjVQ[MJo^k[C^];8R8[b?Sj0Pl=Y`e[R62b:;8V2PX>K>/OoTa;2`/=WIfOn^^LfgWTJ2
];0`H9V9MX:2PP2o_`2oohYlJ_oon7k0kRj;EoZ0LP3o?`3oO`3o_cl003l0?cl0Ocl0_cl0oclo03lo
Oclo_cloocmo03mo?cmoOcmo_cmoocno03no?cnoOcno_cnoocoo03oo?cooOcoo_cooogl007l0?gl0
Ogl0_gl0oglo07lo?gloOglo_gloogmo07mo?gmo_gmoogno07no?gnoOgno_gnoogoo07oo?gooOgoo
_goookl00;l0?kl0Okl0_kl0oklo0;lo?kloOklo_klookmo0;mo?kmoOkmo_kmookno?knoOknookoo
0;oo?kooOkoo_kooool0?ol0Ool0_olo0?lo?oloOolo_olooomo0?mo?omoOomo_omooono0?no?ono
Oono_onooooo?oooOooo_iBGY^o_kgalO9UVVIUVc6K=ZY[=jdPmRoGN/m:dS?oG0?nU0:1B
;LeLG=9Y7_o0bmfPgKYEdiTbc9UVoiVI09VI 0`4200810`020F800P4200810`020F400P4300810`020El00`4200810`020@<00P5L00<100<00@40
0P4200810`020E`00`4200<10P020@<00P4D0000;`040@07004000400@0200030@0005h000<10000
0P4200030@01008000<10000G@001P4000400@8000<100400P000`40001M00040@000@8000<10040
0P000`400@0200030@0005X000T100000@0100400P000`400@0200030@0005X000<1000010401`01
000100400P000`40000A0000;`000`400@0200060@000@010P000`40001N008100<00@400P000`40
0@0200030@0005d000H10001004200030@01008000<10000G@001040004200030@01008000<10040
0P000`40001J00030@00008000@100010P000`400@0200030@0005X000H10001004200060@000@01
0P000`40000A0000<0020@8000H10001004200030@0005h00`401`01000100400P000`40001M00@1
00L00@000@01008000<10000G@001040004200030@01008000<100400P000`40001J00030@0000<0
00<100400P000`400@0200030@0005X000@100000P4200060@000@010P000`40000A0000<0020@80
00H10001004200030@0005h00P4200060@000@010P000`40001M00060@000@010P000`400@020003
0@0005d000@100010P000`400@0200030@01008000<10000FP001040004200030@01008000<10040
0P000`40001J00040@0000810P001P4000400@8000<100004@00034000@100000P430081HP030@03
004100<00P5Q00810`020@<00P5O00810`020@<00P430081G0020@<00P4300810`020E`00P440004
0@0000810`020A@0003o0?l0MP000?l0o`1f0000o`3o07H0003o0?l0MP000?l0o`1f00004P3o0Ol1
GP4600004P000`40000600030@0001P000<1000060000`40000H00030@0001T000<1000060000`40
000H00030@0001P000<100006@000`40000H00030@0001P000<1000060000`40000I00030@0001P0
00<1000060000`40000H00030@0001T000<1000060000`40000H00030@0001P000<100006@000`40
000H00030@0001<000<100001000018000<100001P000`40000H00030@0001P000<1000060000`40
000I00030@0001P000<1000060000`40000H00030@0001T000<1000060000`40000H00030@0001P0
00<100006@000`40000H00030@0001P000<1000060000`40000I00030@0001P000<1000060000`40
000H00030@0001T000<1000060000`40000C00030@0000@0000B00030@0000H000<1000060000`40
000H00030@0001P000<100006@000`40000H00030@0001P000<1000060000`40000I00030@0001P0
00<1000060000`40000H00030@0001T000<1000060000`40000H00030@0001P000<100006@000`40
000H00030@0001P000<1000060000`40000I00030@0001P000<100004`000`40000400004P000`40
000Q00030@0006X000<10000JP000`40001Z00030@0006X000<10000JP000`40000C00030@0000@0
000B00030@000?l0o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0000B00030@000?l0
o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0000B00030@000?l0o`1;00<130000`40
000400004P000`40003o0?l0C0000`40000;00030@0000@0000B00030@000?l0o`1J00030@0000@0
000B00030@000?l0o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0000B00030@000?l0
o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0
000B00030@000?l0o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0000B00030@000?l0
o`1J00030@0000@0000B00<1o`3o05P00`4600004P000`40003o0?l0FP000`40000400004P000`40
003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40
000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40
003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40
000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40
003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40
000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40
003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40
000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40
003o0?l0FP000`40000400004P030Ol0o`1H00<11P00018000<10000o`3o05X000<1000010000180
00<10000o`3o05X000<100001000018000<10000o`3o05X000<100001000018000<10000o`3o05X0
00<100001000018000<10000o`3o05X000<100001000018000<10000o`3o05X000<1000010000180
00<10000o`3o05X000<100001000018000<10000o`3o05X000<100001000018000<10000o`3o05X0
00<100001000018000<10000o`3o05X000<100001000018000<10000o`3o05X000<1000010000180
00<10000o`3o05X000<100001000018000<10000o`3o05X000<100001000018000<10000o`3o05X0
00<100001000018000<10000o`3o05X000<100001000018000<10000o`3o05X000<1000010000180
00<10000o`3o05X000<100001000018000<10000o`3o05X000<100001000018000<10000o`3o05X0
00<100001000018000<10000o`3o05X000<100001000018000<10000o`3o05X000<10000100000D0
104900030@000?l0o`1J00030@0000@0000600030@0100T0o`7o0Eh11P0000L000<1000020000`40
003o0?l0FP000`400004000020000`40000700030@000?l0o`1J00030@0000@0000500040@000@T0
00<10000o`3o05X000<10000100000H00P4:00030@000?l0o`1J00030@0000@0000B00030@000?l0
o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0
000B00030@000?l0o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0000B00030@000?l0
o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0
000B00030@000?l0o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0000B00030@000?l0
o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0
000B00030@000?l0o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0000B00030@000?l0
o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0
000B00<1o`3o05P00`4600004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40
000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40
003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40
000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40
003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0B0040@h0
00<100001000018000<10000o`3o04P0104>00030@0000@0000B00030@000?l0o`1800@13P000`40
000400004P000`40003o0?l0B0040@h000<100001000018000<10000o`3o05X000<1000010000180
00<10000o`3o05X000<100001000018000<10000o`3o05X000<100001000018000<10000o`3o05X0
00<100001000018000<10000o`3o05X000<100001000018000<10000o`3o05X000<1000010000180
00<10000o`3o05X000<10000100001800`7o0?l0F0030@H0000B00030@000?l0o`1J00030@0000@0
000B00030@000?l0o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0000B00030@000?l0
o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0
000B00030@000?l0o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0000B00030@000?l0
o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0
000B00030@000?l0o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0000B00030@000?l0
o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0
000B00030@000?l0o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0000B00030@000?l0
o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0
000B00030@000?l0o`1J00030@0000@0000B00<1o`3o05P00`4600004P000`40003o0?l0FP000`40
000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40
003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40
000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40
003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40
000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40
003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40
000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40
003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40
000400001P030@T000<10000o`3o05X000<10000100000D0104900@1o`3o05H0104600001@000`40
0@0:00030@000?l0o`1J00030@0000@0000600812P000`40003o0?l0FP000`40000400001P020@X0
00<10000o`3o05X000<10000100000L000<1000020000`40003o0?l0FP000`40000400004P000`40
003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40
000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40
003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40
000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40
003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40
000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40
003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40
000400004P030Ol0o`1H00<11P00018000<10000o`3o05X000<100001000018000<10000o`3o05X0
00<100001000018000<10000o`3o05X000<100001000018000<10000o`3o05X000<1000010000180
00<10000o`3o05X000<100001000018000<10000o`3o05X000<100001000018000<10000o`3o05X0
00<100001000018000<10000o`3o05X000<100001000018000<10000o`3o05X000<1000010000180
00<10000o`3o05X000<100001000018000<10000o`3o05X000<100001000018000<10000o`3o05X0
00<100001000018000<10000o`3o05X000<100001000018000<10000o`3o05X000<1000010000180
00<10000o`3o05X000<100001000018000<10000o`3o05X000<100001000018000<10000o`3o05X0
00<100001000018000<10000o`3o05X000<100001000018000<10000o`3o05X000<1000010000180
00<10000o`3o05X000<100001000018000<10000o`3o05X000<100001000018000<10000o`3o05X0
00<10000100001800`7_0081o`1V00<11P00018000<10000k`000`4000030081o`1R00030@0000@0
000B00030@000?D000<10000o`1Q00030@0000@0000B00030@000>X00P7o06d000<1000010000180
00<10000o`3o05X000<100001000018000<10000o`3o05X000<100001000018000<10000o`3o05X0
00<100001000018000<10000h0030Ol0MP000`40000400004P000`40003Q00030@000?l0M@000`40
000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40
003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40
000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40
003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40
000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40
003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P030Ol0o`1H00<11P000180
00<10000o`3o05X000<100001000018000<10000o`3o05X000<100001000018000<10000o`3o05X0
00<100001000018000<10000_`020@0400410Ol0U0000`40000400004P000`40003000040@000Ol0
U@000`40000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`4000040000
4P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0
FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`4000040000
4P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0
FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`4000040000
4P000`40003/00@1o`1Y00030@0000@0000B00030@000>`0107o06T000<100001000018000<10000
k0040Ol0J@000`40000400004P000`40003/00@1o`1Y00030@0000@0000B00030@000><0107o0780
00<10000100000L00P4900@1X@020Cl0107o06l0104600001P001040004800030@000:400P5000@1
o`1b00030@0000@00006008100<00@001`000`40002Q00030@0003l0107o078000<10000100000H0
0`4900030@000?l0o`1J00030@0000@0000600812P000`40003o0?l0FP000`40000400001`030@P0
00<10000o`3o05X000<100001000018000<10000o`3o05X000<100001000018000<10000o`3o05X0
00<100001000018000<10000o`3o05X000<100001000018000<10000g0040Ol0N@000`4000040000
4P000`40003L00@1o`1i00030@0000@0000B00030@000=`0107o07T000<100001000018000<10000
g0040Ol0N@000`40000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40
000400004P000`40003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40
003o0?l0FP000`40000400004P000`40003o0?l0FP000`40000400004P000`40002l00@1o`2I0003
0@0000@0000B00030@000;`0107o09T000<100001000018000<10000_0040Ol0V@000`4000040000
4P000`40003o0?l0FP000`40000400004P030Ol0o`1H00<11P00018000<10000o`3o05X000<10000
1000018000<10000o`3o05X000<100001000018000<10000o`3o05X000<100001000018000<10000
o`3o05X000<100001000018000<10000^@040Ol0W0000`40000400004P000`40002i00@1o`2L0003
0@0000@0000B00030@000;T0107o09`000<100001000018000<10000o`3o05X000<1000010000180
00<10000o`3o05X000<100001000018000<10000o`3o05X000<100001000018000<10000WP040Ol0
]`000`40000400004P000`40001^0081;P040Ol0]`000`40000400004P000`40001^00030@0002d0
107o0;L000<100001000018000<10000WP030Ol0^0000`40000400004P000`40003o0?l0FP000`40
000400004P000`40003o0?l0FP000`40000400004P000`40001V0081o`3a00030@0000@0000B0003
0@000?l0o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0000B00030@000?l0o`1J0003
0@0000@0000B00030@000?l0o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0000B00<1
o`3o05P00`4600004P000`40001I0081o`3n00030@0000@0000B00030@0005X000<10000o`3l0003
0@0000@0000B00030@000800107o0=D000<100001000018000<10000P0040Ol0e@000`4000040000
4P000`40002000@1o`3E00030@0000@0000B00030@000800107o0=D000<100001000018000<10000
o`3o05X000<100001000018000<10000o`3o05X000<100001000018000<10000o`3o05X000<10000
1000018000<10000o`3o05X000<100001000018000<10000o`3o05X000<100001000018000<10000
o`3o05X000<100001000018000<10000o`3o05X000<100001000018000<10000o`3o05X000<10000
1000018000<10000o`3o05X000<100001000018000<10000o`3o05X000<100001000018000<10000
o`3o05X000<100001000018000<10000o`3o05X000<100001000018000<10000o`3o05X000<10000
1000018000<10000o`3o05X000<100001000018000<10000G`040Ol0mP000`40000400004P000`40
001O00@1o`3f00030@0000@0000B00<1G`040Ol0m0030@H0000B00030@000?l0o`1J00030@0000@0
000B00030@000?l0o`1J00030@0000@0000B00030@0005`0107o0?T000<100001000018000<10000
G0040Ol0n@000`40000400004P000`40001L00@1o`3i00030@0000@0000B00030@0005`0107o0?T0
00<100001000018000<10000E@040Ol0o`0100030@0000@0000B00030@0005D0107o0?l00@000`40
000400004P000`40001E00@1o`3o004000<100001000018000<10000:0020B/0107o0?l00@000`40
000400004P000`40000X00030@000?l0o`0_00030@0000@0000B00030@000?l0o`1J00030@0000@0
000B00030@000?l0o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0000B00030@000?l0
o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0
000B00030@000?l0o`1J00030@0000@0000B00030@0001`00P7o0?l0?0000`40000400004P000`40
000L00030@000?l0o`0k00030@0000@0000B00030@0001`00P7o0?l0?0000`40000400004P000`40
003o0?l0FP000`40000400001P020@X000<10000o`3o05X000<10000100000D000@100012@040Ol0
o`1F00@11P0000D000@100012@000`40003o0?l0FP000`40000400001@040@T000<10000o`3o05X0
00<10000100000D000@100012@000`40003o0?l0FP000`40000400001P020@X000<10000o`3o05X0
00<100001000018000<10000o`3o05X000<100001000018000<10000o`3o05X000<1000010000180
00<100008P040Ol0o`0d00030@0000@0000B00030@000280107o0?l0=0000`40000400004P000`40
000R00@1o`3o03@000<100001000018000<100008P040Ol0o`0d00030@0000@0000B00030@000?l0
o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0
000B00030@000?l0o`1J00030@0000@0000B00030@000?l0o`1J00030@0000@0000B00030@000140
107o0?l0A@000`40000400004P000`40000A00@1o`3o04D000<100001000018000<100004@040Ol0
o`1500030@0000@0000B00030@000140107o0?l0A@000`40000400004P000`40003o0?l0FP000`40
000400004P000`40000900@1o`3o04d000<100001000018000<100002@040Ol0o`1=00030@0000@0
000B00<12@040Ol0o`1;00<11P00018000<10000o`3o05X000<100001000018000<10000o`3o05X0
00<100001000018000<10000o`3o05X000<100001000018000<100008@000`40001Z00030@0006X0
00<10000JP000`40001Z00030@0006X000<100004`000`40000400004P000`40000600030@0001P0
00<1000060000`40000H00030@0001T000<1000060000`40000H00030@0001P000<100006@000`40
000H00030@0001P000<1000060000`40000I00030@0001P000<1000060000`40000H00030@0001T0
00<1000060000`40000H00030@0001P000<100006@000`40000H00030@0001<000<1000010000180
00<100001P000`40000H00030@0001P000<1000060000`40000I00030@0001P000<1000060000`40
000H00030@0001T000<1000060000`40000H00030@0001P000<100006@000`40000H00030@0001P0
00<1000060000`40000I00030@0001P000<1000060000`40000H00030@0001T000<1000060000`40
000C00030@0000@0000B0?l1o`5N0@H00000\
\>"],
ImageRangeCache->{{{0, 627.938}, {387.5, 0}} -> {300.038, 0.264387,
1.37651, 0.0162737}}],

Cell[BoxData[
FormBox[
TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(zzz = Show[vvv, FrameLabel -> {"\", "\"}]\)], "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.300568 0.000902303 -0.0438598 0.0763214 [
[.06035 -0.0125 -9 -9 ]
[.06035 -0.0125 9 0 ]
[.24081 -0.0125 -9 -9 ]
[.24081 -0.0125 9 0 ]
[.42127 -0.0125 -9 -9 ]
[.42127 -0.0125 9 0 ]
[.60173 -0.0125 -12 -9 ]
[.60173 -0.0125 12 0 ]
[.7822 -0.0125 -12 -9 ]
[.7822 -0.0125 12 0 ]
[.96266 -0.0125 -12 -9 ]
[.96266 -0.0125 12 0 ]
[ 0 0 -0.125 0 ]
[.5 -0.0125 -26 -19.125 ]
[.5 -0.0125 26 -9 ]
[-0.0125 .10878 -6 -4.5 ]
[-0.0125 .10878 0 4.5 ]
[-0.0125 .26143 -6 -4.5 ]
[-0.0125 .26143 0 4.5 ]
[-0.0125 .41407 -6 -4.5 ]
[-0.0125 .41407 0 4.5 ]
[-0.0125 .56671 -6 -4.5 ]
[-0.0125 .56671 0 4.5 ]
[ 0 0 -0.125 0 ]
[-0.01875 .30902 -15.8125 -5 ]
[-0.01875 .30902 -6 5 ]
[ 0 .61803 .125 0 ]
[ 1 0 .125 0 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.06035 0 m
.06035 .00625 L
s
[(400)] .06035 -0.0125 0 1 Mshowa
.24081 0 m
.24081 .00625 L
s
[(600)] .24081 -0.0125 0 1 Mshowa
.42127 0 m
.42127 .00625 L
s
[(800)] .42127 -0.0125 0 1 Mshowa
.60173 0 m
.60173 .00625 L
s
[(1000)] .60173 -0.0125 0 1 Mshowa
.7822 0 m
.7822 .00625 L
s
[(1200)] .7822 -0.0125 0 1 Mshowa
.96266 0 m
.96266 .00625 L
s
[(1400)] .96266 -0.0125 0 1 Mshowa
.125 Mabswid
.10547 0 m
.10547 .00375 L
s
.15058 0 m
.15058 .00375 L
s
.1957 0 m
.1957 .00375 L
s
.28593 0 m
.28593 .00375 L
s
.33104 0 m
.33104 .00375 L
s
.37616 0 m
.37616 .00375 L
s
.46639 0 m
.46639 .00375 L
s
.5115 0 m
.5115 .00375 L
s
.55662 0 m
.55662 .00375 L
s
.64685 0 m
.64685 .00375 L
s
.69196 0 m
.69196 .00375 L
s
.73708 0 m
.73708 .00375 L
s
.82731 0 m
.82731 .00375 L
s
.87243 0 m
.87243 .00375 L
s
.91754 0 m
.91754 .00375 L
s
.01524 0 m
.01524 .00375 L
s
.25 Mabswid
0 0 m
1 0 L
s
gsave
.5 -0.0125 -87 -23.125 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 20 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
61.000000 14.125000 moveto
558.000000 14.125000 lineto
558.000000 4.000000 lineto
61.000000 4.000000 lineto
61.000000 14.125000 lineto
closepath
clip newpath
63.000000 11.562500 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.000000 11.562500 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(Altitude) show
111.000000 11.562500 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: Courier
grestore
0 .10878 m
.00625 .10878 L
s
[(2)] -0.0125 .10878 1 0 Mshowa
0 .26143 m
.00625 .26143 L
s
[(4)] -0.0125 .26143 1 0 Mshowa
0 .41407 m
.00625 .41407 L
s
[(6)] -0.0125 .41407 1 0 Mshowa
0 .56671 m
.00625 .56671 L
s
[(8)] -0.0125 .56671 1 0 Mshowa
.125 Mabswid
0 .14694 m
.00375 .14694 L
s
0 .1851 m
.00375 .1851 L
s
0 .22327 m
.00375 .22327 L
s
0 .29959 m
.00375 .29959 L
s
0 .33775 m
.00375 .33775 L
s
0 .37591 m
.00375 .37591 L
s
0 .45223 m
.00375 .45223 L
s
0 .49039 m
.00375 .49039 L
s
0 .52855 m
.00375 .52855 L
s
0 .07062 m
.00375 .07062 L
s
0 .03246 m
.00375 .03246 L
s
0 .60487 m
.00375 .60487 L
s
.25 Mabswid
0 0 m
0 .61803 L
s
gsave
-0.01875 .30902 -76.9062 -8.90625 Mabsadd m
1 1 Mabs scale
currentpoint translate
66 8.90625 translate
90 rotate
-66 -8.90625 translate
0 20 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
61.000000 13.812500 moveto
558.000000 13.812500 lineto
558.000000 4.000000 lineto
61.000000 4.000000 lineto
61.000000 13.812500 lineto
closepath
clip newpath
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(O) show
69.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: Courier
grestore
.06035 .61178 m
.06035 .61803 L
s
.24081 .61178 m
.24081 .61803 L
s
.42127 .61178 m
.42127 .61803 L
s
.60173 .61178 m
.60173 .61803 L
s
.7822 .61178 m
.7822 .61803 L
s
.96266 .61178 m
.96266 .61803 L
s
.125 Mabswid
.10547 .61428 m
.10547 .61803 L
s
.15058 .61428 m
.15058 .61803 L
s
.1957 .61428 m
.1957 .61803 L
s
.28593 .61428 m
.28593 .61803 L
s
.33104 .61428 m
.33104 .61803 L
s
.37616 .61428 m
.37616 .61803 L
s
.46639 .61428 m
.46639 .61803 L
s
.5115 .61428 m
.5115 .61803 L
s
.55662 .61428 m
.55662 .61803 L
s
.64685 .61428 m
.64685 .61803 L
s
.69196 .61428 m
.69196 .61803 L
s
.73708 .61428 m
.73708 .61803 L
s
.82731 .61428 m
.82731 .61803 L
s
.87243 .61428 m
.87243 .61803 L
s
.91754 .61428 m
.91754 .61803 L
s
.01524 .61428 m
.01524 .61803 L
s
.25 Mabswid
0 .61803 m
1 .61803 L
s
.99375 .10878 m
1 .10878 L
s
.99375 .26143 m
1 .26143 L
s
.99375 .41407 m
1 .41407 L
s
.99375 .56671 m
1 .56671 L
s
.125 Mabswid
.99625 .14694 m
1 .14694 L
s
.99625 .1851 m
1 .1851 L
s
.99625 .22327 m
1 .22327 L
s
.99625 .29959 m
1 .29959 L
s
.99625 .33775 m
1 .33775 L
s
.99625 .37591 m
1 .37591 L
s
.99625 .45223 m
1 .45223 L
s
.99625 .49039 m
1 .49039 L
s
.99625 .52855 m
1 .52855 L
s
.99625 .07062 m
1 .07062 L
s
.99625 .03246 m
1 .03246 L
s
.99625 .60487 m
1 .60487 L
s
.25 Mabswid
1 0 m
1 .61803 L
s
0 .10878 m
1 .10878 L
s
.0001 w
.1495 .54141 -2.5 2.5 Mabsadd m
.1495 .54141 2.5 2.5 Mabsadd L
.1495 .54141 2.5 -2.5 Mabsadd L
.1495 .54141 -2.5 -2.5 Mabsadd L
.1495 .54141 -2.5 2.5 Mabsadd L closepath F
.97348 .16881 -2.5 2.5 Mabsadd m
.97348 .16881 2.5 2.5 Mabsadd L
.97348 .16881 2.5 -2.5 Mabsadd L
.97348 .16881 -2.5 -2.5 Mabsadd L
.97348 .16881 -2.5 2.5 Mabsadd L closepath F
.39962 .4065 -2.5 2.5 Mabsadd m
.39962 .4065 2.5 2.5 Mabsadd L
.39962 .4065 2.5 -2.5 Mabsadd L
.39962 .4065 -2.5 -2.5 Mabsadd L
.39962 .4065 -2.5 2.5 Mabsadd L closepath F
.03743 .59565 -2.5 2.5 Mabsadd m
.03743 .59565 2.5 2.5 Mabsadd L
.03743 .59565 2.5 -2.5 Mabsadd L
.03743 .59565 -2.5 -2.5 Mabsadd L
.03743 .59565 -2.5 2.5 Mabsadd L closepath F
.16682 .52525 -2.5 2.5 Mabsadd m
.16682 .52525 2.5 2.5 Mabsadd L
.16682 .52525 2.5 -2.5 Mabsadd L
.16682 .52525 -2.5 -2.5 Mabsadd L
.16682 .52525 -2.5 2.5 Mabsadd L closepath F
.38545 .41347 -2.5 2.5 Mabsadd m
.38545 .41347 2.5 2.5 Mabsadd L
.38545 .41347 2.5 -2.5 Mabsadd L
.38545 .41347 -2.5 -2.5 Mabsadd L
.38545 .41347 -2.5 2.5 Mabsadd L closepath F
.37318 .42978 -2.5 2.5 Mabsadd m
.37318 .42978 2.5 2.5 Mabsadd L
.37318 .42978 2.5 -2.5 Mabsadd L
.37318 .42978 -2.5 -2.5 Mabsadd L
.37318 .42978 -2.5 2.5 Mabsadd L closepath F
.32076 .44572 -2.5 2.5 Mabsadd m
.32076 .44572 2.5 2.5 Mabsadd L
.32076 .44572 2.5 -2.5 Mabsadd L
.32076 .44572 -2.5 -2.5 Mabsadd L
.32076 .44572 -2.5 2.5 Mabsadd L closepath F
.26987 .47157 -2.5 2.5 Mabsadd m
.26987 .47157 2.5 2.5 Mabsadd L
.26987 .47157 2.5 -2.5 Mabsadd L
.26987 .47157 -2.5 -2.5 Mabsadd L
.26987 .47157 -2.5 2.5 Mabsadd L closepath F
.22141 .49658 -2.5 2.5 Mabsadd m
.22141 .49658 2.5 2.5 Mabsadd L
.22141 .49658 2.5 -2.5 Mabsadd L
.22141 .49658 -2.5 -2.5 Mabsadd L
.22141 .49658 -2.5 2.5 Mabsadd L closepath F
.06495 .58034 -2.5 2.5 Mabsadd m
.06495 .58034 2.5 2.5 Mabsadd L
.06495 .58034 2.5 -2.5 Mabsadd L
.06495 .58034 -2.5 -2.5 Mabsadd L
.06495 .58034 -2.5 2.5 Mabsadd L closepath F
.16123 .53468 -2.5 2.5 Mabsadd m
.16123 .53468 2.5 2.5 Mabsadd L
.16123 .53468 2.5 -2.5 Mabsadd L
.16123 .53468 -2.5 -2.5 Mabsadd L
.16123 .53468 -2.5 2.5 Mabsadd L closepath F
.02381 .60332 -2.5 2.5 Mabsadd m
.02381 .60332 2.5 2.5 Mabsadd L
.02381 .60332 2.5 -2.5 Mabsadd L
.02381 .60332 -2.5 -2.5 Mabsadd L
.02381 .60332 -2.5 2.5 Mabsadd L closepath F
.27176 .4706 -2.5 2.5 Mabsadd m
.27176 .4706 2.5 2.5 Mabsadd L
.27176 .4706 2.5 -2.5 Mabsadd L
.27176 .4706 -2.5 -2.5 Mabsadd L
.27176 .4706 -2.5 2.5 Mabsadd L closepath F
.31598 .46075 -2.5 2.5 Mabsadd m
.31598 .46075 2.5 2.5 Mabsadd L
.31598 .46075 2.5 -2.5 Mabsadd L
.31598 .46075 -2.5 -2.5 Mabsadd L
.31598 .46075 -2.5 2.5 Mabsadd L closepath F
.15446 .49169 0 2.5 Mabsadd m
.15446 .49169 -2.165 -1.25 Mabsadd L
.15446 .49169 2.165 -1.25 Mabsadd L
.15446 .49169 0 2.5 Mabsadd L closepath F
.97619 .01472 0 2.5 Mabsadd m
.97619 .01472 -2.165 -1.25 Mabsadd L
.97619 .01472 2.165 -1.25 Mabsadd L
.97619 .01472 0 2.5 Mabsadd L closepath F
.40233 .33751 0 2.5 Mabsadd m
.40233 .33751 -2.165 -1.25 Mabsadd L
.40233 .33751 2.165 -1.25 Mabsadd L
.40233 .33751 0 2.5 Mabsadd L closepath F
.05241 .55924 0 2.5 Mabsadd m
.05241 .55924 -2.165 -1.25 Mabsadd L
.05241 .55924 2.165 -1.25 Mabsadd L
.05241 .55924 0 2.5 Mabsadd L closepath F
.18848 .47098 0 2.5 Mabsadd m
.18848 .47098 -2.165 -1.25 Mabsadd L
.18848 .47098 2.165 -1.25 Mabsadd L
.18848 .47098 0 2.5 Mabsadd L closepath F
.39457 .34164 0 2.5 Mabsadd m
.39457 .34164 -2.165 -1.25 Mabsadd L
.39457 .34164 2.165 -1.25 Mabsadd L
.39457 .34164 0 2.5 Mabsadd L closepath F
.37832 .34852 0 2.5 Mabsadd m
.37832 .34852 -2.165 -1.25 Mabsadd L
.37832 .34852 2.165 -1.25 Mabsadd L
.37832 .34852 0 2.5 Mabsadd L closepath F
.32337 .38245 0 2.5 Mabsadd m
.32337 .38245 -2.165 -1.25 Mabsadd L
.32337 .38245 2.165 -1.25 Mabsadd L
.32337 .38245 0 2.5 Mabsadd L closepath F
.27438 .41422 0 2.5 Mabsadd m
.27438 .41422 -2.165 -1.25 Mabsadd L
.27438 .41422 2.165 -1.25 Mabsadd L
.27438 .41422 0 2.5 Mabsadd L closepath F
.41216 .33933 0 2.5 Mabsadd m
.41216 .33933 -2.165 -1.25 Mabsadd L
.41216 .33933 2.165 -1.25 Mabsadd L
.41216 .33933 0 2.5 Mabsadd L closepath F
.07235 .54382 0 2.5 Mabsadd m
.07235 .54382 -2.165 -1.25 Mabsadd L
.07235 .54382 2.165 -1.25 Mabsadd L
.07235 .54382 0 2.5 Mabsadd L closepath F
.17612 .47912 0 2.5 Mabsadd m
.17612 .47912 -2.165 -1.25 Mabsadd L
.17612 .47912 2.165 -1.25 Mabsadd L
.17612 .47912 0 2.5 Mabsadd L closepath F
.05304 .56185 0 2.5 Mabsadd m
.05304 .56185 -2.165 -1.25 Mabsadd L
.05304 .56185 2.165 -1.25 Mabsadd L
.05304 .56185 0 2.5 Mabsadd L closepath F
.27303 .41466 0 2.5 Mabsadd m
.27303 .41466 -2.165 -1.25 Mabsadd L
.27303 .41466 2.165 -1.25 Mabsadd L
.27303 .41466 0 2.5 Mabsadd L closepath F
.32879 .38179 0 2.5 Mabsadd m
.32879 .38179 -2.165 -1.25 Mabsadd L
.32879 .38179 2.165 -1.25 Mabsadd L
.32879 .38179 0 2.5 Mabsadd L closepath F
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
ImageSize->{914.625, 565},
ImageMargins->{{62, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg NYM1Imb]`ULU>oooojjb`i>GYMcNiEePJ@0006=SW5ADQ;NgdBl_B_ooooogjMSAa/c5^YVDR`0009BD
U:f][B4Q8Kfm_MkNg]gNiUiPJD92@_l0og=cLf=SHooo003ooe5Anl30`820P8200?XC@3_j=7emOFAT
I4];BlS8b>7QhIJFU_l0003o0000oclo?nKVn_GeoHF5TLC4eOogjBm?CfUYJKjn_]?CdiT0I_ooc020
P80006IVc3 ?`0oO`0o_`0oo`1o001o?`1oO`1o_`1oo`2o002o?`2oOc2XW1TIL8b<^5iNVc/kQKno08X[h/VNlT KgDT`;no_m7FjVQ[MJo^k[C^];8R8[b?Sj0Pl=Y`e[R62b:;8V2PX>K>/OoTa;2`/=WIfOn^^LfgWTJ2
];0`H9V9MX:2PP2o_`2oohYlJ_oon7k0kRj;EoZ0LP3o?`3oO`3o_cl003l0?cl0Ocl0_cl0oclo03lo
Oclo_cloocmo03mo?cmoOcmo_cmoocno03no?cnoOcno_cnoocoo03oo?cooOcoo_cooogl007l0?gl0
Ogl0_gl0oglo07lo?gloOglo_gloogmo07mo?gmo_gmoogno07no?gnoOgno_gnoogoo07oo?gooOgoo
_goookl00;l0?kl0Okl0_kl0oklo0;lo?kloOklo_klookmo0;mo?kmoOkmo_kmookno?knoOknookoo
0;oo?kooOkoo_kooool0?ol0Ool0_olo0?lo?oloOolo_olooomo0?mo?omoOomo_omooono0?no?ono
Oono_onooooo?oooOooo_iBGY^o_kgalO9UVVIUVc6K=ZY[=jdPmRoGN/m:dS?oG0?nU0:1B
;LeLG=9Y7_o0bmfPgKYEdiTbc9UVoiVI09VI o`2_0000o`1A008100@00@400`4200@100@00@410P090@030041008100<00@40o`0h0000o`1A0081
00<00@000P001@40000100D000D100000@0300060@000@010P000`400@0200030@000?l0=@000?l0
DP030@<000D100000@0500050@0000400`001P4000400@8000<100400`7o03L0003o05800P440003
0@0000@10P020@801P400`010@0200<10P020Ol0>0000?l0DP020@@000D100000@0500050@000040
2`000`40003o03X0003o05L00P4900030@0000`00P7o03`0000o00<10P020@<00P5Z00810P020@<0
0P5Y00810`020@<00P5W00<10P020@<00P430081I0030@03004100810P020@<00P5T00<10P030@80
0P4300815P0003h010401`01000100400P000`40001V00030@0000810P000`400@0200030@0006D0
00H10001004200030@01008000<10000I@001040004200030@01008000<100400P000`40001R0009
0@0000400@01008000<100400P000`40001R00030@0000@100L00@000@01008000<100004`0003h0
00<100400P001P4000400@8000<10000IP020@030041008000<100400P000`40001U00060@000@01
0P000`400@0200030@0006D000@100010P000`400@0200030@01008000<10000HP000`4000020004
0@000@8000<100400P000`40001R00060@000@010P001P4000400@8000<100004`0003l00P420006
0@000@010P000`40001V00<100L00@000@01008000<10000I@040@07004000400@0200030@0006D0
00@100010P000`400@0200030@01008000<10000HP000`40000300030@01008000<100400P000`40
001R00040@0000810P001P4000400@8000<100004`0003l00P4200060@000@010P000`40001V0081
0P001P4000400@8000<10000I@001P4000400@8000<100400P000`40001U00040@000@8000<10040
0P000`400@0200030@00068000@100010P000`400@0200030@01008000<10000HP00104000020@80
00H10001004200030@0001<0001000040@0000810`020FX00`400`010@030081J@020@<00P430081
I`020@<00P4300810`020F@00P4300810`020@<00P5T00811000104000020@<00P4F0000o`3o0:l0
003o0?l0[`000?l0o`2_0000o`3o0:l0003o0?l0[`000?l0o`2_00007P3o0Ol1R`4600007P000`40
000700030@0001X000<100006P000`40000K00030@0001X000<100006P000`40000J00030@0001X0
00<100006`000`40000J00030@0001X000<100006P000`40000K00030@0001X000<100006P000`40
000J00030@0001X000<100006`000`40000J00030@0001X000<100006P000`40000K00030@0001D0
00<10000100001h000<100001`000`40000J00030@0001X000<100006`000`40000J00030@0001X0
00<100006P000`40000J00030@0001/000<100006P000`40000J00030@0001X000<100006`000`40
000J00030@0001X000<100006P000`40000J00030@0001/000<100006P000`40000J00030@0001X0
00<100006`000`40000E00030@0000@0000N00030@0000L000<100006P000`40000J00030@0001/0
00<100006P000`40000J00030@0001X000<100006P000`40000K00030@0001X000<100006P000`40
000J00030@0001/000<100006P000`40000J00030@0001X000<100006P000`40000K00030@0001X0
00<100006P000`40000J00030@0001/000<100005@000`40000400007P000`40000T00030@000780
00<10000LP000`40001b00030@00078000<10000LP000`40000E00030@0000@0000N00030@000?l0
o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0
000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0
o`1g00813P000`40000400007P000`40003o0?l0M`000`40000=00030@0000@0000N00030@000?l0
o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0
000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0
o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0
000N00030@000?l0o`2700030@0000@0000N00<1o`3o08@0104600007P000`40003o0?l0Q`000`40
000400007P000`40003o0?l0Q`000`40000400007P000`40003o0?l0Q`000`40000400007P000`40
003o0?l0Q`000`40000400007P000`40003o0?l0Q`000`40000400007P000`40003o0?l0Q`000`40
000400007P000`40003o0?l0Q`000`40000400007P000`40003o0?l0Q`000`40000400007P000`40
003o0?l0Q`000`40000400007P000`40003o0?l0Q`000`40000400007P000`40003o0?l0Q`000`40
000400007P000`40003o0?l0Q`000`40000400007P000`40003o0?l0Q`000`40000400007P000`40
003o0?l0Q`000`40000400007P000`40003o0?l0Q`000`40000400007P000`40003o0?l0Q`000`40
000400007P000`40003o0?l0Q`000`40000400007P000`40003o0?l0Q`000`40000400007P000`40
003o0?l0Q`000`40000400007P000`40003o0?l0Q`000`40000400007P000`40003o0?l0Q`000`40
000400007P000`40003o0?l0Q`000`40000400007P000`40003o0?l0Q`000`40000400007P000`40
003o0?l0Q`000`40000400007P030Ol0o`2400@11P0001h000<10000o`3o08L000<10000100001h0
00<10000o`3o08L000<10000100001h000<10000o`3o08L000<10000100001h000<10000o`3o08L0
00<10000100001h000<10000o`3o08L000<10000100001h000<10000o`3o08L000<10000100001h0
00<10000o`3o08L000<10000100001h000<10000o`3o08L000<10000100001h000<10000o`3o08L0
00<10000100001h000<10000o`3o08L000<10000100001h000<10000o`3o08L000<10000100001h0
00<10000o`3o08L000<10000100001h000<10000o`3o08L000<10000100001h000<10000o`3o08L0
00<10000100001h000<10000o`3o08L000<10000100001h000<10000o`3o08L000<10000100001h0
00<10000o`3o08L000<10000100001h000<10000o`3o08L000<10000100001h000<10000o`3o08L0
00<10000100001h000<10000o`3o08L000<10000100001h000<10000o`3o08L000<10000100001h0
00<10000o`3o08L000<10000100001h000<10000o`3o08L000<1000010000140104900030@000?l0
o`2700030@0000@0000B00030@0100T0o`7o0H/11P0001<000<1000020000`40003o0?l0Q`000`40
0004000050000`40000700030@000?l0o`2700030@0000@0000A00040@000@T000<10000o`3o08L0
00<10000100001800P4:00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0
000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0
o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0
000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0
o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0
000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0
o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0
000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0
o`2700030@0000@0000N00<1o`3o08@0104600007P000`40003o0?l0Q`000`40000400007P000`40
003o0?l0Q`000`40000400007P000`40003o0?l0Q`000`40000400007P000`40003o0?l0Q`000`40
000400007P000`40003o0?l0Q`000`40000400007P000`40003o0?l0Q`000`40000400007P000`40
003o0?l0Q`000`40000400007P000`40003o0?l0Q`000`40000400007P000`40003o0?l0Q`000`40
000400007P000`40003o0?l0Q`000`40000400007P000`40003o0?l0Q`000`40000400007P000`40
003o0?l0Q`000`40000400007P000`40003o0?l0Q`000`40000400007P000`40003o0?l0M0030A00
00<10000100001h000<10000o`3o07@00`4@00030@0000@0000N00030@000?l0o`1d00<140000`40
000400007P000`40003o0?l0Q`000`40000400007P000`40003o0?l0Q`000`40000400007P000`40
003o0?l0Q`000`40000400007P000`40003o0?l0Q`000`40000400007P000`40003o0?l0Q`000`40
000400007P000`40003o0?l0Q`000`40000400007P000`40003o0?l0Q`000`40000400007P000`40
003o0?l0Q`000`40000400007P030Ol0o`2400@11P0001h000<10000o`3o08L000<10000100001h0
00<10000o`3o08L000<10000100001h000<10000o`3o08L000<10000100001h000<10000o`3o08L0
00<10000100001h000<10000o`3o08L000<10000100001h000<10000o`3o08L000<10000100001h0
00<10000o`3o08L000<10000100001h000<10000o`3o08L000<10000100001h000<10000o`3o08L0
00<10000100001h000<10000o`3o08L000<10000100001h000<10000o`3o08L000<10000100001h0
00<10000o`3o08L000<10000100001h000<10000o`3o08L000<10000100001h000<10000o`3o08L0
00<10000100001h000<10000o`3o08L000<10000100001h000<10000o`3o08L000<10000100001h0
00<10000o`3o08L000<10000100001h000<10000o`3o08L000<10000100001h000<10000o`3o08L0
00<10000100001h000<10000o`3o08L000<10000100001h000<10000o`3o08L000<10000100001h0
00<10000o`3o08L000<10000100001h000<10000o`3o08L000<10000100001h000<10000o`3o08L0
00<10000100001h00`7o0?l0Q0040@H0000N00030@000?l0o`2700030@0000@0000N00030@000?l0
o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0
000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0
o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0
000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0
o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0
000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0
o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0
000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0
o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000B00<12@000`40003o0?l0Q`000`40
000400004@040@T01@7o0?l0P@050@H0000A00030@0100X000<10000o`3o08L000<1000010000180
0P4:00030@000?l0o`2700030@0000@0000B00812P000`40003o0?l0Q`000`40000400004`000`40
000800030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0
o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0
000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0
o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0
000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0
o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0
000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0
o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0
000N00<1o`3o08@0104600007P000`40003o0?l0Q`000`40000400007P000`40003o0?l0Q`000`40
000400007P000`40003o0?l0Q`000`40000400007P000`40003o0?l0Q`000`40000400002`030A00
00<10000o`3o08L000<10000100000X000D100000@0?00030@000?l0o`2700030@0000@0000:0005
0@0000403`000`40003o0?l0Q`000`40000400002P001@40000100l000<10000o`3o08L000<10000
100000/00`4@00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N0003
0@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`270003
0@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N0003
0@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`270003
0@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N0003
0@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`270003
0@0000@0000N00030@000?l0o`2700030@0000@0000N00<1o`020081o`2000@11P0001h000<10000
o`0300030@0000800`7o07`000<10000100001h000<10000o`0900030@000?l0N`000`4000040000
7P000`40003l0081o`2800030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0
o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?400`7o098000<10000
100001h000<10000lP000`40003o094000<10000100001h000<10000o`3o08L000<10000100001h0
00<10000o`3o08L000<10000100001h000<10000o`3o08L000<10000100001h000<10000o`3o08L0
00<10000100001h000<10000o`3o08L000<10000100001h000<10000o`3o08L000<10000100001h0
00<10000o`3o08L000<10000100001h000<10000o`3o08L000<10000100001h000<10000o`3o08L0
00<10000100001h000<10000o`3o08L000<10000100001h000<10000o`3o08L000<10000100001h0
00<10000o`3o08L000<10000100001h000<10000o`3o08L000<10000100001h000<10000o`3o08L0
00<10000100001h000<10000o`3o08L000<10000100001h000<10000o`3o08L000<10000100001h0
0`7o0?l0Q0040@H0000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0
000N00030@000?l0o`2700030@0000@0000N00030@000 00<10000c`000`40003o0;@000<10000100001h000<10000o`3o08L000<10000100001h000<10000
o`3o08L000<10000100001h000<10000o`3o08L000<10000100001h000<10000o`3o08L000<10000
100001h000<10000o`3o08L000<10000100001h000<10000o`3o08L000<10000100001h000<10000
o`3o08L000<10000100001h000<10000o`3o08L000<10000100001h000<10000o`3o08L000<10000
100001h000<10000o`3o08L000<10000100001h000<10000o`3o08L000<10000100001h000<10000
o`3o08L000<10000100001h000<10000o`3o08L000<10000100001h000<10000oP040Ol0Q0000`40
000400007P000`40003n00@1o`2400030@0000@0000N00030@000?h0107o08@000<10000100001h0
00<10000o`3o08L000<10000100001h000<10000m@040Ol0S@000`40000400004`020@T01@7c00@1
o`2900D11P00018000@1000120000`40002]00<1A@040Ol0S@000`40000400004P020@03004000L0
00<10000[P000`40001400@1o`2=00030@0000@0000B00<12@000`40003o0?l0Q`000`4000040000
4P020@X000<10000o`3o08L000<10000100001<00`4800030@000?l0o`2700030@0000@0000N0003
0@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`270003
0@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000>d0107o09D000<10000100001h0
00<10000k@040Ol0U@000`40000400007P000`40003]00@1o`2E00030@0000@0000N00030@000?l0
o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0
000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0
o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000 100001h000<10000b`040Ol0]`000`40000400007P000`40003;00@1o`2g00030@0000@0000N0003
0@000 000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0
o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000 100001h000<10000b0040Ol0^P000`40000400007P000`40003800@1o`2j00030@0000@0000N0003
0@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`270003
0@0000@0000N00030@000:/0107o0=L000<10000100001h000<10000M`020C401@7o0=L000<10000
100001h000<10000M`000`40000`00D1o`3G00030@0000@0000N00030@000:X01@7o0=L000<10000
100001h000<10000ZP040Ol0f0000`40000400007P000`40003o0?l0Q`000`40000400007P000`40
003o0?l0Q`000`40000400007P000`40001_00030@000?l0o`0E00030@0000@0000N00030@000?l0
o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0
000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0
o`2700030@0000@0000N00<1o`3o08@0104600007P000`40001P00<1o`3o02@000<10000100001h0
00<10000H@000`40003o0?l08`000`40000400007P000`40002;00<1o`3h00030@0000@0000N0003
0@0008/00`7o0?P000<10000100001h000<10000R`030Ol0n0000`40000400007P000`40002;00<1
o`3h00030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0
000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0
o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0
000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0
o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0
000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@000?l0
o`2700030@0000@0000N00030@0006L0107o0?l070000`40000400007P000`40001W00@1o`3o01`0
00<10000100001h000<10000I`040Ol0o`0L00030@0000@0000N00<1o`3o08@0104600007P000`40
003o0?l0Q`000`40000400007P000`40003o0?l0Q`000`40000400007P000`40001T00<1o`3o0200
00<10000100001h000<10000I0030Ol0o`0P00030@0000@0000N00030@0006@00`7o0?l080000`40
000400007P000`40003o0?l0Q`000`40000400007P000`40001L00@1o`3o02L000<10000100001h0
00<10000G0040Ol0o`0W00030@0000@0000N00030@0002/00`4^00@1o`3o02L000<10000100001h0
00<10000;0000`40000]00@1o`3o02L000<10000100001h000<10000o`3o08L000<10000100001h0
00<10000o`3o08L000<10000100001h000<10000o`3o08L000<10000100001h000<10000o`3o08L0
00<10000100001h000<10000o`3o08L000<10000100001h000<10000o`3o08L000<10000100001h0
00<10000o`3o08L000<10000100001h000<10000o`3o08L000<10000100001h000<100007P030Ol0
o`1V00030@0000@0000N00030@0001l000<10000o`3o06D000<10000100001h000<100007`020Ol0
o`1V00030@0000@0000N00030@0001l000<10000o`3o06D000<10000100001h000<10000o`3o08L0
00<10000100001800P4:00D1o`3o08401@4600004@001040004900030@000?l0o`2700030@0000@0
000A00040@000@T000<10000o`3o08L000<1000010000140104900030@000?l0o`2700030@0000@0
000A00040@000@T000<10000o`3o08L000<10000100001800P4:00030@000?l0o`2700030@0000@0
000N00030@000?l0o`2700030@0000@0000N00030@000?l0o`2700030@0000@0000N00030@0002D0
107o0?l0GP000`40000400007P000`40000U00@1o`3o05h000<10000100001h000<100009@040Ol0
o`1N00030@0000@0000N00030@0002D0107o0?l0GP000`40000400007P000`40003o0?l0Q`000`40
000400007P000`40003o0?l0Q`000`40000400007P000`40003o0?l0Q`000`40000400007P000`40
003o0?l0Q`000`40000400007P000`40003o0?l0Q`000`40000400007P000`40003o0?l0Q`000`40
000400007P000`40000C00@1o`3o070000<10000100001h000<100004`040Ol0o`1`00030@0000@0
000N00030@0001<0107o0?l0L0000`40000400007P000`40000C00@1o`3o070000<10000100001h0
00<10000o`3o08L000<10000100001h000<100002`030Ol0o`1i00030@0000@0000N00030@0000/0
0`7o0?l0N@000`40000400007P030@/00`7o0?l0MP040@H0000N00030@0000/00`7o0?l0N@000`40
000400007P000`40003o0?l0Q`000`40000400007P000`40003o0?l0Q`000`40000400007P000`40
000T00030@00078000<10000LP000`40001b00030@00078000<10000LP000`40000E00030@0000@0
000N00030@0002@000<10000LP000`40001b00030@00078000<10000LP000`40001b00030@0001D0
00<10000100001h000<100001`000`40000J00030@0001X000<100006`000`40000J00030@0001X0
00<100006P000`40000J00030@0001/000<100006P000`40000J00030@0001X000<100006`000`40
000J00030@0001X000<100006P000`40000J00030@0001/000<100006P000`40000J00030@0001X0
00<100006`000`40000E00030@0000@0000N00030@0000L000<100006P000`40000J00030@0001/0
00<100006P000`40000J00030@0001X000<100006P000`40000K00030@0001X000<100006P000`40
000J00030@0001/000<100006P000`40000J00030@0001X000<100006P000`40000K00030@0001X0
00<100006P000`40000J00030@0001/000<100005@000`40000400007P3o0Ol1R`460000\
\>"],
ImageRangeCache->{{{0, 684.938}, {422.75, 0}} -> {280.809, 0.120692,
1.2833, 0.0151716}}],

Cell[BoxData[
FormBox[
TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(Display["\", zzz, "\", ImageResolution -> 600]
\)], "Input"],

Cell[BoxData[
FormBox[
TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell["Now some auxilliary items for the data analysis", "Section"],

Cell[BoxData[
\(\(\t\t\ttrueAnom = 111; \nlittlerorbCon = CompLittleROrb[trueAnom]; \n
\t\t\t\taltispherCon\ = \ CompAltiSpher[trueAnom]; \n\t\t
speedCon = CompSpeed[trueAnom]; \n\t\t
eccanomCon\ = \ CompEccAnom[trueAnom]; \n\t\t
meananomCon\ = \ \ CompMeanAnom[trueAnom]; \n\t\t
latgeocCon\ = \ \ CompLatGeoc[trueAnom]; \n\t\t
longgeocCon\ = \ \ CompLongGeoc[trueAnom]; \n\t\t
tperiCon = CompTperi[trueAnom]; \n\t\t
longgeocsubtcCon\ = \ \ CompLongGeocSubTc[trueAnom]; \n\t\t
rgeoidCon\ = \ \ CompRgeoid[trueAnom]; \n\t\t
haneqtCon\ = \ \ CompHAneqt[trueAnom]; \n\t\t
altgeoidCon\ = \ \ CompAltGeoid[trueAnom]; \n\t\t
etaCon\ = \ \ CompEta[trueAnom]; \n\t\t
thetaCon\ = \ \ CompTheta[trueAnom]; \n\t\t
tauCon\ = \ \ CompTau[trueAnom]; \n\t\taCon\ = \ CompA[trueAnom]; \n\t\t
tniCon\ = \ \ CompTni[trueAnom]; \n\t\t
tdayCon\ = \ \ CompTday[trueAnom]; \n\t\ttlCon\ = \ \ CompTl[trueAnom];
\n\t\ttempinfCon\ = \ \ CompTempInf[trueAnom]; \n\t\t
tsubxCon\ = \ \ CompTsubx[trueAnom]; \n\t\t
biggsubxCon\ = \ \ CompBigGsubx[trueAnom]; \n\t\t
constraintvectCon\ = \ \ CompConstraintVect[trueAnom]; \n\t\t
bigaCon\ = \ \ CompBigA[trueAnom]; \)\)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
\(plotObj = Plot[Evaluate[CompTemper[x, 111], {x, 90, 500}]]\)], "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.18525 0.00232288 -0.130796 0.000795141 [
[.04704 .01573 -9 -9 ]
[.04704 .01573 9 0 ]
[.27933 .01573 -9 -9 ]
[.27933 .01573 9 0 ]
[.51161 .01573 -9 -9 ]
[.51161 .01573 9 0 ]
[.7439 .01573 -9 -9 ]
[.7439 .01573 9 0 ]
[.97619 .01573 -9 -9 ]
[.97619 .01573 9 0 ]
[-0.01192 .10775 -18 -4.5 ]
[-0.01192 .10775 0 4.5 ]
[-0.01192 .18726 -18 -4.5 ]
[-0.01192 .18726 0 4.5 ]
[-0.01192 .26677 -18 -4.5 ]
[-0.01192 .26677 0 4.5 ]
[-0.01192 .34629 -18 -4.5 ]
[-0.01192 .34629 0 4.5 ]
[-0.01192 .4258 -18 -4.5 ]
[-0.01192 .4258 0 4.5 ]
[-0.01192 .50532 -18 -4.5 ]
[-0.01192 .50532 0 4.5 ]
[-0.01192 .58483 -18 -4.5 ]
[-0.01192 .58483 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.04704 .02823 m
.04704 .03448 L
s
[(100)] .04704 .01573 0 1 Mshowa
.27933 .02823 m
.27933 .03448 L
s
[(200)] .27933 .01573 0 1 Mshowa
.51161 .02823 m
.51161 .03448 L
s
[(300)] .51161 .01573 0 1 Mshowa
.7439 .02823 m
.7439 .03448 L
s
[(400)] .7439 .01573 0 1 Mshowa
.97619 .02823 m
.97619 .03448 L
s
[(500)] .97619 .01573 0 1 Mshowa
.125 Mabswid
.0935 .02823 m
.0935 .03198 L
s
.13995 .02823 m
.13995 .03198 L
s
.18641 .02823 m
.18641 .03198 L
s
.23287 .02823 m
.23287 .03198 L
s
.32578 .02823 m
.32578 .03198 L
s
.37224 .02823 m
.37224 .03198 L
s
.4187 .02823 m
.4187 .03198 L
s
.46516 .02823 m
.46516 .03198 L
s
.55807 .02823 m
.55807 .03198 L
s
.60453 .02823 m
.60453 .03198 L
s
.65099 .02823 m
.65099 .03198 L
s
.69744 .02823 m
.69744 .03198 L
s
.79036 .02823 m
.79036 .03198 L
s
.83682 .02823 m
.83682 .03198 L
s
.88328 .02823 m
.88328 .03198 L
s
.92973 .02823 m
.92973 .03198 L
s
.25 Mabswid
0 .02823 m
1 .02823 L
s
.00058 .10775 m
.00683 .10775 L
s
[(300)] -0.01192 .10775 1 0 Mshowa
.00058 .18726 m
.00683 .18726 L
s
[(400)] -0.01192 .18726 1 0 Mshowa
.00058 .26677 m
.00683 .26677 L
s
[(500)] -0.01192 .26677 1 0 Mshowa
.00058 .34629 m
.00683 .34629 L
s
[(600)] -0.01192 .34629 1 0 Mshowa
.00058 .4258 m
.00683 .4258 L
s
[(700)] -0.01192 .4258 1 0 Mshowa
.00058 .50532 m
.00683 .50532 L
s
[(800)] -0.01192 .50532 1 0 Mshowa
.00058 .58483 m
.00683 .58483 L
s
[(900)] -0.01192 .58483 1 0 Mshowa
.125 Mabswid
.00058 .04414 m
.00433 .04414 L
s
.00058 .06004 m
.00433 .06004 L
s
.00058 .07594 m
.00433 .07594 L
s
.00058 .09184 m
.00433 .09184 L
s
.00058 .12365 m
.00433 .12365 L
s
.00058 .13955 m
.00433 .13955 L
s
.00058 .15546 m
.00433 .15546 L
s
.00058 .17136 m
.00433 .17136 L
s
.00058 .20316 m
.00433 .20316 L
s
.00058 .21907 m
.00433 .21907 L
s
.00058 .23497 m
.00433 .23497 L
s
.00058 .25087 m
.00433 .25087 L
s
.00058 .28268 m
.00433 .28268 L
s
.00058 .29858 m
.00433 .29858 L
s
.00058 .31448 m
.00433 .31448 L
s
.00058 .33039 m
.00433 .33039 L
s
.00058 .36219 m
.00433 .36219 L
s
.00058 .37809 m
.00433 .37809 L
s
.00058 .394 m
.00433 .394 L
s
.00058 .4099 m
.00433 .4099 L
s
.00058 .44171 m
.00433 .44171 L
s
.00058 .45761 m
.00433 .45761 L
s
.00058 .47351 m
.00433 .47351 L
s
.00058 .48941 m
.00433 .48941 L
s
.00058 .52122 m
.00433 .52122 L
s
.00058 .53712 m
.00433 .53712 L
s
.00058 .55303 m
.00433 .55303 L
s
.00058 .56893 m
.00433 .56893 L
s
.00058 .01233 m
.00433 .01233 L
s
.00058 .60073 m
.00433 .60073 L
s
.00058 .61664 m
.00433 .61664 L
s
.25 Mabswid
.00058 0 m
.00058 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02381 .01472 m
.02499 .01473 L
.02605 .01476 L
.02729 .01484 L
.02846 .01494 L
.02954 .01508 L
.03053 .01524 L
.03279 .01573 L
.03396 .01606 L
.03506 .01643 L
.03756 .01748 L
.04 .01881 L
.04262 .0206 L
.04793 .02552 L
.05297 .03193 L
.06244 .04893 L
.07289 .07536 L
.08259 .10667 L
.10458 .19451 L
.12338 .27234 L
.14371 .3438 L
.16512 .40049 L
.18529 .43959 L
.20523 .4686 L
.22629 .49214 L
.26427 .52275 L
.28378 .53452 L
.30469 .54504 L
.34605 .56105 L
.3859 .5721 L
.42423 .57988 L
.46501 .58594 L
.50428 .59022 L
.54203 .5933 L
.58223 .59577 L
.62092 .59756 L
.66206 .59901 L
.70168 .60008 L
.73979 .60088 L
.78035 .60155 L
.8194 .60207 L
.86089 .60251 L
.90087 .60284 L
.93934 .60311 L
.97619 .60332 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
ImageSize->{828, 511.5},
ImageMargins->{{62, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg NYM1Imb]`ULU>oooojjb`i>GYMcNiEePJ@0006=SW5ADQ;NgdBl_B_ooooogjMSAa/c5^YVDR`0009BD
U:f][B4Q8Kfm_MkNg]gNiUiPJD92@_l0og=cLf=SHooo003ooe5Anl30`820P8200?XC@3_j=7emOFAT
I4];BlS8b>7QhIJFU_l0003o0000oclo?nKVn_GeoHF5TLC4eOogjBm?CfUYJKjn_]?CdiT0I_ooc020
P80006IVc3 ?`0oO`0o_`0oo`1o001o?`1oO`1o_`1oo`2o002o?`2oOc2XW1TIL8b<^5iNVc/kQKno08X[h/VNlT KgDT`;no_m7FjVQ[MJo^k[C^];8R8[b?Sj0Pl=Y`e[R62b:;8V2PX>K>/OoTa;2`/=WIfOn^^LfgWTJ2
];0`H9V9MX:2PP2o_`2oohYlJ_oon7k0kRj;EoZ0LP3o?`3oO`3o_cl003l0?cl0Ocl0_cl0oclo03lo
Oclo_cloocmo03mo?cmoOcmo_cmoocno03no?cnoOcno_cnoocoo03oo?cooOcoo_cooogl007l0?gl0
Ogl0_gl0oglo07lo?gloOglo_gloogmo07mo?gmo_gmoogno07no?gnoOgno_gnoogoo07oo?gooOgoo
_goookl00;l0?kl0Okl0_kl0oklo0;lo?kloOklo_klookmo0;mo?kmoOkmo_kmookno?knoOknookoo
0;oo?kooOkoo_kooool0?ol0Ool0_olo0?lo?oloOolo_olooomo0?mo?omoOomo_omooono0?no?ono
Oono_onooooo?oooOooo_iBGY^o_kgalO9UVVIUVc6K=ZY[=jdPmRoGN/m:dS?oG0?nU0:1B
;LeLG=9Y7_o0bmfPgKYEdiTbc9UVoiVI09VI o`1_0000o`3o06l0003o0?l0K`0001@000<10000o`3o05P0000D00030@000?l0o`1H000050000`40
003o0?l0F00001@000<10000o`3o05P0000D00030@000?l0o`1H000050000`40003o0?l0F00001@0
00<1000050030@800P430081OP040@800P430081O`030@800P430081O`030@800P430081O`030@80
0P4300812P0001@0104D00040@000@8000<100400P000`40001l00050@0100400P000`400@020003
0@0007`000D100400@0200030@01008000<10000N`040@07004000400@0200030@0007`000D10040
0@0200030@01008000<100001`0001@000<100005@001040004200030@01008000<10000O@001040
004200030@01008000<10000OP000`400@0200030@01008000<10000N`000`400@0200060@000@01
0P000`40001n00030@01008000<100400P000`400007000050000`40000;00L10`00104000420003
0@01008000<10000OP000`400@0200030@01008000<10000O@001040004200030@01008000<10000
O0020@8000H10001004200030@0007`00`401`01000100400P000`400007000050000`40000B00@1
0P001P4000400@8000<10000N`001P4000400@8000<100400P000`40001k00060@000@010P000`40
0@0200030@0007`00P4200060@000@010P000`40001l00050@0000400P000`400@0200030@0000L0
000D00030@0001@00`4200810`020Gl00P4300810`020Gl00`4200810`020H0000@100000P430081
O`030@800P4300812P0001@000<100005`000`40003o0?l0?P0001@000<1000060000`40003o0?l0
?@0001@000<100006@000`40003o0?l0?00001@000<100006P000`40003o0?l0>`0001@000<10000
6`000`40003o0?l0>P0001@0o`7o0EX10@0001@000<100006@001040004H00030@0001T000<10000
6@000`40000I00030@0001T000<1000060000`40000I00030@0001T000<100006@000`40000I0003
0@0001T000<1000060000`40000I00030@0001T000<100006@000`40000I00030@0001T000<10000
6@000`40000H00030@0001T000<100003@0001@000<100006@001@40000101L000<100006@000`40
000I00030@0001T000<100006@000`40000H00030@0001T000<100006@000`40000I00030@0001T0
00<100006@000`40000H00030@0001T000<100006@000`40000I00030@0001T000<100006@000`40
000I00030@0001P000<100006@000`40000=000050000`40000I00030@00008000<10000Q0000`40
002800030@0008P000<10000R0000`40000=000050000`40000I00030@00008000<10000Q0000`40
002800030@0008P000<10000R0000`40000=000050000`40000O00030@000?l0o`0f000050000`40
000O00030@000?l0o`0f000050000`40000P00030@000?l0o`0e000050000`40000Q00030@000?l0
o`0d000050040B0000<10000o`3o03@0000D00030@00028000<10000o`3o03<0000D00030@000280
00<10000o`3o03<0000D00030@0002<000<10000o`3o0380000D00030@0002<000<10000o`3o0380
000D00030@0002@000<10000o`3o0340000D00030@0002@000<10000o`3o0340000D00030@0002D0
00<10000o`3o0300000D00030@0002D000<10000o`3o0300000D00030@0002D000<10000o`3o0300
000D00@19@000`40003o0?l0;`0001@000<100009P000`40003o0?l0;`0001@000<100009P000`40
003o0?l0;`0001@000<100009`000`40003o0?l0;P0001@000<100009`000`40003o0?l0;P0001@0
00<10000:0000`40003o0?l0;@0001@000<10000:0000`40003o0?l0;@0001@000<10000:0000`40
003o0?l0;@0001@000<10000:@000`40003o0?l0;00001@0104X00030@000?l0o`0/000050000`40
000Y00030@000?l0o`0/000050000`40000Z00030@000?l0o`0[000050000`40000Z00030@000?l0
o`0[000050000`40000Z00030@000?l0o`0[000050000`40000[00030@000?l0o`0Z000050000`40
000[00030@000?l0o`0Z000050000`40000[00030@000?l0o`0Z000050000`40000/00030@000?l0
o`0Y000050000`40000/00030@000?l0o`0Y000050040B/000<10000o`3o02T0000D00030@0002`0
00<10000o`3o02T0000D00030@0002d000<10000o`3o02P0000D00030@0002d000<10000o`3o02P0
000D00030@0002d000<10000o`3o02P0000D00030@0002h000<10000o`3o02L0000D00030@0002h0
00<10000o`3o02L0000D00030@0002h000<10000o`3o02L0000D00030@0002l000<10000o`3o02H0
000010010@4200810`020@L000<10000;`000`40003o0?l09P00000600400@010P000`400@020003
0@0000@01@4]00030@000?l0o`0V00000`000`400@0200030@01008000<1000010000`40000_0003
0@000?l0o`0V00000P001040004200030@01008000<1000010000`40000`00030@000?l0o`0U0000
00H10001004200030@01008000<1000010000`40000`00030@000?l0o`0U000000@00@410P020@<0
0P4700030@00030000<10000o`3o02D0000D00030@00030000<10000o`3o02D0000D00030@000340
00<10000o`3o02@0000D00030@00034000<10000o`3o02@0000D00030@00034000<10000o`3o02@0
000D00@1<0000`40003o0?l0900001@000<10000 003o0?l08`0001@000<10000 00<10000<`000`40003o0?l08P0001@000<10000<`000`40003o0?l08P0001@000<10000<`000`40
003o0?l08P0001@000<10000<`000`40003o0?l08P0001@000<10000=0000`40003o0?l08@0001@0
104c00030@000?l0o`0Q000050000`40000d00030@000?l0o`0Q000050000`40000d00030@000?l0
o`0Q000050000`40000e00030@000?l0o`0P000050000`40000e00030@000?l0o`0P000050000`40
000e00030@000?l0o`0P000050000`40000e00030@000?l0o`0P000050000`40000f00030@000?l0
o`0O000050000`40000f00030@000?l0o`0O000050040CD000<10000o`3o01l0000D00030@0003H0
00<10000o`3o01l0000D00030@0003L000<10000o`3o01h0000D00030@0003L000<10000o`3o01h0
000D00030@0003L000<10000o`3o01h0000D00030@0003L000<10000o`3o01h0000D00030@0003P0
00<10000o`3o01d0000D00030@0003P000<10000o`3o01d0000D00030@0003P000<10000o`3o01d0
000D00030@0003P000<10000o`3o01d0000D00@1>0000`40003o0?l0700001@000<10000>@000`40
003o0?l0700001@000<10000>@000`40003o0?l0700001@000<10000>@000`40003o0?l0700001@0
00<10000>P000`40003o0?l06`0001@000<10000>P000`40003o0?l06`0001@000<10000>P000`40
003o0?l06`0001@000<10000>P000`40003o0?l06`00000400410@800P4300811`000`40000k0003
0@000?l0o`0J000010401`01000100400P000`40000400D1>@000`40003o0?l06P0000030@010080
00H10001004200030@0000@000<10000>`000`40003o0?l06P0000030041008000H1000100420003
0@0000@000<10000>`000`40003o0?l06P0000030041008000H10001004200030@0000@000<10000
?0000`40003o0?l06@00008000@100000P4300811`000`40000l00030@000?l0o`0I000050000`40
000l00030@000?l0o`0I000050000`40000l00030@000?l0o`0I000050000`40000l00030@000?l0
o`0I000050000`40000m00030@000?l0o`0H000050000`40000m00030@000?l0o`0H000050040C`0
00<10000o`3o01P0000D00030@0003d000<10000o`3o01P0000D00030@0003h000<10000o`3o01L0
000D00030@0003h000<10000o`3o01L0000D00030@0003h000<10000o`3o01L0000D00030@0003h0
00<10000o`3o01L0000D00030@0003l000<10000o`3o01H0000D00030@0003l000<10000o`3o01H0
000D00030@0003l000<10000o`3o01H0000D00@1?P000`40003o0?l05P0001@000<10000@0000`40
003o0?l05@0001@000<10000@0000`40003o0?l05@0001@000<10000@0000`40003o0?l05@0001@0
00<10000@0000`40003o0?l05@0001@000<10000@@000`40003o0?l0500001@000<10000@@000`40
003o0?l0500001@000<10000@@000`40003o0?l0500001@000<10000@@000`40003o0?l0500001@0
00<10000@P000`40003o0?l04`0001@0105100030@000?l0o`0C000050000`40001200030@000?l0
o`0C000050000`40001200030@000?l0o`0C000050000`40001200030@000?l0o`0C000050000`40
001300030@000?l0o`0B000050000`40001300030@000?l0o`0B000050000`40001300030@000?l0
o`0B000050000`40001300030@000?l0o`0B000050000`40001400030@000?l0o`0A000050040D<0
00<10000o`3o0140000D00030@0004@000<10000o`3o0140000D00030@0004@000<10000o`3o0140
000D00030@0004D000<10000o`3o0100000D00030@0004D000<10000o`3o0100000D00030@0004D0
00<10000o`3o0100000D00030@0004D000<10000o`3o0100000D00030@0004H000<10000o`3o00l0
000D00030@0004H000<10000o`3o00l0000010010@4200810`020@L000<10000AP000`40003o0?l0
3`00000600400@010P000`400@0200030@0000@01@5400030@000?l0o`0?00000`000`400@020003
0@01008000<1000010000`40001700030@000?l0o`0>000000H00@41004200030@01008000<10000
10000`40001700030@000?l0o`0>000000<00@000P001P4000400@8000<1000010000`4000170003
0@000?l0o`0>000000@00@410P020@<00P4700030@0004L000<10000o`3o00h0000D00030@0004P0
00<10000o`3o00d0000D00030@0004P000<10000o`3o00d0000D00030@0004P000<10000o`3o00d0
000D00030@0004P000<10000o`3o00d0000D00@1B0000`40003o0?l0300001@000<10000B@000`40
003o0?l0300001@000<10000B@000`40003o0?l0300001@000<10000BP000`40003o0?l02`0001@0
00<10000BP000`40003o0?l02`0001@000<10000BP000`40003o0?l02`0001@000<10000BP000`40
003o0?l02`0001@000<10000B`000`40003o0?l02P0001@000<10000B`000`40003o0?l02P0001@0
00<10000B`000`40003o0?l02P0001@0105:00030@000?l0o`0:000050000`40001<00030@000?l0
o`09000050000`40001<00030@000?l0o`09000050000`40001<00030@000?l0o`09000050000`40
001=00030@000?l0o`08000050000`40001=00030@000?l0o`08000050000`40001=00030@000?l0
o`08000050000`40001=00030@000?l0o`08000050000`40001>00030@000?l0o`07000050040Dd0
00<10000o`3o00L0000D00030@0004h000<10000o`3o00L0000D00030@0004l000<10000o`3o00H0
000D00030@0004l000<10000o`3o00H0000D00030@0004l000<10000o`3o00H0000D00030@0004l0
00<10000o`3o00H0000D00030@00050000<10000o`3o00D0000D00030@00050000<10000o`3o00D0
000D00030@00050000<10000o`3o00D0000D00030@00050000<10000o`3o00D0000D00@1D0000`40
003o0?l0100001@000<10000D@000`40003o0?l0100001@000<10000D@000`40003o0?l0100001@0
00<10000DP000`40003o0?l00`0001@000<10000DP000`40003o0?l00`0001@000<10000DP000`40
003o0?l00`0001@000<10000DP000`40003o0?l00`0001@000<10000D`000`40003o0?l00P0001@0
00<10000D`000`40003o0?l00P0000800P4200810`020@L000<10000D`000`40003o0?l00P000004
004000810P000`400@0200030@0000@01@5B00030@000?l0o`01000000@00@400P4200030@010080
00<1000010000`40001D00030@000?l0o`01000000H00@41004200030@01008000<1000010000`40
001E00030@000?l0o`0000030041008000H10001004200030@0000@000<10000E@000`40003o0?l0
000200<100<00@400`020@L000<10000E@000`40003o0?l0000D00030@0005H000<10000o`3n0000
50000`40001F00030@000?l0oP0001@000<10000EP000`40003o0?h0000D00030@0005L000<10000
o`3m000050040EH000<10000o`3m000050000`40001H00030@000?l0o00001@000<10000F0000`40
003o0?`0000D00030@0005P000<10000o`3l000050000`40001I00030@000?l0n`0001@000<10000
F@000`40003o0?/0000D00030@0005X000<10000o`3j000050000`40001J00030@000?l0nP0001@0
00<10000FP000`40003o0?X0000D00030@0005/000<10000o`3i000050040EX000<10000o`3i0000
50000`40001K00030@000?l0n@0001@000<10000G0000`40003o0?P0000D00030@0005`000<10000
o`3h000050000`40001M00030@000?l0m`0001@000<10000G@000`40003o0?L0000D00030@0005d0
00<10000o`3g000050000`40001N00030@000?l0mP0001@000<10000GP000`40003o0?H0000D00@1
G@000`40003o0?H0000D00030@0005l000<10000o`3e000050000`40001O00030@000?l0m@0001@0
00<10000H0000`40003o0?@0000D00030@00060000<10000o`3d000050000`40001Q00030@000?l0
l`0001@000<10000H@000`40003o0?<0000D00030@00068000<10000o`3b000050000`40001R0003
0@000?l0lP0001@000<10000H`000`40003o0?40000D00@1HP000`40003o0?40000D00030@0006@0
00<10000o`3`000050000`40001T00030@000?l0l00001@000<10000I@000`40003o0>l0000D0003
0@0006D000<10000o`3_000050000`40001V00030@000?l0kP0001@000<10000IP000`40003o0>h0
000D00030@0006L000<10000o`3]00000P00104000020@<00P4700030@0006L000<10000o`3]0000
0P001040004200030@01008000<1000010050FH000<10000o`3/00000P001040004200030@010080
00<1000010000`40001X00030@000?l0k000008000@100010P000`400@0200030@0000@000<10000
J@000`40003o0>/000001P4000400@8000<100400P000`40000400030@0006T000<10000o`3[0000
104200810`020@L000<10000JP000`40003o0>X0000D00030@0006X000<10000o`3Z000050000`40
001[00030@000?l0j@0001@000<10000J`000`40003o0>T0000D00030@0006`000<10000o`3X0000
50000`40001]00030@000?l0i`0001@0105/00030@000?l0i`0001@000<10000KP000`40003o0>H0
000D00030@0006l000<10000o`3U000050000`40001_00030@000?l0i@0001@000<10000L0000`40
003o0>@0000D00030@00074000<10000o`3S000050000`40001a00030@000?l0h`0001@000<10000
LP000`40003o0>80000D00030@0007<000<10000o`3Q000050040G8000<10000o`3Q000050000`40
001d00030@000?l0h00001@000<10000M@000`40003o0=l0000D00030@0007D000<10000o`3O0000
50000`40001f00030@000?l0gP0001@000<10000M`000`40003o0=d0000D00030@0007L000<10000
o`3M000050000`40001h00030@000?l0g00001@000<10000N@000`40003o0=/0000D00030@0007X0
00<10000o`3J000050040GX000<10000o`3I000050000`40001l00030@000?l0f00001@000<10000
O@000`40003o0=L0000D00030@0007h000<10000o`3F000050000`40001o00030@000?l0e@0001@0
00<10000O`000`40003o0=D0000D00030@00080000<10000o`3D000050000`40002100030@000?l0
d`0001@000<10000PP000`40003o0=80000D00@1PP000`40003o0=40000D00030@0008@000<10000
o`3@000050000`40002500030@000?l0c`0001@000<10000QP000`40003o0 0P7o0 R`020Ol0bP0001@000<10000S@000`40003o0 003o0 00<100400P000`40000400030@0009000P7o0 TP000`40003o0<8000001P4000400@8000<100400P000`40000400030@0009<000<10000o`310000
00<00@400`020@<00P4700030@0009@000<10000o`30000050000`40002E0081o`30000050000`40
002G00030@000?l0_@0001@000<10000V0000`40003o0;`0000D00030@0009T00P7o0;`0000D00@1
VP000`40003o0;T0000D00030@0009`000<10000o`2h000050000`40002M0081o`2h000050000`40
002O00030@000?l0]@0001@000<10000X0020Ol0]@0001@000<10000XP020Ol0/`0001@000<10000
Y0000`40003o0;00000D00030@000:D00P7o0;00000D00030@000:L000<10000o`2]000050000`40
002X0081o`2]000050040JT00P7o0:/0000D00030@000:`00P7o0:T0000D00030@000:h00P7o0:L0
000D00030@000;000P7o0:D0000D00030@000;800P7o0:<0000D00030@000;@00P7o0:40000D0003
0@000;H00`7o09h0000D00030@000;T00P7o09`0000D00030@000;/00`7o09T0000D00@1_@030Ol0
UP0001@000<10000`@030Ol0T`0001@000<10000a0030Ol0T00001@000<10000a`020Ol0SP0001@0
00<10000b@030Ol0R`0001@000<10000c0030Ol0R00001@000<10000c`030Ol0Q@0001@000<10000
dP040Ol0P@0001@000<10000eP030Ol0OP0001@000<10000f@030Ol0N`0001@0107K00@1o`1g0000
50000`40003P00<1o`1d000050000`40003S00@1o`1`000050000`40003W00@1o`1/000050000`40
003[00D1o`1W000050000`40003`00D1o`1R000050000`40003e00@1o`1N000050000`40003i00L1
o`1G000050000`40003o0040207o04l0000010010@4200810`020@L01@7o00L0207o04L0000300<1
0P000`400@0200030@0000@000<10000o`0A00P1o`0o00000P040@8000<100400P000`4000040003
0@000?l06@080Ol0=`000003004000<10P000`400@0200030@0000@000<10000o`0Q00P1o`0_0000
00@00@000P4200030@01008000<1000010000`40003o02T02@7o02H0000200810P020@<00P470003
0@000?l0 003o06L0607H000050000`40003o07l06@6o000050040Ol0U`0_0I00000D00030@000?l0a`1f0AX0
000D00030@000?l0o`0n00/13`0001@000<10000o`3o05P0000D00030@000?l0o`1H000050000`40
003o0?l0F00001@000<10000o`3o05P0000D00030@000?l0o`1H000050000`40003o0?l0F00001@0
00<10000o`3o05P0000D00@1o`3o05L0003o0?l0K`000?l0o`1_0000o`3o06l0003o0?l0K`000?l0
o`1_0000o`3o06l00000\
\>"],
ImageRangeCache->{{{0, 620}, {382.625, 0}} -> {64.9196, 151.685, 0.538709,
1.57375}}],

Cell[BoxData[
FormBox[
TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(Show[plotObj, Frame -> True, RotateLabel -> False,
FrameLabel -> {"\", "\"}]\)], "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.18525 0.00232288 -0.130796 0.000795141 [
[.04704 -0.0125 -9 -9 ]
[.04704 -0.0125 9 0 ]
[.27933 -0.0125 -9 -9 ]
[.27933 -0.0125 9 0 ]
[.51161 -0.0125 -9 -9 ]
[.51161 -0.0125 9 0 ]
[.7439 -0.0125 -9 -9 ]
[.7439 -0.0125 9 0 ]
[.97619 -0.0125 -9 -9 ]
[.97619 -0.0125 9 0 ]
[ 0 0 -0.125 0 ]
[.5 -0.0125 -41 -19.375 ]
[.5 -0.0125 41 -9 ]
[-0.0125 .02823 -18 -4.5 ]
[-0.0125 .02823 0 4.5 ]
[-0.0125 .10775 -18 -4.5 ]
[-0.0125 .10775 0 4.5 ]
[-0.0125 .18726 -18 -4.5 ]
[-0.0125 .18726 0 4.5 ]
[-0.0125 .26677 -18 -4.5 ]
[-0.0125 .26677 0 4.5 ]
[-0.0125 .34629 -18 -4.5 ]
[-0.0125 .34629 0 4.5 ]
[-0.0125 .4258 -18 -4.5 ]
[-0.0125 .4258 0 4.5 ]
[-0.0125 .50532 -18 -4.5 ]
[-0.0125 .50532 0 4.5 ]
[-0.0125 .58483 -18 -4.5 ]
[-0.0125 .58483 0 4.5 ]
[ 0 0 -0.125 0 ]
[-0.01875 .30902 -52 -5.03125 ]
[-0.01875 .30902 -18 5.03125 ]
[ 0 .61803 .125 0 ]
[ 1 0 .125 0 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.04704 0 m
.04704 .00625 L
s
[(100)] .04704 -0.0125 0 1 Mshowa
.27933 0 m
.27933 .00625 L
s
[(200)] .27933 -0.0125 0 1 Mshowa
.51161 0 m
.51161 .00625 L
s
[(300)] .51161 -0.0125 0 1 Mshowa
.7439 0 m
.7439 .00625 L
s
[(400)] .7439 -0.0125 0 1 Mshowa
.97619 0 m
.97619 .00625 L
s
[(500)] .97619 -0.0125 0 1 Mshowa
.125 Mabswid
.0935 0 m
.0935 .00375 L
s
.13995 0 m
.13995 .00375 L
s
.18641 0 m
.18641 .00375 L
s
.23287 0 m
.23287 .00375 L
s
.32578 0 m
.32578 .00375 L
s
.37224 0 m
.37224 .00375 L
s
.4187 0 m
.4187 .00375 L
s
.46516 0 m
.46516 .00375 L
s
.55807 0 m
.55807 .00375 L
s
.60453 0 m
.60453 .00375 L
s
.65099 0 m
.65099 .00375 L
s
.69744 0 m
.69744 .00375 L
s
.79036 0 m
.79036 .00375 L
s
.83682 0 m
.83682 .00375 L
s
.88328 0 m
.88328 .00375 L
s
.92973 0 m
.92973 .00375 L
s
.00058 0 m
.00058 .00375 L
s
.25 Mabswid
0 0 m
1 0 L
s
gsave
.5 -0.0125 -102 -23.375 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 20 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
61.000000 14.375000 moveto
558.000000 14.375000 lineto
558.000000 4.000000 lineto
61.000000 4.000000 lineto
61.000000 14.375000 lineto
closepath
clip newpath
63.000000 11.562500 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.000000 11.562500 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(Altitude) show
%%IncludeResource: font Math2Mono
%%IncludeFont: Math2Mono
/Math2Mono findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
117.000000 11.562500 moveto
(H) show
123.000000 11.562500 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(km) show
%%IncludeResource: font Math2Mono
%%IncludeFont: Math2Mono
/Math2Mono findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
135.000000 11.562500 moveto
(L) show
141.000000 11.562500 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Math2Mono
%%+ font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Math2Mono
%%+ Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: Math2Mono
%%+ Courier
grestore
0 .02823 m
.00625 .02823 L
s
[(200)] -0.0125 .02823 1 0 Mshowa
0 .10775 m
.00625 .10775 L
s
[(300)] -0.0125 .10775 1 0 Mshowa
0 .18726 m
.00625 .18726 L
s
[(400)] -0.0125 .18726 1 0 Mshowa
0 .26677 m
.00625 .26677 L
s
[(500)] -0.0125 .26677 1 0 Mshowa
0 .34629 m
.00625 .34629 L
s
[(600)] -0.0125 .34629 1 0 Mshowa
0 .4258 m
.00625 .4258 L
s
[(700)] -0.0125 .4258 1 0 Mshowa
0 .50532 m
.00625 .50532 L
s
[(800)] -0.0125 .50532 1 0 Mshowa
0 .58483 m
.00625 .58483 L
s
[(900)] -0.0125 .58483 1 0 Mshowa
.125 Mabswid
0 .04414 m
.00375 .04414 L
s
0 .06004 m
.00375 .06004 L
s
0 .07594 m
.00375 .07594 L
s
0 .09184 m
.00375 .09184 L
s
0 .12365 m
.00375 .12365 L
s
0 .13955 m
.00375 .13955 L
s
0 .15546 m
.00375 .15546 L
s
0 .17136 m
.00375 .17136 L
s
0 .20316 m
.00375 .20316 L
s
0 .21907 m
.00375 .21907 L
s
0 .23497 m
.00375 .23497 L
s
0 .25087 m
.00375 .25087 L
s
0 .28268 m
.00375 .28268 L
s
0 .29858 m
.00375 .29858 L
s
0 .31448 m
.00375 .31448 L
s
0 .33039 m
.00375 .33039 L
s
0 .36219 m
.00375 .36219 L
s
0 .37809 m
.00375 .37809 L
s
0 .394 m
.00375 .394 L
s
0 .4099 m
.00375 .4099 L
s
0 .44171 m
.00375 .44171 L
s
0 .45761 m
.00375 .45761 L
s
0 .47351 m
.00375 .47351 L
s
0 .48941 m
.00375 .48941 L
s
0 .52122 m
.00375 .52122 L
s
0 .53712 m
.00375 .53712 L
s
0 .55303 m
.00375 .55303 L
s
0 .56893 m
.00375 .56893 L
s
0 .01233 m
.00375 .01233 L
s
0 .60073 m
.00375 .60073 L
s
0 .61664 m
.00375 .61664 L
s
.25 Mabswid
0 0 m
0 .61803 L
s
gsave
-0.01875 .30902 -113 -9.03125 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 20 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
61.000000 14.062500 moveto
558.000000 14.062500 lineto
558.000000 4.000000 lineto
61.000000 4.000000 lineto
61.000000 14.062500 lineto
closepath
clip newpath
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
63.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(T) show
%%IncludeResource: font Math2Mono
%%IncludeFont: Math2Mono
/Math2Mono findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
75.000000 11.250000 moveto
(H) show
81.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(K) show
%%IncludeResource: font Math2Mono
%%IncludeFont: Math2Mono
/Math2Mono findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
87.000000 11.250000 moveto
(L) show
93.000000 11.250000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
0.000000 0.000000 rmoveto
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Math2Mono
%%+ font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Math2Mono
%%+ Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: Math2Mono
%%+ Courier
grestore
.04704 .61178 m
.04704 .61803 L
s
.27933 .61178 m
.27933 .61803 L
s
.51161 .61178 m
.51161 .61803 L
s
.7439 .61178 m
.7439 .61803 L
s
.97619 .61178 m
.97619 .61803 L
s
.125 Mabswid
.0935 .61428 m
.0935 .61803 L
s
.13995 .61428 m
.13995 .61803 L
s
.18641 .61428 m
.18641 .61803 L
s
.23287 .61428 m
.23287 .61803 L
s
.32578 .61428 m
.32578 .61803 L
s
.37224 .61428 m
.37224 .61803 L
s
.4187 .61428 m
.4187 .61803 L
s
.46516 .61428 m
.46516 .61803 L
s
.55807 .61428 m
.55807 .61803 L
s
.60453 .61428 m
.60453 .61803 L
s
.65099 .61428 m
.65099 .61803 L
s
.69744 .61428 m
.69744 .61803 L
s
.79036 .61428 m
.79036 .61803 L
s
.83682 .61428 m
.83682 .61803 L
s
.88328 .61428 m
.88328 .61803 L
s
.92973 .61428 m
.92973 .61803 L
s
.00058 .61428 m
.00058 .61803 L
s
.25 Mabswid
0 .61803 m
1 .61803 L
s
.99375 .02823 m
1 .02823 L
s
.99375 .10775 m
1 .10775 L
s
.99375 .18726 m
1 .18726 L
s
.99375 .26677 m
1 .26677 L
s
.99375 .34629 m
1 .34629 L
s
.99375 .4258 m
1 .4258 L
s
.99375 .50532 m
1 .50532 L
s
.99375 .58483 m
1 .58483 L
s
.125 Mabswid
.99625 .04414 m
1 .04414 L
s
.99625 .06004 m
1 .06004 L
s
.99625 .07594 m
1 .07594 L
s
.99625 .09184 m
1 .09184 L
s
.99625 .12365 m
1 .12365 L
s
.99625 .13955 m
1 .13955 L
s
.99625 .15546 m
1 .15546 L
s
.99625 .17136 m
1 .17136 L
s
.99625 .20316 m
1 .20316 L
s
.99625 .21907 m
1 .21907 L
s
.99625 .23497 m
1 .23497 L
s
.99625 .25087 m
1 .25087 L
s
.99625 .28268 m
1 .28268 L
s
.99625 .29858 m
1 .29858 L
s
.99625 .31448 m
1 .31448 L
s
.99625 .33039 m
1 .33039 L
s
.99625 .36219 m
1 .36219 L
s
.99625 .37809 m
1 .37809 L
s
.99625 .394 m
1 .394 L
s
.99625 .4099 m
1 .4099 L
s
.99625 .44171 m
1 .44171 L
s
.99625 .45761 m
1 .45761 L
s
.99625 .47351 m
1 .47351 L
s
.99625 .48941 m
1 .48941 L
s
.99625 .52122 m
1 .52122 L
s
.99625 .53712 m
1 .53712 L
s
.99625 .55303 m
1 .55303 L
s
.99625 .56893 m
1 .56893 L
s
.99625 .01233 m
1 .01233 L
s
.99625 .60073 m
1 .60073 L
s
.99625 .61664 m
1 .61664 L
s
.25 Mabswid
1 0 m
1 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02381 .01472 m
.02499 .01473 L
.02605 .01476 L
.02729 .01484 L
.02846 .01494 L
.02954 .01508 L
.03053 .01524 L
.03279 .01573 L
.03396 .01606 L
.03506 .01643 L
.03756 .01748 L
.04 .01881 L
.04262 .0206 L
.04793 .02552 L
.05297 .03193 L
.06244 .04893 L
.07289 .07536 L
.08259 .10667 L
.10458 .19451 L
.12338 .27234 L
.14371 .3438 L
.16512 .40049 L
.18529 .43959 L
.20523 .4686 L
.22629 .49214 L
.26427 .52275 L
.28378 .53452 L
.30469 .54504 L
.34605 .56105 L
.3859 .5721 L
.42423 .57988 L
.46501 .58594 L
.50428 .59022 L
.54203 .5933 L
.58223 .59577 L
.62092 .59756 L
.66206 .59901 L
.70168 .60008 L
.73979 .60088 L
.78035 .60155 L
.8194 .60207 L
.86089 .60251 L
.90087 .60284 L
.93934 .60311 L
.97619 .60332 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
ImageSize->{476, 294},
ImageMargins->{{62, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg NYM1Imb]`ULU>oooojjb`i>GYMcNiEePJ@0006=SW5ADQ;NgdBl_B_ooooogjMSAa/c5^YVDR`0009BD
U:f][B4Q8Kfm_MkNg]gNiUiPJD92@_l0og=cLf=SHooo003ooe5Anl30`820P8200?XC@3_j=7emOFAT
I4];BlS8b>7QhIJFU_l0003o0000oclo?nKVn_GeoHF5TLC4eOogjBm?CfUYJKjn_]?CdiT0I_ooc020
P80006IVc3 ?`0oO`0o_`0oo`1o001o?`1oO`1o_`1oo`2o002o?`2oOc2XW1TIL8b<^5iNVc/kQKno08X[h/VNlT KgDT`;no_m7FjVQ[MJo^k[C^];8R8[b?Sj0Pl=Y`e[R62b:;8V2PX>K>/OoTa;2`/=WIfOn^^LfgWTJ2
];0`H9V9MX:2PP2o_`2oohYlJ_oon7k0kRj;EoZ0LP3o?`3oO`3o_cl003l0?cl0Ocl0_cl0oclo03lo
Oclo_cloocmo03mo?cmoOcmo_cmoocno03no?cnoOcno_cnoocoo03oo?cooOcoo_cooogl007l0?gl0
Ogl0_gl0oglo07lo?gloOglo_gloogmo07mo?gmo_gmoogno07no?gnoOgno_gnoogoo07oo?gooOgoo
_goookl00;l0?kl0Okl0_kl0oklo0;lo?kloOklo_klookmo0;mo?kmoOkmo_kmookno?knoOknookoo
0;oo?kooOkoo_kooool0?ol0Ool0_olo0?lo?oloOolo_olooomo0?mo?omoOomo_omooono0?no?ono
Oono_onooooo?oooOooo_iBGY^o_kgalO9UVVIUVc6K=ZY[=jdPmRoGN/m:dS?oG0?nU0:1B
;LeLG=9Y7_o0bmfPgKYEdiTbc9UVoiVI09VI IP000?l0IP000?l0IP000?l0IP000=H000<100002@000`4000200000Z`020@04004100<10P040@04
00410@802@400`010@020@03004100@000@100002`610000Z`020@030040008000D100000@050005
0@0000400`001P4000400@8000<100400P001@40000100<00P4200070@0100400@210000[0030@<0
00D100000@0500050@0000400`001P4000400@8000<100400`4300040@0000810P001`400@010040
P@000:`00P4400030@0000@10P020@801P400`010@0200<10P020@D000<100002P620000[0020@@0
00D100000@0500050@0000402`000`40000:00030@0008T0002a00812@000`40000<008130000`40
00290000=@030@800P430081>`040@800P430081?@030@800P430081?0030@800P430081?0030@80
0P4300810`0003H000@100010P000`400@0200030@0003T000D100400@0200030@01008000<10000
>P001@400@01008000<100400P000`40000h00@100L00@000@01008000<10000>@001@400@010080
00<100400P010@400@0003H000@100010P000`400@0200030@0003X000@100010P000`400@020003
0@0003`000<100400P000`400@0200030@0003P000<100400P001P4000400@8000<10000>`000`40
0@0200030@0100800@410040000f00040@000@8000<100400P000`40000k00030@01008000<10040
0P000`40000k00040@000@8000<100400P000`40000i00810P001P4000400@8000<10000>@030@07
004000400@0200410@010000=P001040004200030@01008000<10000>0001P4000400@8000<10040
0P000`40000i00060@000@010P000`400@0200030@0003T00P4200060@000@010P000`40000i0005
0@0000400P000`400@0200410@010000=@020@<00P430081?0020@<00P430081?@030@800P430081
?@00104000020@<00P4l00<10P020@<00P430000o`1V0000o`1V0000;03o0CT10@0002`00P4=0003
0@0000/000<1000030000`40000;00030@0000`000<100002`000`40000<00030@0000/000<10000
30000`40000;00030@0000/000<1000030000`40000;00030@0000`000<100002`000`40000<0003
0@0000/000<1000030000`40000;00030@0000`000<100002`000`40000400410@0002`000<10000
30000`40001500030@0004D000<10000AP000`40001500030@0000@00@410000;0000`40003o03D0
0@410000;0030@D00P7o02d00P410000;0000`40000700<1o`0[00410@0002`000<100002P020Ol0
:@010@40000/00030@0000`000<10000o`0V00410@0001/0104200810`020@@000<1000030000`40
003o02H00@41000070001@400@01008000<100400P00104000030@d000<10000o`0S00<10@0001d0
00@100010P000`400@0200050@00004040000`40003o02@00@4100007P000`400@0200030@010080
00D100000@0A00030@000?l08`010@40000K00060@000@010P000`400@0200050@0000404@000`40
003o02<00@41000070020@<00P43008110000`40000@00030@000?l08P010@40000/00<140000`40
003o02400P410000;0000`40000A00030@000?l08@010@40000/00030@00014000<10000o`0Q0041
0@0002`000<100004P000`40003o02000@410000;0000`40000B00030@000?l080010@40000/00<1
4`000`40003o01h00P410000;0000`40000C00030@000?l07`010@40000/00030@0001<000<10000
o`0O00410@0002`000<1000050000`40003o01h00@410000;0030A@000<10000o`0M00810@0002`0
00<1000050000`40003o01h00@410000;0000`40000E00030@000?l07@010@40000/00030@0001D0
00<10000o`0M00410@0002`000<100005@000`40003o01d00@410000;0030AH000<10000o`0K0081
0@0002`000<100005P000`40003o01`00@410000;0000`40000F00030@000?l070010@40000/0003
0@0001H000<10000o`0L00410@0002`000<100005`000`40003o01/00@41000070030@800P430081
10030AL000<10000o`0I00<10@0001`000D100400@0200030@01008000D100000@0I00030@000?l0
6`010@40000N00030@01008000<100400P001@40000101X000<10000o`0J00410@0001d000@10001
0P000`400@0200050@0000406P000`40003o01X00@4100006`001P4000400@8000<100400P001@40
000101X000<10000o`0J00410@0001`00`4200810`020@@00`4H00030@000?l06@020@40000/0003
0@0001T000<10000o`0I00410@0002`000<100006@000`40003o01T00@410000;0000`40000I0003
0@000?l06@010@40000/00030@0001T000<10000o`0I00410@0002`00`4J00030@000?l05`020@40
000/00030@0001X000<10000o`0H00410@0002`000<100006P000`40003o01P00@410000;0000`40
000J00030@000?l060010@40000/00030@0001/000<10000o`0G00410@0002`00`4K00030@000?l0
5P020@40000/00030@0001/000<10000o`0G00410@0002`000<100006`000`40003o01L00@410000
;0000`40000L00030@000?l05P010@40000/00030@0001`000<10000o`0F00410@0002`00`4L0003
0@000?l05@020@40000/00030@0001`000<10000o`0F00410@0002`000<100007@000`40003o01D0
0@410000;0000`40000M00030@000?l05@010@40000L00<10P020@<00P4400030@0001d000<10000
o`0E00410@0001/010401`01000100400P00104000030Ad000<10000o`0C00<10@0001/000<10040
0P001P4000400@8000D100000@0P00030@000?l050010@40000L00810P001P4000400@8000D10000
0@0P00030@000?l050010@40000L00810P001P4000400@8000D100000@0P00030@000?l050010@40
000M00040@0000810`020@@000<100007P000`40003o01@00@410000;0030Al000<10000o`0B0081
0@0002`000<100007`000`40003o01<00@410000;0000`40000O00030@000?l04`010@40000/0003
0@0001l000<10000o`0C00410@0002`000<1000080000`40003o01800@410000;0030B0000<10000
o`0A00810@0002`000<1000080000`40003o01800@410000;0000`40000P00030@000?l04P010@40
000/00030@00024000<10000o`0A00410@0002`000<100008@000`40003o01400@410000;0030B40
00<10000o`0@00810@0002`000<100008@000`40003o01400@410000;0000`40000R00030@000?l0
40010@40000/00030@00028000<10000o`0@00410@0002`000<100008P000`40003o01000@410000
;0030B8000<10000o`0?00810@0002`000<100008`000`40003o00l00@410000;0000`40000S0003
0@000?l03`010@40000/00030@0002<000<10000o`0?00410@0001`00`4200810`020@@000<10000
8`000`40003o00l00@41000070001@400@01008000<100400P00104000030B@000<10000o`0<00<1
0@0001h000<100400P000`400@0200050@0000409P000`40003o00h00@41000070030@0700400040
0@0200050@0000409P000`40003o00h00@41000070001@400001008000<100400P001@40000102H0
00<10000o`0>00410@0001`00`4200810`020@@000<100009@000`40003o00d00@410000;0030BD0
00<10000o`0<00810@0002`000<100009@000`40003o00d00@410000;0000`40000U00030@000?l0
3@010@40000/00030@0002H000<10000o`0<00410@0002`000<100009P000`40003o00`00@410000
;0030BH000<10000o`0;00810@0002`000<100009P000`40003o00`00@410000;0000`40000W0003
0@000?l02`010@40000=00030@0000@000<100005@000`40000W00030@000?l02`010@40000200<1
1`000`400@020@05004100405P000`40000W00030@000?l02`010@40000300030@0000H000@10001
0P001040004F00<1:0000`40003o00T00P4100000`000`40000600030@0000<10`000`40000D0003
0@0002P000<10000o`0:00410@00000600400@011`000`400@0200030@0101L000<10000:0000`40
003o00X00@41000000<00@400`4800<100<00@4060000`40000X00030@000?l02P010@40000/0003
0@0002T000<10000o`0900410@0002`00`4Y00030@000?l020020@40000/00030@0002T000<10000
o`0900410@0002`000<10000:@000`40003o00T00@410000;0000`40000Z00030@000?l020010@40
000M00810P020@<00P4400030@0002X000<10000o`0800410@0001`000<100000P4200030@010080
00@100000`4Z00030@000?l01P030@40000L008100<00@400P000`400@0200050@000040;@000`40
003o00L00@41000070030@07004000400@0200050@000040;@000`40003o00L00@41000070020@80
00H10001004200050@000040;P000`40003o00H00@4100007@030@03004100<00P4400<1;0000`40
003o00D00P410000;0000`40000/00030@000?l01P010@40000/00030@0002d000<10000o`050041
0@0002`000<10000;@000`40003o00D00@410000;0000`40000^00030@000?l010010@40000/00<1
;P000`40003o00<00P410000;0000`40000_00030@000?l00`010@40000/00030@0002l000<10000
o`0300410@0002`000<10000;`000`40003o00<00@410000;0000`40000`00030@000?l00P010@40
000/00<1<0000`40003o00400P410000;0000`40000a00030@000?l00@010@40000/00030@000340
00<10000o`0100410@0002`000<10000<@000`40003o00400@410000;0000`40000b00030@000?l0
0@410000;0030C8000<10000oP020@40000/00030@0003<000<10000oP010@40000/00030@0003<0
00<10000oP010@40000/00030@0003@000<10000o@010@40000/00030@0003@000<10000o@010@40
000M00040@0000810`020@@00`4e00030@000?X00`4100007@001040004200030@01008000D10000
0@0g00030@000?`00@4100007@001040004200030@01008000D100000@0h00030@000?/00@410000
7@001040004200030@01008000D100000@0h00030@000?/00@4100006`001P4000400@8000<10040
0P001@40000103T000<10000nP010@40000K00@10P020@<00P4400<1=`000`40003i00810@0002`0
00<10000>0000`40003i00410@0002`000<10000>0000`40003i00410@0002`000<10000>@000`40
003h00410@0002`000<10000>P000`40003g00410@0002`00`4j00030@000?H00P410000;0000`40
000k00030@000?H00@410000;0000`40000l00030@000?D00@410000;0000`40000l00030@000?D0
0@410000;0000`40000m00030@000?@00@410000;0030Ch000<10000lP020@40000/00030@0003l0
00<10000lP010@40000/00030@00040000<10000l@010@40000/00030@00044000<10000l0010@40
000/00030@00048000<10000k`010@40000/00<1@`000`40003]00810@0002`000<10000A0000`40
003]00410@0002`000<10000A@020Nd00@410000;0000`40001700030@000>X00@41000070020@<0
0P43008110000`40001800030@000>T00@4100006`001P4000400@8000<100400P00104000030DT0
0P7W00<10@0001/000H10001004200030@01008000D100000@1=00030@000>H00@4100006`040@07
004000400@0200050@000040CP000`40003U00410@0001/000H10001004200030@01008000D10000
0@1?0081i@010@40000L00810`020@<00P4400030@0004l000<10000hP010@40000/00<1D0000`40
003P00810@0002`000<10000D@020N400@410000;0000`40001C00030@000=h00@410000;0000`40
001D0081gP010@40000/00030@0005H00P7L00410@0002`00`5H0081f@020@40000/00030@0005X0
0P7H00410@0002`000<10000G0020MH00@410000;0000`40001N0081e0010@40000/00030@000600
0`7A00410@0002`00`5S00<1c@020@40000/00030@0006H00P7<00410@0002`000<10000J0030LT0
0@410000;0000`40001[00<1aP010@40000/00030@0006h00`7300410@0002`00`5a00<1_`020@40
000/00030@0007@01@6k00410@0002`000<10000N@060KD00@410000;0000`40001o00H1[`010@40
000L00<10P020@<00P4400030@0008D01P6Y00410@0001h00`4200030@01008000@100000`6;00X1
W@030@40000M00@10P000`400@0200050@000040U`0<0I<00@41000070000`400@020@8000<10040
0P001@4000010:<0306700410@0001`000<100000P4200030@01008000D100000@2_00`1N`010@40
000M00810P020@<00P4400030@000;T09@5F00410@0002`00`7N04X12`020@40000/00030@000?l0
:@060@H00@410000;0000`40003o03D00@410000;0000`40000<00030@0004D000<10000A@000`40
001600030@0004D000<1000010010@40000/00813@000`40000;00030@0000`000<100002`000`40
000<00030@0000/000<1000030000`40000;00030@0000`000<100002`000`40000;00030@0000`0
00<100002`000`40000<00030@0000/000<1000030000`40000;00030@0000`000<100002`000`40
000<00030@0000/000<1000010010@40000/0?l1>@410000o`1V0000o`1V0000o`1V0000o`1V0000
\
\>"],
ImageRangeCache->{{{0, 356}, {219.5, 0}} -> {17.7028, 72.1762, 1.03795,
3.0322}}],

Cell[BoxData[
FormBox[
TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
\(Display["\", %215, "\", ImageResolution -> 300]\)],
"Input"],

Cell[BoxData[
FormBox[
TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\),
False,
Editable->False], TraditionalForm]], "Output"]
}, Open ]]
},
FrontEndVersion->"Macintosh 3.0",
ScreenRectangle->{{0, 832}, {0, 604}},
AutoGeneratedPackage->None,
ScreenStyleEnvironment->"Presentation",
CellGrouping->Manual,
WindowSize->{664, 541},
WindowMargins->{{4, Automatic}, {Automatic, 1}},
Magnification->0.75,
MacintoshSystemPageSetup->"\<\
02P0001804P000000^L2D_ogooL33`9K8085:0?l0000005X0FP000003X<;VP5d
038;VTRX04/00@4100000BL?00400@000000000000000000000000000040I0<0
00000000000@XP404@000000000eDflP\>"
]


(***********************************************************************
Cached data follows. If you edit this Notebook file directly, not using
Mathematica, you must remove the line containing CacheID at the top of
the file. The cache data will then be recreated when you save this file
from within Mathematica.
***********************************************************************)

(*CellTagsOutline
CellTagsIndex->{}
*)

(*CellTagsIndex
CellTagsIndex->{}
*)

(*NotebookFileOutline
Notebook[{

Cell[CellGroupData[{
Cell[1731, 51, 59, 0, 111, "Title"],
Cell[1793, 53, 148, 4, 47, "Text"],
Cell[1944, 59, 116, 3, 28, "Input",
Evaluatable->False],

Cell[CellGroupData[{
Cell[2085, 66, 167, 4, 41, "Text"],
Cell[2255, 72, 233, 7, 41, "Input",
InitializationCell->True],
Cell[2491, 81, 216, 6, 40, "Input",
InitializationCell->True],
Cell[2710, 89, 206, 6, 40, "Input",
InitializationCell->True],
Cell[2919, 97, 210, 6, 40, "Input",
InitializationCell->True],
Cell[3132, 105, 216, 6, 40, "Input",
InitializationCell->True],
Cell[3351, 113, 222, 7, 40, "Input",
InitializationCell->True],
Cell[3576, 122, 224, 7, 40, "Input",
InitializationCell->True],
Cell[3803, 131, 248, 8, 40, "Input",
InitializationCell->True],
Cell[4054, 141, 211, 6, 40, "Input",
InitializationCell->True],
Cell[4268, 149, 185, 6, 40, "Input",
InitializationCell->True],
Cell[4456, 157, 245, 7, 40, "Input",
InitializationCell->True],
Cell[4704, 166, 215, 6, 40, "Input",
InitializationCell->True],
Cell[4922, 174, 223, 7, 40, "Input",
InitializationCell->True]
}, Open ]],

Cell[CellGroupData[{
Cell[5182, 186, 47, 0, 51, "Subsubtitle"],
Cell[5232, 188, 191, 5, 44, "Input",
InitializationCell->True],
Cell[5426, 195, 128, 3, 31, "Text"],
Cell[5557, 200, 148, 4, 28, "Input",
InitializationCell->True],
Cell[5708, 206, 201, 5, 45, "Input",
InitializationCell->True],
Cell[5912, 213, 75, 2, 28, "Input",
InitializationCell->True],
Cell[5990, 217, 75, 2, 28, "Input",
InitializationCell->True],
Cell[6068, 221, 109, 2, 28, "Input",
InitializationCell->True],
Cell[6180, 225, 98, 2, 28, "Input",
InitializationCell->True],
Cell[6281, 229, 105, 2, 28, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[6411, 235, 45, 0, 49, "Subsection"],
Cell[6459, 237, 188, 4, 47, "Text"],
Cell[6650, 243, 80, 2, 28, "Input",
InitializationCell->True],
Cell[6733, 247, 77, 2, 28, "Input",
InitializationCell->True],
Cell[6813, 251, 78, 2, 28, "Input",
InitializationCell->True],
Cell[6894, 255, 81, 2, 28, "Input",
InitializationCell->True],
Cell[6978, 259, 101, 2, 28, "Input",
InitializationCell->True],
Cell[7082, 263, 100, 2, 28, "Input",
InitializationCell->True],
Cell[7185, 267, 109, 2, 28, "Input",
InitializationCell->True],
Cell[7297, 271, 221, 5, 44, "Input",
InitializationCell->True],
Cell[7521, 278, 102, 2, 28, "Input",
InitializationCell->True],
Cell[7626, 282, 119, 2, 28, "Input",
InitializationCell->True]
}, Open ]],

Cell[CellGroupData[{
Cell[7782, 289, 35, 0, 53, "Section"],
Cell[7820, 291, 154, 4, 28, "Input",
InitializationCell->True],
Cell[7977, 297, 75, 2, 28, "Input",
InitializationCell->True],
Cell[8055, 301, 135, 3, 28, "Input",
InitializationCell->True],
Cell[8193, 306, 189, 5, 28, "Input",
InitializationCell->True],
Cell[8385, 313, 151, 3, 28, "Input",
InitializationCell->True],
Cell[8539, 318, 156, 3, 42, "Input",
InitializationCell->True],
Cell[8698, 323, 183, 4, 62, "Input",
InitializationCell->True],
Cell[8884, 329, 157, 3, 42, "Input",
InitializationCell->True],
Cell[9044, 334, 247, 5, 61, "Input",
InitializationCell->True],
Cell[9294, 341, 183, 4, 44, "Input",
InitializationCell->True],
Cell[9480, 347, 152, 3, 28, "Input",
InitializationCell->True],
Cell[9635, 352, 93, 2, 28, "Input",
InitializationCell->True],
Cell[9731, 356, 283, 7, 63, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[10039, 367, 114, 2, 28, "Input",
InitializationCell->True],
Cell[10156, 371, 203, 4, 27, "Output"]
}, Open ]]
}, Open ]],

Cell[CellGroupData[{
Cell[10408, 381, 44, 3, 74, "Section"],
Cell[10455, 386, 85, 2, 32, "Input",
InitializationCell->True],
Cell[10543, 390, 86, 2, 32, "Input",
InitializationCell->True],
Cell[10632, 394, 89, 2, 32, "Input",
InitializationCell->True],
Cell[10724, 398, 74, 2, 28, "Input",
InitializationCell->True],
Cell[10801, 402, 169, 4, 37, "Input",
InitializationCell->True],
Cell[10973, 408, 109, 2, 50, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[11107, 414, 82, 2, 28, "Input",
InitializationCell->True],
Cell[11192, 418, 119, 3, 27, "Output"]
}, Open ]]
}, Open ]],

Cell[CellGroupData[{
Cell[11360, 427, 40, 0, 53, "Section"],
Cell[11403, 429, 147, 4, 47, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[11575, 437, 83, 1, 28, "Input"],
Cell[11661, 440, 88, 1, 27, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[11786, 446, 189, 5, 47, "Input",
InitializationCell->True],
Cell[11978, 453, 278, 7, 56, "Output"]
}, Open ]],
Cell[12271, 463, 104, 3, 31, "Text"],
Cell[12378, 468, 97, 2, 28, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[12500, 474, 114, 2, 28, "Input",
InitializationCell->True],
Cell[12617, 478, 188, 5, 27, "Output"]
}, Open ]],
Cell[12820, 486, 107, 3, 31, "Text"],
Cell[12930, 491, 128, 3, 50, "Input",
InitializationCell->True],
Cell[13061, 496, 65, 0, 31, "Text"],

Cell[CellGroupData[{
Cell[13151, 500, 166, 5, 50, "Input",
InitializationCell->True],
Cell[13320, 507, 256, 7, 74, "Output"]
}, Open ]],
Cell[13591, 517, 150, 4, 50, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[13766, 525, 202, 6, 69, "Input",
InitializationCell->True],
Cell[13971, 533, 311, 8, 55, "Output"]
}, Open ]],
Cell[14297, 544, 75, 0, 31, "Text"],
Cell[14375, 546, 105, 2, 28, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[14505, 552, 136, 3, 28, "Input",
InitializationCell->True],
Cell[14644, 557, 220, 6, 27, "Output"]
}, Open ]],
Cell[14879, 566, 70, 0, 31, "Text"],
Cell[14952, 568, 165, 4, 42, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[15142, 576, 213, 6, 61, "Input",
InitializationCell->True],
Cell[15358, 584, 342, 9, 56, "Output"]
}, Open ]],
Cell[15715, 596, 75, 0, 31, "Text"],
Cell[15793, 598, 220, 6, 63, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[16038, 608, 265, 7, 65, "Input",
InitializationCell->True],
Cell[16306, 617, 414, 10, 94, "Output"]
}, Open ]],
Cell[16735, 630, 130, 3, 31, "Text"],
Cell[16868, 635, 119, 2, 42, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[17012, 641, 93, 1, 28, "Input"],
Cell[17108, 644, 741, 17, 101, "Output"]
}, Closed]],
Cell[17864, 664, 116, 3, 41, "Input"],
Cell[17983, 669, 108, 3, 31, "Text"],

Cell[CellGroupData[{
Cell[18116, 676, 146, 4, 42, "Input",
InitializationCell->True],
Cell[18265, 682, 498, 14, 42, "Output"]
}, Open ]],
Cell[18778, 699, 146, 3, 42, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[18949, 706, 174, 5, 61, "Input",
InitializationCell->True],
Cell[19126, 713, 249, 7, 42, "Output"]
}, Open ]],
Cell[19390, 723, 164, 4, 47, "Text"],
Cell[19557, 729, 205, 5, 90, "Input",
InitializationCell->True],
Cell[19765, 736, 74, 0, 31, "Text"],
Cell[19842, 738, 313, 7, 140, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[20180, 749, 339, 8, 119, "Input",
InitializationCell->True],
Cell[20522, 759, 444, 10, 184, "Output"]
}, Open ]],
Cell[20981, 772, 120, 3, 31, "Text"],
Cell[21104, 777, 149, 4, 42, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[21278, 785, 175, 5, 61, "Input",
InitializationCell->True],
Cell[21456, 792, 707, 19, 42, "Output"]
}, Open ]],
Cell[22178, 814, 70, 0, 31, "Text"],
Cell[22251, 816, 88, 3, 31, "Text"],
Cell[22342, 821, 102, 2, 28, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[22469, 827, 119, 2, 28, "Input",
InitializationCell->True],
Cell[22591, 831, 205, 6, 27, "Output"]
}, Open ]],
Cell[22811, 840, 68, 0, 31, "Text"],
Cell[22882, 842, 99, 2, 42, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[23006, 848, 116, 2, 42, "Input",
InitializationCell->True],
Cell[23125, 852, 254, 7, 42, "Output"]
}, Open ]],
Cell[23394, 862, 101, 2, 42, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[23520, 868, 118, 2, 42, "Input",
InitializationCell->True],
Cell[23641, 872, 254, 7, 42, "Output"]
}, Open ]],
Cell[23910, 882, 202, 5, 44, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[24137, 891, 232, 6, 44, "Input",
InitializationCell->True],
Cell[24372, 899, 801, 21, 68, "Output"]
}, Open ]],
Cell[25188, 923, 212, 5, 47, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[25425, 932, 242, 6, 68, "Input",
InitializationCell->True],
Cell[25670, 940, 369, 9, 59, "Output"]
}, Open ]],
Cell[26054, 952, 44, 0, 31, "Text"],
Cell[26101, 954, 126, 3, 31, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[26252, 961, 156, 4, 31, "Input",
InitializationCell->True],
Cell[26411, 967, 255, 7, 42, "Output"]
}, Open ]],
Cell[26681, 977, 125, 3, 31, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[26831, 984, 149, 4, 31, "Input",
InitializationCell->True],
Cell[26983, 990, 253, 7, 42, "Output"]
}, Open ]],
Cell[27251, 1000, 109, 3, 31, "Text"],
Cell[27363, 1005, 130, 3, 31, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[27518, 1012, 162, 5, 31, "Input",
InitializationCell->True],
Cell[27683, 1019, 265, 7, 42, "Output"]
}, Open ]],
Cell[27963, 1029, 51, 0, 31, "Text"],
Cell[28017, 1031, 94, 2, 28, "Input",
InitializationCell->True],
Cell[28114, 1035, 224, 6, 60, "Input",
InitializationCell->True],
Cell[28341, 1043, 214, 5, 49, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[28580, 1052, 71, 2, 28, "Input",
InitializationCell->True],
Cell[28654, 1056, 103, 2, 27, "Output"]
}, Open ]],
Cell[28772, 1061, 26, 0, 28, "Input"],

Cell[CellGroupData[{
Cell[28823, 1065, 49, 0, 49, "Subsection"],
Cell[28875, 1067, 93, 2, 28, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[28993, 1073, 110, 2, 28, "Input",
InitializationCell->True],
Cell[29106, 1077, 186, 5, 27, "Output"]
}, Open ]],
Cell[29307, 1085, 140, 3, 31, "Text"],

Cell[CellGroupData[{
Cell[29472, 1092, 81, 2, 28, "Input",
InitializationCell->True],
Cell[29556, 1096, 2169, 45, 123, "Output"]
}, Open ]],
Cell[31740, 1144, 48, 0, 31, "Text"],
Cell[31791, 1146, 166, 4, 44, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[31982, 1154, 194, 5, 44, "Input",
InitializationCell->True],
Cell[32179, 1161, 1016, 24, 44, "Output"]
}, Open ]],
Cell[33210, 1188, 105, 3, 31, "Text"]
}, Open ]],

Cell[CellGroupData[{
Cell[33352, 1196, 44, 0, 49, "Subsection"],
Cell[33399, 1198, 147, 3, 31, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[33571, 1205, 169, 4, 31, "Input",
InitializationCell->True],
Cell[33743, 1211, 241, 6, 29, "Output"]
}, Open ]],
Cell[33999, 1220, 113, 2, 42, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[34137, 1226, 137, 3, 42, "Input",
InitializationCell->True],
Cell[34277, 1231, 450, 12, 42, "Output"]
}, Open ]],
Cell[34742, 1246, 117, 2, 28, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[34884, 1252, 141, 3, 44, "Input",
InitializationCell->True],
Cell[35028, 1257, 214, 6, 27, "Output"]
}, Open ]],
Cell[35257, 1266, 80, 2, 28, "Input",
InitializationCell->True],
Cell[35340, 1270, 192, 4, 50, "Input",
InitializationCell->True],
Cell[35535, 1276, 110, 2, 42, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[35670, 1282, 130, 3, 42, "Input",
InitializationCell->True],
Cell[35803, 1287, 221, 6, 42, "Output"]
}, Open ]],
Cell[36039, 1296, 53, 0, 31, "Text"],
Cell[36095, 1298, 188, 5, 44, "Input",
InitializationCell->True],
Cell[36286, 1305, 251, 7, 63, "Input",
InitializationCell->True],
Cell[36540, 1314, 214, 5, 44, "Input",
InitializationCell->True],
Cell[36757, 1321, 274, 7, 63, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[37056, 1332, 81, 1, 28, "Input"],
Cell[37140, 1335, 11651, 429, 140, 4846, 340, "GraphicsData",
"PostScript", "Graphics"],
Cell[48794, 1766, 167, 4, 27, "Output"]
}, Open ]],
Cell[48976, 1773, 112, 3, 31, "Text"]
}, Open ]]
}, Open ]],

Cell[CellGroupData[{
Cell[49137, 1782, 87, 4, 74, "Section",
InitializationCell->True],
Cell[49227, 1788, 206, 4, 51, "Input",
InitializationCell->True],
Cell[49436, 1794, 125, 3, 31, "Text"],
Cell[49564, 1799, 176, 4, 51, "Input",
InitializationCell->True],
Cell[49743, 1805, 86, 2, 28, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[49854, 1811, 373, 6, 92, "Input",
InitializationCell->True],
Cell[50230, 1819, 1435, 36, 89, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[51702, 1860, 84, 1, 28, "Input"],
Cell[51789, 1863, 85, 5, 25, "Output"]
}, Open ]],
Cell[51889, 1871, 100, 2, 28, "Input",
InitializationCell->True],
Cell[51992, 1875, 169, 4, 51, "Input",
InitializationCell->True],
Cell[52164, 1881, 105, 2, 44, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[52294, 1887, 125, 3, 44, "Input",
InitializationCell->True],
Cell[52422, 1892, 201, 6, 64, "Output"]
}, Open ]],
Cell[52638, 1901, 246, 5, 93, "Input",
InitializationCell->True],
Cell[52887, 1908, 26, 0, 28, "Input"],

Cell[CellGroupData[{
Cell[52938, 1912, 279, 6, 93, "Input",
InitializationCell->True],
Cell[53220, 1920, 420, 10, 167, "Output"]
}, Open ]],
Cell[53655, 1933, 64, 0, 31, "Text"],
Cell[53722, 1935, 229, 5, 69, "Input",
InitializationCell->True],
Cell[53954, 1942, 266, 6, 61, "Input",
InitializationCell->True],
Cell[54223, 1950, 201, 4, 61, "Input",
InitializationCell->True],
Cell[54427, 1956, 238, 5, 50, "Input",
InitializationCell->True],
Cell[54668, 1963, 158, 3, 44, "Input",
InitializationCell->True],
Cell[54829, 1968, 196, 4, 44, "Input",
InitializationCell->True],
Cell[55028, 1974, 237, 5, 69, "Input",
InitializationCell->True],
Cell[55268, 1981, 274, 6, 77, "Input",
InitializationCell->True],
Cell[55545, 1989, 259, 5, 79, "Input",
InitializationCell->True],
Cell[55807, 1996, 236, 5, 66, "Input",
InitializationCell->True],
Cell[56046, 2003, 218, 5, 44, "Input",
InitializationCell->True],
Cell[56267, 2010, 196, 4, 44, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[56488, 2018, 76, 1, 28, "Input"],
Cell[56567, 2021, 70, 4, 25, "Output"]
}, Open ]],
Cell[56652, 2028, 84, 1, 28, "Input"],

Cell[CellGroupData[{
Cell[56761, 2033, 62, 1, 28, "Input"],
Cell[56826, 2036, 111, 2, 29, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[56974, 2043, 59, 1, 28, "Input"],
Cell[57036, 2046, 111, 2, 29, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[57184, 2053, 124, 2, 44, "Input"],
Cell[57311, 2057, 141, 3, 27, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[57489, 2065, 116, 2, 44, "Input"],
Cell[57608, 2069, 141, 3, 27, "Output"]
}, Open ]],
Cell[57764, 2075, 107, 3, 31, "Text"],

Cell[CellGroupData[{
Cell[57896, 2082, 58, 0, 43, "Subsubsection"],
Cell[57957, 2084, 207, 4, 50, "Input",
InitializationCell->True],
Cell[58167, 2090, 240, 5, 66, "Input",
InitializationCell->True],
Cell[58410, 2097, 221, 4, 47, "Text"],

Cell[CellGroupData[{
Cell[58656, 2105, 166, 2, 44, "Input"],
Cell[58825, 2109, 796, 16, 73, "Output"]
}, Open ]],
Cell[59636, 2128, 87, 2, 28, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[59748, 2134, 104, 2, 28, "Input",
InitializationCell->True],
Cell[59855, 2138, 174, 4, 27, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[60066, 2147, 82, 1, 28, "Input"],
Cell[60151, 2150, 361, 7, 53, "Message"],
Cell[60515, 2159, 259, 6, 20, "Message"],
Cell[60777, 2167, 509, 10, 47, "Output"]
}, Open ]],
Cell[61301, 2180, 97, 3, 31, "Text"],
Cell[61401, 2185, 88, 2, 28, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[61514, 2191, 53, 1, 28, "Input"],
Cell[61570, 2194, 235, 4, 29, "Output"]
}, Open ]],
Cell[61820, 2201, 56, 0, 31, "Text"],

Cell[CellGroupData[{
Cell[61901, 2205, 165, 5, 63, "Input",
InitializationCell->True],
Cell[62069, 2212, 254, 7, 46, "Output"]
}, Open ]],
Cell[62338, 2222, 371, 8, 87, "Input",
InitializationCell->True],
Cell[62712, 2232, 340, 7, 85, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[63077, 2243, 289, 5, 80, "Input"],
Cell[63369, 2250, 217, 4, 29, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[63623, 2259, 81, 1, 28, "Input"],
Cell[63707, 2262, 161, 3, 27, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[63905, 2270, 73, 1, 28, "Input"],
Cell[63981, 2273, 92, 1, 29, "Output"]
}, Open ]],
Cell[64088, 2277, 108, 3, 31, "Text"],
Cell[64199, 2282, 83, 1, 28, "Input"],
Cell[64285, 2285, 316, 6, 66, "Input",
InitializationCell->True],
Cell[64604, 2293, 347, 7, 98, "Input",
InitializationCell->True],
Cell[64954, 2302, 115, 2, 28, "Input",
InitializationCell->True],
Cell[65072, 2306, 142, 3, 28, "Input",
InitializationCell->True],
Cell[65217, 2311, 107, 2, 28, "Input",
InitializationCell->True],
Cell[65327, 2315, 130, 3, 28, "Input",
InitializationCell->True],
Cell[65460, 2320, 72, 0, 31, "Text"],

Cell[CellGroupData[{
Cell[65557, 2324, 137, 3, 28, "Input",
InitializationCell->True],
Cell[65697, 2329, 4803, 95, 212, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[70537, 2429, 201, 3, 60, "Input"],
Cell[70741, 2434, 70, 4, 25, "Output"]
}, Open ]],
Cell[70826, 2441, 140, 3, 53, "Input",
InitializationCell->True],
Cell[70969, 2446, 148, 3, 53, "Input",
InitializationCell->True],
Cell[71120, 2451, 218, 5, 50, "Input",
InitializationCell->True],
Cell[71341, 2458, 230, 5, 69, "Input",
InitializationCell->True],

Cell[CellGroupData[{
Cell[71596, 2467, 64, 1, 28, "Input"],
Cell[71663, 2470, 108, 2, 27, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[71808, 2477, 68, 1, 28, "Input"],
Cell[71879, 2480, 108, 2, 27, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[72024, 2487, 65, 1, 28, "Input"],
Cell[72092, 2490, 111, 2, 29, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[72240, 2497, 83, 1, 28, "Input"],
Cell[72326, 2500, 147, 3, 29, "Output"]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[72512, 2508, 59, 1, 28, "Input"],
Cell[72574, 2511, 63, 1, 28, "Input"],

Cell[CellGroupData[{
Cell[72662, 2516, 40, 1, 28, "Input"],
Cell[72705, 2519, 60, 1, 27, "Output"]
}, Open ]],
Cell[72780, 2523, 29, 0, 53, "Section"],

Cell[CellGroupData[{
Cell[72834, 2527, 60, 1, 28, "Input"],
Cell[72897, 2530, 51, 1, 28, "Input"],
Cell[72951, 2533, 911, 22, 27, "Output"]
}, Open ]],
Cell[73877, 2558, 324, 5, 60, "Input",
InitializationCell->True],
Cell[74204, 2565, 199, 3, 44, "Input"],
Cell[74406, 2570, 2374, 36, 588, "Input",
InitializationCell->True]
}, Open ]]
}, Open ]],

Cell[CellGroupData[{
Cell[76829, 2612, 6730, 110, 2446, "Input"],
Cell[83562, 2724, 82, 1, 20, "Print"],
Cell[83647, 2727, 1758, 41, 37, "Print"],
Cell[85408, 2770, 82, 1, 20, "Print"],
Cell[85493, 2773, 1757, 41, 37, "Print"],
Cell[87253, 2816, 82, 1, 20, "Print"],
Cell[87338, 2819, 1758, 41, 37, "Print"],
Cell[89099, 2862, 82, 1, 20, "Print"],
Cell[89184, 2865, 1758, 41, 37, "Print"],
Cell[90945, 2908, 82, 1, 20, "Print"],
Cell[91030, 2911, 1756, 41, 37, "Print"],
Cell[92789, 2954, 82, 1, 20, "Print"],
Cell[92874, 2957, 1758, 41, 37, "Print"],
Cell[94635, 3000, 82, 1, 20, "Print"],
Cell[94720, 3003, 1758, 41, 37, "Print"],
Cell[96481, 3046, 82, 1, 20, "Print"],
Cell[96566, 3049, 1758, 41, 37, "Print"],
Cell[98327, 3092, 82, 1, 20, "Print"],
Cell[98412, 3095, 1757, 41, 37, "Print"],
Cell[100172, 3138, 82, 1, 20, "Print"],
Cell[100257, 3141, 1759, 41, 37, "Print"],
Cell[102019, 3184, 82, 1, 20, "Print"],
Cell[102104, 3187, 1759, 41, 37, "Print"],
Cell[103866, 3230, 82, 1, 20, "Print"],
Cell[103951, 3233, 1759, 41, 37, "Print"],
Cell[105713, 3276, 82, 1, 20, "Print"],
Cell[105798, 3279, 1756, 41, 37, "Print"],
Cell[107557, 3322, 82, 1, 20, "Print"],
Cell[107642, 3325, 1756, 41, 37, "Print"],
Cell[109401, 3368, 82, 1, 20, "Print"],
Cell[109486, 3371, 1757, 41, 37, "Print"],
Cell[111246, 3414, 82, 1, 20, "Print"],
Cell[111331, 3417, 1757, 41, 37, "Print"],
Cell[113091, 3460, 82, 1, 20, "Print"],
Cell[113176, 3463, 1755, 41, 37, "Print"],
Cell[114934, 3506, 82, 1, 20, "Print"],
Cell[115019, 3509, 1756, 41, 37, "Print"],
Cell[116778, 3552, 82, 1, 20, "Print"],
Cell[116863, 3555, 1756, 41, 37, "Print"],
Cell[118622, 3598, 82, 1, 20, "Print"],
Cell[118707, 3601, 1758, 41, 37, "Print"],
Cell[120468, 3644, 82, 1, 20, "Print"],
Cell[120553, 3647, 1758, 41, 37, "Print"],
Cell[122314, 3690, 82, 1, 20, "Print"],
Cell[122399, 3693, 1758, 41, 37, "Print"],
Cell[124160, 3736, 82, 1, 20, "Print"],
Cell[124245, 3739, 1758, 41, 37, "Print"],
Cell[126006, 3782, 82, 1, 20, "Print"],
Cell[126091, 3785, 1757, 41, 37, "Print"],
Cell[127851, 3828, 82, 1, 20, "Print"],
Cell[127936, 3831, 1758, 41, 37, "Print"],
Cell[129697, 3874, 82, 1, 20, "Print"],
Cell[129782, 3877, 1758, 41, 37, "Print"],
Cell[131543, 3920, 82, 1, 20, "Print"],
Cell[131628, 3923, 1757, 41, 37, "Print"],
Cell[133388, 3966, 82, 1, 20, "Print"],
Cell[133473, 3969, 1757, 41, 37, "Print"],
Cell[135233, 4012, 82, 1, 20, "Print"],
Cell[135318, 4015, 1758, 41, 37, "Print"],
Cell[137079, 4058, 82, 1, 20, "Print"],
Cell[137164, 4061, 1758, 41, 37, "Print"],
Cell[138925, 4104, 82, 1, 20, "Print"],
Cell[139010, 4107, 1758, 41, 37, "Print"],
Cell[140771, 4150, 82, 1, 20, "Print"],
Cell[140856, 4153, 1758, 41, 37, "Print"],
Cell[142617, 4196, 82, 1, 20, "Print"],
Cell[142702, 4199, 1757, 41, 37, "Print"],
Cell[144462, 4242, 82, 1, 20, "Print"],
Cell[144547, 4245, 1758, 41, 37, "Print"],
Cell[146308, 4288, 82, 1, 20, "Print"],
Cell[146393, 4291, 1758, 41, 37, "Print"],
Cell[148154, 4334, 82, 1, 20, "Print"],
Cell[148239, 4337, 1757, 41, 37, "Print"],
Cell[149999, 4380, 82, 1, 20, "Print"],
Cell[150084, 4383, 1756, 41, 37, "Print"],
Cell[151843, 4426, 82, 1, 20, "Print"],
Cell[151928, 4429, 1757, 41, 37, "Print"],
Cell[153688, 4472, 82, 1, 20, "Print"],
Cell[153773, 4475, 1757, 41, 37, "Print"],
Cell[155533, 4518, 82, 1, 20, "Print"],
Cell[155618, 4521, 1757, 41, 37, "Print"],
Cell[157378, 4564, 82, 1, 20, "Print"],
Cell[157463, 4567, 1756, 41, 37, "Print"],
Cell[159222, 4610, 82, 1, 20, "Print"],
Cell[159307, 4613, 1756, 41, 37, "Print"],
Cell[161066, 4656, 82, 1, 20, "Print"],
Cell[161151, 4659, 1757, 41, 37, "Print"],
Cell[162911, 4702, 82, 1, 20, "Print"],
Cell[162996, 4705, 1758, 41, 37, "Print"],
Cell[164757, 4748, 82, 1, 20, "Print"],
Cell[164842, 4751, 1758, 41, 37, "Print"],
Cell[166603, 4794, 82, 1, 20, "Print"],
Cell[166688, 4797, 1758, 41, 37, "Print"],
Cell[168449, 4840, 82, 1, 20, "Print"],
Cell[168534, 4843, 1758, 41, 37, "Print"],
Cell[170295, 4886, 82, 1, 20, "Print"],
Cell[170380, 4889, 1757, 41, 37, "Print"],
Cell[172140, 4932, 231, 5, 20, "Message"],
Cell[172374, 4939, 259, 6, 20, "Message"],
Cell[172636, 4947, 231, 5, 20, "Message"],
Cell[172870, 4954, 259, 6, 20, "Message"],
Cell[173132, 4962, 231, 5, 20, "Message"],
Cell[173366, 4969, 267, 6, 20, "Message"],
Cell[173636, 4977, 259, 6, 20, "Message"],
Cell[173898, 4985, 268, 6, 20, "Message"],
Cell[174169, 4993, 295, 7, 35, "Message"],
Cell[174467, 5002, 295, 7, 35, "Message"],
Cell[174765, 5011, 295, 7, 35, "Message"],
Cell[175063, 5020, 262, 6, 20, "Message"],
Cell[175328, 5028, 82, 1, 20, "Print"],
Cell[175413, 5031, 1564, 36, 35, "Print"],
Cell[176980, 5069, 82, 1, 20, "Print"],
Cell[177065, 5072, 1758, 41, 37, "Print"],
Cell[178826, 5115, 82, 1, 20, "Print"],
Cell[178911, 5118, 1758, 41, 37, "Print"],
Cell[180672, 5161, 82, 1, 20, "Print"],
Cell[180757, 5164, 1758, 41, 37, "Print"],
Cell[182518, 5207, 82, 1, 20, "Print"],
Cell[182603, 5210, 1758, 41, 37, "Print"],
Cell[184364, 5253, 82, 1, 20, "Print"],
Cell[184449, 5256, 1758, 41, 37, "Print"],
Cell[186210, 5299, 82, 1, 20, "Print"],
Cell[186295, 5302, 1758, 41, 37, "Print"],
Cell[188056, 5345, 82, 1, 20, "Print"],
Cell[188141, 5348, 1758, 41, 37, "Print"],
Cell[189902, 5391, 82, 1, 20, "Print"],
Cell[189987, 5394, 1758, 41, 37, "Print"],
Cell[191748, 5437, 82, 1, 20, "Print"],
Cell[191833, 5440, 1757, 41, 37, "Print"],
Cell[193593, 5483, 82, 1, 20, "Print"],
Cell[193678, 5486, 1758, 41, 37, "Print"],
Cell[195439, 5529, 82, 1, 20, "Print"],
Cell[195524, 5532, 1758, 41, 37, "Print"],
Cell[197285, 5575, 82, 1, 20, "Print"],
Cell[197370, 5578, 1649, 38, 37, "Print"],
Cell[199022, 5618, 82, 1, 20, "Print"],
Cell[199107, 5621, 1648, 38, 37, "Print"],
Cell[200758, 5661, 82, 1, 20, "Print"],
Cell[200843, 5664, 1650, 38, 37, "Print"],
Cell[202496, 5704, 82, 1, 20, "Print"],
Cell[202581, 5707, 1650, 38, 37, "Print"],
Cell[204234, 5747, 82, 1, 20, "Print"],
Cell[204319, 5750, 1649, 38, 37, "Print"],
Cell[205971, 5790, 82, 1, 20, "Print"],
Cell[206056, 5793, 1650, 38, 37, "Print"],
Cell[207709, 5833, 82, 1, 20, "Print"],
Cell[207794, 5836, 1650, 38, 37, "Print"],
Cell[209447, 5876, 82, 1, 20, "Print"],
Cell[209532, 5879, 1650, 38, 37, "Print"],
Cell[211185, 5919, 82, 1, 20, "Print"],
Cell[211270, 5922, 1650, 38, 37, "Print"],
Cell[212923, 5962, 82, 1, 20, "Print"],
Cell[213008, 5965, 1649, 38, 37, "Print"],
Cell[214660, 6005, 82, 1, 20, "Print"],
Cell[214745, 6008, 1650, 38, 37, "Print"],
Cell[216398, 6048, 82, 1, 20, "Print"],
Cell[216483, 6051, 1650, 38, 37, "Print"],
Cell[218136, 6091, 82, 1, 20, "Print"],
Cell[218221, 6094, 1650, 38, 37, "Print"],
Cell[219874, 6134, 82, 1, 20, "Print"],
Cell[219959, 6137, 1650, 38, 37, "Print"],
Cell[221612, 6177, 82, 1, 20, "Print"],
Cell[221697, 6180, 1649, 38, 37, "Print"],
Cell[223349, 6220, 82, 1, 20, "Print"],
Cell[223434, 6223, 1650, 38, 37, "Print"],
Cell[225087, 6263, 82, 1, 20, "Print"],
Cell[225172, 6266, 1650, 38, 37, "Print"],
Cell[226825, 6306, 82, 1, 20, "Print"],
Cell[226910, 6309, 1650, 38, 37, "Print"],
Cell[228563, 6349, 257, 6, 20, "Message"],
Cell[228823, 6357, 257, 6, 20, "Message"],
Cell[229083, 6365, 257, 6, 20, "Message"],
Cell[229343, 6373, 267, 6, 20, "Message"],
Cell[229613, 6381, 369, 8, 35, "Message"],
Cell[229985, 6391, 369, 8, 20, "Message"],
Cell[230357, 6401, 440, 9, 20, "Message"],
Cell[230800, 6412, 460, 9, 20, "Message"],
Cell[231263, 6423, 459, 9, 20, "Message"],
Cell[231725, 6434, 251, 6, 20, "Message"],
Cell[231979, 6442, 440, 9, 20, "Message"],
Cell[232422, 6453, 460, 9, 20, "Message"],
Cell[232885, 6464, 459, 9, 20, "Message"],
Cell[233347, 6475, 251, 6, 20, "Message"],
Cell[233601, 6483, 82, 1, 20, "Print"],
Cell[233686, 6486, 16634, 370, 191, "Print"],
Cell[250323, 6858, 82, 1, 20, "Print"],
Cell[250408, 6861, 1650, 38, 37, "Print"],
Cell[252061, 6901, 82, 1, 20, "Print"],
Cell[252146, 6904, 1651, 38, 37, "Print"],
Cell[253800, 6944, 82, 1, 20, "Print"],
Cell[253885, 6947, 1651, 38, 37, "Print"],
Cell[255539, 6987, 82, 1, 20, "Print"],
Cell[255624, 6990, 1650, 38, 37, "Print"],
Cell[257277, 7030, 82, 1, 20, "Print"],
Cell[257362, 7033, 1650, 38, 37, "Print"],
Cell[259015, 7073, 82, 1, 20, "Print"],
Cell[259100, 7076, 1651, 38, 37, "Print"],
Cell[260754, 7116, 82, 1, 20, "Print"],
Cell[260839, 7119, 1651, 38, 37, "Print"],
Cell[262493, 7159, 82, 1, 20, "Print"],
Cell[262578, 7162, 1651, 38, 37, "Print"],
Cell[264232, 7202, 82, 1, 20, "Print"],
Cell[264317, 7205, 1651, 38, 37, "Print"],
Cell[265971, 7245, 82, 1, 20, "Print"],
Cell[266056, 7248, 1651, 38, 37, "Print"],
Cell[267710, 7288, 82, 1, 20, "Print"],
Cell[267795, 7291, 1651, 38, 37, "Print"],
Cell[269449, 7331, 82, 1, 20, "Print"],
Cell[269534, 7334, 1588, 36, 37, "Print"],
Cell[271125, 7372, 82, 1, 20, "Print"],
Cell[271210, 7375, 1588, 36, 37, "Print"],
Cell[272801, 7413, 82, 1, 20, "Print"],
Cell[272886, 7416, 1589, 36, 37, "Print"],
Cell[274478, 7454, 82, 1, 20, "Print"],
Cell[274563, 7457, 1588, 36, 37, "Print"],
Cell[276154, 7495, 82, 1, 20, "Print"],
Cell[276239, 7498, 1588, 36, 37, "Print"],
Cell[277830, 7536, 82, 1, 20, "Print"],
Cell[277915, 7539, 1588, 36, 37, "Print"],
Cell[279506, 7577, 82, 1, 20, "Print"],
Cell[279591, 7580, 1587, 36, 37, "Print"],
Cell[281181, 7618, 82, 1, 20, "Print"],
Cell[281266, 7621, 1588, 36, 37, "Print"],
Cell[282857, 7659, 82, 1, 20, "Print"],
Cell[282942, 7662, 1588, 36, 37, "Print"],
Cell[284533, 7700, 82, 1, 20, "Print"],
Cell[284618, 7703, 1589, 36, 37, "Print"],
Cell[286210, 7741, 82, 1, 20, "Print"],
Cell[286295, 7744, 1588, 36, 37, "Print"],
Cell[287886, 7782, 82, 1, 20, "Print"],
Cell[287971, 7785, 1589, 36, 37, "Print"],
Cell[289563, 7823, 82, 1, 20, "Print"],
Cell[289648, 7826, 1587, 36, 37, "Print"],
Cell[291238, 7864, 82, 1, 20, "Print"],
Cell[291323, 7867, 1589, 36, 37, "Print"],
Cell[292915, 7905, 82, 1, 20, "Print"],
Cell[293000, 7908, 1589, 36, 37, "Print"],
Cell[294592, 7946, 82, 1, 20, "Print"],
Cell[294677, 7949, 1588, 36, 37, "Print"],
Cell[296268, 7987, 62, 1, 28, "Input"],
Cell[296333, 7990, 74, 1, 20, "Print"],
Cell[296410, 7993, 193, 5, 20, "Message"],
Cell[296606, 8000, 99, 2, 20, "Print"],
Cell[296708, 8004, 82, 1, 20, "Print"],
Cell[296793, 8007, 1369, 32, 38, "Print"],
Cell[298165, 8041, 72, 1, 20, "Print"],
Cell[298240, 8044, 196, 5, 20, "Message"],
Cell[298439, 8051, 99, 2, 20, "Print"],
Cell[298541, 8055, 82, 1, 20, "Print"],
Cell[298626, 8058, 1366, 32, 37, "Print"],
Cell[299995, 8092, 67, 1, 20, "Print"],
Cell[300065, 8095, 191, 5, 20, "Message"],
Cell[300259, 8102, 260, 6, 20, "Message"],
Cell[300522, 8110, 99, 2, 20, "Print"],
Cell[300624, 8114, 82, 1, 20, "Print"],
Cell[300709, 8117, 1362, 32, 37, "Print"],
Cell[302074, 8151, 70, 1, 20, "Print"],
Cell[302147, 8154, 99, 2, 20, "Print"],
Cell[302249, 8158, 82, 1, 20, "Print"],
Cell[302334, 8161, 1365, 32, 37, "Print"],
Cell[303702, 8195, 69, 1, 20, "Print"],
Cell[303774, 8198, 99, 2, 20, "Print"],
Cell[303876, 8202, 82, 1, 20, "Print"],
Cell[303961, 8205, 1364, 32, 37, "Print"],
Cell[305328, 8239, 68, 1, 20, "Print"],
Cell[305399, 8242, 99, 2, 20, "Print"],
Cell[305501, 8246, 82, 1, 20, "Print"],
Cell[305586, 8249, 1228, 29, 37, "Print"],
Cell[306817, 8280, 71, 1, 20, "Print"],
Cell[306891, 8283, 257, 6, 20, "Message"],
Cell[307151, 8291, 257, 6, 20, "Message"],
Cell[307411, 8299, 257, 6, 20, "Message"],
Cell[307671, 8307, 267, 6, 20, "Message"],
Cell[307941, 8315, 99, 2, 20, "Print"],
Cell[308043, 8319, 82, 1, 20, "Print"],
Cell[308128, 8322, 1470, 35, 38, "Print"],
Cell[309601, 8359, 71, 1, 20, "Print"],
Cell[309675, 8362, 99, 2, 20, "Print"],
Cell[309777, 8366, 82, 1, 20, "Print"],
Cell[309862, 8369, 1366, 32, 38, "Print"],
Cell[311231, 8403, 70, 1, 20, "Print"],
Cell[311304, 8406, 99, 2, 20, "Print"],
Cell[311406, 8410, 82, 1, 20, "Print"],
Cell[311491, 8413, 1365, 32, 37, "Print"],
Cell[312859, 8447, 71, 1, 20, "Print"],
Cell[312933, 8450, 99, 2, 20, "Print"],
Cell[313035, 8454, 82, 1, 20, "Print"],
Cell[313120, 8457, 1365, 32, 37, "Print"],
Cell[314488, 8491, 70, 1, 20, "Print"],
Cell[314561, 8494, 99, 2, 20, "Print"],
Cell[314663, 8498, 82, 1, 20, "Print"],
Cell[314748, 8501, 1364, 32, 37, "Print"],
Cell[316115, 8535, 72, 1, 20, "Print"],
Cell[316190, 8538, 99, 2, 20, "Print"],
Cell[316292, 8542, 82, 1, 20, "Print"],
Cell[316377, 8545, 1353, 32, 38, "Print"],
Cell[317733, 8579, 67, 1, 20, "Print"]
}, Open ]],
Cell[317815, 8583, 26, 0, 28, "Input"],

Cell[CellGroupData[{
Cell[317866, 8587, 56, 1, 28, "Input"],
Cell[317925, 8590, 66, 1, 20, "Print"]
}, Open ]],
Cell[318006, 8594, 1455, 23, 492, "Input"],

Cell[CellGroupData[{
Cell[319486, 8621, 108, 2, 28, "Input"],
Cell[319597, 8625, 100, 2, 27, "Output"]
}, Open ]],
Cell[319712, 8630, 61, 1, 28, "Input"],

Cell[CellGroupData[{
Cell[319798, 8635, 52, 1, 28, "Input"],
Cell[319853, 8638, 258, 6, 42, "Print"]
}, Open ]],

Cell[CellGroupData[{
Cell[320148, 8649, 76, 1, 28, "Input"],
Cell[320227, 8652, 53, 1, 27, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[320317, 8658, 176, 3, 44, "Input"],
Cell[320496, 8663, 1410, 31, 45, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[321943, 8699, 91, 1, 28, "Input"],
Cell[322037, 8702, 102, 2, 27, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[322176, 8709, 48, 1, 28, "Input"],
Cell[322227, 8712, 905, 22, 27, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[323169, 8739, 51, 1, 28, "Input"],
Cell[323223, 8742, 911, 22, 27, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[324171, 8769, 43, 1, 28, "Input"],
Cell[324217, 8772, 9228, 229, 225, "Output"]
}, Closed]],

Cell[CellGroupData[{
Cell[333482, 9006, 49, 1, 25, "Input"],
Cell[333534, 9009, 809, 21, 27, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[334380, 9035, 54, 1, 28, "Input"],
Cell[334437, 9038, 9144, 223, 117, "Output"]
}, Closed]],

Cell[CellGroupData[{
Cell[343618, 9266, 60, 1, 25, "Input"],
Cell[343681, 9269, 1521, 39, 27, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[345239, 9313, 39, 1, 28, "Input"],
Cell[345281, 9316, 156, 4, 27, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[345474, 9325, 42, 1, 28, "Input"],
Cell[345519, 9328, 18039, 390, 371, "Output"]
}, Closed]],

Cell[CellGroupData[{
Cell[363595, 9723, 39, 1, 25, "Input"],
Cell[363637, 9726, 55, 1, 27, "Output"]
}, Open ]],
Cell[363707, 9730, 65, 1, 28, "Input"],
Cell[363775, 9733, 76, 1, 28, "Input"],

Cell[CellGroupData[{
Cell[363876, 9738, 60, 1, 28, "Input"],
Cell[363939, 9741, 11982, 303, 119, "Output"]
}, Closed]],

Cell[CellGroupData[{
Cell[375958, 10049, 64, 1, 25, "Input"],
Cell[376025, 10052, 11982, 303, 119, "Output"]
}, Closed]],
Cell[388022, 10358, 43, 1, 25, "Input"],
Cell[388068, 10361, 129, 3, 44, "Input"],

Cell[CellGroupData[{
Cell[388222, 10368, 53, 1, 28, "Input"],
Cell[388278, 10371, 11941, 459, 140, 5715, 378, "GraphicsData",
"PostScript", "Graphics"],
Cell[400222, 10832, 167, 4, 27, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[400426, 10841, 157, 3, 60, "Input"],
Cell[400586, 10846, 351, 7, 40, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[400974, 10858, 45, 1, 28, "Input"],
Cell[401022, 10861, 585, 9, 80, "Print"]
}, Open ]],
Cell[401622, 10873, 48, 1, 28, "Input"],
Cell[401673, 10876, 68, 1, 28, "Input"],

Cell[CellGroupData[{
Cell[401766, 10881, 84, 1, 28, "Input"],
Cell[401853, 10884, 552, 10, 71, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[402442, 10899, 78, 1, 28, "Input"],
Cell[402523, 10902, 13671, 540, 140, 6533, 447, "GraphicsData",
"PostScript", "Graphics"],
Cell[416197, 11444, 27808, 792, 422, 8405, 548, "GraphicsData",
"PostScript", "Graphics"],
Cell[444008, 12238, 167, 4, 27, "Output"]
}, Open ]],
Cell[444190, 12245, 26, 0, 28, "Input"],
Cell[444219, 12247, 77, 1, 28, "Input"],

Cell[CellGroupData[{
Cell[444321, 12252, 59, 1, 28, "Input"],
Cell[444383, 12255, 78, 1, 27, "Output"]
}, Open ]],
Cell[444476, 12259, 87, 1, 44, "Input"],

Cell[CellGroupData[{
Cell[444588, 12264, 34, 1, 28, "Input"],
Cell[444625, 12267, 53, 1, 27, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[444715, 12273, 36, 1, 28, "Input"],
Cell[444754, 12276, 62, 1, 27, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[444853, 12282, 45, 1, 28, "Input"],
Cell[444901, 12285, 75, 1, 29, "Output"]
}, Open ]],
Cell[444991, 12289, 47, 1, 28, "Input"],

Cell[CellGroupData[{
Cell[445063, 12294, 63, 1, 28, "Input"],
Cell[445129, 12297, 151, 3, 29, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[445317, 12305, 64, 1, 28, "Input"],
Cell[445384, 12308, 75, 1, 29, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[445496, 12314, 99, 2, 28, "Input"],
Cell[445598, 12318, 75, 1, 29, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[445710, 12324, 56, 1, 28, "Input"],
Cell[445769, 12327, 77330, 1905, 2109, "Output"]
}, Closed]],

Cell[CellGroupData[{
Cell[523136, 14237, 39, 1, 25, "Input"],
Cell[523178, 14240, 721, 18, 29, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[523936, 14263, 48, 1, 28, "Input"],
Cell[523987, 14266, 271, 6, 20, "Message"],
Cell[524261, 14274, 107, 3, 20, "Message"]
}, Open ]],
Cell[524383, 14280, 26, 0, 28, "Input"],

Cell[CellGroupData[{
Cell[524434, 14284, 45, 1, 28, "Input"],
Cell[524482, 14287, 1363, 32, 44, "Output"]
}, Open ]],
Cell[525860, 14322, 54, 1, 28, "Input"],

Cell[CellGroupData[{
Cell[525939, 14327, 65, 1, 28, "Input"],
Cell[526007, 14330, 224, 5, 20, "Message"]
}, Open ]],

Cell[CellGroupData[{
Cell[526268, 14340, 7400, 109, 2172, "Input"],
Cell[533671, 14451, 31444, 723, 895, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[565152, 15179, 46, 1, 28, "Input"],
Cell[565201, 15182, 50182, 1249, 895, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[615420, 16436, 192, 4, 60, "Input"],
Cell[615615, 16442, 17594, 423, 294, "Output"]
}, Open ]],
Cell[633224, 16868, 99, 2, 28, "Input"],
Cell[633326, 16872, 144, 4, 44, "Input"],
Cell[633473, 16878, 144, 4, 44, "Input"],

Cell[CellGroupData[{
Cell[633642, 16886, 38, 1, 28, "Input"],
Cell[633683, 16889, 291, 6, 35, "Message"],
Cell[633977, 16897, 56, 1, 27, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[634070, 16903, 41, 1, 28, "Input"],
Cell[634114, 16906, 454, 16, 186, "Print"]
}, Open ]],
Cell[634583, 16925, 26, 0, 28, "Input"],
Cell[634612, 16927, 62, 1, 28, "Input"],

Cell[CellGroupData[{
Cell[634699, 16932, 191, 4, 60, "Input"],
Cell[634893, 16938, 25157, 666, 395, 8837, 460, "GraphicsData",
"PostScript", "Graphics"],
Cell[660053, 17606, 167, 4, 27, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[660257, 17615, 89, 1, 28, "Input"],
Cell[660349, 17618, 29106, 784, 430, 11377, 561, "GraphicsData",
"PostScript", "Graphics"],
Cell[689458, 18404, 167, 4, 27, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[689662, 18413, 111, 2, 28, "Input"],
Cell[689776, 18417, 167, 4, 27, "Output"]
}, Open ]],
Cell[689958, 18424, 66, 0, 53, "Section"],
Cell[690027, 18426, 1258, 22, 412, "Input"],

Cell[CellGroupData[{
Cell[691310, 18452, 91, 1, 28, "Input"],
Cell[691404, 18455, 19281, 497, 390, 4445, 309, "GraphicsData",
"PostScript", "Graphics"],
Cell[710688, 18954, 167, 4, 27, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[710892, 18963, 140, 2, 44, "Input"],
Cell[711035, 18967, 20792, 798, 227, 10113, 661, "GraphicsData",
"PostScript", "Graphics"],
Cell[731830, 19767, 167, 4, 27, "Output"]
}, Open ]],

Cell[CellGroupData[{
Cell[732034, 19776, 100, 2, 28, "Input"],
Cell[732137, 19780, 167, 4, 27, "Output"]
}, Open ]]
}
]
*)




(***********************************************************************
End of Mathematica Notebook file.
***********************************************************************)