sunspotlab.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     63596,       1101]
NotebookOptionsPosition[     62193,       1058]
NotebookOutlinePosition[     62550,       1074]
CellTagsIndexPosition[     62507,       1071]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"Remove", "[", "\"\<Global`*\>\"", "]"}], "\n", 
 RowBox[{
  RowBox[{"\[Theta]", "=", "  ", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"41", ",", "56"}], "}"}], "  ", "Degree"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"\[Phi]", "=", "  ", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"37", ",", "350"}], "}"}], " ", "Degree"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"\[Theta]p", "=", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"61", ",", "33"}], "}"}], " ", "Degree"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Phi]p", "=", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"165", ",", "204"}], "}"}], " ", "Degree"}]}], ";"}], 
  "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"tsynr", "=", 
    RowBox[{
     RowBox[{"ArcCos", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", "\[Theta]", "]"}], 
        RowBox[{"Cos", "[", "\[Theta]p", "]"}]}], "+", 
       RowBox[{
        RowBox[{"Sin", "[", "\[Theta]", "]"}], 
        RowBox[{"Sin", "[", "\[Theta]p", "]"}], 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Phi]", "-", "\[Phi]p"}], "]"}]}]}], "]"}], " ", "//", 
     "N"}]}], ";"}], " ", "\n", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{
     "synodic", " ", "period", " ", "of", " ", "rotation", " ", "in", " ", 
      "radians"}], "  ", ".."}], " ", "r"}], "*)"}], "\n", 
  RowBox[{"(*", 
   RowBox[{
   "takes", " ", "into", " ", "account", " ", "pojection", " ", "effects"}], 
   "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"tsynd", "=", 
   RowBox[{"tsynr", " ", 
    RowBox[{"180", "/", "\[Pi]"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"tsyndd", "=", 
    RowBox[{"7", "*", 
     RowBox[{"360", "/", "tsynd"}]}]}], ";"}], " "}], "\n", 
 RowBox[{"tsynddm", "=", 
  RowBox[{"Mean", "[", "tsyndd", "]"}]}], "\n", 
 RowBox[{
  RowBox[{
   SubscriptBox["T", "sid"], "=", 
   FractionBox[
    RowBox[{
     RowBox[{"-", 
      SubscriptBox["T", "Earth"]}], "+", " ", 
     SqrtBox[
      RowBox[{
       SuperscriptBox[
        SubscriptBox["T", "Earth"], "2"], "+", " ", 
       RowBox[{"4", " ", 
        SubscriptBox["T", "syn"], 
        SubscriptBox["T", "Earth"]}]}]]}], "2"]}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"tsid", "=", 
   FractionBox[
    RowBox[{
     RowBox[{"-", "365.25"}], " ", "+", 
     RowBox[{"Sqrt", "[", 
      RowBox[{
       RowBox[{"365.25", "^", "2"}], " ", "+", " ", 
       RowBox[{"4", " ", "tsynddm", " ", "365.25"}]}], "]"}]}], "2"]}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "two", " ", "possible", " ", "formulae", " ", "for", " ", "tsiderial"}], 
   "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"tsid", "=", " ", 
   FractionBox[
    RowBox[{"(", 
     RowBox[{"365.25", "*", "tsynddm"}], " ", ")"}], 
    RowBox[{"365.25", "+", "tsynddm"}]]}], " ", 
  RowBox[{"(*", 
   RowBox[{"this", " ", "one", " ", "is", " ", "better"}], "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Delta]tsid", "=", "1"}], ";"}], "\n"}], "\n", 
 RowBox[{"Print", "[", "\"\<Tsid\>\"", "]"}], "\n", 
 RowBox[{"Tsidreal", "=", 
  RowBox[{"(", 
   RowBox[{"tsid", " ", "*", 
    RowBox[{"(", 
     RowBox[{"24", "*", "60", "*", "60"}], ")"}]}], ")"}]}], "\n", 
 RowBox[{"\[Delta]Tsid", "=", 
  RowBox[{"\[Delta]tsid", "*", 
   RowBox[{"(", 
    RowBox[{"24", "*", "60", "*", "60"}], ")"}]}]}], "\n", 
 RowBox[{"Print", "[", "\"\<velrot\>\"", "]"}], "\n", 
 RowBox[{
  RowBox[{"rotationalvelocity", "=", "1718.9"}], "  ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"by", " ", "doppler", " ", "shift", " ", "of", " ", "Sodium"}], 
    "-", 
    RowBox[{"D", " ", "lines"}]}], "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"\[Delta]rot", "=", "254.3"}], " ", 
  RowBox[{"(*", "error", "*)"}]}], "\n", 
 RowBox[{"Print", "[", "\"\<radius sun\>\"", "]"}], "\n", 
 RowBox[{"radius", "=", 
  RowBox[{"rotationalvelocity", " ", 
   RowBox[{
    RowBox[{"(", "Tsidreal", ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"2", " ", "\[Pi]"}], ")"}]}]}]}], "\n", 
 RowBox[{"\[Delta]rad", "=", 
  RowBox[{"radius", 
   SqrtBox[
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"\[Delta]rot", "/", "rotationalvelocity"}], ")"}], "^", "2"}], 
     " ", "+", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"\[Delta]Tsid", "/", "Tsidreal"}], ")"}], "^", 
      "2"}]}]]}]}], "\n", 
 RowBox[{"Print", "[", "\"\<angular diameter\>\"", "]"}], "\n", 
 RowBox[{
  RowBox[{"angulardiameter", "=", 
   RowBox[{".546625", " ", "*", " ", 
    RowBox[{"(", 
     RowBox[{"\[Pi]", "/", "180"}], ")"}]}]}], " ", 
  RowBox[{"(*", 
   RowBox[{"can", " ", "be", " ", "measured"}], "*)"}]}], "\n", 
 RowBox[{"\[Delta]angulard", "=", 
  RowBox[{".0475", " ", "*", " ", 
   RowBox[{"(", 
    RowBox[{"\[Pi]", "/", "180"}], ")"}]}]}], "\n", 
 RowBox[{"Print", "[", "\"\<D 2 Sun\>\"", "]"}], "\n", 
 RowBox[{"distancetosun", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"2", " ", "radius"}], ")"}], "/", "angulardiameter"}]}], "\n", 
 RowBox[{"\[Delta]d2sun", "=", 
  RowBox[{"distancetosun", 
   SqrtBox[
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"\[Delta]rad", "/", "radius"}], ")"}], "^", "2"}], " ", "+", 
     " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"\[Delta]angulard", "/", "angulardiameter"}], ")"}], "^", 
      "2"}]}]]}]}], "\n", 
 RowBox[{"Print", "[", "\"\<Earth velocity\>\"", "]"}], "\n", 
 RowBox[{"vearth", "=", 
  RowBox[{"2", " ", "\[Pi]", " ", 
   RowBox[{"distancetosun", "/", 
    RowBox[{"(", 
     RowBox[{"365.25", " ", "*", " ", "24", "*", "60", "*", "60"}], 
     ")"}]}]}]}], "\n", 
 RowBox[{"\[Delta]vearth", "=", 
  RowBox[{"2", " ", "\[Pi]", " ", 
   RowBox[{"\[Delta]d2sun", "/", 
    RowBox[{"(", 
     RowBox[{"365.25", " ", "*", " ", "24", "*", "60", "*", "60"}], 
     ")"}]}]}]}], "\n", 
 RowBox[{"Print", "[", "\"\<Msun\>\"", "]"}], "\n", 
 RowBox[{"Msun", "=", 
  FractionBox[
   RowBox[{
    RowBox[{"vearth", "^", "2"}], " ", "distancetosun"}], 
   RowBox[{"6.673", " ", "*", 
    RowBox[{"10", "^", 
     RowBox[{"-", "11", "  "}]}]}]]}], "\n", 
 RowBox[{"\[Delta]msun", "=", 
  RowBox[{
   RowBox[{"(", "Msun", ")"}], 
   RowBox[{"\[Sqrt]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"\[Delta]vearth", "/", "vearth"}], ")"}], "^", "2"}], "  ", 
      "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"\[Delta]vearth", "/", "vearth"}], ")"}], "^", "2"}], "  ", 
      "+", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"\[Delta]d2sun", "/", "distancetosun"}], ")"}], "^", "2"}]}], 
     ")"}]}]}]}], "\n", 
 RowBox[{
  RowBox[{"\[Delta]msun", "/", "Msun"}], "\n"}], "\n", 
 FractionBox[
  RowBox[{"1.9", " ", "-", "1.4"}], "1.9"]}], "Input",
 CellChangeTimes->{{3.5612196127106733`*^9, 3.561219659003455*^9}, {
   3.561220350149563*^9, 3.561220364769884*^9}, {3.561220398501362*^9, 
   3.5612205303512993`*^9}, {3.561220580521559*^9, 3.5612206395231113`*^9}, {
   3.561220746678137*^9, 3.561220819129998*^9}, {3.561222570337468*^9, 
   3.5612226273348703`*^9}, {3.561222806737339*^9, 3.561222872142212*^9}, {
   3.5612229273907833`*^9, 3.5612229444851418`*^9}, {3.561223017292927*^9, 
   3.561223061177515*^9}, {3.561223093233211*^9, 3.561223115984364*^9}, {
   3.561223408538402*^9, 3.5612234684924593`*^9}, {3.5612235239255667`*^9, 
   3.561223627689836*^9}, {3.561223755182743*^9, 3.561223793277091*^9}, {
   3.561227267940463*^9, 3.5612274406122503`*^9}, {3.561231145560729*^9, 
   3.561231459169427*^9}, {3.561231509561369*^9, 3.5612315818143587`*^9}, {
   3.561231613447527*^9, 3.56123169486791*^9}, {3.561231850422826*^9, 
   3.561231975373906*^9}, {3.5612320213271523`*^9, 3.561232198054607*^9}, {
   3.561232235778181*^9, 3.5612323299433327`*^9}, {3.561232425660746*^9, 
   3.561232458326652*^9}, {3.561232499932372*^9, 3.561232514942116*^9}, {
   3.561232583105953*^9, 3.561232611121047*^9}, {3.561233235974691*^9, 
   3.561233277556093*^9}, {3.561233368953977*^9, 3.5612334012569857`*^9}, {
   3.56123345304282*^9, 3.56123345323372*^9}, {3.5612335318514338`*^9, 
   3.561233624892749*^9}, {3.561233679277995*^9, 3.5612336884669123`*^9}, {
   3.561233746466413*^9, 3.561233753161158*^9}, {3.561234099031416*^9, 
   3.561234236281209*^9}, {3.56139991655434*^9, 3.561400176255733*^9}, {
   3.561400206506769*^9, 3.561400278333434*^9}, {3.561473991699931*^9, 
   3.5614740199756517`*^9}, {3.5614741766077747`*^9, 3.561474270659748*^9}, {
   3.561474305076371*^9, 3.561474550767164*^9}, {3.561474610375862*^9, 
   3.5614746328415833`*^9}, {3.561474668999984*^9, 3.561474708017465*^9}, {
   3.561474804835878*^9, 3.561474813690898*^9}, {3.5614748457713747`*^9, 
   3.5614748570011673`*^9}, {3.5614749254836073`*^9, 3.561475257887433*^9}, {
   3.561475292838861*^9, 3.56147555767537*^9}, {3.5614755950690613`*^9, 
   3.561475733484529*^9}, {3.561475793164998*^9, 3.561475799011285*^9}, {
   3.561482019062409*^9, 3.561482027735772*^9}, 3.561496422163989*^9, {
   3.561496489381435*^9, 3.561496550901844*^9}, {3.561497379897359*^9, 
   3.561497399880393*^9}, {3.5614974399304857`*^9, 3.561497448743245*^9}, {
   3.600970689066115*^9, 3.6009706923578053`*^9}, {3.600971968464593*^9, 
   3.6009719935157223`*^9}, {3.600972083145097*^9, 3.600972197019855*^9}, 
   3.6009722307462473`*^9, {3.60097227217087*^9, 3.6009722896663523`*^9}, {
   3.6009724263175497`*^9, 3.600972454422261*^9}, {3.600972489659916*^9, 
   3.600972493213626*^9}}],

