(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 51810, 1457] NotebookOptionsPosition[ 47701, 1310] NotebookOutlinePosition[ 48045, 1325] CellTagsIndexPosition[ 48002, 1322] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", SqrtBox["2"], ")"}], "^", RowBox[{"-", "1"}]}], "/", RowBox[{"Sin", "[", RowBox[{"x", "/", "2"}], "]"}]}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.497139749231623*^9, 3.4971397675928555`*^9}, { 3.497181770272004*^9, 3.4971817894401007`*^9}, {3.497182129502551*^9, 3.497182147351572*^9}}], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"Log", "[", RowBox[{"2", " ", RowBox[{"Cos", "[", FractionBox["x", "4"], "]"}]}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"Log", "[", RowBox[{"2", " ", RowBox[{"Sin", "[", FractionBox["x", "4"], "]"}]}], "]"}]}]}], SqrtBox["2"]]], "Output", CellChangeTimes->{3.49713977012006*^9, 3.4971817908121796`*^9, 3.4971821484086328`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ SqrtBox["2"], RowBox[{"Log", "[", RowBox[{"Tan", "[", RowBox[{"x", "/", "4"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4971818204398737`*^9, 3.4971818538237834`*^9}, { 3.497181971447511*^9, 3.4971819719595404`*^9}, 3.4971821694878387`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.4971821726030164`*^9, 3.497182196663393*^9}}], Cell[BoxData[ FractionBox[ RowBox[{"Csc", "[", FractionBox["x", "2"], "]"}], SqrtBox["2"]]], "Output", CellChangeTimes->{{3.4971821791663923`*^9, 3.497182197475439*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0.001", ",", RowBox[{"\[Pi]", "/", "2"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.497182206969982*^9, 3.497182223975955*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVxXk8FHgfAOBxhSSMudDUq5QoCW2tkm9SIr0lastSbOXIkQoptw61KWKx jkhC2JxJI8fvm6wrbCKkkpQzYcwYM8593z+ez6N+ysvaSZxCoVz+n/8fY1+m dTc6FWj6zer4XA0vR9tpvrZIg7/O/L4m6bga7nbS7tsSmQYr3cbrZEzUcJmh 6H7q2zQojI2S7tJSw7TeeOpFu4cQnLPn4J05VazXfTvP8kyHhKFs7cVMVWS1 mLc738sA37aKW5LSqtj3kBn1pj0Dzhj9HnSYr4JPfAcstqtkwvGz1b4fvqjg LvZ1Ip+eCTx3w1/TKlXQ1YPkljzNAtvyUKdaPxXkLN0aJt6ZDYfDm7zPTbHw ao+kkYdaDjTbnhge62fhgeI2wTuHHCjvLTyZ2MHCXtsLHjlDOVDb4djoymGh TM6TY1YzuWBW+CO3O4iFx/et2ZTKzoPNNg3rnBVYOGdy68eK4kJoTxlLHjdn oq735SD5t4VgsLNIRtOYiacyXOUXuIXQR3S7LxowsW6Jhc5nvSLoWZPsb7aS iTGvZT0fFhWB47PO0nd8BmoejRhdW1QM15iftGwzGWjtGvl9U2EJsJ9NOJyk MvBGYnDAqjcl8GfGsfJsWQZyGs/JKU6UgIeLhStFjIFsnUMbuLrPIHupB71z nI5DXAX3pwXPQDPd0p/dQsfggOiRbQWlYJUVFzx2h445kbHDu/I5YJws9YpQ 6ThaaEyPbuZAXSd9T7wcHTe1De36MsoBv9cu9b6SdCxh7kwI21AGNn4YekhA Q0zrN6vOLoOBHQJL924adhRvzTB99AKYdye19DNoKNnZddIsoQKUqwq2+O+k 4T7R1dvxzyugp8FzYv82Gt5W0ykd6KgAk3UqTqv1aKjgGCZ/k14JF5xUoV+D hqrDWhV1MZXwXrBSq2wZDfVm/VUs7laBFOynRH5SxoKo5SNrTRC+5gYYx11T RtVX3FJ1a4S0qunN+UHKGC5ov8Y+jRBzOGp3s58ynjyRzKbfQFCxvXWP7aGM yzesPyzZgBDRYxMsdVQZPWpNOH1WL6HNknZoSFMZted9wh84VoNA4bF0fisV s9w+rFYJrYHL70xXbTOgYpmYRMNkVA0Ic+0nOzdRsSlB26vpQQ2IjUmoB2pT kVt7pTyE1ICCkktgizoVjdawjgws1MCHwxMpSYpUbP1w5MbToL/BOfz2nqYx JZw70DL434Ba6FKwXuqbp4Q2ui+fXL1UD47WWo0ifSVMCdedef+yCS6nuEod N1fEqUVPh5jAN+C6wAgKllBAvyKrkUnvt5Dvc6R6TYU8mj+Z/qUxrh1Y/YkG W4OXIU9tw6j9Hx1gpe+el3RBDh/enzcaDu+CeDxYrh66FFOcY71GM7rBzSBi 4XmkLPpkPm/MTf0ISm9bmiYqZTBB54F0b3UP0NY5H1H6Lo0OX6mhN8/1wiVv /f0pWtLo6Hb/XuDZL/CLr3LgPyFLUIYhQ8270gcFXo8sPrdKIXuuTLPc7yuc 0Z/rY/wshd1LDuZLRnwDnUcxac2JkshMKqJaJvYDx3bjqUUpSax2sZPzihuA FmYn1/iqBNJ+HfRpyRqEHvGCAX+ROLaHl12UyxqCVUv0TMVCxJFuZHdwb9ow 1L1+3+suJ47z9M9JLwpGQGMy+PrjGDG00c4JkM/7Dm0pefGCtWJodfpoczIZ BcUV777ol1CwWaN1bl3zD3BsrIm1NKcg5z9/YFT9GHADhwJjmxfJfpNtUwbv x6HhmRLdn7JI1rYofu52n4ALelKb75stkAHiqZ80NAHOnOsTh+LmycyrHcbT Xlz4O7zajN49R/b2b6SZjnFh0unP61zdOfKNFZW+0W8S2nfma2sFzpIXZ2mz ktOT0Cd+vsGla4a8CQ6rtvPhgdNeRUrYjhmyPctht9UcD8TSsty140Ske8Tx jkEAH5bFVVw9Ni8kLSZtkSWSU+AxclLsmL2QiJ/QoZRETMGsESs18+U08YzL 3ZEuK4DQlU9ZBlumycbeBN1NMQJo1dmjUZ8iIKvNc39kK03DT+TMpzllATnu 80g1PXIailfAuV1RU6SvWJ5iyBCCEtfQoUpsijxanlxQFSuE8/JTXeMhfDJ5 QC6dFy+EMEHebGEQn+yKCIhdnygE6HXddzGATz5K21+JSRGCg1O17dQlPmGI sU2ds4QwGEI7O+/JJ7d4qR3yHCEY36jSptvziWdX+rz9ByHU2A0vnPqZTyoY yhPRn4QQt+ihp7WVT5YevdZX+1kI0oe+RYwb8ElW6+m6zd+E0Ft6hxOoyye9 jRrRkj+EgBEfxxPW8Yl1ZZbGkwUhhOwx/qeLxidpswzmF4oIXhmuCHpI5ZMx w5uyDAkR9AyetXZT5JOIUpexEGkRmJYbeM/J8UlNwXqOjaIIYl/fv7Nagk+o Ywm5t6giaJKi+Y5S+OS3jbIplTQRyNaXXS9d4JGF7OEwTRURuHmfV7Gc4ZED g7Y+9moiUNW6kEoX8kjS2kbnaLYI+hdD9vdO8cjQ6e22tatEoP81lv0Xj0e2 pedazqqLwAsfMy9xeeRfCwzSXg== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, -7.}, PlotRange-> NCache[{{0.001, Rational[1, 2] Pi}, {-6.929443863057276, -1.2464505123171212`}}, {{0.001, 1.5707963267948966`}, {-6.929443863057276, -1.2464505123171212`}}], PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.4971822248860073`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"1", "/", SqrtBox[ RowBox[{"1", "-", RowBox[{"Cos", "[", "x", "]"}]}]]}], ",", "x"}], "]"}]], "Input"], Cell[BoxData[ FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Log", "[", RowBox[{"2", " ", RowBox[{"Cos", "[", FractionBox["x", "4"], "]"}]}], "]"}]}], "+", RowBox[{"Log", "[", RowBox[{"2", " ", RowBox[{"Sin", "[", FractionBox["x", "4"], "]"}]}], "]"}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["x", "2"], "]"}]}], SqrtBox[ RowBox[{"1", "-", RowBox[{"Cos", "[", "x", "]"}]}]]]], "Output", CellChangeTimes->{3.4971823227516046`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"f2", "[", "x_", "]"}], ":=", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Log", "[", RowBox[{"2", " ", RowBox[{"Cos", "[", FractionBox["x", "4"], "]"}]}], "]"}]}], "+", RowBox[{"Log", "[", RowBox[{"2", " ", RowBox[{"Sin", "[", FractionBox["x", "4"], "]"}]}], "]"}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["x", "2"], "]"}]}], SqrtBox[ RowBox[{"1", "-", RowBox[{"Cos", "[", "x", "]"}]}]]]}]], "Input", CellChangeTimes->{{3.497139800446513*^9, 3.497139831693368*^9}, { 3.4971818637913537`*^9, 3.4971818747839823`*^9}, {3.4971823186023674`*^9, 3.4971823300490217`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f2", "[", "x", "]"}]], "Input", CellChangeTimes->{{3.4971818784471917`*^9, 3.4971818800462832`*^9}}], Cell[BoxData[ FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Log", "[", RowBox[{"2", " ", RowBox[{"Cos", "[", FractionBox["x", "4"], "]"}]}], "]"}]}], "+", RowBox[{"Log", "[", RowBox[{"2", " ", RowBox[{"Sin", "[", FractionBox["x", "4"], "]"}]}], "]"}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["x", "2"], "]"}]}], SqrtBox[ RowBox[{"1", "-", RowBox[{"Cos", "[", "x", "]"}]}]]]], "Output", CellChangeTimes->{3.497181880778325*^9, 3.4971822548977237`*^9, 3.4971823330441933`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"D", "[", RowBox[{ RowBox[{"f2", "[", "x", "]"}], ",", "x"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.4971821726030164`*^9, 3.497182196663393*^9}, 3.4971823933106403`*^9}], Cell[BoxData[ FractionBox["1", SqrtBox[ RowBox[{"1", "-", RowBox[{"Cos", "[", "x", "]"}]}]]]], "Output", CellChangeTimes->{3.497182394648717*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"f2", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0.001", ",", RowBox[{"\[Pi]", "/", "2"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.497182256630823*^9, 3.4971822743038335`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVxXk4FHgfAPDBCGnCmBmD1KuURiT01Cr5ppPoUm1Zordy5EiFtG4qtSli 8ToiCWGTI2mEft/kdbMlRTpMypl7xphhsO/7x+f5aJ/2tnWWplAoV/7n/9s4 lXPuxKYDzbhFG59r4pVYe90mqwyoPvvHqpQTmrjDWa9nY3QG9J8bq5O30MQl puJ76W0ZsCghRq6To4kZvET6JfsHsD9/14HbEg2sN2ybY3tlQl1/rt5Ctgay Wy3bXe5mgWN75U2qnAb2PFCLedOeBW1b/wg+LFDHx359VlvUs4HqXu336Zs6 bte6RmiZ2VDrYfpbRpU6unmS/NKnOSBdEeZc66+O3MWbwqU7cuFsZLPP+Sk2 Rnylmnlq5oGT3cnB0V422pS8E753yoM+XpFj8gc28uwueuYN5AGr41SjG5eN 8nmPjx+ayYfRwpH8rmA2nti7an26VgF8tW1Y46LERonFzZFlJUUgnT6aOmap hoY+V4JpbUVwfVuxvK65Gp7OcqPNTxTBK2LYdclEDesWWRl0GxXDMp3UgD3L 1TCuScHrQXExJD7rKHsvYKHusajh1cUlkKr2hWOXzUJbt+if64tKQeHZuJMj nYXXk0MCV7wphUtZxytyFVjIbTyvqDxeCjGuVm4UKRZqGRxcN2H4DK4u9mR2 jDFxYELJ42nhM7DKtA7QamViSGDs0ObCMnDOSQgZvc3EvOj4we1PuLAyVfY1 oTNxuMicGdvChbYO5q5ERSaufzew/dswFyKaXOv9qEwsVduWFL6uHKz8Meyg kIGY0bunOrcc6rYKrT26GPihZFPWzocvgHJnkmOcxUBqR6fjnqRKmKsq3Biw jYF7xRG3Ep9XQm2D1/i+zQy8pWlQ1vehEvavUXdeacRApVPhtBvMKvB11oBe HQZqDHIq6+KqoFu4nFO+hIFGswHqVndeghTso0R/UcXCmKVDqy0QxvIDzROu qqLG64kybVuEOy+nNzwJVsVIYftVrTMI4YdjdrT4q6LjyVQt5nWEpXY372p5 quLSdWsPUxsQUr8eCZE9poqetRbcnkOv4J014+CArirqzflG3j9VDXNKj+Se vKVjjvunlephNRD2fueKzSZ0LJeSaZiMqQGpvxwmO9bTsTlJz7v5fg2IR2S0 g/ToOFH7e0UoqQGaimtQqzYdzVaxj/bN18D3w+NpKcp0fPvp6PWnwf8F58hb u5pHVVBi09q/P7AWPinZLvYrUMEjhq8eR1yuh5O2nEaxsQqmRRrOfHzVDD5p brInLJVxasHLKS7oDZyeZwWHyCihf/GhoUmfNsjzPVq9qpKGlo+nf21MaAdW b7LJppAlyNdcN+zw5wewMfYoSLmoiA/uzZkNRnZCPB6o0A5bjGku8d7DWV3g YRI1/zxaAX2znzfmp38GlbbW5vEqeUwyuC/Hq/4KrDUuR1V+yqHTd3rYjfM8 uOJjvC+NI4en3O/dDTr3DX71Uw36O3QRyrPk6QW/90Ch90Or7reyqCUp163w /w5njCU9rF9ksWvRgSfUqB+g/zAuoyWZimopxXTr5F7g2umfXpClYrWrvaJ3 Qh+0qnVMmEfIIOO3ft/WnH74Kl3YFyCWxvbI8kuKOQOwfJHRTqlQaWSa2R/Y nTEItU0feR6K0jjH7E55UTgEOpMh1x7FSeERvbxAWsFPeJdWkChcLYWHzhxr SSXDoLTs/TfjUgq26LyVrGkZAafGmnhrSwpy//UnxtSPwnjQQFB8ywLZZ7F5 yuTjGDQ8U2EGUBbI6lbl7i6PcbhoJLvh3p550ke8jFMGxuEs99r4wYQ5MvN6 q/m09wTURFbvYXZJyO5efcbO0QmYdP7PtQlDCfnBjsnU95+E9m1P9DhBs+TF OcYsdXoSvktfaHDtnCFvQsKr7X354LxbmRK+dYZsyXHacUjCB0pGjodegph0 DZ26bRIoAFpCZcTxORFptXgXXUqdAvchR6njDiIifdKAUho1BbNm7PTsV9PE KyF/a6aCEEKXP2WbbJwm+rwkw/VxQmgz2KVTnyYkKy3zR3JVpmEjOftFoiok J3wfamRGT0PJMji/PWaK9JTQKKYsEahMmDq9lJoiD5emFr6MF8EF2lTnWKiA TNooZvITRRAmLJgtChaQ7VGB8WuTRQA8t72XAgXks5zD73FpInB0rrabuiwg LCmtnS45IugNZZyb8xKQm/z0DzSuCMyuv9RjOgiIV2fmnMMnEby2H5w//YuA VLJUx2O/iCBhwdOIs0lAFh+72lPbLQK5gz+ixkwEJOftmboNP0TAK7vNDTIU EF6jTix1RAQk6vNY0hoBsa3K0Xk8L4LgXeZ/dzIEJGOWpfaNIobXpsuCH9AF ZNT0hgJLRgxf+s/ZuisLSFSZ62ionBh2VJj4SBQFpKZwLfeIshjimu7dXikj IPTRpPybdDE0yTL8hikC8m99hbQqhhgU6suvlc3zyXzuYLiuuhjcfS6oW8/w iU2/na+Dphg0OBfTmSI+SVnd6BKrJYb+hdB9vCk+GTizxa52hRhMvsdr/cXn k82Z+daz2mK4gI/ULk/wyT+K5tGa "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, -7.}, PlotRange-> NCache[{{0.001, Rational[1, 2] Pi}, {-6.92944386305727, -1.2464505123171215`}}, {{0.001, 1.5707963267948966`}, {-6.92944386305727, -1.2464505123171215`}}], PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.497182275029875*^9, 3.497182334283264*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"f2", "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0.001", ",", RowBox[{"\[Pi]", "/", "2"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4971818901698627`*^9, 3.4971819503993073`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVxXk8FHgfAOBxhSSMudDUq5QoCb1ZJd+kRHpL1JaleCtHjlRIuanUpiUW 605C2JxJI8fvm6ybTYRUknImjBnM5Nr3/eP5PKpnPa0cRSkUyrX/+f9hPs36 yY9TwKH1fMwl6hq8Fm2r3myeDn+e/3VD0ikV3OeoObAjMh3Wuk7WSxmr4CoD YUram3Qoio2S7NFQwfT+eOoV24cQlLv/yL0FZWzQfrPI8siAhJEczeUsZWS1 mXU63c8En47KO+KSyjjwkBn1ujMTzhv+GniMr4RPfIbMdyllwakLNT7vPyvh XvZNIpuRBTw3g1/Sq5TQxZ3klT7NBpuKEMc6XyXkrNwZKtqdA8fCW7wuzrAw rE/c0F0lF1ptTo9ODLLwcEnH7Fv7XKjoLzqT2MXCfpvL7rkjuVDX5dDkwmGh VO6Tk5Y/8sC06HtebyALTx3csC2NnQ/brRs3OcmxcMH4zvc1JUXQmTqRPGnG RG2va4Gyb4pAb0+xlLoRE89musgucYtggGj3XtFjYv0Kc61POsXQtyHZz3Qt E2OapT0eFheDw7Pusrd8BqqfiBjfWFwCN5gfNWyyGGjlEvltW1EpsJ9N2Z+h MvBWYpD/utel8EfmyYocaQZymi7KyE+VgruzuQtFhIFsraNbuNrPIGelO717 ko4jXDm3p4XPQD3Dwo/dRscg/+gx/cIysMyOC5q4R8fcyNjRvQUcMEqWeEWo dBwvMqJHt3Kgvpu+P16Gjts6RvZ+HueAb7Nzg484HUuZexJCt5SDtS+GHJ2l IaYPmtbklMPQ7lkLt14adpXszDR59AKYv01r6GbSULy754xpQiUoVhfu8NtD w4PCsLvxzyuhr9Fj6pA+De+qaJUNdVWC8SYlx/U6NJRzCJW9Ta+Cy47KMKhG Q+VRjcr6mCp4N7tWo3wVDXXm/ZTMf6sGCThEifyoiIVRq8c2GiN8yfM3iruh iMqvuGWqVgjp1XPbCwIVMXy28wb7HELMsah9rb6KeOZ0Mpt+C0HJ5s59trsi rt6y+Zh4I0JEn3WQxAlFdK8z5gxYvoQOC9rREXVF1Fz0Dn/gUAOzco8lC9qp mO36fr1SSC1ce2uyTl+PiuUiYo3TUbUgyLOb7t5GxZYETc+WB7UgMiGmGqBJ RW7d9YpgUgtyCs4BbapUNNzAOj60VAvvj02lJslTsf398VtPA/8Cp/C7+1sm FHDhcNvwf/zroEfOaqVPvgJaa798Ena1ARysNJqEugqYGq79493LFriW6iJx ykweZ5Y97GMCXoPLEiMwSEwOfYstx6a93kCB9/GaDZWyaPZk7uemuE5gDSbq 7QxahTyVLeN2v3eBpa5bftJlGXyYsmg4Gt4D8XikQjVkJaY6xXqOZ/aCq17E 0vNIafTOet6Ul/YBFN60tUxVSWGC1gPJ/po+oG1yOq7wTRLtv1BDbl/sh6te uodSNSTRwTXlfsCFz/Czj2LA38ErUIohRc2/PgCFno/MP7VLIHuhXL3C9wuc 110YYPwkgb0rjhSIR3wFrUcx6a2J4shMKqZaJA4Cx2br2WUJcaxxtpXxjBuC NmY31yhMDGm/DHu3ZQ9Dn2jhkJ9QFDvDy6/IZI/AuhU6JiLBokg3tD1yIH0U 6pvf9bvJiOIi/VPSi8IxUJsOuvk4RgStNXP9ZfO/QUdqfvzsRhG0PHeiNZmM g/yat591SynYqta+sKn1Ozg01cZamFGQ86/fMaphArgBIwGxrcvkkLH+jN67 SWh8pkD3oyyTjW3yn3rdpuCyjsT2FNMlMkQ8dJNGpsCJc3PqaNwi+fFqt9Gc Jxf+Cq8xpfcukAODW2kmE1yYdvzjJld7gXxlRWVs9Z2Gzj0FmhoB8+TFBdq8 +Nw0DIheanTu+UFeB4XW2HrzwPGAPCV09w+yK9t+n+UCD0TSs90044Skd8zh np4/H1bFVYadXBSQNuOOyFLxGXAfOyNy0k5ARE9rUUojZmDekJWW9XKOeMTl 7c6QnoWQtU9ZejvmyNb+BO1tMbPQrrVfrSF1lqw3y/ueozAH/ybnPy4ozpJT 3o+UMyLnoGQNXNwbNUMGSmQpBgwBKHAN7KtFZsij1cmF1bECuCQ70zMZzCfT h2UyePECCJ3Nny8K5JO9Ef6xmxMFAP0uB6/488kHSbvrMakCsHessZm5yicM EbaJU7YAhoNpFxY9+OQOL61LliMAo1vVmnQ7PvHoyVi0ey+AWtvRpbM/8Ukl Q3Eq+qMA4pbddTR28snKEzcG6j4JQPLo14hJPT7Jbj9Xv/2rAPrL7nECtPmk v0ktWvy7ADDiw2TCJj6xqspWe7IkgOD9Rn/30PgkfZ7B/EwRwiuDNYEPqXwy YXBbmiEmhL7hC1au8nwSUeY8ESwpBJMKPa8FGT6pLdzMsZYXQmxzyr31YnxC nUjIu0MVQosEzWecwif/3SqdWkUTgnRD+c2yJR5ZyhkNVVcSgqvXJSWLHzxy eNjG205FCMoal9PoAh5J2tjkFM0WwuBy8KH+GR4ZObfLpm6dEHS/xLL/5PGI fkaexbyqEDzxMfMql0f+ARqo0qQ= "]]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVxXk4FHgfAPDBCEkYc7nqVUpEQk9WyTedpFO1ZQlbOXKkQspNpTZFLF53 EsImR9II/b7JutmSIh2knLnGjDHj3Pf94/N8NE57WTuJUyiUK//z/5n+TcYp j1LBseVs7AWaGl6JsdVqssyA6rN/rE4+qYo7nHR6N0VlwMC58Tppc1VcZiJK TW/LgCXx0VKd2qqY0ZNAu2T7AA7k7zp4Z04F6/Xb5tmemVA3kKuzmK2C7FaL dud7WWDfXnmLKqWCvQ9Y0W/as6Bt6x9BR/jK+Ni333KLcjZQ3ap9P31Txu3q 14lcZjbUupv8llGljK4eJL/0aQ6IV4Q61fopI2fp5jDxjlw4G9HsfX6KjeFf qaYeqnngYHNqaKyPjftL3gneO+RBf0+RfdIHNvbYXPTIG8wDZodjoyuHjdJ5 j08cnsmHscLR/K4gNp7cu3pDunoBfLVuWOssz8Y581ujaiVFIJ4+ljJuwUJ9 7ytBcm1FcGNbsbSWGQtPZ7nKLXCL4BXR77pkxMK6JZZ63QbFoKaZ4r9nBQtj m2Q8HxQXQ8KzjrL3fCZqHY8cWVNcAimsL9o22Uy0do36uaGoFGSeTTjY05h4 Iyk4YOWbUriUdaIiV4aJnMbzsgoTpRDtYulKEWOiut6h9Vz9Z3BtqQejY5yB g1x596eFz8Ay08pfvZWBwQExw8aFZeCUEx88doeBeVFxQ9ufcGBViuRrQmPg SJEZI6aFA20djF0Jsgzc8G5w+7cRDoQ3udT7UhlYytqWGLa+HCz9MPSQgI6Y 0benOrcc6rYKrNy76PihZHPWzocvgHJ3Utswi47Ujk77PYmVMF9VuMl/Gx33 isJvJzyvhNoGz4l9xnS8rapX1v+hEg6sVXZaZUBHeccwuZuMKvBxUoE+TTqq DGlX1sVWQbdghXb5MjoazPorW959CWKwjxL1RQkLo5cPrzFHGM8PMIu/poQq r7llGtYId19Ob3wSpIQRgvZr6mcQwo5E72jxU0L7UynqjBsIy21u3VP3UMLl 69cdoTYgpHw9Gix5XAk9as05vYdfwTsr+qFBLSXUmfeJuO9YDfPyj6SevKVh jtunVcqhNRD6fudKYyMalotJNExG14DYX3aTHRto2Jyo49V8vwZEoxIagTo0 5NZerQghNSCn6BLYqkFD09XsY/0LNfD9yERasgIN3346duNp0N/gFHF7V/OY Is7tbx04EFALn+Stl/oWKOJR/VePwy/Xwylr7UaRoSKmRejPfHzVDN5prpIn LRRwatHTITbwDZxeYAYFS8ijX/Hh4UnvNsjzOVa9ulIOLR5P/9oY3w7MviSj zcHLkKe6fsTuzw+w39C9IPmiLD5InTcdiuiEODxYoRG6FNOc47xGsrrA3Shy 4XmUDPpkP2/MT/8Mim2tzRNV0piod1+qp/orMNc6H1P8KYUO32mhN8/3wBVv w31p2lLo6JZ6L/DcN/jVVynwn5AlKM2UphVc7YVCr4eW3W8lUX2uXKvC7zuc MZzrZf4iiV1LDj6hRv4A3YexGS1JVGQlF9OskvqAY6N7elGSitUutrJe8f3Q yurgmoVLIP23AZ/WnAH4Kl7Y7y8Sx/aI8kuyOYOwYonBTrEQcWSY2h7cnTEE tU0fe9xlxXGe0Z38onAYNCeDrz+KFcOjOnkBcgU/4V1aQYJgjRgePnO8JYWM gLza+2+GpRRs0Xw7t7ZlFBwaa+KsLCjI+c+fGF0/BhOBg4FxLYtkn7nxlNHH cWh4psjwpyySNa0K3V3uE3DRQHJj6p4F0k88DZMHJ+As5/rEofh5MvN6q9m0 FxdqIqr3MLrmyO4+XfrOMS5MOv33Old/jvxgR2fq+k1C+7YnOtqBs+TFOfos dXoSvotfaHDpnCFvgsOqbX144LRbgRK2dYZsyXHYcXiOB5SMHHedeBHpGna8 YxTAB7n4yvAT80LSav4uqpQ6BW7D9mIn7IRE/JQepTRyCmZN2enZr6aJZ3z+ 1kwZAYSseMo22jRNdHsS9TfECqBNb5dmfZqArLLIH81VnIZN5OyXOSUBOenz UCUzahpK1OD89ugp0lsiRzFhCkGRa+LwUmyKPFyeUvgyTggX5KY6x0P4ZHK/ bCYvQQihgoLZoiA+2R4ZELcuSQjQ47r3UgCffJayuxqbJgR7p2qbqct8whRT 3+mcI4S+EPq5eU8+ucVL/yDHEYLpjZc6DDs+8ezMnLf7JITXtkMLp3/hk0qm 0kTMFyHEL3oYaG/mk6XHr/XWdgtB6tCPyHEjPsl5e6Zu4w8h9JTd4QTq80lP o2YMdVQIJPLzeOJaPrGuytF8vCCEoF1m/3TS+SRjlsn6RhHBaxO1oAc0Phkz uSnDlBDBl4Fz1m4KfBJZ5jIWIiWCHRVG3nOyfFJTuI5zVEEEsU2pd1ZJ8Alt LDH/Fk0ETZJ03xEKn/yuK5NWRReBTH359bIFHlnIHQrTUhaBm/cFZasZHtk/ YONjpyoCFe2L6QwhjySvaXSOURfBwGLIvp4pHhk8s8WmdqUIjL7Hqf/F4xHj zHyrWQ0RXMBHrMtcHvkXwLnRww== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, -7.}, PlotRange-> NCache[{{0.001, Rational[1, 2] Pi}, {-7.018007552530747, -1.2464505123171212`}}, {{0.001, 1.5707963267948966`}, {-7.018007552530747, -1.2464505123171212`}}], PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.4971819281660357`*^9, 3.4971819766828103`*^9}, 3.4971823422967224`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"phi", "[", "t_", "]"}], ":=", RowBox[{"4", " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"Tan", "[", RowBox[{"phi0", "/", "4"}], "]"}], " ", RowBox[{"Exp", "[", RowBox[{ SqrtBox[ RowBox[{"g", "/", RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{"R", "+", "a"}], ")"}]}], ")"}]}]], RowBox[{"(", RowBox[{"t", "-", "t0"}], ")"}]}], "]"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.497142575541545*^9, 3.497142679765328*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"g", "=", "12"}]], "Input", CellChangeTimes->{{3.4972241522767515`*^9, 3.497224153633954*^9}}], Cell[BoxData[ FormBox["12", TraditionalForm]], "Output", CellChangeTimes->{3.4972241551471567`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", "1"}]], "Input", CellChangeTimes->{{3.4972241570971603`*^9, 3.497224158173562*^9}}], Cell[BoxData[ FormBox["1", TraditionalForm]], "Output", CellChangeTimes->{3.4972241599519653`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"R", "=", " ", RowBox[{ RowBox[{"g", "/", "2"}], " ", "-", " ", "a"}]}]], "Input", CellChangeTimes->{{3.4971911477293644`*^9, 3.4971911668464575`*^9}}], Cell[BoxData[ FormBox["5", TraditionalForm]], "Output", CellChangeTimes->{3.4971911685155535`*^9, 3.497223931863964*^9, 3.497224161449568*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t0", "=", "0"}]], "Input", CellChangeTimes->{{3.49719119066182*^9, 3.497191192021898*^9}}], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output", CellChangeTimes->{3.497191194348031*^9, 3.497223935873172*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"phi0", "=", "0.001"}]], "Input", CellChangeTimes->{{3.4971912006933937`*^9, 3.4971912039255786`*^9}}], Cell[BoxData[ FormBox["0.001`", TraditionalForm]], "Output", CellChangeTimes->{3.4971912053326592`*^9, 3.4972239370587735`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"phi", "[", "t", "]"}]], "Input", CellChangeTimes->{{3.497191173630846*^9, 3.497191181278283*^9}}], Cell[BoxData[ FormBox[ RowBox[{"4", " ", RowBox[{ SuperscriptBox["tan", RowBox[{"-", "1"}]], "(", RowBox[{"0.00025000000520833344`", " ", SuperscriptBox["\[ExponentialE]", "t"]}], ")"}]}], TraditionalForm]], "Output", CellChangeTimes->{{3.4971911819653225`*^9, 3.4971912070527573`*^9}, 3.497223938306776*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"phi", "[", "t0", "]"}]], "Input", CellChangeTimes->{{3.497142691808549*^9, 3.497142696160957*^9}}], Cell[BoxData[ FormBox["0.001`", TraditionalForm]], "Output", CellChangeTimes->{3.4971426970657587`*^9, 3.4971912122960577`*^9, 3.497223942752784*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"phi", "[", "0", "]"}]], "Input", CellChangeTimes->{{3.4971934091987133`*^9, 3.4971934116948557`*^9}}], Cell[BoxData[ FormBox["0.001`", TraditionalForm]], "Output", CellChangeTimes->{3.4971934125279036`*^9, 3.497223944094386*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{"\[Pi]", "/", "3"}], "]"}]], "Input", CellChangeTimes->{{3.4971913322519183`*^9, 3.497191342534507*^9}}], Cell[BoxData[ FormBox["1.0471975511965976`", TraditionalForm]], "Output", CellChangeTimes->{3.497191344583624*^9, 3.4972239455919886`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"phi", "[", "6.977", "]"}]], "Input", CellChangeTimes->{{3.497193623719983*^9, 3.497193679670183*^9}}], Cell[BoxData["1.047105832495587`"], "Output", CellChangeTimes->{{3.497193630702382*^9, 3.497193680230215*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tbar", "=", "6.977"}]], "Input", CellChangeTimes->{{3.4971942246403537`*^9, 3.4971942323897967`*^9}}], Cell[BoxData[ FormBox["6.977`", TraditionalForm]], "Output", CellChangeTimes->{3.497194235228959*^9, 3.4972239562000074`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{"phi", "[", "t", "]"}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.4972241833832064`*^9, 3.497224194396826*^9}}], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"0.0010000000208333338`", " ", SuperscriptBox["\[ExponentialE]", "t"]}], RowBox[{ RowBox[{"6.250000260416675`*^-8", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]]}], "+", "1"}]], TraditionalForm]], "Output", CellChangeTimes->{3.497224196034828*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"%", "/", "t"}], "\[Rule]", "tbar"}]], "Input", CellChangeTimes->{{3.497224206440047*^9, 3.4972242112916555`*^9}}], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"0.0010000000208333338`", " ", SuperscriptBox["\[ExponentialE]", "t"]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"6.250000260416675`*^-8", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]]}], "+", "1"}], ")"}], " ", "t"}]], "\[Rule]", "6.977`"}], TraditionalForm]], "Output", CellChangeTimes->{3.4972242151916623`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{ RowBox[{"phi", "'"}], "[", "tbar", "]"}], "]"}]], "Input", CellChangeTimes->{{3.4972243105702295`*^9, 3.4972243191502447`*^9}}], Cell[BoxData[ FormBox["0.9999205682234105`", TraditionalForm]], "Output", CellChangeTimes->{3.4972243230814514`*^9}] }, Open ]], Cell["Then leaves the cylinder", "Text", CellChangeTimes->{{3.4971937019654584`*^9, 3.4971937075257764`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"phi", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "7"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1.1"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.497191221646592*^9, 3.49719123909459*^9}, { 3.497191269977357*^9, 3.4971912728545213`*^9}, {3.4971913128228073`*^9, 3.4971913133428373`*^9}, {3.4971913668708982`*^9, 3.497191404535053*^9}}], Cell[BoxData[ FormBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVjn080wkcx0chpQlh/MjDUaRyd710zMP3q+KV17WZSK3jCK3cokZ5iruh KMlDMclFmGtSjrmjY10l0sNcC9EqKw/plIft7Nbowbk/Pq/36/3H+/X62EQc 2rFPk0Qi0Rb2Pyt317WcXJfplb9r0xwtggH8OZOMat5eCGi9/0sAmwG001qO aTwOkDfp+O05woCq3tSP0bx0KHc5mJySxQBxoisrnFcIme38ftUVBgz5mZR9 x6uE6OUfJ4eUDJj4+oQLk9cIZ+s8qcW5AcC5LNLczbsNw87cTkPxDtiw4Vqp MLAHbKjBFM3HO8HppuLwj9TnMKHCtIOGTNDIlrC/nRsCZ3dWOiEKgdqiHd9o NY8BwRWuixKEAy/Nv2rI+h0YBa3JrbKKhJvihBr222kQ0x5oXXZhAfuGo7qb /g9Y9lwLWvtHNFAydsa8/0kJXN0wW0NuDIwk8+oTX6nAKefBGokFBxgvi+AU ZRaEfxb8li2Ih43KGGWMzwd4uLv3TdyJBHDxCDlaW/kJJsrv2Y+YpYBUoeOb 8GQevBPtzadm0oAeE6XYbqGBBoN2/OGIdPjBTRiwbZsmzpHN6z9bH4ddIhlT L3wR+qtKLDYbZUPfU+N7x/IXIzMwd4DfngO2V51kTVe00LXh+b81rXkwT9m+ p2RQG1ltmy2dpIVQMsg8MLp0CTZpFy8JvlYEJKbvqrkvdJHcEDeje70E1DGe 1Lagpei+Scb1ziqD225Gn7dyluFExEPfI5cqwCe0P9D1pB4OzXWW/r2qCpjm fP2B5uV4R6fbJk+jBrzyGPFej8nY+baut9BCANLuzHKBxgoMPy88zpmvAw4p WDxWsgIDyvnxsy4NEJdnSte1M0C/Zsf9STwhUKNlGRoiAyxJzY7Nzf8d2BVF y2R+hmjad+vCgTvXITndO3S6zxDX343OsQgVgX/DzN5+thHmN7L8q2NvwRlq cWul2gjDX3Rpr3nWDucMPO5uLlyJhhfrTeZfdYLm1h77e1bGeNGbzbK3uw90 2zB6Rp0xXvUeGcJHYoigKRwNt5igZeuSmWChBGS9ccwsiQmO+ZBT6I69YHt5 1l0SbYp6pnHGLZ79sGV14hs6iYLPwnPKkm5IoZs0OtaYS8HZ1e/DW9IGwcoh uPStnRm+q01+52w8BNIrLRU6TWbIi7uq3cEbAY5U/xDTyxxNaR/yRZFjIAmK UXCfmGM31z/s6ItxOO/U2pUbQeCXtx18Xp2ZhKfjR4o09xG4ekN3V2zFJFAE znuT9hMYmXpapd04CaV2NXORBwl0GGccCOqbhAuWBevdEwh80SnUiyKmoEyf dW78FIHHeKJeZt0UlM8YhPk2EuhRSCa19UyDrFHsJGoicMWjFmHW62lYdThb /VUzgZm7MvND1NNQMfGx0LKNwO+3J7ON9OVw6fWbDmUHgVTX1MWEixwqB26s rX5KYF9vqKNNhhyGi5PeU54T+DL0sZv0tBxsgzZ25A0SSM4aTOMVy6FKIghN GSYwTrBFYF274PfPFQRMEDhtVt8aL1nos+mhXVMEKsSBP+98ttD76q71VBBo RUm/5TEqh+r2H+84qAiULxoYMFfLYZTrVlCuJvAs7de/DDQVYAfKkJUfCLRO idUn6ykg6lO9Y86nhf8N42X6Jgrgt0Wr5ucJXP9ZedTEWgH/AadoP74= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 7}, {0, 1.1}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}], TraditionalForm]], "Output", CellChangeTimes->{ 3.4971912737515726`*^9, 3.4971913142248874`*^9, {3.4971913701150837`*^9, 3.4971914050820837`*^9}, 3.497223958758412*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.02", "]"}], ",", " ", RowBox[{"Hue", "[", "0.8", "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "5"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.01", "]"}], ",", " ", RowBox[{"Hue", "[", "0.4", "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "6"}], "}"}], ",", "1"}], "]"}]}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.497192317405266*^9, 3.4971925888237906`*^9}}], Cell[BoxData[ GraphicsBox[{ {Hue[0.8], Thickness[0.02], CircleBox[{0, 0}, 5]}, {Hue[0.4], Thickness[0.01], CircleBox[{0, 6}]}}]], "Output", CellChangeTimes->{{3.497192445327583*^9, 3.497192452670003*^9}, 3.497192541837103*^9, 3.497192590640894*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"cc", "[", "t_", "]"}], ":=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.02", "]"}], ",", " ", RowBox[{"Hue", "[", "0.8", "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "5"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.01", "]"}], ",", " ", RowBox[{"Hue", "[", "0.4", "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"6", " ", RowBox[{"Sin", "[", RowBox[{"phi", "[", "t", "]"}], "]"}]}], ",", RowBox[{"6", " ", RowBox[{"Cos", "[", RowBox[{"phi", "[", "t", "]"}], "]"}]}]}], "}"}], ",", "1"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Hue", "[", "0.1", "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"6", " ", RowBox[{"Sin", "[", RowBox[{"phi", "[", "t", "]"}], "]"}]}], "+", RowBox[{"Sin", "[", RowBox[{"6", " ", RowBox[{"phi", "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{"6", " ", RowBox[{"Cos", "[", RowBox[{"phi", "[", "t", "]"}], "]"}]}], "+", RowBox[{"Cos", "[", RowBox[{"6", " ", RowBox[{"phi", "[", "t", "]"}]}], "]"}]}]}], "}"}], ",", ".1"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5.5"}], ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.5"}], ",", "7"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.497192317405266*^9, 3.4971926549115705`*^9}, { 3.4971927388313704`*^9, 3.497192748711935*^9}, {3.497192891505103*^9, 3.4971929718006954`*^9}, {3.497193006624687*^9, 3.497193103984256*^9}, { 3.497193164483716*^9, 3.4971931803136215`*^9}, {3.4971935009139585`*^9, 3.497193503937132*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Animate", "[", RowBox[{ RowBox[{"cc", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "tbar"}], "}"}], ",", RowBox[{"AnimationRunning", "\[Rule]", "False"}], ",", RowBox[{"AnimationRate", "\[Rule]", "0.1"}]}], "]"}]], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQBmIQfeCUtf20qy8dMya+9gLRj6oqAkC01Za+TBDNEpZW BuEzlIPoooz/dSA65/nJehDt8bCvGUSX7+tuBdGaMbL9EPMsp4HoPyt3zgLR cq1r54FoVbbiRSB61cdli0H0ZV+5VSBaZF3zRoj9XXtBtIOp034Qvack9jGI 1t108zmI7skJ550OpLd9vgmmY/rZvNcDadM4JTB94JRoFIg+UeYUC6KFmvck guiEp1fAtI+54vxtQHqaszGY3rjx89xYvleOBvcK5oPoA8cY2eOA9JEDPGB6 yQ75BBC9bIE7mAYAP1upJA== "]], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`t$$ = 4.441930453151368, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`t$$], 0, 6.977}}, Typeset`size$$ = {77., {2., 8.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$2634$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$2634$$, 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`cc[$CellContext`t$$], "Specifications" :> {{$CellContext`t$$, 0, 6.977, AnimationRunning -> False, AnimationRate -> 0.1, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{331., {43., 48.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.4971927020222645`*^9, 3.4971927144869776`*^9}, 3.4971927566953917`*^9, {3.4971927977737417`*^9, 3.4971928074002924`*^9}, { 3.497192838416066*^9, 3.4971928405761895`*^9}, {3.4971932224080296`*^9, 3.49719322574022*^9}, {3.497193455767377*^9, 3.4971934708682404`*^9}, { 3.497193529825612*^9, 3.497193537688062*^9}, 3.4971936150554876`*^9, { 3.4971942438154507`*^9, 3.497194256504176*^9}, 3.497207174921067*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"ccc", "[", "t_", "]"}], ":=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.01", "]"}], ",", " ", RowBox[{"Hue", "[", "0.8", "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "5"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.01", "]"}], ",", " ", RowBox[{"Hue", "[", "0.4", "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"tbar", "-", "t"}], "]"}], "*", "6", " ", RowBox[{"Sin", "[", RowBox[{"phi", "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"t", "-", "tbar"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"3", "*", SqrtBox["3"]}], "+", RowBox[{"3", "*", RowBox[{"(", RowBox[{"t", "-", "tbar"}], ")"}]}]}], ")"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"tbar", "-", "t"}], "]"}], "*", "6", " ", RowBox[{"Cos", "[", RowBox[{"phi", "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"t", "-", "tbar"}], "]"}], "*", RowBox[{"(", RowBox[{"3", "-", RowBox[{"3", SqrtBox["3"], "*", RowBox[{"(", RowBox[{"t", "-", "tbar"}], ")"}]}], "-", RowBox[{"6", "*", RowBox[{ RowBox[{"(", RowBox[{"t", "-", "tbar"}], ")"}], "^", "2"}]}]}], ")"}]}]}]}], "}"}], ",", "1"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Hue", "[", "0.1", "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"tbar", "-", "t"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"Sin", "[", RowBox[{"phi", "[", "t", "]"}], "]"}]}], "+", RowBox[{"Sin", "[", RowBox[{"6", " ", RowBox[{"phi", "[", "t", "]"}]}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"t", "-", "tbar"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"3", "*", SqrtBox["3"]}], "+", RowBox[{"3", "*", RowBox[{"(", RowBox[{"t", "-", "tbar"}], ")"}]}], "+", RowBox[{"Sin", "[", RowBox[{"6", RowBox[{"(", RowBox[{"t", "-", "tbar"}], ")"}]}], "]"}]}], ")"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"tbar", "-", "t"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"Cos", "[", RowBox[{"phi", "[", "t", "]"}], "]"}]}], "+", RowBox[{"Cos", "[", RowBox[{"6", " ", RowBox[{"phi", "[", "t", "]"}]}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"t", "-", "tbar"}], "]"}], "*", RowBox[{"(", RowBox[{"3", "-", RowBox[{"3", SqrtBox["3"], "*", RowBox[{"(", RowBox[{"t", "-", "tbar"}], ")"}]}], "-", RowBox[{"6", "*", RowBox[{ RowBox[{"(", RowBox[{"t", "-", "tbar"}], ")"}], "^", "2"}]}], "+", RowBox[{"Cos", "[", RowBox[{"6", RowBox[{"(", RowBox[{"t", "-", "tbar"}], ")"}]}], "]"}]}], ")"}]}]}]}], "}"}], ",", ".1"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5.5"}], ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6"}], ",", "7.5"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQA2IQ/eH7mvxYvleO07TvzgTTs6KWgGidE9OWguhzmgXb QbTP/MqDILrg7+WjIJqt/v9FED2rqv8miDbg7LoNotXs5zLHAek/f/6C6aio rS3pQFpq+avZIHrbimeLQLTTk/QVIFrjyaQNIPraXPZNILqmdP8OEN12m3Uv iNab0HQQRP/WFzoENsfh9TEQnVdcfxxEx7qEngbRV9b8uQSi57zb+gBEl3Ae BdMr+rY+BdEyXvovQPSzZUoKuSB39CSBaQ4jRTUQvUrLGEz/jHXQA9EZ14LA dM+C7cYgOsD+rimInr/lhhWIztJ+D6Zrrn10B9HKG9P8QPQyW+dIEB10TzsK RAMAtkWlbw== "]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Animate", "[", RowBox[{ RowBox[{"ccc", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "8"}], "}"}], ",", RowBox[{"AnimationRunning", "\[Rule]", "False"}], ",", RowBox[{"AnimationRate", "\[Rule]", "0.1"}]}], "]"}]], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGCQBGIQfeCUtf20qy8dMya+9gLRj6oqAkC01Za+TBDNEpZW BuEzlIPoooz/dSA65/nJehDt8bCvGUSX7+tuBdGaMbL9EPMsp4HoPyt3zgLR cq1r54FoVbbiRSB61cdli0H0ZV+5VSBaZF3zRoj9XXtBtIOp034Qvack9jGI 1t108zmI7skJ550OpLd9vgmmY/rZvNcDadM4JTB94JRoFIg+UeYUC6KFmvck guiEp1fAtI+54vxtQHqaszGY3rjx89xYvleOBvcK5oPoA8cY2eOA9JEDPGB6 yQ75BBC9bIE7mH547vuVdCAdcvzbDRD9xtz2EYjeE+ALpmdY1z8D0XzS/WA6 QOiLZS7IvO2OtiC6KGdTLIg+HH8RTNuZmmSC6AurfME0ANsk1ok= "]], Cell[BoxData[ FormBox[ TagBox[ FormBox[ 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, 8}}, Typeset`size$$ = {360., {166., 169.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$68321$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, TraditionalForm, "Variables" :> {$CellContext`t$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$68321$$, 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`ccc[$CellContext`t$$], "Specifications" :> {{$CellContext`t$$, 0, 8, AnimationRunning -> False, AnimationRate -> 0.1, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{409., {202., 209.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], TraditionalForm], Manipulate`InterpretManipulate[1]], TraditionalForm]], "Output", CellChangeTimes->{{3.4972136115522213`*^9, 3.4972136465132213`*^9}, { 3.4972137073607016`*^9, 3.4972137956897535`*^9}, {3.497223979444048*^9, 3.4972239837808557`*^9}, 3.497224067443803*^9, {3.4972243971971817`*^9, 3.497224577221498*^9}, {3.4972246111983576`*^9, 3.497224688777294*^9}, { 3.497224791238274*^9, 3.4972248267283363`*^9}, {3.4972249200789003`*^9, 3.497224947878149*^9}, {3.497225036018304*^9, 3.497225040729512*^9}, 3.4972259276906757`*^9, {3.497226147579873*^9, 3.497226148531475*^9}, 3.497227100195156*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", "%"}], "]"}]], "Input", CellChangeTimes->{{3.49722533808764*^9, 3.4972253617060814`*^9}, { 3.4972254254789934`*^9, 3.497225478097886*^9}, 3.497225830908106*^9, 3.4972259146022525`*^9, {3.4972260774889503`*^9, 3.4972260937285786`*^9}, { 3.4972270811943226`*^9, 3.4972270839555273`*^9}}], Cell[BoxData[ FormBox["\<\"C:\\\\Users\\\\Steve\\\\SDE\\\\Phys505_10\\\\hoop.flv\"\>", TraditionalForm]], "Output", CellChangeTimes->{ 3.4972259376434927`*^9, {3.4972260820909586`*^9, 3.4972260949141808`*^9}, 3.497226152915083*^9, 3.4972271059671664`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{"ccc", "[", "t", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "8.0", ",", ".1"}], "}"}]}], "]"}], ",", RowBox[{"\"\\"", "\[Rule]", "0.1"}]}], "]"}]], "Input", CellChangeTimes->{{3.49722533808764*^9, 3.4972253617060814`*^9}, { 3.4972254254789934`*^9, 3.497225478097886*^9}, 3.497225830908106*^9, { 3.4972263371670065`*^9, 3.4972263395226107`*^9}, {3.497226451868022*^9, 3.4972264529444237`*^9}, {3.497226502675711*^9, 3.497226504984515*^9}, { 3.497226683498829*^9, 3.4972266864004345`*^9}, {3.4972267241681004`*^9, 3.4972267260713043`*^9}, {3.4972268671111517`*^9, 3.4972268678911533`*^9}, {3.4972269467180915`*^9, 3.497226948621295*^9}}], Cell[BoxData[ FormBox["\<\"C:\\\\Users\\\\Steve\\\\SDE\\\\Phys505_10\\\\hoop.swf\"\>", TraditionalForm]], "Output", CellChangeTimes->{3.497226514547332*^9, 3.4972266899416404`*^9, 3.49722672951891*^9, 3.4972269421784835`*^9, 3.4972269929253726`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{"ccc", "[", "t", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "8.0", ",", ".05"}], "}"}]}], "]"}], ",", RowBox[{"\"\\"", "\[Rule]", "0.1"}]}], "]"}]], "Input", CellChangeTimes->{{3.49722533808764*^9, 3.4972253617060814`*^9}, { 3.4972254254789934`*^9, 3.497225478097886*^9}, 3.497225830908106*^9, { 3.4972263371670065`*^9, 3.4972263395226107`*^9}, {3.497226451868022*^9, 3.4972264529444237`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.4971427034929695`*^9, 3.4971427091869793`*^9}}], Cell[BoxData[ FormBox[ RowBox[{"4", " ", RowBox[{ SuperscriptBox["tan", RowBox[{"-", "1"}]], "(", RowBox[{"tan", "(", FractionBox["phi0", "4"], ")"}], ")"}]}], TraditionalForm]], "Output", CellChangeTimes->{3.497142710044981*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{"phi", "[", "t", "]"}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.49714273775063*^9, 3.497142748062248*^9}, { 3.4971428014299417`*^9, 3.4971428028339443`*^9}}], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"2", " ", SqrtBox["2"], " ", RowBox[{"tan", "(", FractionBox["phi0", "4"], ")"}], " ", SqrtBox[ FractionBox["g", RowBox[{"a", "+", "R"}]]], " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"t", "-", "t0"}], ")"}], " ", SqrtBox[ FractionBox["g", RowBox[{"a", "+", "R"}]]]}], SqrtBox["2"]]]}], RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["tan", "2"], "(", FractionBox["phi0", "4"], ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ SqrtBox["2"], " ", RowBox[{"(", RowBox[{"t", "-", "t0"}], ")"}], " ", SqrtBox[ FractionBox["g", RowBox[{"a", "+", "R"}]]]}]]}], "+", "1"}]], TraditionalForm]], "Output", CellChangeTimes->{3.49714274951305*^9, 3.4971428041599464`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.497142867714458*^9, 3.4971428781196766`*^9}}], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ SqrtBox["2"], " ", RowBox[{"sin", "(", FractionBox["phi0", "2"], ")"}], " ", SqrtBox[ FractionBox["g", RowBox[{"a", "+", "R"}]]]}], RowBox[{ RowBox[{"cosh", "(", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"t", "-", "t0"}], ")"}], " ", SqrtBox[ FractionBox["g", RowBox[{"a", "+", "R"}]]]}], SqrtBox["2"]], ")"}], "-", RowBox[{ RowBox[{"cos", "(", FractionBox["phi0", "2"], ")"}], " ", RowBox[{"sinh", "(", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"t", "-", "t0"}], ")"}], " ", SqrtBox[ FractionBox["g", RowBox[{"a", "+", "R"}]]]}], SqrtBox["2"]], ")"}]}]}]], TraditionalForm]], "Output", CellChangeTimes->{3.4971428810056815`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", SqrtBox[ RowBox[{"1", "-", RowBox[{"Cos", "[", RowBox[{"phi", "[", "t", "]"}], "]"}]}]], "]"}]], "Input", CellChangeTimes->{{3.4971429220337534`*^9, 3.4971429600978203`*^9}, 3.4971430280671396`*^9}], Cell[BoxData[ FormBox[ SqrtBox[ RowBox[{"1", "-", RowBox[{"cos", "(", RowBox[{"4", " ", RowBox[{ SuperscriptBox["tan", RowBox[{"-", "1"}]], "(", RowBox[{ RowBox[{"tan", "(", FractionBox["phi0", "4"], ")"}], " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"t", "-", "t0"}], ")"}], " ", SqrtBox[ FractionBox["g", RowBox[{"a", "+", "R"}]]]}], SqrtBox["2"]]]}], ")"}]}], ")"}]}]], TraditionalForm]], "Output", CellChangeTimes->{3.4971429617982235`*^9, 3.4971430306099443`*^9}] }, Open ]] }, WindowSize->{758, 730}, WindowMargins->{{20, Automatic}, {Automatic, 0}}, 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, 423, 12, 40, "Input"], Cell[993, 36, 479, 16, 60, "Output"] }, Open ]], Cell[1487, 55, 345, 9, 35, "Input"], Cell[CellGroupData[{ Cell[1857, 68, 215, 5, 31, "Input"], Cell[2075, 75, 180, 5, 60, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2292, 85, 268, 7, 31, "Input"], Cell[2563, 94, 3120, 58, 246, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5720, 157, 183, 6, 40, "Input"], Cell[5906, 165, 565, 19, 60, "Output"] }, Open ]], Cell[6486, 187, 763, 23, 61, "Input"], Cell[CellGroupData[{ Cell[7274, 214, 125, 2, 31, "Input"], Cell[7402, 218, 614, 20, 60, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8053, 243, 244, 6, 31, "Input"], Cell[8300, 251, 158, 5, 51, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8495, 261, 271, 7, 31, "Input"], Cell[8769, 270, 3138, 58, 246, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11944, 333, 355, 10, 31, "Input"], Cell[12302, 345, 5843, 104, 243, "Output"] }, Open ]], Cell[18160, 452, 572, 18, 40, "Input"], Cell[CellGroupData[{ Cell[18757, 474, 118, 2, 31, "Input"], Cell[18878, 478, 101, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19016, 485, 117, 2, 31, "Input"], Cell[19136, 489, 100, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19273, 496, 181, 4, 31, "Input"], Cell[19457, 502, 147, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19641, 510, 115, 2, 31, "Input"], Cell[19759, 514, 120, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19916, 521, 126, 2, 31, "Input"], Cell[20045, 525, 129, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[20211, 532, 122, 2, 31, "Input"], Cell[20336, 536, 344, 10, 34, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[20717, 551, 123, 2, 31, "Input"], Cell[20843, 555, 154, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[21034, 563, 126, 2, 31, "Input"], Cell[21163, 567, 127, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[21327, 574, 149, 3, 31, "Input"], Cell[21479, 579, 140, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[21656, 586, 126, 2, 31, "Input"], Cell[21785, 590, 111, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[21933, 596, 126, 2, 31, "Input"], Cell[22062, 600, 127, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[22226, 607, 176, 4, 31, "Input"], Cell[22405, 613, 342, 9, 53, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[22784, 627, 149, 3, 31, "Input"], Cell[22936, 632, 448, 13, 56, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23421, 650, 176, 4, 31, "Input"], Cell[23600, 656, 118, 2, 30, "Output"] }, Open ]], Cell[23733, 661, 110, 1, 29, "Text"], Cell[CellGroupData[{ Cell[23868, 666, 488, 11, 31, "Input"], Cell[24359, 679, 2210, 42, 247, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26606, 726, 765, 23, 52, "Input"], Cell[27374, 751, 261, 5, 443, "Output"] }, Open ]], Cell[27650, 759, 2396, 68, 92, "Input"], Cell[CellGroupData[{ Cell[30071, 831, 661, 15, 31, "Input"], Cell[30735, 848, 2234, 43, 108, "Output"] }, Open ]], Cell[32984, 894, 5229, 143, 325, "Input"], Cell[CellGroupData[{ Cell[38238, 1041, 748, 16, 31, "Input"], Cell[38989, 1059, 2467, 49, 428, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41493, 1113, 408, 7, 31, "Input"], Cell[41904, 1122, 266, 5, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42207, 1132, 900, 16, 52, "Input"], Cell[43110, 1150, 257, 4, 30, "Output"] }, Open ]], Cell[43382, 1157, 647, 13, 52, "Input"], Cell[CellGroupData[{ Cell[44054, 1174, 135, 2, 31, "Input"], Cell[44192, 1178, 258, 8, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[44487, 1191, 226, 5, 31, "Input"], Cell[44716, 1198, 941, 33, 124, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[45694, 1236, 133, 2, 31, "Input"], Cell[45830, 1240, 876, 32, 115, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[46743, 1277, 264, 7, 40, "Input"], Cell[47010, 1286, 675, 21, 113, "Output"] }, Open ]] } ] *) (* End of internal cache information *)