Blog: Choosing the accretion luminosity for radiative feedback: accretionluminosity.nb

File accretionluminosity.nb, 45.8 KB (added by Erica Kaminski, 9 years ago)
Line 
1(* Content-type: application/vnd.wolfram.mathematica *)
2
3(*** Wolfram Notebook File ***)
4(* http://www.wolfram.com/nb *)
5
6(* CreatedBy='Mathematica 10.1' *)
7
8(*CacheID: 234*)
9(* Internal cache information:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[ 158, 7]
13NotebookDataLength[ 45640, 1032]
14NotebookOptionsPosition[ 44400, 987]
15NotebookOutlinePosition[ 44745, 1002]
16CellTagsIndexPosition[ 44702, 999]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21Cell[BoxData[
22 RowBox[{
23 RowBox[{"1", " ", "Solar", " ", "mass", " ", "in", " ", "g"}],
24 ";"}]], "Input",
25 CellChangeTimes->{{3.6628283149203467`*^9, 3.662828320223877*^9},
26 3.662829841531515*^9, 3.662829881826515*^9}],
27
28Cell[BoxData[
29 RowBox[{
30 RowBox[{"M", "=",
31 RowBox[{"1.989", "*",
32 SuperscriptBox["10", "33"]}]}], ";"}]], "Input",
33 CellChangeTimes->{{3.6628269128951445`*^9, 3.662826915003355*^9},
34 3.662828310343889*^9, {3.6628283578576403`*^9, 3.6628283716260166`*^9},
35 3.662829845611515*^9, {3.662832613613668*^9, 3.6628326147596684`*^9}}],
36
37Cell[BoxData[
38 RowBox[{
39 RowBox[{"solar", " ", "radius", " ", "in", " ",
40 RowBox[{"cm", ":",
41 RowBox[{"6.9599", "*",
42 SuperscriptBox["10", "10"]}]}]}], ";"}]], "Input",
43 CellChangeTimes->{{3.662828389686823*^9, 3.6628284207639303`*^9},
44 3.662829838643515*^9}],
45
46Cell[BoxData[
47 RowBox[{
48 RowBox[{"R", "=",
49 RowBox[{"6.9599", "*",
50 SuperscriptBox["10", "10"]}]}], ";"}]], "Input",
51 CellChangeTimes->{{3.6628269174095955`*^9, 3.6628269215070057`*^9}, {
52 3.6628284246853223`*^9, 3.6628284309969535`*^9}, 3.662829846323515*^9}],
53
54Cell[BoxData[
55 RowBox[{
56 RowBox[{"G", " ", "in", " ", "cgs"}], ";"}]], "Input",
57 CellChangeTimes->{{3.6628284568625393`*^9, 3.66282845926178*^9},
58 3.662829834946515*^9, 3.662829879874515*^9}],
59
60Cell[BoxData[
61 RowBox[{
62 RowBox[{"G", "=",
63 RowBox[{"6.674", "*",
64 SuperscriptBox["10",
65 RowBox[{"-", "8"}]]}]}], ";"}]], "Input",
66 CellChangeTimes->{{3.6628269498648405`*^9, 3.6628269508999443`*^9}, {
67 3.662828461839037*^9, 3.6628284709269457`*^9}, 3.662829847354515*^9}],
68
69Cell[BoxData[{
70 RowBox[{
71 RowBox[{"kefreefall", "=", " ",
72 FractionBox[
73 RowBox[{"G", "*", "M"}], "r"]}], ";"}], "\[IndentingNewLine]",
74 RowBox[{
75 RowBox[{"pc", "=",
76 RowBox[{"3.086", "*",
77 SuperscriptBox["10", "18"]}]}], ";"}]}], "Input",
78 CellChangeTimes->{{3.6628271253263855`*^9, 3.6628271525841107`*^9}, {
79 3.662827200940946*^9, 3.662827201033955*^9}, {3.6628293486597104`*^9,
80 3.6628294053575153`*^9}, 3.662829848172515*^9, {3.662833320774091*^9,
81 3.6628333308811016`*^9}}],
82
83Cell[CellGroupData[{
84
85Cell[BoxData[
86 RowBox[{"Plot", "[",
87 RowBox[{
88 RowBox[{"{",
89 RowBox[{
90 RowBox[{
91 FractionBox[
92 RowBox[{"G", "*", "M"}], "R"], "/",
93 FractionBox[
94 RowBox[{"G", "*", "M"}], "R"]}], ",",
95 RowBox[{
96 RowBox[{"(",
97 RowBox[{
98 FractionBox[
99 RowBox[{"G", "*", "M"}], "R"], "-", " ",
100 FractionBox[
101 RowBox[{"G", "*", "M"}], "r"]}], ")"}], "/",
102 RowBox[{"(",
103 RowBox[{"G", "*",
104 FractionBox["M", "R"]}], ")"}]}], ",",
105 RowBox[{
106 RowBox[{"(",
107 RowBox[{"kefreefall", "-",
108 RowBox[{"(",
109 RowBox[{
110 FractionBox[
111 RowBox[{"G", "*", "M"}], "r"], "-",
112 FractionBox[
113 RowBox[{"G", "*", "M"}], "R"]}], ")"}]}], ")"}], "/",
114 RowBox[{"(",
115 RowBox[{"G", "*",
116 FractionBox["M", "R"]}], ")"}]}], ",",
117 RowBox[{
118 RowBox[{"(",
119 RowBox[{
120 RowBox[{"10", "*", "kefreefall"}], "-",
121 RowBox[{"(",
122 RowBox[{
123 FractionBox[
124 RowBox[{"G", "*", "M"}], "r"], "-",
125 FractionBox[
126 RowBox[{"G", "*", "M"}], "R"]}], ")"}]}], ")"}], "/",
127 RowBox[{"(",
128 RowBox[{"G", "*",
129 FractionBox["M", "R"]}], ")"}]}], ",",
130 RowBox[{
131 RowBox[{"(",
132 RowBox[{
133 RowBox[{
134 FractionBox["1", "10"], "*", "kefreefall"}], "-",
135 RowBox[{"(",
136 RowBox[{
137 FractionBox[
138 RowBox[{"G", "*", "M"}], "r"], "-",
139 FractionBox[
140 RowBox[{"G", "*", "M"}], "R"]}], ")"}]}], ")"}], "/",
141 RowBox[{"(",
142 RowBox[{"G", "*",
143 FractionBox["M", "R"]}], ")"}]}]}], "}"}], ",", " ",
144 RowBox[{"{",
145 RowBox[{"r", ",", "R", ",", " ",
146 RowBox[{
147 RowBox[{"(",
148 RowBox[{"1", "/", "10000"}], ")"}], "pc"}]}], "}"}], ",", " ",
149 RowBox[{"PlotLegends", "\[Rule]", "\"\<Expressions\>\""}], ",", " ",
150 RowBox[{"PlotRange", "\[Rule]",
151 RowBox[{"{",
152 RowBox[{"0.99", ",", "1"}], "}"}]}], ",", " ",
153 RowBox[{"AxesLabel", "\[Rule]",
154 RowBox[{"{",
155 RowBox[{"\"\<(pc)\>\"", ",", "\"\<ke\>\""}], "}"}]}]}], "]"}]], "Input",
156 CellChangeTimes->CompressedData["
1571:eJxTTMoPSmViYGCQBGIQ7RefJePl9dox4VGQKoiW0jE2BdH/Lm4C09otDvYg
158OmirgAOIFgjdHgqiG9M9o8HqmI4dA9GJ63yOg2gjs7CzILqGl+EyiJZZlf8d
159RNu1bv0LVu+vb+ANpDdLmJmBaIcNOlYgeoVjmSOIfvS1yBtE29jNjwTRek13
160E0D0qi2BSSD6sf2GbBDNn7CyEkTrpHF0gOiEXR87QXRy7eFeEL0/o3YaiN5j
161vngeiP62aD+YZptr1+4DpD3+SneA6C1P9HtB9L7dzBNB9DeX0hUgWn5hzBoQ
162vWfCl8MgOq3p8xkQ7fDr1GUQzR7U8AxEX5bOfgWivz6Rfg2iNy5teQ+i/a6X
163fQTRd3c4fgXzf6b9AtE9Lzx1fYE0h0OxHoie2qrgBKJf7FF0B9EA/bK80w==
164
165 "]],
166
167Cell[BoxData[
168 TemplateBox[{GraphicsBox[{{{}, {}, {
169 Directive[
170 Opacity[1.],
171 RGBColor[0.368417, 0.506779, 0.709798],
172 AbsoluteThickness[1.6]],
173 LineBox[CompressedData["
1741:eJxTTMoPSmViYGAwAWIQffD0rM4zJgZO/8HgvX3pm9c/j3S2wflujUePf/SY
175Bucf/5xcuVd0OZz/1/GktYncRji/bNYjka6p2+D8X8dCJlc174HzmS/yKfOz
176HYTz+1fI+69jPQLne3UYrvD9fgzO99yfN9tt20k43y8h4mHPhjNw/vSI3IM6
177Fefh/I41junPJC4i3PtQSTx28iU4f8UhySkNXy7D+T030nZ5FV9F6C8y+S7y
178+hqcr7ZDnLHH8wbCPKPALSuP3oTzuSIXmJRo3IbzA7a4xj1dcQfOXzc5e16Y
1790j0EX2756pKm+3B+RL7MRpmGB3C+luqHolCjh3A+hyyLA99DBD9D/3DirHmP
1804PyZ4ryvavwfw/neUkzHjfifwPmc8ebrM04j+DMqv//9UvUUzl+5LmlhiOUz
181OL97Z8RqrtcIfgVb/wGHmc/h/Oe5BVpeYS/gfPXVd36tZHsJ579g+iJ/9yiC
182X2UwbXVaxSs4X2JBhVOB+ms430KLTc/3KYKv2SXX0DDtDZw/m+WRWnvYWzhf
1838uDTG7zC7xDhEVzy8dUhBN+SYV3c7Mb3cH6uo6XkRckPcP6Rxbs7RAoR/JjJ
184kxcdPI/g33m74b2kxkeEeyPu2mdGIvjBhzgn7OhC8AHWt0Kg
185 "]]}, {
186 Directive[
187 Opacity[1.],
188 RGBColor[0.880722, 0.611041, 0.142051],
189 AbsoluteThickness[1.6]],
190 LineBox[CompressedData["
1911:eJwV1nk0lG0bAHBJE7IvacpSUYi0adH25HqLqD6KDJE1kiWF3iwlRfKiVJSQ
192XSHbELIvY6xZUmIUWceex5RIRd/lj/vc5/fPfc61nnuDtcsZW24uLi4mnqV7
193eP1Av9iZSMjS7veSyCKJ1M420ebkSHjQWn5MJpskoP/mHhpPFJABMqe06CTh
194PvPxlmN1FNCivty+lUsSrLUBYuGaz2Ft4p68iAKSuKqwc69swnNQ3nsuI+QN
195SfCrfTFN5YqBM2PBRt6FJHFQc8+L0ooYmDUXydMqJomEi8N72YfiYDqy/Ul0
196GUnsv/rYzCUmDpTEg/ZdKCeJdq/Dt+f/xEFLX7WqUgVJLNc+waaYx0OhTUlm
197YiVJ7D6XpLZOJgEe3TJTtqsmCW6L+SN9JxNAWtHKR5BJEi02egYvbiSAQc9W
198zRy0vfPv69u6E+DB3vI7UzUkEeVrUPVPdCKwMnI7oZ4k7O6mfeB9mwjagWoB
19979C7gv6ym38lglGbh6NpA0k0haXzG59LAq7kBdVLjSSx+HK5oRM1GThb/RPt
200mkiiMd3EbodOMvAm6ij0oSPo2R6zHsngMs3jQmsmie3FpjG+rGSwV9V6TrSQ
201hHXz6+HwiBcguJs1MNdKEnXfbTzLJFOA4naRIv6BJHizzDYZQwqEPe3degl9
2023P5s27fLKbD7h5lgObqxW0tZqT4FuGUOiV5ox3hrlLsee6XCpQ+T4wkfMX8R
2035D773jTgO81DjHeShOSZ0SFugVcQP9M6qMYiCSOB/ocx+16BI4jFuaI7fd+P
204vn/0ClpumTrOoT9dyn926Gg6vLkq+nG2iyT6Dnj/FEvLgDb5gAvvPpPEhlm3
2055MyPGUBZSTPn7cZ46E76x7kzob2BJ4NADyqYp940zYQXFhp6GehhQU3jUcEs
2064Ofqofj0kMTXXkphmWs2CK6iha3oJQm1qL82xnHZoLQzTEodfdnwp/D3t9lQ
207WXGKao32GJrZFS5GB3G5kphS9C/j4eAGRzrE1psNOvaRxIJmwwF12Rz4sVaF
208kt9PEuYpW8NE1XOA7W8U8BldKfB4fEonByyM179YNkAS/p3nItOu5QA9UYt5
209Ei3gPDkr25wDGjbG2V/Q0s+Ec/lu5IJ1rjDt2yBJ+Cy48Y08ygVW9ZC5+BDm
210w5plyUzJheLPJ6nq6OStCcK3PuRCsprgK3e0SvVO55ktr4ErlEH7ht4/dVap
211t+s11HVPF/axSeK5QfGtUvI1PL4/b76AXiyU7YxckQdc267UUodJguE3ctdw
212Rx4UaLd3n0brUD0HGwLzIOT+j4MVaOOjz2Pz9uaDfLmSU+gISfwbNSAR9KQA
213HBbFufjHSELJprtDM7MAvKbGl29Ef1LpeDbPLAAekeKPGujDZQ3Sl2YKwHp/
214JtseTemjKxw3eAMJ1wzqmOiITbfUKaKF4P7cUdB9nCQK6esM74QUwTYHZ6m8
215CZJw8JRcvT+5CD7n3+2pRUuDMItTUgQus9y3u9C+H7jNrCaKoNIw1WoRfXx2
216zOaIbjGk33wTpjVJEl0HCt0WV5bAIZHAlW3oX7WGYV5+pbCFtpv27ivO47jc
217xpjIUlDscXP4gn4vOEGvyC6FkbL5i5PodMPbLTzdpWDvnbSRd4okzAYy+ULV
218y0BmV030YXTZAsU3iV0Gx1uotSloX/UipybtCjBppG92Iklikub/e+p8BTxJ
219uNF1HW3srRck6l4Ba8zavP3QOxjsFKP4CnBkxoVGoQf0xAb7flYAr5vfXB06
220MT8/45dhJTTMtQ3JTeN+ahOSF6ZUgcqLpytr0NYSFXGCYlUgri9Z0oqupLlI
221C8hWQcCXcItP6BtfWiX59lTBrJDEDRI9M/GQd7ldFTBynSlUDs4LRXxqtqYK
2223vw463UJ3XBQqujLXQZImYfFcH3D+vrW7e55xIDno0KpfOiA6uu5n2MYEKw0
2239FIMDbqsdFY+A0Zsf9xWQBfTImPfsxmwK5dK10ZnuK7zrz1WDUIiXxeD0aGp
224cnpZK5gwoXBtWuA7SQhN+zW5izKB3BP/nwQ6ZO+ozgEZJhTUs6nS6KBa+tF6
225dSbYJi7KqaADhjT3D9gwQfy9GPM42mf9hU2rGUzYEEz3uIN2epb6+6ZPDWyY
22685wh0RO9Ap5Hg2pg30xsyCzaQfHqLP/TGhBVeiyzgLYv0OBEZNaABVVsC/8M
227SVxobxzO6a6Bn33FU/JoU5Gvbez9tTD/8dp2I7Ru4I7UU3O1cFhfsDcfvfnm
228YrAOdx0IjJdACZrb9a3LMcE6uJ6vnVCJLja13XtIvg7U5CX03qK3bIusVdWr
229A14F3ct9aP4OLvaqlDpYLnuqiu8H7lv5dxsajepBO1551BitU3E5WqugAb4l
230dt4bR7fYBuRtYzSAlLzPDhJ9RiC2eU1LAzgwOjq+o8+ZNP8dZzdAilyBxALa
2314bvKhVDJRrA72HZeeBbzqTimynJvBMOUa1t2oZtCbcov7XoLPq76H66j/2dp
2323B9Cb4Kh3Qnus+hteSzL9JImYE1Ofp9Hi/Ca9DXUNoFytf+VBfT7bJNeSk8T
233aJ98YcUzRxK0v+d6fPmawUmDS0EMbRl7vsvduhkItyqVrWjXbus2M4kWOFT9
2340tQKHWHsXKXq0QraV462MdDP6Ama4n6tsFuo+1UNOoq3o2r+fiv4RXnfqUfH
235Fh5m1Ca1gnriJ5UW9Ms1ItWWra0g0ax/sQtt6mRirSv+DibCO++QaAfVPzY+
236Du8g0/OJydqfJBGYoXlxeE0bhKZKjTqg6/o3Sp0Pew/6tScvrJjH/wmDGu47
2378wFOvDrN9kWHsOyKdd0+wpZg3vYZdKCr+pzERAccjvs6SfuF9S+UWhaiw4L8
238b1Ehaei6nafz0mq6QHFliNZPNL9JvLq70mfYKqa/oPGbJPTzjpmzU7thVMt8
239hRc6K8wx1mjjF1iouZeZu2TZlHT3O70QfruocgBt7CKdI+3bB7kNCiZif7B/
240Nk27nt3ZD5EMb+EDaF4ZniNC/f3A2a7JtkDbb6u2ioodAKvTVs3+6EgpwfEb
241eoOQ1lhPT0afWMtdt1N4CNo9z9Yw0XwWe7Pt3w6B2uZgngH0M8+5hRkvNnQW
242ifj8RqdlWScYagxDja0XTXKBJIKLjNP5J4YhP2DHDxW0ByW08kjkCPhZQscR
2439IjzlS26RqOg/pRP1QitmN79K40yBp989Tj26FHuGbmemjHQj9ZVuoH22v40
2443c5jHJRsB2Xvo9fEe8AVxQlY3d8y8hy9bwtF7RR7Ah5FrlDMRCsHyfr6Pp2E
245B4mbH5Sgo3kGNt8z+gr0d2dtG9HUKjZLUHwKlh0dO8xC2xu4c8YZU7Cv9NSj
246IbQGV5Z59G0SjkWqnuGgnTU1qG3UaTiTNJbzB81MKgmUuDoNHa3dlisXcd+H
247hSVWtU7Dvw9zvcTQ3V/pJFWJAx7WCxel0WqndzokK3OAlmQftmTfvNdDaioc
248mFvTVL5kBe+Crn/UOND/yltSBu3IW1rtrM6B4aSbjCX/2lgXUXWEAzmlQuvk
2490GuMe4hLJhyw++ZWuwHtUGJe/P0cB+Kbx6aXXCrbp+5jxoFTcsbrNqIt2QPK
250YRYcEFSTvbLkFNdR8TJbDkjt0KfKo/fc/z4i4sqBVcGnHBTQgdPu1tFuHKgo
251PRG+5E8Gs92brnEg0x/Kl3xz7Xzbfg98r5cqtgnNTFksueDDgdQZl6Ilr17l
252u4e8xYFvQrsGl2x/eVmO520OSLZOCWxGC+zmefnAnwOvjutbLtn82d311AAO
253/F4x+9+S6b8p0Un3ODB0Jfz1krktAiXV/uOAQbBKz5INGHwPC4M4sIdWQlFE
254/x+0A4S4
255 "]]}, {
256 Directive[
257 Opacity[1.],
258 RGBColor[0.560181, 0.691569, 0.194885],
259 AbsoluteThickness[1.6]],
260 LineBox[CompressedData["
2611:eJxTTMoPSmViYGAwAWIQffD0rM4zJgZO/8HgvX3pm9c/j3S2wflujUePf/SY
262Bucf/5xcuVd0OZz/1/GktYncRji/bNYjka6p2+D8X8dCJlc174HzmS/yKfOz
263HYTz+1fI+69jPQLne3UYrvD9fgzO99yfN9tt20k43y8h4mHPhjNw/vSI3IM6
264Fefh/I41junPJC4i3PtQSTx28iU4f8UhySkNXy7D+T030nZ5FV9F6C8y+S7y
265+hqcr7ZDnLHH8wbCPKPALSuP3oTzuSIXmJRo3IbzA7a4xj1dcQfOXzc5e16Y
2660j0EX2756pKm+3B+RL7MRpmGB3C+luqHolCjh3A+hyyLA99DBD9D/3DirHmP
2674PyZ4ryvavwfw/neUkzHjfifwPmc8ebrM04j+DMqv//9UvUUzl+5LmlhiOUz
268OL97Z8RqrtcIfgVb/wGHmc/h/Oe5BVpeYS/gfPXVd36tZHsJ579g+iJ/9yiC
269X2UwbXVaxSs4X2JBhVOB+ms430KLTc/3KYKv2SXX0DDtDZw/m+WRWnvYWzhf
2708uDTG7zC7xDhEVzy8dUhBN+SYV3c7Mb3cH6uo6XkRckPcP6Rxbs7RAoR/JjJ
271kxcdPI/g33m74b2kxkeEeyPu2mdGIvjBhzgn7OhC8AHWt0Kg
272 "]]}, {}, {
273 Directive[
274 Opacity[1.],
275 RGBColor[0.528488, 0.470624, 0.701351],
276 AbsoluteThickness[1.6]],
277 LineBox[CompressedData["
2781:eJwV1nk0lVsUAPBS3YeuEBIVEiFFpAHly47CU15RhoSoiNQLvWi8DRqoFMoU
279MpSZK5IxXC6uMUOZ5+lGfL5IJPW2P8466/fPPmvts/c+Z739hSOneRYtWlSO
280a2Ff2vTPKZHKF5B6oPeKaCpJeAauE6bxBoFYEVPsGzox7pKVZHkQvKbJXLye
281ThKCtfJjoB8C2qvVc2SySCK+uV64JjYEQu7PUNvekwT0Xt9hvjQUWmwd9Yls
282kvCY+nTTpSQUhn2uPiFySaJF8t7KQN2X8PfM/Ph4AUlclFPfKRX1EnSqRhyr
283PpAEv0rX8fhF4WCfbaQRXUgSu3V3vM4vDIeuvBXRRDFJRDkO7RzcEwnycnQt
284opQktC76W18Ij4SLeteqJ9FNV3Ruzf6KhLF+Q8VYNkksOfD3IM3mFUzS/epm
285ykhiu1WMypp1UXCW/sr3EockeGxn9/YYR0EIHyVHrySJWgcT09fXomBe5L/7
286kWgn17nLqh1REFqlJ1hQRRKhDNPifWHRwKqVYX2qIYkz3gmNvFXR4Hbgqf7R
287WpLY5vNnsOZnNISR0gca0NUBSfwWVjFQvX9gBbuOJH6/WWJ2TiIWvrH2+fvV
288k0RlkuUZNcNY0PK8NPYLHcRM85z2jIVKncNGTg0ksTX3eDijJRb8i1sIzUaS
289sK/JGAoMeg2FqtY32U0kUT7p4FUgFgc5kieknzWTBG+qtbwFxMF7LcOELrSB
29009H6b+fjgNlBoyu34Hkd+5UUK+Lg3baRS0XoWrZSq/+VeLhMRd3rasX8BZG7
291nLoTgDQYcfnaThJiR7gDPPREULI+v21TB0kco/c+Dd+VCCrRJYqO6GZGA7fh
292WSLQJl1SutBtZ98F79FLAvkMv0elnSTRo311ZmVCMuyW6S46300S66fdY1M+
293JYN3Tub6KLQ989w/Bjwp0MINH25A98vZxF8/ngJ90RkpGj0kMSSga8EVSIXd
294GQHnKPRYNy27wC0NLCcc6w/3kYRK6B8Hi8g0+LC/PvUq+rzZjOBkVRrYzbJX
295vUZ7DkxtC1zJhKfbvz+eRv+0GPLluDBB4dAr48B+kpjX5WhrSKVDp9pj7/wB
296krCJ2xIgrJEOdYmSm7vRRXT/kXHDdMi7veTq4kGSuNtsFZJwKR122dLF9dF0
29716/TUjXpYGz50rkCvTZY8C3ftbfwSObJraIhkrgx7843/OwtXOqv0e5C99i3
2982JXGvYVitg1zDh27JUrwZuNbsBMiqrcPk4Ryibrr1KYMyGA8575Ba40fVexu
299zQCJLYT7dS5JvDTNvZlPZsCSkB7tIPTvbKnmkGWZMFSiVs1Es+4Me5upZcIx
300gcL9/WhDCa9+zoNMOP2nI0v/C0lY6L2MyNz5DryFfUUXj5DEf6F9oj7Ps8C2
301qqv66ChJKDp0fNZNyYImvrGzLug25c/Bs6VZEKE71cpA6xRw1p6dyoLC4TXb
302k9C0Hqacgel76PwSNDSPDpK/qUETzganNymvw76SRDZzjdntRznwQz8tNW+M
303JJy9xFZpxebASh/lwGr0WhBsofJyICjxtlUnmtHIY31yNAe8bor7/kYbTH9x
3042GuUC5IUdZcYJ4lW7Wz333/lgXO7nUw++meZWcCVO/kg4LSKG0ViP45Iy4aH
3055ENsz+KAVHSDwCizMC0fbpfabcpDJ5ndql3akQ+deZulm9DWfSl8fhoF4Cha
306Jb9sgiQK5mmMmMECcKcNVDmgGRo556oPFMK6rF0PRSmS+Gp+d278RCFElj4U
307kkZbXDXxEfYoBANNvodKaDXWYNyxV4VgVyl4SAfdZ7Kyv2emEB4M+yk7oqPf
308vUv+aVYEtcoTB7PQS+pXbBCkFUNbudaY0TfsB9HCSIGVxZB0suyJGbrI/MJa
309ulQx6Fc0yNqgr3XVifHtKAa9ti7Zi+ip0ae8S84UQ58Mx/sFeogmMj7NLoZv
310SpLjXWjObvGcLm8WpDXtnDoziffLKN/e+YwFGyP2il9A3yu5/LY9nAXp5jWq
311l9Fg1JLU8o4F66BE9z461zwkomGQBYGmRqNv0Mlua+6W6ZdA29T50wNov3hp
312k9RlpRD51xI3iymSWDFxp9pDuBT4qxIMbNGPdnINtdeVwp7aQ+Jn0D5lTL0K
313jVJQ9K966Y6+N6Cr1edQCvoTQkZP0DdkTsmvYpWCM9NFk4U+Fxw/d/0GG+pL
314XVly30litJvupefDhm3ASt+Edla4OM3/gg2CcuGhW9FOWZpUUAob+IyELHej
315TzVVDqV3sGF/0AofU/RxobH6Qa0y2NK2g81AGz1Qiz/4owx2VVj0fUZvvP7b
31615CnHJq9BfPb0TxuVRf0BcpBamLjsx507vHTO/dsKIdEaf8tI+hNqiFlm03K
317oeme4NZ5NP/nRYPL48phR63ySdlpnLcbPq6vPFYBe4UKw8+iDQvPh+3P4kCb
318/qWUr+ja0/cyVVkcqDjyoXsCfYQeUbO6lgMzqQorvqOtLGv+jAxyYFXWv7bz
319aOdJ5VN+YpWgdOdCk8APzKfCl80tHpUQvCqcroKu9nP4cHZbFSx3rGh2QR+y
320s+h9xKyGzP4TdZ1o1cwWu6S8arDmlf3egxbitezhlFXDxWuXVw+gG9Isu2md
3211eD+rNd8BG3+x6qTwVcDqdsW5U6j7SJOtHrY14B3ZrmA4AxJuHXY11uL1sL7
322tLRlOuggC9fizZ510Kpmnv8cHcyM0hW5Uwe/iFnjYHQo7+fi2cd1EB/7qT0U
323HZGtwyqLqQNVtt5UJPrNaqESu7o6mJFSFUpEHz9naW8k8hH+orG+F6CdN/9y
324uOH8EbimjXcG0A+SdR2HVtcD10hs6ZZZfA97ZcVPBDSAqLGnQDY6niURyJhq
325hMSbHA2Fn1iPLWdyjdw/Ad0oytcP/cBN44fo6GcYiY/O46I3ZosvfmTYAnvi
326Pqipz2E89cOZCexW2N1oRPdC81u+0vBQbAdroYqtmeh/MvVtBuM7YMebqPox
327dGqAS8Qx2S4ICrark/mFlopL8rjdDQ0KbSLGaIsLa9PXMnpAxqTpy3/oTfIT
328bkfVe8HcnnwchuZdt3Tvit5eoCfnZuajnVRLToZG9IEOh/9rJzpEXGDkmkk/
329VK1dE/kT/bckT7m64ADo3D9zQ3yeJPhsd6Y5VQ2AdXT/RzV0sNeP+akrg9C+
330Fz4YoBNS7aPMNIfgtOL4Yju0b45FEv/oEHz2T7b2QHvS/Ir2hgzDvgJthfvo
331Ydd/Nxkd48Jz109WoWiFpI6fCbQvcMIqkEhCc3mmpDvZX4Djm+CTj76y9UXS
332Gc8R4Gv/U1uFXv3KE/5VGIXAysYlbehdm2gqBwdHoS5GKoaLVvKRYjBefIUh
3335Ych39FhS/s23j82Bg3aNVM8v0lConiwRUBkHJwm6l0E0U6mHtQIaxzUp9m3
334JdGai1Jtwm6R4LtBcV4e7aqrKVEvMQFBydmaW9GlMXkPRC9OgMf6Lc2aaOuA
335gOjiuglw5jY27UN3jDFJCUUKzr2eLzFGqxxWd45VoqDWVnh0wYzMjAEVZQo8
336V0mtPIiWu5rVuk+Fgq0MWbsFu/Dml7hqUPDFq3luwT9ly4OK91LQmDCpZoJe
337bdFJnLWkgDW5OOQw2jnPJnfSioKEhl2FC86X6tG4YU3BLNdpcMF2g31KAbYU
338LC/JVDuCjnPjihScpuCk7RxnwTseTw4LuVFAcfRnTdEPJjzsw9wpSJ4WkjZD
339t5lOd8hfosDp8ie9BV+XnK3X8qTg21Wjpwsujfudd+oGBcGsgY1H0auWM3aQ
340NymIK7pivGCn84vTvW5RUC7D77Zg+valb57cpUB9hVjBgm2CvWUk7lEwF/G0
341b8HMOVpYzH0KaoKX8R77vfCffiCm8pCCU/PuWxZsyuJ7mu1DwfXa9iML/h+F
3429rVb
343 "]]}}}, {
344 DisplayFunction -> Identity, AspectRatio ->
345 NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True},
346 AxesLabel -> {
347 FormBox["\"(pc)\"", TraditionalForm],
348 FormBox["\"ke\"", TraditionalForm]}, AxesOrigin -> {0, 0.99},
349 DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}},
350 FrameLabel -> {{None, None}, {None, None}},
351 FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}},
352 GridLines -> {None, None}, GridLinesStyle -> Directive[
353 GrayLevel[0.5, 0.4]],
354 Method -> {
355 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" ->
356 AbsolutePointSize[6], "ScalingFunctions" -> None},
357 PlotRange -> {{0., 3.085999937034612*^14}, {0.99, 1}}, PlotRangeClipping ->
358 True, PlotRangePadding -> {{
359 Scaled[0.02],
360 Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}}],FormBox[
361 FormBox[
362 TemplateBox[{
363 FractionBox[
364 RowBox[{"G", " ", "M"}],
365 FractionBox[
366 RowBox[{"R", " ",
367 RowBox[{"(",
368 RowBox[{"G", " ", "M"}], ")"}]}], "R"]],
369 FractionBox[
370 RowBox[{
371 FractionBox[
372 RowBox[{"G", " ", "M"}], "R"], "-",
373 FractionBox[
374 RowBox[{"G", " ", "M"}], "r"]}],
375 FractionBox[
376 RowBox[{"G", " ", "M"}], "R"]],
377 FractionBox[
378 RowBox[{"kefreefall", "-",
379 RowBox[{"(",
380 RowBox[{
381 FractionBox[
382 RowBox[{"G", " ", "M"}], "r"], "-",
383 FractionBox[
384 RowBox[{"G", " ", "M"}], "R"]}], ")"}]}],
385 FractionBox[
386 RowBox[{"G", " ", "M"}], "R"]],
387 FractionBox[
388 RowBox[{
389 RowBox[{"10", " ", "kefreefall"}], "-",
390 RowBox[{"(",
391 RowBox[{
392 FractionBox[
393 RowBox[{"G", " ", "M"}], "r"], "-",
394 FractionBox[
395 RowBox[{"G", " ", "M"}], "R"]}], ")"}]}],
396 FractionBox[
397 RowBox[{"G", " ", "M"}], "R"]],
398 FractionBox[
399 RowBox[{
400 FractionBox["kefreefall", "10"], "-",
401 RowBox[{"(",
402 RowBox[{
403 FractionBox[
404 RowBox[{"G", " ", "M"}], "r"], "-",
405 FractionBox[
406 RowBox[{"G", " ", "M"}], "R"]}], ")"}]}],
407 FractionBox[
408 RowBox[{"G", " ", "M"}], "R"]]}, "LineLegend",
409 DisplayFunction -> (FormBox[
410 StyleBox[
411 StyleBox[
412 PaneBox[
413 TagBox[
414 GridBox[{{
415 TagBox[
416 GridBox[{{
417 GraphicsBox[{{
418 Directive[
419 EdgeForm[
420 Directive[
421 Opacity[0.3],
422 GrayLevel[0]]],
423 PointSize[0.5],
424 Opacity[1.],
425 RGBColor[0.368417, 0.506779, 0.709798],
426 AbsoluteThickness[1.6]], {
427 LineBox[{{0, 10}, {20, 10}}]}}, {
428 Directive[
429 EdgeForm[
430 Directive[
431 Opacity[0.3],
432 GrayLevel[0]]],
433 PointSize[0.5],
434 Opacity[1.],
435 RGBColor[0.368417, 0.506779, 0.709798],
436 AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full,
437 ImageSize -> {20, 10}, PlotRangePadding -> None,
438 ImagePadding -> Automatic,
439 BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
440 GraphicsBox[{{
441 Directive[
442 EdgeForm[
443 Directive[
444 Opacity[0.3],
445 GrayLevel[0]]],
446 PointSize[0.5],
447 Opacity[1.],
448 RGBColor[0.880722, 0.611041, 0.142051],
449 AbsoluteThickness[1.6]], {
450 LineBox[{{0, 10}, {20, 10}}]}}, {
451 Directive[
452 EdgeForm[
453 Directive[
454 Opacity[0.3],
455 GrayLevel[0]]],
456 PointSize[0.5],
457 Opacity[1.],
458 RGBColor[0.880722, 0.611041, 0.142051],
459 AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full,
460 ImageSize -> {20, 10}, PlotRangePadding -> None,
461 ImagePadding -> Automatic,
462 BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
463 GraphicsBox[{{
464 Directive[
465 EdgeForm[
466 Directive[
467 Opacity[0.3],
468 GrayLevel[0]]],
469 PointSize[0.5],
470 Opacity[1.],
471 RGBColor[0.560181, 0.691569, 0.194885],
472 AbsoluteThickness[1.6]], {
473 LineBox[{{0, 10}, {20, 10}}]}}, {
474 Directive[
475 EdgeForm[
476 Directive[
477 Opacity[0.3],
478 GrayLevel[0]]],
479 PointSize[0.5],
480 Opacity[1.],
481 RGBColor[0.560181, 0.691569, 0.194885],
482 AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full,
483 ImageSize -> {20, 10}, PlotRangePadding -> None,
484 ImagePadding -> Automatic,
485 BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
486 GraphicsBox[{{
487 Directive[
488 EdgeForm[
489 Directive[
490 Opacity[0.3],
491 GrayLevel[0]]],
492 PointSize[0.5],
493 Opacity[1.],
494 RGBColor[0.922526, 0.385626, 0.209179],
495 AbsoluteThickness[1.6]], {
496 LineBox[{{0, 10}, {20, 10}}]}}, {
497 Directive[
498 EdgeForm[
499 Directive[
500 Opacity[0.3],
501 GrayLevel[0]]],
502 PointSize[0.5],
503 Opacity[1.],
504 RGBColor[0.922526, 0.385626, 0.209179],
505 AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full,
506 ImageSize -> {20, 10}, PlotRangePadding -> None,
507 ImagePadding -> Automatic,
508 BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
509 GraphicsBox[{{
510 Directive[
511 EdgeForm[
512 Directive[
513 Opacity[0.3],
514 GrayLevel[0]]],
515 PointSize[0.5],
516 Opacity[1.],
517 RGBColor[0.528488, 0.470624, 0.701351],
518 AbsoluteThickness[1.6]], {
519 LineBox[{{0, 10}, {20, 10}}]}}, {
520 Directive[
521 EdgeForm[
522 Directive[
523 Opacity[0.3],
524 GrayLevel[0]]],
525 PointSize[0.5],
526 Opacity[1.],
527 RGBColor[0.528488, 0.470624, 0.701351],
528 AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full,
529 ImageSize -> {20, 10}, PlotRangePadding -> None,
530 ImagePadding -> Automatic,
531 BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}},
532 GridBoxAlignment -> {
533 "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}},
534 AutoDelete -> False,
535 GridBoxDividers -> {
536 "Columns" -> {{False}}, "Rows" -> {{False}}},
537 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
538 GridBoxSpacings -> {
539 "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}},
540 GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
541 AutoDelete -> False,
542 GridBoxItemSize -> {
543 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
544 GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}],
545 "Grid"], Alignment -> Left, AppearanceElements -> None,
546 ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction ->
547 "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
548 FontFamily -> "Arial"}, Background -> Automatic, StripOnInput ->
549 False], TraditionalForm]& ),
550 InterpretationFunction :> (RowBox[{"LineLegend", "[",
551 RowBox[{
552 RowBox[{"{",
553 RowBox[{
554 RowBox[{"Directive", "[",
555 RowBox[{
556 RowBox[{"Opacity", "[", "1.`", "]"}], ",",
557 InterpretationBox[
558 ButtonBox[
559 TooltipBox[
560 GraphicsBox[{{
561 GrayLevel[0],
562 RectangleBox[{0, 0}]}, {
563 GrayLevel[0],
564 RectangleBox[{1, -1}]}, {
565 RGBColor[0.368417, 0.506779, 0.709798],
566 RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame ->
567 True, FrameStyle ->
568 RGBColor[
569 0.24561133333333335`, 0.3378526666666667,
570 0.4731986666666667], FrameTicks -> None, PlotRangePadding ->
571 None, ImageSize ->
572 Dynamic[{
573 Automatic, 1.35 CurrentValue["FontCapHeight"]/
574 AbsoluteCurrentValue[Magnification]}]],
575 "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance ->
576 None, BaseStyle -> {}, BaselinePosition -> Baseline,
577 DefaultBaseStyle -> {}, ButtonFunction :>
578 With[{Typeset`box$ = EvaluationBox[]},
579 If[
580 Not[
581 AbsoluteCurrentValue["Deployed"]],
582 SelectionMove[Typeset`box$, All, Expression];
583 FrontEnd`Private`$ColorSelectorInitialAlpha = 1;
584 FrontEnd`Private`$ColorSelectorInitialColor =
585 RGBColor[0.368417, 0.506779, 0.709798];
586 FrontEnd`Private`$ColorSelectorUseMakeBoxes = True;
587 MathLink`CallFrontEnd[
588 FrontEnd`AttachCell[Typeset`box$,
589 FrontEndResource["RGBColorValueSelector"], {
590 0, {Left, Bottom}}, {Left, Top},
591 "ClosingActions" -> {
592 "SelectionDeparture", "ParentChanged",
593 "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator ->
594 Automatic, Method -> "Preemptive"],
595 RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
596 Selectable -> False], ",",
597 RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}],
598 ",",
599 RowBox[{"Directive", "[",
600 RowBox[{
601 RowBox[{"Opacity", "[", "1.`", "]"}], ",",
602 InterpretationBox[
603 ButtonBox[
604 TooltipBox[
605 GraphicsBox[{{
606 GrayLevel[0],
607 RectangleBox[{0, 0}]}, {
608 GrayLevel[0],
609 RectangleBox[{1, -1}]}, {
610 RGBColor[0.880722, 0.611041, 0.142051],
611 RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame ->
612 True, FrameStyle ->
613 RGBColor[
614 0.587148, 0.40736066666666665`, 0.09470066666666668],
615 FrameTicks -> None, PlotRangePadding -> None, ImageSize ->
616 Dynamic[{
617 Automatic, 1.35 CurrentValue["FontCapHeight"]/
618 AbsoluteCurrentValue[Magnification]}]],
619 "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance ->
620 None, BaseStyle -> {}, BaselinePosition -> Baseline,
621 DefaultBaseStyle -> {}, ButtonFunction :>
622 With[{Typeset`box$ = EvaluationBox[]},
623 If[
624 Not[
625 AbsoluteCurrentValue["Deployed"]],
626 SelectionMove[Typeset`box$, All, Expression];
627 FrontEnd`Private`$ColorSelectorInitialAlpha = 1;
628 FrontEnd`Private`$ColorSelectorInitialColor =
629 RGBColor[0.880722, 0.611041, 0.142051];
630 FrontEnd`Private`$ColorSelectorUseMakeBoxes = True;
631 MathLink`CallFrontEnd[
632 FrontEnd`AttachCell[Typeset`box$,
633 FrontEndResource["RGBColorValueSelector"], {
634 0, {Left, Bottom}}, {Left, Top},
635 "ClosingActions" -> {
636 "SelectionDeparture", "ParentChanged",
637 "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator ->
638 Automatic, Method -> "Preemptive"],
639 RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
640 Selectable -> False], ",",
641 RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}],
642 ",",
643 RowBox[{"Directive", "[",
644 RowBox[{
645 RowBox[{"Opacity", "[", "1.`", "]"}], ",",
646 InterpretationBox[
647 ButtonBox[
648 TooltipBox[
649 GraphicsBox[{{
650 GrayLevel[0],
651 RectangleBox[{0, 0}]}, {
652 GrayLevel[0],
653 RectangleBox[{1, -1}]}, {
654 RGBColor[0.560181, 0.691569, 0.194885],
655 RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame ->
656 True, FrameStyle ->
657 RGBColor[
658 0.37345400000000006`, 0.461046, 0.12992333333333334`],
659 FrameTicks -> None, PlotRangePadding -> None, ImageSize ->
660 Dynamic[{
661 Automatic, 1.35 CurrentValue["FontCapHeight"]/
662 AbsoluteCurrentValue[Magnification]}]],
663 "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance ->
664 None, BaseStyle -> {}, BaselinePosition -> Baseline,
665 DefaultBaseStyle -> {}, ButtonFunction :>
666 With[{Typeset`box$ = EvaluationBox[]},
667 If[
668 Not[
669 AbsoluteCurrentValue["Deployed"]],
670 SelectionMove[Typeset`box$, All, Expression];
671 FrontEnd`Private`$ColorSelectorInitialAlpha = 1;
672 FrontEnd`Private`$ColorSelectorInitialColor =
673 RGBColor[0.560181, 0.691569, 0.194885];
674 FrontEnd`Private`$ColorSelectorUseMakeBoxes = True;
675 MathLink`CallFrontEnd[
676 FrontEnd`AttachCell[Typeset`box$,
677 FrontEndResource["RGBColorValueSelector"], {
678 0, {Left, Bottom}}, {Left, Top},
679 "ClosingActions" -> {
680 "SelectionDeparture", "ParentChanged",
681 "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator ->
682 Automatic, Method -> "Preemptive"],
683 RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
684 Selectable -> False], ",",
685 RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}],
686 ",",
687 RowBox[{"Directive", "[",
688 RowBox[{
689 RowBox[{"Opacity", "[", "1.`", "]"}], ",",
690 InterpretationBox[
691 ButtonBox[
692 TooltipBox[
693 GraphicsBox[{{
694 GrayLevel[0],
695 RectangleBox[{0, 0}]}, {
696 GrayLevel[0],
697 RectangleBox[{1, -1}]}, {
698 RGBColor[0.922526, 0.385626, 0.209179],
699 RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame ->
700 True, FrameStyle ->
701 RGBColor[
702 0.6150173333333333, 0.25708400000000003`,
703 0.13945266666666667`], FrameTicks -> None,
704 PlotRangePadding -> None, ImageSize ->
705 Dynamic[{
706 Automatic, 1.35 CurrentValue["FontCapHeight"]/
707 AbsoluteCurrentValue[Magnification]}]],
708 "RGBColor[0.922526, 0.385626, 0.209179]"], Appearance ->
709 None, BaseStyle -> {}, BaselinePosition -> Baseline,
710 DefaultBaseStyle -> {}, ButtonFunction :>
711 With[{Typeset`box$ = EvaluationBox[]},
712 If[
713 Not[
714 AbsoluteCurrentValue["Deployed"]],
715 SelectionMove[Typeset`box$, All, Expression];
716 FrontEnd`Private`$ColorSelectorInitialAlpha = 1;
717 FrontEnd`Private`$ColorSelectorInitialColor =
718 RGBColor[0.922526, 0.385626, 0.209179];
719 FrontEnd`Private`$ColorSelectorUseMakeBoxes = True;
720 MathLink`CallFrontEnd[
721 FrontEnd`AttachCell[Typeset`box$,
722 FrontEndResource["RGBColorValueSelector"], {
723 0, {Left, Bottom}}, {Left, Top},
724 "ClosingActions" -> {
725 "SelectionDeparture", "ParentChanged",
726 "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator ->
727 Automatic, Method -> "Preemptive"],
728 RGBColor[0.922526, 0.385626, 0.209179], Editable -> False,
729 Selectable -> False], ",",
730 RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}],
731 ",",
732 RowBox[{"Directive", "[",
733 RowBox[{
734 RowBox[{"Opacity", "[", "1.`", "]"}], ",",
735 InterpretationBox[
736 ButtonBox[
737 TooltipBox[
738 GraphicsBox[{{
739 GrayLevel[0],
740 RectangleBox[{0, 0}]}, {
741 GrayLevel[0],
742 RectangleBox[{1, -1}]}, {
743 RGBColor[0.528488, 0.470624, 0.701351],
744 RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame ->
745 True, FrameStyle ->
746 RGBColor[
747 0.3523253333333333, 0.3137493333333333,
748 0.46756733333333333`], FrameTicks -> None,
749 PlotRangePadding -> None, ImageSize ->
750 Dynamic[{
751 Automatic, 1.35 CurrentValue["FontCapHeight"]/
752 AbsoluteCurrentValue[Magnification]}]],
753 "RGBColor[0.528488, 0.470624, 0.701351]"], Appearance ->
754 None, BaseStyle -> {}, BaselinePosition -> Baseline,
755 DefaultBaseStyle -> {}, ButtonFunction :>
756 With[{Typeset`box$ = EvaluationBox[]},
757 If[
758 Not[
759 AbsoluteCurrentValue["Deployed"]],
760 SelectionMove[Typeset`box$, All, Expression];
761 FrontEnd`Private`$ColorSelectorInitialAlpha = 1;
762 FrontEnd`Private`$ColorSelectorInitialColor =
763 RGBColor[0.528488, 0.470624, 0.701351];
764 FrontEnd`Private`$ColorSelectorUseMakeBoxes = True;
765 MathLink`CallFrontEnd[
766 FrontEnd`AttachCell[Typeset`box$,
767 FrontEndResource["RGBColorValueSelector"], {
768 0, {Left, Bottom}}, {Left, Top},
769 "ClosingActions" -> {
770 "SelectionDeparture", "ParentChanged",
771 "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator ->
772 Automatic, Method -> "Preemptive"],
773 RGBColor[0.528488, 0.470624, 0.701351], Editable -> False,
774 Selectable -> False], ",",
775 RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
776 "}"}], ",",
777 RowBox[{"{",
778 RowBox[{
779 TagBox[#, HoldForm], ",",
780 TagBox[#2, HoldForm], ",",
781 TagBox[#3, HoldForm], ",",
782 TagBox[#4, HoldForm], ",",
783 TagBox[#5, HoldForm]}], "}"}], ",",
784 RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",",
785 RowBox[{"LabelStyle", "\[Rule]",
786 RowBox[{"{", "}"}]}], ",",
787 RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ),
788 Editable -> True], TraditionalForm], TraditionalForm]},
789 "Legended",
790 DisplayFunction->(GridBox[{{
791 TagBox[
792 ItemBox[
793 PaneBox[
794 TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline},
795 BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"],
796 "SkipImageSizeLevel"],
797 ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}},
798 GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}},
799 AutoDelete -> False, GridBoxItemSize -> Automatic,
800 BaselinePosition -> {1, 1}]& ),
801 Editable->True,
802 InterpretationFunction->(RowBox[{"Legended", "[",
803 RowBox[{#, ",",
804 RowBox[{"Placed", "[",
805 RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
806 CellChangeTimes->{{3.6628304862394714`*^9, 3.6628305038832355`*^9}, {
807 3.662830657904636*^9, 3.66283067214406*^9}, {3.662830703263171*^9,
808 3.662830772265071*^9}, 3.662830839293773*^9, 3.6628326325826683`*^9,
809 3.662832708285668*^9, {3.662832760658668*^9, 3.662832777308668*^9}, {
810 3.662832979032668*^9, 3.662832996462668*^9}, {3.662833186728668*^9,
811 3.662833256554668*^9}, {3.662833340894103*^9, 3.6628334609241047`*^9},
812 3.662833498201832*^9, {3.662833534407452*^9, 3.662833548135825*^9}, {
813 3.6628335786308737`*^9, 3.662833620455056*^9}, {3.6628340312091274`*^9,
814 3.6628340363826447`*^9}, {3.6628341962366285`*^9, 3.662834233634368*^9}}]
815}, Open ]],
816
817Cell[CellGroupData[{
818
819Cell[BoxData[
820 RowBox[{"100000000000000000000000", "*", "R", "*", "3.086", "*",
821 SuperscriptBox["10",
822 RowBox[{"-", "18"}]]}]], "Input"],
823
824Cell[BoxData["2.1478251399999996`*^16"], "Output",
825 CellChangeTimes->{3.662832848377668*^9}]
826}, Open ]],
827
828Cell[CellGroupData[{
829
830Cell[BoxData[
831 RowBox[{"Plot", "[",
832 RowBox[{
833 RowBox[{"3", "+",
834 RowBox[{"(",
835 RowBox[{"1", "/", "x"}], ")"}]}], ",",
836 RowBox[{"{",
837 RowBox[{"x", ",", "0", ",", "30"}], "}"}], ",", " ",
838 RowBox[{"PlotRange", "\[Rule]",
839 RowBox[{"{",
840 RowBox[{"2.75", ",", "3.5"}], "}"}]}]}], "]"}]], "Input",
841 CellChangeTimes->{{3.6628330532086678`*^9, 3.662833107673668*^9}, {
842 3.6628338486088696`*^9, 3.6628339432203293`*^9}}],
843
844Cell[BoxData[
845 GraphicsBox[{{}, {},
846 {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
847 1.], LineBox[CompressedData["
8481:eJwd1Hk0ldsbB/Bjft/3dAyHOJEchCRjptJbX3UUR4aEKMoQDYobMpQuSTS4
849t5T6HZpIIk3KSSWzBlFKpSSiQTdSZChFue/97bX22uuz//g+e1jr0Q6K8AiR
850ZLFYB5n53zpPbGGrzGKB9f8xCRXbDvpaTmJh26w8u5FxNjw2PCyXWMHCm8pL
851wSW9bCQsXrLreB8LrT62Hcr1bGgnq7a7TbBQvJd3r7eOjbsV3ZZSXAkcsDnc
8521FDFhpJVyocNNhJwf5ZalX+djbO6NU42yRLwXrZF5nYBG49ZdopP1CQxZ9gg
853bd9eNnRvmZyQWySFYNJuksiDDcXItTfdV0jh+JaAXg03NsZnZLdkhUnBftxR
854scCZjedHZeRnZUphZPB16xMBG/si2/9075bCEPvy9x02bAwY7gvISpNGo3yq
855n+I0NipF3bpGD2Tg/eM3md9P4bybBqK7ZMCLT1Xs66Mgkl3mVzEsg6aYoWm2
856vRQio8sz3TRlMcVFc2rnewp67odlosNlUZ/C0lrXRiFdzv6fckU5xLU+nup5
857l4JvzPEiVy8CL0ybApblUuAb5lnT6wmUfCjTWHKKwodX52qNthPwehb2e8EJ
858Jt/+ehuRS2DKmglNuywK+yY9oer6CEQnyU54ZVAoPy0XZpNCQscu3ZuXTEHr
859UaQRv4SCSfNwZV4Ik7cz/ro8U9dWM/T512AKFyyTFv1qpdBl3bBsYRCzn/3X
860qrbfFBIHlwb0rqbgHlK4P1PIxuvOOA9vHwrJYx2fiLds5L/U25DlTKHbwOnC
861V0UOnm9+9/TibAqDXqVjW/U4CNtkQWlbUGCl6Dr/nMNBYMz/Nh81ozC161eP
862ZDAHCzasP5dmTMFTdNVA5RoH2xQd43YZUKglpuZZ+8ojw+t0SbsGhZM9X7K2
8635yrgBVvw+YcMc141v56JawqYZxv6oEiaQpnDfduUBgUIq9T8/KUotOTmvUgf
864UsCmOt2keywKssYXqEc6iqiL2b/z8hiJ+d0Bjl3RihDYc282fiVxwauhTnKK
865EkKFnJ/8ThLtExdkJ+sq4U7c0hC51yQ4RQecDIyVIOTXqPe3kwj/7fnI2V4J
866jdTCVbVtJMwLOtsyNyhBPH/vcOxzEqWjw1/1y5TAn/ulQLOJRPUxLb7zKi4C
867+7XkHCpJDDhIBvuHcKE5UC92ryChPfA+PyKCi/DhtZv9y0kkC4qMMndxURle
868MBpfRsLhs6VNx3kutot2OFaVkmiYL3SNGOfCxtQ9KP4yiadvohMOn1DGV7Pg
869Zzm5TD6J2NGzyrCiPMxe5pCQt2BH+hcro/rqbSGXsWNy7jqDOmUUFX4rTT1J
870olKnyePWR2U0PXdwiztGojDYwPDdbBXkb79xbMcREgndL1ssGlQwNnqpm9xH
871Qq9nvumTb5NRw3UUj0aT+OBawZaUUEXzq1hiKeNCsd1Hc7YqeNILxk9FkZiZ
872ZJuboaWKzhPaVU6RJEzULJSXOari5oqo7DMRJKwd9L4/ylKF/k7DLzEbmfPl
873sqsezlMD7/rP9D0BJMJ8W13vJ/Mw43WjnK0rCR694J1zOg+7w/BXqQuJu/yz
874sU1HeMg42BVjxVjnY1TO00IeNso/i7ZcSqItRmGwo4mH8SsSCjZCJj9z8ZFB
8759SmYczFxpetiEtMfiV9plEyB7MNFAbXzmf8XZKwPf6eON5Pli4rMSIjtpvNq
876+tTBtTthZM94v8X1e8rf1HH+pPa3F6Yk5vI79G8SGthp2b5WlrFobEa3lIkG
877FjR8zgk1JuF5tTowK04DoaVxyy1nknigNbDyNmcqFg00X5OcTuLWT1cXdVtN
878pGQsmu3PI/H3lPaTf1Zp4bJBmi4hydzPV7C1nqONX1JDViYDBBasSm429tKB
87955XU/k2dBPprFh4+elQXaw+5flRvJmD5gevhXTsdPzxUDrjdITBUKVwSKaeP
880c/qxx/tvEnD0OjSn29oADpMJ3S3FBNRy7IPEiTNwfxdNmhcQ0HSPGkitNURU
881KdEocYrAjQrx9uL+mTheZCWpKCLwsNOftraehdGH6pRZBoHYKtVx7jpjrB78
882VOC6n4CPtAd/KMMEFmnSxeO7mT72a3ib6XNTlNTXaBYmEfBoW74hMNkMV/XZ
883OpwEAoRioJmvvjmGvTNVw2IJ+MaZFnncM4eKz+un5lEEtlbtPh3rb4HlqyU4
884KREEmroUSoWs2dgSwo+qDyMw2KXt6CSajcw1l9emMH3zivJIupOxJS5deXUg
885KYTARf543/cmSzT8k/c+LIjpk5P2NzaHWOF2nQpZuoZA3BOXO76kNXo5ojv9
886fgSWxIpozmlrOCRmVyasZPJcz6yvtbGBdrmKk5UPcz/W+0t6bTZQTgqsaWf6
887dsPB81HiLbYwfGAWUr+cQPzY2eVfJ8+BAn9GR94yAnWi4A+m1+dg+fwrw3lu
888BFpVCr9nucyFT/OiPe0uBGaG8adfHZgL/sd+Q5mlTP0c/qORPXa4aFRcHyAk
889MCH3dpbdtHnY8jvjS4sjgWGnF/km1fMQItIpsFtCQLzR84TLChrf29fdfuBA
890oFqyNHTAl8Y0tWuJdxk3ZquZHfajERKhM6+a8duGttrWQBr6Ar8bJYyVjAI/
891Bm+iEUgKKrMZh3/aPHvbTho14pyJ9YwNN6XdP3ueRkJZvLcsY0vpnkNOl2jw
892dllbsRjjuNCvr5hGbh85+aeAeZ8HnH7zUhod8UMvPjNOnZWpUlFNIyD0/sYW
893xu/7ctY8baGxcgZun2E8kCJpGNNKQxglEJ9kPDZ17SDvFY0/61fmixhzXQx2
894r+6i8XdE+b50xvYXLxb19NKYuOscFM14qYNCdPpnGtLbWleG/1e/4w/adIDG
8956ZFoz/WM/+BYPo4eoXHFoF3oxzgh/0iW2iiNHtezS7wZp9Hfg8p+0hDwEx3c
896GR9q8Znl/4tGsGeoQMj45OaykYkJGhJnVgkEjP8FY+6m4Q==
897 "]]}},
898 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
899 Axes->{True, True},
900 AxesLabel->{None, None},
901 AxesOrigin->{0, 2.7600000000000002`},
902 DisplayFunction->Identity,
903 Frame->{{False, False}, {False, False}},
904 FrameLabel->{{None, None}, {None, None}},
905 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
906 GridLines->{None, None},
907 GridLinesStyle->Directive[
908 GrayLevel[0.5, 0.4]],
909 Method->{
910 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" ->
911 AbsolutePointSize[6], "ScalingFunctions" -> None},
912 PlotRange->{{0., 29.999999387755103`}, {2.75, 3.5}},
913 PlotRangeClipping->True,
914 PlotRangePadding->{{
915 Scaled[0.02],
916 Scaled[0.02]}, {0, 0}},
917 Ticks->{Automatic, Automatic}]], "Output",
918 CellChangeTimes->{{3.662833072114668*^9, 3.662833108611668*^9}, {
919 3.6628338517671847`*^9, 3.662833944346442*^9}}]
920}, Open ]],
921
922Cell[CellGroupData[{
923
924Cell[BoxData[
925 RowBox[{"100", "R"}]], "Input",
926 CellChangeTimes->{{3.662833124711668*^9, 3.662833125103668*^9}, {
927 3.662833477798792*^9, 3.662833478853897*^9}}],
928
929Cell[BoxData["6.9599`*^12"], "Output",
930 CellChangeTimes->{3.6628334795849705`*^9}]
931}, Open ]],
932
933Cell[BoxData[""], "Input",
934 CellChangeTimes->{{3.662833475234535*^9, 3.662833475591571*^9}}],
935
936Cell[CellGroupData[{
937
938Cell[BoxData[
939 RowBox[{"Solve", "[",
940 RowBox[{
941 RowBox[{
942 RowBox[{
943 RowBox[{"(",
944 RowBox[{
945 FractionBox[
946 RowBox[{"G", "*", "M"}], "R"], "-", " ",
947 FractionBox[
948 RowBox[{"G", "*", "M"}], "r"]}], ")"}], "/",
949 RowBox[{"(",
950 RowBox[{"G", "*",
951 FractionBox["M", "R"]}], ")"}]}], "\[Equal]", "0.999999"}], ",", "r"}],
952 "]"}]], "Input",
953 CellChangeTimes->{{3.662834276907695*^9, 3.6628343148290577`*^9}}],
954
955Cell[BoxData[
956 RowBox[{
957 StyleBox[
958 RowBox[{"Solve", "::", "ratnz"}], "MessageName"],
959 RowBox[{
960 ":", " "}], "\<\"Solve was unable to solve the system with inexact \
961coefficients. The answer was obtained by solving a corresponding exact system \
962and numericizing the result. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
963ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
964ButtonData:>\\\"paclet:ref/Solve\\\", ButtonNote -> \
965\\\"Solve::ratnz\\\"]\\)\"\>"}]], "Message", "MSG",
966 CellChangeTimes->{3.6628342966056643`*^9}]
967}, Open ]],
968
969Cell[BoxData[
970 RowBox[{"{",
971 RowBox[{"{",
972 RowBox[{"r", "\[Rule]", "6.959900000912273`*^16"}], "}"}], "}"}]], "Input",
973 CellChangeTimes->{{3.662834327464058*^9, 3.662834334393058*^9}}],
974
975Cell[CellGroupData[{
976
977Cell[BoxData[
978 RowBox[{
979 RowBox[{"(",
980 RowBox[{"6.959900000912273", "*",
981 RowBox[{"10", "^", "16"}]}], ")"}], "/", "pc"}]], "Input",
982 CellChangeTimes->{{3.662834336416058*^9, 3.662834354911058*^9}}],
983
984Cell[BoxData["0.022553143230435103`"], "Output",
985 CellChangeTimes->{3.662834356239058*^9}]
986}, Open ]]
987},
988WindowSize->{1100, 815},
989WindowMargins->{{Automatic, 206}, {53, Automatic}},
990FrontEndVersion->"10.1 for Microsoft Windows (64-bit) (March 23, 2015)",
991StyleDefinitions->"Default.nb"
992]
993(* End of Notebook Content *)
994
995(* Internal cache information *)
996(*CellTagsOutline
997CellTagsIndex->{}
998*)
999(*CellTagsIndex
1000CellTagsIndex->{}
1001*)
1002(*NotebookFileOutline
1003Notebook[{
1004Cell[558, 20, 224, 5, 31, "Input"],
1005Cell[785, 27, 341, 7, 31, "Input"],
1006Cell[1129, 36, 275, 7, 31, "Input"],
1007Cell[1407, 45, 270, 6, 31, "Input"],
1008Cell[1680, 53, 195, 4, 31, "Input"],
1009Cell[1878, 59, 287, 7, 31, "Input"],
1010Cell[2168, 68, 503, 12, 68, "Input"],
1011Cell[CellGroupData[{
1012Cell[2696, 84, 2645, 80, 110, "Input"],
1013Cell[5344, 166, 32352, 647, 272, "Output"]
1014}, Open ]],
1015Cell[CellGroupData[{
1016Cell[37733, 818, 141, 3, 31, "Input"],
1017Cell[37877, 823, 92, 1, 31, "Output"]
1018}, Open ]],
1019Cell[CellGroupData[{
1020Cell[38006, 829, 446, 12, 31, "Input"],
1021Cell[38455, 843, 3996, 75, 250, "Output"]
1022}, Open ]],
1023Cell[CellGroupData[{
1024Cell[42488, 923, 161, 3, 31, "Input"],
1025Cell[42652, 928, 82, 1, 31, "Output"]
1026}, Open ]],
1027Cell[42749, 932, 92, 1, 31, InheritFromParent],
1028Cell[CellGroupData[{
1029Cell[42866, 937, 462, 15, 46, "Input"],
1030Cell[43331, 954, 525, 11, 21, "Message"]
1031}, Open ]],
1032Cell[43871, 968, 189, 4, 31, InheritFromParent],
1033Cell[CellGroupData[{
1034Cell[44085, 976, 206, 5, 31, "Input"],
1035Cell[44294, 983, 90, 1, 64, "Output"]
1036}, Open ]]
1037}
1038]
1039*)
1040
1041(* End of internal cache information *)