ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/nonperiodicVSS/friction.nb
(Generate patch)

Comparing trunk/nonperiodicVSS/friction.nb (file contents):
Revision 3942 by kstocke1, Thu Aug 8 16:15:12 2013 UTC vs.
Revision 3943 by kstocke1, Mon Sep 2 20:34:55 2013 UTC

# Line 10 | Line 10 | NotebookDataLength[     14487,        426]
10   NotebookFileLineBreakTest
11   NotebookFileLineBreakTest
12   NotebookDataPosition[       157,          7]
13 < NotebookDataLength[     14487,        426]
14 < NotebookOptionsPosition[     12885,        369]
15 < NotebookOutlinePosition[     13239,        385]
16 < CellTagsIndexPosition[     13196,        382]
13 > NotebookDataLength[     16369,        461]
14 > NotebookOptionsPosition[     14762,        404]
15 > NotebookOutlinePosition[     15116,        420]
16 > CellTagsIndexPosition[     15073,        417]
17   WindowFrame->Normal*)
18  
19   (* Beginning of Notebook Content *)
20   Notebook[{
21 < Cell[BoxData[{
21 > Cell[BoxData[
22   RowBox[{
23 <  RowBox[{"a", " ", "=", " ", "33."}], ";"}], "\[IndentingNewLine]",
24 < RowBox[{
25 <  RowBox[{"b", " ", "=", " ", "13."}], ";"}], "\[IndentingNewLine]",
26 < RowBox[{
27 <  RowBox[{"r", " ", "=", " ", "40."}], ";"}], "\[IndentingNewLine]",
28 < RowBox[{
29 <  RowBox[{"eta", " ", "=", " ", "1."}], ";"}], "\n",
30 < RowBox[{
31 <  RowBox[{"ab", " ", "=", " ",
32 <   RowBox[{"Sqrt", "[",
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 <     RowBox[{"(",
40 <      RowBox[{"a", "^", "2"}], ")"}], "-",
41 <     RowBox[{"(",
42 <      RowBox[{"b", "^", "2"}], ")"}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
43 < RowBox[{
44 <  RowBox[{"v", " ", "=", " ",
45 <   RowBox[{"32", "*", "Pi", "*",
46 <    RowBox[{"eta", "/", "3"}]}]}], ";"}]}], "Input",
39 >    "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   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}}],
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}}],
68  
69   Cell[BoxData[
70   RowBox[{"\[IndentingNewLine]",
# Line 65 | Line 86 | Cell[BoxData["1.608495438637974`*^6"], "Output",
86      RowBox[{"r", "^", "3"}], ")"}]}]}]], "Input",
87   CellChangeTimes->{{3.584895562690569*^9, 3.584895581538089*^9}}],
88  
89 < Cell[BoxData["1.608495438637974`*^6"], "Output",
90 < CellChangeTimes->{3.5848955833332977`*^9, 3.584895910460045*^9}]
89 > 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   }, Open  ]],
94  
95   Cell[BoxData[
# Line 123 | Line 146 | Cell[BoxData["107748.7123755539`"], "Output",
146    3.584894131830501*^9}, {3.5848944118465767`*^9, 3.584894413689575*^9}, {
147    3.584894553484161*^9, 3.5848945620889597`*^9}}],
148  
149 < Cell[BoxData["107748.7123755539`"], "Output",
149 > Cell[BoxData["3.5988069933435006`*^-29"], "Output",
150   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 <   3.5848956426941223`*^9, 3.584895912816411*^9}]
156 >   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   }, Open  ]],
160  
161   Cell[BoxData[
# Line 180 | Line 205 | Cell[BoxData["269785.72042901954`"], "Output",
205     3.5848941203441153`*^9}, 3.5848944172115498`*^9, {3.584894722257359*^9,
206     3.584894733911747*^9}}],
207  
208 < Cell[BoxData["269785.72042901954`"], "Output",
208 > Cell[BoxData["9.010843062329251`*^-29"], "Output",
209   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 <   3.584895914221643*^9}]
215 >   3.584895914221643*^9, 3.5866998271353817`*^9, 3.586704693130818*^9,
216 >   3.586704778769905*^9, 3.586704850366987*^9, 3.586705118085232*^9,
217 >   3.586706485967189*^9}]
218   }, Open  ]],
219  
220   Cell[BoxData["\[IndentingNewLine]"], "Input",
# Line 278 | Line 305 | Cell[BoxData["0.7687260259259584`"], "Output",
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 <   3.5848950094024963`*^9}, 3.584895649579417*^9, 3.5848960393110647`*^9}]
308 >   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   }, Open  ]],
312  
313   Cell[BoxData[
# Line 317 | Line 346 | Cell[BoxData["1.9247682885909356`"], "Output",
346     3.584887926989279*^9, 3.584887942885796*^9}, {3.584890609957733*^9,
347     3.584890611532776*^9}, 3.584890951791182*^9}],
348  
349 < Cell[BoxData["1.9247682885909356`"], "Output",
349 > Cell[BoxData["1.924768288590935`"], "Output",
350   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 <   3.5848950109231567`*^9, 3.584895650617403*^9, 3.584896040714982*^9}]
354 >   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   }, Open  ]],
358  
359   Cell[BoxData[
# Line 340 | Line 371 | Cell[BoxData["107748.71237555385`"], "Output",
371    RowBox[{"Fax", " ", "*", " ", "eqSphere"}]}]], "Input",
372   CellChangeTimes->{{3.584891056631095*^9, 3.584891064865149*^9}}],
373  
374 < Cell[BoxData["107748.71237555385`"], "Output",
374 > Cell[BoxData["3.5988069933435135`*^-29"], "Output",
375   CellChangeTimes->{3.5848910656263733`*^9, 3.584891217398337*^9,
376    3.58489400012298*^9, 3.584895019483296*^9, 3.584895652455336*^9,
377 <  3.584896042503642*^9}]
377 >  3.584896042503642*^9, 3.586699834607826*^9, 3.586704699166651*^9,
378 >  3.586704785006289*^9, 3.586704858291555*^9, 3.5867051235852127`*^9,
379 >  3.586706492338463*^9}]
380   }, Open  ]],
381  
382   Cell[BoxData[
# Line 361 | Line 394 | Cell[BoxData["269785.7204290194`"], "Output",
394    RowBox[{"Feq", " ", "*", " ", "eqSphere"}]}]], "Input",
395   CellChangeTimes->{{3.584891025068652*^9, 3.584891029821259*^9}}],
396  
397 < Cell[BoxData["269785.7204290194`"], "Output",
397 > Cell[BoxData["9.010843062329284`*^-29"], "Output",
398   CellChangeTimes->{3.584891030572219*^9, 3.584891218233328*^9,
399    3.584894001208784*^9, 3.584895020435354*^9, 3.584895653375164*^9,
400 <  3.58489604404213*^9}]
400 >  3.58489604404213*^9, 3.5866998356785097`*^9, 3.586704701890503*^9,
401 >  3.5867047871298437`*^9, 3.586704859378227*^9, 3.586705125437768*^9,
402 >  3.586706494141871*^9}]
403   }, Open  ]]
404   },
405   WindowSize->{740, 876},
406 < WindowMargins->{{Automatic, 190}, {Automatic, 15}},
406 > WindowMargins->{{437, Automatic}, {62, Automatic}},
407   FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (July 22, \
408   2012)",
409   StyleDefinitions->"Default.nb"
# Line 384 | Line 419 | Cell[557, 20, 1053, 25, 103, "Input"],
419   *)
420   (*NotebookFileOutline
421   Notebook[{
422 < Cell[557, 20, 1053, 25, 103, "Input"],
423 < Cell[1613, 47, 204, 4, 43, "Input"],
424 < Cell[1820, 53, 164, 3, 27, "Input"],
422 > Cell[557, 20, 1920, 46, 133, "Input"],
423 > Cell[2480, 68, 204, 4, 43, "Input"],
424 > Cell[2687, 74, 164, 3, 27, "Input"],
425   Cell[CellGroupData[{
426 < Cell[2009, 60, 223, 5, 27, "Input"],
427 < Cell[2235, 67, 114, 1, 30, "Output"]
426 > Cell[2876, 81, 223, 5, 27, "Input"],
427 > Cell[3102, 88, 254, 3, 30, "Output"]
428   }, Open  ]],
429 < Cell[2364, 71, 335, 11, 27, "Input"],
430 < Cell[2702, 84, 318, 6, 27, "Input"],
431 < Cell[3023, 92, 524, 17, 43, "Input"],
429 > Cell[3371, 94, 335, 11, 27, "Input"],
430 > Cell[3709, 107, 318, 6, 27, "Input"],
431 > Cell[4030, 115, 524, 17, 43, "Input"],
432   Cell[CellGroupData[{
433 < Cell[3572, 113, 568, 10, 27, "Input"],
434 < Cell[4143, 125, 468, 7, 27, "Output"]
433 > Cell[4579, 136, 568, 10, 27, "Input"],
434 > Cell[5150, 148, 615, 9, 30, "Output"]
435   }, Open  ]],
436 < Cell[4626, 135, 343, 7, 43, "Input"],
437 < Cell[4972, 144, 717, 22, 43, "Input"],
436 > Cell[5780, 160, 343, 7, 43, "Input"],
437 > Cell[6126, 169, 717, 22, 43, "Input"],
438   Cell[CellGroupData[{
439 < Cell[5714, 170, 540, 10, 27, "Input"],
440 < Cell[6257, 182, 453, 7, 27, "Output"]
439 > Cell[6868, 195, 540, 10, 27, "Input"],
440 > Cell[7411, 207, 599, 9, 30, "Output"]
441   }, Open  ]],
442 < Cell[6725, 192, 109, 1, 43, "Input"],
443 < Cell[6837, 195, 284, 6, 43, "Input"],
444 < Cell[7124, 203, 1342, 37, 88, "Input"],
445 < Cell[8469, 242, 94, 1, 27, "Input"],
446 < Cell[8566, 245, 311, 6, 27, "Input"],
442 > 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   Cell[CellGroupData[{
448 < Cell[8902, 255, 615, 17, 27, "Input"],
449 < Cell[9520, 274, 421, 6, 27, "Output"]
448 > Cell[10202, 282, 615, 17, 27, "Input"],
449 > Cell[10820, 301, 561, 8, 27, "Output"]
450   }, Open  ]],
451 < Cell[9956, 283, 364, 7, 43, "Input"],
451 > Cell[11396, 312, 364, 7, 43, "Input"],
452   Cell[CellGroupData[{
453 < Cell[10345, 294, 782, 23, 27, "Input"],
454 < Cell[11130, 319, 355, 5, 27, "Output"]
453 > Cell[11785, 323, 782, 23, 27, "Input"],
454 > Cell[12570, 348, 500, 7, 27, "Output"]
455   }, Open  ]],
456 < Cell[11500, 327, 289, 6, 43, "Input"],
456 > Cell[13085, 358, 289, 6, 43, "Input"],
457   Cell[CellGroupData[{
458 < Cell[11814, 337, 169, 3, 27, "Input"],
459 < Cell[11986, 342, 205, 3, 27, "Output"]
458 > Cell[13399, 368, 169, 3, 27, "Input"],
459 > Cell[13571, 373, 350, 5, 30, "Output"]
460   }, Open  ]],
461 < Cell[12206, 348, 264, 6, 27, "Input"],
461 > Cell[13936, 381, 264, 6, 27, "Input"],
462   Cell[CellGroupData[{
463 < Cell[12495, 358, 169, 3, 27, "Input"],
464 < Cell[12667, 363, 202, 3, 27, "Output"]
463 > Cell[14225, 391, 169, 3, 27, "Input"],
464 > Cell[14397, 396, 349, 5, 30, "Output"]
465   }, Open  ]]
466   }
467   ]

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines