trunk/nonperiodicVSS/friction.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     16589,        465]
NotebookOptionsPosition[     14982,        408]
NotebookOutlinePosition[     15336,        424]
CellTagsIndexPosition[     15293,        421]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"a", ",", " ", "b", ",", " ", 
    RowBox[{"r", " ", "in", " ", "units", " ", "of", " ", "meters"}]}], " ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"a", " ", "=", " ", "0.0000000033"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"b", " ", "=", " ", "0.0000000013"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r", " ", "=", " ", "0.0000000040"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "eta", " ", "in", " ", "units", " ", "of", " ", "Pa", "*", "s", " ", "or",
      " ", "N", "*", 
     RowBox[{"s", "/", 
      RowBox[{"m", "^", "2"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eta", " ", "=", " ", "0.000305"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"ab", " ", "=", " ", 
     RowBox[{"Sqrt", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "^", "2"}], ")"}], "-", 
       RowBox[{"(", 
        RowBox[{"b", "^", "2"}], ")"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"v", " ", "=", " ", 
     RowBox[{"32", "*", "Pi", "*", 
      RowBox[{"eta", "/", "3"}]}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.584807426161751*^9, 3.584807453166168*^9}, {
   3.5848098994271517`*^9, 3.58480990098132*^9}, {3.584890669262165*^9, 
   3.5848906732045937`*^9}, 3.5848942046023273`*^9, 3.5848942364960403`*^9, {
   3.584894394914665*^9, 3.584894407017727*^9}, {3.584894867879013*^9, 
   3.5848948703643208`*^9}, {3.584895906363385*^9, 3.584895906913582*^9}, {
   3.586699807267563*^9, 3.586699811802783*^9}, {3.5867045314674397`*^9, 
   3.586704560779134*^9}, {3.586704640818076*^9, 3.586704681909463*^9}, {
   3.5867047559862347`*^9, 3.586704766892249*^9}, {3.586704828026332*^9, 
   3.586704834460175*^9}, {3.586705096638748*^9, 3.586705109311314*^9}, {
   3.586706477114703*^9, 3.58670647750175*^9}, {3.587302011140431*^9, 
   3.5873020120979347`*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"RESISTANCE", " ", "TENSORS"}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.5848081048411083`*^9, 3.584808114547517*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"sphere", " ", "rotation"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.5848955452222424`*^9, 3.584895552580024*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"XiS", " ", "=", " ", 
  RowBox[{"8.", "*", "Pi", "*", "eta", "*", 
   RowBox[{"(", 
    RowBox[{"r", "^", "3"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.584895562690569*^9, 3.584895581538089*^9}}],

Cell[BoxData["4.905911087845821`*^-28"], "Output",
 CellChangeTimes->{3.5848955833332977`*^9, 3.584895910460045*^9, 
  3.586699817892194*^9, 3.586704684940571*^9, 3.586704772274445*^9, 
  3.586704844305737*^9, 3.586705113459869*^9, 3.586706480803813*^9, 
  3.5873020194381523`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"S", " ", "=", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"2", "/", "ab"}], ")"}], "*", 
    RowBox[{"Log", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", "ab"}], ")"}], "/", "b"}], "]"}]}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.584895591890572*^9, 3.584895628889739*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"ellipsoid", " ", "axial", " ", 
   RowBox[{"rotation", " ", "--"}], " ", "about", " ", "long", " ", "axis"}], 
  " ", "*)"}]], "Input",
 CellChangeTimes->{{3.584807845501628*^9, 3.584807881963066*^9}, 
   3.58480810065349*^9, {3.584810005255805*^9, 3.584810006597301*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"nXiA", " ", "=", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ab", "^", "2"}], ")"}], "*", 
    RowBox[{"(", 
     RowBox[{"b", "^", "2"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dXiA", " ", "=", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", "*", "a"}], " ", "-", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b", "^", "2"}], ")"}], "*", "S"}]}], ")"}]}], ";"}]}], "Input",\

 CellChangeTimes->{{3.584894479745336*^9, 3.584894547193737*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"XiA", " ", "=", " ", 
  RowBox[{"v", " ", "*", 
   RowBox[{"(", " ", 
    RowBox[{"nXiA", "/", "dXiA"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.584807580926756*^9, 3.5848076774271517`*^9}, {
  3.584893446441492*^9, 3.584893456926993*^9}, {3.584893513019639*^9, 
  3.5848935374433117`*^9}, {3.5848937295629377`*^9, 3.5848937320361967`*^9}, {
  3.5848940598863373`*^9, 3.5848940827349033`*^9}, {3.584894124697816*^9, 
  3.584894131830501*^9}, {3.5848944118465767`*^9, 3.584894413689575*^9}, {
  3.584894553484161*^9, 3.5848945620889597`*^9}}],

Cell[BoxData["3.286335727454394`*^-29"], "Output",
 CellChangeTimes->{
  3.58480767838589*^9, 3.584812369332225*^9, 3.58489067890679*^9, 
   3.584893466947144*^9, {3.584893515809536*^9, 3.5848935380765*^9}, 
   3.584893667613534*^9, 3.584893745846806*^9, 3.584893991496749*^9, {
   3.5848940686270847`*^9, 3.584894083689426*^9}, 3.584894132885084*^9, 
   3.584894209263301*^9, 3.5848944220659027`*^9, 3.584894562584774*^9, 
   3.5848956426941223`*^9, 3.584895912816411*^9, 3.586699824159266*^9, 
   3.586704688787434*^9, 3.5867047762806807`*^9, 3.58670484784446*^9, 
   3.586705115994009*^9, 3.586706483628399*^9, 3.587302022625839*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"ellipsoid", " ", "equatorial", " ", 
    RowBox[{"rotation", " ", "--"}], " ", "about", " ", "short", " ", 
    "axes"}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.5848078641082973`*^9, 3.584807887971993*^9}, {
  3.584810008477813*^9, 3.58481001069223*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"nXiB", " ", "=", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"a", "^", "4"}], ")"}], "-", 
    RowBox[{"(", 
     RowBox[{"b", "^", "4"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dXiB", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"a", "^", "2"}], ")"}]}], "-", 
       RowBox[{"(", 
        RowBox[{"b", "^", "2"}], ")"}]}], ")"}], "*", "S"}], " ", "-", " ", 
    RowBox[{"(", 
     RowBox[{"2", "*", "a"}], ")"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.584894566445219*^9, 3.5848945876718807`*^9}, {
  3.5848946888115788`*^9, 3.5848947150455017`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"XiB", " ", "=", " ", 
  RowBox[{"v", " ", "*", " ", 
   RowBox[{"(", 
    RowBox[{"nXiB", "/", "dXiB"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.584807667200397*^9, 3.5848076699441557`*^9}, {
   3.5848077499771643`*^9, 3.584807786900511*^9}, {3.584893547107358*^9, 
   3.584893579226317*^9}, {3.58489389632187*^9, 3.584893901176014*^9}, {
   3.584893943459343*^9, 3.584893946518909*^9}, {3.584894088000602*^9, 
   3.5848941203441153`*^9}, 3.5848944172115498`*^9, {3.584894722257359*^9, 
   3.584894733911747*^9}}],

Cell[BoxData["8.228464473085094`*^-29"], "Output",
 CellChangeTimes->{
  3.584807788832862*^9, 3.584812370076736*^9, 3.5848906801945047`*^9, 
   3.5848935801190357`*^9, 3.5848936688170233`*^9, 3.5848939033674097`*^9, {
   3.58489396555275*^9, 3.584893992584134*^9}, 3.5848940700482283`*^9, {
   3.584894103054511*^9, 3.584894120965992*^9}, 3.584894210383068*^9, 
   3.584894423252715*^9, 3.584894734499061*^9, 3.58489564491859*^9, 
   3.584895914221643*^9, 3.5866998271353817`*^9, 3.586704693130818*^9, 
   3.586704778769905*^9, 3.586704850366987*^9, 3.586705118085232*^9, 
   3.586706485967189*^9, 3.587302024980714*^9}]
}, Open  ]],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.584887428382176*^9, 3.584891660811152*^9}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"FRICTION", " ", "FACTORS", " ", "via", " ", "Wikipedia"}], " ", 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.584887434985119*^9, 3.58488743942144*^9}, {
  3.5848907429833384`*^9, 3.584890746521543*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"xi", " ", "=", 
   RowBox[{
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"p", "^", "2"}], ")"}], "-", "1"}], "]"}], "/", "p"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s", " ", "=", " ", 
   RowBox[{"2", "*", 
    RowBox[{
     RowBox[{"ArcTanh", "[", "xi", "]"}], "/", "xi"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p", " ", "=", " ", 
   RowBox[{"a", "/", "b"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"re", " ", "=", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"a", "*", 
      RowBox[{"(", 
       RowBox[{"b", "^", "2"}], ")"}]}], ")"}], "^", 
    RowBox[{"(", 
     RowBox[{"1", "/", "3"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eqSphere", " ", "=", " ", 
   RowBox[{"8", "*", "Pi", "*", "eta", "*", 
    RowBox[{"(", 
     RowBox[{"re", "^", "3"}], ")"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.584887453255073*^9, 3.584887474611525*^9}, {
  3.584887518352754*^9, 3.5848875201183167`*^9}, {3.5848875705654163`*^9, 
  3.584887612684559*^9}, {3.584891207938551*^9, 3.5848912105877657`*^9}, {
  3.58489477575947*^9, 3.584894789206271*^9}, {3.5848948909071417`*^9, 
  3.5848949045983353`*^9}, {3.584895894748207*^9, 3.58489594161933*^9}, {
  3.584895989916945*^9, 3.584896035299241*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.5848876347988167`*^9, 3.584887638277546*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"ellipsoid", " ", "axial", " ", "friction", " ", 
   RowBox[{"factor", " ", "--"}], " ", "about", " ", "long", " ", "axis"}], 
  " ", "*)"}]], "Input",
 CellChangeTimes->{{3.58488764265452*^9, 3.584887652272901*^9}, {
  3.58489128903328*^9, 3.5848912914194727`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Fax", " ", "=", " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"4", "/", "3"}], ")"}], "*", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"xi", "^", "2"}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"2", "-", 
      RowBox[{"(", 
       RowBox[{"s", "/", 
        RowBox[{"(", 
         RowBox[{"p", "^", "2"}], ")"}]}], ")"}]}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.58488765759788*^9, 3.584887700018955*^9}, {
   3.5848879174727783`*^9, 3.584887938981941*^9}, {3.584890603482909*^9, 
   3.5848906063233852`*^9}, 3.584890946638309*^9, {3.584894926277274*^9, 
   3.584894983989938*^9}}],