Cell[BoxData["29.012486571650935`"], "Output",
 CellChangeTimes->{
  3.5612208196059523`*^9, {3.561222612432521*^9, 3.561222631951065*^9}, {
   3.5612228270909758`*^9, 3.5612228736936827`*^9}, {3.561222930223618*^9, 
   3.5612229451151752`*^9}, {3.561223021458239*^9, 3.56122306176481*^9}, {
   3.561223099984601*^9, 3.561223117127277*^9}, {3.5612234125708427`*^9, 
   3.56122346894678*^9}, {3.5612235550032883`*^9, 3.561223628821888*^9}, 
   3.561223799118546*^9, 3.5612273907582273`*^9, {3.561231291870152*^9, 
   3.5612313734637814`*^9}, {3.561231420398234*^9, 3.561231424995761*^9}, 
   3.561231459803872*^9, 3.5612315395116043`*^9, 3.561231582506114*^9, {
   3.561231616929113*^9, 3.561231640450386*^9}, {3.5612316800948153`*^9, 
   3.561231695758181*^9}, {3.5612318708632383`*^9, 3.5612319071727877`*^9}, {
   3.561231939903652*^9, 3.56123194710754*^9}, {3.5612320178490543`*^9, 
   3.561232110007884*^9}, {3.56123215725169*^9, 3.561232184746785*^9}, {
   3.561232293417647*^9, 3.561232298333548*^9}, {3.5612324525968437`*^9, 
   3.5612324588647213`*^9}, {3.561232508664425*^9, 3.56123251632878*^9}, {
   3.5612325847494383`*^9, 3.561232611667322*^9}, {3.561233249100947*^9, 
   3.5612332779144287`*^9}, {3.561233375425716*^9, 3.56123340218637*^9}, 
   3.561233454807582*^9, {3.561233536058002*^9, 3.561233559995323*^9}, 
   3.561233592633698*^9, 3.5612336268053923`*^9, {3.561233681648128*^9, 
   3.5612336893523703`*^9}, {3.5612337484055147`*^9, 3.561233754198634*^9}, {
   3.5612341922874203`*^9, 3.561234236761042*^9}, {3.561399972872004*^9, 
   3.561400176857298*^9}, {3.56140025553726*^9, 3.561400279503008*^9}, 
   3.561474012725993*^9, {3.5614741783793917`*^9, 3.5614742217009907`*^9}, {
   3.561474354868078*^9, 3.561474387877955*^9}, {3.561474426391082*^9, 
   3.5614744395808077`*^9}, 3.5614745968034897`*^9, 3.561474816032145*^9, 
   3.561474850999455*^9, 3.561474982996714*^9, {3.5614750187915497`*^9, 
   3.561475042656907*^9}, {3.561475100836113*^9, 3.561475107847013*^9}, {
   3.5614751927714233`*^9, 3.56147522545828*^9}, {3.561475277099903*^9, 
   3.5614752938047457`*^9}, {3.561475408025585*^9, 3.5614755581090918`*^9}, 
   3.56147560525762*^9, {3.561475682737368*^9, 3.561475690909647*^9}, {
   3.561475721961776*^9, 3.561475734348296*^9}, 3.56147579964157*^9, {
   3.561482021635995*^9, 3.56148202876504*^9}, 3.561496422864829*^9, 
   3.5614974009072723`*^9, 3.561497449121092*^9, 3.600970693888254*^9, {
   3.600972155787675*^9, 3.600972165407811*^9}, 3.6009723112393427`*^9, 
   3.600972511304261*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", 
     SubscriptBox["T", "Earth"]}], "+", 
    SqrtBox[
     RowBox[{
      SubsuperscriptBox["T", "Earth", "2"], "+", 
      RowBox[{"4", " ", 
       SubscriptBox["T", "Earth"], " ", 
       SubscriptBox["T", "syn"]}]}]]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.5612208196059523`*^9, {3.561222612432521*^9, 3.561222631951065*^9}, {
   3.5612228270909758`*^9, 3.5612228736936827`*^9}, {3.561222930223618*^9, 
   3.5612229451151752`*^9}, {3.561223021458239*^9, 3.56122306176481*^9}, {
   3.561223099984601*^9, 3.561223117127277*^9}, {3.5612234125708427`*^9, 
   3.56122346894678*^9}, {3.5612235550032883`*^9, 3.561223628821888*^9}, 
   3.561223799118546*^9, 3.5612273907582273`*^9, {3.561231291870152*^9, 
   3.5612313734637814`*^9}, {3.561231420398234*^9, 3.561231424995761*^9}, 
   3.561231459803872*^9, 3.5612315395116043`*^9, 3.561231582506114*^9, {
   3.561231616929113*^9, 3.561231640450386*^9}, {3.5612316800948153`*^9, 
   3.561231695758181*^9}, {3.5612318708632383`*^9, 3.5612319071727877`*^9}, {
   3.561231939903652*^9, 3.56123194710754*^9}, {3.5612320178490543`*^9, 
   3.561232110007884*^9}, {3.56123215725169*^9, 3.561232184746785*^9}, {
   3.561232293417647*^9, 3.561232298333548*^9}, {3.5612324525968437`*^9, 
   3.5612324588647213`*^9}, {3.561232508664425*^9, 3.56123251632878*^9}, {
   3.5612325847494383`*^9, 3.561232611667322*^9}, {3.561233249100947*^9, 
   3.5612332779144287`*^9}, {3.561233375425716*^9, 3.56123340218637*^9}, 
   3.561233454807582*^9, {3.561233536058002*^9, 3.561233559995323*^9}, 
   3.561233592633698*^9, 3.5612336268053923`*^9, {3.561233681648128*^9, 
   3.5612336893523703`*^9}, {3.5612337484055147`*^9, 3.561233754198634*^9}, {
   3.5612341922874203`*^9, 3.561234236761042*^9}, {3.561399972872004*^9, 
   3.561400176857298*^9}, {3.56140025553726*^9, 3.561400279503008*^9}, 
   3.561474012725993*^9, {3.5614741783793917`*^9, 3.5614742217009907`*^9}, {
   3.561474354868078*^9, 3.561474387877955*^9}, {3.561474426391082*^9, 
   3.5614744395808077`*^9}, 3.5614745968034897`*^9, 3.561474816032145*^9, 
   3.561474850999455*^9, 3.561474982996714*^9, {3.5614750187915497`*^9, 
   3.561475042656907*^9}, {3.561475100836113*^9, 3.561475107847013*^9}, {
   3.5614751927714233`*^9, 3.56147522545828*^9}, {3.561475277099903*^9, 
   3.5614752938047457`*^9}, {3.561475408025585*^9, 3.5614755581090918`*^9}, 
   3.56147560525762*^9, {3.561475682737368*^9, 3.561475690909647*^9}, {
   3.561475721961776*^9, 3.561475734348296*^9}, 3.56147579964157*^9, {
   3.561482021635995*^9, 3.56148202876504*^9}, 3.561496422864829*^9, 
   3.5614974009072723`*^9, 3.561497449121092*^9, 3.600970693888254*^9, {
   3.600972155787675*^9, 3.600972165407811*^9}, 3.6009723112393427`*^9, 
   3.600972511305394*^9}],

Cell[BoxData["27.014455602459293`"], "Output",
 CellChangeTimes->{
  3.5612208196059523`*^9, {3.561222612432521*^9, 3.561222631951065*^9}, {
   3.5612228270909758`*^9, 3.5612228736936827`*^9}, {3.561222930223618*^9, 
   3.5612229451151752`*^9}, {3.561223021458239*^9, 3.56122306176481*^9}, {
   3.561223099984601*^9, 3.561223117127277*^9}, {3.5612234125708427`*^9, 
   3.56122346894678*^9}, {3.5612235550032883`*^9, 3.561223628821888*^9}, 
   3.561223799118546*^9, 3.5612273907582273`*^9, {3.561231291870152*^9, 
   3.5612313734637814`*^9}, {3.561231420398234*^9, 3.561231424995761*^9}, 
   3.561231459803872*^9, 3.5612315395116043`*^9, 3.561231582506114*^9, {
   3.561231616929113*^9, 3.561231640450386*^9}, {3.5612316800948153`*^9, 
   3.561231695758181*^9}, {3.5612318708632383`*^9, 3.5612319071727877`*^9}, {
   3.561231939903652*^9, 3.56123194710754*^9}, {3.5612320178490543`*^9, 
   3.561232110007884*^9}, {3.56123215725169*^9, 3.561232184746785*^9}, {
   3.561232293417647*^9, 3.561232298333548*^9}, {3.5612324525968437`*^9, 
   3.5612324588647213`*^9}, {3.561232508664425*^9, 3.56123251632878*^9}, {
   3.5612325847494383`*^9, 3.561232611667322*^9}, {3.561233249100947*^9, 
   3.5612332779144287`*^9}, {3.561233375425716*^9, 3.56123340218637*^9}, 
   3.561233454807582*^9, {3.561233536058002*^9, 3.561233559995323*^9}, 
   3.561233592633698*^9, 3.5612336268053923`*^9, {3.561233681648128*^9, 
   3.5612336893523703`*^9}, {3.5612337484055147`*^9, 3.561233754198634*^9}, {
   3.5612341922874203`*^9, 3.561234236761042*^9}, {3.561399972872004*^9, 
   3.561400176857298*^9}, {3.56140025553726*^9, 3.561400279503008*^9}, 
   3.561474012725993*^9, {3.5614741783793917`*^9, 3.5614742217009907`*^9}, {
   3.561474354868078*^9, 3.561474387877955*^9}, {3.561474426391082*^9, 
   3.5614744395808077`*^9}, 3.5614745968034897`*^9, 3.561474816032145*^9, 
   3.561474850999455*^9, 3.561474982996714*^9, {3.5614750187915497`*^9, 
   3.561475042656907*^9}, {3.561475100836113*^9, 3.561475107847013*^9}, {
   3.5614751927714233`*^9, 3.56147522545828*^9}, {3.561475277099903*^9, 
   3.5614752938047457`*^9}, {3.561475408025585*^9, 3.5614755581090918`*^9}, 
   3.56147560525762*^9, {3.561475682737368*^9, 3.561475690909647*^9}, {
   3.561475721961776*^9, 3.561475734348296*^9}, 3.56147579964157*^9, {
   3.561482021635995*^9, 3.56148202876504*^9}, 3.561496422864829*^9, 
   3.5614974009072723`*^9, 3.561497449121092*^9, 3.600970693888254*^9, {
   3.600972155787675*^9, 3.600972165407811*^9}, 3.6009723112393427`*^9, 
   3.600972511306286*^9}],

Cell[BoxData["26.877552598120953`"], "Output",
 CellChangeTimes->{
  3.5612208196059523`*^9, {3.561222612432521*^9, 3.561222631951065*^9}, {
   3.5612228270909758`*^9, 3.5612228736936827`*^9}, {3.561222930223618*^9, 
   3.5612229451151752`*^9}, {3.561223021458239*^9, 3.56122306176481*^9}, {
   3.561223099984601*^9, 3.561223117127277*^9}, {3.5612234125708427`*^9, 
   3.56122346894678*^9}, {3.5612235550032883`*^9, 3.561223628821888*^9}, 
   3.561223799118546*^9, 3.5612273907582273`*^9, {3.561231291870152*^9, 
   3.5612313734637814`*^9}, {3.561231420398234*^9, 3.561231424995761*^9}, 
   3.561231459803872*^9, 3.5612315395116043`*^9, 3.561231582506114*^9, {
   3.561231616929113*^9, 3.561231640450386*^9}, {3.5612316800948153`*^9, 
   3.561231695758181*^9}, {3.5612318708632383`*^9, 3.5612319071727877`*^9}, {
   3.561231939903652*^9, 3.56123194710754*^9}, {3.5612320178490543`*^9, 
   3.561232110007884*^9}, {3.56123215725169*^9, 3.561232184746785*^9}, {
   3.561232293417647*^9, 3.561232298333548*^9}, {3.5612324525968437`*^9, 
   3.5612324588647213`*^9}, {3.561232508664425*^9, 3.56123251632878*^9}, {
   3.5612325847494383`*^9, 3.561232611667322*^9}, {3.561233249100947*^9, 
   3.5612332779144287`*^9}, {3.561233375425716*^9, 3.56123340218637*^9}, 
   3.561233454807582*^9, {3.561233536058002*^9, 3.561233559995323*^9}, 
   3.561233592633698*^9, 3.5612336268053923`*^9, {3.561233681648128*^9, 
   3.5612336893523703`*^9}, {3.5612337484055147`*^9, 3.561233754198634*^9}, {
   3.5612341922874203`*^9, 3.561234236761042*^9}, {3.561399972872004*^9, 
   3.561400176857298*^9}, {3.56140025553726*^9, 3.561400279503008*^9}, 
   3.561474012725993*^9, {3.5614741783793917`*^9, 3.5614742217009907`*^9}, {
   3.561474354868078*^9, 3.561474387877955*^9}, {3.561474426391082*^9, 
   3.5614744395808077`*^9}, 3.5614745968034897`*^9, 3.561474816032145*^9, 
   3.561474850999455*^9, 3.561474982996714*^9, {3.5614750187915497`*^9, 
   3.561475042656907*^9}, {3.561475100836113*^9, 3.561475107847013*^9}, {
   3.5614751927714233`*^9, 3.56147522545828*^9}, {3.561475277099903*^9, 
   3.5614752938047457`*^9}, {3.561475408025585*^9, 3.5614755581090918`*^9}, 
   3.56147560525762*^9, {3.561475682737368*^9, 3.561475690909647*^9}, {
   3.561475721961776*^9, 3.561475734348296*^9}, 3.56147579964157*^9, {
   3.561482021635995*^9, 3.56148202876504*^9}, 3.561496422864829*^9, 
   3.5614974009072723`*^9, 3.561497449121092*^9, 3.600970693888254*^9, {
   3.600972155787675*^9, 3.600972165407811*^9}, 3.6009723112393427`*^9, 
   3.6009725113071127`*^9}],

