(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    131482,       2994]
NotebookOptionsPosition[    125229,       2787]
NotebookOutlinePosition[    125657,       2805]
CellTagsIndexPosition[    125614,       2802]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["a) In Contact", "Section",
 CellChangeTimes->{{3.4680975661496506`*^9, 3.468097567288429*^9}}],

Cell[TextData[{
 "Consider the angular motion of the ladder (pendulum), \[Beta] =",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    SqrtBox[
     RowBox[{"3", 
      RowBox[{"g", "/", "2"}], "L"}]]}], TraditionalForm]]],
 ", y =",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    SubscriptBox["\[Theta]", "0"]}], TraditionalForm]]],
 ", x = \[Theta] "
}], "Text",
 CellChangeTimes->{{3.4673925873741355`*^9, 3.4673925876081324`*^9}, {
   3.4680978901242204`*^9, 3.4680979088438606`*^9}, {3.4694731445133824`*^9, 
   3.4694731445133824`*^9}, {3.4694737387210755`*^9, 3.469473761293552*^9}, 
   3.5000368773625245`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"L", "=", "3"}], ";", " ", 
  RowBox[{"g", " ", "=", " ", "9.8"}], ";", " ", 
  RowBox[{"\[Beta]", "=", " ", 
   SqrtBox[
    RowBox[{"3", "*", 
     RowBox[{"g", "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "L"}], ")"}]}]}]]}]}]], "Input",
 CellChangeTimes->{{3.468097771457302*^9, 3.468097777509986*^9}, {
  3.4680978212827444`*^9, 3.468097841484356*^9}, {3.4694731488188996`*^9, 
  3.469473181235076*^9}}],

Cell[BoxData["2.2135943621178655`"], "Output",
 CellChangeTimes->{
  3.467390258203535*^9, 3.4674236470360003`*^9, 3.467464074103937*^9, 
   3.467474899715*^9, 3.467559504624008*^9, 3.4680978473186436`*^9, {
   3.4694731528280225`*^9, 3.469473181921463*^9}, 3.5000368382612877`*^9, 
   3.5000534440724525`*^9, 3.5000568047122507`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Theta]0", "=", 
  RowBox[{"\[Pi]", "/", "3"}]}]], "Input",
 CellChangeTimes->{{3.4674750283120003`*^9, 3.467475035564*^9}}],

Cell[BoxData[
 FractionBox["\[Pi]", "3"]], "Output",
 CellChangeTimes->{3.467475037245*^9, 3.4675595138122315`*^9, 
  3.4680978662566795`*^9, 3.469473185322198*^9, 3.5000368399613853`*^9, 
  3.5000534440880527`*^9, 3.5000568047522535`*^9}]
}, Open  ]],

Cell[TextData[{
 "Do directly in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ", starting at ",
 "\[Pi]/3"
}], "Text",
 CellChangeTimes->{{3.467392363111411*^9, 3.467392369288932*^9}, {
  3.4673924405332184`*^9, 3.4673924483331184`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sol1", "=", 
  RowBox[{"NDSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Theta]1", "''"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Cos", "[", 
          RowBox[{"\[Theta]1", "[", "t", "]"}], "]"}]}], 
        RowBox[{"\[Beta]", "^", "2"}]}]}], ",", 
      RowBox[{
       RowBox[{"\[Theta]1", "[", "0", "]"}], "\[Equal]", "\[Theta]0"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Theta]1", "'"}], "[", "0", "]"}], "\[Equal]", "0"}]}], 
     "}"}], ",", "\[Theta]1", ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "5"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4673866894399385`*^9, 3.467386763192483*^9}, {
   3.4673867985244446`*^9, 3.4673868370387306`*^9}, {3.467386883275648*^9, 
   3.4673869076264677`*^9}, {3.4673924127811737`*^9, 
   3.4673924143879533`*^9}, {3.4673924558054223`*^9, 
   3.4673924571938047`*^9}, {3.4673924872234197`*^9, 
   3.4673925613068695`*^9}, {3.4673925980599985`*^9, 3.467392613768997*^9}, {
   3.46739270254677*^9, 3.467392715103724*^9}, 3.467393071428358*^9, {
   3.4673931100212736`*^9, 3.46739316263805*^9}, 3.4674262854040003`*^9, {
   3.467475045685*^9, 3.467475051316*^9}, {3.4674900132679996`*^9, 
   3.46749001408*^9}, {3.468097852872137*^9, 3.468097858597227*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"\[Theta]1", "\[Rule]", 
    TagBox[
     RowBox[{"InterpolatingFunction", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"0.`", ",", "5.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], "]"}],
     False,
     Editable->False]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.4673926183709383`*^9, {3.467392708848645*^9, 3.4673927156184807`*^9}, 
   3.4673931711085243`*^9, 3.4673938498139577`*^9, 3.4674236517275*^9, 
   3.467426286157*^9, 3.467464092449066*^9, 3.467474911451*^9, 
   3.467475072458*^9, 3.4674900151949997`*^9, {3.467559510567494*^9, 
   3.467559516074188*^9}, 3.4680978692518215`*^9, 3.469473504753409*^9, 
   3.50003684353259*^9, 3.5000483918456697`*^9, 3.5000534441036525`*^9, 
   3.5000568047692537`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Theta]1", "[", "t", "]"}], "/.", "sol1"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"\[Pi]", "/", "3"}]}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Thick", ",", "Red"}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"t", ",", "\[Theta]"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4673869310881157`*^9, 3.4673870122991133`*^9}, {
   3.4673874560390077`*^9, 3.467387459845359*^9}, {3.4673926514581137`*^9, 
   3.4673926845608892`*^9}, {3.467393201808143*^9, 3.46739321099619*^9}, {
   3.4673935110392475`*^9, 3.4673935124120207`*^9}, 3.467426289755*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJwt1Hk41PsXB3BLSVmTrkaWXEOLJVyVlN5p6hJabJXSRCgUUdooS6HFEiVU
EypkzTrEELJW9kjZm9DYvzep61b8Pj3P7zzPec7z+vOc85yjdPSUhZMAHx+f
P8nf1cSJ11I+bL3F4YyGnkUFhXkMWY8+mi7cTy5b9tt/xcey8mjb0bPGjGNO
PCBHDzivuhv7pZ+s+G3Tho7chzQrVGvIG+8lpofKJ80p2iDEp1h7D/FPE4cY
e1Um9L579+wiHglsq7KPtoeJH9PUjHi/4/fS2zRH2M04+pgQVzFkCytZx8Dn
Fu5mTKylbJD9VdEFO0c6lf4mZgnYpao8OYFWN5NYBrEw98rjfaruUKvqbt5K
XNzf2lBp5YH2jMg3BsQeex1NbKM9Mavscl2fuGftNUYYzQtGNH/jv4ij4peV
qxw6i3Tnrm1riU0k0ja/YJ3Dhmt1P9YQF0zUr5tUvIgUFVatEvFJJjP3mr03
tEQd38oR/9k4qbniiQ+E6nY9kiEOz5RaZa7qi5klwVdFiXfIJyYOH/eD5OG2
GCFi35r7khVW/jDgMdz5iHXXq4fZRAegfVOw/VQ5hYSle4Jv0gIREXrb/h2x
T0NM1b7iQFSMDQY3Eu8L6hdQPhSEwMU27jXEotOefhxWMFYvirvKJr7QFnVh
TPEGlA1ZtRHElqE9Bc/Lb+Df7M+/gok1t6tOB9rfRCi/+bdLxAN5hZ7yT0JQ
5HVJw5nY/E6n627VcERKrWVvIlY3VU6VrQ2HmvbRn2uJhQVPfh46fgthg9nz
6cRHimZzyqwisEQkgSlCvHR1hOaB6Eg4J5Ws7iijECCct/IGLQopQjF0B+I1
RpHXcz2icFSsUd+CuDXo1HBXbRRmhyBsSEwXVE/XPHcXgdyWOnniml+Jmm2t
0RA8Et//9gXpdyp6nWLoPQj1MF11iNnaZ6ONP92Dq//slBwx08Pyu6f+fSSE
NukuIM4alyiq4t2HvKlgd2cpBQve9c2uO1gYHoor9yWO7fFmsGfjcG6VKPd5
CQVDOZvEXut4fGr16I0jHjm4Yb5wZjyGk39EBhIrjF10yNRIgGGmv8Ie4lMu
61X4uhNQ3aLd0M+hIOWYlZKk9xiz7V7+34opHLB5lEX9k4hzgiJ6o88pTHZZ
LXosm4QOsQy318TBTGEnS0YSVCqfOaQS5zmcki2ISoJ2R3vEMWJxd4Mgnw3J
eNl7e7KnkEL1lQ8HhS4/xTkl/hflBRR0MhYLyQmn4fX7sZh9+RReaVbbNWil
wcDjW4cGsV3OBY6vTRqu7d72fh5xWEGfx8e0NFTYsmi5eRR45ZldybvSsaBy
Y/xC4rj2nTnadzLwXFCanZFDQWQuwNZIIQvRCjUClc/IvFz2M9X/zoLXI5kt
d4jpbep2i92zMFExt8mBeEtqh0NXaRaEvoT7CRAXpUazCzWzsdg3WGVLJoVx
y7ES08ZsPDhROZqaTsE6JebNGbFcZDu4H7BMIfd9+IrZMaVclBotH1hOzJVy
aziwLhcnObo6A0/JvC9vazI4nAux2KdLvYhvWIy3LsjMBY3jOBORTKH057bO
B2Z5aFr9VacskYKK+QSvMiQfu51aHMYTKMj6Gekff5SPdo933SnEkpkJIYsK
86GwTEPMkfg/YUtNc24+sodr7nyIp9BcXnimV48N7XFPvYo4Ct5aAbP/DrKh
PF3Xc4VFoVFCWlpzayEMyug3mmIonG/ciNivRSiZX9YfFkb2p8kefCVcjCht
ieHNxIlhWqE/5IrxS/BWzmgohRazlR+YO4qhK7P0qjGx2hvpMyrRxWifnl05
d5NCX+1kcu4GDgZXOJ63u07BqCJJvMG7BAtlvshNXaEgk7+4l5+/DC39ifwH
zpN/xWXUN21+Caf8ao/igxReuj5cbjNWhUU2hZwfGylMqxpIZLrVYnLyotkm
GQoCM+mSy1VeI/bCI8arD5NYP2dXYPmsHmK/fp3uCphEfaBuY82aJlw2kHbQ
UZ6EYsToTOpEMyztq8Tf505g9Htfb7tWK86eNrOr2zqBxBHOa/Hwt5ByvTnV
VzwOcfmnkwMDbTCfKxKqVx9HqAv7WAL9HawqmlXuxY3h29b0AWe/DmgvfNdy
c2YUXjpV+X9Uvof+0O03S6xH0fesKqRFqRMZbU48g5gR/HBte7Dauwv9jKy7
9c3DUDNcMHuM042z4S7dD0WHYfRY6XiOTC88Sw13hKjxcF7+yJ8fbfsQVn84
/NKuz1Afsxbp2NWPnQJdkdbOQ1giQQlX/dePurdTX+8eHcS8sgdZyqyP+Bwk
kplmP4ATupwPC0252CvZuV/S4BPSdx5NePGNi2RPru8KCS6mR2Ulh6I/YQ3r
aqo0rx9sSyPBqO0DuGWbMM7Q6YOfcVB8/tAAJCOcQtUSu6HUY/L+SdAgSliM
5acXdEJ/Q2AUTWcIDHqk6HGpDtgqNM3wvx3C5rrBRgmdNky/DuN6BHxGRmOJ
c/iXZsTOY3pZ0Hn4x6enoy3qDZb0sh8LVPHwB512SGxVNeZfDrDa6DmMLeP9
X9o7OOBLZWZxpUawTO1efWN6Ol7wwsVnMkbA9//4H3E9DTA=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["\[Theta]", TraditionalForm]},
  AxesOrigin->{0, 0},
  BaseStyle->{FontFamily -> "Times", FontSize -> 18},
  PlotRange->
   NCache[{{0, 1}, {0, Rational[1, 3] Pi}}, {{0, 1}, {
     0, 1.0471975511965976`}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{{3.467392689833622*^9, 3.467392717396733*^9}, 
   3.4673931737916207`*^9, 3.4673932124157352`*^9, 3.4673935131764064`*^9, 
   3.467423653797*^9, 3.4674262906809998`*^9, 3.467464093915429*^9, 
   3.4674749171730003`*^9, 3.467475075176*^9, 3.467490017085*^9, 
   3.4675595179149528`*^9, 3.468097871108186*^9, 3.4694735078575697`*^9, 
   3.5000368453846955`*^9, 3.500048397945281*^9, 3.5000534441348524`*^9, 
   3.500056804800256*^9}]
}, Open  ]],

