(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 8.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 67455, 1320] NotebookOptionsPosition[ 66479, 1283] NotebookOutlinePosition[ 66825, 1298] CellTagsIndexPosition[ 66782, 1295] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[{ RowBox[{ RowBox[{"m", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Gamma]", "=", "0.1"}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{3.507211926119318*^9}], Cell[BoxData[ RowBox[{"DSolve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"m", " ", RowBox[{ RowBox[{"x", "''"}], "[", "t", "]"}]}], " ", "+", " ", RowBox[{"\[Gamma]", " ", RowBox[{ RowBox[{"x", "'"}], "[", "t", "]"}]}], " ", "+", " ", RowBox[{"k", " ", RowBox[{"x", "[", "t", "]"}]}]}], " ", "==", " ", SuperscriptBox["E", RowBox[{"i", " ", "t"}]]}], ",", " ", "x"}]}]], "Input", CellChangeTimes->{{3.507322643939725*^9, 3.5073227813925867`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", "Amplitude", "*)"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"k", "-", RowBox[{"m", " ", RowBox[{"\[Omega]", "^", "2"}]}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"\[Gamma]", " ", "\[Omega]"}], " ", ")"}], "^", "2"}]}], ")"}], "^", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "/", "2"}], ")"}]}], ",", " ", RowBox[{"{", RowBox[{"\[Omega]", ",", " ", "0", ",", " ", "5"}], "}"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "10"}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5072115378831124`*^9, 3.507211716624336*^9}, { 3.507211911589487*^9, 3.5072119237131805`*^9}, {3.50721213612833*^9, 3.5072121716303606`*^9}, {3.507212223455325*^9, 3.5072122238743486`*^9}, { 3.5072124166613755`*^9, 3.50721245485056*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwd1Xk01fvXB3BDEQpRrilDClEUDZq8PxFFUrnKcIsSGW+GUhFNRFTIlZSh kgYiRIUyRZnLPERxzM45nO8xZojn/J691l57vf7ba+33WlvRzt3MgYeLi6uF 0/+b8Vfs+DbZX9bV5PpfUShtUDCxULBCnOOG8zwcL3wtCFBQcEb9ofBaAY6F I99nCLZ6oV9Le6UEx/FFd+UXK/hAPVhTT4Xj9Sz7sAXHqwgvfGaxm+Ofwgnz cy03oG2Sc9SS4zUvBLbOzN7EqtiEXZc4dtvt/e+UfAhkpe4tjec4q7EraVz/ Duq1Gr585XjG1aSD7RiOvqOZThMcP+HuCJkyuAfb0WsTqtwU9tbcWzvZEomN fk/cTnE8GLOveNw5Cp1uF78lcHzH/s/xsdn7OGVwQYbGccOsUxQl/xDcPT8u neehcKFMbiMr8xH4u01Dv3As/V9j1bB+HK7u4Q+R4aVgp0Z4GY6PoXv0y+Fm jnlmfb+P+z3BRIeizM5FFBq7jq4aN3gKaS+PpiSOL6UK5Y62JOJg2oRs8GIK xpH9fKNPnkFvdfXrBY5lLxWbs52T0GPUuMGfj0KR/kWKNfscGZpyIsH8FPjb u1WG5ZNx/LOMXbMAhdaifG/mYDJ2Spc8vyBIIeVFTAkjMwXhO5p6ZYQomHqZ 2tL1U3Gjis/aeymFaIG86AHHdPwsMtxrL0Ih+6Kx1znJDKTWpgStF6UQR98m NeaXgYFx/u/THJ+tFXMcNcgEw/PVxWdiFMTiynnYLW8hInXRXFuCwqzw+2SP XVmQ1T02qvQXhd7rzw5TT7JQoSb3TEqSwnvHKwks52zI7YnZu0KagrX25h0j s+/gGpby0VCOwtPKx54M+VxEy9/STVShMB7zTq3zTi404wWsuNZRMHSs6qmf zsWVQL979moUmLxTR/Ma8rBkIdYJGyjo7DbdERL8CZFWmQLQplCbPsejwirE ruf9Es6Esy8EbJZpFKGi9U2imh6FncpRO4Lti+BPUgNH9SmEjSeP+dYVYd7Y 5Z/7+yhsvtfkYPe6GA4uNuUqhyhcrVxvvMm2BCI+6pcCbCm8yvyg/Pp+CViW IW6ppyjUx+jxrq0ugXfT7/n205z8Olp+ktxeitIdB8QOOVGo5A3U4BL/AkWG fuBNTwoSu9vFvn/9itw+reM6Nym8SQ9pd9OoxLqQD72dmRToYvQ7xqcqkfpi dFV2NgWVC8a6qlGV8DSjysI+cPK9S+hpz3Ql5JqjgizyKURW3Dlj/aUK1ty0 49sqOHntCWfvO16DTcI+Ulu7Kbw1pBLXhtfgRq6Azfk+Cqzkw+a8n2sQpVnj lztIwclj+YcClW+w9S9zsGRx7vMn0m/L2DecXlacNTRH4bFQVcByg1rEzX8c PSnFhu7uy8ev2dTiiyafg+gqNjrOqm9hXazFzY/zG8oU2JCsv91fnVIL75yp PmNVNu7FmBjdEq3D6pcNXa+3sRGw9pvwQnsdvMMGetot2HBE3UOmVwPquU03 6CSwwZU4mdd+uwHfih7K1SSyEbNItqMyqQF7rOwPubxko7zijFxycwMkXjyO zc9gQ9V8LtFhRyP8NWalKkrYGHRSSf3F3QSzdVqD/gw2XCL9C2ojmiHLrJ1+ v2cUPBOJnYXJzXhXKOTjum8UjyzKudI/N+PIlFnjuoOjqJQV17873oxp6/f/ lFqOQv3lqzIjyxbsCTWx9fIYBfNjQ+1n+VYsDQ0xKXo6irN963qy37QhKTXv TPzSMXTZtC0prmiDUVt69b4VY/i79ZZGTW8bVmzX/ZdLdgw6VQM+fdI/cDNq uiJOfQy8mc9FJYJ/INx992TggTHE+CnqXrRth4XezUPrw8YgOFl7OsC3HZO7 wtLKosfg734tJPx+O4Y7amXOPR6DnV1n48uqdmTpdaTMZIxh/f5419ZtHYj3 btpS2ziGYnGph9tFf+Ll1yduWfLj2Hy3vMBA/ScELfrbbdeN4wXfpd4jhj8h ZfY0Uk57HHemmzVd/H6iILjjXIPhOI51Rn19NPgTdSdTzsq7j4OeIjo+W/QL TZpOxKFkHIKKgSqdOl1YdyR3aPjyBMp33dO8YtCF8BfcY2eCJxBkmbBtlVkX rkf7yk1EToAnImffP65dgMb2uCMpE5iZZzq2xHfB2DwlWvTHBBgdR19956Hh pcL1wobdk0j5bZdxVoQGIZtzn98bT8JphUfOMlkaFEqfaL+1mETvgdDyA1to uGFkZjLmOYmOvILBMkcaxivPjCe9nER1jMq6omoaumnOBX/+mkJo9uZNtm00 9PQqjwYqT2F/7Z7t83003Hd0faa6ZQql/MeNdi3QUF+lk/jVbAqfLkQ452zq xsfYBH2H8CmkmU8nZ0R3I+aEiJaX8G+EiVapPT3ZgzieVxFaytPI3bbqnenZ HswUyF28umMavTbumLvcgymDaf1Z02nsTBM3t3jQgxKViF/XL01j0Oi4/7Jv Pfg0k/m5vWYa+gHD33129iIpMuTE4RszOJsCaxWjXjzu3qrd/HAGj+ru9TYe 64WFZZDt/cwZUPJbpzW9eqHpPVD8mTaDhE9XVve/6sVLM9pD1t5Z/J4Q8TaT 6IOO1ILuwb/moLTKbmFBqQ+e/Je/VWrNwXRvdkjapj44XlO5GW46h+eRlglL DvbhfD7xGg2ag5nm07KCgD5cUVRO2Tk7hzQnLWl1dh+Gwv7a2Dr6B63hgUmt 833Y5BtlZSI+j0UfmjWClvYjVMjfVHrzPKwXX9anqfQj/Ef8qooL81iSWOL2 wKYfEbQP1x5xLcCu3byQt7ofH76mTWSJcxHBWNq/nm392ORWrfBJmYu8tT4r 29nfj/1q9NHZ7VyE90ewTx73AAR/6WxUPsVFklrztD23DSBKWuk13nKR/iaF V78SBxApmN3x70luEnY/7ZhJxgAuTFwXcb7ITbYe3bE4L38ASj0VImlh3CS4 8W+7+60D8Ph8MXlFATdRbQiSNREeRN+TA2a3FHiISy0zItdnEPnb1kWYTvAQ sQgfqAQPIr7x5lTAcl6Sd4hvJCpqEDtXbZiS1uAlQt/lD3ikDyJLY6+NtxMv Sa0xW6zSNwibp0+GxLt5ifndzqyo0UF01PDT7nIvInMmbnY8XEM4v379Il/F ReRg9c3Cn9JDyJvOVX5rt4iMVOb4RB0ewnUdqbZ++iISHWqgymMzhK5Q2dKt wouJrnF9s7vrEJRPLNFfprWYhFcwtA8EDUHG4eldq8uLycZyuRHuT0Ng7mB3 l67gI55fAu3cVegIN8y+3unAT+R6DfkmtelI832jKBbBT6p4BFL8CB3yrn/2 M/L4yVpylx1iRcerF0G9j8WWkLa8+9eSbtPh7qSkdbVyCQlqs1ijHkOHLmEb mM0sIdq/pcozk+iISzdcy1QTIHe3JIgU5tPhoOX9OihMgOzJeJHQxqLD66Ov VqetIBn55qR3co6O78YCazyiBUnssFp//xIGhA4GHqVqBMmEWvqGcUUG8M4j oQlCJPn5h0/C5gy8e6CY1Km5lCyPLf+hn8NAsbyH7ZihMCnIDb1SWcrACZnX lv+FCxPXVpPVR+oYyKFba0a3CZMvK+ucbegMrLSLDhzyFCE+EW2/L8kyYR4v OelmLUqU02PjFlSZCHw/K1wXKEoaak6QoC1MnMmXcRDJECUbhLqD/zNlwv+h o6SWwHJCu0mXeHONiS9ptdyfvi4nYZxHsPkuE9tnl5rG/15Odpactfn4kInO C8+qb6uLkftcY8/L3zLhl6yzIi1KjBhdnt3c08vEvtnxufrz4mTyYX6rM5sJ 1JlXjaSLk2c5V/2oP0xkCA/9c5QpTv5M8Jb+kRiGriW1bY3zCpLpsfRvSaNh yGjz9nw4t5JUPxL3STs2DMNl/s+kilaS/lLpx3r2wxi2b409IixBpKXWMdyu DmOOe7WSe4YECSw2CCh+N4yaUB2Dy0slSQLDJPlYyTC6hCbPJDtJkpyV5t8Z tcPIZ+m3Tn2VJMPOdjISzGFMnTeiC4ZKkWNiV7NcVo+gPfW57x41GeKxK6ht QXMEqbleRukPZEjombsLUbtHECmWGqrNL0sK82IPFFqOgM9lXE+PKUtUT+f0 iIePwMpDdSK/So7MZLHF82dHwCh6fUPJWpGs+PV7u5kACxE89tq+DxSJxhKu kwMSLJS/PmRQ3qBITh8XTl2uxYJ7esot+f2ryZWglfUvwMLtYsXk4KurSUyG 7O+dB1ngEjin+yJ7NalepL73jBMLxos2Tz2RUCL9Glous94sdKsttirTUyJc VtsjIgJYqJq7dXqnqxKRDiDv195jIfHz+oLn4UpkS9q+jrwEFu5M7HPKSlci h1tMeQ6nshC//N2Fv6qUiAv3MdW+XBaafr76doemRALVT5j6lrHg8nt3dcuo Ekk4an9epImFuRXOn8vmlYhob7ZwYgtnv/+vNeT/AOC1oFc= "]], LineBox[CompressedData[" 1:eJwd1nc0Ff77APB77XHL5apItihboaF63mRmpNCwQpGV0OCDEpEGGRl9kNmV PmSFkGxF2STJyoySO1zuvcb9+v3e5zznfV7nGef585F2uX7WlQ2DwUxtxf/9 ys6GDmGsJcD8/5NDHKGIq4yTBBSK/sjCiiwSFNb/NwRHAoWc2v+wc7JI4rWR shGBBKO/TflLe2WR0gnTesHdJKgzjXWVfyeLDvdbnB2RIkGeIKs5NUUWGbif nclTIIFH7DmvMzdk0dkNm0A/VRLMwQxKPiWLLiVc5D+mRQKviwpCteKyyFvB IYPrGAl8Jpnduxdl0D+1Thq9eiR4HJPSta1aBj04c6UlzYQEWd42opQwGZQd 7LWgfp4EuX1Lmmw4GaTewEuPciDBqsBFfaE+adTAkc85fpkEpq3hv94kS6OJ mGmpGF8SRJfgb8ftkUYSWQ7n5x+RwE3kud8VaSlUNL12BcWRwMlr58GkFkl0 fH+qf0oyCdI1j5m1GUoi+7LBGINcEqhvhL+8Zi6BUltOt2TXkkC8ZpHT22MP UuT920tvIsHbiPEfzstiqNo8evx0OwlUsT275cPE0NBgG3Pj65afHDFxy9qN ds7ratgukUC0ptpLaFUE5alMnCilkSCYtz5mPl4EafnfNeNZJ0GbYsOPAVUR ZL1Wc7WShwx++G/RYz67UMI2zQwhGTJ8nOQK0uTeiWTO9hV47CPDhJ70qFrZ DlSa7FvdoLpVHzZpgb+0A/VIvhnw0SFD5wXfHLs6YbT9gDz/F2sy/OhbrMQl EFDG7RYRGTsyFDn6XJUzJSCV9y7y/ziTIezDu40+TgIy08/UVfAhw0mzzW2d oULo8TmRwPtRZEgt/KwrFymIdqdVRg7HkKHeyN940kQQvR63fqaRSAY3reOb CwKCqM09vmg8iwzr6Rpx1Zl4xBXMN6NTs7WPmeyNllQBFJ65fmb5DxkG2qoG o8pxyFK9yk+JSoZtDyO2v3LGIYnGG/EuDDJktGz3cMHjUM3kQk8PJwXCzYrl 7vvzI8re76ffSFDgSl4it40xH2qoTLw+LUeBCGMdex0sH3pqZBkrpkSBjTq7 St/3vEjR41PXo0MUOEdmir06yItcCivM3SwpkJN64ZnbAR6kftzv2otzFLhl miM7t8yNNjuVYwbsKRB9bpEnqIobpS7lduh5UODXJn90rR436juQYCoZToEg Xk0O7stcSLfax2ToLQVsNTdsBjo50PZTih4CNRRwwJRzNWVwoJHhmYeGDVvz Y0HX25cDBa7bt5V3UOBH3ru2mR0cqARMjeJnKNAjfyWO5c6OpD4qGJzaRYVS TxahUpkN/T03dSVMnAr1SUKTZdxsqHYuI6JKlgq9/fkxWlNYdIF3Z4u8OhWS ZawbG9OwKM6M4yS7CRX2hOCPFglhEaZ/AtUGUUGLHlLdvQODIubrsoPCqIDV Om+E+80CXswLtiMPqeC6ceHkpQIWCKlcbKlIokK6scBloioL9kb1GhWXUGHe jBFxGDbhlE6TRc7slp1EaOyR69B1JqvYaZEKJ0rGMmct18HK/S5ecpkKg48C xf3F18E+6WhfGnYZqu/qmwZUrYHPUplN0p5lwJC4wn7RmPAsN9f+4dllmJvG 6G+LZoBITdgHw4vLkNLOt1PdmQHpPZckOJ2WwUhvHdenzYC8DbGJsGvLcPed 9+/HU3SoOp94OfjhljmXwlL06DDCH+npU7cMLYUqowE7VkH+plugtSIN2MWv iRDYaaBydNwqU50GOPwPz7rZZdDEXFBb0KbB0n3XjsLPy6AXbTIbepIG4E3f e/rZMji+VLYusKdB6pn75HiFZUgeoKixxdLAREOfx9aOCi9SvfjNk2hwsAlz vU+PCi+dpmdT0mjwjqftQJgiFcr+fH2hkk+D+bjkXaFMCnRxVPNfbNzqp+SP z6dTgFMrdK6YSgNMtZg3aYEMuLXVJiZjK0+n+4V/JYNQo2+GAWYFvpkrSOg2 kEHK3MXmB24FDNVCLPSSyXDM1aCZS34FglxjWw30yXAziT/T4cIKKBZ0Scy8 IsE0LeUc/4cVYOpfaMPuWIIc3YM3RptXoIiiIFlH+guXYrpiiz+vQER6QmJz x18YluNstxpaAeVr85F5kX+h18pfJ526AotpjmMVzEWoKzWTUlFchV9zvXyn yX8g5Rp2wSJlFXayugPT+X+DdXU6l3TGKvy1FskTXloAIc7DstSXq2CXvMer oW8Bnqb72KeUrYKzAXd2SeoCRHz50TXeuQrhPI+cZ5QXwHd/5VtfDjpwOXhS DtjOw6kZzzsJfnT4tzOY0+DrHBjekS3UD6RD/t99LeV1c6C3Y2R45S4dLMxL vhvnz8FRA/PDdtF0ODQU/W4keA4UiWpU2Vd0SCepHv1Pbg74XZfdK0bo4EdO uJgSMgsd03esh4wYUO+vV19/cgbaQrTvP7ZggNd+zIaCxgy0CC+VHrNhQLDO nZICiRmo1XcSyHZhABXJxXIwp6Hwpd5njzsMoAxn/KaVTkPMFW60VsaAhVUk 80p+Giym45QkJJggJPb454T0FHQoTQ/YyzHhQaF3gANhCkxvHLqbpsiE/doB UX84psCYbaxH5BATrl/teKr7axL0pJRuEyyZkK2a/m9z8SRo2bc28IQzoYnb 9jm/3iTsGWDYUGeY4CLNMfbd/yekipmzNP4wgTvRuNXD7SeIXs7K96UwYacE LYDH9ifspBiuLW4yoS0gZdhP9yfg8YlZv3atgcGX5jEy/iewm6n+HjVZg7Lr tMn4sglYaHa51/ZmDRz9tBLcWeMgGT/k+bR8Da7dlOXE/xoHa0cLG+v3a5Bl ebq2v2cc6uhHFCfa1oChk3SwOGccElQEB1an1iCzPpi91GgcdFLqFRR2r0OD ruTNd8ljEO25pzvywTqIO/hezzAahcZDCdWmMeswn+p7IODgKKxw8LwUTNzK v8kfdpMcBadMauCL7HXokzQ3fLw6ApoDn2UqatfBO98zejR/BEaP/3N7mrIO ibcOjCYLjICq4KD4yUsbsD+7N8jrzzDMxsyGJ7luwL/HOVV5R4bhBd/q3JzX BhzPCNR992UYcBwiZdGBG/BZdFZJv2AYFlYuGg7Gb8Am+vhEwmsYiCOjPh4t GyDxoe9X4+J32JM/Ux+7fxMwucx21c0h4AOa8wh1yzIN9BtG3yBQdx9PJXPL aQIht498g9mTdkWxWBbozUeWPFD6Bk3GjUw9ARZoHvw70S3wDYLOxjx7rciC djsnK/bvg/DbdW/rbWcWWOV3PRq7Nggd0Tb7BLtZwBD1wy9mfQWjRdtVGRsM Gh64mbS5bwAyhO/3h17AoDM5kgESEgOwrFNQPGKHQTLC3v1GhAHIerx2NdkF g9RnDTorN/qBqZA+xOuLQScck+5z9PdDoctoNekxBj0sEpS1Ce0H/NClkLoG DFKSjWCFjvXBUNMVrK0yFtksJmUMlvcCSXd49x01LPpzN0UjrbAXuBtPa2Yd 2LLE3nnXl72gXX/06uxhLEpVEy/cltgLie/xnf4GWDSTQ+8i3uiF0+W1z584 YpGuiSWeerAXPhKF1T/EYRE7w9P/W1UPVDxscZSiYRGOpXVPitgN+ae+iETR sUi0VTPscHI3pOL6+hbXsMgNt1lpF9UN9+LGDd+zsaG19pr4Zo9uMHvOVD2H Z0N81xdrd6l1w+QrddYTJTbkoXt79tP7Ltj+KT1z1ZkNiQz8CWeOdIIb562J ri42dMTJstDnWAdc9g+uwKWyo1DJzO3CMe2gdlWpy8yZA73Fa3MFnPoE3ULK /LeOcCKFXEHx3Sqt8L4oPE2ZnQudvxsUf+l2MwRjFS07RrlQkKpecupgI/CN BBn7lHOjCs/p5599G2AmTzoxM4QH7Qrq/1gfXweJ+0Q5qm14URTZMYZsUwtx qW6fnKX4kFeAgVxkYA3YJjp04eb4UEFHhKhgXxXQ9YmMzDp+hPU89HL94DuY mtELbIrCoeMrbXTG1wrIOa4h1um8DXW0fvJVuVMObyJvCV5V2Y46Ra0ahs+/ hSiby6bstO3ovtxQNrdlGWiNZL+O6hRAfoJk1yCTUni+P+1NpykeRaxr92u7 l0BoQ8xz02o80j3mKfff9mIwF7MhfpYTRLo9PEGkgDeg6/PJTvCRIPpkZZUa IlIImXtc5Dpogmj0qpvjVOV/INf8KtnCTgjJPT2hIBfxGuJUmhT76oTQ5ewk rTNe+eBG5ehtVySg/uP5K78tXoFLKUXqUSwBzTT/zfpzLg+8w63WT8UTUPa4 sNiHs3lwy6r8G+4ZAXmI+nx8apEHD2m3nsYlE5Dco+kiLcM8KDrCWEt5QUCt W5dFvFYeMBpZg3kFW57htw4XzoO4PlxMyycCentH7JZePxFSc6+5P2gnoLUx X+3D3UTIvdl10vgLAWEGq3arfSFC5c445pcuAkqocDsl1UyEEVuCe/9XAjom q3EU/5YIClOiJyenCOhuxPTa3mdEUC8Pkng5Q0BldN5qlVgiHI38wXCdI6Cx p2cTtJ8QwUzhRcn8wpbtslJM7xPB30tKgkwmIAO49zP8BhFCjoUxyqgEZCkj cPPZdSJEbpscuEkjoAPt3pJELyI8L859QqcTkDttse7LZSLk3OO4WsMkoPbG E2UTl4hQcMZVL2SdgH6OV9Wu2BGhXOaj+IlNAjL0pY5uu0CEOqo8g8UiILvW yB3y1kT4H57P3S8= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5}, {0, 10}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}]], "Output", CellChangeTimes->{{3.507212424323814*^9, 3.5072124552145805`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"Phase", " ", "shift", " ", "x", " ", "omega", " ", RowBox[{"(", "radians", ")"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"Pi", "/", "2"}], " ", "-", " ", RowBox[{"ArcCot", "[", RowBox[{"\[Gamma]", " ", RowBox[{"\[Omega]", " ", "/", " ", RowBox[{"(", RowBox[{"k", " ", "-", " ", RowBox[{"m", " ", RowBox[{"\[Omega]", "^", "2"}]}]}], ")"}]}]}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"\[Omega]", ",", " ", "0", ",", " ", "2"}], "}"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "Pi"}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5072117263398914`*^9, 3.5072118498759575`*^9}, { 3.5072120615720654`*^9, 3.5072120689374866`*^9}, {3.5072128719684176`*^9, 3.507212895020736*^9}, {3.507213003169922*^9, 3.507213016410679*^9}, { 3.507214079478483*^9, 3.5072140840897474`*^9}, {3.5072141201728106`*^9, 3.5072141576659555`*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVlHs4FIgaxkfsWVuKMl1Ih0pyKrIlJLyTVEqKKGwpSzcqaSi3Om6zLiFs RBeaELmuZHJpNUNoch2SUQ2DYe4ziJQ2deb88T3f9z6/533f/77V3pcOn55H IBCyFfP/vf+0sJshOm2jOAM64n61UdmlHcDVsgOBZLfuKVEDWx9k3X+q5QoC 1Wh3GlEPDh3symytUyCwzoZTiCZwO/W5/k+tIBBWFP51k0jCwOa4XclaFBC8 hjb3EZ1AXXoo9oZWOgg3N+QpL/NClOrT9Qla+SAsVH7fqB0Ad4+Hf01MViGy O592fDASC35EHd/7bzois9QW7LFLwDpnufBlYhNIRrl6VYOpCO7cjqzp14jU 1YtsK8jA8qrFg0pKXSBFViYOuN3Fs5Fd7V1WPSAtddN9Sn+ARr/slR7SXlDD Y7z+fp6LTwbW6mUX2RgilPEOP3yEebMlGivXvQeVPZspXloEsx9ez1zKOaCu qdxpW16KdoppZ8sGLkjfJ97863AFdFMls0XyIVBX+r+Nf1UJyWfu4FuTETDc Q6a2B9Lw7GxK436zEej9cfzYywgaItk2BfQdI/BqNKYdSaJhWXX2xaI9IzCp 6/TNeESD7dVj364dH0GFhfIv0f003J3u09KPHwHL8ZtAi/QM9pMdrmSugquu WXt7WTXyxc9bF93kQe+1tD+NVwP/zENr/W7xwLKYzbz8sQbmdrzw5iweGKp+ +p5KtWjNnm90LY+Hoa8tI266tZh08kgR1fBAXUt6PHCsFjbVMy5NPB5S/9ll Z8GuxbuYXwdCt49Cz2nHdA67DotWFY6Pjo4iUsva11a5HqSjMQM80ShYxVEO PsR6kFNOto3IR+FUUJL557p69CmtKBz6MgrCabXnOvb1yOHHn+CojYFa8f3w cHI9jCv8Ot6YjsGr5o63tc4LOO4yLmmkjMEkLtn/rR0d/702/05DwhgCJpdU SNzoqKDxYxk3xzBB5appnqeDaPjA+0XWGCrOaIdmpNHBUdPQritV5L2PaTvP peNC32T8k94x9OtMbbMEA0m+tDNUfT5Ubc0N3McYEJPK4hds4MP944WCmQkG 9q54VHx1Mx8T3dFmD78xMO9VuvyAJR+GlkW92sQGhOoHXZ09xAfztziz3F0N OMPdEns4nI8AjW1Jmo8asPNIxSOVHgWPvjyoRW5EzqbHry6x+agpsqb6RDTi mzJV9J7Dxwq7pdZ/JzWipjLF6ImAj3Pdw/53CxthrHGJ5jnHh1Pn09SFg43Q aTNqfmYogLD0TQzf8SVmSCWj5yIEYIYyDxhbNuHvfMm9YIoAqfubw2LsmxCt usklNkGAx9HhPcKjTVjEKm3IuyWAfZnupdHAJhicLM8ZLBRgaOZBeG55E45e f+LuyhKgxt+93GV9M2i11e1YLUSIx/b/njVoQdiqLzEHDYQYsv5KmjNrASnK YofnRiFYd/K2Fe5tQbt9bVHYNiEqvF7st/BtwSi7Lpa2TwhSYvZhl7IWEGfq SRvJQgivT8embH+FoC1NVcteCuG0z0PDwYeJM6Z61DSmECYqBKZbCBPuZtcS 1TqF0Ehk50YnM7HD0tR73jtFv0vuq601TMyzzVeXy4VIdfRatUD9NVKcKX7N 2iL0a56ebW18jeIAO70gsggEdfL2PLs23CdTF4wHi/BFh7px3ok2JAd9m/G9 LkJAUKRKQnAbAkKqOk7Gi2CfReepl7TBPFI/3CFHkffYWaxGbEdTikrfmlYF Dwq8pyNvB7e8KbF7tRgs1g3i/eZOsGQq0i3rxWB+OjtgOtoJxqbdB9I3iTG0 jcNXUu4CtbhZzc1cDFWtnC7LnV3wLmhJ5hwQw3DRBr4Zowv8bGaKIFgMRu58 pt8pFvo4qhP218UIoiywCrvCwquV+5yKo8W4cPqiz+NYFh7fea1xMVmMa6/N iN5FLPhltKZ9zBWjyTRnq+sEC7Kk9ltzHWKcOuE5HUnpxmCb2vSJN2L0L/UN zM/sRud8R1dGvxj2OdcOSYu7UR7fQYzhiUGxLXgm7u5GAKUzQ3VW4T/XW1u2 ugfT4axMTX0J8k3MfcqYPfjHr/fef8IkkPo7R06Z98LVzDPNOEKCc8F1ltyD vShV4sdupUhQ+kM96svpXpzI+nzZ+qaCN9AZtPReNDRr2zvnSjDxZm7Yd7oX cXq/T4e0StBe0D+7rf4thiQi0fUuCYSVaz2t2G9hUU3mRvcqtHjv1dDJtxA7 UlqTBiWwYg543zXog2N4IZX6UQK7konBhFt90OyTHWBqS+GebTNSH8LGhYdX bTt0pWAeok9H32aj6cIP8x59KZxou91uVLFxVXnxWo6xFFlxIg+fSTbemZjO jttKQWTaGh3178eDxLBHy89Lsal3eOcvV99h486fv595LsWXhT/lvnz5ARXF Jev7GVJw5me+0Rz/AFOik/O+Fim81PPF77Q5sBJk5W/slqJ0Je1lZyAHB5M3 OEzwFXw4siZ54wDI7xyzQpfIYGLlp7K4ahAzth8bxMtl+PIpa1WuYBDhpbcl x1bJYCfjjjBXckGJ4NrYGMqg9uNB8dAfXNxed3lsno0M7leOKL8wGULt5fQt Sb4ypP+01fOgzjBsPlgcn/OXgeHjM+CxYxiNdgN/+AcpdGq4YfNvw2hdbvDO KUIG14VdRg13h8Gpr45YmiFDqndfc5juCAjzP7TnMGTYFL64+Jw1D5TAiBn1 Fhm8uJb7TX14+GVgrV5Umww/ttBnwxJ4WFJxIdCnTwaxR/z+KDYP+ke/axlK ZejOm0wvCh3F3tzVZ58sl+OKX9oem/4xmGYtMmjRkWPHcIBDljIfejf/GX2/ Wo7eaL/N4Yo//DX0rbfKJjnoRCsTXjwfZc4JJ9xIcpw19tMh2wqgqTR5ZO6c HA0Fprl2PUIQPg8Ql/jL8e03Zv2yn0WQSlvfGATKMWr9yirNSoSW/nxnp+sK PxkucUUihFa4O+alydFyULe6PFEM7kmG3b46OQ49u7cihSxF+5Ey5RN0OUzW 31veVilFjcPdRnKTHD75rIvtU1L8aR5Eut8px62FSzj6ITLsVje0Gh+Rw9xF r8/phhwlL1K2ZiwYR9Taj0dofhMIXnVyzfDxccjT5gQeylPwdjI5yvl9HHsk V7B38xQOxijdYJ8ZR4+XzCLp2BQMRHmTHQHj0A774LOMNoXeKiGjjjKO4Byb gZnz0zA5QD6ZXjqO1WM7O0T8T6jfEsBf8nUcXwNW8p/yv+B/ecEFVQ== "]], LineBox[CompressedData[" 1:eJwV1Hk4ldkfAHDLvfe9yCWailFGIYqSpIXp+03Zl5CQbElq2ka24dc2FUKh 35CslaISIiFKiUZJsmapVJaxlEzveze54f29vz/Oc57Pc87z3c7zHK2A3133 ykhJSd1m1v/3X4Z3j1vIkPC4/7mi8bYp8CdVZTRlSYiaUTXw958C+6XDa9W5 JHjsFhAvn03BkvhzOcoqJAzUFvgkx0ugza350IwOCdmuhsUfFKfB4OsOhR5H EjIM7Uxkh2ehys2hNsGZBP3uNS9QlYYtjy1CN20noUdDtV5pMw1eSave53uS ILXo/X3vLBrijeQKw/aQ8Crhdp6djhSOhNXYqUSRYC0d53DypRSGfCibbTjG 5NtnGSnpk8IZy4KyqJMkBGZPlpuRUjhvQZr6wFkSdC8v1ePNl8Yt1b9/KUki oSix1UniK43XZpYkOOaRoNhVRG4ekUaDILVN0rdIIFsbl5iKpfFBixK/vIAE /4dP80VsGWy5Or1To4SEhe4p7b3aMjizuVt/vJqpZ3FmPvjLoFds/Mu4VhKa H40pqLbI4Mi/p06YdzD9xJ0vkX4vg0c9IlaTb0hwNwH5hlEZjNPbk+HxjoTP DwetmqVksbLJ/DfdYRIO8Wf8JoxkUVWJ5P4tIeH73cpiSbwsdjxOOGc7Q8L6 I061L1Jk8a9DOpxWmoRBfpM4IkcWVZq8ZN+xKJhKNY89Uco4pmHmG48Cjov7 bdMuWVT+kcn/eSkFQqKxtVSNhW0Fa4/m6lCgvFiysE2LhRc9277p6lGwTMK/ 26PPQqVK9sRqQwoucshFuRtYyDsaPGq9joJrdxvsdD1ZOGfUsi/UnoLYiA0U /JeFzZf6vaYcKcgfG/aQT2fhha3H3p50pqDb1Iyqu8JCheul3fE7KEjjyb+e KmShvM/P7Vf9KGjzp/amNLCQ20k2vAqlQNByrDhPxEJWbVbJ0mwKXLZe8Hxm x8Z35lttPl2hoDzFxp3nzMaSh1/7M3MpUH+ra2y/g41elb+qqNyi4LFn4fYs PzbeK/4UJlVGwaa5y6syQ9nom71044cXFFjm8TUhg40m6s0d6U0UNJ38T9KT HDbKpYcddHtNQfIG12rj62wsT2nIftVBwaoToQNTd9iocH4fXf2BAneL2Hyi ho1VUYV/pwkoSI0xtsU+NiZNbvdxFVPAGwi+pdHPxj3h0yLFKaZ/8zPUtyE2 Mz/HZTGzTPyh2rpj42zcu/9bfKgcH+6MqUSvkLBRxWPNNmdNPqxfeTdHdj4H D5o8eitnzwdtpeew2YaDT9u6iqoc+SAczHulac/Bnw6Tp/Y58yH0jWnkd0cO 1ubr6Dbs4IPF4nOR6ds5qLrgYsif/nxwWxo4nurLwUdTgQqT4Uy+c/xTiaEc VKjl/frPNT5oNdUFDWRw0H+XvnLKDT6UxkagVjYHKya3DG2+yYcR6rLE+woH /Yyi4q8W8kHHVMm88ToH7+cOdXlV8kEuwUDz90IO7oquOtL+ig/3ZjodiBoO FtoGXHsi5kPyrf6h3HccNDHQ2gRTfJizv/q8Sx8Hn/D639f+4MOKBy3psx84 2Nbps6BOSgDx3lslzgMcFPrsTHomL4CkryXHekY5uCnE+XjjYgEMmVo5BguZ +5mbPDusBJDyvrpKqEDgzhMzIldbAZQ1DdjtUiRw0K8mpdNeAO9GRQO1PAKF 2htb3zgLwKkpaNXZuQSqlay16vESwIbg9Cr+fAIDnhmY9B0RQMXjS18itQgU jasrj6QJYMkDzamNawlMzRl9kZ0hgKo1nE9nTAlcs6381PZsARzok4ga1xF4 tMzx29NcAehZGT7ftpHAicg/W7KKBGAn7+RhAwQOs0cuuNQL4I4733PMhsAu zXtyjycE0OuwsF/iRWBY+4m6UJKJ1/r2nJI3gapn7aKWCwSQd8iwcYkPgS4j Q2OXvwvAeF3gIks/Al8XzW8MkRUCBpwJjNpDYMOG47F6akJQroq5cf0ggRXb rWVTtwpBJSYklXuMwDj7qhgNayGUBhbsHWbsvUWfm28rBNb49Ka64wTKrFFQ rHQSQlr8H8oRJwl0Ummd3+sphKfL9ux6c5rAsTb35RqHhVAnUBgPjCNQ3SnI Je+SELi/aS7sT2X6tezpNEgXQhDV13HtEoFPf7Vxr8gUQrXFH8/80wgMMly+ 6/lVIdjx19l/vEzg/Tn/Bo4VCGE8SGVBWyaBDq/CIw2eCOGA/o6C5GsEnrKJ uVo+IoRzMQbnYgsJ7PDd7230WQjevdsGDIoI1A63VysaF0JYOierg3FT7tyU G6QQeMdbjTTuEjjvR07sXxJmHv90zd4qJfB2ceXhYJ4IvB8cHr1eQWCbypiZ gakILkR7F6+oJVDrg13vjRgRLOx78kdZG4EJ9WYlO+JEYLSMt8yinUD+LYNY 4rwIstkxzu2M60N4JgcviqA+9u28fzsIDOR2JBtniSCzfvcfWl1MvjU7retK RdDy8eHm4LcErkzYV/nxvQimZWzTywYI3LguOlXNWAzOP0plvpIEdgeomeaY iKGlpTnRgyIwNOluzy/rmHO/8IZ6xkXDvep65mIIVhOZpfMJXJxqmGtqJYZo axtn5lNHGaq7eLuXGCL5mr+dnCTw1R39F4lnxGB3LLqrfoZ578WtU9KdYjDd dv9JhBwXeWohFY+6xJDkZpnVw7hO9aej4b1icEv9ZLhenou6crvGxj6IoWl1 dMR3xt8EI92tY2KoVOi6Ej6Hi2dezt7PmRXDwI1lqQFKXLwdtvLIhuWT8MV+ 2FzuJy6KmhIHg09Pgnfy/OAMTS6ms3zDXLW/g5R6ySXF1VxU/VhxXebv71Dt 2vDmNXCRfeK024ajUxDckRF7z5GLUgW+JYMqEkio8zeZs5OLIZkliSr1Eojt Srz/ZQ8XH6+I48498gPmV4atCDjMxbl2IQZneNPQ3nhxcFs4F/sM2zqjaqbB aTpnkeoJLpZeAe1/fGcgRHva6eZZLvqUmM5dNDsDfVO61IV4Lv4Zk3u6784s PMjUaz+YzMXisUVZPAca6rP36UWkcjEuJ8b/oxMNG60mGs8zDnSd0LnrQsPT sTkBuYw1ampKHT1oiJnQP9nMOCF51/MLATR81bH1XXKJi/tNMyj5KBoWJkfX NTNeEj3PhrhJQ9Dyays1LnNxdv1xxZ7bNJSvev/ZiPHbiaGOm4U0rE/Uv2LJ +KLHfR+rezR4NvH4RxjTy11DY2posFb2t65j3NeefEW2k4bYHLPCwHQuVsVO 7unsoqFPe+dUJONUMz/9G700aD6vx0TG9vkryy0+0uBqFPeogvHDyNcvT3+m IW6u+W5OBhfTDNcmu3ylIWRU/T/qjI8OZrtpfaMhyWH3hZWM9RwOfXoqpOGR i3GOO2OW9Ju8i5M0pJU9yzrAuL/C7IC/hAbQbko5ybjmwI1VRjM0WEjbxvzF +LKmgoimaejO3RJ8k/H/AHvs/+I= "]]}, {}}, {{}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->NCache[{{0, 2}, {0, Pi}}, {{0, 2}, {0, 3.141592653589793}}], PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}]], "Output", CellChangeTimes->{{3.5072141101032352`*^9, 3.5072141376318097`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"InverseLaplaceTransform", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"s", "-", RowBox[{"I", " ", "\[Omega]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"s", "^", "2"}]}], " ", "+", " ", RowBox[{"\[Gamma]", " ", "s"}], " ", "+", "k"}], ")"}]}], ")"}]}], ",", " ", "s", ",", " ", "t"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.507222731908374*^9, 3.5072228200864177`*^9}, { 3.5072229141307964`*^9, 3.507222917111967*^9}}], Cell[BoxData[ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"t", " ", RowBox[{"(", RowBox[{"\[Gamma]", "+", SqrtBox[ RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "k", " ", "m"}], "+", SuperscriptBox["\[Gamma]", "2"]}]]}], ")"}]}], RowBox[{"2", " ", "m"}]]}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"t", " ", SqrtBox[ RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "k", " ", "m"}], "+", SuperscriptBox["\[Gamma]", "2"]}]]}], "m"]]}], ")"}], " ", "\[Gamma]"}], "+", SqrtBox[ RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "k", " ", "m"}], "+", SuperscriptBox["\[Gamma]", "2"]}]], "-", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"t", " ", RowBox[{"(", RowBox[{"\[Gamma]", "+", SqrtBox[ RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "k", " ", "m"}], "+", SuperscriptBox["\[Gamma]", "2"]}]], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", "m", " ", "\[Omega]"}]}], ")"}]}], RowBox[{"2", " ", "m"}]]], " ", SqrtBox[ RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "k", " ", "m"}], "+", SuperscriptBox["\[Gamma]", "2"]}]]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", "m", " ", "\[Omega]"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"t", " ", SqrtBox[ RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "k", " ", "m"}], "+", SuperscriptBox["\[Gamma]", "2"]}]]}], "m"]], " ", RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "k", " ", "m"}], "+", SuperscriptBox["\[Gamma]", "2"]}]], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", "m", " ", "\[Omega]"}]}], ")"}]}]}], ")"}]}], RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "k", " ", "m"}], "+", SuperscriptBox["\[Gamma]", "2"]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "k"}], "+", RowBox[{"\[Omega]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Gamma]"}], "+", RowBox[{"m", " ", "\[Omega]"}]}], ")"}]}]}], ")"}]}]]], "Output", CellChangeTimes->{3.5072228211834803`*^9, 3.5072229187580614`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"\[Alpha]", " ", "=", " ", ".8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Omega]", " ", "=", " ", RowBox[{"Pi", "/", " ", "10"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"s", "[", "x_", "]"}], " ", ":=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], RowBox[{"(", RowBox[{"\[Alpha]", "^", "t"}], ")"}], " ", RowBox[{"Exp", "[", RowBox[{"I", " ", "\[Omega]", RowBox[{"(", RowBox[{"x", "-", "t"}], ")"}]}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", "Infinity"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Re", "[", RowBox[{"s", "[", RowBox[{"Floor", "[", "x", "]"}], "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", "0", ",", "50"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"MaxValue", "[", RowBox[{ RowBox[{"Re", "[", RowBox[{"s", "[", "x", "]"}], "]"}], ",", " ", "x"}], "]"}], "\[IndentingNewLine]", RowBox[{"Abs", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Alpha]", " ", RowBox[{"Exp", "[", RowBox[{"I", " ", "\[Omega]"}], "]"}]}]}], ")"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5072261749473047`*^9, 3.507226199901732*^9}, { 3.507226285772643*^9, 3.5072262865216866`*^9}, {3.5072264312569647`*^9, 3.5072264420245805`*^9}, {3.5072266458972416`*^9, 3.5072266610211067`*^9}, 3.507226695015051*^9, {3.507227158617567*^9, 3.507227159004589*^9}, { 3.507227390935855*^9, 3.507227403217558*^9}, {3.5073236467040796`*^9, 3.5073236948498335`*^9}, {3.507323984109378*^9, 3.50732407471856*^9}, { 3.507324116157931*^9, 3.5073242000197277`*^9}, {3.5073242320685606`*^9, 3.50732423328763*^9}, {3.5073242712468014`*^9, 3.5073243646871457`*^9}, { 3.5073243998071547`*^9, 3.5073244471288614`*^9}, 3.5073244778356175`*^9, { 3.507324509643437*^9, 3.507324596280392*^9}, {3.507325153008235*^9, 3.507325158983577*^9}, {3.50732533317554*^9, 3.5073253357456875`*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{1.020408163265306*^-6, 0.4042864478743147}, { 0.49071704024234164`, 0.4042864478743147}, {0.98143306007652, 0.4042864478743147}, {0.9980578224858389, 0.4042864478743147}, { 0.9980578224858389, 0.4042864478743147}}], LineBox[{{2.0121683294542945`, 0.572715768121775}, {2.0287930918636135`, 0.572715768121775}, {2.0454178542729324`, 0.572715768121775}, { 2.2937869353316005`, 0.572715768121775}, {2.542156016390269, 0.572715768121775}, {2.666340556919603, 0.572715768121775}, { 2.790525097448937, 0.572715768121775}, {2.852617367713604, 0.572715768121775}, {2.9147096379782713`, 0.572715768121775}, { 2.945755773110605, 0.572715768121775}, {2.976801908242938, 0.572715768121775}, {2.9961623230166303`, 0.572715768121775}}], LineBox[{{3.0078480433752715`, 0.5757296649559143}, {3.0233711109414383`, 0.5757296649559143}, {3.038894178507605, 0.5757296649559143}, { 3.2823912441166545`, 0.5757296649559143}, {3.525888309725704, 0.5757296649559143}, {3.6476368425302286`, 0.5757296649559143}, { 3.7693853753347533`, 0.5757296649559143}, {3.8302596417370154`, 0.5757296649559143}, {3.891133908139278, 0.5757296649559143}, { 3.9215710413404095`, 0.5757296649559143}, {3.9520081745415405`, 0.5757296649559143}, {3.967226741142106, 0.5757296649559143}, { 3.9824453077426716`, 0.5757296649559143}, {3.996144995347821, 0.5757296649559143}}], LineBox[{{4.012882440943803, 0.5223871308397208}, {4.277017695184866, 0.5223871308397208}, {4.541152949425929, 0.5223871308397208}, { 4.673220576546461, 0.5223871308397208}, {4.805288203666993, 0.5223871308397208}, {4.871322017227259, 0.5223871308397208}, { 4.937355830787524, 0.5223871308397208}, {4.953864284177591, 0.5223871308397208}, {4.970372737567657, 0.5223871308397208}, { 4.986881190957723, 0.5223871308397208}, {4.996109001395625, 0.5223871308397208}}], LineBox[{{5.003890998604375, 0.4179097046717764}, {5.036406551127923, 0.4179097046717764}, {5.069423457908056, 0.4179097046717764}, { 5.315931594658684, 0.4179097046717764}, {5.562439731409313, 0.4179097046717764}, {5.685693799784627, 0.4179097046717764}, { 5.808947868159941, 0.4179097046717764}, {5.870574902347599, 0.4179097046717764}, {5.932201936535256, 0.4179097046717764}, { 5.963015453629084, 0.4179097046717764}, {5.993828970722912, 0.4179097046717764}, {5.996095642720131, 0.4179097046717764}}], LineBox[{{6.009235729269827, 0.2725243648624316}, {6.024642487816741, 0.2725243648624316}, {6.040049246363655, 0.2725243648624316}, { 6.055456004910569, 0.2725243648624316}, {6.999515463646512, 0.2725243648624316}}], LineBox[{{7.124041306441138, 0.10046244143145062`}, {7.996098348356764, 0.10046244143145062`}}], LineBox[{{8.173138546173233, -0.08143344572982886}, { 8.417785738615821, -0.08143344572982886}, { 8.66243293105841, -0.08143344572982886}, { 8.784756527279704, -0.08143344572982886}, { 8.907080123500998, -0.08143344572982886}, { 8.937661022556323, -0.08143344572982886}, { 8.968241921611646, -0.08143344572982886}, { 8.983532371139308, -0.08143344572982886}, { 8.99882282066697, -0.08143344572982886}, { 8.99882282066697, -0.08143344572982886}}], LineBox[{{9.014113270194631, -0.2553580598428935}, { 9.029403719722293, -0.2553580598428935}, { 9.090565517832939, -0.2553580598428935}, { 9.151727315943587, -0.2553580598428935}, { 9.41701269701819, -0.2553580598428935}, { 9.682298078092792, -0.2553580598428935}, { 9.814940768630095, -0.2553580598428935}, { 9.947583459167396, -0.2553580598428935}, { 9.96416379548456, -0.2553580598428935}, { 9.980744131801721, -0.2553580598428935}, { 9.997324468118883, -0.2553580598428935}, { 9.997324468118883, -0.2553580598428935}}], LineBox[{{10.013904804436045`, -0.4042864478743147}, { 10.04706547707037, -0.4042864478743147}, { 10.080226149704696`, -0.4042864478743147}, { 10.146547494973348`, -0.4042864478743147}, { 10.212868840241999`, -0.4042864478743147}, { 10.460527103826166`, -0.4042864478743147}, { 10.708185367410334`, -0.4042864478743147}, { 10.832014499202417`, -0.4042864478743147}, { 10.9558436309945, -0.4042864478743147}, { 10.971322272468512`, -0.4042864478743147}, { 10.986800913942522`, -0.4042864478743147}, { 10.996108949395346`, -0.4042864478743147}}], LineBox[{{11.003891050604658`, -0.5136404615584822}, { 11.017758196890544`, -0.5136404615584822}, { 11.048715479838565`, -0.5136404615584822}, { 11.079672762786586`, -0.5136404615584822}, { 11.141587328682629`, -0.5136404615584822}, { 11.20350189457867, -0.5136404615584822}, { 11.446288142713218`, -0.5136404615584822}, { 11.689074390847768`, -0.5136404615584822}, { 11.810467514915043`, -0.5136404615584822}, { 11.931860638982318`, -0.5136404615584822}, { 11.962208919999137`, -0.5136404615584822}, { 11.992557201015956`, -0.5136404615584822}, { 11.996108954792128`, -0.5136404615584822}}], LineBox[{{12.007731341524366`, -0.572715768121775}, { 12.022905482032774`, -0.572715768121775}, { 12.038079622541183`, -0.572715768121775}, { 12.053253763049593`, -0.572715768121775}, { 12.11395032508323, -0.572715768121775}, { 12.174646887116866`, -0.572715768121775}, { 12.43807132388343, -0.572715768121775}, { 12.701495760649992`, -0.572715768121775}, { 12.833207979033274`, -0.572715768121775}, { 12.964920197416555`, -0.572715768121775}, { 12.981384224714464`, -0.572715768121775}, { 12.996107573215152`, -0.572715768121775}}], LineBox[{{13.014312279310285`, -0.5757296649559143}, { 13.030776306608196`, -0.5757296649559143}, { 13.063704361204017`, -0.5757296649559143}, { 13.096632415799837`, -0.5757296649559143}, { 13.162488524991478`, -0.5757296649559143}, { 13.228344634183118`, -0.5757296649559143}, { 13.474141953459245`, -0.5757296649559143}, { 13.719939272735374`, -0.5757296649559143}, { 13.842837932373438`, -0.5757296649559143}, { 13.965736592011503`, -0.5757296649559143}, { 13.981098924466261`, -0.5757296649559143}, { 13.99646125692102, -0.5757296649559143}, { 13.99646125692102, -0.5757296649559143}}], LineBox[{{14.011823589375776`, -0.5223871308397208}, { 14.027185921830535`, -0.5223871308397208}, { 14.05791058674005, -0.5223871308397208}, { 14.088635251649567`, -0.5223871308397208}, { 14.150084581468597`, -0.5223871308397208}, { 14.21153391128763, -0.5223871308397208}, { 14.477969419195773`, -0.5223871308397208}, { 14.744404927103915`, -0.5223871308397208}, { 14.81101380408095, -0.5223871308397208}, { 14.877622681057986`, -0.5223871308397208}, { 14.910927119546503`, -0.5223871308397208}, { 14.944231558035021`, -0.5223871308397208}, { 14.96088377727928, -0.5223871308397208}, { 14.977535996523539`, -0.5223871308397208}, { 14.994188215767798`, -0.5223871308397208}, { 14.996107126768825`, -0.5223871308397208}}], LineBox[{{15.010840435012057`, -0.4179097046717764}, { 15.144058188966127`, -0.4179097046717764}, { 15.277275942920198`, -0.4179097046717764}, { 15.538839435378721`, -0.4179097046717764}, { 15.800402927837244`, -0.4179097046717764}, { 15.865793800951874`, -0.4179097046717764}, { 15.931184674066506`, -0.4179097046717764}, { 15.963880110623823`, -0.4179097046717764}, { 15.996575547181138`, -0.4179097046717764}, { 15.996575547181138`, -0.4179097046717764}}], LineBox[{{16.012923265459797`, -0.2725243648624316}, { 16.029270983738453`, -0.2725243648624316}, { 16.04561870201711, -0.2725243648624316}, { 16.061966420295768`, -0.2725243648624316}, { 16.19274816652503, -0.2725243648624316}, { 16.32352991275429, -0.2725243648624316}, { 16.567466287722375`, -0.2725243648624316}, { 16.811402662690462`, -0.2725243648624316}, { 16.872386756432483`, -0.2725243648624316}, { 16.933370850174505`, -0.2725243648624316}, { 16.963862897045516`, -0.2725243648624316}, { 16.994354943916527`, -0.2725243648624316}, { 16.99610886194607, -0.2725243648624316}}], LineBox[{{17.009600967352032`, -0.10046244143145062`}, { 17.024846990787537`, -0.10046244143145062`}, { 17.040093014223043`, -0.10046244143145062`}, { 17.05533903765855, -0.10046244143145062`}, { 17.17730722514259, -0.10046244143145062`}, { 17.29927541262664, -0.10046244143145062`}, { 17.996131341805928`, -0.10046244143145062`}}], LineBox[{{18.357573667027047`, 0.08143344572982886}, { 18.604521113136713`, 0.08143344572982886}, {18.85146855924638, 0.08143344572982886}, {18.9132054207738, 0.08143344572982886}, { 18.974942282301214`, 0.08143344572982886}, {18.99037649768307, 0.08143344572982886}, {18.996103111577543`, 0.08143344572982886}}], LineBox[{{19.005810713064925`, 0.2553580598428935}, {19.021244928446777`, 0.2553580598428935}, {19.036679143828632`, 0.2553580598428935}, { 19.06754757459234, 0.2553580598428935}, {19.09841600535605, 0.2553580598428935}, {19.221889728410883`, 0.2553580598428935}, { 19.345363451465715`, 0.2553580598428935}, {19.612949086207397`, 0.2553580598428935}, {19.88053472094908, 0.2553580598428935}, { 19.91398292529179, 0.2553580598428935}, {19.9474311296345, 0.2553580598428935}, {19.964155231805854`, 0.2553580598428935}, { 19.980879333977207`, 0.2553580598428935}, {19.997603436148562`, 0.2553580598428935}, {19.997603436148562`, 0.2553580598428935}}], LineBox[{{20.014327538319918`, 0.4042864478743147}, {20.081223947005338`, 0.4042864478743147}, {20.148120355690757`, 0.4042864478743147}, { 20.281913173061596`, 0.4042864478743147}, {20.41570599043244, 0.4042864478743147}, {20.6784196097245, 0.4042864478743147}, { 20.941133229016565`, 0.4042864478743147}, {20.95755283022232, 0.4042864478743147}, {20.973972431428074`, 0.4042864478743147}, { 20.990392032633828`, 0.4042864478743147}, {20.996108949751, 0.4042864478743147}}], LineBox[{{21.00681163383958, 0.5136404615584822}, {21.039650836251084`, 0.5136404615584822}, {21.072490038662593`, 0.5136404615584822}, { 21.13816844348561, 0.5136404615584822}, {21.203846848308626`, 0.5136404615584822}, {21.335203657954658`, 0.5136404615584822}, { 21.466560467600686`, 0.5136404615584822}, {21.711646969402313`, 0.5136404615584822}, {21.95673347120394, 0.5136404615584822}, { 21.972051377566544`, 0.5136404615584822}, {21.987369283929144`, 0.5136404615584822}, {21.996108863743352`, 0.5136404615584822}}], LineBox[{{22.003891136256655`, 0.572715768121775}, {22.01800509665435, 0.572715768121775}, {22.04864090937955, 0.572715768121775}, { 22.079276722104755`, 0.572715768121775}, {22.14054834755516, 0.572715768121775}, {22.20181997300557, 0.572715768121775}, { 22.32436322390638, 0.572715768121775}, {22.446906474807196`, 0.572715768121775}, {22.712631165240836`, 0.572715768121775}, { 22.97835585567448, 0.572715768121775}, {22.99613088170266, 0.572715768121775}}], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBmIQvfnulIhvTOYOFcFe8xJyHtkrBcgeNGNH8CcdWqpZ zo3gFy7f9uu7MIIf0HP8dIUMgs8X9jK3ShfBPyPPLVBjh+B7bPYLqU9A8A+7 TZrR1ITgn3K/7eiyCMG/5KHymvUQgh928sT+ZxcR/FueuVOOP0TwZbr2/9v+ EsGPOyWYueIjgl//ymregq8I/gKulMszfiL4B7V6OSb+RfCXxTX8YfiP4AMA zXeLAg== "]], LineBox[{{24.006000382428176`, 0.5223871308397208}, {24.254097955371382`, 0.5223871308397208}, {24.502195528314587`, 0.5223871308397208}, { 24.745421085808175`, 0.5223871308397208}, {24.988646643301763`, 0.5223871308397208}, {24.99614713372497, 0.5223871308397208}}], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWIQvXJpXMMfBkuHyMP9ERz7b9lPULcvfsCC4EdM37X5 CAeCr8Bu9mUFD4K/4ZlOaaEIgu9wTPmbpQyCn9Aq+OOUNoLf4PL/Z7Q1gn/g 0K2/tVEI/n+HbYwLKhH8C9F23mmzEfyFZcem6OxF8Llaunbyn0Pwiyb63ft0 D8FXm7GhIOU5gn9rnhDztfcIvski5zN8XxD8vqUlU91/IPgvVoACCMGfcyDr P8N/BB8AEqeXpA== "]], LineBox[{{26.003891025960357`, 0.2725243648624316}, {26.26668899666574, 0.2725243648624316}, {26.53055274279134, 0.2725243648624316}, { 26.653671057108923`, 0.2725243648624316}, {26.776789371426506`, 0.2725243648624316}, {26.8383485285853, 0.2725243648624316}, { 26.89990768574409, 0.2725243648624316}, {26.930687264323485`, 0.2725243648624316}, {26.96146684290288, 0.2725243648624316}, { 26.97685663219258, 0.2725243648624316}, {26.992246421482278`, 0.2725243648624316}, {26.996102645851536`, 0.2725243648624316}}], LineBox[{{27.007636210771977`, 0.10046244143145062`}, { 27.023026000061673`, 0.10046244143145062`}, {27.26926262869684, 0.10046244143145062`}, {27.515499257332007`, 0.10046244143145062`}, { 27.997722662006492`, 0.10046244143145062`}}], LineBox[{{28.58299852640073, -0.08143344572982886}, { 28.99610322945235, -0.08143344572982886}}], LineBox[{{29.631009733670975`, -0.2553580598428935}, { 29.75319757583454, -0.2553580598428935}, { 29.875385417998103`, -0.2553580598428935}, { 29.936479339079884`, -0.2553580598428935}, { 29.997573260161666`, -0.2553580598428935}, { 29.997573260161666`, -0.2553580598428935}}], LineBox[{{30.01284674043211, -0.4042864478743147}, { 30.028120220702554`, -0.4042864478743147}, { 30.043393700973, -0.4042864478743147}, { 30.058667181243447`, -0.4042864478743147}, { 30.08921414178434, -0.4042864478743147}, { 30.119761102325228`, -0.4042864478743147}, { 30.364136786652352`, -0.4042864478743147}, { 30.60851247097948, -0.4042864478743147}, { 30.74101940745905, -0.4042864478743147}, { 30.87352634393862, -0.4042864478743147}, { 30.906653078058515`, -0.4042864478743147}, { 30.939779812178408`, -0.4042864478743147}, { 30.956343179238353`, -0.4042864478743147}, { 30.972906546298297`, -0.4042864478743147}, { 30.989469913358242`, -0.4042864478743147}, { 30.996108949779916`, -0.4042864478743147}}], LineBox[{{31.00603328041819, -0.5136404615584822}, { 31.072286748657973`, -0.5136404615584822}, { 31.13854021689776, -0.5136404615584822}, { 31.4035540898569, -0.5136404615584822}, { 31.66856796281604, -0.5136404615584822}, { 31.792261340550397`, -0.5136404615584822}, { 31.91595471828475, -0.5136404615584822}, { 31.946878062718334`, -0.5136404615584822}, { 31.977801407151922`, -0.5136404615584822}, { 31.993263079368717`, -0.5136404615584822}, { 31.996108856341884`, -0.5136404615584822}}], LineBox[{{32.00872475158551, -0.572715768121775}, { 32.024186423802306`, -0.572715768121775}, { 32.0396480960191, -0.572715768121775}, { 32.10149478488628, -0.572715768121775}, { 32.163341473753455`, -0.572715768121775}, { 32.41072822922216, -0.572715768121775}, { 32.65811498469087, -0.572715768121775}, { 32.77937235470041, -0.572715768121775}, { 32.90062972470996, -0.572715768121775}, { 32.930944067212344`, -0.572715768121775}, { 32.96125840971473, -0.572715768121775}, { 32.97641558096592, -0.572715768121775}, { 32.99613277647788, -0.572715768121775}}], LineBox[{{33.00672992346831, -0.5757296649559143}, { 33.0218870947195, -0.5757296649559143}, { 33.082515779724275`, -0.5757296649559143}, { 33.14314446472905, -0.5757296649559143}, { 33.38565920474814, -0.5757296649559143}, { 33.62817394476722, -0.5757296649559143}, { 33.759750409092774`, -0.5757296649559143}, { 33.89132687341832, -0.5757296649559143}, { 33.92422098949971, -0.5757296649559143}, { 33.957115105581096`, -0.5757296649559143}, { 33.97356216362179, -0.5757296649559143}, { 33.99000922166248, -0.5757296649559143}, { 33.99610894155737, -0.5757296649559143}}], LineBox[{{34.00645627970317, -0.5223871308397208}, { 34.02290333774387, -0.5223871308397208}, { 34.08869156990664, -0.5223871308397208}, { 34.154479802069424`, -0.5223871308397208}, { 34.41763273072053, -0.5223871308397208}, { 34.68078565937163, -0.5223871308397208}, { 34.80354856495197, -0.5223871308397208}, { 34.9263114705323, -0.5223871308397208}, { 34.95700219692738, -0.5223871308397208}, { 34.98769292332246, -0.5223871308397208}, { 34.996110961313455`, -0.5223871308397208}}], LineBox[{{35.003889038686545`, -0.4179097046717764}, { 35.01838364971755, -0.4179097046717764}, { 35.03372901291509, -0.4179097046717764}, { 35.04907437611263, -0.4179097046717764}, { 35.11045582890279, -0.4179097046717764}, { 35.17183728169296, -0.4179097046717764}, { 35.41736309285363, -0.4179097046717764}, { 35.662888904014295`, -0.4179097046717764}, { 35.795970903910636`, -0.4179097046717764}, { 35.929052903806976`, -0.4179097046717764}, { 35.96232340378106, -0.4179097046717764}, { 35.99559390375515, -0.4179097046717764}, { 35.996126502575656`, -0.4179097046717764}}], LineBox[{{36.01222915374219, -0.2725243648624316}, { 36.02886440372923, -0.2725243648624316}, { 36.04549965371628, -0.2725243648624316}, { 36.06213490370332, -0.2725243648624316}, { 36.128675903651484`, -0.2725243648624316}, { 36.19521690359966, -0.2725243648624316}, { 36.46138090339234, -0.2725243648624316}, { 36.72754490318502, -0.2725243648624316}, { 36.85181334433614, -0.2725243648624316}, { 36.97608178548727, -0.2725243648624316}, { 36.99161534063116, -0.2725243648624316}, { 36.99610437548675, -0.2725243648624316}}], LineBox[{{37.007148895775046`, -0.10046244143145062`}, { 37.022682450918936`, -0.10046244143145062`}, { 37.038216006062825`, -0.10046244143145062`}, { 37.069283116350604`, -0.10046244143145062`}, { 37.10035022663839, -0.10046244143145062`}, { 37.162484447213956`, -0.10046244143145062`}, { 37.224618667789514`, -0.10046244143145062`}, { 37.47315555009176, -0.10046244143145062`}, { 37.721692432394, -0.10046244143145062`}, { 37.99727987539141, -0.10046244143145062`}}], LineBox[{{38.69635189980451, 0.08143344572982886}, {38.996108869550625`, 0.08143344572982886}}], LineBox[{{39.753564121743075`, 0.2553580598428935}, {39.81523310624162, 0.2553580598428935}, {39.876902090740174`, 0.2553580598428935}, { 39.90773658298945, 0.2553580598428935}, {39.93857107523873, 0.2553580598428935}, {39.95398832136337, 0.2553580598428935}, { 39.969405567488, 0.2553580598428935}, {39.98482281361264, 0.2553580598428935}, {39.996129395049095`, 0.2553580598428935}}], LineBox[{{40.123578028734386`, 0.4042864478743147}, {40.24691599773149, 0.4042864478743147}, {40.493591935725696`, 0.4042864478743147}, { 40.7402678737199, 0.4042864478743147}, {40.807096405376456`, 0.4042864478743147}, {40.87392493703301, 0.4042864478743147}, { 40.90733920286129, 0.4042864478743147}, {40.940753468689564`, 0.4042864478743147}, {40.9574606016037, 0.4042864478743147}, { 40.97416773451784, 0.4042864478743147}, {40.990874867431984`, 0.4042864478743147}, {40.996108949907416`, 0.4042864478743147}}], LineBox[{{41.00758200034612, 0.5136404615584822}, {41.14123906365923, 0.5136404615584822}, {41.27489612697234, 0.5136404615584822}, { 41.542210253598554`, 0.5136404615584822}, {41.80952438022478, 0.5136404615584822}, {41.875134908018936`, 0.5136404615584822}, { 41.940745435813085`, 0.5136404615584822}, {41.95714806776162, 0.5136404615584822}, {41.97355069971016, 0.5136404615584822}, { 41.9899533316587, 0.5136404615584822}, {41.996108823703224`, 0.5136404615584822}}], LineBox[{{42.006355963607234`, 0.572715768121775}, {42.03916122750431, 0.572715768121775}, {42.07196649140138, 0.572715768121775}, { 42.20318754698968, 0.572715768121775}, {42.33440860257798, 0.572715768121775}, {42.59685071375458, 0.572715768121775}, { 42.85929282493118, 0.572715768121775}, {42.92049657335272, 0.572715768121775}, {42.98170032177427, 0.572715768121775}, { 42.99614113197371, 0.572715768121775}}], LineBox[{{43.01230219598504, 0.5757296649559143}, {43.02760313309042, 0.5757296649559143}, {43.04290407019581, 0.5757296649559143}, { 43.07350594440658, 0.5757296649559143}, {43.10410781861735, 0.5757296649559143}, {43.22651531546043, 0.5757296649559143}, { 43.34892281230351, 0.5757296649559143}, {43.593737805989676`, 0.5757296649559143}, {43.838552799675846`, 0.5757296649559143}, { 43.90491609525539, 0.5757296649559143}, {43.97127939083494, 0.5757296649559143}, {43.987870214729824`, 0.5757296649559143}, { 43.996108977694476`, 0.5757296649559143}}], LineBox[{{44.00446103862471, 0.5223871308397208}, {44.0210518625196, 0.5223871308397208}, {44.03764268641448, 0.5223871308397208}, { 44.07082433420425, 0.5223871308397208}, {44.10400598199402, 0.5223871308397208}, {44.23673257315311, 0.5223871308397208}, { 44.369459164312204`, 0.5223871308397208}, {44.63491234663039, 0.5223871308397208}, {44.90036552894857, 0.5223871308397208}, { 44.931343787052036`, 0.5223871308397208}, {44.9623220451555, 0.5223871308397208}, {44.97781117420724, 0.5223871308397208}, { 44.99330030325898, 0.5223871308397208}, {44.99610171021538, 0.5223871308397208}}], LineBox[{{45.00878943231071, 0.4179097046717764}, {45.02427856136244, 0.4179097046717764}, {45.086235077569384`, 0.4179097046717764}, { 45.14819159377632, 0.4179097046717764}, {45.272104626190185`, 0.4179097046717764}, {45.39601765860406, 0.4179097046717764}, { 45.6438437234318, 0.4179097046717764}, {45.89166978825955, 0.4179097046717764}, {45.92203904443181, 0.4179097046717764}, { 45.95240830060408, 0.4179097046717764}, {45.96759292869021, 0.4179097046717764}, {45.98277755677634, 0.4179097046717764}, { 45.99796218486247, 0.4179097046717764}, {45.99796218486247, 0.4179097046717764}}], LineBox[{{46.01314681294861, 0.2725243648624316}, {46.07388532529315, 0.2725243648624316}, {46.134623837637676`, 0.2725243648624316}, { 46.25610086232674, 0.2725243648624316}, {46.3775778870158, 0.2725243648624316}, {46.62053193639393, 0.2725243648624316}, { 46.86348598577205, 0.2725243648624316}, {46.99641462914911, 0.2725243648624316}}], LineBox[{{47.91785493781261, 0.10046244143145062`}, {47.996142504597266`, 0.10046244143145062`}}], LineBox[{{48.90171541989144, -0.08143344572982886}, { 48.936036781132074`, -0.08143344572982886}, { 48.97035814237272, -0.08143344572982886}, { 48.98751882299304, -0.08143344572982886}, { 48.996093753985974`, -0.08143344572982886}}], LineBox[{{1.0146825848951577`, 0.5136404615584822}, {1.0313073473044767`, 0.5136404615584822}, {1.0479321097137957`, 0.5136404615584822}, { 1.0811816345324337`, 0.5136404615584822}, {1.1144311593510716`, 0.5136404615584822}, {1.1809302089883473`, 0.5136404615584822}, { 1.247429258625623, 0.5136404615584822}, {1.3804273579001747`, 0.5136404615584822}, {1.5134254571747263`, 0.5136404615584822}, { 1.6464235564492777`, 0.5136404615584822}, {1.7794216557238294`, 0.5136404615584822}, {1.845920705361105, 0.5136404615584822}, { 1.912419754998381, 0.5136404615584822}, {1.945669279817019, 0.5136404615584822}, {1.9789188046356567`, 0.5136404615584822}, { 1.9955435670449755`, 0.5136404615584822}, {1.9961087409257163`, 0.5136404615584822}}], LineBox[{{49.00467950361335, -0.2553580598428935}, { 49.02184018423367, -0.2553580598428935}, { 49.03900086485399, -0.2553580598428935}, { 49.10764358733526, -0.2553580598428935}, { 49.17628630981653, -0.2553580598428935}, { 49.31357175477908, -0.2553580598428935}, { 49.450857199741634`, -0.2553580598428935}, { 49.725428089666735`, -0.2553580598428935}, { 49.99999897959184, -0.2553580598428935}}]}, {}}, {{}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, ImageSize->{523., Automatic}, PlotRange->{{0, 50}, {-0.5757296649559143, 0.5757296649559143}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.507324573838108*^9, 3.5073245982645054`*^9}, 3.507325171697304*^9, 3.507325290236084*^9, 3.507325336867751*^9}], Cell[BoxData["0.5814602765397499`"], "Output", CellChangeTimes->{{3.507324573838108*^9, 3.5073245982645054`*^9}, 3.507325171697304*^9, 3.507325290236084*^9, 3.507325337251773*^9}], Cell[BoxData["0.5814602765397503`"], "Output", CellChangeTimes->{{3.507324573838108*^9, 3.5073245982645054`*^9}, 3.507325171697304*^9, 3.507325290236084*^9, 3.5073253372537737`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"Exp", "[", RowBox[{"-", "t"}], "]"}]}], ")"}]}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", RowBox[{"-", "10"}], ",", " ", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5073217642324085`*^9, 3.5073217855506277`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV1Hc4FY7bBnCb7O0gnONQIaNFRdmrwqmMKBlJkWwqOwmVbDIrq8yQUH70 PCIUUkjJ3jNZkf1+37/u677u6/PvTbJ1OXeVhoqKSp+aiur/03/CYHFnh4xH Qs7L1LYywrgv/9+eTTLqXTq0qbrECIacA6uVa2TscXjbt0ZgAuIx1y2XJTJS u9zRJV5lgg8PY5kGx8nonBnFqEG1C5jkfohiKxlPrd8vl9VghnhP69NBqWSM y/B947DKCltMUoaXkv7z99IDmSXZwD59gXI04T+/4iizdI4NlBqCTecjyWj7 pXQ6vZgNfgnk2FgHk/FXcVfiVSd2IP5v6paaAxnbvyZ7SSxzQAG1RzaVEhlH aGam+p9xwdHz+QzJh8hYzLD9e62GCxqyh64fUCDjdnublV4vFwzqUmRtpcio YF0zGyTIDfyRshV1wmQU3Fa46ZjIDcFCk42hVGTMNHvP7pLCAxcOWc6wfhbH KZa/zIOtfDAeEm+Q0yCOa2rey6JLfODR1Vx8ok4cV+uaA9IJ/BB557inc7U4 lvg9krpoxw91ILDV9kocC7pdpka3+UHuTDt7XJw4Zs258ieoEYD+qu5BQUtx ZNsvLJq3JgTtlw+YzZiLY17+BdsiCWF4ekHYr8ZUHMXKrdRXjIRB8cyfjzYU cRR9pxRq9lIY7A89Mc/XFMevtf6Gdua7oYl6IkhZWhwfsRLUmZtFIOJpaJvl Kgm/XyuJHfUgwoUk12X5ZRISAioopEgiSMRaCNIskNDO7sJEWC4Rau7LXXkx TcII1eG8jj4izDl1rcz1kfDIXPaM0ykSUJT3iAbVkzD+bxj9iIw48Pz86JQZ Q8JfebI0v7gkAGUywkMiSfjyVerV4wckwCnQL9v+EQmPWj/92UyRgIY9h3ql 75Pw1Jdm4r1oCfDxen667DYJXeqEq09zS8Iwt690vRUJOwiRHx+K7YHXBgqT Y7IkLG33SmO8sg+sMljomqRJ6Ft9m7TvwT5g/Tsulr+XhIfeKGqHFO8D+7R0 M2cSCW/eCemf39wHQjPMjSu8JGyNmivOSZGC4PCxHMZNIib7N3q1D0nDubqU K1KfiSgqX1GxlSELEp2j/Y0NRHz/oGFOo1MWVkblLOzriBjEV+/RxyAHyQx1 lKxqIn5zqczlvSkHg/ozJ0SKibg5RNOeekIebn5VJnDFE7EhQDOg6ZYChPf1 tvyzJGKv33BLucFBsJjbo/fEgogZV2d16pwOwv4d17ojZkS8ddLCgz7iILQR 6avcKURk9RrRl2o+CPx2si9nNYj4Mbui99/pQ5A17X93cC8Rhb4tc++6cBh8 /5xwih4RQ7tQwe2UNEVIs1GaVOsTwxbFigZ7VITqDgW7hS4xNHA4r3pjVBG2 K8mXzn0Ww6ORnrliskoQHLTrDG+pGL6rX6Wo1SrBQ67vMkkBYkj1+WL06+Wj kHLIaeaZoBiqGNjmMDxShv/lXL1G4RFD+mHZxowKZegVsBqhYhPDYpqhtbvD yiC6ebbHhkoMGTZT9XiUVSCzXqmZPCGKOtMbxff/qECeCW3ByzeiqOr3ipfN /iS8vZXiWGwkil2Rv7o9GtRA3M4t56eeKM6w3Eg5OaIGjyl6g9Qaokgdotty nEodbKVWTIwPiyJF1+Vn03F1YOk5q75GEMXUihAa7dfqcPnkLoLmsAhueV5g ZSnQAFr62x+7PEVQtI8jy7xBC5wXDKmonEUwpTiqn2ZaC372SSpLXRPBwHPz FlNs2lBY0VHiay6CUtU3q11MtcH0unwa8aQILoSxf785rQ25zePujowiaA5f zaJEdcEw1oS4nbwbf7Vf9Iqq0gefgxz6unG7UTfQ0Gt2TB9etDe5RUfsxh7T j8mxXKdgm1ulTjxwN7K2m6lWO5yCojhxe1273fhR9eebWJHTwJrwpyBabjfa 2hz7XB13Bj4/eaBErhPG3xohJZU1RrCipGntVC2MOvNRlGNLRiD+czO8vFwY g0Rq0x7yUsCH4PpLN1cY5Xp/SPw5RQGpZFN/p8fCSGl+KT3yjgLhKeS6cjNh 5L4e+LD6+VnQTa8x1JsVwpKjMXT+8edh/nHvJt24EBrlMLbolJ2HlICN/NoB IVTxpGJVbz8Ps1bHGJU7hLCufmZvE6cxxIqXg2yVEGpZBZyWijaG/peFCjzh Quhr3v3WL8kEvF+ncveThTDp0HHPV9/MgJhVhSkiQpiWbyEiuWoGn+K6nc0E hHDx8cFPXbsvwG4vgeavzEJ4tvPu09nrF+CDUty9ugVBtG19mDhLaw7sNQ+X c0EQ2R5U2cdqW8CLxjtdHhcFMfEt3Wnl9UuQfNBbM89YEF/cor3/SsYSItLd S/oNBPG73Us9b0tLcPe48VBfTRD7Zahf03+whBNilifFJAXxQKbYvsNRl6HT W+3F5zkCnnj7dlRKxBpo9jB6k4IJCNXlezdmbOBvNO2IqS8BZd3auuOYbWFy Y8cowpOANmkZY9ZStvDl2z+pVXsCfpqack++ZgvJ/tN9LacJ2CgKNpHjtqDw vVX7Nh8B7eUWI7rnrsDlkHi+tlwB5JcJvPRSxh6+qK4w3s4UQDrZiI4dQ3tQ 3TBbJ6YJoKbis+Zod3sgugsPuEcJ4Dm7snzLKnsYtsrM5fcWwH1EvqNFZ66B vXKJ8mVNAew7Yiji7XcdnBebbX738aNDvszAFZYb0F8ka5z4gx/PLvtJhCve ACOHKB3Vb/yY/s7de8HmBigMnpOJqedHZleq7fh3N2CxtXv5cAE/XtOKWZJx cgLvvIkwv9v8SLt4OW27/yYEWNO+YuHhx7y/5guaga5Q0qYb2cnKj4l/hr7y JrvC8MkI53QGftwK8lRjL3MFHRE+efl1Ptw9J/rNd8IV2H/tKTk3xIdpodzd eufc4On5U6+Ti/nwOI/Z6Ki8O4BOTMXeM3y45s3+jJ3NExbLvyfOa/OhQ06r vPd+T5CQFLr1TpUPS+N95DjOeEI4bZbS6UN8WGF1qaTrkSdQ8M1bZyE+ZK7x 9a9n84LBYz+ryid58Z+HfratsDdQyYqB5n1e3KPnRaGyvg1+/OqX7wfwYpU+ xcbnwW1Y3bHdarjFi4ltFHflstsw1/5C+ZQjL3oER9yNZ7wDPbfl3lKMePFe pe92cdkdqKg/UWopyIujyWPPNgV94ealS1m3iniwaHSfxFPxAJjUDtB494IH T3doTa6aBICd/POh9Wc8qLyW0573IAAsaEbFAmJ5MP3OzbuExQDQy72RFnLr P/+QZHqwMRAkln0SYtR58EBA/oZbbRD8epQcVvCdG8eFopydM4Oh4yOx0LqN G+lQ5bsQBkPLzsuvfJ+48Q20Tq/0BcN7jwrBoOr/erHYRVWhe5B5saPAOIsb ZRvU1gQT7oGjDNvXLVduLOW8L38iPgQ2PgcRKKzcmOq42hhdFQrLdEwn6Bn+ 26NLSjv7Q2HuZJRN1Q4Xop2kyHnaMBh8nZ4vscSFiiqvN6gMwqA+pUplrZsL 9yeORciMhEGE47J15ksufPZkXy+P8APYzXw9b1mDC+nzV0t4qx/B5fctEeIq XJgrIV4iO/sIMtwPuFKOcOHBCTiWujsC9vSsKxbu5ULfD3FG3gERIF/4uP4K KxcqRzH4ndB5DBqGZQPt3znxSv+SVep4JDjEbvOVXufE8NAKumSlGCjUubLW b8OJ1VW7Hzw2iYG59cZe1oucWPRJnKXSIwbcr8RkXTfgxCqf5Uf5JTHgd1ji APEgJ3q0ntUWlY0F0aK4JNFVDnySt+dYjEIc3DgiTd+zmwNbQn/IxtslgDv9 u5feHBwYhO/9NR8kgM933VPcNBz4oWuT9tCrBHjodTVKf4IddT7/Duv8lwD5 5c8F35ayo4wah4tcTCJMHRGQS9BhR7kt5i+5X57ANUU6MyNXNrSLV8/QDEoB Z4a4tWlbNuSoSU2dK0oB7y5SWqgJG8Jo2OnpnhQI9VYdqjnOhsOqeeSuo6nw osLnxn56Nuy7l3opeiUVxhQXAnelsKJAfZQCITgdrij159bVsWB08p4sapfn YJ+rZKpTyYKBcffcYh88B0fBGNpP+Sxo8HjskVH2c3Dd0Lz8JYYF25+d6zf6 9Rz8II+n24oFK/YWv3LTy4B4Xa+AuQ1mHGzNKrgrmwkNZqzGgoeZUTCS58dB kWz41HSVOm0vM4ZFGfMtnMiGlmPwSlSYGV19FQrGL2dDu7D7LgkaZrT5fcHl TkY2DAz8eC/3dRe+31t0V08qB/5dy5LSctqFbXY8DZOaL0D69vEd52wmvLTt EKqamwvYZyg9ksiEEEpnLdOZC6aaV0zMHjAhrSi/sANVHgSzRxSoOjOhcGpv a695HnRn95lxHmXCei9ydiVnPoR/CyopbWbEOY1kic7IAhBVSuiRfM+IQb+m SPJYAG/S8hhSShjxwFUxwsRCAQxea78UnMCI7YE3/riaFoLSNnnXeStGZLh+ tZhaogjGpRttlhcZMCiQ833Tt1fgF90TcX2MAaNz5EhndxUD98qfyt4fDGig fdlMU70YTtYS2D9WM+DZWol3118XQ4KZY1VCKAPm0lITJs+UgFYIG4+SEAMq 8dfwzp8shYy+8/V31OmxztVbeJ1SBgdHD653HqZHkv8J4d9uZVA/zaWgsI8e vQNlDXfHlcH4alvqODs9dhu7njjQVQbS3Gc8zvfSYRdTGI+m1Rt4raMlLnuL Dt9Khqnc8S8HTQPyhXBHOtzgSuBzyiyHzvM0kSOWdDiwtOqW1VgOK9a4lqxF h4SK46tD3BWg7KvyjYGbDt0ai0xeFVZAffHhoMFCWjwRv2bOPFcJJhU8FcrP aXHzk4dWhMBbGK9enEmMo0XOD6I3Lqm/BabPJWYGPrR4fCSBZzrhLRiM7pev 0qVFx+R5bNV4B10Eyf64YRpU/uLBaFxYBRN3+VR0CTRITuNqLK6rAWb/4j9x zDQoIEfWa9+sAbnb+lmDm9TI/EmO3VnxPXg7+zP7DFGjo1egJH/Be2C4OPaz MJ8aH8Xye51KAZA4XO7FfYIaoyh+C8VNCHryRlJW8tRo82HDxHQKwUl6qreA RI1ulV8qNZlr4Q1RREubgRpNrsoar5ypBU22+9y326hw4rFJUtv3WrAdNy7u s6FCvQ9f8nf+foDQoTlbaWMqNLMw13UTroP83nD+WzpU2B0afV9RvQ4W26v9 OWX+8zqHXOBxHdAE6ieFTu7Ag5cyFqPS9aB6YOrbWbYdSKlPJFG8P0JVwj7t SdMt0Pk4kcNv3gRMFyeuUKtswSOx94y7HjaBKfFFsBBpCxpfVDXd/F8TLOaT 8czMJnQ3FabFiX0CKRRVLg3chEv1Yezevz9B0jTvAZ/cDYhOWlHqeN4M48Ud RnGPNyA9Y+NsbHczHPaKdS5034Bvb3ioerhboG2Ho7BfZQMmZbRLOcJagIGP Za/mt3UQupPNoOjdCl6q1CKs62vgeljrLrNbG3ygQ2XJgTWIy/4spFTWBpyf AyxO1q/BEaaJMeaVNig03nziGrkGP5bKdH6e/AqjDqvc38XXYP8+uQ9Jn7/C ufjfTE9P/wPaplLvh0vfQGGqe1k+fQX8StP+BsR3gue8rJRAyAocov582wo6 4e3qXcttxxWQ5JW6XjzdCeoM0g0tR1cgf2P9UZbGdzhH9nni0PkX3osMOzH9 +w5elkLHs1j+Qq/MVapjPj+gys7Z+eHiMmh0x1zrKPwB2zc+ZLp1L4O98+Gc fwM/INTHkUXt5TJQEzJfzuj+hKQnVb29GsuQHG7D/kq0G6q+WQTy+yxBh0pu UfLUL9j++apsy3oJaiv/VkxI9oDGIM3kqO4SSHAoJI7Z9kDzXD6ljG8J5O4r f9ro74Felg0SpXQRNjnleoYGemFHO7X+weQCXDg5/VOXcQC0DP78c21bgErP bclNowEIN9aUvVCxAA9Xsz3jkgeA88pMwp6QBeCm1jhWIzAI4kHK1+rEFkCF V0neoGwQtKp6dm2ZzoOa3qToBs0wvMrPOdaoPA+U3L1PDhwaBkKqi0MMcR7i GQ1jCXbD0LXKEHu68w8M1b7RZ2gaBklfU8709TkY2nO05lPSCPy7OO1yoH4O PG/Yl8x+GYEWlYC2j4/nwCfD6fgA/Sh4budEzhHnQOdS8Tst71H4cPcvq5ru b7DQfSIWbzMGibYPnDo5f0NRVW1l+dMxcNAUabn+axZajrIUtfaOASe99qOY m7Pwwqu1b+XiOFiFx+8aiZsBJfHgAx32E7AZeYghdHAKXppodfq9mYKvLo1X hfKnwIUzKZ6abhqyKBc/vvKYgjhV79hZ42k4xX0v5AfDFMhXRvQLbkxDckI7 jZTsJEx59Q6OmM+Ck7e9bc3KBDxLT/6QXz4LambrtWdxAvjlRvqkeH7DJEH8 rs/5CdDq+7kW1PEbFNPcdprvjMOM0eveLcc///0RvZW15jh8OHx4dO77H+iz TH6/zDoOjTNHI4NJ8xAiVusv8nwMjrjNbM3HzENHJuemc8MoTCnAeYm7C/Di XvZF2uhRYKuuVJHEBfCxO/q/J+ajkGO9WhtMtQjie6x9cHYEGDavGQTdXwTX vOJ/XDwjMGZYtdmdsQQK7M73NAaH4UYUC4VhcgkW3PezexQNg0jZStT/5JfB XSWP3Kk7DD3TtzmW65bBqy3TMNFvCPT2OihIUK+A4mGb7gb9IVDfti8SNlmB lSQxu1X+IdA+86SYu2AFbtmm3blQOghqFuu6eparsDQto3+kZQDIz4QXafv+ geeb3MuJ9gPQbng9UUJzDVb8JT1XqQYgdeOs5nzBGpiXL3Uefd0PXi2nTa5T rcP/AeHYqo0= "]], LineBox[CompressedData[" 1:eJwV1nk4lN8XAPAxBtn3fRszQrakBaXOoSyRkkRJKZEiKZX4Ki3KUqIihCQV LSqhQiWUXSWhRaXsRL93bGOL3/XX+3ye9zz33OXcRcMzwMmbTqPRbHlotLnv wNTS38+Kf0JRhqiw4BQDF2aF8oq/+gkmO5JaSicYWBhWUvJ42S9IsOOPYzMZ mHFv5l3R/l8wmuJt7TDIi1FNq368yfwFxz+xvKpf8OIW3ddTn8V+Q3fZzvxT 7rw40fzalNbzGwyVDv948YCO7SS1kGo7DB9dqGN4ho61eugqs6kd7AK/jqVu pWPK6dKjOq/b4Y7/gJqtMB2XG5TlOSZ1QPr5LDnBEB5c2tSSWFLTAYm67t1v tvCgUejAf/rTHWArvTtHy4wHtWrkV8/b1Qk0vc7UhikaSnsf+PRatwvcf8s9 NYmioZjI2ecG27tgQCzrUN5+GgrlX0tNjeuCiD0W6XkbaUjjqdh9bKQLLrS8 7lqiSsOBNOURw5JuaJW8OFJ5eBZ6Vi/6kkZ1Q/bCveIua2ahvd/6pRC7B2LT PHJeys7CV9PAs92RPTCteqtksngGKpuqZdI39kLZcivXHLEZuCEStFS0qw8y abpHuC3TkJJ/QTFUvh9kja78rc6bhkS3m/961/ZD5m7lCv24aYi5W1/x9lE/ qCakRqavnYbgNWyX48F/4NbayYymt1PgdLwh6I/wILQvPdjKapwEB3a329ZV gyCROC+57Okk2NZOrao6OAjmnqcNq69NwioFbYFbzYMQJ70gm7F7EvQKTiS5 3fgLXyNbh3gnJ4AeJPvdS5GCkn2h0RdNJ8Bt5/3GwiUUCH1UO96jPgF5dlAj 4kiBVr9jX4rABHiq73tWEEHBsboLywW+jEN59ctLjBEKDhet9qg6Pg7hyl5W t99zYDlmmCQ0ceE738SK8T4OnLDKWVVbyoUl1EXjdXxD4FRU5mX5kAudb5+r j6wYggv7P3mMRHBhzQHhydX3hiAi/sA7WMkFRlneo47wYfgja9wZWzAG7g9s 7pjcGIZdIVK5PrfHoODq99QLxcPgHR+TE5gwBl6+/NGLOcMQXqI/qnx0DCqk 3XaH7xgBhWOJ/XdMx8i68yiwzUYhXqfo5WjVKPx0TBQ75jwKa7W7NiQXj8Ky FXp8dQGjwHKKbtn1cBS6xTcPBWaNgrbzUx+f+FGwLrpbXy49BkoV+T/0d42C gIjjac+/Y5Dn7j6jxzsKW7TdSpcJckFzXpj1ovERuG/pNSukyYXZFBo4D47A +pDgE/lbuRDTwZPB+TwCid0ZIYwKLnypvsM8+WgEtMo4h7JSx6FircWjKztH IPj7VO5/z8ZB9FhWgZXrCNRy+aj1H8dB/33HfYn1I3DAUOkAl38CihsP6g2u GIFnqZa+toETEB6qM79QYQSsguI9+20nYVTgralryzAkXr5+s4TUwaDCk8Y9 74ehNyf715WwSTiT+HEiunKY9OvFjhUFk0Ap5k0LPh+GJsdOtxj1KfimG+7V nzwMXnpLNxmOTcFAtp3KtAeZ518tqwNv/YNcFmwSmByCn0X2/sEv/0HRgYDH kSNDsDy+NDGs+R9sNPpRIf2/IaCs7vedF5gBn9svstZ3DsGOByfibvnNwBlO wrD9BxIfpNnatHgW+I6y6u2zhyBxwzVG67pZyD9zbvF/mUPA0REz/O09Cy1R Nlfzrg/B3VbuqcGkWXgo/a0DE4ZAzqJOi396FoZy/vB8PD0EE3xmRcqeNDx5 JqL1/o4hyAocfpd+gIbTK5h1/m5D4Nz2sF0jlIaF/huszVyGILeQJaKTQEP/ JqGLfQ5DsMdPxGNJJQ0f9TzQebhyCJoa2hgOujyo5pZS8liNxKdGOIYN8eAl LcFkrW4O1ElH9IjT6ChxxpQT186B7gvnwm6K0jHZqL6K1sYBleNnc97q0PHL I+3b4585EOV+Zp6wBx0nnz/RgloO7FQNK02qo2Ohtb+XQi4HQq+ecF3wlY43 NcsDOTkcSBQ98be4m45rk6o5Dfc4UP8vVOUnDy96/DPju3WLA6Y/Q4I1TXlx 1zab9stJHJC4cdToyW1eDDGapcWe4oCe/NEqyzxePDtMc646wQHruCM7ml7z ovqzEBP+UA4cP3k4hvuNFyUjRo4nHOVAr8eh3pWSDHT4dvMOx5cDpUz/jNoT DOQpDeHecuFAQKaXRKcLH1axCpamLuJAbMi1tNjdfFhjVyx/dSEHHjm+1zE7 yIfZ21xuXzHgwN8ZE4vYaD68vvL2jeQFHNi/TTjQ9CUf1g8WO33Q4ICvTN6n GA1+bDCLDf8txYE9EbOJSwf4se/uMRk/LgUR25ewf43zIz19g/q7UQqylux7 fJ5PAMvjc/mMyTnU1d5Y1aYmgNH/2tYzOBR4QdZ49EYB5H/tu7y2nwLP8XVu P58JYPUD1a8tPynY4ZuiGnl6HlZ5/3etoZqCqa+C7zkX56HB4/DC81UUJK8N CXNPmYe2j6tpNpUUfNTZ0rYofx7GlM7/V/GGgjU9sje/d87DG21fTH6UULDA 67Kmsa0gKlW98vJ/SsHI9ii9H2JCGN9WdnvqFgWX3nFbbZSFsMnH5N1wJgUG K31i8rSF0OOO06PBmxTsUbEejEQhFCxZFNt9g4Kv33gfGwcKYQJjIGAglZzT rieNo5qFUA+iF1gnUBC9MchscZow5nYxRdXIuXylXnd/zj1hZDd+TVp6joI0 m7b0+c+F8VW/TPn6sxTkrrRlKDQK45jOh95zZyj4skDpw7SACJ6P7dIVOEmB Dr3Eq/KwCD767DrkFExBZR7fpa32oqiW42U17UdBg0FxeeMWUdTdxrawJP52 98Co/R5RfPcn4Fy0LwV/0z+7rTotinYvlv1U3keB3IV789nPRfG3HjNuwx4K vHc7vBhgiaFuXcYQtZMChszV7pOTYjhhwKkUcaVA6m+YmJSAOFoI74o87UKB RvXeZbelxXH1GFuPu5mCVcfNI6r1xVHud7pclzMFIZ0d8yU9xNEsrXNTnRPJ X2DsnflGHGstV2qWrqdgQLf3kKe1BDYLS5yzsCHrIf/j3IN1EpjR8WLsgzVZ b0bjtREnCVwQ68/0IBZqe1EW4SGB2bUySSetKNCOj5N8ECyBfsF2VPVqUj9T y54M35fAb70tG44jBZ/rzlFnxSXxuZCa/I7lFCSsum61WU4S1S8FJk2YUeD0 pCBlvqokfskxqbpK/D6xY02lriQ60fWNGkzJ/O6yuCZgLYn+VA+fgwkFz7jT FuePS6Ixv1uRN7mHE9lH4uP6JPFM+M6jwgspcE680OtBSeKp/OqcYkMyX4K3 VhpxJTH6adBBX+LYvx97GhhSOONfnlxnQPZL0UJzKaYUvjJ2dErQpyBow5/O BBcpvJr7NHmVLgWbQz2XpbyRwrhT5lbUfJLvugw/t0YKwTI3Np+45XVl86YG KQw1MFx+jNiFoXdU9IcUBkhXFMxqUrDl4nD+qTEpdEqma8sSu904u8hngTTO nsHgjSwKdr7J0l8SJ43h35QrhdUpyOjaMn3pqjRG9W3T/6ZGwW8B4frBVGlM Nz3UfpfYc12AX/ZdafSZkDK3Id7dbHJfqVwaT1hqJUWqkv3RU63NMyqNWyLb wuRUKNgv/If13k0GfXbyfdxH3jF/QooZwrtkUMVpVNyS2Lc3utvGRwZtzYMu KhH7VOjcLzssg6/o1y3rFUi+k3sWPY2RQWh7fd6YeOvwb0grkcE2O/9VQvIU WLd+cfdlyWLcWan8DhmK3Mt3V2XryOKujiqxN8RrCo8xOw1lUXJZ6fVMYour cp3bV8ji2nlLnT2JzTc4+210lkVZHT+lTmkKjN98CDGNkMUJ9QtVlBQF6g8q E/n7ZbFb+cs1fUmyvjcKi2opWUzSCooQJz4ff/97LFcWp7JP3x6SIPUbGsuS 55PDr3Wxh4uIa9e5PNJmymFq/S7ntcRBf7sqbF3kcLVl+ddD4hS8W8Q3er5c Dv2n7Vo6RCmga3HlN9TIob2mnGs9salS33LpBjl83VA+W0CcSX93KvWHHFbd zK2KIA7+lCCSMy6HybqRuvrEmkc1Nd8ZyqP9zzZ6mAgFoYWrN4mnymOifbmd uTAZn3sD5XFTHp9Hh8fpEvfPusfmZssjo2YTpUDsZhNUs7FAHpX5AvjGhChY 3nIXEt7JoxSrNPgJ8fiwqL4iTQHnZSzcYUActPALg+2tgL/a1PhMBSkw/OSV edhPAVe8OvzfAuLuIA68PaSAykUV/MrEm0uEQr3DFNBwzYfdM/MoWOKwkpOd pIBrOqL0KomHfTN/6NcqILu/sXEr8cGs/c+WLVTEl82/rl4SoODnB+WrYssU 8euOl/fCiR0mag93myti/Zqnn4KIddctWJRop4gf/vPZt524k9P1YNRbEVPU niXpEbuu9LhZkEbaM5X6VcdPzqumjTHGQkpo5ko3UCbO+UfzE5JUwu32j15L ECtr565tl1dCcf2FXvzE4yFiAlfmK6HKlaXtHD4K8tTrTnNQCaVPCT6uIZ7v t+ZY7jElPJesFHicWIRu4mnYpYSCO92/DTIoKDrGu6n7jxLe/bIpqYt4z+CH 1elDSnj5mo7nD+LSL3vni9GUcbhRROMd8eHHKb2DSsq4ps7c4iHxN/eZAw8d lbGx/jo3gPju84pQ/ZfKeHqcP3uGl8yvwZX9neXKWLrJcZRLTL+1Y3tajTK2 LmlazyF2j+WuEvmsjLIGyO4kFvdeQB/gKGOsR8aGWuIgqYtRD7RVMPFJZlYy sZW/81XdeBUsdn7fZE585MoLWsA1FYwYY1aYEN9+ztqff0MFTbN3vDKey0fn WJrnqOBo9r4KHeLSxIuUQ4UKPozwMZYlXl5aaX+Iq4JLJWOO/o9O6kXajF64 TRVrPMMd7xFvN83wn96livTDSdp3iGO2C3zFvaroomDAd5P4T3bz45ojqvj5 YMGnZOK75oHbWy+qosmE4qsoYvaeB4Uzr1Vx2cW7hfuIFYpUA6w01RCrdCSN iGd2ZytL6qnh8z/r3fWJO8UWVX9fpIbl/q8e6hDneq3ROAJqyBq33a1BbCPh 9ynTTQ2NZEfkpYmDfApNaJfV8EjprXQuDwXNsptoL/6poXOQ3o+3xMWl33Mi GOoYGsD4WUac4bdnq5OwOuqc43SUEO8vC8nrU1DHvze6ZgqJGf4ZXgpL1NFw zObgQ+Ilbwerj/qq40XqmVkS8ZXAqMtGn9WRflnR6ADxZH1OYdQPdfwd1jHg R+yp/bHtV4c6NndZPNxHvPi7ouFlSh2jQ++YehP3Z27uGmcwUdbSL8SdOEak 5/RWNSbWtyxItyd+3yb4QmkjE4c9hjboE9NF095bOzNRP3jsiC7xsuWG7YGu 5D9/f5oOcXqCk2DddiZumYgZ1SQOWJvqGurLxJQOixpVYol8/ZHWcCZu7js+ Jk7sFLHB4PozJobL2duN0ch7cCu1tqiItM/cWz9CPKF/eU/zSya2BTQ7DhNn fGq8IfqGibQLV3ZSxINMF6mwD0ysiV6c2k8c9cKdu6OXiSfsBf9rIy6h9pUx lTSworS1spZY6q3QT3NVDVztdySmhtg76cHkFqYGnro7sqmaWGTV4OLLWhqo K5bRW0G89cLBLJ7FGmja76hTRjwy/9iFdnsNhCdpM8+Jdbed3Xz7hAbm/asf zpqLP/RMinFaA32EBFvvzPUnsvfD7rMamOKs+vY2cVf+Ojv2BQ2MNi9PzZwb j4gsZCZrYGxx9s50YtmSOzoZ+RrYqmK1KpGYplE1ldqngXzMniWRxAtNJgqn BjSwiB61MYJ4h4Ne0DZKA/evzw44R/wiJI5S4mrgC3nX3HDioEbXrmsMFhao Llt9ivhPeO/7JHUW0pqbckKIW7oFM+M3s3CDXehJf+JK5+i0oi0sFEm78Wk/ 8bPyeUlt21h4MfejzpwT0wVi9DxZuD1iS4sv8WYXvqA3B1jovfTNyr3ETRU0 u+FIFsYeyjbfTdx4m8txKmZhdDcPtZW4XOrYQPArFhrrffOcc96pse70UhZO z8S1bCG+4j7a2l/Jwo/dsaWuxBtlhivOfGKhgXFB+mbihvC/1/IGWMiz89iZ jcTvPbsspNTZuD9IrW0t8W9G9vhVFhtPrS/ZPueRrL2PFbXY2PEaf9gSK/75 o6JhwMbYlT0/bYi9Dg9xF65go0Nn3IAV8WT47EMHVzY+iaQbWRJr3VFUio5j I9+aSIcVxGY2rQ0i8cTOD7qWE6/rS4u8lMhGmv25sDkfMmCOJl1nY9zo5jwz 4pdPtRqyHrBRe8CGZUrsVLk44m0VG33rPFlL5+pv76i5bR0bD6Y4VywhDhZ6 Plz3no3/2923d87X1y/f9amZjXsDuU8WE/e2oHl7BxuPlETYG8/1N5g+7N3D xvMJh4YXEYsqv73X189Gu8djqXM29rCR53DYWBta99eI2IpH8P2RUTZmyyle m/OWW7Vnx8fZuLN6evWcfa1iVhyfZqP0+aP/W0h8osdhaHaWxLucSZ3z/wEH o47W "]], LineBox[{{-0.00301690011189797, -1.6250994998815973`}, \ {-0.0029872068745316264`, 2.6225758422407037`}}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{-10, 10}, {-1.6250994998815973`, 2.6225758422407037`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.50732178594465*^9}] }, Open ]] }, WindowSize->{1010, 582}, WindowMargins->{{18, Automatic}, {Automatic, 23}}, FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (November 13, 2010)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 283, 8, 72, "Input", InitializationCell->True], Cell[843, 30, 520, 15, 33, "Input"], Cell[CellGroupData[{ Cell[1388, 49, 1037, 28, 52, "Input"], Cell[2428, 79, 9702, 165, 255, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12167, 249, 1075, 25, 52, "Input"], Cell[13245, 276, 7288, 124, 247, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[20570, 405, 631, 17, 31, "Input"], Cell[21204, 424, 2812, 88, 115, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24053, 517, 2218, 53, 132, "Input"], Cell[26274, 572, 25338, 444, 343, "Output"], Cell[51615, 1018, 184, 2, 30, "Output"], Cell[51802, 1022, 186, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[52025, 1029, 379, 11, 31, "Input"], Cell[52407, 1042, 14056, 238, 237, "Output"] }, Open ]] } ] *) (* End of internal cache information *)