Cell[BoxData["\<\"Tsid\"\>"], "Print",
 CellChangeTimes->{
  3.600970693900543*^9, {3.6009721558010387`*^9, 3.6009721654117117`*^9}, 
   3.600972311243392*^9, 3.6009725113078823`*^9}],

Cell[BoxData["2.3222205444776504`*^6"], "Output",
 CellChangeTimes->{
  3.5612208196059523`*^9, {3.561222612432521*^9, 3.561222631951065*^9}, {
   3.5612228270909758`*^9, 3.5612228736936827`*^9}, {3.561222930223618*^9, 
   3.5612229451151752`*^9}, {3.561223021458239*^9, 3.56122306176481*^9}, {
   3.561223099984601*^9, 3.561223117127277*^9}, {3.5612234125708427`*^9, 
   3.56122346894678*^9}, {3.5612235550032883`*^9, 3.561223628821888*^9}, 
   3.561223799118546*^9, 3.5612273907582273`*^9, {3.561231291870152*^9, 
   3.5612313734637814`*^9}, {3.561231420398234*^9, 3.561231424995761*^9}, 
   3.561231459803872*^9, 3.5612315395116043`*^9, 3.561231582506114*^9, {
   3.561231616929113*^9, 3.561231640450386*^9}, {3.5612316800948153`*^9, 
   3.561231695758181*^9}, {3.5612318708632383`*^9, 3.5612319071727877`*^9}, {
   3.561231939903652*^9, 3.56123194710754*^9}, {3.5612320178490543`*^9, 
   3.561232110007884*^9}, {3.56123215725169*^9, 3.561232184746785*^9}, {
   3.561232293417647*^9, 3.561232298333548*^9}, {3.5612324525968437`*^9, 
   3.5612324588647213`*^9}, {3.561232508664425*^9, 3.56123251632878*^9}, {
   3.5612325847494383`*^9, 3.561232611667322*^9}, {3.561233249100947*^9, 
   3.5612332779144287`*^9}, {3.561233375425716*^9, 3.56123340218637*^9}, 
   3.561233454807582*^9, {3.561233536058002*^9, 3.561233559995323*^9}, 
   3.561233592633698*^9, 3.5612336268053923`*^9, {3.561233681648128*^9, 
   3.5612336893523703`*^9}, {3.5612337484055147`*^9, 3.561233754198634*^9}, {
   3.5612341922874203`*^9, 3.561234236761042*^9}, {3.561399972872004*^9, 
   3.561400176857298*^9}, {3.56140025553726*^9, 3.561400279503008*^9}, 
   3.561474012725993*^9, {3.5614741783793917`*^9, 3.5614742217009907`*^9}, {
   3.561474354868078*^9, 3.561474387877955*^9}, {3.561474426391082*^9, 
   3.5614744395808077`*^9}, 3.5614745968034897`*^9, 3.561474816032145*^9, 
   3.561474850999455*^9, 3.561474982996714*^9, {3.5614750187915497`*^9, 
   3.561475042656907*^9}, {3.561475100836113*^9, 3.561475107847013*^9}, {
   3.5614751927714233`*^9, 3.56147522545828*^9}, {3.561475277099903*^9, 
   3.5614752938047457`*^9}, {3.561475408025585*^9, 3.5614755581090918`*^9}, 
   3.56147560525762*^9, {3.561475682737368*^9, 3.561475690909647*^9}, {
   3.561475721961776*^9, 3.561475734348296*^9}, 3.56147579964157*^9, {
   3.561482021635995*^9, 3.56148202876504*^9}, 3.561496422864829*^9, 
   3.5614974009072723`*^9, 3.561497449121092*^9, 3.600970693888254*^9, {
   3.600972155787675*^9, 3.600972165407811*^9}, 3.6009723112393427`*^9, 
   3.600972511308465*^9}],

Cell[BoxData["86400"], "Output",
 CellChangeTimes->{
  3.5612208196059523`*^9, {3.561222612432521*^9, 3.561222631951065*^9}, {
   3.5612228270909758`*^9, 3.5612228736936827`*^9}, {3.561222930223618*^9, 
   3.5612229451151752`*^9}, {3.561223021458239*^9, 3.56122306176481*^9}, {
   3.561223099984601*^9, 3.561223117127277*^9}, {3.5612234125708427`*^9, 
   3.56122346894678*^9}, {3.5612235550032883`*^9, 3.561223628821888*^9}, 
   3.561223799118546*^9, 3.5612273907582273`*^9, {3.561231291870152*^9, 
   3.5612313734637814`*^9}, {3.561231420398234*^9, 3.561231424995761*^9}, 
   3.561231459803872*^9, 3.5612315395116043`*^9, 3.561231582506114*^9, {
   3.561231616929113*^9, 3.561231640450386*^9}, {3.5612316800948153`*^9, 
   3.561231695758181*^9}, {3.5612318708632383`*^9, 3.5612319071727877`*^9}, {
   3.561231939903652*^9, 3.56123194710754*^9}, {3.5612320178490543`*^9, 
   3.561232110007884*^9}, {3.56123215725169*^9, 3.561232184746785*^9}, {
   3.561232293417647*^9, 3.561232298333548*^9}, {3.5612324525968437`*^9, 
   3.5612324588647213`*^9}, {3.561232508664425*^9, 3.56123251632878*^9}, {
   3.5612325847494383`*^9, 3.561232611667322*^9}, {3.561233249100947*^9, 
   3.5612332779144287`*^9}, {3.561233375425716*^9, 3.56123340218637*^9}, 
   3.561233454807582*^9, {3.561233536058002*^9, 3.561233559995323*^9}, 
   3.561233592633698*^9, 3.5612336268053923`*^9, {3.561233681648128*^9, 
   3.5612336893523703`*^9}, {3.5612337484055147`*^9, 3.561233754198634*^9}, {
   3.5612341922874203`*^9, 3.561234236761042*^9}, {3.561399972872004*^9, 
   3.561400176857298*^9}, {3.56140025553726*^9, 3.561400279503008*^9}, 
   3.561474012725993*^9, {3.5614741783793917`*^9, 3.5614742217009907`*^9}, {
   3.561474354868078*^9, 3.561474387877955*^9}, {3.561474426391082*^9, 
   3.5614744395808077`*^9}, 3.5614745968034897`*^9, 3.561474816032145*^9, 
   3.561474850999455*^9, 3.561474982996714*^9, {3.5614750187915497`*^9, 
   3.561475042656907*^9}, {3.561475100836113*^9, 3.561475107847013*^9}, {
   3.5614751927714233`*^9, 3.56147522545828*^9}, {3.561475277099903*^9, 
   3.5614752938047457`*^9}, {3.561475408025585*^9, 3.5614755581090918`*^9}, 
   3.56147560525762*^9, {3.561475682737368*^9, 3.561475690909647*^9}, {
   3.561475721961776*^9, 3.561475734348296*^9}, 3.56147579964157*^9, {
   3.561482021635995*^9, 3.56148202876504*^9}, 3.561496422864829*^9, 
   3.5614974009072723`*^9, 3.561497449121092*^9, 3.600970693888254*^9, {
   3.600972155787675*^9, 3.600972165407811*^9}, 3.6009723112393427`*^9, 
   3.600972511309237*^9}],

Cell[BoxData["\<\"velrot\"\>"], "Print",
 CellChangeTimes->{
  3.600970693900543*^9, {3.6009721558010387`*^9, 3.6009721654117117`*^9}, 
   3.600972311243392*^9, 3.600972511309988*^9}],

Cell[BoxData["1718.9`"], "Output",
 CellChangeTimes->{
  3.5612208196059523`*^9, {3.561222612432521*^9, 3.561222631951065*^9}, {
   3.5612228270909758`*^9, 3.5612228736936827`*^9}, {3.561222930223618*^9, 
   3.5612229451151752`*^9}, {3.561223021458239*^9, 3.56122306176481*^9}, {
   3.561223099984601*^9, 3.561223117127277*^9}, {3.5612234125708427`*^9, 
   3.56122346894678*^9}, {3.5612235550032883`*^9, 3.561223628821888*^9}, 
   3.561223799118546*^9, 3.5612273907582273`*^9, {3.561231291870152*^9, 
   3.5612313734637814`*^9}, {3.561231420398234*^9, 3.561231424995761*^9}, 
   3.561231459803872*^9, 3.5612315395116043`*^9, 3.561231582506114*^9, {
   3.561231616929113*^9, 3.561231640450386*^9}, {3.5612316800948153`*^9, 
   3.561231695758181*^9}, {3.5612318708632383`*^9, 3.5612319071727877`*^9}, {
   3.561231939903652*^9, 3.56123194710754*^9}, {3.5612320178490543`*^9, 
   3.561232110007884*^9}, {3.56123215725169*^9, 3.561232184746785*^9}, {
   3.561232293417647*^9, 3.561232298333548*^9}, {3.5612324525968437`*^9, 
   3.5612324588647213`*^9}, {3.561232508664425*^9, 3.56123251632878*^9}, {
   3.5612325847494383`*^9, 3.561232611667322*^9}, {3.561233249100947*^9, 
   3.5612332779144287`*^9}, {3.561233375425716*^9, 3.56123340218637*^9}, 
   3.561233454807582*^9, {3.561233536058002*^9, 3.561233559995323*^9}, 
   3.561233592633698*^9, 3.5612336268053923`*^9, {3.561233681648128*^9, 
   3.5612336893523703`*^9}, {3.5612337484055147`*^9, 3.561233754198634*^9}, {
   3.5612341922874203`*^9, 3.561234236761042*^9}, {3.561399972872004*^9, 
   3.561400176857298*^9}, {3.56140025553726*^9, 3.561400279503008*^9}, 
   3.561474012725993*^9, {3.5614741783793917`*^9, 3.5614742217009907`*^9}, {
   3.561474354868078*^9, 3.561474387877955*^9}, {3.561474426391082*^9, 
   3.5614744395808077`*^9}, 3.5614745968034897`*^9, 3.561474816032145*^9, 
   3.561474850999455*^9, 3.561474982996714*^9, {3.5614750187915497`*^9, 
   3.561475042656907*^9}, {3.561475100836113*^9, 3.561475107847013*^9}, {
   3.5614751927714233`*^9, 3.56147522545828*^9}, {3.561475277099903*^9, 
   3.5614752938047457`*^9}, {3.561475408025585*^9, 3.5614755581090918`*^9}, 
   3.56147560525762*^9, {3.561475682737368*^9, 3.561475690909647*^9}, {
   3.561475721961776*^9, 3.561475734348296*^9}, 3.56147579964157*^9, {
   3.561482021635995*^9, 3.56148202876504*^9}, 3.561496422864829*^9, 
   3.5614974009072723`*^9, 3.561497449121092*^9, 3.600970693888254*^9, {
   3.600972155787675*^9, 3.600972165407811*^9}, 3.6009723112393427`*^9, 
   3.600972511310542*^9}],

Cell[BoxData["254.3`"], "Output",
 CellChangeTimes->{
  3.5612208196059523`*^9, {3.561222612432521*^9, 3.561222631951065*^9}, {
   3.5612228270909758`*^9, 3.5612228736936827`*^9}, {3.561222930223618*^9, 
   3.5612229451151752`*^9}, {3.561223021458239*^9, 3.56122306176481*^9}, {
   3.561223099984601*^9, 3.561223117127277*^9}, {3.5612234125708427`*^9, 
   3.56122346894678*^9}, {3.5612235550032883`*^9, 3.561223628821888*^9}, 
   3.561223799118546*^9, 3.5612273907582273`*^9, {3.561231291870152*^9, 
   3.5612313734637814`*^9}, {3.561231420398234*^9, 3.561231424995761*^9}, 
   3.561231459803872*^9, 3.5612315395116043`*^9, 3.561231582506114*^9, {
   3.561231616929113*^9, 3.561231640450386*^9}, {3.5612316800948153`*^9, 
   3.561231695758181*^9}, {3.5612318708632383`*^9, 3.5612319071727877`*^9}, {
   3.561231939903652*^9, 3.56123194710754*^9}, {3.5612320178490543`*^9, 
   3.561232110007884*^9}, {3.56123215725169*^9, 3.561232184746785*^9}, {
   3.561232293417647*^9, 3.561232298333548*^9}, {3.5612324525968437`*^9, 
   3.5612324588647213`*^9}, {3.561232508664425*^9, 3.56123251632878*^9}, {
   3.5612325847494383`*^9, 3.561232611667322*^9}, {3.561233249100947*^9, 
   3.5612332779144287`*^9}, {3.561233375425716*^9, 3.56123340218637*^9}, 
   3.561233454807582*^9, {3.561233536058002*^9, 3.561233559995323*^9}, 
   3.561233592633698*^9, 3.5612336268053923`*^9, {3.561233681648128*^9, 
   3.5612336893523703`*^9}, {3.5612337484055147`*^9, 3.561233754198634*^9}, {
   3.5612341922874203`*^9, 3.561234236761042*^9}, {3.561399972872004*^9, 
   3.561400176857298*^9}, {3.56140025553726*^9, 3.561400279503008*^9}, 
   3.561474012725993*^9, {3.5614741783793917`*^9, 3.5614742217009907`*^9}, {
   3.561474354868078*^9, 3.561474387877955*^9}, {3.561474426391082*^9, 
   3.5614744395808077`*^9}, 3.5614745968034897`*^9, 3.561474816032145*^9, 
   3.561474850999455*^9, 3.561474982996714*^9, {3.5614750187915497`*^9, 
   3.561475042656907*^9}, {3.561475100836113*^9, 3.561475107847013*^9}, {
   3.5614751927714233`*^9, 3.56147522545828*^9}, {3.561475277099903*^9, 
   3.5614752938047457`*^9}, {3.561475408025585*^9, 3.5614755581090918`*^9}, 
   3.56147560525762*^9, {3.561475682737368*^9, 3.561475690909647*^9}, {
   3.561475721961776*^9, 3.561475734348296*^9}, 3.56147579964157*^9, {
   3.561482021635995*^9, 3.56148202876504*^9}, 3.561496422864829*^9, 
   3.5614974009072723`*^9, 3.561497449121092*^9, 3.600970693888254*^9, {
   3.600972155787675*^9, 3.600972165407811*^9}, 3.6009723112393427`*^9, 
   3.600972511311308*^9}],

Cell[BoxData["\<\"radius sun\"\>"], "Print",
 CellChangeTimes->{
  3.600970693900543*^9, {3.6009721558010387`*^9, 3.6009721654117117`*^9}, 
   3.600972311243392*^9, 3.600972511312079*^9}],

Cell[BoxData["6.352931990309901`*^8"], "Output",
 CellChangeTimes->{
  3.5612208196059523`*^9, {3.561222612432521*^9, 3.561222631951065*^9}, {
   3.5612228270909758`*^9, 3.5612228736936827`*^9}, {3.561222930223618*^9, 
   3.5612229451151752`*^9}, {3.561223021458239*^9, 3.56122306176481*^9}, {
   3.561223099984601*^9, 3.561223117127277*^9}, {3.5612234125708427`*^9, 
   3.56122346894678*^9}, {3.5612235550032883`*^9, 3.561223628821888*^9}, 
   3.561223799118546*^9, 3.5612273907582273`*^9, {3.561231291870152*^9, 
   3.5612313734637814`*^9}, {3.561231420398234*^9, 3.561231424995761*^9}, 
   3.561231459803872*^9, 3.5612315395116043`*^9, 3.561231582506114*^9, {
   3.561231616929113*^9, 3.561231640450386*^9}, {3.5612316800948153`*^9, 
   3.561231695758181*^9}, {3.5612318708632383`*^9, 3.5612319071727877`*^9}, {
   3.561231939903652*^9, 3.56123194710754*^9}, {3.5612320178490543`*^9, 
   3.561232110007884*^9}, {3.56123215725169*^9, 3.561232184746785*^9}, {
   3.561232293417647*^9, 3.561232298333548*^9}, {3.5612324525968437`*^9, 
   3.5612324588647213`*^9}, {3.561232508664425*^9, 3.56123251632878*^9}, {
   3.5612325847494383`*^9, 3.561232611667322*^9}, {3.561233249100947*^9, 
   3.5612332779144287`*^9}, {3.561233375425716*^9, 3.56123340218637*^9}, 
   3.561233454807582*^9, {3.561233536058002*^9, 3.561233559995323*^9}, 
   3.561233592633698*^9, 3.5612336268053923`*^9, {3.561233681648128*^9, 
   3.5612336893523703`*^9}, {3.5612337484055147`*^9, 3.561233754198634*^9}, {
   3.5612341922874203`*^9, 3.561234236761042*^9}, {3.561399972872004*^9, 
   3.561400176857298*^9}, {3.56140025553726*^9, 3.561400279503008*^9}, 
   3.561474012725993*^9, {3.5614741783793917`*^9, 3.5614742217009907`*^9}, {
   3.561474354868078*^9, 3.561474387877955*^9}, {3.561474426391082*^9, 
   3.5614744395808077`*^9}, 3.5614745968034897`*^9, 3.561474816032145*^9, 
   3.561474850999455*^9, 3.561474982996714*^9, {3.5614750187915497`*^9, 
   3.561475042656907*^9}, {3.561475100836113*^9, 3.561475107847013*^9}, {
   3.5614751927714233`*^9, 3.56147522545828*^9}, {3.561475277099903*^9, 
   3.5614752938047457`*^9}, {3.561475408025585*^9, 3.5614755581090918`*^9}, 
   3.56147560525762*^9, {3.561475682737368*^9, 3.561475690909647*^9}, {
   3.561475721961776*^9, 3.561475734348296*^9}, 3.56147579964157*^9, {
   3.561482021635995*^9, 3.56148202876504*^9}, 3.561496422864829*^9, 
   3.5614974009072723`*^9, 3.561497449121092*^9, 3.600970693888254*^9, {
   3.600972155787675*^9, 3.600972165407811*^9}, 3.6009723112393427`*^9, 
   3.6009725113126583`*^9}],

