-
Notifications
You must be signed in to change notification settings - Fork 2
Expand file tree
/
Copy pathsunspotlab.nb
More file actions
1111 lines (1076 loc) · 62.3 KB
/
sunspotlab.nb
File metadata and controls
1111 lines (1076 loc) · 62.3 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
(* 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,