RayTracingPostProcessingRayPosition.nb

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[         0,          0]
NotebookDataLength[    745556,      16553]
NotebookOptionsPosition[    684050,      15893]
NotebookOutlinePosition[    684449,      15909]
CellTagsIndexPosition[    684406,      15906]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", "  ", 
   RowBox[{
   "Ray", " ", "Trace", " ", "Through", " ", "the", " ", "IONOSPHERE", "  ", 
    "Mathematica", " ", "Notebook", "  ", "Post", " ", "Processsing"}], "  ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", "  ", 
   RowBox[{"Copyright", " ", 
    RowBox[{"(", "C", ")"}], "2018", " ", "Sasan", " ", "Ardalan"}], 
   "                                           ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", "  ", 
   RowBox[{"This", " ", "program", " ", "is", " ", "free", " ", 
    RowBox[{"software", ":", 
     RowBox[{"you", " ", "can", " ", "redistribute", " ", "it", " ", 
      RowBox[{"and", "/", "or"}], " ", "modify"}]}]}], "       ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", "  ", 
   RowBox[{
   "it", " ", "under", " ", "the", " ", "terms", " ", "of", " ", "the", " ", 
    "GNU", " ", "General", " ", "Public", " ", "License", " ", "as", " ", 
    "published", " ", "by"}], "      ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", "  ", 
   RowBox[{
    RowBox[{"the", " ", "Free", " ", "Software", " ", "Foundation"}], ",", 
    RowBox[{
    "either", " ", "version", " ", "3", " ", "of", " ", "the", " ", 
     "License"}], ",", "or"}], "           ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"  ", 
     RowBox[{"at", " ", "your", " ", "option"}], ")"}], " ", "any", " ", 
    "later", " ", 
    RowBox[{"version", ".", "This"}], " ", "program", " ", "is", " ", 
    "distributed"}], "             ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", "  ", 
   RowBox[{
    RowBox[{
    "in", " ", "the", " ", "hope", " ", "that", " ", "it", " ", "will", " ", 
     "be", " ", "useful"}], ",", 
    RowBox[{"but", " ", "WITHOUT", " ", "ANY", " ", "WARRANTY"}]}], 
   "               ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", "  ", 
   RowBox[{
   "without", " ", "even", " ", "the", " ", "implied", " ", "warranty", " ", 
    "of"}], "                                      ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", "  ", 
   RowBox[{
   "MERCHANTABILITY", " ", "or", " ", "FITNESS", " ", "FOR", " ", "A", " ", 
    "PARTICULAR", " ", 
    RowBox[{"PURPOSE", ".", "See"}], " ", "the"}], "               ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", "  ", 
   RowBox[{
   "GNU", " ", "General", " ", "Public", " ", "License", " ", "for", " ", 
    "more", " ", 
    RowBox[{"details", ".", "You"}], " ", "should", " ", "have"}], 
   "               ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", "  ", 
   RowBox[{
   "received", " ", "a", " ", "copy", " ", "of", " ", "the", " ", "GNU", " ", 
    "General", " ", "Public", " ", "License"}], "                         ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", "  ", 
   RowBox[{
    RowBox[{"along", " ", "with", " ", "this", " ", 
     RowBox[{"program", ".", "If"}], " ", "not"}], ",", 
    RowBox[{
     RowBox[{"see", "<", 
      RowBox[{"http", ":"}]}], "//", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"www", ".", "gnu", ".", "org"}], "/", "licenses"}], "/"}], ">",
       "."}]}]}], "         ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", "  ", 
   RowBox[{"Author", ":", 
    RowBox[{"Sasan", " ", "Ardalan"}]}], 
   "                                                      ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", "  ", 
   RowBox[{
    RowBox[{"Date", ":", 
     RowBox[{"December", " ", "28"}]}], ",", "2018"}], 
   "                                                     ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", "  ", 
   RowBox[{
    RowBox[{"http", ":"}], "//", 
    RowBox[{"www", ".", "radiocalc", ".", "com"}]}], 
   "                                                  ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
  "(*", "                                                                     \
       ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "The", " ", "Mathematica", " ", "Code", " ", "processes", " ", "the", " ", 
    "Ray", " ", "Matrix", " ", "computed", " ", "using"}], "               ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "The", " ", "Mathematica", " ", "Notebook", " ", "for", " ", "Ray", " ", 
    "Tracing", " ", "which", " ", "is", "  ", "based", " ", "on"}], 
   "                ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"the", " ", "FORTRAN", " ", "Code", " ", 
    RowBox[{"by", " ", ":"}]}], 
   "                                                      ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"R", ".", " ", "Michael"}], " ", "Jones"}], ",", " ", 
    RowBox[{"Judith", " ", 
     RowBox[{"J", ".", " ", "Stephenson"}]}], ",", "   ", 
    RowBox[{
     RowBox[{"A", " ", "Versatile", " ", "Three"}], "-", "Dimensional"}]}], 
   "    ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "Ray", " ", "Tracing", " ", "Compute", " ", "Program", " ", "for", " ", 
     "Radio", " ", "Waves", " ", "in", " ", "the", " ", "Ionosphere"}], ","}],
    "             ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"OT", " ", "Report", " ", "75"}], "-", "75"}], ",", " ", 
    RowBox[{"US", " ", "Department", " ", "of", " ", "Commerce"}], ","}], 
   "                                ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"October", " ", "1975"}], 
   "                                                               ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Visit", " ", 
     RowBox[{"http", ":"}]}], "//", 
    RowBox[{
     RowBox[{"www", ".", "radiocalc", ".", "com"}], " ", "for", " ", 
     "details"}]}], "                                 ", "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", "  ", 
   RowBox[{
   "The", " ", "program", " ", "reads", " ", "in", " ", "the", " ", "Ray", " ",
     "Matrix", " ", 
    RowBox[{"rayMatrix", ".", "wdx"}]}], "                         ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "It", " ", "also", " ", "reads", " ", "in", " ", "and", " ", "uses", " ", 
    "the", " ", "parameters", " ", "stored", " ", "in", " ", 
    RowBox[{"W", ".", "wdx"}]}], "                   ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", "  ", 
   RowBox[{
   "Plots", " ", "Ray", " ", "Points", " ", "in", " ", "3", "D", " ", "with", 
    " ", "Origin", " ", "at", " ", "Earth", " ", "Center"}], 
   "                        ", "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", "  ", 
   RowBox[{
   "Uses", " ", "Plot", " ", "Range", "  ", "to", " ", "Show", " ", "Ray", " ",
     "Paths"}], "                                         ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
     "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
     "**", "**", "**", "**", "**", "**", "**", "**"}], "******)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "   ", 
     "RAY_PATH"}], " ", "Ray", " ", "Vector", " ", "3", "D", " ", 
    RowBox[{"Plot", "      ", "**", "**", "**"}], "*", 
    RowBox[{"**", "**"}]}], "******)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
     "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
     "**", "**", "**", "**", "**", "**", "**", "**"}], "******)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"RayMatrix", " ", "=", 
     RowBox[{"Import", "[", "\"\<rayMatrix.wdx\>\"", "]"}]}], ";"}], 
   "\[IndentingNewLine]", " ", "\[IndentingNewLine]", 
   RowBox[{"lengthMatrix", "=", 
    RowBox[{"Length", "[", "RayMatrix", "]"}]}], "\n", 
   RowBox[{
    RowBox[{"Print", " ", "[", 
     RowBox[{"\"\<Length Matrix=\>\"", ",", "lengthMatrix"}], "]"}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"WPost", "=", 
     RowBox[{"Import", "[", "\"\<W.wdx\>\"", "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"CoordinatesRay", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", "\[IndentingNewLine]", " ", 
    RowBox[{"*", " ", "Initialize"}], "\[IndentingNewLine]", " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"PIT2", "=", 
    RowBox[{"2.", "*", "Pi"}]}], "\n", 
   RowBox[{"PID2", "=", 
    RowBox[{"Pi", "/", "2."}]}], "\n", 
   RowBox[{"DEGS", "=", 
    RowBox[{"180.", "/", "Pi"}]}], "\n", 
   RowBox[{"RAD", "=", 
    RowBox[{"Pi", "/", "180."}]}], "\n", 
   RowBox[{"CC", "=", 
    RowBox[{"2.997925", "*", 
     RowBox[{"10", "^", "5"}]}]}], "\n", 
   RowBox[{"K", "=", 
    RowBox[{
     RowBox[{"2.81785", "E"}], "-", 
     RowBox[{"15", "*", 
      RowBox[{
       RowBox[{"CC", "^", "2"}], "/", "Pi"}]}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"TLON", "=", 
    RowBox[{"WPost", "[", 
     RowBox[{"[", "5", "]"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"TLAT", "=", 
    RowBox[{"WPost", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"Print", " ", "[", 
    RowBox[{"\"\<XMTRH=\>\"", ",", "XMTRH", ",", "\"\< PLAT=\>\"", ",", 
     "PLAT", ",", "\"\< PLON=\>\"", ",", "PLON"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Print", " ", "[", 
    RowBox[{"\"\< TLAT=\>\"", ",", "TLAT", ",", "\"\< TLON=\>\"", ",", 
     "TLON"}], "]"}], "\[IndentingNewLine]", " ", "\[IndentingNewLine]", " ", 
   
   RowBox[{
    RowBox[{"EARTHR", "=", 
     RowBox[{"WPost", "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "  ", 
   RowBox[{"(*", " ", 
    RowBox[{"Earth", " ", "Radious", " ", "Km"}], "  ", "*)"}], 
   "\[IndentingNewLine]", "  ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"lengthMatrix", "=", "362"}], ";"}], "  ", "*)"}], " ", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"ii", "=", "1"}], ",", 
     RowBox[{"ii", "<", " ", "lengthMatrix"}], ",", " ", 
     RowBox[{"ii", "++"}], ",", "\[IndentingNewLine]", "       ", 
     RowBox[{
      RowBox[{"Ray", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"RayMatrix", "[", 
         RowBox[{"[", "ii", "]"}], "]"}], " ", "]"}]}], ";"}]}], 
    "\[IndentingNewLine]", "       ", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{"RayPath", "[", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    "\[IndentingNewLine]", "]"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"End", " ", "For", " ", "Loop"}], "  ", "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Store", " ", "in", " ", "column", " ", "format", " ", "in", " ", "text", 
     " ", "file"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"sfile", "=", 
    RowBox[{"OpenWrite", "[", 
     RowBox[{"\"\<earth_center_spherical.txt\>\"", ",", 
      RowBox[{"FormatType", "\[Rule]", "StandardForm"}]}], "]"}]}], 
   "\[IndentingNewLine]", "\n", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"ii", "=", "1"}], ",", 
     RowBox[{"ii", "<", "lengthMatrix"}], ",", " ", 
     RowBox[{"ii", "++"}], ",", "\[IndentingNewLine]", " ", 
     "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"Ray", "=", 
       RowBox[{"RayMatrix", "[", 
        RowBox[{"[", "ii", "]"}], "]"}]}], " ", ";", "\[IndentingNewLine]", 
      RowBox[{"Write", "[", 
       RowBox[{"sfile", ",", 
        RowBox[{"Re", "[", 
         RowBox[{"Ray", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", "\"\< \>\"", ",", 
        RowBox[{"Re", "[", 
         RowBox[{"Ray", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], ",", "\"\< \>\"", ",", 
        RowBox[{"Re", "[", 
         RowBox[{"Ray", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "]"}]}], "]"}], ";"}]}], 
    "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Close", "[", "sfile", "]"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.755460160174726*^9, 3.755460200851099*^9}, {
   3.755460867164393*^9, 3.7554608696101847`*^9}, {3.755461109551591*^9, 
   3.755461168134016*^9}, {3.755461222559847*^9, 3.755461225073848*^9}, {
   3.755461266072176*^9, 3.755461289662408*^9}, {3.755461340848538*^9, 
   3.755461352157701*^9}, {3.7554613900973577`*^9, 3.755461449990507*^9}, {
   3.755461589566959*^9, 3.755461619871396*^9}, {3.755463118441763*^9, 
   3.755463126184739*^9}, 3.75546315757937*^9, 3.7554636478915443`*^9, {
   3.755464749687929*^9, 3.7554647897473803`*^9}, {3.755466771693224*^9, 
   3.755466774660864*^9}, {3.755466831213698*^9, 3.7554668354604*^9}, {
   3.755467133843219*^9, 3.755467145920827*^9}, {3.755467324005324*^9, 
   3.755467334735742*^9}, {3.7554673830966597`*^9, 3.755467418515942*^9}, {
   3.7554674620970993`*^9, 3.755467466636093*^9}, {3.755467638108069*^9, 
   3.755467638523624*^9}, {3.7554677940417347`*^9, 3.755467794707505*^9}, {
   3.7554679523070908`*^9, 3.755467955262204*^9}, {3.755468165531446*^9, 
   3.755468166386797*^9}, {3.755468265416511*^9, 3.7554683358189363`*^9}, {
   3.755468422710059*^9, 3.755468463299807*^9}, {3.755468666343663*^9, 
   3.755468739513462*^9}, 3.755468770988674*^9, {3.755468815015856*^9, 
   3.755468821191153*^9}, {3.755469030255931*^9, 3.755469033941498*^9}, 
   3.75546930322577*^9, {3.7555121188523073`*^9, 3.7555121247926283`*^9}, {
   3.755513114731526*^9, 3.755513121472557*^9}, {3.755555558730844*^9, 
   3.755555590016902*^9}, {3.7555556365887957`*^9, 3.755555727513669*^9}, 
   3.75556328754053*^9, {3.7555637437099257`*^9, 3.755563992239903*^9}, {
   3.7558540251641273`*^9, 3.755854042142034*^9}, {3.7558541294245243`*^9, 
   3.755854180837818*^9}, {3.755855284898017*^9, 3.755855469860422*^9}, {
   3.755855502029087*^9, 3.755855536897591*^9}, {3.75586584972805*^9, 
   3.7558658655082073`*^9}, {3.7558660745526543`*^9, 3.755866177455607*^9}, {
   3.755866292608629*^9, 3.75586630756979*^9}, 3.7558678586088123`*^9},
 CellLabel->"In[1]:=",ExpressionUUID->"f3bf48f0-c859-41ce-8d10-9071e7993b36"],

Cell[BoxData["604"], "Output",
 CellChangeTimes->{3.967434333513813*^9, 3.9674343744040813`*^9, 
  3.967434461133341*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"48abf5a1-cfd4-7e4b-9143-17b3f9f4967d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Length Matrix=\"\>", "\[InvisibleSpace]", "604"}],
  SequenceForm["Length Matrix=", 604],
  Editable->False]], "Print",
 CellChangeTimes->{3.9674343335148125`*^9, 3.967434374408081*^9, 
  3.967434461136343*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"1389afee-fe4f-8941-95c9-690148c392dd"],

Cell[BoxData["6.283185307179586`"], "Output",
 CellChangeTimes->{3.967434333513813*^9, 3.9674343744040813`*^9, 
  3.967434461138342*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"ee394879-3655-e04b-932e-d13479ca6947"],

Cell[BoxData["1.5707963267948966`"], "Output",
 CellChangeTimes->{3.967434333513813*^9, 3.9674343744040813`*^9, 
  3.967434461140339*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"3f832850-27f3-f34b-b44b-96833184d961"],

Cell[BoxData["57.29577951308232`"], "Output",
 CellChangeTimes->{3.967434333513813*^9, 3.9674343744040813`*^9, 
  3.9674344611413403`*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"80b66d63-64ee-0146-9e24-2a04aee2b5da"],

Cell[BoxData["0.017453292519943295`"], "Output",
 CellChangeTimes->{3.967434333513813*^9, 3.9674343744040813`*^9, 
  3.967434461143339*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"2ff0274d-6a3c-5043-addb-efe60e9c1841"],

Cell[BoxData["299792.5`"], "Output",
 CellChangeTimes->{3.967434333513813*^9, 3.9674343744040813`*^9, 
  3.9674344611443405`*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"ea7c05e5-f779-964e-84c3-a7693a8e26dc"],

Cell[BoxData[
 RowBox[{"-", "4.2912410820646`*^11"}]], "Output",
 CellChangeTimes->{3.967434333513813*^9, 3.9674343744040813`*^9, 
  3.9674344611463394`*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"e232362c-1848-ea45-8b9e-9d0f7db54069"],

Cell[BoxData[
 RowBox[{"-", "105"}]], "Output",
 CellChangeTimes->{3.967434333513813*^9, 3.9674343744040813`*^9, 
  3.96743446114834*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"d2b3fece-4b8b-2f42-acfc-a6e7a81d5e4c"],

Cell[BoxData["40.`"], "Output",
 CellChangeTimes->{3.967434333513813*^9, 3.9674343744040813`*^9, 
  3.967434461150343*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"d871e84b-78f0-ec41-ad9e-75fd4fc37722"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"XMTRH=\"\>", "\[InvisibleSpace]", "XMTRH", 
   "\[InvisibleSpace]", "\<\" PLAT=\"\>", "\[InvisibleSpace]", "PLAT", 
   "\[InvisibleSpace]", "\<\" PLON=\"\>", "\[InvisibleSpace]", "PLON"}],
  SequenceForm[
  "XMTRH=", $CellContext`XMTRH, " PLAT=", $CellContext`PLAT, 
   " PLON=", $CellContext`PLON],
  Editable->False]], "Print",
 CellChangeTimes->{3.9674343335148125`*^9, 3.967434374408081*^9, 
  3.96743446115234*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"513e08ee-b395-e342-b490-3940b4ace7ca"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\" TLAT=\"\>", "\[InvisibleSpace]", "40.`", 
   "\[InvisibleSpace]", "\<\" TLON=\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "105"}]}],
  SequenceForm[" TLAT=", 40., " TLON=", -105],
  Editable->False]], "Print",
 CellChangeTimes->{3.9674343335148125`*^9, 3.967434374408081*^9, 
  3.967434461154339*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"810eaeea-ac47-364b-8162-dfb79af262b4"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["OutputStream",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    
    TemplateBox[{
      PaneSelectorBox[{False -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]], 
              ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, 
              BaseStyle -> {}, Evaluator -> Automatic, Method -> 
              "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GraphicsBox[{
              Thickness[0.0016806722689075631`], {
               FaceForm[{
                 GrayLevel[0.93], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {
                1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{
                25.499999999999996`, 2.5}, {25.499999999999996`, 
                1.3953100000000003`}, {24.604699999999998`, 
                0.49999999999999994`}, {23.5, 0.49999999999999994`}, {2.5, 
                0.49999999999999994`}, {1.3953100000000003`, 
                0.49999999999999994`}, {0.49999999999999994`, 
                1.3953100000000003`}, {0.49999999999999994`, 2.5}, {
                0.49999999999999994`, 23.5}, {0.49999999999999994`, 
                24.604699999999998`}, {1.3953100000000003`, 
                25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
                25.499999999999996`}, {24.604699999999998`, 
                25.499999999999996`}, {25.499999999999996`, 
                24.604699999999998`}, {25.499999999999996`, 23.5}, {
                25.499999999999996`, 2.5}}}]}, {
               RGBColor[0.699951, 0.699951, 0.699951], 
               Opacity[1.], 
               JoinForm[{ElisionsDump`Miter, 10.}], 
               
               JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {
                1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{
                25.499999999999996`, 2.5}, {25.499999999999996`, 
                1.3953100000000003`}, {24.604699999999998`, 
                0.49999999999999994`}, {23.5, 0.49999999999999994`}, {2.5, 
                0.49999999999999994`}, {1.3953100000000003`, 
                0.49999999999999994`}, {0.49999999999999994`, 
                1.3953100000000003`}, {0.49999999999999994`, 2.5}, {
                0.49999999999999994`, 23.5}, {0.49999999999999994`, 
                24.604699999999998`}, {1.3953100000000003`, 
                25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
                25.499999999999996`}, {24.604699999999998`, 
                25.499999999999996`}, {25.499999999999996`, 
                24.604699999999998`}, {25.499999999999996`, 23.5}, {
                25.499999999999996`, 2.5}}}]}, {
               FaceForm[{
                 RGBColor[0.5, 0.5, 0.5], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {
                0, 1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
                1.0035199999999997`}, {2.5250000000000004`, 
                1.0035199999999997`}, {1.6828099999999997`, 
                1.0035199999999997`}, {0.9999999999999999, 
                1.6863299999999997`}, {0.9999999999999999, 
                2.5285199999999994`}, {0.9999999999999999, 
                23.474999999999998`}, {0.9999999999999999, 
                24.317199999999996`}, {1.6828099999999997`, 
                24.999999999999996`}, {2.5250000000000004`, 
                24.999999999999996`}, {3.52539, 24.999999999999996`}, {
                3.52539, 24.999999999999993`}, {5.523440000000001, 
                22.421099999999996`}, {5.523440000000001, 13.0039}, {
                5.523440000000001, 3.5867199999999992`}, {3.52539, 
                1.0035199999999997`}, {3.52539, 1.0035199999999997`}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {
                17.740599999999997`, 16.8398}, {17.740599999999997`, 
                14.856599999999998`}, {19.980900000000002`, 
                12.947299999999997`}, {17.740599999999997`, 
                10.946100000000001`}, {17.740599999999997`, 8.96289}, {
                22.4977, 12.9016}}}]}, {
               FaceForm[{
                 RGBColor[
                 0.46093800000000007`, 0.46093800000000007`, 
                  0.46093800000000007`], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                3}}}, {{{9.202339999999998, 12.8969}, {9.202339999999998, 
                12.335499999999998`}, {8.747660000000002, 
                11.880899999999999`}, {8.186329999999998, 
                11.880899999999999`}, {7.624999999999999, 
                11.880899999999999`}, {7.169920000000001, 
                12.335499999999998`}, {7.169920000000001, 12.8969}, {
                7.169920000000001, 13.458200000000003`}, {7.624999999999999, 
                13.9133}, {8.186329999999998, 13.9133}, {8.747660000000002, 
                13.9133}, {9.202339999999998, 13.458200000000003`}, {
                9.202339999999998, 12.8969}}}], 
               
               FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                3}}}, {{{12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
                12.167599999999998`, 11.880899999999999`}, {
                11.606200000000001`, 11.880899999999999`}, {11.0449, 
                11.880899999999999`}, {10.589799999999999`, 
                12.335499999999998`}, {10.589799999999999`, 12.8969}, {
                10.589799999999999`, 13.458200000000003`}, {11.0449, 
                13.9133}, {11.606200000000001`, 13.9133}, {
                12.167599999999998`, 13.9133}, {12.6227, 
                13.458200000000003`}, {12.6227, 12.8969}}}], 
               
               FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                3}}}, {{{16.042600000000004`, 12.8969}, {16.042600000000004`, 
                12.335499999999998`}, {15.587499999999999`, 
                11.880899999999999`}, {15.026199999999998`, 
                11.880899999999999`}, {14.464799999999997`, 
                11.880899999999999`}, {14.010199999999998`, 
                12.335499999999998`}, {14.010199999999998`, 12.8969}, {
                14.010199999999998`, 13.458200000000003`}, {
                14.464799999999997`, 13.9133}, {15.026199999999998`, 
                13.9133}, {15.587499999999999`, 13.9133}, {
                16.042600000000004`, 13.458200000000003`}, {
                16.042600000000004`, 12.8969}}}]}}, AspectRatio -> 1, Axes -> 
             False, Background -> GrayLevel[0.5], Frame -> True, FrameStyle -> 
             Directive[
               Thickness[Tiny], 
               GrayLevel[0.7]], FrameTicks -> None, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  StyleBox[
                   PaneBox[
                   "\"earth_center_spherical.txt\"", ContentPadding -> False, 
                    FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> 
                    Baseline, ImageSize -> {{1, 300}, Automatic}], 
                   LineBreakWithin -> False], "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Unique ID: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["3", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]], 
              ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, 
              BaseStyle -> {}, Evaluator -> Automatic, Method -> 
              "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GraphicsBox[{
              Thickness[0.0016806722689075631`], {
               FaceForm[{
                 GrayLevel[0.93], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {
                1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{
                25.499999999999996`, 2.5}, {25.499999999999996`, 
                1.3953100000000003`}, {24.604699999999998`, 
                0.49999999999999994`}, {23.5, 0.49999999999999994`}, {2.5, 
                0.49999999999999994`}, {1.3953100000000003`, 
                0.49999999999999994`}, {0.49999999999999994`, 
                1.3953100000000003`}, {0.49999999999999994`, 2.5}, {
                0.49999999999999994`, 23.5}, {0.49999999999999994`, 
                24.604699999999998`}, {1.3953100000000003`, 
                25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
                25.499999999999996`}, {24.604699999999998`, 
                25.499999999999996`}, {25.499999999999996`, 
                24.604699999999998`}, {25.499999999999996`, 23.5}, {
                25.499999999999996`, 2.5}}}]}, {
               RGBColor[0.699951, 0.699951, 0.699951], 
               Opacity[1.], 
               JoinForm[{ElisionsDump`Miter, 10.}], 
               
               JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {
                1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{
                25.499999999999996`, 2.5}, {25.499999999999996`, 
                1.3953100000000003`}, {24.604699999999998`, 
                0.49999999999999994`}, {23.5, 0.49999999999999994`}, {2.5, 
                0.49999999999999994`}, {1.3953100000000003`, 
                0.49999999999999994`}, {0.49999999999999994`, 
                1.3953100000000003`}, {0.49999999999999994`, 2.5}, {
                0.49999999999999994`, 23.5}, {0.49999999999999994`, 
                24.604699999999998`}, {1.3953100000000003`, 
                25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
                25.499999999999996`}, {24.604699999999998`, 
                25.499999999999996`}, {25.499999999999996`, 
                24.604699999999998`}, {25.499999999999996`, 23.5}, {
                25.499999999999996`, 2.5}}}]}, {
               FaceForm[{
                 RGBColor[0.5, 0.5, 0.5], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {
                0, 1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
                1.0035199999999997`}, {2.5250000000000004`, 
                1.0035199999999997`}, {1.6828099999999997`, 
                1.0035199999999997`}, {0.9999999999999999, 
                1.6863299999999997`}, {0.9999999999999999, 
                2.5285199999999994`}, {0.9999999999999999, 
                23.474999999999998`}, {0.9999999999999999, 
                24.317199999999996`}, {1.6828099999999997`, 
                24.999999999999996`}, {2.5250000000000004`, 
                24.999999999999996`}, {3.52539, 24.999999999999996`}, {
                3.52539, 24.999999999999993`}, {5.523440000000001, 
                22.421099999999996`}, {5.523440000000001, 13.0039}, {
                5.523440000000001, 3.5867199999999992`}, {3.52539, 
                1.0035199999999997`}, {3.52539, 1.0035199999999997`}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {
                17.740599999999997`, 16.8398}, {17.740599999999997`, 
                14.856599999999998`}, {19.980900000000002`, 
                12.947299999999997`}, {17.740599999999997`, 
                10.946100000000001`}, {17.740599999999997`, 8.96289}, {
                22.4977, 12.9016}}}]}, {
               FaceForm[{
                 RGBColor[
                 0.46093800000000007`, 0.46093800000000007`, 
                  0.46093800000000007`], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                3}}}, {{{9.202339999999998, 12.8969}, {9.202339999999998, 
                12.335499999999998`}, {8.747660000000002, 
                11.880899999999999`}, {8.186329999999998, 
                11.880899999999999`}, {7.624999999999999, 
                11.880899999999999`}, {7.169920000000001, 
                12.335499999999998`}, {7.169920000000001, 12.8969}, {
                7.169920000000001, 13.458200000000003`}, {7.624999999999999, 
                13.9133}, {8.186329999999998, 13.9133}, {8.747660000000002, 
                13.9133}, {9.202339999999998, 13.458200000000003`}, {
                9.202339999999998, 12.8969}}}], 
               
               FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                3}}}, {{{12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
                12.167599999999998`, 11.880899999999999`}, {
                11.606200000000001`, 11.880899999999999`}, {11.0449, 
                11.880899999999999`}, {10.589799999999999`, 
                12.335499999999998`}, {10.589799999999999`, 12.8969}, {
                10.589799999999999`, 13.458200000000003`}, {11.0449, 
                13.9133}, {11.606200000000001`, 13.9133}, {
                12.167599999999998`, 13.9133}, {12.6227, 
                13.458200000000003`}, {12.6227, 12.8969}}}], 
               FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                3}}}, {{{16.042600000000004`, 12.8969}, {16.042600000000004`, 
                12.335499999999998`}, {15.587499999999999`, 
                11.880899999999999`}, {15.026199999999998`, 
                11.880899999999999`}, {14.464799999999997`, 
                11.880899999999999`}, {14.010199999999998`, 
                12.335499999999998`}, {14.010199999999998`, 12.8969}, {
                14.010199999999998`, 13.458200000000003`}, {
                14.464799999999997`, 13.9133}, {15.026199999999998`, 
                13.9133}, {15.587499999999999`, 13.9133}, {
                16.042600000000004`, 13.458200000000003`}, {
                16.042600000000004`, 12.8969}}}]}}, AspectRatio -> 1, Axes -> 
             False, Background -> GrayLevel[0.5], Frame -> True, FrameStyle -> 
             Directive[
               Thickness[Tiny], 
               GrayLevel[0.7]], FrameTicks -> None, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  PaneBox[
                  "\"earth_center_spherical.txt\"", 
                   ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> 
                   Baseline, ContentPadding -> False, FrameMargins -> 0, 
                   StripOnInput -> True], "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Unique ID: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["3", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Binary: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["False", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Open: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  DynamicBox[
                   ToBoxes[Options[
                    OutputStream["earth_center_spherical.txt", 3]] =!= {}, 
                    StandardForm], UpdateInterval -> 1], "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Encoding: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["Automatic", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Format: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["StandardForm", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Page width: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["78", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Number marks: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["Automatic", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  OutputStream["earth_center_spherical.txt", 3],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.967434333513813*^9, 3.9674343744040813`*^9, 
  3.9674344611943398`*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"868cd156-008f-d64d-9e1c-8e498693327d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"a", "=", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"arrowArray", "=", 
    RowBox[{"{", "}"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"arrowArray", ",", 
      RowBox[{"{", 
       RowBox[{"Green", ",", 
        RowBox[{"Ball", "[", 
         RowBox[{"a", ",", "6370"}], "]"}]}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Graphics3D", "[", 
     RowBox[{"arrowArray", ",", 
      RowBox[{"Axes", "\[Rule]", "True"}], ",", 
      RowBox[{"Boxed", "\[Rule]", "True"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"x", ",", "y", ",", "z"}], "}"}]}]}], " ", "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{"\"\<lengthMatrix=\>\"", ",", "lengthMatrix"}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"ii", "=", "3"}], ",", 
      RowBox[{"ii", "<", "lengthMatrix"}], ",", " ", 
      RowBox[{"ii", "++"}], ",", "\[IndentingNewLine]", "\n", "   ", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Ray", "=", 
        RowBox[{"RayMatrix", "[", 
         RowBox[{"[", "ii", "]"}], "]"}]}], " ", ";", "\[IndentingNewLine]", 
       RowBox[{"spherical", "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Re", "[", 
           RowBox[{"Ray", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
          RowBox[{"Re", "[", 
           RowBox[{"Ray", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "]"}], ",", 
          RowBox[{"Re", "[", 
           RowBox[{"Ray", "[", 
            RowBox[{"[", "3", "]"}], "]"}], "]"}]}], "}"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{"Print", "[", 
          RowBox[{"\"\<Spherical+\>\"", ",", "spherical"}], "]"}], ";"}], " ",
         "*)"}], "\[IndentingNewLine]", 
       RowBox[{"(*", " ", "FromSphericalCoordinates", " ", "*)"}], 
       "\[IndentingNewLine]", "  ", 
       RowBox[{"b", "=", 
        RowBox[{"FromSphericalCoordinates", "[", "spherical", "]"}]}], ";", 
       "  ", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{"bb", "=", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"spherical", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "*", 
             RowBox[{"Cos", "[", 
              RowBox[{"spherical", "[", 
               RowBox[{"[", "3", "]"}], "]"}], "]"}], "*", 
             RowBox[{"Sin", "[", 
              RowBox[{"spherical", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"spherical", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "*", 
             RowBox[{"Sin", "[", 
              RowBox[{"spherical", "[", 
               RowBox[{"[", "3", "]"}], "]"}], "]"}], "*", 
             RowBox[{"Sin", "[", 
              RowBox[{"spherical", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"spherical", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "*", 
             RowBox[{"Cos", "[", 
              RowBox[{"spherical", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "]"}]}]}], "}"}]}], ";"}], " ",
         "*)"}], "\[IndentingNewLine]", 
       RowBox[{"R", "=", 
        RowBox[{"Sqrt", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"b", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "^", "2"}], "+", 
          RowBox[{
           RowBox[{"b", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "^", "2"}], "+", 
          RowBox[{
           RowBox[{"b", "[", 
            RowBox[{"[", "3", "]"}], "]"}], "^", "2"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", "  ", 
       RowBox[{"Print", "[", 
        RowBox[{"\"\<ii=\>\"", ",", "ii", ",", "\"\< b=\>\"", ",", "b", ",", 
         " ", "\"\<  magnitude b=\>\"", ",", "R", " ", ",", 
         " ", "\"\< (R - EARTHR)=  \>\"", ",", 
         RowBox[{"R", "-", "EARTHR"}]}], " ", "]"}], ";", "  ", 
       "\[IndentingNewLine]", " ", "\[IndentingNewLine]", " ", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"arrowArray", ",", 
         RowBox[{"{", 
          RowBox[{"Red", ",", 
           RowBox[{"Point", "[", 
            RowBox[{"{", 
             RowBox[{"a", ",", "b"}], "}"}], " ", "]"}]}], "}"}]}], "]"}], 
       ";"}]}], "  ", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
       RowBox[{"AppendTo", "[", 
        RowBox[{"arrowArray", ",", 
         RowBox[{"{", 
          RowBox[{"Red", ",", 
           RowBox[{"Arrow", "[", 
            RowBox[{"{", 
             RowBox[{"a", ",", "b"}], "}"}], " ", "]"}]}], "}"}]}], "]"}], 
       ";"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Print", " ", "[", 
      RowBox[{"\"\<arrowArray=\>\"", ",", "arrowArray"}], "]"}], ";"}], 
    "*)"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Graphics3D", "[", 
      RowBox[{"arrowArray", ",", 
       RowBox[{"Axes", "\[Rule]", "True"}], ",", 
       RowBox[{"Boxed", "\[Rule]", "True"}], ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"x", ",", "y", ",", "z"}], "}"}]}]}], "]"}], ";"}], " ", 
    "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.755460160174726*^9, 3.755460200851099*^9}, {
   3.755460867164393*^9, 3.7554608696101847`*^9}, {3.755461109551591*^9, 
   3.755461168134016*^9}, {3.755461222559847*^9, 3.755461225073848*^9}, {
   3.755461266072176*^9, 3.755461289662408*^9}, {3.755461340848538*^9, 
   3.755461352157701*^9}, {3.7554613900973577`*^9, 3.755461449990507*^9}, {
   3.755461589566959*^9, 3.755461619871396*^9}, {3.755463118441763*^9, 
   3.755463126184739*^9}, 3.75546315757937*^9, 3.7554636478915443`*^9, {
   3.755464749687929*^9, 3.7554647897473803`*^9}, {3.755466771693224*^9, 
   3.755466774660864*^9}, {3.755466831213698*^9, 3.7554668354604*^9}, {
   3.755467133843219*^9, 3.755467145920827*^9}, {3.755467324005324*^9, 
   3.755467334735742*^9}, {3.7554673830966597`*^9, 3.755467418515942*^9}, {
   3.7554674620970993`*^9, 3.755467466636093*^9}, {3.755467638108069*^9, 
   3.755467638523624*^9}, {3.7554677940417347`*^9, 3.755467794707505*^9}, {
   3.7554679523070908`*^9, 3.755467955262204*^9}, {3.755468165531446*^9, 
   3.755468166386797*^9}, {3.755468265416511*^9, 3.7554683358189363`*^9}, {
   3.755468422710059*^9, 3.755468463299807*^9}, {3.755468666343663*^9, 
   3.755468739513462*^9}, 3.755468770988674*^9, {3.755468815015856*^9, 
   3.755468821191153*^9}, {3.755469030255931*^9, 3.755469033941498*^9}, 
   3.75546930322577*^9, {3.7555121188523073`*^9, 3.7555121247926283`*^9}, {
   3.755513114731526*^9, 3.755513121472557*^9}, {3.755555558730844*^9, 
   3.755555590016902*^9}, {3.7555556365887957`*^9, 3.755555727513669*^9}, 
   3.75556328754053*^9, {3.7555637437099257`*^9, 3.7555641418577538`*^9}, {
   3.755564184927292*^9, 3.755564199731595*^9}, {3.755564330562236*^9, 
   3.755564560287678*^9}, {3.7555645911477337`*^9, 3.755564625043189*^9}, {
   3.755564676613998*^9, 3.755564724401286*^9}, {3.755564814474552*^9, 
   3.7555648439775953`*^9}, {3.7555651937514067`*^9, 3.755565194710245*^9}, {
   3.755565249275519*^9, 3.755565262466814*^9}, {3.755565313838909*^9, 
   3.755565349472348*^9}, {3.755565721227339*^9, 3.7555657253073473`*^9}, {
   3.755566054914033*^9, 3.755566057758024*^9}, {3.755566104710037*^9, 
   3.755566131974083*^9}, {3.755566208619033*^9, 3.755566209475679*^9}, 
   3.755580940857008*^9, {3.7555810838111897`*^9, 3.7555810989217997`*^9}, {
   3.755581233092634*^9, 3.755581233926701*^9}, {3.755581456726119*^9, 
   3.755581461196878*^9}, {3.755583512081643*^9, 3.7555835143683853`*^9}, {
   3.7556346840056*^9, 3.755634685434472*^9}, {3.755634815077203*^9, 
   3.755634832453389*^9}, {3.755854621460703*^9, 3.755854740375824*^9}, {
   3.755854855788068*^9, 3.7558549353133717`*^9}, {3.755855148810149*^9, 
   3.755855152583824*^9}, {3.755858534656389*^9, 3.7558585586944113`*^9}, {
   3.7558644296283083`*^9, 3.755864444714732*^9}, {3.755864924971488*^9, 
   3.755864944233095*^9}, {3.7558662057476254`*^9, 3.755866209383171*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"3446ef60-298e-42b6-8d5d-36899cdd63e6"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{3.967434333619812*^9, 3.9674343747132816`*^9, 
  3.9674344619963017`*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"70d6c3e4-6771-a54c-9431-08c0913bd1e4"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"lengthMatrix=\"\>", "\[InvisibleSpace]", "604"}],
  SequenceForm["lengthMatrix=", 604],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434461997303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"1df84846-a2bc-c34e-9da3-104b3ce49513"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3607.1521344459875`", ",", 
     RowBox[{"-", "3318.0154114106817`"}], ",", "4191.806594287413`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6449.187182529941`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "79.18718252994131`"}],
  SequenceForm[
  "ii=", 3, " b=", {3607.1521344459875`, -3318.0154114106817`, 
   4191.806594287413}, "  magnitude b=", 6449.187182529941, 
   " (R - EARTHR)=  ", 79.18718252994131],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344619993057`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"adea1146-87b7-0043-ad0c-1d09e1de0024"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3607.079323233201`", ",", 
     RowBox[{"-", "3318.226574267361`"}], ",", "4192.263879451036`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6449.552331535921`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "79.55233153592144`"}],
  SequenceForm[
  "ii=", 4, " b=", {3607.079323233201, -3318.226574267361, 4192.263879451036},
    "  magnitude b=", 6449.552331535921, " (R - EARTHR)=  ", 
   79.55233153592144],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620003033`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"c3b08962-ebcf-7948-b2e3-d7f10671f1a8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "5", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3607.006449855396`", ",", 
     RowBox[{"-", "3318.4376717247087`"}], ",", "4192.721046413555`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6449.917354777448`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "79.91735477744805`"}],
  SequenceForm[
  "ii=", 5, " b=", {3607.006449855396, -3318.4376717247087`, 
   4192.721046413555}, "  magnitude b=", 6449.917354777448, 
   " (R - EARTHR)=  ", 79.91735477744805],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620013027`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"fd1d7c87-5693-e642-8486-90d7d9c90d47"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "6", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3606.860603622866`", ",", 
     RowBox[{"-", "3318.859777078783`"}], ",", "4193.63527517657`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6450.64728962012`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "80.64728962012032`"}],
  SequenceForm[
  "ii=", 6, " b=", {3606.860603622866, -3318.859777078783, 4193.63527517657}, 
   "  magnitude b=", 6450.64728962012, " (R - EARTHR)=  ", 80.64728962012032],
  
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462002302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"786ed1d5-5739-5c43-a244-9f472047c424"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3606.7143729461104`", ",", 
     RowBox[{"-", "3319.2814876780894`"}], ",", "4194.548827081494`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6451.376444234925`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "81.37644423492475`"}],
  SequenceForm[
  "ii=", 7, " b=", {3606.7143729461104`, -3319.2814876780894`, 
   4194.548827081494}, "  magnitude b=", 6451.376444234925, 
   " (R - EARTHR)=  ", 81.37644423492475],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620033016`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f1847366-8411-2d40-96b4-628442f709b9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "8", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3606.567852003294`", ",", 
     RowBox[{"-", "3319.702907638278`"}], ",", "4195.461909149543`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6452.1050593748405`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "82.1050593748405`"}],
  SequenceForm[
  "ii=", 8, " b=", {3606.567852003294, -3319.702907638278, 4195.461909149543},
    "  magnitude b=", 6452.1050593748405`, " (R - EARTHR)=  ", 
   82.1050593748405],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462004303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"46fcb2e5-ba11-3447-b91c-f28f68cd30ff"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "9", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3606.4209138079245`", ",", 
     RowBox[{"-", "3320.1239111158457`"}], ",", "4196.374323315825`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6452.832870460749`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "82.83287046074929`"}],
  SequenceForm[
  "ii=", 9, " b=", {3606.4209138079245`, -3320.1239111158457`, 
   4196.374323315825}, "  magnitude b=", 6452.832870460749, 
   " (R - EARTHR)=  ", 82.83287046074929],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620053024`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"6e749e70-2f87-4d47-b71c-e5c1ff2b42b4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "10", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3606.273489244594`", ",", 
     RowBox[{"-", "3320.5444281926843`"}], ",", "4197.285953725247`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6453.559727481347`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "83.55972748134718`"}],
  SequenceForm[
  "ii=", 10, " b=", {3606.273489244594, -3320.5444281926843`, 
   4197.285953725247}, "  magnitude b=", 6453.559727481347, 
   " (R - EARTHR)=  ", 83.55972748134718],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462006302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"8aba0af2-db36-674c-8b81-686d3d70cb81"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "11", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3606.1254847328337`", ",", 
     RowBox[{"-", "3320.964365349201`"}], ",", "4198.196649891833`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6454.285432077036`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "84.2854320770357`"}],
  SequenceForm[
  "ii=", 11, " b=", {3606.1254847328337`, -3320.964365349201, 
   4198.196649891833}, "  magnitude b=", 6454.285432077036, 
   " (R - EARTHR)=  ", 84.2854320770357],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462007303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"1557908f-7cce-c142-966f-af9c4f727ca9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "12", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3605.976790066587`", ",", 
     RowBox[{"-", "3321.3836125371877`"}], ",", "4199.10623492866`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6455.009750910238`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "85.00975091023793`"}],
  SequenceForm[
  "ii=", 12, " b=", {3605.976790066587, -3321.3836125371877`, 
   4199.10623492866}, "  magnitude b=", 6455.009750910238, " (R - EARTHR)=  ",
    85.00975091023793],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620083027`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"5cfefee1-24fd-ae40-b37b-6f6b31404159"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "13", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3605.827275962817`", ",", 
     RowBox[{"-", "3321.8020407606364`"}], ",", "4200.014501688374`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6455.732410538064`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "85.73241053806396`"}],
  SequenceForm[
  "ii=", 13, " b=", {3605.827275962817, -3321.8020407606364`, 
   4200.014501688374}, "  magnitude b=", 6455.732410538064, 
   " (R - EARTHR)=  ", 85.73241053806396],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462009302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"e6c8dd1b-54d1-0943-93b2-743f54fdf2d3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "14", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3605.6767911105344`", ",", 
     RowBox[{"-", "3322.2194991952297`"}], ",", "4200.921208249322`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6456.4530913424205`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "86.45309134242052`"}],
  SequenceForm[
  "ii=", 14, " b=", {3605.6767911105344`, -3322.2194991952297`, 
   4200.921208249322}, "  magnitude b=", 6456.4530913424205`, 
   " (R - EARTHR)=  ", 86.45309134242052],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620103054`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"191e41d2-527c-b64d-8d3c-9f12fa6197cb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "15", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3605.5251588202245`", ",", 
     RowBox[{"-", "3322.635811939489`"}], ",", "4201.826072861405`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6457.171420695465`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "87.1714206954648`"}],
  SequenceForm[
  "ii=", 15, " b=", {3605.5251588202245`, -3322.635811939489, 
   4201.826072861405}, "  magnitude b=", 6457.171420695465, 
   " (R - EARTHR)=  ", 87.1714206954648],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462011305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"60bcf06d-8fee-8449-91bb-0907e3fc9d6c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "16", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3605.3721732289005`", ",", 
     RowBox[{"-", "3323.050774365839`"}], ",", "4202.728768321336`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6457.88696529929`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "87.88696529928984`"}],
  SequenceForm[
  "ii=", 16, " b=", {3605.3721732289005`, -3323.050774365839, 
   4202.728768321336}, "  magnitude b=", 6457.88696529929, " (R - EARTHR)=  ",
    87.88696529928984],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462012306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"236c894a-12e0-4346-ad9b-8dd3e181ef0c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "17", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3605.2175950085484`", ",", 
     RowBox[{"-", "3323.4641490371687`"}], ",", "4203.628915751024`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6458.599222635873`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "88.59922263587305`"}],
  SequenceForm[
  "ii=", 17, " b=", {3605.2175950085484`, -3323.4641490371687`, 
   4203.628915751024}, "  magnitude b=", 6458.599222635873, 
   " (R - EARTHR)=  ", 88.59922263587305],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620133057`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"3c9d4ed3-2b3f-d34c-8bcc-8f3945dc6ad7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "18", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3605.061146518087`", ",", 
     RowBox[{"-", "3323.8756611537474`"}], ",", "4204.526077763096`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6459.307611465371`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "89.30761146537134`"}],
  SequenceForm[
  "ii=", 18, " b=", {3605.061146518087, -3323.8756611537474`, 
   4204.526077763096}, "  magnitude b=", 6459.307611465371, 
   " (R - EARTHR)=  ", 89.30761146537134],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462014305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"fc7939e6-8c82-5d47-9458-cd2de89da181"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "19", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3604.9025063279732`", ",", 
     RowBox[{"-", "3324.2849934940746`"}], ",", "4205.419751012085`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6460.011461313528`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "90.01146131352834`"}],
  SequenceForm[
  "ii=", 19, " b=", {3604.9025063279732`, -3324.2849934940746`, 
   4205.419751012085}, "  magnitude b=", 6460.011461313528, 
   " (R - EARTHR)=  ", 90.01146131352834],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462016302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"545d3264-45df-6446-b5cf-002a360f97cd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "20", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3604.7413030304215`", ",", 
     RowBox[{"-", "3324.6917808107437`"}], ",", "4206.3093581497205`"}], 
    "}"}], "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]",
    "6460.710000891689`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "90.71000089168865`"}],
  SequenceForm[
  "ii=", 20, " b=", {3604.7413030304215`, -3324.6917808107437`, 
   4206.3093581497205`}, "  magnitude b=", 6460.710000891689, 
   " (R - EARTHR)=  ", 90.71000089168865],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620173054`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"5f6eddc6-6f08-6b4e-b01c-b32c049f8b39"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "21", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3604.577108223087`", ",", 
     RowBox[{"-", "3325.095603636625`"}], ",", "4207.194239228903`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6461.402345393018`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "91.40234539301764`"}],
  SequenceForm[
  "ii=", 21, " b=", {3604.577108223087, -3325.095603636625, 
   4207.194239228903}, "  magnitude b=", 6461.402345393018, 
   " (R - EARTHR)=  ", 91.40234539301764],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462018305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"6a7a6412-32de-2044-b7ec-c35dacb0aea7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "22", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3604.4094285141846`", ",", 
     RowBox[{"-", "3325.495981444288`"}], ",", "4208.073642634479`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6462.087482601816`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "92.08748260181619`"}],
  SequenceForm[
  "ii=", 22, " b=", {3604.4094285141846`, -3325.495981444288, 
   4208.073642634479}, "  magnitude b=", 6462.087482601816, 
   " (R - EARTHR)=  ", 92.08748260181619],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462019306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"96030ef9-ef07-f848-be06-00790128a922"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "23", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3604.237696331542`", ",", 
     RowBox[{"-", "3325.8923650756815`"}], ",", "4208.946715660225`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6462.764257730048`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "92.76425773004758`"}],
  SequenceForm[
  "ii=", 23, " b=", {3604.237696331542, -3325.8923650756815`, 
   4208.946715660225}, "  magnitude b=", 6462.764257730048, 
   " (R - EARTHR)=  ", 92.76425773004758],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620203056`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"81dfb541-c510-3343-9714-72bed2ba99a2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "24", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3604.0612592081457`", ",", 
     RowBox[{"-", "3326.2841283064004`"}], ",", "4209.812494899589`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6463.431356838315`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "93.43135683831497`"}],
  SequenceForm[
  "ii=", 24, " b=", {3604.0612592081457`, -3326.2841283064004`, 
   4209.812494899589}, "  magnitude b=", 6463.431356838315, 
   " (R - EARTHR)=  ", 93.43135683831497],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462021305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"b6988690-780f-ad41-9308-cd4af2d8ccc5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "25", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3603.8793670269893`", ",", 
     RowBox[{"-", "3326.6705583030407`"}], ",", "4210.669896668882`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6464.087288571886`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "94.08728857188635`"}],
  SequenceForm[
  "ii=", 25, " b=", {3603.8793670269893`, -3326.6705583030407`, 
   4210.669896668882}, "  magnitude b=", 6464.087288571886, 
   " (R - EARTHR)=  ", 94.08728857188635],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620223026`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f53189e3-582a-864a-a4ad-7060af86fe4a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "26", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3603.6911563695835`", ",", 
     RowBox[{"-", "3327.0508445182704`"}], ",", "4211.517707723832`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6464.730363671596`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "94.73036367159602`"}],
  SequenceForm[
  "ii=", 26, " b=", {3603.6911563695835`, -3327.0508445182704`, 
   4211.517707723832}, "  magnitude b=", 6464.730363671596, 
   " (R - EARTHR)=  ", 94.73036367159602],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462023302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"a7d5f9fd-f873-4f44-ae25-17772accd235"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "27", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3603.4956304835086`", ",", 
     RowBox[{"-", "3327.4240651274254`"}], ",", "4212.354576534077`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6465.358671145046`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "95.35867114504617`"}],
  SequenceForm[
  "ii=", 27, " b=", {3603.4956304835086`, -3327.4240651274254`, 
   4212.354576534077}, "  magnitude b=", 6465.358671145046, 
   " (R - EARTHR)=  ", 95.35867114504617],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620243015`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f2633260-87d0-8e40-8c29-0d9c2ace163c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "28", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3603.2916321502116`", ",", 
     RowBox[{"-", "3327.7891691678624`"}], ",", "4213.1790052692995`"}], 
    "}"}], "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]",
    "6465.970048739529`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "95.97004873952937`"}],
  SequenceForm[
  "ii=", 28, " b=", {3603.2916321502116`, -3327.7891691678624`, 
   4213.1790052692995`}, "  magnitude b=", 6465.970048739529, 
   " (R - EARTHR)=  ", 95.97004873952937],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462025305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"167d7c34-2c41-274f-8eb6-c7aca344b659"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "29", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3603.0778041383255`", ",", 
     RowBox[{"-", "3328.1449504154352`"}], ",", "4213.989342228016`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6466.562042543265`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "96.5620425432653`"}],
  SequenceForm[
  "ii=", 29, " b=", {3603.0778041383255`, -3328.1449504154352`, 
   4213.989342228016}, "  magnitude b=", 6466.562042543265, 
   " (R - EARTHR)=  ", 96.5620425432653],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462026306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"69b25dee-2ad3-1643-bf78-b44b2e939afa"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "30", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3602.8525259701696`", ",", 
     RowBox[{"-", "3328.4900038724168`"}], ",", "4214.783773154196`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6467.131843731977`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "97.13184373197691`"}],
  SequenceForm[
  "ii=", 30, " b=", {3602.8525259701696`, -3328.4900038724168`, 
   4214.783773154196}, "  magnitude b=", 6467.131843731977, 
   " (R - EARTHR)=  ", 97.13184373197691],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620273056`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"be72272c-82a6-d541-bf96-41c35e81751c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "31", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3602.6138005546086`", ",", 
     RowBox[{"-", "3328.8226420210244`"}], ",", "4215.560306045817`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6467.676172466233`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "97.67617246623286`"}],
  SequenceForm[
  "ii=", 31, " b=", {3602.6138005546086`, -3328.8226420210244`, 
   4215.560306045817}, "  magnitude b=", 6467.676172466233, 
   " (R - EARTHR)=  ", 97.67617246623286],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462028303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"1bac0592-1a77-a445-9c4b-6f594fff4e5a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "32", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3602.359020928266`", ",", 
     RowBox[{"-", "3329.140707434257`"}], ",", "4216.316731817551`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6468.191025979656`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "98.19102597965593`"}],
  SequenceForm[
  "ii=", 32, " b=", {3602.359020928266, -3329.140707434257, 
   4216.316731817551}, "  magnitude b=", 6468.191025979656, 
   " (R - EARTHR)=  ", 98.19102597965593],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620293064`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"fcb2b490-6871-984d-9cee-0818f7a43066"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "33", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3602.0844120707284`", ",", 
     RowBox[{"-", "3329.4410867249258`"}], ",", "4217.050500089867`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6468.671036771245`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "98.67103677124487`"}],
  SequenceForm[
  "ii=", 33, " b=", {3602.0844120707284`, -3329.4410867249258`, 
   4217.050500089867}, "  magnitude b=", 6468.671036771245, 
   " (R - EARTHR)=  ", 98.67103677124487],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462030306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"fe5431c1-0c76-534b-9414-6209b6f940d0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "34", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3601.7835663942155`", ",", 
     RowBox[{"-", "3329.718334528149`"}], ",", "4217.7582962882225`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.10767357821`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.10767357820987`"}],
  SequenceForm[
  "ii=", 34, " b=", {3601.7835663942155`, -3329.718334528149, 
   4217.7582962882225`}, "  magnitude b=", 6469.10767357821, 
   " (R - EARTHR)=  ", 99.10767357820987],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620313053`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"1576e45b-e34e-fa49-8d5c-494d02b578a1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "35", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3601.444813800974`", ",", 
     RowBox[{"-", "3329.9618563255653`"}], ",", "4218.434913225924`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.4855922677925`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.48559226779253`"}],
  SequenceForm[
  "ii=", 35, " b=", {3601.444813800974, -3329.9618563255653`, 
   4218.434913225924}, "  magnitude b=", 6469.4855922677925`, 
   " (R - EARTHR)=  ", 99.48559226779253],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462033306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"1f7f5a20-1368-7347-910f-50047c1b27ef"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "36", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3601.055038559434`", ",", 
     RowBox[{"-", "3330.1583151843847`"}], ",", "4219.073283441042`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.786021652645`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.7860216526451`"}],
  SequenceForm[
  "ii=", 36, " b=", {3601.055038559434, -3330.1583151843847`, 
   4219.073283441042}, "  magnitude b=", 6469.786021652645, 
   " (R - EARTHR)=  ", 99.7860216526451],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620343018`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"ce8aa28e-4677-f045-8fc0-858adb0c6b81"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "37", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3600.947977003799`", ",", 
     RowBox[{"-", "3330.1981708668177`"}], ",", "4219.225227817946`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.8460347513565`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.84603475135646`"}],
  SequenceForm[
  "ii=", 37, " b=", {3600.947977003799, -3330.1981708668177`, 
   4219.225227817946}, "  magnitude b=", 6469.8460347513565`, 
   " (R - EARTHR)=  ", 99.84603475135646],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462035305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"ada45dbd-94a0-2442-bb36-3af4d58194f9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "38", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3600.8398030674107`", ",", 
     RowBox[{"-", "3330.2368450284666`"}], ",", "4219.375868592261`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.903975469682`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.90397546968234`"}],
  SequenceForm[
  "ii=", 38, " b=", {3600.8398030674107`, -3330.2368450284666`, 
   4219.375868592261}, "  magnitude b=", 6469.903975469682, 
   " (R - EARTHR)=  ", 99.90397546968234],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620363064`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"22aea6f9-cc9c-cb49-8d38-5969c9aca1ff"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "39", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3600.7285229915647`", ",", 
     RowBox[{"-", "3330.272412645605`"}], ",", "4219.523556414608`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.956667695014`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.9566676950144`"}],
  SequenceForm[
  "ii=", 39, " b=", {3600.7285229915647`, -3330.272412645605, 
   4219.523556414608}, "  magnitude b=", 6469.956667695014, 
   " (R - EARTHR)=  ", 99.9566676950144],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462037306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"1805f0ff-b65e-b849-b7d0-b0108aa3bcad"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "40", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3600.615661886966`", ",", 
     RowBox[{"-", "3330.306362197343`"}], ",", "4219.669619493195`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.006592608052`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.00659260805242`"}],
  SequenceForm[
  "ii=", 40, " b=", {3600.615661886966, -3330.306362197343, 
   4219.669619493195}, "  magnitude b=", 6470.006592608052, 
   " (R - EARTHR)=  ", 100.00659260805242`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620383053`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"c878452d-c4a0-3845-8873-f353684c6fa2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "41", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3600.4993680729945`", ",", 
     RowBox[{"-", "3330.3367683150973`"}], ",", "4219.811969579142`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.050366766001`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.05036676600139`"}],
  SequenceForm[
  "ii=", 41, " b=", {3600.4993680729945`, -3330.3367683150973`, 
   4219.811969579142}, "  magnitude b=", 6470.050366766001, 
   " (R - EARTHR)=  ", 100.05036676600139`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462039303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"4d06d3bd-c1c0-cd40-b7a3-73c5438c2035"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "42", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3600.3810700457793`", ",", 
     RowBox[{"-", "3330.365066347943`"}], ",", "4219.952005556262`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.090436299407`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.09043629940697`"}],
  SequenceForm[
  "ii=", 42, " b=", {3600.3810700457793`, -3330.365066347943, 
   4219.952005556262}, "  magnitude b=", 6470.090436299407, 
   " (R - EARTHR)=  ", 100.09043629940697`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462040306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"0e69852b-123f-304a-8ba4-176048e6e4bc"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "43", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3600.261438740217`", ",", 
     RowBox[{"-", "3330.391950504723`"}], ",", "4220.090461285302`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.128010534074`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.12801053407384`"}],
  SequenceForm[
  "ii=", 43, " b=", {3600.261438740217, -3330.391950504723, 
   4220.090461285302}, "  magnitude b=", 6470.128010534074, 
   " (R - EARTHR)=  ", 100.12801053407384`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620413055`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"4720f729-929f-db46-b8ab-fc1e43186e1c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "44", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3600.138913746911`", ",", 
     RowBox[{"-", "3330.4157490283624`"}], ",", "4220.225366387329`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.160075512043`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.16007551204257`"}],
  SequenceForm[
  "ii=", 44, " b=", {3600.138913746911, -3330.4157490283624`, 
   4220.225366387329}, "  magnitude b=", 6470.160075512043, 
   " (R - EARTHR)=  ", 100.16007551204257`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462042307*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"8091ccf1-ddab-7448-beba-0205aef33aad"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "45", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3600.014643675262`", ",", 
     RowBox[{"-", "3330.437658661051`"}], ",", "4220.358041245673`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.188747572287`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.18874757228696`"}],
  SequenceForm[
  "ii=", 45, " b=", {3600.014643675262, -3330.437658661051, 
   4220.358041245673}, "  magnitude b=", 6470.188747572287, 
   " (R - EARTHR)=  ", 100.18874757228696`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620433064`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"31c6fd6c-5755-9a4a-9dc0-618100d97ed2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "46", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3599.95209777649`", ",", 
     RowBox[{"-", "3330.4481670344776`"}], ",", "4220.423848112825`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.20228101936`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.20228101936027`"}],
  SequenceForm[
  "ii=", 46, " b=", {3599.95209777649, -3330.4481670344776`, 
   4220.423848112825}, "  magnitude b=", 6470.20228101936, " (R - EARTHR)=  ",
    100.20228101936027`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462044306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"b51101a5-613b-da4a-aa75-e663aeb2e51b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "47", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3599.8887772798057`", ",", 
     RowBox[{"-", "3330.457831065397`"}], ",", "4220.488630228514`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.214281704902`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.21428170490162`"}],
  SequenceForm[
  "ii=", 47, " b=", {3599.8887772798057`, -3330.457831065397, 
   4220.488630228514}, "  magnitude b=", 6470.214281704902, 
   " (R - EARTHR)=  ", 100.21428170490162`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620453053`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"ab4ff08e-5f52-f942-8c90-523ddc70fe6e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "48", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3599.8250697255044`", ",", 
     RowBox[{"-", "3330.4670701131367`"}], ",", "4220.552894075221`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.22551148095`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.22551148095044`"}],
  SequenceForm[
  "ii=", 48, " b=", {3599.8250697255044`, -3330.4670701131367`, 
   4220.552894075221}, "  magnitude b=", 6470.22551148095, " (R - EARTHR)=  ",
    100.22551148095044`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620463047`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"8da6576b-38a3-c542-babb-b0507106440e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "49", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3599.7610898976022`", ",", 
     RowBox[{"-", "3330.476009291844`"}], ",", "4220.616790475916`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.236196991306`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.23619699130631`"}],
  SequenceForm[
  "ii=", 49, " b=", {3599.7610898976022`, -3330.476009291844, 
   4220.616790475916}, "  magnitude b=", 6470.236196991306, 
   " (R - EARTHR)=  ", 100.23619699130631`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620483017`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"60de956b-6eea-4a49-ab60-6392e5808ccd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "50", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3599.696496735867`", ",", 
     RowBox[{"-", "3330.484273163574`"}], ",", "4220.679849925784`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.245648966654`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.24564896665379`"}],
  SequenceForm[
  "ii=", 50, " b=", {3599.696496735867, -3330.484273163574, 
   4220.679849925784}, "  magnitude b=", 6470.245648966654, 
   " (R - EARTHR)=  ", 100.24564896665379`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462049303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"cabae827-d422-314b-9857-7af60980efd7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "51", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3599.6315211119254`", ",", 
     RowBox[{"-", "3330.4921134163246`"}], ",", "4220.742381584196`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.2543270733895`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.2543270733895`"}],
  SequenceForm[
  "ii=", 51, " b=", {3599.6315211119254`, -3330.4921134163246`, 
   4220.742381584196}, "  magnitude b=", 6470.2543270733895`, 
   " (R - EARTHR)=  ", 100.2543270733895],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620503044`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f7393fd2-deb8-0e47-be51-960882ab0a86"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "52", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3599.5662867509354`", ",", 
     RowBox[{"-", "3330.4996661524106`"}], ",", "4220.804554076305`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.262480198659`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.26248019865943`"}],
  SequenceForm[
  "ii=", 52, " b=", {3599.5662867509354`, -3330.4996661524106`, 
   4220.804554076305}, "  magnitude b=", 6470.262480198659, 
   " (R - EARTHR)=  ", 100.26248019865943`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462051302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"10332a52-0876-f24b-b588-12abba7321e4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "53", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3599.500470731339`", ",", 
     RowBox[{"-", "3330.506573316111`"}], ",", "4220.86591127428`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.269446835597`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.26944683559668`"}],
  SequenceForm[
  "ii=", 53, " b=", {3599.500470731339, -3330.506573316111, 4220.86591127428},
    "  magnitude b=", 6470.269446835597, " (R - EARTHR)=  ", 
   100.26944683559668`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620523033`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"e114e322-d13e-a74c-8135-fcf452276802"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "54", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3599.43429097311`", ",", 
     RowBox[{"-", "3330.513074619869`"}], ",", "4220.926754000745`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.2756678433925`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.27566784339251`"}],
  SequenceForm[
  "ii=", 54, " b=", {3599.43429097311, -3330.513074619869, 4220.926754000745},
    "  magnitude b=", 6470.2756678433925`, " (R - EARTHR)=  ", 
   100.27566784339251`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462053303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"b94c68a3-d71f-0e45-96ad-ca6740005ee0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "55", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3599.3678649990134`", ",", 
     RowBox[{"-", "3330.519300380454`"}], ",", "4220.987246744282`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.28138298267`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.28138298267004`"}],
  SequenceForm[
  "ii=", 55, " b=", {3599.3678649990134`, -3330.519300380454, 
   4220.987246744282}, "  magnitude b=", 6470.28138298267, " (R - EARTHR)=  ",
    100.28138298267004`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462054302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"d211a63f-6e29-2c44-b75d-9b923e3c1e7f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "56", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3599.300886017129`", ",", 
     RowBox[{"-", "3330.524908588248`"}], ",", "4221.046946896488`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.285956796238`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.28595679623777`"}],
  SequenceForm[
  "ii=", 56, " b=", {3599.300886017129, -3330.524908588248, 
   4221.046946896488}, "  magnitude b=", 6470.285956796238, 
   " (R - EARTHR)=  ", 100.28595679623777`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620553017`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"3a161a61-c03d-164a-9e04-d7989dc320fd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "57", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3599.2335603957554`", ",", 
     RowBox[{"-", "3330.5301278786596`"}], ",", "4221.106146632421`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.289812375065`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.28981237506468`"}],
  SequenceForm[
  "ii=", 57, " b=", {3599.2335603957554`, -3330.5301278786596`, 
   4221.106146632421}, "  magnitude b=", 6470.289812375065, 
   " (R - EARTHR)=  ", 100.28981237506468`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462056303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"213d8048-1e77-8745-9c01-bf2b852fdeae"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "58", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3599.1660000306465`", ",", 
     RowBox[{"-", "3330.535083095245`"}], ",", "4221.1650060712245`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.293180682398`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.29318068239809`"}],
  SequenceForm[
  "ii=", 58, " b=", {3599.1660000306465`, -3330.535083095245, 
   4221.1650060712245`}, "  magnitude b=", 6470.293180682398, 
   " (R - EARTHR)=  ", 100.29318068239809`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620573025`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"350315e0-d323-b441-b391-5beecca92d61"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "59", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3599.0979129158745`", ",", 
     RowBox[{"-", "3330.5394475951857`"}], ",", "4221.2230965996105`"}], 
    "}"}], "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]",
    "6470.29545152376`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.29545152375977`"}],
  SequenceForm[
  "ii=", 59, " b=", {3599.0979129158745`, -3330.5394475951857`, 
   4221.2230965996105`}, "  magnitude b=", 6470.29545152376, 
   " (R - EARTHR)=  ", 100.29545152375977`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462058304*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"6def8b8c-155a-0b4e-8ad5-02d2c36435a0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "60", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3599.0294949422546`", ",", 
     RowBox[{"-", "3330.5434395504417`"}], ",", "4221.280701435136`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.297030933394`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.29703093339413`"}],
  SequenceForm[
  "ii=", 60, " b=", {3599.0294949422546`, -3330.5434395504417`, 
   4221.280701435136}, "  magnitude b=", 6470.297030933394, 
   " (R - EARTHR)=  ", 100.29703093339413`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462059305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"3d027b08-d1a0-c147-8748-534c0a203518"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "61", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3598.995207674819`", ",", 
     RowBox[{"-", "3330.545347209697`"}], ",", "4221.309388644667`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.297656935582`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.29765693558238`"}],
  SequenceForm[
  "ii=", 61, " b=", {3598.995207674819, -3330.545347209697, 
   4221.309388644667}, "  magnitude b=", 6470.297656935582, 
   " (R - EARTHR)=  ", 100.29765693558238`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620603065`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"5a659377-4e1d-404f-87b6-f3f98c834766"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "62", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3598.9607684650905`", ",", 
     RowBox[{"-", "3330.5470841449396`"}], ",", "4221.337851161142`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.29796425968`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.29796425968016`"}],
  SequenceForm[
  "ii=", 62, " b=", {3598.9607684650905`, -3330.5470841449396`, 
   4221.337851161142}, "  magnitude b=", 6470.29796425968, " (R - EARTHR)=  ",
    100.29796425968016`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462061306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"db5cbb63-efb9-5045-bcb9-b041a4b44450"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "63", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3598.926252659864`", ",", 
     RowBox[{"-", "3330.5487347222024`"}], ",", "4221.366200215363`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.298110811026`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.29811081102616`"}],
  SequenceForm[
  "ii=", 63, " b=", {3598.926252659864, -3330.5487347222024`, 
   4221.366200215363}, "  magnitude b=", 6470.298110811026, 
   " (R - EARTHR)=  ", 100.29811081102616`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620623055`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f9e0a0fd-f654-c947-a705-74181551c6fa"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "64", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3598.857047287608`", ",", 
     RowBox[{"-", "3330.5518396728967`"}], ",", "4221.422640224747`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.298038804879`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.29803880487907`"}],
  SequenceForm[
  "ii=", 64, " b=", {3598.857047287608, -3330.5518396728967`, 
   4221.422640224747}, "  magnitude b=", 6470.298038804879, 
   " (R - EARTHR)=  ", 100.29803880487907`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462063305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"be328191-ade7-7a44-a72c-8a3008536fea"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "65", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3598.7873982654028`", ",", 
     RowBox[{"-", "3330.554445531618`"}], ",", "4221.478419139031`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.297033044222`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.29703304422219`"}],
  SequenceForm[
  "ii=", 65, " b=", {3598.7873982654028`, -3330.554445531618, 
   4221.478419139031}, "  magnitude b=", 6470.297033044222, 
   " (R - EARTHR)=  ", 100.29703304422219`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620643063`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"deba85cc-0f36-cc46-ab34-912b930f4c53"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "66", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3598.7174340885135`", ",", 
     RowBox[{"-", "3330.556696082695`"}], ",", "4221.533726555911`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.295362708176`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.29536270817607`"}],
  SequenceForm[
  "ii=", 66, " b=", {3598.7174340885135`, -3330.556696082695, 
   4221.533726555911}, "  magnitude b=", 6470.295362708176, 
   " (R - EARTHR)=  ", 100.29536270817607`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462065302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"ab7f17d6-346e-ba4f-b231-08314b75d3de"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "67", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3598.682378757669`", ",", 
     RowBox[{"-", "3330.5577385962324`"}], ",", "4221.561270490175`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.294373041062`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.29437304106159`"}],
  SequenceForm[
  "ii=", 67, " b=", {3598.682378757669, -3330.5577385962324`, 
   4221.561270490175}, "  magnitude b=", 6470.294373041062, 
   " (R - EARTHR)=  ", 100.29437304106159`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620663033`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"7f1e160c-36ff-9743-8419-8dae1e893997"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "68", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3598.64718149714`", ",", 
     RowBox[{"-", "3330.5586216587208`"}], ",", "4221.588601062275`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.293083456227`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.29308345622667`"}],
  SequenceForm[
  "ii=", 68, " b=", {3598.64718149714, -3330.5586216587208`, 
   4221.588601062275}, "  magnitude b=", 6470.293083456227, 
   " (R - EARTHR)=  ", 100.29308345622667`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620673027`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"7b253026-6651-6c4e-a318-219a5beb824e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "69", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3598.6119125670543`", ",", 
     RowBox[{"-", "3330.559423942602`"}], ",", "4221.615823791415`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.291642373507`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.29164237350687`"}],
  SequenceForm[
  "ii=", 69, " b=", {3598.6119125670543`, -3330.559423942602, 
   4221.615823791415}, "  magnitude b=", 6470.291642373507, 
   " (R - EARTHR)=  ", 100.29164237350687`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462068302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"d49d75e7-4985-b44d-b328-6d7732285658"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "70", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3598.5765928669366`", ",", 
     RowBox[{"-", "3330.560168935047`"}], ",", "4221.64297000214`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.290093944393`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.29009394439345`"}],
  SequenceForm[
  "ii=", 70, " b=", {3598.5765928669366`, -3330.560168935047, 
   4221.64297000214}, "  magnitude b=", 6470.290093944393, " (R - EARTHR)=  ",
    100.29009394439345`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462070303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"5ce8ced9-d7ad-2747-a932-518f21928c96"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "71", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3598.541157039226`", ",", 
     RowBox[{"-", "3330.560783508968`"}], ",", "4221.669940987312`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.288299773735`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.28829977373516`"}],
  SequenceForm[
  "ii=", 71, " b=", {3598.541157039226, -3330.560783508968, 
   4221.669940987312}, "  magnitude b=", 6470.288299773735, 
   " (R - EARTHR)=  ", 100.28829977373516`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462071306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"699e26a0-8787-ef4d-a451-657f0a19aae3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "72", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3598.5056480565254`", ",", 
     RowBox[{"-", "3330.5613157681573`"}], ",", "4221.696801460179`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.286350745625`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.28635074562499`"}],
  SequenceForm[
  "ii=", 72, " b=", {3598.5056480565254`, -3330.5613157681573`, 
   4221.696801460179}, "  magnitude b=", 6470.286350745625, 
   " (R - EARTHR)=  ", 100.28635074562499`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620723076`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"2fd43b0f-0336-2c44-89d2-b090aed480da"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "73", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3598.470089339562`", ",", 
     RowBox[{"-", "3330.561791967311`"}], ",", "4221.723586713719`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.284296427702`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.28429642770243`"}],
  SequenceForm[
  "ii=", 73, " b=", {3598.470089339562, -3330.561791967311, 
   4221.723586713719}, "  magnitude b=", 6470.284296427702, 
   " (R - EARTHR)=  ", 100.28429642770243`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462073305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"bc2cfef3-7629-d043-bf1b-83ccee56cd02"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "74", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3598.434416989374`", ",", 
     RowBox[{"-", "3330.562140746647`"}], ",", "4221.750199956183`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.282001395195`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.28200139519504`"}],
  SequenceForm[
  "ii=", 74, " b=", {3598.434416989374, -3330.562140746647, 
   4221.750199956183}, "  magnitude b=", 6470.282001395195, 
   " (R - EARTHR)=  ", 100.28200139519504`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620743065`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"e4da1e37-c379-f04a-b919-998d2607e8bb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "75", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3598.3986730292563`", ",", 
     RowBox[{"-", "3330.5624090834026`"}], ",", "4221.77670470197`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.279554642317`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.27955464231673`"}],
  SequenceForm[
  "ii=", 75, " b=", {3598.3986730292563`, -3330.5624090834026`, 
   4221.77670470197}, "  magnitude b=", 6470.279554642317, " (R - EARTHR)=  ",
    100.27955464231673`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462075306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"4177ab0c-6ed2-fb4e-9ee3-648353127970"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "76", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3598.3628803821584`", ",", 
     RowBox[{"-", "3330.5626226334757`"}], ",", "4221.803135603369`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.277004733707`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.27700473370714`"}],
  SequenceForm[
  "ii=", 76, " b=", {3598.3628803821584`, -3330.5626226334757`, 
   4221.803135603369}, "  magnitude b=", 6470.277004733707, 
   " (R - EARTHR)=  ", 100.27700473370714`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620763016`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"e28766a5-4593-bd44-b8d9-3cd6d049bce3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "77", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3598.326976506988`", ",", 
     RowBox[{"-", "3330.562711717067`"}], ",", "4221.829397718183`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.274219071054`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.27421907105418`"}],
  SequenceForm[
  "ii=", 77, " b=", {3598.326976506988, -3330.562711717067, 
   4221.829397718183}, "  magnitude b=", 6470.274219071054, 
   " (R - EARTHR)=  ", 100.27421907105418`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462077303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"c0fd35f4-3878-1e43-92a6-ac891beab87c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "78", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3598.2910025126084`", ",", 
     RowBox[{"-", "3330.562722202837`"}], ",", "4221.855553358473`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.271284785063`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.27128478506256`"}],
  SequenceForm[
  "ii=", 78, " b=", {3598.2910025126084`, -3330.562722202837, 
   4221.855553358473}, "  magnitude b=", 6470.271284785063, 
   " (R - EARTHR)=  ", 100.27128478506256`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620783024`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"9dc087d6-2730-a945-af88-8c60e0bd4e67"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "79", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3598.27299886165`", ",", 
     RowBox[{"-", "3330.5627087391103`"}], ",", "4221.8686058603025`"}], 
    "}"}], "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]",
    "6470.269782345186`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.26978234518629`"}],
  SequenceForm[
  "ii=", 79, " b=", {3598.27299886165, -3330.5627087391103`, 
   4221.8686058603025`}, "  magnitude b=", 6470.269782345186, 
   " (R - EARTHR)=  ", 100.26978234518629`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462079302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"d35860c3-9eff-eb42-9a04-182d9db18332"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "80", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3598.254962408573`", ",", 
     RowBox[{"-", "3330.5626586637986`"}], ",", "4221.881608517828`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.268210370005`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.26821037000536`"}],
  SequenceForm[
  "ii=", 80, " b=", {3598.254962408573, -3330.5626586637986`, 
   4221.881608517828}, "  magnitude b=", 6470.268210370005, 
   " (R - EARTHR)=  ", 100.26821037000536`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462080303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"ba649e6d-073a-a148-aa30-2268694ffa42"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "81", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3598.2369094567484`", ",", 
     RowBox[{"-", "3330.5625901226417`"}], ",", "4221.894586093017`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.266603423914`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.2666034239137`"}],
  SequenceForm[
  "ii=", 81, " b=", {3598.2369094567484`, -3330.5625901226417`, 
   4221.894586093017}, "  magnitude b=", 6470.266603423914, 
   " (R - EARTHR)=  ", 100.2666034239137],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620813026`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"7cc4ba4a-577d-e445-895e-8c9150ea2c0c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "82", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3598.2007659678748`", ",", 
     RowBox[{"-", "3330.5624109313108`"}], ",", "4221.920484063725`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.263309872115`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.26330987211531`"}],
  SequenceForm[
  "ii=", 82, " b=", {3598.2007659678748`, -3330.5624109313108`, 
   4221.920484063725}, "  magnitude b=", 6470.263309872115, 
   " (R - EARTHR)=  ", 100.26330987211531`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462082306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"90d8ea5b-844e-0448-a65e-66426f40be55"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "83", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3598.164525262858`", ",", 
     RowBox[{"-", "3330.5621233327356`"}], ",", "4221.94623416128`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.259810269396`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.25981026939644`"}],
  SequenceForm[
  "ii=", 83, " b=", {3598.164525262858, -3330.5621233327356`, 
   4221.94623416128}, "  magnitude b=", 6470.259810269396, " (R - EARTHR)=  ",
    100.25981026939644`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620833015`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"311e98f9-08f8-bc4d-a676-a7aa5cce246b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "84", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3598.1282151775013`", ",", 
     RowBox[{"-", "3330.56175831099`"}], ",", "4221.971878683082`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.256163643815`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.25616364381494`"}],
  SequenceForm[
  "ii=", 84, " b=", {3598.1282151775013`, -3330.56175831099, 
   4221.971878683082}, "  magnitude b=", 6470.256163643815, 
   " (R - EARTHR)=  ", 100.25616364381494`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462084301*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"cc35c189-a568-9946-9810-357b4db0745d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "85", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3598.1100439779375`", ",", 
     RowBox[{"-", "3330.5615577251597`"}], ",", "4221.984676332503`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.254306096324`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.2543060963244`"}],
  SequenceForm[
  "ii=", 85, " b=", {3598.1100439779375`, -3330.5615577251597`, 
   4221.984676332503}, "  magnitude b=", 6470.254306096324, 
   " (R - EARTHR)=  ", 100.2543060963244],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620853024`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"b5a276cb-33e7-a044-a2ec-1a1bac4cacb7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "86", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3598.091840977158`", ",", 
     RowBox[{"-", "3330.5613218113317`"}], ",", "4221.99742558826`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.252381176945`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.25238117694516`"}],
  SequenceForm[
  "ii=", 86, " b=", {3598.091840977158, -3330.5613218113317`, 
   4221.99742558826}, "  magnitude b=", 6470.252381176945, " (R - EARTHR)=  ",
    100.25238117694516`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620863056`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"ffedbbe3-c381-b747-8a8e-a0f5240cf48c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "87", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3598.073621976236`", ",", 
     RowBox[{"-", "3330.5610680724762`"}], ",", "4222.010150485822`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.250422365937`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.25042236593708`"}],
  SequenceForm[
  "ii=", 87, " b=", {3598.073621976236, -3330.5610680724762`, 
   4222.010150485822}, "  magnitude b=", 6470.250422365937, 
   " (R - EARTHR)=  ", 100.25042236593708`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462087305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"07570540-182e-d741-a155-3722ac3c23b2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "88", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3598.0553915952414`", ",", 
     RowBox[{"-", "3330.5608016369233`"}], ",", "4222.022858043974`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.248439452212`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.24843945221164`"}],
  SequenceForm[
  "ii=", 88, " b=", {3598.0553915952414`, -3330.5608016369233`, 
   4222.022858043974}, "  magnitude b=", 6470.248439452212, 
   " (R - EARTHR)=  ", 100.24843945221164`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620883064`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"21785635-e905-f849-82d0-f1dcf4c719b5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "89", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3598.037134929318`", ",", 
     RowBox[{"-", "3330.5605060325115`"}], ",", "4222.035525593073`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.246400875618`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.24640087561784`"}],
  SequenceForm[
  "ii=", 89, " b=", {3598.037134929318, -3330.5605060325115`, 
   4222.035525593073}, "  magnitude b=", 6470.246400875618, 
   " (R - EARTHR)=  ", 100.24640087561784`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462089306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"8be8460b-ed54-c24a-a8b9-a5a0628f9b8b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "90", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3598.018861709377`", ",", 
     RowBox[{"-", "3330.5601920275153`"}], ",", "4222.048167936382`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.244327249919`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.24432724991857`"}],
  SequenceForm[
  "ii=", 90, " b=", {3598.018861709377, -3330.5601920275153`, 
   4222.048167936382}, "  magnitude b=", 6470.244327249919, 
   " (R - EARTHR)=  ", 100.24432724991857`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620903053`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"55a11f7b-570a-5944-8452-bb6130780a6d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "91", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3598.0097211586976`", ",", 
     RowBox[{"-", "3330.560030633652`"}], ",", "4222.05448310134`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.243282094039`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.24328209403939`"}],
  SequenceForm[
  "ii=", 91, " b=", {3598.0097211586976`, -3330.560030633652, 
   4222.05448310134}, "  magnitude b=", 6470.243282094039, " (R - EARTHR)=  ",
    100.24328209403939`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462091305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"221ada19-82a3-c14c-a152-bbd5f412ac96"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "92", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3598.0005727861685`", ",", 
     RowBox[{"-", "3330.559860578265`"}], ",", "4222.06078636298`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.242220381606`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.24222038160588`"}],
  SequenceForm[
  "ii=", 92, " b=", {3598.0005727861685`, -3330.559860578265, 
   4222.06078636298}, "  magnitude b=", 6470.242220381606, " (R - EARTHR)=  ",
    100.24222038160588`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620923023`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"0c5eb5e3-0cb3-7d49-817d-563cd7063c67"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "93", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.9914204901675`", ",", 
     RowBox[{"-", "3330.559686166173`"}], ",", "4222.067083649986`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.24115036502`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.24115036502008`"}],
  SequenceForm[
  "ii=", 93, " b=", {3597.9914204901675`, -3330.559686166173, 
   4222.067083649986}, "  magnitude b=", 6470.24115036502, " (R - EARTHR)=  ",
    100.24115036502008`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620933*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"0043aa51-323e-3c4b-8fcd-d1947af4358c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "94", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.982265397713`", ",", 
     RowBox[{"-", "3330.5595086432186`"}], ",", "4222.073376675219`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.240074429998`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.24007442999755`"}],
  SequenceForm[
  "ii=", 94, " b=", {3597.982265397713, -3330.5595086432186`, 
   4222.073376675219}, "  magnitude b=", 6470.240074429998, 
   " (R - EARTHR)=  ", 100.24007442999755`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462094303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"83c33c6d-ea4d-c449-809b-6bfd91f198cd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "95", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.9731038131767`", ",", 
     RowBox[{"-", "3330.5593239337322`"}], ",", "4222.079659819808`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.238984756984`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.23898475698388`"}],
  SequenceForm[
  "ii=", 95, " b=", {3597.9731038131767`, -3330.5593239337322`, 
   4222.079659819808}, "  magnitude b=", 6470.238984756984, 
   " (R - EARTHR)=  ", 100.23898475698388`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620953026`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"3b2948f2-e415-8d4d-8c1b-ad1fbad425d9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "96", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.963938143781`", ",", 
     RowBox[{"-", "3330.559134694403`"}], ",", "4222.0859367444555`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.237886440864`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.2378864408638`"}],
  SequenceForm[
  "ii=", 96, " b=", {3597.963938143781, -3330.559134694403, 
   4222.0859367444555`}, "  magnitude b=", 6470.237886440864, 
   " (R - EARTHR)=  ", 100.2378864408638],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462096302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"b5818b9b-5092-8d4e-9a49-7e7e741c02a7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "97", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.9593543355077`", ",", 
     RowBox[{"-", "3330.5590389921344`"}], ",", "4222.08907372276`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.2373352228515`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.23733522285147`"}],
  SequenceForm[
  "ii=", 97, " b=", {3597.9593543355077`, -3330.5590389921344`, 
   4222.08907372276}, "  magnitude b=", 6470.2373352228515`, 
   " (R - EARTHR)=  ", 100.23733522285147`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620973015`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"2acd7d00-793e-db43-8c3b-f53487dfb5e5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "98", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.9547685873777`", ",", 
     RowBox[{"-", "3330.558941145508`"}], ",", "4222.092207749535`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.236779901047`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.23677990104716`"}],
  SequenceForm[
  "ii=", 98, " b=", {3597.9547685873777`, -3330.558941145508, 
   4222.092207749535}, "  magnitude b=", 6470.236779901047, 
   " (R - EARTHR)=  ", 100.23677990104716`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344620983047`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"4435e116-1793-7f43-a509-1cd7cf7461d0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "99", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.9501818677604`", ",", 
     RowBox[{"-", "3330.558842222018`"}], ",", "4222.095340296979`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.236222524104`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.23622252410405`"}],
  SequenceForm[
  "ii=", 99, " b=", {3597.9501818677604`, -3330.558842222018, 
   4222.095340296979}, "  magnitude b=", 6470.236222524104, 
   " (R - EARTHR)=  ", 100.23622252410405`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462099306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"6b2cb38c-14df-ce42-888c-29a7cf4a076c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "100", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.945594454984`", ",", 
     RowBox[{"-", "3330.5587425286476`"}], ",", "4222.098471788089`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.235663680834`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.23566368083357`"}],
  SequenceForm[
  "ii=", 100, " b=", {3597.945594454984, -3330.5587425286476`, 
   4222.098471788089}, "  magnitude b=", 6470.235663680834, 
   " (R - EARTHR)=  ", 100.23566368083357`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462101303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"d4dd120a-6b0b-564a-bbab-77cae23fb54b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "101", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.941005428877`", ",", 
     RowBox[{"-", "3330.5586410517235`"}], ",", "4222.101600824197`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.235101425073`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.23510142507257`"}],
  SequenceForm[
  "ii=", 101, " b=", {3597.941005428877, -3330.5586410517235`, 
   4222.101600824197}, "  magnitude b=", 6470.235101425073, 
   " (R - EARTHR)=  ", 100.23510142507257`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621023026`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"af9c4093-d297-e240-a93e-4b6f51c9f5c3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "102", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.936415388166`", ",", 
     RowBox[{"-", "3330.55853845106`"}], ",", "4222.104728315488`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.23453702333`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.23453702332972`"}],
  SequenceForm[
  "ii=", 102, " b=", {3597.936415388166, -3330.55853845106, 
   4222.104728315488}, "  magnitude b=", 6470.23453702333, " (R - EARTHR)=  ",
    100.23453702332972`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462103302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"483bb15a-9b2c-ee4a-966d-b6dc5dc269ac"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "103", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.93584159205`", ",", 
     RowBox[{"-", "3330.5585255803685`"}], ",", "4222.105119189343`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.234466386332`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.23446638633231`"}],
  SequenceForm[
  "ii=", 103, " b=", {3597.93584159205, -3330.5585255803685`, 
   4222.105119189343}, "  magnitude b=", 6470.234466386332, 
   " (R - EARTHR)=  ", 100.23446638633231`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621043015`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"ee2560fb-b8ce-4a49-9f7c-fb826722313e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "104", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.935267735526`", ",", 
     RowBox[{"-", "3330.5585126430474`"}], ",", "4222.105509971346`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.234395621582`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.23439562158183`"}],
  SequenceForm[
  "ii=", 104, " b=", {3597.935267735526, -3330.5585126430474`, 
   4222.105509971346}, "  magnitude b=", 6470.234395621582, 
   " (R - EARTHR)=  ", 100.23439562158183`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462105303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"d8e656a1-e99c-5947-a423-886648f5199e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "105", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.934693868201`", ",", 
     RowBox[{"-", "3330.5584996937373`"}], ",", "4222.1059007368885`"}], 
    "}"}], "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]",
    "6470.234324833987`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.23432483398665`"}],
  SequenceForm[
  "ii=", 105, " b=", {3597.934693868201, -3330.5584996937373`, 
   4222.1059007368885`}, "  magnitude b=", 6470.234324833987, 
   " (R - EARTHR)=  ", 100.23432483398665`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621063023`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"0d6c4ff6-a3af-dd42-9743-0e9d3c0153e7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "106", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.9335460990233`", ",", 
     RowBox[{"-", "3330.5584737568115`"}], ",", "4222.106682215367`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.234183185771`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.23418318577114`"}],
  SequenceForm[
  "ii=", 106, " b=", {3597.9335460990233`, -3330.5584737568115`, 
   4222.106682215367}, "  magnitude b=", 6470.234183185771, 
   " (R - EARTHR)=  ", 100.23418318577114`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621073055`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"70793ba2-8ab3-0f44-9ec6-5f9e1da6e41f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "107", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.9323982392407`", ",", 
     RowBox[{"-", "3330.5584477197276`"}], ",", "4222.107463555967`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.234041345941`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.23404134594057`"}],
  SequenceForm[
  "ii=", 107, " b=", {3597.9323982392407`, -3330.5584477197276`, 
   4222.107463555967}, "  magnitude b=", 6470.234041345941, 
   " (R - EARTHR)=  ", 100.23404134594057`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462108303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"90e06663-7934-a842-8216-e39dc0ba157d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "108", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.930102390191`", ",", 
     RowBox[{"-", "3330.5583955018446`"}], ",", "4222.1090260398505`"}], 
    "}"}], "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]",
    "6470.233757392424`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.2337573924242`"}],
  SequenceForm[
  "ii=", 108, " b=", {3597.930102390191, -3330.5583955018446`, 
   4222.1090260398505`}, "  magnitude b=", 6470.233757392424, 
   " (R - EARTHR)=  ", 100.2337573924242],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621093025`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"b5f50006-6d31-b543-917c-3376789f1ac2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "109", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.9278061789937`", ",", 
     RowBox[{"-", "3330.5583428836812`"}], ",", "4222.110587972639`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.23347267305`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.23347267304962`"}],
  SequenceForm[
  "ii=", 109, " b=", {3597.9278061789937`, -3330.5583428836812`, 
   4222.110587972639}, "  magnitude b=", 6470.23347267305, " (R - EARTHR)=  ",
    100.23347267304962`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462110302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"be23ac39-6c62-5242-8a58-311392472eb8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "110", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.9255097091227`", ",", 
     RowBox[{"-", "3330.5582899792053`"}], ",", "4222.112149511603`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.233187406645`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.2331874066449`"}],
  SequenceForm[
  "ii=", 110, " b=", {3597.9255097091227`, -3330.5582899792053`, 
   4222.112149511603}, "  magnitude b=", 6470.233187406645, 
   " (R - EARTHR)=  ", 100.2331874066449],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621113033`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"3b29f769-3a15-514d-8227-a7525b642a6d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "111", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.920916217495`", ",", 
     RowBox[{"-", "3330.5581835581706`"}], ",", "4222.115271748716`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.232615706747`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.23261570674731`"}],
  SequenceForm[
  "ii=", 111, " b=", {3597.920916217495, -3330.5581835581706`, 
   4222.115271748716}, "  magnitude b=", 6470.232615706747, 
   " (R - EARTHR)=  ", 100.23261570674731`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462112303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"9e353e90-bf8a-2149-8ac7-dd89813ee7cf"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "112", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.9163212798962`", ",", 
     RowBox[{"-", "3330.55807553948`"}], ",", "4222.118391785509`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.232040949301`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.23204094930134`"}],
  SequenceForm[
  "ii=", 112, " b=", {3597.9163212798962`, -3330.55807553948, 
   4222.118391785509}, "  magnitude b=", 6470.232040949301, 
   " (R - EARTHR)=  ", 100.23204094930134`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462113302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"ab0b85be-0a45-0840-9e74-fcea0c51ba5d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "113", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.9117253095083`", ",", 
     RowBox[{"-", "3330.5579663781364`"}], ",", "4222.121510250023`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.231464008103`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.2314640081031`"}],
  SequenceForm[
  "ii=", 113, " b=", {3597.9117253095083`, -3330.5579663781364`, 
   4222.121510250023}, "  magnitude b=", 6470.231464008103, 
   " (R - EARTHR)=  ", 100.2314640081031],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621143017`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f0b5bfa4-763b-ad4a-a05a-0510f05cbd76"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "114", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.9025311650207`", ",", 
     RowBox[{"-", "3330.5577456124934`"}], ",", "4222.127743822`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.230305466297`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.23030546629707`"}],
  SequenceForm[
  "ii=", 114, " b=", {3597.9025311650207`, -3330.5577456124934`, 
   4222.127743822}, "  magnitude b=", 6470.230305466297, " (R - EARTHR)=  ", 
   100.23030546629707`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462115303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"1713efa0-67c4-d447-a26a-183770d0b331"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "115", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.893331257817`", ",", 
     RowBox[{"-", "3330.557518484273`"}], ",", "4222.13396862559`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.229134741958`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.22913474195775`"}],
  SequenceForm[
  "ii=", 115, " b=", {3597.893331257817, -3330.557518484273, 
   4222.13396862559}, "  magnitude b=", 6470.229134741958, " (R - EARTHR)=  ",
    100.22913474195775`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621163063`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"d0770c7d-d20c-a34f-ae83-31d13d566e5a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "116", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.8841272346394`", ",", 
     RowBox[{"-", "3330.5572868061436`"}], ",", "4222.14018716422`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.227955317461`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.22795531746124`"}],
  SequenceForm[
  "ii=", 116, " b=", {3597.8841272346394`, -3330.5572868061436`, 
   4222.14018716422}, "  magnitude b=", 6470.227955317461, " (R - EARTHR)=  ",
    100.22795531746124`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462118305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"b3c82b08-f428-c84d-9853-67544218340e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "117", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.8657104037557`", ",", 
     RowBox[{"-", "3330.5568137209048`"}], ",", "4222.152610862914`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.225577902086`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.22557790208612`"}],
  SequenceForm[
  "ii=", 117, " b=", {3597.8657104037557`, -3330.5568137209048`, 
   4222.152610862914}, "  magnitude b=", 6470.225577902086, 
   " (R - EARTHR)=  ", 100.22557790208612`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621193047`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"352f81eb-b455-5c44-a59f-89232ba59477"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "118", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.8472706899915`", ",", 
     RowBox[{"-", "3330.556315408739`"}], ",", "4222.164999750741`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.223152136303`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.22315213630282`"}],
  SequenceForm[
  "ii=", 118, " b=", {3597.8472706899915`, -3330.556315408739, 
   4222.164999750741}, "  magnitude b=", 6470.223152136303, 
   " (R - EARTHR)=  ", 100.22315213630282`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462120306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"09e083a5-7f86-d343-91d6-79c1560e87ce"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "119", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.8288146322716`", ",", 
     RowBox[{"-", "3330.555799061494`"}], ",", "4222.177363771536`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.2206918470065`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.22069184700649`"}],
  SequenceForm[
  "ii=", 119, " b=", {3597.8288146322716`, -3330.555799061494, 
   4222.177363771536}, "  magnitude b=", 6470.2206918470065`, 
   " (R - EARTHR)=  ", 100.22069184700649`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621213055`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f70d78e5-cc8c-3b48-beb0-92a0faa20184"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "120", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.810347677603`", ",", 
     RowBox[{"-", "3330.5552706617927`"}], ",", "4222.189711200409`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.218208542559`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.2182085425593`"}],
  SequenceForm[
  "ii=", 120, " b=", {3597.810347677603, -3330.5552706617927`, 
   4222.189711200409}, "  magnitude b=", 6470.218208542559, 
   " (R - EARTHR)=  ", 100.2182085425593],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462122305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"fb030302-36cf-f14b-802d-67482623138f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "121", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.7918555736915`", ",", 
     RowBox[{"-", "3330.5547146139756`"}], ",", "4222.202020394302`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.215672146601`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.21567214660081`"}],
  SequenceForm[
  "ii=", 121, " b=", {3597.7918555736915`, -3330.5547146139756`, 
   4222.202020394302}, "  magnitude b=", 6470.215672146601, 
   " (R - EARTHR)=  ", 100.21567214660081`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621233025`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"26aa00e5-c48c-3e41-94db-ad1732fb4f8b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "122", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.7733476261515`", ",", 
     RowBox[{"-", "3330.554141119368`"}], ",", "4222.21430549616`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.213102313777`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.2131023137772`"}],
  SequenceForm[
  "ii=", 122, " b=", {3597.7733476261515`, -3330.554141119368, 
   4222.21430549616}, "  magnitude b=", 6470.213102313777, " (R - EARTHR)=  ",
    100.2131023137772],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462124302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"c802f09e-5f8f-bd4b-a0e5-5e5e0ea80218"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "123", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.75482888997`", ",", 
     RowBox[{"-", "3330.5535557195685`"}], ",", "4222.22657418001`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.210509715215`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.21050971521527`"}],
  SequenceForm[
  "ii=", 123, " b=", {3597.75482888997, -3330.5535557195685`, 
   4222.22657418001}, "  magnitude b=", 6470.210509715215, " (R - EARTHR)=  ",
    100.21050971521527`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621253033`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"b5865d0c-e55d-784c-9f8d-532b107a55b2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "124", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.7362852473816`", ",", 
     RowBox[{"-", "3330.5529430046086`"}], ",", "4222.238805023841`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.207864589162`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.20786458916245`"}],
  SequenceForm[
  "ii=", 124, " b=", {3597.7362852473816`, -3330.5529430046086`, 
   4222.238805023841}, "  magnitude b=", 6470.207864589162, 
   " (R - EARTHR)=  ", 100.20786458916245`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621263027`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"cb2682ba-0ada-ce47-89ae-b084f9dd104a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "125", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.71772591313`", ",", 
     RowBox[{"-", "3330.552313051723`"}], ",", "4222.251012023602`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.205186379954`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.20518637995428`"}],
  SequenceForm[
  "ii=", 125, " b=", {3597.71772591313, -3330.552313051723, 
   4222.251012023602}, "  magnitude b=", 6470.205186379954, 
   " (R - EARTHR)=  ", 100.20518637995428`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462127302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"58782119-edc1-6841-8c61-a65f77919bee"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "126", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.6805730166157`", ",", 
     RowBox[{"-", "3330.551015491056`"}], ",", "4222.275373996458`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.199757820975`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.19975782097481`"}],
  SequenceForm[
  "ii=", 126, " b=", {3597.6805730166157`, -3330.551015491056, 
   4222.275373996458}, "  magnitude b=", 6470.199757820975, 
   " (R - EARTHR)=  ", 100.19975782097481`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621283016`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f220e747-5a41-9e4f-8701-2b9f51b19e33"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "127", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.643331635107`", ",", 
     RowBox[{"-", "3330.5496211714585`"}], ",", "4222.299601652556`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.194142903228`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.19414290322766`"}],
  SequenceForm[
  "ii=", 127, " b=", {3597.643331635107, -3330.5496211714585`, 
   4222.299601652556}, "  magnitude b=", 6470.194142903228, 
   " (R - EARTHR)=  ", 100.19414290322766`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462129303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f6d2ac63-7419-4e4b-9546-c58ac08a60d2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "128", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.606027030257`", ",", 
     RowBox[{"-", "3330.5481576997317`"}], ",", "4222.323733393664`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.188394943451`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.18839494345139`"}],
  SequenceForm[
  "ii=", 128, " b=", {3597.606027030257, -3330.5481576997317`, 
   4222.323733393664}, "  magnitude b=", 6470.188394943451, 
   " (R - EARTHR)=  ", 100.18839494345139`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621303024`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"949b8509-47e6-3446-a261-1397cb03d74d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "129", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.587360005112`", ",", 
     RowBox[{"-", "3330.547409815814`"}], ",", "4222.335776904225`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.1854899859545`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.18548998595452`"}],
  SequenceForm[
  "ii=", 129, " b=", {3597.587360005112, -3330.547409815814, 
   4222.335776904225}, "  magnitude b=", 6470.1854899859545`, 
   " (R - EARTHR)=  ", 100.18548998595452`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462131302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"057ac80e-00d0-5443-b73c-5ca37af58bdc"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "130", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.5686639936976`", ",", 
     RowBox[{"-", "3330.546630419947`"}], ",", "4222.347776513498`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.182524116267`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.1825241162669`"}],
  SequenceForm[
  "ii=", 130, " b=", {3597.5686639936976`, -3330.546630419947, 
   4222.347776513498}, "  magnitude b=", 6470.182524116267, 
   " (R - EARTHR)=  ", 100.1825241162669],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621333027`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"6e044fde-f132-2242-a2e1-84bf10b291e5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "131", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.549953386643`", ",", 
     RowBox[{"-", "3330.5458351063685`"}], ",", "4222.359754009338`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.179527581473`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.17952758147294`"}],
  SequenceForm[
  "ii=", 131, " b=", {3597.549953386643, -3330.5458351063685`, 
   4222.359754009338}, "  magnitude b=", 6470.179527581473, 
   " (R - EARTHR)=  ", 100.17952758147294`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462134302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"77bbc540-7592-1e40-a2bf-56b27255867d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "132", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.5124989115043`", ",", 
     RowBox[{"-", "3330.544208174805`"}], ",", "4222.383658596951`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.173464662119`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.17346466211893`"}],
  SequenceForm[
  "ii=", 132, " b=", {3597.5124989115043`, -3330.544208174805, 
   4222.383658596951}, "  magnitude b=", 6470.173464662119, 
   " (R - EARTHR)=  ", 100.17346466211893`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621353016`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"9d157d9d-e2f5-1e49-9197-9a4de381f0f3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "133", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.474958422372`", ",", 
     RowBox[{"-", "3330.5424879590346`"}], ",", "4222.407433063559`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.167221283141`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.16722128314086`"}],
  SequenceForm[
  "ii=", 133, " b=", {3597.474958422372, -3330.5424879590346`, 
   4222.407433063559}, "  magnitude b=", 6470.167221283141, 
   " (R - EARTHR)=  ", 100.16722128314086`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462136303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"67b8b940-5e72-924d-90b5-d6827c7290ca"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "134", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.4373564548505`", ",", 
     RowBox[{"-", "3330.5407010588037`"}], ",", "4222.431114603255`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.160849051268`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.16084905126809`"}],
  SequenceForm[
  "ii=", 134, " b=", {3597.4373564548505`, -3330.5407010588037`, 
   4222.431114603255}, "  magnitude b=", 6470.160849051268, 
   " (R - EARTHR)=  ", 100.16084905126809`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462138302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"9fb12892-e5fc-8e4e-ab68-7971dd1d25d2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "135", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.399713480027`", ",", 
     RowBox[{"-", "3330.5388695845`"}], ",", "4222.454734134432`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.154390907041`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.15439090704058`"}],
  SequenceForm[
  "ii=", 135, " b=", {3597.399713480027, -3330.5388695845, 4222.454734134432},
    "  magnitude b=", 6470.154390907041, " (R - EARTHR)=  ", 
   100.15439090704058`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462139303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"e0e1a215-0e92-9c48-8cc8-1c6bf40ba04f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "136", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.361976905464`", ",", 
     RowBox[{"-", "3330.5369372781593`"}], ",", "4222.478212499623`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.147736991279`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.14773699127909`"}],
  SequenceForm[
  "ii=", 136, " b=", {3597.361976905464, -3330.5369372781593`, 
   4222.478212499623}, "  magnitude b=", 6470.147736991279, 
   " (R - EARTHR)=  ", 100.14773699127909`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621403027`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"63532890-e1e3-284d-9bf3-aaa1d86781a7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "137", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.3241811694943`", ",", 
     RowBox[{"-", "3330.5349411610405`"}], ",", "4222.50160171749`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.140959455838`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.14095945583813`"}],
  SequenceForm[
  "ii=", 137, " b=", {3597.3241811694943`, -3330.5349411610405`, 
   4222.50160171749}, "  magnitude b=", 6470.140959455838, " (R - EARTHR)=  ",
    100.14095945583813`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462141306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"475eabc2-aad4-8044-9b42-5036bd9b028c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "138", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.286345188272`", ",", 
     RowBox[{"-", "3330.5329015628326`"}], ",", "4222.524930267081`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.134097868262`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.13409786826196`"}],
  SequenceForm[
  "ii=", 138, " b=", {3597.286345188272, -3330.5329015628326`, 
   4222.524930267081}, "  magnitude b=", 6470.134097868262, 
   " (R - EARTHR)=  ", 100.13409786826196`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621423054`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"336ead67-ba17-8b4c-84a0-06927636f924"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "139", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.2484172921563`", ",", 
     RowBox[{"-", "3330.530763577644`"}], ",", "4222.5481206695`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.127044673662`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.12704467366166`"}],
  SequenceForm[
  "ii=", 139, " b=", {3597.2484172921563`, -3330.530763577644, 
   4222.5481206695}, "  magnitude b=", 6470.127044673662, " (R - EARTHR)=  ", 
   100.12704467366166`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462143305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"fffeacb8-6d0f-f840-ae06-c93c8250e702"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "140", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.2104312855863`", ",", 
     RowBox[{"-", "3330.52856331342`"}], ",", "4222.571223818811`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.1198704675535`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.11987046755348`"}],
  SequenceForm[
  "ii=", 140, " b=", {3597.2104312855863`, -3330.52856331342, 
   4222.571223818811}, "  magnitude b=", 6470.1198704675535`, 
   " (R - EARTHR)=  ", 100.11987046755348`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462144306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"80df7ef9-8acf-dd45-b6b5-2913140451a1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "141", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.172405746964`", ",", 
     RowBox[{"-", "3330.526320608603`"}], ",", "4222.594267587817`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.112613981272`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.11261398127226`"}],
  SequenceForm[
  "ii=", 141, " b=", {3597.172405746964, -3330.526320608603, 
   4222.594267587817}, "  magnitude b=", 6470.112613981272, 
   " (R - EARTHR)=  ", 100.11261398127226`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462145302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"339ab562-640f-aa44-a092-db126c423d14"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "142", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.1342899191964`", ",", 
     RowBox[{"-", "3330.523981904975`"}], ",", "4222.617176184107`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.105169961435`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.10516996143542`"}],
  SequenceForm[
  "ii=", 142, " b=", {3597.1342899191964`, -3330.523981904975, 
   4222.617176184107}, "  magnitude b=", 6470.105169961435, 
   " (R - EARTHR)=  ", 100.10516996143542`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462146303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"494d6933-2fc9-0742-844a-ef0a18b2353b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "143", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.0961169958437`", ",", 
     RowBox[{"-", "3330.521582418755`"}], ",", "4222.639999393769`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.09760748197`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.09760748197004`"}],
  SequenceForm[
  "ii=", 143, " b=", {3597.0961169958437`, -3330.521582418755, 
   4222.639999393769}, "  magnitude b=", 6470.09760748197, " (R - EARTHR)=  ",
    100.09760748197004`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621473026`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"2f80f061-387f-a24b-9bf5-30706306c5cb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "144", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3597.019646516758`", ",", 
     RowBox[{"-", "3330.516650683888`"}], ",", "4222.685459581581`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.082224243512`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.08222424351243`"}],
  SequenceForm[
  "ii=", 144, " b=", {3597.019646516758, -3330.516650683888, 
   4222.685459581581}, "  magnitude b=", 6470.082224243512, 
   " (R - EARTHR)=  ", 100.08222424351243`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462148306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"bfe0fe1f-c1ca-894d-81cc-a51e5f9a3fc6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "145", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3596.942858839578`", ",", 
     RowBox[{"-", "3330.51138464414`"}], ",", "4222.730447408787`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.066185478668`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.06618547866765`"}],
  SequenceForm[
  "ii=", 145, " b=", {3596.942858839578, -3330.51138464414, 
   4222.730447408787}, "  magnitude b=", 6470.066185478668, 
   " (R - EARTHR)=  ", 100.06618547866765`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621493053`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"40b3d833-b316-8548-a062-88328d90aede"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "146", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3596.865843851988`", ",", 
     RowBox[{"-", "3330.5058794854635`"}], ",", "4222.775097955165`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.049678315196`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.0496783151957`"}],
  SequenceForm[
  "ii=", 146, " b=", {3596.865843851988, -3330.5058794854635`, 
   4222.775097955165}, "  magnitude b=", 6470.049678315196, 
   " (R - EARTHR)=  ", 100.0496783151957],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462150305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"4ce67946-8378-c842-916a-6b5c72aa3ac5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "147", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3596.8272835205853`", ",", 
     RowBox[{"-", "3330.5030711917857`"}], ",", "4222.797344771668`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.0413159196005`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.04131591960049`"}],
  SequenceForm[
  "ii=", 147, " b=", {3596.8272835205853`, -3330.5030711917857`, 
   4222.797344771668}, "  magnitude b=", 6470.0413159196005`, 
   " (R - EARTHR)=  ", 100.04131591960049`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621513023`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"6e7691d7-2b2a-f048-8d15-1c687f092792"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "148", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3596.7886207289844`", ",", 
     RowBox[{"-", "3330.5001564965924`"}], ",", "4222.819440442653`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.032743441855`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.03274344185502`"}],
  SequenceForm[
  "ii=", 148, " b=", {3596.7886207289844`, -3330.5001564965924`, 
   4222.819440442653}, "  magnitude b=", 6470.032743441855, 
   " (R - EARTHR)=  ", 100.03274344185502`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462152302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"2408316e-46c0-204b-9821-4b4ad22e4f63"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "149", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3596.7499058761723`", ",", 
     RowBox[{"-", "3330.4971875134775`"}], ",", "4222.841459360762`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6470.024064279171`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.0240642791714`"}],
  SequenceForm[
  "ii=", 149, " b=", {3596.7499058761723`, -3330.4971875134775`, 
   4222.841459360762}, "  magnitude b=", 6470.024064279171, 
   " (R - EARTHR)=  ", 100.0240642791714],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462153303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f3f2b2db-dc50-7e44-b08d-a321bdb2d760"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "150", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3596.672357789843`", ",", 
     RowBox[{"-", "3330.4911261755105`"}], ",", "4222.8853228732005`"}], 
    "}"}], "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]",
    "6470.006463749573`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "100.00646374957341`"}],
  SequenceForm[
  "ii=", 150, " b=", {3596.672357789843, -3330.4911261755105`, 
   4222.8853228732005`}, "  magnitude b=", 6470.006463749573, 
   " (R - EARTHR)=  ", 100.00646374957341`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621543026`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"b2503360-6df5-1742-b95a-cd068524a681"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "151", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3596.59450818293`", ",", 
     RowBox[{"-", "3330.484754288643`"}], ",", "4222.928744359503`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.988248426609`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.98824842660906`"}],
  SequenceForm[
  "ii=", 151, " b=", {3596.59450818293, -3330.484754288643, 
   4222.928744359503}, "  magnitude b=", 6469.988248426609, 
   " (R - EARTHR)=  ", 99.98824842660906],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462155302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"1b651e37-c031-e747-8526-e850da83ee59"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "152", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3596.5164422775165`", ",", 
     RowBox[{"-", "3330.4781600630395`"}], ",", "4222.971850068676`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.969593491292`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.96959349129156`"}],
  SequenceForm[
  "ii=", 152, " b=", {3596.5164422775165`, -3330.4781600630395`, 
   4222.971850068676}, "  magnitude b=", 6469.969593491292, 
   " (R - EARTHR)=  ", 99.96959349129156],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621563015`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"906df398-47d5-cb45-bb8f-50d13e14cc76"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "153", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3596.477359047167`", ",", 
     RowBox[{"-", "3330.474811132834`"}], ",", "4222.993329463997`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.960163897965`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.96016389796478`"}],
  SequenceForm[
  "ii=", 153, " b=", {3596.477359047167, -3330.474811132834, 
   4222.993329463997}, "  magnitude b=", 6469.960163897965, 
   " (R - EARTHR)=  ", 99.96016389796478],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462157303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"ebbeb2f0-45b8-7e44-86ee-cd2f5132f038"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "154", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3596.438178275313`", ",", 
     RowBox[{"-", "3330.471363353076`"}], ",", "4223.014667475186`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.950537212916`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.95053721291606`"}],
  SequenceForm[
  "ii=", 154, " b=", {3596.438178275313, -3330.471363353076, 
   4223.014667475186}, "  magnitude b=", 6469.950537212916, 
   " (R - EARTHR)=  ", 99.95053721291606],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621583023`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"787d9b0c-7d36-df49-814d-fab38a333b8f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "155", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3596.398947914574`", ",", 
     RowBox[{"-", "3330.467865080637`"}], ",", "4223.035933635457`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.940810368525`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.94081036852458`"}],
  SequenceForm[
  "ii=", 155, " b=", {3596.398947914574, -3330.467865080637, 
   4223.035933635457}, "  magnitude b=", 6469.940810368525, 
   " (R - EARTHR)=  ", 99.94081036852458],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621593018`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"a11432a9-9764-a048-91a0-9b5b766baa95"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "156", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3596.3203744078496`", ",", 
     RowBox[{"-", "3330.4607537588936`"}], ",", "4223.078302753645`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.9211292640875`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.92112926408754`"}],
  SequenceForm[
  "ii=", 156, " b=", {3596.3203744078496`, -3330.4607537588936`, 
   4223.078302753645}, "  magnitude b=", 6469.9211292640875`, 
   " (R - EARTHR)=  ", 99.92112926408754],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462160303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"bcd5763e-3eca-a248-8474-85d5edabb0bf"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "157", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3596.2415135940123`", ",", 
     RowBox[{"-", "3330.453353831623`"}], ",", "4223.120258408313`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.900871197638`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.90087119763757`"}],
  SequenceForm[
  "ii=", 157, " b=", {3596.2415135940123`, -3330.453353831623, 
   4223.120258408313}, "  magnitude b=", 6469.900871197638, 
   " (R - EARTHR)=  ", 99.90087119763757],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621613026`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"0c39c5a9-4dad-d546-8d14-d1f914b468e8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "158", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3596.1624465059967`", ",", 
     RowBox[{"-", "3330.445747074806`"}], ",", "4223.161918527157`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.88020027934`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.88020027933999`"}],
  SequenceForm[
  "ii=", 158, " b=", {3596.1624465059967`, -3330.445747074806, 
   4223.161918527157}, "  magnitude b=", 6469.88020027934, " (R - EARTHR)=  ",
    99.88020027933999],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462162304*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"506c663b-193e-8f4f-b921-b54538c55419"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "159", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3596.083241560359`", ",", 
     RowBox[{"-", "3330.438001834461`"}], ",", "4223.20338130575`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.859253814313`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.85925381431298`"}],
  SequenceForm[
  "ii=", 159, " b=", {3596.083241560359, -3330.438001834461, 
   4223.20338130575}, "  magnitude b=", 6469.859253814313, " (R - EARTHR)=  ",
    99.85925381431298],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621633015`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"243951d3-7e37-174c-a716-42f274eb4722"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "160", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3596.0037286991496`", ",", 
     RowBox[{"-", "3330.429953123145`"}], ",", "4223.2444071037935`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.837695924953`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.83769592495264`"}],
  SequenceForm[
  "ii=", 160, " b=", {3596.0037286991496`, -3330.429953123145, 
   4223.2444071037935`}, "  magnitude b=", 6469.837695924953, 
   " (R - EARTHR)=  ", 99.83769592495264],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462164303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"271cf7a8-19cb-c648-8735-21fa96839fca"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "161", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3595.9240192452285`", ",", 
     RowBox[{"-", "3330.421710447016`"}], ",", "4223.285154996023`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.815748691099`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.81574869109863`"}],
  SequenceForm[
  "ii=", 161, " b=", {3595.9240192452285`, -3330.421710447016, 
   4223.285154996023}, "  magnitude b=", 6469.815748691099, 
   " (R - EARTHR)=  ", 99.81574869109863],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621663055`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"6761a13f-8b06-ec40-9d52-bfcfa84c30ba"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "162", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3595.8441762327716`", ",", 
     RowBox[{"-", "3330.41333589417`"}], ",", "4223.325714270457`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.793537391045`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.79353739104499`"}],
  SequenceForm[
  "ii=", 162, " b=", {3595.8441762327716`, -3330.41333589417, 
   4223.325714270457}, "  magnitude b=", 6469.793537391045, 
   " (R - EARTHR)=  ", 99.79353739104499],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462167303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"958b240b-bbf4-594a-aeb7-f5a44dbe7737"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "163", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3595.7640344745714`", ",", 
     RowBox[{"-", "3330.4046721581904`"}], ",", "4223.3658556099435`"}], 
    "}"}], "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]",
    "6469.77073954602`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.7707395460202`"}],
  SequenceForm[
  "ii=", 163, " b=", {3595.7640344745714`, -3330.4046721581904`, 
   4223.3658556099435`}, "  magnitude b=", 6469.77073954602, 
   " (R - EARTHR)=  ", 99.7707395460202],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621683064`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"605e2d48-74e1-4848-a7ae-f43879cdba5b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "164", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3595.683701901487`", ",", 
     RowBox[{"-", "3330.3958234264937`"}], ",", "4223.405731003243`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.747567988078`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.74756798807812`"}],
  SequenceForm[
  "ii=", 164, " b=", {3595.683701901487, -3330.3958234264937`, 
   4223.405731003243}, "  magnitude b=", 6469.747567988078, 
   " (R - EARTHR)=  ", 99.74756798807812],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462169306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f2916545-c217-7f4f-900a-d093106417bf"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "165", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3595.603239688773`", ",", 
     RowBox[{"-", "3330.38684887954`"}], ",", "4223.445425868376`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.724142939845`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.72414293984457`"}],
  SequenceForm[
  "ii=", 165, " b=", {3595.603239688773, -3330.38684887954, 
   4223.445425868376}, "  magnitude b=", 6469.724142939845, 
   " (R - EARTHR)=  ", 99.72414293984457],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621703053`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"92c585f6-ac71-bb43-adcb-ec0bf41463da"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "166", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3595.522487421445`", ",", 
     RowBox[{"-", "3330.3775986443948`"}], ",", "4223.484720939818`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.700154962191`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.70015496219094`"}],
  SequenceForm[
  "ii=", 166, " b=", {3595.522487421445, -3330.3775986443948`, 
   4223.484720939818}, "  magnitude b=", 6469.700154962191, 
   " (R - EARTHR)=  ", 99.70015496219094],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621713047`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"03b98edd-2242-d245-8050-636a5178f2ca"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "167", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3595.4415498330504`", ",", 
     RowBox[{"-", "3330.368171893978`"}], ",", "4223.523761463503`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.675808128035`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.67580812803499`"}],
  SequenceForm[
  "ii=", 167, " b=", {3595.4415498330504`, -3330.368171893978, 
   4223.523761463503}, "  magnitude b=", 6469.675808128035, 
   " (R - EARTHR)=  ", 99.67580812803499],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462172304*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"92400516-747c-584a-acff-40ee40d385af"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "168", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3595.360486334533`", ",", 
     RowBox[{"-", "3330.358625058925`"}], ",", "4223.562629166469`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.65121785492`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.6512178549201`"}],
  SequenceForm[
  "ii=", 168, " b=", {3595.360486334533, -3330.358625058925, 
   4223.562629166469}, "  magnitude b=", 6469.65121785492, " (R - EARTHR)=  ",
    99.6512178549201],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621733017`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"77949280-4468-5241-8d1f-c3f38b471a24"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "169", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3595.279141049139`", ",", 
     RowBox[{"-", "3330.348815276051`"}], ",", "4223.6011143315745`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.626087066898`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.62608706689844`"}],
  SequenceForm[
  "ii=", 169, " b=", {3595.279141049139, -3330.348815276051, 
   4223.6011143315745`}, "  magnitude b=", 6469.626087066898, 
   " (R - EARTHR)=  ", 99.62608706689844],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462174303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"634aed88-4d52-a74f-9500-61708d8773c2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "170", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3595.1976156846267`", ",", 
     RowBox[{"-", "3330.3388369928866`"}], ",", "4223.6393557978645`"}], 
    "}"}], "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]",
    "6469.600611541036`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.60061154103641`"}],
  SequenceForm[
  "ii=", 170, " b=", {3595.1976156846267`, -3330.3388369928866`, 
   4223.6393557978645`}, "  magnitude b=", 6469.600611541036, 
   " (R - EARTHR)=  ", 99.60061154103641],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621753025`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"322c6de2-d962-2740-bb6e-06b7989d3487"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "171", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3595.115967971442`", ",", 
     RowBox[{"-", "3330.328744040909`"}], ",", "4223.677431777448`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.574902128769`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.57490212876928`"}],
  SequenceForm[
  "ii=", 171, " b=", {3595.115967971442, -3330.328744040909, 
   4223.677431777448}, "  magnitude b=", 6469.574902128769, 
   " (R - EARTHR)=  ", 99.57490212876928],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462176302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"9c15e8d0-741e-ab41-8a9c-015635aff60d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "172", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3595.0340463645744`", ",", 
     RowBox[{"-", "3330.3184001666764`"}], ",", "4223.7151416156175`"}], 
    "}"}], "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]",
    "6469.548673479643`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.54867347964318`"}],
  SequenceForm[
  "ii=", 172, " b=", {3595.0340463645744`, -3330.3184001666764`, 
   4223.7151416156175`}, "  magnitude b=", 6469.548673479643, 
   " (R - EARTHR)=  ", 99.54867347964318],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621773033`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"ecabded2-52e9-7140-acfa-a037889909e6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "173", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3594.9519496969324`", ",", 
     RowBox[{"-", "3330.3078953657478`"}], ",", "4223.752618070475`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.5221135121255`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.52211351212554`"}],
  SequenceForm[
  "ii=", 173, " b=", {3594.9519496969324`, -3330.3078953657478`, 
   4223.752618070475}, "  magnitude b=", 6469.5221135121255`, 
   " (R - EARTHR)=  ", 99.52211351212554],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462179304*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"42436a14-91b2-d441-92a1-348e74164a47"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "174", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3594.869734092754`", ",", 
     RowBox[{"-", "3330.2972810135666`"}], ",", "4223.789936010727`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.495328738399`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.49532873839871`"}],
  SequenceForm[
  "ii=", 174, " b=", {3594.869734092754, -3330.2972810135666`, 
   4223.789936010727}, "  magnitude b=", 6469.495328738399, 
   " (R - EARTHR)=  ", 99.49532873839871],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621803036`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"923955e3-1cee-3b48-9d41-ae8f0b21dcd9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "175", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3594.7872521562285`", ",", 
     RowBox[{"-", "3330.286427090089`"}], ",", "4223.826903377847`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.468044934134`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.46804493413401`"}],
  SequenceForm[
  "ii=", 175, " b=", {3594.7872521562285`, -3330.286427090089, 
   4223.826903377847}, "  magnitude b=", 6469.468044934134, 
   " (R - EARTHR)=  ", 99.46804493413401],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462184305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"2ace4d49-baf1-1742-82fa-1eb5a0c18320"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "176", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3594.704599978306`", ",", 
     RowBox[{"-", "3330.2754193964806`"}], ",", "4223.863647162929`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.440442570448`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.44044257044789`"}],
  SequenceForm[
  "ii=", 176, " b=", {3594.704599978306, -3330.2754193964806`, 
   4223.863647162929}, "  magnitude b=", 6469.440442570448, 
   " (R - EARTHR)=  ", 99.44044257044789],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462186304*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"4924bdad-f20f-dd4b-97b6-47017ca0d8e6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "177", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3594.5389227968813`", ",", 
     RowBox[{"-", "3330.2530668762247`"}], ",", "4223.936646365408`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.3845417820785`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.38454178207849`"}],
  SequenceForm[
  "ii=", 177, " b=", {3594.5389227968813`, -3330.2530668762247`, 
   4223.936646365408}, "  magnitude b=", 6469.3845417820785`, 
   " (R - EARTHR)=  ", 99.38454178207849],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621873055`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"d3a8c7ae-0226-c044-8714-ac7e695893bc"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "178", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3594.3723245000906`", ",", 
     RowBox[{"-", "3330.22990482647`"}], ",", "4224.008456164027`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.326940561739`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.32694056173932`"}],
  SequenceForm[
  "ii=", 178, " b=", {3594.3723245000906`, -3330.22990482647, 
   4224.008456164027}, "  magnitude b=", 6469.326940561739, 
   " (R - EARTHR)=  ", 99.32694056173932],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462188305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"8486afb3-01ff-1b48-9d41-fb6f9e5c4d25"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "179", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3594.205058437375`", ",", 
     RowBox[{"-", "3330.2061564396786`"}], ",", "4224.079410626524`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.268112682027`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.2681126820271`"}],
  SequenceForm[
  "ii=", 179, " b=", {3594.205058437375, -3330.2061564396786`, 
   4224.079410626524}, "  magnitude b=", 6469.268112682027, 
   " (R - EARTHR)=  ", 99.2681126820271],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621893063`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"30b72598-b3e0-2140-a13b-b86f3d8f7b99"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "180", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3594.1212708955227`", ",", 
     RowBox[{"-", "3330.194146149831`"}], ",", "4224.114689793698`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.238415260729`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.2384152607292`"}],
  SequenceForm[
  "ii=", 180, " b=", {3594.1212708955227`, -3330.194146149831, 
   4224.114689793698}, "  magnitude b=", 6469.238415260729, 
   " (R - EARTHR)=  ", 99.2384152607292],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621903057`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"7e98e38f-554a-bf4e-8920-43014f7e1362"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "181", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3594.0371914095467`", ",", 
     RowBox[{"-", "3330.1818879914904`"}], ",", "4224.149602575536`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.2081899781715`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.2081899781715`"}],
  SequenceForm[
  "ii=", 181, " b=", {3594.0371914095467`, -3330.1818879914904`, 
   4224.149602575536}, "  magnitude b=", 6469.2081899781715`, 
   " (R - EARTHR)=  ", 99.2081899781715],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621923027`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"58ac3d33-3407-6948-b572-db929dfb4acf"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "182", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3593.9529606351334`", ",", 
     RowBox[{"-", "3330.1694994784066`"}], ",", "4224.184324936658`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.1776903679865`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.17769036798654`"}],
  SequenceForm[
  "ii=", 182, " b=", {3593.9529606351334`, -3330.1694994784066`, 
   4224.184324936658}, "  magnitude b=", 6469.1776903679865`, 
   " (R - EARTHR)=  ", 99.17769036798654],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462193302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"9134b11d-b3b2-144b-ae3e-7cd1e1dccd5a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "183", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3593.784156313299`", ",", 
     RowBox[{"-", "3330.144427539662`"}], ",", "4224.253339506705`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.116071518233`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.11607151823318`"}],
  SequenceForm[
  "ii=", 183, " b=", {3593.784156313299, -3330.144427539662, 
   4224.253339506705}, "  magnitude b=", 6469.116071518233, 
   " (R - EARTHR)=  ", 99.11607151823318],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621943016`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"20a39ef1-2709-e34b-9413-cfc6b631bc08"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "184", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3593.6145030691478`", ",", 
     RowBox[{"-", "3330.1186474622273`"}], ",", "4224.321305864404`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6469.052936715274`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "99.05293671527397`"}],
  SequenceForm[
  "ii=", 184, " b=", {3593.6145030691478`, -3330.1186474622273`, 
   4224.321305864404}, "  magnitude b=", 6469.052936715274, 
   " (R - EARTHR)=  ", 99.05293671527397],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462195303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"82c8db30-fba0-af42-a967-a84c9176c504"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "185", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3593.4442344573254`", ",", 
     RowBox[{"-", "3330.0923529051433`"}], ",", "4224.388516741885`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6468.988706545452`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "98.98870654545226`"}],
  SequenceForm[
  "ii=", 185, " b=", {3593.4442344573254`, -3330.0923529051433`, 
   4224.388516741885}, "  magnitude b=", 6468.988706545452, 
   " (R - EARTHR)=  ", 98.98870654545226],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621963024`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"08edc5f9-5367-8646-854c-b0748faf2f26"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "186", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3593.358957824496`", ",", 
     RowBox[{"-", "3330.079086073869`"}], ",", "4224.421947110056`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6468.956338275073`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "98.956338275073`"}],
  SequenceForm[
  "ii=", 186, " b=", {3593.358957824496, -3330.079086073869, 
   4224.421947110056}, "  magnitude b=", 6468.956338275073, 
   " (R - EARTHR)=  ", 98.956338275073],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462197302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"b6cfa8d7-d67a-3043-b6fd-57c58b15a951"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "187", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3593.273411938533`", ",", 
     RowBox[{"-", "3330.0656018955697`"}], ",", "4224.455053886493`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6468.923498402159`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "98.92349840215866`"}],
  SequenceForm[
  "ii=", 187, " b=", {3593.273411938533, -3330.0656018955697`, 
   4224.455053886493}, "  magnitude b=", 6468.923498402159, 
   " (R - EARTHR)=  ", 98.92349840215866],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462198303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"4905df00-a3bb-d94a-933a-95a3c4522640"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "188", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3593.1877266253855`", ",", 
     RowBox[{"-", "3330.052003095899`"}], ",", "4224.487992175718`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6468.890413210843`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "98.89041321084278`"}],
  SequenceForm[
  "ii=", 188, " b=", {3593.1877266253855`, -3330.052003095899, 
   4224.487992175718}, "  magnitude b=", 6468.890413210843, 
   " (R - EARTHR)=  ", 98.89041321084278],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344621993065`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"10d87397-84aa-5e41-8e99-85f82575c9f3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "189", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3593.01604017713`", ",", 
     RowBox[{"-", "3330.0245458774566`"}], ",", "4224.553487819309`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6468.823688474033`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "98.82368847403268`"}],
  SequenceForm[
  "ii=", 189, " b=", {3593.01604017713, -3330.0245458774566`, 
   4224.553487819309}, "  magnitude b=", 6468.823688474033, 
   " (R - EARTHR)=  ", 98.82368847403268],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462200302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"932e56d6-9085-db40-aa39-6609f619d1e3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "190", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3592.8435708164416`", ",", 
     RowBox[{"-", "3329.996466368129`"}], ",", "4224.61805598871`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6468.755607484881`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "98.75560748488078`"}],
  SequenceForm[
  "ii=", 190, " b=", {3592.8435708164416`, -3329.996466368129, 
   4224.61805598871}, "  magnitude b=", 6468.755607484881, " (R - EARTHR)=  ",
    98.75560748488078],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622013016`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"10126d20-cff2-e84e-b25f-b2ea9f3edef5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "191", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3592.670534279027`", ",", 
     RowBox[{"-", "3329.967933510585`"}], ",", "4224.68195435974`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6468.686545318017`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "98.68654531801712`"}],
  SequenceForm[
  "ii=", 191, " b=", {3592.670534279027, -3329.967933510585, 
   4224.68195435974}, "  magnitude b=", 6468.686545318017, " (R - EARTHR)=  ",
    98.68654531801712],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462202303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"4a266ccb-8df5-554a-96a2-5c70f955b025"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "192", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3592.4971181452242`", ",", 
     RowBox[{"-", "3329.9390948143555`"}], ",", "4224.745403589018`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6468.616826200276`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "98.61682620027568`"}],
  SequenceForm[
  "ii=", 192, " b=", {3592.4971181452242`, -3329.9390948143555`, 
   4224.745403589018}, "  magnitude b=", 6468.616826200276, 
   " (R - EARTHR)=  ", 98.61682620027568],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622033024`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"3264a1b5-9b0f-f349-93ac-ec907e788426"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "193", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3592.3228860779177`", ",", 
     RowBox[{"-", "3329.9096299489397`"}], ",", "4224.807912666635`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6468.545722215812`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "98.54572221581202`"}],
  SequenceForm[
  "ii=", 193, " b=", {3592.3228860779177`, -3329.9096299489397`, 
   4224.807912666635}, "  magnitude b=", 6468.545722215812, 
   " (R - EARTHR)=  ", 98.54572221581202],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462205307*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f0c5d677-f7a4-1942-b479-ac544c779ade"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "194", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3592.1481237422095`", ",", 
     RowBox[{"-", "3329.879751035087`"}], ",", "4224.869809088217`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6468.473715104922`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "98.47371510492212`"}],
  SequenceForm[
  "ii=", 194, " b=", {3592.1481237422095`, -3329.879751035087, 
   4224.869809088217}, "  magnitude b=", 6468.473715104922, 
   " (R - EARTHR)=  ", 98.47371510492212],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622063046`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"766db3d7-d235-a54d-a4c2-fc7921b97ccf"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "195", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3591.9730030506`", ",", 
     RowBox[{"-", "3329.849591021854`"}], ",", "4224.931291005192`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6468.401098199427`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "98.401098199427`"}],
  SequenceForm[
  "ii=", 195, " b=", {3591.9730030506, -3329.849591021854, 4224.931291005192},
    "  magnitude b=", 6468.401098199427, " (R - EARTHR)=  ", 98.401098199427],
  
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462207304*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"c51b3cf1-8489-2d4e-86f9-5ea60708c801"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "196", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3591.7971095931257`", ",", 
     RowBox[{"-", "3329.818854389401`"}], ",", "4224.991903332541`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6468.327191999042`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "98.32719199904204`"}],
  SequenceForm[
  "ii=", 196, " b=", {3591.7971095931257`, -3329.818854389401, 
   4224.991903332541}, "  magnitude b=", 6468.327191999042, 
   " (R - EARTHR)=  ", 98.32719199904204],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622083035`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"b41e0d17-2eaf-ac42-9f9b-362c72f9037c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "197", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3591.6207143558427`", ",", 
     RowBox[{"-", "3329.787735741054`"}], ",", "4225.051948252525`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6468.252444541258`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "98.25244454125823`"}],
  SequenceForm[
  "ii=", 197, " b=", {3591.6207143558427`, -3329.787735741054, 
   4225.051948252525}, "  magnitude b=", 6468.252444541258, 
   " (R - EARTHR)=  ", 98.25244454125823],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462209303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"e62c135f-d83d-154a-b726-3e29478c1fb1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "198", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3591.443980151347`", ",", 
     RowBox[{"-", "3329.75635748464`"}], ",", "4225.111609011836`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6468.177128943`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "98.17712894299984`"}],
  SequenceForm[
  "ii=", 198, " b=", {3591.443980151347, -3329.75635748464, 
   4225.111609011836}, "  magnitude b=", 6468.177128943, " (R - EARTHR)=  ", 
   98.17712894299984],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462210306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"acf1e4fe-77be-fd4e-a53b-d3f7a9a2a680"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "199", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3591.2665144276352`", ",", 
     RowBox[{"-", "3329.7244474459612`"}], ",", "4225.1704642910945`"}], 
    "}"}], "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]",
    "6468.100611917409`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "98.10061191740897`"}],
  SequenceForm[
  "ii=", 199, " b=", {3591.2665144276352`, -3329.7244474459612`, 
   4225.1704642910945`}, "  magnitude b=", 6468.100611917409, 
   " (R - EARTHR)=  ", 98.10061191740897],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462212305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"afb7416c-cea4-1d4a-8996-d418da52a81e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "200", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3591.088574140027`", ",", 
     RowBox[{"-", "3329.692184463666`"}], ",", "4225.22879337417`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6468.023310637927`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "98.02331063792735`"}],
  SequenceForm[
  "ii=", 200, " b=", {3591.088574140027, -3329.692184463666, 
   4225.22879337417}, "  magnitude b=", 6468.023310637927, " (R - EARTHR)=  ",
    98.02331063792735],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622133064`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"b2ab4cdd-01e6-cb47-878e-36389d231318"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "201", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3590.910313405328`", ",", 
     RowBox[{"-", "3329.659681391377`"}], ",", "4225.286765949518`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6467.9454796181`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "97.94547961809985`"}],
  SequenceForm[
  "ii=", 201, " b=", {3590.910313405328, -3329.659681391377, 
   4225.286765949518}, "  magnitude b=", 6467.9454796181, " (R - EARTHR)=  ", 
   97.94547961809985],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462214306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"385829ad-f12d-d041-857a-ebcd04e6c422"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "202", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3590.731360601893`", ",", 
     RowBox[{"-", "3329.62668724064`"}], ",", "4225.343991471159`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6467.866528203595`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "97.86652820359541`"}],
  SequenceForm[
  "ii=", 202, " b=", {3590.731360601893, -3329.62668724064, 
   4225.343991471159}, "  magnitude b=", 6467.866528203595, 
   " (R - EARTHR)=  ", 97.86652820359541],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622153053`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"e66c6ead-cc34-ce43-bd3b-54cbad731dae"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "203", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3590.5519592458036`", ",", 
     RowBox[{"-", "3329.5933666090677`"}], ",", "4225.400728437121`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6467.7868451958075`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "97.78684519580747`"}],
  SequenceForm[
  "ii=", 203, " b=", {3590.5519592458036`, -3329.5933666090677`, 
   4225.400728437121}, "  magnitude b=", 6467.7868451958075`, 
   " (R - EARTHR)=  ", 97.78684519580747],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462216305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"e1012177-3dba-d64b-beb0-dcdb91cde163"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "204", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3590.372255139068`", ",", 
     RowBox[{"-", "3329.5598236653104`"}], ",", "4225.457134168232`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6467.706667941256`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "97.70666794125555`"}],
  SequenceForm[
  "ii=", 204, " b=", {3590.372255139068, -3329.5598236653104`, 
   4225.457134168232}, "  magnitude b=", 6467.706667941256, 
   " (R - EARTHR)=  ", 97.70666794125555],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622173023`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"d7f30f28-2923-2a46-bec1-ca6dd7c89e40"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "205", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3590.1918967061197`", ",", 
     RowBox[{"-", "3329.5258267085715`"}], ",", "4225.512846254887`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6467.625445227852`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "97.62544522785174`"}],
  SequenceForm[
  "ii=", 205, " b=", {3590.1918967061197`, -3329.5258267085715`, 
   4225.512846254887}, "  magnitude b=", 6467.625445227852, 
   " (R - EARTHR)=  ", 97.62544522785174],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462219305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"dc1dfa3d-6ca8-6c49-a814-421817ebd1a1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "206", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3590.0111145778314`", ",", 
     RowBox[{"-", "3329.4915274252053`"}], ",", "4225.5681042613605`"}], 
    "}"}], "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]",
    "6467.5435396864195`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "97.54353968641954`"}],
  SequenceForm[
  "ii=", 206, " b=", {3590.0111145778314`, -3329.4915274252053`, 
   4225.5681042613605`}, "  magnitude b=", 6467.5435396864195`, 
   " (R - EARTHR)=  ", 97.54353968641954],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622203064`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"be9c6729-0ee4-c243-8aa6-3f94c0e25b42"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "207", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3589.830046605602`", ",", 
     RowBox[{"-", "3329.4570220668543`"}], ",", "4225.623054195362`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6467.461172782562`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "97.46117278256224`"}],
  SequenceForm[
  "ii=", 207, " b=", {3589.830046605602, -3329.4570220668543`, 
   4225.623054195362}, "  magnitude b=", 6467.461172782562, 
   " (R - EARTHR)=  ", 97.46117278256224],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462221306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"185b5f69-af7f-7044-bdf0-aa6c18bb62cb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "208", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3589.6483604067917`", ",", 
     RowBox[{"-", "3329.4220965443724`"}], ",", "4225.677359450654`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6467.377829886154`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "97.37782988615436`"}],
  SequenceForm[
  "ii=", 208, " b=", {3589.6483604067917`, -3329.4220965443724`, 
   4225.677359450654}, "  magnitude b=", 6467.377829886154, 
   " (R - EARTHR)=  ", 97.37782988615436],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622223053`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"7cbcfd08-2e7c-1a4b-a4dc-4ceb56d81802"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "209", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3589.4662742562296`", ",", 
     RowBox[{"-", "3329.3868907991064`"}], ",", "4225.731242287185`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6467.293849415676`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "97.29384941567605`"}],
  SequenceForm[
  "ii=", 209, " b=", {3589.4662742562296`, -3329.3868907991064`, 
   4225.731242287185}, "  magnitude b=", 6467.293849415676, 
   " (R - EARTHR)=  ", 97.29384941567605],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462224306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"4a022210-295e-264e-91c5-41b839eedaee"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "210", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3589.2839184059935`", ",", 
     RowBox[{"-", "3329.3514938467106`"}], ",", "4225.784838335978`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6467.209438112966`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "97.20943811296638`"}],
  SequenceForm[
  "ii=", 210, " b=", {3589.2839184059935`, -3329.3514938467106`, 
   4225.784838335978}, "  magnitude b=", 6467.209438112966, 
   " (R - EARTHR)=  ", 97.20943811296638],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622253056`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"20c0466f-6193-b044-850e-e9645af1138d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "211", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3589.100978837208`", ",", 
     RowBox[{"-", "3329.315707722573`"}], ",", "4225.837834721158`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6467.124115349826`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "97.12411534982584`"}],
  SequenceForm[
  "ii=", 211, " b=", {3589.100978837208, -3329.315707722573, 
   4225.837834721158}, "  magnitude b=", 6467.124115349826, 
   " (R - EARTHR)=  ", 97.12411534982584],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462226305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"5703c001-feb2-d749-8dee-e32c77821e77"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "212", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3588.917661980708`", ",", 
     RowBox[{"-", "3329.279661651085`"}], ",", "4225.890437837873`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6467.038197086066`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "97.03819708606625`"}],
  SequenceForm[
  "ii=", 212, " b=", {3588.917661980708, -3329.279661651085, 
   4225.890437837873}, "  magnitude b=", 6467.038197086066, 
   " (R - EARTHR)=  ", 97.03819708606625],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622273064`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"987fa66d-9dbe-8149-92c0-05c105b83274"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "213", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3588.734090829877`", ",", 
     RowBox[{"-", "3329.2434380182044`"}], ",", "4225.942773774822`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6466.951876385926`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "96.95187638592597`"}],
  SequenceForm[
  "ii=", 213, " b=", {3588.734090829877, -3329.2434380182044`, 
   4225.942773774822}, "  magnitude b=", 6466.951876385926, 
   " (R - EARTHR)=  ", 96.95187638592597],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462228306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"9f91955f-9cdd-4845-8ffa-9a1242775d3d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "214", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3588.549968920673`", ",", 
     RowBox[{"-", "3329.2068536580227`"}], ",", "4225.994551535984`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6466.86470428259`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "96.86470428258963`"}],
  SequenceForm[
  "ii=", 214, " b=", {3588.549968920673, -3329.2068536580227`, 
   4225.994551535984}, "  magnitude b=", 6466.86470428259, " (R - EARTHR)=  ",
    96.86470428258963],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622293053`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"cfcd590f-d321-e447-b02f-d2dad4f530ea"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "215", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3588.3654913392834`", ",", 
     RowBox[{"-", "3329.1700279888655`"}], ",", "4226.045962929367`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6466.776975857881`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "96.77697585788064`"}],
  SequenceForm[
  "ii=", 215, " b=", {3588.3654913392834`, -3329.1700279888655`, 
   4226.045962929367}, "  magnitude b=", 6466.776975857881, 
   " (R - EARTHR)=  ", 96.77697585788064],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622303047`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"569540af-5636-8849-9bc4-362e9711b02c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "216", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3587.995759917271`", ",", 
     RowBox[{"-", "3329.095839383825`"}], ",", "4226.147978156667`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6466.6002980132225`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "96.60029801322253`"}],
  SequenceForm[
  "ii=", 216, " b=", {3587.995759917271, -3329.095839383825, 
   4226.147978156667}, "  magnitude b=", 6466.6002980132225`, 
   " (R - EARTHR)=  ", 96.60029801322253],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462231306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"9aca2a43-8b00-0844-a3b2-4a0fbd4c0655"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "217", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3587.624207015607`", ",", 
     RowBox[{"-", "3329.0204854309522`"}], ",", "4226.24817664431`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6466.420841065996`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "96.42084106599577`"}],
  SequenceForm[
  "ii=", 217, " b=", {3587.624207015607, -3329.0204854309522`, 
   4226.24817664431}, "  magnitude b=", 6466.420841065996, " (R - EARTHR)=  ",
    96.42084106599577],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622323055`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"1d95f26b-28c5-1847-9629-e29bf9d2762c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "218", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3587.251326579661`", ",", 
     RowBox[{"-", "3328.9442478063556`"}], ",", "4226.347029054523`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6466.239331717359`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "96.23933171735916`"}],
  SequenceForm[
  "ii=", 218, " b=", {3587.251326579661, -3328.9442478063556`, 
   4226.347029054523}, "  magnitude b=", 6466.239331717359, 
   " (R - EARTHR)=  ", 96.23933171735916],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622343025`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"2685afa2-0d8e-a647-9e23-d94a23fb494f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "219", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3587.0645845148933`", ",", 
     RowBox[{"-", "3328.905924666687`"}], ",", "4226.396145564396`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6466.148109037061`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "96.14810903706075`"}],
  SequenceForm[
  "ii=", 219, " b=", {3587.0645845148933`, -3328.905924666687, 
   4226.396145564396}, "  magnitude b=", 6466.148109037061, 
   " (R - EARTHR)=  ", 96.14810903706075],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462235302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"a5cf8df0-2a60-544f-93a0-a9631fadee31"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "220", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3586.877297647108`", ",", 
     RowBox[{"-", "3328.8672654785937`"}], ",", "4226.444732182704`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6466.056069486723`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "96.05606948672266`"}],
  SequenceForm[
  "ii=", 220, " b=", {3586.877297647108, -3328.8672654785937`, 
   4226.444732182704}, "  magnitude b=", 6466.056069486723, 
   " (R - EARTHR)=  ", 96.05606948672266],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622363033`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"33c65553-c162-c647-83f2-a1a943ffc3a9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "221", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3586.6897217959545`", ",", 
     RowBox[{"-", "3328.8284153467193`"}], ",", "4226.493027790157`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6465.963585825031`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "95.96358582503126`"}],
  SequenceForm[
  "ii=", 221, " b=", {3586.6897217959545`, -3328.8284153467193`, 
   4226.493027790157}, "  magnitude b=", 6465.963585825031, 
   " (R - EARTHR)=  ", 95.96358582503126],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462237303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"b8995eb9-c9aa-0c49-89eb-2d0a5de9ec27"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "222", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3586.3139253448794`", ",", 
     RowBox[{"-", "3328.7502841538767`"}], ",", "4226.588965116473`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6465.77762573238`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "95.77762573238033`"}],
  SequenceForm[
  "ii=", 222, " b=", {3586.3139253448794`, -3328.7502841538767`, 
   4226.588965116473}, "  magnitude b=", 6465.77762573238, " (R - EARTHR)=  ",
    95.77762573238033],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462238306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"4b46af31-6928-c74e-936a-e183090d517f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "223", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3585.936608868085`", ",", 
     RowBox[{"-", "3328.6712203072884`"}], ",", "4226.683430859927`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6465.589399306779`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "95.58939930677934`"}],
  SequenceForm[
  "ii=", 223, " b=", {3585.936608868085, -3328.6712203072884`, 
   4226.683430859927}, "  magnitude b=", 6465.589399306779, 
   " (R - EARTHR)=  ", 95.58939930677934],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622393055`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"82828116-69cb-a645-9807-d30ad6c2af6c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "224", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3585.5581881458493`", ",", 
     RowBox[{"-", "3328.5914458348484`"}], ",", "4226.776803550151`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6465.399498940054`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "95.3994989400544`"}],
  SequenceForm[
  "ii=", 224, " b=", {3585.5581881458493`, -3328.5914458348484`, 
   4226.776803550151}, "  magnitude b=", 6465.399498940054, 
   " (R - EARTHR)=  ", 95.3994989400544],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462240305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"a9af4714-12fd-3b41-abc3-cb8360d6e3ae"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "225", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3585.368727195168`", ",", 
     RowBox[{"-", "3328.551393506318`"}], ",", "4226.823237694278`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6465.304167003614`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "95.30416700361366`"}],
  SequenceForm[
  "ii=", 225, " b=", {3585.368727195168, -3328.551393506318, 
   4226.823237694278}, "  magnitude b=", 6465.304167003614, 
   " (R - EARTHR)=  ", 95.30416700361366],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622413063`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"1c016e73-3e4a-784c-ac81-200c8a7b4c8d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "226", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3585.178812907469`", ",", 
     RowBox[{"-", "3328.5110722868417`"}], ",", "4226.869242543284`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6465.20816930245`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "95.20816930245019`"}],
  SequenceForm[
  "ii=", 226, " b=", {3585.178812907469, -3328.5110722868417`, 
   4226.869242543284}, "  magnitude b=", 6465.20816930245, " (R - EARTHR)=  ",
    95.20816930245019],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622423058`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"7d248d81-825a-be40-bcaf-39d4da262666"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "227", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3584.9886588562676`", ",", 
     RowBox[{"-", "3328.470597215055`"}], ",", "4226.91501080055`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6465.111809488233`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "95.11180948823312`"}],
  SequenceForm[
  "ii=", 227, " b=", {3584.9886588562676`, -3328.470597215055, 
   4226.91501080055}, "  magnitude b=", 6465.111809488233, " (R - EARTHR)=  ",
    95.11180948823312],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462243305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"e35cd796-2e49-7b4c-84bb-0499043d2a18"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "228", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3584.6078167339724`", ",", 
     RowBox[{"-", "3328.389298787856`"}], ",", "4227.006014755622`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6464.918280446863`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "94.91828044686281`"}],
  SequenceForm[
  "ii=", 228, " b=", {3584.6078167339724`, -3328.389298787856, 
   4227.006014755622}, "  magnitude b=", 6464.918280446863, 
   " (R - EARTHR)=  ", 94.91828044686281],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622443027`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"19f32e0e-fe0b-ab42-b967-1ec97f57b4c5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "229", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3584.2257133248645`", ",", 
     RowBox[{"-", "3328.3072523112774`"}], ",", "4227.095824971543`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6464.722905379535`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "94.7229053795354`"}],
  SequenceForm[
  "ii=", 229, " b=", {3584.2257133248645`, -3328.3072523112774`, 
   4227.095824971543}, "  magnitude b=", 6464.722905379535, 
   " (R - EARTHR)=  ", 94.7229053795354],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462245302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"858dc3ef-742c-1e4f-ad52-f7a3c44cd5c8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "230", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3583.8426962676863`", ",", 
     RowBox[{"-", "3328.2246330972357`"}], ",", "4227.184746451892`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6464.52616674896`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "94.52616674896035`"}],
  SequenceForm[
  "ii=", 230, " b=", {3583.8426962676863`, -3328.2246330972357`, 
   4227.184746451892}, "  magnitude b=", 6464.52616674896, " (R - EARTHR)=  ",
    94.52616674896035],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622463017`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"d772dd4d-3517-264c-8421-6e5e1b5a3971"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "231", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3583.4590749303716`", ",", 
     RowBox[{"-", "3328.141618959429`"}], ",", "4227.273065140608`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6464.328514611088`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "94.3285146110884`"}],
  SequenceForm[
  "ii=", 231, " b=", {3583.4590749303716`, -3328.141618959429, 
   4227.273065140608}, "  magnitude b=", 6464.328514611088, 
   " (R - EARTHR)=  ", 94.3285146110884],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622483063`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"d9130066-860b-174b-bd9e-03b7e8044e0c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "232", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3583.0742417575616`", ",", 
     RowBox[{"-", "3328.057913088584`"}], ",", "4227.360261702575`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6464.129119768581`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "94.1291197685814`"}],
  SequenceForm[
  "ii=", 232, " b=", {3583.0742417575616`, -3328.057913088584, 
   4227.360261702575}, "  magnitude b=", 6464.129119768581, 
   " (R - EARTHR)=  ", 94.1291197685814],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462249304*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"9427a23b-1002-1e40-b957-9cc6646f8d3c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "233", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3582.6886088255137`", ",", 
     RowBox[{"-", "3327.973706587584`"}], ",", "4227.446682382389`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6463.928535490802`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "93.92853549080155`"}],
  SequenceForm[
  "ii=", 233, " b=", {3582.6886088255137`, -3327.973706587584, 
   4227.446682382389}, "  magnitude b=", 6463.928535490802, 
   " (R - EARTHR)=  ", 93.92853549080155],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622503033`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"e416ddec-4753-5f4c-b78b-92248d56acc1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "234", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3582.3024482124965`", ",", 
     RowBox[{"-", "3327.889158962781`"}], ",", "4227.532579869687`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6463.727159980603`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "93.72715998060266`"}],
  SequenceForm[
  "ii=", 234, " b=", {3582.3024482124965`, -3327.889158962781, 
   4227.532579869687}, "  magnitude b=", 6463.727159980603, 
   " (R - EARTHR)=  ", 93.72715998060266],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622513065`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"c8a9f086-3de1-ab46-bdb8-53cea1c18324"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "235", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3581.915222800541`", ",", 
     RowBox[{"-", "3327.80401477151`"}], ",", "4227.617502501831`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6463.524268657112`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "93.52426865711186`"}],
  SequenceForm[
  "ii=", 235, " b=", {3581.915222800541, -3327.80401477151, 
   4227.617502501831}, "  magnitude b=", 6463.524268657112, 
   " (R - EARTHR)=  ", 93.52426865711186],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462252306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"3b1a2ab0-a1ec-5346-85fe-b861c4183044"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "236", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3581.5272960456746`", ",", 
     RowBox[{"-", "3327.7184365614903`"}], ",", "4227.701749389629`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6463.320342296491`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "93.32034229649071`"}],
  SequenceForm[
  "ii=", 236, " b=", {3581.5272960456746`, -3327.7184365614903`, 
   4227.701749389629}, "  magnitude b=", 6463.320342296491, 
   " (R - EARTHR)=  ", 93.32034229649071],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622533054`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"ca880e00-4cf3-634c-81ef-8f09f0f4cc84"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "237", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3581.138907425794`", ",", 
     RowBox[{"-", "3327.632561487851`"}], ",", "4227.785539654653`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6463.115727562519`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "93.11572756251917`"}],
  SequenceForm[
  "ii=", 237, " b=", {3581.138907425794, -3327.632561487851, 
   4227.785539654653}, "  magnitude b=", 6463.115727562519, 
   " (R - EARTHR)=  ", 93.11572756251917],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462254305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"6d3d5dd2-f102-7847-adbc-a853814d0835"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "238", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3580.7495851789263`", ",", 
     RowBox[{"-", "3327.5461722613154`"}], ",", "4227.8684837955125`"}], 
    "}"}], "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]",
    "6462.909796412244`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "92.90979641224385`"}],
  SequenceForm[
  "ii=", 238, " b=", {3580.7495851789263`, -3327.5461722613154`, 
   4227.8684837955125`}, "  magnitude b=", 6462.909796412244, 
   " (R - EARTHR)=  ", 92.90979641224385],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622553062`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"4bd2dfd4-2d08-1d4f-93ec-9aceb1c14056"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "239", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3580.3596491736876`", ",", 
     RowBox[{"-", "3327.459406822181`"}], ",", "4227.950839782959`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6462.702965872869`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "92.70296587286884`"}],
  SequenceForm[
  "ii=", 239, " b=", {3580.3596491736876`, -3327.459406822181, 
   4227.950839782959}, "  magnitude b=", 6462.702965872869, 
   " (R - EARTHR)=  ", 92.70296587286884],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462256302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f6e62322-da00-4f49-9985-5cf07cbdc4dc"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "240", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3579.9693098451617`", ",", 
     RowBox[{"-", "3327.3723829550627`"}], ",", "4228.03279740365`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6462.495537345169`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "92.4955373451694`"}],
  SequenceForm[
  "ii=", 240, " b=", {3579.9693098451617`, -3327.3723829550627`, 
   4228.03279740365}, "  magnitude b=", 6462.495537345169, " (R - EARTHR)=  ",
    92.4955373451694],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622583027`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"58b558f4-13cc-bd4a-9b64-ecef95397692"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "241", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3579.5781535502333`", ",", 
     RowBox[{"-", "3327.2849163956585`"}], ",", "4228.114021509764`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6462.28696756308`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "92.28696756308`"}],
  SequenceForm[
  "ii=", 241, " b=", {3579.5781535502333`, -3327.2849163956585`, 
   4228.114021509764}, "  magnitude b=", 6462.28696756308, " (R - EARTHR)=  ",
    92.28696756308],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622593*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"2d84f1cf-b194-fa4e-a27b-7202e1a3c770"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "242", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3579.1864612397294`", ",", 
     RowBox[{"-", "3327.197123847021`"}], ",", "4228.194734128668`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6462.0776175291385`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "92.07761752913848`"}],
  SequenceForm[
  "ii=", 242, " b=", {3579.1864612397294`, -3327.197123847021, 
   4228.194734128668}, "  magnitude b=", 6462.0776175291385`, 
   " (R - EARTHR)=  ", 92.07761752913848],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622603016`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"ac0c7b86-45fb-ac43-afd6-30f2457f18cf"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "243", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3578.4019272020696`", ",", 
     RowBox[{"-", "3327.0207933480297`"}], ",", "4228.355019202359`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6461.657208517596`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "91.65720851759579`"}],
  SequenceForm[
  "ii=", 243, " b=", {3578.4019272020696`, -3327.0207933480297`, 
   4228.355019202359}, "  magnitude b=", 6461.657208517596, 
   " (R - EARTHR)=  ", 91.65720851759579],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462261303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"7c214691-e7fe-944c-b7dd-d2918fb47d37"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "244", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3578.008589754651`", ",", 
     RowBox[{"-", "3326.9320637952574`"}], ",", "4228.434214897773`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6461.445529847419`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "91.44552984741858`"}],
  SequenceForm[
  "ii=", 244, " b=", {3578.008589754651, -3326.9320637952574`, 
   4228.434214897773}, "  magnitude b=", 6461.445529847419, 
   " (R - EARTHR)=  ", 91.44552984741858],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622623024`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"cc846145-cf4a-c541-bf4c-17b35aeea563"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "245", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3577.6149036697893`", ",", 
     RowBox[{"-", "3326.8431088999587`"}], ",", "4228.513065623505`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6461.233335543921`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "91.23333554392138`"}],
  SequenceForm[
  "ii=", 245, " b=", {3577.6149036697893`, -3326.8431088999587`, 
   4228.513065623505}, "  magnitude b=", 6461.233335543921, 
   " (R - EARTHR)=  ", 91.23333554392138],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462263302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"875c5440-f0ed-5246-a95c-246c3f36bdd8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "246", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3577.220770053874`", ",", 
     RowBox[{"-", "3326.753905174922`"}], ",", "4228.591507998741`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6461.020517288309`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "91.02051728830884`"}],
  SequenceForm[
  "ii=", 246, " b=", {3577.220770053874, -3326.753905174922, 
   4228.591507998741}, "  magnitude b=", 6461.020517288309, 
   " (R - EARTHR)=  ", 91.02051728830884],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622643013`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"a3c5a915-cccd-7445-93b2-bc2c56493511"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "247", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3576.4315761769026`", ",", 
     RowBox[{"-", "3326.574890049922`"}], ",", "4228.747466600419`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6460.59350636343`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "90.5935063634297`"}],
  SequenceForm[
  "ii=", 247, " b=", {3576.4315761769026`, -3326.574890049922, 
   4228.747466600419}, "  magnitude b=", 6460.59350636343, " (R - EARTHR)=  ",
    90.5935063634297],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622653046`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"e780aeb3-8f94-3346-89b1-8646426085c5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "248", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3575.6404618108454`", ",", 
     RowBox[{"-", "3326.394885549594`"}], ",", "4228.901743818678`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6460.163899284757`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "90.16389928475655`"}],
  SequenceForm[
  "ii=", 248, " b=", {3575.6404618108454`, -3326.394885549594, 
   4228.901743818678}, "  magnitude b=", 6460.163899284757, 
   " (R - EARTHR)=  ", 90.16389928475655],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462266302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"a42bf47e-29d0-d541-9715-c227359573a9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "249", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3574.847943149763`", ",", 
     RowBox[{"-", "3326.214031599977`"}], ",", "4229.054685483392`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6459.732280324293`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "89.73228032429324`"}],
  SequenceForm[
  "ii=", 249, " b=", {3574.847943149763, -3326.214031599977, 
   4229.054685483392}, "  magnitude b=", 6459.732280324293, 
   " (R - EARTHR)=  ", 89.73228032429324],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622673054`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"222e19dd-17fb-0a4b-b446-40931c0a2318"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "250", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3574.0541832605754`", ",", 
     RowBox[{"-", "3326.0324875968377`"}], ",", "4229.206493888418`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6459.298954327783`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "89.29895432778267`"}],
  SequenceForm[
  "ii=", 250, " b=", {3574.0541832605754`, -3326.0324875968377`, 
   4229.206493888418}, "  magnitude b=", 6459.298954327783, 
   " (R - EARTHR)=  ", 89.29895432778267],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462268305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"3e2e5cd6-ab7b-8c44-9c71-6147893ef38a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "251", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3573.25926912182`", ",", 
     RowBox[{"-", "3325.850293208198`"}], ",", "4229.357242103866`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6458.8640377805195`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "88.86403778051954`"}],
  SequenceForm[
  "ii=", 251, " b=", {3573.25926912182, -3325.850293208198, 
   4229.357242103866}, "  magnitude b=", 6458.8640377805195`, 
   " (R - EARTHR)=  ", 88.86403778051954],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462269306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"88a4c5e0-9ee0-3843-a579-b8045b2225e1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "252", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3572.463307500368`", ",", 
     RowBox[{"-", "3325.6675102822214`"}], ",", "4229.507029443708`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6458.427686712685`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "88.42768671268459`"}],
  SequenceForm[
  "ii=", 252, " b=", {3572.463307500368, -3325.6675102822214`, 
   4229.507029443708}, "  magnitude b=", 6458.427686712685, 
   " (R - EARTHR)=  ", 88.42768671268459],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622703056`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"5fb869f8-a112-9544-a0e6-4999f40394cc"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "253", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3571.666396379646`", ",", 
     RowBox[{"-", "3325.484195320444`"}], ",", "4229.655946831402`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6457.990044040009`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "87.9900440400088`"}],
  SequenceForm[
  "ii=", 253, " b=", {3571.666396379646, -3325.484195320444, 
   4229.655946831402}, "  magnitude b=", 6457.990044040009, 
   " (R - EARTHR)=  ", 87.9900440400088],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622723026`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"526aae15-74a3-6e42-8a45-e8c270fee9ff"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "254", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3570.868625315226`", ",", 
     RowBox[{"-", "3325.3003997065553`"}], ",", "4229.804077167717`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6457.551240119886`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "87.55124011988573`"}],
  SequenceForm[
  "ii=", 254, " b=", {3570.868625315226, -3325.3003997065553`, 
   4229.804077167717}, "  magnitude b=", 6457.551240119886, 
   " (R - EARTHR)=  ", 87.55124011988573],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462273302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"4439557d-c6b9-e34c-9431-de2bcb5027db"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "255", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3570.07007606885`", ",", 
     RowBox[{"-", "3325.116170130564`"}], ",", "4229.951495968081`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6457.111393738581`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "87.11139373858077`"}],
  SequenceForm[
  "ii=", 255, " b=", {3570.07007606885, -3325.116170130564, 
   4229.951495968081}, "  magnitude b=", 6457.111393738581, 
   " (R - EARTHR)=  ", 87.11139373858077],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622743015`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"eb9bbc05-65e8-3245-89d5-421db9d49dde"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "256", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3569.270823218944`", ",", 
     RowBox[{"-", "3324.931548997668`"}], ",", "4230.098271975413`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6456.670613061459`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "86.67061306145933`"}],
  SequenceForm[
  "ii=", 256, " b=", {3569.270823218944, -3324.931548997668, 
   4230.098271975413}, "  magnitude b=", 6456.670613061459, 
   " (R - EARTHR)=  ", 86.67061306145933],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462275303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"396e9bb3-e9db-834a-b61a-83b69907f681"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "257", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3568.4709347293706`", ",", 
     RowBox[{"-", "3324.7465748010977`"}], ",", "4230.24446772382`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6456.228996509334`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "86.22899650933414`"}],
  SequenceForm[
  "ii=", 257, " b=", {3568.4709347293706`, -3324.7465748010977`, 
   4230.24446772382}, "  magnitude b=", 6456.228996509334, " (R - EARTHR)=  ",
    86.22899650933414],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622763023`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"c8bc833b-e5b0-574a-b0d5-cb7eb86dd5c3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "258", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3567.670472479643`", ",", 
     RowBox[{"-", "3324.5612824633718`"}], ",", "4230.390140058463`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6455.786633568483`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "85.78663356848301`"}],
  SequenceForm[
  "ii=", 258, " b=", {3567.670472479643, -3324.5612824633718`, 
   4230.390140058463}, "  magnitude b=", 6455.786633568483, 
   " (R - EARTHR)=  ", 85.78663356848301],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462277302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"4fefcbe2-8ef0-6c46-b53d-74bfcf79311a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "259", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3566.869492758507`", ",", 
     RowBox[{"-", "3324.375703648775`"}], ",", "4230.535340615018`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6455.343605539077`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "85.34360553907663`"}],
  SequenceForm[
  "ii=", 259, " b=", {3566.869492758507, -3324.375703648775, 
   4230.535340615018}, "  magnitude b=", 6455.343605539077, 
   " (R - EARTHR)=  ", 85.34360553907663],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462278303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"c9cb0994-8522-334c-be5e-a457c32f6441"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "260", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3566.0680467228012`", ",", 
     RowBox[{"-", "3324.1898670495843`"}], ",", "4230.680116261754`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6454.899986226361`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "84.89998622636085`"}],
  SequenceForm[
  "ii=", 260, " b=", {3566.0680467228012`, -3324.1898670495843`, 
   4230.680116261754}, "  magnitude b=", 6454.899986226361, 
   " (R - EARTHR)=  ", 84.89998622636085],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622793026`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"7c298d91-a9f3-1f4f-8f11-ea03bcea90bf"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "261", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3565.2661808234425`", ",", 
     RowBox[{"-", "3324.0037986482794`"}], ",", "4230.824509507046`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6454.455842578605`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "84.45584257860537`"}],
  SequenceForm[
  "ii=", 261, " b=", {3565.2661808234425`, -3324.0037986482794`, 
   4230.824509507046}, "  magnitude b=", 6454.455842578605, 
   " (R - EARTHR)=  ", 84.45584257860537],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462280304*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"c41ad031-4953-c842-8d73-159b89145718"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "262", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3564.4639372003967`", ",", 
     RowBox[{"-", "3323.817521957763`"}], ",", "4230.968558874834`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6454.011235275547`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "84.01123527554682`"}],
  SequenceForm[
  "ii=", 262, " b=", {3564.4639372003967`, -3323.817521957763, 
   4230.968558874834}, "  magnitude b=", 6454.011235275547, 
   " (R - EARTHR)=  ", 84.01123527554682],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622813015`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"15f3367a-ac00-c744-8360-0f5a006f9c83"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "263", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3563.6613540484236`", ",", 
     RowBox[{"-", "3323.6310582414335`"}], ",", "4231.112299250403`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6453.566219270811`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "83.56621927081142`"}],
  SequenceForm[
  "ii=", 263, " b=", {3563.6613540484236`, -3323.6310582414335`, 
   4231.112299250403}, "  magnitude b=", 6453.566219270811, 
   " (R - EARTHR)=  ", 83.56621927081142],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462282305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"50cd0667-99e9-e74f-902b-3770e757746c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "264", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3562.8584659553453`", ",", 
     RowBox[{"-", "3323.4444267147646`"}], ",", "4231.255762198649`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6453.120844291572`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "83.12084429157221`"}],
  SequenceForm[
  "ii=", 264, " b=", {3562.8584659553453`, -3323.4444267147646`, 
   4231.255762198649}, "  magnitude b=", 6453.120844291572, 
   " (R - EARTHR)=  ", 83.12084429157221],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622833023`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"7aaf42d6-8ea8-a840-b21d-a2adac13d61f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "265", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3562.0553042145434`", ",", 
     RowBox[{"-", "3323.2576447299098`"}], ",", "4231.398976256835`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6452.675155298471`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "82.6751552984706`"}],
  SequenceForm[
  "ii=", 265, " b=", {3562.0553042145434`, -3323.2576447299098`, 
   4231.398976256835}, "  magnitude b=", 6452.675155298471, 
   " (R - EARTHR)=  ", 82.6751552984706],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622843037`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"7f69d5bb-3264-ba4e-9c4d-702ecec52e55"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "266", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3561.2518971132945`", ",", 
     RowBox[{"-", "3323.070727944709`"}], ",", "4231.541967203725`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6452.229192908633`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "82.2291929086332`"}],
  SequenceForm[
  "ii=", 266, " b=", {3561.2518971132945`, -3323.070727944709, 
   4231.541967203725}, "  magnitude b=", 6452.229192908633, 
   " (R - EARTHR)=  ", 82.2291929086332],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462285303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"dc19e705-5cff-9d41-9258-33bf1e4b10d4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "267", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3560.4482701985307`", ",", 
     RowBox[{"-", "3322.883690477371`"}], ",", "4231.684758306795`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6451.782993784451`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "81.78299378445081`"}],
  SequenceForm[
  "ii=", 267, " b=", {3560.4482701985307`, -3322.883690477371, 
   4231.684758306795}, "  magnitude b=", 6451.782993784451, 
   " (R - EARTHR)=  ", 81.78299378445081],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622863026`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"e400938c-b3d9-f84f-8dcd-5ab2fcd9993d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "268", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3559.6444465215104`", ",", 
     RowBox[{"-", "3322.6965450479697`"}], ",", "4231.827370549184`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6451.3365909906115`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "81.33659099061151`"}],
  SequenceForm[
  "ii=", 268, " b=", {3559.6444465215104`, -3322.6965450479697`, 
   4231.827370549184}, "  magnitude b=", 6451.3365909906115`, 
   " (R - EARTHR)=  ", 81.33659099061151],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622883015`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"15131542-f7d4-714a-b880-3535351b72eb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "269", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3558.8404468628187`", ",", 
     RowBox[{"-", "3322.5093031078422`"}], ",", "4231.969822837862`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6450.890014321685`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "80.89001432168516`"}],
  SequenceForm[
  "ii=", 269, " b=", {3558.8404468628187`, -3322.5093031078422`, 
   4231.969822837862}, "  magnitude b=", 6450.890014321685, 
   " (R - EARTHR)=  ", 80.89001432168516],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462289301*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"6dc9f10f-c2b9-a44c-98f1-0a3d0e7fe812"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "270", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3558.036289939079`", ",", 
     RowBox[{"-", "3322.3219749578357`"}], ",", "4232.112132194419`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6450.443290602466`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "80.44329060246582`"}],
  SequenceForm[
  "ii=", 270, " b=", {3558.036289939079, -3322.3219749578357`, 
   4232.112132194419}, "  magnitude b=", 6450.443290602466, 
   " (R - EARTHR)=  ", 80.44329060246582],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622903023`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f5308a22-b44e-a04c-ad33-8da1f8edecce"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "271", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3557.2319925926263`", ",", 
     RowBox[{"-", "3322.1345698563273`"}], ",", "4232.2543139297995`"}], 
    "}"}], "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]",
    "6449.99644396308`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "79.99644396308031`"}],
  SequenceForm[
  "ii=", 271, " b=", {3557.2319925926263`, -3322.1345698563273`, 
   4232.2543139297995`}, "  magnitude b=", 6449.99644396308, 
   " (R - EARTHR)=  ", 79.99644396308031],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622913017`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f00243a0-ebd2-5c43-b41c-89e9ac96726b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "272", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3556.4275699653977`", ",", 
     RowBox[{"-", "3321.94709611783`"}], ",", "4232.396381804191`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6449.549496090783`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "79.54949609078267`"}],
  SequenceForm[
  "ii=", 272, " b=", {3556.4275699653977`, -3321.94709611783, 
   4232.396381804191}, "  magnitude b=", 6449.549496090783, 
   " (R - EARTHR)=  ", 79.54949609078267],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462292303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f72ee0f0-0e82-054a-98a7-d28971f18cbd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "273", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3555.6230356581523`", ",", 
     RowBox[{"-", "3321.7595612029418`"}], ",", "4232.538348173206`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6449.102466460184`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "79.10246646018368`"}],
  SequenceForm[
  "ii=", 273, " b=", {3555.6230356581523`, -3321.7595612029418`, 
   4232.538348173206}, "  magnitude b=", 6449.102466460184, 
   " (R - EARTHR)=  ", 79.10246646018368],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622933025`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"381f61be-aaeb-da48-992e-137923d7cde8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "274", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3554.818401876143`", ",", 
     RowBox[{"-", "3321.5719718003625`"}], ",", "4232.680224121415`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6448.655372543606`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "78.65537254360606`"}],
  SequenceForm[
  "ii=", 274, " b=", {3554.818401876143, -3321.5719718003625`, 
   4232.680224121415}, "  magnitude b=", 6448.655372543606, 
   " (R - EARTHR)=  ", 78.65537254360606],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462294302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"6ad9bc10-c478-1f44-a3d1-444a2f92ebb3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "275", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3554.013679562221`", ",", 
     RowBox[{"-", "3321.3843339016007`"}], ",", "4232.822019584231`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6448.208230003084`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "78.20823000308428`"}],
  SequenceForm[
  "ii=", 275, " b=", {3554.013679562221, -3321.3843339016007`, 
   4232.822019584231}, "  magnitude b=", 6448.208230003084, 
   " (R - EARTHR)=  ", 78.20823000308428],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622953033`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"122aa6a6-bd63-6745-a9bf-00a82c319fe0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "276", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3553.2088785183523`", ",", 
     RowBox[{"-", "3321.1966528689977`"}], ",", "4232.963743459043`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6447.761052865458`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "77.76105286545771`"}],
  SequenceForm[
  "ii=", 276, " b=", {3553.2088785183523`, -3321.1966528689977`, 
   4232.963743459043}, "  magnitude b=", 6447.761052865458, 
   " (R - EARTHR)=  ", 77.76105286545771],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462296303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"a5af3ed3-86e0-5a40-b80a-bf53fbda09d5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "277", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3552.4040075164353`", ",", 
     RowBox[{"-", "3321.008933497593`"}], ",", "4233.105403706472`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6447.313853681902`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "77.3138536819024`"}],
  SequenceForm[
  "ii=", 277, " b=", {3552.4040075164353`, -3321.008933497593, 
   4233.105403706472}, "  magnitude b=", 6447.313853681902, 
   " (R - EARTHR)=  ", 77.3138536819024],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622973022`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"c5c3c275-d81a-fc4f-8ac7-80bd33697e86"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "278", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3551.5990743992616`", ",", 
     RowBox[{"-", "3320.8211800713643`"}], ",", "4233.247007442536`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6446.8666436731455`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "76.86664367314552`"}],
  SequenceForm[
  "ii=", 278, " b=", {3551.5990743992616`, -3320.8211800713643`, 
   4233.247007442536}, "  magnitude b=", 6446.8666436731455`, 
   " (R - EARTHR)=  ", 76.86664367314552],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344622983017`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"67a4e6c7-9af1-8e49-bef6-c4552f64d7ad"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "279", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3550.7940861723955`", ",", 
     RowBox[{"-", "3320.633396414307`"}], ",", "4233.3885610224615`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6446.419432861524`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "76.419432861524`"}],
  SequenceForm[
  "ii=", 279, " b=", {3550.7940861723955`, -3320.633396414307, 
   4233.3885610224615`}, "  magnitude b=", 6446.419432861524, 
   " (R - EARTHR)=  ", 76.419432861524],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623003044`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"9a8c4d46-3ebc-ef4b-a043-73f2fcb224e4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "280", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3549.989049087715`", ",", 
     RowBox[{"-", "3320.445585936781`"}], ",", "4233.53007011683`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6445.9722301909715`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "75.97223019097146`"}],
  SequenceForm[
  "ii=", 280, " b=", {3549.989049087715, -3320.445585936781, 
   4233.53007011683}, "  magnitude b=", 6445.9722301909715`, 
   " (R - EARTHR)=  ", 75.97223019097146],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462301302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"7746e010-0ce7-864c-8d16-d78679b4c25b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "281", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3549.183968719271`", ",", 
     RowBox[{"-", "3320.257751677533`"}], ",", "4233.671539780697`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6445.525043635908`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "75.52504363590833`"}],
  SequenceForm[
  "ii=", 281, " b=", {3549.183968719271, -3320.257751677533, 
   4233.671539780697}, "  magnitude b=", 6445.525043635908, 
   " (R - EARTHR)=  ", 75.52504363590833],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623023033`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"16a9e693-f28b-f040-b7ce-27431dbb688e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "282", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3548.378850032139`", ",", 
     RowBox[{"-", "3320.069896341772`"}], ",", "4233.81297451627`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6445.0778803000185`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "75.07788030001848`"}],
  SequenceForm[
  "ii=", 282, " b=", {3548.378850032139, -3320.069896341772, 
   4233.81297451627}, "  magnitude b=", 6445.0778803000185`, 
   " (R - EARTHR)=  ", 75.07788030001848],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462303303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"089e2237-f315-ba41-889a-010e98ce0492"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "283", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3547.573697444806`", ",", 
     RowBox[{"-", "3319.882022335621`"}], ",", "4233.954378329687`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6444.630746505698`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "74.63074650569797`"}],
  SequenceForm[
  "ii=", 283, " b=", {3547.573697444806, -3319.882022335621, 
   4233.954378329687}, "  magnitude b=", 6444.630746505698, 
   " (R - EARTHR)=  ", 74.63074650569797],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462304302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"e08bd0bf-fb87-ad42-ab57-489a0a8deb98"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "284", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3546.7685148856667`", ",", 
     RowBox[{"-", "3319.6941317972714`"}], ",", "4234.09575478241`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6444.183647875031`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "74.18364787503106`"}],
  SequenceForm[
  "ii=", 284, " b=", {3546.7685148856667`, -3319.6941317972714`, 
   4234.09575478241}, "  magnitude b=", 6444.183647875031, " (R - EARTHR)=  ",
    74.18364787503106],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462306303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"80bd1b6f-e39a-d049-b591-085bad1c16bf"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "285", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3545.963305844122`", ",", 
     RowBox[{"-", "3319.506226625137`"}], ",", "4234.2371070376885`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6443.736589402994`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "73.73658940299356`"}],
  SequenceForm[
  "ii=", 285, " b=", {3545.963305844122, -3319.506226625137, 
   4234.2371070376885`}, "  magnitude b=", 6443.736589402994, 
   " (R - EARTHR)=  ", 73.73658940299356],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623073025`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"b6576e07-648a-aa4e-a11b-b6b59fc1ad20"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "286", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3545.158073416759`", ",", 
     RowBox[{"-", "3319.318308503258`"}], ",", "4234.378437902533`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6443.289575523581`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "73.28957552358133`"}],
  SequenceForm[
  "ii=", 286, " b=", {3545.158073416759, -3319.318308503258, 
   4234.378437902533}, "  magnitude b=", 6443.289575523581, 
   " (R - EARTHR)=  ", 73.28957552358133],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462308302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f33f6f8d-f273-2b4b-b7fd-3ec484331c5c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "287", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3544.3528203490273`", ",", 
     RowBox[{"-", "3319.130378924207`"}], ",", "4234.519749865589`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6442.842610169472`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "72.84261016947221`"}],
  SequenceForm[
  "ii=", 287, " b=", {3544.3528203490273`, -3319.130378924207, 
   4234.519749865589}, "  magnitude b=", 6442.842610169472, 
   " (R - EARTHR)=  ", 72.84261016947221],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623093033`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"d3fca3af-8527-de43-a23d-6981934b5133"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "288", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3543.5475490728227`", ",", 
     RowBox[{"-", "3318.942439209734`"}], ",", "4234.661045131283`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6442.39569682582`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "72.39569682581987`"}],
  SequenceForm[
  "ii=", 288, " b=", {3543.5475490728227`, -3318.942439209734, 
   4234.661045131283}, "  magnitude b=", 6442.39569682582, " (R - EARTHR)=  ",
    72.39569682581987],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623103027`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"2158b3da-ce45-b74d-8378-3ac6def557e0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "289", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3542.7422617403404`", ",", 
     RowBox[{"-", "3318.7544905293307`"}], ",", "4234.802325650564`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6441.948838578671`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "71.9488385786708`"}],
  SequenceForm[
  "ii=", 289, " b=", {3542.7422617403404`, -3318.7544905293307`, 
   4234.802325650564}, "  magnitude b=", 6441.948838578671, 
   " (R - EARTHR)=  ", 71.9488385786708],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462311302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"2bdf9ed1-905d-0e4c-8d6e-854cf887fe07"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "290", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3541.936960254545`", ",", 
     RowBox[{"-", "3318.5665339169386`"}], ",", "4234.943593148574`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6441.502038158557`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "71.5020381585573`"}],
  SequenceForm[
  "ii=", 290, " b=", {3541.936960254545, -3318.5665339169386`, 
   4234.943593148574}, "  magnitude b=", 6441.502038158557, 
   " (R - EARTHR)=  ", 71.5020381585573],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623123016`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"1efe2389-a961-e944-b99a-08b1063ac01f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "291", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3541.1316462965497`", ",", 
     RowBox[{"-", "3318.378570285943`"}], ",", "4235.084849149503`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6441.0552979796375`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "71.05529797963754`"}],
  SequenceForm[
  "ii=", 291, " b=", {3541.1316462965497`, -3318.378570285943, 
   4235.084849149503}, "  magnitude b=", 6441.0552979796375`, 
   " (R - EARTHR)=  ", 71.05529797963754],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462313303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"ba9ea22c-9f2b-0c46-8c3e-4bbfa256e7e5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "292", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3540.326321350205`", ",", 
     RowBox[{"-", "3318.1906004426355`"}], ",", "4235.226094998909`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6440.608620174854`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "70.60862017485397`"}],
  SequenceForm[
  "ii=", 292, " b=", {3540.326321350205, -3318.1906004426355`, 
   4235.226094998909}, "  magnitude b=", 6440.608620174854, 
   " (R - EARTHR)=  ", 70.60862017485397],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623143063`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"7d9602b2-bd56-c64b-b95d-1b6b89f4eafe"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "293", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3539.520986724159`", ",", 
     RowBox[{"-", "3318.00262509827`"}], ",", "4235.367331883741`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6440.162006627455`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "70.16200662745541`"}],
  SequenceForm[
  "ii=", 293, " b=", {3539.520986724159, -3318.00262509827, 
   4235.367331883741}, "  magnitude b=", 6440.162006627455, 
   " (R - EARTHR)=  ", 70.16200662745541],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623153057`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f822dc1e-fa6c-c34d-9152-cc31f892b51b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "294", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3538.7156435716206`", ",", 
     RowBox[{"-", "3317.814644879878`"}], ",", "4235.508560850266`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6439.71545899924`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "69.71545899923967`"}],
  SequenceForm[
  "ii=", 294, " b=", {3538.7156435716206`, -3317.814644879878, 
   4235.508560850266}, "  magnitude b=", 6439.71545899924, " (R - EARTHR)=  ",
    69.71545899923967],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462316305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"2e11b8ea-2a01-6b4f-bd9b-d92723e96781"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "295", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3537.9102929080495`", ",", 
     RowBox[{"-", "3317.6266603399167`"}], ",", "4235.649782820126`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6439.268978755825`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "69.26897875582472`"}],
  SequenceForm[
  "ii=", 295, " b=", {3537.9102929080495`, -3317.6266603399167`, 
   4235.649782820126}, "  magnitude b=", 6439.268978755825, 
   " (R - EARTHR)=  ", 69.26897875582472],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462318306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"4ef4da7a-d083-b447-9f4c-05ce8f7a4863"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "296", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3537.1049356269746`", ",", 
     RowBox[{"-", "3317.4386719649187`"}], ",", "4235.790998604684`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6438.822567189248`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "68.82256718924782`"}],
  SequenceForm[
  "ii=", 296, " b=", {3537.1049356269746`, -3317.4386719649187`, 
   4235.790998604684}, "  magnitude b=", 6438.822567189248, 
   " (R - EARTHR)=  ", 68.82256718924782],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623193054`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f78b13b3-5ef5-a44f-88ef-6db30d31f11c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "297", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3536.2995725141222`", ",", 
     RowBox[{"-", "3317.2506801831873`"}], ",", "4235.93220891784`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6438.376225438132`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "68.37622543813177`"}],
  SequenceForm[
  "ii=", 297, " b=", {3536.2995725141222`, -3317.2506801831873`, 
   4235.93220891784}, "  magnitude b=", 6438.376225438132, " (R - EARTHR)=  ",
    68.37622543813177],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462320305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"226f3768-6bb3-f14a-99ae-ed2340b6a006"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "298", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3535.4942042600187`", ",", 
     RowBox[{"-", "3317.0626853716785`"}], ",", "4236.073414387463`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6437.929954505688`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "67.92995450568833`"}],
  SequenceForm[
  "ii=", 298, " b=", {3535.4942042600187`, -3317.0626853716785`, 
   4236.073414387463}, "  magnitude b=", 6437.929954505688, 
   " (R - EARTHR)=  ", 67.92995450568833],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623213024`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"c320a0ca-7d3e-b542-85ff-3b1c26d05f21"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "299", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3534.688831471227`", ",", 
     RowBox[{"-", "3316.874687862116`"}], ",", "4236.214615565584`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6437.48375527576`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "67.4837552757599`"}],
  SequenceForm[
  "ii=", 299, " b=", {3534.688831471227, -3316.874687862116, 
   4236.214615565584}, "  magnitude b=", 6437.48375527576, " (R - EARTHR)=  ",
    67.4837552757599],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462322302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"893b2de0-1568-914c-9d6d-7e6620cbd9cd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "300", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3533.883454680345`", ",", 
     RowBox[{"-", "3316.6866879464437`"}], ",", "4236.355812937452`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6437.037628527083`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "67.03762852708314`"}],
  SequenceForm[
  "ii=", 300, " b=", {3533.883454680345, -3316.6866879464437`, 
   4236.355812937452}, "  magnitude b=", 6437.037628527083, 
   " (R - EARTHR)=  ", 67.03762852708314],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462323303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"d1761eaf-7f28-ab48-96ac-ef3dda680cf3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "301", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3533.078074354898`", ",", 
     RowBox[{"-", "3316.4986858816615`"}], ",", "4236.497006929616`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6436.591574945989`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "66.59157494598912`"}],
  SequenceForm[
  "ii=", 301, " b=", {3533.078074354898, -3316.4986858816615`, 
   4236.497006929616}, "  magnitude b=", 6436.591574945989, 
   " (R - EARTHR)=  ", 66.59157494598912],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623243027`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"1b4e0f1d-2343-bb40-9697-01512d58a40d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "302", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3532.2726909052367`", ",", 
     RowBox[{"-", "3316.310681894126`"}], ",", "4236.638197917068`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6436.1455951376665`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "66.14559513766653`"}],
  SequenceForm[
  "ii=", 302, " b=", {3532.2726909052367`, -3316.310681894126, 
   4236.638197917068}, "  magnitude b=", 6436.1455951376665`, 
   " (R - EARTHR)=  ", 66.14559513766653],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462325302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"3da7c59a-afef-5342-b85f-7831a2885768"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "303", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3531.4673046915445`", ",", 
     RowBox[{"-", "3316.1226761833577`"}], ",", "4236.779386229605`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6435.699689636159`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "65.69968963615884`"}],
  SequenceForm[
  "ii=", 303, " b=", {3531.4673046915445`, -3316.1226761833577`, 
   4236.779386229605}, "  magnitude b=", 6435.699689636159, 
   " (R - EARTHR)=  ", 65.69968963615884],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623263016`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"7ef7c563-99ed-474a-9931-da7c41ec8164"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "304", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3530.661916030043`", ",", 
     RowBox[{"-", "3315.9346689254166`"}], ",", "4236.920572157453`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6435.25385891322`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "65.25385891322003`"}],
  SequenceForm[
  "ii=", 304, " b=", {3530.661916030043, -3315.9346689254166`, 
   4236.920572157453}, "  magnitude b=", 6435.25385891322, " (R - EARTHR)=  ",
    65.25385891322003],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462327303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"baae8739-7fa4-4c4a-902a-fa19eb9f1122"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "305", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3529.8565251984855`", ",", 
     RowBox[{"-", "3315.746660275883`"}], ",", "4237.061755956245`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6434.808103386147`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "64.8081033861472`"}],
  SequenceForm[
  "ii=", 305, " b=", {3529.8565251984855`, -3315.746660275883, 
   4237.061755956245}, "  magnitude b=", 6434.808103386147, 
   " (R - EARTHR)=  ", 64.8081033861472],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623283024`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"49ea8d70-975e-4045-ac67-c0c714eb225d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "306", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3529.0511324410154`", ",", 
     RowBox[{"-", "3315.558650372493`"}], ",", "4237.202937851427`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6434.362423424705`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "64.36242342470541`"}],
  SequenceForm[
  "ii=", 306, " b=", {3529.0511324410154`, -3315.558650372493, 
   4237.202937851427}, "  magnitude b=", 6434.362423424705, 
   " (R - EARTHR)=  ", 64.36242342470541],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623293037`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"dc20430c-6395-bd40-bea5-a5ecd0b349fe"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "307", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3528.245737972442`", ",", 
     RowBox[{"-", "3315.3706393374587`"}], ",", "4237.344118042122`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6433.916819357221`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "63.91681935722136`"}],
  SequenceForm[
  "ii=", 307, " b=", {3528.245737972442, -3315.3706393374587`, 
   4237.344118042122}, "  magnitude b=", 6433.916819357221, 
   " (R - EARTHR)=  ", 63.91681935722136],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462330305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"a1373cf0-763b-0949-9d03-d1600a50d412"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "308", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3527.4403419820155`", ",", 
     RowBox[{"-", "3315.1826272795092`"}], ",", "4237.485296704561`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6433.471291475964`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "63.47129147596388`"}],
  SequenceForm[
  "ii=", 308, " b=", {3527.4403419820155`, -3315.1826272795092`, 
   4237.485296704561}, "  magnitude b=", 6433.471291475964, 
   " (R - EARTHR)=  ", 63.47129147596388],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462332304*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"ea2f950d-effc-2740-9a22-cf4b9ef784fb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "309", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3526.634944636743`", ",", 
     RowBox[{"-", "3314.9946142956837`"}], ",", "4237.626473995072`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6433.025840041862`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "63.02584004186156`"}],
  SequenceForm[
  "ii=", 309, " b=", {3526.634944636743, -3314.9946142956837`, 
   4237.626473995072}, "  magnitude b=", 6433.025840041862, 
   " (R - EARTHR)=  ", 63.02584004186156],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623333054`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"b1b0e562-4824-c24e-ae7a-7efe7bcb36f0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "310", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3525.8295460842965`", ",", 
     RowBox[{"-", "3314.8066004728944`"}], ",", "4237.767650052716`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6432.580465288637`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "62.58046528863724`"}],
  SequenceForm[
  "ii=", 310, " b=", {3525.8295460842965`, -3314.8066004728944`, 
   4237.767650052716}, "  magnitude b=", 6432.580465288637, 
   " (R - EARTHR)=  ", 62.58046528863724],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462334305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"437bdf4a-c1ed-0247-835e-159f8e258bdb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "311", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3525.0241464555543`", ",", 
     RowBox[{"-", "3314.618585889299`"}], ",", "4237.908825001581`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6432.135167426425`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "62.13516742642514`"}],
  SequenceForm[
  "ii=", 311, " b=", {3525.0241464555543`, -3314.618585889299, 
   4237.908825001581}, "  magnitude b=", 6432.135167426425, 
   " (R - EARTHR)=  ", 62.13516742642514],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462335306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"bc24873c-1504-0546-8fbf-7adec9b0c023"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "312", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3524.218745866822`", ",", 
     RowBox[{"-", "3314.4305706154814`"}], ",", "4238.049998952779`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6431.689946644911`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "61.68994664491129`"}],
  SequenceForm[
  "ii=", 312, " b=", {3524.218745866822, -3314.4305706154814`, 
   4238.049998952779}, "  magnitude b=", 6431.689946644911, 
   " (R - EARTHR)=  ", 61.68994664491129],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623363056`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"e37b364b-9895-1b49-8511-452429320be8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "313", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3523.4133444217587`", ",", 
     RowBox[{"-", "3314.2425547154785`"}], ",", "4238.191172006179`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6431.244803116067`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "61.24480311606658`"}],
  SequenceForm[
  "ii=", 313, " b=", {3523.4133444217587`, -3314.2425547154785`, 
   4238.191172006179}, "  magnitude b=", 6431.244803116067, 
   " (R - EARTHR)=  ", 61.24480311606658],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462337305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"1453a2a2-92d7-b543-94e8-596d516be994"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "314", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3522.6079422130415`", ",", 
     RowBox[{"-", "3314.0545382476544`"}], ",", "4238.332344251901`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6430.799736996488`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "60.79973699648781`"}],
  SequenceForm[
  "ii=", 314, " b=", {3522.6079422130415`, -3314.0545382476544`, 
   4238.332344251901}, "  magnitude b=", 6430.799736996488, 
   " (R - EARTHR)=  ", 60.79973699648781],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623383064`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"efad3945-d129-cb43-ab59-b8f0dc5f3e08"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "315", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3521.8025393237976`", ",", 
     RowBox[{"-", "3313.8665212654423`"}], ",", "4238.473515771585`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6430.354748429407`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "60.354748429406754`"}],
  SequenceForm[
  "ii=", 315, " b=", {3521.8025393237976`, -3313.8665212654423`, 
   4238.473515771585}, "  magnitude b=", 6430.354748429407, 
   " (R - EARTHR)=  ", 60.354748429406754`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462339302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"4d2b5df4-fa96-844e-bfc2-ea6f8c332b6e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "316", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3520.9971358288317`", ",", 
     RowBox[{"-", "3313.6785038179783`"}], ",", "4238.614686639479`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6429.909837546409`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "59.90983754640911`"}],
  SequenceForm[
  "ii=", 316, " b=", {3520.9971358288317`, -3313.6785038179783`, 
   4238.614686639479}, "  magnitude b=", 6429.909837546409, 
   " (R - EARTHR)=  ", 59.90983754640911],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623403015`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"182b71df-3a22-0148-b62d-face85bd817e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "317", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3520.191731795659`", ",", 
     RowBox[{"-", "3313.4904859506087`"}], ",", "4238.755856923345`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6429.465004468854`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "59.465004468854204`"}],
  SequenceForm[
  "ii=", 317, " b=", {3520.191731795659, -3313.4904859506087`, 
   4238.755856923345}, "  magnitude b=", 6429.465004468854, 
   " (R - EARTHR)=  ", 59.465004468854204`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462341303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"98eb18bc-a405-7249-b6d4-e75bf93e20fe"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "318", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3519.3863272853728`", ",", 
     RowBox[{"-", "3313.302467705317`"}], ",", "4238.897026685206`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6429.020249309069`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "59.020249309069186`"}],
  SequenceForm[
  "ii=", 318, " b=", {3519.3863272853728`, -3313.302467705317, 
   4238.897026685206}, "  magnitude b=", 6429.020249309069, 
   " (R - EARTHR)=  ", 59.020249309069186`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623423023`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"a3c06491-f525-6946-a57a-7f65368053bf"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "319", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3518.580922353378`", ",", 
     RowBox[{"-", "3313.114449121056`"}], ",", "4239.038195981965`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6428.575572171328`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "58.57557217132762`"}],
  SequenceForm[
  "ii=", 319, " b=", {3518.580922353378, -3313.114449121056, 
   4239.038195981965}, "  magnitude b=", 6428.575572171328, 
   " (R - EARTHR)=  ", 58.57557217132762],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462344303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"0d1d5c4e-9df3-3d43-b029-053dfd4e6413"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "320", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3517.7755170499786`", ",", 
     RowBox[{"-", "3312.926430234007`"}], ",", "4239.179364865899`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6428.130973152626`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "58.13097315262621`"}],
  SequenceForm[
  "ii=", 320, " b=", {3517.7755170499786`, -3312.926430234007, 
   4239.179364865899}, "  magnitude b=", 6428.130973152626, 
   " (R - EARTHR)=  ", 58.13097315262621],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623453026`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"3eab2e22-f0fa-df47-b136-ac53c1f1c328"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "321", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3516.970111420867`", ",", 
     RowBox[{"-", "3312.7384110777753`"}], ",", "4239.320533385044`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6427.6864523433205`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "57.686452343320525`"}],
  SequenceForm[
  "ii=", 321, " b=", {3516.970111420867, -3312.7384110777753`, 
   4239.320533385044}, "  magnitude b=", 6427.6864523433205`, 
   " (R - EARTHR)=  ", 57.686452343320525`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623463*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"4d09124b-5154-e247-8e9d-a808474502fe"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "322", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3516.1647055075164`", ",", 
     RowBox[{"-", "3312.550391683529`"}], ",", "4239.461701583501`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6427.242009827601`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "57.24200982760067`"}],
  SequenceForm[
  "ii=", 322, " b=", {3516.1647055075164`, -3312.550391683529, 
   4239.461701583501}, "  magnitude b=", 6427.242009827601, 
   " (R - EARTHR)=  ", 57.24200982760067],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623473034`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"42f2f830-e355-b144-b089-7b026a330352"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "323", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3515.359299347501`", ",", 
     RowBox[{"-", "3312.3623720801`"}], ",", "4239.602869501669`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6426.797645683879`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "56.79764568387873`"}],
  SequenceForm[
  "ii=", 323, " b=", {3515.359299347501, -3312.3623720801, 4239.602869501669},
    "  magnitude b=", 6426.797645683879, " (R - EARTHR)=  ", 
   56.79764568387873],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623483047`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"0e53d6ca-5e25-954b-adb9-198b2cb2a603"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "324", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3514.553892974754`", ",", 
     RowBox[{"-", "3312.1743522940483`"}], ",", "4239.744037176428`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6426.353359985083`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "56.35335998508344`"}],
  SequenceForm[
  "ii=", 324, " b=", {3514.553892974754, -3312.1743522940483`, 
   4239.744037176428}, "  magnitude b=", 6426.353359985083, 
   " (R - EARTHR)=  ", 56.35335998508344],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462349306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"411372f0-23f8-cf45-b6e4-2151f85657b8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "325", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3513.748486419789`", ",", 
     RowBox[{"-", "3311.9863323497148`"}], ",", "4239.88520464128`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6425.909152798902`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "55.90915279890214`"}],
  SequenceForm[
  "ii=", 325, " b=", {3513.748486419789, -3311.9863323497148`, 
   4239.88520464128}, "  magnitude b=", 6425.909152798902, " (R - EARTHR)=  ",
    55.90915279890214],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623503056`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"0601c5d6-2d70-4d4e-8b70-2f4afae8e347"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "326", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3512.9430797098903`", ",", 
     RowBox[{"-", "3311.798312269255`"}], ",", "4240.026371926482`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6425.465024187988`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "55.46502418798809`"}],
  SequenceForm[
  "ii=", 326, " b=", {3512.9430797098903`, -3311.798312269255, 
   4240.026371926482}, "  magnitude b=", 6425.465024187988, 
   " (R - EARTHR)=  ", 55.46502418798809],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462351305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"bcfe691c-a786-f242-8641-6d58b142317a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "327", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3512.1376728692903`", ",", 
     RowBox[{"-", "3311.610292072686`"}], ",", "4240.167539059157`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6425.020974210158`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "55.020974210157874`"}],
  SequenceForm[
  "ii=", 327, " b=", {3512.1376728692903`, -3311.610292072686, 
   4240.167539059157}, "  magnitude b=", 6425.020974210158, 
   " (R - EARTHR)=  ", 55.020974210157874`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623523064`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"d2d7be0e-8f1b-354b-995a-2116e7f236f3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "328", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3511.332265919341`", ",", 
     RowBox[{"-", "3311.422271777932`"}], ",", "4240.308706063426`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6424.577002918593`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "54.57700291859328`"}],
  SequenceForm[
  "ii=", 328, " b=", {3511.332265919341, -3311.422271777932, 
   4240.308706063426}, "  magnitude b=", 6424.577002918593, 
   " (R - EARTHR)=  ", 54.57700291859328],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462353306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"25e258ef-56b7-6447-abca-25f59b13656b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "329", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3510.5268588786957`", ",", 
     RowBox[{"-", "3311.2342514008947`"}], ",", "4240.449872960539`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6424.133110362069`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "54.13311036206869`"}],
  SequenceForm[
  "ii=", 329, " b=", {3510.5268588786957`, -3311.2342514008947`, 
   4240.449872960539}, "  magnitude b=", 6424.133110362069, 
   " (R - EARTHR)=  ", 54.13311036206869],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623553047`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"9917e793-78bf-8849-a972-b64a4e37d477"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "330", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3509.721451763496`", ",", 
     RowBox[{"-", "3311.0462309555314`"}], ",", "4240.5910397690395`"}], 
    "}"}], "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]",
    "6423.689296585192`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "53.689296585192096`"}],
  SequenceForm[
  "ii=", 330, " b=", {3509.721451763496, -3311.0462309555314`, 
   4240.5910397690395`}, "  magnitude b=", 6423.689296585192, 
   " (R - EARTHR)=  ", 53.689296585192096`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623563023`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"d281f7d6-d92b-2a48-ab19-24e40d6170eb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "331", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3508.9160445875636`", ",", 
     RowBox[{"-", "3310.8582104539632`"}], ",", "4240.732206504932`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6423.245561628688`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "53.24556162868794`"}],
  SequenceForm[
  "ii=", 331, " b=", {3508.9160445875636`, -3310.8582104539632`, 
   4240.732206504932}, "  magnitude b=", 6423.245561628688, 
   " (R - EARTHR)=  ", 53.24556162868794],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623573017`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"263fbfac-3f6c-ea41-936c-d4ddda170519"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "332", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3508.1106373626158`", ",", 
     RowBox[{"-", "3310.6701899066015`"}], ",", "4240.873373181885`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6422.801905529708`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "52.801905529708165`"}],
  SequenceForm[
  "ii=", 332, " b=", {3508.1106373626158`, -3310.6701899066015`, 
   4240.873373181885}, "  magnitude b=", 6422.801905529708, 
   " (R - EARTHR)=  ", 52.801905529708165`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462358303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"4de3006b-1b33-1540-9814-21cb8e3ff219"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "333", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3507.305230098473`", ",", 
     RowBox[{"-", "3310.4821693222816`"}], ",", "4241.014539811441`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6422.358328322152`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "52.358328322152374`"}],
  SequenceForm[
  "ii=", 333, " b=", {3507.305230098473, -3310.4821693222816`, 
   4241.014539811441}, "  magnitude b=", 6422.358328322152, 
   " (R - EARTHR)=  ", 52.358328322152374`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623593044`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"e7562f09-053c-6e43-85d9-74bb430c1fac"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "334", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3506.4998228032764`", ",", 
     RowBox[{"-", "3310.2941487084167`"}], ",", "4241.155706403235`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6421.914830037013`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "51.91483003701342`"}],
  SequenceForm[
  "ii=", 334, " b=", {3506.4998228032764`, -3310.2941487084167`, 
   4241.155706403235}, "  magnitude b=", 6421.914830037013, 
   " (R - EARTHR)=  ", 51.91483003701342],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462360304*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"67d49236-a25c-104b-9d05-36d9c9a92de2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "335", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3505.6944154837`", ",", 
     RowBox[{"-", "3310.106128071155`"}], ",", "4241.296872965218`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6421.4714107027185`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "51.47141070271846`"}],
  SequenceForm[
  "ii=", 335, " b=", {3505.6944154837, -3310.106128071155, 4241.296872965218},
    "  magnitude b=", 6421.4714107027185`, " (R - EARTHR)=  ", 
   51.47141070271846],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623613033`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f6358b78-7e68-5046-bee1-fa7d2bdb9a6e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "336", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3504.889008145156`", ",", 
     RowBox[{"-", "3309.9181074155335`"}], ",", "4241.43803950388`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6421.028070345471`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "51.02807034547095`"}],
  SequenceForm[
  "ii=", 336, " b=", {3504.889008145156, -3309.9181074155335`, 
   4241.43803950388}, "  magnitude b=", 6421.028070345471, " (R - EARTHR)=  ",
    51.02807034547095],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623623047`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"d3071925-c26c-af46-8c93-e803c0da63e9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "337", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3504.083600791983`", ",", 
     RowBox[{"-", "3309.730086745636`"}], ",", "4241.579206024456`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6420.584808989571`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "50.584808989570774`"}],
  SequenceForm[
  "ii=", 337, " b=", {3504.083600791983, -3309.730086745636, 
   4241.579206024456}, "  magnitude b=", 6420.584808989571, 
   " (R - EARTHR)=  ", 50.584808989570774`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462363302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f8ecabd1-51bf-1b4d-a5ca-4ead800ca2e1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "338", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3503.278193427625`", ",", 
     RowBox[{"-", "3309.5420660647337`"}], ",", "4241.720372531126`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6420.141626657713`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "50.14162665771255`"}],
  SequenceForm[
  "ii=", 338, " b=", {3503.278193427625, -3309.5420660647337`, 
   4241.720372531126}, "  magnitude b=", 6420.141626657713, 
   " (R - EARTHR)=  ", 50.14162665771255],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623643017`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"bafac2a7-e81b-aa44-9e2e-9b40db078747"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "339", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3502.472786054791`", ",", 
     RowBox[{"-", "3309.354045375423`"}], ",", "4241.861539027192`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6419.698523371267`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "49.698523371266674`"}],
  SequenceForm[
  "ii=", 339, " b=", {3502.472786054791, -3309.354045375423, 
   4241.861539027192}, "  magnitude b=", 6419.698523371267, 
   " (R - EARTHR)=  ", 49.698523371266674`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623663044`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"d54b23e0-8610-2e4a-8a7e-73d3e2bc2df3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "340", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3501.6673786755814`", ",", 
     RowBox[{"-", "3309.166024679737`"}], ",", "4242.002705515234`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6419.255499150503`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "49.255499150503056`"}],
  SequenceForm[
  "ii=", 340, " b=", {3501.6673786755814`, -3309.166024679737, 
   4242.002705515234}, "  magnitude b=", 6419.255499150503, 
   " (R - EARTHR)=  ", 49.255499150503056`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462367304*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"cb905c0c-7f36-ff4d-989a-b8d126c9c9d2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "341", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3500.861971291618`", ",", 
     RowBox[{"-", "3308.978003979256`"}], ",", "4242.143871997251`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6418.812554014817`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "48.81255401481667`"}],
  SequenceForm[
  "ii=", 341, " b=", {3500.861971291618, -3308.978003979256, 
   4242.143871997251}, "  magnitude b=", 6418.812554014817, 
   " (R - EARTHR)=  ", 48.81255401481667],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462368305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"78ba6691-c6a6-e14a-841c-8224ac077f2e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "342", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3500.0565639041383`", ",", 
     RowBox[{"-", "3308.7899832751978`"}], ",", "4242.285038474774`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6418.369687982895`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "48.3696879828949`"}],
  SequenceForm[
  "ii=", 342, " b=", {3500.0565639041383`, -3308.7899832751978`, 
   4242.285038474774}, "  magnitude b=", 6418.369687982895, 
   " (R - EARTHR)=  ", 48.3696879828949],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623693047`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"c3ef2a60-bb74-6540-9e3a-5e2774d6e83d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "343", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3499.25115651408`", ",", 
     RowBox[{"-", "3308.601962568487`"}], ",", "4242.42620494897`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6417.926901072877`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "47.92690107287672`"}],
  SequenceForm[
  "ii=", 343, " b=", {3499.25115651408, -3308.601962568487, 4242.42620494897},
    "  magnitude b=", 6417.926901072877, " (R - EARTHR)=  ", 
   47.92690107287672],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462370306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"3c10840e-0f23-bc41-996b-3e21ed82b77c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "344", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3498.4457491221447`", ",", 
     RowBox[{"-", "3308.4139418598265`"}], ",", "4242.567371420716`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6417.484193302463`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "47.4841933024627`"}],
  SequenceForm[
  "ii=", 344, " b=", {3498.4457491221447`, -3308.4139418598265`, 
   4242.567371420716}, "  magnitude b=", 6417.484193302463, 
   " (R - EARTHR)=  ", 47.4841933024627],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623713055`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f93cbeeb-fdbd-3949-bf8a-7d5946d211bf"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "345", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3497.640341728856`", ",", 
     RowBox[{"-", "3308.2259211497403`"}], ",", "4242.708537890669`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6417.041564689025`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "47.04156468902511`"}],
  SequenceForm[
  "ii=", 345, " b=", {3497.640341728856, -3308.2259211497403`, 
   4242.708537890669}, "  magnitude b=", 6417.041564689025, 
   " (R - EARTHR)=  ", 47.04156468902511],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462372305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"2ff7c248-e6ed-7f4e-8015-ea33cc3ed30f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "346", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3496.8349343346035`", ",", 
     RowBox[{"-", "3308.03790043862`"}], ",", "4242.849704359314`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6416.599015249681`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "46.59901524968063`"}],
  SequenceForm[
  "ii=", 346, " b=", {3496.8349343346035`, -3308.03790043862, 
   4242.849704359314}, "  magnitude b=", 6416.599015249681, 
   " (R - EARTHR)=  ", 46.59901524968063],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623743057`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"5172aac6-ddb5-384a-85e5-74b6c7d04777"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "347", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3496.0295269396693`", ",", 
     RowBox[{"-", "3307.8498797267534`"}], ",", "4242.990870827012`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6416.156545001351`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "46.15654500135133`"}],
  SequenceForm[
  "ii=", 347, " b=", {3496.0295269396693`, -3307.8498797267534`, 
   4242.990870827012}, "  magnitude b=", 6416.156545001351, 
   " (R - EARTHR)=  ", 46.15654500135133],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462375305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"71c8c9fc-47ce-aa43-9457-b7f24d255999"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "348", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3495.2241195442602`", ",", 
     RowBox[{"-", "3307.6618590143507`"}], ",", "4243.1320372940245`"}], 
    "}"}], "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]",
    "6415.7141539608165`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "45.714153960816475`"}],
  SequenceForm[
  "ii=", 348, " b=", {3495.2241195442602`, -3307.6618590143507`, 
   4243.1320372940245`}, "  magnitude b=", 6415.7141539608165`, 
   " (R - EARTHR)=  ", 45.714153960816475`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623763065`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"fe5d2593-2876-6740-a777-5c22934139c3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "349", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3494.418712148527`", ",", 
     RowBox[{"-", "3307.473838301567`"}], ",", "4243.273203760541`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6415.271842144752`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "45.271842144751645`"}],
  SequenceForm[
  "ii=", 349, " b=", {3494.418712148527, -3307.473838301567, 
   4243.273203760541}, "  magnitude b=", 6415.271842144752, 
   " (R - EARTHR)=  ", 45.271842144751645`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462377306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"630745eb-53c0-d54e-ad85-61447bc90c53"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "350", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3493.6133047525786`", ",", 
     RowBox[{"-", "3307.2858175885117`"}], ",", "4243.414370226699`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6414.829609569751`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "44.82960956975057`"}],
  SequenceForm[
  "ii=", 350, " b=", {3493.6133047525786`, -3307.2858175885117`, 
   4243.414370226699}, "  magnitude b=", 6414.829609569751, 
   " (R - EARTHR)=  ", 44.82960956975057],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623783054`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"bb301f3c-43e1-fb42-abe9-a01b01259095"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "351", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3492.8078973564916`", ",", 
     RowBox[{"-", "3307.097796875266`"}], ",", "4243.555536692597`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6414.3874562523515`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "44.38745625235151`"}],
  SequenceForm[
  "ii=", 351, " b=", {3492.8078973564916`, -3307.097796875266, 
   4243.555536692597}, "  magnitude b=", 6414.3874562523515`, 
   " (R - EARTHR)=  ", 44.38745625235151],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623803024`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"16fd281b-4b27-eb47-8242-c3e59cf99255"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "352", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3492.002489960321`", ",", 
     RowBox[{"-", "3306.909776161887`"}], ",", "4243.696703158305`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6413.945382209051`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "43.94538220905088`"}],
  SequenceForm[
  "ii=", 352, " b=", {3492.002489960321, -3306.909776161887, 
   4243.696703158305}, "  magnitude b=", 6413.945382209051, 
   " (R - EARTHR)=  ", 43.94538220905088],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462381302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"fc31f0fb-fc43-9a41-a6b2-f10062a4311e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "353", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3024.08678838221`"}], ",", "3069.9896223348496`", ",", 
     "4691.157939687012`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6370.`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "0.`"}],
  SequenceForm[
  "ii=", 353, " b=", {-3024.08678838221, 3069.9896223348496`, 
   4691.157939687012}, "  magnitude b=", 6370., " (R - EARTHR)=  ", 0.],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462382303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"8fc8f7c1-0acd-524a-bf5e-3cc9e416ee03"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "354", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3452.9286705135924`", ",", 
     RowBox[{"-", "3312.0555889520647`"}], ",", "4291.138836708652`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6426.997832882213`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "56.997832882212606`"}],
  SequenceForm[
  "ii=", 354, " b=", {3452.9286705135924`, -3312.0555889520647`, 
   4291.138836708652}, "  magnitude b=", 6426.997832882213, 
   " (R - EARTHR)=  ", 56.997832882212606`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623833027`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f213c003-6280-2b4c-902a-6dec1e3a9dde"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "355", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3452.516219066545`", ",", 
     RowBox[{"-", "3312.388241708417`"}], ",", "4292.0079428005065`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6427.528007546009`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "57.528007546008666`"}],
  SequenceForm[
  "ii=", 355, " b=", {3452.516219066545, -3312.388241708417, 
   4292.0079428005065`}, "  magnitude b=", 6427.528007546009, 
   " (R - EARTHR)=  ", 57.528007546008666`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462384304*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"77cc3c44-c968-3f4c-826f-6efb5758866f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "356", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3452.1038028167573`", ",", 
     RowBox[{"-", "3312.7209339615806`"}], ",", "4292.87703844326`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6428.0583319477255`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "58.05833194772549`"}],
  SequenceForm[
  "ii=", 356, " b=", {3452.1038028167573`, -3312.7209339615806`, 
   4292.87703844326}, "  magnitude b=", 6428.0583319477255`, 
   " (R - EARTHR)=  ", 58.05833194772549],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623853054`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"3164bc94-01a2-9442-a731-f165df595535"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "357", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3451.6913783681157`", ",", 
     RowBox[{"-", "3313.0536170860114`"}], ",", "4293.746135906821`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6428.588765880288`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "58.58876588028761`"}],
  SequenceForm[
  "ii=", 357, " b=", {3451.6913783681157`, -3313.0536170860114`, 
   4293.746135906821}, "  magnitude b=", 6428.588765880288, 
   " (R - EARTHR)=  ", 58.58876588028761],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462386305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"c7987b7a-994b-6740-a7fd-26ac4d11140c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "358", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3451.278953498564`", ",", 
     RowBox[{"-", "3313.3862997930883`"}], ",", "4294.615232779659`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6429.119316371548`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "59.11931637154794`"}],
  SequenceForm[
  "ii=", 358, " b=", {3451.278953498564, -3313.3862997930883`, 
   4294.615232779659}, "  magnitude b=", 6429.119316371548, 
   " (R - EARTHR)=  ", 59.11931637154794],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462387306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"3fd48910-b403-4e44-9b8d-a236730700c5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "359", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3450.866528121767`", ",", 
     RowBox[{"-", "3313.718982005193`"}], ",", "4295.4843289487135`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6429.649983230555`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "59.649983230555335`"}],
  SequenceForm[
  "ii=", 359, " b=", {3450.866528121767, -3313.718982005193, 
   4295.4843289487135`}, "  magnitude b=", 6429.649983230555, 
   " (R - EARTHR)=  ", 59.649983230555335`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462389303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"1d523137-d851-a34a-beee-a02495bc8332"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "360", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3450.454102125064`", ",", 
     RowBox[{"-", "3314.051663612198`"}], ",", "4296.35342425609`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6430.180766205526`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "60.1807662055262`"}],
  SequenceForm[
  "ii=", 360, " b=", {3450.454102125064, -3314.051663612198, 
   4296.35342425609}, "  magnitude b=", 6430.180766205526, " (R - EARTHR)=  ",
    60.1807662055262],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623903027`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"e739199d-8a56-6942-a027-faa68ce2e403"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "361", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3450.04167537301`", ",", 
     RowBox[{"-", "3314.384344481543`"}], ",", "4297.222518511665`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6430.711664999349`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "60.71166499934861`"}],
  SequenceForm[
  "ii=", 361, " b=", {3450.04167537301, -3314.384344481543, 
   4297.222518511665}, "  magnitude b=", 6430.711664999349, 
   " (R - EARTHR)=  ", 60.71166499934861],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462391302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"a915f30b-d751-964d-8b68-eadce69104fd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "362", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3449.6292477032384`", ",", 
     RowBox[{"-", "3314.7170244542654`"}], ",", "4298.09161148735`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6431.242679261488`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "61.242679261487865`"}],
  SequenceForm[
  "ii=", 362, " b=", {3449.6292477032384`, -3314.7170244542654`, 
   4298.09161148735}, "  magnitude b=", 6431.242679261488, " (R - EARTHR)=  ",
    61.242679261487865`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623923016`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"4d0070b4-19ba-6349-ad87-f71c364bb419"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "363", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3449.216818921457`", ",", 
     RowBox[{"-", "3315.0497033400834`"}], ",", "4298.9607029100125`"}], 
    "}"}], "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]",
    "6431.773808578034`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "61.77380857803382`"}],
  SequenceForm[
  "ii=", 363, " b=", {3449.216818921457, -3315.0497033400834`, 
   4298.9607029100125`}, "  magnitude b=", 6431.773808578034, 
   " (R - EARTHR)=  ", 61.77380857803382],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623933067`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"16b80a10-f1ba-1641-910f-0577a89cee50"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "364", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3448.80438879557`", ",", 
     RowBox[{"-", "3315.382380911624`"}], ",", "4299.829792453157`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6432.30505246001`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "62.3050524600103`"}],
  SequenceForm[
  "ii=", 364, " b=", {3448.80438879557, -3315.382380911624, 
   4299.829792453157}, "  magnitude b=", 6432.30505246001, " (R - EARTHR)=  ",
    62.3050524600103],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462395302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"4f29feb4-5841-974d-a7ca-89cd94ec2411"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "365", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3448.3919570487806`", ",", 
     RowBox[{"-", "3315.7150568976303`"}], ",", "4300.698879727155`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6432.836410329644`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "62.83641032964442`"}],
  SequenceForm[
  "ii=", 365, " b=", {3448.3919570487806`, -3315.7150568976303`, 
   4300.698879727155}, "  magnitude b=", 6432.836410329644, 
   " (R - EARTHR)=  ", 62.83641032964442],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462396303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"a63cddf2-c2a2-7e4b-846d-8b7a77f04d79"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "366", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3447.9795233514983`", ",", 
     RowBox[{"-", "3316.0477309750163`"}], ",", "4301.56796426779`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6433.367881504268`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "63.36788150426764`"}],
  SequenceForm[
  "ii=", 366, " b=", {3447.9795233514983`, -3316.0477309750163`, 
   4301.56796426779}, "  magnitude b=", 6433.367881504268, " (R - EARTHR)=  ",
    63.36788150426764],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623973026`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"a5e589bb-1ddc-c847-aaae-64f53a0664a5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "367", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3447.567087311895`", ",", 
     RowBox[{"-", "3316.380402759564`"}], ",", "4302.43704552286`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6433.899465177506`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "63.89946517750559`"}],
  SequenceForm[
  "ii=", 367, " b=", {3447.567087311895, -3316.380402759564, 
   4302.43704552286}, "  magnitude b=", 6433.899465177506, " (R - EARTHR)=  ",
    63.89946517750559],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462398302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"7c68849e-06aa-604e-bd4d-b84e694b727c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "368", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3447.1546484648684`", ",", 
     RowBox[{"-", "3316.7130717950713`"}], ",", "4303.306122836537`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6434.431160397295`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "64.43116039729466`"}],
  SequenceForm[
  "ii=", 368, " b=", {3447.1546484648684`, -3316.7130717950713`, 
   4303.306122836537}, "  magnitude b=", 6434.431160397295, 
   " (R - EARTHR)=  ", 64.43116039729466],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344623993034`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"a1ab6154-26d1-014c-a028-67184129b476"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "369", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3446.7422062591904`", ",", 
     RowBox[{"-", "3317.045737540699`"}], ",", "4304.175195431126`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6434.962966040283`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "64.96296604028339`"}],
  SequenceForm[
  "ii=", 369, " b=", {3446.7422062591904`, -3317.045737540699, 
   4304.175195431126}, "  magnitude b=", 6434.962966040283, 
   " (R - EARTHR)=  ", 64.96296604028339],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462400305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"c3a6a62f-09d8-7a4f-b7b4-9950023b2cf9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "370", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3446.329760042562`", ",", 
     RowBox[{"-", "3317.378399356254`"}], ",", "4305.044262385854`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6435.49488078204`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "65.49488078204013`"}],
  SequenceForm[
  "ii=", 370, " b=", {3446.329760042562, -3317.378399356254, 
   4305.044262385854}, "  magnitude b=", 6435.49488078204, " (R - EARTHR)=  ",
    65.49488078204013],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462401306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"90ff7a47-d710-cb49-9855-4f83b6172f2a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "371", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3445.9173090442614`", ",", 
     RowBox[{"-", "3317.711056485098`"}], ",", "4305.913322612224`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6436.0269030624595`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "66.0269030624595`"}],
  SequenceForm[
  "ii=", 371, " b=", {3445.9173090442614`, -3317.711056485098, 
   4305.913322612224}, "  magnitude b=", 6436.0269030624595`, 
   " (R - EARTHR)=  ", 66.0269030624595],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462403305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"ba2ddee8-5a20-c244-a34e-b3d14c912ead"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "372", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3445.504852355035`", ",", 
     RowBox[{"-", "3318.0437080343345`"}], ",", "4306.782374825439`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6436.559031045655`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "66.55903104565459`"}],
  SequenceForm[
  "ii=", 372, " b=", {3445.504852355035, -3318.0437080343345`, 
   4306.782374825439}, "  magnitude b=", 6436.559031045655, 
   " (R - EARTHR)=  ", 66.55903104565459],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624043026`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"653699ec-02cd-ff47-af96-893a0e02e98e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "373", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3445.092388903823`", ",", 
     RowBox[{"-", "3318.3763529518747`"}], ",", "4307.65141751132`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6437.091262573533`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "67.09126257353273`"}],
  SequenceForm[
  "ii=", 373, " b=", {3445.092388903823, -3318.3763529518747`, 
   4307.65141751132}, "  magnitude b=", 6437.091262573533, " (R - EARTHR)=  ",
    67.09126257353273],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462405302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"9353bb83-78b6-f846-ac72-acfaf95dde70"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "374", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3444.6799174308876`", ",", 
     RowBox[{"-", "3318.708989999939`"}], ",", "4308.5204488880845`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6437.6235951121635`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "67.62359511216346`"}],
  SequenceForm[
  "ii=", 374, " b=", {3444.6799174308876`, -3318.708989999939, 
   4308.5204488880845`}, "  magnitude b=", 6437.6235951121635`, 
   " (R - EARTHR)=  ", 67.62359511216346],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462407305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"70650b37-354b-8142-88b9-828b2b8ee1e8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "375", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3444.267436456808`", ",", 
     RowBox[{"-", "3319.041617724488`"}], ",", "4309.389466862232`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6438.156025689895`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "68.1560256898947`"}],
  SequenceForm[
  "ii=", 375, " b=", {3444.267436456808, -3319.041617724488, 
   4309.389466862232}, "  magnitude b=", 6438.156025689895, 
   " (R - EARTHR)=  ", 68.1560256898947],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462408306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"c8b4a0be-a531-814a-80a3-989148980a48"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "376", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3443.854944246789`", ",", 
     RowBox[{"-", "3319.3742344200127`"}], ",", "4310.258468977742`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6438.68855082608`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "68.68855082608025`"}],
  SequenceForm[
  "ii=", 376, " b=", {3443.854944246789, -3319.3742344200127`, 
   4310.258468977742}, "  magnitude b=", 6438.68855082608, " (R - EARTHR)=  ",
    68.68855082608025],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624093056`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"c544e984-3709-624a-90d8-0d15da2ca0e3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "377", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3443.442438769622`", ",", 
     RowBox[{"-", "3319.706838089046`"}], ",", "4311.127452357639`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6439.221166449132`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "69.2211664491324`"}],
  SequenceForm[
  "ii=", 377, " b=", {3443.442438769622, -3319.706838089046, 
   4311.127452357639}, "  magnitude b=", 6439.221166449132, 
   " (R - EARTHR)=  ", 69.2211664491324],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462410305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"6990369a-ac33-bd4a-95bc-eeae3af2713b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "378", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3443.0299176505905`", ",", 
     RowBox[{"-", "3320.039426395684`"}], ",", "4311.996413636912`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6439.753867802433`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "69.75386780243298`"}],
  SequenceForm[
  "ii=", 378, " b=", {3443.0299176505905`, -3320.039426395684, 
   4311.996413636912}, "  magnitude b=", 6439.753867802433, 
   " (R - EARTHR)=  ", 69.75386780243298],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624113064`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"57ff3359-04d4-1149-b22a-33c9a126f8d0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "379", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3442.6173781174934`", ",", 
     RowBox[{"-", "3320.3719966122967`"}], ",", "4312.865348885601`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6440.286649336488`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "70.28664933648815`"}],
  SequenceForm[
  "ii=", 379, " b=", {3442.6173781174934`, -3320.3719966122967`, 
   4312.865348885601}, "  magnitude b=", 6440.286649336488, 
   " (R - EARTHR)=  ", 70.28664933648815],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462412306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"ef399fa1-1da7-e64f-8470-5d17f14c913d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "380", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3442.204816938875`", ",", 
     RowBox[{"-", "3320.7045455585467`"}], ",", "4313.734253520784`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6440.819504585492`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "70.81950458549181`"}],
  SequenceForm[
  "ii=", 380, " b=", {3442.204816938875, -3320.7045455585467`, 
   4313.734253520784}, "  magnitude b=", 6440.819504585492, 
   " (R - EARTHR)=  ", 70.81950458549181],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624133015`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"2c004dad-43f7-ff44-bf47-08c9b61d1ef0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "381", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3441.792230353469`", ",", 
     RowBox[{"-", "3321.037069531704`"}], ",", "4314.603122206`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6441.3524260263075`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "71.35242602630751`"}],
  SequenceForm[
  "ii=", 381, " b=", {3441.792230353469, -3321.037069531704, 4314.603122206}, 
   "  magnitude b=", 6441.3524260263075`, " (R - EARTHR)=  ", 
   71.35242602630751],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462414303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"7e3c41fb-b527-9147-a84e-e7cf356e3e7f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "382", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3441.379613989698`", ",", 
     RowBox[{"-", "3321.3695642271327`"}], ",", "4315.4719487365`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6441.885404917555`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "71.8854049175552`"}],
  SequenceForm[
  "ii=", 382, " b=", {3441.379613989698, -3321.3695642271327`, 
   4315.4719487365}, "  magnitude b=", 6441.885404917555, " (R - EARTHR)=  ", 
   71.8854049175552],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624163017`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"b9403ebb-4c15-f841-8218-c60348b714dd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "383", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3440.9669627739895`", ",", 
     RowBox[{"-", "3321.7020246477095`"}], ",", "4316.340725908551`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6442.418431116339`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "72.41843111633898`"}],
  SequenceForm[
  "ii=", 383, " b=", {3440.9669627739895`, -3321.7020246477095`, 
   4316.340725908551}, "  magnitude b=", 6442.418431116339, 
   " (R - EARTHR)=  ", 72.41843111633898],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462417303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"5b3128d3-b26b-a343-97d2-f60aa42c9712"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "384", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3440.5542708264893`", ",", 
     RowBox[{"-", "3322.0344450007947`"}], ",", "4317.209445370795`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6442.951492869781`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "72.95149286978085`"}],
  SequenceForm[
  "ii=", 384, " b=", {3440.5542708264893`, -3322.0344450007947`, 
   4317.209445370795}, "  magnitude b=", 6442.951492869781, 
   " (R - EARTHR)=  ", 72.95149286978085],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624183044`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"76a4533b-3f0f-5b42-b970-ad7e02da413a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "385", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3440.1415313426437`", ",", 
     RowBox[{"-", "3322.3668185812076`"}], ",", "4318.078097455489`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6443.484576578324`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "73.48457657832387`"}],
  SequenceForm[
  "ii=", 385, " b=", {3440.1415313426437`, -3322.3668185812076`, 
   4318.078097455489}, "  magnitude b=", 6443.484576578324, 
   " (R - EARTHR)=  ", 73.48457657832387],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462419304*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"8a89694a-c39a-2244-b6eb-3a2ed3d3aa62"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "386", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3439.7287364588997`", ",", 
     RowBox[{"-", "3322.6991376385217`"}], ",", "4318.946670987188`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6444.017666527321`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "74.01766652732113`"}],
  SequenceForm[
  "ii=", 386, " b=", {3439.7287364588997`, -3322.6991376385217`, 
   4318.946670987188}, "  magnitude b=", 6444.017666527321, 
   " (R - EARTHR)=  ", 74.01766652732113],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624203033`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"ca72090d-335c-ba4e-9ef7-f373dc4ddabe"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "387", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3439.3158771006397`", ",", 
     RowBox[{"-", "3323.031393226797`"}], ",", "4319.815153066222`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6444.550744583203`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "74.55074458320269`"}],
  SequenceForm[
  "ii=", 387, " b=", {3439.3158771006397`, -3323.031393226797, 
   4319.815153066222}, "  magnitude b=", 6444.550744583203, 
   " (R - EARTHR)=  ", 74.55074458320269],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462422304*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"994f6d07-cee5-6a40-885d-84330b4532fc"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "388", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3438.9029428102417`", ",", 
     RowBox[{"-", "3323.363575034677`"}], ",", "4320.683528824039`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6445.083789850025`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "75.08378985002491`"}],
  SequenceForm[
  "ii=", 388, " b=", {3438.9029428102417`, -3323.363575034677, 
   4320.683528824039}, "  magnitude b=", 6445.083789850025, 
   " (R - EARTHR)=  ", 75.08378985002491],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624233017`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"bdfdaaa7-e497-1d40-9e24-0b56df9e5fd4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "389", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3438.489921552928`", ",", 
     RowBox[{"-", "3323.6956711935763`"}], ",", "4321.551781147202`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6445.616778281853`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "75.61677828185293`"}],
  SequenceForm[
  "ii=", 389, " b=", {3438.489921552928, -3323.6956711935763`, 
   4321.551781147202}, "  magnitude b=", 6445.616778281853, 
   " (R - EARTHR)=  ", 75.61677828185293],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462424303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"2b8c18f2-8fc2-2e4f-b5f5-e93e128d42da"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "390", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3438.0767994978723`", ",", 
     RowBox[{"-", "3324.0276680614497`"}], ",", "4322.41989036655`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6446.14968224598`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "76.14968224598033`"}],
  SequenceForm[
  "ii=", 390, " b=", {3438.0767994978723`, -3324.0276680614497`, 
   4322.41989036655}, "  magnitude b=", 6446.14968224598, " (R - EARTHR)=  ", 
   76.14968224598033],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624253025`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"90866622-51d8-664b-a1d2-ba9f2c007de4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "391", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3437.6635607717185`", ",", 
     RowBox[{"-", "3324.359549979399`"}], ",", "4323.287833907703`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6446.682470031488`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "76.68247003148826`"}],
  SequenceForm[
  "ii=", 391, " b=", {3437.6635607717185`, -3324.359549979399, 
   4323.287833907703}, "  magnitude b=", 6446.682470031488, 
   " (R - EARTHR)=  ", 76.68247003148826],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462426302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"2e055862-42be-624d-8fc4-fb21121a63b8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "392", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3437.2501871814434`", ",", 
     RowBox[{"-", "3324.691298998095`"}], ",", "4324.1555858987795`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6447.21510529718`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "77.21510529718034`"}],
  SequenceForm[
  "ii=", 392, " b=", {3437.2501871814434`, -3324.691298998095, 
   4324.1555858987795`}, "  magnitude b=", 6447.21510529718, 
   " (R - EARTHR)=  ", 77.21510529718034],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624273033`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"9edb8a3b-aac7-9744-ae64-d95cb905f4bd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "393", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3436.8366579031403`", ",", 
     RowBox[{"-", "3325.022894570731`"}], ",", "4325.023116730832`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6447.74754645236`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "77.74754645236044`"}],
  SequenceForm[
  "ii=", 393, " b=", {3436.8366579031403`, -3325.022894570731, 
   4325.023116730832}, "  magnitude b=", 6447.74754645236, " (R - EARTHR)=  ",
    77.74754645236044],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462428303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"992caca7-cd1b-1040-92ea-27d4cad4b583"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "394", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3436.422949133021`", ",", 
     RowBox[{"-", "3325.354313208911`"}], ",", "4325.890392566206`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6448.279745963399`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "78.27974596339936`"}],
  SequenceForm[
  "ii=", 394, " b=", {3436.422949133021, -3325.354313208911, 
   4325.890392566206}, "  magnitude b=", 6448.279745963399, 
   " (R - EARTHR)=  ", 78.27974596339936],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462429302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"47618a71-9f3e-c94c-b907-459914d359c0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "395", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3436.0090336965145`", ",", 
     RowBox[{"-", "3325.6855280975465`"}], ",", "4326.757374789605`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6448.811649578373`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "78.81164957837336`"}],
  SequenceForm[
  "ii=", 395, " b=", {3436.0090336965145`, -3325.6855280975465`, 
   4326.757374789605}, "  magnitude b=", 6448.811649578373, 
   " (R - EARTHR)=  ", 78.81164957837336],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624303036`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"44d39dff-3498-fa40-9ed8-5850432ed0f6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "396", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3435.594880611012`", ",", 
     RowBox[{"-", "3326.0165086644806`"}], ",", "4327.624019396361`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6449.343195461502`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "79.34319546150164`"}],
  SequenceForm[
  "ii=", 396, " b=", {3435.594880611012, -3326.0165086644806`, 
   4327.624019396361}, "  magnitude b=", 6449.343195461502, 
   " (R - EARTHR)=  ", 79.34319546150164],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462431303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"d06344da-436c-6844-8c7d-42edcd2d091e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "397", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3435.180454597312`", ",", 
     RowBox[{"-", "3326.347220100217`"}], ",", "4328.490276312004`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6449.874313228391`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "79.87431322839075`"}],
  SequenceForm[
  "ii=", 397, " b=", {3435.180454597312, -3326.347220100217, 
   4328.490276312004}, "  magnitude b=", 6449.874313228391, 
   " (R - EARTHR)=  ", 79.87431322839075],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624323063`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"bdab6fc6-ac58-e241-86a5-0ce08a551594"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "398", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3434.7657155343954`", ",", 
     RowBox[{"-", "3326.6776228226718`"}], ",", "4329.356088636926`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6450.404922872457`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "80.40492287245706`"}],
  SequenceForm[
  "ii=", 398, " b=", {3434.7657155343954`, -3326.6776228226718`, 
   4329.356088636926}, "  magnitude b=", 6450.404922872457, 
   " (R - EARTHR)=  ", 80.40492287245706],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462433304*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"34c73cde-fec7-df47-a666-b645d8579459"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "399", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3434.3506178515845`", ",", 
     RowBox[{"-", "3327.0076718814607`"}], ",", "4330.221391809615`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6450.93493357213`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "80.93493357212992`"}],
  SequenceForm[
  "ii=", 399, " b=", {3434.3506178515845`, -3327.0076718814607`, 
   4330.221391809615}, "  magnitude b=", 6450.93493357213, " (R - EARTHR)=  ",
    80.93493357212992],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624343033`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"40e80a64-9d0a-044b-b33f-f2999601d8bb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "400", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3433.9351098515613`", ",", 
     RowBox[{"-", "3327.3373162957287`"}], ",", "4331.086112681642`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6451.464242367704`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "81.46424236770417`"}],
  SequenceForm[
  "ii=", 400, " b=", {3433.9351098515613`, -3327.3373162957287`, 
   4331.086112681642}, "  magnitude b=", 6451.464242367704, 
   " (R - EARTHR)=  ", 81.46424236770417],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624353027`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"2362d233-f7aa-ee4b-99d0-067dd30d9ab8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "401", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3433.5191329570466`", ",", 
     RowBox[{"-", "3327.6664983189935`"}], ",", "4331.950168497384`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6451.99273269594`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "81.9927326959396`"}],
  SequenceForm[
  "ii=", 401, " b=", {3433.5191329570466`, -3327.6664983189935`, 
   4331.950168497384}, "  magnitude b=", 6451.99273269594, " (R - EARTHR)=  ",
    81.9927326959396],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462436302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"bdda14bd-7f7b-964e-b3b7-1d4531fd0909"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "402", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3433.102620873107`", ",", 
     RowBox[{"-", "3327.995152623835`"}], ",", "4332.813465771254`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6452.520272769567`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "82.52027276956687`"}],
  SequenceForm[
  "ii=", 402, " b=", {3433.102620873107, -3327.995152623835, 
   4332.813465771254}, "  magnitude b=", 6452.520272769567, 
   " (R - EARTHR)=  ", 82.52027276956687],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624373016`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"300526be-f5af-454d-aa6e-9ac4151c9313"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "403", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3432.6854986561752`", ",", 
     RowBox[{"-", "3328.323205398555`"}], ",", "4333.675899055175`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6453.046713788037`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "83.04671378803687`"}],
  SequenceForm[
  "ii=", 403, " b=", {3432.6854986561752`, -3328.323205398555, 
   4333.675899055175}, "  magnitude b=", 6453.046713788037, 
   " (R - EARTHR)=  ", 83.04671378803687],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462438303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"1f7cce87-e0dc-8f4f-a39a-da43d7a15fec"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "404", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3432.267681679657`", ",", 
     RowBox[{"-", "3328.650573347042`"}], ",", "4334.537349588961`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6453.571887964675`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "83.57188796467472`"}],
  SequenceForm[
  "ii=", 404, " b=", {3432.267681679657, -3328.650573347042, 
   4334.537349588961}, "  magnitude b=", 6453.571887964675, 
   " (R - EARTHR)=  ", 83.57188796467472],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624393024`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"fec64c8b-7cdd-0744-b063-b0bb33424193"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "405", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3431.849074484676`", ",", 
     RowBox[{"-", "3328.9771625819926`"}], ",", "4335.397683826424`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6454.095606354255`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "84.09560635425532`"}],
  SequenceForm[
  "ii=", 405, " b=", {3431.849074484676, -3328.9771625819926`, 
   4335.397683826424}, "  magnitude b=", 6454.095606354255, 
   " (R - EARTHR)=  ", 84.09560635425532],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624413033`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"7d627e55-d413-d140-b299-6ee4c206ab54"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "406", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3431.4295695026385`", ",", 
     RowBox[{"-", "3329.3028674002276`"}], ",", "4336.256751830206`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6454.6176564634325`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "84.61765646343247`"}],
  SequenceForm[
  "ii=", 406, " b=", {3431.4295695026385`, -3329.3028674002276`, 
   4336.256751830206}, "  magnitude b=", 6454.6176564634325`, 
   " (R - EARTHR)=  ", 84.61765646343247],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624423027`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"39b526a4-b37b-0b47-af94-ea2469a4fec1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "407", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3431.0090456340295`", ",", 
     RowBox[{"-", "3329.627568926993`"}], ",", "4337.11438552861`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6455.137799624453`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "85.13779962445278`"}],
  SequenceForm[
  "ii=", 407, " b=", {3431.0090456340295`, -3329.627568926993, 
   4337.11438552861}, "  magnitude b=", 6455.137799624453, " (R - EARTHR)=  ",
    85.13779962445278],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462443302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"61903ac3-eee3-0440-9ac5-1643d17d8090"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "408", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3430.5873666647003`", ",", 
     RowBox[{"-", "3329.9511336135583`"}], ",", "4337.970396828145`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6455.655768109929`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "85.65576810992934`"}],
  SequenceForm[
  "ii=", 408, " b=", {3430.5873666647003`, -3329.9511336135583`, 
   4337.970396828145}, "  magnitude b=", 6455.655768109929, 
   " (R - EARTHR)=  ", 85.65576810992934],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624443016`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"5763bf03-bc95-4049-8f5b-e18393117b6c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "409", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3430.1643794967486`", ",", 
     RowBox[{"-", "3330.27341156885`"}], ",", "4338.824575575812`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6456.17126196257`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "86.17126196256959`"}],
  SequenceForm[
  "ii=", 409, " b=", {3430.1643794967486`, -3330.27341156885, 
   4338.824575575812}, "  magnitude b=", 6456.17126196257, " (R - EARTHR)=  ",
    86.17126196256959],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462445303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"e55da967-624e-6a45-982c-ef8eaba2d130"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "410", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3429.739912165136`", ",", 
     RowBox[{"-", "3330.5942347006912`"}], ",", "4339.676687365488`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6456.683945508212`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "86.68394550821176`"}],
  SequenceForm[
  "ii=", 410, " b=", {3429.739912165136, -3330.5942347006912`, 
   4339.676687365488}, "  magnitude b=", 6456.683945508212, 
   " (R - EARTHR)=  ", 86.68394550821176],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624463024`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"5d341bd8-66f4-684e-b046-9774ea845bf0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "411", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3429.3137716030346`", ",", 
     RowBox[{"-", "3330.9134146347274`"}], ",", "4340.526471182702`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6457.193443512248`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "87.19344351224845`"}],
  SequenceForm[
  "ii=", 411, " b=", {3429.3137716030346`, -3330.9134146347274`, 
   4340.526471182702}, "  magnitude b=", 6457.193443512248, 
   " (R - EARTHR)=  ", 87.19344351224845],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462447302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"597418a8-76d8-9743-9d8f-b820af8adbbe"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "412", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3428.885741106976`", ",", 
     RowBox[{"-", "3331.2307403680215`"}], ",", "4341.373636881372`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6457.699336927061`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "87.69933692706127`"}],
  SequenceForm[
  "ii=", 412, " b=", {3428.885741106976, -3331.2307403680215`, 
   4341.373636881372}, "  magnitude b=", 6457.699336927061, 
   " (R - EARTHR)=  ", 87.69933692706127],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462448303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"e861c018-bab6-2846-adcd-3183d611cac9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "413", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3428.4555774359533`", ",", 
     RowBox[{"-", "3331.545975597866`"}], ",", "4342.217862484107`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6458.201158159297`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "88.20115815929694`"}],
  SequenceForm[
  "ii=", 413, " b=", {3428.4555774359533`, -3331.545975597866, 
   4342.217862484107}, "  magnitude b=", 6458.201158159297, 
   " (R - EARTHR)=  ", 88.20115815929694],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624493027`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"8cc94221-6559-ff4b-aeea-febcc513a627"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "414", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3428.023007453916`", ",", 
     RowBox[{"-", "3331.8588556417076`"}], ",", "4343.058791293578`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6458.698385757296`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "88.69838575729591`"}],
  SequenceForm[
  "ii=", 414, " b=", {3428.023007453916, -3331.8588556417076`, 
   4343.058791293578}, "  magnitude b=", 6458.698385757296, 
   " (R - EARTHR)=  ", 88.69838575729591],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462450302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"94f2dd19-adc9-ad42-ba4c-2ffeace42387"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "415", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3427.5877241895714`", ",", 
     RowBox[{"-", "3332.169083827505`"}], ",", "4343.896028794754`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6459.190438376137`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "89.19043837613663`"}],
  SequenceForm[
  "ii=", 415, " b=", {3427.5877241895714`, -3332.169083827505, 
   4343.896028794754}, "  magnitude b=", 6459.190438376137, 
   " (R - EARTHR)=  ", 89.19043837613663],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624513054`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"7a4dd6f6-8e21-f942-bec1-2451db9d1002"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "416", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3427.149382136642`", ",", 
     RowBox[{"-", "3332.4763271796187`"}], ",", "4344.729139314693`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6459.676667814135`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "89.67666781413482`"}],
  SequenceForm[
  "ii=", 416, " b=", {3427.149382136642, -3332.4763271796187`, 
   4344.729139314693}, "  magnitude b=", 6459.676667814135, 
   " (R - EARTHR)=  ", 89.67666781413482],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624533024`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"a7180f1f-ff62-3143-978e-2b7c89a19471"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "417", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3426.7075915479413`", ",", 
     RowBox[{"-", "3332.780211147485`"}], ",", "4345.5576423854545`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6460.156350823345`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "90.15635082334484`"}],
  SequenceForm[
  "ii=", 417, " b=", {3426.7075915479413`, -3332.780211147485, 
   4345.5576423854545`}, "  magnitude b=", 6460.156350823345, 
   " (R - EARTHR)=  ", 90.15635082334484],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462454302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"80a052d2-3d87-4b46-bbf0-1ff645f1c720"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "418", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3426.261911387614`", ",", 
     RowBox[{"-", "3333.080313017996`"}], ",", "4346.381008724627`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6460.628679273848`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "90.62867927384832`"}],
  SequenceForm[
  "ii=", 418, " b=", {3426.261911387614, -3333.080313017996, 
   4346.381008724627}, "  magnitude b=", 6460.628679273848, 
   " (R - EARTHR)=  ", 90.62867927384832],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624553013`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"5a68c0e5-7cd3-c24c-ad2d-7ead980c1cde"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "419", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3425.8118405134674`", ",", 
     RowBox[{"-", "3333.3761535250437`"}], ",", "4347.198655708472`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6461.092748110433`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "91.0927481104327`"}],
  SequenceForm[
  "ii=", 419, " b=", {3425.8118405134674`, -3333.3761535250437`, 
   4347.198655708472}, "  magnitude b=", 6461.092748110433, 
   " (R - EARTHR)=  ", 91.0927481104327],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624563007`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"60daba85-78e8-0044-b90b-7d8672a1d466"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "420", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3425.356806627387`", ",", 
     RowBox[{"-", "3333.6671860675515`"}], ",", "4348.0099421803`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6461.547540448097`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "91.5475404480967`"}],
  SequenceForm[
  "ii=", 420, " b=", {3425.356806627387, -3333.6671860675515`, 
   4348.0099421803}, "  magnitude b=", 6461.547540448097, " (R - EARTHR)=  ", 
   91.5475404480967],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462457302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"2bf442d7-1215-d040-a0a5-bbcdc7cc9224"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "421", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3424.8961527388515`", ",", 
     RowBox[{"-", "3333.952783027664`"}], ",", "4348.814162467384`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6461.991909324878`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "91.99190932487818`"}],
  SequenceForm[
  "ii=", 421, " b=", {3424.8961527388515`, -3333.952783027664, 
   4348.814162467384}, "  magnitude b=", 6461.991909324878, 
   " (R - EARTHR)=  ", 91.99190932487818],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624583015`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"bdf5f2e3-256b-e149-85e4-0e680a9ab084"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "422", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3424.429121784673`", ",", 
     RowBox[{"-", "3334.2322193623113`"}], ",", "4349.610539731663`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6462.424556627756`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "92.42455662775592`"}],
  SequenceForm[
  "ii=", 422, " b=", {3424.429121784673, -3334.2322193623113`, 
   4349.610539731663}, "  magnitude b=", 6462.424556627756, 
   " (R - EARTHR)=  ", 92.42455662775592],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462459303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"ef7c17aa-18ff-094a-a4b0-6f2bdd100386"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "423", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3423.9548425468925`", ",", 
     RowBox[{"-", "3334.504655830141`"}], ",", "4350.398219617666`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6462.844012724256`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "92.84401272425566`"}],
  SequenceForm[
  "ii=", 423, " b=", {3423.9548425468925`, -3334.504655830141, 
   4350.398219617666}, "  magnitude b=", 6462.844012724256, 
   " (R - EARTHR)=  ", 92.84401272425566],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624603024`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"fdaa6c5d-db3b-9f4c-a863-8e8b6bf319ff"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "424", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3423.4723253227276`", ",", 
     RowBox[{"-", "3334.7691292671952`"}], ",", "4351.176267199618`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6463.248627122842`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "93.24862712284175`"}],
  SequenceForm[
  "ii=", 424, " b=", {3423.4723253227276`, -3334.7691292671952`, 
   4351.176267199618}, "  magnitude b=", 6463.248627122842, 
   " (R - EARTHR)=  ", 93.24862712284175],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462461302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"6df0737c-8b84-6c49-b1ed-2ca57df85d9a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "425", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3422.980483580707`", ",", 
     RowBox[{"-", "3335.024565420203`"}], ",", "4351.9436737962415`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6463.63659117882`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "93.6365911788198`"}],
  SequenceForm[
  "ii=", 425, " b=", {3422.980483580707, -3335.024565420203, 
   4351.9436737962415`}, "  magnitude b=", 6463.63659117882, 
   " (R - EARTHR)=  ", 93.6365911788198],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462462303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"bf93d22a-7b53-9340-afb6-0f9c99ff5ae3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "426", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3422.4782010857366`", ",", 
     RowBox[{"-", "3335.2698349300867`"}], ",", "4352.699383301367`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6464.006020270535`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "94.00602027053537`"}],
  SequenceForm[
  "ii=", 426, " b=", {3422.4782010857366`, -3335.2698349300867`, 
   4352.699383301367}, "  magnitude b=", 6464.006020270535, 
   " (R - EARTHR)=  ", 94.00602027053537],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624633026`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"7ad949f1-4eac-0d49-baef-e4d0e77a6dba"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "427", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3421.96444658943`", ",", 
     RowBox[{"-", "3335.5038591430525`"}], ",", "4353.4423436447505`"}], 
    "}"}], "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]",
    "6464.355103760885`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "94.35510376088496`"}],
  SequenceForm[
  "ii=", 427, " b=", {3421.96444658943, -3335.5038591430525`, 
   4353.4423436447505`}, "  magnitude b=", 6464.355103760885, 
   " (R - EARTHR)=  ", 94.35510376088496],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624653015`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"5e8b09d8-da00-9e49-8d94-20916eae6df9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "428", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3421.4383953542942`", ",", 
     RowBox[{"-", "3335.725731493744`"}], ",", "4354.171572499648`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6464.682276161614`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "94.68227616161403`"}],
  SequenceForm[
  "ii=", 428, " b=", {3421.4383953542942`, -3335.725731493744, 
   4354.171572499648}, "  magnitude b=", 6464.682276161614, 
   " (R - EARTHR)=  ", 94.68227616161403],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462466305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"ecb2473e-8acc-594e-bfd3-b9942e5e7a4c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "429", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3420.899489905149`", ",", 
     RowBox[{"-", "3335.934788841524`"}], ",", "4354.886209623115`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6464.986321269523`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "94.9863212695227`"}],
  SequenceForm[
  "ii=", 429, " b=", {3420.899489905149, -3335.934788841524, 
   4354.886209623115}, "  magnitude b=", 6464.986321269523, 
   " (R - EARTHR)=  ", 94.9863212695227],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462467306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"26d3ff4b-6de0-6e4e-9e60-65b57e1b1faf"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "430", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3420.347412343137`", ",", 
     RowBox[{"-", "3336.1305988474915`"}], ",", "4355.585535280055`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6465.2663633318125`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "95.2663633318125`"}],
  SequenceForm[
  "ii=", 430, " b=", {3420.347412343137, -3336.1305988474915`, 
   4355.585535280055}, "  magnitude b=", 6465.2663633318125`, 
   " (R - EARTHR)=  ", 95.2663633318125],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462468302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"86587de9-b7b9-c34a-9e75-5a85ac67cbd6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "431", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3419.7820094184035`", ",", 
     RowBox[{"-", "3336.3128964231073`"}], ",", "4356.268960830119`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6465.521788214222`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "95.5217882142224`"}],
  SequenceForm[
  "ii=", 431, " b=", {3419.7820094184035`, -3336.3128964231073`, 
   4356.268960830119}, "  magnitude b=", 6465.521788214222, 
   " (R - EARTHR)=  ", 95.5217882142224],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624703045`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"20933953-adc6-2649-970a-f8f22521df57"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "432", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3419.2032265084104`", ",", 
     RowBox[{"-", "3336.4815230983004`"}], ",", "4356.936012114068`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6465.752165974065`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "95.75216597406506`"}],
  SequenceForm[
  "ii=", 432, " b=", {3419.2032265084104`, -3336.4815230983004`, 
   4356.936012114068}, "  magnitude b=", 6465.752165974065, 
   " (R - EARTHR)=  ", 95.75216597406506],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462471304*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"7a2abc77-80d7-8c45-9fef-86ea2ca1225d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "433", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3418.6110721110663`", ",", 
     RowBox[{"-", "3336.63639349975`"}], ",", "4357.586319340284`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6465.957207969211`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "95.95720796921069`"}],
  SequenceForm[
  "ii=", 433, " b=", {3418.6110721110663`, -3336.63639349975, 
   4357.586319340284}, "  magnitude b=", 6465.957207969211, 
   " (R - EARTHR)=  ", 95.95720796921069],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624723034`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"8f08da42-700f-464e-8f2e-43c0c1cbeacf"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "434", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3418.005606042551`", ",", 
     RowBox[{"-", "3336.7774848806343`"}], ",", "4358.219615238597`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6466.136753981863`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "96.13675398186297`"}],
  SequenceForm[
  "ii=", 434, " b=", {3418.005606042551, -3336.7774848806343`, 
   4358.219615238597}, "  magnitude b=", 6466.136753981863, 
   " (R - EARTHR)=  ", 96.13675398186297],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462473303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"ffd8bbaa-6047-0347-b8b5-ef2e44b8e1cc"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "435", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3417.386938637253`", ",", 
     RowBox[{"-", "3336.9048381399075`"}], ",", "4358.8357376438225`"}], 
    "}"}], "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]",
    "6466.290774078365`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "96.29077407836485`"}],
  SequenceForm[
  "ii=", 435, " b=", {3417.386938637253, -3336.9048381399075`, 
   4358.8357376438225`}, "  magnitude b=", 6466.290774078365, 
   " (R - EARTHR)=  ", 96.29077407836485],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624743023`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"cdbc8cb1-ee3d-8548-a657-dd71fdc005b5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "436", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3416.755232399998`", ",", 
     RowBox[{"-", "3337.0185617887787`"}], ",", "4359.43463254426`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6466.4193736009665`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "96.41937360096654`"}],
  SequenceForm[
  "ii=", 436, " b=", {3416.755232399998, -3337.0185617887787`, 
   4359.43463254426}, "  magnitude b=", 6466.4193736009665`, 
   " (R - EARTHR)=  ", 96.41937360096654],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624753017`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"e1b0ad58-db47-e84b-b463-6f21129d16c8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "437", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3416.1107021874254`", ",", 
     RowBox[{"-", "3337.118834504271`"}], ",", "4360.016355136677`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6466.522795309851`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "96.52279530985106`"}],
  SequenceForm[
  "ii=", 437, " b=", {3416.1107021874254`, -3337.118834504271, 
   4360.016355136677}, "  magnitude b=", 6466.522795309851, 
   " (R - EARTHR)=  ", 96.52279530985106],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462476303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"45a76e88-bab2-6847-952b-9ecd0055cfb8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "438", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3415.4536127840875`", ",", 
     RowBox[{"-", "3337.205904630304`"}], ",", "4360.5810677421`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6466.601416457494`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "96.60141645749445`"}],
  SequenceForm[
  "ii=", 438, " b=", {3415.4536127840875`, -3337.205904630304, 
   4360.5810677421}, "  magnitude b=", 6466.601416457494, " (R - EARTHR)=  ", 
   96.60141645749445],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624773006`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f1c5ebf9-6fae-aa42-a16c-83aa82a111ef"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "439", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3414.7842740708174`", ",", 
     RowBox[{"-", "3337.2800864170117`"}], ",", "4361.129034309086`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6466.655740607396`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "96.65574060739618`"}],
  SequenceForm[
  "ii=", 439, " b=", {3414.7842740708174`, -3337.2800864170117`, 
   4361.129034309086}, "  magnitude b=", 6466.655740607396, 
   " (R - EARTHR)=  ", 96.65574060739618],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462478302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"89b467e1-c9b4-5247-b4da-2b962fece1dc"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "440", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3414.103034501216`", ",", 
     RowBox[{"-", "3337.3417534726273`"}], ",", "4361.660611791724`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6466.686385013388`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "96.68638501338773`"}],
  SequenceForm[
  "ii=", 440, " b=", {3414.103034501216, -3337.3417534726273`, 
   4361.660611791724}, "  magnitude b=", 6466.686385013388, 
   " (R - EARTHR)=  ", 96.68638501338773],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462480303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"6420840f-6424-8e40-b5fc-dd87fdbb6b72"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "441", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3413.410273708938`", ",", 
     RowBox[{"-", "3337.3913301905977`"}], ",", "4362.176239037585`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6466.694064815281`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "96.69406481528131`"}],
  SequenceForm[
  "ii=", 441, " b=", {3413.410273708938, -3337.3913301905977`, 
   4362.176239037585}, "  magnitude b=", 6466.694064815281, 
   " (R - EARTHR)=  ", 96.69406481528131],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624813023`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"7446aa45-f926-544a-ac70-1d50551c9bd4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "442", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3412.706394976167`", ",", 
     RowBox[{"-", "3337.429281986664`"}], ",", "4362.676424003498`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6466.6795754180675`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "96.67957541806754`"}],
  SequenceForm[
  "ii=", 442, " b=", {3412.706394976167, -3337.429281986664, 
   4362.676424003498}, "  magnitude b=", 6466.6795754180675`, 
   " (R - EARTHR)=  ", 96.67957541806754],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462483303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"8bdff564-b2e4-cd47-8101-120ae3e6abd8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "443", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3411.991818115129`", ",", 
     RowBox[{"-", "3337.4561051261876`"}], ",", "4363.161730162698`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6466.643774330313`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "96.64377433031314`"}],
  SequenceForm[
  "ii=", 443, " b=", {3411.991818115129, -3337.4561051261876`, 
   4363.161730162698}, "  magnitude b=", 6466.643774330313, 
   " (R - EARTHR)=  ", 96.64377433031314],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624843025`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"b7c88b5f-0af9-ad49-837f-14a6ebd7a690"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "444", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3411.2669731154856`", ",", 
     RowBox[{"-", "3337.472316794184`"}], ",", "4363.632762904513`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6466.587563524497`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "96.58756352449745`"}],
  SequenceForm[
  "ii=", 444, " b=", {3411.2669731154856`, -3337.472316794184, 
   4363.632762904513}, "  magnitude b=", 6466.587563524497, 
   " (R - EARTHR)=  ", 96.58756352449745],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462485302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"efd46746-d6e6-ee40-bde4-ea7a08de5d31"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "445", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3410.5322947299796`", ",", 
     RowBox[{"-", "3337.4784458973027`"}], ",", "4364.090156590693`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6466.51187311034`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "96.51187311034028`"}],
  SequenceForm[
  "ii=", 445, " b=", {3410.5322947299796`, -3337.4784458973027`, 
   4364.090156590693}, "  magnitude b=", 6466.51187311034, " (R - EARTHR)=  ",
    96.51187311034028],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624863033`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"1dfff60c-7ff4-b04d-bcb4-510d0bd9606c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "446", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3409.7882180295046`", ",", 
     RowBox[{"-", "3337.4750249180206`"}], ",", "4364.5345627567185`"}], 
    "}"}], "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]",
    "6466.417646832158`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "96.41764683215843`"}],
  SequenceForm[
  "ii=", 446, " b=", {3409.7882180295046`, -3337.4750249180206`, 
   4364.5345627567185`}, "  magnitude b=", 6466.417646832158, 
   " (R - EARTHR)=  ", 96.41764683215843],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462487303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"10d55c6d-db36-e140-8a3f-74ee814ba599"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "447", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3409.035174863409`", ",", 
     RowBox[{"-", "3337.462582987918`"}], ",", "4364.9666397638275`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6466.305829648912`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "96.30582964891164`"}],
  SequenceForm[
  "ii=", 447, " b=", {3409.035174863409, -3337.462582987918, 
   4364.9666397638275`}, "  magnitude b=", 6466.305829648912, 
   " (R - EARTHR)=  ", 96.30582964891164],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462488304*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"914ee30f-990d-d74f-ac60-d7df861a8388"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "448", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3408.2735911079253`", ",", 
     RowBox[{"-", "3337.4416402219017`"}], ",", "4365.3870440424025`"}], 
    "}"}], "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]",
    "6466.177357451931`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "96.17735745193113`"}],
  SequenceForm[
  "ii=", 448, " b=", {3408.2735911079253`, -3337.4416402219017`, 
   4365.3870440424025`}, "  magnitude b=", 6466.177357451931, 
   " (R - EARTHR)=  ", 96.17735745193113],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624893017`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"e7dd6257-cfd3-f44c-8ba6-91ed0fdeff6d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "449", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3407.50388456629`", ",", 
     RowBox[{"-", "3337.412703263679`"}], ",", "4365.796422934021`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6466.0331488280835`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "96.03314882808354`"}],
  SequenceForm[
  "ii=", 449, " b=", {3407.50388456629, -3337.412703263679, 
   4365.796422934021}, "  magnitude b=", 6466.0331488280835`, 
   " (R - EARTHR)=  ", 96.03314882808354],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462490303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"203b96e1-1844-194c-8893-e4887bbd6dfe"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "450", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3406.726463387502`", ",", 
     RowBox[{"-", "3337.376261933462`"}], ",", "4366.195409043219`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6465.874098682387`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "95.87409868238683`"}],
  SequenceForm[
  "ii=", 450, " b=", {3406.726463387502, -3337.376261933462, 
   4366.195409043219}, "  magnitude b=", 6465.874098682387, 
   " (R - EARTHR)=  ", 95.87409868238683],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624913025`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"75af8a1c-4a5b-da4b-883e-03bf0581cf95"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "451", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3405.941724887072`", ",", 
     RowBox[{"-", "3337.3327868370448`"}], ",", "4366.584615949373`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6465.701073485378`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "95.7010734853784`"}],
  SequenceForm[
  "ii=", 451, " b=", {3405.941724887072, -3337.3327868370448`, 
   4366.584615949373}, "  magnitude b=", 6465.701073485378, 
   " (R - EARTHR)=  ", 95.7010734853784],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462492302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"78b9eaff-8bbd-544c-ab9a-354a89419b70"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "452", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3405.1500546746915`", ",", 
     RowBox[{"-", "3337.2827277845586`"}], ",", "4366.9646350983585`"}], 
    "}"}], "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]",
    "6465.514907895576`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "95.51490789557556`"}],
  SequenceForm[
  "ii=", 452, " b=", {3405.1500546746915`, -3337.2827277845586`, 
   4366.9646350983585`}, "  magnitude b=", 6465.514907895576, 
   " (R - EARTHR)=  ", 95.51490789557556],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624943027`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"043452b5-eeab-ad40-8b88-62551ca3eb55"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "453", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3404.351826015618`", ",", 
     RowBox[{"-", "3337.226512870834`"}], ",", "4367.336033685654`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6465.316402515274`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "95.3164025152737`"}],
  SequenceForm[
  "ii=", 453, " b=", {3404.351826015618, -3337.226512870834, 
   4367.336033685654}, "  magnitude b=", 6465.316402515274, 
   " (R - EARTHR)=  ", 95.3164025152737],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462495302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"7365326d-c037-2645-a467-01e01c7e87df"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "454", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3403.547399371739`", ",", 
     RowBox[{"-", "3337.1645480817965`"}], ",", "4367.699353349987`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6465.106322559437`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "95.1063225594371`"}],
  SequenceForm[
  "ii=", 454, " b=", {3403.547399371739, -3337.1645480817965`, 
   4367.699353349987}, "  magnitude b=", 6465.106322559437, 
   " (R - EARTHR)=  ", 95.1063225594371],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624963017`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"719fc4f4-8e0e-7f45-9791-5889f1db13bc"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "455", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3402.7371220836803`", ",", 
     RowBox[{"-", "3337.0972173082714`"}], ",", "4368.055109513351`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6464.885397245541`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "94.88539724554084`"}],
  SequenceForm[
  "ii=", 455, " b=", {3402.7371220836803`, -3337.0972173082714`, 
   4368.055109513351}, "  magnitude b=", 6464.885397245541, 
   " (R - EARTHR)=  ", 94.88539724554084],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462497303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"912f3f7c-03d9-a549-b35f-1635f03fa29a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "456", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3401.9213281668444`", ",", 
     RowBox[{"-", "3337.024882666969`"}], ",", "4368.403791224478`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6464.654319742035`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "94.65431974203511`"}],
  SequenceForm[
  "ii=", 456, " b=", {3401.9213281668444`, -3337.024882666969, 
   4368.403791224478}, "  magnitude b=", 6464.654319742035, 
   " (R - EARTHR)=  ", 94.65431974203511],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344624983025`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"3eebfa85-8f69-ed42-852d-0ebe4043af28"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "457", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3401.1003382023864`", ",", 
     RowBox[{"-", "3336.94788504626`"}], ",", "4368.745861385266`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6464.413747541689`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "94.41374754168919`"}],
  SequenceForm[
  "ii=", 457, " b=", {3401.1003382023864`, -3336.94788504626, 
   4368.745861385266}, "  magnitude b=", 6464.413747541689, 
   " (R - EARTHR)=  ", 94.41374754168919],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462499302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"00a721e5-64ac-e44a-b570-54471fd8efcc"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "458", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3400.2744593095126`", ",", 
     RowBox[{"-", "3336.866544810531`"}], ",", "4369.081757261209`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6464.164303151728`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "94.16430315172784`"}],
  SequenceForm[
  "ii=", 458, " b=", {3400.2744593095126`, -3336.866544810531, 
   4369.081757261209}, "  magnitude b=", 6464.164303151728, 
   " (R - EARTHR)=  ", 94.16430315172784],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625003033`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"578509e2-590b-cc4a-883f-be004232f83b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "459", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3399.443985188933`", ",", 
     RowBox[{"-", "3336.7811626109383`"}], ",", "4369.411891196191`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6463.906575014764`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "93.9065750147638`"}],
  SequenceForm[
  "ii=", 459, " b=", {3399.443985188933, -3336.7811626109383`, 
   4369.411891196191}, "  magnitude b=", 6463.906575014764, 
   " (R - EARTHR)=  ", 93.9065750147638],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462502302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"70c84e62-9e28-504a-ae48-ec115ec68af2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "460", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3398.6091962293326`", ",", 
     RowBox[{"-", "3336.6920202621845`"}], ",", "4369.736651468859`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6463.641118593003`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "93.64111859300283`"}],
  SequenceForm[
  "ii=", 460, " b=", {3398.6091962293326`, -3336.6920202621845`, 
   4369.736651468859}, "  magnitude b=", 6463.641118593003, 
   " (R - EARTHR)=  ", 93.64111859300283],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625033016`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"a20e2311-d194-bd44-8774-6c75d16624e6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "461", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3397.7703596698816`", ",", 
     RowBox[{"-", "3336.599381654528`"}], ",", "4370.056403241709`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6463.368457563164`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "93.36845756316416`"}],
  SequenceForm[
  "ii=", 461, " b=", {3397.7703596698816`, -3336.599381654528, 
   4370.056403241709}, "  magnitude b=", 6463.368457563164, 
   " (R - EARTHR)=  ", 93.36845756316416],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462504303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"5f707bc8-2d8d-6d4f-b83d-f2bbe1a49f39"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "462", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3396.92772981246`", ",", 
     RowBox[{"-", "3336.50349367802`"}], ",", "4370.3714895655985`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6463.089085081707`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "93.0890850817068`"}],
  SequenceForm[
  "ii=", 462, " b=", {3396.92772981246, -3336.50349367802, 
   4370.3714895655985`}, "  magnitude b=", 6463.089085081707, 
   " (R - EARTHR)=  ", 93.0890850817068],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625053024`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f384f4ad-a639-bd43-920d-8963ad4bac81"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "463", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3396.0815482776316`", ",", 
     RowBox[{"-", "3336.404587141991`"}], ",", "4370.682232411495`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6462.8034650893915`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "92.80346508939147`"}],
  SequenceForm[
  "ii=", 463, " b=", {3396.0815482776316`, -3336.404587141991, 
   4370.682232411495}, "  magnitude b=", 6462.8034650893915`, 
   " (R - EARTHR)=  ", 92.80346508939147],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462506302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"894fdab7-be7c-b747-ae94-19426db8d748"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "464", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3395.2320442986224`", ",", 
     RowBox[{"-", "3336.3028776776355`"}], ",", "4370.988933708543`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6462.512033631723`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "92.51203363172317`"}],
  SequenceForm[
  "ii=", 464, " b=", {3395.2320442986224`, -3336.3028776776355`, 
   4370.988933708543}, "  magnitude b=", 6462.512033631723, 
   " (R - EARTHR)=  ", 92.51203363172317],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462507303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"3d761399-7f37-7b40-a246-6be265b3c265"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "465", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3394.3794350477915`", ",", 
     RowBox[{"-", "3336.1985666151136`"}], ",", "4371.291876373208`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6462.215200177607`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "92.21520017760668`"}],
  SequenceForm[
  "ii=", 465, " b=", {3394.3794350477915`, -3336.1985666151136`, 
   4371.291876373208}, "  magnitude b=", 6462.215200177607, 
   " (R - EARTHR)=  ", 92.21520017760668],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625083027`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"d05cc608-0e4b-f440-9e55-225c4a145380"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "466", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3393.523925990267`", ",", 
     RowBox[{"-", "3336.091841829444`"}], ",", "4371.591325318505`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6461.913348923008`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "91.91334892300802`"}],
  SequenceForm[
  "ii=", 466, " b=", {3393.523925990267, -3336.091841829444, 
   4371.591325318505}, "  magnitude b=", 6461.913348923008, 
   " (R - EARTHR)=  ", 91.91334892300802],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462509302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"be3e0c92-1de2-1d4e-8504-34922f5df804"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "467", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3392.665711259739`", ",", 
     RowBox[{"-", "3335.982878551505`"}], ",", "4371.887528435737`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6461.606840069912`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "91.60684006991232`"}],
  SequenceForm[
  "ii=", 467, " b=", {3392.665711259739, -3335.982878551505, 
   4371.887528435737}, "  magnitude b=", 6461.606840069912, 
   " (R - EARTHR)=  ", 91.60684006991232],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625103035`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"29a4bd4d-c3c3-bf4c-898b-5aa4b8e3e78a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "468", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3391.8049740516303`", ",", 
     RowBox[{"-", "3335.871840142055`"}], ",", "4372.180717543511`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6461.296011073429`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "91.29601107342933`"}],
  SequenceForm[
  "ii=", 468, " b=", {3391.8049740516303`, -3335.871840142055, 
   4372.180717543511}, "  magnitude b=", 6461.296011073429, 
   " (R - EARTHR)=  ", 91.29601107342933],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462511305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f2790416-4a99-674e-b83a-9ad748cde899"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "469", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3390.941887029264`", ",", 
     RowBox[{"-", "3335.7588788278013`"}], ",", "4372.471109300815`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6460.981177852044`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "90.98117785204431`"}],
  SequenceForm[
  "ii=", 469, " b=", {3390.941887029264, -3335.7588788278013`, 
   4372.471109300815}, "  magnitude b=", 6460.981177852044, 
   " (R - EARTHR)=  ", 90.98117785204431],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625123043`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"892e4f02-b72e-0243-b310-bdcac9586930"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "470", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3390.0766127389893`", ",", 
     RowBox[{"-", "3335.644136399434`"}], ",", "4372.758906082188`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6460.662635957467`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "90.66263595746659`"}],
  SequenceForm[
  "ii=", 470, " b=", {3390.0766127389893`, -3335.644136399434, 
   4372.758906082188}, "  magnitude b=", 6460.662635957467, 
   " (R - EARTHR)=  ", 90.66263595746659],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625133038`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"ec1161fe-21ff-1b47-a4ec-226853bb96ad"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "471", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3389.209304030583`", ",", 
     RowBox[{"-", "3335.5277448720867`"}], ",", "4373.044296814086`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6460.340661701761`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "90.34066170176084`"}],
  SequenceForm[
  "ii=", 471, " b=", {3389.209304030583, -3335.5277448720867`, 
   4373.044296814086}, "  magnitude b=", 6460.340661701761, 
   " (R - EARTHR)=  ", 90.34066170176084],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625153046`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"374c759f-8b0e-414a-9e29-60f72bbaa3f8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "472", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3388.3401044796606`", ",", 
     RowBox[{"-", "3335.4098271091325`"}], ",", "4373.327457772284`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6460.0155132403825`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "90.01551324038246`"}],
  SequenceForm[
  "ii=", 472, " b=", {3388.3401044796606`, -3335.4098271091325`, 
   4373.327457772284}, "  magnitude b=", 6460.0155132403825`, 
   " (R - EARTHR)=  ", 90.01551324038246],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462516302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"af0dd115-5bc7-f34e-8075-cb9d54738925"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "473", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3387.4691488091885`", ",", 
     RowBox[{"-", "3335.2904974105077`"}], ",", "4373.608553340647`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6459.687431610399`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "89.68743161039856`"}],
  SequenceForm[
  "ii=", 473, " b=", {3387.4691488091885`, -3335.2904974105077`, 
   4373.608553340647}, "  magnitude b=", 6459.687431610399, 
   " (R - EARTHR)=  ", 89.68743161039856],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462518305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"e0ae90b2-d7f6-4e45-a6b2-e8aeccb4da36"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "474", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3386.5965633075452`", ",", 
     RowBox[{"-", "3335.1698620669285`"}], ",", "4373.887736731997`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6459.356641723738`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "89.356641723738`"}],
  SequenceForm[
  "ii=", 474, " b=", {3386.5965633075452`, -3335.1698620669285`, 
   4373.887736731997}, "  magnitude b=", 6459.356641723738, 
   " (R - EARTHR)=  ", 89.356641723738],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625193043`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"eddc95bc-bdd9-fb43-9e3a-bbec92654cfe"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "475", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3385.7224662409462`", ",", 
     RowBox[{"-", "3335.0480198814766`"}], ",", "4374.165150672043`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6459.023353315717`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "89.02335331571703`"}],
  SequenceForm[
  "ii=", 475, " b=", {3385.7224662409462`, -3335.0480198814766`, 
   4374.165150672043}, "  magnitude b=", 6459.023353315717, 
   " (R - EARTHR)=  ", 89.02335331571703],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625203037`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f862badf-8fac-964d-a10b-6d6099439fed"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "476", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3384.8469682583477`", ",", 
     RowBox[{"-", "3334.9250626600915`"}], ",", "4374.440928047525`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6458.687761849417`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "88.68776184941726`"}],
  SequenceForm[
  "ii=", 476, " b=", {3384.8469682583477`, -3334.9250626600915`, 
   4374.440928047525}, "  magnitude b=", 6458.687761849417, 
   " (R - EARTHR)=  ", 88.68776184941726],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462521303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"25dd63a9-f9ec-5e4c-90d5-0f31449b4759"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "477", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3383.970172787273`", ",", 
     RowBox[{"-", "3334.8010756725075`"}], ",", "4374.715192519827`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6458.350049376715`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "88.3500493767151`"}],
  SequenceForm[
  "ii=", 477, " b=", {3383.970172787273, -3334.8010756725075`, 
   4374.715192519827}, "  magnitude b=", 6458.350049376715, 
   " (R - EARTHR)=  ", 88.3500493767151],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625223045`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"98b29411-351a-e042-90ac-cd0ea9bd2035"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "478", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3383.0921764192376`", ",", 
     RowBox[{"-", "3334.6761380851854`"}], ",", "4374.988059105374`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6458.0103853569635`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "88.01038535696352`"}],
  SequenceForm[
  "ii=", 478, " b=", {3383.0921764192376`, -3334.6761380851854`, 
   4374.988059105374}, "  magnitude b=", 6458.0103853569635`, 
   " (R - EARTHR)=  ", 88.01038535696352],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462523302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"c08bdb7c-41ba-0b4e-a209-149430955b99"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "479", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3382.2130692837586`", ",", 
     RowBox[{"-", "3334.5503233677227`"}], ",", "4375.259634724155`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6457.6689274344335`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "87.6689274344335`"}],
  SequenceForm[
  "ii=", 479, " b=", {3382.2130692837586`, -3334.5503233677227`, 
   4375.259634724155}, "  magnitude b=", 6457.6689274344335`, 
   " (R - EARTHR)=  ", 87.6689274344335],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462525303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"57f40222-ee76-fb40-a127-5e81f666a9b3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "480", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3381.3329354100915`", ",", 
     RowBox[{"-", "3334.4236996742156`"}], ",", "4375.530018717743`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6457.325822175787`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "87.32582217578693`"}],
  SequenceForm[
  "ii=", 480, " b=", {3381.3329354100915`, -3334.4236996742156`, 
   4375.530018717743}, "  magnitude b=", 6457.325822175787, 
   " (R - EARTHR)=  ", 87.32582217578693],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625273037`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"17f1c251-4987-a644-9c46-64a4a03e3902"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "481", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3380.4518530761025`", ",", 
     RowBox[{"-", "3334.2963302009634`"}], ",", "4375.79930333815`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6456.9812057688305`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "86.98120576883048`"}],
  SequenceForm[
  "ii=", 481, " b=", {3380.4518530761025`, -3334.2963302009634`, 
   4375.79930333815}, "  magnitude b=", 6456.9812057688305`, 
   " (R - EARTHR)=  ", 86.98120576883048],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462528303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"532832ce-7a40-2247-a61e-b78cdc1a6beb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "482", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3379.5698951437976`", ",", 
     RowBox[{"-", "3334.1682735218674`"}], ",", "4376.06757420885`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6456.635204683952`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "86.635204683952`"}],
  SequenceForm[
  "ii=", 482, " b=", {3379.5698951437976`, -3334.1682735218674`, 
   4376.06757420885}, "  magnitude b=", 6456.635204683952, " (R - EARTHR)=  ",
    86.635204683952],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625293045`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"67805720-c68c-e744-b617-662bcc62e091"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "483", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3378.687129381254`", ",", 
     RowBox[{"-", "3334.0395839028`"}], ",", "4376.33491075927`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6456.287936299592`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "86.28793629959182`"}],
  SequenceForm[
  "ii=", 483, " b=", {3378.687129381254, -3334.0395839028, 4376.33491075927}, 
   "  magnitude b=", 6456.287936299592, " (R - EARTHR)=  ", 86.28793629959182],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462530304*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"fad44762-3c0a-b241-88a1-a60e39d60087"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "484", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3377.8036187707667`", ",", 
     RowBox[{"-", "3333.910311596164`"}], ",", "4376.601386634006`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6455.939509493163`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "85.93950949316331`"}],
  SequenceForm[
  "ii=", 484, " b=", {3377.8036187707667`, -3333.910311596164, 
   4376.601386634006}, "  magnitude b=", 6455.939509493163, 
   " (R - EARTHR)=  ", 85.93950949316331],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462532303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"8c8855eb-da54-a141-bd8a-33e5e5b5fc90"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "485", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3376.9194218031917`", ",", 
     RowBox[{"-", "3333.780503116812`"}], ",", "4376.86707007801`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6455.590025198831`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "85.59002519883143`"}],
  SequenceForm[
  "ii=", 485, " b=", {3376.9194218031917`, -3333.780503116812, 
   4376.86707007801}, "  magnitude b=", 6455.590025198831, " (R - EARTHR)=  ",
    85.59002519883143],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625333023`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"eecbbac2-212b-3142-a3f8-59fbac461d43"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "486", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3376.0345927585477`", ",", 
     RowBox[{"-", "3333.650201500385`"}], ",", "4377.132024298922`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6455.23957693354`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "85.23957693353987`"}],
  SequenceForm[
  "ii=", 486, " b=", {3376.0345927585477`, -3333.650201500385, 
   4377.132024298922}, "  magnitude b=", 6455.23957693354, " (R - EARTHR)=  ",
    85.23957693353987],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625343037`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"025d933a-058f-5940-8bc1-4033f787383a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "487", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3375.1491819730145`", ",", 
     RowBox[{"-", "3333.519446545163`"}], ",", "4377.396307807694`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6454.888251292683`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "84.88825129268298`"}],
  SequenceForm[
  "ii=", 487, " b=", {3375.1491819730145`, -3333.519446545163, 
   4377.396307807694}, "  magnitude b=", 6454.888251292683, 
   " (R - EARTHR)=  ", 84.88825129268298],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625363045`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"b1debab0-10db-a047-bc14-7f91b6738e4e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "488", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3374.2632360925604`", ",", 
     RowBox[{"-", "3333.3882750383495`"}], ",", "4377.659974738633`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6454.536128416792`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "84.53612841679205`"}],
  SequenceForm[
  "ii=", 488, " b=", {3374.2632360925604`, -3333.3882750383495`, 
   4377.659974738633}, "  magnitude b=", 6454.536128416792, 
   " (R - EARTHR)=  ", 84.53612841679205],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462537304*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"74695ec3-4635-214a-8112-847ce8260a78"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "489", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3373.3767983134694`", ",", 
     RowBox[{"-", "3333.256720967761`"}], ",", "4377.92307514989`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6454.18328243057`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "84.18328243057022`"}],
  SequenceForm[
  "ii=", 489, " b=", {3373.3767983134694`, -3333.256720967761, 
   4377.92307514989}, "  magnitude b=", 6454.18328243057, " (R - EARTHR)=  ", 
   84.18328243057022],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625383034`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"5ec3e45d-25c6-0f40-99f6-ce4b7ba11512"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "490", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3372.489908610099`", ",", 
     RowBox[{"-", "3333.12481571976`"}], ",", "4378.18565530546`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6453.829781855603`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "83.82978185560296`"}],
  SequenceForm[
  "ii=", 490, " b=", {3372.489908610099, -3333.12481571976, 4378.18565530546},
    "  magnitude b=", 6453.829781855603, " (R - EARTHR)=  ", 
   83.82978185560296],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625393047`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"7ec21bae-9f5d-cf4b-9fdd-ac0639e17961"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "491", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3371.6026039502326`", ",", 
     RowBox[{"-", "3332.992588264291`"}], ",", "4378.447757939639`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6453.475689998013`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "83.47568999801297`"}],
  SequenceForm[
  "ii=", 491, " b=", {3371.6026039502326`, -3332.992588264291, 
   4378.447757939639}, "  magnitude b=", 6453.475689998013, 
   " (R - EARTHR)=  ", 83.47568999801297],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625403023`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"2a2a6e76-faf3-d348-92de-90b251a09393"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "492", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3370.7149184984364`", ",", 
     RowBox[{"-", "3332.8600653277567`"}], ",", "4378.709422504897`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6453.121065312321`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "83.12106531232075`"}],
  SequenceForm[
  "ii=", 492, " b=", {3370.7149184984364`, -3332.8600653277567`, 
   4378.709422504897}, "  magnitude b=", 6453.121065312321, 
   " (R - EARTHR)=  ", 83.12106531232075],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462542303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"3128750d-de73-4147-bab4-2018057ddaf2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "493", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3369.8268838078143`", ",", 
     RowBox[{"-", "3332.7272715545114`"}], ",", "4378.9706854040705`"}], 
    "}"}], "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]",
    "6452.765961742704`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "82.76596174270435`"}],
  SequenceForm[
  "ii=", 493, " b=", {3369.8268838078143`, -3332.7272715545114`, 
   4378.9706854040705`}, "  magnitude b=", 6452.765961742704, 
   " (R - EARTHR)=  ", 82.76596174270435],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625433025`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"968c6430-7d14-8944-9f83-2487c4d8ac15"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "494", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3368.9385290006267`", ",", 
     RowBox[{"-", "3332.5942296576254`"}], ",", "4379.231580207716`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6452.410429042839`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "82.41042904283859`"}],
  SequenceForm[
  "ii=", 494, " b=", {3368.9385290006267`, -3332.5942296576254`, 
   4379.231580207716}, "  magnitude b=", 6452.410429042839, 
   " (R - EARTHR)=  ", 82.41042904283859],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462544302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"af366ba8-4e69-d249-901e-d113761bdbb7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "495", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3368.049880938208`", ",", 
     RowBox[{"-", "3332.4609605596015`"}], ",", "4379.49213785748`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6452.054513075442`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "82.05451307544172`"}],
  SequenceForm[
  "ii=", 495, " b=", {3368.049880938208, -3332.4609605596015`, 
   4379.49213785748}, "  magnitude b=", 6452.054513075442, " (R - EARTHR)=  ",
    82.05451307544172],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625453033`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"0ba983ce-7d15-bd4a-8ec4-b08c33c6f023"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "496", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3367.1609643806237`", ",", 
     RowBox[{"-", "3332.327483523643`"}], ",", "4379.752386856242`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6451.698256092624`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "81.69825609262443`"}],
  SequenceForm[
  "ii=", 496, " b=", {3367.1609643806237`, -3332.327483523643, 
   4379.752386856242}, "  magnitude b=", 6451.698256092624, 
   " (R - EARTHR)=  ", 81.69825609262443],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462546303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"0205cb7f-edda-8647-a9a0-106bd27ff1c0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "497", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3366.2718021365495`", ",", 
     RowBox[{"-", "3332.1938162760594`"}], ",", "4380.012353445803`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6451.341696998067`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "81.34169699806716`"}],
  SequenceForm[
  "ii=", 497, " b=", {3366.2718021365495`, -3332.1938162760594`, 
   4380.012353445803}, "  magnitude b=", 6451.341696998067, 
   " (R - EARTHR)=  ", 81.34169699806716],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625473022`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"e406c121-d148-2247-9bbc-238adb1e8f90"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "498", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3365.3824152038055`", ",", 
     RowBox[{"-", "3332.059975120354`"}], ",", "4380.272061772831`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6450.9848715920625`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "80.98487159206252`"}],
  SequenceForm[
  "ii=", 498, " b=", {3365.3824152038055`, -3332.059975120354, 
   4380.272061772831}, "  magnitude b=", 6450.9848715920625`, 
   " (R - EARTHR)=  ", 80.98487159206252],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625483017`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"6ce0eb24-9453-8345-9077-8861a6c0c896"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "499", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3364.4928229010043`", ",", 
     RowBox[{"-", "3331.9259750435226`"}], ",", "4380.531534043734`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6450.627812800367`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "80.62781280036688`"}],
  SequenceForm[
  "ii=", 499, " b=", {3364.4928229010043`, -3331.9259750435226`, 
   4380.531534043734}, "  magnitude b=", 6450.627812800367, 
   " (R - EARTHR)=  ", 80.62781280036688],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625503025`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"40e6f65a-03ff-9841-b91a-863ce800a557"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "500", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3363.603042990751`", ",", 
     RowBox[{"-", "3331.791829815028`"}], ",", "4380.790790669132`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6450.270550887791`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "80.2705508877907`"}],
  SequenceForm[
  "ii=", 500, " b=", {3363.603042990751, -3331.791829815028, 
   4380.790790669132}, "  magnitude b=", 6450.270550887791, 
   " (R - EARTHR)=  ", 80.2705508877907],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462551302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"3332ebfe-e19e-0943-93cf-4c033ba96fec"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "501", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3362.7130917948302`", ",", 
     RowBox[{"-", "3331.6575520789293`"}], ",", "4381.049850398527`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6449.913113657413`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "79.9131136574133`"}],
  SequenceForm[
  "ii=", 501, " b=", {3362.7130917948302`, -3331.6575520789293`, 
   4381.049850398527}, "  magnitude b=", 6449.913113657413, 
   " (R - EARTHR)=  ", 79.9131136574133],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625523033`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"2dbb4d9b-d000-724d-ac90-955d17af5470"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "502", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3361.822984301816`", ",", 
     RowBox[{"-", "3331.5231534395853`"}], ",", "4381.308730445774`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6449.5555266362635`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "79.5555266362635`"}],
  SequenceForm[
  "ii=", 502, " b=", {3361.822984301816, -3331.5231534395853`, 
   4381.308730445774}, "  magnitude b=", 6449.5555266362635`, 
   " (R - EARTHR)=  ", 79.5555266362635],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462553303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"5672033e-5f03-c140-924d-605aacb2ee10"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "503", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3360.932734267487`", ",", 
     RowBox[{"-", "3331.38864454135`"}], ",", "4381.5674466058945`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6449.197813248271`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "79.1978132482709`"}],
  SequenceForm[
  "ii=", 503, " b=", {3360.932734267487, -3331.38864454135, 
   4381.5674466058945`}, "  magnitude b=", 6449.197813248271, 
   " (R - EARTHR)=  ", 79.1978132482709],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462554302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"1ad1f949-3341-d448-9ee7-c40c461f3495"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "504", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3360.0423543084694`", ",", 
     RowBox[{"-", "3331.2540351426383`"}], ",", "4381.8260133637805`"}], 
    "}"}], "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]",
    "6448.839994975254`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "78.83999497525383`"}],
  SequenceForm[
  "ii=", 504, " b=", {3360.0423543084694`, -3331.2540351426383`, 
   4381.8260133637805`}, "  magnitude b=", 6448.839994975254, 
   " (R - EARTHR)=  ", 78.83999497525383],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462556305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"cbe155f7-9752-ed48-bb88-e4ce51ef4aac"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "505", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3359.15185598949`", ",", 
     RowBox[{"-", "3331.119334184722`"}], ",", "4382.084443995277`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6448.482091506675`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "78.4820915066748`"}],
  SequenceForm[
  "ii=", 505, " b=", {3359.15185598949, -3331.119334184722, 
   4382.084443995277}, "  magnitude b=", 6448.482091506675, 
   " (R - EARTHR)=  ", 78.4820915066748],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625573044`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f6781f54-f1d7-c74c-8e55-179adf1a8621"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "506", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3358.2612499045945`", ",", 
     RowBox[{"-", "3330.9845498556024`"}], ",", "4382.342750661129`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6448.12412087885`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "78.12412087884968`"}],
  SequenceForm[
  "ii=", 506, " b=", {3358.2612499045945`, -3330.9845498556024`, 
   4382.342750661129}, "  magnitude b=", 6448.12412087885, " (R - EARTHR)=  ",
    78.12412087884968],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462558304*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"7a00176e-f5fe-3a48-a9b2-db100b32c359"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "507", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3357.3705457527053`", ",", 
     RowBox[{"-", "3330.8496896492807`"}], ",", "4382.600944494232`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6447.766099604285`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "77.76609960428505`"}],
  SequenceForm[
  "ii=", 507, " b=", {3357.3705457527053`, -3330.8496896492807`, 
   4382.600944494232}, "  magnitude b=", 6447.766099604285, 
   " (R - EARTHR)=  ", 77.76609960428505],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625593033`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"1723bcae-8482-354d-961b-bd3aab113d69"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "508", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3356.479752407837`", ",", 
     RowBox[{"-", "3330.7147604207207`"}], ",", "4382.859035680633`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6447.408042791739`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "77.40804279173881`"}],
  SequenceForm[
  "ii=", 508, " b=", {3356.479752407837, -3330.7147604207207`, 
   4382.859035680633}, "  magnitude b=", 6447.408042791739, 
   " (R - EARTHR)=  ", 77.40804279173881],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625603046`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"e1e73f61-12a1-bf4a-b19a-ab64b44f5f21"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "509", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3355.5888779843235`", ",", 
     RowBox[{"-", "3330.5797684367994`"}], ",", "4383.117033534651`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6447.049964257622`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "77.04996425762238`"}],
  SequenceForm[
  "ii=", 509, " b=", {3355.5888779843235`, -3330.5797684367994`, 
   4383.117033534651}, "  magnitude b=", 6447.049964257622, 
   " (R - EARTHR)=  ", 77.04996425762238],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462561302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"61897ca4-80c1-a14d-b012-9befc3066e70"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "510", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3354.697929897337`", ",", 
     RowBox[{"-", "3330.444719423501`"}], ",", "4383.374946568541`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6446.691876629294`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "76.6918766292938`"}],
  SequenceForm[
  "ii=", 510, " b=", {3354.697929897337, -3330.444719423501, 
   4383.374946568541}, "  magnitude b=", 6446.691876629294, 
   " (R - EARTHR)=  ", 76.6918766292938],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625623016`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"5e8e7cb7-71fe-fe41-9d6b-1675750dbe09"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "511", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3353.806914919015`", ",", 
     RowBox[{"-", "3330.3096186096154`"}], ",", "4383.632782557025`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6446.333791440757`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "76.33379144075661`"}],
  SequenceForm[
  "ii=", 511, " b=", {3353.806914919015, -3330.3096186096154`, 
   4383.632782557025}, "  magnitude b=", 6446.333791440757, 
   " (R - EARTHR)=  ", 76.33379144075661],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625643024`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"280f0b10-dba7-c144-84be-443b25708e51"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "512", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3352.9158392304726`", ",", 
     RowBox[{"-", "3330.174470767177`"}], ",", "4383.890548597046`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6445.975719221298`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "75.97571922129828`"}],
  SequenceForm[
  "ii=", 512, " b=", {3352.9158392304726`, -3330.174470767177, 
   4383.890548597046}, "  magnitude b=", 6445.975719221298, 
   " (R - EARTHR)=  ", 75.97571922129828],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462565304*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"e2712815-0557-054c-b778-960a232c2684"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "513", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3352.024708469958`", ",", 
     RowBox[{"-", "3330.0392802488536`"}], ",", "4384.14825116306`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6445.617669577488`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "75.61766957748841`"}],
  SequenceForm[
  "ii=", 513, " b=", {3352.024708469958, -3330.0392802488536`, 
   4384.14825116306}, "  magnitude b=", 6445.617669577488, " (R - EARTHR)=  ",
    75.61766957748841],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625663033`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"10be3c07-0332-5741-88ba-a9f79759e443"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "514", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3351.1335277774147`", ",", 
     RowBox[{"-", "3329.9040510225113`"}], ",", "4384.405896158169`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6445.259651269028`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "75.25965126902793`"}],
  SequenceForm[
  "ii=", 514, " b=", {3351.1335277774147`, -3329.9040510225113`, 
   4384.405896158169}, "  magnitude b=", 6445.259651269028, 
   " (R - EARTHR)=  ", 75.25965126902793],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625673027`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"9ba898cd-64f1-b84d-8c05-6f22464a3454"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "515", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3350.242301835683`", ",", 
     RowBox[{"-", "3329.76878670314`"}], ",", "4384.66348896138`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6444.901672278851`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "74.90167227885104`"}],
  SequenceForm[
  "ii=", 515, " b=", {3350.242301835683, -3329.76878670314, 4384.66348896138},
    "  magnitude b=", 6444.901672278851, " (R - EARTHR)=  ", 
   74.90167227885104],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462568302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"e907c6d4-a7ae-de4e-9042-3ac08264054d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "516", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3349.35103490857`", ",", 
     RowBox[{"-", "3329.6334905823287`"}], ",", "4384.921034471248`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6444.543739877865`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "74.54373987786494`"}],
  SequenceForm[
  "ii=", 516, " b=", {3349.35103490857, -3329.6334905823287`, 
   4384.921034471248}, "  magnitude b=", 6444.543739877865, 
   " (R - EARTHR)=  ", 74.54373987786494],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625693016`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"4fe5c3e0-b358-2d4f-972c-5bb1c21fc411"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "517", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3348.459730875997`", ",", 
     RowBox[{"-", "3329.498165655452`"}], ",", "4385.178537146164`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6444.1858606846945`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "74.18586068469449`"}],
  SequenceForm[
  "ii=", 517, " b=", {3348.459730875997, -3329.498165655452, 
   4385.178537146164}, "  magnitude b=", 6444.1858606846945`, 
   " (R - EARTHR)=  ", 74.18586068469449],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462570303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"0877be16-1e98-324c-bc4c-b6c91f6ea8ef"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "518", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3347.568393266435`", ",", 
     RowBox[{"-", "3329.362814646748`"}], ",", "4385.436001041514`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6443.82804072082`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "73.82804072082035`"}],
  SequenceForm[
  "ii=", 518, " b=", {3347.568393266435, -3329.362814646748, 
   4385.436001041514}, "  magnitude b=", 6443.82804072082, " (R - EARTHR)=  ",
    73.82804072082035],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462572304*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"42e6c73b-21ae-5047-afd6-f7684a11f6a9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "519", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3346.6770252868064`", ",", 
     RowBox[{"-", "3329.2274400324227`"}], ",", "4385.69342984394`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6443.470285461374`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "73.47028546137426`"}],
  SequenceForm[
  "ii=", 519, " b=", {3346.6770252868064`, -3329.2274400324227`, 
   4385.69342984394}, "  magnitude b=", 6443.470285461374, " (R - EARTHR)=  ",
    73.47028546137426],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462573303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"d3100126-eec6-684d-b941-48f675205a03"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "520", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3345.7856298500315`", ",", 
     RowBox[{"-", "3329.092044061923`"}], ",", "4385.950826902895`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6443.112599881951`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "73.1125998819507`"}],
  SequenceForm[
  "ii=", 520, " b=", {3345.7856298500315`, -3329.092044061923, 
   4385.950826902895}, "  magnitude b=", 6443.112599881951, 
   " (R - EARTHR)=  ", 73.1125998819507],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625743046`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f9b3d98c-640b-3442-b7a0-c9ba39f303bd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "521", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3344.894209600405`", ",", 
     RowBox[{"-", "3328.956628777528`"}], ",", "4386.208195259696`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6442.754988501695`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "72.75498850169515`"}],
  SequenceForm[
  "ii=", 521, " b=", {3344.894209600405, -3328.956628777528, 
   4386.208195259696}, "  magnitude b=", 6442.754988501695, 
   " (R - EARTHR)=  ", 72.75498850169515],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462575304*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"1b1e3153-dfa5-0842-8572-9b71e97b8dbd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "522", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3344.0027669369306`", ",", 
     RowBox[{"-", "3328.821196032352`"}], ",", "4386.465537674267`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6442.39745542295`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "72.39745542294986`"}],
  SequenceForm[
  "ii=", 522, " b=", {3344.0027669369306`, -3328.821196032352, 
   4386.465537674267}, "  magnitude b=", 6442.39745542295, " (R - EARTHR)=  ",
    72.39745542294986],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625763035`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"4fc07d83-f95a-e040-9f81-a87fddbac115"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "523", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3343.1113040347846`", ",", 
     RowBox[{"-", "3328.685747506909`"}], ",", "4386.722856649705`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6442.0400043676955`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "72.04000436769547`"}],
  SequenceForm[
  "ii=", 523, " b=", {3343.1113040347846`, -3328.685747506909, 
   4386.722856649705}, "  magnitude b=", 6442.0400043676955`, 
   " (R - EARTHR)=  ", 72.04000436769547],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625783024`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"149836d9-c466-854a-ac24-ea388c937031"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "524", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3342.219822865038`", ",", 
     RowBox[{"-", "3328.550284724319`"}], ",", "4386.980154454875`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6441.682638711044`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "71.68263871104409`"}],
  SequenceForm[
  "ii=", 524, " b=", {3342.219822865038, -3328.550284724319, 
   4386.980154454875}, "  magnitude b=", 6441.682638711044, 
   " (R - EARTHR)=  ", 71.68263871104409],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462579302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"ca5e5463-698d-4b4f-963b-5942adf9965a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "525", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3341.3283252127603`", ",", 
     RowBox[{"-", "3328.4148090642743`"}], ",", "4387.237433145149`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6441.325361511986`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "71.32536151198565`"}],
  SequenceForm[
  "ii=", 525, " b=", {3341.3283252127603`, -3328.4148090642743`, 
   4387.237433145149}, "  magnitude b=", 6441.325361511986, 
   " (R - EARTHR)=  ", 71.32536151198565],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462580303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f29e5078-6e83-3547-bb9b-44e4c3d2de03"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "526", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3340.4368126936342`", ",", 
     RowBox[{"-", "3328.279321775846`"}], ",", "4387.494694581438`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6440.968175541606`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "70.96817554160589`"}],
  SequenceForm[
  "ii=", 526, " b=", {3340.4368126936342`, -3328.279321775846, 
   4387.494694581438}, "  magnitude b=", 6440.968175541606, 
   " (R - EARTHR)=  ", 70.96817554160589],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625813046`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"5e5c832a-f08e-1a4e-88ee-f46a16918851"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "527", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3339.5452867691943`", ",", 
     RowBox[{"-", "3328.143823989232`"}], ",", "4387.751940447643`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6440.611083308949`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "70.61108330894876`"}],
  SequenceForm[
  "ii=", 527, " b=", {3339.5452867691943`, -3328.143823989232, 
   4387.751940447643}, "  magnitude b=", 6440.611083308949, 
   " (R - EARTHR)=  ", 70.61108330894876],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462582304*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"664b2957-cb8a-3f48-86ef-530effaec136"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "528", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3338.653748760781`", ",", 
     RowBox[{"-", "3328.008316726523`"}], ",", "4388.009172266655`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6440.254087084734`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "70.25408708473424`"}],
  SequenceForm[
  "ii=", 528, " b=", {3338.653748760781, -3328.008316726523, 
   4388.009172266655}, "  magnitude b=", 6440.254087084734, 
   " (R - EARTHR)=  ", 70.25408708473424],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625833015`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"ac988a5c-f0d1-d143-84a5-815d6abea37c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "529", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3337.7621998623295`", ",", 
     RowBox[{"-", "3327.8728009115484`"}], ",", "4388.266391415004`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6439.897188923062`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "69.89718892306155`"}],
  SequenceForm[
  "ii=", 529, " b=", {3337.7621998623295`, -3327.8728009115484`, 
   4388.266391415004}, "  magnitude b=", 6439.897188923062, 
   " (R - EARTHR)=  ", 69.89718892306155],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462584303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"c13e4dff-6f58-4b42-b732-14950ead65cc"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "530", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3336.870641152062`", ",", 
     RowBox[{"-", "3327.7372773789043`"}], ",", "4388.523599136268`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6439.540390681285`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "69.54039068128532`"}],
  SequenceForm[
  "ii=", 530, " b=", {3336.870641152062, -3327.7372773789043`, 
   4388.523599136268}, "  magnitude b=", 6439.540390681285, 
   " (R - EARTHR)=  ", 69.54039068128532],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625853024`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"7033e920-e140-ef4f-90d1-3ff3769ac5b0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "531", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3335.979073603189`", ",", 
     RowBox[{"-", "3327.6017468821924`"}], ",", "4388.780796553337`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6439.183694038177`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "69.18369403817724`"}],
  SequenceForm[
  "ii=", 531, " b=", {3335.979073603189, -3327.6017468821924`, 
   4388.780796553337}, "  magnitude b=", 6439.183694038177, 
   " (R - EARTHR)=  ", 69.18369403817724],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462587303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"08a56859-ec5f-d24e-b38a-91c7bf9f4eb8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "532", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3335.087498093682`", ",", 
     RowBox[{"-", "3327.466210101559`"}], ",", "4389.037984679619`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6438.827100510537`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "68.8271005105371`"}],
  SequenceForm[
  "ii=", 532, " b=", {3335.087498093682, -3327.466210101559, 
   4389.037984679619}, "  magnitude b=", 6438.827100510537, 
   " (R - EARTHR)=  ", 68.8271005105371],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625883045`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"92ccdabe-6491-2343-aa23-ea01d06ef9ef"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "533", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3334.1959154152`", ",", 
     RowBox[{"-", "3327.3306676505795`"}], ",", "4389.295164429286`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6438.47061146836`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "68.4706114683604`"}],
  SequenceForm[
  "ii=", 533, " b=", {3334.1959154152, -3327.3306676505795`, 
   4389.295164429286}, "  magnitude b=", 6438.47061146836, " (R - EARTHR)=  ",
    68.4706114683604],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462589304*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"80a59d0a-9719-7140-844b-16df62f36ccf"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "534", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3333.304326281233`", ",", 
     RowBox[{"-", "3327.195120082534`"}], ",", "4389.552336626616`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6438.114228148674`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "68.11422814867365`"}],
  SequenceForm[
  "ii=", 534, " b=", {3333.304326281233, -3327.195120082534, 
   4389.552336626616}, "  magnitude b=", 6438.114228148674, 
   " (R - EARTHR)=  ", 68.11422814867365],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625903034`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"401fd892-6bd6-e543-9e99-6d21178c9582"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "535", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3332.412731334532`", ",", 
     RowBox[{"-", "3327.0595678961427`"}], ",", "4389.809502014514`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6437.757951668163`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "67.7579516681626`"}],
  SequenceForm[
  "ii=", 535, " b=", {3332.412731334532, -3327.0595678961427`, 
   4389.809502014514}, "  magnitude b=", 6437.757951668163, 
   " (R - EARTHR)=  ", 67.7579516681626],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462591305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"649fb118-42d6-8a44-bf35-950078367869"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "536", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3331.521131153878`", ",", 
     RowBox[{"-", "3326.924011540782`"}], ",", "4390.06666126229`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6437.401783034678`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "67.40178303467837`"}],
  SequenceForm[
  "ii=", 536, " b=", {3331.521131153878, -3326.924011540782, 
   4390.06666126229}, "  magnitude b=", 6437.401783034678, " (R - EARTHR)=  ",
    67.40178303467837],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625923023`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"278e021e-dece-d549-a33f-3b150a4286d7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "537", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3330.629526260244`", ",", 
     RowBox[{"-", "3326.7884514212396`"}], ",", "4390.323814972732`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6437.045723157712`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "67.04572315771202`"}],
  SequenceForm[
  "ii=", 537, " b=", {3330.629526260244, -3326.7884514212396`, 
   4390.323814972732}, "  magnitude b=", 6437.045723157712, 
   " (R - EARTHR)=  ", 67.04572315771202],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462594303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"1ceefd51-40d2-2f4a-879a-885759cc11bd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "538", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3329.737917122407`", ",", 
     RowBox[{"-", "3326.6528879020466`"}], ",", "4390.580963688552`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6436.689772857939`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "66.6897728579388`"}],
  SequenceForm[
  "ii=", 538, " b=", {3329.737917122407, -3326.6528879020466`, 
   4390.580963688552}, "  magnitude b=", 6436.689772857939, 
   " (R - EARTHR)=  ", 66.6897728579388],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625953045`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"5407d01b-5738-2c43-842f-6dfb15c176eb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "539", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3328.846304162048`", ",", 
     RowBox[{"-", "3326.5173213114085`"}], ",", "4390.838107898249`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6436.33393287589`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "66.33393287589024`"}],
  SequenceForm[
  "ii=", 539, " b=", {3328.846304162048, -3326.5173213114085`, 
   4390.838107898249}, "  magnitude b=", 6436.33393287589, " (R - EARTHR)=  ",
    66.33393287589024],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462596304*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"0c275c7d-9787-914a-9db8-e18cbada49ea"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "540", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3327.954687758383`", ",", 
     RowBox[{"-", "3326.381751944785`"}], ",", "4391.09524804143`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6435.978203879833`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "65.97820387983302`"}],
  SequenceForm[
  "ii=", 540, " b=", {3327.954687758383, -3326.381751944785, 
   4391.09524804143}, "  magnitude b=", 6435.978203879833, " (R - EARTHR)=  ",
    65.97820387983302],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625973034`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"a34cc4cd-ab2d-a049-bba7-36bf07cfa6a6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "541", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3327.063068252377`", ",", 
     RowBox[{"-", "3326.2461800681367`"}], ",", "4391.3523845136515`"}], 
    "}"}], "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]",
    "6435.62258647293`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "65.62258647293038`"}],
  SequenceForm[
  "ii=", 541, " b=", {3327.063068252377, -3326.2461800681367`, 
   4391.3523845136515`}, "  magnitude b=", 6435.62258647293, 
   " (R - EARTHR)=  ", 65.62258647293038],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625983047`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"33c45ad7-a426-b440-bc67-a855d9982047"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "542", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3326.171445950559`", ",", 
     RowBox[{"-", "3326.110605920877`"}], ",", "4391.609517670813`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6435.267081199742`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "65.26708119974228`"}],
  SequenceForm[
  "ii=", 542, " b=", {3326.171445950559, -3326.110605920877, 
   4391.609517670813}, "  magnitude b=", 6435.267081199742, 
   " (R - EARTHR)=  ", 65.26708119974228],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344625993023`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"c9437d88-6749-4441-85b4-543684850b4c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "543", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3325.2798211284803`", ",", 
     RowBox[{"-", "3325.9750297185374`"}], ",", "4391.866647833138`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6434.91168855211`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "64.91168855210981`"}],
  SequenceForm[
  "ii=", 543, " b=", {3325.2798211284803`, -3325.9750297185374`, 
   4391.866647833138}, "  magnitude b=", 6434.91168855211, " (R - EARTHR)=  ",
    64.91168855210981],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462601305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"c52abad8-4a52-db4b-bc89-ecba2c29fc19"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "544", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3324.3881940338606`", ",", 
     RowBox[{"-", "3325.8394516552007`"}], ",", "4392.123775288781`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6434.556408974503`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "64.55640897450303`"}],
  SequenceForm[
  "ii=", 544, " b=", {3324.3881940338606`, -3325.8394516552007`, 
   4392.123775288781}, "  magnitude b=", 6434.556408974503, 
   " (R - EARTHR)=  ", 64.55640897450303],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626023045`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"4200dabf-bb33-4644-80d7-a487076c6135"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "545", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3323.4965648894135`", ",", 
     RowBox[{"-", "3325.703871905681`"}], ",", "4392.380900297096`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6434.201242868838`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "64.20124286883765`"}],
  SequenceForm[
  "ii=", 545, " b=", {3323.4965648894135`, -3325.703871905681, 
   4392.380900297096}, "  magnitude b=", 6434.201242868838, 
   " (R - EARTHR)=  ", 64.20124286883765],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462603306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"01087db8-3e4f-8940-867f-06562fd8ccaa"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "546", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3322.60493389542`", ",", 
     RowBox[{"-", "3325.5682906275138`"}], ",", "4392.63802309159`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6433.846190598853`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "63.846190598853354`"}],
  SequenceForm[
  "ii=", 546, " b=", {3322.60493389542, -3325.5682906275138`, 
   4392.63802309159}, "  magnitude b=", 6433.846190598853, " (R - EARTHR)=  ",
    63.846190598853354`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626053047`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"73a39892-a274-d44e-a196-ce48496af000"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "547", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3321.7133012320446`", ",", 
     RowBox[{"-", "3325.4327079627437`"}], ",", "4392.895143882598`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6433.491252494063`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "63.49125249406279`"}],
  SequenceForm[
  "ii=", 547, " b=", {3321.7133012320446`, -3325.4327079627437`, 
   4392.895143882598}, "  magnitude b=", 6433.491252494063, 
   " (R - EARTHR)=  ", 63.49125249406279],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462606306*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"d6579833-e2ac-e549-9681-2e767381e56c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "548", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3320.821667061429`", ",", 
     RowBox[{"-", "3325.2971240395414`"}], ",", "4393.152262859686`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6433.136428853306`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "63.136428853305915`"}],
  SequenceForm[
  "ii=", 548, " b=", {3320.821667061429, -3325.2971240395414`, 
   4393.152262859686}, "  magnitude b=", 6433.136428853306, 
   " (R - EARTHR)=  ", 63.136428853305915`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626073017`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"2dd6928f-b20e-2046-a8e7-eee9bc132b9c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "549", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3319.9300315295723`", ",", 
     RowBox[{"-", "3325.161538973659`"}], ",", "4393.409380193828`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6432.781719947968`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "62.78171994796776`"}],
  SequenceForm[
  "ii=", 549, " b=", {3319.9300315295723`, -3325.161538973659, 
   4393.409380193828}, "  magnitude b=", 6432.781719947968, 
   " (R - EARTHR)=  ", 62.78171994796776],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462608303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"1251d759-9a28-5948-9ac2-07fba0bcb02d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "550", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3319.0383947680357`", ",", 
     RowBox[{"-", "3325.0259528697457`"}], ",", "4393.666496039361`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6432.427126024867`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "62.42712602486699`"}],
  SequenceForm[
  "ii=", 550, " b=", {3319.0383947680357`, -3325.0259528697457`, 
   4393.666496039361}, "  magnitude b=", 6432.427126024867, 
   " (R - EARTHR)=  ", 62.42712602486699],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626093025`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"1d6ba15a-a3ab-4748-88c8-c2782a83c3c9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "551", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3318.146756895464`", ",", 
     RowBox[{"-", "3324.8903658225167`"}], ",", "4393.923610535747`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6432.072647308857`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "62.072647308857086`"}],
  SequenceForm[
  "ii=", 551, " b=", {3318.146756895464, -3324.8903658225167`, 
   4393.923610535747}, "  magnitude b=", 6432.072647308857, 
   " (R - EARTHR)=  ", 62.072647308857086`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462610302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"32a406c7-e494-3d48-9fac-f65e8e37898b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "552", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3317.255118018955`", ",", 
     RowBox[{"-", "3324.754777917821`"}], ",", "4394.180723809143`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6431.718284005152`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "61.71828400515187`"}],
  SequenceForm[
  "ii=", 552, " b=", {3317.255118018955, -3324.754777917821, 
   4394.180723809143}, "  magnitude b=", 6431.718284005152, 
   " (R - EARTHR)=  ", 61.71828400515187],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626113033`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"99cf42a3-2f08-3b4d-8d9f-ea6cc06ca9cd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "553", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3316.3634782352888`", ",", 
     RowBox[{"-", "3324.619189233577`"}], ",", "4394.437835973824`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6431.36403630142`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "61.36403630142013`"}],
  SequenceForm[
  "ii=", 553, " b=", {3316.3634782352888`, -3324.619189233577, 
   4394.437835973824}, "  magnitude b=", 6431.36403630142, " (R - EARTHR)=  ",
    61.36403630142013],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462613302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"5d884519-1c70-1840-85b6-6c8f485f50a2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "554", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3315.471837632021`", ",", 
     RowBox[{"-", "3324.483599840624`"}], ",", "4394.694947133441`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6431.009904369649`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "61.00990436964912`"}],
  SequenceForm[
  "ii=", 554, " b=", {3315.471837632021, -3324.483599840624, 
   4394.694947133441}, "  magnitude b=", 6431.009904369649, 
   " (R - EARTHR)=  ", 61.00990436964912],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626143036`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"b5fe7517-db75-9044-8e33-615f5d1c2ad5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "555", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3314.580196288467`", ",", 
     RowBox[{"-", "3324.3480098034734`"}], ",", "4394.952057382149`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6430.65588836781`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "60.655888367809894`"}],
  SequenceForm[
  "ii=", 555, " b=", {3314.580196288467, -3324.3480098034734`, 
   4394.952057382149}, "  magnitude b=", 6430.65588836781, " (R - EARTHR)=  ",
    60.655888367809894`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462615305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"199e829f-fcea-0c44-80ab-9280de6d302c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "556", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3313.6885542765676`", ",", 
     RowBox[{"-", "3324.212419180976`"}], ",", "4395.209166805611`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6430.301988441339`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "60.301988441338835`"}],
  SequenceForm[
  "ii=", 556, " b=", {3313.6885542765676`, -3324.212419180976, 
   4395.209166805611}, "  magnitude b=", 6430.301988441339, 
   " (R - EARTHR)=  ", 60.301988441338835`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626163025`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"e60d3316-85c7-f94d-88c5-971b94f152d1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "557", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3312.796911661662`", ",", 
     RowBox[{"-", "3324.076828026913`"}], ",", "4395.466275481881`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6429.948204724442`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "59.948204724441894`"}],
  SequenceForm[
  "ii=", 557, " b=", {3312.796911661662, -3324.076828026913, 
   4395.466275481881}, "  magnitude b=", 6429.948204724442, 
   " (R - EARTHR)=  ", 59.948204724441894`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462617304*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"99ff43ec-b776-da4c-aa89-5d5d034ad437"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "558", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3311.905268503174`", ",", 
     RowBox[{"-", "3323.941236390514`"}], ",", "4395.723383482193`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6429.594537341256`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "59.594537341256`"}],
  SequenceForm[
  "ii=", 558, " b=", {3311.905268503174, -3323.941236390514, 
   4395.723383482193}, "  magnitude b=", 6429.594537341256, 
   " (R - EARTHR)=  ", 59.594537341256],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626193047`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"dd3ae83d-8b4f-6e45-a218-af03213e9ae1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "559", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3311.0136248552144`", ",", 
     RowBox[{"-", "3323.8056443169257`"}], ",", "4395.980490871647`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6429.240986406875`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "59.24098640687498`"}],
  SequenceForm[
  "ii=", 559, " b=", {3311.0136248552144`, -3323.8056443169257`, 
   4395.980490871647}, "  magnitude b=", 6429.240986406875, 
   " (R - EARTHR)=  ", 59.24098640687498],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462620304*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"12bff332-0be7-d842-9caf-b5fa9609dc70"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "560", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3310.1219807671077`", ",", 
     RowBox[{"-", "3323.670051847598`"}], ",", "4396.237597709817`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6428.887552028233`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "58.887552028232676`"}],
  SequenceForm[
  "ii=", 560, " b=", {3310.1219807671077`, -3323.670051847598, 
   4396.237597709817}, "  magnitude b=", 6428.887552028233, 
   " (R - EARTHR)=  ", 58.887552028232676`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626213036`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"8bc33cdd-73a9-ba4f-aff6-cba75a2182bb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "561", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3309.230336283857`", ",", 
     RowBox[{"-", "3323.53445902064`"}], ",", "4396.494704051275`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6428.534234304885`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "58.5342343048851`"}],
  SequenceForm[
  "ii=", 561, " b=", {3309.230336283857, -3323.53445902064, 
   4396.494704051275}, "  magnitude b=", 6428.534234304885, 
   " (R - EARTHR)=  ", 58.5342343048851],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462622303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"809ff8e1-2402-0f4d-a12b-671e383bd1ae"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "562", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3308.33869144655`", ",", 
     RowBox[{"-", "3323.3988658711187`"}], ",", "4396.751809946055`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6428.181033329694`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "58.1810333296944`"}],
  SequenceForm[
  "ii=", 562, " b=", {3308.33869144655, -3323.3988658711187`, 
   4396.751809946055}, "  magnitude b=", 6428.181033329694, 
   " (R - EARTHR)=  ", 58.1810333296944],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626233025`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"2ad03619-944c-b144-a01f-ad36840e3dfb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "563", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3307.4470462927075`", ",", 
     RowBox[{"-", "3323.2632724313194`"}], ",", "4397.008915440043`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6427.827949189406`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "57.827949189406354`"}],
  SequenceForm[
  "ii=", 563, " b=", {3307.4470462927075`, -3323.2632724313194`, 
   4397.008915440043}, "  magnitude b=", 6427.827949189406, 
   " (R - EARTHR)=  ", 57.827949189406354`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462624302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"82a8ba65-4262-3d40-aaec-611c3200b13d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "564", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3306.5554008565928`", ",", 
     RowBox[{"-", "3323.1276787309657`"}], ",", "4397.266020575332`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6427.474981965171`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "57.47498196517063`"}],
  SequenceForm[
  "ii=", 564, " b=", {3306.5554008565928`, -3323.1276787309657`, 
   4397.266020575332}, "  magnitude b=", 6427.474981965171, 
   " (R - EARTHR)=  ", 57.47498196517063],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626253033`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"3b615457-d8f6-0e40-b036-a6370e9a170f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "565", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3305.663755169481`", ",", 
     RowBox[{"-", "3322.992084797417`"}], ",", "4397.523125390506`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6427.12213173297`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "57.12213173297005`"}],
  SequenceForm[
  "ii=", 565, " b=", {3305.663755169481, -3322.992084797417, 
   4397.523125390506}, "  magnitude b=", 6427.12213173297, " (R - EARTHR)=  ",
    57.12213173297005],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626263027`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"ad67aab5-df3d-1243-b953-8c5c5f8cc64b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "566", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3304.7721092598845`", ",", 
     RowBox[{"-", "3322.8564906558263`"}], ",", "4397.780229920907`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6426.769398564006`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "56.769398564006224`"}],
  SequenceForm[
  "ii=", 566, " b=", {3304.7721092598845`, -3322.8564906558263`, 
   4397.780229920907}, "  magnitude b=", 6426.769398564006, 
   " (R - EARTHR)=  ", 56.769398564006224`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462627302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"b40a9c48-bc27-1542-8bc4-e67c67103663"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "567", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3303.8804631537605`", ",", 
     RowBox[{"-", "3322.720896329287`"}], ",", "4398.03733419886`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6426.416782525035`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "56.41678252503516`"}],
  SequenceForm[
  "ii=", 567, " b=", {3303.8804631537605`, -3322.720896329287, 
   4398.03733419886}, "  magnitude b=", 6426.416782525035, " (R - EARTHR)=  ",
    56.41678252503516],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462629303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"4837735b-c347-6543-a131-d198c6eed13e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "568", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3302.9888168746916`", ",", 
     RowBox[{"-", "3322.585301838957`"}], ",", "4398.29443825386`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6426.064283678649`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "56.06428367864919`"}],
  SequenceForm[
  "ii=", 568, " b=", {3302.9888168746916`, -3322.585301838957, 
   4398.29443825386}, "  magnitude b=", 6426.064283678649, " (R - EARTHR)=  ",
    56.06428367864919],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626303024`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"1c1b5089-d87a-8f4f-99c4-7b866dc2c185"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "569", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3302.097170444045`", ",", 
     RowBox[{"-", "3322.449707204168`"}], ",", "4398.5515421127575`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6425.711902083546`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "55.71190208354619`"}],
  SequenceForm[
  "ii=", 569, " b=", {3302.097170444045, -3322.449707204168, 
   4398.5515421127575`}, "  magnitude b=", 6425.711902083546, 
   " (R - EARTHR)=  ", 55.71190208354619],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462631304*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"fc97a86f-c6b6-7b42-ab4b-623133877482"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "570", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3301.2055238811176`", ",", 
     RowBox[{"-", "3322.3141124425256`"}], ",", "4398.808645799916`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6425.359637794764`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "55.35963779476424`"}],
  SequenceForm[
  "ii=", 570, " b=", {3301.2055238811176`, -3322.3141124425256`, 
   4398.808645799916}, "  magnitude b=", 6425.359637794764, 
   " (R - EARTHR)=  ", 55.35963779476424],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626333027`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"11a0742b-0587-c64f-b822-ffc451239507"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "571", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3300.313877203278`", ",", 
     RowBox[{"-", "3322.1785175700047`"}], ",", "4399.065749337357`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6425.007490863899`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "55.007490863898965`"}],
  SequenceForm[
  "ii=", 571, " b=", {3300.313877203278, -3322.1785175700047`, 
   4399.065749337357}, "  magnitude b=", 6425.007490863899, 
   " (R - EARTHR)=  ", 55.007490863898965`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462634304*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"c048329a-0935-7a4c-a345-f4782c7c3ece"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "572", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3299.4222304260898`", ",", 
     RowBox[{"-", "3322.0429226010356`"}], ",", "4399.322852744903`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6424.655461339312`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "54.65546133931184`"}],
  SequenceForm[
  "ii=", 572, " b=", {3299.4222304260898`, -3322.0429226010356`, 
   4399.322852744903}, "  magnitude b=", 6424.655461339312, 
   " (R - EARTHR)=  ", 54.65546133931184],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626353016`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"c377bc94-6374-1749-85ae-ddbdacbf7f29"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "573", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3298.5305835634313`", ",", 
     RowBox[{"-", "3321.907327548592`"}], ",", "4399.579956040313`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6424.303549266334`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "54.3035492663339`"}],
  SequenceForm[
  "ii=", 573, " b=", {3298.5305835634313`, -3321.907327548592, 
   4399.579956040313}, "  magnitude b=", 6424.303549266334, 
   " (R - EARTHR)=  ", 54.3035492663339],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462636305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"5797f9b3-9157-d246-9965-0cef1ddbe7e1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "574", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3297.6389366276203`", ",", 
     RowBox[{"-", "3321.7717324242785`"}], ",", "4399.837059239416`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6423.9517546874595`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "53.95175468745947`"}],
  SequenceForm[
  "ii=", 574, " b=", {3297.6389366276203`, -3321.7717324242785`, 
   4399.837059239416}, "  magnitude b=", 6423.9517546874595`, 
   " (R - EARTHR)=  ", 53.95175468745947],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626373043`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"60473e51-064f-674a-8a02-a05e2f715a43"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "575", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3296.74728962953`", ",", 
     RowBox[{"-", "3321.636137238416`"}], ",", "4400.094162356241`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6423.600077642542`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "53.60007764254169`"}],
  SequenceForm[
  "ii=", 575, " b=", {3296.74728962953, -3321.636137238416, 
   4400.094162356241}, "  magnitude b=", 6423.600077642542, 
   " (R - EARTHR)=  ", 53.60007764254169],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462639303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"9c23c866-b4dd-da42-8f29-3dc88a599a83"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "576", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3295.855642578699`", ",", 
     RowBox[{"-", "3321.50054200013`"}], ",", "4400.351265403153`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6423.248518168991`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "53.24851816899081`"}],
  SequenceForm[
  "ii=", 576, " b=", {3295.855642578699, -3321.50054200013, 
   4400.351265403153}, "  magnitude b=", 6423.248518168991, 
   " (R - EARTHR)=  ", 53.24851816899081],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626403027`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f309be5b-59ef-c84f-b662-9c65d5f44883"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "577", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3294.963995483449`", ",", 
     RowBox[{"-", "3321.364946717439`"}], ",", "4400.608368390983`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6422.897076301965`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "52.89707630196517`"}],
  SequenceForm[
  "ii=", 577, " b=", {3294.963995483449, -3321.364946717439, 
   4400.608368390983}, "  magnitude b=", 6422.897076301965, 
   " (R - EARTHR)=  ", 52.89707630196517],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462641302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"30b2dc3c-1c3b-2f45-940f-809f654bb93f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "578", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3294.0723483509923`", ",", 
     RowBox[{"-", "3321.2293513973455`"}], ",", "4400.865471329155`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6422.545752074565`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "52.545752074564916`"}],
  SequenceForm[
  "ii=", 578, " b=", {3294.0723483509923`, -3321.2293513973455`, 
   4400.865471329155}, "  magnitude b=", 6422.545752074565, 
   " (R - EARTHR)=  ", 52.545752074564916`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626423016`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"9f72b3cb-2a69-d245-b87f-00228a9e8f3b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "579", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3293.1807011875444`", ",", 
     RowBox[{"-", "3321.093756045921`"}], ",", "4401.122574225824`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6422.194545518021`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "52.19454551802119`"}],
  SequenceForm[
  "ii=", 579, " b=", {3293.1807011875444`, -3321.093756045921, 
   4401.122574225824}, "  magnitude b=", 6422.194545518021, 
   " (R - EARTHR)=  ", 52.19454551802119],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462643303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"dd50839d-e16a-5c48-9061-3fb20abb7133"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "580", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3292.2890539984223`", ",", 
     RowBox[{"-", "3320.9581606684014`"}], ",", "4401.379677087994`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6421.843456661887`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "51.8434566618871`"}],
  SequenceForm[
  "ii=", 580, " b=", {3292.2890539984223`, -3320.9581606684014`, 
   4401.379677087994}, "  magnitude b=", 6421.843456661887, 
   " (R - EARTHR)=  ", 51.8434566618871],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626443024`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"9a875483-e62c-8544-9b3d-699c324c208f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "581", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3291.3974067881486`", ",", 
     RowBox[{"-", "3320.8225652692663`"}], ",", "4401.636779921642`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6421.492485534205`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "51.492485534205116`"}],
  SequenceForm[
  "ii=", 581, " b=", {3291.3974067881486`, -3320.8225652692663`, 
   4401.636779921642}, "  magnitude b=", 6421.492485534205, 
   " (R - EARTHR)=  ", 51.492485534205116`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462645302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"a46540d1-8e93-bf43-aa7e-1d1d154e9ef3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "582", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3290.5057595605426`", ",", 
     RowBox[{"-", "3320.6869698523246`"}], ",", "4401.89388273184`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6421.141632161692`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "51.14163216169163`"}],
  SequenceForm[
  "ii=", 582, " b=", {3290.5057595605426`, -3320.6869698523246`, 
   4401.89388273184}, "  magnitude b=", 6421.141632161692, " (R - EARTHR)=  ",
    51.14163216169163],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626473026`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"57164a09-b830-754d-83b2-e20104f597fd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "583", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3289.6141123188127`", ",", 
     RowBox[{"-", "3320.5513744207947`"}], ",", "4402.150985522858`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6420.790896569891`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "50.79089656989072`"}],
  SequenceForm[
  "ii=", 583, " b=", {3289.6141123188127`, -3320.5513744207947`, 
   4402.150985522858}, "  magnitude b=", 6420.790896569891, 
   " (R - EARTHR)=  ", 50.79089656989072],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462648304*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"5e083c31-0ba8-e640-b9f9-dddff0a5295a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "584", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3288.7224650656312`", ",", 
     RowBox[{"-", "3320.4157789773767`"}], ",", "4402.408088298271`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6420.440278783328`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "50.44027878332781`"}],
  SequenceForm[
  "ii=", 584, " b=", {3288.7224650656312`, -3320.4157789773767`, 
   4402.408088298271}, "  magnitude b=", 6420.440278783328, 
   " (R - EARTHR)=  ", 50.44027878332781],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462650305*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"096e7477-67db-1c4a-89fe-0cba83aabc30"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "585", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3287.830817803217`", ",", 
     RowBox[{"-", "3320.2801835243204`"}], ",", "4402.665191061053`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6420.089778825645`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "50.089778825645226`"}],
  SequenceForm[
  "ii=", 585, " b=", {3287.830817803217, -3320.2801835243204`, 
   4402.665191061053}, "  magnitude b=", 6420.089778825645, 
   " (R - EARTHR)=  ", 50.089778825645226`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626513042`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"bb50499f-952d-7d48-aca5-0cb09812b4e9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "586", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3286.9391705333965`", ",", 
     RowBox[{"-", "3320.1445880634915`"}], ",", "4402.92229381366`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6419.73939671973`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "49.739396719730394`"}],
  SequenceForm[
  "ii=", 586, " b=", {3286.9391705333965`, -3320.1445880634915`, 
   4402.92229381366}, "  magnitude b=", 6419.73939671973, " (R - EARTHR)=  ", 
   49.739396719730394`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626523037`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"cb22d376-f4a0-1640-89c8-a856701b8c5f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "587", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3286.0475232576646`", ",", 
     RowBox[{"-", "3320.0089925964267`"}], ",", "4403.179396558112`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6419.389132487828`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "49.38913248782774`"}],
  SequenceForm[
  "ii=", 587, " b=", {3286.0475232576646`, -3320.0089925964267`, 
   4403.179396558112}, "  magnitude b=", 6419.389132487828, 
   " (R - EARTHR)=  ", 49.38913248782774],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462653303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"0229b24d-2655-5543-adcf-a199270ce455"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "588", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3285.155875977241`", ",", 
     RowBox[{"-", "3319.8733971243787`"}], ",", "4403.436499296056`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6419.03898615164`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "49.03898615163962`"}],
  SequenceForm[
  "ii=", 588, " b=", {3285.155875977241, -3319.8733971243787`, 
   4403.436499296056}, "  magnitude b=", 6419.03898615164, " (R - EARTHR)=  ",
    49.03898615163962],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626543045`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f642c021-82de-8041-95b8-5a91bab3ea0c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "589", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3284.2642286931095`", ",", 
     RowBox[{"-", "3319.737801648373`"}], ",", "4403.693602028831`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6418.688957732411`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "48.68895773241093`"}],
  SequenceForm[
  "ii=", 589, " b=", {3284.2642286931095`, -3319.737801648373, 
   4403.693602028831}, "  magnitude b=", 6418.688957732411, 
   " (R - EARTHR)=  ", 48.68895773241093],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462655302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"6b13b620-5cda-7748-979e-a883d28c5863"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "590", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3283.3725814060667`", ",", 
     RowBox[{"-", "3319.602206169235`"}], ",", "4403.950704757519`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6418.339047251013`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "48.339047251012744`"}],
  SequenceForm[
  "ii=", 590, " b=", {3283.3725814060667`, -3319.602206169235, 
   4403.950704757519}, "  magnitude b=", 6418.339047251013, 
   " (R - EARTHR)=  ", 48.339047251012744`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626563015`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"35762a21-6a12-f14d-9478-839bdcebd960"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "591", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3282.4809341167484`", ",", 
     RowBox[{"-", "3319.4666106876307`"}], ",", "4404.207807482988`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6417.989254728002`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "47.98925472800238`"}],
  SequenceForm[
  "ii=", 591, " b=", {3282.4809341167484`, -3319.4666106876307`, 
   4404.207807482988}, "  magnitude b=", 6417.989254728002, 
   " (R - EARTHR)=  ", 47.98925472800238],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626583023`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"ceb3df8e-fe6a-c74c-918d-9bada71d9cfd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "592", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3281.5892868256606`", ",", 
     RowBox[{"-", "3319.3310152040935`"}], ",", "4404.464910205929`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6417.639580183676`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "47.63958018367612`"}],
  SequenceForm[
  "ii=", 592, " b=", {3281.5892868256606`, -3319.3310152040935`, 
   4404.464910205929}, "  magnitude b=", 6417.639580183676, 
   " (R - EARTHR)=  ", 47.63958018367612],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626593018`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"9a61419b-3b14-1342-80a6-27ff745f834f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "593", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3280.6976395332053`", ",", 
     RowBox[{"-", "3319.1954197190453`"}], ",", "4404.722012926896`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6417.290023638125`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "47.290023638124694`"}],
  SequenceForm[
  "ii=", 593, " b=", {3280.6976395332053`, -3319.1954197190453`, 
   4404.722012926896}, "  magnitude b=", 6417.290023638125, 
   " (R - EARTHR)=  ", 47.290023638124694`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462660303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"8af950ab-ecad-b348-811b-becf67822072"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "594", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3279.805992239701`", ",", 
     RowBox[{"-", "3319.059824232823`"}], ",", "4404.979115646324`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6416.940585111268`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "46.940585111267865`"}],
  SequenceForm[
  "ii=", 594, " b=", {3279.805992239701, -3319.059824232823, 
   4404.979115646324}, "  magnitude b=", 6416.940585111268, 
   " (R - EARTHR)=  ", 46.940585111267865`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626613026`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"6737e6c9-339d-2641-a7fb-4a44d64eb348"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "595", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3278.9143449453973`", ",", 
     RowBox[{"-", "3318.9242287456914`"}], ",", "4405.2362183645555`"}], 
    "}"}], "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]",
    "6416.591264622887`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "46.59126462288714`"}],
  SequenceForm[
  "ii=", 595, " b=", {3278.9143449453973`, -3318.9242287456914`, 
   4405.2362183645555`}, "  magnitude b=", 6416.591264622887, 
   " (R - EARTHR)=  ", 46.59126462288714],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462662302*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"e956f44c-1b4e-9c4f-8e8d-5ad79088a352"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "596", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3278.022697650487`", ",", 
     RowBox[{"-", "3318.7886332578582`"}], ",", "4405.493321081861`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6416.242062192652`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "46.242062192652156`"}],
  SequenceForm[
  "ii=", 596, " b=", {3278.022697650487, -3318.7886332578582`, 
   4405.493321081861}, "  magnitude b=", 6416.242062192652, 
   " (R - EARTHR)=  ", 46.242062192652156`],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626633034`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"2df9ce02-1d05-824c-ad83-e1cf23f93935"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "597", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3277.131050355125`", ",", 
     RowBox[{"-", "3318.6530377694867`"}], ",", "4405.750423798449`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6415.89297784015`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "45.8929778401498`"}],
  SequenceForm[
  "ii=", 597, " b=", {3277.131050355125, -3318.6530377694867`, 
   4405.750423798449}, "  magnitude b=", 6415.89297784015, " (R - EARTHR)=  ",
    45.8929778401498],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626643047`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"d3590be1-5d93-7a45-a4ca-0590fe5b821d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "598", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3276.2394030594282`", ",", 
     RowBox[{"-", "3318.517442280702`"}], ",", "4406.007526514483`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6415.544011584889`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "45.54401158488872`"}],
  SequenceForm[
  "ii=", 598, " b=", {3276.2394030594282`, -3318.517442280702, 
   4406.007526514483}, "  magnitude b=", 6415.544011584889, 
   " (R - EARTHR)=  ", 45.54401158488872],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626663036`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"e1db46f6-29da-3043-ac8d-8f7cacf4426d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "599", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3275.3477557634865`", ",", 
     RowBox[{"-", "3318.381846791603`"}], ",", "4406.264629230089`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6415.195163446326`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "45.19516344632575`"}],
  SequenceForm[
  "ii=", 599, " b=", {3275.3477557634865`, -3318.381846791603, 
   4406.264629230089}, "  magnitude b=", 6415.195163446326, 
   " (R - EARTHR)=  ", 45.19516344632575],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462667303*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"ec323ffb-75fd-3b4f-b7cc-d9f723d000c3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "600", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3274.456108467373`", ",", 
     RowBox[{"-", "3318.2462513022633`"}], ",", "4406.521731945363`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6414.846433443873`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "44.84643344387314`"}],
  SequenceForm[
  "ii=", 600, " b=", {3274.456108467373, -3318.2462513022633`, 
   4406.521731945363}, "  magnitude b=", 6414.846433443873, 
   " (R - EARTHR)=  ", 44.84643344387314],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626683044`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"ab0d2f7d-08b1-9648-8b77-76096ded5929"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "601", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3273.5644611711386`", ",", 
     RowBox[{"-", "3318.1106558127426`"}], ",", "4406.778834660381`"}], "}"}],
    "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6414.497821596907`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "44.49782159690676`"}],
  SequenceForm[
  "ii=", 601, " b=", {3273.5644611711386`, -3318.1106558127426`, 
   4406.778834660381}, "  magnitude b=", 6414.497821596907, 
   " (R - EARTHR)=  ", 44.49782159690676],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.967434462669304*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"6c927fdd-f8ce-ac4d-8095-2a6e0ff900fc"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "602", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3272.6728138748244`", ",", 
     RowBox[{"-", "3317.9750603230846`"}], ",", "4407.0359373752`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6414.149327924775`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "44.14932792477521`"}],
  SequenceForm[
  "ii=", 602, " b=", {3272.6728138748244`, -3317.9750603230846`, 
   4407.0359373752}, "  magnitude b=", 6414.149327924775, " (R - EARTHR)=  ", 
   44.14932792477521],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626703033`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"ca6744bb-079c-0542-92f4-0e612b002a6c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"ii=\"\>", "\[InvisibleSpace]", "603", 
   "\[InvisibleSpace]", "\<\" b=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3446.4450456285913`"}], ",", "3038.9284739099885`", ",", 
     "4411.783117733831`"}], "}"}], 
   "\[InvisibleSpace]", "\<\"  magnitude b=\"\>", "\[InvisibleSpace]", 
   "6370.`", "\[InvisibleSpace]", "\<\" (R - EARTHR)=  \"\>", "\[InvisibleSpace]",
    "0.`"}],
  SequenceForm[
  "ii=", 603, " b=", {-3446.4450456285913`, 3038.9284739099885`, 
   4411.783117733831}, "  magnitude b=", 6370., " (R - EARTHR)=  ", 0.],
  Editable->False]], "Print",
 CellChangeTimes->{3.967434333631321*^9, 3.967434374714283*^9, 
  3.9674344626723022`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"1da52835-e68a-0b4c-8094-6e06e44f81f7"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellLabel->"In[27]:=",ExpressionUUID->"9a2c2f3c-535c-4e4a-8f7b-034ea1943bfa"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"Graphics3D", "[", 
     RowBox[{"arrowArray", ",", 
      RowBox[{"Axes", "\[Rule]", "True"}], ",", 
      RowBox[{"Boxed", "\[Rule]", "True"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3000", ",", "3610"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "3340"}], ",", 
           RowBox[{"-", "3302"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4000", ",", "4700"}], "}"}]}], "}"}]}]}], "]"}], ";"}], 
   "  ", 
   RowBox[{"(*", " ", 
    RowBox[{"45", " ", "Degrees"}], " ", "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Graphics3D", "[", 
      RowBox[{"arrowArray", ",", 
       RowBox[{"Axes", "\[Rule]", "True"}], ",", 
       RowBox[{"Boxed", "\[Rule]", "True"}], ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3020"}], ",", 
            RowBox[{"-", "2900"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"3100", ",", "3300"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4700", ",", "4900"}], "}"}]}], "}"}]}]}], " ", "]"}], ";",
      "  ", 
     RowBox[{"90", " ", "Degrees"}]}], " ", "*)"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.755460160174726*^9, 3.755460200851099*^9}, {
   3.755460867164393*^9, 3.7554608696101847`*^9}, {3.755461109551591*^9, 
   3.755461168134016*^9}, {3.755461222559847*^9, 3.755461225073848*^9}, {
   3.755461266072176*^9, 3.755461289662408*^9}, {3.755461340848538*^9, 
   3.755461352157701*^9}, {3.7554613900973577`*^9, 3.755461449990507*^9}, {
   3.755461589566959*^9, 3.755461619871396*^9}, {3.755463118441763*^9, 
   3.755463126184739*^9}, 3.75546315757937*^9, 3.7554636478915443`*^9, {
   3.755464749687929*^9, 3.7554647897473803`*^9}, {3.755466771693224*^9, 
   3.755466774660864*^9}, {3.755466831213698*^9, 3.7554668354604*^9}, {
   3.755467133843219*^9, 3.755467145920827*^9}, {3.755467324005324*^9, 
   3.755467334735742*^9}, {3.7554673830966597`*^9, 3.755467418515942*^9}, {
   3.7554674620970993`*^9, 3.755467466636093*^9}, {3.755467638108069*^9, 
   3.755467638523624*^9}, {3.7554677940417347`*^9, 3.755467794707505*^9}, {
   3.7554679523070908`*^9, 3.755467955262204*^9}, {3.755468165531446*^9, 
   3.755468166386797*^9}, {3.755468265416511*^9, 3.7554683358189363`*^9}, {
   3.755468422710059*^9, 3.755468463299807*^9}, {3.755468666343663*^9, 
   3.755468739513462*^9}, 3.755468770988674*^9, {3.755468815015856*^9, 
   3.755468821191153*^9}, {3.755469030255931*^9, 3.755469033941498*^9}, 
   3.75546930322577*^9, {3.7555121188523073`*^9, 3.7555121247926283`*^9}, {
   3.755513114731526*^9, 3.755513121472557*^9}, {3.755555558730844*^9, 
   3.755555590016902*^9}, {3.7555556365887957`*^9, 3.755555727513669*^9}, 
   3.75556328754053*^9, {3.7555637437099257`*^9, 3.7555641418577538`*^9}, {
   3.755564184927292*^9, 3.755564199731595*^9}, {3.755564330562236*^9, 
   3.755564560287678*^9}, {3.7555645911477337`*^9, 3.755564625043189*^9}, {
   3.755564676613998*^9, 3.755564724401286*^9}, {3.755564814474552*^9, 
   3.7555648456426287`*^9}, {3.755565590006876*^9, 3.755565683378108*^9}, {
   3.7555657486404667`*^9, 3.7555658161548986`*^9}, {3.7555658546603327`*^9, 
   3.755565865114225*^9}, {3.7555659151483707`*^9, 3.755565926180376*^9}, {
   3.755565988470562*^9, 3.755565989787838*^9}, {3.755566232008617*^9, 
   3.7555662669764442`*^9}, 3.755566307932926*^9, {3.755566928988954*^9, 
   3.755566935792899*^9}, {3.755580753057687*^9, 3.75558077614475*^9}, {
   3.755580837273147*^9, 3.755580839502508*^9}, 3.7555809369365683`*^9, {
   3.755581003893854*^9, 3.755581017586897*^9}, {3.755581500956444*^9, 
   3.75558150162593*^9}, 3.7555815427635727`*^9, {3.7555815740825157`*^9, 
   3.755581581295232*^9}, {3.75558171287801*^9, 3.755581743642158*^9}, {
   3.755583589775716*^9, 3.7555835909637737`*^9}, {3.75585958315222*^9, 
   3.755859589650029*^9}, {3.7558596480639668`*^9, 3.755859686894038*^9}, {
   3.7558597297840853`*^9, 3.7558597594288177`*^9}, {3.7558647755430403`*^9, 
   3.755864822248722*^9}, {3.75586498050228*^9, 3.7558650013553867`*^9}, {
   3.755865037372486*^9, 3.755865044520537*^9}, {3.755865093153824*^9, 
   3.755865111412982*^9}, {3.755865149263259*^9, 3.755865168955929*^9}, {
   3.755865216307288*^9, 3.755865219249228*^9}, 3.755865285961617*^9, {
   3.755865336823645*^9, 3.755865337443933*^9}, 3.755865387245805*^9, {
   3.75586546610378*^9, 3.755865470646001*^9}, {3.7558655128787518`*^9, 
   3.755865516100733*^9}, {3.7558655487024717`*^9, 3.7558656140164843`*^9}, {
   3.7558656566738987`*^9, 3.755865699572999*^9}, 3.75586576537414*^9},
 CellLabel->"In[31]:=",ExpressionUUID->"625cff88-5832-4274-b231-cb7aca7acda5"],

Cell[CellGroupData[{

Cell[BoxData["%31"], "Input",
 NumberMarks->False,
 CellLabel->"In[32]:=",ExpressionUUID->"09cc657a-49da-f94f-bda9-7019f1e433df"],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[0, 1, 0], 
    TagBox[SphereBox[{0, 0, 0}, 6370],
     "Ball"]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3607.1521344459875`, -3318.0154114106817`, 
      4191.806594287413}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3607.079323233201, -3318.226574267361, 
      4192.263879451036}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3607.006449855396, -3318.4376717247087`, 
      4192.721046413555}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3606.860603622866, -3318.859777078783, 
      4193.63527517657}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3606.7143729461104`, -3319.2814876780894`, 
      4194.548827081494}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3606.567852003294, -3319.702907638278, 
      4195.461909149543}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3606.4209138079245`, -3320.1239111158457`, 
      4196.374323315825}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3606.273489244594, -3320.5444281926843`, 
      4197.285953725247}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3606.1254847328337`, -3320.964365349201, 
      4198.196649891833}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3605.976790066587, -3321.3836125371877`, 
      4199.10623492866}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3605.827275962817, -3321.8020407606364`, 
      4200.014501688374}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3605.6767911105344`, -3322.2194991952297`, 
      4200.921208249322}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3605.5251588202245`, -3322.635811939489, 
      4201.826072861405}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3605.3721732289005`, -3323.050774365839, 
      4202.728768321336}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3605.2175950085484`, -3323.4641490371687`, 
      4203.628915751024}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3605.061146518087, -3323.8756611537474`, 
      4204.526077763096}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3604.9025063279732`, -3324.2849934940746`, 
      4205.419751012085}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3604.7413030304215`, -3324.6917808107437`, 
      4206.3093581497205`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3604.577108223087, -3325.095603636625, 
      4207.194239228903}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3604.4094285141846`, -3325.495981444288, 
      4208.073642634479}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3604.237696331542, -3325.8923650756815`, 
      4208.946715660225}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3604.0612592081457`, -3326.2841283064004`, 
      4209.812494899589}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3603.8793670269893`, -3326.6705583030407`, 
      4210.669896668882}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3603.6911563695835`, -3327.0508445182704`, 
      4211.517707723832}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3603.4956304835086`, -3327.4240651274254`, 
      4212.354576534077}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3603.2916321502116`, -3327.7891691678624`, 
      4213.1790052692995`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3603.0778041383255`, -3328.1449504154352`, 
      4213.989342228016}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3602.8525259701696`, -3328.4900038724168`, 
      4214.783773154196}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3602.6138005546086`, -3328.8226420210244`, 
      4215.560306045817}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3602.359020928266, -3329.140707434257, 
      4216.316731817551}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3602.0844120707284`, -3329.4410867249258`, 
      4217.050500089867}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3601.7835663942155`, -3329.718334528149, 
      4217.7582962882225`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3601.444813800974, -3329.9618563255653`, 
      4218.434913225924}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3601.055038559434, -3330.1583151843847`, 
      4219.073283441042}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3600.947977003799, -3330.1981708668177`, 
      4219.225227817946}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3600.8398030674107`, -3330.2368450284666`, 
      4219.375868592261}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3600.7285229915647`, -3330.272412645605, 
      4219.523556414608}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3600.615661886966, -3330.306362197343, 
      4219.669619493195}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3600.4993680729945`, -3330.3367683150973`, 
      4219.811969579142}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3600.3810700457793`, -3330.365066347943, 
      4219.952005556262}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3600.261438740217, -3330.391950504723, 
      4220.090461285302}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3600.138913746911, -3330.4157490283624`, 
      4220.225366387329}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3600.014643675262, -3330.437658661051, 
      4220.358041245673}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3599.95209777649, -3330.4481670344776`, 
      4220.423848112825}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3599.8887772798057`, -3330.457831065397, 
      4220.488630228514}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3599.8250697255044`, -3330.4670701131367`, 
      4220.552894075221}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3599.7610898976022`, -3330.476009291844, 
      4220.616790475916}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3599.696496735867, -3330.484273163574, 
      4220.679849925784}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3599.6315211119254`, -3330.4921134163246`, 
      4220.742381584196}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3599.5662867509354`, -3330.4996661524106`, 
      4220.804554076305}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3599.500470731339, -3330.506573316111, 
      4220.86591127428}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3599.43429097311, -3330.513074619869, 
      4220.926754000745}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3599.3678649990134`, -3330.519300380454, 
      4220.987246744282}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3599.300886017129, -3330.524908588248, 
      4221.046946896488}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3599.2335603957554`, -3330.5301278786596`, 
      4221.106146632421}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3599.1660000306465`, -3330.535083095245, 
      4221.1650060712245`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3599.0979129158745`, -3330.5394475951857`, 
      4221.2230965996105`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3599.0294949422546`, -3330.5434395504417`, 
      4221.280701435136}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3598.995207674819, -3330.545347209697, 
      4221.309388644667}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3598.9607684650905`, -3330.5470841449396`, 
      4221.337851161142}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3598.926252659864, -3330.5487347222024`, 
      4221.366200215363}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3598.857047287608, -3330.5518396728967`, 
      4221.422640224747}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3598.7873982654028`, -3330.554445531618, 
      4221.478419139031}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3598.7174340885135`, -3330.556696082695, 
      4221.533726555911}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3598.682378757669, -3330.5577385962324`, 
      4221.561270490175}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3598.64718149714, -3330.5586216587208`, 
      4221.588601062275}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3598.6119125670543`, -3330.559423942602, 
      4221.615823791415}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3598.5765928669366`, -3330.560168935047, 
      4221.64297000214}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3598.541157039226, -3330.560783508968, 
      4221.669940987312}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3598.5056480565254`, -3330.5613157681573`, 
      4221.696801460179}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3598.470089339562, -3330.561791967311, 
      4221.723586713719}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3598.434416989374, -3330.562140746647, 
      4221.750199956183}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3598.3986730292563`, -3330.5624090834026`, 
      4221.77670470197}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3598.3628803821584`, -3330.5626226334757`, 
      4221.803135603369}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3598.326976506988, -3330.562711717067, 
      4221.829397718183}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3598.2910025126084`, -3330.562722202837, 
      4221.855553358473}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3598.27299886165, -3330.5627087391103`, 
      4221.8686058603025`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3598.254962408573, -3330.5626586637986`, 
      4221.881608517828}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3598.2369094567484`, -3330.5625901226417`, 
      4221.894586093017}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3598.2007659678748`, -3330.5624109313108`, 
      4221.920484063725}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3598.164525262858, -3330.5621233327356`, 
      4221.94623416128}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3598.1282151775013`, -3330.56175831099, 
      4221.971878683082}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3598.1100439779375`, -3330.5615577251597`, 
      4221.984676332503}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3598.091840977158, -3330.5613218113317`, 
      4221.99742558826}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3598.073621976236, -3330.5610680724762`, 
      4222.010150485822}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3598.0553915952414`, -3330.5608016369233`, 
      4222.022858043974}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3598.037134929318, -3330.5605060325115`, 
      4222.035525593073}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3598.018861709377, -3330.5601920275153`, 
      4222.048167936382}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3598.0097211586976`, -3330.560030633652, 
      4222.05448310134}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3598.0005727861685`, -3330.559860578265, 
      4222.06078636298}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.9914204901675`, -3330.559686166173, 
      4222.067083649986}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.982265397713, -3330.5595086432186`, 
      4222.073376675219}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.9731038131767`, -3330.5593239337322`, 
      4222.079659819808}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.963938143781, -3330.559134694403, 
      4222.0859367444555`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.9593543355077`, -3330.5590389921344`, 
      4222.08907372276}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.9547685873777`, -3330.558941145508, 
      4222.092207749535}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.9501818677604`, -3330.558842222018, 
      4222.095340296979}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.945594454984, -3330.5587425286476`, 
      4222.098471788089}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.941005428877, -3330.5586410517235`, 
      4222.101600824197}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.936415388166, -3330.55853845106, 
      4222.104728315488}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.93584159205, -3330.5585255803685`, 
      4222.105119189343}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.935267735526, -3330.5585126430474`, 
      4222.105509971346}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.934693868201, -3330.5584996937373`, 
      4222.1059007368885`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.9335460990233`, -3330.5584737568115`, 
      4222.106682215367}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.9323982392407`, -3330.5584477197276`, 
      4222.107463555967}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.930102390191, -3330.5583955018446`, 
      4222.1090260398505`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.9278061789937`, -3330.5583428836812`, 
      4222.110587972639}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.9255097091227`, -3330.5582899792053`, 
      4222.112149511603}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.920916217495, -3330.5581835581706`, 
      4222.115271748716}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.9163212798962`, -3330.55807553948, 
      4222.118391785509}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.9117253095083`, -3330.5579663781364`, 
      4222.121510250023}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.9025311650207`, -3330.5577456124934`, 
      4222.127743822}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.893331257817, -3330.557518484273, 
      4222.13396862559}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.8841272346394`, -3330.5572868061436`, 
      4222.14018716422}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.8657104037557`, -3330.5568137209048`, 
      4222.152610862914}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.8472706899915`, -3330.556315408739, 
      4222.164999750741}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.8288146322716`, -3330.555799061494, 
      4222.177363771536}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.810347677603, -3330.5552706617927`, 
      4222.189711200409}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.7918555736915`, -3330.5547146139756`, 
      4222.202020394302}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.7733476261515`, -3330.554141119368, 
      4222.21430549616}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.75482888997, -3330.5535557195685`, 
      4222.22657418001}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.7362852473816`, -3330.5529430046086`, 
      4222.238805023841}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.71772591313, -3330.552313051723, 
      4222.251012023602}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.6805730166157`, -3330.551015491056, 
      4222.275373996458}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.643331635107, -3330.5496211714585`, 
      4222.299601652556}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.606027030257, -3330.5481576997317`, 
      4222.323733393664}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.587360005112, -3330.547409815814, 
      4222.335776904225}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.5686639936976`, -3330.546630419947, 
      4222.347776513498}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.549953386643, -3330.5458351063685`, 
      4222.359754009338}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.5124989115043`, -3330.544208174805, 
      4222.383658596951}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.474958422372, -3330.5424879590346`, 
      4222.407433063559}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.4373564548505`, -3330.5407010588037`, 
      4222.431114603255}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.399713480027, -3330.5388695845, 
      4222.454734134432}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.361976905464, -3330.5369372781593`, 
      4222.478212499623}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.3241811694943`, -3330.5349411610405`, 
      4222.50160171749}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.286345188272, -3330.5329015628326`, 
      4222.524930267081}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.2484172921563`, -3330.530763577644, 
      4222.5481206695}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.2104312855863`, -3330.52856331342, 
      4222.571223818811}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.172405746964, -3330.526320608603, 
      4222.594267587817}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.1342899191964`, -3330.523981904975, 
      4222.617176184107}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.0961169958437`, -3330.521582418755, 
      4222.639999393769}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3597.019646516758, -3330.516650683888, 
      4222.685459581581}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3596.942858839578, -3330.51138464414, 
      4222.730447408787}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3596.865843851988, -3330.5058794854635`, 
      4222.775097955165}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3596.8272835205853`, -3330.5030711917857`, 
      4222.797344771668}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3596.7886207289844`, -3330.5001564965924`, 
      4222.819440442653}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3596.7499058761723`, -3330.4971875134775`, 
      4222.841459360762}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3596.672357789843, -3330.4911261755105`, 
      4222.8853228732005`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3596.59450818293, -3330.484754288643, 
      4222.928744359503}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3596.5164422775165`, -3330.4781600630395`, 
      4222.971850068676}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3596.477359047167, -3330.474811132834, 
      4222.993329463997}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3596.438178275313, -3330.471363353076, 
      4223.014667475186}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3596.398947914574, -3330.467865080637, 
      4223.035933635457}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3596.3203744078496`, -3330.4607537588936`, 
      4223.078302753645}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3596.2415135940123`, -3330.453353831623, 
      4223.120258408313}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3596.1624465059967`, -3330.445747074806, 
      4223.161918527157}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3596.083241560359, -3330.438001834461, 
      4223.20338130575}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3596.0037286991496`, -3330.429953123145, 
      4223.2444071037935`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3595.9240192452285`, -3330.421710447016, 
      4223.285154996023}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3595.8441762327716`, -3330.41333589417, 
      4223.325714270457}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3595.7640344745714`, -3330.4046721581904`, 
      4223.3658556099435`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3595.683701901487, -3330.3958234264937`, 
      4223.405731003243}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3595.603239688773, -3330.38684887954, 
      4223.445425868376}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3595.522487421445, -3330.3775986443948`, 
      4223.484720939818}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3595.4415498330504`, -3330.368171893978, 
      4223.523761463503}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3595.360486334533, -3330.358625058925, 
      4223.562629166469}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3595.279141049139, -3330.348815276051, 
      4223.6011143315745`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3595.1976156846267`, -3330.3388369928866`, 
      4223.6393557978645`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3595.115967971442, -3330.328744040909, 
      4223.677431777448}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3595.0340463645744`, -3330.3184001666764`, 
      4223.7151416156175`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3594.9519496969324`, -3330.3078953657478`, 
      4223.752618070475}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3594.869734092754, -3330.2972810135666`, 
      4223.789936010727}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3594.7872521562285`, -3330.286427090089, 
      4223.826903377847}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3594.704599978306, -3330.2754193964806`, 
      4223.863647162929}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3594.5389227968813`, -3330.2530668762247`, 
      4223.936646365408}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3594.3723245000906`, -3330.22990482647, 
      4224.008456164027}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3594.205058437375, -3330.2061564396786`, 
      4224.079410626524}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3594.1212708955227`, -3330.194146149831, 
      4224.114689793698}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3594.0371914095467`, -3330.1818879914904`, 
      4224.149602575536}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3593.9529606351334`, -3330.1694994784066`, 
      4224.184324936658}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3593.784156313299, -3330.144427539662, 
      4224.253339506705}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3593.6145030691478`, -3330.1186474622273`, 
      4224.321305864404}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3593.4442344573254`, -3330.0923529051433`, 
      4224.388516741885}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3593.358957824496, -3330.079086073869, 
      4224.421947110056}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3593.273411938533, -3330.0656018955697`, 
      4224.455053886493}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3593.1877266253855`, -3330.052003095899, 
      4224.487992175718}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3593.01604017713, -3330.0245458774566`, 
      4224.553487819309}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3592.8435708164416`, -3329.996466368129, 
      4224.61805598871}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3592.670534279027, -3329.967933510585, 
      4224.68195435974}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3592.4971181452242`, -3329.9390948143555`, 
      4224.745403589018}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3592.3228860779177`, -3329.9096299489397`, 
      4224.807912666635}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3592.1481237422095`, -3329.879751035087, 
      4224.869809088217}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3591.9730030506, -3329.849591021854, 
      4224.931291005192}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3591.7971095931257`, -3329.818854389401, 
      4224.991903332541}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3591.6207143558427`, -3329.787735741054, 
      4225.051948252525}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3591.443980151347, -3329.75635748464, 
      4225.111609011836}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3591.2665144276352`, -3329.7244474459612`, 
      4225.1704642910945`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3591.088574140027, -3329.692184463666, 
      4225.22879337417}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3590.910313405328, -3329.659681391377, 
      4225.286765949518}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3590.731360601893, -3329.62668724064, 
      4225.343991471159}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3590.5519592458036`, -3329.5933666090677`, 
      4225.400728437121}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3590.372255139068, -3329.5598236653104`, 
      4225.457134168232}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3590.1918967061197`, -3329.5258267085715`, 
      4225.512846254887}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3590.0111145778314`, -3329.4915274252053`, 
      4225.5681042613605`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3589.830046605602, -3329.4570220668543`, 
      4225.623054195362}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3589.6483604067917`, -3329.4220965443724`, 
      4225.677359450654}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3589.4662742562296`, -3329.3868907991064`, 
      4225.731242287185}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3589.2839184059935`, -3329.3514938467106`, 
      4225.784838335978}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3589.100978837208, -3329.315707722573, 
      4225.837834721158}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3588.917661980708, -3329.279661651085, 
      4225.890437837873}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3588.734090829877, -3329.2434380182044`, 
      4225.942773774822}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3588.549968920673, -3329.2068536580227`, 
      4225.994551535984}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3588.3654913392834`, -3329.1700279888655`, 
      4226.045962929367}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3587.995759917271, -3329.095839383825, 
      4226.147978156667}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3587.624207015607, -3329.0204854309522`, 
      4226.24817664431}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3587.251326579661, -3328.9442478063556`, 
      4226.347029054523}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3587.0645845148933`, -3328.905924666687, 
      4226.396145564396}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3586.877297647108, -3328.8672654785937`, 
      4226.444732182704}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3586.6897217959545`, -3328.8284153467193`, 
      4226.493027790157}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3586.3139253448794`, -3328.7502841538767`, 
      4226.588965116473}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3585.936608868085, -3328.6712203072884`, 
      4226.683430859927}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3585.5581881458493`, -3328.5914458348484`, 
      4226.776803550151}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3585.368727195168, -3328.551393506318, 
      4226.823237694278}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3585.178812907469, -3328.5110722868417`, 
      4226.869242543284}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3584.9886588562676`, -3328.470597215055, 
      4226.91501080055}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3584.6078167339724`, -3328.389298787856, 
      4227.006014755622}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3584.2257133248645`, -3328.3072523112774`, 
      4227.095824971543}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3583.8426962676863`, -3328.2246330972357`, 
      4227.184746451892}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3583.4590749303716`, -3328.141618959429, 
      4227.273065140608}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3583.0742417575616`, -3328.057913088584, 
      4227.360261702575}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3582.6886088255137`, -3327.973706587584, 
      4227.446682382389}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3582.3024482124965`, -3327.889158962781, 
      4227.532579869687}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3581.915222800541, -3327.80401477151, 
      4227.617502501831}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3581.5272960456746`, -3327.7184365614903`, 
      4227.701749389629}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3581.138907425794, -3327.632561487851, 
      4227.785539654653}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3580.7495851789263`, -3327.5461722613154`, 
      4227.8684837955125`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3580.3596491736876`, -3327.459406822181, 
      4227.950839782959}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3579.9693098451617`, -3327.3723829550627`, 
      4228.03279740365}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3579.5781535502333`, -3327.2849163956585`, 
      4228.114021509764}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3579.1864612397294`, -3327.197123847021, 
      4228.194734128668}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3578.4019272020696`, -3327.0207933480297`, 
      4228.355019202359}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3578.008589754651, -3326.9320637952574`, 
      4228.434214897773}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3577.6149036697893`, -3326.8431088999587`, 
      4228.513065623505}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3577.220770053874, -3326.753905174922, 
      4228.591507998741}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3576.4315761769026`, -3326.574890049922, 
      4228.747466600419}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3575.6404618108454`, -3326.394885549594, 
      4228.901743818678}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3574.847943149763, -3326.214031599977, 
      4229.054685483392}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3574.0541832605754`, -3326.0324875968377`, 
      4229.206493888418}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3573.25926912182, -3325.850293208198, 
      4229.357242103866}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3572.463307500368, -3325.6675102822214`, 
      4229.507029443708}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3571.666396379646, -3325.484195320444, 
      4229.655946831402}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3570.868625315226, -3325.3003997065553`, 
      4229.804077167717}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3570.07007606885, -3325.116170130564, 
      4229.951495968081}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3569.270823218944, -3324.931548997668, 
      4230.098271975413}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3568.4709347293706`, -3324.7465748010977`, 
      4230.24446772382}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3567.670472479643, -3324.5612824633718`, 
      4230.390140058463}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3566.869492758507, -3324.375703648775, 
      4230.535340615018}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3566.0680467228012`, -3324.1898670495843`, 
      4230.680116261754}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3565.2661808234425`, -3324.0037986482794`, 
      4230.824509507046}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3564.4639372003967`, -3323.817521957763, 
      4230.968558874834}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3563.6613540484236`, -3323.6310582414335`, 
      4231.112299250403}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3562.8584659553453`, -3323.4444267147646`, 
      4231.255762198649}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3562.0553042145434`, -3323.2576447299098`, 
      4231.398976256835}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3561.2518971132945`, -3323.070727944709, 
      4231.541967203725}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3560.4482701985307`, -3322.883690477371, 
      4231.684758306795}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3559.6444465215104`, -3322.6965450479697`, 
      4231.827370549184}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3558.8404468628187`, -3322.5093031078422`, 
      4231.969822837862}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3558.036289939079, -3322.3219749578357`, 
      4232.112132194419}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3557.2319925926263`, -3322.1345698563273`, 
      4232.2543139297995`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3556.4275699653977`, -3321.94709611783, 
      4232.396381804191}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3555.6230356581523`, -3321.7595612029418`, 
      4232.538348173206}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3554.818401876143, -3321.5719718003625`, 
      4232.680224121415}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3554.013679562221, -3321.3843339016007`, 
      4232.822019584231}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3553.2088785183523`, -3321.1966528689977`, 
      4232.963743459043}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3552.4040075164353`, -3321.008933497593, 
      4233.105403706472}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3551.5990743992616`, -3320.8211800713643`, 
      4233.247007442536}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3550.7940861723955`, -3320.633396414307, 
      4233.3885610224615`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3549.989049087715, -3320.445585936781, 
      4233.53007011683}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3549.183968719271, -3320.257751677533, 
      4233.671539780697}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3548.378850032139, -3320.069896341772, 
      4233.81297451627}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3547.573697444806, -3319.882022335621, 
      4233.954378329687}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3546.7685148856667`, -3319.6941317972714`, 
      4234.09575478241}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3545.963305844122, -3319.506226625137, 
      4234.2371070376885`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3545.158073416759, -3319.318308503258, 
      4234.378437902533}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3544.3528203490273`, -3319.130378924207, 
      4234.519749865589}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3543.5475490728227`, -3318.942439209734, 
      4234.661045131283}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3542.7422617403404`, -3318.7544905293307`, 
      4234.802325650564}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3541.936960254545, -3318.5665339169386`, 
      4234.943593148574}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3541.1316462965497`, -3318.378570285943, 
      4235.084849149503}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3540.326321350205, -3318.1906004426355`, 
      4235.226094998909}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3539.520986724159, -3318.00262509827, 
      4235.367331883741}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3538.7156435716206`, -3317.814644879878, 
      4235.508560850266}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3537.9102929080495`, -3317.6266603399167`, 
      4235.649782820126}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3537.1049356269746`, -3317.4386719649187`, 
      4235.790998604684}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3536.2995725141222`, -3317.2506801831873`, 
      4235.93220891784}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3535.4942042600187`, -3317.0626853716785`, 
      4236.073414387463}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3534.688831471227, -3316.874687862116, 
      4236.214615565584}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3533.883454680345, -3316.6866879464437`, 
      4236.355812937452}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3533.078074354898, -3316.4986858816615`, 
      4236.497006929616}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3532.2726909052367`, -3316.310681894126, 
      4236.638197917068}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3531.4673046915445`, -3316.1226761833577`, 
      4236.779386229605}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3530.661916030043, -3315.9346689254166`, 
      4236.920572157453}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3529.8565251984855`, -3315.746660275883, 
      4237.061755956245}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3529.0511324410154`, -3315.558650372493, 
      4237.202937851427}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3528.245737972442, -3315.3706393374587`, 
      4237.344118042122}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3527.4403419820155`, -3315.1826272795092`, 
      4237.485296704561}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3526.634944636743, -3314.9946142956837`, 
      4237.626473995072}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3525.8295460842965`, -3314.8066004728944`, 
      4237.767650052716}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3525.0241464555543`, -3314.618585889299, 
      4237.908825001581}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3524.218745866822, -3314.4305706154814`, 
      4238.049998952779}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3523.4133444217587`, -3314.2425547154785`, 
      4238.191172006179}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3522.6079422130415`, -3314.0545382476544`, 
      4238.332344251901}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3521.8025393237976`, -3313.8665212654423`, 
      4238.473515771585}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3520.9971358288317`, -3313.6785038179783`, 
      4238.614686639479}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3520.191731795659, -3313.4904859506087`, 
      4238.755856923345}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3519.3863272853728`, -3313.302467705317, 
      4238.897026685206}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3518.580922353378, -3313.114449121056, 
      4239.038195981965}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3517.7755170499786`, -3312.926430234007, 
      4239.179364865899}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3516.970111420867, -3312.7384110777753`, 
      4239.320533385044}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3516.1647055075164`, -3312.550391683529, 
      4239.461701583501}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3515.359299347501, -3312.3623720801, 
      4239.602869501669}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3514.553892974754, -3312.1743522940483`, 
      4239.744037176428}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3513.748486419789, -3311.9863323497148`, 
      4239.88520464128}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3512.9430797098903`, -3311.798312269255, 
      4240.026371926482}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3512.1376728692903`, -3311.610292072686, 
      4240.167539059157}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3511.332265919341, -3311.422271777932, 
      4240.308706063426}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3510.5268588786957`, -3311.2342514008947`, 
      4240.449872960539}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3509.721451763496, -3311.0462309555314`, 
      4240.5910397690395`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3508.9160445875636`, -3310.8582104539632`, 
      4240.732206504932}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3508.1106373626158`, -3310.6701899066015`, 
      4240.873373181885}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3507.305230098473, -3310.4821693222816`, 
      4241.014539811441}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3506.4998228032764`, -3310.2941487084167`, 
      4241.155706403235}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3505.6944154837, -3310.106128071155, 
      4241.296872965218}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3504.889008145156, -3309.9181074155335`, 
      4241.43803950388}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3504.083600791983, -3309.730086745636, 
      4241.579206024456}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3503.278193427625, -3309.5420660647337`, 
      4241.720372531126}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3502.472786054791, -3309.354045375423, 
      4241.861539027192}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3501.6673786755814`, -3309.166024679737, 
      4242.002705515234}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3500.861971291618, -3308.978003979256, 
      4242.143871997251}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3500.0565639041383`, -3308.7899832751978`, 
      4242.285038474774}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3499.25115651408, -3308.601962568487, 
      4242.42620494897}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3498.4457491221447`, -3308.4139418598265`, 
      4242.567371420716}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3497.640341728856, -3308.2259211497403`, 
      4242.708537890669}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3496.8349343346035`, -3308.03790043862, 
      4242.849704359314}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3496.0295269396693`, -3307.8498797267534`, 
      4242.990870827012}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3495.2241195442602`, -3307.6618590143507`, 
      4243.1320372940245`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3494.418712148527, -3307.473838301567, 
      4243.273203760541}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3493.6133047525786`, -3307.2858175885117`, 
      4243.414370226699}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3492.8078973564916`, -3307.097796875266, 
      4243.555536692597}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3492.002489960321, -3306.909776161887, 
      4243.696703158305}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {-3024.08678838221, 3069.9896223348496`, 
      4691.157939687012}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3452.9286705135924`, -3312.0555889520647`, 
      4291.138836708652}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3452.516219066545, -3312.388241708417, 
      4292.0079428005065`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3452.1038028167573`, -3312.7209339615806`, 
      4292.87703844326}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3451.6913783681157`, -3313.0536170860114`, 
      4293.746135906821}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3451.278953498564, -3313.3862997930883`, 
      4294.615232779659}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3450.866528121767, -3313.718982005193, 
      4295.4843289487135`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3450.454102125064, -3314.051663612198, 
      4296.35342425609}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3450.04167537301, -3314.384344481543, 
      4297.222518511665}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3449.6292477032384`, -3314.7170244542654`, 
      4298.09161148735}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3449.216818921457, -3315.0497033400834`, 
      4298.9607029100125`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3448.80438879557, -3315.382380911624, 
      4299.829792453157}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3448.3919570487806`, -3315.7150568976303`, 
      4300.698879727155}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3447.9795233514983`, -3316.0477309750163`, 
      4301.56796426779}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3447.567087311895, -3316.380402759564, 
      4302.43704552286}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3447.1546484648684`, -3316.7130717950713`, 
      4303.306122836537}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3446.7422062591904`, -3317.045737540699, 
      4304.175195431126}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3446.329760042562, -3317.378399356254, 
      4305.044262385854}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3445.9173090442614`, -3317.711056485098, 
      4305.913322612224}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3445.504852355035, -3318.0437080343345`, 
      4306.782374825439}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3445.092388903823, -3318.3763529518747`, 
      4307.65141751132}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3444.6799174308876`, -3318.708989999939, 
      4308.5204488880845`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3444.267436456808, -3319.041617724488, 
      4309.389466862232}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3443.854944246789, -3319.3742344200127`, 
      4310.258468977742}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3443.442438769622, -3319.706838089046, 
      4311.127452357639}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3443.0299176505905`, -3320.039426395684, 
      4311.996413636912}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3442.6173781174934`, -3320.3719966122967`, 
      4312.865348885601}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3442.204816938875, -3320.7045455585467`, 
      4313.734253520784}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3441.792230353469, -3321.037069531704, 
      4314.603122206}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3441.379613989698, -3321.3695642271327`, 
      4315.4719487365}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3440.9669627739895`, -3321.7020246477095`, 
      4316.340725908551}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3440.5542708264893`, -3322.0344450007947`, 
      4317.209445370795}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3440.1415313426437`, -3322.3668185812076`, 
      4318.078097455489}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3439.7287364588997`, -3322.6991376385217`, 
      4318.946670987188}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3439.3158771006397`, -3323.031393226797, 
      4319.815153066222}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3438.9029428102417`, -3323.363575034677, 
      4320.683528824039}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3438.489921552928, -3323.6956711935763`, 
      4321.551781147202}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3438.0767994978723`, -3324.0276680614497`, 
      4322.41989036655}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3437.6635607717185`, -3324.359549979399, 
      4323.287833907703}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3437.2501871814434`, -3324.691298998095, 
      4324.1555858987795`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3436.8366579031403`, -3325.022894570731, 
      4325.023116730832}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3436.422949133021, -3325.354313208911, 
      4325.890392566206}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3436.0090336965145`, -3325.6855280975465`, 
      4326.757374789605}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3435.594880611012, -3326.0165086644806`, 
      4327.624019396361}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3435.180454597312, -3326.347220100217, 
      4328.490276312004}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3434.7657155343954`, -3326.6776228226718`, 
      4329.356088636926}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3434.3506178515845`, -3327.0076718814607`, 
      4330.221391809615}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3433.9351098515613`, -3327.3373162957287`, 
      4331.086112681642}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3433.5191329570466`, -3327.6664983189935`, 
      4331.950168497384}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3433.102620873107, -3327.995152623835, 
      4332.813465771254}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3432.6854986561752`, -3328.323205398555, 
      4333.675899055175}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3432.267681679657, -3328.650573347042, 
      4334.537349588961}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3431.849074484676, -3328.9771625819926`, 
      4335.397683826424}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3431.4295695026385`, -3329.3028674002276`, 
      4336.256751830206}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3431.0090456340295`, -3329.627568926993, 
      4337.11438552861}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3430.5873666647003`, -3329.9511336135583`, 
      4337.970396828145}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3430.1643794967486`, -3330.27341156885, 
      4338.824575575812}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3429.739912165136, -3330.5942347006912`, 
      4339.676687365488}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3429.3137716030346`, -3330.9134146347274`, 
      4340.526471182702}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3428.885741106976, -3331.2307403680215`, 
      4341.373636881372}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3428.4555774359533`, -3331.545975597866, 
      4342.217862484107}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3428.023007453916, -3331.8588556417076`, 
      4343.058791293578}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3427.5877241895714`, -3332.169083827505, 
      4343.896028794754}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3427.149382136642, -3332.4763271796187`, 
      4344.729139314693}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3426.7075915479413`, -3332.780211147485, 
      4345.5576423854545`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3426.261911387614, -3333.080313017996, 
      4346.381008724627}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3425.8118405134674`, -3333.3761535250437`, 
      4347.198655708472}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3425.356806627387, -3333.6671860675515`, 
      4348.0099421803}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3424.8961527388515`, -3333.952783027664, 
      4348.814162467384}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3424.429121784673, -3334.2322193623113`, 
      4349.610539731663}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3423.9548425468925`, -3334.504655830141, 
      4350.398219617666}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3423.4723253227276`, -3334.7691292671952`, 
      4351.176267199618}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3422.980483580707, -3335.024565420203, 
      4351.9436737962415`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3422.4782010857366`, -3335.2698349300867`, 
      4352.699383301367}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3421.96444658943, -3335.5038591430525`, 
      4353.4423436447505`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3421.4383953542942`, -3335.725731493744, 
      4354.171572499648}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3420.899489905149, -3335.934788841524, 
      4354.886209623115}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3420.347412343137, -3336.1305988474915`, 
      4355.585535280055}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3419.7820094184035`, -3336.3128964231073`, 
      4356.268960830119}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3419.2032265084104`, -3336.4815230983004`, 
      4356.936012114068}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3418.6110721110663`, -3336.63639349975, 
      4357.586319340284}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3418.005606042551, -3336.7774848806343`, 
      4358.219615238597}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3417.386938637253, -3336.9048381399075`, 
      4358.8357376438225`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3416.755232399998, -3337.0185617887787`, 
      4359.43463254426}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3416.1107021874254`, -3337.118834504271, 
      4360.016355136677}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3415.4536127840875`, -3337.205904630304, 
      4360.5810677421}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3414.7842740708174`, -3337.2800864170117`, 
      4361.129034309086}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3414.103034501216, -3337.3417534726273`, 
      4361.660611791724}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3413.410273708938, -3337.3913301905977`, 
      4362.176239037585}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3412.706394976167, -3337.429281986664, 
      4362.676424003498}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3411.991818115129, -3337.4561051261876`, 
      4363.161730162698}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3411.2669731154856`, -3337.472316794184, 
      4363.632762904513}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3410.5322947299796`, -3337.4784458973027`, 
      4364.090156590693}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3409.7882180295046`, -3337.4750249180206`, 
      4364.5345627567185`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3409.035174863409, -3337.462582987918, 
      4364.9666397638275`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3408.2735911079253`, -3337.4416402219017`, 
      4365.3870440424025`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3407.50388456629, -3337.412703263679, 
      4365.796422934021}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3406.726463387502, -3337.376261933462, 
      4366.195409043219}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3405.941724887072, -3337.3327868370448`, 
      4366.584615949373}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3405.1500546746915`, -3337.2827277845586`, 
      4366.9646350983585`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3404.351826015618, -3337.226512870834, 
      4367.336033685654}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3403.547399371739, -3337.1645480817965`, 
      4367.699353349987}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3402.7371220836803`, -3337.0972173082714`, 
      4368.055109513351}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3401.9213281668444`, -3337.024882666969, 
      4368.403791224478}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3401.1003382023864`, -3336.94788504626, 
      4368.745861385266}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3400.2744593095126`, -3336.866544810531, 
      4369.081757261209}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3399.443985188933, -3336.7811626109383`, 
      4369.411891196191}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3398.6091962293326`, -3336.6920202621845`, 
      4369.736651468859}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3397.7703596698816`, -3336.599381654528, 
      4370.056403241709}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3396.92772981246, -3336.50349367802, 
      4370.3714895655985`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3396.0815482776316`, -3336.404587141991, 
      4370.682232411495}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3395.2320442986224`, -3336.3028776776355`, 
      4370.988933708543}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3394.3794350477915`, -3336.1985666151136`, 
      4371.291876373208}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3393.523925990267, -3336.091841829444, 
      4371.591325318505}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3392.665711259739, -3335.982878551505, 
      4371.887528435737}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3391.8049740516303`, -3335.871840142055, 
      4372.180717543511}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3390.941887029264, -3335.7588788278013`, 
      4372.471109300815}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3390.0766127389893`, -3335.644136399434, 
      4372.758906082188}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3389.209304030583, -3335.5277448720867`, 
      4373.044296814086}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3388.3401044796606`, -3335.4098271091325`, 
      4373.327457772284}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3387.4691488091885`, -3335.2904974105077`, 
      4373.608553340647}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3386.5965633075452`, -3335.1698620669285`, 
      4373.887736731997}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3385.7224662409462`, -3335.0480198814766`, 
      4374.165150672043}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3384.8469682583477`, -3334.9250626600915`, 
      4374.440928047525}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3383.970172787273, -3334.8010756725075`, 
      4374.715192519827}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3383.0921764192376`, -3334.6761380851854`, 
      4374.988059105374}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3382.2130692837586`, -3334.5503233677227`, 
      4375.259634724155}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3381.3329354100915`, -3334.4236996742156`, 
      4375.530018717743}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3380.4518530761025`, -3334.2963302009634`, 
      4375.79930333815}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3379.5698951437976`, -3334.1682735218674`, 
      4376.06757420885}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3378.687129381254, -3334.0395839028, 
      4376.33491075927}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3377.8036187707667`, -3333.910311596164, 
      4376.601386634006}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3376.9194218031917`, -3333.780503116812, 
      4376.86707007801}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3376.0345927585477`, -3333.650201500385, 
      4377.132024298922}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3375.1491819730145`, -3333.519446545163, 
      4377.396307807694}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3374.2632360925604`, -3333.3882750383495`, 
      4377.659974738633}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3373.3767983134694`, -3333.256720967761, 
      4377.92307514989}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3372.489908610099, -3333.12481571976, 
      4378.18565530546}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3371.6026039502326`, -3332.992588264291, 
      4378.447757939639}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3370.7149184984364`, -3332.8600653277567`, 
      4378.709422504897}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3369.8268838078143`, -3332.7272715545114`, 
      4378.9706854040705`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3368.9385290006267`, -3332.5942296576254`, 
      4379.231580207716}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3368.049880938208, -3332.4609605596015`, 
      4379.49213785748}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3367.1609643806237`, -3332.327483523643, 
      4379.752386856242}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3366.2718021365495`, -3332.1938162760594`, 
      4380.012353445803}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3365.3824152038055`, -3332.059975120354, 
      4380.272061772831}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3364.4928229010043`, -3331.9259750435226`, 
      4380.531534043734}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3363.603042990751, -3331.791829815028, 
      4380.790790669132}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3362.7130917948302`, -3331.6575520789293`, 
      4381.049850398527}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3361.822984301816, -3331.5231534395853`, 
      4381.308730445774}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3360.932734267487, -3331.38864454135, 
      4381.5674466058945`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3360.0423543084694`, -3331.2540351426383`, 
      4381.8260133637805`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3359.15185598949, -3331.119334184722, 
      4382.084443995277}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3358.2612499045945`, -3330.9845498556024`, 
      4382.342750661129}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3357.3705457527053`, -3330.8496896492807`, 
      4382.600944494232}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3356.479752407837, -3330.7147604207207`, 
      4382.859035680633}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3355.5888779843235`, -3330.5797684367994`, 
      4383.117033534651}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3354.697929897337, -3330.444719423501, 
      4383.374946568541}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3353.806914919015, -3330.3096186096154`, 
      4383.632782557025}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3352.9158392304726`, -3330.174470767177, 
      4383.890548597046}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3352.024708469958, -3330.0392802488536`, 
      4384.14825116306}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3351.1335277774147`, -3329.9040510225113`, 
      4384.405896158169}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3350.242301835683, -3329.76878670314, 
      4384.66348896138}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3349.35103490857, -3329.6334905823287`, 
      4384.921034471248}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3348.459730875997, -3329.498165655452, 
      4385.178537146164}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3347.568393266435, -3329.362814646748, 
      4385.436001041514}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3346.6770252868064`, -3329.2274400324227`, 
      4385.69342984394}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3345.7856298500315`, -3329.092044061923, 
      4385.950826902895}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3344.894209600405, -3328.956628777528, 
      4386.208195259696}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3344.0027669369306`, -3328.821196032352, 
      4386.465537674267}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3343.1113040347846`, -3328.685747506909, 
      4386.722856649705}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3342.219822865038, -3328.550284724319, 
      4386.980154454875}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3341.3283252127603`, -3328.4148090642743`, 
      4387.237433145149}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3340.4368126936342`, -3328.279321775846, 
      4387.494694581438}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3339.5452867691943`, -3328.143823989232, 
      4387.751940447643}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3338.653748760781, -3328.008316726523, 
      4388.009172266655}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3337.7621998623295`, -3327.8728009115484`, 
      4388.266391415004}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3336.870641152062, -3327.7372773789043`, 
      4388.523599136268}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3335.979073603189, -3327.6017468821924`, 
      4388.780796553337}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3335.087498093682, -3327.466210101559, 
      4389.037984679619}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3334.1959154152, -3327.3306676505795`, 
      4389.295164429286}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3333.304326281233, -3327.195120082534, 
      4389.552336626616}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3332.412731334532, -3327.0595678961427`, 
      4389.809502014514}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3331.521131153878, -3326.924011540782, 
      4390.06666126229}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3330.629526260244, -3326.7884514212396`, 
      4390.323814972732}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3329.737917122407, -3326.6528879020466`, 
      4390.580963688552}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3328.846304162048, -3326.5173213114085`, 
      4390.838107898249}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3327.954687758383, -3326.381751944785, 
      4391.09524804143}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3327.063068252377, -3326.2461800681367`, 
      4391.3523845136515`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3326.171445950559, -3326.110605920877, 
      4391.609517670813}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3325.2798211284803`, -3325.9750297185374`, 
      4391.866647833138}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3324.3881940338606`, -3325.8394516552007`, 
      4392.123775288781}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3323.4965648894135`, -3325.703871905681, 
      4392.380900297096}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3322.60493389542, -3325.5682906275138`, 
      4392.63802309159}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3321.7133012320446`, -3325.4327079627437`, 
      4392.895143882598}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3320.821667061429, -3325.2971240395414`, 
      4393.152262859686}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3319.9300315295723`, -3325.161538973659, 
      4393.409380193828}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3319.0383947680357`, -3325.0259528697457`, 
      4393.666496039361}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3318.146756895464, -3324.8903658225167`, 
      4393.923610535747}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3317.255118018955, -3324.754777917821, 
      4394.180723809143}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3316.3634782352888`, -3324.619189233577, 
      4394.437835973824}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3315.471837632021, -3324.483599840624, 
      4394.694947133441}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3314.580196288467, -3324.3480098034734`, 
      4394.952057382149}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3313.6885542765676`, -3324.212419180976, 
      4395.209166805611}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3312.796911661662, -3324.076828026913, 
      4395.466275481881}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3311.905268503174, -3323.941236390514, 
      4395.723383482193}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3311.0136248552144`, -3323.8056443169257`, 
      4395.980490871647}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3310.1219807671077`, -3323.670051847598, 
      4396.237597709817}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3309.230336283857, -3323.53445902064, 
      4396.494704051275}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3308.33869144655, -3323.3988658711187`, 
      4396.751809946055}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3307.4470462927075`, -3323.2632724313194`, 
      4397.008915440043}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3306.5554008565928`, -3323.1276787309657`, 
      4397.266020575332}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3305.663755169481, -3322.992084797417, 
      4397.523125390506}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3304.7721092598845`, -3322.8564906558263`, 
      4397.780229920907}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3303.8804631537605`, -3322.720896329287, 
      4398.03733419886}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3302.9888168746916`, -3322.585301838957, 
      4398.29443825386}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3302.097170444045, -3322.449707204168, 
      4398.5515421127575`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3301.2055238811176`, -3322.3141124425256`, 
      4398.808645799916}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3300.313877203278, -3322.1785175700047`, 
      4399.065749337357}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3299.4222304260898`, -3322.0429226010356`, 
      4399.322852744903}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3298.5305835634313`, -3321.907327548592, 
      4399.579956040313}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3297.6389366276203`, -3321.7717324242785`, 
      4399.837059239416}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3296.74728962953, -3321.636137238416, 
      4400.094162356241}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3295.855642578699, -3321.50054200013, 
      4400.351265403153}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3294.963995483449, -3321.364946717439, 
      4400.608368390983}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3294.0723483509923`, -3321.2293513973455`, 
      4400.865471329155}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3293.1807011875444`, -3321.093756045921, 
      4401.122574225824}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3292.2890539984223`, -3320.9581606684014`, 
      4401.379677087994}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3291.3974067881486`, -3320.8225652692663`, 
      4401.636779921642}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3290.5057595605426`, -3320.6869698523246`, 
      4401.89388273184}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3289.6141123188127`, -3320.5513744207947`, 
      4402.150985522858}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3288.7224650656312`, -3320.4157789773767`, 
      4402.408088298271}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3287.830817803217, -3320.2801835243204`, 
      4402.665191061053}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3286.9391705333965`, -3320.1445880634915`, 
      4402.92229381366}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3286.0475232576646`, -3320.0089925964267`, 
      4403.179396558112}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3285.155875977241, -3319.8733971243787`, 
      4403.436499296056}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3284.2642286931095`, -3319.737801648373, 
      4403.693602028831}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3283.3725814060667`, -3319.602206169235, 
      4403.950704757519}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3282.4809341167484`, -3319.4666106876307`, 
      4404.207807482988}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3281.5892868256606`, -3319.3310152040935`, 
      4404.464910205929}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3280.6976395332053`, -3319.1954197190453`, 
      4404.722012926896}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3279.805992239701, -3319.059824232823, 
      4404.979115646324}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3278.9143449453973`, -3318.9242287456914`, 
      4405.2362183645555`}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3278.022697650487, -3318.7886332578582`, 
      4405.493321081861}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3277.131050355125, -3318.6530377694867`, 
      4405.750423798449}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3276.2394030594282`, -3318.517442280702, 
      4406.007526514483}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3275.3477557634865`, -3318.381846791603, 
      4406.264629230089}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3274.456108467373, -3318.2462513022633`, 
      4406.521731945363}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3273.5644611711386`, -3318.1106558127426`, 
      4406.778834660381}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {3272.6728138748244`, -3317.9750603230846`, 
      4407.0359373752}}]}, 
   {RGBColor[1, 0, 0], 
    Point3DBox[{{0, 0, 0}, {-3446.4450456285913`, 3038.9284739099885`, 
      4411.783117733831}}]}},
  Axes->True,
  AxesLabel->{
    FormBox["x", TraditionalForm], 
    FormBox["y", TraditionalForm], 
    FormBox["z", TraditionalForm]},
  Boxed->True,
  ImageSize->{355.3668581096459, 371.12983092476435`},
  ImageSizeRaw->Automatic,
  PlotRange->{{3000, 3610}, {-3340, -3302}, {4000, 4700}},
  ViewPoint->{1.3023946529070596`, -3.121119380218465, 0.11127435690133147`},
  ViewVertical->{0.06495491750705815, -0.992917509564749, 
   0.09947702192661324}]], "Output",
 CellChangeTimes->{3.9674344857629623`*^9},
 CellLabel->"Out[32]=",ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzFfQm8nUWx58c9y12ykY0kJCQ3JEIEMQJGWdQEiQYXZNFoEvQlCFkk5EYQ
CHmiN0SfCi5s8kAfkjAo8vCN7zHiNorJMIiCwOgoMz83EgdZZFNZ3PHOV1t3
VZ/ur78TmN+c3++ee853zumq+ld1dXV1dX/Hn3rOutUbTj3nPaedOrjk7FPf
u+49p71v8PUbzy4vNfYqir1+Vv79drBolq9HiqLj6edF8f/z9UfwuTF5ZGTk
tMsvv/yg2267jT4/mT7/J3zug89vWbt27eNr1qy5t/y7qfy7cv369Us/+clP
wm/wJ2/RP2nDZfgafOXm8v+OdevWDZ933nkNuFg05NeLtm3bRhTfqH8+Cr4K
34E3QB3eS3PwHn4Hr6/csGFD0WPbhD9q8/XU5oe9lNJG0aBr8BquQft8ranb
h+vUfFM3D19BCscYCiI04tik1uQa/BxetzwReAutbTn33HMVkTOGh4cNsq82
ROBjgaag1toCESCtf97uJBZIBG8NsSOJ2IcimPWRNXyq/MmXhoaGblKWoJvp
9T8V6YoqigsMRYMhNdUr1w6+9dZbxSJEllTTARekYGso3twPNSwYhHu9oQSo
15IwYINsL8XGIcTGVv7NU089FWDfgKaBPXzXX1PErnh4seEhog1nE3htbM22
e70lyvfg82TXfZFhI6uRCd2z0dnFI2zMJjYuTPYGq5F96kupOEl0TenIztnM
MMxkVTO9vqx5Zjp67VTDjPPFKQXNylLQvjXWeauYmWSYkY81M0ZNc2pjn/Ik
+NUelK7hjAseyM44YmeLVRR6L2mM+zb+bl5X6Hfl2EYbToxGYlo6pD7uXTmV
PsOG0UVMP4e+oGz43kxDcjFs9ZLsQK+oiXS3TsVxkNSH9KSjaoLchTMpDe8v
homUNnBUg8drXnAm4OM/EBMfjOAe6AL7zbG+8Zxn7atvPU8ZJrJObEmnol8A
Jp40THSqowcuvbkK3DzpmL4eJbofiKAd81In1rexTg+eNJqHDBNZB/W2LBN7
4hz+j2EioYEV9TUacQgpO7mfSF+Q7wZ47R/2iInEREOPuD81fMT0AJK43vHu
mjbWnU+4zzCRdUxratpYHgmN24+IiffnNYJdZX1NJrpwCPcYDpK6kGsba1p5
wAHCGOP0TkUeLb/PvTqnvmH35blCat8lav/IX9ceJ9YBzq/S5Z5xsJ2+t+3E
E0/ctXjx4kWbNm0qZhqusiq4oLaZe99ox7KyY8VkuIa+CjwNr1ixYmTRokWD
V1111X6KvUBFF2aNvTO2rRW6fBZJAEpMfXO+h2B6RyWZnr/P0sxfSQ0LMKi4
GYa32IhuFHdxpE/U561i6LmMGt7xhje8AYwK/ge8GVfmh5lLImjV8CdVnNNE
qAk8AEZi5DQ/5B5VOf6jGq+wBNdv2bKltqOLfe8i4kpMetXpp58OnFmujLJi
CrzKUqvrfpPcU5KtPeuaa64Bbgp+AHbA4b6Ku6DjXbNnnCS/t4U4Wbh582bN
CWgOMGNONllNJTvhdm+9Onea9pu1Qm0eqQEZtHAEg65tP+GEE6Bn4ruphtmY
UrE/S0/9fCez1cFura9erZjwugs64o2+vYwHCjx5Db9PPag4z6onpjLk9z/X
brx793SJYcWEdkohzh/cjJhB20WfQJJK/3YR6HzccJFwiF+v314XpD9KpM+1
uMecH+riW7Zl721jOaC6GZoPGR5SvcLZyI6azdZ1MMOKfODLbq/ZRA1SeI1C
2eIcizY6ppjlf78r8rXC0U2GgyzWd/uWcz5QMZHLbJYWdbbiI3RCrgv+sFOu
Gv6vhpMYIurvq6mH++qLJs5QOQlZs4s5iUVEDQZ+DNuQDl2DoReu4XVcwOqB
rzX9LxaWvQ/+F+ONOFVKxY79066w6sKZUJquDTzJLAL+wzANQyCPiPByN39U
9MCXWl4m+C6+oy+3JByCYRQ+wx/treTtMB6R/JdZKXMuM9bVKBfaBLZABmAZ
Rvwe5LsPdCVSwFdAVPgY3sN/XlldWbYrl0EgVGzRdr9atmwZyCzBPKfRz2YW
dTAas9YH6iusros8CL+3jxidmKW8RvbLBzAPsonC4bUWROCAa/BdMY4GXMAI
uOiHl/A9MZ7d/F3BC7vDWIOIGDd2uZgXe/gFRWThddddVxxAvUvsYBf/yWuM
AtnehXuMAtFQ0OiLlrYU+XHRQBhaApv84WdkZQ35DH5HHYh+tYsNshij4NH9
wywfPlbT4rsYXGg9qQGhOgiMIODUr2hiv+UHqLBFoki0TIDgtTZcE2jEHfg+
1hR44Q87j20JH6Po31mR3hHrMb+r2Q0iUFSkEil3gl5NDJ8mn8U41Fz5EE8p
2hOHAP9l4iCG782KcNiyfPlyaEd+w4jKz/Fdj7/msBkw2MQWf8y1Z7rHpsag
Mt1jAzLtVJbirJjxIRkGNBRiFRo6mdEzOhoG710a2hlTpxlt4OiMvYNe8ycv
5h4ERBXp1qkeESciMy2RAfSroscKQn4Bf9uvLUXkByvRQ03RS/5F4yOpB+k2
763oNnoy8Fx9zxAr0UgAMRm+2aIRUQaLMJogpzdaxhkZJ7SgIry8hnCKsOsN
ZRfnrHqXw5yQNbjE1rFNl8HFzZ5sf9DhcN2c9BT83ijRMgywMliKJCId/Aeh
9QghKcJyVIDBqAWRhqAgQDICbQnTdPuAijaS5OCCEOSrrnRWoG4sMrFwBiId
ANhGhRHr/TLiyqAqogksAJt8V2IRN6AWNNoIxGBDRY/3F+KaxI/KqoPuGLEx
BhEZlUVkT6IzCof7JIyQziImDf/RkaIduD4lXxdHis6GrLYXvi4hjXxfHKzU
UmyMWH6yN+xdv//H0m6JDB3FOWOEQxBUrFX6r6QJddKXrJzIyMxLVE4Relv/
TICC/1Z2M9+I1S2oopxuZc9NeMn8mqJkkAlkaXixxOrhP3VFGwj0dH4VROTg
cShiw2qahe+diFMjItYMEiqyii8xnFQZGrpi5GS/mn2mMlxpaL1IJeCQ0nlV
cYSql8uzQSNLS/v9X6xdu/YeIEDlUMWGakW4lWFVLphPRHGWdMb48eOfLT/9
e/n372VjBxqS9Qa6gzptNhUFkHG2zrnsssv+Wn763OrVq/9W/of3PKES0tlC
RyT90ipz6vvG0NDQWZdffvl95f/nmBz8/3P5d+Sdd97JpZVndoPvYV5fQPGM
svnvnXnmmX+nAQWtGF7Dq2eZzFxDJmbFJgOOZLjiaumNN974NHBd/hU90DDR
aFz2oQ9x0tTB0y8eQC7reYe4LyntFo8n3pAVA+GCOFDnRBuG/6RijMtj/m8q
8butRP+B0qSLHpSiIfB8G3wEmf847bDhIR5Xp1Pkc1mRklGNxmbyZW3tCcWF
w3/6WNco5FVN5dht6CIPlF/evHXr1mtLIR8qZQFJUB1F44LSApwmECp0yZTM
EZcKl0UezmtBCCLe2MWerAYJM4zonEyA38DMEN/tZcSqMi3vIEk1/dBVby5V
I0PYt0qx/syeAMR79d1338313QMiivxp0UAdwq8STc/bEQ82PDFEEAkiM95+
AJd2ygTeSlXPE6BUGI0WbZBXxPrM+eefDyL9vNQcjYH9ZpFOKUaMi+J/EgVm
XFoU3YfkvaSAlCi7ZZ2SRTmDlZErZFd212+MFIyEJfpKee33pYI2g9MkPPoc
yoE4wv7/E2m68WT95ssF7VwAscHsHmBHKWOyDjZ9j+k3wTcLp+PX0MzgpxLY
szTwldDMzoiYVC0zGyweLIaLU4sdxbQCetOdpRgwFpBPMy5WSeE8MT9c3+fX
KjZth67P9rOG1nogjYnQYpXFytJQaV9dec7KHa+5/zXlIAbZsCYIBQ/w4DCG
UrTpkkvKI7VFAnHWgaOTqaUMRztdZpQmVS7+tL8r3tO9lTWWrlqy6pklVywZ
Gbx/UCTZVhxRgHWJldEUDJfl3ZDDkbAeLWHalxgsm/7bMj+CrzQM32ZMTNrT
y6kpMCXgc+Tom48eWXj9wgay3oBLZ3GEURxomk/UZmKjh5NeZhXPoH1CWyOT
Hp40svjTi0fm3zmfG4ePQLufuvDCC6XxdRbzZAms2ivUkG6wC1AkzBuAP5ID
PTC9aw6de6jr6ZZevb73Mk8PaDElel7wnQWAm772+8X/fTECBw9Lrwq8+fQV
DV5pw9QuaKcEUFN5Yul1SwFFTWVtBLGk5R5iUcRW22kUR2Y+OPOJUzeciijO
M/RiKJqCBqR3cERrfdw2yLbo+kUG2WN2HnPve95HVmfpZctS1ewA6YFPwVb7
FZ6gOU3vhO0n3HzWB8/S9FR5az68eXEEzwFue/LDk2N4jpxy7imLvvLbr8hE
b43Cs6pmbsTrvKT3y5LeSqI3WuEZWOXIEfccMbL0E0uBv4BelVUylVXFZ0qN
7VVS+W1RjEmh2AMgEgTuwaa5OgJbsoO/yIu2o5zhI9EGPI9iWuJUIniCnKx7
IZq0T4PnHI3nqUS0Dc8DFaAe8rNDAFR8Z4lWgbo/fcV39d9iV2BSPQBsU+G5
W8ZYZZqn503T4zk7osQBeO5L2mfT4Vn2Q2DgIEO3Xpef5eV0ehzt6TZH5v1k
HvZ7+F/ywAMnogqky/8h6WTZmM7BGB2Og+deB2wPCFoqFjQJxrv0U0sBZfh8
Z8kj0zotD6/fOD0jQnUCPJP7HqXhxTER3oM1HXvdsSOrhlYBxEI/YKCe6fKa
1sric16/Ez0DDcTXmm5LgxwlHhQkIaF9vaROofvAc9Mabtn8cTcfJz0D/rZD
pMTNy9aFXMWkTvB5N1eSnAbPPYHtloA62ZTtwjgDWuHxR4jXA3afiGana+Kx
gbIE9G/vfN87h1dMWyH7id+dApQJmJ65n/i731FYVv5J2yDMfcffefxd69+7
nnNQIFp9U53kBdpWvJLozWJ6GkjuiUBvUcmXhGuWZFXRoseQNwYbZzcbn/tH
Bn/p4ANSW4pV+GUdNQdiJkoUkdL4iLbmsHAliLuOu/Y4tASek7kAFx5MZZUF
LlmNqJcWgJ5THtN7dtJjk+476RMnrbrglgukrMrFvJ30stVwSG+sR9Ipby4+
N4H+G4dOGpIfsIiSQkIg5yuSMVscE4GPmm+BFwYbhYfrOc0IjExjpYUsWWCr
lqZcDwdRmG4DXg+z6iUPZWaYKGcPIPsyQ7keoAOesnNncyxl+EwMxjQQQ1jz
UD1Q9SWxxtF+kGvIBGMTEcrBGTfeeKPDnSmrzWl53Hst7pqHXUrfvJhqAxqP
+6GGcraOWS3PNozXU7hv4daisXYMd8tDrJLCrJepnciVusdHv9KANBDTAPPw
LsuyKZXrcCCNtBUAT84KBlIaIKfyJRHW8lCvD1Bo2ZxVPM5W8CT+zYkYwigr
R6wbvP2GG27gpQpiI1kkOSI28M+lDRRIE0adJ3lswG7glDAmrQQZK/AdU35n
hRJ0N/g7XQPZyQaexCn3k8XMiCGMc+Kg6aDxH27oZQH/q9c3yA00YUr6ZDGD
6IFXd0ofZxmOoQ2ut9A8dFRFSFf8s5eUfCyoEyjv69FexHjIOGr6coA2djum
fEpNtP/kpRdLK8bC85QI2hO9ybi+rEzedTvLQ1U9JnqPP3gethULiIfx8Dwp
4n7U8jk0QFsOUBS0AK2Flys2kqUpT0fUPxmIT4ioH4uRiqbYFPxXy8Q3Dg0N
PSJ6YOKyPTpXD/KU1QPawhRgY2+PgbOFKU6ioKzo1pKDH5TWscAQz9Zk/M4a
IipgX3geE1GAWtx33LPfduYPDw1AEv0nI6rfD54HIg5n3wjrbH5H3H333a4L
sPTLI4wyD7IMje8e89I7C5gNPPRFLGC6EycWaVnKWdwfjSh9LlBuetwddVXK
EOJugljLQ2zcNR77EcsDauBAfMbkjlP9YBp8M+xT7r1YlgbfjJgPRQxgHpHf
XRSoEHzM9r8NBxujAUs+W7Lwa09+ZfFZ0j2TB20AS9jrOA9lunEMfEs+WRAk
1+iEBe547yIDUNKDQlD3L6oJ/iuJ/Dsi3MbA3611/64S/CdwuH+iOMBDMMzR
uyQdY8O90YDlIdsHdmkDOJx4aMHzHOIBVOKs4MVeiMhs4whDOVuN9QtPmfr9
FBz4n4C5d4cBHFxTA8zD21kDOfP/mdXALojARgMPMzwPWziUkcWB7LzD8pCt
A/hpxArGwfO0SD+cHxHCa+BIQ9kEOzHz/990bWEJMKCPlCfA8+SIBtTpR5Xz
DuZhaU0N/ISuee8/BbNnTwAjHf3w8IgQMQ1YHrILaD+OWME04GFcpB8uSGkg
mHdYHrJ1Ez+KWMF0eB7jeXBWIEdA5SYdtAOMj6fJ6+J/0DXRA/IwE577I/Zw
ZFoXEhDv19vbG/CQXUC+x+Owsria7GF/4KFteyTaw9Hw3WD6cbShly2Q+kEE
9xfBc8PaHz5eFWE4Nv1gHt5aE3c62sQNQ8jDPHxuOLjhwUdeZecglnzWAX0/
ovYDifzu8h0MC4j2MZ71yumHJZ9dTv6u14DzACw99MRhnroXr7Ws45QqBv6r
DPnO2gu9lXiwuK8kcEpJ5nFD1PW0xQryhJUj5Ez05DzkeO02T55G3ccx3nsc
wk/hAT5YVPxFzvfqkwEVGtFVqxD8APavNixkYd9J16iTTSYW2vA827OwpZw+
oOqPwy+3tCVLdamcc/uInnxYOBLLft/xIKwqriC3OwAczPTG57T/xgiyrIi3
lK7OzfsYhZNqKuLbdG1WGYk6OxgDz9OJB7BGZwxvdqzHJh+Wcna9+r9GTGBv
eJ5iux6awFss68n41/KQwP2b9Clg7jQ/EZ4nRXrdiWnczbD/GvP17JL217z0
gDvqfgrwMD7SCdmMjC+Phb6Wh+xq1i2WB8RhX3geE+mEMobmZiCWh4QGvkKf
gtU53e8HzwORvheLI2MaWEiUT4igHbP8//DSiyVA138cloU7et+yCKQxDVge
sgviX/Y4OCuYCzw0I1awwkMamXwsMpSz1TD/FtH9geSGTcd7Z03wmXzQT5ND
7pc8eWcATJ563ykFfCbZ++yUw5LP+p4bI7qf58lvYaxlJS4x2zjGEE2Y+hc1
0MtLFT/nSBHIfOJmsGKbnF4w0eMjXw/8DAYIX6Br3r8/hgPtY2RmJO724jBC
O1bHEUPb8pD1M9drZR9GPLThebYY3HPIHD7WOOSUd3GTCk05WK68zktKOp2E
o+ljMJqKpKv4uKxoUVwslqKYiwa+Gsvp27SyTyFljwEe9vWSOq3HSn1joZXl
IYY28OPs/RrPg8NhPPAwJdK/zrRoo1kfq+glFyw/Y9EGvcKs+TEYQzu6ETGG
NeS3bFq16q7eefOGN5edlo/xNogz9TfVRPxqtrcSUGdbU+F5PPEBXdv1Mdon
1//GBy666JmbXvtaOL4b/rYTMVthYPlIoe763pURzc8APsbYfoa80EERfTd9
edmykW8efbTwsZuqIgqZTCxWLATGfoWHH8ihkgeB3ECkS8lBLLe99a0jn1m8
eGTXvHlFD55d3lz1NQs/k+RgM7tUf6m1AmRjLrDRG+lzfMjPYPmdHaMOOmjk
poULmY3WtpgGLC/ZdbRPeg04i5wHvDQifY8qZAdAGLBE1AJrYtfEEko+uVzG
9tcpVgJNfFzI3lMO/s+WFF5WFC8hN2t6Gp2c177yc6efPnLlkiUjFyxfPnJL
aYOPDQ5CP+A6Bilwx3cMwBss8EllXKRtAkaav6Grf7R4sbDzXNklKZLh0w5H
zTqgFLh36tSR2486auSik04auexNb9p1xfHHy/zq/Vu3bnUKeZ3hp2pVH3n8
iEcG+NkBy3dt4OdAz48zDjqKagAMAbsDKwSUobdx/nDdunWwwMS7Gtyuq4KP
8cANCL16R4OcaQGfqA1kTTncUD47wAiXqCj6sBdpZXE5iTQAIs3xIm0vLQBt
jM4tbkMXQ5GenTwZu99P5s8HjbOr/zcdPJOnbeu9JbJnBHYI0IbZPtllIdsb
YHOAPm1Tbchw+ztwdwNvMTzOGk+ynulCKy2a9liQdpCk3V1amLNvOie7DT1H
/BnYNki8bfDww2OhDA05KCju9YtvMkPOcesXnnLK+zgEFnjjToVkImb/3hwj
c9aLfNDLvKh4imQeDzLP9Bp2jpVivTZ2oolK7u8tWLDr88cdF5sk8zXZDUjn
Zdgzc0hfVof0zl8L94qIxciekYbDa66SP1l3cYGX2rmOSSD1dJJ6m4xc8Hg9
f3mSl7rEZSKy9pKigC6M/rwHPGvRWvmN0oi/RqP9wgPYt1LRZy+OBQcr5J6d
NOmZq5csOePes86Kzi75xjoGgsJvReKfmDODGUm9c0mjJgdBuX2nGjXKPOXH
wX+0+KFfmAL4TbVWgz2FXYy2mGIcPPfApR7AsAcAbHj8ADv4myX4SQHsJMKW
0CdNQK+76+KlS5NTNSq0ctu5xNHIa4ZYMNQQ+31FDjrZhKm2tLld/XMMiNmu
t8mDuKq4jECcDiBOjoxfb4qAOCsCIhkhOmENJBgiDruIZltfkq/Cr9ts3L9a
sKBy2k/itGRrloaT4W7JXmB4E+5/rmeHyXMJJbBi4NBnzQLgJkQG2uO95YCE
aDlHkZgAlZvF+vkAjbW9sr9P24wTmLd06u2Dbksne2wZreCN25OrXJrbO8hm
w24mW0F0tpfeeez9QfpxkTEZV6NQ6Q2cfaBhoNz8t529F1pQYF8HULAKYTp8
NZsT4Qo9Oa2GtofjtTHaG8mpUwKAPglFohd1gFs7/K2cUDXX4JYtunyvx224
eEfp8/+KCz+Pwvpvx+i+xhlN0ZROIn/UxZqA2s7SrwNwu9D/AVq98BIuwZck
rHb5Galk1ckFRk1GSIVaS67ps8m06cl1d2ZX5HeyWV9uZfV636EqT9raYOHa
AQVxzZHiN4RZfyQ62Mx2P8m7HYGujFzh04ZYGxobmVxLrsGfjJtya7NEImo0
86a2I7syUn3NB1ztyKcMCEX5+WLV9R6QVcWnCJBeAOQAAKRNgMCM0AUOl9uW
YykusAQeIIWR7LjB2yhnFb/wjIxyjPR4zbgohifr2TyXZiRZQrbakyf/Mx/L
F9gwgPLf/LB1lWsqlt1ieosrNKA93+leA2CSQBNi1d/AbEQow4CAj6utCpMZ
rzcaHqpqJ7GJU730rltMBh5meR62Fy9FaIp/SeNuZv6aB427yev+Q0Tt04Dy
DKK8u3RoEIwBPMXnLO7YazjncGwE2djJQqd4tB29GUBvXy/pMJe9FdfaRpNo
Wx6qipWwtyz3PFCyYT6mfX4DFSMi8zYc60q0OSGaXS3XPHSgLWp6h9Uz2toc
eJ5gKaO9fd7DFy6Uy2ItvmPKsrCdKxfjuwx5F7x3yccj0M9+AyuHj6K/mehN
/gtWCckF8zcbNrIVYyd7JawsLkE2oGKMGRkdsb4bfSuVdq8ZSWrihAj5fiA/
F8j3W/JoCLyAJgMRPk52NGKzVGbkGAtgUjFv9ixB19gGlWJjHEst3z+cbZI7
bIYz55MiBJWjdJkxy19WY2/y/A2XISBwBi6aNQbD+KOFdlQrPGAu+KNMZWPV
1wr/eEuEVqwg+HjDbvbIruMsu6jhicDu/shuA0I1YBUNnRfoMIsZ8Cr5ZGU2
TZn2S/FET0T7zO6imtp/ndU+sjsF2J3p2QVvCR+67TgRdsEQnH2eYIkjseCU
utuHhobAnbzFsJstdjs2wu6+wO4Mz+4W9jWycyzLLk14o+fKAG7XlOp+XKzB
8put0V1k+cXONRP4nWr5RU+zir9cWu7wJsnNeGuQAFw6WraigHldaHFMmsJr
PK80SjyCa+qPQDJJeIUP0Ae82/MqaV/hddfEwj9OihCPRU+W12zly6uE1+9i
L9sF22HmAq/jPa8wwCKvHGppfyW87niJ4jVW/xSbGp5geM0W6R3peV1VfJxs
tvRaDxPDYyIMr/HghgwPb1YMx4rUYobADKubTlYaAhdozip+7BnuBYZfBAz3
E8O7i78gw+gY1tVk+G0Ran4mdKJhM1v593LLJvatUQ7XXo8rsgiP93g2Yw5h
y3nM5tIIBzFDsAxnK5YP84ZAI9nDmJJnhhu2l6FHYJW6VYiAYTeevV1Rq6q0
YIZfnTIEjCle5nF1fWu8YxM0/2fvB5iW+KtwBHMcqrr6iOZPMnxlR4FDLIdo
oJOBw0HPIZjDIiiCHfJKl5FAeyrnVWXfQ26Ca3nNlka7Q2tU758GvM4gXndh
P2JeOa0DnqqS14qKJjBMp2/mNaj8DfQ9z3MIMSn2o/2Aw6mew+3lRexGkrBT
uX/tSx2Hy13zMW9v+cp6+wO8voE77Diz4Hmy53BnCSxyqFaqQ18kK9Wewxpz
6pMNr8nKVOl2czyaw6WDxt4zB3id4HkdZmOT2xRleeWYNlvIa3lNndzmpnWD
ltcdsEO1dEMPQU9/GFyTMAwhChqopPm1B405er9t0k/ZabTiAuu8e5/pmVtZ
fJKYazvmRkWY45sAxrylpH3xEWwmTmreMpytlJL7EGBPv6i01INxfZkZ7o10
d74baSpAdeOR3v5dlQywDCdq2tyJL99FFoFBCEKYzYZlE3sULzBmvVJst34s
c8BsHpU3BLw2xTNMPepPOB49RN0KeP2z51WWgCMxdIzXbHrhbYbXrA2401hU
j5oEvM72vMIwgI9hz2vY+w2vKz1Qlb3f8ppQ/wTPIVgpcjgVONzPcwiDKnzB
FRFEOHTGCY9VrvlYQoL5OjKi25i+x1kOsR/NAA6nWQ6xC22lL6ds0/X5oEIz
WQFtec3WoroTVlRnmgnP+xCvu0tjdd1dClAm0ZpBOL9zvL7b67syM7HU8JrQ
9yjh8Fbfe/YHDidEOPynCJrNiEWe5klWTjyYwyMs+Mm4zp2hAryeVNrmGNxS
+iC4pocoVNbdvexGUqakg7tWZAA9rab6LcPZ7s4rOzQFuYgYbjuGBzzDO4ux
xDAh3ASGYc0axiqwhXbEZGltwqUlzFnvha/8Q1N4u+E7YQoNy+02iE0HgNs5
wG2ft4eg/7f1KhhwLKte/cQ1LHo506C5a5/ExQKhSAAHqd9Z9igOgF4ZsQIC
um1ccwGplEeR5TEO32bEH3CiX2otkC2qE8B8pa7FwLXQorlQXYbSgaZfFm1I
OQG+w2ttkL0ZWV8e7TsyfIptr7PS0YYjMgBJLt2/du1aCIstHhHDw3Mjbllx
1QroGbuKP0DSnHEgCLaU0R9CQBlIXKQETmRJF1cocUX3VdbYEJ3YQcyxKa/l
0xia6gzA433Tnp4GY9+DMCsjJv9UziMOQkW6wtDZCsJjyd8AX9vV+umGCCax
yS2zJttLI9EdOBbXT6cCazM8a+C/4UMpsjBh5FGuOqVoyzo5WALgJ3yeHcHE
T3GXae7aemABrlYWF6NxTwempkWY4i05Zuzo9Uw1we7gFfzBa8rC9cJ3hV/9
mmq80Iybes0aXmPpDUWlIiJH9w1dcFG0sKOgoTcEA3yH19DFvb+mVRlwGhdv
uHjDTcv+dRk6qFmAyD4ekS2SxFjqEXGP/1CmUpUHYXruyORyvDnolQc9s+SS
JSODPxmcDSQneJIwbqI7BND5ljUpNfMSIu31bkI/GCl+XYzM3zl/ZOG1C+dA
y2Nty9gdsOWx1nKTGQhLY1U5CCKNo286Gv7mAo0Ba0KexniFUNW5S8sNQiOT
fzF5ZPGli0cGfzwItFCOXqKxu/hjQAM1kpz7m5YbuxZ8fwEgA63CWM9tN2zb
2AWwbT5eMTtrX2GofPWtN7wV8bFUAKA/YAjsCdBZ5fmp9gqtBNTZXUs/vBQA
gnHp1+D0HkQJnkVvCDamjvYM0XGWaZsVLpDvFjzPsM160IMTXpLAnKII0Onz
JQjPkgUBFWR+qkdnm3hspDKo+KqaiTIVyng2tba2FfPAcn5NQwPR2F5e8zQ4
g5KdRloaWmHQJZDGeEvDa1nd28bFGLFziDQNf2ZSH7Q9RlvQGNU259PE6SUx
4oM5gqMpUHG8sGcU04bnAU90i6yZINGDQqsycbglZbTHpEAtjhRi17akvAG/
xDKcjKUtUaNOJupclyPa8EStec+3oCZHEt7y+TLLI7pS5LEfaSGy1rIP82xW
TmksAeMmmhGtNTQ9sPKHmN7La6Ko6aF+pcRXKezZSbsn3TXv8XmEZ+HCsyxa
fCoXg2v2HhKZFgQmwPy5hyw+xPGJNHiukV2FtDTqHWFI/PcLQ+G6N3zoxpSV
qv3kaXm6VSGn7zAF7+GOPG4nPrf6UqulZDWXRsSMrT3+y1dt2rQJtr/wOq+0
Xe+AzdjMzkcdtsXssV3aRqoGDESC2z4kgkTyHm56GlMVh9m2Y+s+nbZRjcSp
qsVkFU5M/mS0xS3GvF7yvjuxaVwwBACNoO1sKYyXPxld4cnlLdqT4oqy4fFq
RSpZlmeAyYVYHHHIfVyoZhfvlkWkDt4DxLJhF68KmK01xxh62YWFNIrOLmfh
p0BEt92VPSVhm+3aZpwOsnjXx6kqAOMj76Q8HYutFxp62bx72NsqgzFErBW5
3+2rDNFswUwMSh2dAUEXnVFWTw5268rQstHZ6abtLsBKBmG2xWwhWQyJZJTA
bc97HkgkB4DVpu3s4nxoNpXBgW273v3Z6mLCbR9oeQwWvzW3WSTWmBa76kDZ
MMm2Xe/WiNy2E0u1bQYFbvuACHDJ88zppDh3aNL1GzduvGPdunWxhTLEZq2h
Uc8Jc0CGgpU+A+5WqjPdoDIXLqwz7WdrbRQ+TTF9YAa+xGc+QerV3W+J2Q/m
hRXGEvPzh951112PCiD0M9gPxDcLjN5Uc9myZbJ9CG+wTS019dYh+Ow4w15X
fTAbhIkJqO1fHP2PD++TJ/fxlv1u+nO9oVm2luENr5cY3rNrKjWCPL6XJFBc
WBotUJPtjPpWn/AfPu/BAaktd+UOdyrzPiO9x8+9lomq2rDMm45EnsQRbTFT
iYWYOJaxPPrW8/C3W901WxiGW97Rze5a+lbU7obavKFK3xLU7bdl0kapfCzA
XGtYtVxadicIz1TDvapiaIRtv7MTfoT750OxJOxzO+mUWC7ysGJlj3KqEVi3
PQf6HotqA2Wf3roek+L5CZE9Faqr4J3vjyn+xWw9L/qcOUUkUTcB1S4j2BYb
lYQze11E6DVmBHw7h12q4/BeOX/zXO3DgjvM6k3P7taf3O3ha+6Opa83MnTh
xpKzDOZc3x9eFtHkFvJqI+Qo7aDC23mKYuQkBtqAvMSwnFgVzg1qxmy4mkCG
LTIiK4beuwmv4ewL2b+J/ZyHOBk/5FaYPMTtz5zUupWUtpGq2dB603bXQ1A4
8zGBm227C5D1tMZskOEWZ9uv10JCutY+Tz/9dBSJM03b2fqWGtMa22IX8icD
d25x0H49eUpaVyH8BtN28jyulCVUhvC27RcCCW5xlpU6ZgkdWcgsEkOm7aoz
srqfzOi2q2+bVHcKwy3OtFK/MEhsNG3H+kQyH5stSrBtJ04mwhaPdG99ySzV
g4dre9X3MCPO3D2/oUH5D18yuU3bfjc20Ccw6QOe4IswSYQCn7NU09W3DIrF
+iptfsfQ0BBO07jFGXtgAtkI3LZdb5Gibhis204eA1IjAuV2pu+J/Llw8GzT
dpX83Qdouu3kRvy4/CbFyO3sGxGprv6T8r/PtN2V/rPBh267hvw1Qg5ucVpE
uLpIJIMP23b2nLiYo9W9zCBxjmk7e2pHjeCDWwxuK1R9j7a6g69tuyubyA45
56q2q5cV6gYf3OIUK3WtZbpOJHDwOc+0+MLKb9v+9Pnnnz8sBHPZzmzwwW3v
Y8nieJfMhXPbknnUbRsfbNs2xp3zk1lMNpm2DdlMhjMfhnDbky1ZlQlIY5LI
wZ1vWowhkcxIVnljVJNuG4nleocORnSpvJOfW6RawRYQ+83q1auvLaeswAT+
LHZTzMADFU2Tni5/hdxt1lC0rt66desfy8ZhyziceInJ5h5kuyVd8J2XXnrp
NyLQ9OtARSIreH/L2rVrf1s2ihrbrA2lfc5ll1325dJQoHThVxyAnVXyQBy3
buZLOqlOJF+Rth1zUwImR36wH7CT7gYK0wtywrHcVcF0J6Tpy85iEQ5Tmm4p
ARWhhOYRoQQtLrzuOjo1hU6ehK8gTVmHzsVAdA4gB8PjhTowp+WE60I9vKEF
kOj0ibz0mY2TmP5gWvoUzveWzzdt3LjR49xRDmYiKaZEeaExQAk+FkrwWnAG
Ke5lCwJa0DMQZ6QiS2u56IrKgDljPjZmQReVBgs2HtbkaGSR5FwFZlXQxSTn
WTAfLD9+tGujVamNyrCMaZInCVd34H1kcQcSd+qyZFThP2muKefcwh/k2Gh7
VD9IqbUGnKDkrDV16EZD101Fq0XDaNDFQCLSxHB1Rx9ZC1+QjDF8LslI+QyS
kiIUnerp0/9tSY7Df93o3mljqdMNUUqezmTj0gtYyobOe7Mb8cfUBYtC5hTb
hZs3b9YLFXopwK2/+AYnWrOs08c7zdIHj7HI2Mkkxuhl6kzcq7NWW3q5Jljh
aEmC3CzpxNbIaCxE4cRItebgQxAGjFRrToxUcnA4MKOw463BJoN2Fps+aovV
Sto8cg6qdEZ7dCfl/p04Pd483LUp1QaqdagNFPw0eC6UaoI10GRo+AGlS38m
pV6hNKscwQm5MfGMKGq5w12jqfCY3CAMGnwgCDFIY9SB8xOXDxiNmVUEpbGA
Rb/GwZap3WxomaZXz7BqA+PRalvyhS98AVRxdmlQktLq8CujU8aI4SBtQWZm
3Xm63LvcMlmhlszUSZf6kFXtUPShyfaI7WDlflan3h7hUa/KLL3eBmrapIg5
1rBU+EIAvTalj0QVP8pS65/KOaByWqo7PbXwB4VDcxS5dPhPHbnE/KdsJSRB
OeCPzSfN3EkExe8Dp7vVSaXAcWJBq2G1Kh/pc+yldnI3t3SANc6qQS9pnOwV
zWw/NpVlsV4Xh7K7oaiGudCEijcn9ocxp45eYrG905x06fL9ZI7viz+y0nKT
YGaBth7uvSeRhZbyTx7nyPR4C9GivYRRLxqiK8nz+8SjsFjZ2TKT4lPM4FI4
5AqyHylND+cJKi50yD6tUAwia9l1ju+Y3MlxU4XUP8x6ZVqdis9+X4kejeW8
xc9E713ZpvhpmPLK436LavLgB2aBdgr2x4YKCWSgiWS0zWv8JqC5nzXF0Ojd
DdCWCU2ZjRVxtHPBhqDtl5p2uVe0w1r/4lflBAz0R2cq8M6TDs8AMFQ52dDp
mFFS0I/MxQ+744473CjFLKzE5wlVXRXtJBNKCimmnp2JM/V3W9CrOm8Y4cE8
0UMdm4MzDSpS7ZiDQ/vZMOsXFuDk9PtDRGpttQ1VRj4liZ8q8Kpm3kztDM+I
gFf0gH6LvpzF8p2ds/NtpsQ3qNKOT0QHx5WyU+f4/mfETmNTCya3sRpGTS4G
4w+p5dic1IyXdFgIL3rt+fB8T2iEBkEmQhBXOrmQCBhkOCjDd5zju70mqswC
JaiTg3KVucB16dLftegmoxE6hoMTYV1lGk2u7XZvqZVzHCZ3gTWdFNaSdNvB
STcZGP5bClIcM+koFA5yok7r41u3bpVBKAXkd2oCyNTonC+I6vkkHCxilgfr
Gz5218dayCUjlwvdnUF/i9rMBnvMIJWV9slUTKoE9fwErtPOlZbMNeTr/g4/
quIR3u7UbVBGbiA3SkmcEAsTvuENqTJoN1Lh9GinTPwKmpyAIHRbpoYueObb
BWCbcE3dk2JAFxbKLEvn9WQ+PT5tWnX66FdrmtZHtYwNlzRESyO59SRaGIT/
ZG/94Q2GdGbKya5yKe6OY5yWi6VWq0YSp7H/UtM2WUI+1q3zrlk+PYPVqLGK
WpXikUSdupOPK2RFlq3aqoKocMACHXGTZsZ1E+smHr1/jMSjvfNNYFlSAPCn
nIKTMJPEiufoqIxg7z01R4n+WZbsNKtTKp2uDmrdwzLwTPrKKozS1mNiydPQ
DIHjb5RhO2ydgUVF0UzVLA4V/jFjgrLGQMC7pQqV/A5zVTpX6EqomZC5IdB+
1dYnwsCQCmdDhVr6YqWl0V0T2VXgBhuoNi74ofNpzgcoHr3Ewb3pZBhwdzoK
1IfapVWhjthBJsAiQNJZXG/tLlmaZmRsa8cgvQpeq80UcknGqtCVc2F809xp
r+A9qeRwXc6cltsGdMQC69qwjT0WHcbCa7qbBh54hRu6uDuyGzBTBxaVDKep
/Zrz7sR7ww1reK3e90XOIsiydes4KI5pyoRTAsJYhT8LtC1uKrVn0p+l38PC
673c4TVTxlwuJpLXWcWlnD6QXb9ly5ZYVE/g9ktoHU5qbix7q6sRYKqff37I
xoaaS0iL57nj6+CTW0vaeJQCRpPhTZGcUTcj17i4/oteJVXzbqWSViwJSOzV
2KpMFSytcDMKDQTopNpuD4j6DNPL+HGf/pn0fNkmAu9pwl38q1VBSvHAPChe
so47OGd3iVdB5Syf8lpmc43k/b07aumRwC0DqHVVRAVCznD9QNqlE9v5hvdZ
u7qJN6mGdvUJEiCbUFA7WdxWohqb7fSQ4SRmBEQ4eBMsEjfcTfbgwftb/53s
MsziQn3ErWW312nVqKv4mLXH5LSb4pV+MR4RS08ZgiGzpddxwoWM9C1MWYM3
k72IBu/ke2qIBjmwB7MTq9TdjY/5zCZNyAmM17dyhEe4+9Atnha+OCFcItaS
ddzesbD3ymTd3YLPtZL9HUtvPH0GANykEAtQk7kbqrIbrbtYuFVP5JLlJ192
0eUdVVmJXyej6SZPZIyzL2Kc59Q0WPptvxhebFcivMZrTf9dPfBLX4TvuH2c
sZiV9flNa7OhK2WbBY7Bq4ROpx2x2XPsteQUmO+QrZcO/SyiNwzcjC2qWHYg
XHkNvbUonNX7bXzOLvlH7bfpbJXdazYnxuvMUCMV3mBTB7nmdsCKb/lsdzAx
0RGwZGo4GV1QcstEs1U2rMZ9CUnyZqvv6WgO4AmiVPGyQfGXpDuSwSvrinKB
tSItMU59hENdQ+Qbp9zuLSNVKSjjb3iIgxyLmk2KMKk7rI50p4NKVygS1FOr
2BrxkLfAymQaU7yzE0o9x9FQQkgU9vP1NaGkyKrA6Xt1+V6lD11XE04md28a
zrrzgNUezsgU/FKi86P69hgDkY88zy5lMbWfEIixDEktENVUopDHcgVsInOC
bTML/wufM4PDgA6zxU+EK5OwV1eSnXGM+ZaIP01j3OGfFcZwtArcw0xueJJL
ODC1n1tqVc4ytjr5jrSdmokEU7u/2n4EKyhsjwWIeGx/cqM906DxvCHDP50K
QtcgNHBDasN/D1wvHCEiIQl8D66hS6a8vxkvYSkDltGr9IFWGNwXLWnwNHt0
6wM8qGGWC6eNfF4ATC2Ccr4WjKySyJFjRSSDrgsjZcSEazWXMiL5Hte3+Phs
nTaIKp4l+7oXIKhEtTk6amKsEbSgcGB3JDzQxbcuIsLYiGou2ylLy0R1dFOB
PolujE7Lh4B2hRFOLElpp6HrnmkeTcfU9OsFHXjo1HC4TOASlPCY5M0xl9Lo
MEcqy3KnPUkZPnQ1caBwx0aXzmDlUcQ4WqxIgy+9LJx77TSzwzAlTmLpSTNv
c9kTk3Qj2GJlkvbcW0xLvr90Ko+yWbLiyGP0SgAuAsjEEt/TiQ8DYReCi/qU
GLFYVazpktTMhMSygkXDwoCt0mpHVwGf2ahETbpRER58C7NsWoQxIZ23dE2m
66FzGGF1CpNMoGVmlcWhrkFQBW9loVsw+Dd1eRVYQOwGeLFJJ0uO/zg9rtUs
hyeY0UPObtaTTzXplvmO9gOuy0fSZiEULokEDzpWIDdD1YtFUF34Pd5oE9x+
LZlV+TSh8GkvmEuu0CJIO5a+83X2DT2PZQr94QYR/d4t5Hi7oM5Waf4gB0Qg
MM8JzT84XCEw8E8rNdNUTBYrgSOS0aW/xL7RWnn4lTpercTw+yor6JYJBcvd
bFS0QwrjWr3vDAo3rmXHVRnX0qF9ebs2AruTz/RSuj5AVBKE7oQYfb5nT+R7
Qd4dr73YmiokAB+Nm6osrOjSl8OtqSYnWVcSU+Sq2lLMEB7EtSZtTLmREq7z
2d/ZjcjMDE4x9sKXzyuwSp67jnOEf1bEmhbrRIgj9Sjh3CR2PmwMa02x1yPa
bewB13kjYXZSq0n27wmibYNo+ZAZl9rjV5kz0ByMrgNzb1icint/OZUvZwVV
Yf32G264gdfiiCxPO2L1juH4JwkZJ3XstJ8Y0Jre+DzQANtHy16eMt3pHt3I
9PZqRWxSHFNIyMAaiIrOY8WVwTkQyVmVpkj7uMaEPjdmQx1h8z4KzqqcgaY3
zUpYY8wWktBheZ3AJGhkSaIjjkN0P6NoB5ufqhxfDF4uZjdHagRV3smsgmZj
prWoHOwxiwqy61rT2ZSDZmV23N4y2hD41V4bSzFZ9q1pU3FFR749VgrZMdfs
oXm1UwMStepJWv9nFQ8HWFXUHJcklaxJZKvqNdkgGki4zjCnLNFAEUJshl1N
h8bMsbFs69E/+MEPRJcaYkiV3cEFPLEDcnTzdMMFsz9BClrBW2n0PsoHHN8X
RK0aon9RTdNtU5IBr3T2M8rX15ev5fSHr3De6xrVFN1qpKWzpXD2MQgpEyRI
q0PV0q/XULWb/vkrvK5gjwAoQJYpQbBt6qs/fx6veWgyxcKtyDUKeYKSj0Ie
/0m1SG7GBeKybU9tm23Lsku4QU/tyJTLsjSuK+DCxVVDnirfpplCx8JvgZTJ
r7DXceZtYRe74H248unm4rGM2fYOXqI7UoGeHHLqJp7Bsr5M4NQ2cL2JNZmS
0izQDK4lR0jjdYE0sta+I8gTmWRILC2gaQ3iy17gRbQr/DpVBdM0eBMUMrqz
Yato47VO2i5VG9a3+jIYfG6Kam19wZ6RJoh7Y3uMXQ0Ue2Zds9J12kHTpE7W
HxY26RrswEpbMsFGtKSOlDuklGPo/C3wGtvq3MmGWf11m4kZUpmMy9Zq7wdU
5aPLXskkSS1F69PPr1O0ZznWbJWWyCepLpBDr+vqU69jRYzwWjuU5+NdX4DX
xV7/F08qhKk=\
\>", "ImageResolution" -> 96., "LightDark" -> \
"Light"],ExpressionUUID->"80e617b7-012a-7f4d-a25f-e11358350424"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["%566"], "Input",
 NumberMarks->False,
 CellLabel->"In[29]:=",ExpressionUUID->"738de06c-6d4a-435c-8635-fcca0ab30bbe"],

Cell[BoxData["%566"], "Output",
 CellChangeTimes->{3.9674343342733192`*^9, 3.9674343754556103`*^9, 
  3.9674344627503033`*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"66811de5-4d27-ef4f-b2b0-46bd4d6119d6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["%534"], "Input",
 NumberMarks->False,
 CellLabel->"In[30]:=",ExpressionUUID->"78d72cbf-1dcb-4bb8-b808-4001b0e8dfee"],

Cell[BoxData["%534"], "Output",
 CellChangeTimes->{3.9674343342763195`*^9, 3.9674343754886093`*^9, 
  3.967434462757303*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"c1d11e30-0634-a24a-ac98-f0637ca0d7fa"]
}, Open  ]]
},
WindowSize->{1358.25, 756},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"14.3 for Microsoft Windows (64-bit) (July 8, 2025)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"d036075f-8101-b24d-9343-493690e6bc0e"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[422, 15, 14631, 329, 1683, "Input",ExpressionUUID->"f3bf48f0-c859-41ce-8d10-9071e7993b36"],
Cell[15056, 346, 199, 3, 32, "Output",ExpressionUUID->"48abf5a1-cfd4-7e4b-9143-17b3f9f4967d"],
Cell[15258, 351, 363, 9, 22, "Print",ExpressionUUID->"1389afee-fe4f-8941-95c9-690148c392dd"],
Cell[15624, 362, 214, 3, 32, "Output",ExpressionUUID->"ee394879-3655-e04b-932e-d13479ca6947"],
Cell[15841, 367, 215, 3, 32, "Output",ExpressionUUID->"3f832850-27f3-f34b-b44b-96833184d961"],
Cell[16059, 372, 216, 3, 32, "Output",ExpressionUUID->"80b66d63-64ee-0146-9e24-2a04aee2b5da"],
Cell[16278, 377, 217, 3, 32, "Output",ExpressionUUID->"2ff0274d-6a3c-5043-addb-efe60e9c1841"],
Cell[16498, 382, 208, 3, 32, "Output",ExpressionUUID->"ea7c05e5-f779-964e-84c3-a7693a8e26dc"],
Cell[16709, 387, 236, 4, 32, "Output",ExpressionUUID->"e232362c-1848-ea45-8b9e-9d0f7db54069"],
Cell[16948, 393, 216, 4, 32, "Output",ExpressionUUID->"d2b3fece-4b8b-2f42-acfc-a6e7a81d5e4c"],
Cell[17167, 399, 201, 3, 32, "Output",ExpressionUUID->"d871e84b-78f0-ec41-ad9e-75fd4fc37722"],
Cell[CellGroupData[{
Cell[17393, 406, 572, 13, 22, "Print",ExpressionUUID->"513e08ee-b395-e342-b490-3940b4ace7ca"],
Cell[17968, 421, 454, 11, 22, "Print",ExpressionUUID->"810eaeea-ac47-364b-8162-dfb79af262b4"]
}, Open  ]],
Cell[18437, 435, 19141, 354, 59, "Output",ExpressionUUID->"868cd156-008f-d64d-9e1c-8e498693327d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37615, 794, 8734, 184, 637, "Input",ExpressionUUID->"3446ef60-298e-42b6-8d5d-36899cdd63e6"],
Cell[46352, 980, 217, 4, 32, "Output",ExpressionUUID->"70d6c3e4-6771-a54c-9431-08c0913bd1e4"],
Cell[CellGroupData[{
Cell[46594, 988, 360, 9, 22, "Print",ExpressionUUID->"1df84846-a2bc-c34e-9da3-104b3ce49513"],
Cell[46957, 999, 889, 19, 22, "Print",ExpressionUUID->"adea1146-87b7-0043-ad0c-1d09e1de0024"],
Cell[47849, 1020, 883, 19, 22, "Print",ExpressionUUID->"c3b08962-ebcf-7948-b2e3-d7f10671f1a8"],
Cell[48735, 1041, 886, 19, 22, "Print",ExpressionUUID->"fd1d7c87-5693-e642-8486-90d7d9c90d47"],
Cell[49624, 1062, 876, 19, 22, "Print",ExpressionUUID->"786ed1d5-5739-5c43-a244-9f472047c424"],
Cell[50503, 1083, 889, 19, 22, "Print",ExpressionUUID->"f1847366-8411-2d40-96b4-628442f709b9"],
Cell[51395, 1104, 882, 19, 22, "Print",ExpressionUUID->"46fcb2e5-ba11-3447-b91c-f28f68cd30ff"],
Cell[52280, 1125, 889, 19, 22, "Print",ExpressionUUID->"6e749e70-2f87-4d47-b71c-e5c1ff2b42b4"],
Cell[53172, 1146, 886, 19, 22, "Print",ExpressionUUID->"8aba0af2-db36-674c-8b81-686d3d70cb81"],
Cell[54061, 1167, 884, 19, 22, "Print",ExpressionUUID->"1557908f-7cce-c142-966f-af9c4f727ca9"],
Cell[54948, 1188, 886, 19, 22, "Print",ExpressionUUID->"5cfefee1-24fd-ae40-b37b-6f6b31404159"],
Cell[55837, 1209, 886, 19, 22, "Print",ExpressionUUID->"e6c8dd1b-54d1-0943-93b2-743f54fdf2d3"],
Cell[56726, 1230, 894, 19, 22, "Print",ExpressionUUID->"191e41d2-527c-b64d-8d3c-9f12fa6197cb"],
Cell[57623, 1251, 884, 19, 22, "Print",ExpressionUUID->"60bcf06d-8fee-8449-91bb-0907e3fc9d6c"],
Cell[58510, 1272, 884, 19, 22, "Print",ExpressionUUID->"236c894a-12e0-4346-ad9b-8dd3e181ef0c"],
Cell[59397, 1293, 891, 19, 22, "Print",ExpressionUUID->"3c9d4ed3-2b3f-d34c-8bcc-8f3945dc6ad7"],
Cell[60291, 1314, 886, 19, 22, "Print",ExpressionUUID->"fc7939e6-8c82-5d47-9458-cd2de89da181"],
Cell[61180, 1335, 889, 19, 22, "Print",ExpressionUUID->"545d3264-45df-6446-b5cf-002a360f97cd"],
Cell[62072, 1356, 895, 19, 22, "Print",ExpressionUUID->"5f6eddc6-6f08-6b4e-b01c-b32c049f8b39"],
Cell[62970, 1377, 883, 19, 22, "Print",ExpressionUUID->"6a7a6412-32de-2044-b7ec-c35dacb0aea7"],
Cell[63856, 1398, 886, 19, 22, "Print",ExpressionUUID->"96030ef9-ef07-f848-be06-00790128a922"],
Cell[64745, 1419, 888, 19, 22, "Print",ExpressionUUID->"81dfb541-c510-3343-9714-72bed2ba99a2"],
Cell[65636, 1440, 889, 19, 22, "Print",ExpressionUUID->"b6988690-780f-ad41-9308-cd4af2d8ccc5"],
Cell[66528, 1461, 891, 19, 22, "Print",ExpressionUUID->"f53189e3-582a-864a-a4ad-7060af86fe4a"],
Cell[67422, 1482, 889, 19, 22, "Print",ExpressionUUID->"a7d5f9fd-f873-4f44-ae25-17772accd235"],
Cell[68314, 1503, 891, 19, 22, "Print",ExpressionUUID->"f2633260-87d0-8e40-8c29-0d9c2ace163c"],
Cell[69208, 1524, 893, 19, 22, "Print",ExpressionUUID->"167d7c34-2c41-274f-8eb6-c7aca344b659"],
Cell[70104, 1545, 887, 19, 22, "Print",ExpressionUUID->"69b25dee-2ad3-1643-bf78-b44b2e939afa"],
Cell[70994, 1566, 891, 19, 22, "Print",ExpressionUUID->"be72272c-82a6-d541-bf96-41c35e81751c"],
Cell[71888, 1587, 889, 19, 22, "Print",ExpressionUUID->"1bac0592-1a77-a445-9c4b-6f594fff4e5a"],
Cell[72780, 1608, 885, 19, 22, "Print",ExpressionUUID->"fcb2b490-6871-984d-9cee-0818f7a43066"],
Cell[73668, 1629, 889, 19, 22, "Print",ExpressionUUID->"fe5431c1-0c76-534b-9414-6209b6f940d0"],
Cell[74560, 1650, 889, 19, 22, "Print",ExpressionUUID->"1576e45b-e34e-fa49-8d5c-494d02b578a1"],
Cell[75452, 1671, 889, 19, 22, "Print",ExpressionUUID->"1f7f5a20-1368-7347-910f-50047c1b27ef"],
Cell[76344, 1692, 886, 19, 22, "Print",ExpressionUUID->"ce8aa28e-4677-f045-8fc0-858adb0c6b81"],
Cell[77233, 1713, 889, 19, 22, "Print",ExpressionUUID->"ada45dbd-94a0-2442-bb36-3af4d58194f9"],
Cell[78125, 1734, 891, 19, 22, "Print",ExpressionUUID->"22aea6f9-cc9c-cb49-8d38-5969c9aca1ff"],
Cell[79019, 1755, 884, 19, 22, "Print",ExpressionUUID->"1805f0ff-b65e-b849-b7d0-b0108aa3bcad"],
Cell[79906, 1776, 888, 19, 22, "Print",ExpressionUUID->"c878452d-c4a0-3845-8873-f353684c6fa2"],
Cell[80797, 1797, 892, 19, 22, "Print",ExpressionUUID->"4d06d3bd-c1c0-cd40-b7a3-73c5438c2035"],
Cell[81692, 1818, 889, 19, 22, "Print",ExpressionUUID->"0e69852b-123f-304a-8ba4-176048e6e4bc"],
Cell[82584, 1839, 888, 19, 22, "Print",ExpressionUUID->"4720f729-929f-db46-b8ab-fc1e43186e1c"],
Cell[83475, 1860, 889, 19, 22, "Print",ExpressionUUID->"8091ccf1-ddab-7448-beba-0205aef33aad"],
Cell[84367, 1881, 888, 19, 22, "Print",ExpressionUUID->"31c6fd6c-5755-9a4a-9dc0-618100d97ed2"],
Cell[85258, 1902, 885, 19, 22, "Print",ExpressionUUID->"b51101a5-613b-da4a-aa75-e663aeb2e51b"],
Cell[86146, 1923, 891, 19, 22, "Print",ExpressionUUID->"ab4ff08e-5f52-f942-8c90-523ddc70fe6e"],
Cell[87040, 1944, 892, 19, 22, "Print",ExpressionUUID->"8da6576b-38a3-c542-babb-b0507106440e"],
Cell[87935, 1965, 891, 19, 22, "Print",ExpressionUUID->"60de956b-6eea-4a49-ab60-6392e5808ccd"],
Cell[88829, 1986, 886, 19, 22, "Print",ExpressionUUID->"cabae827-d422-314b-9857-7af60980efd7"],
Cell[89718, 2007, 894, 19, 22, "Print",ExpressionUUID->"f7393fd2-deb8-0e47-be51-960882ab0a86"],
Cell[90615, 2028, 892, 19, 22, "Print",ExpressionUUID->"10332a52-0876-f24b-b588-12abba7321e4"],
Cell[91510, 2049, 886, 19, 22, "Print",ExpressionUUID->"e114e322-d13e-a74c-8135-fcf452276802"],
Cell[92399, 2070, 887, 19, 22, "Print",ExpressionUUID->"b94c68a3-d71f-0e45-96ad-ca6740005ee0"],
Cell[93289, 2091, 887, 19, 22, "Print",ExpressionUUID->"d211a63f-6e29-2c44-b75d-9b923e3c1e7f"],
Cell[94179, 2112, 888, 19, 22, "Print",ExpressionUUID->"3a161a61-c03d-164a-9e04-d7989dc320fd"],
Cell[95070, 2133, 892, 19, 22, "Print",ExpressionUUID->"213d8048-1e77-8745-9c01-bf2b852fdeae"],
Cell[95965, 2154, 894, 19, 22, "Print",ExpressionUUID->"350315e0-d323-b441-b391-5beecca92d61"],
Cell[96862, 2175, 894, 19, 22, "Print",ExpressionUUID->"6def8b8c-155a-0b4e-8ad5-02d2c36435a0"],
Cell[97759, 2196, 892, 19, 22, "Print",ExpressionUUID->"3d027b08-d1a0-c147-8748-534c0a203518"],
Cell[98654, 2217, 888, 19, 22, "Print",ExpressionUUID->"5a659377-4e1d-404f-87b6-f3f98c834766"],
Cell[99545, 2238, 890, 19, 22, "Print",ExpressionUUID->"db5cbb63-efb9-5045-bcb9-b041a4b44450"],
Cell[100438, 2259, 891, 19, 22, "Print",ExpressionUUID->"f9e0a0fd-f654-c947-a705-74181551c6fa"],
Cell[101332, 2280, 889, 19, 22, "Print",ExpressionUUID->"be328191-ade7-7a44-a72c-8a3008536fea"],
Cell[102224, 2301, 891, 19, 22, "Print",ExpressionUUID->"deba85cc-0f36-cc46-ab34-912b930f4c53"],
Cell[103118, 2322, 889, 19, 22, "Print",ExpressionUUID->"ab7f17d6-346e-ba4f-b231-08314b75d3de"],
Cell[104010, 2343, 891, 19, 22, "Print",ExpressionUUID->"7f1e160c-36ff-9743-8419-8dae1e893997"],
Cell[104904, 2364, 889, 19, 22, "Print",ExpressionUUID->"7b253026-6651-6c4e-a318-219a5beb824e"],
Cell[105796, 2385, 889, 19, 22, "Print",ExpressionUUID->"d49d75e7-4985-b44d-b328-6d7732285658"],
Cell[106688, 2406, 887, 19, 22, "Print",ExpressionUUID->"5ce8ced9-d7ad-2747-a932-518f21928c96"],
Cell[107578, 2427, 886, 19, 22, "Print",ExpressionUUID->"699e26a0-8787-ef4d-a451-657f0a19aae3"],
Cell[108467, 2448, 894, 19, 22, "Print",ExpressionUUID->"2fd43b0f-0336-2c44-89d2-b090aed480da"],
Cell[109364, 2469, 886, 19, 22, "Print",ExpressionUUID->"bc2cfef3-7629-d043-bf1b-83ccee56cd02"],
Cell[110253, 2490, 888, 19, 22, "Print",ExpressionUUID->"e4da1e37-c379-f04a-b919-998d2607e8bb"],
Cell[111144, 2511, 890, 19, 22, "Print",ExpressionUUID->"4177ab0c-6ed2-fb4e-9ee3-648353127970"],
Cell[112037, 2532, 894, 19, 22, "Print",ExpressionUUID->"e28766a5-4593-bd44-b8d9-3cd6d049bce3"],
Cell[112934, 2553, 886, 19, 22, "Print",ExpressionUUID->"c0fd35f4-3878-1e43-92a6-ac891beab87c"],
Cell[113823, 2574, 891, 19, 22, "Print",ExpressionUUID->"9dc087d6-2730-a945-af88-8c60e0bd4e67"],
Cell[114717, 2595, 891, 19, 22, "Print",ExpressionUUID->"d35860c3-9eff-eb42-9a04-182d9db18332"],
Cell[115611, 2616, 889, 19, 22, "Print",ExpressionUUID->"ba649e6d-073a-a148-aa30-2268694ffa42"],
Cell[116503, 2637, 891, 19, 22, "Print",ExpressionUUID->"7cc4ba4a-577d-e445-895e-8c9150ea2c0c"],
Cell[117397, 2658, 892, 19, 22, "Print",ExpressionUUID->"90d8ea5b-844e-0448-a65e-66426f40be55"],
Cell[118292, 2679, 889, 19, 22, "Print",ExpressionUUID->"311e98f9-08f8-bc4d-a676-a7aa5cce246b"],
Cell[119184, 2700, 887, 19, 22, "Print",ExpressionUUID->"cc35c189-a568-9946-9810-357b4db0745d"],
Cell[120074, 2721, 891, 19, 22, "Print",ExpressionUUID->"b5a276cb-33e7-a044-a2ec-1a1bac4cacb7"],
Cell[120968, 2742, 889, 19, 22, "Print",ExpressionUUID->"ffedbbe3-c381-b747-8a8e-a0f5240cf48c"],
Cell[121860, 2763, 889, 19, 22, "Print",ExpressionUUID->"07570540-182e-d741-a155-3722ac3c23b2"],
Cell[122752, 2784, 894, 19, 22, "Print",ExpressionUUID->"21785635-e905-f849-82d0-f1dcf4c719b5"],
Cell[123649, 2805, 889, 19, 22, "Print",ExpressionUUID->"8be8460b-ed54-c24a-a8b9-a5a0628f9b8b"],
Cell[124541, 2826, 891, 19, 22, "Print",ExpressionUUID->"55a11f7b-570a-5944-8452-bb6130780a6d"],
Cell[125435, 2847, 887, 19, 22, "Print",ExpressionUUID->"221ada19-82a3-c14c-a152-bbd5f412ac96"],
Cell[126325, 2868, 889, 19, 22, "Print",ExpressionUUID->"0c5eb5e3-0cb3-7d49-817d-563cd7063c67"],
Cell[127217, 2889, 885, 19, 22, "Print",ExpressionUUID->"0043aa51-323e-3c4b-8fcd-d1947af4358c"],
Cell[128105, 2910, 889, 19, 22, "Print",ExpressionUUID->"83c33c6d-ea4d-c449-809b-6bfd91f198cd"],
Cell[128997, 2931, 894, 19, 22, "Print",ExpressionUUID->"3b2948f2-e415-8d4d-8c1b-ad1fbad425d9"],
Cell[129894, 2952, 886, 19, 22, "Print",ExpressionUUID->"b5818b9b-5092-8d4e-9a49-7e7e741c02a7"],
Cell[130783, 2973, 895, 19, 22, "Print",ExpressionUUID->"2acd7d00-793e-db43-8c3b-f53487dfb5e5"],
Cell[131681, 2994, 891, 19, 22, "Print",ExpressionUUID->"4435e116-1793-7f43-a509-1cd7cf7461d0"],
Cell[132575, 3015, 889, 19, 22, "Print",ExpressionUUID->"6b2cb38c-14df-ce42-888c-29a7cf4a076c"],
Cell[133467, 3036, 891, 19, 22, "Print",ExpressionUUID->"d4dd120a-6b0b-564a-bbab-77cae23fb54b"],
Cell[134361, 3057, 893, 19, 22, "Print",ExpressionUUID->"af9c4093-d297-e240-a93e-4b6f51c9f5c3"],
Cell[135257, 3078, 884, 19, 22, "Print",ExpressionUUID->"483bb15a-9b2c-ee4a-966d-b6dc5dc269ac"],
Cell[136144, 3099, 891, 19, 22, "Print",ExpressionUUID->"ee2560fb-b8ce-4a49-9f7c-fb826722313e"],
Cell[137038, 3120, 891, 19, 22, "Print",ExpressionUUID->"d8e656a1-e99c-5947-a423-886648f5199e"],
Cell[137932, 3141, 897, 19, 22, "Print",ExpressionUUID->"0d6c4ff6-a3af-dd42-9743-0e9d3c0153e7"],
Cell[138832, 3162, 896, 19, 22, "Print",ExpressionUUID->"70793ba2-8ab3-0f44-9ec6-5f9e1da6e41f"],
Cell[139731, 3183, 894, 19, 22, "Print",ExpressionUUID->"90e06663-7934-a842-8216-e39dc0ba157d"],
Cell[140628, 3204, 894, 19, 22, "Print",ExpressionUUID->"b5f50006-6d31-b543-917c-3376789f1ac2"],
Cell[141525, 3225, 892, 19, 22, "Print",ExpressionUUID->"be23ac39-6c62-5242-8a58-311392472eb8"],
Cell[142420, 3246, 893, 19, 22, "Print",ExpressionUUID->"3b29f769-3a15-514d-8227-a7525b642a6d"],
Cell[143316, 3267, 891, 19, 22, "Print",ExpressionUUID->"9e353e90-bf8a-2149-8ac7-dd89813ee7cf"],
Cell[144210, 3288, 889, 19, 22, "Print",ExpressionUUID->"ab0b85be-0a45-0840-9e74-fcea0c51ba5d"],
Cell[145102, 3309, 893, 19, 22, "Print",ExpressionUUID->"f0b5bfa4-763b-ad4a-a05a-0510f05cbd76"],
Cell[145998, 3330, 888, 19, 22, "Print",ExpressionUUID->"1713efa0-67c4-d447-a26a-183770d0b331"],
Cell[146889, 3351, 888, 19, 22, "Print",ExpressionUUID->"d0770c7d-d20c-a34f-ae83-31d13d566e5a"],
Cell[147780, 3372, 892, 19, 22, "Print",ExpressionUUID->"b3c82b08-f428-c84d-9853-67544218340e"],
Cell[148675, 3393, 896, 19, 22, "Print",ExpressionUUID->"352f81eb-b455-5c44-a59f-89232ba59477"],
Cell[149574, 3414, 891, 19, 22, "Print",ExpressionUUID->"09e083a5-7f86-d343-91d6-79c1560e87ce"],
Cell[150468, 3435, 896, 19, 22, "Print",ExpressionUUID->"f70d78e5-cc8c-3b48-beb0-92a0faa20184"],
Cell[151367, 3456, 888, 19, 22, "Print",ExpressionUUID->"fb030302-36cf-f14b-802d-67482623138f"],
Cell[152258, 3477, 896, 19, 22, "Print",ExpressionUUID->"26aa00e5-c48c-3e41-94db-ad1732fb4f8b"],
Cell[153157, 3498, 886, 19, 22, "Print",ExpressionUUID->"c802f09e-5f8f-bd4b-a0e5-5e5e0ea80218"],
Cell[154046, 3519, 889, 19, 22, "Print",ExpressionUUID->"b5865d0c-e55d-784c-9f8d-532b107a55b2"],
Cell[154938, 3540, 896, 19, 22, "Print",ExpressionUUID->"cb2682ba-0ada-ce47-89ae-b084f9dd104a"],
Cell[155837, 3561, 886, 19, 22, "Print",ExpressionUUID->"58782119-edc1-6841-8c61-a65f77919bee"],
Cell[156726, 3582, 893, 19, 22, "Print",ExpressionUUID->"f220e747-5a41-9e4f-8701-2b9f51b19e33"],
Cell[157622, 3603, 891, 19, 22, "Print",ExpressionUUID->"f6d2ac63-7419-4e4b-9546-c58ac08a60d2"],
Cell[158516, 3624, 893, 19, 22, "Print",ExpressionUUID->"949b8509-47e6-3446-a261-1397cb03d74d"],
Cell[159412, 3645, 891, 19, 22, "Print",ExpressionUUID->"057ac80e-00d0-5443-b73c-5ca37af58bdc"],
Cell[160306, 3666, 890, 19, 22, "Print",ExpressionUUID->"6e044fde-f132-2242-a2e1-84bf10b291e5"],
Cell[161199, 3687, 891, 19, 22, "Print",ExpressionUUID->"77bbc540-7592-1e40-a2bf-56b27255867d"],
Cell[162093, 3708, 893, 19, 22, "Print",ExpressionUUID->"9d157d9d-e2f5-1e49-9197-9a4de381f0f3"],
Cell[162989, 3729, 891, 19, 22, "Print",ExpressionUUID->"67b8b940-5e72-924d-90b5-d6827c7290ca"],
Cell[163883, 3750, 894, 19, 22, "Print",ExpressionUUID->"9fb12892-e5fc-8e4e-ab68-7971dd1d25d2"],
Cell[164780, 3771, 884, 19, 22, "Print",ExpressionUUID->"e0e1a215-0e92-9c48-8cc8-1c6bf40ba04f"],
Cell[165667, 3792, 893, 19, 22, "Print",ExpressionUUID->"63532890-e1e3-284d-9bf3-aaa1d86781a7"],
Cell[166563, 3813, 892, 19, 22, "Print",ExpressionUUID->"475eabc2-aad4-8044-9b42-5036bd9b028c"],
Cell[167458, 3834, 893, 19, 22, "Print",ExpressionUUID->"336ead67-ba17-8b4c-84a0-06927636f924"],
Cell[168354, 3855, 887, 19, 22, "Print",ExpressionUUID->"fffeacb8-6d0f-f840-ae06-c93c8250e702"],
Cell[169244, 3876, 892, 19, 22, "Print",ExpressionUUID->"80df7ef9-8acf-dd45-b6b5-2913140451a1"],
Cell[170139, 3897, 888, 19, 22, "Print",ExpressionUUID->"339ab562-640f-aa44-a092-db126c423d14"],
Cell[171030, 3918, 891, 19, 22, "Print",ExpressionUUID->"494d6933-2fc9-0742-844a-ef0a18b2353b"],
Cell[171924, 3939, 891, 19, 22, "Print",ExpressionUUID->"2f80f061-387f-a24b-9bf5-30706306c5cb"],
Cell[172818, 3960, 888, 19, 22, "Print",ExpressionUUID->"bfe0fe1f-c1ca-894d-81cc-a51e5f9a3fc6"],
Cell[173709, 3981, 888, 19, 22, "Print",ExpressionUUID->"40b3d833-b316-8548-a062-88328d90aede"],
Cell[174600, 4002, 888, 19, 22, "Print",ExpressionUUID->"4ce67946-8378-c842-916a-6b5c72aa3ac5"],
Cell[175491, 4023, 899, 19, 22, "Print",ExpressionUUID->"6e7691d7-2b2a-f048-8d15-1c687f092792"],
Cell[176393, 4044, 894, 19, 22, "Print",ExpressionUUID->"2408316e-46c0-204b-9821-4b4ad22e4f63"],
Cell[177290, 4065, 891, 19, 22, "Print",ExpressionUUID->"f3f2b2db-dc50-7e44-b08d-a321bdb2d760"],
Cell[178184, 4086, 897, 19, 22, "Print",ExpressionUUID->"b2503360-6df5-1742-b95a-cd068524a681"],
Cell[179084, 4107, 883, 19, 22, "Print",ExpressionUUID->"1b651e37-c031-e747-8526-e850da83ee59"],
Cell[179970, 4128, 893, 19, 22, "Print",ExpressionUUID->"906df398-47d5-cb45-bb8f-50d13e14cc76"],
Cell[180866, 4149, 885, 19, 22, "Print",ExpressionUUID->"ebbeb2f0-45b8-7e44-86ee-cd2f5132f038"],
Cell[181754, 4170, 887, 19, 22, "Print",ExpressionUUID->"787d9b0c-7d36-df49-814d-fab38a333b8f"],
Cell[182644, 4191, 887, 19, 22, "Print",ExpressionUUID->"a11432a9-9764-a048-91a0-9b5b766baa95"],
Cell[183534, 4212, 894, 19, 22, "Print",ExpressionUUID->"bcd5763e-3eca-a248-8474-85d5edabb0bf"],
Cell[184431, 4233, 890, 19, 22, "Print",ExpressionUUID->"0c39c5a9-4dad-d546-8d14-d1f914b468e8"],
Cell[185324, 4254, 886, 19, 22, "Print",ExpressionUUID->"506c663b-193e-8f4f-b921-b54538c55419"],
Cell[186213, 4275, 885, 19, 22, "Print",ExpressionUUID->"243951d3-7e37-174c-a716-42f274eb4722"],
Cell[187101, 4296, 891, 19, 22, "Print",ExpressionUUID->"271cf7a8-19cb-c648-8735-21fa96839fca"],
Cell[187995, 4317, 890, 19, 22, "Print",ExpressionUUID->"6761a13f-8b06-ec40-9d52-bfcfa84c30ba"],
Cell[188888, 4338, 886, 19, 22, "Print",ExpressionUUID->"958b240b-bbf4-594a-aeb7-f5a44dbe7737"],
Cell[189777, 4359, 893, 19, 22, "Print",ExpressionUUID->"605e2d48-74e1-4848-a7ae-f43879cdba5b"],
Cell[190673, 4380, 888, 19, 22, "Print",ExpressionUUID->"f2916545-c217-7f4f-900a-d093106417bf"],
Cell[191564, 4401, 885, 19, 22, "Print",ExpressionUUID->"92c585f6-ac71-bb43-adcb-ec0bf41463da"],
Cell[192452, 4422, 890, 19, 22, "Print",ExpressionUUID->"03b98edd-2242-d245-8050-636a5178f2ca"],
Cell[193345, 4443, 888, 19, 22, "Print",ExpressionUUID->"92400516-747c-584a-acff-40ee40d385af"],
Cell[194236, 4464, 883, 19, 22, "Print",ExpressionUUID->"77949280-4468-5241-8d1f-c3f38b471a24"],
Cell[195122, 4485, 888, 19, 22, "Print",ExpressionUUID->"634aed88-4d52-a74f-9500-61708d8773c2"],
Cell[196013, 4506, 897, 19, 22, "Print",ExpressionUUID->"322c6de2-d962-2740-bb6e-06b7989d3487"],
Cell[196913, 4527, 885, 19, 22, "Print",ExpressionUUID->"9c15e8d0-741e-ab41-8a9c-015635aff60d"],
Cell[197801, 4548, 897, 19, 22, "Print",ExpressionUUID->"ecabded2-52e9-7140-acfa-a037889909e6"],
Cell[198701, 4569, 894, 19, 22, "Print",ExpressionUUID->"42436a14-91b2-d441-92a1-348e74164a47"],
Cell[199598, 4590, 890, 19, 22, "Print",ExpressionUUID->"923955e3-1cee-3b48-9d41-ae8f0b21dcd9"],
Cell[200491, 4611, 888, 19, 22, "Print",ExpressionUUID->"2ace4d49-baf1-1742-82fa-1eb5a0c18320"],
Cell[201382, 4632, 888, 19, 22, "Print",ExpressionUUID->"4924bdad-f20f-dd4b-97b6-47017ca0d8e6"],
Cell[202273, 4653, 896, 19, 22, "Print",ExpressionUUID->"d3a8c7ae-0226-c044-8714-ac7e695893bc"],
Cell[203172, 4674, 886, 19, 22, "Print",ExpressionUUID->"8486afb3-01ff-1b48-9d41-fb6f9e5c4d25"],
Cell[204061, 4695, 888, 19, 22, "Print",ExpressionUUID->"30b72598-b3e0-2140-a13b-b86f3d8f7b99"],
Cell[204952, 4716, 888, 19, 22, "Print",ExpressionUUID->"7e98e38f-554a-bf4e-8920-43014f7e1362"],
Cell[205843, 4737, 894, 19, 22, "Print",ExpressionUUID->"58ac3d33-3407-6948-b572-db929dfb4acf"],
Cell[206740, 4758, 894, 19, 22, "Print",ExpressionUUID->"9134b11d-b3b2-144b-ae3e-7cd1e1dccd5a"],
Cell[207637, 4779, 887, 19, 22, "Print",ExpressionUUID->"20a39ef1-2709-e34b-9413-cfc6b631bc08"],
Cell[208527, 4800, 891, 19, 22, "Print",ExpressionUUID->"82c8db30-fba0-af42-a967-a84c9176c504"],
Cell[209421, 4821, 893, 19, 22, "Print",ExpressionUUID->"08edc5f9-5367-8646-854c-b0748faf2f26"],
Cell[210317, 4842, 881, 19, 22, "Print",ExpressionUUID->"b6cfa8d7-d67a-3043-b6fd-57c58b15a951"],
Cell[211201, 4863, 888, 19, 22, "Print",ExpressionUUID->"4905df00-a3bb-d94a-933a-95a3c4522640"],
Cell[212092, 4884, 890, 19, 22, "Print",ExpressionUUID->"10d87397-84aa-5e41-8e99-85f82575c9f3"],
Cell[212985, 4905, 886, 19, 22, "Print",ExpressionUUID->"932e56d6-9085-db40-aa39-6609f619d1e3"],
Cell[213874, 4926, 888, 19, 22, "Print",ExpressionUUID->"10126d20-cff2-e84e-b25f-b2ea9f3edef5"],
Cell[214765, 4947, 883, 19, 22, "Print",ExpressionUUID->"4a266ccb-8df5-554a-96a2-5c70f955b025"],
Cell[215651, 4968, 893, 19, 22, "Print",ExpressionUUID->"3264a1b5-9b0f-f349-93ac-ec907e788426"],
Cell[216547, 4989, 891, 19, 22, "Print",ExpressionUUID->"f0c5d677-f7a4-1942-b479-ac544c779ade"],
Cell[217441, 5010, 890, 19, 22, "Print",ExpressionUUID->"766db3d7-d235-a54d-a4c2-fc7921b97ccf"],
Cell[218334, 5031, 876, 19, 22, "Print",ExpressionUUID->"c51b3cf1-8489-2d4e-86f9-5ea60708c801"],
Cell[219213, 5052, 890, 19, 22, "Print",ExpressionUUID->"b41e0d17-2eaf-ac42-9f9b-362c72f9037c"],
Cell[220106, 5073, 888, 19, 22, "Print",ExpressionUUID->"e62c135f-d83d-154a-b726-3e29478c1fb1"],
Cell[220997, 5094, 877, 19, 22, "Print",ExpressionUUID->"acf1e4fe-77be-fd4e-a53b-d3f7a9a2a680"],
Cell[221877, 5115, 895, 19, 22, "Print",ExpressionUUID->"afb7416c-cea4-1d4a-8996-d418da52a81e"],
Cell[222775, 5136, 885, 19, 22, "Print",ExpressionUUID->"b2ab4cdd-01e6-cb47-878e-36389d231318"],
Cell[223663, 5157, 881, 19, 22, "Print",ExpressionUUID->"385829ad-f12d-d041-857a-ebcd04e6c422"],
Cell[224547, 5178, 885, 19, 22, "Print",ExpressionUUID->"e66c6ead-cc34-ce43-bd3b-54cbad731dae"],
Cell[225435, 5199, 894, 19, 22, "Print",ExpressionUUID->"e1012177-3dba-d64b-beb0-dcdb91cde163"],
Cell[226332, 5220, 890, 19, 22, "Print",ExpressionUUID->"d7f30f28-2923-2a46-bec1-ca6dd7c89e40"],
Cell[227225, 5241, 891, 19, 22, "Print",ExpressionUUID->"dc1dfa3d-6ca8-6c49-a814-421817ebd1a1"],
Cell[228119, 5262, 900, 19, 22, "Print",ExpressionUUID->"be9c6729-0ee4-c243-8aa6-3f94c0e25b42"],
Cell[229022, 5283, 888, 19, 22, "Print",ExpressionUUID->"185b5f69-af7f-7044-bdf0-aa6c18bb62cb"],
Cell[229913, 5304, 893, 19, 22, "Print",ExpressionUUID->"7cbcfd08-2e7c-1a4b-a4dc-4ceb56d81802"],
Cell[230809, 5325, 891, 19, 22, "Print",ExpressionUUID->"4a022210-295e-264e-91c5-41b839eedaee"],
Cell[231703, 5346, 893, 19, 22, "Print",ExpressionUUID->"20c0466f-6193-b044-850e-e9645af1138d"],
Cell[232599, 5367, 885, 19, 22, "Print",ExpressionUUID->"5703c001-feb2-d749-8dee-e32c77821e77"],
Cell[233487, 5388, 887, 19, 22, "Print",ExpressionUUID->"987fa66d-9dbe-8149-92c0-05c105b83274"],
Cell[234377, 5409, 888, 19, 22, "Print",ExpressionUUID->"9f91955f-9cdd-4845-8ffa-9a1242775d3d"],
Cell[235268, 5430, 888, 19, 22, "Print",ExpressionUUID->"cfcd590f-d321-e447-b02f-d2dad4f530ea"],
Cell[236159, 5451, 893, 19, 22, "Print",ExpressionUUID->"569540af-5636-8849-9bc4-362e9711b02c"],
Cell[237055, 5472, 888, 19, 22, "Print",ExpressionUUID->"9aca2a43-8b00-0844-a3b2-4a0fbd4c0655"],
Cell[237946, 5493, 888, 19, 22, "Print",ExpressionUUID->"1d95f26b-28c5-1847-9629-e29bf9d2762c"],
Cell[238837, 5514, 890, 19, 22, "Print",ExpressionUUID->"2685afa2-0d8e-a647-9e23-d94a23fb494f"],
Cell[239730, 5535, 888, 19, 22, "Print",ExpressionUUID->"a5cf8df0-2a60-544f-93a0-a9631fadee31"],
Cell[240621, 5556, 890, 19, 22, "Print",ExpressionUUID->"33c65553-c162-c647-83f2-a1a943ffc3a9"],
Cell[241514, 5577, 891, 19, 22, "Print",ExpressionUUID->"b8995eb9-c9aa-0c49-89eb-2d0a5de9ec27"],
Cell[242408, 5598, 889, 19, 22, "Print",ExpressionUUID->"4b46af31-6928-c74e-936a-e183090d517f"],
Cell[243300, 5619, 890, 19, 22, "Print",ExpressionUUID->"82828116-69cb-a645-9807-d30ad6c2af6c"],
Cell[244193, 5640, 889, 19, 22, "Print",ExpressionUUID->"a9af4714-12fd-3b41-abc3-cb8360d6e3ae"],
Cell[245085, 5661, 887, 19, 22, "Print",ExpressionUUID->"1c016e73-3e4a-784c-ac81-200c8a7b4c8d"],
Cell[245975, 5682, 888, 19, 22, "Print",ExpressionUUID->"7d248d81-825a-be40-bcaf-39d4da262666"],
Cell[246866, 5703, 886, 19, 22, "Print",ExpressionUUID->"e35cd796-2e49-7b4c-84bb-0499043d2a18"],
Cell[247755, 5724, 890, 19, 22, "Print",ExpressionUUID->"19f32e0e-fe0b-ab42-b967-1ec97f57b4c5"],
Cell[248648, 5745, 889, 19, 22, "Print",ExpressionUUID->"858dc3ef-742c-1e4f-ad52-f7a3c44cd5c8"],
Cell[249540, 5766, 891, 19, 22, "Print",ExpressionUUID->"d772dd4d-3517-264c-8421-6e5e1b5a3971"],
Cell[250434, 5787, 888, 19, 22, "Print",ExpressionUUID->"d9130066-860b-174b-bd9e-03b7e8044e0c"],
Cell[251325, 5808, 886, 19, 22, "Print",ExpressionUUID->"9427a23b-1002-1e40-b957-9cc6646f8d3c"],
Cell[252214, 5829, 890, 19, 22, "Print",ExpressionUUID->"e416ddec-4753-5f4c-b78b-92248d56acc1"],
Cell[253107, 5850, 890, 19, 22, "Print",ExpressionUUID->"c8a9f086-3de1-ab46-bdb8-53cea1c18324"],
Cell[254000, 5871, 883, 19, 22, "Print",ExpressionUUID->"3b1a2ab0-a1ec-5346-85fe-b861c4183044"],
Cell[254886, 5892, 893, 19, 22, "Print",ExpressionUUID->"ca880e00-4cf3-634c-81ef-8f09f0f4cc84"],
Cell[255782, 5913, 885, 19, 22, "Print",ExpressionUUID->"6d3d5dd2-f102-7847-adbc-a853814d0835"],
Cell[256670, 5934, 897, 19, 22, "Print",ExpressionUUID->"4bd2dfd4-2d08-1d4f-93ec-9aceb1c14056"],
Cell[257570, 5955, 888, 19, 22, "Print",ExpressionUUID->"f6e62322-da00-4f49-9985-5cf07cbdc4dc"],
Cell[258461, 5976, 889, 19, 22, "Print",ExpressionUUID->"58b558f4-13cc-bd4a-9b64-ecef95397692"],
Cell[259353, 5997, 881, 19, 22, "Print",ExpressionUUID->"2d84f1cf-b194-fa4e-a27b-7202e1a3c770"],
Cell[260237, 6018, 893, 19, 22, "Print",ExpressionUUID->"ac0c7b86-45fb-ac43-afd6-30f2457f18cf"],
Cell[261133, 6039, 891, 19, 22, "Print",ExpressionUUID->"7c214691-e7fe-944c-b7dd-d2918fb47d37"],
Cell[262027, 6060, 890, 19, 22, "Print",ExpressionUUID->"cc846145-cf4a-c541-bf4c-17b35aeea563"],
Cell[262920, 6081, 891, 19, 22, "Print",ExpressionUUID->"875c5440-f0ed-5246-a95c-246c3f36bdd8"],
Cell[263814, 6102, 887, 19, 22, "Print",ExpressionUUID->"a3c5a915-cccd-7445-93b2-bc2c56493511"],
Cell[264704, 6123, 886, 19, 22, "Print",ExpressionUUID->"e780aeb3-8f94-3346-89b1-8646426085c5"],
Cell[265593, 6144, 888, 19, 22, "Print",ExpressionUUID->"a42bf47e-29d0-d541-9715-c227359573a9"],
Cell[266484, 6165, 887, 19, 22, "Print",ExpressionUUID->"222e19dd-17fb-0a4b-b446-40931c0a2318"],
Cell[267374, 6186, 891, 19, 22, "Print",ExpressionUUID->"3e2e5cd6-ab7b-8c44-9c71-6147893ef38a"],
Cell[268268, 6207, 886, 19, 22, "Print",ExpressionUUID->"88a4c5e0-9ee0-3843-a579-b8045b2225e1"],
Cell[269157, 6228, 890, 19, 22, "Print",ExpressionUUID->"5fb869f8-a112-9544-a0e6-4999f40394cc"],
Cell[270050, 6249, 885, 19, 22, "Print",ExpressionUUID->"526aae15-74a3-6e42-8a45-e8c270fee9ff"],
Cell[270938, 6270, 888, 19, 22, "Print",ExpressionUUID->"4439557d-c6b9-e34c-9431-de2bcb5027db"],
Cell[271829, 6291, 885, 19, 22, "Print",ExpressionUUID->"eb9bbc05-65e8-3245-89d5-421db9d49dde"],
Cell[272717, 6312, 885, 19, 22, "Print",ExpressionUUID->"396e9bb3-e9db-834a-b61a-83b69907f681"],
Cell[273605, 6333, 891, 19, 22, "Print",ExpressionUUID->"c8bc833b-e5b0-574a-b0d5-cb7eb86dd5c3"],
Cell[274499, 6354, 888, 19, 22, "Print",ExpressionUUID->"4fefcbe2-8ef0-6c46-b53d-74bfcf79311a"],
Cell[275390, 6375, 885, 19, 22, "Print",ExpressionUUID->"c9cb0994-8522-334c-be5e-a457c32f6441"],
Cell[276278, 6396, 893, 19, 22, "Print",ExpressionUUID->"7c298d91-a9f3-1f4f-8f11-ea03bcea90bf"],
Cell[277174, 6417, 891, 19, 22, "Print",ExpressionUUID->"c41ad031-4953-c842-8d73-159b89145718"],
Cell[278068, 6438, 890, 19, 22, "Print",ExpressionUUID->"15f3367a-ac00-c744-8360-0f5a006f9c83"],
Cell[278961, 6459, 891, 19, 22, "Print",ExpressionUUID->"50cd0667-99e9-e74f-902b-3770e757746c"],
Cell[279855, 6480, 893, 19, 22, "Print",ExpressionUUID->"7aaf42d6-8ea8-a840-b21d-a2adac13d61f"],
Cell[280751, 6501, 891, 19, 22, "Print",ExpressionUUID->"7f69d5bb-3264-ba4e-9c4d-702ecec52e55"],
Cell[281645, 6522, 886, 19, 22, "Print",ExpressionUUID->"dc19e705-5cff-9d41-9258-33bf1e4b10d4"],
Cell[282534, 6543, 890, 19, 22, "Print",ExpressionUUID->"e400938c-b3d9-f84f-8dcd-5ab2fcd9993d"],
Cell[283427, 6564, 896, 19, 22, "Print",ExpressionUUID->"15131542-f7d4-714a-b880-3535351b72eb"],
Cell[284326, 6585, 891, 19, 22, "Print",ExpressionUUID->"6dc9f10f-c2b9-a44c-98f1-0a3d0e7fe812"],
Cell[285220, 6606, 890, 19, 22, "Print",ExpressionUUID->"f5308a22-b44e-a04c-ad33-8da1f8edecce"],
Cell[286113, 6627, 895, 19, 22, "Print",ExpressionUUID->"f00243a0-ebd2-5c43-b41c-89e9ac96726b"],
Cell[287011, 6648, 886, 19, 22, "Print",ExpressionUUID->"f72ee0f0-0e82-054a-98a7-d28971f18cbd"],
Cell[287900, 6669, 893, 19, 22, "Print",ExpressionUUID->"381f61be-aaeb-da48-992e-137923d7cde8"],
Cell[288796, 6690, 888, 19, 22, "Print",ExpressionUUID->"6ad9bc10-c478-1f44-a3d1-444a2f92ebb3"],
Cell[289687, 6711, 890, 19, 22, "Print",ExpressionUUID->"122aa6a6-bd63-6745-a9bf-00a82c319fe0"],
Cell[290580, 6732, 891, 19, 22, "Print",ExpressionUUID->"a5af3ed3-86e0-5a40-b80a-bf53fbda09d5"],
Cell[291474, 6753, 888, 19, 22, "Print",ExpressionUUID->"c5c3c275-d81a-fc4f-8ac7-80bd33697e86"],
Cell[292365, 6774, 896, 19, 22, "Print",ExpressionUUID->"67a4e6c7-9af1-8e49-bef6-c4552f64d7ad"],
Cell[293264, 6795, 889, 19, 22, "Print",ExpressionUUID->"9a8c4d46-3ebc-ef4b-a043-73f2fcb224e4"],
Cell[294156, 6816, 886, 19, 22, "Print",ExpressionUUID->"7746e010-0ce7-864c-8d16-d78679b4c25b"],
Cell[295045, 6837, 887, 19, 22, "Print",ExpressionUUID->"16a9e693-f28b-f040-b7ce-27431dbb688e"],
Cell[295935, 6858, 886, 19, 22, "Print",ExpressionUUID->"089e2237-f315-ba41-889a-010e98ce0492"],
Cell[296824, 6879, 885, 19, 22, "Print",ExpressionUUID->"e08bd0bf-fb87-ad42-ab57-489a0a8deb98"],
Cell[297712, 6900, 889, 19, 22, "Print",ExpressionUUID->"80bd1b6f-e39a-d049-b591-085bad1c16bf"],
Cell[298604, 6921, 890, 19, 22, "Print",ExpressionUUID->"b6576e07-648a-aa4e-a11b-b6b59fc1ad20"],
Cell[299497, 6942, 885, 19, 22, "Print",ExpressionUUID->"f33f6f8d-f273-2b4b-b7fd-3ec484331c5c"],
Cell[300385, 6963, 890, 19, 22, "Print",ExpressionUUID->"d3fca3af-8527-de43-a23d-6981934b5133"],
Cell[301278, 6984, 888, 19, 22, "Print",ExpressionUUID->"2158b3da-ce45-b74d-8378-3ac6def557e0"],
Cell[302169, 7005, 889, 19, 22, "Print",ExpressionUUID->"2bdf9ed1-905d-0e4c-8d6e-854cf887fe07"],
Cell[303061, 7026, 888, 19, 22, "Print",ExpressionUUID->"1efe2389-a961-e944-b99a-08b1063ac01f"],
Cell[303952, 7047, 891, 19, 22, "Print",ExpressionUUID->"ba9ea22c-9f2b-0c46-8c3e-4bbfa256e7e5"],
Cell[304846, 7068, 890, 19, 22, "Print",ExpressionUUID->"7d9602b2-bd56-c64b-b95d-1b6b89f4eafe"],
Cell[305739, 7089, 885, 19, 22, "Print",ExpressionUUID->"f822dc1e-fa6c-c34d-9152-cc31f892b51b"],
Cell[306627, 7110, 886, 19, 22, "Print",ExpressionUUID->"2e11b8ea-2a01-6b4f-bd9b-d92723e96781"],
Cell[307516, 7131, 891, 19, 22, "Print",ExpressionUUID->"4ef4da7a-d083-b447-9f4c-05ce8f7a4863"],
Cell[308410, 7152, 893, 19, 22, "Print",ExpressionUUID->"f78b13b3-5ef5-a44f-88ef-6db30d31f11c"],
Cell[309306, 7173, 889, 19, 22, "Print",ExpressionUUID->"226f3768-6bb3-f14a-99ae-ed2340b6a006"],
Cell[310198, 7194, 893, 19, 22, "Print",ExpressionUUID->"c320a0ca-7d3e-b542-85ff-3b1c26d05f21"],
Cell[311094, 7215, 881, 19, 22, "Print",ExpressionUUID->"893b2de0-1568-914c-9d6d-7e6620cbd9cd"],
Cell[311978, 7236, 888, 19, 22, "Print",ExpressionUUID->"d1761eaf-7f28-ab48-96ac-ef3dda680cf3"],
Cell[312869, 7257, 890, 19, 22, "Print",ExpressionUUID->"1b4e0f1d-2343-bb40-9697-01512d58a40d"],
Cell[313762, 7278, 891, 19, 22, "Print",ExpressionUUID->"3da7c59a-afef-5342-b85f-7831a2885768"],
Cell[314656, 7299, 893, 19, 22, "Print",ExpressionUUID->"7ef7c563-99ed-474a-9931-da7c41ec8164"],
Cell[315552, 7320, 886, 19, 22, "Print",ExpressionUUID->"baae8739-7fa4-4c4a-902a-fa19eb9f1122"],
Cell[316441, 7341, 888, 19, 22, "Print",ExpressionUUID->"49ea8d70-975e-4045-ac67-c0c714eb225d"],
Cell[317332, 7362, 890, 19, 22, "Print",ExpressionUUID->"dc20430c-6395-bd40-bea5-a5ecd0b349fe"],
Cell[318225, 7383, 888, 19, 22, "Print",ExpressionUUID->"a1373cf0-763b-0949-9d03-d1600a50d412"],
Cell[319116, 7404, 891, 19, 22, "Print",ExpressionUUID->"ea2f950d-effc-2740-9a22-cf4b9ef784fb"],
Cell[320010, 7425, 890, 19, 22, "Print",ExpressionUUID->"b1b0e562-4824-c24e-ae7a-7efe7bcb36f0"],
Cell[320903, 7446, 891, 19, 22, "Print",ExpressionUUID->"437bdf4a-c1ed-0247-835e-159f8e258bdb"],
Cell[321797, 7467, 888, 19, 22, "Print",ExpressionUUID->"bc24873c-1504-0546-8fbf-7adec9b0c023"],
Cell[322688, 7488, 890, 19, 22, "Print",ExpressionUUID->"e37b364b-9895-1b49-8511-452429320be8"],
Cell[323581, 7509, 891, 19, 22, "Print",ExpressionUUID->"1453a2a2-92d7-b543-94e8-596d516be994"],
Cell[324475, 7530, 893, 19, 22, "Print",ExpressionUUID->"efad3945-d129-cb43-ab59-b8f0dc5f3e08"],
Cell[325371, 7551, 894, 19, 22, "Print",ExpressionUUID->"4d2b5df4-fa96-844e-bfc2-ea6f8c332b6e"],
Cell[326268, 7572, 893, 19, 22, "Print",ExpressionUUID->"182b71df-3a22-0148-b62d-face85bd817e"],
Cell[327164, 7593, 891, 19, 22, "Print",ExpressionUUID->"98eb18bc-a405-7249-b6d4-e75bf93e20fe"],
Cell[328058, 7614, 893, 19, 22, "Print",ExpressionUUID->"a3c06491-f525-6946-a57a-7f65368053bf"],
Cell[328954, 7635, 885, 19, 22, "Print",ExpressionUUID->"0d1d5c4e-9df3-3d43-b029-053dfd4e6413"],
Cell[329842, 7656, 890, 19, 22, "Print",ExpressionUUID->"3eab2e22-f0fa-df47-b136-ac53c1f1c328"],
Cell[330735, 7677, 892, 19, 22, "Print",ExpressionUUID->"4d09124b-5154-e247-8e9d-a808474502fe"],
Cell[331630, 7698, 890, 19, 22, "Print",ExpressionUUID->"42f2f830-e355-b144-b089-7b026a330352"],
Cell[332523, 7719, 883, 19, 22, "Print",ExpressionUUID->"0e53d6ca-5e25-954b-adb9-198b2cb2a603"],
Cell[333409, 7740, 888, 19, 22, "Print",ExpressionUUID->"411372f0-23f8-cf45-b6e4-2151f85657b8"],
Cell[334300, 7761, 888, 19, 22, "Print",ExpressionUUID->"0601c5d6-2d70-4d4e-8b70-2f4afae8e347"],
Cell[335191, 7782, 888, 19, 22, "Print",ExpressionUUID->"bcfe691c-a786-f242-8641-6d58b142317a"],
Cell[336082, 7803, 893, 19, 22, "Print",ExpressionUUID->"d2d7be0e-8f1b-354b-995a-2116e7f236f3"],
Cell[336978, 7824, 885, 19, 22, "Print",ExpressionUUID->"25e258ef-56b7-6447-abca-25f59b13656b"],
Cell[337866, 7845, 893, 19, 22, "Print",ExpressionUUID->"9917e793-78bf-8849-a972-b64a4e37d477"],
Cell[338762, 7866, 897, 19, 22, "Print",ExpressionUUID->"d281f7d6-d92b-2a48-ab19-24e40d6170eb"],
Cell[339662, 7887, 893, 19, 22, "Print",ExpressionUUID->"263fbfac-3f6c-ea41-936c-d4ddda170519"],
Cell[340558, 7908, 894, 19, 22, "Print",ExpressionUUID->"4de3006b-1b33-1540-9814-21cb8e3ff219"],
Cell[341455, 7929, 893, 19, 22, "Print",ExpressionUUID->"e7562f09-053c-6e43-85d9-74bb430c1fac"],
Cell[342351, 7950, 891, 19, 22, "Print",ExpressionUUID->"67d49236-a25c-104b-9d05-36d9c9a92de2"],
Cell[343245, 7971, 886, 19, 22, "Print",ExpressionUUID->"f6358b78-7e68-5046-bee1-fa7d2bdb9a6e"],
Cell[344134, 7992, 888, 19, 22, "Print",ExpressionUUID->"d3071925-c26c-af46-8c93-e803c0da63e9"],
Cell[345025, 8013, 888, 19, 22, "Print",ExpressionUUID->"f8ecabd1-51bf-1b4d-a5ca-4ead800ca2e1"],
Cell[345916, 8034, 890, 19, 22, "Print",ExpressionUUID->"bafac2a7-e81b-aa44-9e2e-9b40db078747"],
Cell[346809, 8055, 890, 19, 22, "Print",ExpressionUUID->"d54b23e0-8610-2e4a-8a7e-73d3e2bc2df3"],
Cell[347702, 8076, 891, 19, 22, "Print",ExpressionUUID->"cb905c0c-7f36-ff4d-989a-b8d126c9c9d2"],
Cell[348596, 8097, 885, 19, 22, "Print",ExpressionUUID->"78ba6691-c6a6-e14a-841c-8224ac077f2e"],
Cell[349484, 8118, 891, 19, 22, "Print",ExpressionUUID->"c3ef2a60-bb74-6540-9e3a-5e2774d6e83d"],
Cell[350378, 8139, 881, 19, 22, "Print",ExpressionUUID->"3c10840e-0f23-bc41-996b-3e21ed82b77c"],
Cell[351262, 8160, 891, 19, 22, "Print",ExpressionUUID->"f93cbeeb-fdbd-3949-bf8a-7d5946d211bf"],
Cell[352156, 8181, 888, 19, 22, "Print",ExpressionUUID->"2ff7c248-e6ed-7f4e-8015-ea33cc3ed30f"],
Cell[353047, 8202, 888, 19, 22, "Print",ExpressionUUID->"5172aac6-ddb5-384a-85e5-74b6c7d04777"],
Cell[353938, 8223, 891, 19, 22, "Print",ExpressionUUID->"71c8c9fc-47ce-aa43-9457-b7f24d255999"],
Cell[354832, 8244, 903, 19, 22, "Print",ExpressionUUID->"fe5d2593-2876-6740-a777-5c22934139c3"],
Cell[355738, 8265, 888, 19, 22, "Print",ExpressionUUID->"630745eb-53c0-d54e-ad85-61447bc90c53"],
Cell[356629, 8286, 893, 19, 22, "Print",ExpressionUUID->"bb301f3c-43e1-fb42-abe9-a01b01259095"],
Cell[357525, 8307, 893, 19, 22, "Print",ExpressionUUID->"16fd281b-4b27-eb47-8242-c3e59cf99255"],
Cell[358421, 8328, 885, 19, 22, "Print",ExpressionUUID->"fc31f0fb-fc43-9a41-a6b2-f10062a4311e"],
Cell[359309, 8349, 834, 19, 22, "Print",ExpressionUUID->"8fc8f7c1-0acd-524a-bf5e-3cc9e416ee03"],
Cell[360146, 8370, 896, 19, 22, "Print",ExpressionUUID->"f213c003-6280-2b4c-902a-6dec1e3a9dde"],
Cell[361045, 8391, 891, 19, 22, "Print",ExpressionUUID->"77cc3c44-c968-3f4c-826f-6efb5758866f"],
Cell[361939, 8412, 894, 19, 22, "Print",ExpressionUUID->"3164bc94-01a2-9442-a731-f165df595535"],
Cell[362836, 8433, 891, 19, 22, "Print",ExpressionUUID->"c7987b7a-994b-6740-a7fd-26ac4d11140c"],
Cell[363730, 8454, 888, 19, 22, "Print",ExpressionUUID->"3fd48910-b403-4e44-9b8d-a236730700c5"],
Cell[364621, 8475, 891, 19, 22, "Print",ExpressionUUID->"1d523137-d851-a34a-beee-a02495bc8332"],
Cell[365515, 8496, 883, 19, 22, "Print",ExpressionUUID->"e739199d-8a56-6942-a027-faa68ce2e403"],
Cell[366401, 8517, 883, 19, 22, "Print",ExpressionUUID->"a915f30b-d751-964d-8b68-eadce69104fd"],
Cell[367287, 8538, 894, 19, 22, "Print",ExpressionUUID->"4d0070b4-19ba-6349-ad87-f71c364bb419"],
Cell[368184, 8559, 894, 19, 22, "Print",ExpressionUUID->"16b80a10-f1ba-1641-910f-0577a89cee50"],
Cell[369081, 8580, 879, 19, 22, "Print",ExpressionUUID->"4f29feb4-5841-974d-a7ca-89cd94ec2411"],
Cell[369963, 8601, 891, 19, 22, "Print",ExpressionUUID->"a63cddf2-c2a2-7e4b-846d-8b7a77f04d79"],
Cell[370857, 8622, 891, 19, 22, "Print",ExpressionUUID->"a5e589bb-1ddc-c847-aaae-64f53a0664a5"],
Cell[371751, 8643, 883, 19, 22, "Print",ExpressionUUID->"7c68849e-06aa-604e-bd4d-b84e694b727c"],
Cell[372637, 8664, 893, 19, 22, "Print",ExpressionUUID->"a1ab6154-26d1-014c-a028-67184129b476"],
Cell[373533, 8685, 888, 19, 22, "Print",ExpressionUUID->"c3a6a62f-09d8-7a4f-b7b4-9950023b2cf9"],
Cell[374424, 8706, 883, 19, 22, "Print",ExpressionUUID->"90ff7a47-d710-cb49-9855-4f83b6172f2a"],
Cell[375310, 8727, 889, 19, 22, "Print",ExpressionUUID->"ba2ddee8-5a20-c244-a34e-b3d14c912ead"],
Cell[376202, 8748, 890, 19, 22, "Print",ExpressionUUID->"653699ec-02cd-ff47-af96-893a0e02e98e"],
Cell[377095, 8769, 886, 19, 22, "Print",ExpressionUUID->"9353bb83-78b6-f846-ac72-acfaf95dde70"],
Cell[377984, 8790, 894, 19, 22, "Print",ExpressionUUID->"70650b37-354b-8142-88b9-828b2b8ee1e8"],
Cell[378881, 8811, 883, 19, 22, "Print",ExpressionUUID->"c8b4a0be-a531-814a-80a3-989148980a48"],
Cell[379767, 8832, 888, 19, 22, "Print",ExpressionUUID->"c544e984-3709-624a-90d8-0d15da2ca0e3"],
Cell[380658, 8853, 883, 19, 22, "Print",ExpressionUUID->"6990369a-ac33-bd4a-95bc-eeae3af2713b"],
Cell[381544, 8874, 890, 19, 22, "Print",ExpressionUUID->"57ff3359-04d4-1149-b22a-33c9a126f8d0"],
Cell[382437, 8895, 891, 19, 22, "Print",ExpressionUUID->"ef399fa1-1da7-e64f-8470-5d17f14c913d"],
Cell[383331, 8916, 890, 19, 22, "Print",ExpressionUUID->"2c004dad-43f7-ff44-bf47-08c9b61d1ef0"],
Cell[384224, 8937, 882, 19, 22, "Print",ExpressionUUID->"7e3c41fb-b527-9147-a84e-e7cf356e3e7f"],
Cell[385109, 8958, 884, 19, 22, "Print",ExpressionUUID->"b9403ebb-4c15-f841-8218-c60348b714dd"],
Cell[385996, 8979, 891, 19, 22, "Print",ExpressionUUID->"5b3128d3-b26b-a343-97d2-f60aa42c9712"],
Cell[386890, 9000, 893, 19, 22, "Print",ExpressionUUID->"76a4533b-3f0f-5b42-b970-ad7e02da413a"],
Cell[387786, 9021, 891, 19, 22, "Print",ExpressionUUID->"8a89694a-c39a-2244-b6eb-3a2ed3d3aa62"],
Cell[388680, 9042, 893, 19, 22, "Print",ExpressionUUID->"ca72090d-335c-ba4e-9ef7-f373dc4ddabe"],
Cell[389576, 9063, 888, 19, 22, "Print",ExpressionUUID->"994f6d07-cee5-6a40-885d-84330b4532fc"],
Cell[390467, 9084, 890, 19, 22, "Print",ExpressionUUID->"bdfdaaa7-e497-1d40-9e24-0b56df9e5fd4"],
Cell[391360, 9105, 888, 19, 22, "Print",ExpressionUUID->"2b8c18f2-8fc2-2e4f-b5f5-e93e128d42da"],
Cell[392251, 9126, 889, 19, 22, "Print",ExpressionUUID->"90866622-51d8-664b-a1d2-ba9f2c007de4"],
Cell[393143, 9147, 888, 19, 22, "Print",ExpressionUUID->"2e055862-42be-624d-8fc4-fb21121a63b8"],
Cell[394034, 9168, 891, 19, 22, "Print",ExpressionUUID->"9edb8a3b-aac7-9744-ae64-d95cb905f4bd"],
Cell[394928, 9189, 886, 19, 22, "Print",ExpressionUUID->"992caca7-cd1b-1040-92ea-27d4cad4b583"],
Cell[395817, 9210, 885, 19, 22, "Print",ExpressionUUID->"47618a71-9f3e-c94c-b907-459914d359c0"],
Cell[396705, 9231, 893, 19, 22, "Print",ExpressionUUID->"44d39dff-3498-fa40-9ed8-5850432ed0f6"],
Cell[397601, 9252, 888, 19, 22, "Print",ExpressionUUID->"d06344da-436c-6844-8c7d-42edcd2d091e"],
Cell[398492, 9273, 887, 19, 22, "Print",ExpressionUUID->"bdab6fc6-ac58-e241-86a5-0ce08a551594"],
Cell[399382, 9294, 891, 19, 22, "Print",ExpressionUUID->"34c73cde-fec7-df47-a666-b645d8579459"],
Cell[400276, 9315, 891, 19, 22, "Print",ExpressionUUID->"40e80a64-9d0a-044b-b33f-f2999601d8bb"],
Cell[401170, 9336, 893, 19, 22, "Print",ExpressionUUID->"2362d233-f7aa-ee4b-99d0-067dd30d9ab8"],
Cell[402066, 9357, 887, 19, 22, "Print",ExpressionUUID->"bdda14bd-7f7b-964e-b3b7-1d4531fd0909"],
Cell[402956, 9378, 887, 19, 22, "Print",ExpressionUUID->"300526be-f5af-454d-aa6e-9ac4151c9313"],
Cell[403846, 9399, 888, 19, 22, "Print",ExpressionUUID->"1f7cce87-e0dc-8f4f-a39a-da43d7a15fec"],
Cell[404737, 9420, 887, 19, 22, "Print",ExpressionUUID->"fec64c8b-7cdd-0744-b063-b0bb33424193"],
Cell[405627, 9441, 890, 19, 22, "Print",ExpressionUUID->"7d627e55-d413-d140-b299-6ee4c206ab54"],
Cell[406520, 9462, 896, 19, 22, "Print",ExpressionUUID->"39b526a4-b37b-0b47-af94-ea2469a4fec1"],
Cell[407419, 9483, 886, 19, 22, "Print",ExpressionUUID->"61903ac3-eee3-0440-9ac5-1643d17d8090"],
Cell[408308, 9504, 893, 19, 22, "Print",ExpressionUUID->"5763bf03-bc95-4049-8f5b-e18393117b6c"],
Cell[409204, 9525, 884, 19, 22, "Print",ExpressionUUID->"e55da967-624e-6a45-982c-ef8eaba2d130"],
Cell[410091, 9546, 890, 19, 22, "Print",ExpressionUUID->"5d341bd8-66f4-684e-b046-9774ea845bf0"],
Cell[410984, 9567, 891, 19, 22, "Print",ExpressionUUID->"597418a8-76d8-9743-9d8f-b820af8adbbe"],
Cell[411878, 9588, 888, 19, 22, "Print",ExpressionUUID->"e861c018-bab6-2846-adcd-3183d611cac9"],
Cell[412769, 9609, 890, 19, 22, "Print",ExpressionUUID->"8cc94221-6559-ff4b-aeea-febcc513a627"],
Cell[413662, 9630, 888, 19, 22, "Print",ExpressionUUID->"94f2dd19-adc9-ad42-ba4c-2ffeace42387"],
Cell[414553, 9651, 890, 19, 22, "Print",ExpressionUUID->"7a4dd6f6-8e21-f942-bec1-2451db9d1002"],
Cell[415446, 9672, 890, 19, 22, "Print",ExpressionUUID->"a7180f1f-ff62-3143-978e-2b7c89a19471"],
Cell[416339, 9693, 891, 19, 22, "Print",ExpressionUUID->"80a052d2-3d87-4b46-bbf0-1ff645f1c720"],
Cell[417233, 9714, 887, 19, 22, "Print",ExpressionUUID->"5a68c0e5-7cd3-c24c-ad2d-7ead980c1cde"],
Cell[418123, 9735, 891, 19, 22, "Print",ExpressionUUID->"60daba85-78e8-0044-b90b-7d8672a1d466"],
Cell[419017, 9756, 882, 19, 22, "Print",ExpressionUUID->"2bf442d7-1215-d040-a0a5-bbcdc7cc9224"],
Cell[419902, 9777, 890, 19, 22, "Print",ExpressionUUID->"bdf5f2e3-256b-e149-85e4-0e680a9ab084"],
Cell[420795, 9798, 888, 19, 22, "Print",ExpressionUUID->"ef7c17aa-18ff-094a-a4b0-6f2bdd100386"],
Cell[421686, 9819, 890, 19, 22, "Print",ExpressionUUID->"fdaa6c5d-db3b-9f4c-a863-8e8b6bf319ff"],
Cell[422579, 9840, 891, 19, 22, "Print",ExpressionUUID->"6df0737c-8b84-6c49-b1ed-2ca57df85d9a"],
Cell[423473, 9861, 884, 19, 22, "Print",ExpressionUUID->"bf93d22a-7b53-9340-afb6-0f9c99ff5ae3"],
Cell[424360, 9882, 893, 19, 22, "Print",ExpressionUUID->"7ad949f1-4eac-0d49-baef-e4d0e77a6dba"],
Cell[425256, 9903, 892, 19, 22, "Print",ExpressionUUID->"5e8b09d8-da00-9e49-8d94-20916eae6df9"],
Cell[426151, 9924, 888, 19, 22, "Print",ExpressionUUID->"ecb2473e-8acc-594e-bfd3-b9942e5e7a4c"],
Cell[427042, 9945, 883, 19, 22, "Print",ExpressionUUID->"26d3ff4b-6de0-6e4e-9e60-65b57e1b1faf"],
Cell[427928, 9966, 889, 19, 22, "Print",ExpressionUUID->"86587de9-b7b9-c34a-9e75-5a85ac67cbd6"],
Cell[428820, 9987, 891, 19, 22, "Print",ExpressionUUID->"20933953-adc6-2649-970a-f8f22521df57"],
Cell[429714, 10008, 891, 19, 22, "Print",ExpressionUUID->"7a2abc77-80d7-8c45-9fef-86ea2ca1225d"],
Cell[430608, 10029, 888, 19, 22, "Print",ExpressionUUID->"8f08da42-700f-464e-8f2e-43c0c1cbeacf"],
Cell[431499, 10050, 888, 19, 22, "Print",ExpressionUUID->"ffd8bbaa-6047-0347-b8b5-ef2e44b8e1cc"],
Cell[432390, 10071, 894, 19, 22, "Print",ExpressionUUID->"cdbc8cb1-ee3d-8548-a657-dd71fdc005b5"],
Cell[433287, 10092, 891, 19, 22, "Print",ExpressionUUID->"e1b0ad58-db47-e84b-b463-6f21129d16c8"],
Cell[434181, 10113, 888, 19, 22, "Print",ExpressionUUID->"45a76e88-bab2-6847-952b-9ecd0055cfb8"],
Cell[435072, 10134, 886, 19, 22, "Print",ExpressionUUID->"f1c5ebf9-6fae-aa42-a16c-83aa82a111ef"],
Cell[435961, 10155, 891, 19, 22, "Print",ExpressionUUID->"89b467e1-c9b4-5247-b4da-2b962fece1dc"],
Cell[436855, 10176, 888, 19, 22, "Print",ExpressionUUID->"6420840f-6424-8e40-b5fc-dd87fdbb6b72"],
Cell[437746, 10197, 890, 19, 22, "Print",ExpressionUUID->"7446aa45-f926-544a-ac70-1d50551c9bd4"],
Cell[438639, 10218, 888, 19, 22, "Print",ExpressionUUID->"8bdff564-b2e4-cd47-8101-120ae3e6abd8"],
Cell[439530, 10239, 890, 19, 22, "Print",ExpressionUUID->"b7c88b5f-0af9-ad49-837f-14a6ebd7a690"],
Cell[440423, 10260, 888, 19, 22, "Print",ExpressionUUID->"efd46746-d6e6-ee40-bde4-ea7a08de5d31"],
Cell[441314, 10281, 891, 19, 22, "Print",ExpressionUUID->"1dfff60c-7ff4-b04d-bcb4-510d0bd9606c"],
Cell[442208, 10302, 895, 19, 22, "Print",ExpressionUUID->"10d55c6d-db36-e140-8a3f-74ee814ba599"],
Cell[443106, 10323, 888, 19, 22, "Print",ExpressionUUID->"914ee30f-990d-d74f-ac60-d7df861a8388"],
Cell[443997, 10344, 897, 19, 22, "Print",ExpressionUUID->"e7dd6257-cfd3-f44c-8ba6-91ed0fdeff6d"],
Cell[444897, 10365, 886, 19, 22, "Print",ExpressionUUID->"203b96e1-1844-194c-8893-e4887bbd6dfe"],
Cell[445786, 10386, 887, 19, 22, "Print",ExpressionUUID->"75af8a1c-4a5b-da4b-883e-03bf0581cf95"],
Cell[446676, 10407, 886, 19, 22, "Print",ExpressionUUID->"78b9eaff-8bbd-544c-ab9a-354a89419b70"],
Cell[447565, 10428, 897, 19, 22, "Print",ExpressionUUID->"043452b5-eeab-ad40-8b88-62551ca3eb55"],
Cell[448465, 10449, 883, 19, 22, "Print",ExpressionUUID->"7365326d-c037-2645-a467-01e01c7e87df"],
Cell[449351, 10470, 888, 19, 22, "Print",ExpressionUUID->"719fc4f4-8e0e-7f45-9791-5889f1db13bc"],
Cell[450242, 10491, 891, 19, 22, "Print",ExpressionUUID->"912f3f7c-03d9-a549-b35f-1635f03fa29a"],
Cell[451136, 10512, 890, 19, 22, "Print",ExpressionUUID->"3eebfa85-8f69-ed42-852d-0ebe4043af28"],
Cell[452029, 10533, 886, 19, 22, "Print",ExpressionUUID->"00a721e5-64ac-e44a-b570-54471fd8efcc"],
Cell[452918, 10554, 890, 19, 22, "Print",ExpressionUUID->"578509e2-590b-cc4a-883f-be004232f83b"],
Cell[453811, 10575, 886, 19, 22, "Print",ExpressionUUID->"70c84e62-9e28-504a-ae48-ec115ec68af2"],
Cell[454700, 10596, 893, 19, 22, "Print",ExpressionUUID->"a20e2311-d194-bd44-8774-6c75d16624e6"],
Cell[455596, 10617, 888, 19, 22, "Print",ExpressionUUID->"5f707bc8-2d8d-6d4f-b83d-f2bbe1a49f39"],
Cell[456487, 10638, 884, 19, 22, "Print",ExpressionUUID->"f384f4ad-a639-bd43-920d-8963ad4bac81"],
Cell[457374, 10659, 891, 19, 22, "Print",ExpressionUUID->"894fdab7-be7c-b747-ae94-19426db8d748"],
Cell[458268, 10680, 891, 19, 22, "Print",ExpressionUUID->"3d761399-7f37-7b40-a246-6be265b3c265"],
Cell[459162, 10701, 893, 19, 22, "Print",ExpressionUUID->"d05cc608-0e4b-f440-9e55-225c4a145380"],
Cell[460058, 10722, 885, 19, 22, "Print",ExpressionUUID->"be3e0c92-1de2-1d4e-8504-34922f5df804"],
Cell[460946, 10743, 887, 19, 22, "Print",ExpressionUUID->"29a4bd4d-c3c3-bf4c-898b-5aa4b8e3e78a"],
Cell[461836, 10764, 888, 19, 22, "Print",ExpressionUUID->"f2790416-4a99-674e-b83a-9ad748cde899"],
Cell[462727, 10785, 890, 19, 22, "Print",ExpressionUUID->"892e4f02-b72e-0243-b310-bdcac9586930"],
Cell[463620, 10806, 890, 19, 22, "Print",ExpressionUUID->"ec1161fe-21ff-1b47-a4ec-226853bb96ad"],
Cell[464513, 10827, 890, 19, 22, "Print",ExpressionUUID->"374c759f-8b0e-414a-9e29-60f72bbaa3f8"],
Cell[465406, 10848, 894, 19, 22, "Print",ExpressionUUID->"af0dd115-5bc7-f34e-8075-cb9d54738925"],
Cell[466303, 10869, 891, 19, 22, "Print",ExpressionUUID->"e0ae90b2-d7f6-4e45-a6b2-e8aeccb4da36"],
Cell[467197, 10890, 889, 19, 22, "Print",ExpressionUUID->"eddc95bc-bdd9-fb43-9e3a-bbec92654cfe"],
Cell[468089, 10911, 893, 19, 22, "Print",ExpressionUUID->"f862badf-8fac-964d-a10b-6d6099439fed"],
Cell[468985, 10932, 891, 19, 22, "Print",ExpressionUUID->"25dd63a9-f9ec-5e4c-90d5-0f31449b4759"],
Cell[469879, 10953, 888, 19, 22, "Print",ExpressionUUID->"98b29411-351a-e042-90ac-cd0ea9bd2035"],
Cell[470770, 10974, 894, 19, 22, "Print",ExpressionUUID->"c08bdb7c-41ba-0b4e-a209-149430955b99"],
Cell[471667, 10995, 892, 19, 22, "Print",ExpressionUUID->"57f40222-ee76-fb40-a127-5e81f666a9b3"],
Cell[472562, 11016, 893, 19, 22, "Print",ExpressionUUID->"17f1c251-4987-a644-9c46-64a4a03e3902"],
Cell[473458, 11037, 892, 19, 22, "Print",ExpressionUUID->"532832ce-7a40-2247-a61e-b78cdc1a6beb"],
Cell[474353, 11058, 887, 19, 22, "Print",ExpressionUUID->"67805720-c68c-e744-b617-662bcc62e091"],
Cell[475243, 11079, 875, 18, 22, "Print",ExpressionUUID->"fad44762-3c0a-b241-88a1-a60e39d60087"],
Cell[476121, 11099, 888, 19, 22, "Print",ExpressionUUID->"8c8855eb-da54-a141-bd8a-33e5e5b5fc90"],
Cell[477012, 11120, 888, 19, 22, "Print",ExpressionUUID->"eecbbac2-212b-3142-a3f8-59fbac461d43"],
Cell[477903, 11141, 888, 19, 22, "Print",ExpressionUUID->"025d933a-058f-5940-8bc1-4033f787383a"],
Cell[478794, 11162, 890, 19, 22, "Print",ExpressionUUID->"b1debab0-10db-a047-bc14-7f91b6738e4e"],
Cell[479687, 11183, 891, 19, 22, "Print",ExpressionUUID->"74695ec3-4635-214a-8112-847ce8260a78"],
Cell[480581, 11204, 886, 19, 22, "Print",ExpressionUUID->"5ec3e45d-25c6-0f40-99f6-ce4b7ba11512"],
Cell[481470, 11225, 883, 19, 22, "Print",ExpressionUUID->"7ec21bae-9f5d-cf4b-9fdd-ac0639e17961"],
Cell[482356, 11246, 890, 19, 22, "Print",ExpressionUUID->"2a2a6e76-faf3-d348-92de-90b251a09393"],
Cell[483249, 11267, 891, 19, 22, "Print",ExpressionUUID->"3128750d-de73-4147-bab4-2018057ddaf2"],
Cell[484143, 11288, 897, 19, 22, "Print",ExpressionUUID->"968c6430-7d14-8944-9f83-2487c4d8ac15"],
Cell[485043, 11309, 891, 19, 22, "Print",ExpressionUUID->"af366ba8-4e69-d249-901e-d113761bdbb7"],
Cell[485937, 11330, 888, 19, 22, "Print",ExpressionUUID->"0ba983ce-7d15-bd4a-8ec4-b08c33c6f023"],
Cell[486828, 11351, 888, 19, 22, "Print",ExpressionUUID->"0205cb7f-edda-8647-a9a0-106bd27ff1c0"],
Cell[487719, 11372, 893, 19, 22, "Print",ExpressionUUID->"e406c121-d148-2247-9bbc-238adb1e8f90"],
Cell[488615, 11393, 893, 19, 22, "Print",ExpressionUUID->"6ce0eb24-9453-8345-9077-8861a6c0c896"],
Cell[489511, 11414, 893, 19, 22, "Print",ExpressionUUID->"40e6f65a-03ff-9841-b91a-863ce800a557"],
Cell[490407, 11435, 883, 19, 22, "Print",ExpressionUUID->"3332ebfe-e19e-0943-93cf-4c033ba96fec"],
Cell[491293, 11456, 891, 19, 22, "Print",ExpressionUUID->"2dbb4d9b-d000-724d-ac90-955d17af5470"],
Cell[492187, 11477, 889, 19, 22, "Print",ExpressionUUID->"5672033e-5f03-c140-924d-605aacb2ee10"],
Cell[493079, 11498, 884, 19, 22, "Print",ExpressionUUID->"1ad1f949-3341-d448-9ee7-c40c461f3495"],
Cell[493966, 11519, 895, 19, 22, "Print",ExpressionUUID->"cbe155f7-9752-ed48-bb88-e4ce51ef4aac"],
Cell[494864, 11540, 883, 19, 22, "Print",ExpressionUUID->"f6781f54-f1d7-c74c-8e55-179adf1a8621"],
Cell[495750, 11561, 889, 19, 22, "Print",ExpressionUUID->"7a00176e-f5fe-3a48-a9b2-db100b32c359"],
Cell[496642, 11582, 893, 19, 22, "Print",ExpressionUUID->"1723bcae-8482-354d-961b-bd3aab113d69"],
Cell[497538, 11603, 890, 19, 22, "Print",ExpressionUUID->"e1e73f61-12a1-bf4a-b19a-ab64b44f5f21"],
Cell[498431, 11624, 891, 19, 22, "Print",ExpressionUUID->"61897ca4-80c1-a14d-b012-9befc3066e70"],
Cell[499325, 11645, 885, 19, 22, "Print",ExpressionUUID->"5e8e7cb7-71fe-fe41-9d6b-1675750dbe09"],
Cell[500213, 11666, 890, 19, 22, "Print",ExpressionUUID->"280f0b10-dba7-c144-84be-443b25708e51"],
Cell[501106, 11687, 888, 19, 22, "Print",ExpressionUUID->"e2712815-0557-054c-b778-960a232c2684"],
Cell[501997, 11708, 888, 19, 22, "Print",ExpressionUUID->"10be3c07-0332-5741-88ba-a9f79759e443"],
Cell[502888, 11729, 893, 19, 22, "Print",ExpressionUUID->"9ba898cd-64f1-b84d-8c05-6f22464a3454"],
Cell[503784, 11750, 881, 19, 22, "Print",ExpressionUUID->"e907c6d4-a7ae-de4e-9042-3ac08264054d"],
Cell[504668, 11771, 888, 19, 22, "Print",ExpressionUUID->"4fe5c3e0-b358-2d4f-972c-5bb1c21fc411"],
Cell[505559, 11792, 888, 19, 22, "Print",ExpressionUUID->"0877be16-1e98-324c-bc4c-b6c91f6ea8ef"],
Cell[506450, 11813, 883, 19, 22, "Print",ExpressionUUID->"42e6c73b-21ae-5047-afd6-f7684a11f6a9"],
Cell[507336, 11834, 889, 19, 22, "Print",ExpressionUUID->"d3100126-eec6-684d-b941-48f675205a03"],
Cell[508228, 11855, 888, 19, 22, "Print",ExpressionUUID->"f9b3d98c-640b-3442-b7a0-c9ba39f303bd"],
Cell[509119, 11876, 885, 19, 22, "Print",ExpressionUUID->"1b1e3153-dfa5-0842-8572-9b71e97b8dbd"],
Cell[510007, 11897, 888, 19, 22, "Print",ExpressionUUID->"4fc07d83-f95a-e040-9f81-a87fddbac115"],
Cell[510898, 11918, 893, 19, 22, "Print",ExpressionUUID->"149836d9-c466-854a-ac24-ea388c937031"],
Cell[511794, 11939, 885, 19, 22, "Print",ExpressionUUID->"ca5e5463-698d-4b4f-963b-5942adf9965a"],
Cell[512682, 11960, 891, 19, 22, "Print",ExpressionUUID->"f29e5078-6e83-3547-bb9b-44e4c3d2de03"],
Cell[513576, 11981, 890, 19, 22, "Print",ExpressionUUID->"5e5c832a-f08e-1a4e-88ee-f46a16918851"],
Cell[514469, 12002, 888, 19, 22, "Print",ExpressionUUID->"664b2957-cb8a-3f48-86ef-530effaec136"],
Cell[515360, 12023, 887, 19, 22, "Print",ExpressionUUID->"ac988a5c-f0d1-d143-84a5-815d6abea37c"],
Cell[516250, 12044, 891, 19, 22, "Print",ExpressionUUID->"c13e4dff-6f58-4b42-b732-14950ead65cc"],
Cell[517144, 12065, 890, 19, 22, "Print",ExpressionUUID->"7033e920-e140-ef4f-90d1-3ff3769ac5b0"],
Cell[518037, 12086, 888, 19, 22, "Print",ExpressionUUID->"08a56859-ec5f-d24e-b38a-91c7bf9f4eb8"],
Cell[518928, 12107, 885, 19, 22, "Print",ExpressionUUID->"92ccdabe-6491-2343-aa23-ea01d06ef9ef"],
Cell[519816, 12128, 880, 19, 22, "Print",ExpressionUUID->"80a59d0a-9719-7140-844b-16df62f36ccf"],
Cell[520699, 12149, 887, 19, 22, "Print",ExpressionUUID->"401fd892-6bd6-e543-9e99-6d21178c9582"],
Cell[521589, 12170, 886, 19, 22, "Print",ExpressionUUID->"649fb118-42d6-8a44-bf35-950078367869"],
Cell[522478, 12191, 885, 19, 22, "Print",ExpressionUUID->"278e021e-dece-d549-a33f-3b150a4286d7"],
Cell[523366, 12212, 888, 19, 22, "Print",ExpressionUUID->"1ceefd51-40d2-2f4a-879a-885759cc11bd"],
Cell[524257, 12233, 888, 19, 22, "Print",ExpressionUUID->"5407d01b-5738-2c43-842f-6dfb15c176eb"],
Cell[525148, 12254, 886, 19, 22, "Print",ExpressionUUID->"0c275c7d-9787-914a-9db8-e18cbada49ea"],
Cell[526037, 12275, 885, 19, 22, "Print",ExpressionUUID->"a34cc4cd-ab2d-a049-bba7-36bf07cfa6a6"],
Cell[526925, 12296, 892, 19, 22, "Print",ExpressionUUID->"33c45ad7-a426-b440-bc67-a855d9982047"],
Cell[527820, 12317, 887, 19, 22, "Print",ExpressionUUID->"c9437d88-6749-4441-85b4-543684850b4c"],
Cell[528710, 12338, 889, 19, 22, "Print",ExpressionUUID->"c52abad8-4a52-db4b-bc89-ecba2c29fc19"],
Cell[529602, 12359, 893, 19, 22, "Print",ExpressionUUID->"4200dabf-bb33-4644-80d7-a487076c6135"],
Cell[530498, 12380, 888, 19, 22, "Print",ExpressionUUID->"01087db8-3e4f-8940-867f-06562fd8ccaa"],
Cell[531389, 12401, 889, 19, 22, "Print",ExpressionUUID->"73a39892-a274-d44e-a196-ce48496af000"],
Cell[532281, 12422, 891, 19, 22, "Print",ExpressionUUID->"d6579833-e2ac-e549-9681-2e767381e56c"],
Cell[533175, 12443, 893, 19, 22, "Print",ExpressionUUID->"2dd6928f-b20e-2046-a8e7-eee9bc132b9c"],
Cell[534071, 12464, 888, 19, 22, "Print",ExpressionUUID->"1251d759-9a28-5948-9ac2-07fba0bcb02d"],
Cell[534962, 12485, 893, 19, 22, "Print",ExpressionUUID->"1d6ba15a-a3ab-4748-88c8-c2782a83c3c9"],
Cell[535858, 12506, 891, 19, 22, "Print",ExpressionUUID->"32a406c7-e494-3d48-9fac-f65e8e37898b"],
Cell[536752, 12527, 887, 19, 22, "Print",ExpressionUUID->"99cf42a3-2f08-3b4d-8d9f-ea6cc06ca9cd"],
Cell[537642, 12548, 886, 19, 22, "Print",ExpressionUUID->"5d884519-1c70-1840-85b6-6c8f485f50a2"],
Cell[538531, 12569, 887, 19, 22, "Print",ExpressionUUID->"b5fe7517-db75-9044-8e33-615f5d1c2ad5"],
Cell[539421, 12590, 889, 19, 22, "Print",ExpressionUUID->"199e829f-fcea-0c44-80ab-9280de6d302c"],
Cell[540313, 12611, 893, 19, 22, "Print",ExpressionUUID->"e60d3316-85c7-f94d-88c5-971b94f152d1"],
Cell[541209, 12632, 888, 19, 22, "Print",ExpressionUUID->"99ff43ec-b776-da4c-aa89-5d5d034ad437"],
Cell[542100, 12653, 883, 19, 22, "Print",ExpressionUUID->"dd3ae83d-8b4f-6e45-a218-af03213e9ae1"],
Cell[542986, 12674, 891, 19, 22, "Print",ExpressionUUID->"12bff332-0be7-d842-9caf-b5fa9609dc70"],
Cell[543880, 12695, 893, 19, 22, "Print",ExpressionUUID->"8bc33cdd-73a9-ba4f-aff6-cba75a2182bb"],
Cell[544776, 12716, 881, 19, 22, "Print",ExpressionUUID->"809ff8e1-2402-0f4d-a12b-671e383bd1ae"],
Cell[545660, 12737, 886, 19, 22, "Print",ExpressionUUID->"2ad03619-944c-b144-a01f-ad36840e3dfb"],
Cell[546549, 12758, 894, 19, 22, "Print",ExpressionUUID->"82a8ba65-4262-3d40-aaec-611c3200b13d"],
Cell[547446, 12779, 893, 19, 22, "Print",ExpressionUUID->"3b615457-d8f6-0e40-b036-a6370e9a170f"],
Cell[548342, 12800, 885, 19, 22, "Print",ExpressionUUID->"ad67aab5-df3d-1243-b953-8c5c5f8cc64b"],
Cell[549230, 12821, 894, 19, 22, "Print",ExpressionUUID->"b40a9c48-bc27-1542-8bc4-e67c67103663"],
Cell[550127, 12842, 886, 19, 22, "Print",ExpressionUUID->"4837735b-c347-6543-a131-d198c6eed13e"],
Cell[551016, 12863, 888, 19, 22, "Print",ExpressionUUID->"1c1b5089-d87a-8f4f-99c4-7b866dc2c185"],
Cell[551907, 12884, 888, 19, 22, "Print",ExpressionUUID->"fc97a86f-c6b6-7b42-ab4b-623133877482"],
Cell[552798, 12905, 893, 19, 22, "Print",ExpressionUUID->"11a0742b-0587-c64f-b822-ffc451239507"],
Cell[553694, 12926, 891, 19, 22, "Print",ExpressionUUID->"c048329a-0935-7a4c-a345-f4782c7c3ece"],
Cell[554588, 12947, 893, 19, 22, "Print",ExpressionUUID->"c377bc94-6374-1749-85ae-ddbdacbf7f29"],
Cell[555484, 12968, 886, 19, 22, "Print",ExpressionUUID->"5797f9b3-9157-d246-9965-0cef1ddbe7e1"],
Cell[556373, 12989, 896, 19, 22, "Print",ExpressionUUID->"60473e51-064f-674a-8a02-a05e2f715a43"],
Cell[557272, 13010, 883, 19, 22, "Print",ExpressionUUID->"9c23c866-b4dd-da42-8f29-3dc88a599a83"],
Cell[558158, 13031, 885, 19, 22, "Print",ExpressionUUID->"f309be5b-59ef-c84f-b662-9c65d5f44883"],
Cell[559046, 13052, 885, 19, 22, "Print",ExpressionUUID->"30b2dc3c-1c3b-2f45-940f-809f654bb93f"],
Cell[559934, 13073, 896, 19, 22, "Print",ExpressionUUID->"9f72b3cb-2a69-d245-b87f-00228a9e8f3b"],
Cell[560833, 13094, 888, 19, 22, "Print",ExpressionUUID->"dd50839d-e16a-5c48-9061-3fb20abb7133"],
Cell[561724, 13115, 891, 19, 22, "Print",ExpressionUUID->"9a875483-e62c-8544-9b3d-699c324c208f"],
Cell[562618, 13136, 894, 19, 22, "Print",ExpressionUUID->"a46540d1-8e93-bf43-aa7e-1d1d154e9ef3"],
Cell[563515, 13157, 891, 19, 22, "Print",ExpressionUUID->"57164a09-b830-754d-83b2-e20104f597fd"],
Cell[564409, 13178, 891, 19, 22, "Print",ExpressionUUID->"5e083c31-0ba8-e640-b9f9-dddff0a5295a"],
Cell[565303, 13199, 891, 19, 22, "Print",ExpressionUUID->"096e7477-67db-1c4a-89fe-0cba83aabc30"],
Cell[566197, 13220, 893, 19, 22, "Print",ExpressionUUID->"bb50499f-952d-7d48-aca5-0cb09812b4e9"],
Cell[567093, 13241, 892, 19, 22, "Print",ExpressionUUID->"cb22d376-f4a0-1640-89c8-a856701b8c5f"],
Cell[567988, 13262, 891, 19, 22, "Print",ExpressionUUID->"0229b24d-2655-5543-adcf-a199270ce455"],
Cell[568882, 13283, 888, 19, 22, "Print",ExpressionUUID->"f642c021-82de-8041-95b8-5a91bab3ea0c"],
Cell[569773, 13304, 888, 19, 22, "Print",ExpressionUUID->"6b13b620-5cda-7748-979e-a883d28c5863"],
Cell[570664, 13325, 893, 19, 22, "Print",ExpressionUUID->"35762a21-6a12-f14d-9478-839bdcebd960"],
Cell[571560, 13346, 893, 19, 22, "Print",ExpressionUUID->"ceb3df8e-fe6a-c74c-918d-9bada71d9cfd"],
Cell[572456, 13367, 893, 19, 22, "Print",ExpressionUUID->"9a61419b-3b14-1342-80a6-27ff745f834f"],
Cell[573352, 13388, 894, 19, 22, "Print",ExpressionUUID->"8af950ab-ecad-b348-811b-becf67822072"],
Cell[574249, 13409, 890, 19, 22, "Print",ExpressionUUID->"6737e6c9-339d-2641-a7fb-4a44d64eb348"],
Cell[575142, 13430, 895, 19, 22, "Print",ExpressionUUID->"e956f44c-1b4e-9c4f-8e8d-5ad79088a352"],
Cell[576040, 13451, 893, 19, 22, "Print",ExpressionUUID->"2df9ce02-1d05-824c-ad83-e1cf23f93935"],
Cell[576936, 13472, 886, 19, 22, "Print",ExpressionUUID->"d3590be1-5d93-7a45-a4ca-0590fe5b821d"],
Cell[577825, 13493, 890, 19, 22, "Print",ExpressionUUID->"e1db46f6-29da-3043-ac8d-8f7cacf4426d"],
Cell[578718, 13514, 888, 19, 22, "Print",ExpressionUUID->"ec323ffb-75fd-3b4f-b7cc-d9f723d000c3"],
Cell[579609, 13535, 890, 19, 22, "Print",ExpressionUUID->"ab0d2f7d-08b1-9648-8b77-76096ded5929"],
Cell[580502, 13556, 891, 19, 22, "Print",ExpressionUUID->"6c927fdd-f8ce-ac4d-8095-2a6e0ff900fc"],
Cell[581396, 13577, 889, 19, 22, "Print",ExpressionUUID->"ca6744bb-079c-0542-92f4-0e612b002a6c"],
Cell[582288, 13598, 841, 19, 22, "Print",ExpressionUUID->"1da52835-e68a-0b4c-8094-6e06e44f81f7"]
}, Open  ]]
}, Open  ]],
Cell[583156, 13621, 105, 1, 28, "Input",ExpressionUUID->"9a2c2f3c-535c-4e4a-8f7b-034ea1943bfa"],
Cell[583264, 13624, 5200, 95, 123, "Input",ExpressionUUID->"625cff88-5832-4274-b231-cb7aca7acda5"],
Cell[CellGroupData[{
Cell[588489, 13723, 129, 2, 28, "Input",ExpressionUUID->"09cc657a-49da-f94f-bda9-7019f1e433df"],
Cell[588621, 13727, 94665, 2139, 388, 75206, 1819, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"80e617b7-012a-7f4d-a25f-e11358350424"]
}, Open  ]],
Cell[CellGroupData[{
Cell[683323, 15871, 130, 2, 28, "Input",ExpressionUUID->"738de06c-6d4a-435c-8635-fcca0ab30bbe"],
Cell[683456, 15875, 205, 3, 32, "Output",ExpressionUUID->"66811de5-4d27-ef4f-b2b0-46bd4d6119d6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[683698, 15883, 130, 2, 28, "Input",ExpressionUUID->"78d72cbf-1dcb-4bb8-b808-4001b0e8dfee"],
Cell[683831, 15887, 203, 3, 32, "Output",ExpressionUUID->"c1d11e30-0634-a24a-ac98-f0637ca0d7fa"]
}, Open  ]]
}
]
*)