Cell[BoxData["9.691404364711219`*^7"], "Output",
 CellChangeTimes->{
  3.5612208196059523`*^9, {3.561222612432521*^9, 3.561222631951065*^9}, {
   3.5612228270909758`*^9, 3.5612228736936827`*^9}, {3.561222930223618*^9, 
   3.5612229451151752`*^9}, {3.561223021458239*^9, 3.56122306176481*^9}, {
   3.561223099984601*^9, 3.561223117127277*^9}, {3.5612234125708427`*^9, 
   3.56122346894678*^9}, {3.5612235550032883`*^9, 3.561223628821888*^9}, 
   3.561223799118546*^9, 3.5612273907582273`*^9, {3.561231291870152*^9, 
   3.5612313734637814`*^9}, {3.561231420398234*^9, 3.561231424995761*^9}, 
   3.561231459803872*^9, 3.5612315395116043`*^9, 3.561231582506114*^9, {
   3.561231616929113*^9, 3.561231640450386*^9}, {3.5612316800948153`*^9, 
   3.561231695758181*^9}, {3.5612318708632383`*^9, 3.5612319071727877`*^9}, {
   3.561231939903652*^9, 3.56123194710754*^9}, {3.5612320178490543`*^9, 
   3.561232110007884*^9}, {3.56123215725169*^9, 3.561232184746785*^9}, {
   3.561232293417647*^9, 3.561232298333548*^9}, {3.5612324525968437`*^9, 
   3.5612324588647213`*^9}, {3.561232508664425*^9, 3.56123251632878*^9}, {
   3.5612325847494383`*^9, 3.561232611667322*^9}, {3.561233249100947*^9, 
   3.5612332779144287`*^9}, {3.561233375425716*^9, 3.56123340218637*^9}, 
   3.561233454807582*^9, {3.561233536058002*^9, 3.561233559995323*^9}, 
   3.561233592633698*^9, 3.5612336268053923`*^9, {3.561233681648128*^9, 
   3.5612336893523703`*^9}, {3.5612337484055147`*^9, 3.561233754198634*^9}, {
   3.5612341922874203`*^9, 3.561234236761042*^9}, {3.561399972872004*^9, 
   3.561400176857298*^9}, {3.56140025553726*^9, 3.561400279503008*^9}, 
   3.561474012725993*^9, {3.5614741783793917`*^9, 3.5614742217009907`*^9}, {
   3.561474354868078*^9, 3.561474387877955*^9}, {3.561474426391082*^9, 
   3.5614744395808077`*^9}, 3.5614745968034897`*^9, 3.561474816032145*^9, 
   3.561474850999455*^9, 3.561474982996714*^9, {3.5614750187915497`*^9, 
   3.561475042656907*^9}, {3.561475100836113*^9, 3.561475107847013*^9}, {
   3.5614751927714233`*^9, 3.56147522545828*^9}, {3.561475277099903*^9, 
   3.5614752938047457`*^9}, {3.561475408025585*^9, 3.5614755581090918`*^9}, 
   3.56147560525762*^9, {3.561475682737368*^9, 3.561475690909647*^9}, {
   3.561475721961776*^9, 3.561475734348296*^9}, 3.56147579964157*^9, {
   3.561482021635995*^9, 3.56148202876504*^9}, 3.561496422864829*^9, 
   3.5614974009072723`*^9, 3.561497449121092*^9, 3.600970693888254*^9, {
   3.600972155787675*^9, 3.600972165407811*^9}, 3.6009723112393427`*^9, 
   3.600972511313748*^9}],

Cell[BoxData["\<\"angular diameter\"\>"], "Print",
 CellChangeTimes->{
  3.600970693900543*^9, {3.6009721558010387`*^9, 3.6009721654117117`*^9}, 
   3.600972311243392*^9, 3.6009725113148823`*^9}],