Cell["Force from wall and floor, scaled by Mg", "Text",
 CellChangeTimes->{{3.467393225347638*^9, 3.46739323101022*^9}, {
  3.467393324903627*^9, 3.467393328085966*^9}, {3.4673944414516973`*^9, 
  3.4673944436980686`*^9}, {3.4680979153177357`*^9, 3.468097916456514*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Lambda]W", "[", 
   RowBox[{"\[Theta]_", ",", "\[Theta]00_"}], "]"}], ":=", 
  RowBox[{
   FractionBox["3", "4"], 
   RowBox[{"Cos", "[", "\[Theta]", "]"}], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"3", " ", 
      RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "-", 
     RowBox[{"2", " ", 
      RowBox[{"Sin", "[", "\[Theta]00", "]"}]}]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.467393264985713*^9, 3.4673932739085703`*^9}, {
  3.4673933344038444`*^9, 3.467393382934511*^9}, {3.4673939581542935`*^9, 
  3.4673939604162645`*^9}, {3.4674750822060003`*^9, 3.4674750973120003`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Lambda]F", "[", 
   RowBox[{"\[Theta]_", ",", "\[Theta]00_"}], "]"}], ":=", 
  RowBox[{
   FractionBox["1", "4"], 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{"9", " ", 
      RowBox[{
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "^", "2"}]}], " ", "-", 
     RowBox[{"6", "  ", 
      RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
      RowBox[{"Sin", "[", "\[Theta]00", "]"}]}]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.467393264985713*^9, 3.4673932739085703`*^9}, {
  3.4673933344038444`*^9, 3.467393382934511*^9}, {3.4673939581542935`*^9, 
  3.4673939604162645`*^9}, {3.467394433308602*^9, 3.467394502400116*^9}, {
  3.467475121873*^9, 3.4674751272200003`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"\[Lambda]W", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Theta]1", "[", "t", "]"}], "/.", "sol1"}], ",", 
     "\[Theta]0"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0.", ",", "0.6"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", ".1"}], ",", ".5"}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Thick", ",", "Red"}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"t", ",", "\[Lambda]W"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4673869310881157`*^9, 3.4673870122991133`*^9}, {
   3.4673874560390077`*^9, 3.467387459845359*^9}, {3.4673926514581137`*^9, 
   3.4673926845608892`*^9}, {3.467393201808143*^9, 3.46739321099619*^9}, {
   3.467393404181302*^9, 3.467393429515215*^9}, {3.4673934764391127`*^9, 
   3.4673935023502145`*^9}, {3.4673935329256268`*^9, 3.467393579880724*^9}, {
   3.4673939738320923`*^9, 3.4673939749552784`*^9}, 3.4673941632916636`*^9, {
   3.46739424938696*^9, 3.4673942497769547`*^9}, 3.4674262971865*^9, {
   3.4674751453050003`*^9, 3.467475154502*^9}, {3.467490035665*^9, 
   3.467490060392*^9}, {3.469473617969499*^9, 3.469473618531056*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJwd13c8le0bAHBFmUkIlWSLeqVoyLiQN5URRVYlqzdb2ZS9omRT5jGyOThm
OPbeTpnJCg0lRSL87vt3/jmf7+ecz/U893Nf13VfD5+J3Q3z3VRUVKd3UVHh
758fOE6RVK/J+0griU+0U4B2SMY/h+cBbI7s/78F1VsuvuZxBfVZrhPYTMLf
4935PWCeX1IU+9c2128NYU/QrH4ujP3NipB7IMYblgY2+bFN9MpHNzl8gXlU
lQc7sVfhx/KwLwT2uhzBfqfcRTcf7wd+ASpc2CxvdHjH9f2h1qWUHfva6anz
/YcDQGOolAX7P+vMpmseAaDN/5QZ2z/L8nrLeABUuSswYdcdXb1fnRgI0zRa
tNjjetUrUluBYEefTYO9HuXlWXQnCDZqJnZhSzIwxGbwBINX2tjmOHJ88HS6
bFAwcOsarGP/3VtVTPkeDI58+b+wm6kf9NA0PAWeFvJX7OO+MJ4oGgK0Tp6L
2M+oOD9JRYbAwALdHLb2VguNuWkoaHu4j2FXeiSxbnWFwk35u2+xuTcceWOk
nkEvHW0/9tyagGzLnudAJqY2Yzsu+zgIZYeBfGtDLvaIrb5PLcsLCLVOSMeW
XZJ4oeP2ApwsTiRi7161e6skFA5OkfefYUuRDCfC9MNhommfP/Z9B5XZsefh
4HPL1AO78wfPj0dr4UBjcsDi/+slMqzXiUVAW565Eba4/do2g1EEBK8b6WBH
futhSm+LAPIvOQVswy+Pjw/FRwLHE+MD2GG5D04d64kE8oFsGux6C+1zVrui
wLXE9/cYzqfFE8rUllHAlvp5HPtWFqfq9eQoeMHr0IMdfJ/6RsJgFKixB9Zh
f50bM5KUiYY0R8UUbJ6M1vtedtGgOzUXhq1pWmLTlR4NEbV0ntik6acepkwx
kOPbZoD9ePJCXNT7GFBrHN6HXZgkmPzhQCzQO5z9M4o8dZsl88TlWHhza3sW
W3l8oaSpMBboElorsJlGYnt/esUBeWZaF1s+zvctkOLgi+A1eWz7W7YToYtx
wF6xVxCbQvn3s4BWPCxP2C+N4Hwf+LVHm/8lREqTXLD9CWdGj998CTT7/Ayw
rR/a52/5vQTnv69lseUOfL2R9fElVPfNbg8jT2rOpmxkvwKWqAV37FZePoe+
0VfwiHRQD7tw+e7lDIYEiCb6SWF7ho99VbdOAD1p9i/vkI/1D0gTTiWCr1OV
BjZd6v59zvcSoc41Xgh72U596lpEIjRRUjff4v3a3xH4ayURPq/xZWLfu14/
pFKeBKYPopYoyGm9hTbfZFOAKS9Mawg5JPmrQpNNCqgzJR7CdrAVY49PTgGL
bcLUIDI/7c33vFSpoFAaYoW98rrXr9M4FaI4HR0HkOfDbJak3FOBb/yzJPaY
M5NuSmQqZCzCSj9y4+VrYo5NqaB518UKO3K+pf+oEAGsqGuu9yEH9ppdDJYj
wK6nLXuw3cupM1Z0CLDZG1Hdi/tPoKJLWyAB9F3MeLElhWuPPlwkAD1P2EQ3
3i9zkmVzXhpwqjewdSKvjby6QGpKgxJJkfIOZE41n70Z42kglS+gi21wRiPN
jzEd0nsHotuRP2wvjCpZpYO7VOJ2K/LnuCNXG8QyoGAzI7gJ5w/jbs5ipQw4
31nOiv2P5+JcqkEGqP7hT2jE+WNW5u0dkgG67RuvG5BXJa5XwucMUFGXziUj
U3X6itTlZMK9FCvDN/h5ylmsFjRkQhzNpY5q5EvE601Jo5mgOC95Fjswltvo
Cf1rUFLUoq1CZjQtj5W1eA1zctTR5cgcfz/teXM8C0r2P1YtRr5g1z+Uq5AF
e9wX4onI+jPlhFd6WTDeIjxXhPO33U/OPTgLslaZHQvx9WOOOkkvZoGyzl63
PLweca25iqxsuPwkkC0TmfdMDWtRQzbscGaLZiCznxNRfD2eDbcMZmXTkTfk
tpKi9+eAoXKYAQHns3qO7kOXHFBTonuUhPPNZleXmEouFLxnZIpBvvnQ+g+f
cS5oy4wuRyFfdhoWOeSRC+F/DQYjkU8+KfCnLcoF/ofGoeHIf57py89x5MFJ
gQZKKM6X/OLipPk8WP24VOeDHEDknoqmygflo9NW3siupCDmZ4fzwX+I+6AX
8t2aO1buGvnwc0zr9mPkE930Qrrl+ZBQslTjjPv/F+N4lsACMAwurrfE+SLG
6uUnVAROU2dSruP+cf41G1muCK7XjM2r4+tfupi9oVMEKV9cxdRwP71tMvAw
sAjE5jwzr+Dz7HmJwL2FInjssW2hiPudi6hZsjYRaOyFRM4gs3k6iNfcI4JG
ivgJCeSL/rXro9ZEGNVoFRPH/TJc6/nBACKEBAZyiyEL5biVPysjgkxqWAcf
Xs9YB50HRzG8Ge69xILXP8U2FM9fDOeJMVv7kPPn7ySVixeDC6tnCSPen5Uf
p1cuF4OfT9w+WuQ4xsOGFi7FEKF8PHirjQL9spYFuiPFUHc6JPgTsmIKww2p
VyXgYBXgV4t/X4rt1skqgRFtA+1q5HuyAioupBLgMjTjqUD2HpWRre4tgZPD
y0lE5Ho2G2EF6lK4lz16NR1ZIbhvQ9W6FEg1l9SCcLx3hk42bqUQY96d54fj
CS1+DwsshaXLX6i9cbxGqo8DqaUQutmY5Irj/T3dp/u2FFTC3zhb4HgPo9NN
5UkgGtFMuorjkXl5AlRJcFt4Iv5fHI+5IP61Hgn42mYdFXG8vJbnnx6RYC4l
nl0ax/u45mKXRQIPJZsfIjiegb6aB0sZtLVrcNJgX+JZjZwpg/sqQ61lreh8
1e3lc/leBmXufPlE5OdWnhqGf8vgx4J2cB7yWNRklgBHOegVghAB2Wku2YB0
tRzOH/rxPRQ5N+BY/VtiOZzdz0w2QmZv5w3l8qqAunecqzstaP8n+iv+hlYA
zWddwh9k42Xvuan4CnD7cODST+RCrmm5nJIKCJRovj+PfNWCsCw9XwFz3O/+
6Ub2ZOC/ZaheCYqeZ4kxyItqAnzJR6rA8ixBghdZ9uOCd4ZIFTzPFt7gQg5/
kj+VK1kFkXQSVQeQLxSeTa1QrYJonUxOauSn+68cG/CogpdG69ofmykgNmh9
lGaiCvikeduzkG10yw9ZJlZDh5veZUHkxu/ubvbZ1TCY+DfvCDJHMIw6k6rh
k3P/Hjbkusr2eL/uaojUH4/Zhcx8eJwz6W81+M5dEZ5sogBxYudg/+03cPNS
x3Y08orxVdZzR2tgetsa/jRSoEhJk19BrAbMdc9Jf0O2FtA9c+18DVi62AvM
Is/Pmd24q1UD3Lab7d3IY/95RwYG1ECuQMetFORGmwrW4aUaoAk8YK+IHOUm
xOZaVwvSv0TF3RrQvGFwUsC3qxYIcnFc1sjMMpKSz0Zqgd786Y+7yMF/FW6m
rtTCeH2NrTLyY6/bUe3CdbDATohmRjYLiGI79KIOpHW1vFPq0XwWsYu92ogM
dVLnzEvJaL5Z49adtyJDxns12kxkesMLr1hdyfBuzSg+FnlS0I7XKpwM/QHK
QW7ITysnTnI3kOE3c0CsPPL37+P8cKAevuqRbVvqUD/irJAhPKoHc05iekst
Bao6lO9UuNYDbYkiQxmy+ONBzx7PerilznQ3A/nQ9FLDn5B6SHRm7fFF/pYr
eOVGej0MtV1rk0eOl4/UpqbUQ4hx/LHSGgosmdvYmJ9tgM7apt/P3qB4m0yL
t2UaoM6G6ao7sm14vom2YgOoVHoF/oe8XP1F95J6A5y2zW9RRF7Zb6nEZ94A
G1ef3lytRv206j7n++gGWCZGp+ohUzHfa9D+hf5/ejR+fxWqt/QdGbWNBqhS
ZL+5UUkBnwsp5ZeoGsH4KOH3HPJu08m8M0yNkBTisFOFvKfydiyLYCO8v6hF
Z4rMYKJv1X2zEeZpnv0gVqD6Kr9xULm0EUbJqWUy5eh52rE9qK1qhFDL6jA+
5O3jlOpz9Y3gFU6tRou8mKBzT7SnEXY+Dj4aLKNAjY9eHvNCI2xti9r9h2yu
fldx9HATiNDXszwjUaB8zsLG1rcJ6PLWzcklFNBj82mJ12oGs86goo5CNO8z
d59O120GsKA/k4tsz8CZXHCnGWw+5MWFIAftKnButGgG8UMMTKrI5d9HRL76
NIN+tWhcZwEFDnZLhEBJM2gL9gk351Ng0H9KY561BZayOHNScymgvgYjkpQW
qK08xbyZifKVI5+7fqwFBqutnfuRe89yGatNt4BA1pGKTGQNp+VPZt9awFjQ
ouE6suav1M0YulZwe7e6RsigwI2VXcfWZVuBj+F6n3w6mt+/NZnXZLbCkGaj
p34qOm/mVX4qu7RBzxrT3n2v0Dy02BJe8qQNNFwty0Zeon735ZI4r38bDNJe
uJCB/GwZLDbD28BCpqriIvKbjfMfinPb4MoVqwTzeApw7T/exTPZBuwnRSdL
YikwcJ4ufV25HaoWv0aJRaH8ftp+I5+1A05+bawIDkX13dNPn8fVAVu9rE1q
yE9ZR+tzeDpA7EgigQW5N+GTeJZYBxzd+DscF0IB3UIGxjSlDuh3MBPJeEoB
yyG1prhHHfDKnUOWFIT639EBSb9BFL95OKbYD71PFo+yG0R2wsAIZ+URDwqU
HKbOGIvvBBHtFzU97qj+/U5KGqZ0woP14wFeyOd0vLRu53fC4xUFkxk3NA+s
C4bdbe2Ee62OVzJdKXAF7GlNNzrhEEEz+5gzen/p3rthZdIFfxKrez/ao/ep
BckPT850Q9dopx7RHPWTyIWgFxe64fRexQw9ZAu5BAmCfDdsEqRIVMjKUbt9
m691w5gPH5+mGTrP5QcEGU27IcJ+6cRXEzRvxNpaxkd1A2PDvq9c91A9/Zuz
WvKrG869Sr2mbIDqMY2HabG8Bwy93PZMqFPgkdUNxXbDPhAM4DiocYoCpg5e
d7we9wNN3i+9z4wU+PgzqUtObgCe0Jwq9Pk4BKsbU3LnmQeh4dj+LfWyIZhU
tp6+OTAIPozNP1x9huD0omRWQvgQhFxgWotVGQJWVt6HPOg+7LJEMw5SDUG3
p7Z1M99bKP5gbWlCGgT2RwVWmT/fgv6noMQE3UForVN6XtzwDkpzrcUzlwdA
S4N3aspnGCLk5KPoAwbA0oz/vOqNEZDrPxWbsHsADGutySPso9ClMz0/5d4P
FXY/LSKGRkHwH52im319QMhO5gpIGwOVReb4NJteMBWMXE8wHYehmlcEzl09
UCqcO7EkNQGBOyn1RupdMGHFsGKyPgHJzrfric87wI4hS5S68j3wKh5pGi5o
g/BTD8wngyahbqxm2N6xBULiHg5OXP0AyRdyOI9JNAFDUx8fI/MUmiukdwJ9
64Fmwd9KzmkK9MdMx3auvAHLk5PqPm+nIPRsE63m4zLgLLtaMiM3DbsPWogH
GhaAhJF+kU7KNBxL3f1NB1Jg+2yQ3OT2NHAYmL6PfGQCbJpt6v73Z+Cnf5Fx
rUMKOSY0b02mbQZilB6xpWsSyd53/Ya+tM/A1kLSVr4LkWx52pCY0DkD9J/y
HBqTiWT5YQbLzZ4ZEBXrYWBZIpIX+S3fV1NmoEggketcSDH5YvXxZumZGdhm
91Urai0hTy5mRpzfmoGcnd9dJlfKyO1vntgubM+AuszL6mn7MnJJmI5qHNUs
THRz2lm/LCMHSe3Z85t6FkYq2yUyP5eRJbzNXMsZZsHMM/FKxvNysi+ngNFZ
rlnoTVPQGXtbQbb+vCHz8dAsms87nDh2Ksi3age5Yo7Mwvu+2653j1eST5j6
Dv7imYXSylgxVo9KMqVw+l+S0Cw03VpzoOOrItf5VPGbicwCmdv2bfq1KnKO
dsQOm+gsHN7dI6zqWEXWOsItGCs2C69e4k8V+X9SWuXb
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["\[Lambda]W", TraditionalForm]},
  AxesOrigin->{0, 0},
  BaseStyle->{FontFamily -> "Times", FontSize -> 18},
  PlotRange->{{0., 0.6}, {-0.1, 0.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{
  3.467393432447959*^9, {3.4673934841609645`*^9, 3.4673934950807543`*^9}, {
   3.467393527138138*^9, 3.4673935807231073`*^9}, {3.4673939631462297`*^9, 
   3.4673939755324707`*^9}, 3.46739425093134*^9, 3.4674236649700003`*^9, 
   3.4674262979645*^9, 3.467464106473107*^9, 3.467475181896*^9, {
   3.467490028525*^9, 3.467490061271*^9}, 3.4680979217916117`*^9, {
   3.4694736069723454`*^9, 3.4694736192330017`*^9}, 3.5000368509450135`*^9, 
   3.500053444166053*^9, 3.500056804850259*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"\[Lambda]F", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Theta]1", "[", "t", "]"}], "/.", "sol1"}], ",", 
     "\[Theta]0"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0.", ",", "0.6"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Thick", ",", "Red"}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"t", ",", "\[Lambda]F"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4673869310881157`*^9, 3.4673870122991133`*^9}, {
   3.4673874560390077`*^9, 3.467387459845359*^9}, {3.4673926514581137`*^9, 
   3.4673926845608892`*^9}, {3.467393201808143*^9, 3.46739321099619*^9}, {
   3.467393404181302*^9, 3.467393429515215*^9}, {3.4673934764391127`*^9, 
   3.4673935023502145`*^9}, {3.4673935329256268`*^9, 3.467393579880724*^9}, {
   3.4673939738320923`*^9, 3.4673939749552784`*^9}, 3.4673941632916636`*^9, {
   3.46739424938696*^9, 3.4673942497769547`*^9}, {3.4673945227266555`*^9, 
   3.467394551055892*^9}, 3.46742630221*^9, {3.46747519424*^9, 
   3.4674752003929996`*^9}, {3.4674900668640003`*^9, 3.46749007569*^9}, {
   3.469473625612911*^9, 3.469473626065276*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJwV1As0FFgYB3CRih4rLFYakoS1FEIy/RW7RVSLrMVWXu0gISkVeW5pa6Up
Ge9H3pJniV2VRcYUeeQVjTHjMZMeHlE7Xnu759xzz++ce+75zv/7zt3k5mfr
KSoiIpJK9tdzelBOt/KA1e75pa9LgNQoZZU1yhqwUpXjfLXflqqYHoox6E+t
rn51jEVJuKz8XkhL3f2ySOw4K0qtpexH0hplna/WyHf4z1P9IFY8eKy5QDyv
3eW0Ut4W+yUix+eIh8WXHvUrHsH+VV6BQuIWtoZ8KcURs8WBdV+IH1bZBkWr
OsN4MrNrljgtLqTTUf0ohE+nSz4R1xt0MuTij+OfOdrhKWKjTfwmEXk3SEcv
q/pIXLR2YfYtwx2MA7W8d8TKwvXqXYqeYNikdAuIV3buii6g0KAzX7+ORxzy
5HDFrQwvnE1ZYz9IPFHkyQ1V9YGOXfCxfuLe6BtmtuqncM/8EbOD2Dog2880
3w+ia6+rtxJz7rsckon3x26TSKtmYvvkgEsLcqdhmN81/Jg4dv18/FTPafjz
9JyriZlXLhePMQLR6lGeUEFseiZ5oF0xCFbHZY7kEavZNJrkUoIRIrZp8Rrx
0fpDtsmDwdDSupYTTczY+dorLuM8XmvLyYQSr1H/yLigehFOkrFmvsSfFhU+
H1S/hAa/pWErYp2gu+ssxi4he8q7dg8xbfwH9Z35YXCsmXE2Jv7gk1m4Pj4c
xvtp42rEbo4P++bkItFq8Lfd3KIAYbcuep49FwmHKsXfJohTWs0mJ3oiYUpP
0B4h7rZ4vmqUEYV38vyNrcRW2zlGbYp/wDhvwDKVWF9S8k42JQYXZrufbSNm
xAzdNb0Sg3DvfTMqxPMrqstefYzBYmrBoBRxgxitZXndVcRE7uF/XCB5LjQu
93S/hjaXCmYh8ZmJiMAt+bGQ5Ro8kyHuPfVrRK3UDTQculqxNE/yfL/txpHz
N8C+2eQyTiw649e1d0sc6OFL3Dpi1iRl8vRsHGi5No99iJ3HQzQ6GXRkFHaV
lM+RfhXSdJVb6IhsCHNOIn7qZW/os+wWWMkS9RHEavzvLcS8b4FdUd14iPjd
8Otj+rtuQzruXCJfSOaJbZxw6008ONsaz68lTmn/JG6vmojLUtsU1L4IEJ2p
16dhlwgPt3pfceKTAf73FqISUW7Yf2X0swDU9e9s80YSsTw4XiKfmH2Yly7M
T8LUdWVzDWLltvadmbop8FYf/GvjrABZrfd9P5imY+CHUyH90wL8mfbOrN43
HUfZa1wfEAee0pJlpKVDeqWc5A1i1ZV2b1REMhC3yaNgD/FUbmsUyzUDWc+7
lLKnBKCPNrZt3JIJqyTT7t8mBXjlWendUJQFuZod17M/CDDbm2RcWZ8F2aSc
oXPE8tYRK7L7sxDOK1uwInbSO5gVtfouGLHJVyfeCzC4ONa31+cuumfiJ4yJ
3yZssKzTyoboNSPh43EBRFiRWx8X5CBW0/1TOp/UR/WaKa7LgaOx+YaTxOal
h+pT+3LQIJWyypj48h2lY6ESubjtX2H4ckyA1e4P75h65WLq5S8c4agAcvMC
8b818pA1TaPtGxHgB52fh6vy8qHk+HbvgyEBVPT+kS6py8eAU4ZeELGs4dY9
uf35UNMLYhsQC6kLqbe/KYCbzxnvCo4Az2wKfgk4VwD72QS74kEBjvsue661
rxC0K8O0229IXvfKylJHiyCUrqHr9pF8tKTDoraU4HXPs7OJLwWwMMqVeUIt
wRmHIZYNMd3cJF94pATW7X68ZcQ6Lm7tAZdLoFEz5OrVKsDvf5VvPj5WAm8Z
/q0dLWS+zml6pNmXItZrkvUvi/wHr5tXXZQrg1K/Q3BpowB70iVtDZLK8e/9
lhO9NQKYmVNm6NwH6Nau/bAxQwC+9eZNaRuq4cT8RuJ6BOm3q6W04cZ/8GLH
Cm9lVwEMbi6TrTn2BMPcZ3U5OwV47+nr67mjDjWtuypLpUg+D22/taj4F7Mh
Sq53h/lwlIloZPzcgIOXfpTwKuXDZha9+q8a4fHSruDMRT6Oju6btjjXhPtS
qR+OU/mwuMq0vSfdDHqHIjtjbgz9ZX2yTnQWnqY+tZyqHkPsmP5gqN4LCFNS
F9m+Y5jKoqzhP2zBmUluk5nqGE772O5hOr+E1qLBbsPno3APDPstLKQNo9ev
rYj2H8XIdOpzKrUdNRLOEpryo5gRcqhG6zpgTRd9JFk2ArbFySG79g6EN9pU
VluPYDtfPy85rhMe8gX6xSPDkJZWCaAcfwVZuVDHeP9hvLhkf7JhUxcuz1yo
ObzIg+zpYp+c6S5YXbyWKBbKw7PHe/8qq+tGzcnvLOO+cPHzQRUOJ6IH2slS
OqrBXHh7qBodsO3FTcrNA7fHhuBce/JJr2wfunImfqp3HkKV37TXzc4+uLhm
1pi0cpCZn6bwR9ZrbFwnns3S5cBdjf4l2b0fNNtscw3dQVSoFw68NxjAOn9f
5tqBNxjwkZxy+zKA1y9/raUlDMBPMk9T7NEbMKx0tpvY9iNOl+bJvsKGUnnY
/bi3ffgzIaBjwHIQLxwF603jeyFZ/3LT6nUc7PafpVpTerB8LNqHGsSBhXb/
JdfCLnhrs20iujjYH1L3rZPNK8g/sCznUoegF1dykNrRgW3Hfi05kj4EdutA
r0tAOxZ3XKGyF4cQnNG2VluxDTKHm2yiT3AR/WXfB22HFsRfK5rd1cRFRkeh
e2gVC+FHozrHmVxSb3PQZBEL3tudS5NZXFQm1C+cyGBhd4+k91wLF/69mmcd
rrLAV/V+U/OKi+wLs8b7nFkwqdFo2Mnl4lNu2p8BS81g83NuGi1wMZGdlTWz
vxnMv0NPjS1yET7f3pZMbUZ57JEDCSI8GGhSis31mnHFQFz8sxgPIinm5xgb
mrEt3CP4oSQPSi60aIcPTETKbz62Q4Hc76V/p36biZNvhbtGvuPBg+4lxo9h
wqG2QyF+Aw9Sq64+Kgpl4nv3yI5PFB4UnotfN/6diVf3h36s3MLD8e6e1TQT
Jh5HVKt6bCVzlNkWZazLRIH9zSUZTR7u9Y93SaoxcUloVh2ozYPpjJjUg7VM
0FoU7mzW4SGk8cncdVEmbDMmTnfqkvf4G5pPfG6CaSDzUNR2Hpan/Xd+77sm
bP0pQ1tfn4enAyZSKkNN+B+b+h2F
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["\[Lambda]F", TraditionalForm]},
  AxesOrigin->{0, 0},
  BaseStyle->{FontFamily -> "Times", FontSize -> 18},
  PlotRange->{{0., 0.6}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{{3.46739454027643*^9, 3.4673945517422833`*^9}, 
   3.4674236741495*^9, 3.467426302967*^9, 3.467464108064266*^9, 
   3.467475216469*^9, 3.467490076666*^9, 3.4680979240067687`*^9, 
   3.469473626626833*^9, 3.5000368525701065`*^9, 3.5000534441816525`*^9, 
   3.5000568048812604`*^9}]
}, Open  ]],

Cell["\<\
Find where the force from the wall vanishes by looking in detail\
\>", "Text",
 CellChangeTimes->{{3.4673942743934393`*^9, 3.467394289306848*^9}, {
  3.4674236381225*^9, 3.467423640065*^9}, {3.468097932992196*^9, 
  3.4680979352541523`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"\[Lambda]W", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Theta]1", "[", "t", "]"}], "/.", "sol1"}], ",", 
     "\[Theta]0"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0.56", ",", "0.57"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", ".01"}], ",", ".01"}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Thick", ",", "Red"}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"t", ",", "\[Lambda]W"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4673869310881157`*^9, 3.4673870122991133`*^9}, {
   3.4673874560390077`*^9, 3.467387459845359*^9}, {3.4673926514581137`*^9, 
   3.4673926845608892`*^9}, {3.467393201808143*^9, 3.46739321099619*^9}, {
   3.467393404181302*^9, 3.467393429515215*^9}, {3.4673934764391127`*^9, 
   3.4673935023502145`*^9}, {3.4673935329256268`*^9, 3.467393579880724*^9}, {
   3.4673939738320923`*^9, 3.4673939749552784`*^9}, {3.4673941632916636`*^9, 
   3.4673942110114517`*^9}, 3.4674263075775003`*^9, {3.4674752243859997`*^9, 
   3.467475232785*^9}, {3.467490086299*^9, 3.4674900936730003`*^9}, {
   3.4694736450022197`*^9, 3.469473662457277*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJwBwQI+/SFib1JlAgAAACsAAAACAAAAaF7UHoXr4T+3wWRRW6qAP1s4Zo2L
6+E/EU9KwGCmgD9OEvj7kevhP477ZCpmooA/NMYb2Z7r4T/fqDnwcJqAP/8t
Y5O46+E/OO1fQoaKgD+W/fEH7OvhP38JnQCwaoA/xJwP8VLs4T+gFcHk/yqA
PyDbSsMg7eE/HrDYlSJXfz9MLsoH3+7hPzolxTwELn0/9nB/uX/w4T9RiG9p
6ih7PxrwsD4Y8uE/Tb8vbVwteT+zRetj0/PhP+xbP0geBnc/yYpb9nD14T+S
hILDCAN1P1Sm1Cgx9+E/ViaZ9iPUcj9Z/sku6fjhP/TMULe+rnA/3EX1oYP6
4T+nWSdQTlttP9NjKbVA/OE/Hvnk6jIBaT9IcZM14P3hP8q1V6LY72Q/N7t5
iXf/4T+vfJftyPFgP5vbaH0xAeI/6JIYAAI3WT98643ezQLiP5r4Tz+FHFE/
0dG734wE4j9hcrtgNqJAP6H0ZbRDBuI/l0iJBb/69L7uBkb23AfiP2NiaqaS
zEC/sO8u2JgJ4j9O5sraMCpRv+/HTSc3C+I/WaMi1SRbWb+jdnUW+AziPwCg
u/EPH2G/0WEZ2bAO4j/4cpixP31lv3088whMEOI/3EbFsqqRab+d7dXYCRLi
P+C+QtJn/22/O47uFaoT4j8brvkDnRFxv1NrgyZCFeI/dkpnELkZc7/gHiHX
/BbiP99qjJGkTnW/6sH09JkY4j8A+937dV53v2g70bJZGuI/SbgUazabeb9h
8SlEERziPw0NCT82znu/2Ja4Qqsd4j9OE5hh9tt9v8MSUOFnH+I/IksNeGYL
gL8rfh3tBiHiP76+F1QoFoG/DiZnzJ0i4j+95KS99huCv2WkuUtXJOI/q02Z
nWM4g786EkI48yXiPzvIA7MUQoS/ziiPLEsm4j97FK5H4XqEvyQzWqE=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["\[Lambda]W", TraditionalForm]},
  AxesOrigin->{0.56, 0},
  BaseStyle->{FontFamily -> "Times", FontSize -> 18},
  PlotRange->{{0.56, 0.57}, {-0.01, 0.01}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{{3.46739418931213*^9, 3.4673942115886445`*^9}, 
   3.467423682389*^9, 3.467426308249*^9, 3.467464116956038*^9, 
   3.467475250981*^9, 3.467490094808*^9, 3.4680979373445125`*^9, {
   3.46947365214647*^9, 3.4694736632216177`*^9}, 3.500036859312492*^9, 
   3.5000534441972523`*^9, 3.5000568049162626`*^9}]
}, Open  ]],

Cell["Or do directly", "Text",
 CellChangeTimes->{{3.4680979457059517`*^9, 3.4680979495902767`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"wall", "[", "t_", "]"}], ":=", 
  RowBox[{"Evaluate", "[", 
   RowBox[{"\[Lambda]W", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Theta]1", "[", "t", "]"}], "/.", "sol1"}], ",", 
     "\[Theta]0"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4673936031398764`*^9, 3.467393626508227*^9}, {
   3.467393664353099*^9, 3.4673936690642085`*^9}, 3.4674263127915*^9, {
   3.4674752612279997`*^9, 3.467475267427*^9}, {3.467490100223*^9, 
   3.4674901176210003`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"wall", "[", ".563256776", "]"}]], "Input",
 CellChangeTimes->{{3.4673936350412626`*^9, 3.467393644073489*^9}, {
  3.4673936751948905`*^9, 3.4673937157073116`*^9}, {3.4673939869515247`*^9, 
  3.4673941251033535`*^9}, {3.469473700175175*^9, 3.469473727130647*^9}, {
  3.4694739342920074`*^9, 3.4694739442600875`*^9}, {3.500046816570503*^9, 
  3.500046925287094*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"-", "1.5728248040551869`*^-10"}], "}"}]], "Output",
 CellChangeTimes->{{3.4673936448378744`*^9, 3.4673937165652947`*^9}, 
   3.467393856943021*^9, {3.4673939888079004`*^9, 3.467394125758545*^9}, 
   3.467423688123*^9, 3.467426315384*^9, 3.4674641222443027`*^9, 
   3.467475296427*^9, {3.4674901109820004`*^9, 3.4674901208599997`*^9}, 
   3.468097956485344*^9, {3.4694737138398733`*^9, 3.4694737276922293`*^9}, {
   3.469473935477569*^9, 3.469473944962065*^9}, 3.4694739962274523`*^9, 
   3.5000368656418543`*^9, {3.500046819612509*^9, 3.5000469261294956`*^9}, 
   3.5000534442128525`*^9, 3.5000568049542646`*^9}]
}, Open  ]],

Cell["\<\
So the time when it leaves the wall is (to a good numerical approximation)\
\>", "Text",
 CellChangeTimes->{{3.467490262041*^9, 3.467490280808*^9}, {
   3.4680979630060186`*^9, 3.4680979641603966`*^9}, {3.4694739566616898`*^9, 
   3.4694739784697914`*^9}, 3.5000368914903326`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"t1", "=", "0.563256776"}]], "Input",
 CellChangeTimes->{{3.467394302847474*^9, 3.4673943200696535`*^9}, {
   3.469473901002674*^9, 3.4694739031710043`*^9}, {3.4694739498447084`*^9, 
   3.4694739505622854`*^9}, 3.500046942727925*^9}],

Cell[BoxData["0.563256776`"], "Output",
 CellChangeTimes->{3.4674007339406185`*^9, 3.4674237223995*^9, 
  3.4674641597145414`*^9, 3.46747531209*^9, 3.46749028527*^9, 
  3.4675595264168158`*^9, 3.4680979722878404`*^9, 3.4694739041069746`*^9, 
  3.469473951435858*^9, 3.4694739980681934`*^9, 3.50003689546556*^9, 
  3.5000469439759274`*^9, 3.5000534442284527`*^9, 3.5000568049872665`*^9}]
}, Open  ]],

Cell["Thus when it leaves the wall the angle is", "Text",
 CellChangeTimes->{{3.4673937274538856`*^9, 3.4673937351289377`*^9}, {
  3.467464130262497*^9, 3.4674641421337924`*^9}, {3.4674902930439997`*^9, 
  3.467490296939*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]1", "[", "t1", "]"}], "/.", "sol1"}]], "Input",
 CellChangeTimes->{{3.467393745767933*^9, 3.4673937907534933`*^9}, {
   3.467393877316229*^9, 3.4673938907475705`*^9}, 3.467394063530943*^9, {
   3.4673941320452642`*^9, 3.4673941331216507`*^9}, {3.467426230399*^9, 
   3.4674262327615*^9}, {3.4674263217585*^9, 3.4674263313325*^9}, {
   3.467490163035*^9, 3.46749019375*^9}, {3.4674903103190002`*^9, 
   3.4674903127*^9}}],