Cell[BoxData["0.7687260259259584`"], "Output",
 CellChangeTimes->{
  3.58488770586084*^9, {3.58488792206218*^9, 3.584887939492504*^9}, 
   3.584890608261299*^9, 3.5848906924156*^9, 3.584890948261269*^9, 
   3.584891214003551*^9, 3.584893997414321*^9, 3.584894794095375*^9, 
   3.5848948750854387`*^9, 3.584894906946406*^9, {3.584894984628289*^9, 
   3.5848950094024963`*^9}, 3.584895649579417*^9, 3.5848960393110647`*^9, 
   3.586699830645979*^9, 3.5867046965751457`*^9, 3.58670478211369*^9, 
   3.58670485421113*^9, 3.586705120876774*^9, 3.586706489578327*^9, 
   3.587302029126953*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\n", 
  RowBox[{"(*", " ", 
   RowBox[{"ellipsoid", " ", "equatorial", " ", "friction", " ", 
    RowBox[{"factor", " ", "--"}], " ", "about", " ", "short", " ", "axes"}], 
   " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.584887710741127*^9, 3.584887713271037*^9}, 
   3.584887813383315*^9, {3.584891294243541*^9, 3.5848912960435057`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Feq", " ", "=", " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"4", "/", "3"}], ")"}], " ", "*", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "/", "p"}], ")"}], "^", "2"}], "  ", "-", " ", 
      RowBox[{"p", "^", "2"}]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"2", " ", "-", " ", 
      RowBox[{"s", "*", 
       RowBox[{"(", 
        RowBox[{"2", " ", "-", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "/", "p"}], ")"}], "^", "2"}]}], ")"}]}]}], 
     ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.584887727157157*^9, 3.584887769116691*^9}, {
   3.584887926989279*^9, 3.584887942885796*^9}, {3.584890609957733*^9, 
   3.584890611532776*^9}, 3.584890951791182*^9}],

Cell[BoxData["1.924768288590935`"], "Output",
 CellChangeTimes->{
  3.5848877700852623`*^9, {3.584887929629698*^9, 3.5848879434378977`*^9}, 
   3.584890612056086*^9, 3.5848906935323477`*^9, 3.584890952137286*^9, 
   3.584891216311064*^9, 3.584893998534431*^9, 3.584894876538658*^9, 
   3.5848950109231567`*^9, 3.584895650617403*^9, 3.584896040714982*^9, 
   3.5866998334559813`*^9, 3.586704697863037*^9, 3.5867047835855827`*^9, 
   3.586704856869244*^9, 3.586705122378854*^9, 3.5867064906482763`*^9, 
   3.587302031033265*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"ellipsoid", " ", "axial", " ", "rotational", " ", "friction"}], 
   " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.58489104521352*^9, 3.584891053491618*^9}, {
  3.584891299813236*^9, 3.5848913004309483`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fAx", " ", "=", " ", 
  RowBox[{"Fax", " ", "*", " ", "eqSphere"}]}]], "Input",
 CellChangeTimes->{{3.584891056631095*^9, 3.584891064865149*^9}}],