Cell[BoxData["0.009540406023714004`"], "Output",
 CellChangeTimes->{
  3.5612208196059523`*^9, {3.561222612432521*^9, 3.561222631951065*^9}, {
   3.5612228270909758`*^9, 3.5612228736936827`*^9}, {3.561222930223618*^9, 
   3.5612229451151752`*^9}, {3.561223021458239*^9, 3.56122306176481*^9}, {
   3.561223099984601*^9, 3.561223117127277*^9}, {3.5612234125708427`*^9, 
   3.56122346894678*^9}, {3.5612235550032883`*^9, 3.561223628821888*^9}, 
   3.561223799118546*^9, 3.5612273907582273`*^9, {3.561231291870152*^9, 
   3.5612313734637814`*^9}, {3.561231420398234*^9, 3.561231424995761*^9}, 
   3.561231459803872*^9, 3.5612315395116043`*^9, 3.561231582506114*^9, {
   3.561231616929113*^9, 3.561231640450386*^9}, {3.5612316800948153`*^9, 
   3.561231695758181*^9}, {3.5612318708632383`*^9, 3.5612319071727877`*^9}, {
   3.561231939903652*^9, 3.56123194710754*^9}, {3.5612320178490543`*^9, 
   3.561232110007884*^9}, {3.56123215725169*^9, 3.561232184746785*^9}, {
   3.561232293417647*^9, 3.561232298333548*^9}, {3.5612324525968437`*^9, 
   3.5612324588647213`*^9}, {3.561232508664425*^9, 3.56123251632878*^9}, {
   3.5612325847494383`*^9, 3.561232611667322*^9}, {3.561233249100947*^9, 
   3.5612332779144287`*^9}, {3.561233375425716*^9, 3.56123340218637*^9}, 
   3.561233454807582*^9, {3.561233536058002*^9, 3.561233559995323*^9}, 
   3.561233592633698*^9, 3.5612336268053923`*^9, {3.561233681648128*^9, 
   3.5612336893523703`*^9}, {3.5612337484055147`*^9, 3.561233754198634*^9}, {
   3.5612341922874203`*^9, 3.561234236761042*^9}, {3.561399972872004*^9, 
   3.561400176857298*^9}, {3.56140025553726*^9, 3.561400279503008*^9}, 
   3.561474012725993*^9, {3.5614741783793917`*^9, 3.5614742217009907`*^9}, {
   3.561474354868078*^9, 3.561474387877955*^9}, {3.561474426391082*^9, 
   3.5614744395808077`*^9}, 3.5614745968034897`*^9, 3.561474816032145*^9, 
   3.561474850999455*^9, 3.561474982996714*^9, {3.5614750187915497`*^9, 
   3.561475042656907*^9}, {3.561475100836113*^9, 3.561475107847013*^9}, {
   3.5614751927714233`*^9, 3.56147522545828*^9}, {3.561475277099903*^9, 
   3.5614752938047457`*^9}, {3.561475408025585*^9, 3.5614755581090918`*^9}, 
   3.56147560525762*^9, {3.561475682737368*^9, 3.561475690909647*^9}, {
   3.561475721961776*^9, 3.561475734348296*^9}, 3.56147579964157*^9, {
   3.561482021635995*^9, 3.56148202876504*^9}, 3.561496422864829*^9, 
   3.5614974009072723`*^9, 3.561497449121092*^9, 3.600970693888254*^9, {
   3.600972155787675*^9, 3.600972165407811*^9}, 3.6009723112393427`*^9, 
   3.60097251131564*^9}],

Cell[BoxData["0.0008290313946973066`"], "Output",
 CellChangeTimes->{
  3.5612208196059523`*^9, {3.561222612432521*^9, 3.561222631951065*^9}, {
   3.5612228270909758`*^9, 3.5612228736936827`*^9}, {3.561222930223618*^9, 
   3.5612229451151752`*^9}, {3.561223021458239*^9, 3.56122306176481*^9}, {
   3.561223099984601*^9, 3.561223117127277*^9}, {3.5612234125708427`*^9, 
   3.56122346894678*^9}, {3.5612235550032883`*^9, 3.561223628821888*^9}, 
   3.561223799118546*^9, 3.5612273907582273`*^9, {3.561231291870152*^9, 
   3.5612313734637814`*^9}, {3.561231420398234*^9, 3.561231424995761*^9}, 
   3.561231459803872*^9, 3.5612315395116043`*^9, 3.561231582506114*^9, {
   3.561231616929113*^9, 3.561231640450386*^9}, {3.5612316800948153`*^9, 
   3.561231695758181*^9}, {3.5612318708632383`*^9, 3.5612319071727877`*^9}, {
   3.561231939903652*^9, 3.56123194710754*^9}, {3.5612320178490543`*^9, 
   3.561232110007884*^9}, {3.56123215725169*^9, 3.561232184746785*^9}, {
   3.561232293417647*^9, 3.561232298333548*^9}, {3.5612324525968437`*^9, 
   3.5612324588647213`*^9}, {3.561232508664425*^9, 3.56123251632878*^9}, {
   3.5612325847494383`*^9, 3.561232611667322*^9}, {3.561233249100947*^9, 
   3.5612332779144287`*^9}, {3.561233375425716*^9, 3.56123340218637*^9}, 
   3.561233454807582*^9, {3.561233536058002*^9, 3.561233559995323*^9}, 
   3.561233592633698*^9, 3.5612336268053923`*^9, {3.561233681648128*^9, 
   3.5612336893523703`*^9}, {3.5612337484055147`*^9, 3.561233754198634*^9}, {
   3.5612341922874203`*^9, 3.561234236761042*^9}, {3.561399972872004*^9, 
   3.561400176857298*^9}, {3.56140025553726*^9, 3.561400279503008*^9}, 
   3.561474012725993*^9, {3.5614741783793917`*^9, 3.5614742217009907`*^9}, {
   3.561474354868078*^9, 3.561474387877955*^9}, {3.561474426391082*^9, 
   3.5614744395808077`*^9}, 3.5614745968034897`*^9, 3.561474816032145*^9, 
   3.561474850999455*^9, 3.561474982996714*^9, {3.5614750187915497`*^9, 
   3.561475042656907*^9}, {3.561475100836113*^9, 3.561475107847013*^9}, {
   3.5614751927714233`*^9, 3.56147522545828*^9}, {3.561475277099903*^9, 
   3.5614752938047457`*^9}, {3.561475408025585*^9, 3.5614755581090918`*^9}, 
   3.56147560525762*^9, {3.561475682737368*^9, 3.561475690909647*^9}, {
   3.561475721961776*^9, 3.561475734348296*^9}, 3.56147579964157*^9, {
   3.561482021635995*^9, 3.56148202876504*^9}, 3.561496422864829*^9, 
   3.5614974009072723`*^9, 3.561497449121092*^9, 3.600970693888254*^9, {
   3.600972155787675*^9, 3.600972165407811*^9}, 3.6009723112393427`*^9, 
   3.6009725113164377`*^9}],