Cell[BoxData[
 RowBox[{"{", "0.6154797085655322`", "}"}]], "Output",
 CellChangeTimes->{{3.467490184578*^9, 3.467490194641*^9}, 
   3.4674903143310003`*^9, 3.4680979745653963`*^9, 3.469473907148877*^9, 
   3.4694740002209244`*^9, 3.500036897424672*^9, 3.5000469493267365`*^9, 
   3.500053444244053*^9, 3.5000568050212684`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Theta]11", "=", 
  RowBox[{
   RowBox[{"\[Theta]1", "[", "t1", "]"}], "/.", 
   RowBox[{"sol1", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.467393745767933*^9, 3.4673937907534933`*^9}, {
   3.467393877316229*^9, 3.4673938907475705`*^9}, 3.467394063530943*^9, {
   3.4673941320452642`*^9, 3.4673941331216507`*^9}, {3.467426230399*^9, 
   3.4674262327615*^9}, {3.4674263217585*^9, 3.4674263313325*^9}, {
   3.4674903231730003`*^9, 3.4674903356809998`*^9}}],

Cell[BoxData["0.6154797085655322`"], "Output",
 CellChangeTimes->{
  3.467393791829873*^9, {3.4673938440420685`*^9, 3.467393858736986*^9}, 
   3.467393892229542*^9, 3.467394064451331*^9, 3.467394135789216*^9, 
   3.467423697251*^9, 3.467426234941*^9, {3.4674263224960003`*^9, 
   3.46742633215*^9}, 3.4674641453317103`*^9, 3.4674753049700003`*^9, 
   3.46749033796*^9, 3.467559530394765*^9, 3.468097975563777*^9, 
   3.4694739142154503`*^9, 3.4694740022488594`*^9, 3.5000368986577425`*^9, 
   3.5000469520255413`*^9, 3.500053444259653*^9, 3.50005680504727*^9}]
}, Open  ]],

Cell["\<\
which is in good agreement with the analytic result.  Note the use of the \
[[1]] to get rid of the curly brackets in the evaluated quantity\
\>", "Text",
 CellChangeTimes->{{3.4674237051210003`*^9, 3.467423711512*^9}, {
  3.46749035629*^9, 3.4674903876940002`*^9}, {3.468097659529455*^9, 
  3.4680976611206245`*^9}, {3.469474015368101*^9, 3.469474020406804*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"ArcSin", "[", 
   RowBox[{
    FractionBox["2", "3"], 
    RowBox[{"Sin", "[", 
     RowBox[{"\[Pi]", "/", "3"}], "]"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.4673938975646706`*^9, 3.467393934551796*^9}}],

Cell[BoxData["0.6154797086703874`"], "Output",
 CellChangeTimes->{{3.467393927453887*^9, 3.4673939348793917`*^9}, 
   3.467394066026911*^9, 3.4674237181514997`*^9, 3.46746414887282*^9, 
   3.467475309477*^9, 3.467490393553*^9, 3.46809797802853*^9, 
   3.4694740238387384`*^9, 3.50003690368303*^9, 3.500046958811553*^9, 
   3.500053444259653*^9, 3.5000568050802717`*^9}]
}, Open  ]],

Cell["At this point the force from the floor is ", "Text",
 CellChangeTimes->{{3.4673942251136713`*^9, 3.467394236173929*^9}, {
  3.4674237300615*^9, 3.467423741716*^9}, {3.467464164893609*^9, 
  3.467464169557889*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Lambda]F", "[", 
  RowBox[{"\[Theta]11", ",", "\[Theta]0"}], "]"}]], "Input",
 CellChangeTimes->{{3.4674237705695*^9, 3.467423784792*^9}, {
   3.467423827387*^9, 3.4674238515994997`*^9}, 3.4674263446914997`*^9, {
   3.4674641799940214`*^9, 3.46746419838595*^9}, {3.467475322109*^9, 
   3.467475327994*^9}}],

Cell[BoxData["0.24999999988878452`"], "Output",
 CellChangeTimes->{{3.4674237721785*^9, 3.4674237853380003`*^9}, {
   3.467423834811*^9, 3.4674238545765*^9}, 3.467426345684*^9, {
   3.467464184299511*^9, 3.4674641992751274`*^9}, 3.4674753299440002`*^9, 
   3.467490396115*^9, 3.46809798010329*^9, 3.4694740295482283`*^9, 
   3.5000369071002254`*^9, 3.500046966658367*^9, 3.500053444275253*^9, 
   3.500056805111274*^9}]
}, Open  ]],

Cell["\<\
Again in agreement with the analytic result obtained earlier.\
\>", "Text",
 CellChangeTimes->{{3.4674238655404997`*^9, 3.4674238820185003`*^9}, {
  3.4680976720248146`*^9, 3.4680976775471087`*^9}}],

Cell["\<\
To view th full motion we express the coordinates of the ladder CM and ends \
in terms of the angle\
\>", "Text",
 CellChangeTimes->{{3.4680976965787425`*^9, 3.4680977075921307`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"verCM", "[", "x_", "]"}], ":=", 
   RowBox[{"N", "[", 
    RowBox[{"L", "*", 
     RowBox[{
      RowBox[{"Sin", "[", "x", "]"}], "/", "2"}]}], "]"}]}], ";", 
  RowBox[{
   RowBox[{"ver", "[", "x_", "]"}], ":=", 
   RowBox[{"N", "[", 
    RowBox[{"L", "*", 
     RowBox[{"Sin", "[", "x", "]"}]}], "]"}]}], ";", 
  RowBox[{
   RowBox[{"horCM", "[", "x_", "]"}], ":=", 
   RowBox[{"N", "[", 
    RowBox[{"L", "*", 
     RowBox[{
      RowBox[{"Cos", "[", "x", "]"}], "/", "2"}]}], "]"}]}], ";", 
  RowBox[{
   RowBox[{"hor", "[", "x_", "]"}], ":=", 
   RowBox[{"N", "[", 
    RowBox[{"L", "*", 
     RowBox[{"Cos", "[", "x", "]"}]}], "]"}]}]}]], "Input"],

Cell["At early times", "Text",
 CellChangeTimes->{{3.4680977325984497`*^9, 3.4680977357651887`*^9}, {
  3.4680979946266108`*^9, 3.4680979963269777`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ver", "[", 
   RowBox[{
    RowBox[{"\[Theta]1", "[", "0.001", "]"}], "/.", "sol1"}], "]"}], "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.4674246193424997`*^9, 3.4674246744955*^9}, {
  3.4674247525575*^9, 3.4674247545360003`*^9}, {3.4674643060387897`*^9, 
  3.4674643207804117`*^9}, {3.467464360652994*^9, 3.4674643611521845`*^9}, {
  3.4674904304630003`*^9, 3.467490437263*^9}}],

Cell[BoxData["2.598074367437994`"], "Output",
 CellChangeTimes->{3.467490440546*^9, 3.4675596323550577`*^9, 
  3.4680979980741444`*^9, 3.4694740392512417`*^9, 3.500036912859555*^9, 
  3.500046975675183*^9, 3.5000534442908525`*^9, 3.500056805153276*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Graphics", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Thickness", "[", "0.02`", "]"}], ",", 
     RowBox[{"Hue", "[", "0.8`", "]"}], ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{
           RowBox[{"ver", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[Theta]1", "[", "t", "]"}], "/.", "sol1"}], "/.", 
             RowBox[{"t", "\[Rule]", "0.001"}]}], "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"hor", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"\[Theta]1", "[", "t", "]"}], "/.", "sol1"}], "/.", 
             RowBox[{"t", "\[Rule]", "0.001"}]}], "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", "0"}], "}"}]}], "}"}], 
      "]"}]}], "}"}], ",", 
   RowBox[{"Axes", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRange", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "3.5`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "3"}], "}"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4674242498684998`*^9, 3.4674243433615*^9}, {
  3.4674243877650003`*^9, 3.4674245884595003`*^9}, {3.467424691198*^9, 
  3.4674246960220003`*^9}, {3.4674247599814997`*^9, 3.4674247663094997`*^9}, {
  3.467424796465*^9, 3.467424812367*^9}, {3.4674248889175*^9, 
  3.467424945799*^9}, {3.4674263520220003`*^9, 3.4674263536205*^9}, {
  3.4674643308265543`*^9, 3.467464335085245*^9}, {3.467464365769696*^9, 
  3.4674643712919903`*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.8], Thickness[0.02], 
   LineBox[{{0, 2.598074367437994}, {1.5000031937504894`, 0}}]},
  Axes->True,
  PlotRange->{{0, 3.5}, {0, 3}}]], "Output",
 CellChangeTimes->{
  3.467424589142*^9, 3.467424706887*^9, 3.467424767216*^9, 3.4674248135695*^9,
    3.467424896311*^9, 3.467424946942*^9, 3.4674263553615*^9, 
   3.46746427795951*^9, {3.4674643367700014`*^9, 3.4674643725243664`*^9}, 
   3.467475414428*^9, 3.468097999197323*^9, 3.4694740416223965`*^9, 
   3.500036914402643*^9, 3.500046976907585*^9, 3.5000534443064528`*^9, 
   3.5000568051812773`*^9}]
}, Open  ]],

Cell["Define the \"ladder\" object for use in the animations", "Text",
 CellChangeTimes->{{3.4674642348422155`*^9, 3.4674642421584277`*^9}, {
  3.468098003019249*^9, 3.4680980081827497`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ll", "[", "t_", "]"}], ":=", 
  RowBox[{"Graphics", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Thickness", "[", "0.02`", "]"}], ",", 
      RowBox[{"Hue", "[", "0.8`", "]"}], ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", 
           RowBox[{
            RowBox[{"ver", "[", 
             RowBox[{
              RowBox[{"\[Theta]1", "[", "t", "]"}], "/.", "sol1"}], "]"}], 
            "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"hor", "[", 
             RowBox[{
              RowBox[{"\[Theta]1", "[", "t", "]"}], "/.", "sol1"}], "]"}], 
            "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "0"}], "}"}]}], "}"}], 
       "]"}]}], "}"}], ",", 
    RowBox[{"Axes", "\[Rule]", "True"}], ",", 
    RowBox[{"PlotRange", "->", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "3.5`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "3"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.467425796781*^9, 3.4674258334465*^9}, {
  3.467426362075*^9, 3.4674263656755*^9}, {3.467490482307*^9, 
  3.467490515817*^9}}],

Cell["\<\
So an animation for the alling ladder while still in contact is \
\>", "Text",
 CellChangeTimes->{{3.46746442741971*^9, 3.467464434033983*^9}, {
  3.4680977467629776`*^9, 3.468097765108225*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"ll", "[", "t", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "t1"}], "}"}], ",", 
   RowBox[{"AnimationRunning", "\[Rule]", "False"}], ",", 
   RowBox[{"AnimationRate", "\[Rule]", "0.05"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4674242498684998`*^9, 3.4674243433615*^9}, {
  3.4674243877650003`*^9, 3.4674245884595003`*^9}, {3.467424691198*^9, 
  3.4674246960220003`*^9}, {3.4674247599814997`*^9, 3.4674247663094997`*^9}, {
  3.467424796465*^9, 3.467424812367*^9}, {3.4674248889175*^9, 
  3.467424945799*^9}, {3.467424981802*^9, 3.4674250134224997`*^9}, {
  3.4674250435945*^9, 3.467425053217*^9}, {3.467425104947*^9, 
  3.467425164115*^9}, {3.4674252603275003`*^9, 3.4674252740690002`*^9}, {
  3.4674255629205*^9, 3.467425598803*^9}, {3.4674258987320004`*^9, 
  3.467425902811*^9}, {3.467475544205*^9, 3.467475545074*^9}, {
  3.4674756646809998`*^9, 3.4674756900769997`*^9}, {3.467475725891*^9, 
  3.467475726653*^9}, {3.467490553038*^9, 3.467490553602*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 0, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], 0, 0.563256776}}, Typeset`size$$ = {
    360., {153., 157.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`t$664$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$664$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> $CellContext`ll[$CellContext`t$$],
       "Specifications" :> {{$CellContext`t$$, 0, 0.563256776, 
         AnimationRunning -> False, AnimationRate -> 0.05, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, 
        SynchronousUpdating -> True, ShrinkingDelay -> 10.}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{409., {191., 196.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.467425020679*^9, 3.467425059841*^9}, {
   3.4674251150795*^9, 3.467425121641*^9}, {3.4674251686844997`*^9, 
   3.4674251728985*^9}, {3.4674252748955*^9, 3.4674252903155003`*^9}, {
   3.467425603377*^9, 3.467425618442*^9}, 3.4674259048285*^9, {
   3.4674263770975*^9, 3.4674263984715*^9}, 3.467464223922495*^9, {
   3.4674642605347567`*^9, 3.4674642708616915`*^9}, {3.467464382352177*^9, 
   3.4674644157667346`*^9}, {3.4674646568243246`*^9, 3.4674646616134324`*^9}, 
   3.467475444074*^9, {3.467475602729*^9, 3.467475746012*^9}, {
   3.467490530421*^9, 3.46749056635*^9}, {3.4680980150778174`*^9, 
   3.468098018260156*^9}, {3.4694740501398325`*^9, 3.4694740804188504`*^9}, {
   3.4694839260993433`*^9, 3.4694839287667894`*^9}, {3.5000369248492403`*^9, 
   3.500036944476363*^9}, 3.500045211499284*^9, 3.5000454592433195`*^9, 
   3.5000534443376527`*^9, 3.500056805780312*^9}]
}, Open  ]],

Cell["\<\
The horizontal position of the CM when the ladder leaves the wall is\
\>", "Text",
 CellChangeTimes->{{3.4674645306585255`*^9, 3.467464556039237*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"x1", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"L", "*", 
     RowBox[{
      RowBox[{"Cos", "[", 
       RowBox[{
        RowBox[{"\[Theta]1", "[", "t1", "]"}], "/.", "sol1"}], "]"}], "/", 
      "2"}]}], ")"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.467464570671756*^9, 3.467464651255232*^9}, {
  3.4674905960299997`*^9, 3.467490638847*^9}}],

Cell[BoxData["1.2247448714823963`"], "Output",
 CellChangeTimes->{{3.467464627746484*^9, 3.467464652066416*^9}, 
   3.4674757818450003`*^9, {3.467490620156*^9, 3.467490642427*^9}, 
   3.4675597215207467`*^9, 3.4680980300379295`*^9, 3.469474085223558*^9, 
   3.500036948862372*^9, 3.5000469865016017`*^9, 3.500053444353253*^9, 
   3.500056805837315*^9}]
}, Open  ]],

Cell["The horizontal motion of the CM as it leaves the wall is", "Text",
 CellChangeTimes->{{3.467464445390565*^9, 3.4674644650773864`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"vH1", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "L"}], "*", 
        RowBox[{
         RowBox[{"Sin", "[", 
          RowBox[{
           RowBox[{"\[Theta]1", "[", "t1", "]"}], "/.", "sol1"}], "]"}], "/", 
         "2"}]}], ")"}], ")"}], "*", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Theta]1", "[", "t", "]"}], "/.", "sol1"}], ",", "t"}], 
        "]"}], "/.", 
       RowBox[{"t", "\[Rule]", "t1"}]}], ")"}]}], ")"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.467464505901801*^9, 3.4674645083197546`*^9}, {
  3.4674646734224052`*^9, 3.467464673952795*^9}, {3.467464723887435*^9, 
  3.4674648099041805`*^9}, {3.4674649511438646`*^9, 3.467464992701465*^9}, {
  3.4674906599189997`*^9, 3.467490666078*^9}, {3.50004842568213*^9, 
  3.500048449815372*^9}}],

Cell[BoxData["1.4566265992604905`"], "Output",
 CellChangeTimes->{
  3.4674648115889482`*^9, {3.4674649700975*^9, 3.467464993543849*^9}, 
   3.467475802865*^9, 3.46749066796*^9, 3.4675597237982445`*^9, 
   3.4680980327054787`*^9, 3.469474087516714*^9, 3.5000369513895764`*^9, 
   3.500045967102211*^9, 3.5000469906980095`*^9, {3.5000484292389355`*^9, 
   3.500048452638977*^9}, 3.500053444353253*^9, 3.5000568058673167`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["b) Not In Contact", "Section",
 CellChangeTimes->{{3.4680981682200727`*^9, 3.468098168968858*^9}}],

Cell["\<\
Now consider the motion after losing contact with the wall.  (Fixed an \
earlier typo here)\
\>", "Text",
 CellChangeTimes->{{3.500055203286742*^9, 3.50005521353596*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Beta]2", "=", 
  SqrtBox[
   RowBox[{"12", 
    RowBox[{"g", "/", "L"}]}]]}]], "Input",
 CellChangeTimes->{{3.4680982037717886`*^9, 3.4680982254397717`*^9}}],

Cell[BoxData["6.260990336999411`"], "Output",
 CellChangeTimes->{3.4673947373122034`*^9, 3.4674260086975*^9, 
  3.467475906196*^9, 3.4674906926140003`*^9, 3.46755955415326*^9, 
  3.4680982053941574`*^9, 3.4680983421255283`*^9, 3.4694741942966604`*^9, 
  3.5000369589711895`*^9, 3.5000568086624765`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sol2", "=", 
  RowBox[{"NDSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Theta]2", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"-", "\[Beta]2"}], 
        SqrtBox[
         FractionBox[
          RowBox[{
           RowBox[{"Sin", "[", 
            RowBox[{"\[Pi]", "/", "3"}], "]"}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "/", "9"}], ")"}], 
            RowBox[{
             RowBox[{"Sin", "[", 
              RowBox[{"\[Pi]", "/", "3"}], "]"}], "^", "3"}]}], "-", 
           RowBox[{"Sin", "[", 
            RowBox[{"\[Theta]2", "[", "t", "]"}], "]"}]}], 
          RowBox[{"1", "+", 
           RowBox[{"3", " ", 
            RowBox[{
             RowBox[{"Cos", "[", 
              RowBox[{"\[Theta]2", "[", "t", "]"}], "]"}], "^", 
             "2"}]}]}]]]}]}], ",", 
      RowBox[{
       RowBox[{"\[Theta]2", "[", "t1", "]"}], "\[Equal]", "\[Theta]11"}]}], 
     "}"}], ",", "\[Theta]2", ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "t1", ",", "1.2"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4673866894399385`*^9, 3.467386763192483*^9}, {
   3.4673867985244446`*^9, 3.4673868370387306`*^9}, {3.467386883275648*^9, 
   3.4673869076264677`*^9}, {3.4673924127811737`*^9, 
   3.4673924143879533`*^9}, {3.4673924558054223`*^9, 
   3.4673924571938047`*^9}, {3.4673924872234197`*^9, 
   3.4673925613068695`*^9}, {3.4673925980599985`*^9, 3.467392613768997*^9}, {
   3.46739270254677*^9, 3.467392715103724*^9}, 3.467393071428358*^9, {
   3.4673931100212736`*^9, 3.46739316263805*^9}, {3.467394793296655*^9, 
   3.4673948321223173`*^9}, {3.4674260337425003`*^9, 3.467426179748*^9}, 
   3.4674262678725*^9, {3.467426416601*^9, 3.467426421005*^9}, {
   3.4674266404414997`*^9, 3.467426640865*^9}, {3.467489833163*^9, 
   3.467489834602*^9}, {3.4680982107136555`*^9, 3.4680982343472004`*^9}, {
   3.5000545888648634`*^9, 3.500054634292143*^9}, {3.500056888529045*^9, 
   3.5000568888570633`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"\[Theta]2", "\[Rule]", 
    TagBox[
     RowBox[{"InterpolatingFunction", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"0.563256776`", ",", "1.2`"}], "}"}], "}"}], 
       ",", "\<\"<>\"\>"}], "]"}],
     False,
     Editable->False]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.467426160748*^9, 3.4674261821115*^9}, 
   3.4674264330605*^9, 3.4674266437*^9, 3.467475917803*^9, 3.467476274318*^9, 
   3.467489836006*^9, 3.467490694151*^9, 3.467559555167248*^9, 
   3.4680982372175455`*^9, 3.4680983469926343`*^9, 3.469474196855011*^9, 
   3.5000369604219923`*^9, 3.500054653199376*^9, 3.5000568102645683`*^9, 
   3.500056889699112*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Theta]2", "[", "t", "]"}], "/.", "sol2"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "t1", ",", ".9"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"\[Pi]", "/", "3"}]}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Thick", ",", "Red"}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"t", ",", "\[Theta]"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4673869310881157`*^9, 3.4673870122991133`*^9}, {
   3.4673874560390077`*^9, 3.467387459845359*^9}, {3.4673926514581137`*^9, 
   3.4673926845608892`*^9}, {3.467393201808143*^9, 3.46739321099619*^9}, {
   3.4673935110392475`*^9, 3.4673935124120207`*^9}, 3.467426289755*^9, {
   3.467426500953*^9, 3.4674265203585*^9}, 3.467426556738*^9, {
   3.467426649854*^9, 3.467426667651*^9}, {3.469474216619831*^9, 
   3.4694742169942236`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJwti3tMzAEAx09xkrimFIVEzaKHrqKn7/RwEumqWTNJcaS8iq2SUrrj9JBe
HotGqZseK3pIEz0m1bqEHpc7XL/fvXe9PStHNt/ts88+f3zNI84GsrQoFMrW
ef558Fe9kQOVwOYhXNR6SoLztL9q6WIC4xOnTG7VkHCMnvaWzHeImwXPqppE
jmjr+YIlBG5YunICKknsfVXx9ocegVL6qO39MhJt7IfcFwYEUu3OOdMLSVTR
smZ8zAnsOexu6ccmwbY89jnEff6ftSXf+QCJx5zTD/TiCBS/sPc0nSTQUurF
EVUR+N5cGkbPIfBtgdHmuySB6Vf8Rx32BB7kenWRa0n4NZxc2dg5Ag/SI2NP
MInK7NfXXVkjYEbmMZBN4hqLMTb0Q4w0K2n7+i4SG6pj28XpYvDKtY+u+0NC
O5aiPbhRjJ1HkuYeu0jwqWjbJSvWF/AH2huZ5yQIoO7LEd74jLhrVCdZqQSG
qe5ha5o+4c7pRxU6YgkEKY5O+/tEqDCg+TCMpDDMpAkPTwvhONYvMGBK0dnL
ahqmCCFceNuany6FMqPlQi3tIy4ILUuKW6QwGUgt1rceBltGM6TOShHGfKmx
oQtw9UkHj2MvQ2hM+Yj5riFoagROeadk8GHcY/h6DSJfLUvLKpPh0JQmUMdz
AGsUrV9LRDJIrIyLPPb3w2TVz7DdxnK4pIksJrw/QFdndlTHX47wy+/cTvi+
x2rHGbeGNDmMHXK5KwLeoSg/mD3ZLEcKr9M1ZUcfVtYnju/+Kkd8ctDivPhe
aOlqgm3tFOhuHd971rMHywovXaScVECwJTJpuX43dNVv2saKFNAcD+rN//0G
yTFnFkUPK7CtYHCu5dlrSBpGorT1lXA/6DJ+NLcdkc7Mm1wfJXq+b/dVx7Qi
Ysy0pvCyEvfpoz87nF/C/1jtVHe9EpnHE4Wqvud4srzMjjuhhEhda7Fwrg7U
BFZ2+CYVOpr5GVHRNUgwM6/eFKrCldW2C8508RAxs70r8bYKDWZ+U2Z1hfAo
MKWq+SoYVNv0xH5JRVKmyoYrV4Hyf38B9LuA6w==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["\[Theta]", TraditionalForm]},
  AxesOrigin->{0.6, 0},
  BaseStyle->{FontFamily -> "Times", FontSize -> 18},
  PlotRange->
   NCache[{{0.563256776, 0.9}, {0, Rational[1, 3] Pi}}, {{0.563256776, 0.9}, {
     0, 1.0471975511965976`}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{{3.4674265299110003`*^9, 3.467426559891*^9}, {
   3.4674266512225*^9, 3.467426668762*^9}, 3.46747593009*^9, 
   3.467489845925*^9, 3.467490698957*^9, 3.467559556649228*^9, 
   3.4680982395731*^9, 3.4680983488021994`*^9, {3.4694742008797336`*^9, 
   3.469474217540213*^9}, 3.500036962059995*^9, 3.50004700826364*^9, 
   3.500054662309792*^9, 3.500056811355631*^9, 3.5000568914672127`*^9}]
}, Open  ]],

Cell["\<\
Determine (numerically) when the angle goes to zero and the ladder hits the \
floor (and we assume that it does not bounce - totally inelastic collision)\
\>", "Text",
 CellChangeTimes->{{3.4680983713125668`*^9, 3.468098412417776*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Theta]2", "[", "t", "]"}], "/.", "sol2"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", ".83", ",", ".85"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", ".01"}], ",", ".01"}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Thick", ",", "Red"}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"t", ",", "\[Theta]"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4673869310881157`*^9, 3.4673870122991133`*^9}, {
   3.4673874560390077`*^9, 3.467387459845359*^9}, {3.4673926514581137`*^9, 
   3.4673926845608892`*^9}, {3.467393201808143*^9, 3.46739321099619*^9}, {
   3.4673935110392475`*^9, 3.4673935124120207`*^9}, 3.467426289755*^9, {
   3.467426500953*^9, 3.4674265203585*^9}, 3.467426556738*^9, {
   3.467426649854*^9, 3.467426667651*^9}, {3.467475971677*^9, 
   3.467476069859*^9}, {3.4674761107460003`*^9, 3.4674761114300003`*^9}, {
   3.469474291482791*^9, 3.4694743050233307`*^9}, {3.5000547065046697`*^9, 
   3.5000547100302763`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAA6ZLQICnK6j97FK5H4XqEPxj+4puD
y+o/E830JtCKgz+XriA6wM7qPzGtxpFGTIE//wtwGELS6j9Wu4M0jLp9P1vi
t52z1eo/ehsJV1LyeD+zl2v96djqP6qbxnxse3Q/8/kwnWXc6j8kEYJry0Zv
Py47Yhem3+o/RJBXwpY5Zj9e9Ys41uLqP9jKLe+jsFo/d1zHmUvm6j8gNHBu
OaM9P4uibtWF6eo/4DGfPDIxRb+IlSdRBe3qP+hFaUDxH16/egHZc3Tw6j9E
0VsZ1qdov2dM9nCo8+o/VAaf2A3OcL89RCWuIffqP2ilsFbgqXW/DhvAxV/6
6j8Y/3NDzjN6v9RqU4SN/eo/wNG2o6Onfr+DZ/iCAAHrP9ACqpKtvoG/LUMJ
XDgE6z/7vC9SfwCEvwoqprnmBOs/exSuR+F6hL9OUKZ+
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["\[Theta]", TraditionalForm]},
  AxesOrigin->{0.8300000000000001, 0},
  BaseStyle->{FontFamily -> "Times", FontSize -> 18},
  PlotRange->{{0.83, 0.85}, {-0.01, 0.01}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{{3.46747601285*^9, 3.467476039097*^9}, 3.467476070915*^9, 
   3.467476117849*^9, 3.4674898512130003`*^9, 3.468098418002469*^9, {
   3.4694742858824987`*^9, 3.4694743063649054`*^9}, 3.500036971513612*^9, 
   3.500047012881248*^9, {3.5000546890170393`*^9, 3.500054711137878*^9}, 
   3.5000568156128745`*^9, 3.500056893881351*^9}]
}, Open  ]],

Cell["Directly checking", "Text",
 CellChangeTimes->{{3.4680984293590508`*^9, 3.4680984331341777`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]2", "[", "0.840774", "]"}], "/.", "sol2"}]], "Input",
 CellChangeTimes->{{3.467476153875*^9, 3.467476162223*^9}, {3.467476232667*^9,
   3.467476259488*^9}, {3.467476297881*^9, 3.467476306111*^9}, {
  3.467476371583*^9, 3.467476449565*^9}, {3.467490742049*^9, 
  3.467490760203*^9}, {3.469474320061564*^9, 3.4694743721340303`*^9}, {
  3.5000547239611006`*^9, 3.5000547752383904`*^9}}],

