1 |
(* Content-type: application/vnd.wolfram.mathematica *) |
2 |
|
3 |
(*** Wolfram Notebook File ***) |
4 |
(* http://www.wolfram.com/nb *) |
5 |
|
6 |
(* CreatedBy='Mathematica 8.0' *) |
7 |
|
8 |
(*CacheID: 234*) |
9 |
(* Internal cache information: |
10 |
NotebookFileLineBreakTest |
11 |
NotebookFileLineBreakTest |
12 |
NotebookDataPosition[ 157, 7] |
13 |
NotebookDataLength[ 19104, 539] |
14 |
NotebookOptionsPosition[ 17047, 466] |
15 |
NotebookOutlinePosition[ 17401, 482] |
16 |
CellTagsIndexPosition[ 17358, 479] |
17 |
WindowFrame->Normal*) |
18 |
|
19 |
(* Beginning of Notebook Content *) |
20 |
Notebook[{ |
21 |
Cell[BoxData[ |
22 |
RowBox[{ |
23 |
RowBox[{"(*", " ", |
24 |
RowBox[{"a", ",", " ", "b", ",", " ", |
25 |
RowBox[{"r", " ", "in", " ", "units", " ", "of", " ", "meters"}]}], " ", |
26 |
"*)"}], "\[IndentingNewLine]", |
27 |
RowBox[{ |
28 |
RowBox[{ |
29 |
RowBox[{"a", " ", "=", " ", "0.0000000033"}], ";"}], |
30 |
"\[IndentingNewLine]", |
31 |
RowBox[{ |
32 |
RowBox[{"b", " ", "=", " ", "0.0000000013"}], ";"}], |
33 |
"\[IndentingNewLine]", |
34 |
RowBox[{ |
35 |
RowBox[{"r", " ", "=", " ", "0.0000000040"}], ";"}], |
36 |
"\[IndentingNewLine]", |
37 |
RowBox[{"(*", " ", |
38 |
RowBox[{ |
39 |
"eta", " ", "in", " ", "units", " ", "of", " ", "Pa", "*", "s", " ", "or", |
40 |
" ", "N", "*", |
41 |
RowBox[{"s", "/", |
42 |
RowBox[{"m", "^", "2"}]}]}], " ", "*)"}], "\[IndentingNewLine]", |
43 |
RowBox[{ |
44 |
RowBox[{"eta", " ", "=", " ", "0.000305"}], ";"}], "\n", |
45 |
RowBox[{ |
46 |
RowBox[{"ab", " ", "=", " ", |
47 |
RowBox[{"Sqrt", "[", |
48 |
RowBox[{ |
49 |
RowBox[{"(", |
50 |
RowBox[{"a", "^", "2"}], ")"}], "-", |
51 |
RowBox[{"(", |
52 |
RowBox[{"b", "^", "2"}], ")"}]}], "]"}]}], ";"}], |
53 |
"\[IndentingNewLine]", |
54 |
RowBox[{ |
55 |
RowBox[{"v", " ", "=", " ", |
56 |
RowBox[{"32", "*", "Pi", "*", |
57 |
RowBox[{"eta", "/", "3"}]}]}], ";"}]}]}]], "Input", |
58 |
CellChangeTimes->{{3.584807426161751*^9, 3.584807453166168*^9}, { |
59 |
3.5848098994271517`*^9, 3.58480990098132*^9}, {3.584890669262165*^9, |
60 |
3.5848906732045937`*^9}, 3.5848942046023273`*^9, 3.5848942364960403`*^9, { |
61 |
3.584894394914665*^9, 3.584894407017727*^9}, {3.584894867879013*^9, |
62 |
3.5848948703643208`*^9}, {3.584895906363385*^9, 3.584895906913582*^9}, { |
63 |
3.586699807267563*^9, 3.586699811802783*^9}, {3.5867045314674397`*^9, |
64 |
3.586704560779134*^9}, {3.586704640818076*^9, 3.586704681909463*^9}, { |
65 |
3.5867047559862347`*^9, 3.586704766892249*^9}, {3.586704828026332*^9, |
66 |
3.586704834460175*^9}, {3.586705096638748*^9, 3.586705109311314*^9}, { |
67 |
3.586706477114703*^9, 3.58670647750175*^9}, {3.587302011140431*^9, |
68 |
3.5873020120979347`*^9}}], |
69 |
|
70 |
Cell[BoxData[ |
71 |
RowBox[{"\[IndentingNewLine]", |
72 |
RowBox[{"(*", " ", |
73 |
RowBox[{"RESISTANCE", " ", "TENSORS"}], " ", "*)"}]}]], "Input", |
74 |
CellChangeTimes->{{3.5848081048411083`*^9, 3.584808114547517*^9}}], |
75 |
|
76 |
Cell[BoxData[ |
77 |
RowBox[{"(*", " ", |
78 |
RowBox[{"sphere", " ", "rotation"}], " ", "*)"}]], "Input", |
79 |
CellChangeTimes->{{3.5848955452222424`*^9, 3.584895552580024*^9}}], |
80 |
|
81 |
Cell[CellGroupData[{ |
82 |
|
83 |
Cell[BoxData[ |
84 |
RowBox[{"XiS", " ", "=", " ", |
85 |
RowBox[{"8.", "*", "Pi", "*", "eta", "*", |
86 |
RowBox[{"(", |
87 |
RowBox[{"r", "^", "3"}], ")"}]}]}]], "Input", |
88 |
CellChangeTimes->{{3.584895562690569*^9, 3.584895581538089*^9}}], |
89 |
|
90 |
Cell[BoxData["4.905911087845821`*^-28"], "Output", |
91 |
CellChangeTimes->{3.5848955833332977`*^9, 3.584895910460045*^9, |
92 |
3.586699817892194*^9, 3.586704684940571*^9, 3.586704772274445*^9, |
93 |
3.586704844305737*^9, 3.586705113459869*^9, 3.586706480803813*^9, |
94 |
3.5873020194381523`*^9, 3.592229882745839*^9}] |
95 |
}, Open ]], |
96 |
|
97 |
Cell[BoxData[ |
98 |
RowBox[{ |
99 |
RowBox[{"S", " ", "=", " ", |
100 |
RowBox[{ |
101 |
RowBox[{"(", |
102 |
RowBox[{"2", "/", "ab"}], ")"}], "*", |
103 |
RowBox[{"Log", "[", |
104 |
RowBox[{ |
105 |
RowBox[{"(", |
106 |
RowBox[{"a", "+", "ab"}], ")"}], "/", "b"}], "]"}]}]}], ";"}]], "Input",\ |
107 |
|
108 |
CellChangeTimes->{{3.584895591890572*^9, 3.584895628889739*^9}}], |
109 |
|
110 |
Cell[BoxData[ |
111 |
RowBox[{"(*", " ", |
112 |
RowBox[{"ellipsoid", " ", "axial", " ", |
113 |
RowBox[{"rotation", " ", "--"}], " ", "about", " ", "long", " ", "axis"}], |
114 |
" ", "*)"}]], "Input", |
115 |
CellChangeTimes->{{3.584807845501628*^9, 3.584807881963066*^9}, |
116 |
3.58480810065349*^9, {3.584810005255805*^9, 3.584810006597301*^9}}], |
117 |
|
118 |
Cell[BoxData[{ |
119 |
RowBox[{ |
120 |
RowBox[{"nXiA", " ", "=", " ", |
121 |
RowBox[{ |
122 |
RowBox[{"(", |
123 |
RowBox[{"ab", "^", "2"}], ")"}], "*", |
124 |
RowBox[{"(", |
125 |
RowBox[{"b", "^", "2"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", |
126 |
RowBox[{ |
127 |
RowBox[{"dXiA", " ", "=", " ", |
128 |
RowBox[{"(", |
129 |
RowBox[{ |
130 |
RowBox[{"2", "*", "a"}], " ", "-", " ", |
131 |
RowBox[{ |
132 |
RowBox[{"(", |
133 |
RowBox[{"b", "^", "2"}], ")"}], "*", "S"}]}], ")"}]}], ";"}]}], "Input",\ |
134 |
|
135 |
CellChangeTimes->{{3.584894479745336*^9, 3.584894547193737*^9}}], |
136 |
|
137 |
Cell[CellGroupData[{ |
138 |
|
139 |
Cell[BoxData[ |
140 |
RowBox[{"XiA", " ", "=", " ", |
141 |
RowBox[{"v", " ", "*", |
142 |
RowBox[{"(", " ", |
143 |
RowBox[{"nXiA", "/", "dXiA"}], ")"}]}]}]], "Input", |
144 |
CellChangeTimes->{{3.584807580926756*^9, 3.5848076774271517`*^9}, { |
145 |
3.584893446441492*^9, 3.584893456926993*^9}, {3.584893513019639*^9, |
146 |
3.5848935374433117`*^9}, {3.5848937295629377`*^9, 3.5848937320361967`*^9}, { |
147 |
3.5848940598863373`*^9, 3.5848940827349033`*^9}, {3.584894124697816*^9, |
148 |
3.584894131830501*^9}, {3.5848944118465767`*^9, 3.584894413689575*^9}, { |
149 |
3.584894553484161*^9, 3.5848945620889597`*^9}}], |
150 |
|
151 |
Cell[BoxData["3.286335727454394`*^-29"], "Output", |
152 |
CellChangeTimes->{ |
153 |
3.58480767838589*^9, 3.584812369332225*^9, 3.58489067890679*^9, |
154 |
3.584893466947144*^9, {3.584893515809536*^9, 3.5848935380765*^9}, |
155 |
3.584893667613534*^9, 3.584893745846806*^9, 3.584893991496749*^9, { |
156 |
3.5848940686270847`*^9, 3.584894083689426*^9}, 3.584894132885084*^9, |
157 |
3.584894209263301*^9, 3.5848944220659027`*^9, 3.584894562584774*^9, |
158 |
3.5848956426941223`*^9, 3.584895912816411*^9, 3.586699824159266*^9, |
159 |
3.586704688787434*^9, 3.5867047762806807`*^9, 3.58670484784446*^9, |
160 |
3.586705115994009*^9, 3.586706483628399*^9, 3.587302022625839*^9, { |
161 |
3.592229884604623*^9, 3.592229886190812*^9}}] |
162 |
}, Open ]], |
163 |
|
164 |
Cell[BoxData[ |
165 |
RowBox[{"\[IndentingNewLine]", |
166 |
RowBox[{"(*", " ", |
167 |
RowBox[{"ellipsoid", " ", "equatorial", " ", |
168 |
RowBox[{"rotation", " ", "--"}], " ", "about", " ", "short", " ", |
169 |
"axes"}], " ", "*)"}]}]], "Input", |
170 |
CellChangeTimes->{{3.5848078641082973`*^9, 3.584807887971993*^9}, { |
171 |
3.584810008477813*^9, 3.58481001069223*^9}}], |
172 |
|
173 |
Cell[BoxData[{ |
174 |
RowBox[{ |
175 |
RowBox[{"nXiB", " ", "=", " ", |
176 |
RowBox[{ |
177 |
RowBox[{"(", |
178 |
RowBox[{"a", "^", "4"}], ")"}], "-", |
179 |
RowBox[{"(", |
180 |
RowBox[{"b", "^", "4"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", |
181 |
RowBox[{ |
182 |
RowBox[{"dXiB", " ", "=", " ", |
183 |
RowBox[{ |
184 |
RowBox[{ |
185 |
RowBox[{"(", |
186 |
RowBox[{ |
187 |
RowBox[{"2", "*", |
188 |
RowBox[{"(", |
189 |
RowBox[{"a", "^", "2"}], ")"}]}], "-", |
190 |
RowBox[{"(", |
191 |
RowBox[{"b", "^", "2"}], ")"}]}], ")"}], "*", "S"}], " ", "-", " ", |
192 |
RowBox[{"(", |
193 |
RowBox[{"2", "*", "a"}], ")"}]}]}], ";"}]}], "Input", |
194 |
CellChangeTimes->{{3.584894566445219*^9, 3.5848945876718807`*^9}, { |
195 |
3.5848946888115788`*^9, 3.5848947150455017`*^9}}], |
196 |
|
197 |
Cell[CellGroupData[{ |
198 |
|
199 |
Cell[BoxData[ |
200 |
RowBox[{"XiB", " ", "=", " ", |
201 |
RowBox[{"v", " ", "*", " ", |
202 |
RowBox[{"(", |
203 |
RowBox[{"nXiB", "/", "dXiB"}], ")"}]}]}]], "Input", |
204 |
CellChangeTimes->{{3.584807667200397*^9, 3.5848076699441557`*^9}, { |
205 |
3.5848077499771643`*^9, 3.584807786900511*^9}, {3.584893547107358*^9, |
206 |
3.584893579226317*^9}, {3.58489389632187*^9, 3.584893901176014*^9}, { |
207 |
3.584893943459343*^9, 3.584893946518909*^9}, {3.584894088000602*^9, |
208 |
3.5848941203441153`*^9}, 3.5848944172115498`*^9, {3.584894722257359*^9, |
209 |
3.584894733911747*^9}}], |
210 |
|
211 |
Cell[BoxData["8.228464473085094`*^-29"], "Output", |
212 |
CellChangeTimes->{ |
213 |
3.584807788832862*^9, 3.584812370076736*^9, 3.5848906801945047`*^9, |
214 |
3.5848935801190357`*^9, 3.5848936688170233`*^9, 3.5848939033674097`*^9, { |
215 |
3.58489396555275*^9, 3.584893992584134*^9}, 3.5848940700482283`*^9, { |
216 |
3.584894103054511*^9, 3.584894120965992*^9}, 3.584894210383068*^9, |
217 |
3.584894423252715*^9, 3.584894734499061*^9, 3.58489564491859*^9, |
218 |
3.584895914221643*^9, 3.5866998271353817`*^9, 3.586704693130818*^9, |
219 |
3.586704778769905*^9, 3.586704850366987*^9, 3.586705118085232*^9, |
220 |
3.586706485967189*^9, 3.587302024980714*^9, 3.592229888275922*^9}] |
221 |
}, Open ]], |
222 |
|
223 |
Cell[BoxData["\[IndentingNewLine]"], "Input", |
224 |
CellChangeTimes->{3.584887428382176*^9, 3.584891660811152*^9}], |
225 |
|
226 |
Cell[BoxData[ |
227 |
RowBox[{"\[IndentingNewLine]", |
228 |
RowBox[{"(*", " ", |
229 |
RowBox[{"FRICTION", " ", "FACTORS", " ", "via", " ", "Wikipedia"}], " ", |
230 |
"*)"}]}]], "Input", |
231 |
CellChangeTimes->{{3.584887434985119*^9, 3.58488743942144*^9}, { |
232 |
3.5848907429833384`*^9, 3.584890746521543*^9}}], |
233 |
|
234 |
Cell[BoxData[{ |
235 |
RowBox[{ |
236 |
RowBox[{"xi", " ", "=", |
237 |
RowBox[{ |
238 |
RowBox[{"Sqrt", "[", |
239 |
RowBox[{ |
240 |
RowBox[{"(", |
241 |
RowBox[{"p", "^", "2"}], ")"}], "-", "1"}], "]"}], "/", "p"}]}], |
242 |
";"}], "\[IndentingNewLine]", |
243 |
RowBox[{ |
244 |
RowBox[{"s", " ", "=", " ", |
245 |
RowBox[{"2", "*", |
246 |
RowBox[{ |
247 |
RowBox[{"ArcTanh", "[", "xi", "]"}], "/", "xi"}]}]}], |
248 |
";"}], "\[IndentingNewLine]", |
249 |
RowBox[{ |
250 |
RowBox[{"p", " ", "=", " ", |
251 |
RowBox[{"a", "/", "b"}]}], ";"}], "\[IndentingNewLine]", |
252 |
RowBox[{ |
253 |
RowBox[{"re", " ", "=", " ", |
254 |
RowBox[{ |
255 |
RowBox[{"(", |
256 |
RowBox[{"a", "*", |
257 |
RowBox[{"(", |
258 |
RowBox[{"b", "^", "2"}], ")"}]}], ")"}], "^", |
259 |
RowBox[{"(", |
260 |
RowBox[{"1", "/", "3"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", |
261 |
RowBox[{ |
262 |
RowBox[{"eqSphere", " ", "=", " ", |
263 |
RowBox[{"8", "*", "Pi", "*", "eta", "*", |
264 |
RowBox[{"(", |
265 |
RowBox[{"re", "^", "3"}], ")"}]}]}], ";"}]}], "Input", |
266 |
CellChangeTimes->{{3.584887453255073*^9, 3.584887474611525*^9}, { |
267 |
3.584887518352754*^9, 3.5848875201183167`*^9}, {3.5848875705654163`*^9, |
268 |
3.584887612684559*^9}, {3.584891207938551*^9, 3.5848912105877657`*^9}, { |
269 |
3.58489477575947*^9, 3.584894789206271*^9}, {3.5848948909071417`*^9, |
270 |
3.5848949045983353`*^9}, {3.584895894748207*^9, 3.58489594161933*^9}, { |
271 |
3.584895989916945*^9, 3.584896035299241*^9}}], |
272 |
|
273 |
Cell[BoxData[""], "Input", |
274 |
CellChangeTimes->{{3.5848876347988167`*^9, 3.584887638277546*^9}}], |
275 |
|
276 |
Cell[BoxData[ |
277 |
RowBox[{"(*", " ", |
278 |
RowBox[{"ellipsoid", " ", "axial", " ", "friction", " ", |
279 |
RowBox[{"factor", " ", "--"}], " ", "about", " ", "long", " ", "axis"}], |
280 |
" ", "*)"}]], "Input", |
281 |
CellChangeTimes->{{3.58488764265452*^9, 3.584887652272901*^9}, { |
282 |
3.58489128903328*^9, 3.5848912914194727`*^9}}], |
283 |
|
284 |
Cell[CellGroupData[{ |
285 |
|
286 |
Cell[BoxData[ |
287 |
RowBox[{"Fax", " ", "=", " ", |
288 |
RowBox[{ |
289 |
RowBox[{"(", |
290 |
RowBox[{"4", "/", "3"}], ")"}], "*", |
291 |
RowBox[{ |
292 |
RowBox[{"(", |
293 |
RowBox[{"xi", "^", "2"}], ")"}], "/", |
294 |
RowBox[{"(", |
295 |
RowBox[{"2", "-", |
296 |
RowBox[{"(", |
297 |
RowBox[{"s", "/", |
298 |
RowBox[{"(", |
299 |
RowBox[{"p", "^", "2"}], ")"}]}], ")"}]}], ")"}]}]}]}]], "Input", |
300 |
CellChangeTimes->{{3.58488765759788*^9, 3.584887700018955*^9}, { |
301 |
3.5848879174727783`*^9, 3.584887938981941*^9}, {3.584890603482909*^9, |
302 |
3.5848906063233852`*^9}, 3.584890946638309*^9, {3.584894926277274*^9, |
303 |
3.584894983989938*^9}}], |
304 |
|
305 |
Cell[BoxData["0.7687260259259584`"], "Output", |
306 |
CellChangeTimes->{ |
307 |
3.58488770586084*^9, {3.58488792206218*^9, 3.584887939492504*^9}, |
308 |
3.584890608261299*^9, 3.5848906924156*^9, 3.584890948261269*^9, |
309 |
3.584891214003551*^9, 3.584893997414321*^9, 3.584894794095375*^9, |
310 |
3.5848948750854387`*^9, 3.584894906946406*^9, {3.584894984628289*^9, |
311 |
3.5848950094024963`*^9}, 3.584895649579417*^9, 3.5848960393110647`*^9, |
312 |
3.586699830645979*^9, 3.5867046965751457`*^9, 3.58670478211369*^9, |
313 |
3.58670485421113*^9, 3.586705120876774*^9, 3.586706489578327*^9, |
314 |
3.587302029126953*^9, 3.592229891604624*^9, 3.592230285429771*^9}] |
315 |
}, Open ]], |
316 |
|
317 |
Cell[BoxData[ |
318 |
RowBox[{"\n", |
319 |
RowBox[{"(*", " ", |
320 |
RowBox[{"ellipsoid", " ", "equatorial", " ", "friction", " ", |
321 |
RowBox[{"factor", " ", "--"}], " ", "about", " ", "short", " ", "axes"}], |
322 |
" ", "*)"}]}]], "Input", |
323 |
CellChangeTimes->{{3.584887710741127*^9, 3.584887713271037*^9}, |
324 |
3.584887813383315*^9, {3.584891294243541*^9, 3.5848912960435057`*^9}}], |
325 |
|
326 |
Cell[CellGroupData[{ |
327 |
|
328 |
Cell[BoxData[ |
329 |
RowBox[{"Feq", " ", "=", " ", |
330 |
RowBox[{ |
331 |
RowBox[{"(", |
332 |
RowBox[{"4", "/", "3"}], ")"}], " ", "*", " ", |
333 |
RowBox[{ |
334 |
RowBox[{"(", |
335 |
RowBox[{ |
336 |
RowBox[{ |
337 |
RowBox[{"(", |
338 |
RowBox[{"1", "/", "p"}], ")"}], "^", "2"}], " ", "-", " ", |
339 |
RowBox[{"p", "^", "2"}]}], ")"}], "/", |
340 |
RowBox[{"(", |
341 |
RowBox[{"2", " ", "-", " ", |
342 |
RowBox[{"s", "*", |
343 |
RowBox[{"(", |
344 |
RowBox[{"2", " ", "-", " ", |
345 |
RowBox[{ |
346 |
RowBox[{"(", |
347 |
RowBox[{"1", "/", "p"}], ")"}], "^", "2"}]}], ")"}]}]}], |
348 |
")"}]}]}]}]], "Input", |
349 |
CellChangeTimes->{{3.584887727157157*^9, 3.584887769116691*^9}, { |
350 |
3.584887926989279*^9, 3.584887942885796*^9}, {3.584890609957733*^9, |
351 |
3.584890611532776*^9}, 3.584890951791182*^9}], |
352 |
|
353 |
Cell[BoxData["1.924768288590935`"], "Output", |
354 |
CellChangeTimes->{ |
355 |
3.5848877700852623`*^9, {3.584887929629698*^9, 3.5848879434378977`*^9}, |
356 |
3.584890612056086*^9, 3.5848906935323477`*^9, 3.584890952137286*^9, |
357 |
3.584891216311064*^9, 3.584893998534431*^9, 3.584894876538658*^9, |
358 |
3.5848950109231567`*^9, 3.584895650617403*^9, 3.584896040714982*^9, |
359 |
3.5866998334559813`*^9, 3.586704697863037*^9, 3.5867047835855827`*^9, |
360 |
3.586704856869244*^9, 3.586705122378854*^9, 3.5867064906482763`*^9, |
361 |
3.587302031033265*^9, 3.5922298926407747`*^9, 3.592230287769177*^9}] |
362 |
}, Open ]], |
363 |
|
364 |
Cell[BoxData[ |
365 |
RowBox[{"\[IndentingNewLine]", |
366 |
RowBox[{"(*", " ", |
367 |
RowBox[{"ellipsoid", " ", "axial", " ", "rotational", " ", "friction"}], |
368 |
" ", "*)"}]}]], "Input", |
369 |
CellChangeTimes->{{3.58489104521352*^9, 3.584891053491618*^9}, { |
370 |
3.584891299813236*^9, 3.5848913004309483`*^9}}], |
371 |
|
372 |
Cell[CellGroupData[{ |
373 |
|
374 |
Cell[BoxData[ |
375 |
RowBox[{"fAx", " ", "=", " ", |
376 |
RowBox[{"Fax", " ", "*", " ", "eqSphere"}]}]], "Input", |
377 |
CellChangeTimes->{{3.584891056631095*^9, 3.584891064865149*^9}}], |
378 |
|
379 |
Cell[BoxData["3.2863357274544055`*^-29"], "Output", |
380 |
CellChangeTimes->{3.5848910656263733`*^9, 3.584891217398337*^9, |
381 |
3.58489400012298*^9, 3.584895019483296*^9, 3.584895652455336*^9, |
382 |
3.584896042503642*^9, 3.586699834607826*^9, 3.586704699166651*^9, |
383 |
3.586704785006289*^9, 3.586704858291555*^9, 3.5867051235852127`*^9, |
384 |
3.586706492338463*^9, 3.5873020329225597`*^9, 3.5922298941614933`*^9, |
385 |
3.592230289358754*^9}] |
386 |
}, Open ]], |
387 |
|
388 |
Cell[BoxData[ |
389 |
RowBox[{"(*", " ", |
390 |
RowBox[{ |
391 |
"ellipsoid", " ", "equatorial", " ", "rotational", " ", "friction"}], " ", |
392 |
"*)"}]], "Input", |
393 |
CellChangeTimes->{{3.5848910141246853`*^9, 3.584891022193733*^9}, { |
394 |
3.5848913017358427`*^9, 3.5848913022309103`*^9}}], |
395 |
|
396 |
Cell[CellGroupData[{ |
397 |
|
398 |
Cell[BoxData[ |
399 |
RowBox[{"fEq", " ", "=", " ", |
400 |
RowBox[{"Feq", " ", "*", " ", "eqSphere"}]}]], "Input", |
401 |
CellChangeTimes->{{3.584891025068652*^9, 3.584891029821259*^9}}], |
402 |
|
403 |
Cell[BoxData["8.228464473085123`*^-29"], "Output", |
404 |
CellChangeTimes->{3.584891030572219*^9, 3.584891218233328*^9, |
405 |
3.584894001208784*^9, 3.584895020435354*^9, 3.584895653375164*^9, |
406 |
3.58489604404213*^9, 3.5866998356785097`*^9, 3.586704701890503*^9, |
407 |
3.5867047871298437`*^9, 3.586704859378227*^9, 3.586705125437768*^9, |
408 |
3.586706494141871*^9, 3.587302037451337*^9, 3.592229895414654*^9, |
409 |
3.5922301525824823`*^9, 3.592230291731276*^9}] |
410 |
}, Open ]], |
411 |
|
412 |
Cell[CellGroupData[{ |
413 |
|
414 |
Cell[BoxData[ |
415 |
RowBox[{"sphere20", " ", "=", " ", |
416 |
RowBox[{"8.", "*", "Pi", "*", "eta", "*", |
417 |
RowBox[{"(", |
418 |
RowBox[{"0.000000002", "^", "3"}], ")"}]}]}]], "Input", |
419 |
CellChangeTimes->{{3.59222982607369*^9, 3.592229856411433*^9}, { |
420 |
3.5922299746610317`*^9, 3.592229974997485*^9}, {3.592230008276516*^9, |
421 |
3.592230018198002*^9}}], |
422 |
|
423 |
Cell[BoxData["6.132388859807276`*^-29"], "Output", |
424 |
CellChangeTimes->{{3.592229849445587*^9, 3.5922298567993317`*^9}, |
425 |
3.592229896417653*^9, {3.592230012116171*^9, 3.592230019100162*^9}, |
426 |
3.59223015505754*^9, 3.592230292819572*^9}] |
427 |
}, Open ]], |
428 |
|
429 |
Cell[CellGroupData[{ |
430 |
|
431 |
Cell[BoxData[ |
432 |
RowBox[{"sphere30", " ", "=", " ", |
433 |
RowBox[{"8.", "*", "Pi", "*", "eta", "*", |
434 |
RowBox[{"(", |
435 |
RowBox[{"0.000000003", "^", "3"}], ")"}]}]}]], "Input", |
436 |
CellChangeTimes->{{3.5922300231785307`*^9, 3.592230041833757*^9}}], |
437 |
|
438 |
Cell[BoxData["2.0696812401849554`*^-28"], "Output", |
439 |
CellChangeTimes->{{3.5922300382599373`*^9, 3.592230042239984*^9}, |
440 |
3.592230155927438*^9, 3.592230293654245*^9}] |
441 |
}, Open ]], |
442 |
|
443 |
Cell[CellGroupData[{ |
444 |
|
445 |
Cell[BoxData[ |
446 |
RowBox[{"sphere40", " ", "=", " ", |
447 |
RowBox[{"8.", "*", "Pi", "*", "eta", "*", |
448 |
RowBox[{"(", |
449 |
RowBox[{"0.000000004", "^", "3"}], ")"}]}]}]], "Input", |
450 |
CellChangeTimes->{{3.592230072390108*^9, 3.592230087171822*^9}}], |
451 |
|
452 |
Cell[BoxData["4.905911087845821`*^-28"], "Output", |
453 |
CellChangeTimes->{3.5922300877395563`*^9, 3.592230156546358*^9, |
454 |
3.592230294507525*^9}] |
455 |
}, Open ]], |
456 |
|
457 |
Cell[CellGroupData[{ |
458 |
|
459 |
Cell[BoxData["eqSphere"], "Input", |
460 |
CellChangeTimes->{{3.592230118312943*^9, 3.5922301195153713`*^9}}], |
461 |
|
462 |
Cell[BoxData["4.275041583893163`*^-29"], "Output", |
463 |
CellChangeTimes->{3.592230120102518*^9, 3.592230158066312*^9, |
464 |
3.592230295963499*^9}] |
465 |
}, Open ]] |
466 |
}, |
467 |
WindowSize->{740, 876}, |
468 |
WindowMargins->{{Automatic, 110}, {12, Automatic}}, |
469 |
FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (July 22, \ |
470 |
2012)", |
471 |
StyleDefinitions->"Default.nb" |
472 |
] |
473 |
(* End of Notebook Content *) |
474 |
|
475 |
(* Internal cache information *) |
476 |
(*CellTagsOutline |
477 |
CellTagsIndex->{} |
478 |
*) |
479 |
(*CellTagsIndex |
480 |
CellTagsIndex->{} |
481 |
*) |
482 |
(*NotebookFileOutline |
483 |
Notebook[{ |
484 |
Cell[557, 20, 1972, 47, 133, "Input"], |
485 |
Cell[2532, 69, 204, 4, 43, "Input"], |
486 |
Cell[2739, 75, 164, 3, 27, "Input"], |
487 |
Cell[CellGroupData[{ |
488 |
Cell[2928, 82, 223, 5, 27, "Input"], |
489 |
Cell[3154, 89, 303, 4, 30, "Output"] |
490 |
}, Open ]], |
491 |
Cell[3472, 96, 335, 11, 27, "Input"], |
492 |
Cell[3810, 109, 318, 6, 27, "Input"], |
493 |
Cell[4131, 117, 524, 17, 43, "Input"], |
494 |
Cell[CellGroupData[{ |
495 |
Cell[4680, 138, 568, 10, 27, "Input"], |
496 |
Cell[5251, 150, 686, 10, 30, "Output"] |
497 |
}, Open ]], |
498 |
Cell[5952, 163, 343, 7, 43, "Input"], |
499 |
Cell[6298, 172, 717, 22, 43, "Input"], |
500 |
Cell[CellGroupData[{ |
501 |
Cell[7040, 198, 540, 10, 27, "Input"], |
502 |
Cell[7583, 210, 643, 9, 30, "Output"] |
503 |
}, Open ]], |
504 |
Cell[8241, 222, 109, 1, 43, "Input"], |
505 |
Cell[8353, 225, 284, 6, 43, "Input"], |
506 |
Cell[8640, 233, 1342, 37, 88, "Input"], |
507 |
Cell[9985, 272, 94, 1, 27, "Input"], |
508 |
Cell[10082, 275, 311, 6, 27, "Input"], |
509 |
Cell[CellGroupData[{ |
510 |
Cell[10418, 285, 615, 17, 27, "Input"], |
511 |
Cell[11036, 304, 631, 9, 27, "Output"] |
512 |
}, Open ]], |
513 |
Cell[11682, 316, 364, 7, 43, "Input"], |
514 |
Cell[CellGroupData[{ |
515 |
Cell[12071, 327, 782, 23, 27, "Input"], |
516 |
Cell[12856, 352, 572, 8, 27, "Output"] |
517 |
}, Open ]], |
518 |
Cell[13443, 363, 289, 6, 43, "Input"], |
519 |
Cell[CellGroupData[{ |
520 |
Cell[13757, 373, 169, 3, 27, "Input"], |
521 |
Cell[13929, 378, 423, 6, 30, "Output"] |
522 |
}, Open ]], |
523 |
Cell[14367, 387, 264, 6, 27, "Input"], |
524 |
Cell[CellGroupData[{ |
525 |
Cell[14656, 397, 169, 3, 27, "Input"], |
526 |
Cell[14828, 402, 442, 6, 30, "Output"] |
527 |
}, Open ]], |
528 |
Cell[CellGroupData[{ |
529 |
Cell[15307, 413, 337, 7, 27, "Input"], |
530 |
Cell[15647, 422, 237, 3, 30, "Output"] |
531 |
}, Open ]], |
532 |
Cell[CellGroupData[{ |
533 |
Cell[15921, 430, 240, 5, 27, "Input"], |
534 |
Cell[16164, 437, 167, 2, 30, "Output"] |
535 |
}, Open ]], |
536 |
Cell[CellGroupData[{ |
537 |
Cell[16368, 444, 238, 5, 27, "Input"], |
538 |
Cell[16609, 451, 141, 2, 30, "Output"] |
539 |
}, Open ]], |
540 |
Cell[CellGroupData[{ |
541 |
Cell[16787, 458, 102, 1, 27, "Input"], |
542 |
Cell[16892, 461, 139, 2, 30, "Output"] |
543 |
}, Open ]] |
544 |
} |
545 |
] |
546 |
*) |
547 |
|
548 |
(* End of internal cache information *) |