Cell[BoxData["\<\"D 2 Sun\"\>"], "Print",
 CellChangeTimes->{
  3.600970693900543*^9, {3.6009721558010387`*^9, 3.6009721654117117`*^9}, 
   3.600972311243392*^9, 3.6009725113171873`*^9}],

Cell[BoxData["1.3317948889216678`*^11"], "Output",
 CellChangeTimes->{
  3.5612208196059523`*^9, {3.561222612432521*^9, 3.561222631951065*^9}, {
   3.5612228270909758`*^9, 3.5612228736936827`*^9}, {3.561222930223618*^9, 
   3.5612229451151752`*^9}, {3.561223021458239*^9, 3.56122306176481*^9}, {
   3.561223099984601*^9, 3.561223117127277*^9}, {3.5612234125708427`*^9, 
   3.56122346894678*^9}, {3.5612235550032883`*^9, 3.561223628821888*^9}, 
   3.561223799118546*^9, 3.5612273907582273`*^9, {3.561231291870152*^9, 
   3.5612313734637814`*^9}, {3.561231420398234*^9, 3.561231424995761*^9}, 
   3.561231459803872*^9, 3.5612315395116043`*^9, 3.561231582506114*^9, {
   3.561231616929113*^9, 3.561231640450386*^9}, {3.5612316800948153`*^9, 
   3.561231695758181*^9}, {3.5612318708632383`*^9, 3.5612319071727877`*^9}, {
   3.561231939903652*^9, 3.56123194710754*^9}, {3.5612320178490543`*^9, 
   3.561232110007884*^9}, {3.56123215725169*^9, 3.561232184746785*^9}, {
   3.561232293417647*^9, 3.561232298333548*^9}, {3.5612324525968437`*^9, 
   3.5612324588647213`*^9}, {3.561232508664425*^9, 3.56123251632878*^9}, {
   3.5612325847494383`*^9, 3.561232611667322*^9}, {3.561233249100947*^9, 
   3.5612332779144287`*^9}, {3.561233375425716*^9, 3.56123340218637*^9}, 
   3.561233454807582*^9, {3.561233536058002*^9, 3.561233559995323*^9}, 
   3.561233592633698*^9, 3.5612336268053923`*^9, {3.561233681648128*^9, 
   3.5612336893523703`*^9}, {3.5612337484055147`*^9, 3.561233754198634*^9}, {
   3.5612341922874203`*^9, 3.561234236761042*^9}, {3.561399972872004*^9, 
   3.561400176857298*^9}, {3.56140025553726*^9, 3.561400279503008*^9}, 
   3.561474012725993*^9, {3.5614741783793917`*^9, 3.5614742217009907`*^9}, {
   3.561474354868078*^9, 3.561474387877955*^9}, {3.561474426391082*^9, 
   3.5614744395808077`*^9}, 3.5614745968034897`*^9, 3.561474816032145*^9, 
   3.561474850999455*^9, 3.561474982996714*^9, {3.5614750187915497`*^9, 
   3.561475042656907*^9}, {3.561475100836113*^9, 3.561475107847013*^9}, {
   3.5614751927714233`*^9, 3.56147522545828*^9}, {3.561475277099903*^9, 
   3.5614752938047457`*^9}, {3.561475408025585*^9, 3.5614755581090918`*^9}, 
   3.56147560525762*^9, {3.561475682737368*^9, 3.561475690909647*^9}, {
   3.561475721961776*^9, 3.561475734348296*^9}, 3.56147579964157*^9, {
   3.561482021635995*^9, 3.56148202876504*^9}, 3.561496422864829*^9, 
   3.5614974009072723`*^9, 3.561497449121092*^9, 3.600970693888254*^9, {
   3.600972155787675*^9, 3.600972165407811*^9}, 3.6009723112393427`*^9, 
   3.60097251131773*^9}],

Cell[BoxData["2.338147891168684`*^10"], "Output",
 CellChangeTimes->{
  3.5612208196059523`*^9, {3.561222612432521*^9, 3.561222631951065*^9}, {
   3.5612228270909758`*^9, 3.5612228736936827`*^9}, {3.561222930223618*^9, 
   3.5612229451151752`*^9}, {3.561223021458239*^9, 3.56122306176481*^9}, {
   3.561223099984601*^9, 3.561223117127277*^9}, {3.5612234125708427`*^9, 
   3.56122346894678*^9}, {3.5612235550032883`*^9, 3.561223628821888*^9}, 
   3.561223799118546*^9, 3.5612273907582273`*^9, {3.561231291870152*^9, 
   3.5612313734637814`*^9}, {3.561231420398234*^9, 3.561231424995761*^9}, 
   3.561231459803872*^9, 3.5612315395116043`*^9, 3.561231582506114*^9, {
   3.561231616929113*^9, 3.561231640450386*^9}, {3.5612316800948153`*^9, 
   3.561231695758181*^9}, {3.5612318708632383`*^9, 3.5612319071727877`*^9}, {
   3.561231939903652*^9, 3.56123194710754*^9}, {3.5612320178490543`*^9, 
   3.561232110007884*^9}, {3.56123215725169*^9, 3.561232184746785*^9}, {
   3.561232293417647*^9, 3.561232298333548*^9}, {3.5612324525968437`*^9, 
   3.5612324588647213`*^9}, {3.561232508664425*^9, 3.56123251632878*^9}, {
   3.5612325847494383`*^9, 3.561232611667322*^9}, {3.561233249100947*^9, 
   3.5612332779144287`*^9}, {3.561233375425716*^9, 3.56123340218637*^9}, 
   3.561233454807582*^9, {3.561233536058002*^9, 3.561233559995323*^9}, 
   3.561233592633698*^9, 3.5612336268053923`*^9, {3.561233681648128*^9, 
   3.5612336893523703`*^9}, {3.5612337484055147`*^9, 3.561233754198634*^9}, {
   3.5612341922874203`*^9, 3.561234236761042*^9}, {3.561399972872004*^9, 
   3.561400176857298*^9}, {3.56140025553726*^9, 3.561400279503008*^9}, 
   3.561474012725993*^9, {3.5614741783793917`*^9, 3.5614742217009907`*^9}, {
   3.561474354868078*^9, 3.561474387877955*^9}, {3.561474426391082*^9, 
   3.5614744395808077`*^9}, 3.5614745968034897`*^9, 3.561474816032145*^9, 
   3.561474850999455*^9, 3.561474982996714*^9, {3.5614750187915497`*^9, 
   3.561475042656907*^9}, {3.561475100836113*^9, 3.561475107847013*^9}, {
   3.5614751927714233`*^9, 3.56147522545828*^9}, {3.561475277099903*^9, 
   3.5614752938047457`*^9}, {3.561475408025585*^9, 3.5614755581090918`*^9}, 
   3.56147560525762*^9, {3.561475682737368*^9, 3.561475690909647*^9}, {
   3.561475721961776*^9, 3.561475734348296*^9}, 3.56147579964157*^9, {
   3.561482021635995*^9, 3.56148202876504*^9}, 3.561496422864829*^9, 
   3.5614974009072723`*^9, 3.561497449121092*^9, 3.600970693888254*^9, {
   3.600972155787675*^9, 3.600972165407811*^9}, 3.6009723112393427`*^9, 
   3.600972511318515*^9}],

Cell[BoxData["\<\"Earth velocity\"\>"], "Print",
 CellChangeTimes->{
  3.600970693900543*^9, {3.6009721558010387`*^9, 3.6009721654117117`*^9}, 
   3.600972311243392*^9, 3.6009725113192596`*^9}],