Cell[BoxData[
 RowBox[{"{", "1.0640311830546756`*^-6", "}"}]], "Output",
 CellChangeTimes->{{3.467490750724*^9, 3.467490761231*^9}, 
   3.468098436082521*^9, {3.4694743270035195`*^9, 3.4694743728672256`*^9}, 
   3.500036973916016*^9, {3.500054727221506*^9, 3.500054776564393*^9}, 
   3.500056817707994*^9}]
}, Open  ]],

Cell["Small enough, so define the time to lay flat as", "Text",
 CellChangeTimes->{{3.4680984383444777`*^9, 3.468098454692963*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"t2", "=", "0.840774"}]], "Input",
 CellChangeTimes->{{3.467476480082*^9, 3.46747649915*^9}, {3.467490783082*^9, 
   3.467490810197*^9}, 3.4694743914467063`*^9, 3.5000547888260145`*^9}],

Cell[BoxData["0.840774`"], "Output",
 CellChangeTimes->{
  3.4674765011099997`*^9, {3.467490787726*^9, 3.467490811756*^9}, 
   3.467559564027934*^9, 3.4680984600124607`*^9, 3.469474392944297*^9, 
   3.500036977987623*^9, 3.5000547899180164`*^9, 3.5000568196381044`*^9}]
}, Open  ]],

Cell["Now the force from the floor is ", "Text",
 CellChangeTimes->{{3.467476622059*^9, 3.467476633617*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Lambda]F2", "[", 
   RowBox[{"\[Theta]_", ",", "\[Theta]00_"}], "]"}], ":=", 
  RowBox[{
   FractionBox["1", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"4", "-", 
       RowBox[{"3", " ", 
        RowBox[{
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "^", "2"}]}]}], ")"}], "^", 
     "2"}]], 
   RowBox[{"(", 
    RowBox[{"4", "+", 
     RowBox[{"3", 
      RowBox[{
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", "-", " ", 
         RowBox[{
          RowBox[{"Sin", "[", "\[Theta]00", "]"}], 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{
             FractionBox["1", "9"], 
             RowBox[{
              RowBox[{"Sin", "[", "\[Theta]00", "]"}], "^", "2"}]}]}], 
           ")"}]}]}], ")"}], "^", "2"}]}], "-", 
     RowBox[{"3", 
      RowBox[{
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{"Sin", "[", "\[Theta]00", "]"}], 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{
            FractionBox["1", "9"], 
            RowBox[{
             RowBox[{"Sin", "[", "\[Theta]00", "]"}], "^", "2"}]}]}], ")"}]}],
         ")"}], "^", "2"}]}]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.467393264985713*^9, 3.4673932739085703`*^9}, {
  3.4673933344038444`*^9, 3.467393382934511*^9}, {3.4673939581542935`*^9, 
  3.4673939604162645`*^9}, {3.467394433308602*^9, 3.467394502400116*^9}, {
  3.4674268935985003`*^9, 3.4674270848395*^9}, {3.467476529078*^9, 
  3.46747654984*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"\[Lambda]F2", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Theta]2", "[", "t", "]"}], "/.", "sol2"}], ",", 
     "\[Theta]0"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "t1", ",", "t2"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{".55", ",", ".82"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.4"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Thick", ",", "Red"}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"t", ",", "\[Lambda]F"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4673869310881157`*^9, 3.4673870122991133`*^9}, {
   3.4673874560390077`*^9, 3.467387459845359*^9}, {3.4673926514581137`*^9, 
   3.4673926845608892`*^9}, {3.467393201808143*^9, 3.46739321099619*^9}, {
   3.467393404181302*^9, 3.467393429515215*^9}, {3.4673934764391127`*^9, 
   3.4673935023502145`*^9}, {3.4673935329256268`*^9, 3.467393579880724*^9}, {
   3.4673939738320923`*^9, 3.4673939749552784`*^9}, 3.4673941632916636`*^9, {
   3.46739424938696*^9, 3.4673942497769547`*^9}, {3.4673945227266555`*^9, 
   3.467394551055892*^9}, 3.46742630221*^9, {3.4674265797425003`*^9, 
   3.4674265798304996`*^9}, {3.4674266843775*^9, 3.467426695248*^9}, {
   3.4674270995645*^9, 3.467427127297*^9}, {3.467476577769*^9, 
   3.4674766084639997`*^9}, {3.467476644071*^9, 3.467476646611*^9}, {
   3.467490829124*^9, 3.467490836926*^9}, {3.4694744176857386`*^9, 
   3.469474478959014*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJwV13lYTV0XAPBbISoi0ahJSBINNGo1yBsiGkSoRKYkJM1SUiGaKGWmeVY0
aDIkOffeLkW9Sal7u/vUlaL3U4rqW/11nt/znH2Gtfdea21VDx97T2EGgyEj
xGBMX0s/Sy7Wm8WFmvnFv6emOGBpue4mH7237PQ550kONOe4SN8S5cLDTkqr
6C8HhgMypCZmc+F+XKit2xgHdGVMJN+Kc+F/ClKqr4Y5UOxwePbeBVyIFrNS
TeRzoJBVPR6hyIXUYKH4vUwOZNce+9qsywVGSl/bjRQO9O+aiNc7yIXL2hLt
OzU54HRCOdYtngtqVidnSDQ2waPDrsXZ1VxoJTINFl5NYLKorbpkgAsztWen
3BdrAoZFl1SMHA98HYrq4SkbFqgq71TawoM+6zd7PrmwQYSEVHwI5MFuo8en
7EXZoKJx7NiOTB6oRW7N3FjDgstKccLxrTygvObErT3NgiWJVvw0kV7QcLKe
p6HNgkSB9M9Xa3qBq+ropf+DCY6jyvw8t15g7VlEGT1hgkV4pZp7bC9Y9Brd
PxfEhKC6WJtP1b2wP70m/LwVE25wQ1KODPSC/OT32wwpJrRH/FnzRpYPX96W
Pu2kKTjeVlrMs+FDwjFZlZu1FCzPGQ9i+/HhsvzhO8Z3KFizJnh1QCYfQPqX
RmowBZ/T+20NsvjgGzZ0Sw0dJb/7xAhaStvWIT+Igq6Z6/LO5vDhOcMw60Ug
BbFfBjVO5/Mh9OQq1oA/BYLLHurHS/jgPm/RXIezFKT3blbYV8uHK+0fwpy9
KZBLk51j3soHq07Jj+buFDzfXOA0jO46cjGD50aBy5jFo/Q2PnDDXSui0Gm7
vUzmtPMhvM/pEduVAkWZWu/mDj7EOSdFu+6nQOnGweZDPXw40Z6WGutCgfr1
wtuXB/iw9PXjQTknCuo3WPWZfOeDYqv+cL0jBYe+t+kPosVuXjQ4hc6wFWqy
H+IDS8Uz+q0DxkfckaE4zAfN4UumgfYUrIwZO1Q4ygcz6cLJPjsKtCM2arcI
E6gc3DYytoWCB7JB52+IELgen/A6E72gqKjJaQYBP8XoLgf0/zrkff6dSWCk
LHmicDP+77qfRZ2zCXzJL+o+akPBpv67On3zCIh4iJt9s6bAdceo/oQ8gcZw
ykfTgoL3ROtSrQIBrXfXxrvNKbAI9fgUpkgg7XlwSwpaPZftJ6xE4KIk7TML
LRBJLxNVJTA076gDbUbBufIdhlIrCJgnhTaWm1IQp5RrskKP4LrMiEoypGBk
cGZlB1rn3H/Su9H76g6sj9cnUL/0I62I1nCX0xlbR8CBvWdvlgEFLx7GLGca
Euh80RJYt56CYfUjC3zMCNh9P53yV58Cp1XqdNlmArW0kneuDgXVf8IOeW0h
0BRidcMfrcbq6FHeSkAq4AjDGj14IulLjC0BiUdVWd1rcb0VCje72BE4KD+q
q4Cu0OmpnnQkYCnebHZXmwIFw3uJm9wJ3I5Xtv60igLpkHuRo+h/Ei6TPPS8
F/fOZR8gcNiuhIpAC9vcdxE7SOAOf9teHXSf8wO1Jk+M//C8ewmaFJT5Pypx
8iLwuKsx33UlBcVVj9JnnSDAEXkVbITOnXqUXI52n1tyTRp9N/pxkNxJAgtm
XwpialAQmZJu2XmKQHqES4Ap2r48s/nQOQKa7rToqhUU2P7JrF/kT+DGlb+i
YuhNkFXWgB5YZrm1fzkFRm+z0jQCCQhv9L6djVZpy/YYCCYgdD7HQxP9fSR3
2Dccx9/+GWe8jAJinNerHkHgjX5D/RJ09/m81k9oN4NZG4TQH2flPzeIxHgd
axttVMf1trgg4k8UgauHVqTsRcesL5K6GEvgUfq7sGtLKXA4sGO21TUC+7je
n8+glWJ/TghfJ3DBpiRyN/ppj15/RByBCLk1jeror7EVdRGJBAwXRIi/VMP4
lO95ZplE4N+GYl42+ix3PFf4BgHJn5niCWgxww3JETcJeJ+a2OKBXs97eSLi
Fq4nza7o2WiheQc9LFNxfVxq6RpWpYBlOGO3cBqB7mUVlzrRHtc3WUXcxnha
HXxdir5mxJSLuEfgRTN78iC6N+5jQ3g6Ac/lHkEtKhQUPfertsggED+Q0/wK
HcRfXCKUSaBohW5wCXq+yZ674VkEMhJlaxLRJqTTNzyXgAqTPcMZPWtB2DGL
PAJfK3O+2qDfm6i4CeXj/rowJGaCPpzgsSW8gECID9teBZ1oSquEF2M8LD2z
B5Up2H8kZrHFEwJGdmqiPLRG4koJoRKcb2XfsjZ0Le01eqGUAKziz3qFviw1
97v5UwIl4/Ozy9GOGwq5jGcEAsr5qQVoQeIP9oUynA/j+z5p6Gc1Ca/Nywl8
z7zukIC+0KdbyaggMHObaUwMerGZX/qFSgLRuTTPH91zdHGa+XMCUXI/xE6h
85PK4xhVBI7osCKOoi36x4IuVBNYyJP2dEEztr+8q1dDoNrxwQZH9IuSmBcE
HVj4cN92tHmIzKxtdZifnsqctJq+v6dLg/GCQKvuTXczdJ115tZS9JBJWqoR
2kxyXYLcKwLZ6bZf16Inff+WstCaPOEBLXTNv69bw14TCD1uDyvRIRuujunW
E7AuhPZlaNNH9ooE/Xkpp1IN/XeWPKS+wfVtObNHGV3l1XPAtoHA6giyfQk6
6H125BRaxNVfRAFtvO5UVslbHL+zelIWPZ5qQHk2Ynw7Ks1l0JWTkwOy7wjs
DTr7bhE64GCDJAtdWPTjljTasPGabhhFYOekbtFC9G8tJyddJoFPApCYdkWC
YgAfHflHoVhqevwIL+0Wi4BLBTNt2gZ782q2snF+8hxY0x6pO9M9iR50rdg4
Pb5M3VikpAnz74FJken3nbsstNyTg/nNXFNs+nvWDzbayL4nUHPN3Hnx9Hj7
eC8muuWz9bfp739W7nz9/AeMf5VZgxz6rKLyE51mAuca1vRN/79+OGnpRSsn
LtmphP4fv2AkpYXAj3IJIVV06RY/ua0fCbxrFvq9FH2myNR0Em0WJrR+BVpX
eobbk0+YL/bOr9JEDwcwww+1EpgU1YvWRj/pTEyXaSOgtPxkmi56bZaqIPRf
Amf/MU82Qf8Q75fQaSfQl9x93hxddKp4TS/63o+8Qmu0tjH4benA/HCylbcD
PXhv1q0JdNWAWf8udKFI0/PiLwRyV/LX7UevZu9jyHQR+Js5kX4cPaCDWQmd
bBf49vT0+k7+Zh36FddDtLVOIFrLPegqr5vA/Gju5+n9oflfyuJiHuanw6VR
edP7y9nN6GAvPm+RYe9TdE718n2L+QSMbfQu107v36hnD0MIATWHBznN6OVy
LVqb+wkkbO7YOIkuP2TiIC7A/G/6+rMY5gOb4seBbPSWaKpeBn3sn7MNOwcw
P1N2N3XR+X6L3F2GCMhqcTVOoDe8DI1S/IH58/tp92B0kwTJ70KnpdoPXEEP
PS4b8xjGeparLJSH1m12TvL6RUBf/ZbyEPr1kheVq0ewviW7jjMwHzoe0+ge
QvtpZ69ciPZjjGmd/U2gQKnrkiG6QjutIeQPAdPGqHXRaLOrX8auCdFwydLD
Xx/zMad1o8oOYRrWTTjf3Yp2VyvYJCVCg66TgexBdHhlaFLyDBoutrMkktD1
tNLq+6I0aJbMGR5Bb9l4wL14Lg2XY6NLmrBedMS9izozD5/voKH5DX2iQ6dA
X5KGLr7CqCjWo2tnhMcr5tNgJbs4wRL9/sHjpJcLaeieWtBQhXae4Dc0y9FQ
tEvcuBbrW0j18IEEeRp0Lul7fUU/CJ76a6dAQ52W8BAD62XfmKweW5GGz8z0
wY3ooJGt998q01CsVNP0Hn1n6Il/9TIa+p1/yvzGetzdE6qRqYPPb8v/G4n9
wIyHV14f0sX/q1eNK9ac7n9SXJfq0XDORdLvC/p0V/GNB/o0VD33MVk33V90
8Bi3DWho9p1RKkCrf9zcHreBBoNvYQ6eq3H+GxZdCdxMw+pstyup2M9E1NnY
r9pCw5eFt/5jotMqguU70W2aazMn0azcnlxzWxr2X0+mD2F/tDaugClqR0OB
xNcOfV3MP87Wc5MdcXx/SBxXD+t5/9n4EjcaOM9tbf2wP3vIzdp9yJ2G9yNf
B4rRzzs+qyw+QINKQnzbAHqAbf4k0IMGJQ2Pq57Y3+0okWg296ThyvbT3i5G
FMgEpy/kHKfh+6o0FXsTCjIlPiZ/86OhpMXtZCBQWFezPPLP0VB46ah+PTqI
Fazt7Y/z8TDSXhL7z+2xSxsGA2hoDJBJyUSPivv++hlMw45FVy3bsZ+1EZdy
/B1OA7uQs9JuI+6/OTsWzLxOg9Hfh76h2B+vEWVdVcqkobc3ns3H/nyeakNk
MzroF+1hjv38gPGL0KgsGvQz2zbdRueefOozmE2DMe/u+M5duD9b7zjU5tFQ
aZgg9doZzwsZ3gquT2jYoO4v9hTPB3OsJPPuVtNgl9C37QOeP3jn7SnFFhrO
1wqocTyf7JL4acBGa/nELTxykoLG1LiM0I80NMjG5bSg85+yLnR9osFkX01N
gQ/ma8Emgwf/4ve7Zkd7nqZg9i6T9KVdNKxt2ZXNw/OP9mr185r9NJRW3LSX
D8H60PFLx3CKhrdJQVNnruJ5Z6A5XHpNHwyeeZky5wkFR4LMFKr39kGA67Od
l9qx/lbz7qjH9sH7nZJHQsWZsDFE5ujuyj7gW673FzdnQo7K0X05/D7YOd9o
u00gE1wChw2rFvVD+ZNx/4kaJhjYibvdsuyHggvHrOJnsMC9fb/3et9+0B6r
y3DZzYLjNuz0n4/6QRCblOtYwoL7+sxlAZx+eJHcZew3F8+zn4Tj6qb6od71
cXVgABtYw40WzVoCqLzv89Svlw17fuUtEd4jgNnixqctdzWBXn5jz3CMAOb/
qlNZ0NEEht2+Q4XPBLBMsGjM0J0D4/GaRefKBCDm/ibygQcHaix6TpqVCyDg
23/M2Z4csHy8fZBdIQDdv2HXOo5xwPbwyu8DVQIQlOlxL/tywH2gS6D5SgAZ
jRvG5kRzIPr3ZpLZJAD+hx/yqYUc2JLDyDzJEUDR6Edv2ScckHAp91z/XgAb
Z5PwW6UciK9S57/5IABKcfNgWgUH0s5P8Xo/CkB/k3Zn9isOFM541qPWIYDO
mGjT/lYOnHrm9VCATgpYW3G2nQN6h9UOlHwRgJHE6CjjCwcq3sZ1W3Th+8pu
1yv0cODVleNf3XvwfrXQFJdvHIg0Ub2vwRXA1Tpbo4HvHPhnoM31B9pnquLB
+R8cYG2z7grrFYCwqcbLjF8cuD755+4/fAHUcq4GGf/mwM6ikv2SRADX9LeN
c8Y5IO1+bEkbegnvjvnhCQ60zlfpvEcLwOxw3raJKQ78H/smyc0=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["\[Lambda]F", TraditionalForm]},
  AxesOrigin->{0.55, 0},
  BaseStyle->{FontFamily -> "Times", FontSize -> 18},
  PlotRange->{{0.55, 0.82}, {0, 0.4}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.4674266968335*^9, {3.4674271021745*^9, 3.4674271284440002`*^9}, {
   3.46747658524*^9, 3.4674766103*^9}, 3.4674766498*^9, 3.467489983874*^9, 
   3.4674908385109997`*^9, 3.4680984675471163`*^9, 3.469474399012658*^9, {
   3.469474456715125*^9, 3.4694744796141634`*^9}, 3.500036981404029*^9, 
   3.500054795674426*^9, 3.5000568223192577`*^9}]
}, Open  ]],

Cell["\<\
Force is approximately Mg/4 with a minimum in the middle.  Now put pieces \
together - first the angle \
\>", "Text",
 CellChangeTimes->{{3.4674767420439997`*^9, 3.467476771606*^9}, {
  3.467476826479*^9, 3.467476826863*^9}, {3.4674768585480003`*^9, 
  3.4674768846800003`*^9}, {3.4680984744188085`*^9, 3.4680985077865667`*^9}}],

