1 |
kstocke1 |
3933 |
(* 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 |
kstocke1 |
3943 |
NotebookDataLength[ 16369, 461] |
14 |
|
|
NotebookOptionsPosition[ 14762, 404] |
15 |
|
|
NotebookOutlinePosition[ 15116, 420] |
16 |
|
|
CellTagsIndexPosition[ 15073, 417] |
17 |
kstocke1 |
3933 |
WindowFrame->Normal*) |
18 |
|
|
|
19 |
|
|
(* Beginning of Notebook Content *) |
20 |
|
|
Notebook[{ |
21 |
kstocke1 |
3943 |
Cell[BoxData[ |
22 |
kstocke1 |
3933 |
RowBox[{ |
23 |
kstocke1 |
3943 |
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 |
kstocke1 |
3933 |
RowBox[{ |
39 |
kstocke1 |
3943 |
"eta", " ", "in", " ", "units", " ", "of", " ", "Pa", "*", "s", " ", "or", |
40 |
|
|
" ", "N", "*", |
41 |
|
|
RowBox[{"s", "/", |
42 |
|
|
RowBox[{"m", "^", "2"}]}]}], " ", "*)"}], "\[IndentingNewLine]", |
43 |
|
|
RowBox[{ |
44 |
|
|
RowBox[{"eta", " ", "=", " ", "0.000334"}], ";"}], "\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 |
kstocke1 |
3933 |
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 |
kstocke1 |
3943 |
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}}], |
68 |
kstocke1 |
3933 |
|
69 |
|
|
Cell[BoxData[ |
70 |
|
|
RowBox[{"\[IndentingNewLine]", |
71 |
|
|
RowBox[{"(*", " ", |
72 |
|
|
RowBox[{"RESISTANCE", " ", "TENSORS"}], " ", "*)"}]}]], "Input", |
73 |
|
|
CellChangeTimes->{{3.5848081048411083`*^9, 3.584808114547517*^9}}], |
74 |
|
|
|
75 |
|
|
Cell[BoxData[ |
76 |
|
|
RowBox[{"(*", " ", |
77 |
|
|
RowBox[{"sphere", " ", "rotation"}], " ", "*)"}]], "Input", |
78 |
|
|
CellChangeTimes->{{3.5848955452222424`*^9, 3.584895552580024*^9}}], |
79 |
|
|
|
80 |
|
|
Cell[CellGroupData[{ |
81 |
|
|
|
82 |
|
|
Cell[BoxData[ |
83 |
|
|
RowBox[{"XiS", " ", "=", " ", |
84 |
|
|
RowBox[{"8.", "*", "Pi", "*", "eta", "*", |
85 |
|
|
RowBox[{"(", |
86 |
|
|
RowBox[{"r", "^", "3"}], ")"}]}]}]], "Input", |
87 |
|
|
CellChangeTimes->{{3.584895562690569*^9, 3.584895581538089*^9}}], |
88 |
|
|
|
89 |
kstocke1 |
3943 |
Cell[BoxData["5.372374765050834`*^-28"], "Output", |
90 |
|
|
CellChangeTimes->{3.5848955833332977`*^9, 3.584895910460045*^9, |
91 |
|
|
3.586699817892194*^9, 3.586704684940571*^9, 3.586704772274445*^9, |
92 |
|
|
3.586704844305737*^9, 3.586705113459869*^9, 3.586706480803813*^9}] |
93 |
kstocke1 |
3933 |
}, Open ]], |
94 |
|
|
|
95 |
|
|
Cell[BoxData[ |
96 |
|
|
RowBox[{ |
97 |
|
|
RowBox[{"S", " ", "=", " ", |
98 |
|
|
RowBox[{ |
99 |
|
|
RowBox[{"(", |
100 |
|
|
RowBox[{"2", "/", "ab"}], ")"}], "*", |
101 |
|
|
RowBox[{"Log", "[", |
102 |
|
|
RowBox[{ |
103 |
|
|
RowBox[{"(", |
104 |
|
|
RowBox[{"a", "+", "ab"}], ")"}], "/", "b"}], "]"}]}]}], ";"}]], "Input",\ |
105 |
|
|
|
106 |
|
|
CellChangeTimes->{{3.584895591890572*^9, 3.584895628889739*^9}}], |
107 |
|
|
|
108 |
|
|
Cell[BoxData[ |
109 |
|
|
RowBox[{"(*", " ", |
110 |
|
|
RowBox[{"ellipsoid", " ", "axial", " ", |
111 |
|
|
RowBox[{"rotation", " ", "--"}], " ", "about", " ", "long", " ", "axis"}], |
112 |
|
|
" ", "*)"}]], "Input", |
113 |
|
|
CellChangeTimes->{{3.584807845501628*^9, 3.584807881963066*^9}, |
114 |
|
|
3.58480810065349*^9, {3.584810005255805*^9, 3.584810006597301*^9}}], |
115 |
|
|
|
116 |
|
|
Cell[BoxData[{ |
117 |
|
|
RowBox[{ |
118 |
|
|
RowBox[{"nXiA", " ", "=", " ", |
119 |
|
|
RowBox[{ |
120 |
|
|
RowBox[{"(", |
121 |
|
|
RowBox[{"ab", "^", "2"}], ")"}], "*", |
122 |
|
|
RowBox[{"(", |
123 |
|
|
RowBox[{"b", "^", "2"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", |
124 |
|
|
RowBox[{ |
125 |
|
|
RowBox[{"dXiA", " ", "=", " ", |
126 |
|
|
RowBox[{"(", |
127 |
|
|
RowBox[{ |
128 |
|
|
RowBox[{"2", "*", "a"}], " ", "-", " ", |
129 |
|
|
RowBox[{ |
130 |
|
|
RowBox[{"(", |
131 |
|
|
RowBox[{"b", "^", "2"}], ")"}], "*", "S"}]}], ")"}]}], ";"}]}], "Input",\ |
132 |
|
|
|
133 |
|
|
CellChangeTimes->{{3.584894479745336*^9, 3.584894547193737*^9}}], |
134 |
|
|
|
135 |
|
|
Cell[CellGroupData[{ |
136 |
|
|
|
137 |
|
|
Cell[BoxData[ |
138 |
|
|
RowBox[{"XiA", " ", "=", " ", |
139 |
|
|
RowBox[{"v", " ", "*", |
140 |
|
|
RowBox[{"(", " ", |
141 |
|
|
RowBox[{"nXiA", "/", "dXiA"}], ")"}]}]}]], "Input", |
142 |
|
|
CellChangeTimes->{{3.584807580926756*^9, 3.5848076774271517`*^9}, { |
143 |
|
|
3.584893446441492*^9, 3.584893456926993*^9}, {3.584893513019639*^9, |
144 |
|
|
3.5848935374433117`*^9}, {3.5848937295629377`*^9, 3.5848937320361967`*^9}, { |
145 |
|
|
3.5848940598863373`*^9, 3.5848940827349033`*^9}, {3.584894124697816*^9, |
146 |
|
|
3.584894131830501*^9}, {3.5848944118465767`*^9, 3.584894413689575*^9}, { |
147 |
|
|
3.584894553484161*^9, 3.5848945620889597`*^9}}], |
148 |
|
|
|
149 |
kstocke1 |
3943 |
Cell[BoxData["3.5988069933435006`*^-29"], "Output", |
150 |
kstocke1 |
3933 |
CellChangeTimes->{ |
151 |
|
|
3.58480767838589*^9, 3.584812369332225*^9, 3.58489067890679*^9, |
152 |
|
|
3.584893466947144*^9, {3.584893515809536*^9, 3.5848935380765*^9}, |
153 |
|
|
3.584893667613534*^9, 3.584893745846806*^9, 3.584893991496749*^9, { |
154 |
|
|
3.5848940686270847`*^9, 3.584894083689426*^9}, 3.584894132885084*^9, |
155 |
|
|
3.584894209263301*^9, 3.5848944220659027`*^9, 3.584894562584774*^9, |
156 |
kstocke1 |
3943 |
3.5848956426941223`*^9, 3.584895912816411*^9, 3.586699824159266*^9, |
157 |
|
|
3.586704688787434*^9, 3.5867047762806807`*^9, 3.58670484784446*^9, |
158 |
|
|
3.586705115994009*^9, 3.586706483628399*^9}] |
159 |
kstocke1 |
3933 |
}, Open ]], |
160 |
|
|
|
161 |
|
|
Cell[BoxData[ |
162 |
|
|
RowBox[{"\[IndentingNewLine]", |
163 |
|
|
RowBox[{"(*", " ", |
164 |
|
|
RowBox[{"ellipsoid", " ", "equatorial", " ", |
165 |
|
|
RowBox[{"rotation", " ", "--"}], " ", "about", " ", "short", " ", |
166 |
|
|
"axes"}], " ", "*)"}]}]], "Input", |
167 |
|
|
CellChangeTimes->{{3.5848078641082973`*^9, 3.584807887971993*^9}, { |
168 |
|
|
3.584810008477813*^9, 3.58481001069223*^9}}], |
169 |
|
|
|
170 |
|
|
Cell[BoxData[{ |
171 |
|
|
RowBox[{ |
172 |
|
|
RowBox[{"nXiB", " ", "=", " ", |
173 |
|
|
RowBox[{ |
174 |
|
|
RowBox[{"(", |
175 |
|
|
RowBox[{"a", "^", "4"}], ")"}], "-", |
176 |
|
|
RowBox[{"(", |
177 |
|
|
RowBox[{"b", "^", "4"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", |
178 |
|
|
RowBox[{ |
179 |
|
|
RowBox[{"dXiB", " ", "=", " ", |
180 |
|
|
RowBox[{ |
181 |
|
|
RowBox[{ |
182 |
|
|
RowBox[{"(", |
183 |
|
|
RowBox[{ |
184 |
|
|
RowBox[{"2", "*", |
185 |
|
|
RowBox[{"(", |
186 |
|
|
RowBox[{"a", "^", "2"}], ")"}]}], "-", |
187 |
|
|
RowBox[{"(", |
188 |
|
|
RowBox[{"b", "^", "2"}], ")"}]}], ")"}], "*", "S"}], " ", "-", " ", |
189 |
|
|
RowBox[{"(", |
190 |
|
|
RowBox[{"2", "*", "a"}], ")"}]}]}], ";"}]}], "Input", |
191 |
|
|
CellChangeTimes->{{3.584894566445219*^9, 3.5848945876718807`*^9}, { |
192 |
|
|
3.5848946888115788`*^9, 3.5848947150455017`*^9}}], |
193 |
|
|
|
194 |
|
|
Cell[CellGroupData[{ |
195 |
|
|
|
196 |
|
|
Cell[BoxData[ |
197 |
|
|
RowBox[{"XiB", " ", "=", " ", |
198 |
|
|
RowBox[{"v", " ", "*", " ", |
199 |
|
|
RowBox[{"(", |
200 |
|
|
RowBox[{"nXiB", "/", "dXiB"}], ")"}]}]}]], "Input", |
201 |
|
|
CellChangeTimes->{{3.584807667200397*^9, 3.5848076699441557`*^9}, { |
202 |
|
|
3.5848077499771643`*^9, 3.584807786900511*^9}, {3.584893547107358*^9, |
203 |
|
|
3.584893579226317*^9}, {3.58489389632187*^9, 3.584893901176014*^9}, { |
204 |
|
|
3.584893943459343*^9, 3.584893946518909*^9}, {3.584894088000602*^9, |
205 |
|
|
3.5848941203441153`*^9}, 3.5848944172115498`*^9, {3.584894722257359*^9, |
206 |
|
|
3.584894733911747*^9}}], |
207 |
|
|
|
208 |
kstocke1 |
3943 |
Cell[BoxData["9.010843062329251`*^-29"], "Output", |
209 |
kstocke1 |
3933 |
CellChangeTimes->{ |
210 |
|
|
3.584807788832862*^9, 3.584812370076736*^9, 3.5848906801945047`*^9, |
211 |
|
|
3.5848935801190357`*^9, 3.5848936688170233`*^9, 3.5848939033674097`*^9, { |
212 |
|
|
3.58489396555275*^9, 3.584893992584134*^9}, 3.5848940700482283`*^9, { |
213 |
|
|
3.584894103054511*^9, 3.584894120965992*^9}, 3.584894210383068*^9, |
214 |
|
|
3.584894423252715*^9, 3.584894734499061*^9, 3.58489564491859*^9, |
215 |
kstocke1 |
3943 |
3.584895914221643*^9, 3.5866998271353817`*^9, 3.586704693130818*^9, |
216 |
|
|
3.586704778769905*^9, 3.586704850366987*^9, 3.586705118085232*^9, |
217 |
|
|
3.586706485967189*^9}] |
218 |
kstocke1 |
3933 |
}, Open ]], |
219 |
|
|
|
220 |
|
|
Cell[BoxData["\[IndentingNewLine]"], "Input", |
221 |
|
|
CellChangeTimes->{3.584887428382176*^9, 3.584891660811152*^9}], |
222 |
|
|
|
223 |
|
|
Cell[BoxData[ |
224 |
|
|
RowBox[{"\[IndentingNewLine]", |
225 |
|
|
RowBox[{"(*", " ", |
226 |
|
|
RowBox[{"FRICTION", " ", "FACTORS", " ", "via", " ", "Wikipedia"}], " ", |
227 |
|
|
"*)"}]}]], "Input", |
228 |
|
|
CellChangeTimes->{{3.584887434985119*^9, 3.58488743942144*^9}, { |
229 |
|
|
3.5848907429833384`*^9, 3.584890746521543*^9}}], |
230 |
|
|
|
231 |
|
|
Cell[BoxData[{ |
232 |
|
|
RowBox[{ |
233 |
|
|
RowBox[{"xi", " ", "=", |
234 |
|
|
RowBox[{ |
235 |
|
|
RowBox[{"Sqrt", "[", |
236 |
|
|
RowBox[{ |
237 |
|
|
RowBox[{"(", |
238 |
|
|
RowBox[{"p", "^", "2"}], ")"}], "-", "1"}], "]"}], "/", "p"}]}], |
239 |
|
|
";"}], "\[IndentingNewLine]", |
240 |
|
|
RowBox[{ |
241 |
|
|
RowBox[{"s", " ", "=", " ", |
242 |
|
|
RowBox[{"2", "*", |
243 |
|
|
RowBox[{ |
244 |
|
|
RowBox[{"ArcTanh", "[", "xi", "]"}], "/", "xi"}]}]}], |
245 |
|
|
";"}], "\[IndentingNewLine]", |
246 |
|
|
RowBox[{ |
247 |
|
|
RowBox[{"p", " ", "=", " ", |
248 |
|
|
RowBox[{"a", "/", "b"}]}], ";"}], "\[IndentingNewLine]", |
249 |
|
|
RowBox[{ |
250 |
|
|
RowBox[{"re", " ", "=", " ", |
251 |
|
|
RowBox[{ |
252 |
|
|
RowBox[{"(", |
253 |
|
|
RowBox[{"a", "*", |
254 |
|
|
RowBox[{"(", |
255 |
|
|
RowBox[{"b", "^", "2"}], ")"}]}], ")"}], "^", |
256 |
|
|
RowBox[{"(", |
257 |
|
|
RowBox[{"1", "/", "3"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", |
258 |
|
|
RowBox[{ |
259 |
|
|
RowBox[{"eqSphere", " ", "=", " ", |
260 |
|
|
RowBox[{"8", "*", "Pi", "*", "eta", "*", |
261 |
|
|
RowBox[{"(", |
262 |
|
|
RowBox[{"re", "^", "3"}], ")"}]}]}], ";"}]}], "Input", |
263 |
|
|
CellChangeTimes->{{3.584887453255073*^9, 3.584887474611525*^9}, { |
264 |
|
|
3.584887518352754*^9, 3.5848875201183167`*^9}, {3.5848875705654163`*^9, |
265 |
|
|
3.584887612684559*^9}, {3.584891207938551*^9, 3.5848912105877657`*^9}, { |
266 |
|
|
3.58489477575947*^9, 3.584894789206271*^9}, {3.5848948909071417`*^9, |
267 |
|
|
3.5848949045983353`*^9}, {3.584895894748207*^9, 3.58489594161933*^9}, { |
268 |
|
|
3.584895989916945*^9, 3.584896035299241*^9}}], |
269 |
|
|
|
270 |
|
|
Cell[BoxData[""], "Input", |
271 |
|
|
CellChangeTimes->{{3.5848876347988167`*^9, 3.584887638277546*^9}}], |
272 |
|
|
|
273 |
|
|
Cell[BoxData[ |
274 |
|
|
RowBox[{"(*", " ", |
275 |
|
|
RowBox[{"ellipsoid", " ", "axial", " ", "friction", " ", |
276 |
|
|
RowBox[{"factor", " ", "--"}], " ", "about", " ", "long", " ", "axis"}], |
277 |
|
|
" ", "*)"}]], "Input", |
278 |
|
|
CellChangeTimes->{{3.58488764265452*^9, 3.584887652272901*^9}, { |
279 |
|
|
3.58489128903328*^9, 3.5848912914194727`*^9}}], |
280 |
|
|
|
281 |
|
|
Cell[CellGroupData[{ |
282 |
|
|
|
283 |
|
|
Cell[BoxData[ |
284 |
|
|
RowBox[{"Fax", " ", "=", " ", |
285 |
|
|
RowBox[{ |
286 |
|
|
RowBox[{"(", |
287 |
|
|
RowBox[{"4", "/", "3"}], ")"}], "*", |
288 |
|
|
RowBox[{ |
289 |
|
|
RowBox[{"(", |
290 |
|
|
RowBox[{"xi", "^", "2"}], ")"}], "/", |
291 |
|
|
RowBox[{"(", |
292 |
|
|
RowBox[{"2", "-", |
293 |
|
|
RowBox[{"(", |
294 |
|
|
RowBox[{"s", "/", |
295 |
|
|
RowBox[{"(", |
296 |
|
|
RowBox[{"p", "^", "2"}], ")"}]}], ")"}]}], ")"}]}]}]}]], "Input", |
297 |
|
|
CellChangeTimes->{{3.58488765759788*^9, 3.584887700018955*^9}, { |
298 |
|
|
3.5848879174727783`*^9, 3.584887938981941*^9}, {3.584890603482909*^9, |
299 |
|
|
3.5848906063233852`*^9}, 3.584890946638309*^9, {3.584894926277274*^9, |
300 |
|
|
3.584894983989938*^9}}], |
301 |
|
|
|
302 |
|
|
Cell[BoxData["0.7687260259259584`"], "Output", |
303 |
|
|
CellChangeTimes->{ |
304 |
|
|
3.58488770586084*^9, {3.58488792206218*^9, 3.584887939492504*^9}, |
305 |
|
|
3.584890608261299*^9, 3.5848906924156*^9, 3.584890948261269*^9, |
306 |
|
|
3.584891214003551*^9, 3.584893997414321*^9, 3.584894794095375*^9, |
307 |
|
|
3.5848948750854387`*^9, 3.584894906946406*^9, {3.584894984628289*^9, |
308 |
kstocke1 |
3943 |
3.5848950094024963`*^9}, 3.584895649579417*^9, 3.5848960393110647`*^9, |
309 |
|
|
3.586699830645979*^9, 3.5867046965751457`*^9, 3.58670478211369*^9, |
310 |
|
|
3.58670485421113*^9, 3.586705120876774*^9, 3.586706489578327*^9}] |
311 |
kstocke1 |
3933 |
}, Open ]], |
312 |
|
|
|
313 |
|
|
Cell[BoxData[ |
314 |
|
|
RowBox[{"\n", |
315 |
|
|
RowBox[{"(*", " ", |
316 |
|
|
RowBox[{"ellipsoid", " ", "equatorial", " ", "friction", " ", |
317 |
|
|
RowBox[{"factor", " ", "--"}], " ", "about", " ", "short", " ", "axes"}], |
318 |
|
|
" ", "*)"}]}]], "Input", |
319 |
|
|
CellChangeTimes->{{3.584887710741127*^9, 3.584887713271037*^9}, |
320 |
|
|
3.584887813383315*^9, {3.584891294243541*^9, 3.5848912960435057`*^9}}], |
321 |
|
|
|
322 |
|
|
Cell[CellGroupData[{ |
323 |
|
|
|
324 |
|
|
Cell[BoxData[ |
325 |
|
|
RowBox[{"Feq", " ", "=", " ", |
326 |
|
|
RowBox[{ |
327 |
|
|
RowBox[{"(", |
328 |
|
|
RowBox[{"4", "/", "3"}], ")"}], " ", "*", " ", |
329 |
|
|
RowBox[{ |
330 |
|
|
RowBox[{"(", |
331 |
|
|
RowBox[{ |
332 |
|
|
RowBox[{ |
333 |
|
|
RowBox[{"(", |
334 |
|
|
RowBox[{"1", "/", "p"}], ")"}], "^", "2"}], " ", "-", " ", |
335 |
|
|
RowBox[{"p", "^", "2"}]}], ")"}], "/", |
336 |
|
|
RowBox[{"(", |
337 |
|
|
RowBox[{"2", " ", "-", " ", |
338 |
|
|
RowBox[{"s", "*", |
339 |
|
|
RowBox[{"(", |
340 |
|
|
RowBox[{"2", " ", "-", " ", |
341 |
|
|
RowBox[{ |
342 |
|
|
RowBox[{"(", |
343 |
|
|
RowBox[{"1", "/", "p"}], ")"}], "^", "2"}]}], ")"}]}]}], |
344 |
|
|
")"}]}]}]}]], "Input", |
345 |
|
|
CellChangeTimes->{{3.584887727157157*^9, 3.584887769116691*^9}, { |
346 |
|
|
3.584887926989279*^9, 3.584887942885796*^9}, {3.584890609957733*^9, |
347 |
|
|
3.584890611532776*^9}, 3.584890951791182*^9}], |
348 |
|
|
|
349 |
kstocke1 |
3943 |
Cell[BoxData["1.924768288590935`"], "Output", |
350 |
kstocke1 |
3933 |
CellChangeTimes->{ |
351 |
|
|
3.5848877700852623`*^9, {3.584887929629698*^9, 3.5848879434378977`*^9}, |
352 |
|
|
3.584890612056086*^9, 3.5848906935323477`*^9, 3.584890952137286*^9, |
353 |
|
|
3.584891216311064*^9, 3.584893998534431*^9, 3.584894876538658*^9, |
354 |
kstocke1 |
3943 |
3.5848950109231567`*^9, 3.584895650617403*^9, 3.584896040714982*^9, |
355 |
|
|
3.5866998334559813`*^9, 3.586704697863037*^9, 3.5867047835855827`*^9, |
356 |
|
|
3.586704856869244*^9, 3.586705122378854*^9, 3.5867064906482763`*^9}] |
357 |
kstocke1 |
3933 |
}, Open ]], |
358 |
|
|
|
359 |
|
|
Cell[BoxData[ |
360 |
|
|
RowBox[{"\[IndentingNewLine]", |
361 |
|
|
RowBox[{"(*", " ", |
362 |
|
|
RowBox[{"ellipsoid", " ", "axial", " ", "rotational", " ", "friction"}], |
363 |
|
|
" ", "*)"}]}]], "Input", |
364 |
|
|
CellChangeTimes->{{3.58489104521352*^9, 3.584891053491618*^9}, { |
365 |
|
|
3.584891299813236*^9, 3.5848913004309483`*^9}}], |
366 |
|
|
|
367 |
|
|
Cell[CellGroupData[{ |
368 |
|
|
|
369 |
|
|
Cell[BoxData[ |
370 |
|
|
RowBox[{"fAx", " ", "=", " ", |
371 |
|
|
RowBox[{"Fax", " ", "*", " ", "eqSphere"}]}]], "Input", |
372 |
|
|
CellChangeTimes->{{3.584891056631095*^9, 3.584891064865149*^9}}], |
373 |
|
|
|
374 |
kstocke1 |
3943 |
Cell[BoxData["3.5988069933435135`*^-29"], "Output", |
375 |
kstocke1 |
3933 |
CellChangeTimes->{3.5848910656263733`*^9, 3.584891217398337*^9, |
376 |
|
|
3.58489400012298*^9, 3.584895019483296*^9, 3.584895652455336*^9, |
377 |
kstocke1 |
3943 |
3.584896042503642*^9, 3.586699834607826*^9, 3.586704699166651*^9, |
378 |
|
|
3.586704785006289*^9, 3.586704858291555*^9, 3.5867051235852127`*^9, |
379 |
|
|
3.586706492338463*^9}] |
380 |
kstocke1 |
3933 |
}, Open ]], |
381 |
|
|
|
382 |
|
|
Cell[BoxData[ |
383 |
|
|
RowBox[{"(*", " ", |
384 |
|
|
RowBox[{ |
385 |
|
|
"ellipsoid", " ", "equatorial", " ", "rotational", " ", "friction"}], " ", |
386 |
|
|
"*)"}]], "Input", |
387 |
|
|
CellChangeTimes->{{3.5848910141246853`*^9, 3.584891022193733*^9}, { |
388 |
|
|
3.5848913017358427`*^9, 3.5848913022309103`*^9}}], |
389 |
|
|
|
390 |
|
|
Cell[CellGroupData[{ |
391 |
|
|
|
392 |
|
|
Cell[BoxData[ |
393 |
|
|
RowBox[{"fEq", " ", "=", " ", |
394 |
|
|
RowBox[{"Feq", " ", "*", " ", "eqSphere"}]}]], "Input", |
395 |
|
|
CellChangeTimes->{{3.584891025068652*^9, 3.584891029821259*^9}}], |
396 |
|
|
|
397 |
kstocke1 |
3943 |
Cell[BoxData["9.010843062329284`*^-29"], "Output", |
398 |
kstocke1 |
3933 |
CellChangeTimes->{3.584891030572219*^9, 3.584891218233328*^9, |
399 |
|
|
3.584894001208784*^9, 3.584895020435354*^9, 3.584895653375164*^9, |
400 |
kstocke1 |
3943 |
3.58489604404213*^9, 3.5866998356785097`*^9, 3.586704701890503*^9, |
401 |
|
|
3.5867047871298437`*^9, 3.586704859378227*^9, 3.586705125437768*^9, |
402 |
|
|
3.586706494141871*^9}] |
403 |
kstocke1 |
3933 |
}, Open ]] |
404 |
|
|
}, |
405 |
|
|
WindowSize->{740, 876}, |
406 |
kstocke1 |
3943 |
WindowMargins->{{437, Automatic}, {62, Automatic}}, |
407 |
kstocke1 |
3933 |
FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (July 22, \ |
408 |
|
|
2012)", |
409 |
|
|
StyleDefinitions->"Default.nb" |
410 |
|
|
] |
411 |
|
|
(* End of Notebook Content *) |
412 |
|
|
|
413 |
|
|
(* Internal cache information *) |
414 |
|
|
(*CellTagsOutline |
415 |
|
|
CellTagsIndex->{} |
416 |
|
|
*) |
417 |
|
|
(*CellTagsIndex |
418 |
|
|
CellTagsIndex->{} |
419 |
|
|
*) |
420 |
|
|
(*NotebookFileOutline |
421 |
|
|
Notebook[{ |
422 |
kstocke1 |
3943 |
Cell[557, 20, 1920, 46, 133, "Input"], |
423 |
|
|
Cell[2480, 68, 204, 4, 43, "Input"], |
424 |
|
|
Cell[2687, 74, 164, 3, 27, "Input"], |
425 |
kstocke1 |
3933 |
Cell[CellGroupData[{ |
426 |
kstocke1 |
3943 |
Cell[2876, 81, 223, 5, 27, "Input"], |
427 |
|
|
Cell[3102, 88, 254, 3, 30, "Output"] |
428 |
kstocke1 |
3933 |
}, Open ]], |
429 |
kstocke1 |
3943 |
Cell[3371, 94, 335, 11, 27, "Input"], |
430 |
|
|
Cell[3709, 107, 318, 6, 27, "Input"], |
431 |
|
|
Cell[4030, 115, 524, 17, 43, "Input"], |
432 |
kstocke1 |
3933 |
Cell[CellGroupData[{ |
433 |
kstocke1 |
3943 |
Cell[4579, 136, 568, 10, 27, "Input"], |
434 |
|
|
Cell[5150, 148, 615, 9, 30, "Output"] |
435 |
kstocke1 |
3933 |
}, Open ]], |
436 |
kstocke1 |
3943 |
Cell[5780, 160, 343, 7, 43, "Input"], |
437 |
|
|
Cell[6126, 169, 717, 22, 43, "Input"], |
438 |
kstocke1 |
3933 |
Cell[CellGroupData[{ |
439 |
kstocke1 |
3943 |
Cell[6868, 195, 540, 10, 27, "Input"], |
440 |
|
|
Cell[7411, 207, 599, 9, 30, "Output"] |
441 |
kstocke1 |
3933 |
}, Open ]], |
442 |
kstocke1 |
3943 |
Cell[8025, 219, 109, 1, 43, "Input"], |
443 |
|
|
Cell[8137, 222, 284, 6, 43, "Input"], |
444 |
|
|
Cell[8424, 230, 1342, 37, 88, "Input"], |
445 |
|
|
Cell[9769, 269, 94, 1, 27, "Input"], |
446 |
|
|
Cell[9866, 272, 311, 6, 27, "Input"], |
447 |
kstocke1 |
3933 |
Cell[CellGroupData[{ |
448 |
kstocke1 |
3943 |
Cell[10202, 282, 615, 17, 27, "Input"], |
449 |
|
|
Cell[10820, 301, 561, 8, 27, "Output"] |
450 |
kstocke1 |
3933 |
}, Open ]], |
451 |
kstocke1 |
3943 |
Cell[11396, 312, 364, 7, 43, "Input"], |
452 |
kstocke1 |
3933 |
Cell[CellGroupData[{ |
453 |
kstocke1 |
3943 |
Cell[11785, 323, 782, 23, 27, "Input"], |
454 |
|
|
Cell[12570, 348, 500, 7, 27, "Output"] |
455 |
kstocke1 |
3933 |
}, Open ]], |
456 |
kstocke1 |
3943 |
Cell[13085, 358, 289, 6, 43, "Input"], |
457 |
kstocke1 |
3933 |
Cell[CellGroupData[{ |
458 |
kstocke1 |
3943 |
Cell[13399, 368, 169, 3, 27, "Input"], |
459 |
|
|
Cell[13571, 373, 350, 5, 30, "Output"] |
460 |
kstocke1 |
3933 |
}, Open ]], |
461 |
kstocke1 |
3943 |
Cell[13936, 381, 264, 6, 27, "Input"], |
462 |
kstocke1 |
3933 |
Cell[CellGroupData[{ |
463 |
kstocke1 |
3943 |
Cell[14225, 391, 169, 3, 27, "Input"], |
464 |
|
|
Cell[14397, 396, 349, 5, 30, "Output"] |
465 |
kstocke1 |
3933 |
}, Open ]] |
466 |
|
|
} |
467 |
|
|
] |
468 |
|
|
*) |
469 |
|
|
|
470 |
|
|
(* End of internal cache information *) |