Cell[BoxData["3.2863357274544055`*^-29"], "Output",
 CellChangeTimes->{3.5848910656263733`*^9, 3.584891217398337*^9, 
  3.58489400012298*^9, 3.584895019483296*^9, 3.584895652455336*^9, 
  3.584896042503642*^9, 3.586699834607826*^9, 3.586704699166651*^9, 
  3.586704785006289*^9, 3.586704858291555*^9, 3.5867051235852127`*^9, 
  3.586706492338463*^9, 3.5873020329225597`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
  "ellipsoid", " ", "equatorial", " ", "rotational", " ", "friction"}], " ", 
  "*)"}]], "Input",
 CellChangeTimes->{{3.5848910141246853`*^9, 3.584891022193733*^9}, {
  3.5848913017358427`*^9, 3.5848913022309103`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fEq", " ", "=", " ", 
  RowBox[{"Feq", " ", "*", " ", "eqSphere"}]}]], "Input",
 CellChangeTimes->{{3.584891025068652*^9, 3.584891029821259*^9}}],

Cell[BoxData["8.228464473085123`*^-29"], "Output",
 CellChangeTimes->{3.584891030572219*^9, 3.584891218233328*^9, 
  3.584894001208784*^9, 3.584895020435354*^9, 3.584895653375164*^9, 
  3.58489604404213*^9, 3.5866998356785097`*^9, 3.586704701890503*^9, 
  3.5867047871298437`*^9, 3.586704859378227*^9, 3.586705125437768*^9, 
  3.586706494141871*^9, 3.587302037451337*^9}]
}, Open  ]]
},
WindowSize->{740, 876},
WindowMargins->{{Automatic, 110}, {12, Automatic}},
FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (July 22, \
2012)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 1972, 47, 133, "Input"],
Cell[2532, 69, 204, 4, 43, "Input"],
Cell[2739, 75, 164, 3, 27, "Input"],
Cell[CellGroupData[{
Cell[2928, 82, 223, 5, 27, "Input"],
Cell[3154, 89, 281, 4, 30, "Output"]
}, Open  ]],
Cell[3450, 96, 335, 11, 27, "Input"],
Cell[3788, 109, 318, 6, 27, "Input"],
Cell[4109, 117, 524, 17, 43, "Input"],
Cell[CellGroupData[{
Cell[4658, 138, 568, 10, 27, "Input"],
Cell[5229, 150, 636, 9, 30, "Output"]
}, Open  ]],
Cell[5880, 162, 343, 7, 43, "Input"],
Cell[6226, 171, 717, 22, 43, "Input"],
Cell[CellGroupData[{
Cell[6968, 197, 540, 10, 27, "Input"],
Cell[7511, 209, 621, 9, 30, "Output"]
}, Open  ]],
Cell[8147, 221, 109, 1, 43, "Input"],
Cell[8259, 224, 284, 6, 43, "Input"],
Cell[8546, 232, 1342, 37, 88, "Input"],
Cell[9891, 271, 94, 1, 27, "Input"],
Cell[9988, 274, 311, 6, 27, "Input"],
Cell[CellGroupData[{
Cell[10324, 284, 615, 17, 27, "Input"],
Cell[10942, 303, 587, 9, 27, "Output"]
}, Open  ]],
Cell[11544, 315, 364, 7, 43, "Input"],
Cell[CellGroupData[{
Cell[11933, 326, 782, 23, 27, "Input"],
Cell[12718, 351, 526, 8, 27, "Output"]
}, Open  ]],
Cell[13259, 362, 289, 6, 43, "Input"],
Cell[CellGroupData[{
Cell[13573, 372, 169, 3, 27, "Input"],
Cell[13745, 377, 374, 5, 30, "Output"]
}, Open  ]],
Cell[14134, 385, 264, 6, 27, "Input"],
Cell[CellGroupData[{
Cell[14423, 395, 169, 3, 27, "Input"],
Cell[14595, 400, 371, 5, 30, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
Revision:	3947
Committed:	Fri Sep 6 13:09:47 2013 UTC (11 years ago) by kstocke1
File size:	16787 byte(s)
Log Message:
#	User	Rev	Content
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	3947	NotebookDataLength[ 16589, 465]
14			NotebookOptionsPosition[ 14982, 408]
15			NotebookOutlinePosition[ 15336, 424]
16			CellTagsIndexPosition[ 15293, 421]
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	kstocke1	3947	RowBox[{"eta", " ", "=", " ", "0.000305"}], ";"}], "\n",
45	kstocke1	3943	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	kstocke1	3947	3.586706477114703^9, 3.58670647750175^9}, {3.587302011140431*^9,
68			3.5873020120979347`*^9}}],
69	kstocke1	3933
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	kstocke1	3947	Cell[BoxData["4.905911087845821`*^-28"], "Output",
91	kstocke1	3943	CellChangeTimes->{3.5848955833332977`^9, 3.584895910460045^9,
92			3.586699817892194^9, 3.586704684940571^9, 3.586704772274445*^9,
93	kstocke1	3947	3.586704844305737^9, 3.586705113459869^9, 3.586706480803813*^9,
94			3.5873020194381523`*^9}]
95	kstocke1	3933	}, 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	kstocke1	3947	Cell[BoxData["3.286335727454394`*^-29"], "Output",
152	kstocke1	3933	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	kstocke1	3943	3.5848956426941223`^9, 3.584895912816411^9, 3.586699824159266*^9,
159			3.586704688787434^9, 3.5867047762806807`^9, 3.58670484784446*^9,
160	kstocke1	3947	3.586705115994009^9, 3.586706483628399^9, 3.587302022625839*^9}]
161	kstocke1	3933	}, Open ]],
162
163			Cell[BoxData[
164			RowBox[{"\[IndentingNewLine]",
165			RowBox[{"(*", " ",
166			RowBox[{"ellipsoid", " ", "equatorial", " ",
167			RowBox[{"rotation", " ", "--"}], " ", "about", " ", "short", " ",
168			"axes"}], " ", "*)"}]}]], "Input",
169			CellChangeTimes->{{3.5848078641082973`^9, 3.584807887971993^9}, {
170			3.584810008477813^9, 3.58481001069223^9}}],
171
172			Cell[BoxData[{
173			RowBox[{
174			RowBox[{"nXiB", " ", "=", " ",
175			RowBox[{
176			RowBox[{"(",
177			RowBox[{"a", "^", "4"}], ")"}], "-",
178			RowBox[{"(",
179			RowBox[{"b", "^", "4"}], ")"}]}]}], ";"}], "\[IndentingNewLine]",
180			RowBox[{
181			RowBox[{"dXiB", " ", "=", " ",
182			RowBox[{
183			RowBox[{
184			RowBox[{"(",
185			RowBox[{
186			RowBox[{"2", "*",
187			RowBox[{"(",
188			RowBox[{"a", "^", "2"}], ")"}]}], "-",
189			RowBox[{"(",
190			RowBox[{"b", "^", "2"}], ")"}]}], ")"}], "*", "S"}], " ", "-", " ",
191			RowBox[{"(",
192			RowBox[{"2", "*", "a"}], ")"}]}]}], ";"}]}], "Input",
193			CellChangeTimes->{{3.584894566445219^9, 3.5848945876718807`^9}, {
194			3.5848946888115788`^9, 3.5848947150455017`^9}}],
195
196			Cell[CellGroupData[{
197
198			Cell[BoxData[
199			RowBox[{"XiB", " ", "=", " ",
200			RowBox[{"v", " ", "*", " ",
201			RowBox[{"(",
202			RowBox[{"nXiB", "/", "dXiB"}], ")"}]}]}]], "Input",
203			CellChangeTimes->{{3.584807667200397^9, 3.5848076699441557`^9}, {
204			3.5848077499771643`^9, 3.584807786900511^9}, {3.584893547107358*^9,
205			3.584893579226317^9}, {3.58489389632187^9, 3.584893901176014*^9}, {
206			3.584893943459343^9, 3.584893946518909^9}, {3.584894088000602*^9,
207			3.5848941203441153`^9}, 3.5848944172115498`^9, {3.584894722257359*^9,
208			3.584894733911747*^9}}],
209
210	kstocke1	3947	Cell[BoxData["8.228464473085094`*^-29"], "Output",
211	kstocke1	3933	CellChangeTimes->{
212			3.584807788832862^9, 3.584812370076736^9, 3.5848906801945047`*^9,
213			3.5848935801190357`^9, 3.5848936688170233`^9, 3.5848939033674097`*^9, {
214			3.58489396555275^9, 3.584893992584134^9}, 3.5848940700482283`*^9, {
215			3.584894103054511^9, 3.584894120965992^9}, 3.584894210383068*^9,
216			3.584894423252715^9, 3.584894734499061^9, 3.58489564491859*^9,
217	kstocke1	3943	3.584895914221643^9, 3.5866998271353817`^9, 3.586704693130818*^9,
218			3.586704778769905^9, 3.586704850366987^9, 3.586705118085232*^9,
219	kstocke1	3947	3.586706485967189^9, 3.587302024980714^9}]
220	kstocke1	3933	}, Open ]],
221
222			Cell[BoxData["\[IndentingNewLine]"], "Input",
223			CellChangeTimes->{3.584887428382176^9, 3.584891660811152^9}],
224
225			Cell[BoxData[
226			RowBox[{"\[IndentingNewLine]",
227			RowBox[{"(*", " ",
228			RowBox[{"FRICTION", " ", "FACTORS", " ", "via", " ", "Wikipedia"}], " ",
229			"*)"}]}]], "Input",
230			CellChangeTimes->{{3.584887434985119^9, 3.58488743942144^9}, {
231			3.5848907429833384`^9, 3.584890746521543^9}}],
232
233			Cell[BoxData[{
234			RowBox[{
235			RowBox[{"xi", " ", "=",
236			RowBox[{
237			RowBox[{"Sqrt", "[",
238			RowBox[{
239			RowBox[{"(",
240			RowBox[{"p", "^", "2"}], ")"}], "-", "1"}], "]"}], "/", "p"}]}],
241			";"}], "\[IndentingNewLine]",
242			RowBox[{
243			RowBox[{"s", " ", "=", " ",
244			RowBox[{"2", "*",
245			RowBox[{
246			RowBox[{"ArcTanh", "[", "xi", "]"}], "/", "xi"}]}]}],
247			";"}], "\[IndentingNewLine]",
248			RowBox[{
249			RowBox[{"p", " ", "=", " ",
250			RowBox[{"a", "/", "b"}]}], ";"}], "\[IndentingNewLine]",
251			RowBox[{
252			RowBox[{"re", " ", "=", " ",
253			RowBox[{
254			RowBox[{"(",
255			RowBox[{"a", "*",
256			RowBox[{"(",
257			RowBox[{"b", "^", "2"}], ")"}]}], ")"}], "^",
258			RowBox[{"(",
259			RowBox[{"1", "/", "3"}], ")"}]}]}], ";"}], "\[IndentingNewLine]",
260			RowBox[{
261			RowBox[{"eqSphere", " ", "=", " ",
262			RowBox[{"8", "", "Pi", "", "eta", "*",
263			RowBox[{"(",
264			RowBox[{"re", "^", "3"}], ")"}]}]}], ";"}]}], "Input",
265			CellChangeTimes->{{3.584887453255073^9, 3.584887474611525^9}, {
266			3.584887518352754^9, 3.5848875201183167`^9}, {3.5848875705654163`*^9,
267			3.584887612684559^9}, {3.584891207938551^9, 3.5848912105877657`*^9}, {
268			3.58489477575947^9, 3.584894789206271^9}, {3.5848948909071417`*^9,
269			3.5848949045983353`^9}, {3.584895894748207^9, 3.58489594161933*^9}, {
270			3.584895989916945^9, 3.584896035299241^9}}],
271
272			Cell[BoxData[""], "Input",
273			CellChangeTimes->{{3.5848876347988167`^9, 3.584887638277546^9}}],
274
275			Cell[BoxData[
276			RowBox[{"(*", " ",
277			RowBox[{"ellipsoid", " ", "axial", " ", "friction", " ",
278			RowBox[{"factor", " ", "--"}], " ", "about", " ", "long", " ", "axis"}],
279			" ", "*)"}]], "Input",
280			CellChangeTimes->{{3.58488764265452^9, 3.584887652272901^9}, {
281			3.58489128903328^9, 3.5848912914194727`^9}}],
282
283			Cell[CellGroupData[{
284
285			Cell[BoxData[
286			RowBox[{"Fax", " ", "=", " ",
287			RowBox[{
288			RowBox[{"(",
289			RowBox[{"4", "/", "3"}], ")"}], "*",
290			RowBox[{
291			RowBox[{"(",
292			RowBox[{"xi", "^", "2"}], ")"}], "/",
293			RowBox[{"(",
294			RowBox[{"2", "-",
295			RowBox[{"(",
296			RowBox[{"s", "/",
297			RowBox[{"(",
298			RowBox[{"p", "^", "2"}], ")"}]}], ")"}]}], ")"}]}]}]}]], "Input",
299			CellChangeTimes->{{3.58488765759788^9, 3.584887700018955^9}, {
300			3.5848879174727783`^9, 3.584887938981941^9}, {3.584890603482909*^9,
301			3.5848906063233852`^9}, 3.584890946638309^9, {3.584894926277274*^9,
302			3.584894983989938*^9}}],
303
304			Cell[BoxData["0.7687260259259584`"], "Output",
305			CellChangeTimes->{
306			3.58488770586084^9, {3.58488792206218^9, 3.584887939492504*^9},
307			3.584890608261299^9, 3.5848906924156^9, 3.584890948261269*^9,
308			3.584891214003551^9, 3.584893997414321^9, 3.584894794095375*^9,
309			3.5848948750854387`^9, 3.584894906946406^9, {3.584894984628289*^9,
310	kstocke1	3943	3.5848950094024963`^9}, 3.584895649579417^9, 3.5848960393110647`*^9,
311			3.586699830645979^9, 3.5867046965751457`^9, 3.58670478211369*^9,
312	kstocke1	3947	3.58670485421113^9, 3.586705120876774^9, 3.586706489578327*^9,
313			3.587302029126953*^9}]
314	kstocke1	3933	}, Open ]],
315
316			Cell[BoxData[
317			RowBox[{"\n",
318			RowBox[{"(*", " ",
319			RowBox[{"ellipsoid", " ", "equatorial", " ", "friction", " ",
320			RowBox[{"factor", " ", "--"}], " ", "about", " ", "short", " ", "axes"}],
321			" ", "*)"}]}]], "Input",
322			CellChangeTimes->{{3.584887710741127^9, 3.584887713271037^9},
323			3.584887813383315^9, {3.584891294243541^9, 3.5848912960435057`*^9}}],
324
325			Cell[CellGroupData[{
326
327			Cell[BoxData[
328			RowBox[{"Feq", " ", "=", " ",
329			RowBox[{
330			RowBox[{"(",
331			RowBox[{"4", "/", "3"}], ")"}], " ", "*", " ",
332			RowBox[{
333			RowBox[{"(",
334			RowBox[{
335			RowBox[{
336			RowBox[{"(",
337			RowBox[{"1", "/", "p"}], ")"}], "^", "2"}], " ", "-", " ",
338			RowBox[{"p", "^", "2"}]}], ")"}], "/",
339			RowBox[{"(",
340			RowBox[{"2", " ", "-", " ",
341			RowBox[{"s", "*",
342			RowBox[{"(",
343			RowBox[{"2", " ", "-", " ",
344			RowBox[{
345			RowBox[{"(",
346			RowBox[{"1", "/", "p"}], ")"}], "^", "2"}]}], ")"}]}]}],
347			")"}]}]}]}]], "Input",
348			CellChangeTimes->{{3.584887727157157^9, 3.584887769116691^9}, {
349			3.584887926989279^9, 3.584887942885796^9}, {3.584890609957733*^9,
350			3.584890611532776^9}, 3.584890951791182^9}],
351
352	kstocke1	3943	Cell[BoxData["1.924768288590935`"], "Output",
353	kstocke1	3933	CellChangeTimes->{
354			3.5848877700852623`^9, {3.584887929629698^9, 3.5848879434378977`*^9},
355			3.584890612056086^9, 3.5848906935323477`^9, 3.584890952137286*^9,
356			3.584891216311064^9, 3.584893998534431^9, 3.584894876538658*^9,
357	kstocke1	3943	3.5848950109231567`^9, 3.584895650617403^9, 3.584896040714982*^9,
358			3.5866998334559813`^9, 3.586704697863037^9, 3.5867047835855827`*^9,
359	kstocke1	3947	3.586704856869244^9, 3.586705122378854^9, 3.5867064906482763`*^9,
360			3.587302031033265*^9}]
361	kstocke1	3933	}, Open ]],
362
363			Cell[BoxData[
364			RowBox[{"\[IndentingNewLine]",
365			RowBox[{"(*", " ",
366			RowBox[{"ellipsoid", " ", "axial", " ", "rotational", " ", "friction"}],
367			" ", "*)"}]}]], "Input",
368			CellChangeTimes->{{3.58489104521352^9, 3.584891053491618^9}, {
369			3.584891299813236^9, 3.5848913004309483`^9}}],
370
371			Cell[CellGroupData[{
372
373			Cell[BoxData[
374			RowBox[{"fAx", " ", "=", " ",
375			RowBox[{"Fax", " ", "*", " ", "eqSphere"}]}]], "Input",
376			CellChangeTimes->{{3.584891056631095^9, 3.584891064865149^9}}],
377
378	kstocke1	3947	Cell[BoxData["3.2863357274544055`*^-29"], "Output",
379	kstocke1	3933	CellChangeTimes->{3.5848910656263733`^9, 3.584891217398337^9,
380			3.58489400012298^9, 3.584895019483296^9, 3.584895652455336*^9,
381	kstocke1	3943	3.584896042503642^9, 3.586699834607826^9, 3.586704699166651*^9,
382			3.586704785006289^9, 3.586704858291555^9, 3.5867051235852127`*^9,
383	kstocke1	3947	3.586706492338463^9, 3.5873020329225597`^9}]
384	kstocke1	3933	}, Open ]],
385
386			Cell[BoxData[
387			RowBox[{"(*", " ",
388			RowBox[{
389			"ellipsoid", " ", "equatorial", " ", "rotational", " ", "friction"}], " ",
390			"*)"}]], "Input",
391			CellChangeTimes->{{3.5848910141246853`^9, 3.584891022193733^9}, {
392			3.5848913017358427`^9, 3.5848913022309103`^9}}],
393
394			Cell[CellGroupData[{
395
396			Cell[BoxData[
397			RowBox[{"fEq", " ", "=", " ",
398			RowBox[{"Feq", " ", "*", " ", "eqSphere"}]}]], "Input",
399			CellChangeTimes->{{3.584891025068652^9, 3.584891029821259^9}}],
400
401	kstocke1	3947	Cell[BoxData["8.228464473085123`*^-29"], "Output",
402	kstocke1	3933	CellChangeTimes->{3.584891030572219^9, 3.584891218233328^9,
403			3.584894001208784^9, 3.584895020435354^9, 3.584895653375164*^9,
404	kstocke1	3943	3.58489604404213^9, 3.5866998356785097`^9, 3.586704701890503*^9,
405			3.5867047871298437`^9, 3.586704859378227^9, 3.586705125437768*^9,
406	kstocke1	3947	3.586706494141871^9, 3.587302037451337^9}]
407	kstocke1	3933	}, Open ]]
408			},
409			WindowSize->{740, 876},
410	kstocke1	3947	WindowMargins->{{Automatic, 110}, {12, Automatic}},
411	kstocke1	3933	FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (July 22, \
412			2012)",
413			StyleDefinitions->"Default.nb"
414			]
415			(* End of Notebook Content *)
416
417			(* Internal cache information *)
418			(*CellTagsOutline
419			CellTagsIndex->{}
420			*)
421			(*CellTagsIndex
422			CellTagsIndex->{}
423			*)
424			(*NotebookFileOutline
425			Notebook[{
426	kstocke1	3947	Cell[557, 20, 1972, 47, 133, "Input"],
427			Cell[2532, 69, 204, 4, 43, "Input"],
428			Cell[2739, 75, 164, 3, 27, "Input"],
429	kstocke1	3933	Cell[CellGroupData[{
430	kstocke1	3947	Cell[2928, 82, 223, 5, 27, "Input"],
431			Cell[3154, 89, 281, 4, 30, "Output"]
432	kstocke1	3933	}, Open ]],
433	kstocke1	3947	Cell[3450, 96, 335, 11, 27, "Input"],
434			Cell[3788, 109, 318, 6, 27, "Input"],
435			Cell[4109, 117, 524, 17, 43, "Input"],
436	kstocke1	3933	Cell[CellGroupData[{
437	kstocke1	3947	Cell[4658, 138, 568, 10, 27, "Input"],
438			Cell[5229, 150, 636, 9, 30, "Output"]
439	kstocke1	3933	}, Open ]],
440	kstocke1	3947	Cell[5880, 162, 343, 7, 43, "Input"],
441			Cell[6226, 171, 717, 22, 43, "Input"],
442	kstocke1	3933	Cell[CellGroupData[{
443	kstocke1	3947	Cell[6968, 197, 540, 10, 27, "Input"],
444			Cell[7511, 209, 621, 9, 30, "Output"]
445	kstocke1	3933	}, Open ]],
446	kstocke1	3947	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	kstocke1	3933	Cell[CellGroupData[{
452	kstocke1	3947	Cell[10324, 284, 615, 17, 27, "Input"],
453			Cell[10942, 303, 587, 9, 27, "Output"]
454	kstocke1	3933	}, Open ]],
455	kstocke1	3947	Cell[11544, 315, 364, 7, 43, "Input"],
456	kstocke1	3933	Cell[CellGroupData[{
457	kstocke1	3947	Cell[11933, 326, 782, 23, 27, "Input"],
458			Cell[12718, 351, 526, 8, 27, "Output"]
459	kstocke1	3933	}, Open ]],
460	kstocke1	3947	Cell[13259, 362, 289, 6, 43, "Input"],
461	kstocke1	3933	Cell[CellGroupData[{
462	kstocke1	3947	Cell[13573, 372, 169, 3, 27, "Input"],
463			Cell[13745, 377, 374, 5, 30, "Output"]
464	kstocke1	3933	}, Open ]],
465	kstocke1	3947	Cell[14134, 385, 264, 6, 27, "Input"],
466	kstocke1	3933	Cell[CellGroupData[{
467	kstocke1	3947	Cell[14423, 395, 169, 3, 27, "Input"],
468			Cell[14595, 400, 371, 5, 30, "Output"]
469	kstocke1	3933	}, Open ]]
470			}
471			]
472			*)
473
474			(* End of internal cache information *)