Cell["\<\
Assume that the collision of the ladder with the floor is completely \
inelastic so that the ladder stays on floor after t = t2, but continues to \
move horizontally without friction. \
\>", "Text",
 CellChangeTimes->{{3.467491828176*^9, 3.467491900792*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]", "[", "t_", "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"t1", ">", "t"}], ",", " ", 
    RowBox[{
     RowBox[{"\[Theta]1", "[", "t", "]"}], "/.", 
     RowBox[{"sol1", "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], ",", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"t2", ">", "t"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]2", "[", "t", "]"}], "/.", 
       RowBox[{"sol2", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ",", "0"}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4674271423835*^9, 3.4674272098935003`*^9}, {
  3.467427299811*^9, 3.46742734454*^9}, {3.467491579986*^9, 
  3.467491592049*^9}, {3.467491695766*^9, 3.467491697744*^9}, {
  3.46810165304488*^9, 3.4681017171908464`*^9}, {3.4681017536473455`*^9, 
  3.4681017925997963`*^9}, {3.4694840741841536`*^9, 3.4694840851817307`*^9}}],

Cell["The derivative of the angle", "Text",
 CellChangeTimes->{{3.500055673377968*^9, 3.500055679524379*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"DD\[Theta]", "[", "x_", "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"t1", ">", "x"}], ",", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Theta]1", "[", "t", "]"}], "/.", "sol1"}], ",", "t"}], 
       "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], "/.", 
     RowBox[{"t", "\[Rule]", "x"}]}], ",", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"t2", ">", "x"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Theta]2", "[", "t", "]"}], "/.", "sol2"}], ",", "t"}], 
         "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], "/.", 
       RowBox[{"t", "\[Rule]", "x"}]}], ",", "0"}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4674271423835*^9, 3.4674272098935003`*^9}, {
   3.467427299811*^9, 3.46742734454*^9}, {3.467491579986*^9, 
   3.467491592049*^9}, {3.467491695766*^9, 3.467491697744*^9}, {
   3.46810165304488*^9, 3.4681017171908464`*^9}, {3.4681017536473455`*^9, 
   3.4681017925997963`*^9}, {3.4694840741841536`*^9, 3.4694840851817307`*^9}, 
   3.4694844715662208`*^9, {3.469484511236004*^9, 3.4694845264144144`*^9}, 
   3.4694845613108473`*^9, {3.5000554094879045`*^9, 3.500055453167981*^9}, 
   3.5000555694505854`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Theta]1", "[", "t", "]"}], "/.", "sol1"}], ",", "t"}], "]"}],
    "[", 
   RowBox[{"[", "1", "]"}], "]"}], "/.", 
  RowBox[{"t", "\[Rule]", "t1"}]}]], "Input",
 CellChangeTimes->{{3.500053967515772*^9, 3.5000540062194395`*^9}, {
  3.5000542021557837`*^9, 3.500054203715787*^9}, {3.5000548320848904`*^9, 
  3.500054833239292*^9}, {3.5000548777929707`*^9, 3.5000548789005723`*^9}}],

Cell[BoxData[
 RowBox[{"-", "1.6819675186330412`"}]], "Output",
 CellChangeTimes->{{3.50005397776499*^9, 3.500054008684244*^9}, 
   3.5000542046361885`*^9, {3.5000548258916793`*^9, 3.5000548339100933`*^9}, 
   3.5000548799613743`*^9, 3.5000568390372143`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Theta]2", "[", "t", "]"}], "/.", "sol2"}], ",", "t"}], "]"}],
    "[", 
   RowBox[{"[", "1", "]"}], "]"}], "/.", 
  RowBox[{"t", "\[Rule]", "t1"}]}]], "Input",
 CellChangeTimes->{{3.500053967515772*^9, 3.5000540062194395`*^9}, {
  3.5000540862631807`*^9, 3.5000540931427927`*^9}, {3.5000541452468843`*^9, 
  3.500054154014099*^9}, {3.5000541945585704`*^9, 3.500054196024973*^9}, {
  3.500054838059701*^9, 3.500054839338903*^9}, {3.500054884298182*^9, 
  3.500054885514984*^9}}],

Cell[BoxData[
 RowBox[{"-", "1.681967990143742`"}]], "Output",
 CellChangeTimes->{
  3.500054095654397*^9, {3.500054147118887*^9, 3.500054154950101*^9}, 
   3.5000541975381756`*^9, {3.500054827389282*^9, 3.500054839962904*^9}, 
   3.5000548864197855`*^9, 3.500056839893263*^9}]
}, Open  ]],

Cell["Checks - continuous", "Text",
 CellChangeTimes->{{3.5000541807681465`*^9, 3.50005418886456*^9}, {
  3.5000548556097317`*^9, 3.5000548596189384`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Theta]2", "[", "t", "]"}], "/.", "sol2"}], ",", "t"}], "]"}],
    "[", 
   RowBox[{"[", "1", "]"}], "]"}], "/.", 
  RowBox[{"t", "\[Rule]", "t2"}]}]], "Input",
 CellChangeTimes->{{3.500053967515772*^9, 3.5000540062194395`*^9}, {
  3.5000540862631807`*^9, 3.5000540931427927`*^9}, {3.5000541452468843`*^9, 
  3.500054154014099*^9}, {3.5000541945585704`*^9, 3.500054196024973*^9}, {
  3.500054838059701*^9, 3.500054839338903*^9}, {3.500054884298182*^9, 
  3.500054885514984*^9}, {3.5000552732216654`*^9, 3.500055273627266*^9}, {
  3.500056842419408*^9, 3.500056843526471*^9}}],

Cell[BoxData[
 RowBox[{"-", "2.7892366714386814`"}]], "Output",
 CellChangeTimes->{3.5000552745164676`*^9, 3.5000568442055097`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"\[Theta]", "[", "t", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "0.1"}], ",", "\[Theta]0"}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Thick", ",", "Red"}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"t", ",", "\[Theta]"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4673869310881157`*^9, 3.4673870122991133`*^9}, {
   3.4673874560390077`*^9, 3.467387459845359*^9}, {3.4673926514581137`*^9, 
   3.4673926845608892`*^9}, {3.467393201808143*^9, 3.46739321099619*^9}, {
   3.4673935110392475`*^9, 3.4673935124120207`*^9}, 3.467426289755*^9, {
   3.467426500953*^9, 3.4674265203585*^9}, 3.467426556738*^9, {
   3.467426649854*^9, 3.467426667651*^9}, {3.4674272249655*^9, 
   3.4674272380825*^9}, {3.467427373274*^9, 3.4674273738655*^9}, {
   3.467481092465*^9, 3.467481125709*^9}, {3.467491617382*^9, 
   3.467491630541*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJxN1Akw1tsbB3BRKKVI1xJJljaEVCJ9KxVZullaFG/WihCKShuytCDkvkpv
9lfW7ClLyFrZl2SXrK/tvZX8tfA/d+Y/9/c/M2fOfOacmfM8z5nnSFldMLLl
5ODgqCTzn1XXdqSxZPTobuuLCmpGpWws1BJz7hVVhZODiMg/3hr1iJEtuh/d
m/QLDIkHxGW8LssdxnGhuLX/WK+2LeupqAkqFCR0jhDLBEgw5yVNcf9avvKf
xL90rcMt5WhQm/HoNiBm+bSUW9ItoXuLpqdPfNxmpihU1AYWszbXdInLtcTy
yhhnwOEY5KhDrCStmfFN0g6HWB1SB4kZnBZJsnHn0eSo+0iLmLffO/aYnBM2
l3c17CHO72uqLTNxRmtqyHtNYucjNrpmdBfMSdvdUSfu3uKvFSh6Cdqinjpb
icOiREpkT7kh5Vznvi3EusuTd71muGOHf/XPTcQvJmu2TUleRaIso0qK2IFG
y/K39IDSUptmceJ1dVOKa+OugbvaIEaYOChNcIOh3E3MrvS7vZT4gER8/OjZ
W1hh3hLOTXyzMmJFqYknNEe0nDiIVbfLB5rSvdCq4Wf5tYSN6FV/+t0T9UFw
QKjlB+JrteHlx/J9UDo+6FdHfMy3j1P6lC98BEydKomXTrvcKmD4YeOSyNu5
xFdawq6MS96F9F5GVTCxcUD3i5cld/GfjOHffsSK++WmfSzvIWCB4ffrxAPZ
eS4Scffx6tJ1hXPEhg877A/LBSFEcEuuBrG8nnSSWFUQNitb/dpCzMvlMDx0
9gECBzMWyRCffjWXWWwSjJV80TQ+4lUbgxVP0ENwjlm4sa2YDS/e7PV3RcOQ
yB0uY028STvkTpZzGKyW1akbETf5XhjtrArD3BB49xLLcMmnKLr/BZ/+xmoJ
4srf8YotTXRwnY7qa35N8v1K3yYZ8Bjc3TR7FeJcZTe6zufHsPec+ypOTHM2
nnFRj0B0QL0qD3H6xPJX5SMRkNDj6uooYsNo5M4u+wMMjA5FltwkftTtoZU7
Fwn3DUv7XxaysVfcNL7naBQ+Nzn3RBKzTu5YxJsWhdGEnyE+xGvGr1qnKURj
b5rnmj+JL9htl+XoikZFo3JtXwEbgjbpiUy1WMy1XvL8ns/GCdOYdPbf8XDn
4lMbe8nGVKfJklgxJtqWpTq+I/aj8doaazEhW/bcOok42/qC2IswJpTbWoPP
EPM7afpe25GANz2hU915bFR4t5/kvvEM7lILXpe8YEMlVYBbnDcZ7z6Ohx/L
YeOtYoVFrVIyNJ2/tykQW2ReKbhpmgz/w/s+LiQOfNHr/Ck5GaVmDNGsbDZG
StI6EwxSwFO2M2oxcWTroUzlh6l4ySWUm5rJBt+8l5n2mnTQ11Rylj0n9bI7
TpM/mI5LMcK7HxLLtMhbCDilY7J0XsOaeHdSm3VnUTq4vwTd4iR+lUTPzVPM
gMBNP9ndaWxMGI8X6tVl4Mn5srGkFDaOJoa/v7gsCxnWTieME0l/m3vrn5HK
QpH26oHVxP2CjrUntmXBoUBVZeAZqfeNffWa5llY9ujZqkvEd40mmnjSsiBa
YDMbnMBG0a99HU/0s1G/8ZtKcTwbsoaTI2X3c3DYttF6IpoNsVva6mdjctDq
/KErkXhFWvT9JXk5WCOisMyG+AevsaJhfw4yRisftkex0VCSd7FHLRfKEy5q
pZFseCh5zf1nMBfS09Xd3gw26pYLCSnuyYNmsczd+nA2LtftxKNvr1C4qLgv
MJC8n2Lu4FvefIQpLx/dRRwfqBTwUzwfv7keZI4FsNGov76ddiAfqsKrbusQ
b34vdFGWno/W6bn18/fY6K2aSsjaUYDBtTaXLe6woV3K5K/1KMRi4S/iX73Z
EM4R6FmwoBiNffELTlwm/1W/Vk39rjewzalwzj/Jxhv7p6tNx8uxxDSv4OdO
NqblNJenOVZhauqqvoYwG5yzKStWy77DoysxWm/bp7B93uKF8fMaLPv927XT
awo1Pqp1lZvqcUNTyFpFegqSwWOzSZMNMLYs5/+YNYmxmd6eVqUmuLnqW1Tv
mUQ8q+Adf1AzBO3vfe3NnwC/xLOpgYEWGM6/4q6Rn0CAXe6ZaJkPMCltkH0c
OY7ve1IGzt1qg/LiD433ZsdwSaU854+yj1AfCn2/8ugYep+X32+U6kBqi+2I
ZjgLP+1bnmz06ESfVvpfNQ2j2LyXZ+5MQRfcguy6ni4dhXas1NlM4R64FO09
cH/zCC5LnF73yawXgTXmQdcNhiE/fpSvzaAPhzg7Q46eG8LK5Wze8h99qG7+
+u0vq0EsLH6SLs34hGFfvrRkywGcVy1oX6zXDz3Odh1Bzc9IOWQV/fp7P2Lf
7Tvgurwf02NiK4bon8HkKdDwH+1DrrE2V9j+AfyST1akq/filo5vVM7QAJg/
nSq0c7sg1a37Mc53EE7zhzdYy3ZAfYdPmKjKEBbNP7jyVKsNZmvqZxc0D4Gu
a9KQ5tGC6XeB/c5ew3jWc5Ev7WQjHi2kXTKSGcH5UPcbRik1WNmTG8tZPoKF
VTMHfQMrseiGl8lOl1EMFGrcFrEqBkcSLb1fkIVxpX4FJumryvE2p6hVLORv
XZS6czgTAUqGimYiLAyp5qdUpGZC+KVWWqsEC5OdxevLd2RCsWpDSvUGFjJp
Xu0nDTJgNvgl4fluForCVAs7JlLxSso/0sOehcNMkWvK/kzctOWg7XBk4YPE
Kc6tK5jYn3RV4tsFFjw7F/JJP45Hg5IDw9GNhWR1zcC65DiMwDDCwpOFpekx
74xqY/AHbTX9IJ0FZQO3ROE1DLhGpAcKvmGhh6uD5SZ0D3m/IvzflLNQ/fCt
naPaHfyi+Xm5VrHA/fH+SkkzP/hLm7s11bDA4RDKyIj1Ro2vzgXverKfc+pY
cIUnBEe22qk0sVCjydVn3HADjNQl5qFtLERHdUwJmbrjE//3Y/s6WAgQdfaK
ZbhCzuXTkS9dLPS5MK8eLHbE+eYa3dheFhpY/LMK+88gY9vL/Ub9LCiJGTh8
f2CO6fC43ZyD5Lxke3jeJgOo/whSyxom8fxveJp5qFixKFe8tpUXnKC8RMpQ
7s0U5SO3d611/UK5Q3ulUNMM5cmGkp8hnGP/WuTz6vcCIpTND/BUlIpRjn32
5bWLBGV5h7dZjeso7512jwhRoGzP02QnoEW5aPMdXgEnyttbhGtDnSlnXH8W
InTx/+6rrRQTuUL5zoVFCpLelI2yvQ0V6JSH1W9EHHpNWUDXVd6bf/xfdyk0
NF8tpJwRCZkB2gSVb/p2AYk5yp6+MV5dyZP/Om1E4gm//hQVz1Nfi57DlG2M
JmSfG1IWLyzMMDhO+d6DU5UBVpTPbX/895KrlNf5COnwJFCeU7u+rC2RcvvE
56aEFMrBx7PND2ZSnt9kdNG3kHJX44NIrmbKL/1mrJtbKYdpnN4Y95GyHlMx
Z18P5fwrtW+9RinTFbY9MByn7NLPMJGaorxB36G35BvlhQta4oNnKPflathb
/KBcaB+3Rek35XBJvun5ecr/BQq6iIw=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["\[Theta]", TraditionalForm]},
  AxesOrigin->{0, 0},
  BaseStyle->{FontFamily -> "Times", FontSize -> 18},
  PlotRange->
   NCache[{{0, 1}, {-0.1, Rational[1, 3] Pi}}, {{0, 1}, {-0.1, 
     1.0471975511965976`}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{{3.467491619348*^9, 3.467491631623*^9}, 3.467491711907*^9, 
   3.4675597035191545`*^9, 3.4681017998068576`*^9, 3.469474508799518*^9, 
   3.469484162570354*^9, 3.500037018469694*^9, 3.5000470262660713`*^9, 
   3.5000549795519495`*^9, 3.500056845498584*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"DD\[Theta]", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "3"}], ",", "0.1"}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Thick", ",", "Red"}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"t", ",", "\"\<\[Theta]'\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4673869310881157`*^9, 3.4673870122991133`*^9}, {
   3.4673874560390077`*^9, 3.467387459845359*^9}, {3.4673926514581137`*^9, 
   3.4673926845608892`*^9}, {3.467393201808143*^9, 3.46739321099619*^9}, {
   3.4673935110392475`*^9, 3.4673935124120207`*^9}, 3.467426289755*^9, {
   3.467426500953*^9, 3.4674265203585*^9}, 3.467426556738*^9, {
   3.467426649854*^9, 3.467426667651*^9}, {3.4674272249655*^9, 
   3.4674272380825*^9}, {3.467427373274*^9, 3.4674273738655*^9}, {
   3.467481092465*^9, 3.467481125709*^9}, {3.467491617382*^9, 
   3.467491630541*^9}, 3.4694843850508394`*^9, {3.4694844286361217`*^9, 
   3.4694844349539595`*^9}, {3.469484536054967*^9, 3.4694845409220424`*^9}, 
   3.4694845878459373`*^9, {3.5000556174362698`*^9, 3.5000556655155544`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJxNz3s01GkYB/DB/IbVupZrO1uTSEUclWTVk7RIV2JTK7Wiy0ga6WbZTOu2
KtE6ktuEUpJLLm0K74tZVjsihGoauevHuOWSWHb3nD29+5zzPc/5/PV9Ho6H
r5OXLIPBCPgn/24Hr74X+L3LRoaF1XlbRe8ypo3uqTadNRBSxV5cKLBHqwXx
SQU6W8DRsuxJsMAVbattyU/WcQb//UGKRwTH0F7PydLrOp7waHqYeVBwHr01
Cbe5quMPvuIkC64gAt3S2BUWqRMCkc0Z+4oF8YivULDsF51YaK1Zf1Yu9R5y
3ZeaOzxyG/SWe+kvyytG8+b4bnZf54KAqblC86tKpO842Fd5uRC87cvVYuxr
0Lnn6yF+rBhUMz9aHZWrR1qFahIZGQSeR3dFtZo0okcdNqI6qwqIqlh142hm
M6rgJi/cNyAEsDlTy2e/RuMGG1SyfaohQnRYyeyHt0h2Kkt1of4ziJ+yf+QX
+A6Zzx16tCdHBKxyZkS1aQcShax5XrWiDuaXjPRUdnaiRdH9U5mD9bDZ4bLk
srAb9U+2SV6aNsDibIcN2lG96Db99JlyVCMkGVGRkRHvkTL77lBXVxP08pwv
qoT2oyvHi47cWtoMVoPiYRWuFE1syuo6drEFNFxtDYNDhpC/mbBQs7IVjgd4
+t+tHEZtOcLLLziv4bF1j3x0+wia5jYlLg94A+xUbckdmQ9opbX87JGnYmgO
yBBs0hhDdmmcow+1JDCbl0HV2I2jc+yDS9rd2mA49sIKns8EMhpwmdey4x18
r2fJDoqdRPNVhhWEn97Bl1r+e5+KPyImSszVS2qH0u0usnWan5D3mqevvtjW
AaqJkjc/+E2jrK0et8omOqDmx9mHqGIGjffrqvbEdYJPcrNZ5MRfqGiPnVzs
li5g6o7qecIcumgfKijs6QL+F65TmesYmPPWoTU9tBtEnQY3mCIGtlwXEqtj
1gMz94tTtvnIYLev66ZkGnvgzxbxai1KFo8/u9pxit8Lu3fBG+sHsjie6e7v
tLQPAmvP8JS3y+H5kqI0WWEffIg3KAqTymEqiO+8nvce0sWl0oJ0JmZkuud2
qNOg7dzQo/QdhasGWk4KNGh4/hOnd9k+Cl8xdVzlpk1D3equ25vdKKz12Cb7
JZuGXCuha4AHhVdVG2b9YUjDRM1g6uhJCrt1j2bkbKQhpkFazIqgcDEnPCWA
S8NM4q+M0icU/smL4b7Oh4YNeYtyBkspvCXzAnvMl4aV+5lGnHIK15ueSPI5
Q4O3u4skoprCfeCYcCiYBn9DTfbhJgprui+Ms42j4X6FupzNIIXFqbEucjdp
CJUkq/08QuG0biUNnEgDPzJLXjhGYWMfRuz6VBpeXd953376n77A7hijBzRo
eBXUuCmwsF9C7lX1ChryVT6eylvCwr/NJIRXCGn4gNrCh/RZeMY9jO9XTUPa
HmmQyXIWDtc7cKZBRIODfoB8vgkLi0LtfS/V0WB9eCphzIyF1ftWHzdroOFe
SIqShTkLJz1QPHC9hYYS3v7ocisWblee+G7zaxq4G3i35DexsAGvffeomIaw
gexrO21Y2LtR5JDWRoPqRVX3OFsWzlv7eItTBw0K4/Hz2ray8PiN9I2y3TT4
7LSLN9zBwpafoizye2lg/DfBbgFmHjTx72VeRupSYkWOo0HFEPHun60W+40S
v7abv6BhkniwHk/HyPZ/tnbnwj/VtIkPfCv/e7kucdrd0TIem9joRE3+iyXE
1uNnE2KMibnyDcfVbIhLV0YoqJ0kNm/Sqr1+ijgv8G7MgtP/66ut0tU+Txzh
SxkvukTsVHDJ0TiOuNcyKGFrGbGag5/RJeWBzxYb1zdeKCHOS4GlXe5S8m+u
uRp7ljg4NJUvvj/42dl97ETl7UPknuTQQ5KdxJ5OUv0cR+KvSkryduwljrz2
fdUVD+Jj5jdHFC8QLwlZYC+fQTxrEajUco/4lbSzISOLOHpvwQHbh8RzK5xO
h5YQi19cS5FrJH4cNnm48SVx7DcHl6e3Em+7s6pws4T4yfnaGv574jjjtdcc
B4h5HUnOnCFiw+0n2vAYMVOm6Xb0JPG7om+4hz4Rl3DTTUz/Ir6xaN743Bzx
367uIhM=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["\"\[Theta]'\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  BaseStyle->{FontFamily -> "Times", FontSize -> 18},
  PlotRange->{{0, 1}, {-3, 0.1}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{
  3.4694843878431673`*^9, 3.4694844371379037`*^9, 3.4694845418580217`*^9, 
   3.469484588906717*^9, 3.5000370233993025`*^9, 3.5000470279820747`*^9, 
   3.5000549820947537`*^9, 3.5000555852222133`*^9, {3.5000556234890804`*^9, 
   3.5000556663111553`*^9}, 3.5000568467876577`*^9}]
}, Open  ]],

