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 3946 by kstocke1, Mon Sep 2 20:34:55 2013 UTC vs.
Revision 3947 by kstocke1, Fri Sep 6 13:09:47 2013 UTC

# Line 10 | Line 10 | NotebookDataLength[     16369,        461]
10   NotebookFileLineBreakTest
11   NotebookFileLineBreakTest
12   NotebookDataPosition[       157,          7]
13 < NotebookDataLength[     16369,        461]
14 < NotebookOptionsPosition[     14762,        404]
15 < NotebookOutlinePosition[     15116,        420]
16 < CellTagsIndexPosition[     15073,        417]
13 > NotebookDataLength[     16589,        465]
14 > NotebookOptionsPosition[     14982,        408]
15 > NotebookOutlinePosition[     15336,        424]
16 > CellTagsIndexPosition[     15293,        421]
17   WindowFrame->Normal*)
18  
19   (* Beginning of Notebook Content *)
# Line 41 | Line 41 | Cell[BoxData[
41       RowBox[{"s", "/",
42        RowBox[{"m", "^", "2"}]}]}], " ", "*)"}], "\[IndentingNewLine]",
43     RowBox[{
44 <    RowBox[{"eta", " ", "=", " ", "0.000334"}], ";"}], "\n",
44 >    RowBox[{"eta", " ", "=", " ", "0.000305"}], ";"}], "\n",
45     RowBox[{
46      RowBox[{"ab", " ", "=", " ",
47       RowBox[{"Sqrt", "[",
# Line 64 | Line 64 | Cell[BoxData[
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}}],
67 >   3.586706477114703*^9, 3.58670647750175*^9}, {3.587302011140431*^9,
68 >   3.5873020120979347`*^9}}],
69  
70   Cell[BoxData[
71   RowBox[{"\[IndentingNewLine]",
# Line 86 | Line 87 | Cell[BoxData["5.372374765050834`*^-28"], "Output",
87      RowBox[{"r", "^", "3"}], ")"}]}]}]], "Input",
88   CellChangeTimes->{{3.584895562690569*^9, 3.584895581538089*^9}}],
89  
90 < Cell[BoxData["5.372374765050834`*^-28"], "Output",
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}]
93 >  3.586704844305737*^9, 3.586705113459869*^9, 3.586706480803813*^9,
94 >  3.5873020194381523`*^9}]
95   }, Open  ]],
96  
97   Cell[BoxData[
# Line 146 | Line 148 | Cell[BoxData["3.5988069933435006`*^-29"], "Output",
148    3.584894131830501*^9}, {3.5848944118465767`*^9, 3.584894413689575*^9}, {
149    3.584894553484161*^9, 3.5848945620889597`*^9}}],
150  
151 < Cell[BoxData["3.5988069933435006`*^-29"], "Output",
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},
# Line 155 | Line 157 | Cell[BoxData["3.5988069933435006`*^-29"], "Output",
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}]
160 >   3.586705115994009*^9, 3.586706483628399*^9, 3.587302022625839*^9}]
161   }, Open  ]],
162  
163   Cell[BoxData[
# Line 205 | Line 207 | Cell[BoxData["9.010843062329251`*^-29"], "Output",
207     3.5848941203441153`*^9}, 3.5848944172115498`*^9, {3.584894722257359*^9,
208     3.584894733911747*^9}}],
209  
210 < Cell[BoxData["9.010843062329251`*^-29"], "Output",
210 > Cell[BoxData["8.228464473085094`*^-29"], "Output",
211   CellChangeTimes->{
212    3.584807788832862*^9, 3.584812370076736*^9, 3.5848906801945047`*^9,
213     3.5848935801190357`*^9, 3.5848936688170233`*^9, 3.5848939033674097`*^9, {
# Line 214 | Line 216 | Cell[BoxData["9.010843062329251`*^-29"], "Output",
216     3.584894423252715*^9, 3.584894734499061*^9, 3.58489564491859*^9,
217     3.584895914221643*^9, 3.5866998271353817`*^9, 3.586704693130818*^9,
218     3.586704778769905*^9, 3.586704850366987*^9, 3.586705118085232*^9,
219 <   3.586706485967189*^9}]
219 >   3.586706485967189*^9, 3.587302024980714*^9}]
220   }, Open  ]],
221  
222   Cell[BoxData["\[IndentingNewLine]"], "Input",
# Line 307 | Line 309 | Cell[BoxData["0.7687260259259584`"], "Output",
309     3.5848948750854387`*^9, 3.584894906946406*^9, {3.584894984628289*^9,
310     3.5848950094024963`*^9}, 3.584895649579417*^9, 3.5848960393110647`*^9,
311     3.586699830645979*^9, 3.5867046965751457`*^9, 3.58670478211369*^9,
312 <   3.58670485421113*^9, 3.586705120876774*^9, 3.586706489578327*^9}]
312 >   3.58670485421113*^9, 3.586705120876774*^9, 3.586706489578327*^9,
313 >   3.587302029126953*^9}]
314   }, Open  ]],
315  
316   Cell[BoxData[
# Line 353 | Line 356 | Cell[BoxData["1.924768288590935`"], "Output",
356     3.584891216311064*^9, 3.584893998534431*^9, 3.584894876538658*^9,
357     3.5848950109231567`*^9, 3.584895650617403*^9, 3.584896040714982*^9,
358     3.5866998334559813`*^9, 3.586704697863037*^9, 3.5867047835855827`*^9,
359 <   3.586704856869244*^9, 3.586705122378854*^9, 3.5867064906482763`*^9}]
359 >   3.586704856869244*^9, 3.586705122378854*^9, 3.5867064906482763`*^9,
360 >   3.587302031033265*^9}]
361   }, Open  ]],
362  
363   Cell[BoxData[
# Line 371 | Line 375 | Cell[BoxData["3.5988069933435135`*^-29"], "Output",
375    RowBox[{"Fax", " ", "*", " ", "eqSphere"}]}]], "Input",
376   CellChangeTimes->{{3.584891056631095*^9, 3.584891064865149*^9}}],
377  
378 < Cell[BoxData["3.5988069933435135`*^-29"], "Output",
378 > Cell[BoxData["3.2863357274544055`*^-29"], "Output",
379   CellChangeTimes->{3.5848910656263733`*^9, 3.584891217398337*^9,
380    3.58489400012298*^9, 3.584895019483296*^9, 3.584895652455336*^9,
381    3.584896042503642*^9, 3.586699834607826*^9, 3.586704699166651*^9,
382    3.586704785006289*^9, 3.586704858291555*^9, 3.5867051235852127`*^9,
383 <  3.586706492338463*^9}]
383 >  3.586706492338463*^9, 3.5873020329225597`*^9}]
384   }, Open  ]],
385  
386   Cell[BoxData[
# Line 394 | Line 398 | Cell[BoxData["9.010843062329284`*^-29"], "Output",
398    RowBox[{"Feq", " ", "*", " ", "eqSphere"}]}]], "Input",
399   CellChangeTimes->{{3.584891025068652*^9, 3.584891029821259*^9}}],
400  
401 < Cell[BoxData["9.010843062329284`*^-29"], "Output",
401 > Cell[BoxData["8.228464473085123`*^-29"], "Output",
402   CellChangeTimes->{3.584891030572219*^9, 3.584891218233328*^9,
403    3.584894001208784*^9, 3.584895020435354*^9, 3.584895653375164*^9,
404    3.58489604404213*^9, 3.5866998356785097`*^9, 3.586704701890503*^9,
405    3.5867047871298437`*^9, 3.586704859378227*^9, 3.586705125437768*^9,
406 <  3.586706494141871*^9}]
406 >  3.586706494141871*^9, 3.587302037451337*^9}]
407   }, Open  ]]
408   },
409   WindowSize->{740, 876},
410 < WindowMargins->{{437, Automatic}, {62, Automatic}},
410 > WindowMargins->{{Automatic, 110}, {12, Automatic}},
411   FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (July 22, \
412   2012)",
413   StyleDefinitions->"Default.nb"
# Line 419 | Line 423 | Cell[557, 20, 1920, 46, 133, "Input"],
423   *)
424   (*NotebookFileOutline
425   Notebook[{
426 < Cell[557, 20, 1920, 46, 133, "Input"],
427 < Cell[2480, 68, 204, 4, 43, "Input"],
428 < Cell[2687, 74, 164, 3, 27, "Input"],
426 > Cell[557, 20, 1972, 47, 133, "Input"],
427 > Cell[2532, 69, 204, 4, 43, "Input"],
428 > Cell[2739, 75, 164, 3, 27, "Input"],
429   Cell[CellGroupData[{
430 < Cell[2876, 81, 223, 5, 27, "Input"],
431 < Cell[3102, 88, 254, 3, 30, "Output"]
430 > Cell[2928, 82, 223, 5, 27, "Input"],
431 > Cell[3154, 89, 281, 4, 30, "Output"]
432   }, Open  ]],
433 < Cell[3371, 94, 335, 11, 27, "Input"],
434 < Cell[3709, 107, 318, 6, 27, "Input"],
435 < Cell[4030, 115, 524, 17, 43, "Input"],
433 > Cell[3450, 96, 335, 11, 27, "Input"],
434 > Cell[3788, 109, 318, 6, 27, "Input"],
435 > Cell[4109, 117, 524, 17, 43, "Input"],
436   Cell[CellGroupData[{
437 < Cell[4579, 136, 568, 10, 27, "Input"],
438 < Cell[5150, 148, 615, 9, 30, "Output"]
437 > Cell[4658, 138, 568, 10, 27, "Input"],
438 > Cell[5229, 150, 636, 9, 30, "Output"]
439   }, Open  ]],
440 < Cell[5780, 160, 343, 7, 43, "Input"],
441 < Cell[6126, 169, 717, 22, 43, "Input"],
440 > Cell[5880, 162, 343, 7, 43, "Input"],
441 > Cell[6226, 171, 717, 22, 43, "Input"],
442   Cell[CellGroupData[{
443 < Cell[6868, 195, 540, 10, 27, "Input"],
444 < Cell[7411, 207, 599, 9, 30, "Output"]
443 > Cell[6968, 197, 540, 10, 27, "Input"],
444 > Cell[7511, 209, 621, 9, 30, "Output"]
445   }, Open  ]],
446 < Cell[8025, 219, 109, 1, 43, "Input"],
447 < Cell[8137, 222, 284, 6, 43, "Input"],
448 < Cell[8424, 230, 1342, 37, 88, "Input"],
449 < Cell[9769, 269, 94, 1, 27, "Input"],
450 < Cell[9866, 272, 311, 6, 27, "Input"],
446 > Cell[8147, 221, 109, 1, 43, "Input"],
447 > Cell[8259, 224, 284, 6, 43, "Input"],
448 > Cell[8546, 232, 1342, 37, 88, "Input"],
449 > Cell[9891, 271, 94, 1, 27, "Input"],
450 > Cell[9988, 274, 311, 6, 27, "Input"],
451   Cell[CellGroupData[{
452 < Cell[10202, 282, 615, 17, 27, "Input"],
453 < Cell[10820, 301, 561, 8, 27, "Output"]
452 > Cell[10324, 284, 615, 17, 27, "Input"],
453 > Cell[10942, 303, 587, 9, 27, "Output"]
454   }, Open  ]],
455 < Cell[11396, 312, 364, 7, 43, "Input"],
455 > Cell[11544, 315, 364, 7, 43, "Input"],
456   Cell[CellGroupData[{
457 < Cell[11785, 323, 782, 23, 27, "Input"],
458 < Cell[12570, 348, 500, 7, 27, "Output"]
457 > Cell[11933, 326, 782, 23, 27, "Input"],
458 > Cell[12718, 351, 526, 8, 27, "Output"]
459   }, Open  ]],
460 < Cell[13085, 358, 289, 6, 43, "Input"],
460 > Cell[13259, 362, 289, 6, 43, "Input"],
461   Cell[CellGroupData[{
462 < Cell[13399, 368, 169, 3, 27, "Input"],
463 < Cell[13571, 373, 350, 5, 30, "Output"]
462 > Cell[13573, 372, 169, 3, 27, "Input"],
463 > Cell[13745, 377, 374, 5, 30, "Output"]
464   }, Open  ]],
465 < Cell[13936, 381, 264, 6, 27, "Input"],
465 > Cell[14134, 385, 264, 6, 27, "Input"],
466   Cell[CellGroupData[{
467 < Cell[14225, 391, 169, 3, 27, "Input"],
468 < Cell[14397, 396, 349, 5, 30, "Output"]
467 > Cell[14423, 395, 169, 3, 27, "Input"],
468 > Cell[14595, 400, 371, 5, 30, "Output"]
469   }, Open  ]]
470   }
471   ]

Diff Legend

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