Cell[BoxData["26516.319613181902`"], "Output",
 CellChangeTimes->{
  3.5612208196059523`*^9, {3.561222612432521*^9, 3.561222631951065*^9}, {
   3.5612228270909758`*^9, 3.5612228736936827`*^9}, {3.561222930223618*^9, 
   3.5612229451151752`*^9}, {3.561223021458239*^9, 3.56122306176481*^9}, {
   3.561223099984601*^9, 3.561223117127277*^9}, {3.5612234125708427`*^9, 
   3.56122346894678*^9}, {3.5612235550032883`*^9, 3.561223628821888*^9}, 
   3.561223799118546*^9, 3.5612273907582273`*^9, {3.561231291870152*^9, 
   3.5612313734637814`*^9}, {3.561231420398234*^9, 3.561231424995761*^9}, 
   3.561231459803872*^9, 3.5612315395116043`*^9, 3.561231582506114*^9, {
   3.561231616929113*^9, 3.561231640450386*^9}, {3.5612316800948153`*^9, 
   3.561231695758181*^9}, {3.5612318708632383`*^9, 3.5612319071727877`*^9}, {
   3.561231939903652*^9, 3.56123194710754*^9}, {3.5612320178490543`*^9, 
   3.561232110007884*^9}, {3.56123215725169*^9, 3.561232184746785*^9}, {
   3.561232293417647*^9, 3.561232298333548*^9}, {3.5612324525968437`*^9, 
   3.5612324588647213`*^9}, {3.561232508664425*^9, 3.56123251632878*^9}, {
   3.5612325847494383`*^9, 3.561232611667322*^9}, {3.561233249100947*^9, 
   3.5612332779144287`*^9}, {3.561233375425716*^9, 3.56123340218637*^9}, 
   3.561233454807582*^9, {3.561233536058002*^9, 3.561233559995323*^9}, 
   3.561233592633698*^9, 3.5612336268053923`*^9, {3.561233681648128*^9, 
   3.5612336893523703`*^9}, {3.5612337484055147`*^9, 3.561233754198634*^9}, {
   3.5612341922874203`*^9, 3.561234236761042*^9}, {3.561399972872004*^9, 
   3.561400176857298*^9}, {3.56140025553726*^9, 3.561400279503008*^9}, 
   3.561474012725993*^9, {3.5614741783793917`*^9, 3.5614742217009907`*^9}, {
   3.561474354868078*^9, 3.561474387877955*^9}, {3.561474426391082*^9, 
   3.5614744395808077`*^9}, 3.5614745968034897`*^9, 3.561474816032145*^9, 
   3.561474850999455*^9, 3.561474982996714*^9, {3.5614750187915497`*^9, 
   3.561475042656907*^9}, {3.561475100836113*^9, 3.561475107847013*^9}, {
   3.5614751927714233`*^9, 3.56147522545828*^9}, {3.561475277099903*^9, 
   3.5614752938047457`*^9}, {3.561475408025585*^9, 3.5614755581090918`*^9}, 
   3.56147560525762*^9, {3.561475682737368*^9, 3.561475690909647*^9}, {
   3.561475721961776*^9, 3.561475734348296*^9}, 3.56147579964157*^9, {
   3.561482021635995*^9, 3.56148202876504*^9}, 3.561496422864829*^9, 
   3.5614974009072723`*^9, 3.561497449121092*^9, 3.600970693888254*^9, {
   3.600972155787675*^9, 3.600972165407811*^9}, 3.6009723112393427`*^9, 
   3.600972511319788*^9}],

Cell[BoxData["4655.302201626236`"], "Output",
 CellChangeTimes->{
  3.5612208196059523`*^9, {3.561222612432521*^9, 3.561222631951065*^9}, {
   3.5612228270909758`*^9, 3.5612228736936827`*^9}, {3.561222930223618*^9, 
   3.5612229451151752`*^9}, {3.561223021458239*^9, 3.56122306176481*^9}, {
   3.561223099984601*^9, 3.561223117127277*^9}, {3.5612234125708427`*^9, 
   3.56122346894678*^9}, {3.5612235550032883`*^9, 3.561223628821888*^9}, 
   3.561223799118546*^9, 3.5612273907582273`*^9, {3.561231291870152*^9, 
   3.5612313734637814`*^9}, {3.561231420398234*^9, 3.561231424995761*^9}, 
   3.561231459803872*^9, 3.5612315395116043`*^9, 3.561231582506114*^9, {
   3.561231616929113*^9, 3.561231640450386*^9}, {3.5612316800948153`*^9, 
   3.561231695758181*^9}, {3.5612318708632383`*^9, 3.5612319071727877`*^9}, {
   3.561231939903652*^9, 3.56123194710754*^9}, {3.5612320178490543`*^9, 
   3.561232110007884*^9}, {3.56123215725169*^9, 3.561232184746785*^9}, {
   3.561232293417647*^9, 3.561232298333548*^9}, {3.5612324525968437`*^9, 
   3.5612324588647213`*^9}, {3.561232508664425*^9, 3.56123251632878*^9}, {
   3.5612325847494383`*^9, 3.561232611667322*^9}, {3.561233249100947*^9, 
   3.5612332779144287`*^9}, {3.561233375425716*^9, 3.56123340218637*^9}, 
   3.561233454807582*^9, {3.561233536058002*^9, 3.561233559995323*^9}, 
   3.561233592633698*^9, 3.5612336268053923`*^9, {3.561233681648128*^9, 
   3.5612336893523703`*^9}, {3.5612337484055147`*^9, 3.561233754198634*^9}, {
   3.5612341922874203`*^9, 3.561234236761042*^9}, {3.561399972872004*^9, 
   3.561400176857298*^9}, {3.56140025553726*^9, 3.561400279503008*^9}, 
   3.561474012725993*^9, {3.5614741783793917`*^9, 3.5614742217009907`*^9}, {
   3.561474354868078*^9, 3.561474387877955*^9}, {3.561474426391082*^9, 
   3.5614744395808077`*^9}, 3.5614745968034897`*^9, 3.561474816032145*^9, 
   3.561474850999455*^9, 3.561474982996714*^9, {3.5614750187915497`*^9, 
   3.561475042656907*^9}, {3.561475100836113*^9, 3.561475107847013*^9}, {
   3.5614751927714233`*^9, 3.56147522545828*^9}, {3.561475277099903*^9, 
   3.5614752938047457`*^9}, {3.561475408025585*^9, 3.5614755581090918`*^9}, 
   3.56147560525762*^9, {3.561475682737368*^9, 3.561475690909647*^9}, {
   3.561475721961776*^9, 3.561475734348296*^9}, 3.56147579964157*^9, {
   3.561482021635995*^9, 3.56148202876504*^9}, 3.561496422864829*^9, 
   3.5614974009072723`*^9, 3.561497449121092*^9, 3.600970693888254*^9, {
   3.600972155787675*^9, 3.600972165407811*^9}, 3.6009723112393427`*^9, 
   3.600972511320517*^9}],

Cell[BoxData["\<\"Msun\"\>"], "Print",
 CellChangeTimes->{
  3.600970693900543*^9, {3.6009721558010387`*^9, 3.6009721654117117`*^9}, 
   3.600972311243392*^9, 3.600972511321273*^9}],

Cell[BoxData["1.4032747451601827`*^30"], "Output",
 CellChangeTimes->{
  3.5612208196059523`*^9, {3.561222612432521*^9, 3.561222631951065*^9}, {
   3.5612228270909758`*^9, 3.5612228736936827`*^9}, {3.561222930223618*^9, 
   3.5612229451151752`*^9}, {3.561223021458239*^9, 3.56122306176481*^9}, {
   3.561223099984601*^9, 3.561223117127277*^9}, {3.5612234125708427`*^9, 
   3.56122346894678*^9}, {3.5612235550032883`*^9, 3.561223628821888*^9}, 
   3.561223799118546*^9, 3.5612273907582273`*^9, {3.561231291870152*^9, 
   3.5612313734637814`*^9}, {3.561231420398234*^9, 3.561231424995761*^9}, 
   3.561231459803872*^9, 3.5612315395116043`*^9, 3.561231582506114*^9, {
   3.561231616929113*^9, 3.561231640450386*^9}, {3.5612316800948153`*^9, 
   3.561231695758181*^9}, {3.5612318708632383`*^9, 3.5612319071727877`*^9}, {
   3.561231939903652*^9, 3.56123194710754*^9}, {3.5612320178490543`*^9, 
   3.561232110007884*^9}, {3.56123215725169*^9, 3.561232184746785*^9}, {
   3.561232293417647*^9, 3.561232298333548*^9}, {3.5612324525968437`*^9, 
   3.5612324588647213`*^9}, {3.561232508664425*^9, 3.56123251632878*^9}, {
   3.5612325847494383`*^9, 3.561232611667322*^9}, {3.561233249100947*^9, 
   3.5612332779144287`*^9}, {3.561233375425716*^9, 3.56123340218637*^9}, 
   3.561233454807582*^9, {3.561233536058002*^9, 3.561233559995323*^9}, 
   3.561233592633698*^9, 3.5612336268053923`*^9, {3.561233681648128*^9, 
   3.5612336893523703`*^9}, {3.5612337484055147`*^9, 3.561233754198634*^9}, {
   3.5612341922874203`*^9, 3.561234236761042*^9}, {3.561399972872004*^9, 
   3.561400176857298*^9}, {3.56140025553726*^9, 3.561400279503008*^9}, 
   3.561474012725993*^9, {3.5614741783793917`*^9, 3.5614742217009907`*^9}, {
   3.561474354868078*^9, 3.561474387877955*^9}, {3.561474426391082*^9, 
   3.5614744395808077`*^9}, 3.5614745968034897`*^9, 3.561474816032145*^9, 
   3.561474850999455*^9, 3.561474982996714*^9, {3.5614750187915497`*^9, 
   3.561475042656907*^9}, {3.561475100836113*^9, 3.561475107847013*^9}, {
   3.5614751927714233`*^9, 3.56147522545828*^9}, {3.561475277099903*^9, 
   3.5614752938047457`*^9}, {3.561475408025585*^9, 3.5614755581090918`*^9}, 
   3.56147560525762*^9, {3.561475682737368*^9, 3.561475690909647*^9}, {
   3.561475721961776*^9, 3.561475734348296*^9}, 3.56147579964157*^9, {
   3.561482021635995*^9, 3.56148202876504*^9}, 3.561496422864829*^9, 
   3.5614974009072723`*^9, 3.561497449121092*^9, 3.600970693888254*^9, {
   3.600972155787675*^9, 3.600972165407811*^9}, 3.6009723112393427`*^9, 
   3.600972511321796*^9}],

Cell[BoxData["4.267150595728732`*^29"], "Output",
 CellChangeTimes->{
  3.5612208196059523`*^9, {3.561222612432521*^9, 3.561222631951065*^9}, {
   3.5612228270909758`*^9, 3.5612228736936827`*^9}, {3.561222930223618*^9, 
   3.5612229451151752`*^9}, {3.561223021458239*^9, 3.56122306176481*^9}, {
   3.561223099984601*^9, 3.561223117127277*^9}, {3.5612234125708427`*^9, 
   3.56122346894678*^9}, {3.5612235550032883`*^9, 3.561223628821888*^9}, 
   3.561223799118546*^9, 3.5612273907582273`*^9, {3.561231291870152*^9, 
   3.5612313734637814`*^9}, {3.561231420398234*^9, 3.561231424995761*^9}, 
   3.561231459803872*^9, 3.5612315395116043`*^9, 3.561231582506114*^9, {
   3.561231616929113*^9, 3.561231640450386*^9}, {3.5612316800948153`*^9, 
   3.561231695758181*^9}, {3.5612318708632383`*^9, 3.5612319071727877`*^9}, {
   3.561231939903652*^9, 3.56123194710754*^9}, {3.5612320178490543`*^9, 
   3.561232110007884*^9}, {3.56123215725169*^9, 3.561232184746785*^9}, {
   3.561232293417647*^9, 3.561232298333548*^9}, {3.5612324525968437`*^9, 
   3.5612324588647213`*^9}, {3.561232508664425*^9, 3.56123251632878*^9}, {
   3.5612325847494383`*^9, 3.561232611667322*^9}, {3.561233249100947*^9, 
   3.5612332779144287`*^9}, {3.561233375425716*^9, 3.56123340218637*^9}, 
   3.561233454807582*^9, {3.561233536058002*^9, 3.561233559995323*^9}, 
   3.561233592633698*^9, 3.5612336268053923`*^9, {3.561233681648128*^9, 
   3.5612336893523703`*^9}, {3.5612337484055147`*^9, 3.561233754198634*^9}, {
   3.5612341922874203`*^9, 3.561234236761042*^9}, {3.561399972872004*^9, 
   3.561400176857298*^9}, {3.56140025553726*^9, 3.561400279503008*^9}, 
   3.561474012725993*^9, {3.5614741783793917`*^9, 3.5614742217009907`*^9}, {
   3.561474354868078*^9, 3.561474387877955*^9}, {3.561474426391082*^9, 
   3.5614744395808077`*^9}, 3.5614745968034897`*^9, 3.561474816032145*^9, 
   3.561474850999455*^9, 3.561474982996714*^9, {3.5614750187915497`*^9, 
   3.561475042656907*^9}, {3.561475100836113*^9, 3.561475107847013*^9}, {
   3.5614751927714233`*^9, 3.56147522545828*^9}, {3.561475277099903*^9, 
   3.5614752938047457`*^9}, {3.561475408025585*^9, 3.5614755581090918`*^9}, 
   3.56147560525762*^9, {3.561475682737368*^9, 3.561475690909647*^9}, {
   3.561475721961776*^9, 3.561475734348296*^9}, 3.56147579964157*^9, {
   3.561482021635995*^9, 3.56148202876504*^9}, 3.561496422864829*^9, 
   3.5614974009072723`*^9, 3.561497449121092*^9, 3.600970693888254*^9, {
   3.600972155787675*^9, 3.600972165407811*^9}, 3.6009723112393427`*^9, 
   3.600972511322568*^9}],

Cell[BoxData["0.3040851843479617`"], "Output",
 CellChangeTimes->{
  3.5612208196059523`*^9, {3.561222612432521*^9, 3.561222631951065*^9}, {
   3.5612228270909758`*^9, 3.5612228736936827`*^9}, {3.561222930223618*^9, 
   3.5612229451151752`*^9}, {3.561223021458239*^9, 3.56122306176481*^9}, {
   3.561223099984601*^9, 3.561223117127277*^9}, {3.5612234125708427`*^9, 
   3.56122346894678*^9}, {3.5612235550032883`*^9, 3.561223628821888*^9}, 
   3.561223799118546*^9, 3.5612273907582273`*^9, {3.561231291870152*^9, 
   3.5612313734637814`*^9}, {3.561231420398234*^9, 3.561231424995761*^9}, 
   3.561231459803872*^9, 3.5612315395116043`*^9, 3.561231582506114*^9, {
   3.561231616929113*^9, 3.561231640450386*^9}, {3.5612316800948153`*^9, 
   3.561231695758181*^9}, {3.5612318708632383`*^9, 3.5612319071727877`*^9}, {
   3.561231939903652*^9, 3.56123194710754*^9}, {3.5612320178490543`*^9, 
   3.561232110007884*^9}, {3.56123215725169*^9, 3.561232184746785*^9}, {
   3.561232293417647*^9, 3.561232298333548*^9}, {3.5612324525968437`*^9, 
   3.5612324588647213`*^9}, {3.561232508664425*^9, 3.56123251632878*^9}, {
   3.5612325847494383`*^9, 3.561232611667322*^9}, {3.561233249100947*^9, 
   3.5612332779144287`*^9}, {3.561233375425716*^9, 3.56123340218637*^9}, 
   3.561233454807582*^9, {3.561233536058002*^9, 3.561233559995323*^9}, 
   3.561233592633698*^9, 3.5612336268053923`*^9, {3.561233681648128*^9, 
   3.5612336893523703`*^9}, {3.5612337484055147`*^9, 3.561233754198634*^9}, {
   3.5612341922874203`*^9, 3.561234236761042*^9}, {3.561399972872004*^9, 
   3.561400176857298*^9}, {3.56140025553726*^9, 3.561400279503008*^9}, 
   3.561474012725993*^9, {3.5614741783793917`*^9, 3.5614742217009907`*^9}, {
   3.561474354868078*^9, 3.561474387877955*^9}, {3.561474426391082*^9, 
   3.5614744395808077`*^9}, 3.5614745968034897`*^9, 3.561474816032145*^9, 
   3.561474850999455*^9, 3.561474982996714*^9, {3.5614750187915497`*^9, 
   3.561475042656907*^9}, {3.561475100836113*^9, 3.561475107847013*^9}, {
   3.5614751927714233`*^9, 3.56147522545828*^9}, {3.561475277099903*^9, 
   3.5614752938047457`*^9}, {3.561475408025585*^9, 3.5614755581090918`*^9}, 
   3.56147560525762*^9, {3.561475682737368*^9, 3.561475690909647*^9}, {
   3.561475721961776*^9, 3.561475734348296*^9}, 3.56147579964157*^9, {
   3.561482021635995*^9, 3.56148202876504*^9}, 3.561496422864829*^9, 
   3.5614974009072723`*^9, 3.561497449121092*^9, 3.600970693888254*^9, {
   3.600972155787675*^9, 3.600972165407811*^9}, 3.6009723112393427`*^9, 
   3.600972511323421*^9}],

Cell[BoxData["0.2631578947368421`"], "Output",
 CellChangeTimes->{
  3.5612208196059523`*^9, {3.561222612432521*^9, 3.561222631951065*^9}, {
   3.5612228270909758`*^9, 3.5612228736936827`*^9}, {3.561222930223618*^9, 
   3.5612229451151752`*^9}, {3.561223021458239*^9, 3.56122306176481*^9}, {
   3.561223099984601*^9, 3.561223117127277*^9}, {3.5612234125708427`*^9, 
   3.56122346894678*^9}, {3.5612235550032883`*^9, 3.561223628821888*^9}, 
   3.561223799118546*^9, 3.5612273907582273`*^9, {3.561231291870152*^9, 
   3.5612313734637814`*^9}, {3.561231420398234*^9, 3.561231424995761*^9}, 
   3.561231459803872*^9, 3.5612315395116043`*^9, 3.561231582506114*^9, {
   3.561231616929113*^9, 3.561231640450386*^9}, {3.5612316800948153`*^9, 
   3.561231695758181*^9}, {3.5612318708632383`*^9, 3.5612319071727877`*^9}, {
   3.561231939903652*^9, 3.56123194710754*^9}, {3.5612320178490543`*^9, 
   3.561232110007884*^9}, {3.56123215725169*^9, 3.561232184746785*^9}, {
   3.561232293417647*^9, 3.561232298333548*^9}, {3.5612324525968437`*^9, 
   3.5612324588647213`*^9}, {3.561232508664425*^9, 3.56123251632878*^9}, {
   3.5612325847494383`*^9, 3.561232611667322*^9}, {3.561233249100947*^9, 
   3.5612332779144287`*^9}, {3.561233375425716*^9, 3.56123340218637*^9}, 
   3.561233454807582*^9, {3.561233536058002*^9, 3.561233559995323*^9}, 
   3.561233592633698*^9, 3.5612336268053923`*^9, {3.561233681648128*^9, 
   3.5612336893523703`*^9}, {3.5612337484055147`*^9, 3.561233754198634*^9}, {
   3.5612341922874203`*^9, 3.561234236761042*^9}, {3.561399972872004*^9, 
   3.561400176857298*^9}, {3.56140025553726*^9, 3.561400279503008*^9}, 
   3.561474012725993*^9, {3.5614741783793917`*^9, 3.5614742217009907`*^9}, {
   3.561474354868078*^9, 3.561474387877955*^9}, {3.561474426391082*^9, 
   3.5614744395808077`*^9}, 3.5614745968034897`*^9, 3.561474816032145*^9, 
   3.561474850999455*^9, 3.561474982996714*^9, {3.5614750187915497`*^9, 
   3.561475042656907*^9}, {3.561475100836113*^9, 3.561475107847013*^9}, {
   3.5614751927714233`*^9, 3.56147522545828*^9}, {3.561475277099903*^9, 
   3.5614752938047457`*^9}, {3.561475408025585*^9, 3.5614755581090918`*^9}, 
   3.56147560525762*^9, {3.561475682737368*^9, 3.561475690909647*^9}, {
   3.561475721961776*^9, 3.561475734348296*^9}, 3.56147579964157*^9, {
   3.561482021635995*^9, 3.56148202876504*^9}, 3.561496422864829*^9, 
   3.5614974009072723`*^9, 3.561497449121092*^9, 3.600970693888254*^9, {
   3.600972155787675*^9, 3.600972165407811*^9}, 3.6009723112393427`*^9, 
   3.600972511324195*^9}]
}, Open  ]]
},
WindowSize->{888, 799},
WindowMargins->{{Automatic, -12}, {26, Automatic}},
FrontEndVersion->"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (January 25, \
2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 9321, 246, 874, "Input"],
Cell[9903, 270, 2530, 35, 28, "Output"],
Cell[12436, 307, 2828, 47, 47, "Output"],
Cell[15267, 356, 2530, 35, 28, "Output"],
Cell[17800, 393, 2532, 35, 28, "Output"],
Cell[20335, 430, 183, 3, 21, "Print"],
Cell[20521, 435, 2533, 35, 32, "Output"],
Cell[23057, 472, 2516, 35, 28, "Output"],
Cell[25576, 509, 183, 3, 21, "Print"],
Cell[25762, 514, 2518, 35, 28, "Output"],
Cell[28283, 551, 2517, 35, 28, "Output"],
Cell[30803, 588, 187, 3, 21, "Print"],
Cell[30993, 593, 2534, 35, 32, "Output"],
Cell[33530, 630, 2532, 35, 32, "Output"],
Cell[36065, 667, 195, 3, 22, "Print"],
Cell[36263, 672, 2531, 35, 28, "Output"],
Cell[38797, 709, 2535, 35, 28, "Output"],
Cell[41335, 746, 186, 3, 21, "Print"],
Cell[41524, 751, 2533, 35, 32, "Output"],
Cell[44060, 788, 2533, 35, 32, "Output"],
Cell[46596, 825, 193, 3, 22, "Print"],
Cell[46792, 830, 2530, 35, 28, "Output"],
Cell[49325, 867, 2529, 35, 28, "Output"],
Cell[51857, 904, 181, 3, 21, "Print"],
Cell[52041, 909, 2534, 35, 32, "Output"],
Cell[54578, 946, 2533, 35, 32, "Output"],
Cell[57114, 983, 2530, 35, 28, "Output"],
Cell[59647, 1020, 2530, 35, 62, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)