Cell["The force due to the floor over the full time range is ", "Text",
 CellChangeTimes->{{3.4681015556715527`*^9, 3.4681015801630816`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Lambda]FF", "[", "t_", "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"t1", ">", "t"}], ",", " ", 
    RowBox[{"\[Lambda]F", "[", 
     RowBox[{
      RowBox[{"\[Theta]", "[", "t", "]"}], ",", "\[Theta]0"}], "]"}], ",", 
    RowBox[{"\[Lambda]F", "[", 
     RowBox[{
      RowBox[{"\[Theta]", "[", "t", "]"}], ",", "\[Theta]0"}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4674271423835*^9, 3.4674272098935003`*^9}, {
  3.467427299811*^9, 3.46742734454*^9}, {3.467491579986*^9, 
  3.467491592049*^9}, {3.467491695766*^9, 3.467491697744*^9}, {
  3.468101603391035*^9, 3.468101615777197*^9}, {3.46810177887206*^9, 
  3.4681017887778697`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"\[Lambda]FF", "[", "t", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "t2"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Thick", ",", "Red"}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"t", ",", "\[Lambda]F"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4673869310881157`*^9, 3.4673870122991133`*^9}, {
   3.4673874560390077`*^9, 3.467387459845359*^9}, {3.4673926514581137`*^9, 
   3.4673926845608892`*^9}, {3.467393201808143*^9, 3.46739321099619*^9}, {
   3.467393404181302*^9, 3.467393429515215*^9}, {3.4673934764391127`*^9, 
   3.4673935023502145`*^9}, {3.4673935329256268`*^9, 3.467393579880724*^9}, {
   3.4673939738320923`*^9, 3.4673939749552784`*^9}, 3.4673941632916636`*^9, {
   3.46739424938696*^9, 3.4673942497769547`*^9}, {3.4673945227266555`*^9, 
   3.467394551055892*^9}, 3.46742630221*^9, {3.4674265797425003`*^9, 
   3.4674265798304996`*^9}, {3.4674266843775*^9, 3.467426695248*^9}, {
   3.4674270995645*^9, 3.467427127297*^9}, {3.467476577769*^9, 
   3.4674766084639997`*^9}, {3.467476644071*^9, 3.467476646611*^9}, {
   3.467490829124*^9, 3.467490836926*^9}, {3.468101820726055*^9, 
   3.468101849944293*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJwV13k8VV0XB3AZCkWipGhCQqZKE/KTTCUeSSJ6UkkZQiUkoUgShSTFI0mm
VOeaxyLKGMqcIS53ODdNoijVu1//+Hw/Z+91zll7nX3XXnXEy/oYPx8f3/5Z
fHz//98YtGowwsNaf+bv//9oFCTckgtjayH1qnbt/33qXeiOQ2wDdG15teT/
jqAr/APtd+KPTtnv38RWMz+7drOtcCJKwnuGuD/09qm+FftQtLbB+yfx8bna
89zs7TFv/ujfH8TjcW0ZU3EHwZQ5vGySGNFFqTvYTtDnM2j4Siz4RvCTqMBR
VPiFCHwibly4V/ftimOoOCLfTBPH2N2PuKN3HAcqViuwiG2TP3c62buC7R8p
PEQsN7RNQdnXHTLHrQLfETMVorw/x51EgrhfUAdx8b54IbC9Ue80ql5HfNdP
Nzdt4hQ8Hqn2PScOvMO0ni1wBk5ZbdIlxIYDWqmvV5yFqrTQ2kzi1X+7TdZp
+CJ9wfvJ/4iFVwV/jNfzw92Cxn/iiVucX+s42p+D4YwCK5iYEe4z/Px4AHQK
HITOEsdnyUYo+J7HkXOf812JD4y5dvLiLkCmXbliD/G3rQIleuwQ6Fu2+8sR
jzbaXvM8eREzsX1zxYm7HHL+TZ24iABdXfW/f2iUXNgjJCgQivTq30uHiIOq
71k3rbgMmzXn0pKJva2/rf6dcRn9/GuyIokPj5hMa2iEI3mzkp4/sZHQp3tx
eldQ4r5ovjWx6E69j/b2V8FtSnLiI57pvVF1begqnK+U9fB+0/joNnKz8ngk
ysQU3ncQt0VF6qzyvYYT9a8TMokT2nqucOOi0TbjwTAlXpCrE6vLjsHsqca4
0zM0eC6HpcI0Y1FSI3dxL3Htqohbzf6xUJPLpzcQ+97uvHNwbhxS12eofPtF
490l77RgrZsw5Dvt7E6cZp+RXxNwC3w9H2sMf9I4v/D1xnm1t0AZPtgnS2zT
+q3YRiwBzIcXDn+bpjHbeHsF614CpNMSOfeJ3bT6a+e8vI0eDZXHU1M01s+R
7DKffxfL3z2Wjf5BY+6LLXbxdnchWZdqeZB4NPDQu/77d8Hlu/lLjThhPHfw
pHYSxua61zR+p/FzwJRzwz4Zvt33RPmIXxRcmGp/kIJamxKfPRM0VBg+YhrJ
9+H4SuzBjS80PER9Gc7P7kPVX9BxLzF11G9f0tB9jPW9vSdNvEk64D/h1Wmg
7D7UJX0m63M+WH3kcRr61cvupH6i8a9xpEXi8wc4snHD9vgxUk+996L5Rx4i
LcP9qgKXRs/6++u2CmWgzOLo7R4ODdmotE6vNRl49aZZM5o4Tf/hsgH3DPhc
4/ydYNN4+iDncfFEBirm9co9Z5Hv7WTha4/ZWTBcftFk2wgNPv4msW6VHMTV
b9cfHqCxpSuYedg8B3ldubZXib1ztIvHPHLwKiz9txbxkHWKEz+VA/FGlR9B
/TSqHpzKV9/0COzlsomL+miEGMvYhxnmQp4767p6D4l/9Vj6OocnKJLRVBN+
S+IfXHquIvAJ9HcvFk97Q+Kva7UwTXkCm0MCQbrEQ71bfjgOP8Fpdseck20k
vuq8XRHHn8Kb1/+isYWGgUuv3+etFFIee731biLxhUOWmZgwsHud9abjtWR/
ezJ90s+OAe8NWWPcGhon9p15luXGgOB5ZTk34rY0l0NzbzBwKSGa7faCRuo2
i/tt3QxQpVrKLlU0tp9ZutrBNQ8pjr/sdlTQuDRYoOYdlY8WV1uDxHwaQoW0
7t23hfBY/uF6TiqNdPt3lfEjhRjUChRbRGz0pxE3JgqxW1RwUfA9GqGmuTvC
pIvw7O7Asz0pNGa98zT3PFCEQd7vwK9JNH7/+XbAkFmE/uEF/y29TWPS7M85
3tdimDRH6klF02D1S5boLCjD1AEBt2Q/sn6qcys6cp5hcMwvI8GQxn33re4B
t6uRPj9V/LkQDfO/uzOpvBqUxSrc/l3LxdRqs8yjv17C8KVkYd9ZLiRFFbr0
ltUjr3b+aU8FLnz/2yhhr92IxOTZdzwbORio0RQf929GSHpDQ6ATB3mZIrqM
hBYoORYbPZhgw+gG69Z37zb4KtQnFJ9lw0aeKbUp9g0isgOWNXxiQTbeMls4
5S1ebJ43EHOchaOtT1LvVLcj/rBOwZXGURyhg55WvunAhKJm4AqNUTCbDVem
TnXixVuPzKFzI5gTkSatuLQbShOcG6LPmBhZdVpRV7kH9z8YK68TYmL75Y3x
Eha9CLxfnRq8fhi2dSdkz/37DqbJOQu9nIcgMbxZOdStD40e4norFN/DvPZn
gnl0PzwMhkW1dw1gW7j6sszkAfQvnIyad7EP1AIboeoXg+BLi2i9ENqLeh/p
M4Ej76GlHPmVCu2GuYNi4DH/Ibh07pqaTOnEuFPxZ3fRYaiKdDSuim7H5D7+
z+VxwxgaZTEHU96gcZMsw1GGiYlPO61jg1rhNKOe7pjNROKDhKQdl5uwhzEl
n6E1gsBNsSVKE3UQMK98a1kzAoPewqghy1pIdGwV3757FLupnReeq1fji1nY
vLC3o6jfdUJ+YrACtge232rsGEUVa0D4ZX0FKt3/LFvQPQr/h9dz0vMqEHnd
XzOlbxRmhc8tYsIroNjhYV0yOoqpxwq2SzUrYHdoX+LYdzJ+RDhaILQcVWeV
FPfJsmClxq8YuKkMSldGcpOWseAd/nRcR74M0YmpG5krWKjvMx4XES/DgfKl
pl6KLAzxsvN7WKWY4JvvdlWdBbMwhyidhFIoR/14WgkyP9hzztKfJYhJq9dV
cmYhJIRnl9xSjIKbBTxjFxaqwh+nP64sRk9Y6p1jJ1jQmgm1b8ktxsrj/j/S
PVjgOySmpH+tGNRa5XyFsyyc0Atx6jErRmvBFdVV4SzI3KhawFdXBPE6kyVy
WSz07OiMPdJaiPUl6+t1c1igDP46+lQVwjZ7uZ9DLrn/35i3CYxCpFz73nGX
Ivd3zmaJxRdCwyojZkkpCyWB+xpe2hfColdIeHEjC8qavQHHuAWI+lD7fcEY
C8Kp6rdzJQuwo9ZH/hCp86EtZcwuwQL8TFa0zP1C4r36bCT9Ix8nLMMemkyy
oLg39FJHXz6MGDtszv9hwUZcab9VRj5++b5gjEqwke6qIr0H+cj75/TAOik2
ditYirWvJ/OV5UWCF7Ehc0X0q5tSPrp6LzotWcrGkOFkfr8YGa+3fb6lAhsT
g5x7DQN5cOOv8ijeyEbI6pf9HRfzsKrPK1FwCxtRZukfy33z0JO/onaPDhvC
2+RrSt3zYHIsWHZMn41cEefx6X15kK/Xb1xpxkZqSNj76LV56I2uXBN5gA2f
iGF6fh8DMS4n93Y7smEwLvzI9Q0DJlgWrHiIDeWZmrl9dQwUfAnsenaUjS/s
RSOChWT8Xr3L3zzY2JKb6+4bw4DZknKmYzAbM2WDswbMGXii4rvn3kU2CkKK
BAZ2MLBQZ13VcCgbfBGbUid0GRg+kPmfSwSJ95pv0E2NgYDkm3besSQfDwTe
+4gzMJRrWZd3k+w7VnuUN8whz1MpsmnyFhv9Caq+InwMSA0GSwXcJdf3ptr8
+Uohd4VHS+gDki9tgVjRbgqSWmu2vXrIhr/WnDORbRT8DZiPhLNIfG/pWvlG
CsaH7a5G55J9Tr6Wm1xJYTDNyOh2IRt2KYN5JQ8pSCgtK8upYyPmcpvQ3QAK
vpt6lD82kPyFb1qZeZZCv8nN25rN5Lq1R8hrbwrZx0XOFrSRfGabmbkcp2CY
Pan5rJeNlYrm3g37KGSVUil8/Wyc8M/YkLaHIr+r7mI7Btlo2yKeHW9BoY83
zKtjsuGkYT70ypiCj1rLwzcfiOU4M4c3U3ind3Xhwk8k3qvpZhFtCgYWRqG2
X9gIPNNV3qRFQcyzzKmP7NtfNM+opaiS+UFnW5f9YCNML7DhyRoy/7qWvtM0
qYcdw+W9ihQynmbIsn6zMTXk0R20gsK8qsORa/g4yAr7IjstR+F0m9y0Kz8H
U1sjx6KXUtD/Gtf1aTYHVeg8MUeaQvosS+N1IhyMefzQHJOiICopUnBmLgdf
nBaUfVhAoXt9cOzUfA4CTVUsdcUp/JR3VVooyUH8vW/JmfMoLJfaW665kIOZ
0y7Oa+eSfAlsszKX5mDlDcbTVyIUXL4psVxkOHC8OTvynDCFyBGJgEtLOYj4
nPhnxxwKj9t/iqfIceDP/E9GaTaFtprRB6XLOfDw3z2yQojCRH7Lls6VHIRc
HXBdJ0hBJr3k9Rd5DgxKrhUfEKCgF592ZN5q8n5eN7uT+Ck4hUX9WLOG3G9k
fefELAqhPr5RO1Q4aBbNKT9GnOHstOrQWuI0nYRPfBQabXYVBahzEKOq7H2D
+JORtnmCJge7mcU2ZsSSG5cPMdZxQDVo/bOEeNNq4bOvN3BgldLnxk9sv2hc
hN7IgfA7/nwB4kCh/hTBLRx4M8bXLyNOnXy5YaUOB2qS05OWxLWsp/W6ehw4
3z825w4xl7TX+/VJvsqunv5FPO9V6PhpAw5y3UsMfcnzahadvHLdkAOun0mo
CHk/64z9cjlGHNTuiUQhsW/CdsZLE5I/2f5L50g+7oavNRk244Dv4S07W5Kv
Z76L+mZ2kXy4STabk3wyXf56yVhwMBT7lGtP8i20nxbU/ofUA6+pNISsx+7N
lRrue0m8J0KZMqIUvNdk1oTv40Bugtt7lazvzcWxdmn7OdBa1v1JSozU4w/n
S70OJP6zU2OnJSj84VgunjzIQZTU1w+mkhTke7bkSpC+ZIh/1a+NCym4lszr
MnUmzye+y/egDIWorO9uR104MHsrP51A6pNKHPobdIKDLUHupTSp3yn/ApUi
DxJ/47KVfasohG91vKB4loOwv2J1n9Qo5KiYSBr4cTDxxsX3myaFliVamQ7n
OKhYO/1swQYKi34KvIm7wEH9v807k0gfml72SHFWOMm/8fWIEVMK9Tm3SuUi
SL5VRY2KzCl8uBtsuSWS1JchbyLtHwrrz+/197pOrh8RPta4n0K17q+mgQQS
r9blhbUr2Y+ksgeU7pD8WV577uBJQeOD7WevJA4EpXKfhp6hkHw3T5I/lYOO
bL50rSCyXtOu9krZHCSWbzzPd4uC+pvF7l6PSH4VPZ/wJ1EYzXoZWPKYA70R
CXPF+xT22K1K3ZVH8v3186+XjymoFfewPcs5SK2f7gurJ+t5PXyquJJ8v4Pu
P0NbKdxx0RadVUXylbpjOq2LwmzpGPWbtWS882C7AYvCsI+pT/Fr8v0m2t37
LcBAwvqiWXxDpD41gx5FmDJgIeostZNJ6p1u7IiyIn04c8HquFEO2lzcWhj2
DJyKPWmmSHOgvZ/2/NeD9PFfFG+YjZPv75X1XKObDMx6clMuVpALiYBfHyw4
DJRc3q7xbjYXcnOUNV3GGfA8+BkKIlws1CrUTv3NQP8886OFYlzUlpfVnFuY
hyJ3/pxeaS7Cmg4l1e7Ig4fKqc3yKlys1E0Lf5WVh6EhCy+jtWT85kaxlYV5
sElUzXRR5yI936vzdnUe9OaMSj9ax0VzlLAd810exFi23zfocKHoG3NlVDwf
T1L1Co3Nyfxp2QtZgfmQt1vy8bgFF3bitawPkflImP9dMfIfLhzXvLW1vJOP
oKCn8S17uTBbbBzmXZQPS0d5n/2OXJSsrnNfO56Pz4uFN7ie5MKg84tbuFcB
nFtH3a55kff3vKtXFVyAnvDqtMenuLB6Xvl+SUwBqiYDJMdJX58V2NesxihA
TPvHrwFBXHTsinnwdqIAWjfaqagbXAQZGVqpXCrE6dn3NCgGFwkHVuU5FBYh
YTI8uy6fi4BPf+q3NxShdNRT8X0hFxWzNX+ZDhSBr0Z/qXgZF5aqncMFQsWI
Dh4U8njBRcy326KSdsXImlo2sKadi++pm51G+UvIuSb52r0JLgwL9P9uO1UK
/ndhs4u/cyE/q3RK/2opVjd4XGyZ4sKkpjb28P1SeGTq+f2e4WIQVu1z35Zi
+mj/EQdyjlGMT6IntcuwcEBWZ7E0jRmb/RJrZ5XDvPUu9/pmGrZzsto98yvA
n2Ey1L6Vhn6cubfi2wrSx413y+iRc//BM14CX0n/q7qrLs2ARmKfX8c2zUr8
CZt+WLSTht1o9reHjyuRp2N3dNCBnEvfFDnuyXsGmYxFg+ohNMafZfdXn6xC
S2B15+lLNCT05yu/CK7C5b0nXxeH0SiZu0m+J7YK43wvK7ZfJc97/IahcVEV
mhx8kvbF0ZA7MblgNV81gha0211IpzGl5jQ0K7EarMCY9uZ64rph+njPC9ht
cP/Ka6QRfnb3moYPL9BMG88XeU1Dz0JCQf/vCxTY/tplTM7FlmeeeB1VqkGY
lsuLyl4ar5jBC5PP1kB+VJfxhEdjt5qgadPiWjiZc67HzOMhV2rX2n/cX+Ld
Ev1dNlY8uCXlf3awqid9nLcPw5qHyg8Dj8rd6/Gw8UGK+D4eRp/fFtt0pR7e
50W+1dvz8PKMFDvgWT2EBjqSth3lwfVcCG2s0QCtVPePSr48mNlbq9GSjbii
dCdmOomHMda6zvQvTRj701Rmm8LDiWsXv7vNb4Z195/R/FQeviQ9Yu7WaIZc
hPNWz4c8sB7ZGTh7NCOP1mQyn/AwIR8oyaSbMZj7akNzNQ/tf1fIyvNew+jy
9EGVWh4Gm0K3ZIu2IPugWkT4Kx4MFNLyd69tgY94XL9BEw8qxY85XI8WiHgf
vFzYwYO4m5qp39cWeJrFPJXs5uHHr1vWTMlWdKys6fXq5eGYGVPQTbsVKW+U
NVQHeejsenip1a8VgjkOdleGeFgi7Oj0+E4rXC9dvzTK5IFbd1okq7wVLQeq
c7ezeOAXmHPl+UArtDdMdKVweLiVqM389rcV/wOVd+FE
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["\[Lambda]F", TraditionalForm]},
  AxesOrigin->{0, 0},
  BaseStyle->{FontFamily -> "Times", FontSize -> 18},
  PlotRange->{{0, 0.840774}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{{3.468101837214938*^9, 3.4681018507242785`*^9}, 
   3.469474534053975*^9, 3.4694841708848343`*^9, 3.50003703325852*^9, 
   3.500054988537565*^9, 3.500056850131849*^9}]
}, Open  ]],

Cell["\<\
Finally find the horizontal positions of the 2 ends of the ladder so that we \
can make an animation.  Not required for full credit.\
\>", "Text",
 CellChangeTimes->{{3.4680986379036646`*^9, 3.4680986401500216`*^9}, {
  3.468098698664496*^9, 3.4680987235460176`*^9}, {3.4681020966067495`*^9, 
  3.468102140371133*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"hor2A", "[", "t_", "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"t1", ">", "t"}], ",", "0", ",", 
    RowBox[{"x1", "+", 
     RowBox[{"vH1", "*", 
      RowBox[{"(", 
       RowBox[{"t", "-", "t1"}], ")"}]}], "-", 
     RowBox[{"L", "*", " ", 
      RowBox[{
       RowBox[{"Cos", "[", 
        RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], "/", "2"}]}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.467481255499*^9, 3.467481303738*^9}, {
   3.4674813538859997`*^9, 3.4674813685360003`*^9}, {3.4674814050690002`*^9, 
   3.467481407139*^9}, 3.467481647276*^9, {3.467482127708*^9, 
   3.467482148*^9}, {3.467482263323*^9, 3.467482288344*^9}, {
   3.467482345043*^9, 3.467482345644*^9}, {3.4674853262790003`*^9, 
   3.467485327763*^9}, 3.467485507468*^9, {3.4674882610220003`*^9, 
   3.467488262257*^9}, {3.467488778476*^9, 3.467488786398*^9}, {
   3.467488879876*^9, 3.467488890059*^9}, {3.4674889352650003`*^9, 
   3.467488946448*^9}, {3.467488977889*^9, 3.467489019743*^9}, {
   3.467490975455*^9, 3.4674910085220003`*^9}, {3.4694841784193444`*^9, 
   3.4694841800572815`*^9}, {3.5000460669267864`*^9, 
   3.5000461133524685`*^9}, {3.5000461440845222`*^9, 3.5000461474073277`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"hor2B", "[", "t_", "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"t1", ">", "t"}], ",", 
    RowBox[{"hor", "[", 
     RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], ",", 
    RowBox[{"x1", "+", 
     RowBox[{"vH1", "*", 
      RowBox[{"(", 
       RowBox[{"t", "-", "t1"}], ")"}]}], "+", 
     RowBox[{"L", " ", 
      RowBox[{
       RowBox[{"Cos", "[", 
        RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], "/", "2"}]}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.467481255499*^9, 3.467481303738*^9}, {
   3.4674813538859997`*^9, 3.4674813685360003`*^9}, {3.4674814050690002`*^9, 
   3.467481407139*^9}, 3.467481647276*^9, {3.467482127708*^9, 
   3.467482148*^9}, {3.467482263323*^9, 3.467482288344*^9}, {
   3.467482369145*^9, 3.467482396395*^9}, 3.4674850456870003`*^9, {
   3.467485303976*^9, 3.46748531794*^9}, {3.467491045499*^9, 
   3.467491063381*^9}, {3.469484187342201*^9, 3.469484192505603*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"hor2A", "[", "t", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "t1", ",", ".7"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "0.02"}], ",", "0.02"}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Thick", ",", "Red"}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"t", ",", 
      SubscriptBox["x", "A"]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4673869310881157`*^9, 3.4673870122991133`*^9}, {
   3.4673874560390077`*^9, 3.467387459845359*^9}, {3.4673926514581137`*^9, 
   3.4673926845608892`*^9}, {3.467393201808143*^9, 3.46739321099619*^9}, {
   3.4673935110392475`*^9, 3.4673935124120207`*^9}, 3.467426289755*^9, {
   3.467426500953*^9, 3.4674265203585*^9}, 3.467426556738*^9, {
   3.467426649854*^9, 3.467426667651*^9}, {3.4674272249655*^9, 
   3.4674272380825*^9}, {3.467427373274*^9, 3.4674273738655*^9}, {
   3.467481092465*^9, 3.467481125709*^9}, {3.4674852378929996`*^9, 
   3.467485271033*^9}, {3.467491075707*^9, 3.467491084974*^9}, {
   3.467491732499*^9, 3.467491732778*^9}, {3.468098734185013*^9, 
   3.46809873746095*^9}, {3.469483730798611*^9, 3.469483732701701*^9}, {
   3.469484281859485*^9, 3.4694843010313935`*^9}, 3.5000449388888054`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJwt1Ak0lN0fB/AhJFQTIsVryFKSKHu6l0oKyQzaqCwRIQqvLRlbsoxkyxJv
/IUWQguV94nSYkmRZN9CRWUNWer/3Pu8c86cOZ/z/f3uvfO7z3lk7D1Yjtw0
Gm2B/KJfRVqE6Da+fkjDn+aKzhLAH0M5PmlQi0hwmJ3v/y/3DdhNGK0uHdVd
in2yJYlJLLx0/ZRAmVHaxiJK/OQ/DlPWH25mEU5KPbU7+bHZXrUsQrIzlUin
rF7+iEU0clilE5SLZXNYxEUolGe8DNtUKoxF6I2/SMuhrC9swyLGc4I5c5R7
XZVZRJ6lTghLAPtw0iSTsOab9L5FeeBnMZOgl99x5hbErpxzYBIvXZxsjlLm
WS7EJALXMcxLKfemFJgTqm/adgkIYTtz65gTQxcStewpX/LyP0BkqO7f9Jjy
2H4nM8K8n09aeDn2Bmet/QRvUqXwacr6KSMmxGPDAL5nlLXvhBgT8je/fz+7
gppvj5kR0X40v6+GckFumCERL2T3QWYltmp28i7CkFhb40+5tyDMgJjzaK5o
pEyXTgPEXZm44o10bFtmtw5x8r1RbghlRnyzOvFW80mM2irs61nJ64nwL97B
UZRpo6orCN10Fa++/3ykjAfkLmYfvSJM3Yezgyo4ctfa7CvlscsftcAKu9U7
DUSo83kXQuBffWnjOOWxb7v2ApW/d0rtE6XmF/naFAwoLtCzKX87UmUOzGI8
Zs1XU/PY3mAF1rMOvioWw7bMzbYFrUvoT/jFsW2UNO1B3IOaIlvKSh7tDmB2
zY4U+hrsAHuLU6CwdjrKmfL9/A0uwP58cVAlZUbbClfwpme9o6cEdT8qKz1A
6JWuw68p75tK8gTau66aMtZiOx2/fRbk5Amov6OsNzbpBXzdx7lVJbFX/Dvr
B+ZeX7G5TDlV5VwAOC+39eEPyv1ivwJBaMc5l0Ip7EeCqsGAR0vkudBf2Ap6
nmwQmXBP0g2b3cw5EAJi9029VZLG+dlP68PAyhtJG6Mpu4pLhIMEmkbYV2x2
z8vVEeBqmY9mAQP7yKx8JMiRn7kmL4vrS/fkxgD5kKvT4ZTTZz7GgoJOLfMB
ykcGROJAYaLfkv+tR65868yKB+Vccy4MeWT9ggaxRLD9WPrzYGya/+emRECU
60r1YLPDLyQmgecege8yFXB/0CHZFNDQtaC5bgPOPfj80gBTJzM+gHK0/ZF0
0Jy0Y7gNu9I8E2aANpMLmakbsRk9azPBwKM/S8Q24f27Ji5eB6dWXz/mg20b
Uy2YDYY99cuasdkfNRKzwahiyOlEZVzvvfJWDphL5m6kqyD3fjeazQVB4zlK
npSfPE24AWj7d4W/xdYPWaqaB3h5wrXitiBfl5P2ygf0c7xZgmp4P5VTkreA
ghm/K586/v+HgpYUg0YuEa8T2J6nHtsXg/MPpALLselPzjwvBu8lt8Wc1sDr
8RpFlQD2yLHbDZrIxdLzCvdA+6V7Iyk6yKp+aXceggg9YnIUm+Z+Tq4MqI69
nt+ri88nNpxZBiIPdQvO61LP49PkcqCusEz5hB7e/y+jtMfg8vPjbooQ225q
nAC6vi7ebMoCfeFPwZCS9/k2bMavGqFKoJcQFRujj7xm66bcSjBse//OqAFy
a3xNVxXY/XvZ97LduN85JqgajJaI/qQbIo9Vvf5QDdIdpRddsNds+KPyAozX
qy+X3INsrnhs4AXIyjixmW2E7DfMa/0KzGo/cN9rjOdhb+xfC4oEbj78B5th
/LCnFjh0Xvszjb0hU9GoDjQEh1+5YYLn9UVaoh7kvrR4wL0f5/WxNW+AueXE
QsUBZJtXz4reAT6FIUNRc2ShEe/hd+DJTFucKzZ/7H2FRqCQUcVYy8T7zXZf
bwQLffG7fVn4vo5OZjSBfI8tsWpWyFOHSwqbgY3B+g+XsFVB7EQzEBYR/6sX
O9X1j9YHcP7h77txB3E/q6T6A2Atvnk/cgjn6gcHW8DvaLd1eUeR1RO3724D
B/Nu3lpri8xzYUtQN2iTCT/ij93Z+aurG9hkHudvxY4fjYc9wD5JxCnZDvki
K4m7F5wJDZKhO+D5Q8E3vSDiODOV1wk/D1UtPv3gvtiviDFX5Fv8IxJDQCvh
vfoBN+T6xvFDQ+Dx8qJPhdgNtW4pQ6CSx8HA1R25aWmV6GdQP1G/MHgGufzN
D7EvYKDhulfHWeS8y5Vqw0Akcq/dS1/k5jTD6h+AOMoh/vJDZq0NFBoFp1Wa
1vliV3TIWI2Cqg/WLYr+eB7R1Z9HgYech0lUAD6/nnrUGKirStYwDUJe0VpB
jIOwhf5lTaHIdrwZB6eAyjvFU0phyJM/pUOnQPv/3KpDsX819BdOATWT6Qvb
wvHzNCzL9xP0pC2bSopAjki/8ugn2K6l2n3oEvX+PKA8AybPBpV2cZBH3obs
nANuowU+O+KQOSJnAubAgFuzdia2bszN0jnQcmrTU5vLyGUzK+TmweNjbXUd
8ci+39IEFkDoPo3BtkTktLC+oUUgLPNdvCWNNBs29f6gwZisNR0a6Xg+T2l0
LsgjuTsrGbu0zkSNC06LZchZZSCr3HPw5oLtQvvUmq+hfsb7zAUumDOba9z0
D8p3LbNcvQRufWcT1HAD5fy8cc688IHr2RDlPJRDq8Q4Xqi99GJENHbGtRf3
eSEEdzl78vH7LrCEiw+a3uHKIgpQv/Ppm5l80PFSHlF0G3mVn1r3UpiqP/Yn
rgSZM38sVACu6+Th+Y5M85HULBKAWb4S/CalKA+MA+0CMLdoJ33pPZQzG3u3
CsISyWRG8H3k8RL3IUFYO6tj4FGG6tV8nh5cDheLw0IP/ItyzfXBKnRYkMut
kY9dD9oN6dAyNeTzb2yzRpNjdHgnONi0iEAuuHgulg6PmgWKLa9E61U4vB2h
w/KRc7dqnyFf8HxXtAp6K9g3Gb5GvrlRb48IHMnQl9V7T7oyjCP1rxg8qZOn
m4HMtnAc6hSD3S2CFnPYet31C2Lw3aqPYeXNyJojE3ri8H6k+6B6C9q/YzaX
EIcXvNILNrchR0sWvloDhU2mVKR7SOt/dbg7thZqz+Vv5x5B/lYSlS0N20d9
ua2RKxk3I15Kw/ODRjX3kGnB/lkj0vDpu88HHb+h/KqLyDoG3JOveO71d5Rb
NO9zYkBLy/yCuDGUe3/2+sOAnkV5q9dNk74u8XFATxYW2N8Y3cb1CdJsN3T6
DcpBy7+Pz0QjV568YDYvB2nR4n/6kNkPrLetkoeHS6JWxHOjeqkupR3ykJ92
ZvO3JaR7a640JsvDU5marrl8n9D7zJ/bWAEqtL4aEhVC6+36JU4owhv7h7t+
iqF+u3HYogS57rQZXlFB/pRkoqsG2aIn9qbuJh1f/8+ErQY8PhZX7WdD2jx+
RUWSLnxtxhf41Ys03eFhm44+tCoTqX8RRbpV0oJmuQsaJNalBGaT5r8f8K+U
ETT3l1i4Vobqt2VWCptAomlVx9W36LzQva/1ACwvYk7JfiZtuW244SILfkhS
LJBYJF3ec/7rVivI/JH/4avoAKSl8ngxbA/DMSaRKb+JdOy1xJJMayipLXl9
XJ90q/3Um5UnYP4VOcmrh0lPCfrEx9lBq5/PthacIa0s6diW5gDt6wWfJ1wk
Te/4+/KiI5yXv8ZZnkU6RdVnNtwZlkU9m5i8R3r2bZWBkCtssk1svFdHunrD
Q+a8O6TvnDPu6SPdLf23sLcn7LhR8Dt9hrTexEmdubOQJ4hLWXXlIKRZh8/u
r/CCzONjk6rypFUKXSUDfOBCaZSG4A7SVkqy7ABfWLvq0SqmBWnaHl8ZH38o
P7llg6ILaVm7LbwhgbDHiFnewibtk382uTUIVuTxfxpPIb26VU1FhA1n/U5H
DhWRnp40v+kQAivfiDi5vhyEbMPToWlPQ+FtZYse604y57FqNxUNhz9/6zXJ
T5G5k57eq6sR0L6j4oS1wBCkiXeNfhGOhDa64YoyDNLaK/v3Xr0E7wtNO1dq
DUG20rR43YFoqPp1cXfdftJizDrdxRg4FRtUstmM9NDjnX08sbBcdVEqnjQt
ylguSigWQr+FacsDZB7uotC1LhaaLZ0v6DYnbRutlKIbC93lZ4UmLEjPBDJN
/WLhLbuJ5jVHyX4/tkjtVCw8w3vOIBD5fY5o1kIs3HpzvLCLNNvqRLgXDwc+
Hhu7mGNN+o5GsawoB9YEj2orH0PngTsStnHgl8xv16At6Rt004fnOPCOgduy
HOTSZKPsAA70HBzx4bEj1+8bu8cJ5cAZ5RGzGuT68p7TCRzIV/GVZuFA1uv4
R2qWcmDtCRf3B8i305ZvfsyBcUu+tomfJOtLinjln3GgmMmX0k7kZ4amEk0c
2P7jlDR0JO2/MmN1OwdmJXyOyXZE8ztmI9LPgfaap2aXOJH2YcULD3OgfPvQ
SSfStDMiWiITHPh/RJm/3w==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
     SubscriptBox["x", "A"], TraditionalForm]},
  AxesOrigin->{0.58, 0},
  BaseStyle->{FontFamily -> "Times", FontSize -> 18},
  PlotRange->{{0.563256776, 0.7}, {-0.02, 0.02}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{{3.469484292092823*^9, 3.469484302154565*^9}, 
   3.500037049139348*^9, 3.5000449418216105`*^9, {3.5000460776908054`*^9, 
   3.5000460955372367`*^9}, 3.500046130418898*^9, {3.5000462231766615`*^9, 
   3.5000462292606716`*^9}, 3.500047055406923*^9, 3.5000550154944124`*^9, 
   3.500056855518157*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"hor2A", "[", "t", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "0.01"}], ",", "0.5"}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Thick", ",", "Red"}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"t", ",", 
      SubscriptBox["x", "A"]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4673869310881157`*^9, 3.4673870122991133`*^9}, {
   3.4673874560390077`*^9, 3.467387459845359*^9}, {3.4673926514581137`*^9, 
   3.4673926845608892`*^9}, {3.467393201808143*^9, 3.46739321099619*^9}, {
   3.4673935110392475`*^9, 3.4673935124120207`*^9}, 3.467426289755*^9, {
   3.467426500953*^9, 3.4674265203585*^9}, 3.467426556738*^9, {
   3.467426649854*^9, 3.467426667651*^9}, {3.4674272249655*^9, 
   3.4674272380825*^9}, {3.467427373274*^9, 3.4674273738655*^9}, {
   3.467481092465*^9, 3.467481125709*^9}, {3.4674852378929996`*^9, 
   3.467485271033*^9}, {3.467491075707*^9, 3.467491084974*^9}, {
   3.467491732499*^9, 3.467491732778*^9}, {3.468098734185013*^9, 
   3.46809873746095*^9}, {3.469483730798611*^9, 3.469483732701701*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJxF1Hk4lF3cB/ApohKyG1FZ6kGiRRK5f1MkS3ZlyZaIRFkjLUbZ2jRJKPsT
HmXfieyhhYgZlK0sDWEUkoj33N73HfPPXJ/r+zvfc+77zDXi9peMHdcSCATB
NQQC/q3jSG+rHj2JEf7vw6ou4t5PVIT/9/7EmLgCogbTus2d+fFEU6bNHOZe
RRAdmO5VCFW/T/RmOknAIOQOMYjpwPUF/9wmRjJtbpGcM/UjhWmO5UCr41tz
mN5hNEmvu1vItG/LIYiZKWNaqJCnb82aKqaLv6q//3C4lulal/gtFuP1TM/u
VOPOcmtkeu18xuYtO94yrbRsV2yS/Z7p90GKLQ2yH5jeRvk+/3yylenvc/19
1D0fmU4ZK3/LFd7ONJfYf4yhoQ6m750vOpckRWP6FyljyDmgk2nvffWFgnVd
TPdn199tE//E9IJLR6yM/2emdx1hXzpX3sP08X/FnfKE+lbfl5itxBerfqbl
xk9ydOoNMM3HPbW+/s+qWaticyTjvjD96bCGVn/CqnNejg88TV61ZbEaL+9/
q87L6vcm5K/aJk5Spbdx1aVXMuqjplcdPmdibfxr1Wd9Fmc551fN5aH3T/DS
qocmZ6tIa74y/dI1wXyRZdWUMc0fJWwrdvdQO1rp6My47bVhxYtLHsaVKiPR
EgqbVqx8nc2wcrMDqXyMa8Xb1T9oVI58oZuk8fxvX17iwqsK24fjZ/hX7Owq
rI9F9B4KFhNa8Va+GHvM6fRXsW7iitlPvXHHDnffKY4UXfGpulB/jNdsv4Hh
thVPu926hdE7Pn/jkMBNti4xvou9Mg4iN0rhJo27XIjAIlrliLf+WclvXhaJ
wZz1qXmY7Eq+RfBNAoa9v67zR26lL35a4xnGp7NzsEgBd3V8Q8l/GL2x5arH
Ptzbm7a8ycQqj/ny7z6A21DNUCMPi6zblkU/iDu3eyagEDt/pOlYispKfvkf
0VIMq3Lvs1Vb6dd8LFaB8asRfbeQcNv5XdaoxsZe1nB3HsUtrXMprxarVnZJ
jziGu2mM1/w1dkGxvHuD7krfo2Trd1h1KzWzVA932HxcXgsm4DYV4GS40qcz
JNmGuWzgMBE0we1NseRpx6pSd+x8fRK3Rv8VCSrGf5Q072WO22/+jnkndr7P
8r3EadwD7bTCboxPiOJJtsN9Ilp9uA9zLnhxTOEs7j35C70D2CuD18J9jrjf
96yz/Yo5hf2pVL2wcp6ZypRhrEJKIGLMDTddpNTlG8ZTo+D4xB3327lZrVGs
fN6BY85n5X2YUw0nsM1RAX2pfivn+VRzlYE57nuaZ3oVd0dY/cAUxn3hg1k+
GXfwyW2G05gD+5jsmVu4I8oPxs9gZc9Yl7hDcPONTv+exc72HEpxu4tbxTO6
9zdW6mfqKxqOWzdvu9MfjFPgks47Cu5wTQphESvRS5mSjsK9n3bOYRnjqOJS
G0rCXZN+/hoL2J2W2fzoGe5TJsrBrFA0pz54JG3lvo9C9Dqw3XPldmIG7l9r
nnSyQ+H7R1b62cjkG65qbBtgw/lshb+5uAlGr7CNUJA8SLUsxudfWv5s3gTr
saX0DWUrv8+eOSkusP4kfK20HPefQf8QbmDn05cQrMHXh3q3KPLA6aDSi23v
8PzdJkdLfsjd3n6E3ILnGZ4i+wRg3asJfoU2ZBLjdD63IOTMSpTfoyFXP/j8
uUcIWJzus2t9wfOjx0/WbAFzlvRPvwbxvlonm7eikJVYm5U6gts3drJbDMy6
5kxYxvH5vLkrbNshQ9s+qfIX7rtLTvYSoCgnjsE8vv9jD+05CajkGvhctYA8
oHFa64EktLZbC9UQBoFgR9lc3SQFM9YW4XUbkZMqqwLt/4HrJGE5DU7k7W6x
h3ikgU2y8009Nz5/dZNxnTQQ6abrGvhxO5o17JUFzNPwWtNWZFLn2TTl3dBo
yi2iLY48MDt2gkUeDA+2lLyRRK6ua41qkwf7Rd3pt9LIuR27Yw/vgdCQ4y7N
+5A3Zws3/dkLrU8x84+ayO69eeupB8Di+t9ZY228L/yru4USfLWteNSui68v
OTnZrwQzUiofOgzx87e1H5o+CMScA5qdlvh+bf1h+1XAvk5OsecicqsXf8lW
gO+p39usPHDrV7g2AHiHvbjU64U/z7kINWUShOpJZ/T54X010d3DJMjslJT4
chOZPHfvlsFRmP0usnkkCjl9aPmqzTGIjP/WGPcEmdJW9b3lGOw3KAwwiUPu
onMPkzTBI1+PUZ2MP4+2QYDMcZjwI7fEZiL7+Y0ncGrD8LqRe0a1eB9XNENS
D4JK8jXWv8b3N3ElZeuB5PmAxcpGZPpQgKaKPpx5L+wq14zntieumxlAb4Su
LnsXbmmCR7shULflbXg1gd/fLuovPRPwbrte4zWFPK7m45ZsAny3dK7ITuP3
VZLWMWsCRiOD9OjfyMKH1f2TTaE5U7DJk2UICN7bBbVZT8HrQ9dCpInIDl8o
u+bNocjkOEukBvLMX+Pi57YQplsaLHoc+TCFKMBhB1bqMutTtZEpUlLvjtjB
2v0cnMX6yANPW7Jy7UCf94Nglzmy/rNz1pFngN56SlbUDfn3uMOw11kob2rM
TLmE/MnGZkf+WQivVlbY7Yl8433k2NRZUMwVUcR8kSPvsbK7O0Dggz41u0Dk
xTx6tLcjiOifM0p5jCz1wPFJtBNMHOtsl4tBviya79HnBNVqWqeKniK3xtt2
7XCGc7tlTzckIk+pyJgUO0PBpkkH+nNkw+Fwrr7zcOKdj59cJbKfZrmYtisE
aAUnFo4gmx1qoja5w0cbZ6s9o3j/fcWOGXeQ8tElZn5HNnJibBP3gLfJPI+e
TSHDbeckfw/gX4gPifiDHHqeV2+vJ6RnFbu5cw0DYcmgMiLLC1p56apySshN
lLFXg5dBQubd7/+UkZ0hY5LoCz6QXSSpity4+NDH0BdEXL0VtpCQL4z+CKn0
BYfXBMmNOsisptzVCX7w25e4kW6NPIPVvLnkD+K9Ol3PgpE5b37fdeoG3KlV
zTkZhkwvNFaPvwE//5MLYb+L7HGz6O3QDaj15FK8QEHOFuuT9QkAh/UfH+yL
RQ7zd47XI0P6fovjNbnDQPY9KeBzIxDk7zgV931G3jDEdXtTEERdMr9P6UMe
4Dpz8WAQLJtqOxz9gtZrXQp6aB8Erdt28aaNoFyuaeFhWRB4FE26uf1AJpV2
k12CoXDAZ8ci2wgQfGe6oCsEVA4GRRL3IbOZDT8Yug00e6JSvCLy9DHGVv47
4BWe3bn9IPKrgkm6+h3IHO4SkT6MXLrTWT7lDmyN3J2spDkC5BscN2453YW1
P2hZJpbItKNCfvP34N0Lmcb7N0eAdFiU3ryDAs60SmeeYOSWneddjlCAda3p
xsehI1AdE0XdaU0BzOKGXtw91K/xqWo5kgK57O3tL6KQywzWKbI9hEiHawON
L9C8+qeKksmHYLX1w/yadrRfqC1radcj4CJ6FpVT0XzdGZ8dC4+ghk/Aw6cL
zWucsy4Xi4SdG07T6b0oX8v7x+5sJDCmR2gf6Gh92+PDUVORcPPNUkH8Eprv
z3at4o2CdG/5i4dkv0F1YF9A9eUYsLzUJjMt9w0Ie7yaLybEAKeL93CmAsqV
Cpq1GmLA0/al1fYDKK8XNCALPgFVHU1ddhLK74ocIJQ9gZZtNtLUkyhvV//X
ki0WZt/e/+oeiHK2HZyKdfHQw0F1XryF7L7w9vZEPNSeEGWEhnwDsqpl2Hrh
BKC0vFhIuIvWxw1YBLolgOzHRv7mx9+AVEmutRdJBJvuNcdlXnyDAZfj7Itq
SdDwzSfjy0dkiDoUlJMMMaw23sZSdCC5yF1r60iBpbNCB9p20oGgqnlwcjIF
HOpaZw1kkH/JW4hvSIU9N9V99eTpkOS25u9btVRoWpb211Kmg90n819y6akw
92c6ADtBB/JwhuaBwDQ49eP2XVlv1G9W9iJFIx34+or+XVuPctYfae58mRC+
6fr1kgY6VKdezVRSyoSNqhrmrm9Qf+4xCxGLTFgb85GT1kKH7daOgyqJmfDT
iOH3vBv16V0+9VUuC1pfSxsYMlC+rJPZqZcN97JiF+JFRsHO38bM3iQX1l0P
ND3kMQq5C8Fmfz/nQ+GP8fkqr1GYCloYG2Tkg8M580TNyygX+HdzN0sB1Bso
jJlcHYWk5f1yjF0FECTRG3AxeBQIKmXm764VAGuTcsazJ6NA8XTboy1eCGv5
ptZw1Y4CKZ8cHuZTBITnNjlfeceAQujsuH2iFBrGOy8mCoxBUrCqiOa5Uri3
x0jeSngM/b9c9BAgl4JQqXoWVWwM3Pfe9psoKAX5RumMJukxIEepfLklWgZW
wz/TsrExMMSyhox+lEGZeGiCv8sYDAy+SMx7Xg6eT3Pu89ai/fQkSwPNquDV
rrD1PBe/QwxfLHnoYR3w6HjK3eQah67aGpci5Ubo2d3afqViHJKmdXJN5d9B
bgJIDdlMwGaPaELqQAtY5yjxiC1NgPvOScfdpDYgBycH9ryYBH7qkSuXDrZD
Fl0slusEA/hl53g2clIhLD7Yrk+fAXYDQj9VBKjgYDyxI9uIAelRyh8viFFB
tKIiV8+MASQW/4jm3VS48+B0wz17Bjj3LPI+1KeCs9KTHxuvMKA0fC2/MIUK
EkH8WuxpDLCa5hTcyUeDJeVrnJ3pqO+5/K9TW2jQPTH4MS2DAVO2BrRQSRpQ
zAqsNfMYQH5PiRrdT4NlWWOv4AoGZKbyCWWZ0qCn7UECSzsDFs2IwopRNCgN
mTvbTmWAFpfKb4cEGkSq2so862JAZL1l1+M0Guimyhce7WOA9N64mLliGrz0
a34TOMoAw43biOWdNIjafeCB0TgD4qph/ns/DTy+xpmKMxgwdNmuW5ROA+kT
rv3VMwzwG0x+cuM3DVjXdKRQ5hhQ/aT2Sg6hEwaKVF3s/jBgs+GgxcD6Tqhw
eaaw5y8DzNlYVXh4OiF6G8fs8jIDkiqkRI4SO+F/AJtweRE=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
     SubscriptBox["x", "A"], TraditionalForm]},
  AxesOrigin->{0, 0},
  BaseStyle->{FontFamily -> "Times", FontSize -> 18},
  PlotRange->{{0, 1}, {-0.01, 0.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{
  3.467485275178*^9, 3.4674853370889997`*^9, 3.467488793883*^9, {
   3.467491069882*^9, 3.4674910855179996`*^9}, 3.4674917339110003`*^9, 
   3.468098738350133*^9, 3.469474554737984*^9, 3.469483733715643*^9, 
   3.4694842005704927`*^9, 3.50003705605016*^9, 3.500044957468438*^9, 
   3.5000471033770075`*^9, 3.500055031656041*^9, 3.500056856581218*^9}]
}, Open  ]],

Cell["\<\
Stays at zero initially (while still touching the wall) and then finally is \
moving away with constant velicity\
\>", "Text",
 CellChangeTimes->{{3.4680987473511596`*^9, 3.4680988095315638`*^9}, {
  3.5000472518736677`*^9, 3.5000472825433216`*^9}, {3.500055047209268*^9, 
  3.5000550485508704`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"hor2B", "[", "t", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "4"}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Thick", ",", "Red"}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"t", ",", 
      SubscriptBox["x", "B"]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4673869310881157`*^9, 3.4673870122991133`*^9}, {
   3.4673874560390077`*^9, 3.467387459845359*^9}, {3.4673926514581137`*^9, 
   3.4673926845608892`*^9}, {3.467393201808143*^9, 3.46739321099619*^9}, {
   3.4673935110392475`*^9, 3.4673935124120207`*^9}, 3.467426289755*^9, {
   3.467426500953*^9, 3.4674265203585*^9}, 3.467426556738*^9, {
   3.467426649854*^9, 3.467426667651*^9}, {3.4674272249655*^9, 
   3.4674272380825*^9}, {3.467427373274*^9, 3.4674273738655*^9}, {
   3.467481092465*^9, 3.467481125709*^9}, {3.4674852378929996`*^9, 
   3.467485271033*^9}, {3.467491075707*^9, 3.467491084974*^9}, {
   3.467491120852*^9, 3.467491147258*^9}, {3.467491759104*^9, 
   3.467491759598*^9}, {3.4694837445258193`*^9, 3.469483745882941*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJwV1Hk4lWkUAHDutVyfskV1RXfIUugOjT3mvFlGoSlZimQnodCekjSWrJlh
LkXZy5Kuri1LJd2YZKeU3Q3ZP02Lj8R8c57nPO/z+/Oc95yj4BF4yJvCx8d3
h8z/X0vvyc76Kftfhfj+DwIETGWDhunaMCbpZPu/f8lMyyijm0FK5mkzftJj
ckrhF1R+B6sgs7cU0latvZw7dDvgBrTTBEkrxcvnrzEcYSBkw4Aw6RVLz1R3
FRfwTZM4KEp6OqKH685yB1vBJi9x0oe9Fp/8RfeCnmldWWnSXFPZqhcZPtAj
4xZEJ625zbj0C+MEVOqbHGeQzqC4FSrn+oOH9uCqMmka73qOg8opcPDQ0ttJ
umakq/WFXRD8YwASOqSDDnpZOrOCQSpJKNaY9ODP0aYJ9LNgPfbM9SDplMzN
9cpHz4HEUnOXE2lL8SKjpxnnwWm4E/cmXTnfooMzLoFQvub7UNIBLi6caPcQ
6JEUfhxLWrENZ/6Uexm25LD00kgnlkhtt1G5CrKho5srSJvL5+VNHQ+DoacZ
IVzSVxtvSzy3uwb3GZKhPaS1dTUSHFnhsLKg5PWNdJbMgahYegRw2pdq9vAT
cLk1letQEwFuB64qOpB2iByhbDsaCXt/1Kr5k173NTisNiMK2iw85FNJX+xJ
uTjLiIF/5p3ivpG2jR+sfFwfA7cdCghxCgFMM5WvEe6xQCEeCqmRHiurCpbP
jYMM848CbqRtkvv8fldJBN9Eamw3aQ2rbYWyTYnQ2Er/8Yk0jRrwceL4TVh3
cEpCkkqAa/Xqo2d2SWB/pUzWhrTMjiTmEdafICX+ufId6XBamWoMPQWkD+hJ
CQkSoGbx5w1OUAoUMHT4dpHuigyc6m9KAROqbLELaSWqRjHz/N+wWf2WXg3p
xh95zJ4uFkjEnFQPESLr/czSYcTfAv5O/6vyNAIqtM6x9n64BZUDfYb2pF2C
bBeDDW9Dyn3N8gTS7Dnxau7kbYhnJg3yiRBwaPKGkZ95BnyplBNdIJ02GGJa
sXoXxvYd7vwkSsAeOce8IftMOD+q6qyzjpxXJz1BWkkmuHMHcy+R3jp7ybNk
Zxbw1i2dEFhPQOAJXWW+gSxw1JjpUBQjQMqLXZCvnwOzmQ9E/pAg4IhjNnvh
Ux6kHfNV6ZQhAO+3w3Jk82G+Kd5YZSMBUS40b1vTfGgLcF+6TLrMM1C2MiUf
djTIuu7YRIDYKePIy3r3oIXxihe3mYCX1987CYXehyrnpebALQTseiApJEcr
gvNo99YyBQJeMV+6tWoWQeoNg9dyigS4PbpYe9WxCK6iCblo0gmVw0GjRUXg
ttHq4bFtBEzWl/Tf218MBwVMY6SUCbj7Zt8jreQHwJpfYKRvJ0B0LdzZYisb
3FT2d6hqkv06cdhF4zc2nC6+kppLWqlHw03yFBvYoV9WGFoE/FrY69n/hA3W
mXU5srsIqC5kVVQxSyEloNhxkzYBc7azdVZtpTASMHyWqU+AfUHq6zPrORCu
4Ovajcj9Pnbd2keBA/o6DrjHHgJ4Uidbj+hwoO7faPnPpANDTdqNj3FgebTC
TsaUgJhDc13CJRzIqtJjupsT8GTFpC/dugzuT3MSNloSoGwzP/kirhzm6f4/
Fm0JkA2zMDyeXQ4+7yk6hXYESJRkxWFV5XBXrV3lqD0ByzRbpg2vHCLCBAye
OxDQUV91Zki/Ap5y+jaxHAkI0QxfJcYrgBtLPPVwJaBNXFqaiargN6OPpdH+
BFxoM4C0L9VwL7hXnC+K/D9mxfgrWg1M518Z7CCdl6AZ/12uBnzGd+/PiSag
01r1vYt5DagNCW2wiCFA/bX0GWVWDSxPNuilxRMw3ITf4+jVAqckePxIMgEW
z/PFWkPqQLfDu802m4BN5ZJD/PzPIOlb3+Ofn5H3imfa0m7UAJLdWp0s2hI0
+N3Z4jjLBfE/Ltv/4rwEX1WMxUtONoFdaaT35fIloCwVS2xRboYRmoGnN2MZ
dNfcKm0ftgC93KuvIGEZWiK02xrV2oHC6NgcSv0OjKSZpcL5DmjEvkgoJX6H
mcXhoTeaXTCjXm8aR1+BvOnaZrHEbghR+2fBv3YFxOTv42NjPRDlm5Et5P0D
4k9U+GQpvQU+yoGN19etwjdUPOYb1gt5V3Zf5GtZhbO7uOUbX7yDi8r0E1nR
azD8kBvXqdAHrp0FyVJMPvTdryd9R0g/DHZscn15mw+p7xFe9akdgAc/Hc5t
ovIjixyF4482DYHwxiRM4xI/uiDvqjjqPAwTqka8h1P8SGPWXrR3/wiEwcK5
PU4UtEF8gcZdHoG94R+fOLylIIFn6extGaPQYFyQeMSKivy1a9+LWPFAq0XL
nN1MRcX7PLKefuPBvmTPZ+csBNDXGVmJCdYH6MpK7lhfK4AqbC2oKWZjoJ1t
XjerK4jC9kZmlk+MQSUbjf1ZIIgUBi3f5UaOw1+8HLN4GSFkqBeRQt81Actn
krNP3hBCzlvbl/i7JwDPKKjuxIXQ1+YEXlD4R/jp8+5I4aPCKE3A5ewhpUmw
eusR318tjDYMVeRQuJMQLCudx5SkIcHQcDuD4Cnwsa/rf+FLQ3yFLmye1DSw
Bv8lVjg0dPo2O0GqYRoq+72jjJZp6In6DZrkqRkwfCSyd6uBCJK0PK1xXWwW
mHIPHOLOiKCBnR3dl+pmwZAtYDXOEUGld0FpzGUOJC+IHMTmRdAxtq6k/Ooc
tHGfPBDcjqFrkdnhA0XzkGO4HZ/zwVDJpHy6mDUOJuO/mmRnY+jGnUi3od9x
WLdi4nI/B0Neh+aUH9rg8EbKIqQkF0NydXWl+w/j4IsOcKrzMRR782hjvAcO
Cemuil2FGPLVvfUJu4RDr801CpWDIcUI6b3C93AIePq8wasBQ6v6V9b3FuCg
8+blkN8LDL2f+9B1rxiH1ZlXy0FcDCUdLjv22yMckuhdu0IbMbSmduhMZB0O
lWd5OX83Y2ig8+ZdajcOfOrUPxq7MPQ4atGz+w0Or/YIZ7Z0Yyhlt+uO3Hc4
/HVEtLarB0NW+cxykyEclKM2fB56i6Gai62vwqdwsBzd5rnYhyHWTp2bNrM4
SBOqYT/6MRTMy7BTwHEYENNIpw5iaLt1wHD9FxwCjbS7xYcxJMDfk5e0iIO+
rT4uM4KhkYrdfm7LOFD8jETlRjFU55f7s+YPHF5fQ6qKPAylMkS/rq3hkJJq
Zrr9A4b+A4KXmsc=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
     SubscriptBox["x", "B"], TraditionalForm]},
  AxesOrigin->{0, 0},
  BaseStyle->{FontFamily -> "Times", FontSize -> 18},
  PlotRange->{{0, 1}, {0, 4}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{{3.467491126112*^9, 3.467491147925*^9}, 
   3.4674917604820004`*^9, 3.468098820903745*^9, 3.4694746618861413`*^9, 
   3.4694837466004996`*^9, 3.4694842100393286`*^9, 3.500045686176918*^9, 
   3.500055054837682*^9, 3.5000568592033677`*^9}]
}, Open  ]],

Cell["\<\
Starts at distance from wall specified by the intial angle (L/2) and then \
moves away - finally with the same velocity as above.\
\>", "Text",
 CellChangeTimes->{{3.4680988703703938`*^9, 3.4680989168575*^9}}],

Cell["Make a ladder object (between the 2 ends)", "Text",
 CellChangeTimes->{{3.468102160011155*^9, 3.468102180165968*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ll2", "[", "t_", "]"}], ":=", 
  RowBox[{"Graphics", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Thickness", "[", "0.02`", "]"}], ",", 
      RowBox[{"Hue", "[", "0.8`", "]"}], ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"hor2A", "[", "t", "]"}], ",", 
           RowBox[{"ver", "[", 
            RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"hor2B", "[", "t", "]"}], ",", "0"}], "}"}]}], "}"}], 
       "]"}]}], "}"}], ",", 
    RowBox[{"Axes", "\[Rule]", "True"}], ",", 
    RowBox[{"PlotRange", "->", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "3.5`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "3"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.467425796781*^9, 3.4674258334465*^9}, {
   3.467426362075*^9, 3.4674263656755*^9}, 3.467482277024*^9, {
   3.4674912012799997`*^9, 3.467491210916*^9}, {3.467491244377*^9, 
   3.467491313822*^9}, {3.4674913602530003`*^9, 3.4674913727799997`*^9}, {
   3.467559776383485*^9, 3.4675597777718225`*^9}, {3.5000457872962956`*^9, 
   3.5000457889654984`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"ll2", "[", "t", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "1.2"}], "}"}], ",", 
   RowBox[{"AnimationRunning", "\[Rule]", "False"}], ",", 
   RowBox[{"AnimationRate", "\[Rule]", "0.05"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4674242498684998`*^9, 3.4674243433615*^9}, {
   3.4674243877650003`*^9, 3.4674245884595003`*^9}, {3.467424691198*^9, 
   3.4674246960220003`*^9}, {3.4674247599814997`*^9, 
   3.4674247663094997`*^9}, {3.467424796465*^9, 3.467424812367*^9}, {
   3.4674248889175*^9, 3.467424945799*^9}, {3.467424981802*^9, 
   3.4674250134224997`*^9}, {3.4674250435945*^9, 3.467425053217*^9}, {
   3.467425104947*^9, 3.467425164115*^9}, {3.4674252603275003`*^9, 
   3.4674252740690002`*^9}, {3.4674255629205*^9, 3.467425598803*^9}, {
   3.4674258987320004`*^9, 3.467425902811*^9}, {3.467475544205*^9, 
   3.467475545074*^9}, {3.4674756646809998`*^9, 3.4674756900769997`*^9}, {
   3.467475725891*^9, 3.467475726653*^9}, 3.467491330574*^9, {
   3.467491378848*^9, 3.467491409418*^9}, {3.467491767965*^9, 
   3.4674917682469997`*^9}, {3.467559816114902*^9, 3.467559843990851*^9}, {
   3.4694747095404754`*^9, 3.469474711895894*^9}, {3.50005687131006*^9, 
   3.5000568717420845`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 0.20583043098449727`, Typeset`show$$ =
     True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], 0, 1.2}}, Typeset`size$$ = {360., {153., 157.}},
     Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`t$851$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$851$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, 
      "Body" :> $CellContext`ll2[$CellContext`t$$], 
      "Specifications" :> {{$CellContext`t$$, 0, 1.2, AnimationRunning -> 
         False, AnimationRate -> 0.05, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, 
        SynchronousUpdating -> True, ShrinkingDelay -> 10.}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{409., {191., 196.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.500045716347371*^9, 3.50004572731419*^9}, {
  3.5000457950651093`*^9, 3.500045853502812*^9}, {3.5000550607656918`*^9, 
  3.5000550868645377`*^9}, {3.500056908953213*^9, 3.500056940230002*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<C:\\Data\\Phys505_10\\ladder.gif\>\"", ",", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Show", "[", 
      RowBox[{"ll2", "[", "t", "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "1.0", ",", ".01"}], "}"}]}], "]"}], ",", 
   RowBox[{"\"\<DisplayDurations\>\"", "\[Rule]", "0.1"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.463499232826*^9, 3.463499261466*^9}, {3.46349941776*^9, 
   3.463499482578*^9}, {3.4637527427323074`*^9, 3.463752747661781*^9}, 
   3.463753164323683*^9, 3.463753314210955*^9, {3.4637536710556374`*^9, 
   3.463753683598198*^9}, 3.4637537226142983`*^9, {3.4637544574063587`*^9, 
   3.463754471522458*^9}, 3.4637545809808707`*^9, {3.4637546252129335`*^9, 
   3.4637546255717125`*^9}, {3.46375466911542*^9, 3.4637546695365953`*^9}, {
   3.463754766558505*^9, 3.4637547671200724`*^9}, {3.4637614601405463`*^9, 
   3.4637614683304415`*^9}, {3.4637615871941433`*^9, 3.463761587677737*^9}, {
   3.463761721275563*^9, 3.463761742694088*^9}, {3.4637622313216257`*^9, 
   3.4637622317272205`*^9}, {3.4637624977051783`*^9, 3.463762498921869*^9}, {
   3.4637701907177253`*^9, 3.4637701943524785`*^9}, {3.4637705238981485`*^9, 
   3.463770524412942*^9}, {3.4638373513190002`*^9, 3.463837363158*^9}, {
   3.4638375658424997`*^9, 3.463837581939*^9}, {3.463837663*^9, 
   3.463837671543*^9}, 3.463837705019*^9, {3.463837774058*^9, 
   3.463837775242*^9}, {3.4638379080575*^9, 3.463837910336*^9}, {
   3.4638380261315002`*^9, 3.463838031337*^9}, {3.4638381016665*^9, 
   3.4638381282445*^9}, {3.4648267857609997`*^9, 3.464826794276*^9}, {
   3.4648268938859997`*^9, 3.464826900381*^9}, 3.464826936517*^9, 
   3.464827020291*^9, 3.4648270565*^9, 3.464827313859*^9, {3.464827447433*^9, 
   3.464827551436*^9}, {3.4648276497609997`*^9, 3.4648276583129997`*^9}, {
   3.4648277348859997`*^9, 3.464827738892*^9}, 3.4648967144565*^9, {
   3.4648968253855*^9, 3.4648968327045*^9}, {3.4675601159993467`*^9, 
   3.467560123627551*^9}, {3.4675601764321976`*^9, 3.4675601979128466`*^9}, {
   3.467560342575634*^9, 3.467560345165184*^9}, {3.500036805340405*^9, 
   3.500036806011443*^9}, {3.500056951054621*^9, 3.500056954462816*^9}}],

Cell[BoxData["\<\"C:\\\\Data\\\\Phys505_10\\\\ladder.gif\"\>"], "Output",
 CellChangeTimes->{3.467560210080535*^9, 3.4675603602607417`*^9, 
  3.5000550942121506`*^9, 3.500056966651513*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1016, 683},
WindowMargins->{{Automatic, 345}, {126, Automatic}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
Magnification->1,
FrontEndVersion->"7.0 for Microsoft Windows (64-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 100, 1, 71, "Section"],
Cell[670, 25, 614, 18, 37, "Text"],
Cell[CellGroupData[{
Cell[1309, 47, 448, 12, 35, "Input"],
Cell[1760, 61, 334, 5, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2131, 71, 149, 3, 31, "Input"],
Cell[2283, 76, 239, 4, 70, "Output"]
}, Open  ]],
Cell[2537, 83, 245, 8, 29, "Text"],
Cell[CellGroupData[{
Cell[2807, 95, 1369, 31, 31, "Input"],
Cell[4179, 128, 811, 19, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5027, 152, 1024, 25, 52, "Input"],
Cell[6054, 179, 3615, 66, 70, "Output"]
}, Open  ]],
Cell[9684, 248, 270, 3, 29, "Text"],
Cell[9957, 253, 619, 15, 47, "Input"],
Cell[10579, 270, 715, 17, 47, "Input"],
Cell[CellGroupData[{
Cell[11319, 291, 1470, 33, 52, "Input"],
Cell[12792, 326, 6899, 119, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19728, 450, 1499, 33, 52, "Input"],
Cell[21230, 485, 3989, 72, 70, "Output"]
}, Open  ]],
Cell[25234, 560, 251, 5, 29, "Text"],
Cell[CellGroupData[{
Cell[25510, 569, 1465, 33, 52, "Input"],
Cell[26978, 604, 1795, 35, 70, "Output"]
}, Open  ]],
Cell[28788, 642, 100, 1, 29, "Text"],
Cell[28891, 645, 502, 12, 31, "Input"],
Cell[CellGroupData[{
Cell[29418, 661, 388, 6, 31, "Input"],
Cell[29809, 669, 652, 10, 70, "Output"]
}, Open  ]],
Cell[30476, 682, 290, 5, 29, "Text"],
Cell[CellGroupData[{
Cell[30791, 691, 256, 4, 31, "Input"],
Cell[31050, 697, 386, 5, 70, "Output"]
}, Open  ]],
Cell[31451, 705, 226, 3, 29, "Text"],
Cell[CellGroupData[{
Cell[31702, 712, 463, 8, 31, "Input"],
Cell[32168, 722, 326, 5, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32531, 732, 514, 10, 31, "Input"],
Cell[33048, 744, 560, 8, 70, "Output"]
}, Open  ]],
Cell[33623, 755, 373, 6, 29, "Text"],
Cell[CellGroupData[{
Cell[34021, 765, 259, 7, 47, "Input"],
Cell[34283, 774, 369, 5, 70, "Output"]
}, Open  ]],
Cell[34667, 782, 219, 3, 29, "Text"],
Cell[CellGroupData[{
Cell[34911, 789, 332, 6, 31, "Input"],
Cell[35246, 797, 419, 6, 70, "Output"]
}, Open  ]],
Cell[35680, 806, 208, 4, 29, "Text"],
Cell[35891, 812, 193, 4, 29, "Text"],
Cell[36087, 818, 699, 23, 31, "Input"],
Cell[36789, 843, 153, 2, 29, "Text"],
Cell[CellGroupData[{
Cell[36967, 849, 441, 9, 31, "Input"],
Cell[37411, 860, 252, 3, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37700, 868, 1673, 43, 52, "Input"],
Cell[39376, 913, 588, 12, 70, "Output"]
}, Open  ]],
Cell[39979, 928, 191, 2, 29, "Text"],
Cell[40173, 932, 1320, 39, 52, "Input"],
Cell[41496, 973, 204, 4, 29, "Text"],
Cell[CellGroupData[{
Cell[41725, 981, 1041, 18, 31, "Input"],
Cell[42769, 1001, 2688, 50, 70, "Output"]
}, Open  ]],
Cell[45472, 1054, 160, 3, 29, "Text"],
Cell[CellGroupData[{
Cell[45657, 1061, 407, 12, 31, "Input"],
Cell[46067, 1075, 352, 5, 70, "Output"]
}, Open  ]],
Cell[46434, 1083, 140, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[46599, 1088, 966, 27, 31, "Input"],
Cell[47568, 1117, 424, 6, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[48041, 1129, 104, 1, 41, "Section"],
Cell[48148, 1132, 180, 4, 29, "Text"],
Cell[CellGroupData[{
Cell[48353, 1140, 183, 5, 35, "Input"],
Cell[48539, 1147, 302, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48878, 1156, 2055, 48, 66, "Input"],
Cell[50936, 1206, 732, 18, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51705, 1229, 1186, 28, 52, "Input"],
Cell[52894, 1259, 2064, 40, 278, "Output"]
}, Open  ]],
Cell[54973, 1302, 245, 4, 29, "Text"],
Cell[CellGroupData[{
Cell[55243, 1310, 1331, 30, 52, "Input"],
Cell[56577, 1342, 1332, 27, 233, "Output"]
}, Open  ]],
Cell[57924, 1372, 103, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[58052, 1377, 426, 7, 31, "Input"],
Cell[58481, 1386, 306, 5, 33, "Output"]
}, Open  ]],
Cell[58802, 1394, 131, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[58958, 1399, 208, 3, 31, "Input"],
Cell[59169, 1404, 269, 4, 30, "Output"]
}, Open  ]],
Cell[59453, 1411, 108, 1, 29, "Text"],
Cell[59564, 1414, 1541, 45, 49, "Input"],
Cell[CellGroupData[{
Cell[61130, 1463, 1798, 40, 52, "Input"],
Cell[62931, 1505, 6273, 108, 262, "Output"]
}, Open  ]],
Cell[69219, 1616, 338, 6, 29, "Text"],
Cell[69560, 1624, 268, 5, 29, "Text"],
Cell[69831, 1631, 883, 22, 31, "Input"],
Cell[70717, 1655, 109, 1, 29, "Text"],
Cell[70829, 1658, 1343, 34, 31, "Input"],
Cell[CellGroupData[{
Cell[72197, 1696, 480, 12, 31, "Input"],
Cell[72680, 1710, 258, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[72975, 1719, 578, 14, 31, "Input"],
Cell[73556, 1735, 277, 5, 30, "Output"]
}, Open  ]],
Cell[73848, 1743, 155, 2, 29, "Text"],
Cell[CellGroupData[{
Cell[74028, 1749, 675, 15, 31, "Input"],
Cell[74706, 1766, 131, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[74874, 1773, 1278, 29, 52, "Input"],
Cell[76155, 1804, 4405, 79, 249, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[80597, 1888, 1485, 31, 52, "Input"],
Cell[82085, 1921, 2934, 55, 245, "Output"]
}, Open  ]],
Cell[85034, 1979, 141, 1, 29, "Text"],
Cell[85178, 1982, 701, 17, 31, "Input"],
Cell[CellGroupData[{
Cell[85904, 2003, 1570, 32, 52, "Input"],
Cell[87477, 2037, 7617, 131, 266, "Output"]
}, Open  ]],
Cell[95109, 2171, 328, 6, 29, "Text"],
Cell[95440, 2179, 1234, 26, 31, "Input"],
Cell[96677, 2207, 959, 23, 31, "Input"],
Cell[CellGroupData[{
Cell[97661, 2234, 1552, 33, 52, "Input"],
Cell[99216, 2269, 5319, 94, 265, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[104572, 2368, 1473, 32, 52, "Input"],
Cell[106048, 2402, 5929, 104, 262, "Output"]
}, Open  ]],
Cell[111992, 2509, 310, 6, 29, "Text"],
Cell[CellGroupData[{
Cell[112327, 2519, 1443, 31, 52, "Input"],
Cell[113773, 2552, 4009, 73, 275, "Output"]
}, Open  ]],
Cell[117797, 2628, 219, 4, 29, "Text"],
Cell[118019, 2634, 123, 1, 29, "Text"],
Cell[118145, 2637, 1295, 34, 52, "Input"],
Cell[CellGroupData[{
Cell[119465, 2675, 1274, 22, 31, "Input"],
Cell[120742, 2699, 2015, 41, 404, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[122794, 2745, 2216, 34, 31, "Input"],
Cell[125013, 2781, 188, 2, 30, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)