(* 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[ 239739, 5102] NotebookOptionsPosition[ 173865, 3665] NotebookOutlinePosition[ 233877, 4918] CellTagsIndexPosition[ 233797, 4913] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3d2LHeed4HGzsxczt1Gr68IgsWpsApab4IQoaSywQ5QX6E7QjCS0RIKV xAxOhFk7CVpFYCzsZcA0vshFcC4FuvNC3xmMLmYWFv0B+iNm8v6eyezOy+4+ 6Yc8PKqn6jl16pw+3X3O58M3Qe5zTnVVnb778Tz1n27+17/8m//wzDPPfOfP w//95Y3/9uq3v33je3/1H8N/fOF73/3rm38W/vE/wv/+y18888wf/90AAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAADAEfapV1/56re+uXH2hfKlT376pfBSeEPnB8NLL1++ lP7z2VOnPvOVL4cfxr5462bnBysHbL2tXnxbOIHOV8PPw8nXf8Ur174RqpxA 5dXk7Nbn++4eAAAAAAAAHEGf/PRL//lv//tnvvLl8qWXL18KL6VhXPmpz339 a/E/N86+cPHunfCTnTffiHO39J+t2Vn+qYrwtstvvzVxPhj+0fm28PHQF2/d fPbUqc7jh7OK7zn93HN9JxCaOGSMlznxbQAAAAAAAHB0xFFa+fOdN9+IY7Ly pc99/WtpLrZx9oXLb78VOrv1+fw9n/nKl8N7Lt69kw/phs8HO+eSLfmsMBd+ 4yvXvhEOkq9wzMXRZ+UN8dX6OYTrHThGBAAAAAAAgKMjrsJr/fDZU6fidC/8 f2vwFz+S5oZfvHUz/Ltzj804IsxncIuZD5Yn2RKuK5x2KPyj7wTqCwzT8c0H AQAAAAAAOF7iYsDWgO9Tr74SJ4Odi+zy+V3f8sPo4t07+QxukfPBfJFjLl5U uMB0jZ0nEGejfU8hjDuUxiWW5oMAAAAAAAAcI52PIIz7czb7u4yGyvfHMV/r QYSldJzoKMwHwynF9ZLPnjoV/tE5AYwnEFcIdj7EMF5XnDCaDwIAAAAAAHC8 lGsAL969E0dv8VF9+Yws7hoah2JxPvipV1/pO3Ic0uW/aGHzwTjCa0334r6p aSYYZ4XlBDCeQN/08/Rzz8WDxDeYDwIAAAAAAHC8fPVb38x3AY2bZ8YVheUE MD5wMP574oDssOaD8RLKV1t7iqa9RvtOYOfNN8oBYlqZaD4IAAAAAADAcRQH Xqefey7+Z1whmJ5I2HoM3+W330pzt4HzwXTk4fPBnTffiAO4VvlzEsNplG8L Jx9XDobzbD1UMX4kbi6aX075/MQ0H4zzxNYAMd0B80EAAAAAAACOo9YiwS/e upkP0cJ/ptWFcV1emvENnA+mNwyfD/aVLwmMzwfs7JVr30hDySTuC/ry5Uv5 D+MwsfXm/BeFa88XV+YTQ/NBAAAAAAAAjql8keDlt9/KFwzmywnzhw82g+eD aX/Oua8fbO0gGk+v71fEk2ktKsw3U81PIB05HjMNT/NxofkgAAAAAAAAx1R6 BGH5wMF8gpY/fLA5ks8fDFdRPjEwvZSvBKz8PD+BcKjWhqJpmGg+CAAAAAAA wDGVHhTYemJgdPHunfiQvvzhg00xL+s7bPrPBcwH4/6f5W+JU86dN98IL7UK P2ytK2ydwMuXL8U5YHx8YRo+mg8CAAAAAABwTKVlg1/91jd33nyj9eor175x +e23Wg8fbHqe6JeLjwhM/7mA+WDTs4QwPmewUn4VrROIlxmvJX+b+SAAAAAA AADHV3wEYee8Ly7Ki6+2xmGX336rc9POZn9nztagbTHzwXS2rfMs555JeCm8 oXICabyYr6w0HwQAAAAAAOD4iuvjQme3Pt96KS6gi7VeijuItoZxzf5wMD6s MD/aYuaDzf4SwnyWFyeGlX1Qw0v5qZYnsHH2hfCT1smbDwIAAAAAAHB8xUlf OQGM4kP6OudxcQ4YXorztWdPnQr/iO9vzQ3jTz756Zf6Sm+bcT7YWkIYz7C1 42guDkDjMxaHn4D5IAAAAAAAAMdXnHb1zcVevnypsvov/Pzy22/lj/ML/1mu 16s/ATCNJmefDzZ/Wg55+rnn4janafbXJ58hmg8CAAAAAACwCj756Zfy5+vl ws/Dq5UleOGl8IbPff1rob6RWWXlYL5+MPxj4+wLE882vKfytnjCcT5Yua7O Cxx4AvHIlXsCAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAwOr47smTc2lzfT0e8Pr8DtVpa339tZMnP1hb e3jiRCr852vVD7Z+xZeqv2KqD0518i3haK2PD/lU5x3YnXQHks3il051zhNd PHny/tPnFgo/uTjs6jpt7Z9z65jxS9/qOfny72rg7yrvz/WxZ35+Z/va3Tvf +eEP8i69fnvz3LkRhwofnOVQ4c2xaX91cuHqlXiE5188Wzn+uA7oUOFUp/ps uMbOq+u7FeNq/Yr089Nnzoz6ZiZ8NaXwtu2bN26/v5v/OYW/1XCc+jl89guv znLh4ePjLhAAAAAAgPl68olPzKU0OHt44sS8DtUSfj7x4OENnR9vvW34tGji B8sTGHzv/zjDan28/v4hd+CDtbW+kVk6yMAbPpWN/ct5XD23x/s3cGOaw14/ efLRqC99d22t9baBY77RH8xdev32O3sffv9//X1f9x4+OL+zPeRQF65eqR/q Oz/8wZCxS3r/6BFh+EXxCJ2/rnKGQzqgQ4VTHXGEid9OuhXjat3A9PNrd+8c xFfTuiH1k3/v448qk8rw0iwXPst4GgAAAACAOToW88GNpvmgmNpUur+2Vr/M g5sPTjVOGj4f3OiaW1WqXOBBzAe31tcnTvFSj3pmuOUlT/W3FO5PPnncLC7z 0YDR7bhPPXWEc+fuPXyQz0Te2fswLdF67+OP8pduv79bWa71/ItnW4cKH0+H ak1e6odqnh66jVjA2KzSfHDiLT2g+WDfvZ3xq0mu3b3TOpP051T+pXVOSM0H AQAAAACWw4yzvHLGNPf54EbT7E1/zHAaG/2XeaDzwcef+MTAJXID54Pj7sBu MSSN5j4fvD5p2WBn9Snq1vr6iGPuPf2llxPViXuclt/IVIsHN8+dSxPA8I9r d++U+z2G99x6936amLyz92HntC4/VCh8pHzb+Z3tfFB17+GDyogwH9OEdw6/ qGTIfDC8Z8SROw/VmvSNk+aDQ04s3OELV68MuaXpPbOfYfP0VxP+HkbsMjpx PhiOefv93XwsWI7/wnu2b97IF6uW47w0HzTpAwAAAAA41mac5ZUzpvnOB8eN xsphUOulA50PPtnf5HPIwYfMB2e5A50jwvnOB7eKo437gnKbo4aDsXxEWC4G rO/+Gj7Y+r1TLR7MJ3r3Hj6oPwkuvDkNYsKnWq+Gz+aHqi/3O7+znb+5b7o0 +0qupZ8PJvkt7dzz8+Dmg32/sW7ifDAfSW/fvFE5VPj7yd984eqV/FXzQQAA AACA5fCl9fW+WmOpvf1tIftKQ5mH03yqfqimZ1vRRydOvHbyZJpqhX/cX1tr TXZay74WPB+sDL9yQ+aD97vuQHyQX7wDG/t3YLe4A7HXitOY43ywHKilMVy4 //ExiJvr6+HfnVPj8NnNrl/d+eb4pW9ll1x+6U+KkWi5hLBysTMuHkw7NNbX 8SXhPfEjrRFMk417Bh4qH032TZfS8rQ0+pl2l9HVmQ82T29MWo56D2I+mH81 0+4yWv9qtm/emPbI4W8yrlpt/dx8EAAAAABg6bXGNPW1VzN+qlM5yXpSPGYu yZ9RWI51Fj8fHLLL6MT5YLkCrnIHNouRbudpzHE+WJ7/4/6Z2sWubUjLFY7X i2NWvq/WgynLow1fQjjj4sE4T4mLAYfvDxneWW7zmCZT4VD1RYidn+qcZzXZ /C6NeKbdZXSl5oNNtuauXHB3EPPB/KuZdpfR+leTZsf1lYMtnYcyHwQAAAAA WHqHPh8sF3/1PVMv/0jnexY/H3wyYJfRifPBae9A52akrSWEc5wPlvO++qE6 B76t8eXE8y/Fu9R3ZwYuIZzX4sFyMeC00nPiph3BpCFR5xgoH5Ols53qV6za fLDy2QOaDzbZVzPVLqOVr+b8znaaOc5+quaDAAAAAABL79Dng63x05AVeX0O ZT74ZNIuoxPngyPuQPlAwNZXMK/54MXi5CdOb5uu7VLzMdy0TwxMKrO88pid c9tHT//dTrV4sMlGWlMt++qUVnsNXzwYpUlQ5ywsfylfbDh8l9FVmw822c6f rZ8f3HwwfB0jdhmtfDXX7t4ZsXiwj/kgAAAAAMDSO9z5YDnnuj9g/NTnsOaD 9YlefT5YDrYG3oFyCV7+6rzmg+XJbw04Tv2iypnjVIv4+pRLCFvPPSw3NZ3q 9844hMo9/+LZcZt/Nvu7laaNSctXW2eYxkbDf9HKzgfLMzm4+WCTzeCG7zJa +Wrq39q0zAcBAAAAAJbe4c4HyzFWfS1e3WHNB/tWq0X1+eDoO1AeNp9Rzms+ +MHTQ7fHxeLHPo/6/0LKM98cu/dprhxKtpY6zrh4MA2hptoTsn6ocfOsd/Y+ 7JtbtQ57+syZ9OaBsx7zweRA54PN9LuMVr6atBx1LqdqPggAAAAAsPQOdz44 bnlan4XNB8u1e5W5Xn0++NrYO1CuhssngPOaD47+oisfnLjh6mjlvqZp8jjj 4sFmrkOTNM8ad6g0Jyr3Ji2HUNPuMrpq88G0lnORzx+Mpt1ltPLVzPFmNuaD AAAAAAAr4KjNB8cdJ1rYfDC84YNiFPXoxInOXUbr1zj6DtQngIc+H2zdn3yx XuWlGW0UD3NMSwhnXDzYzHVosn3zxlzmg31zotaoa6pdRldtPnjh6pX42Vvv 3m+9dNDzwWbKXUYnfu8jtqvtZD4IAAAAALD0zAeHfLB8QzmKetLz6MBlmg/u Dn46ZOW65vXHM/D3bq6vl088HLGNbRqaXLh6ZcaTnHH+Mu18cKpdRldqPpjf mfM7261XFzAfbKbZZXTa730080EAAAAAgKVnPjjkg51vKLcG7RzDHev54Ohb eljzwXJuG85kLr8xDU2GbAU58FDj5i+339+ddk40fJfRlZoP3nr3flq+V766 mPng8F1GzQcBAAAAAJiXucwHh9c6/oHOB0c3cD7YeR/KXUbNBxc5Hyx/dbnM c9ytODrzwcqZVOZEA3cZXZH5YPhIutK+i13MfLAZvMuo+SAAAAAAAPNiPjjL fHBzfX3iLqMHNB/cWur54PX9RX8T2+q6qM6tX2cfRx73+eDAXUaHzAfvPXwQ Xh1e58wrzebCbxxe5+auaT4YLjBcWr1rd++kLT3rG8amWzH7Gda/mmbYLqOL nw+G+znVtc/ltwMAAAAAsADmg7PMB5sBu4we0HywPKtlmg+WH++s76IqHx93 H5rjPx9shu0yOmQ+OG1zPFTnHcuva6re2fuw8m3mCwxnPMOJX82QXUYXPx+c trn8dgAAAAAAFsB8cMb5YOfdyHcZtX5w8fPBviWEs+xlugTzwWbALqOLnw/O cf3g8G6/v9u30K+8FQtYP9gM2GXU+kEAAAAAAObFfHD2+WB9l1HPH1z8fLDv CKMXDzbLMh+cuMvo4vcXnfLqOwx5/mB+4RMng9HCnj+Y1HcZ9fxBAAAAAADm ZS7zwdHLsg50Pjh8mDXjfLCp7jJqPjhiPtj5/MG9YipduahyCeEsiwebozQf vPXu/VnmRPVdRofMB+cyh1rwfDC4cPVKWhY35LCLnw/Wdxk1HwQAAAAAYF7M B4d8cMiR+3YZPdbzwdZIbmHzwU7TXtTDsSffKQ1Nzu9sz3KcZub5y+xzosou o0s8HwzqaydbFj8fbKq7jJoPAgAAAAAwL+aDQz445MibxfQqvvNYzwdHf9H3 19aWdT44+9Dk0OeDlV1Gl3s+mJYQvvfxR527nuYOZT7YZEPM1i6j5oMAAAAA AMzLUZsPbs7whLjDnQ92Xk7og/5JWedHBt6BIz4frHxwjiPRjWnO4ejMB9M8 67Dmg03/LqPLPR9spllCeFjzwfyryb+Fid/7vE7VfBAAAAAAYOkd7nzwejEq GjfGig59PtgUG3J2lr9/9CCvPlg8oPngo8Ff9N4088H6mC8pH/I41cnPOB88 v7M99/ngrXfvj/j4vYcP+oZBU83vOncZXfr54PAlhIc1H2yyrybfZdR8EAAA AACAeTnc+WA5xppliHMU5oNbXbuMVqZa5fsHnnZ9WeK85oPjljduFHdsd20t vVoOhS8Ou+Tdpy954rByvvPBqYZQB3qoyjBoqsN27jK69PPBZvASwkOcD+Zf TdpltPLVpJfypaCjmQ8CAAAAACy9w50PNsUgaW9+hzqU+WDTs8toZdVb69Uh a/TKAVzrvs1rPljO8obc1fJTr2WfKkei+fRw+CV/MOlT850Pnj5zJq07m+U4 0ejp2Oa5c+Wiv9Zhh8/vyl1GV2E+mN4fvsrnXzzb97ZDnA82XbuMVr6a2+/v xpcuXL0y+6maDwIAAAAALL1Dnw+W6+BemzTHuX7y5FbXtOuIzAebSbuMtt48 4g7sFh+5//SwbF7zwXIq93jSEsLwkcfFJbc+8qi4P51faK68S9cn3aX5zgeb bN3Z+Z3tGQ+V9giddqCTdp5My8pyI+Z3rV1GV2E+2GSXWdni9XDng02xy2jl q9m+eWOOX435IAAAAADA0jv0+WC51uxJdcPJ+P7HXROlozMfrO8y2nrzxa47 UBl+da5PbA3g5jUfbLoGc3snTvSNCDe6ZqPln0d5CZ1faFLOQx8PeGrh3OeD aW4y+xQmDXTe2ftw+Keef/Hsex9/NN/5XWuX0RWZD+ar8/qWEB76fLC1y2jl qwmX0FpsOAvzQQAAAACApXfo88GmZ7Xd7tpaOfPKf285UTo688Gmusto+eaH PXegdYEXT57se2frgHOcD3bOOh/v34R8QrexP7otVw52/urONYbxmJvFJXf+ eQz5CuY+Hzx95kwaz3Uu3+t06fXb9x4+CJ/tO1RlCVvrI2nVYd+Yadz8Lh+W pYHUcs8HmwFLCA99Ptg8/dXUR8OtxYZDDr557lw4ZrmC1XwQAAAAAGDpzWU+ OKJ8ZrS1vt45V3qy/zC+h/t1vqE1IjxS88GmaxfNvvlg5Q483v9S+u5AvEXl SrpyPjht+V9CZda5t39ulf1U7/c8JbBz1WTrSx9ybhVznw8GF65eSfOaiXO9 02fOhPfku3fmzu9sT3WoNBysPDVv9PwuTZfqy9CWaT44cQnhUZgPNoO/mnyx YfhTqTxXMQp/fmng2Nov13wQAAAAAGDpHYX5YLM/Leqbf1U64vPBviFd55sr I8Lhd2Dirx5e6y+h3OFzSOXCxlzn1rIT2+uah3Y6iPlgk01P4rinbzvHC1ev pHnN93ueM5hPG+89fFA5VBrlhH9snjvXd26jh1D5dGlF5oPNpCWER2Q+OPCr af60HjD9nYQ/1M6FhM+/eDaNreMfXutt5oMAAAAAAEvviMwHm+kHZHsnThzl /UWj+11jtb43h8vpW3LYdwf6ngM49/lgU11F2FnfysHctHPhD9bWBg4HmwOb DzZPz/Xijo7X7t659Prt2K137+cDnfc+/qjySLh89hcPFT6eDnX7/d381fpw sJltfpevp1vkfDAcbUSdZz7L7p3l9ab54LgzbH1TB/3VRM+/eDatM42FP6H0 5xS3us1fDX9s5QwxzQfDX+OIC+8chQMAAAAAcKQcnflgs/9YuiHr1B73zHqO 4Hxwo2uX0fr7O0eKA+9AchDzwWZ/gjnkqw+XPPxxh5vr60O+9HDM61MO+A5u Ptjsr9VK86NKnfOXludfPDuvQ804v8u3slzYfHBc+aFGzweDtJKu/OyQL6VS 6wYe9FeTu/T67Xys3Nk7ex/2HSdfITsiqw4BAAAAAI6++2trD//0uLfQkDVf 5adG1LkrZrS5vv7ayZOdc6jww/BS3wqy1q8YPk6a+MHRR272R3Wtj0/8SN8d eLy/gO56/x1ItopfOm2Vv4Qv7U/0yrln+En4+fDJYOuSw28sn2OYLnnEMVt/ peMOUvfZL7zaWi0Yu/fwwbW7dyY+Ay63ee5c+EhreVc81PbNGwMPFRdwheOM u5zTZ87cfn+3c/nbXI5fHmp0+aHirHbcicXhbKx1k8PRZjnD1g086K+mfH/4 sylHnO99/FH4i209cLDlwtUrs1y49YMAAAAAAMxoY38aNW7ktByO+B3Y2j+3 yrR3hM39Yx7ZS+6zee7cZ7/w6lQzwQUcCk6fORP+nCauOgQAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AACAo+8lAAAAAAAAYGXsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAC/d3f/8/JUmSJEmSJEmSJK1I//CPP5IkSZIkSZIkSZIk SZIkSZIkSZIkSUvWP/7ox5IkSZIkSZIkSZIkSZIkSZIkSZIkacn60Y9/IkmS JEmSJEmSJEmSJEmSJEmSJEmSlqwf/0SSJEmSJEmSJEnS6vRTSZIkSZIkSZIk SSvST34qSZIkSZIkSZIkaXX6mSRJkiRJkiRJkqQV6ac/kyRJkiRJkiRJkrQ6 /VySJEmSJEmSJEnSivSzn0uSJEmSJEmSJElanX4hSZIkSZIkSZIkaUX6+S8k SZIkSZIkSZIkrU6/lCRJkiRJkiRJkrQi/UKSJEmSJEmSJEnS6vTLX0mSJEmS JEmSJElakX4pSZIkSZIkSZIkaXX61a8lSZIkSZIkSZIkrUi/+rUkSZIkSZIk SZKk1ek3kiRJkiRJkiRJklakX0uSJEmSJEmSJElanX4jSZIkSZIkSZIkaVX6 zW9+K0mSJEmSJEmSJGlV+q0kSZIkSZIkSZKkVem3v/2dJEmSJEmSJEmSpFXp d5IkSZIkSZIkSZJWpd/97veSJEmSJEmSJEmSVqXfS5IkSZIkSZIkSVqVfv/7 f5IkSZIkSZIkSZK0IgEAAAAAAACr5A+SJEmSJEmSJEmSVqU/SJIkSZIkSZIk SVqV/vCHf5YkSZIkSZIkSZK0IgEAAAAAAACr5H9LkiRJkiRJkiRJWpEAAAAA AACAVfJ/JEmSJEmSJEmSJK1IAAAAAAAAwCr5F0mSJEmSJEmSJEkrEgAAAAAA AAAAAAAAAACwfP4VAAAAAAAAAAAAAAAAAFg6/wYAAAAAAAAAAAAAAAAALJ1/ BwAAAAAAAAAAAAAAAACWzv8FAAAAAAAAAAAAAAAAAJbO/wMAAAAAAABWxv8H lSzq/A== "], {{0, 171}, {2400, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->Magnification[1], ImageSizeRaw->{2400, 171}, PlotRange->{{0, 2400}, {0, 171}}]], "hidefromslideshowgraphic", CellChangeTimes->{{3.4483017593296423`*^9, 3.448301769562791*^9}, { 3.4487297016867533`*^9, 3.448729710294153*^9}, {3.449486136735977*^9, 3.449486146926845*^9}, {3.449490735677544*^9, 3.4494907482045183`*^9}, { 3.473785056790244*^9, 3.4737850735465307`*^9}, {3.485608891427413*^9, 3.485608902078108*^9}, {3.516534228793694*^9, 3.516534238460294*^9}}, Background->None], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["Impact of Slowing Spin on the Trajectory of a Baseball", "Text", CellChangeTimes->{{3.4907103415114117`*^9, 3.4907105742526693`*^9}, 3.4907107229273987`*^9, {3.4907154478687806`*^9, 3.490715454118581*^9}, 3.490715717813267*^9, {3.4907157634524317`*^9, 3.4907157826393175`*^9}, { 3.490861923563155*^9, 3.4908620424606075`*^9}, {3.493737952291914*^9, 3.493737984963789*^9}, {3.4947753576565475`*^9, 3.4947753578127975`*^9}, { 3.4947757145417995`*^9, 3.4947757150574017`*^9}, {3.49849827159943*^9, 3.498498271693179*^9}, {3.5172300342107444`*^9, 3.5172302154810095`*^9}, { 3.517233880408811*^9, 3.5172339606585913`*^9}}, TextAlignment->Center, FontSize->24], Cell[CellGroupData[{ Cell["Haiduke Sarafian", "Subtitle", CellChangeTimes->{{3.485609136120798*^9, 3.4856091511532907`*^9}, { 3.4856091945334663`*^9, 3.485609199379443*^9}, {3.4951031489375*^9, 3.49510314984375*^9}, {3.495106455296875*^9, 3.495106455453125*^9}, { 3.5143083846926413`*^9, 3.514308395249558*^9}, {3.527239091044696*^9, 3.527239102384923*^9}}], Cell["\<\ Pennsylvania State University University College\ \>", "Subsubtitle", CellChangeTimes->{ 3.483202458953512*^9, {3.495105345328125*^9, 3.495105347890625*^9}, { 3.49510644571875*^9, 3.495106448390625*^9}, {3.5143083980990458`*^9, 3.514308409442589*^9}, {3.5272391047749705`*^9, 3.5272391229753346`*^9}, 3.52793342246113*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[TextData[{ StyleBox["Key words:", FontWeight->"Bold"], " Drag Force, Magnus Effect, Time Dependent Spinning Ball, Nonlinear \ physics, ", StyleBox["Mathematica", FontSlant->"Italic"], " " }], "Text", CellChangeTimes->{{3.527239185726467*^9, 3.527239199076601*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["Abstract ", "Section", CellChangeTimes->{ 3.483202458955147*^9, {3.514308340990994*^9, 3.514308352103572*^9}, { 3.5272391387456503`*^9, 3.5272391433657427`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[TextData[{ "A flying baseball in the air not only is subject to gravity\ \[CloseCurlyQuote]s pull it is also subject to air resistance. A spinning \ ball in addition to these two forces experiences a spin-dependent force. We \ consider a practical scenario where the speed dependent drag force not only \ retards the motion it slows the spin as well. The analysis of the kinematic \ and dynamic of the proposed scenario entails solving a super nonlinear \ coupled ODE. Utilizing ", StyleBox["Mathematica", FontSlant->"Italic"], " NDSolve we solve these equations numerically. We compile numeric and \ graphic lists of quantities of interests vs. their comparative counter parts \ of non-retarded case. " }], "Text", CellChangeTimes->{{3.495209008234375*^9, 3.49520915653125*^9}, 3.495209919765625*^9, 3.4952106014375*^9, {3.4952106824375*^9, 3.495210832234375*^9}, 3.514307848543872*^9, {3.514308058576482*^9, 3.514308065607885*^9}, {3.51430841745117*^9, 3.514308419642997*^9}, { 3.5149152616687326`*^9, 3.514915280523456*^9}, {3.514915328702818*^9, 3.5149153375415287`*^9}, 3.514915444638068*^9, 3.527239162656128*^9}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[TextData[{ "\[FilledSquare]", StyleBox["Physics of a projectile in the air; the impact of air resistance \ and the spin\n", FontWeight->"Bold"] }], "Section", CellChangeTimes->{3.527430993109411*^9, 3.527856479633005*^9}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[TextData[{ "We consider a ball projected in the air at an arbitrary initial angle above \ the horizontal. In addition to gravity, the ball encounters air resistance. \ Irrespective of its speed, the drag force (the air resistance) acts in the \ opposite direction of the motion retarding its movement. In Fig 1 a snapshot \ of a flying ball with its instantaneous velocity and the drag force are shown \ with ", Cell[BoxData[ FormBox[ OverscriptBox["v", "\[Rule]"], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ SubscriptBox[ OverscriptBox["F", "\[Rule]"], "D"], TraditionalForm]]], " , respectively. In practice a batted ball also spins; it may spin \ backward (backspin) or forwards (topspin). We quantify the spin by its \ angular velocity ", Cell[BoxData[ FormBox[ OverscriptBox["\[Omega]", "\[Rule]"], TraditionalForm]]], ". We consider a spinning ball with angular velocity vector perpendicular \ to the vertical plane. Hence, a top-spanned ball orients its ", Cell[BoxData[ FormBox[ OverscriptBox["\[Omega]", "\[Rule]"], TraditionalForm]]], " parallel to the ground and inward to the vertical plane. Conversely, a \ back-spun ball orients its ", Cell[BoxData[ FormBox[ OverscriptBox["\[Omega]", "\[Rule]"], TraditionalForm]]], " parallel and outward to the ground. Figure 1 displays a top-spinning \ (clockwise rotating) ball. The cross at the center of the ball represents \ the tail of the ", Cell[BoxData[ FormBox[ OverscriptBox["\[Omega]", "\[Rule]"], TraditionalForm]]], " arrow piercing the xz-plane. For the chosen scenario, the spinning ball \ is subject to an additional force; a spin-dependent force, namely the Magnus \ force [2]. This force is in proportion to ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox[ OverscriptBox["F", "\[Rule]"], "M"], "~", " ", OverscriptBox["\[Omega]", "\[Rule]"]}], "\[Cross]", OverscriptBox["v", "\[Rule]"]}], TraditionalForm]]], ". Accordingly, this force also lies in the vertical plane making the three \ active forces namely, ", Cell[BoxData[ FormBox[ OverscriptBox["w", "\[Rule]"], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SubscriptBox[ OverscriptBox["F", "\[Rule]"], "D"], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ SubscriptBox[ OverscriptBox["F", "\[Rule]"], "M"], TraditionalForm]]], " a trio coplanar. For the given scenario the ball stays in the vertical \ plane, and therefore, the analysis of the problem becomes two-dimensional. " }], "Text", CellChangeTimes->{ 3.527431066110871*^9, {3.5274363825234737`*^9, 3.5274364265239143`*^9}, { 3.5274364609842587`*^9, 3.527436484354492*^9}, {3.527931110814128*^9, 3.5279311124541283`*^9}, {3.527931211772128*^9, 3.527931218182128*^9}, 3.52793333305851*^9}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[BoxData[ GraphicsBox[{LineBox[{{-1.5, 0}, {1.5, 0}}], LineBox[{{-1., -0.5}, {-1, 1.8}}], ArrowBox[{{1.5, 0}, {1.6, 0}}], ArrowBox[{{-1, 1.8}, {-1, 2.}}], InsetBox["x", {1.7, 0}], InsetBox["z", {-1, 2.1}], {GrayLevel[0.5], DiskBox[{0.2, 1.}, 0.3]}, LineBox[{{0.2, 1.}, {0.2, 0.5}}], ArrowBox[{{0.2, 0.5}, {0.2, 0.4}}], InsetBox["w", {0.2, 0.3}], {Dashing[0.01], LineBox[{{0.2, 1.}, {0.8, 1.3}}]}, ArrowBox[{{0.8, 1.3}, {0.9, 1.35}}], InsetBox["v", {1., 1.4}], LineBox[{{0.2, 1.}, {-0.2, 0.8}}], ArrowBox[{{-0.2, 0.8}, {-0.28, 0.76}}], InsetBox[ SubscriptBox["F", "D"], {-0.4, 0.72}], LineBox[{{0.2, 1.}, {0.35, 0.63}}], ArrowBox[{{0.35, 0.63}, {0.378, 0.56}}], InsetBox[ SubscriptBox["F", "M"], {0.408, 0.47}], CircleBox[{0.2, 1.}, 0.5, {0.942477796076938, 3.204424506661589}], ArrowBox[{{0.4677, 1.407}, {0.542, 1.348}}], InsetBox["\[Omega]", {-0.111, 1.489}], InsetBox[ StyleBox["\<\"\[Cross]\"\>", StripOnInput->False, FontFamily->"Times", FontSize->Large], {0.207, 1.01}], {GrayLevel[0], CircleBox[{0.2, 1.}, 0.05]}}, GridLines->{{-1.5, -1., -0.5, 0., 0.5, 1., 1.5}, {-0.8, -0.6000000000000001, -0.4, -0.2, 0., 0.2, 0.4, 0.6000000000000001, 0.8, 1., 1.2000000000000002`, 1.4000000000000001`, 1.6, 1.8, 2.}}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[TextData[Cell[BoxData[{ FormBox[ RowBox[{ SubscriptBox[ OverscriptBox["F", "\[Rule]"], "D"], "=", RowBox[{ FractionBox["1", "2"], SubscriptBox["C", "D"], "\[Rho]", " ", "A", " ", "v", " ", RowBox[{"(", RowBox[{"-", OverscriptBox["v", "\[Rule]"]}], ")"}]}]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ FractionBox["1", RowBox[{"m", " "}]], SubscriptBox["F", "D"]}], "=", RowBox[{ RowBox[{"f", "(", "v", ")"}], " ", SuperscriptBox["v", "2"]}]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"f", "(", "v", ")"}], "\[Congruent]", RowBox[{ FractionBox["1", RowBox[{"2", " ", "m"}]], SubscriptBox["C", "D"], "\[Rho]", " ", "A"}]}], "=", RowBox[{"0.0039", "+", FractionBox["0.0058", RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"v", "-", SubscriptBox["v", "d"]}], "\[CapitalDelta]"]]}]]}]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ SubscriptBox["v", "d"], "=", RowBox[{ RowBox[{"35", "and", " ", "\[CapitalDelta]"}], "=", RowBox[{"5", " ", "both", " ", "in", FractionBox["m", "s"], RowBox[{"units", "."}]}]}]}], TraditionalForm]}], "Input", CellChangeTimes->{{3.527240230122816*^9, 3.527240269793213*^9}, { 3.5272618754168525`*^9, 3.527261885276951*^9}}, FontSize->24]], "Text", CellChangeTimes->{3.527431182813205*^9}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], Thickness[Large], LineBox[CompressedData[" 1:eJwV1nc81P8fAHBRRgrZmdmy551V7xfinLtDRqGMREWhITtkpUjSIJVZChFS Wd8GGuqcrYvSHaWyM1vye//+usfz8Xl/Xvd+vcfr9VHwC3UO4OTg4PBfw8Hx /9+l4fY25fS67T0lDolR2WzUly8ZZcnMRlmbfAwisEGs00+SWYxc2y1ZYdjh TuXvuJi1aP3oSeOj2JumJbJ/vWtB81+9XxzA/tTsELrwrgd1SPpEuWDbKo9/ /PFuBFHDuJU0sW85ObjXhIyi+ibLs+rYa07V9hxd9xmVs/mmVLCb+6NfzRh8 QRNZxMot2Ppn+Gumzn9F+6JfCYpjy4xrJX+3nkTphPI9HNi/3hGvzL6bQ2kN 6Ss9F9mo3oDX987WeZRaf7u7Ezv8PFPDO2Ye5dUkFtOx56yinr2VW0BZeyPN XmKPVzZOlAYsIs/9i1YN2B+Stll5zS+jsCjLB/nYz3StZ9oFVtA+rhc/D2DH nRNpTPBdQd60HO/92BZfRpOJtSso3qr5mQ92Q16y1G23f4hXfybKHbt23Uub hBuryNP7wlMydk+wsoO02BoYp3lf1sRutb5zq7uYC9zfXbSbzGIjvcz735df c8GJsUfh37DzmY915Ga4YCHApOgzdmTw6/og87Xw6pPVxAdsnZzvdK6+tZCj IerSgZ03rrlovI4bdtzMCqnEPnqx2ibvIC8QhZOagrCHh+rPPTvPC4Ic1iEH sCmqzzvHHvBCJmFcxg9btanbw5CDD6onh4M9sIc+zwXTc/mgsmH+Iwnb1sT4 6r/29ZCf6DSvhC3zqWHMT2sjLAdYDDAvsBHH/LHc9p0bYXXrCfE+7M/cGvZ6 ERuBY5+5cyd2pU5e5crzjeBVFtr8Ant7XHRY7m4BkHGf96zF9pE152QkCoKT Rn3zOexu7eHMG5NCcDNpdoGI3UZs/Oq4KgQviwUKDLAfWV4FLuFNEPufwQ5t 7Dw3h7lA4iYI94+OV8T2O/XEjZi4Cd6sSWnYgD1Hz5fpkRCG2zkBRFYmG4ke 8SnnsRaBF3u9TJKwNXhKXjrtFgGn6OLHsdhQPDZy7TB+PuiiF459hBksrXVZ BHhGWRsDsdt2xGY4fREBbtHvkQ7YYbLXQq6dEYU7m9p4JbF7GT0GmnQx0Bml D98+z0bfAsUdw1hi8CnUOi4f+99az8P/LYgBeYuNeA62hjm7xFFWHJ5+f6ub hp14Z0Y0LEQc4oJEeIOwDRI2LDcLSUDJnV5bLexsfdsmBzdJsN7FeFGewUa6 Qx6kbYckgc+wfakYm54c3KsZIwn6aw5tuY7Nzbw8wVskCR+ZJ73SsWPiRqVb JyVhkS0Ydxjb/21CLDF5M4wlibhoYBMCmrZteSAFnsb3Nxen43wEOtsFXkrB vwKHndewj9aPuK0wpeDIzbsJWdjl/OtDBv9Jgb1H8Ms4bPla9/zL9tIwl+Az 5YnNu7r4j3dEGjgN/hZtwn6fq/fsh5AsnBGA4MhzeP96KwTDVWQhaSKtPhjb U0DN57epLNwrGPvpd+7/91P2H+d+WdjlXOdOw2aFrLcQfSgLd5i+lxSwv+34 /JjgIQei8ZsnXp1lo5+zOfdjiuQhO/9sDz92g6bI6upDeVgjplm+msZG0Qcy HZLfyIPh88CT89h/h5KnMublYX15xtggdsJovVin4haQuMBjUIadzLjtwgrb Atbf8v2ssdNvxXdyblYAzdbNjOAzbGRvFCgspqQAzppt4IvN2+bspqatAH4z n287YyePqgxRLBXgy4ILiYgdq0gfuxyoALxrQr6sprJRSKHkP9VGBaC45iRm Yu+8UaNF2aMIojmqw4UpbCSkdT3UK0ARlOzvJV/EZjQl14aGKgIXXtREbPuh 3SaXkxQhzUBBZj+2ldQ/648VipC6ZO2njG2Ua78n9K8ibI/MXS5JZiOJy6Nn L91Ugp/zju+uJrGRpObD5J+lSuATLVyUii3VkhrvVa0E/ckv9oRjy81uPanW qgTfWC9K3LBVqEd9m74pgYZ8eawItuHaFcKooTKkClTYZCSykWOY+GeDN8ow vdGm89hpNnLi/zac06sMO4L8r/tgOxc3vP/7QRkusYp20bB3de3tfDmjDHp7 TPPUsb20Sho9xVTgDVnNdTiBjQ5/1r2Y6KsCSlXEFFvsM67k7T1LKkA4uP4w Xzyebx1DinONKtQa9FvOx7FRlYjrsj6/KpQs+XB+xB7o8a6+KK8KAZFeUI2t vDNMcaedKpShjEo37BZaAXfXNVWYlBU2vXGKjVZsFxkdFmrwW0fihEQsG2WV Rles2KpBVNkDt38x+H1ujjTtnfi5m5r8F2zqi/WW5wPUIIyif6AWO896ywNq phrcfizWQsE2AUrO209qUHiK63pUNBudMC3yaU9Uh7y5q9LPI/H+FQosUDLU QX2GlFGKrcgTm8a4og40EcPP6dhdfbtqeu+qg8ouL/IubJ2jG7iGGerAFEwe +x6Bz39pROmc1FZYaz2xewP2XlGHKekHW6HvZNyxbSfZaMfM7+iQUQ3Y5Zq8 kXKMjaLsLms8n9SAtMoyggZ2VZH2oMiSBuiILljyYUu6+po28GrC4YOZ/14e ZaPJ+hfLXDqaMP55doMl9qXErLBrkZpgdHjkgG4oG42IqYa0bdQCX1qCw8IR fL5Cn8pKSGjBRMvJM53Y1NfuHYFbtGC/oWRBOfaj6HQtQUMt+DM9HeiLfe7T 7LiHuxbULJUHvTmM611Z08GZYi34KUr6lxPERqctdu6TMtEGGHbOlTzERnbe +XNEK22Qv9cwPnGQjQQSJpLcqNpg6L5301PsG60ppVm+2hDXdH/QH7vevnGC +6w2cA+uulcdYKNZd6Xw+ffaMKCz+5NJABt5n1w8R4/RgbDg/lENPzYyq7pW F/dUF9znf/RH7sHr946xMv1aF+pe3a2wxnbgWEvy6dGFg0pWOwWw9zuHvEdf dCFPNZy/xBP3yxiF+IR1enDVzon4xgPXS/mlEktNPWB8bycJuuP+cbBgqjVc DxD1r8wJVzYi/zUVjo3Rg/trBW8QsRlZfQSjBD0Y33npyx8XXC8b+BJundUD 6RbTd0nY0/xhwik39IBHfEn3ojPer2o7om2LHggOxGQWOeH78vNHwuuN+pDE z/Mgh4rzOXZAfExYH24y3qc7YvOOD1ZwSerDq7A6OR7sW0OtA9sV9aGs9/Sx kxRcb59c0XpIwG4Ia3Owx/mmmDKLfPTh1o/esXkS3h/h07oxNfowVvqUwm2N +3/6YlvuI33Yx80xVmeF588V5PmoCb8vMq6/H/vwonPKjxf6INNT9PGJJf4/ pvLQwUF9eB4/Ensc2Eis4HWqK5cBnFsUuPFmG67fmkLD2m4G4ECz8bIwYaPF m1KnDT0NIIH3kcMIEfdzQRVlUx8DEPahT5zBnpw3DdoRaACV0i/Vegi4PzTt X/I8ZQADO3HBNmajdspjgbTbBuCXKEI+YYDv52FvNLJoAJeE+mJ2arGRecW9 wqtXDYEWTlGblWOjwS0VBTbXDQGN/aamYkdeLctfKDAEaqOYpAz2o9OlN5zL DOHVcPhNW1m8Hu6FuQLNhmB1H3nlSLOR+rrLWalsQwi10T2hJslG4j4xCeFa RjBcUsDJsQmfP2F7310tRmBU+vB04ho2Yh5R7Ap6ZQR7K9OrFzjw9+fL3yie bgS+3ePeB7AvRFfI3x3A49WqTexWWUhnZMOnX+NGIKe/vX/dCgsF13R63RQx hoTbq+6HfrLQuKPbns/+xtCsvPzw1TQLjWb47jrOQ4CAlpBU5nsWOjKupai3 gQA1Vkf0DLGXSL+mpoQIYGVGdjnPZKH1XNkpgVIE4Egw5oR3LKQX1Vrnq02A DMOPv/P7WCg2QFXE0YUAnhHWPNadLCS+fbJTs4AAcU+o3AptLGQ3E0H+QiCC M1+1+pZ7LCSlL5fKa0GEpf0kkk0FC00db2vRtCTCFPlhRWA5C2UvCVkcpxDB V1l3R/VdFvqwUqaz6kMEPaJzqdFtFjq24YPI5rNEkFn7u21zPgvlbYVh6hAR tK+ckHS+wEIT+3lP1MWbgN71+Iu+oSw0mb/jv6fJJpA7ucbFPYSFpt8n8Lw9 awKyib+tHYNZaNbx13X2JRMwKL1Qa3YY528+3iZw1wQkKVKPeA6yEKcoXTyw ywRqsxoWo7xZSLLtQqOsginw+Ha5N1NZyEZZgvNMiynUMnIji1RZ6Jsf6a75 K1M4p3bMKkKFhTKKIhxm35pCeNYqoiqzUI8cM8+j3xTYw3z98wos5L35mqHW N1MIswvzNpVloUgB6YDujWbAKVpy76YIC1X8lHst7WEGg8tZodmrn9CmDtXM 6hkzoI9ZXDWr+ISk0+47EQgWkPimKvXkh2GUo2kqJHJwG3y79/2q+spH1C5l aTx/cTvIvz57PIL7IzKVacnSHUDwteOa6s3hISTAVRy2LxHg493ljwt1g0ju tLyFh6olVBWfOtjm9x7xqex95PzKEkaJZtEvhJhIZ9vm+xFeVrC9mAwp7wfQ 8WHhVnsOa8gqeO/MdbUfzcxnuJFzrcFVj3/0TmwfIum+zCNr74Ds9zP820/3 oifz5n+WGTvAl8hVzXmhB4VoGQx2B9iA6k719eVvutHJZanfPodsgLS1Uv/K q24U28IlNR1kA+L6kQcT27pRunu/x/qjNlD6dsNfvyfd6G5y5HuraBtYHhFo tqjtRiMfnjAfZNpAHHfGVue8brTrPOXdlcc2MLoxj2PNkW60bdq/z4PPFtJN CLlUsW4k3kQqbua3BSVPx8IR4W40fUbjqLyALayOfXOKFupG+Qqz/F+EbSEv Ta2sir8b/XONsT4qg8dvD1fW5OxGT5su1qbq2sIRo30Nx2e6kOXZJ1kP3GyB EHqrn/i2C58PSdrGYls47Hpg/sSZLlQ39ULB/5Yt1NX28EaldCHlxyeWGktt wVM8ISM+qQutte8sOFRhCynJH4ey4rtQS2jqXGudLfDqOJ9pi+hC25sWcqJf 2UIs893J0ENdiODcPfJ10hbMC/ToDPsupJ5wLrKFSIKj5M66dJEu1Gx+ex3V jAQNfrfMWjd1Iaflp9n9FiQoLOE1+yvYhSJDFu99syThftJXdHxDF3q915ct QCXBzemBP0fXdaFDpgT7Pb4kSJH/InlgphOVzbGlF9JI0DQTEZbR2Ik0Akyf qgySQDD9yciEeye6oOjwO+kDCTglbM+b7epEC5/8jEeGSeDr2OOf7tKJnnhm VOSPkoBfzOKKoUMncnb6lCMxRYIdey17b1p3oijzlKN8HHbQvPQkmanTiV5v 6laYUrED0ca7zA/cnSjgyaHkumN2kHyP70ZvMwNNB49H2ITZQfdo260TjQwU KXvk8EC4HcxfpfeK1TPQudhQ558xdhDcLpTv+4CBqs3Ct1ikYnu11gmWM9Df R0nNrXl2sE5BLrInh4Gy7+cv9LTawca1hhPDYQz0tLDP/4cYGfZ0u31qNGIg FlXBJ1ySDFzL/11nGTAQx69gjz9SZGCK3OTj1Wcgq508Duu2kEHiF2FhjzYD vVxjRtysQYblt7bDEqoMRPcr4LPcTobcV/O9wxIMNKgcVJV1gAzRxrXsgr8d aOHu6rLuYzI0npGRK33TgcZ22RaebSADnTtxE6m9AzHXnrcbbcLjXWoI3191 oCZfqWtXn5Hhz+NrwvovOlCipLHZSjsZBIfHFxlPO5BQWlDsmw9kqPTcm2P1 sANpHeznCOC0BxNhTjpnUQfar1LBl0ezh9sDzzUfxnSg6BfeQapO9nB+Y87D pOgOlBUg/LbW2R7e8IX4u0R1oObbURlvd9uDSiuX9lJ4BxJVtRNc2WcPA5ma NPLxDvRS9Yuob7g9TLlOjCkHdiANdfktqgX2ECgzd7l8dwf6oXGJUDtrDwda o1cbiTgfOtiIzNuDq6fwpiFCB3oWMu0StmgPDcQvU3+MO1BmLfkY4bc9/L0e xw1GOJ4Zx71GLgo8jw0q7NbrQH7kYIVWcQoYCxqyNmt0oL6DpA19FhTYziM1 byrbgepv/WEvplGA5vZu65V1HYhgHbZsn04Bhe7jJ8fWdqCH7MkNhecpUP9m jbcJdq3cMNE+mwKVF4e4hjk70L3cZ+fzr1PA6/jTS3ocHagwI8WUVEUBu4kq x7nfdHQ2TPBibi8F1v6dvvt5lo54RdJKp/op8PTu3CU77NQajmYrJgXIGv/x V87QUfL0j7HJDxTgG2kqiJimo7hDfRaWYxRQd1lPFZmko+N7r337/pMCn2Li qf5f6chzhxKYy1HhSqPNw8BhOlrp4xVo3UIFaVfa6Z6PdFQYMD1kr0SFa1Jv 2ebYY6kNEZ7qVEjKnfcS+oDjtTvejzKgQknPDcNn7+nonEOsXL0tFR4NbBwy 66ejRvf+v0ahVBg6Fh2YS6cj6eAzDTrPqHDwdXACs5mOMlcPGKe3UEFQg4CC sDmzbWu+tlEherZ8/98mOhp/tK6ssJ0KH3w1PyhgN3Ik5wr3UuHN1OXTxxrw /C8nRCx9ocKvm8cdlR7RUW5TlPETfhqUFppnM+7T0QYHjxopARoUaPZ4HsFO YJloRwjRwIRkFLce+9C6n8p6YjSwDhbuI1XREdExXLRYjgYzNXYPXt6jo4GR 4/Mp+jTY5Sz+q6+MjsTWH6mh7aZBj6lOrP4tOrplfSp61oMG5mv0PnaW0JHB qUzrS3tpUBatWBKC7TBb3c/cRwP9t2hvZTHer4HFX/uP0ODsw22RukV09LM4 3ir6NA2+nb+2apNPR4Pml3pLK2jgOGpR3JCL53fy1g1yFQ3O3xcb2Y+9VPUw YLKaBnPT7dEC2MKKzGX9RzTIS/J86J9DRxReWZn/ntFAu4pkI3aVjpr7Sv17 +2kgX9WVmHqJjuwF6rXDmTS4212iSsBmktqXJIdoIGPSLTuWTUcLjRNp3iwa +DuMrSVhaxfpVX4fx+t3ofnehos43qBleMYUDdgBiiNPsnA8URekO0sDrbVW h45hHzhzsjtskQbvk/0D3l3A8Z6l5kn8pIGKRuvQOezE3zn7G3/T4J7MpaLt 2EJGZVpeKzQ4zpf0aC6TjvKDGxdXV2ngNm0pdQf7f6hugEI= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox[ "\"v(\\!\\(\\*FractionBox[\\(m\\), \\(s\\)]\\))\"", TraditionalForm], FormBox[ "\"\\!\\(\\*SubscriptBox[\\(C\\), \\(Drag\\)]\\)\"", TraditionalForm]}, AxesOrigin->{10., 0}, Frame->True, FrameLabel->{{ FormBox[ "\"\\!\\(\\*SubscriptBox[\\(C\\), \\(D\\)]\\)\"", TraditionalForm], None}, { FormBox[ "\"v(\\!\\(\\*FractionBox[\\(m\\), \\(s\\)]\\))\"", TraditionalForm], FormBox["\"v(MPH)\"", TraditionalForm]}}, FrameTicks->{{{{0.1, FormBox["0.1`", TraditionalForm]}, {0.2, FormBox["0.2`", TraditionalForm]}, {0.30000000000000004`, FormBox["0.30000000000000004`", TraditionalForm]}, {0.4, FormBox["0.4`", TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {0.6000000000000001, FormBox["0.6000000000000001`", TraditionalForm]}}, {{0.1, FormBox["0.1`", TraditionalForm]}, {0.2, FormBox["0.2`", TraditionalForm]}, {0.30000000000000004`, FormBox["0.30000000000000004`", TraditionalForm]}, {0.4, FormBox["0.4`", TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {0.6000000000000001, FormBox["0.6000000000000001`", TraditionalForm]}}}, {{{0, FormBox["0", TraditionalForm]}, {10, FormBox["10", TraditionalForm]}, {20, FormBox["20", TraditionalForm]}, {30, FormBox["30", TraditionalForm]}, {40, FormBox["40", TraditionalForm]}, {50, FormBox["50", TraditionalForm]}, {60, FormBox["60", TraditionalForm]}, {70, FormBox["70", TraditionalForm]}, {80, FormBox["80", TraditionalForm]}, {90, FormBox["90", TraditionalForm]}, {100, FormBox["100", TraditionalForm]}}, {{10, FormBox["\"22\"", TraditionalForm]}, {20, FormBox["\"44\"", TraditionalForm]}, {30, FormBox["\"67\"", TraditionalForm]}, {40, FormBox["\"89\"", TraditionalForm]}, {50, FormBox["\"112\"", TraditionalForm]}, {60, FormBox["\"134\"", TraditionalForm]}, {70, FormBox["\"157\"", TraditionalForm]}, {80, FormBox["\"179\"", TraditionalForm]}, {90, FormBox["\"201\"", TraditionalForm]}, {100, FormBox["\"224\"", TraditionalForm]}}}}, GridLines->Automatic, PlotRange->{{10, 60}, {0, 0.6}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[TextData[{ StyleBox["Figure 2.", FontWeight->"Bold"], " Variation of the drag coefficient for a baseball vs. speed. The lower \ horizontal axis is in ", Cell[BoxData[ FormBox[ FractionBox["m", "s"], TraditionalForm]]], "; the upper horizontal axis is the corresponding speed in MPH." }], "Text", CellChangeTimes->{3.527431229304135*^9}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[TextData[Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{ FractionBox["1", "m"], SubscriptBox[ OverscriptBox["F", "\[Rule]"], "M"]}], "=", RowBox[{"B", " ", RowBox[{ OverscriptBox["\[Omega]", "\[Rule]"], "\[Cross]", OverscriptBox["v", "\[Rule]"]}]}]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"m", "=", RowBox[{"143", " ", "g"}]}], ",", " ", RowBox[{"B", "=", RowBox[{"4.1", " ", SuperscriptBox["10", RowBox[{"-", "4"}]]}]}]}], TraditionalForm]}], "Input", CellChangeTimes->{{3.527240383904354*^9, 3.527240399854513*^9}, { 3.5272619285973854`*^9, 3.5272619310774097`*^9}}, FontSize->24]], "Text", CellChangeTimes->{3.52743124206439*^9}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[TextData[{ "\[FilledSquare]", StyleBox["Formulation of the physics of a batted baseball", FontWeight->"Bold"] }], "Section", CellChangeTimes->{ 3.5274313192059326`*^9, {3.527856486883295*^9, 3.5278564877933316`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[TextData[{ "As we explained in the previous section a batted top(back)-spun baseball \ with its initial angular velocity vector parallel to the horizontal flies and \ stays in a vertical plane. A vertical plane is the one that contains the \ initial velocity vector. In other words, the motion of the ball occurs in a \ 2D space. One such plane with a Cartesian xz coordinate is shown in Fig 1. \ We utilize the active forces depicted in Fig 1 and compose the equations \ conducive to the analysis of the motion of the batted ball. Utilizing Newton\ \[CloseCurlyQuote]s second law we write ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ OverscriptBox["F", "\[Rule]"], "net"], "=", RowBox[{"m", " ", OverscriptBox["a", "\[Rule]"]}]}], TraditionalForm]]], ". This equation explicitly reads, ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"m", " ", OverscriptBox["r", OverscriptBox["..", "\[Rule]"]]}], "=", RowBox[{ OverscriptBox["W", "\[Rule]"], "+", SubscriptBox[ OverscriptBox["F", "\[Rule]"], "D"], "+", SubscriptBox[ OverscriptBox["F", "\[Rule]"], "M"]}]}], TraditionalForm]]], ", where the over double-dots means the second order time derivative. We \ substitute the forces from the previous section yielding " }], "Text", CellChangeTimes->{ 3.5274313575466995`*^9, {3.5279318033883076`*^9, 3.5279318092983665`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"m", " ", OverscriptBox["r", OverscriptBox["..", "\[Rule]"]]}], "=", " ", RowBox[{ RowBox[{"m", " ", OverscriptBox["g", "\[Rule]"]}], "+", RowBox[{"m", " ", RowBox[{"f", "(", "v", ")"}], " ", "v", " ", RowBox[{"(", RowBox[{"-", OverscriptBox["v", "\[Rule]"]}], ")"}]}], "+", RowBox[{"S", " ", RowBox[{ OverscriptBox["\[Omega]", "\[Rule]"], "\[Cross]", OverscriptBox["v", "\[Rule]"]}]}]}]}], TraditionalForm]]], ". Since the velocity stays always in the vertical plane we write ", Cell[BoxData[ FormBox[ RowBox[{ OverscriptBox["v", "\[Rule]"], "=", RowBox[{"{", RowBox[{ OverscriptBox["x", "."], ",", "0", ",", OverscriptBox["z", "."]}], "}"}]}], TraditionalForm]]], ". On the other hand, as we discussed the angular velocity sustains its \ character, meaning, its value and its orientation stay the same. In a right \ handed coordinate system shown in Fig 1, we write ", Cell[BoxData[ FormBox[ RowBox[{ OverscriptBox["\[Omega]", "\[Rule]"], "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{ StyleBox["+", FontColor->RGBColor[1, 0, 0]], "\[Omega]"}], ",", "0"}], "}"}]}], TraditionalForm]]], ". This yields, ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ OverscriptBox["\[Omega]", "\[Rule]"], "\[Cross]", OverscriptBox["v", "\[Rule]"]}], "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ StyleBox["+", FontColor->RGBColor[1, 0, 0]], "\[Omega]"}], ",", "0"}], "}"}], "\[Cross]", RowBox[{"{", RowBox[{ OverscriptBox["x", "."], ",", "0", ",", OverscriptBox["z", "."]}], "}"}]}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ StyleBox["+", FontColor->RGBColor[1, 0, 0]], "\[Omega]"}], " ", OverscriptBox["z", "."]}], ",", "0", ",", RowBox[{ RowBox[{ StyleBox["-", FontColor->RGBColor[1, 0, 0]], "\[Omega]"}], " ", OverscriptBox["x", "."]}]}], "}"}]}]}], TraditionalForm]]], ". The x and the z components of the force equation yields, " }], "Text", CellChangeTimes->{3.527431389487338*^9}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["Equation of Motion", "Section", CellChangeTimes->{{3.5274314436684217`*^9, 3.527431447178492*^9}, { 3.527435666434312*^9, 3.527435673464382*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ OverscriptBox["x", ".."], "=", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"f", "(", "v", ")"}]}], " ", "v", " ", OverscriptBox["x", "."]}], StyleBox["+", FontColor->RGBColor[1, 0, 0]], RowBox[{"B", " ", "\[Omega]", " ", OverscriptBox["z", "."]}]}]}], TraditionalForm]], "DisplayFormulaNumbered", CellChangeTimes->{{3.494263076907425*^9, 3.494263118547784*^9}, { 3.4942646064445114`*^9, 3.4942646283818707`*^9}, {3.517221997349837*^9, 3.517221997787331*^9}}, FontSize->36], "\n", Cell[BoxData[ FormBox[ RowBox[{ OverscriptBox["z", ".."], "=", RowBox[{ RowBox[{"-", "g"}], "-", RowBox[{ RowBox[{"f", "(", "v", ")"}], "v", " ", OverscriptBox["z", "."]}], StyleBox["-", FontColor->RGBColor[1, 0, 0]], RowBox[{"B", " ", "\[Omega]", " ", OverscriptBox["x", "."], " "}]}]}], TraditionalForm]], "DisplayFormulaNumbered", CellChangeTimes->{ 3.4942646320380974`*^9, {3.5172220158496*^9, 3.517222016224595*^9}}, FontSize->36], "\n", Cell[BoxData[ FormBox[ RowBox[{"\n", RowBox[{ OverscriptBox["x", ".."], " ", "=", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", " ", RowBox[{"\[Alpha]", " ", "+", " ", FractionBox["\[Beta]", RowBox[{"1", "+", SuperscriptBox["e", RowBox[{ FractionBox["1", "\[CapitalDelta]"], RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ OverscriptBox["x", "."], "2"], "+", SuperscriptBox[ OverscriptBox["z", "."], "2"]}]], "-", SubscriptBox["v", "d"]}], ")"}]}]]}]]}], ")"}]}], SqrtBox[ RowBox[{ SuperscriptBox[ OverscriptBox["x", "."], "2"], "+", SuperscriptBox[ OverscriptBox["z", "."], "2"]}]], " ", OverscriptBox["x", "."]}], StyleBox["+", FontColor->RGBColor[1, 0, 0]], RowBox[{"B", " ", "\[Omega]", " ", OverscriptBox["z", "."]}]}]}]}], TraditionalForm]], "DisplayFormulaNumbered", CellChangeTimes->{{3.4942649460673375`*^9, 3.4942651704252768`*^9}, { 3.49426521912809*^9, 3.4942652208780785`*^9}, {3.494265253362246*^9, 3.4942652590653343`*^9}, {3.497010679422233*^9, 3.4970106883428087`*^9}, { 3.5172220294900503`*^9, 3.5172220313494015`*^9}}, FontSize->24], "\n", Cell[BoxData[ FormBox[ RowBox[{ OverscriptBox["z", ".."], " ", "=", RowBox[{ RowBox[{"-", "g"}], " ", "-", RowBox[{ RowBox[{"(", " ", RowBox[{"\[Alpha]", " ", "+", " ", FractionBox["\[Beta]", RowBox[{"1", "+", SuperscriptBox["e", RowBox[{ FractionBox["1", "\[CapitalDelta]"], RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ OverscriptBox["x", "."], "2"], "+", SuperscriptBox[ OverscriptBox["z", "."], "2"]}]], "-", SubscriptBox["v", "d"]}], ")"}]}]]}]]}], ")"}], SqrtBox[ RowBox[{ SuperscriptBox[ OverscriptBox["x", "."], "2"], "+", SuperscriptBox[ OverscriptBox["z", "."], "2"]}]], OverscriptBox["z", "."]}], StyleBox["-", FontColor->RGBColor[1, 0, 0]], RowBox[{"B", " ", "\[Omega]", " ", OverscriptBox["x", "."]}]}]}], TraditionalForm]], "DisplayFormulaNumbered", CellChangeTimes->{{3.494265190831396*^9, 3.4942652863932843`*^9}, { 3.497010696982549*^9, 3.4970107256671114`*^9}, {3.517222046724205*^9, 3.5172220475054445`*^9}}, FontSize->24] }], "Text", CellChangeTimes->{3.527431467328895*^9}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[BoxData[ RowBox[{"values", "=", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", "0.0039"}], ",", " ", RowBox[{"\[Beta]", "\[Rule]", "0.0058"}], ",", RowBox[{"vd", "\[Rule]", "35."}], ",", RowBox[{"\[CapitalDelta]", "\[Rule]", "5."}], ",", RowBox[{"\[Rho]", "\[Rule]", "1.23"}], ",", RowBox[{"R", "\[Rule]", RowBox[{"36.4", " ", SuperscriptBox["10", RowBox[{"-", "3"}]]}]}], ",", RowBox[{"m", "\[Rule]", "0.145"}], ",", RowBox[{"g", "\[Rule]", "9.8"}], ",", RowBox[{"B", "\[Rule]", RowBox[{"4.1", " ", SuperscriptBox["10", RowBox[{"-", "4"}]]}]}], ",", "\n", RowBox[{"\[Omega]0", "\[Rule]", RowBox[{ RowBox[{ StyleBox["+", FontColor->RGBColor[1, 0, 0]], "1800."}], " ", FractionBox["\[Pi]", "30"]}]}], ",", RowBox[{"\[Alpha]0", "\[Rule]", RowBox[{"(*", RowBox[{"100.", " ", FractionBox["\[Pi]", "30"]}], "*)"}], "0."}], ",", RowBox[{"v0", "\[Rule]", "37."}]}], "}"}]}]], "Code", CellChangeTimes->{{3.527431596840613*^9, 3.527431615740802*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[BoxData[{ RowBox[{"v", ":=", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"x", "'"}], "[", "t", "]"}], "2"], "+", SuperscriptBox[ RowBox[{ RowBox[{"z", "'"}], "[", "t", "]"}], "2"]}]]}], "\n", RowBox[{ RowBox[{ RowBox[{"f", "[", "v_", "]"}], "=", RowBox[{ RowBox[{"\[Alpha]", "+", FractionBox["\[Beta]", RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"v", "-", "vd"}], "\[CapitalDelta]"]]}]]}], "/.", "values"}]}], ";"}], "\n", RowBox[{ RowBox[{"\[Omega]", "[", "t_", "]"}], "=", RowBox[{ RowBox[{"\[Omega]0", "-", RowBox[{"\[Alpha]0", " ", "t"}]}], "/.", "values"}]}], "\n", RowBox[{ RowBox[{ RowBox[{"eqx", "[", RowBox[{"\[Alpha]D_", ",", "\[Beta]M_"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "''"}], "[", "t", "]"}], "+", RowBox[{"\[Alpha]D", " ", RowBox[{"f", "[", "v", "]"}], " ", "v", " ", RowBox[{ RowBox[{"x", "'"}], "[", "t", "]"}]}], StyleBox["-", FontColor->RGBColor[1, 0, 0]], RowBox[{"\[Beta]M", " ", "B", " ", RowBox[{"\[Omega]", "[", "t", "]"}], " ", RowBox[{ RowBox[{"z", "'"}], "[", "t", "]"}]}]}], "/.", "values"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"eqz", "[", RowBox[{"\[Alpha]D_", ",", "\[Beta]M_"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"z", "''"}], "[", "t", "]"}], "+", "g", "+", " ", RowBox[{"\[Alpha]D", " ", RowBox[{"f", "[", "v", "]"}], " ", "v", " ", RowBox[{ RowBox[{"z", "'"}], "[", "t", "]"}]}], StyleBox["+", FontColor->RGBColor[1, 0, 0]], RowBox[{"\[Beta]M", " ", "B", " ", RowBox[{"\[Omega]", "[", "t", "]"}], " ", RowBox[{ RowBox[{"x", "'"}], "[", "t", "]"}]}]}], " ", "/.", "values"}]}], ";"}]}], "Code", CellChangeTimes->{3.5274316636912813`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[BoxData[ RowBox[{ RowBox[{"tab\[Theta]", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Theta]", ",", RowBox[{"solxz", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"eqx", "[", RowBox[{"\[Alpha]D", ",", "\[Beta]M"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"eqz", "[", RowBox[{"\[Alpha]D", ",", "\[Beta]M"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"x", "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"z", "[", "0", "]"}], "\[Equal]", "0."}], ",", "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "'"}], "[", "0", "]"}], "\[Equal]", RowBox[{"v0", " ", RowBox[{"Cos", "[", RowBox[{"\[Theta]", " ", "Degree"}], "]"}]}]}], "/.", "values"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"z", "'"}], "[", "0", "]"}], "\[Equal]", RowBox[{"v0", " ", RowBox[{"Sin", "[", RowBox[{"\[Theta]", " ", "Degree"}], "]"}]}]}], "/.", "values"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", RowBox[{"z", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0.001", ",", " ", "10."}], "}"}]}], "]"}]}], ",", "\n", RowBox[{"First", "[", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"First", "[", RowBox[{ RowBox[{"z", "[", "t", "]"}], "/.", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"eqx", "[", RowBox[{"\[Alpha]D", ",", "\[Beta]M"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"eqz", "[", RowBox[{"\[Alpha]D", ",", "\[Beta]M"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"x", "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"z", "[", "0", "]"}], "\[Equal]", "0."}], ",", "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "'"}], "[", "0", "]"}], "\[Equal]", RowBox[{"v0", " ", RowBox[{"Cos", "[", RowBox[{"\[Theta]", " ", "Degree"}], "]"}]}]}], "/.", "values"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"z", "'"}], "[", "0", "]"}], "\[Equal]", RowBox[{"v0", " ", RowBox[{"Sin", "[", RowBox[{"\[Theta]", " ", "Degree"}], "]"}]}]}], "/.", "values"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", RowBox[{"z", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0.001", ",", " ", "10."}], "}"}]}], "]"}]}], "]"}], "\[Equal]", "0."}], ",", "\n", RowBox[{"{", RowBox[{"t", ",", "4."}], "}"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "10", ",", "90", ",", "5"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"\[Alpha]D", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Beta]M", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";"}]], "Code", CellChangeTimes->{{3.5274317437020817`*^9, 3.527431770632351*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"n", ",", "m", ",", "k", ",", RowBox[{"tab\[Theta]", "\[LeftDoubleBracket]", RowBox[{"n", ",", "m", ",", "k", ",", "3"}], "\[RightDoubleBracket]"}], ",", RowBox[{"tab\[Theta]", "\[LeftDoubleBracket]", RowBox[{"n", ",", "m", ",", "k", ",", "1"}], "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{ RowBox[{"x", "[", "t", "]"}], "/.", RowBox[{"First", "[", RowBox[{"tab\[Theta]", "\[LeftDoubleBracket]", RowBox[{"n", ",", "m", ",", "k", ",", "2"}], "\[RightDoubleBracket]"}], "]"}]}], "/.", RowBox[{"tab\[Theta]", "\[LeftDoubleBracket]", RowBox[{"n", ",", "m", ",", "k", ",", "3"}], "\[RightDoubleBracket]"}]}]}], "}"}], ",", "\n", RowBox[{"{", RowBox[{"n", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "17"}], "}"}]}], "]"}], ";"}]], "Code", CellChangeTimes->{{3.527431796442609*^9, 3.527431800872653*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"tab\[Theta]", "\[LeftDoubleBracket]", RowBox[{"n", ",", "m", ",", "k", ",", "1"}], "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{ RowBox[{"x", "[", "t", "]"}], "/.", RowBox[{"First", "[", RowBox[{"tab\[Theta]", "\[LeftDoubleBracket]", RowBox[{"n", ",", "m", ",", "k", ",", "2"}], "\[RightDoubleBracket]"}], "]"}]}], "/.", RowBox[{"tab\[Theta]", "\[LeftDoubleBracket]", RowBox[{"n", ",", "m", ",", "k", ",", "3"}], "\[RightDoubleBracket]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "17"}], "}"}]}], "]"}], ";"}]], "Code", CellChangeTimes->{{3.527431825562901*^9, 3.5274318339429846`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[BoxData[ RowBox[{ RowBox[{"tabplottab\[Theta]range", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"tab\[Theta]", "\[LeftDoubleBracket]", RowBox[{"n", ",", "m", ",", "k", ",", "1"}], "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{ RowBox[{"x", "[", "t", "]"}], "/.", RowBox[{"First", "[", RowBox[{"tab\[Theta]", "\[LeftDoubleBracket]", RowBox[{"n", ",", "m", ",", "k", ",", "2"}], "\[RightDoubleBracket]"}], "]"}]}], "/.", RowBox[{"tab\[Theta]", "\[LeftDoubleBracket]", RowBox[{"n", ",", "m", ",", "k", ",", "3"}], "\[RightDoubleBracket]"}]}]}], "}"}], ",", "\n", RowBox[{"{", RowBox[{"k", ",", "1", ",", "17"}], "}"}]}], "]"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"n", "\[Equal]", "1"}], "&&", RowBox[{"m", "\[Equal]", "1"}]}], ",", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"n", "\[Equal]", "1"}], "&&", RowBox[{"m", "\[Equal]", "2"}]}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}], ",", "\n", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"n", "\[Equal]", "2"}], "&&", RowBox[{"m", "\[Equal]", "1"}]}], ",", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}], "]"}]}], "]"}]}], "]"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\!\(\*SuperscriptBox[\(\[Theta]\), \(\[Degree]\)]\)\>\"", ",", "\"\\""}], "}"}]}], ",", "\n", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotLabel", "\[Rule]", " ", RowBox[{"StringJoin", "[", RowBox[{"\"\<{\[Alpha]D,\[Beta]M} =\>\"", ",", RowBox[{"{", RowBox[{ RowBox[{"ToString", "[", RowBox[{"n", "-", "1"}], "]"}], ",", RowBox[{"ToString", "[", RowBox[{"m", "-", "1"}], "]"}]}], "}"}]}], "]"}]}], ",", "\n", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "90"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "180"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "1", ",", "2"}], "}"}]}], "]"}]}], ";"}]], "Code", CellChangeTimes->{{3.5274318625932713`*^9, 3.5274318896135416`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[BoxData[ RowBox[{ RowBox[{"interpolate\[Theta]range", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Interpolation", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"tab\[Theta]", "\[LeftDoubleBracket]", RowBox[{"n", ",", "m", ",", "k", ",", "1"}], "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{ RowBox[{"x", "[", "t", "]"}], "/.", RowBox[{"First", "[", RowBox[{"tab\[Theta]", "\[LeftDoubleBracket]", RowBox[{"n", ",", "m", ",", "k", ",", "2"}], "\[RightDoubleBracket]"}], "]"}]}], "/.", "\n", RowBox[{"tab\[Theta]", "\[LeftDoubleBracket]", RowBox[{"n", ",", "m", ",", "k", ",", "3"}], "\[RightDoubleBracket]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "17"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "1", ",", "2"}], "}"}]}], "]"}]}], ";"}]], "Code", CellChangeTimes->{{3.527431907393719*^9, 3.5274319176438217`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[BoxData[ RowBox[{ RowBox[{"tablerange", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"interpolate\[Theta]range", "\[LeftDoubleBracket]", RowBox[{"n", ",", "m"}], "\[RightDoubleBracket]"}], "[", "\[Theta]", "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "10", ",", "90"}], "}"}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", "\n", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "90"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "180"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\!\(\*SuperscriptBox[\(\[Theta]\), \(\[Degree]\)]\)\>\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", " ", "\n", RowBox[{"StringJoin", "[", RowBox[{"\"\<{\[Alpha]D,\[Beta]M} =\>\"", ",", RowBox[{"{", RowBox[{ RowBox[{"ToString", "[", RowBox[{"n", "-", "1"}], "]"}], ",", RowBox[{"ToString", "[", RowBox[{"m", "-", "1"}], "]"}]}], "}"}]}], "]"}]}]}], "]"}], ",", RowBox[{"tabplottab\[Theta]range", "\[LeftDoubleBracket]", RowBox[{"n", ",", "m"}], "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "250"}]}], "]"}], ",", "\n", RowBox[{"{", RowBox[{"n", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "1", ",", "2"}], "}"}]}], "]"}]}], ";"}]], "Code", CellChangeTimes->{ 3.527431940064046*^9, {3.527431971714362*^9, 3.5274319808644543`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"tablerange", "\[LeftDoubleBracket]", RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}], ",", RowBox[{"tablerange", "\[LeftDoubleBracket]", RowBox[{"1", ",", "2"}], "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"tablerange", "\[LeftDoubleBracket]", RowBox[{"2", ",", "1"}], "\[RightDoubleBracket]"}], ",", RowBox[{"tablerange", "\[LeftDoubleBracket]", RowBox[{"2", ",", "2"}], "\[RightDoubleBracket]"}]}], "}"}]}], "}"}], "]"}]], "Code", CellChangeTimes->{3.527431985154497*^9}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[BoxData[ TagBox[GridBox[{ { GraphicsBox[{{{}, {}, {GrayLevel[0], LineBox[CompressedData[" 1:eJwV13k8FesfB3CkhShLEqIjJ7uSJFr44Jw5x044FaUzkj3K0iJKivzkihJC JUuLhCxJtCkkN7IkhbgqpcWNKEvye+5f83q/XjPPMvN8l1F2D9y8W0hAQGCh oIDAf1dx96cGAgJMFGzOLTz/jgNfiStaiWJMyF0z7JwZ5uDp/eMMhhwT6+99 a/IQ4CJKwUQUekwoTmxW1lLk4md7ec9RDyYcDq2zuM7j4i0n58TMUyY25Hco +TVwUaxzpPVP0grcY70tECi0gNPEmoBpFTW4SqYUOQRb4Ytfv0HGKU1E3cu9 YLfODqWXPlnvr9SBpfXpim/2DnA99Mzwpp8uTkVdlvf5vhnREjVnA5fqwWbv l9rv2U7gxu4+Z1+8BifLqt8IqvNQsie/V9BzLfiWd9Xm3N2CSnezWxXS68Du UfOpXrUNLoYxGvG5hujekCgec9AF2Yf9PutuWY9sK4OB0VpXRF367TD6dQP8 F0nn1A5sh0BbH6rDNiFzh/zUwq87oBriedBJ0wQutZnn+r+5YWTS6ka0G3BA dV7yo9qdyAsqN24wNMUV47X28pZ85N6X5C3faIoTE4tTzljxkS0asOewiSlm Xfo1LmLDx8Vs1UwdyhSdsc4yP+34SGlNnUhyJPd/78977MxHjF5YmUuAKeRf bpTUp/nwHDHW/JpjirNZl1T5B/hQC3oqs3ChGQ61hZZPZ/ExIBPku1LKDF8H 9rqoZvNxpVLhgY2MGVqnmQa2OXwwBQO94xXMoBYam5SRxwcjUaZKRN0Msayh Du18PuQL3fnCpmawXf84SaOUjwWff+dPBJkhWkUw5NQTPsbo1XjfYQbzCVPb ofd8JHL913LemOGALUtk4gMfmquuaub3mGFyfKpN6CMf/N9LZfa+N8Nuvm2a 9CAfz1LmfZ4aNgNjsv2Nxjey/8bes9Li5qjbJbNeY4wPam3CRzNzcxzyePwz SJhGn0JDdx5lDhfet7ids2kcFhJunWdpDufVH7St5tAobj5U3WRvDplywfRl 82jI++5OcnEzx4JQc9l782kMXdy4IegQGe+fc4nPpGikzvuScLnIHO8edkiv YtAYoYIfPSsxx3Ke7Ol/iW2jp378KDcHM7F4bZEyjTlCYtuoanNs9aoS1lah ETKlrfLlqTk+tL+6pqBKY/NQQIV+vzniTJz/tGrRWNA+0lu/iAXBnXUfMwxo +EodlhqWZWGfyfUurKNRZz+LLa/AQlduysR74ojn0vn+yizk2UWWahrR+Fqn HyK5koU92+WXFWyg8axy/zxXDgue4o9bYkAj+tKk7tAhFt5eLjuZYUGjmrFI 2DWChbuztq9bbUlj9LLOq/pIFnbMX/Wlltg9lx9x+SQLRq1mO79a0TC+Xtfg dI4F8fz4gzq2NH6WnHGvKmZBvU/YL3IzDR39grXqZSzMvB50meNIw6O8dt65 ChYunsmzPUXcWjFeGHCfhdA58aZnnGgUVrtNKf/NAscj0imZR8OzTjM59iML x3numj4uNC5wWF5jn1lwP2jg3Evc/nTHevchFkSC4o87udIwa0zs2zDGwo+S a583bKeh9OKn9r9CbPzoEO//s4NGx+uaWmclNopmD+x1pmmIu3an1SizcbnX paWKmNU95rdqBRs78n/rK7vTKHmrLiWizca+zluzB4kT3iW4VRux0Sxk+7e/ Bw3ON5dfy53Z8Bu6NsjyonFx0fG2o1vZOGlnMHieeHTDjaJuVzYOWd0f/Uac FTflleLORuL09VVnvWlMqmV2iuxlw7Zwl36rD40C957K73FsrOFPhSz3pyEU NzvFJoENrZZXq72Jt97SCcpPYqP8uNtkAfFsgSOaHmlsqKfyCtfsoeF2QSnj VR4bjl0el9cG0JDo3Bl+/yEbn38mF83fS97nzMmtCk/YcHt3l2lGXK1arH+w ng2FO+vzDhD7hAp8W93Exgph/ae9xDVSl3fkdZH1xEWey91HY8n6BiOhXjYe LB30aCMOoIdldvazMeJ73EQwiIZCsWnTkkE2plWMFrsQh9j0G8f/ZMPHf6mF QDA5fyGiCoMTbIyaxOxTI2Zk6v1iT7NxInsi14b4+eeooplZFHb++aSdSsyU unFq+1wKx766HLtLHGbU5lUpSoHnWNPXTawaq8IIlqRQF7LjoVIIjfAiq9/N iygYMU/CmLi1I7hTewkFMYMzjduJj654kjigRCHG11AolbizxkPQRZs4zHB4 hvi76Rv5iFUU1hxdbLA4lMbcR3b6WXoUGjwj8rSIDR6s9xowpHD29MtZTsS2 xsWRIhspGF6/P+JJvPveinRtEwpXeAyxQ8TJVRLPg9gUHipuup9OXLA+ZuAc l0LPwu+8fOLHlVMzd6wo5FLz5SuJ3xjuk+u2pWBTGDe3nnikYkBvxoGC5Brf Ze3EIuu2Wy93pqD6KI/uI2bcbtnN3kqhnmXU9IXYcC3nqLcrBc18xu6fxHZl 1Wmn3Cic7NmiKrCffP81eiWFNAXZxjeSIsRHSq42tnhQkNqZpyZJfG614odR LwrF0aVeS4gLis/8kfWjoK4l2KpE/GTVvCUbAiiUbYjzZBJ3FUasdttHIS7H coUG8YjOD8tjIRTe2Rov0CEWventkXuAwrgGraxLvFz7bUR9GIUZRpGbHrHR DcfUzxEU9BjMujXE9poNxeLHyH5exYrrE3tfN36me4JC8BWbr//dH6le9s7x JJlP1XDsv/FSr2pM74+j0O5nrb6SuFD10uL0vygsiUuI1iSuy1ukey+RgtI5 IXFV4rfMOIu+sxSKsgruM4jHcmbcZ6VSOPMwMV2eWEwlNFw1ncLpeaVZ0sTM 7M/nLC5QCIiXbZlPvFGZX+SfRfazs0ZrFrFj1sunp3MojKZUFE+Q9x118eHU y+sU6CNJRu+J0xUNZCYKKLjzjmzqJL6VeWPl0mIKP/tq/RqJ+9JTaPfbFIa3 h3KKiMflxA5HV1L4HPph9BLxwvPHkq9VU0hOfPj3aWLjVP/6oRoKivJPp/yJ eYv7+yTrKJwq/r3ZhXjPuS2T+g0UGlML2inizLNmOoebKfReTdiiSFwmdYe6 2ErBfPzp1rnEjUk6/EcvKaR9SjjxnZz/ydNLzs7tpqA//tz1IbHUwoQCzV4S PyZ2c68SayTMqrPppzAW4t8TT7w1fmj87CcK8tNxIjzi8tgnbowxsp5rz+i3 JD6vWTYuOTlOwTdG6WoVcbpYa+u3KQqdEY+G/4vvyMReqkqIg9gokdT/4t86 bXIlT4ID711rlt8k+cPERXCwWpqD938lnYki1ls6L0dFlgOWh/e8LcSyWTKy w4ocdPUkC0+TfNR/VXfmlBYHp0+EmWwifumzrnJkJQe8hFXdosRPtYyDt+lx sLUj5sgrkt9uFll9VDXiQO+zbvse4oMVns2PKA5CLgs/SQgk9bc+89IvmoN4 O4O7l0l+Ffxfzja33Rz8bD5SupN41DJfutabA3ZpdclS4tdNFSfPBHLwwE/n 8VmSn3M7WgN1IjiwYoZo7/ejsX5gHnalcaBWvnyFGMn3OtcWTjZkcDD0Uzfy LqkHDN/FZbqXOKAenvzHi3j2kIr6nzwO2ktUKh6Q+vFizFjifCkHyalXCnd5 knieHdrX1MTBHNqjLXwX6VeWNbyaauHgx+tjEsuJmwwVm9VfcnBJwTCkjtQv A//ae1FdHMi+P1okRjynTSbD4BMHA2MjYwl8GnlZt50vCnJRfVS+zpfUy/cb xp/t0edCzUw06Sipx2nO1jXp67jQzAi6LkJsHZhVWb+eC+1FU5/OOJPzlc29 pmzKxQKHiJ5sUs9PiJyPfmnDxQ33e5l3SD/AfGWETV5cCHN7D1SRfmFX0OFy sXQuFq1m31eiyPr03pZrXODC5l3rhUQ2yR8juE1lcdHdse+mIHHxvjkVkVe4 uB/0Y/s/5jR+7026M1rCxR2p0OkUUxopgVeruhu5+JQ5xOnaSKPBv+1RwTQX biuylJ7qkXjQNqhpELBA+b+7WpYR7/2aVjMwywJnu4Kk96+msdjf7TFD1AJW zgc1GLqk3/EbfJK82AJm2nsu+uqQ+Xxm6sNXWeAXa9vtTjUaq7y0mqxpC7TM kRqWW0ryi8+ywJseFqg7Gp1BKdCI95eWWOBtAb2GNMcgeRqD+6YcmgMskLyp 62vdEho54Y0vHcItEHtvf62HDDnPZ/x6eKkWCMvG0uAFNGaqb3zlP7fAHbP3 DW9m+GiW0p4famQJo6H44Ne9fBjv2TOYsdESs2LeqXa/5aOwvrC+xsQS63ft FX3bw0dC+OoTEpQlWua7ufd28WE9YDB9Y7MlXg708Tpfkf650vTffj9LnLcx 35HTzEctf0ub/UVLxGgErr14n4+qwqgM7VlWwP7ZjzXS+Zhj7SyfOscKtwwH bXrT+HAYVDsvKGqF5XLOn86m8vFR5XlKh4QVvlbNsp5M5kP6vOyZSCUr8BH0 ouo0H37HC2Lbjaww8Me0SzKaD4WtHaHhe62wTkXeUzSQj8OCmvZ/91ihrJwn KEeeEu0O4waUWUNKK8znQMlOfLiinHwp3AYNL758u/7aDcnqcsKVzrboVP8Q P9y2A4npnvU0ww6XjeJHefXb4ZK8o0nsox1Wp3sess93RXh262+7nfa4/r/x osQdLhgOUt74z2N7vGzjfxqQ3IYXF9P+GtB1QK3aBLMieQte1tyNLU1xwLOH H7tPKPJQk38r79ikA27dTrU9l+kEuaEX7Y89N6NcVjYuanAzUjQybj5v3IzO FplgU5YDIh7+lWZl5Aj9vtmKM522sFJwznuW6wj3B4j1X2YFk4B6V0kRJ0S+ D5vySeTgwlJ35t+hTgj9YhmxJIv8Rzy+mmLb5QTGw02BF2pNkKBTo9lq7Iy6 +OvSKVsN4fFDuKUh3xnln6W+xa7VBf/WCON/C3nkv6luXEpZGb5Rjr8tJXnY 07xR80o3A8GOZa/EpHmION9jaZjGQMxYaELiYh7i/hz12baQgQKjialUss/M 0u+Ll00pYvzRTMcVLR6aDwRXXCiVw+lWsb+ecHiIamT+8FWRRFrOHu8YCx5O j/Yc354ugeyQJnOuFQ/JJRLD1pISKFucONloy0PKSjtB5z/ieOMi7d3mzMNG /V95JeUiUH0nZ96/iweVG1EBckxB6JaFKeXu5kF3kUlSr6QAjKK7JnZ78VDd rtbBnZk2sVa7UDzoy8OWrYy5zrcnTIL8GErD+3h4v19dxIk5bBK+8dhESTAP e787BV+c+WYSLd7fHhLKQ4LW7JtJtwdN0opyTo0f5MHr+Olrgcx/TLIjhb3u hvGwIWq8tfz2a5MbDrvNwsN5iB0JEYpltpiULa9TND7Cw+WPNvcKmI9M7v9Q nZg5ykOq+pIk+9I+4/8Dq1B5hg== "]]}}, {{}, {GrayLevel[0], PointSize[0.02], PointBox[{{10., 47.77812002171782}, {15., 69.84693877550977}, {20., 89.79349363886422}, {25., 107.01171863570188`}, {30., 120.9784467123363}, {35., 131.26930590366405`}, {40., 137.57161366058287`}, {45., 139.6938775510203}, {50., 137.5716136605829}, {55., 131.2693059036641}, {60., 120.97844671233632`}, {65., 107.01171863570212`}, {70., 89.7934936388645}, {75., 69.84693877551015}, {80., 47.77812002171838}, {85., 24.257587267961988`}, {90., 0.}}]}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox[ "\"\\!\\(\\*SuperscriptBox[\\(\[Theta]\\), \\(\[Degree]\\)]\\)\"", TraditionalForm], FormBox["\"range,m\"", TraditionalForm]}, AxesOrigin->{0, 0}, GridLines->Automatic, ImageSize->250, PlotLabel->FormBox["\"{\[Alpha]D,\[Beta]M} =00\"", TraditionalForm], PlotRange->{{0, 90}, {0, 180}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}], GraphicsBox[{{{}, {}, {GrayLevel[0], LineBox[CompressedData[" 1:eJwV13lcTN0fB/ASSrRQlrRS6qmU7No/pWbunWlfhspchPZNypooFFJCq5JK pBVpVUqbtNJGth6KQpKQLZ5+5/fXvN6vOXfO65z7Pd/PmSWu/na7pgkICIgK Cgj8/1PM9cE6AQEVSNXRERKJpvCSvKYZO0cF1Y5i+q6ZpnhQfUxJSUYFPrd7 UVxginBZY1GsUkFbx0dDXoMpvveUvDyyUwWnLoR8PTduin72leNTD1SwpsH1 +zB3I25qhXb9d24ZvAwsC2YLmMHh12q/v8pqeLu51F/OzRwj3gPrUqI0wFZf Xn5qB4Xbl99Z7K3Qgoq+Va2NIhcuB1o2FHjrIPSfSpGOu5Y4IVl3wV9uFRZg eu4v2IA6uSve5uZqBC5rc08Os0WRb+6/gm5r0f5TezXTaYcKV9NbZVLrsaPv +j5ncQc4b4hQP5O1AfnLq9f9VHdE5iHvDzqb9JDsHWrlY81D+OU/tt8+6qPk xe6HIfabIND9ClUHDSGy9uymJrPNUA1y2++gYQzZzAz3YD0nfPnNzTvBANPO j/T9lnDG1cASo+YNJrDM6+Vfe+sMtcAH8yUkTHGwTnBhRpYLJravxJvHZJ8U U+WDzbcgUWQkJuPGRhSaMsKRr7bgxOXfOp8OmEFt11jnXoaPKiXp6S6HzWC0 6e+A/zY+vmVoPWk6agaZ7l1J7q58uGZtO5wRaQaBmqYxOzc+jHLuNzvEm+FV 02ZLGT8+vhedd628aQa99N/ZOw/z4XZfI+7ksBkkQuP/frvIB3vU+cdSR3PU H3tnMNHJR5r0se4jm80hVTPUG9NN5tPPu/HCxRwqY+qL1Hr5SD896Z7gao7j 1sJJ9n18/FZL7ZsVYA6Rqcdhqf185Lu+rPh82hwukecGRz/wIdm3NaT6njn4 NwrFYqYxcJuK3CzbYI7FP/Tj/wgxqFK9uWZ/kzmcNlrXec5g4BksMLqywxzO s2PnQIRB3bwM/tXnZH72auaFGIMgywGjM9/NofGi6Xn3IgZ9dTsFnZezoPxp p99dLQafTZ4tPryChd/R2a0ftBkI11qvSV/FwmCBws8FOgzW1ei5D21gIVSW rvZexSCuUrI90JyFKp+3f2auZ2BdXJUUxbBQ2j+uNR0M7l+V1rkby8KiuV+u SNsy6Fc5Tb+6wIKMy4uJxXYMJq5MuQolsiCuqyCtZM9AJfNDPH2JhTkrd5ao OjIIT7s32ZvDQs55mVPLnBgYJfo0fapjQUdN2+39NgYlJxsYpQky34jCkVP+ DK5zWhdF/mTBYHe5UEgAg4tzurpGJ1l4W6Ii57ubwdHYf1mV09jYukJBhLuH gUXSb22eJBvz7q9smdjLYCBbZypKk41tKXWDM0MZ9Hqur/iizcaiGZYpA8QP NI32OK1i4/VPi7dVRxgU3OAOq+qysX0lT8c3jMH+MreHtSw29Jo10quOMxBv Sr38Yzsb+gX13QuiGAieuuLE7GLja4739efE3zi5Uo0ebORMaopfPsPgaUdZ 5Hl/Nlps0s4siWGQ9bjLX+swG3+zhuzmn2OgNySCHUlsLBYfHS9LIPUwI/hV RwcbHbmzXr9LZ7BYsfnJZCcbFTI/yoMzGHRskH/4Ty8bMWcKrAQzyfvzabwb /pyNJ/7at6WvMJjZPT9l3Ts2dFtimOVXGVxNL3VME6QQWm60QjGHweY7opat 0ymMVHs8TySe08OY/RSm8CzW2Ewil9STsPBqO3EKCqfyub+Jzfw2Sc6UpRDj cX5FbT6DN/o/W3zXUHBqn2Yw7yaDJEeLuovrKdS+uZq7l9jCP72iSY+Cydmn PU+JizOp60tMKPifzXNJvcXg+KzkE72WFDqeiqycd5vBBuXRkGm2ZLya8UEf 4o8GJkErHCgkjuwLbSR2CHjvesqZQk9LTtmeYlJPT3Rh6E7h36PyI/dKSL1/ jl7v5UXhztK9onNLGZwRHdBO9KVgprjxzVbib4an5cf3ULBc/PX+L+KGrGe/ s45SCCmpYCmUM9gReKhkzkUKF7x4Shp3yH6u6i9Rv0ThQbhfyU5i0S8oZaWT 59UuSKYR39w9s+zoNQpvltQsEqtk8CfgXPm3Igqpa9v9XhA/1PlWPreUQqZI 8CqxKgaZn3kV2hUUVoddqTQgpgPk7njUUIj3t1VIIk7wz6580UohN1lOGXfJ eV8hWvWrg4LLuMpcd2KDMZ+qBV1k/cLaDWeIB/1W3bXpo1B6eGp/D3Gpdvxd 3+cUAnZcO/id+PSnH3dP91OIlp5tsrCagY7f3eqGNxTi3rbIOhILaSvVvB6m 0BY1XSeQ+PFoeM1/HygIi1aIxBCH+FL3NoxTUEyxFq4jttbKu+f4jax/jaTW M+Klo2K1gT8oLC4SWThO3OzTXZv/l8IqD2a9bA2D1OXr6poFaLwIKVyvTRzw MaluSIjGMtfXW4yJN+ZP1gkJ0whdMY1lTbzAh6lXEqUhMCT8lU/8XrO23lCM RmPE+x3exFUjyg3OkjSG56Ul7SM+mxfRsE+KxpEouXPhxK7e7xviFtC4Nu5i eYZ4raZF4y0ZGntZ9u1xxCIjhY0dcjREon5JphK/yJ17f0SRfH/PfFEm8Q2v oPsiyjT6hrUHrxGHazy5v0yVBj0tf3cuMe+DbpOpOo3XksX1+cTqualNW5fT qJQ2elpA/MdzqilkBY0xcZOi//uhuuuD5FU0EgWKrf4/PvN9w4PStTTaPkQX 5hDvzVFr7t5AI6ejsfMqMe15uvmzPg3zArvydGI59dFmMWPy+5GarheJP7+z btEwpaGylf3wPHH99aIWtjmNi2suTZ0iTvCY37qTorF2lsrXI8Se/+xvDePS kOzvygkiNnj3rDXNisbG4nRlD2KJ64ZtlbY03p05vs2ZeMA9va3PgYaMZ/A2 LnGJmlD7xCYan2gvZX3ik8O72ue50AjXcc5RJ17hrtlhsZ0GR0r4v2nE/Z6K /gU7aRzYWzM+QurhjI+UpLgHed+ZqwK6id/vnrR96EdjYLusWBpxUtDYlxWB NLz+HtAMI2btG7wQG0yDH7Crx5X4Skhrr20IjaCR4sYlxHZHavYWHaEhPiko PkXqWyD89kKpYzSExgtePSPmR6Y49Zwi60n7phJDvPC890teIo1/vCfVBsn5 uh+3NbTsIo2FC/6rLSYOSrRXXJRGw7BRaOg4cWeq/vanWTTkjT+0KhFHZc9+ 61JE4+asATE2Oc96uVMnqkpovDSq/D6H+F3+V1X5ChoKCfqenaQfmBc99+iv odFaITTiSDxVlfdxWzuNzUYB2ywrGBTWXI6ufUQj/yPihYm31F3QXtpDY/zZ Fvt7pP9UNB0KGHxGwziC8tYi3tPF/bbrHQ3PowUi30m/WtprHH9/hEZHQkJE FvGjJ6vXqY3REJztH21LrPVSdv+7CRq1svfWZpN+ODw8MuklxIEOO2MMpF8m fPg3tXUmBzHF9bcHST81G+02XC7KQdKlAwIniDO+VB4ZleQgbXz36voiBi5/ o4QCFDiYmGX/nxbp1w/nLZ8drMvBdLTI3y0gee3r+z7FgAOHsHhDG+LCpsKm OmMOFjx8NH+A5ENMyMrjkiwOfugGjgkSWwyt+5tnx4HHV2fWKpInLRUmYwPe HDxUTT7oeI3sr/Sx9ln+HKyUmyHfQ/Iq168hTyeQA9X73H22xKeU2R6h+8n4 1xvtqSwGVLTFa5kTHGzpf5qtSvKvcdumbps08rxCYOXVSwzWVCbd2pfBQQmt /kSCOGv+s7NpWRyMdi7L3Z9K8qdli8XHXA7CMpuDWSkMTNe4NkaWceD/oTSz K4nBPWHfsupHHKxn/+UUXGBQWRieslyIi9G6gQveJ0m+WjguTpzJRenql3tS IxnYvldLFhTlos7K/lFrBNl/5faEx5Jc2E2G/7eMXISlkheeP6rAxbKgK9oP yH3C+1j+yR5dLkSljnXXH2Qgu/lxcEgAF+cPxLxI9Cb5P3H929AeLoY1f65J 8mJw6/yhPbb7uJgy3y6S6MmA3a60WzWUi6Xq05Ri3Um9mHr7PIriYm9s9hWf HQxalwvsUMnmItnc6fJzZwaHBDVs2l5ycWl3WGE8xWDIbHaf6msuRD4Z/PJk M7A5+XFr2BsuLFva2gxYJF8lbvivG+FiZ5GbeP9GBm1ya86m/+Ti6k2/SXFj BgobjDqCpCyQ+kYjRGMtuY/62VnI0xaoUtaRopRIXr44SPkVW2BHs6Wf/Bc+ 1u3LETtbZgH9wFe+hZ/52D6vr+vGHQu8Xz+sajTGRzm1lj9+zwJRZVaNTh/J fbxkbHdQuwX8+oJuhw3xURuzM+XgkAWyVZIc4p7xsd/E6lPEIktUz5S41lDL x9trS+Iuh1jC7jOz0/YMHx+Pv/4ldNQSNeqezV6n+fjimrHV45glRGONCsNP 8iGguERz5WlLTPaxfxQc52NxolJdXaIlUqRrIr6E8GETqfj5bZElqIn4i6t9 yf8Nd3mL5e8tIRNwITbego+4f2SmVzhaQeJQNbd6Jh+xF92atitZQ21qfQQn aAuc4/gdc4atsXjQ6FPSIxeEZHb9sd5qA2NXVf0wEReMBy4xeF1vg1zWHqvO Dc54lJYUPaRji8O71/OtTZzQW3fn5O0EW8jZ8UUCzTejLvfW1bDftsh9sKDf RH8TZD496ql3s8OfY87Hbs/gIUE9paC91Q4PW8x33Op0wOF70UlcXXuM1XY6 BPnbgyvreLUlyx6H2zOSf0/ZwtivyWXuLAe0+yvVGybZ4JKcq0pbsANiYm7t 8xOwwtL67ASr5w4w/y4mKD5M+oZWnUaXkSOSPlzr2lzLxs6v0zubcx3BF7NP qNA1w7ZbX5ROSfAQNaspJboH8Aq3/8OZy4Ox+zIV7UZgj33xkzlSPPxxzn7a VgJETATHxC7gYbLBqmN6IpCv+2syUZ6HhcPlo4wT8LN26vE1TR7aZjRPO1Bp jLNdc6Ib2DwkK/dUm7QYIumKr0cEzcPbdwHGknmGyAzq2EhxeRAafGX4PMoQ xQtif7da8aDxI6/czdIQz5ylPLodeTBSndVo/8gAqoMyGwd28LCx//bKyF59 6BQfVMjaxcM8qU5phVJ96J54/muXOw90WGTkrQR9WKhduvnei4f60yuVOjbp I9BbSWF8Nw8TT+MM+5/qIcQg7FfRHh70tidUOd3RwwmxgZ6gYB4UVaR7Oi/q IenGlaif+3nIeDnxqMxFD5lHp7vfOchDa9z58mUGesiz3WUaEsLDbRF5w1g5 PRQvvS9vFMpDdPKtrT/+6KL6q+qvqSM8xGT7LHF5qYv/ATfVhRU= "]]}}, {{}, {RGBColor[0, 0, 1], PointSize[0.02], PointBox[{{10., 37.18015538499504}, {15., 54.71276125831736}, {20., 70.99482998895861}, {25., 85.64017524098618}, {30., 98.28877853177516}, {35., 108.61319101229722`}, {40., 116.3248395374996}, {45., 121.18021525926446`}, {50., 122.98691903092386`}, {55., 121.60953242238936`}, {60., 116.97527447412614`}, {65., 109.07939162788726`}, {70., 97.99020625505065}, {75., 83.85372498211436}, {80., 66.897664060046}, {85., 47.434699207074324`}, {90., 25.86466444828741}}]}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox[ "\"\\!\\(\\*SuperscriptBox[\\(\[Theta]\\), \\(\[Degree]\\)]\\)\"", TraditionalForm], FormBox["\"range,m\"", TraditionalForm]}, AxesOrigin->{0, 0}, GridLines->Automatic, ImageSize->250, PlotLabel->FormBox["\"{\[Alpha]D,\[Beta]M} =01\"", TraditionalForm], PlotRange->{{0, 90}, {0, 180}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]}, { GraphicsBox[{{{}, {}, {GrayLevel[0], LineBox[CompressedData[" 1:eJwV1nlYTVsYBvBKCOk2yJWhoqSRStJ83s4+QxpPZ9ehKDoSUiGkaKA0UFJU MpZGMjQoRJJSoUgDTTJEhqhbEQ3oLn/t5/c8a69n7zV837tQuJ2/SUxERERK VETk73Om8KGhiIgqJHuUO2uvUPCWztFKkFSFfuNA7LobFB6WRygrK6ji3P7S pf33KITPY0yHviqOtFvbSjRT+NFS0hXmqYo7blN+/DtK4RU389DEQ1XY5mYH ZrNYKNAJbfqTuBgF5tfeBLez4DS63O+3yhLEblvmazLGxpdt3YZnYjXhcyT7 pQ/LCtfTPtkGlOogJCiascPIGmuDHhtd3aaLU4PLfb1GbBApXXli+3x9uIwG zvEptINVzKZkXsFyvHv7nZq92AFFvnmvRb1W4N7vBTPruDyUCpmFN+VWQrNg OEH2Aw+uRlEacVlGEG25/LF3iyMy9m/r1V1tgrMrbq0u7HFEeNovx+9fTZE3 aiqSaM0HT/fWTq1vptCafl1vwoYPxfu7EoWjpvhWLozwsePjdnfvs2eTzXC+ 4Ec0i8fH0OJ2h6uKZlj97bZCrzMfwisldl48M7zrmxI6w4MPy1K/VW3XzSCz 28zsYgAfIs1vULbPHFPzzqg4pvFx6HP5hX0HzVEZ3vomI52PaSLnxIxjzHHn YVv6twt8yOq4PChJNkd47kuN41l8LI5u5OYXmGPxnwrPqkt8WJtW2md8MMe1 kBtZP67zcSIzc10M3wKxn8X682v5UNvtFeikyYC4ssgH6isfOiav6TRdBrz3 Ni3j9PFhILJmWa8hA1dzG7K4/Xww41Z9CKMY+LOzQNpqgA/3LG2ny+sYcHnY MmTxnY+UlqFlYscYmMMb/CH+i4/JK8I+5n9jQMG3omBoOg3J8Z+VY6MM/PrD TuyYQePwBqOGRSLA3o2L0+9L0khQK8zznQLsili96qgUjfNFGR6T5IAJY379 XFkatx9HNizVBpKce/OkFGgMjdlcjnQH5D59CXZVo9GYfqq03wP4LEg/ZbyE RgHnY+3qTcCCY/eq/lWn4Xs8/L2GDyA+rwKNGjQ+aZQueBoEpLx0fmukQ+P1 GrWE2cnA7/cr2juW06i/IbIntw5g/noR5Q0al9fZR0g3ACM2d49pWdI4InY2 MagJMNowP+8LMdd+5TWbdqA0uUZuK0Wjssf3438fgOgdq8vXcGjcmtXpYiRm idCq+rgZtjSy/UssHhlZwuHZrKF7AhpZ5TKCRWaWSFNp8t2wmkbGdD/f/QxL 5D9JmiqyhqxHhtpZHY4l/D5lJZu50EhpOjmaSFti2WEbpctraUTp7yt29bPE 2d9xk9w30PAastD8mmmJwOSqGtWtNDwtzliycy3h9a5TOo9YeOTnmvN5lnjx yit4qTcN90UF0bxCS8h+1rplsI2GgL+wp7jcErUpzQ8MfWlwiialh7RbIr4k ky2zk8YS/4fy//zDxJdvp0KUA2l8kPf3XirLxGPFPIkI4pzSeffs5JkYPh3Z 8p5YVXT7lrh5TNQs7FmaE0RDOUH+zjR1JqIzDQaU9tOYe024QdySid9W0cX/ hdBod5QsUWExEZlz3IkTSiN1uGQaxWWi7F6E4Vnif82nXT9ox0TzPbcKdhiN WfX5kydcmGjSfd137AANqd5feaP+ZP7cw/dEImg8OZozMSeAibEuwygb4jg9 npNREBNhJu+PJRPPCMr8HRDGxAaRKJ8lh2hISFjzvscykTHabMuMpCGmdnK4 P4uJrF0zSp2iadx/BGupi0wwNURvnSA+4Nt7XucyEy7bZcYbiSeKza18CpmI 4j60s42h8Yt6f/rzXSZkhSFLjA7TGPbQw/sXTPjJ7L3z9Qg5/1Y+K7gdTHgv juerxtLQXJarmdfFRJBZ78y1xBt+zZff8Z4JucN1g9XEj1MkescHmVDSu7Qj MY7sbwj12n2YiRND7tqVxBMbQ1vuj5DvfTtz5hCxgd738ugJJrrdCs0djpLz VPf6hNxMCpc3RrpPEBsVzT0cIE3hk9p+lkY8jeZU59B2OQq2TEUen1jCq25L 2lwKdSk1bReI/UVummupU0iwmV1keIzc74+D+vFaFHo8+2pdiHOfaKsPLqXQ K6ImHkz88nSG7M0VFGxeyA/cJeasiP/IpCisivVKXZlA4828Ry+zORQmO1S8 o4n3i4k3SVhTGL+3TLCduKAhqOwpj8LL8ksFmcTWN4oL9ZwobF39NrWMuOfs fzlJqykEFMVcbCGe670p0dWdAl19wEIskUYxLz3qrgeF6ug/D/4ldljZuV95 E4VfCzm7tIkPiTt6fdhGPBTHpYkVv8SuXbWdwhaDUt9NxKWNNbwr/hS6hNPK Aoj7z5uZ+gdRUD+7vTGFOCZyr+7zYAoXCotSs4lVfIoWGx0g7z/aFXOduJzf N/dMBIWGLY/SK4jXGKtL/4misET+8dt64iGljZM9jlCooONs2oiPTjk/VnWU Qt8ltVfdxOp9bf+pJVKYOJt/6itxZbNcz+EkitxL89Bh4nW37Tu+nqQgv/1j 7G/in+mHGxzOUChbU1UpfpzG8egHD4rOU4j7/nHRDGJtv4lS+QwKrbXbrkgT 1zqZ5AdmU+hfvWm9PLHQdE9W50UKKppfTBWIfy0sOGVBckFNlRxzPvFJiS/x F/IpaOQN71QkHuLsuv+4iMLRG9w7SsT2kePfvpVQcG+WtVYmzquKUFtQSuES b6viX08Rk3ThlFEIDnUz+jteiKTY7SRXvL8imrqA+G7o/PLUSgoDWlvM5xHP uZs1cL+awlWbTPU5xLvHtVW+PKSgua7aZRbxM+MS51n1FPyvvnn2z9//CzSP MW+gkHxsavx04pgb1be9miik820T/67Hu+92fceek/3i3O/4u14Wy18olbZR yL4T6P2D+PROd353J4XbopHoJ+b3+9006KbAs+y510l8TfvnZ7ceCl863LY2 Ek/fFjY/+hPZ38jdLjXE9z8eO9jeT+ZzqJ55jXi+2pxisSEKxVKqTenEgZ7p H7SGKVgqeXcdJ9Z9W2ATOk5Bes/ww93EcUrGobl/KPi4rr/kSfzJ7X7BM1EW khTVlJ2I0zoa5VUkWDhs1LNGj1iqZeh17SwWMudPVXlHzr+37H7ZwX9Z6Cyh Hz4hruFNYs+dx8ITmJXcJA55Ipfns5AFYaW812HirzUGu2WWkvGJrotVia0m 380x0WNhx4sfEtOIsyh2+0YDFiqNUw36yP1dW+FsccOEBaVvip7XiR+XBkis 5bJA2V9ZvJJYbeSPySFrFlblvLWeTRxuGO171Y4FKevIW99J/TC+frJpgmbB ZYatbz7xxSu3zmZtYGHPca7FfOLItDHd/iAWZqTtPdxM6leZ8izxtSEstHic DMsk/n5Bp7X2ABmfq5bmTyzM2hByIZqFKZkvXKWILS7VPHJKZuF2Ia/GlNTL H0XHhXcKWFB44xDsR+qvjsGVFerFf3OohYwesWdJtUTyTTKfwaVnQ6ReN90c ueZXzoLOiF7DLuJrZe7jC+tZqJ3xuX4bqe9eNZpJMR9Z8Jid0L6c9IdzXNbm 4V4WugIkFD+T/tHy0M1E2M+CberU+HPEzLqEN6bD5P3JXQOTiBWf/dD+T4yN iLe3qmrCabxor6x2VmTjsX3rFVXSv7h9rj8XObNhkfJAlLmP1OtZEc1ha9ho i/hU8Ir0z++ml/NfrmXjbrhl8j7i9CPjm1OEbMRNbvqdT/rt2JKzbdN2sGG2 Wp0ns5fGFWFX6cARNhp7I6Ze20VDum19cHkFGyubHizj+ZD/mYheM+8BG2WG hlnNpP+XqRUYBNaycXVFq4OAeOsekT69p2yM0x9tXUheqJS94JbdyQbDevy1 8xZyH+26LeJ+sOHYVbdXw5NGW6WnqKs2B5POdb00IflkwLJjbsgyDjrmRnvm u9KYet/BIF2fg90OKgwVYsN7Jps/GHEgZG/ukyD5JumO9BN/NgdgRC6rJ/nI obgsNdadgxxqjbM+n5zn7Fm6dxM4sFH5sz7MisYr1SOr3pzgQGd4561XXNJf MyeEk05yUFjlvsmcWDWjN3nVOQ4Ohj4qG2GT83i+Yvz5JQ52hPcLN5O8ZnHS p7a/koPPwQ1JqhY0SmIeuCsPc+A29XqjIsmDF63r5kSPcPCPQHaHiz6pD5JN TX3jHFSWruSc0CP9P+E1544YF0yPyafFdWmy72NLBdJcCFNF3nZp0+jO1Z2I 1eLixnuFn94kr0rVnk376cHFpu7B1P/mkPWfvOfN06dchLROWZc9zsdcpUet 441ctIpvLSkf4+Op0YIG9edc9FX3CFtH+TD0qb4b3snFhZOC21NG+JjSLH/G 8BMX8dGa69xIHs9Ov+F8XtQKRyVZu3tJvn9vOvLY18AK8dRB00NdfGz0318i edoKShqWvFtlfCzbrPXU1mMV9BdquFfv5qNBVnvGHmNrOHUX7BHO4+POtfAz 2pNscGbM23T7XUfsF9Xk1XfZwEb/jAfH1hHTX+6z8iu2BXtEI7WjkYeenIVJ acF2UPLLK8xz5iFJXUG81Nkesx7c3OkV44CE0161HsoOGCiK6KrztIdrkttT yY8OaF3s677HwA7BGU2/HNbzkOfAHKl6boNB/4Vmb6t4GDP4Ouv0fms8O596 9IOuI8RcxSqWD1jheeXtmOspjgj6ray60YeLyrzC7INjjvBgNxmNvmJDof9Z S5UXH2duSrpHLWAhRePM1Sd1ZJ1TZOQctzIRUnE01caYxgVRjfTcUMBmnnP2 4ywaVKTW4KU55mD41a6VmeaErzteGkxea4xz84Wq9Xuc0DbudOD50hVYVJWb Yt/phNmBrnVu+nqI16nUbLJwhp3+ynQrP014fhNvfJTnjIA6oadC7kJsKBxS PvyPAPkW+YKeEll4h9O/rGUE2L9xQ6XXNlnsootbJeUEqJfUmtqjLIuo4T3x CbMFcL8I7bZYGVwxHh0/uUAAY/VW51Me0hi5P/EiR0uAgA5xT3kFSRxrkjz6 gCvAMtxojK0QQ2qm75aoVQKE1Z280KIphozdTykrGwHeKn1Sm5MsiuLZCWN1 9gKcPmfmf2yrCDpc5bY0OwvA95TtClP9xVB7p0B1bxQgXipHfX31EEO3eJ9i 1iYBTgWESzmcGmQYR3aObtosQIN+oHCF7wDDdsm5gs/eAgRq/tas0/jK8N+m rDi4UwBRbUbn5dpuRrDZwdGiXQJECV7J/fB7w4ic2d2ye48A6i2tq9dpv2Sk 5mfGjgQKkGD/5uezh02MjAPim2/vE8BXvLXpsk4947LjJmZwsABIVDTZ/qiS UbyoZoFFqAC65t727Y+KGOXf1EYnwgSk7tyhXto1WfwP1a2JZg== "]]}}, {{}, {RGBColor[0, 1, 0], PointSize[0.02], PointBox[{{10., 39.34984413644024}, {15., 52.76324754285556}, {20., 62.828533207144986`}, {25., 70.07160057774027}, {30., 74.8855424605912}, {35., 77.55223717400982}, {40., 78.2713365565089}, {45., 77.18440340366577}, {50., 74.39306783518047}, {55., 69.97276129221477}, {60., 63.98401168819382}, {65., 56.483196951472316`}, {70., 47.5348107933574}, {75., 37.227694133692836`}, {80., 25.69856118596182}, {85., 13.167835370708453`}, {90., 0.}}]}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox[ "\"\\!\\(\\*SuperscriptBox[\\(\[Theta]\\), \\(\[Degree]\\)]\\)\"", TraditionalForm], FormBox["\"range,m\"", TraditionalForm]}, AxesOrigin->{0, 0}, GridLines->Automatic, ImageSize->250, PlotLabel->FormBox["\"{\[Alpha]D,\[Beta]M} =10\"", TraditionalForm], PlotRange->{{0, 90}, {0, 180}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}], GraphicsBox[{{{}, {}, {GrayLevel[0], LineBox[CompressedData[" 1:eJwV13k8lF0UB3DFW5JUUinpRbYsWZLsfmbmmRlkeQZTqVRCJfHaKtGmRaVQ 2UKStZBkCVGh7FFR2kRJlkIbIeS9/TWf72fu3Oe59557zhlZZy+e63QBAQHR aQICfz/nONfqCgjIw7Y/UL5QC3Cfl64aISqPRIdv0loGQO394zIyS+Thfsxo IpMBBEuZikBbHulrdHbF2gG/nhe+O+IiD9W0M4KO/kA7J+XEVK08njDn7z9Q DOSqH27+c0EBnXHFDSuMzWA/ttpzcoUSVodGTJiCgS97OnXjQ1Vwev+5u78d WMi/2rtuX4k6xN2C/N0V2dgUUK93c48mQtKMzjc2cXByXuUlr2XaGGp9PONQ gDm4p12jbHNXoyZ/6vdkrwXy9mZ2THNbA7PEmYc6+OtQ4sy4XbRgLXyfGy0y TLSCo96pledS9TAzNVxyMt8ayYF7PmuuN4BR0/7JVY9sEHx1gh7qN8RJP7XG 13a2EGh5j7KDxuinho0Mimyh6Od2wF7FFKudesr6FtL48dsy66QTEP9SbUTT mcazpMslg9uB22tn85130Mhl99SsdwWqsre2X3ShsfdicNdKD6Dbr2LPdzca vStLpJsCgFmt1YGpe2h0bFCMWBRF9i2l4XinH43HdwT8MxoA0yy7hvunaKT5 FJrU6ZkhZfvc4YkMGqn35/PljMwwUEiXD12nkSziuTfQ1AycWzMrv9ygkZis mKDONsPjkzK7X2bRiG6OGbtgZ4aLPkxu2i0ap7QPFjh6muF6k+FmqSIabj9M VPpTzHBP5rvSvioaLibxZlSGGQRGUjY6VNNwPjuyITGTnKOi3KPVNTSc5HJD bG+bYY73A+ZgLQ0+T/ZTwX0zlLat+brxMQ12nmDSoddmmDRqERJtoaHkU7tw 7lwGopNex77toNG90Md9lTgDG3DpRuR7GuklUg+sFjKQnX1fzOoDDflpXrvO STHw9cuV1tJOGjIRC0tnKTMwJfJxy4VPNJbmOG8TMmMgeOKWw7IvNMQ+T2SO +TDQqBvNzBum0Xg+fUpyHwMdL4zHHX7ROKdla68XwEAo96vwGPHsgJTJfUcY iLqRrGg8SkNY2MJ2KJSBiG25Hvd+05iuGDM8mMqAS0v4qsQpGsPbtdDVyoAW P6nzvTAPEVyPNZw3DFQv3hwUOIsHFY0Mlcx3DOQqzrJdKMLDtollC//rYqDY 9EAaezYP9dHCn8e/M9Db5S2SNIeHxIaOSwvmMBG9am6DujgP7DVhPQwmE9YO LbGFS3l4L1XXlsZmwneOScRaKR4Cpws1C1swsS87+WExce6TgLImWzI+L669 eBkPS91dLzg6kfl2zOm5tZyHwUQjQ58AJqzC9W0D5HiIEf4Sdu0WEyeuhQ0H rOThB9u3oj6Pid07Pp1uI7Y+Of7zZyET7MsGviYqPMyYLrqRXcYEZbnQSkCV B79xtRVfapn4R+vPoiA1HniDnkU6nUz0c7Xm2mvwkKM20rflExM5FcmS2cQi e44sC+llYmB9d4CgJg8VPeHHXg+S+WokWbnEmh9yLQ+PMyG09MroNG0exJ7/ 6KiRYMFlU5X8aR0e3MUDxb8vZuGo66WZrcTVtoLUUikWogoHGSvW8HCocUGm hywLerL+D0uJ+6t1/OavYsFu7FV/ly7Z75J9wps4LBiySvsW6/OgOPrH4IQF CwX9oo6biIN1Q/betCLPqwhdkUisnx/TPGXHwmivXqWsAQ/Xs4sTUrex8FZw t4asIQ8nr/7WHAxg4ftU+zMBYx7KZCSENh1i4XSoXbQJ8dA19Zc1R1m4vSst JpDYOXXboWshLOz9uYD+SWxyo7rOPoqFy+uOJr024cFf5X1CRSwLD9yYVvNN ecjOGvNalcBC9xnztVzipTlqi4RTWPhSTT/MJ/6Vd9G5NJe8j/SdsmPgQV0n e41yAQszg4ft84ldCquEo4pYSEl/p9JF3Fw0muN5n4UO0bfhTDNyPmVO47KP WfCyGTQdI3arVok83cOC6L1oJpg8XOGwdg5/ZiGzZ32ZK/Hz2i0GzoMsRJqd 9z1LzGiIeG84zILw1pArz4iXP/2l9nU6BXeG9Ac+iwcHep7A5hkUfPs+Wu8j Pte8sqV2FgW9/SfGI4l/P98ckDyPQpbcqflPiVtfV1Y5LKdgVvpVy5jiYc6m tthKWQpqcX0xfGJW2/AeDQXy/eIVxl7Eee3K4rPUKKTUhFCJxH1bGZ/8NSg0 7Hp8vYBY5sOm4k5tCi+OH7esJw77GOZUpk+BIxhk85O4yuW61kpjCqEvWnNn sHmY+FQhFA0KuyZb6SXE7r1DmV4cCukrf/OMiK/tFjvcZkHhY7xu/jriV5+V aHNrCv+ZWtptJuYMOI7IOVBY80vDLoA4UeJ4y5ENFMoSA/adIh4yzLrVtonC U2bp+4vEFjtaQvW3UmgcELiYSJx0dnxntDOFOWn8szeIf91ewfrpSqHfu7Yu n9jqtaWM7W4KVZudbe8Rpwr4TWR7UPixV3N5NfFvpYRXs/4j8980Wd1EbGvz qMDNl0KJ/OXwF8Tp+/ojHu6jIPzWcnXb3/Vekdgrc5DCktfOyzuJ7aqMzA8d Ivuj9Nm2hziz30XhzVHy/MaB+i/EAhLnp609QcH1RcC5r8R8w8J3l0IozGbH Rf0gznZ+V/LtLAVD5U3dQ8TTz/4TbRVGweZE7eFfxBtuq/tkXiDn5TzoNEKc 88rBemYUhQsNr0799T8Ch1VcYin411z69Xf8ZqX0GRXxJD6cVHOGifOsmzql r1I4dznr5k9i4X2/7h9MJuOPygx/I3a6sjz+ZRqFcqnoEwPEBY/Y+3VuUKj1 ldzcRyzS72l3IZvC54j8wC7ibQtiNAZvUTgS6PuxnbjI4MFsy3xyvoYul14R izn39GTcoeDz5kLoM2KXM3MfCd2lcHKr8OM64ru5a5O236MQ0NJiX0E879XW oPvlFG6YCCgWE7tNhWyQekTB68Zl0xziMsVcnQM1FJSXZV9LId7tLzCg1UTh jYGH6Tni8gTlurBnJB5HtAKPEC96ZJv25TmFuHdJU97EleLXtqS9JfHPyey0 J5Y0qNOf3kEh7O1mM4rYc/v3hVs7Sbze7e3VIZbKNWuS7KOQdrBMXJzYz6rT 5NwvEh9fUpsfkviv9xOR6huj4FnuE5Dz974kaI9QkxRy5Q7ujiVu/Bx8a0qQ jfO3XRXciRVPr5Dxnc9GSqeA2D/EQbcsJ55IsOEo1j/VR+5vc6vvKzVJNsJE vA2biI8oPIroXs5GW9SB8L/3/VWlyzRHNTamdzZlSxJ/M3uz9JAGG/UuEgq/ Sf6YWWGjk6TNRmLs4J83xLoPDHZ267GxRen0yzjiyNJ5jT4UGy0e26UXEGcb nOqO4rIRJ+iU8pXBw8OS8aliSzZ4vsahDcQ/irq1p2g2Tn5vOHqM2KagLDbU iY1LQ3pC3X/z3WrtvJztbAS1b4m7R3w4L6PhmQsbenX5FyOJs3Mv/lm8hw3Z wiWZIBa5ucsldT8b1j4dfhdIPq1Ok9C8F8FGxieJ94tIPm6XP2v+/hIb38q1 O7pIPh9OmXIWjGEjPEHMLI9YPvlzlPkVNsrvSatbEgcnlo+/uMFG7KmdGf5/ 60GMR81gJRtmSpKqN0l9KTz9yElmmI1KK9fk9LWk/lg0SIaMsiFc/WHFJuI4 0ebmgXE22NNiB8SIj0Z0sEuncwCjlxv9SL1bF/t7FX8eB44KGdG6pB52ZmhO hapyENj44Ebs3/pak3B1ZDsHS8s99reQ+j3tTMpGJ1cOlvubi3sTD1lkLqja xUF7XeivOcSvm4pCLnpxIN/kFk+R+p/a2uylfoiD8eSg9dmkXzDoFsaOWA5U QxyvrVck+/uP//sm0qfrn9h/T+FfUr/+rXs5/oyDuVdV0wtIP9KkJ/1E+QUH M/+7841BrOtRdS/4LXn/O55ZW6RJv9GyMF63l4PObabFoaS/SUu645A4jYvY mDm69Yt56DIcrd+rw8XEk/KRp3N5iHVYVxm3lov+aHGVdcTrvJJKagy4+CGn 8aBajOSDZO51WTMuZER75t8l/daJWZdPvrDiYmGukuNl0o/Jv9SH8U4u5mfE BhnM5GGHT2ChaBwXwdEJJjP/0NDVbi9ceYWLlt5br7wnaYj8wB12EhfiZ6La 3k6Q/t57RtHRdC7+9RmSzRmnMfHfheKhPC7SpetTLMdIv+2VUdrWwIVW5PKz 7kM06jxaKrInudjfWLJA7zMNjZ2qTeu2m+MuXwZLntNo3/2v100Xc1R1Jry0 Jv3yOY8F88R2mUPi49ry4800+rzH6See5mhlfzrx5SmNlKCGF3SQObbXfGjL a6Sx+OKed/wYc9jOO94oQ/rzqbKs/m2N5tja4d0ZUELjibjabH99C1Rv27hD LoFGaU5wvJqgJQYEt4zLO9EInKZi+/idJRzi1Bs855H1th3kehasg87Uxt7o Elt8SpeNvBpkBV5ttZ/BVltEKi8RKnGwhp/zSV/9bhtExLnVbJexwc5w8ezj s2zgGLmlSbTHBvPstUZi/rVGUHLzhA35nX/WH76xmBW++8gafXhoi7BlrWoC k5Z4mhh7vluT/E/i2ukpVFjgReXd0/nRNDISJwc+hpijMvN22jHSl+sKrHx8 h8nFksGnzx+6kTxxYEuPxTM2olfG32xs4GGMvu4o60bhUPn5WEt9O7R+LV2f XceEpZRDWn2qHYb3j05pyDFg6lmzaf4se5TVezl1nwKuLHOWf+xvjxOpWTbX PI0h9zAj2vqtPc6OB5W+HNBHmHqlSrOJA84fKOLEO+vC5afQs7pMB8y9WLhO 0UMb227/kDkzl4+EMFnNdiN1uAfbTVjM52PsdjHHd6k6fO0KXoou4MNUMixQ aFQNp4b9wyIW8eGzStZQKl8N2fpj4zHSfOiJKGkuXamG0Yqp1nRVPjQepqU4 SagivFn0/CMOHwKO8zGzVxmxKXt3nTLnI8IzcLdslTKS/ZqYXEs+Ip+E165N VkbBoojfDdZ8xIx2qWzcrIw3jgt2tTjwYeB5JNrzqRIUPy5hdu7gI0Btd2lX kSI0Cw4uT3Xlo0e9MbEyUhH6J9+Oue7k4/HRC48SvBWxTulKbp87Hx/id72h VBXhs0dm+XdvPqZphlN7EhUQZHRsLM+Xj+mUDk81UAEn53Q+9/Pno/tmZEbP egXE3koJHT1A1j9RoOEwXwHJR4V23j3Ih03ybJcZg/LIol0ZQUF8HJS27Mqv l0eBXLW0yWE+RhpNbm/JkMf9n4pjU0fI/BJ5DYIn5PE/50Nm2Q== "]]}}, {{}, {RGBColor[1, 0, 0], PointSize[0.02], PointBox[{{10., 32.38833611813434}, {15., 44.60278138471518}, {20., 54.359963180200616`}, {25., 61.8727638713012}, {30., 67.34200993802851}, {35., 70.93617942790772}, {40., 72.78856230565519}, {45., 73.00142188543339}, {50., 71.65201258631876}, {55., 68.79847592791488}, {60., 64.48520891908404}, {65., 58.74796830864361}, {70., 51.61941566497624}, {75., 43.13623393338756}, {80., 33.34968412372974}, {85., 22.34256062869441}, {90., 10.257837352381136`}}]}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox[ "\"\\!\\(\\*SuperscriptBox[\\(\[Theta]\\), \\(\[Degree]\\)]\\)\"", TraditionalForm], FormBox["\"range,m\"", TraditionalForm]}, AxesOrigin->{0, 0}, GridLines->Automatic, ImageSize->250, PlotLabel->FormBox["\"{\[Alpha]D,\[Beta]M} =11\"", TraditionalForm], PlotRange->{{0, 90}, {0, 180}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[TextData[{ StyleBox["Figure 3", FontWeight->"Bold"], ". The dots are the numeric solutions of eqns (1,2) corresponding to the \ switch setting ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"\[Alpha]D", ",", "\[Beta]M"}], "}"}], TraditionalForm]]], ". The solid curve in each plot is the corresponding interpolated \ functions. " }], "Text", CellChangeTimes->{3.5274320516951623`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[TextData[Cell[BoxData[GridBox[{ { StyleBox["\[Null]", ShowStringCharacters->False], TagBox["\"\<{\[Alpha]D,\[Beta]M}=00\>\"", HoldForm], TagBox["\"\<{\[Alpha]D,\[Beta]M}=01\>\"", HoldForm], TagBox["\"\<{\[Alpha]D,\[Beta]M}=10\>\"", HoldForm], TagBox["\"\<{\[Alpha]D,\[Beta]M}=11\>\"", HoldForm]}, { TagBox["\"\\>\"", HoldForm], "139.6938775510203`", "122.99499123510147`", "78.28322235551542`", "73.1088595961045`"}, { TagBox["\"\<\!\(\*SuperscriptBox[\(\[Theta]\), \(\[Degree]\)]\) -->\>\"", HoldForm], RowBox[{"\[Theta]", "\[Rule]", "45.000000000000064`"}], RowBox[{"\[Theta]", "\[Rule]", "50.35583858969162`"}], RowBox[{"\[Theta]", "\[Rule]", "39.42807073554649`"}], RowBox[{"\[Theta]", "\[Rule]", "43.15684232674055`"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {False, True, {False}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}]]]], "Text", CellChangeTimes->{ 3.5274320800954466`*^9, {3.527435365541303*^9, 3.5274353823814716`*^9}}, FontSize->10] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[BoxData[ TagBox[GridBox[{ { GraphicsBox[{{}, {GrayLevel[0], PointSize[0.02], PointBox[{{10., 1.3112209334033351`}, {15., 1.954347891590451}, {20., 2.582601082255041}, {25., 3.1911991192664977`}, {30., 3.775510204081631}, {35., 4.331087376528305}, {40., 4.853702358857539}, {45., 5.339377735490254}, {50., 5.784417223551466}, {55., 6.185433803814834}, {60., 6.5393754979641265`}, {65., 6.84354859599103}, {70., 7.095638156954819}, {75., 7.2937256270807165`}, {80., 7.436303441112588}, {85., 7.522286495794809}, {90., 7.551020408163265}}]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox[ "\"\\!\\(\\*SuperscriptBox[\\(\[Theta]\\), \\(\[Degree]\\)]\\)\"", TraditionalForm], FormBox["\"time of flight,s\"", TraditionalForm]}, AxesOrigin->{0, 0}, GridLines->Automatic, ImageSize->250, PlotLabel->FormBox["\"{\[Alpha]D,\[Beta]M} =00\"", TraditionalForm], PlotRange->{{0, 90}, {0, 8}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}], GraphicsBox[{{}, {RGBColor[0, 0, 1], PointSize[0.02], PointBox[{{10., 1.0180167855647133`}, {15., 1.5228809352191268`}, { 20., 2.0227331030507587`}, {25., 2.5158373824264273`}, {30., 3.000401092329642}, {35., 3.474559548305841}, {40., 3.936360171884467}, {45., 4.383745867641924}, {50., 4.8145376198525005`}, {55., 5.226416324163204}, {60., 5.616903955162079}, {65., 5.98334429088699}, {70., 6.322883597729948}, {75., 6.632451906763341}, {80., 6.908745872151227}, {85., 7.14821462164375}, {90., 7.34705066281503}}]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox[ "\"\\!\\(\\*SuperscriptBox[\\(\[Theta]\\), \\(\[Degree]\\)]\\)\"", TraditionalForm], FormBox["\"time of flight,s\"", TraditionalForm]}, AxesOrigin->{0, 0}, GridLines->Automatic, ImageSize->250, PlotLabel->FormBox["\"{\[Alpha]D,\[Beta]M} =01\"", TraditionalForm], PlotRange->{{0, 90}, {0, 8}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]}, { GraphicsBox[{{}, {RGBColor[0, 1, 0], PointSize[0.02], PointBox[{{10., 1.2500846852014156`}, {15., 1.8215366265914448`}, { 20., 2.3556147863336254`}, {25., 2.85298881015716}, {30., 3.315131663619284}, {35., 3.743561515508258}, {40., 4.139429113641392}, {45., 4.503340571487283}, {50., 4.835305796819173}, {55., 5.13474734218481}, {60., 5.400541325983334}, {65., 5.631080411191324}, {70., 5.824366087871164}, {75., 5.978146308866705}, {80., 6.090123717334057}, {85., 6.158255528630538}, {90., 6.181127992320793}}]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox[ "\"\\!\\(\\*SuperscriptBox[\\(\[Theta]\\), \\(\[Degree]\\)]\\)\"", TraditionalForm], FormBox["\"time of flight,s\"", TraditionalForm]}, AxesOrigin->{0, 0}, GridLines->Automatic, ImageSize->250, PlotLabel->FormBox["\"{\[Alpha]D,\[Beta]M} =10\"", TraditionalForm], PlotRange->{{0, 90}, {0, 8}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}], GraphicsBox[{{}, {RGBColor[1, 0, 0], PointSize[0.02], PointBox[{{10., 0.9970345108082366}, {15., 1.4752989881244163`}, {20., 1.936722804993085}, {25., 2.3793624178530806`}, {30., 2.8021334300323684`}, {35., 3.2045451141035954`}, {40., 3.5863702071592147`}, {45., 3.947390489173282}, {50., 4.28723047939139}, {55., 4.605255635702818}, {60., 4.900512564982535}, {65., 5.171693893646022}, {70., 5.417118831992946}, {75., 5.634725601649726}, {80., 5.822081490410145}, {85., 5.9764149820541395`}, {90., 6.094680947600879}}]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox[ "\"\\!\\(\\*SuperscriptBox[\\(\[Theta]\\), \\(\[Degree]\\)]\\)\"", TraditionalForm], FormBox["\"time of flight,s\"", TraditionalForm]}, AxesOrigin->{0, 0}, GridLines->Automatic, ImageSize->250, PlotLabel->FormBox["\"{\[Alpha]D,\[Beta]M} =11\"", TraditionalForm], PlotRange->{{0, 90}, {0, 8}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[TextData[{ "F", StyleBox["igure 4", FontWeight->"Bold"], ". Plots of time of flights vs. the initial angles for four cases of \ interest.\n" }], "Text", CellChangeTimes->{3.527434857833226*^9}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[BoxData[GridBox[{ { GraphicsBox[{{{}, {}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData[" 1:eJwV13k8VG0bB/ApoUKlKLJFyRrOSaVS54dZODNjKcugUkKWQohK+6OUSArt q6UkkhSqJy9akGwpPFEhlRZSkhS9d+ef+Xw/c5/l3q7rvrS9Q5b5juZwOJNH cTh/f3nlsZtCx51jvHOG3t4qTmFkWnZ5nZbJYzYuzzqQviGT6eH/avjFFjEH CqtPOozkMWpcaw35wPvMVqWy9OS4u8xv3bbzfVsamN/VZhNnVVcygb9mHju7 p53h7AuVVvZuZpK+StzXje1jPhidDfU69o7Z2njzf3o1HLCfrthkyvxgmu8t 73kXoIgc4zeG90WyEHOfL9v6QhVjUnZzbnZPQoLfhvi7StqolrHz+d2sjKX8 ZoWtJ3Qx+UGe4PHX6RiW+9wqaDTAwE71DY2btRD2Xv682gYTBIx5LtM8QQdX li2a2LKFgvCRY2C/+SxcXR0Xe/jYXMR/690yR2U2Vs9q+2fVm3nIoovYGCl9 GG9eGs+Ts4BDrhlz4JoBpJUbPdfpL8KRj8NHveYbYdggPis9whJB8UMa8+8Z I/2O+OrWk0th8qmx4YiCCV58n32vMAo4NnTy9jSJKfw3Bp42PmMFgeyBp8lL zPCVF/xm7jVrKIpWzva5ZYb5yNT6X7MNsjb4bZplQEFF5vPZaW02eDjMeZxn SEHutp9OSLsNKlTXm1saU2h5+36e5gcb+DI3rB1NKTSadBza9ssGxiKOeMM8 CjmiKJlFmlxkagarRFtRGGAvDhWu5WKkfu2BLgmF93NyA0t6uEhUDqz6HkNh a4NWa8Q3LlqVzS3W7qNwZmK5k+EgF7VXLxyujaXAPZpklzKKh7QWv1EZcRR+ bv8eGKTEg3vj0Q7rwxTKnkwIU1nEQ/I3cRp7isLd8/OjN+3loaLwh3pcHoXj +rnrjeJ4mPOu6WXjdQrpvL417Yd4+K/a5aDmDQq3djxxEx/noX6sYXruTQrl l2NCdbN5aAsyfVZ6m8KF2zOXP6/j4dTZWPOC+xRirz59uEidD5dAm3cVTRR2 hIaZv5jBR934vpMfmykYhrllROvycePQQhuF/yh8UX9/+K4JH6VZJzeKWyks SK49tNSKDy2lE7zS1xR260+ZaePHh8TXryqym/S3UnzcPo+0jxbwVYfI92e9 8O8t4KOAI5cw/RcF/kIHy8PFfKj0+1RM/02h0vnFx/oy8v/5F+oqIxQU/9Ab XJ7x4RdWZykzmsZec8uBFUPE4XckeeNoJFxLlQ/mCvC0t/jPYhUavwL6ckts BVj7bGOrvCoNn4fblyuKBRBPCaprJRYf104rcBHg00LtkS1qNCDjtOKXnwBT 00+EZmnSiLUwND9wQADl+szrrbNoZEnO+WfWCPBB61hashmNS4ohosEGAfZL 7P1tKRpm0jo02yRAsgGX+4u4vUZPqueVAK9sPlqtmkuj3in4zrw+Abbq6Tqr zqexYUnZngdTbLE0fH7j2sU01rSt8nwrsYXKY9aa5dHYX7XlVMpKW6wbp5/8 mdhREtrG9baF1M51jYl8Gt+bOv3Sgmxxq1h+Rr2ARu1AfOLqHbaQVenp5LM0 3hsZz3uRZouxtkMaf+xpLPCJS4q7bIvPun0uSQ40KnlHehfm2KK/z3abjiON ln1H8o7fsoWqrFqylRONLYnDPNdKW5ydJPgStpxGiVnZnfoeWywJyfW46Ebj nCWX2v2NvD8oe/NMCQ2joSWXzQZtkUaN3ZtG7CEffzJxlB3ynr32P+9O44ja 4sNiJTvYZcmvTPCkkSYx+LdyoR2mi/BjrhcZz7YA2fIYO9ABOV9v+NKIH9ei OPOAHVSUjE/I+9EIeGih8U+CHaTVdZx8iI0rSubbpNqBOz3i+6R1NMpL0iPK L9khqTh3opc/Db5mkur9Kjvo6UfG1QTS2La8mZpVawdjFT9blSAaesHv2Jin 5Hm11dPWEA/rL9/JbbXDxpCRD73Eq/ar9t3/bIf+5D7v0Rto3D6oP/BgEoui U5NODAXTCFb8V3W2MovsJQHB80LI/XVfluxTZTFkZOESQlzVYLSfr8OircHC 7TXx9YLLMx/NZTFy9L5xYSiNrtZeoZ4Fi7UdNQkfiHW6SyNiLVk4sA4cjY00 qvf8fiTgsfB1yFfdSex7KCaiwpWFchJH0yKMxvorL87re7KIU7gz3oc4zTnr yX4vFuejPo5NJL6lf1bfzp9FPSd3YQdx98XMzsot5H7v4vXbw2l8kwqaYriD Rd4Dna4LxMvOJNnE7WHxo29UyANiLftf6exBFhrJ2oXjImgERv8Menyaxcuk LpVYYtfPk88pX2Ahox2YkEZ8gh/V4JXBItk0W72E+Nj0aYv6c8j43PM++I1Y 5rE4eGk+C8nClkD5TTQsah5c3H+LRb6evO8sYkeLUHmNEhZ1zpeynIg/Np6x WlfOIubQxH4/4humUlHXH7GooMzdo4nNDwZ18OrI92bnh18gvlgaoHK4kcWF HfIGN4gvaafa/9fMwiVf52c5cWtlyJ3gdhah82K6O4hLBSpfi7pYeO+uHdf3 t71Hl77UBxbhek3cEWK/M41e4h4WhrNPnRwfSfbHlc7UY19ZzNqmJjeV+IXG pJr2ARbT9SWpM4htktykjX+xeK3vZGlI3HOu0DLyDwuv7TLDNHHhmzkR/5MS 4tyszc2LiCOHCrPHjxXinkZmjRWx9Lblnc7yQvSvO/xKQMyMGZl+bpIQyaMX yImJ/8y5uaxbSQi5zyecnIg1kyPj5qoK0Ta7ON+ZeFM9U7ZdQ4gr15JN3Ihf 75ow9EhbCKNY4wcSYoslr6nJs4WgcnZFuhNLLuQHrDAk7bWTrP9axfafC5km Qpx6s9Lgb3vnaoeWL7QQMwfeGroSv61QVly8QIhoV2PBcuLLzQ22excLMSBt ssOBOCw1ZlctI8SfMZ9qWeIZZ/SLVLlCaDj7WfKI42Pv9q61FaL32+nypcRJ X5bo5YqEMO1K9F1ALBN+ZdWgoxC5+oyOKfGjrD8p1i5CuJdc+alLfM108ZN4 dyHmX2n4qEZ8/JzHmKaVQvh+uDU4idg92XOxtrcQmrvdZkgTN0YNXr4ZKERq 4ZOSD2Q+rU4nvvoTLATfI21BK3Ff3ogyGy6En/u8qmri3VM997yMJuMffojJ Jp52xqZIf5cQ2kdddE4Qu+0c+hwWI4Tl1BatfcQ2ZZUS2QQhmhyVg1YSp0va EpyShOiUrykSEKveull2KkWI7/NstCniLCrbyOysEGtbvK1HEdup+Q1Jrgmx Mj/qQSrZH8OrklZwCoQIsjsVFPV3/+iuvnepSIi+i5+k3Ii1Oa27BkpJf3JV 5KYQd7A/OMmNQiy7nBq+g+xXA5lur8UtQixu0M92JT72xPdeR5sQKW/eN84h juX1b6HeCcE0fx1pJvFAbdHEjzU/hYg9aZKjQ/z7lhQ/ckQI3UyzyK8k3vAr A89rSIkwsXI1VUpcGBazfL28CE+DhTs8ifctPJw/TksEu0E27B8Svx6eXOHE 5YpQ6v+z7DyJj0Fb5C5+tBVBhNe5XsQKnN99R8QiRFz6Hq9B3FOZktjuKsJe wVWtVBJf/81zLd0RIMJAld25revJ/Neu/l10SITqefayiiR+T1x0h1l9VISd /jpTSwJojKyavUf2uAinH+pOW0+8+4zOGNcLInSa3e4tI/G/U7zy99cbIowd nP5rLckPH/aY3DFuEcH++MOt4T7k/YMHPWLaRMgff9d+GrHCxZ7BF+0i9Nwq XnB7LY13p4vpgx9EyHv3xHbY++9+nnGy+5cI+194rNu8hsaEuTLzMzXFWNsz KdV6FYlHGfH3h3XEuGmReLtpJYmHsV+cXPTEUI2Y2h9EvOEqP2CMmRhHepnM pBUk37e/PeBtRezOkW3woDHkVHVY00eMrc7Wt2eT/Lry6LBcpL8YCwpcTHNc aVjvebv3yXoxDJvCimnid1G1m7ZtEuP32Sr5xS5kPc8p4v23Twz1h33XQPK1 xYyitJQsMdptjd5rkXw/iqMgkOsVw1pSOMOEnB8GfxYUlXwTQ7feb18cOV8Y 2kXrRwyKUfRGpbmLS/Id4zq6bZQ9Ssz3MidsSP4Y/HQ2V8ke3J5dmt9Aw/9H 82anRfagv6hohJPzS/HkfSdS9tpDY0qERropWf/JTRV2cfbwzUiXemlCQ9a0 4/vwIXtcf/Xfs6nE1Pipdn7H7VFYKFm615iGetm5p/Oz7WH++bSWiwGNk6cj I5vq7BGZ4TWzVIcG10yhbaq6AwQXj5lVKdGIMJxeXjDDAV+EC1q6ptCY23A0 c5muA6xntEZxiN2pUt9DJg4Y8795x2hF0j+vvPvSVg7YoGu8Kk6BxNdR1qP7 fR2wiQuFsTIkXxcsXVdzzQFRlR1fFg9Q2N6+S+VfbUe8uR7wbO9TCkbqGX2d Mx0ReDPjZVgDOQ87uFWOn+2IKN0Yjlc9hXtlqyMkho4ofqR/yLyWQuLrrqJv tCPO7lGqb6yisGTo8pAB1xGxKUnfu0vJeb7yiCTFzxHDGdK3/a5RqEkYWLgu 2xGvb/MtrpD6wH3jGYO7OY5kvQbyrEj9MPnyvGmKeY645bHLuonUF7Ftcz/d LnBEpv0eec4eCm8ULLdPuOeIA5Zdr7jbKKzIm7HoZp0j0r86xZwKpfAp0Edp 1IAjXmHWg22kXknV1ulPghNSj0ygJ+pSiK5rzsh57ITTuUbXsovNUKVkrvd2 +TKEjry3krY2A7Lq1ux7twx+qgUGJqtNIc+X+jhp43Ise2P47DJlAn/VloQe aWcorHhe9LDCGAmt46TzDzsjUef49ZcSUt+FGOduV3HB3R6NfOqpAV7aMbrb s12QoWwxW1leHyYzHdLXmLuSOqPuUid3NnrmG01YXeGK1x6H7oXPn4VmMg+s uxvGf3D2mTxJBxb1ao80XruBV5BDhbRrYfrS50ZvNkpQu7k37pm0Gu5d3r/+ 6E8J1sVqzj3ITIXwwdhVZjvccYcvxe9wU8Q4jurDYwoe6NZj7DPjZHFN8liu 74gH3u38KHvB7Sdj+KpivU2KB6oCTjzb1j/I5EoF3U855gHLJ7qx/KRBxtop 1W3RaQ+ci52cmlb1g7mj567wT4YHciZW+MRYDjAPJyrenFzkgRSZCQ2v1b8x E3Y7dxu2eWA4rvzc+PPdDG9Dqtq2Vx54sKIjYPGz98waMZ/7pN0Dfesd/wjG v2dWK3VvDnnrAcXPCfH94W8Z74/jQ270eqBzpGjuKV4no01ZJSwc7YkLsoGn l9xvYdSDUnTjxnhizoSSmyqGzcxXnmXBfzKe6HJ1DshOfM5cHBddEC3nCa19 Bud/uD9lPH7G418lT4QaPc5wfV7JbA3kH1SY5gltU8GBfWceMlFPudUrVT3B Nf+crutTzpwpGkeNaHhioY6awtpXxczxqmpn+xmemBr99qRlwA1mAqcm+KyO JwzC/RZ2d2Yxn9PkdvbM8sQkvwKx8dsTjM6omL1L9TzB+Xu9z7/7f0eDWWY= "]]}}, {{}, {}, {GrayLevel[0], Thickness[Large], LineBox[CompressedData[" 1:eJwd13lYTdv/B/BKE0rdModzXEnzpLMlcd4NaD77nCaSOlRUGqQM0YRCqUxN QppDRKSBckspRNEgKr4VdRuUNJCUfuv+zj/7eT3PevY+e33Wen/WXrnbl+cm JCAgICMoIPD/16spvutnX2cXUqOhIo/i2b0hDldVpe+zf7ndtTYxucl+bfe6 fY5TKZuhoTeZ+f4B2+Lkh7zPQc/Z38bN7JmMCvbZy/9bREe/Y2dtaNIeDq5n 52buthCN62b7H7Qy0pT+xF6vnLmnc9E4W73QoJe5aZAtOFg1WvdBGJopawIe pUyxSwM+NuYkLUC1rcnsiRkJJEv53j8wi4mipBvalfMWgMP52MNnrgYVeHBL qI4c1NOlFHFbGeLaM05+NUyo1VYJO33QQLfuHqnApFXIncU4XPhIGx7h30XO BSngd0JDWtYxFlTXnPTdpqSEHfFbl+pI6sLvruvIsxMqoK+tWLLhnR6YF4eY VI8abKWL3Dp9N2Lq6F29mkkNxB/Z4u47xca6kPSHJ4Y1QY1fmdDjGyBSpmZi /Rct3HQZ/xxzyxAd572ZtQXa+PddqMw1aWMMZ7jY2JxYi6oqkWXM/ZvRMa59 gbtOB4ruXq9GirbgYfic3OjXOrCTFi4/LmeCfM95OhsdWXj93Vsvn2mCyK46 EWUnFowbWwo6Vpvgwp83+Qv4LGgn5N5ka5pAZ1VyUp8LCxLLrC9NG5ugYgXS Tu5joXJN+p5AHxPMfGpNCTvKghYbkn4VJhAKNzdPSSTjfYIc+HtNocBf4uFe x0KC7OizP16mWBty7qX6GxaYJR5a1w6YQqmb2Tj6lgUdYXvx1mBTvImJ/xDY zIJjslahdZwp5ppVPz7YzsKd6p6/tlaYQsdnc7NqPwuWDO4LNTkz8NweOSYJ U2ipqtF5xTRDWOrltLWiFHZ7bkr1VDDDZfm4mNdiFA4+VDmco2WGcLE2h+k5 FK6Zi65eaWKGrbr3Xlr8RWHw8OOw+QfNELr5yMyt5RRi3qzW/V1nhifzQstc WRQEXcX9Q5vM0H68VaeOonDoZ/+dWa1moFdUOlO6FJxX3Fsl0W0GqnHDG6EN FLS89KSW/zbDlGqtXDQoNItxejatMYdP6q6dfHMKy9lH4k6EmmPglHeUFJ/C hQaHetEIc2TI+/hzdlEQ2bNxztkoc+QP/JaK3U1hKFoo7FK8OV6OP3ERc6NQ 3hq9LzPXHD9+dR3s96DgeijNsLrFHDpP040P+FO4c+fl8GxNC5jxBKPPRFCY qDTx1GBZwNX4o1H0KQoGrdWfbfQsoPzdpTX2NJk/0cp3140t8M9Rv4zzkRSE +I9LWdstIGQVk3UqhoK9zO0zu05YYGysxkM/noLA4RhmSZMFIoxNR+oyKJjH zE3+9MEC+tFBoXmZFBIyImWF/2eB67EOA9FZFJTfRIhy+izgXbnQeUsOBVul kK9fpi0gP3iuMPcWhZttPsXSaywxhYjVyKdgDZp2D7SEQ/+xWefLKOQvbXs0 FWKJ464c5o4nFKTH3VZfCLfE+LhIn/w/FGpvHpssOWeJp07LQgrKKRjK5mTO zbbE2NahwspKUo+e6Ym8Bks8PKLgkv6CQmz5GRej95bI3quyadtLCl+TZeta Plris7fsM4laCjkcpQyBPksYlUe/83tFgVFiY8mbscTVIHlx1XoKktG5aeMq Vrhp3ZvFb6Kwbw8lEaVlBZeiFWzBZgrPUXFoxToreGrrhqcSh4+/M99qaIWd PvNl2t5RmHQS+pG0zQpt0376+EChT2u7mX6EFVjHKmpffqRQ3SI6euKTFbZ/ y2/q6CbjddSuFn+2gnHvSQanh4LaRevNQ71WSPb9YFBKHGeRmrh91ApnlaQk L/1Lwa1ivb6mOAchZlll2n0UhHO9Ij5qcZCNoNN6Xynoil9Sl13HAZd52iyB eJ9bSYuJPgfusQu6h4kbGKLKBVs4aFtQlpo+SCEj7npd1A4O3r6ltCeGyPyG NCzSjeBgZrqpbN93sh/aJsq9ozjwrFr8q4D4pi7DM+McB4ZLOuZOE0uP7iud l8wB5fOrKHKEQudekV3deRxoPLNTjh+lIPtMZY5cAQe//xSubCY2+Zv3gC7h QKcmeVh2jNS/PUWktJKDPqHB+bHEYVzdWxffc+CypvRwwDiFgjwn6+cfOTjX pKuSS/zv3Iip6S4OFKXXF3YQW1W/tfIY5CBFu4pn8oPCuWsPfzEEaZIPItmz f1JQemVS92gWDYXNKQvWEVdOtqXbitJgjD1ydCH+aS9kcXYuDbvpEL9iYmcZ TsqPBTQaS7Ue2kyQ/bkuySF8MY05pwbUjhAH7+xcKCNHYyr+XmQy8dUb/ufU mDSkohz724hV6krNH/9NQ8vH6NskccmoiLjpahoSl1kti39ReL8pKcxVmcbo 0w00l9jdtVN/RJXGTAWncx/xj0jlX6EaNKrEfG0jiOc3l/pd0aERure+p4A4 Y1JEXWkdjYDj0sK1xGuZnP7C9TTkuxyFO4i5+zp3N2yi8eDwojzRSYr0FWUG 34DGxdsR9ouJ9xf6tw0a0VBRnPmsSDzTVpp4bAu5f/9Ja13iWEFRm9mmNGJH ZbO3EC9fw5FONKdhb3S3zZr4jkXSK3krGq0fbMecifUPdJ65T9NYXCQ27Elc m6i8GdY0pNuq6gKIHcr8BetsaVRujjkfTNzfVVq2YxsNzZ98VgTxUXHRo30O NLZ9Y5edJRZX51CHd9LYoK6seIE40TppRJhPo+UB41A8sUJgZ97F3TTUw5g5 ScQPU5T3Md1o4JLq42Ri4yr/NXl7yXwPGt2/QtzUV/p5gyeNSzF7ov+zi5Ro 6gsvGk0Bcab/jR/R4Tja+9J4k/66L5H4uEPS4m4/GqcWyXjHEUuFdTYdCKDx o2FX4zni61nKFwQO01jZXLosilij1t8yNpCG2IpVpieJnwyXzl4WRCPnTty2 Y8QWC0Wrb4bQEAz/y/wAcfsGzol1x2ksTLvMdCf22pW06dlJGj3Cah8ciX+f 6pzknaLhe7c2gCaOvK1c1HGGRkHqwVFD4iUN/v4+Z0l93yvb6hDrLhf9Gnme RseyogpZ4hpDzo1Fl2jMU4p9JUhs557kmhVP4+ex/Y+GyPo4+ED5Y3kyjYlx O/YzYuEP/petrpF6Ld/xLo/44p9S2/brNLqiPOlE4nxTTt3PTBpFermDrsQG vklRETk0SoLapc2I6+M6t8jeonFIZMkideLB//n/o36XxoqBB69GyPpXPpR0 z62EhpqYX7sP8dPpvd3KpTSKTQYFTYh3RKxbOvyERnj33PcM4pi4dyePVpHn a2om1JL9OHx/vv25ehp58xY4yBKf0fty1qaBxmblTOEust9XPn1QvqSZPC+t 2fkuMe8tTzmzldQ7laG4hbjw2/np4m4a53s4Aq4kLziH+dohvTTWtn/XUPwv T/5o7DUaIOtXjZIeIPmzdF79m9fDNLI7srq8iINUJTO7fpM8iF1Zzyf5ZegR aSYhw8Uhsajq2ST/Woe3hb6dz4VWPlegZJiC/xHFgoRFXKgXPu7fQ5x1umb5 yuVcfH176O2Tb2R9Z4t8ZylycZSO7HEieVvfdTzReRMXnzwYGvwBCns9ua/k DbjIr5Hwn+wn/XiEKdhvxEV12NW9l4i1Bcs9A0y5KBDO2F1B8j+O8WdjpA0X GdYWqZK9ZD4dj36578nFc0lpvb1fSJ5lJRabeHPRJt9dNfaZnJ+GCqI/+XKx UvG2ynFiz7BvOnMOcmE4KhWT0EUhMNM1YlcoF11X1K8/6KCQ9NVKQTqOi/PU c4GidpJ3LK/JrARyf+lSM23i1JDIug2XudBuSdt/u430V+mqQ3tTuEhRNKKv tVIo0llf8+QGFw0f25383pPzUtAqd+8yLm5c8CrpaiR5+Az6s8q5ENUIfWpO /HGek/Tlp1zEF5/MedBA4UtqUnFVDRfm53eLhL2lMFYlOXtZAxeyvMPSc0m/ lpGcuPmyhwsZxrRLP+n/nGuvBtZI8/D6U6BAHTlPOJrs1x2X4YEhNbdKiNhz VDbi6QIe9P+c1aTI+SPcdMeKnXI8NC/eKXz5Mcnr8T76ogIPZ9j6iVbFFFZb iRVO6fPwjTfkEUjOL7//GIS99eCh/MLKytfpFGbf6n6V4sWD+5VbmS1pFBba Ri7x8uWhzWWVRkcqqVfum/uiB3lgan3ZNJhC6mvv3L0hjAeVsnTTn8kUGu8G mWUn8GBwRVai9iLpr/yi+ccqefDzrTL2O04hV+gv0w3VPAT0TcfYhlHIy/QM /v2ch41HzkfrhpL+2Lu851gdD4pN5Tcng0j+7A8vCvrAw84IK1ffI+T+YVyH kG/kfV8vb13qS2E6deD6cTlrNI6cfR64g+yXTobKGX9reMRn37PXpPCPcc2f xYes4f64REBIg5xHbvg03Dxije+p8lq5auR9fcsCa4OtkXZLcO2kMhk/5fB8 3hlrBBa/fxS1moxfnOAWf9Uaok8mWw8upSDGkUhNf2aNK/vn7QyYRf5f6cT8 skU2yPUPcJdpYIE6obArYqkNrs9sbuSS74c7W23uWC63wbXm2oFz5PviasPd zZ/+tkGh89hq8VoWAnv3HJpRs8GOr8VPeitZWDu/ucXA2AaH/5U64fmQhZx9 +cnV+20w7DrO2U++Vy4s9WS+eWGD3qAU8Qh7FhQazWfm7LdFxph0xewGHcw1 za2dkbHDEp+m9ZYbdWBrkFHSUGkHjyUPcjpOr4VL3Nxjr93tMf0xyruuVhst HhJO2XLboBLIFfMe0IJkcvD8nKfbwIood8wW1ULcaa/iXXu2Q/hL8Ear+ZoI /TkaPLnIAXarWm/7j6hB4+nAwsdlDtBLxqelpSowlgp6u91vB8T0VrUJqSnh xpKowPsrHSE0JX9YIEwB9SHi49rVjrAfWJ13rW0VHPcwLl44shMKqi1xPs1M 3LmRLbSY4YShK7+sS4rlwLmRy9/21AlBI/Zziq4ugI2yacchf2cE2cl97rWT ROzJ3MtOEnzkj7kes06YYQ8FdyXWS/IBO+Olz5bOsC2PLEmAFB9fLo2JMq// YUt4n774twwfTWk1Ly7kTLPP2rmc7VnER/sc3XHXot/sU0pywT6r+GDJGH5+ 0fCTHVwfxQ/R42OiZ3zdsu/f2O0vKpy+beBjJHmgjzc2xNavmnDkb+TjgOjJ dY4/B9m/i/dsNwQfd4UTs3qmBthH0g15olvI85KtX7eK9LIDDk4axXL58NBk mEOqg93oq2U4w+MjrYTvY8D4xF7r6Y79NnwEH68OzmG0s787vdPn2ZP3c3Y0 dGG8Z/ua3Gct3MmHNyd/9+Wlb9j1hn1rTzvxYW3wqU9M6xVbfSNTe8KZj76K jqA1qs/ZQ1qx6q27+XDbeXRoM7Ocban6TNXclY+k4b+TI7WL2XcUppRL3fi4 1uWks2zVPbbEyrVKanv5MFfl2p+WT2Xvk/Nck+LOh8B/v/Is/f8De26rbg== "]]}}}, Axes->True, AxesLabel->{ FormBox["\"x,m\"", TraditionalForm], FormBox["\"y,m\"", TraditionalForm]}, AxesOrigin->{0, 0}, GridLines->Automatic, ImageSize->250, PlotLabel->FormBox["\"{\[Alpha]D,\[Beta]M} =01\"", TraditionalForm], PlotRange->{{0, 160}, {0, 40}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}], GraphicsBox[{{{}, {}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[CompressedData[" 1:eJwV13lYTO0bB/D2NxVaGKFS2rSfKYnQ+dbMOTOlfSpkSSkpS0gqZAvZKanQ RqkfiigUlbyEFO1KKqQF1StSSq/e32P+metzzTxzrvt55nzv+2j5hbgHSIiJ icmJi4n9eZ+6S3e6i2wafeRk5hbfonP03GWpqyyu5tFOXyTKOe7ZdM9HTnzh 6SK6y3ZCVWTHLXqr147+yNxy2ka5R+yoWymd8FJr8/H79fQ3hyU2C85U0ifH VpWFlXTQK9R2xfhottBMhNqTXKvv9O5vj/fOdPhMN14fbXbuFofcrSPyey6P 0LKxfKuny5Xx3OtVy+pnstBI0NotPzIDy5qbTkl9UMKNZjWXiMtaOJoSqjJr iIO9c6cvaJ6oh277wmd1WmqQDuuV1J9hiHeb35ScEmlivdHxRna9KXqY6Tf8 kmfDqH/N8ecsF0H9jmUpeTp48UNxX7GxBc7fmFbiu1sP78IeKqmZWyLe7av6 A8EcGDRvWu6rYIXbPvSUvTUG8D17ISegcT6CNj+t2EAZIVenY3ZusTWsFoxJ 9x01xp3t111O7VqES4c8KtuumeCTlrTYo6U2sO9avMirzBQSg777UpSA7CmL uvi5ZqDW/L4Z3AlY8rzC4i0pyClnyA/3AJ697XmTrSh0zc0y3N8LyCvPazo6 n0KjbM/thO+A1NZLnTsXEmvY9ZeK2WJLYpaUqy0Fn921ilLqtjhrYLLhqSMF s+oTzr6etri53Nun04/C+OCn8KByWzT6RNCfj1NQ8XKNvPbcFmIjfB35kxQW CgsEvZW2eDqvZ6bxKQr+s08s2Vhni5aDvbwNZygE2loMbHhni9dF1yLa4ylI NHLyfUdtkdmYfyAphcLIjUuO+iZ2WGX96tCKGxRS/Of/8qXssLf/8EefmxS8 Ry+EJVvYwcZUxmttHgUNpq1R0doOL6+ciwy8TeFNgezin6wd1N5lFvvfpWC4 +8j1+2vscH5qO21RSsGmWmipFm+HkeNfMjVfUmg4eMvqXKId/vpiNT7jFYWw aVPFJl20w56rZ5gp1RRmePZ1jF+yg7tfXqpkLQVX9t63tpt2SN9WvLuxgcKh 2iTr2Eo7HLmROMK0UrjI67tZJcHD33smh3p/oWD6s3KfjQwPq5yX3TbvpZB5 PlU1bwIPlgnSHRP6KARrLkyJU+TBP7tJ+U4/BXpQd8xDgwfpyz7F4wMU5tzy VaxewENduSbt85NC0MKxhqQtPAQ450R7SnJRuo6TNRjKg8ViswxZKS7M1syw dQ7nwejUtIf3iQ/FjTRI7CHfv7qyb6YMF40ra7YHHefBwz5Bo06WC8ttvy4Y Z/Ggbfy/gYmTuKgctb517C0P40h99HgaF6FPnla1t/MQU3PllJcqF49XcPLN O3jI/27q/Yl4tHrm+zefeEhOku2XncHFsT27inWHeQhzuy5po8bFXumAg/mK fJxuMJeM0OSioMl8bzbDh1rTo1KjOVzs6nvFFgv5mFxjVptAvO3hy/c1S/iw 0nKWFjfgwv9/sidG3fiIT6mpqyOuDJEpE67mw2/uaqmNRlwkriy43L6Dj+xm 9ZfbTbmY5TIQNxDJR5xkiVgdsW5kh6dEFB9vitu9TM248Jo1LtKN5mOI0x7c SRw4NYMbdJqPJ2cWWLBcLkJGtcI/ZfNhuLbc9b0FF59iDM/9vMaHeWP2bbO5 XHR5Ljwsc4OPmLJWqz3ETmLHPmgX8LHq5tYcVUsuzDcHRa0s4+O5/i2aN4+s /33BubyZj2+zKqaHzCf1/3MorfYtHwsqWu/mEZ8tqnjc1s7HoVTFiG/ECXUh h4c6+Rjulw/csoCLnrBHP2Z/4wOn7o6stebixH81kWETGGhDbFhrEdnfJvmd ZQoMRPZPzLyJmTY9Vl6RwbCmxPpYYsONHLt0DoPRfKOGf4ljfx+teKbNoHLS aPKzxVzML9xuoKTPwJh1rvpJ/N+arZ7ehgw2DaT80rPh4rhVkVIfxcC9cKPH AeLnmWZqE20YSJsdGTemyfkc82rzsGVgYLRV35PYJr0sOJnP4M7BBpfdxOHN O74YLmHQOMkh7Rlxg0V161Zn8vm03U97iTdzoy8WujE4b7q+fxK4aA3h7GGW MeiYdsPanXhyi/jl4ysY/Lyu77uNGAt842pXM9heeyEmlrhfJb55ZQADM8vc hiriTztDx7ZsY7A6evFWK1su1N5mR98JY6DQYnPehTg8Yl/zaASDH3aFj9YR 9wXN+7R/L4O1S92nxBHXF87KKD/AQO5AnE0W8X7rcsMJh8nvlxwNKiKOvbsy /fQJBguZ1ketxEuTvU/VnWawZ8zrax9x9nFj+6lnGfyKf6b+L3FAWHPN0gQG qQ8XO8nZcXFY6K974TyDLL2KqGnEqt8b2dZkBpnbIm9qEy9cZWGpkc4gwn51 hymxXuiBAZ8MBiucYzgLiHVnVkRcymLwVkvK0Y44xXriq46rDNp8Ow84EMvc 8RjQzmVw6arVAzfiwQ1X3vnnMXgcO3FoKbECLZ18JZ/B4rwwahWxisJO3e67 DAKS9m7yJe64MWG33n2yPy3WOf7EweL309aVkPOWude3jrjw7ZkzWWUMOFck zdYTf1OJd+5+TPbXlgr9Y889FW90nzGwWONYFEi8qH+eecALBjaHA8X/rFfn dizNfMnAaW7skrXEMaq1Dh9rGPR/ak70+VPvlgnysxsYTNV07vYm/lsiNmlN EwOuSMzKk5g+v2kwtYXBjNHxo87Ewofh8lltDBLvBQQJiMtD1/zMec/A+33J Bpr4dKDxvfyPDPZKTomdR6zk8N7hfjcDq5vb3xj/WV+x73bZZwZPQ/r4s/9c L1b5n6d9DGKqY+o5xOevqn2o+84g6sQK79/kPAcdUpOahxi8+5Hj/pX42Btt nfYRBtXKHpvfExe7O937NM6gfUvj5DLib9G/SvvFWUzIfX7uBnG8WemF71Is Xifw6GTi7dsuvhqTYxHlIfF7O/Ewr1RPbBKLVBUfpTXE16TkRFJKLHyWhtk7 EGcWms5RmMbivamYrhpxW4ti7eQZLFTSTj6XJKYcTJ1V1Fm8cJQ584XcDwdW m5RP12YRKN177A7xHH3Vh2p6LKTaQ0rPE1sedD05y4BFwmklThSxk0Vxlo4Z iy6pNq4tcVPy+EvjhSzEDv2j9pDcr5IOjcGmNiyG9hRsSybe8Vq91cyWxXTu r74I4qZEziJzAbH8PBczYpNCne9zRSzMnJ5XxpL84ATIWlh6sThU1cmuJx76 sF9ouZzFxZCP3YuJjQyE3+b6sHg6t/BcN8mjD7mp1uYbWDz/wMkzIS7KzNXk bmZhf/ui6DfJM32JHW/NtrLoSPNXqyIOusSvNg5nEZI7qB5IbPDTI08nmsUc k5UdcQu5cIibvlLhIou3rb93PiL5Oi616dRoCjkfJdfbB4lbpTcmdqez6G6d rSogLpKNMinLYvH32/CQCpLPGgargrfeZsHZo+H8xIqLxcLLhlUVLEY2ujXG kfxXUE2ouFvFwiRZ4peQuNR6B32pmoWpyRencdIvqnbL54U1knrzjkavI7Z8 Ppqp9oGFxwlW34T0myRqzQe/ERbhx895n6VI/qn+HHAYY7Gzczh8EXFhXVGT +TiLNz125X/618GwOkMJKQEsqp59NSdWnlrakzpZAJdXpYfKTUie3Ol5WKMn gIaU0cPHhqTf8o9JcTwF2Gw3dkdHh/w/utLyrZYJYG/m4nBNm+RL4QKL5SsE +PukX68pcQp3YuZFXwGixMU8LGeTemqLHDU2C2Aql142j/TzhFlLS2fECPCt tkxFgfT7SSUFvIFCAeb9OCIprsKFa3i0gkKxAD/XjDisV+ZC0XBTlv5DAfZ2 dKe/UiL79yHDaXW5ACcuRUQkKZLzVJkVXFErwGytwSZNMo8kSi55l/BFgDXz ffylJpA8aee0TFITwkQ1QWXaOAW/5Aa5AQ0hHoduiN74m8LpkfkqtVpCTF0a MvvRvxR+v5a8HqcvxFlds38CxyiEj0n/VLEQ4nlBecn1EQr1y19LTnYQItxH XKAwSOGd4cIJPeFC3CtXcOH2kPk16LLl451CtNdr39/YTYESaVqnRQlRXfrC M7uL+M2mSq9oIYbkfmjM6CTzp93NyU9OCTEpoGd06D25vuMTrcQrQnSMd749 3ELBo6c0ela9EE3DGckTyfxZ9Uj9usVrISzv/btPrYpCvPr0TMEbIYzOMKGG lRQEMsNyIe+EMH/Uvp9XQebx/4pzHvQK4eRwSxhcTmH+BnW+o5Q9Dol1HjlW QmHW98ftDpb2+DztigUnlwLbHZBRmmCP0C1lZquOUoic4KVTdN4es/rroyyP UBhNOxSZn2yPJvZjl0IMBWH4rfTsy/YozZsjVXSQzPcFaR0nb9hDVapgp8w+ CqvFv1m5P7VH0YNh7x07SP07B3F/yB47Mhxtr5Hngx7vwBOyHg64rO6zIYA8 b3wQaUw1kliCH0cV603KzBBZ2vUhuHgJWmt2eWt1mSLG7QevI9ARh3UUNur/ Z4L54pqTHk90Qm9szg9NGROc3WI43fWhE3LXRf1+22aE1B5OaoGfM5xysi3d bhmiJUVxpr+SC75sTEtOcDOAGt9VevFtF6w6oNWm900f0Vez0z/ruSKlN3FK 6H49SPAqKc2drqirldfWa9FB8PDXhflPXTFv6JVWxHxtaJzbVLlP1Q2/rWUb E1doIe9Txc1LgW4o0Dnw9Vi7BgoPXzYNyHODXvHdZRnqM+FxPSlDf9wN6fOH LwnaOfjQx7HLY9wx7NtdY1qiDMP7thvrj7ljLEzLK2rKRHQ5T+150OCOxJ9W fIUMSVQk+JRfVxXhgl6+srjcEH2/Lex983QR+motLe3u/aCbFdt6pGeKsEMu qSrc/wfdSKc/8FEXIdOjdVVZ6SBt+f6vcOXZIpzXPqn7bNt3Oof/cvF2IxHG lt1nlt36Si9wejDJwEaE4jwF3LHqolNrPheIaBG++K3fu+x0J20cGinYAxH4 x1O6O7s/0sEapdx6OxGerV42t+hcB92zpHfGboEIk361yKR3vqPNlQR44SpC cKsiu8W5kf5+8UnOoJsI8RYjsW2/6mmzjdel1UUi7Nx/Z4N6dh1d13N3d4in CHFxO/IMxqvpLUn1e1W8RUg8GSz1dHk5zUm+6rJohQijU9REL27+TU/8t08+ YKUI8kfTxkKly+jothL7u6tF4Kb5fN/sc4f2CXCsbPcRoW7wxIPLsnm0k5fD gr98RZARl++387tCx1oUnjXzE+FNpWNlztpzdNS+hJala0UQIy+IDyz6P+l8 DuM= "]]}}, {{}, {}, {GrayLevel[0], Thickness[Large], LineBox[CompressedData[" 1:eJwd13lYTdv/B/BKE0rdModzXEnzpLMlcd4NaD77nCaSOlRUGqQM0YRCqUxN QppDRKSBckspRNEgKr4VdRuUNJCUfuv+zj/7eT3PevY+e33Wen/WXrnbl+cm JCAgICMoIPD/16spvutnX2cXUqOhIo/i2b0hDldVpe+zf7ndtTYxucl+bfe6 fY5TKZuhoTeZ+f4B2+Lkh7zPQc/Z38bN7JmMCvbZy/9bREe/Y2dtaNIeDq5n 52buthCN62b7H7Qy0pT+xF6vnLmnc9E4W73QoJe5aZAtOFg1WvdBGJopawIe pUyxSwM+NuYkLUC1rcnsiRkJJEv53j8wi4mipBvalfMWgMP52MNnrgYVeHBL qI4c1NOlFHFbGeLaM05+NUyo1VYJO33QQLfuHqnApFXIncU4XPhIGx7h30XO BSngd0JDWtYxFlTXnPTdpqSEHfFbl+pI6sLvruvIsxMqoK+tWLLhnR6YF4eY VI8abKWL3Dp9N2Lq6F29mkkNxB/Z4u47xca6kPSHJ4Y1QY1fmdDjGyBSpmZi /Rct3HQZ/xxzyxAd572ZtQXa+PddqMw1aWMMZ7jY2JxYi6oqkWXM/ZvRMa59 gbtOB4ruXq9GirbgYfic3OjXOrCTFi4/LmeCfM95OhsdWXj93Vsvn2mCyK46 EWUnFowbWwo6Vpvgwp83+Qv4LGgn5N5ka5pAZ1VyUp8LCxLLrC9NG5ugYgXS Tu5joXJN+p5AHxPMfGpNCTvKghYbkn4VJhAKNzdPSSTjfYIc+HtNocBf4uFe x0KC7OizP16mWBty7qX6GxaYJR5a1w6YQqmb2Tj6lgUdYXvx1mBTvImJ/xDY zIJjslahdZwp5ppVPz7YzsKd6p6/tlaYQsdnc7NqPwuWDO4LNTkz8NweOSYJ U2ipqtF5xTRDWOrltLWiFHZ7bkr1VDDDZfm4mNdiFA4+VDmco2WGcLE2h+k5 FK6Zi65eaWKGrbr3Xlr8RWHw8OOw+QfNELr5yMyt5RRi3qzW/V1nhifzQstc WRQEXcX9Q5vM0H68VaeOonDoZ/+dWa1moFdUOlO6FJxX3Fsl0W0GqnHDG6EN FLS89KSW/zbDlGqtXDQoNItxejatMYdP6q6dfHMKy9lH4k6EmmPglHeUFJ/C hQaHetEIc2TI+/hzdlEQ2bNxztkoc+QP/JaK3U1hKFoo7FK8OV6OP3ERc6NQ 3hq9LzPXHD9+dR3s96DgeijNsLrFHDpP040P+FO4c+fl8GxNC5jxBKPPRFCY qDTx1GBZwNX4o1H0KQoGrdWfbfQsoPzdpTX2NJk/0cp3140t8M9Rv4zzkRSE +I9LWdstIGQVk3UqhoK9zO0zu05YYGysxkM/noLA4RhmSZMFIoxNR+oyKJjH zE3+9MEC+tFBoXmZFBIyImWF/2eB67EOA9FZFJTfRIhy+izgXbnQeUsOBVul kK9fpi0gP3iuMPcWhZttPsXSaywxhYjVyKdgDZp2D7SEQ/+xWefLKOQvbXs0 FWKJ464c5o4nFKTH3VZfCLfE+LhIn/w/FGpvHpssOWeJp07LQgrKKRjK5mTO zbbE2NahwspKUo+e6Ym8Bks8PKLgkv6CQmz5GRej95bI3quyadtLCl+TZeta Plris7fsM4laCjkcpQyBPksYlUe/83tFgVFiY8mbscTVIHlx1XoKktG5aeMq Vrhp3ZvFb6Kwbw8lEaVlBZeiFWzBZgrPUXFoxToreGrrhqcSh4+/M99qaIWd PvNl2t5RmHQS+pG0zQpt0376+EChT2u7mX6EFVjHKmpffqRQ3SI6euKTFbZ/ y2/q6CbjddSuFn+2gnHvSQanh4LaRevNQ71WSPb9YFBKHGeRmrh91ApnlaQk L/1Lwa1ivb6mOAchZlll2n0UhHO9Ij5qcZCNoNN6Xynoil9Sl13HAZd52iyB eJ9bSYuJPgfusQu6h4kbGKLKBVs4aFtQlpo+SCEj7npd1A4O3r6ltCeGyPyG NCzSjeBgZrqpbN93sh/aJsq9ozjwrFr8q4D4pi7DM+McB4ZLOuZOE0uP7iud l8wB5fOrKHKEQudekV3deRxoPLNTjh+lIPtMZY5cAQe//xSubCY2+Zv3gC7h QKcmeVh2jNS/PUWktJKDPqHB+bHEYVzdWxffc+CypvRwwDiFgjwn6+cfOTjX pKuSS/zv3Iip6S4OFKXXF3YQW1W/tfIY5CBFu4pn8oPCuWsPfzEEaZIPItmz f1JQemVS92gWDYXNKQvWEVdOtqXbitJgjD1ydCH+aS9kcXYuDbvpEL9iYmcZ TsqPBTQaS7Ue2kyQ/bkuySF8MY05pwbUjhAH7+xcKCNHYyr+XmQy8dUb/ufU mDSkohz724hV6krNH/9NQ8vH6NskccmoiLjpahoSl1kti39ReL8pKcxVmcbo 0w00l9jdtVN/RJXGTAWncx/xj0jlX6EaNKrEfG0jiOc3l/pd0aERure+p4A4 Y1JEXWkdjYDj0sK1xGuZnP7C9TTkuxyFO4i5+zp3N2yi8eDwojzRSYr0FWUG 34DGxdsR9ouJ9xf6tw0a0VBRnPmsSDzTVpp4bAu5f/9Ja13iWEFRm9mmNGJH ZbO3EC9fw5FONKdhb3S3zZr4jkXSK3krGq0fbMecifUPdJ65T9NYXCQ27Elc m6i8GdY0pNuq6gKIHcr8BetsaVRujjkfTNzfVVq2YxsNzZ98VgTxUXHRo30O NLZ9Y5edJRZX51CHd9LYoK6seIE40TppRJhPo+UB41A8sUJgZ97F3TTUw5g5 ScQPU5T3Md1o4JLq42Ri4yr/NXl7yXwPGt2/QtzUV/p5gyeNSzF7ov+zi5Ro 6gsvGk0Bcab/jR/R4Tja+9J4k/66L5H4uEPS4m4/GqcWyXjHEUuFdTYdCKDx o2FX4zni61nKFwQO01jZXLosilij1t8yNpCG2IpVpieJnwyXzl4WRCPnTty2 Y8QWC0Wrb4bQEAz/y/wAcfsGzol1x2ksTLvMdCf22pW06dlJGj3Cah8ciX+f 6pzknaLhe7c2gCaOvK1c1HGGRkHqwVFD4iUN/v4+Z0l93yvb6hDrLhf9Gnme RseyogpZ4hpDzo1Fl2jMU4p9JUhs557kmhVP4+ex/Y+GyPo4+ED5Y3kyjYlx O/YzYuEP/petrpF6Ld/xLo/44p9S2/brNLqiPOlE4nxTTt3PTBpFermDrsQG vklRETk0SoLapc2I6+M6t8jeonFIZMkideLB//n/o36XxoqBB69GyPpXPpR0 z62EhpqYX7sP8dPpvd3KpTSKTQYFTYh3RKxbOvyERnj33PcM4pi4dyePVpHn a2om1JL9OHx/vv25ehp58xY4yBKf0fty1qaBxmblTOEust9XPn1QvqSZPC+t 2fkuMe8tTzmzldQ7laG4hbjw2/np4m4a53s4Aq4kLziH+dohvTTWtn/XUPwv T/5o7DUaIOtXjZIeIPmzdF79m9fDNLI7srq8iINUJTO7fpM8iF1Zzyf5ZegR aSYhw8Uhsajq2ST/Woe3hb6dz4VWPlegZJiC/xHFgoRFXKgXPu7fQ5x1umb5 yuVcfH176O2Tb2R9Z4t8ZylycZSO7HEieVvfdTzReRMXnzwYGvwBCns9ua/k DbjIr5Hwn+wn/XiEKdhvxEV12NW9l4i1Bcs9A0y5KBDO2F1B8j+O8WdjpA0X GdYWqZK9ZD4dj36578nFc0lpvb1fSJ5lJRabeHPRJt9dNfaZnJ+GCqI/+XKx UvG2ynFiz7BvOnMOcmE4KhWT0EUhMNM1YlcoF11X1K8/6KCQ9NVKQTqOi/PU c4GidpJ3LK/JrARyf+lSM23i1JDIug2XudBuSdt/u430V+mqQ3tTuEhRNKKv tVIo0llf8+QGFw0f25383pPzUtAqd+8yLm5c8CrpaiR5+Az6s8q5ENUIfWpO /HGek/Tlp1zEF5/MedBA4UtqUnFVDRfm53eLhL2lMFYlOXtZAxeyvMPSc0m/ lpGcuPmyhwsZxrRLP+n/nGuvBtZI8/D6U6BAHTlPOJrs1x2X4YEhNbdKiNhz VDbi6QIe9P+c1aTI+SPcdMeKnXI8NC/eKXz5Mcnr8T76ogIPZ9j6iVbFFFZb iRVO6fPwjTfkEUjOL7//GIS99eCh/MLKytfpFGbf6n6V4sWD+5VbmS1pFBba Ri7x8uWhzWWVRkcqqVfum/uiB3lgan3ZNJhC6mvv3L0hjAeVsnTTn8kUGu8G mWUn8GBwRVai9iLpr/yi+ccqefDzrTL2O04hV+gv0w3VPAT0TcfYhlHIy/QM /v2ch41HzkfrhpL+2Lu851gdD4pN5Tcng0j+7A8vCvrAw84IK1ffI+T+YVyH kG/kfV8vb13qS2E6deD6cTlrNI6cfR64g+yXTobKGX9reMRn37PXpPCPcc2f xYes4f64REBIg5xHbvg03Dxije+p8lq5auR9fcsCa4OtkXZLcO2kMhk/5fB8 3hlrBBa/fxS1moxfnOAWf9Uaok8mWw8upSDGkUhNf2aNK/vn7QyYRf5f6cT8 skU2yPUPcJdpYIE6obArYqkNrs9sbuSS74c7W23uWC63wbXm2oFz5PviasPd zZ/+tkGh89hq8VoWAnv3HJpRs8GOr8VPeitZWDu/ucXA2AaH/5U64fmQhZx9 +cnV+20w7DrO2U++Vy4s9WS+eWGD3qAU8Qh7FhQazWfm7LdFxph0xewGHcw1 za2dkbHDEp+m9ZYbdWBrkFHSUGkHjyUPcjpOr4VL3Nxjr93tMf0xyruuVhst HhJO2XLboBLIFfMe0IJkcvD8nKfbwIood8wW1ULcaa/iXXu2Q/hL8Ear+ZoI /TkaPLnIAXarWm/7j6hB4+nAwsdlDtBLxqelpSowlgp6u91vB8T0VrUJqSnh xpKowPsrHSE0JX9YIEwB9SHi49rVjrAfWJ13rW0VHPcwLl44shMKqi1xPs1M 3LmRLbSY4YShK7+sS4rlwLmRy9/21AlBI/Zziq4ugI2yacchf2cE2cl97rWT ROzJ3MtOEnzkj7kes06YYQ8FdyXWS/IBO+Olz5bOsC2PLEmAFB9fLo2JMq// YUt4n774twwfTWk1Ly7kTLPP2rmc7VnER/sc3XHXot/sU0pywT6r+GDJGH5+ 0fCTHVwfxQ/R42OiZ3zdsu/f2O0vKpy+beBjJHmgjzc2xNavmnDkb+TjgOjJ dY4/B9m/i/dsNwQfd4UTs3qmBthH0g15olvI85KtX7eK9LIDDk4axXL58NBk mEOqg93oq2U4w+MjrYTvY8D4xF7r6Y79NnwEH68OzmG0s787vdPn2ZP3c3Y0 dGG8Z/ua3Gct3MmHNyd/9+Wlb9j1hn1rTzvxYW3wqU9M6xVbfSNTe8KZj76K jqA1qs/ZQ1qx6q27+XDbeXRoM7Ocban6TNXclY+k4b+TI7WL2XcUppRL3fi4 1uWks2zVPbbEyrVKanv5MFfl2p+WT2Xvk/Nck+LOh8B/v/Is/f8De26rbg== "]]}}}, Axes->True, AxesLabel->{ FormBox["\"x,m\"", TraditionalForm], FormBox["\"y,m\"", TraditionalForm]}, AxesOrigin->{0, 0}, GridLines->Automatic, ImageSize->250, PlotLabel->FormBox["\"{\[Alpha]D,\[Beta]M} =10\"", TraditionalForm], PlotRange->{{0, 160}, {0, 40}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]}, { GraphicsBox[{{{}, {}, {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData[" 1:eJwV1nk8VVsbB3ClQbOhZGyQKfY2JUmyf+fsc46p5JAh1XVJlCmFSoakknmo uMksEiKNaFAppTI2KOWGXnWJDBWN9C7nn/35fvZeZ621n/U8z17qustm+2QR EZGZk0REJq4LRboVIsWyGaH5/deSVSmMztcHdh41ZUxn4Qpzy8gCZtR+if7g n2tM1+Dxls/S5cxw8V1Kd9E9xiTjsLzNjevM3NDx6VZUC3Pd4VHv8V8PmYDu RDdb3U5m301n5klCK6Mfkx96yHmQ6RNUh+dVv2eyd7tlhjeMM/LBr6p1l40w +wNi/wydmQd7oVFt3dqpKLG/HThqtRDBlyMDuWfnoj622LMkcREqREaTG0ul kPAlKnu2xjJsOaDXYbxIBqLzbwY33FLFhujrmrl/5KF561vvWJIGHFoNR7X7 FyM95wD7laeFnhuF23xvL0WiuK93UasO5BJ/SxRZLENEnlilQZEeBp6PzC98 oYxyTqjCY3t9xBqKlAaoqcIiuS/cZXQlZlvfU1GzV8P9r1ovtC+vgmG3WMf6 g+qotklccGLdamhZKcrW7FsOE0vbDt7kNdiwoVoG7hrgnKtL7SsyRt1g5dpa XU0MNMkfq9A2gV5e2MtbzzXRHOAWaGpggvvH3vqYvdTE/UOdU14am0DK0Uul pU0T39i46SPmJshVPvW9/a0m+vluGZSbCZKXzV/xtkcT/4rmzYg5ZYIL7ToL j/3WxNrMsEXjIgxsq88n+itRKD2QnFjfzEDXK6i+egcF4192Z1pbGQhfPdxy wZOC2eyO7Z3tDJS2+NhmeVPYW2rz7XMPgy6uZsA+PwpelIpqjAhg1OkXKb2f Qurr7V1nZIDpXLFpYscobJXWn1xlBgQFX9auOkPhrKvSWKUlINl//vbeAgqu ZnebKq2AzRtdq/QKKSREy/2u2Ag8SPT+WFBM4blH2O4rfwOzXQf4QRcpjMxU bSnYDwj1F/58Vk1B7n5pgOc5QMrvjITTKwoy4y80C0qAWZXqY1NfU8i/IXql owzY3Z86r/wNhbuVwas2XgW6za8Ujb+l8Je97qw1NYDhQMa1o+8p+P6zvufP G6Ap2M16zWcKkPkW7z6PA254jjd/Jo291+O90iWJ9V4HXptFY6NelFzzAg5m 1i8rVplDw8DoSr+hAgeTVT1Pjs+jEZOz2lVsOQcfzZ38Ty+gwX8bdjKLy4HG Ap99B5bQ2LXxy/JzgRwsuuIV0q5Po19iwLVuPwcdvVMOzzGg4SFju6snmIOA riOPjFfR8D7tPlk9ggP375ekU1fTkA0fkyhI4MDtP/mrK0xoGDUbtqUWciAy +5KCvCkNAaUlt6mNg+0+oZ7pDjRsMiNr/ds5+J2fee6kI43JNzJ4CR0ceEV7 asRtopGzcnZ1zXsONFsP/QjcTMMunsla/pmDK+966/SdaQiddaQHZ3Lxt32J wNmdRs1Y64ijMRdpI1vjd/jTmN4nS61muKg9t+2oYgCNfysUjWW5XBgk9I81 Ey/6tKv3lSkX+dL/+a3YS4NK2Btkb8tFoqeMy4f9NB58rvOz8OTi35WaB6eE Ea8R46n7cBGx+3BMLvE3CfXhqX5cDH5sW7j2IA0LY4m2O4FcVLzrqNwVTqOV vdOhf4iLdqP/Sd+LoOEnwn+84BQX48YODkrHaBwa32s8fJoLGTYtvpC4LfNc VH0mF5p6QlPNKBqhfpIXIs5wEcQN52tF0/g630D/UxkXVyp27FKKpRHctWPp jVou1l+7H38vgUb25gP6J+u4sE6wmaabSOLzuWipzxMutK8+Fs0knibiFbOo hQuJtNZ4vyQaDihKOdjORWdJd+fU4yT+cVUnjb5wIWcx75/ekzSwpuiA1SgX L2d+SBak0Li3Tl/f9Qd5X3jWnEusMllVKfoPFw2L3OVtU0m8fat6n89iMUs/ 50POPzT2D9V6/zeXhcBy69Qh4vwT4fd+SLCYEiu3c+0pGsmxM/oVZViMzpgp 8ow4fHXJcjdlFqbX+3x702i8u7PTIlCNxa+eV5Uap8nzQz0mkRosMl6XmXkS m4fonSnUYeExKdqom7hv1ySpyhUstJY/zFiUTmPmmtP2dQYslvxw4TsQnwjV 29RjzCLWdKnnPeL7Rw1kvjMsnFIPfhglnnJsTsl0lqxPq6xIPYNGZ9zadarm LB4WDU45Rhwkn+60ch0LQ2PjzMvECyueG/M2sFgdUB/ylnjKkvchLnYsdEQ1 JbUzaRz1u/N6lyOLRx/06jYS73kePjtsM4s10cO1+4lzn1X1pbmwGByZmnaD WNhnkFboRvajmeL7mth8Xp7cVQ8WGqPr474RZ3pZpjX5sPj7a1kOlUWjUDYh td2PxfvdSf/wiIW3H3r0+rPokpn70onYPuXn7NG9LKSO8Jx3Eac9U4+cfICF soW1TgSx2sWNz+aGsigYW29xgniFW/hXuXAWErRTaR6xglJZr+phFk9dkzeV E+9Y3HlJL5IFqyK+4SZxbaKMtUk0i4ujn+MfEM8+u+mueRyLzXb20k3EzMmC aXaJLIJv2Pe8II6JHV/893EWyBaf8mbi/k33OV4pLF7tydn5lvitXWdj4CkW 3vlKsp3E8475uIWns1DLuiw54TOh4o0xWSz0H+yyn3g+xf3JrJRcFvfD/Ltf T8zvm6OYnc9CXPXNzYn5HG4nixYVsnCQvtfRSDx8JPfWpWIWHwpM10+sN6yn xfJmKQtptaNTJ/bTIKlSVlvOQtjzj9jEfl9pZnY3XmYhqZ9hP/E+ap2MB19e Y/HRumzwOHHznThBaRULN5ufooeJ518q3Bdxk8X68cT03cSanxIiHG6z6LGK vPYXsaQOz4OqYXF0zdeNFsTLDB+pTKplEV45tFefWKpmcfWLhyRfKo4rKBIv tTQLCWtgYTyk9KWXxH/dHcU8m2YW7mMmyo3EEWee5Ko+I/mgt6WtnPjnqQqt xlcsnqeNNO0mFlf4cSP3DYuzkdkS1sTtA7LLAt+yUJE4+5IilvxL5KB8N4tG W+XhLnJ+Fdwf+Q98IOPLHvGuE8un7Ofe7WVh8klVMZl4rmGSj/sgC4PVbluM Ju4vev6z7CeLZE+PhcEkfwoGxqrDx0j8bMxPmBIHBspvtRHh4YZc2klJYhMX Q7WRqTw4Sv2rlk/yNe28+hdDCR7Cdu0+cZXku4j24mMz5vOwz2jt2r3EMQ3S I23SPOxQo3xWEpdPFXc+oMDD/5obnC+QelFV7+hVpcbD6/xTx5NJfVmVHdkU pcFDaOvILgGx++OaOY40D82XNJ7/IPWp46a3zKgeD3lBgbpbiOP6r7jrmPDQ LTqVO4/Us83bDqePg4dR1xTHSlL/jAU+xfUsD27MxVFn4ssNafY7zHnQV37/ qPgE6Xdah3syN/IQ1V/eqEXqZ4Dfny+TvHiY/WLn9iFSjwucR2/e9uEh9tgT +gixTfZpl1A/sv6my/HSxAbTh9d+D+ShdpL3/FXxNIZk/3D7w3loD65lPEh9 d3PrO9iQysM57Z1LjpD+IC27c0p0Gg9NVqJek4jTrpW48TJ45Dtmj1VoJI2i 0KOV13N5mF+s1Ol3lPT3F5dLC87zYDMioWt6mNSnCJOmgBoePgrt0stJ/+qT rhTXquWhVfArZCHxYMocrf8e8uAkU/M9JJTGlzHhb8cGHtjRKbfZEBoHp+34 z+gVD5LpuVF3gsj+kkR/fPvEQ0SBidI+0k8zQsukHGT54C9oGH+1g8bnJSVp AgU+pvcUBU4mvqVuO7JyMR8xLs4WGh40VNnz9HwVPl5a3ZwTuJ2G55FLeY06 fNyMX/Bn1IWc75zY7DVmfPzkf8s770TjWOTyoZG9fCiMb8vvsCD9tb1VqzOI /L8wTOyFOTnPY27s4xA+5PNKGurMaJyV1BjIjOCDuVMQXCKgIVF0xIJN4EPi afeOrVySf1ldiyML+NjQ0ZflT75fTH5wzPqf8XEhf4+mpyrpD4+XPsxu5eN4 scsKjgrpf/lhS23b+AjYd+u5tDKN6y5XdlS95UMrbk73raU0HL30OEd6yXgD q1W/FGhYUzHyUn/4KPRmavSkaLhOWxC2QEOAGf/r/p4yTuFly4DvfUqAAxvE 7TFG4bCo9xp/bQGE9Ss39P6ioGZi59GsL8AWuTsLVv2gcMpPdFY0I8Dc5Bmj d79Q4HY3RXzZKMCJVpUFKT0UAsKkjEsPCtBp1eik20Kh0rnvWVKEAPf0fb4m NFFYKVzFCTgqQND05oGPDWT+QZ0Mo1gB8qNMp2U9plBxs8W2NlWAU5Pqaobu URif+fvx01IBGp7bR5ldo7BF8Ne7hjcCKD31/HY3jcIYR32ct8oU/1OL6+va TMEpqr1M3MgUDxvVpr3bRGE46a1Bu7EpvN7kpHY6UFD0ba7fwzXF4WPRsm22 FN63xohnrTdF1/ZHRRWWFAYkNn7v32YKpaQsMc01FDzPdFl7J5nC8YmkW58M hTDvX38P95iixeTEhZdNmlCMdnF0jTNDnm/DevtVmtj+dHCy+hpzbJ68etzr gAZ6n0fIjr8xB1PrG2VxZTmG1j5pCd9ngavjRdTQv+rY3GgX2KpoidCpd0SX dKhBb9HW37XXLPEse7X+s3ZV2Bre2i3vtA5Qfmx2o0wFF7TlEoRD67Asb9rn leHK+K59qsP70HpcapU+eZu3DL9D/HM8FKxg2LjkaE3bUviGXzZ6WGyF8k/C smr/JVDvenUolbsB45ykVItrirApl2xZ/GIDNuyPD/roKYf21MLvj2hr6BWm DMvrL0T7o0OPAgOtEV60wx3JUticYP3DsMIacNz/OURMHG8rTihljlrjT6ZH 1MouMTCC+EAtIyFYkxP7bteLgN4aHSyzXwjnxXzJi3+GmR/vrvtrBAmhqTxw 8UPlMLPVUtze+IAQsbrteyX3DDMimaptziFk/Mpr/uu6h5jqVSJtBeFCvF5n m30yaZBJ1HG+TUcLsfxu+tF2hT6m7G6iKn1aiEpJY+sq1XcMOfDbjNOFKK43 HC1P7WLiL/VFW2YIkTVcKpsyrYuRan2asjNLSPKxuppf38FkvOQU5ucJEajb qVxk9oZZKppZLl0iRG534bdlRk+ZncXbEpXPC3F90kW//IUtjKB6naNeqRCf Q/S1f/c2MZMWRJ5bf0EI+k3yt6C/njDc7pPcw5eFeNfr/+kpW8NssfPdk3RF CKPo9I7G77eZjumecZlXhVC2L5u0decNhlGsC6uoEKJ8W2fzObNLjPteDYf7 lULAc0CrwbeEiRork22pEuJAWOUWKcs8RrTM7sG/14U4P5eONlt3nLE6vGjr xxtCiEz8+gaN/w/I2Eo/ "]]}}, {{}, {}, {GrayLevel[0], Thickness[Large], LineBox[CompressedData[" 1:eJwd13lYTdv/B/BKE0rdModzXEnzpLMlcd4NaD77nCaSOlRUGqQM0YRCqUxN QppDRKSBckspRNEgKr4VdRuUNJCUfuv+zj/7eT3PevY+e33Wen/WXrnbl+cm JCAgICMoIPD/16spvutnX2cXUqOhIo/i2b0hDldVpe+zf7ndtTYxucl+bfe6 fY5TKZuhoTeZ+f4B2+Lkh7zPQc/Z38bN7JmMCvbZy/9bREe/Y2dtaNIeDq5n 52buthCN62b7H7Qy0pT+xF6vnLmnc9E4W73QoJe5aZAtOFg1WvdBGJopawIe pUyxSwM+NuYkLUC1rcnsiRkJJEv53j8wi4mipBvalfMWgMP52MNnrgYVeHBL qI4c1NOlFHFbGeLaM05+NUyo1VYJO33QQLfuHqnApFXIncU4XPhIGx7h30XO BSngd0JDWtYxFlTXnPTdpqSEHfFbl+pI6sLvruvIsxMqoK+tWLLhnR6YF4eY VI8abKWL3Dp9N2Lq6F29mkkNxB/Z4u47xca6kPSHJ4Y1QY1fmdDjGyBSpmZi /Rct3HQZ/xxzyxAd572ZtQXa+PddqMw1aWMMZ7jY2JxYi6oqkWXM/ZvRMa59 gbtOB4ruXq9GirbgYfic3OjXOrCTFi4/LmeCfM95OhsdWXj93Vsvn2mCyK46 EWUnFowbWwo6Vpvgwp83+Qv4LGgn5N5ka5pAZ1VyUp8LCxLLrC9NG5ugYgXS Tu5joXJN+p5AHxPMfGpNCTvKghYbkn4VJhAKNzdPSSTjfYIc+HtNocBf4uFe x0KC7OizP16mWBty7qX6GxaYJR5a1w6YQqmb2Tj6lgUdYXvx1mBTvImJ/xDY zIJjslahdZwp5ppVPz7YzsKd6p6/tlaYQsdnc7NqPwuWDO4LNTkz8NweOSYJ U2ipqtF5xTRDWOrltLWiFHZ7bkr1VDDDZfm4mNdiFA4+VDmco2WGcLE2h+k5 FK6Zi65eaWKGrbr3Xlr8RWHw8OOw+QfNELr5yMyt5RRi3qzW/V1nhifzQstc WRQEXcX9Q5vM0H68VaeOonDoZ/+dWa1moFdUOlO6FJxX3Fsl0W0GqnHDG6EN FLS89KSW/zbDlGqtXDQoNItxejatMYdP6q6dfHMKy9lH4k6EmmPglHeUFJ/C hQaHetEIc2TI+/hzdlEQ2bNxztkoc+QP/JaK3U1hKFoo7FK8OV6OP3ERc6NQ 3hq9LzPXHD9+dR3s96DgeijNsLrFHDpP040P+FO4c+fl8GxNC5jxBKPPRFCY qDTx1GBZwNX4o1H0KQoGrdWfbfQsoPzdpTX2NJk/0cp3140t8M9Rv4zzkRSE +I9LWdstIGQVk3UqhoK9zO0zu05YYGysxkM/noLA4RhmSZMFIoxNR+oyKJjH zE3+9MEC+tFBoXmZFBIyImWF/2eB67EOA9FZFJTfRIhy+izgXbnQeUsOBVul kK9fpi0gP3iuMPcWhZttPsXSaywxhYjVyKdgDZp2D7SEQ/+xWefLKOQvbXs0 FWKJ464c5o4nFKTH3VZfCLfE+LhIn/w/FGpvHpssOWeJp07LQgrKKRjK5mTO zbbE2NahwspKUo+e6Ym8Bks8PKLgkv6CQmz5GRej95bI3quyadtLCl+TZeta Plris7fsM4laCjkcpQyBPksYlUe/83tFgVFiY8mbscTVIHlx1XoKktG5aeMq Vrhp3ZvFb6Kwbw8lEaVlBZeiFWzBZgrPUXFoxToreGrrhqcSh4+/M99qaIWd PvNl2t5RmHQS+pG0zQpt0376+EChT2u7mX6EFVjHKmpffqRQ3SI6euKTFbZ/ y2/q6CbjddSuFn+2gnHvSQanh4LaRevNQ71WSPb9YFBKHGeRmrh91ApnlaQk L/1Lwa1ivb6mOAchZlll2n0UhHO9Ij5qcZCNoNN6Xynoil9Sl13HAZd52iyB eJ9bSYuJPgfusQu6h4kbGKLKBVs4aFtQlpo+SCEj7npd1A4O3r6ltCeGyPyG NCzSjeBgZrqpbN93sh/aJsq9ozjwrFr8q4D4pi7DM+McB4ZLOuZOE0uP7iud l8wB5fOrKHKEQudekV3deRxoPLNTjh+lIPtMZY5cAQe//xSubCY2+Zv3gC7h QKcmeVh2jNS/PUWktJKDPqHB+bHEYVzdWxffc+CypvRwwDiFgjwn6+cfOTjX pKuSS/zv3Iip6S4OFKXXF3YQW1W/tfIY5CBFu4pn8oPCuWsPfzEEaZIPItmz f1JQemVS92gWDYXNKQvWEVdOtqXbitJgjD1ydCH+aS9kcXYuDbvpEL9iYmcZ TsqPBTQaS7Ue2kyQ/bkuySF8MY05pwbUjhAH7+xcKCNHYyr+XmQy8dUb/ufU mDSkohz724hV6krNH/9NQ8vH6NskccmoiLjpahoSl1kti39ReL8pKcxVmcbo 0w00l9jdtVN/RJXGTAWncx/xj0jlX6EaNKrEfG0jiOc3l/pd0aERure+p4A4 Y1JEXWkdjYDj0sK1xGuZnP7C9TTkuxyFO4i5+zp3N2yi8eDwojzRSYr0FWUG 34DGxdsR9ouJ9xf6tw0a0VBRnPmsSDzTVpp4bAu5f/9Ja13iWEFRm9mmNGJH ZbO3EC9fw5FONKdhb3S3zZr4jkXSK3krGq0fbMecifUPdJ65T9NYXCQ27Elc m6i8GdY0pNuq6gKIHcr8BetsaVRujjkfTNzfVVq2YxsNzZ98VgTxUXHRo30O NLZ9Y5edJRZX51CHd9LYoK6seIE40TppRJhPo+UB41A8sUJgZ97F3TTUw5g5 ScQPU5T3Md1o4JLq42Ri4yr/NXl7yXwPGt2/QtzUV/p5gyeNSzF7ov+zi5Ro 6gsvGk0Bcab/jR/R4Tja+9J4k/66L5H4uEPS4m4/GqcWyXjHEUuFdTYdCKDx o2FX4zni61nKFwQO01jZXLosilij1t8yNpCG2IpVpieJnwyXzl4WRCPnTty2 Y8QWC0Wrb4bQEAz/y/wAcfsGzol1x2ksTLvMdCf22pW06dlJGj3Cah8ciX+f 6pzknaLhe7c2gCaOvK1c1HGGRkHqwVFD4iUN/v4+Z0l93yvb6hDrLhf9Gnme RseyogpZ4hpDzo1Fl2jMU4p9JUhs557kmhVP4+ex/Y+GyPo4+ED5Y3kyjYlx O/YzYuEP/petrpF6Ld/xLo/44p9S2/brNLqiPOlE4nxTTt3PTBpFermDrsQG vklRETk0SoLapc2I6+M6t8jeonFIZMkideLB//n/o36XxoqBB69GyPpXPpR0 z62EhpqYX7sP8dPpvd3KpTSKTQYFTYh3RKxbOvyERnj33PcM4pi4dyePVpHn a2om1JL9OHx/vv25ehp58xY4yBKf0fty1qaBxmblTOEust9XPn1QvqSZPC+t 2fkuMe8tTzmzldQ7laG4hbjw2/np4m4a53s4Aq4kLziH+dohvTTWtn/XUPwv T/5o7DUaIOtXjZIeIPmzdF79m9fDNLI7srq8iINUJTO7fpM8iF1Zzyf5ZegR aSYhw8Uhsajq2ST/Woe3hb6dz4VWPlegZJiC/xHFgoRFXKgXPu7fQ5x1umb5 yuVcfH176O2Tb2R9Z4t8ZylycZSO7HEieVvfdTzReRMXnzwYGvwBCns9ua/k DbjIr5Hwn+wn/XiEKdhvxEV12NW9l4i1Bcs9A0y5KBDO2F1B8j+O8WdjpA0X GdYWqZK9ZD4dj36578nFc0lpvb1fSJ5lJRabeHPRJt9dNfaZnJ+GCqI/+XKx UvG2ynFiz7BvOnMOcmE4KhWT0EUhMNM1YlcoF11X1K8/6KCQ9NVKQTqOi/PU c4GidpJ3LK/JrARyf+lSM23i1JDIug2XudBuSdt/u430V+mqQ3tTuEhRNKKv tVIo0llf8+QGFw0f25383pPzUtAqd+8yLm5c8CrpaiR5+Az6s8q5ENUIfWpO /HGek/Tlp1zEF5/MedBA4UtqUnFVDRfm53eLhL2lMFYlOXtZAxeyvMPSc0m/ lpGcuPmyhwsZxrRLP+n/nGuvBtZI8/D6U6BAHTlPOJrs1x2X4YEhNbdKiNhz VDbi6QIe9P+c1aTI+SPcdMeKnXI8NC/eKXz5Mcnr8T76ogIPZ9j6iVbFFFZb iRVO6fPwjTfkEUjOL7//GIS99eCh/MLKytfpFGbf6n6V4sWD+5VbmS1pFBba Ri7x8uWhzWWVRkcqqVfum/uiB3lgan3ZNJhC6mvv3L0hjAeVsnTTn8kUGu8G mWUn8GBwRVai9iLpr/yi+ccqefDzrTL2O04hV+gv0w3VPAT0TcfYhlHIy/QM /v2ch41HzkfrhpL+2Lu851gdD4pN5Tcng0j+7A8vCvrAw84IK1ffI+T+YVyH kG/kfV8vb13qS2E6deD6cTlrNI6cfR64g+yXTobKGX9reMRn37PXpPCPcc2f xYes4f64REBIg5xHbvg03Dxije+p8lq5auR9fcsCa4OtkXZLcO2kMhk/5fB8 3hlrBBa/fxS1moxfnOAWf9Uaok8mWw8upSDGkUhNf2aNK/vn7QyYRf5f6cT8 skU2yPUPcJdpYIE6obArYqkNrs9sbuSS74c7W23uWC63wbXm2oFz5PviasPd zZ/+tkGh89hq8VoWAnv3HJpRs8GOr8VPeitZWDu/ucXA2AaH/5U64fmQhZx9 +cnV+20w7DrO2U++Vy4s9WS+eWGD3qAU8Qh7FhQazWfm7LdFxph0xewGHcw1 za2dkbHDEp+m9ZYbdWBrkFHSUGkHjyUPcjpOr4VL3Nxjr93tMf0xyruuVhst HhJO2XLboBLIFfMe0IJkcvD8nKfbwIood8wW1ULcaa/iXXu2Q/hL8Ear+ZoI /TkaPLnIAXarWm/7j6hB4+nAwsdlDtBLxqelpSowlgp6u91vB8T0VrUJqSnh xpKowPsrHSE0JX9YIEwB9SHi49rVjrAfWJ13rW0VHPcwLl44shMKqi1xPs1M 3LmRLbSY4YShK7+sS4rlwLmRy9/21AlBI/Zziq4ugI2yacchf2cE2cl97rWT ROzJ3MtOEnzkj7kes06YYQ8FdyXWS/IBO+Olz5bOsC2PLEmAFB9fLo2JMq// YUt4n774twwfTWk1Ly7kTLPP2rmc7VnER/sc3XHXot/sU0pywT6r+GDJGH5+ 0fCTHVwfxQ/R42OiZ3zdsu/f2O0vKpy+beBjJHmgjzc2xNavmnDkb+TjgOjJ dY4/B9m/i/dsNwQfd4UTs3qmBthH0g15olvI85KtX7eK9LIDDk4axXL58NBk mEOqg93oq2U4w+MjrYTvY8D4xF7r6Y79NnwEH68OzmG0s787vdPn2ZP3c3Y0 dGG8Z/ua3Gct3MmHNyd/9+Wlb9j1hn1rTzvxYW3wqU9M6xVbfSNTe8KZj76K jqA1qs/ZQ1qx6q27+XDbeXRoM7Ocban6TNXclY+k4b+TI7WL2XcUppRL3fi4 1uWks2zVPbbEyrVKanv5MFfl2p+WT2Xvk/Nck+LOh8B/v/Is/f8De26rbg== "]]}}}, Axes->True, AxesLabel->{ FormBox["\"x,m\"", TraditionalForm], FormBox["\"y,m\"", TraditionalForm]}, AxesOrigin->{0, 0}, GridLines->Automatic, ImageSize->250, PlotLabel->FormBox["\"{\[Alpha]D,\[Beta]M} =11\"", TraditionalForm], PlotRange->All, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}], ""}, { GraphicsBox[{{{}, {}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData[" 1:eJwV13k8VG0bB/ApoUKlKLJFyRrOSaVS54dZODNjKcugUkKWQohK+6OUSArt q6UkkhSqJy9akGwpPFEhlRZSkhS9d+ef+Xw/c5/l3q7rvrS9Q5b5juZwOJNH cTh/f3nlsZtCx51jvHOG3t4qTmFkWnZ5nZbJYzYuzzqQviGT6eH/avjFFjEH CqtPOozkMWpcaw35wPvMVqWy9OS4u8xv3bbzfVsamN/VZhNnVVcygb9mHju7 p53h7AuVVvZuZpK+StzXje1jPhidDfU69o7Z2njzf3o1HLCfrthkyvxgmu8t 73kXoIgc4zeG90WyEHOfL9v6QhVjUnZzbnZPQoLfhvi7StqolrHz+d2sjKX8 ZoWtJ3Qx+UGe4PHX6RiW+9wqaDTAwE71DY2btRD2Xv682gYTBIx5LtM8QQdX li2a2LKFgvCRY2C/+SxcXR0Xe/jYXMR/690yR2U2Vs9q+2fVm3nIoovYGCl9 GG9eGs+Ts4BDrhlz4JoBpJUbPdfpL8KRj8NHveYbYdggPis9whJB8UMa8+8Z I/2O+OrWk0th8qmx4YiCCV58n32vMAo4NnTy9jSJKfw3Bp42PmMFgeyBp8lL zPCVF/xm7jVrKIpWzva5ZYb5yNT6X7MNsjb4bZplQEFF5vPZaW02eDjMeZxn SEHutp9OSLsNKlTXm1saU2h5+36e5gcb+DI3rB1NKTSadBza9ssGxiKOeMM8 CjmiKJlFmlxkagarRFtRGGAvDhWu5WKkfu2BLgmF93NyA0t6uEhUDqz6HkNh a4NWa8Q3LlqVzS3W7qNwZmK5k+EgF7VXLxyujaXAPZpklzKKh7QWv1EZcRR+ bv8eGKTEg3vj0Q7rwxTKnkwIU1nEQ/I3cRp7isLd8/OjN+3loaLwh3pcHoXj +rnrjeJ4mPOu6WXjdQrpvL417Yd4+K/a5aDmDQq3djxxEx/noX6sYXruTQrl l2NCdbN5aAsyfVZ6m8KF2zOXP6/j4dTZWPOC+xRirz59uEidD5dAm3cVTRR2 hIaZv5jBR934vpMfmykYhrllROvycePQQhuF/yh8UX9/+K4JH6VZJzeKWyks SK49tNSKDy2lE7zS1xR260+ZaePHh8TXryqym/S3UnzcPo+0jxbwVYfI92e9 8O8t4KOAI5cw/RcF/kIHy8PFfKj0+1RM/02h0vnFx/oy8v/5F+oqIxQU/9Ab XJ7x4RdWZykzmsZec8uBFUPE4XckeeNoJFxLlQ/mCvC0t/jPYhUavwL6ckts BVj7bGOrvCoNn4fblyuKBRBPCaprJRYf104rcBHg00LtkS1qNCDjtOKXnwBT 00+EZmnSiLUwND9wQADl+szrrbNoZEnO+WfWCPBB61hashmNS4ohosEGAfZL 7P1tKRpm0jo02yRAsgGX+4u4vUZPqueVAK9sPlqtmkuj3in4zrw+Abbq6Tqr zqexYUnZngdTbLE0fH7j2sU01rSt8nwrsYXKY9aa5dHYX7XlVMpKW6wbp5/8 mdhREtrG9baF1M51jYl8Gt+bOv3Sgmxxq1h+Rr2ARu1AfOLqHbaQVenp5LM0 3hsZz3uRZouxtkMaf+xpLPCJS4q7bIvPun0uSQ40KnlHehfm2KK/z3abjiON ln1H8o7fsoWqrFqylRONLYnDPNdKW5ydJPgStpxGiVnZnfoeWywJyfW46Ebj nCWX2v2NvD8oe/NMCQ2joSWXzQZtkUaN3ZtG7CEffzJxlB3ynr32P+9O44ja 4sNiJTvYZcmvTPCkkSYx+LdyoR2mi/BjrhcZz7YA2fIYO9ABOV9v+NKIH9ei OPOAHVSUjE/I+9EIeGih8U+CHaTVdZx8iI0rSubbpNqBOz3i+6R1NMpL0iPK L9khqTh3opc/Db5mkur9Kjvo6UfG1QTS2La8mZpVawdjFT9blSAaesHv2Jin 5Hm11dPWEA/rL9/JbbXDxpCRD73Eq/ar9t3/bIf+5D7v0Rto3D6oP/BgEoui U5NODAXTCFb8V3W2MovsJQHB80LI/XVfluxTZTFkZOESQlzVYLSfr8OircHC 7TXx9YLLMx/NZTFy9L5xYSiNrtZeoZ4Fi7UdNQkfiHW6SyNiLVk4sA4cjY00 qvf8fiTgsfB1yFfdSex7KCaiwpWFchJH0yKMxvorL87re7KIU7gz3oc4zTnr yX4vFuejPo5NJL6lf1bfzp9FPSd3YQdx98XMzsot5H7v4vXbw2l8kwqaYriD Rd4Dna4LxMvOJNnE7WHxo29UyANiLftf6exBFhrJ2oXjImgERv8Menyaxcuk LpVYYtfPk88pX2Ahox2YkEZ8gh/V4JXBItk0W72E+Nj0aYv6c8j43PM++I1Y 5rE4eGk+C8nClkD5TTQsah5c3H+LRb6evO8sYkeLUHmNEhZ1zpeynIg/Np6x WlfOIubQxH4/4humUlHXH7GooMzdo4nNDwZ18OrI92bnh18gvlgaoHK4kcWF HfIGN4gvaafa/9fMwiVf52c5cWtlyJ3gdhah82K6O4hLBSpfi7pYeO+uHdf3 t71Hl77UBxbhek3cEWK/M41e4h4WhrNPnRwfSfbHlc7UY19ZzNqmJjeV+IXG pJr2ARbT9SWpM4htktykjX+xeK3vZGlI3HOu0DLyDwuv7TLDNHHhmzkR/5MS 4tyszc2LiCOHCrPHjxXinkZmjRWx9Lblnc7yQvSvO/xKQMyMGZl+bpIQyaMX yImJ/8y5uaxbSQi5zyecnIg1kyPj5qoK0Ta7ON+ZeFM9U7ZdQ4gr15JN3Ihf 75ow9EhbCKNY4wcSYoslr6nJs4WgcnZFuhNLLuQHrDAk7bWTrP9axfafC5km Qpx6s9Lgb3vnaoeWL7QQMwfeGroSv61QVly8QIhoV2PBcuLLzQ22excLMSBt ssOBOCw1ZlctI8SfMZ9qWeIZZ/SLVLlCaDj7WfKI42Pv9q61FaL32+nypcRJ X5bo5YqEMO1K9F1ALBN+ZdWgoxC5+oyOKfGjrD8p1i5CuJdc+alLfM108ZN4 dyHmX2n4qEZ8/JzHmKaVQvh+uDU4idg92XOxtrcQmrvdZkgTN0YNXr4ZKERq 4ZOSD2Q+rU4nvvoTLATfI21BK3Ff3ogyGy6En/u8qmri3VM997yMJuMffojJ Jp52xqZIf5cQ2kdddE4Qu+0c+hwWI4Tl1BatfcQ2ZZUS2QQhmhyVg1YSp0va EpyShOiUrykSEKveull2KkWI7/NstCniLCrbyOysEGtbvK1HEdup+Q1Jrgmx Mj/qQSrZH8OrklZwCoQIsjsVFPV3/+iuvnepSIi+i5+k3Ii1Oa27BkpJf3JV 5KYQd7A/OMmNQiy7nBq+g+xXA5lur8UtQixu0M92JT72xPdeR5sQKW/eN84h juX1b6HeCcE0fx1pJvFAbdHEjzU/hYg9aZKjQ/z7lhQ/ckQI3UyzyK8k3vAr A89rSIkwsXI1VUpcGBazfL28CE+DhTs8ifctPJw/TksEu0E27B8Svx6eXOHE 5YpQ6v+z7DyJj0Fb5C5+tBVBhNe5XsQKnN99R8QiRFz6Hq9B3FOZktjuKsJe wVWtVBJf/81zLd0RIMJAld25revJ/Neu/l10SITqefayiiR+T1x0h1l9VISd /jpTSwJojKyavUf2uAinH+pOW0+8+4zOGNcLInSa3e4tI/G/U7zy99cbIowd nP5rLckPH/aY3DFuEcH++MOt4T7k/YMHPWLaRMgff9d+GrHCxZ7BF+0i9Nwq XnB7LY13p4vpgx9EyHv3xHbY++9+nnGy+5cI+194rNu8hsaEuTLzMzXFWNsz KdV6FYlHGfH3h3XEuGmReLtpJYmHsV+cXPTEUI2Y2h9EvOEqP2CMmRhHepnM pBUk37e/PeBtRezOkW3woDHkVHVY00eMrc7Wt2eT/Lry6LBcpL8YCwpcTHNc aVjvebv3yXoxDJvCimnid1G1m7ZtEuP32Sr5xS5kPc8p4v23Twz1h33XQPK1 xYyitJQsMdptjd5rkXw/iqMgkOsVw1pSOMOEnB8GfxYUlXwTQ7feb18cOV8Y 2kXrRwyKUfRGpbmLS/Id4zq6bZQ9Ssz3MidsSP4Y/HQ2V8ke3J5dmt9Aw/9H 82anRfagv6hohJPzS/HkfSdS9tpDY0qERropWf/JTRV2cfbwzUiXemlCQ9a0 4/vwIXtcf/Xfs6nE1Pipdn7H7VFYKFm615iGetm5p/Oz7WH++bSWiwGNk6cj I5vq7BGZ4TWzVIcG10yhbaq6AwQXj5lVKdGIMJxeXjDDAV+EC1q6ptCY23A0 c5muA6xntEZxiN2pUt9DJg4Y8795x2hF0j+vvPvSVg7YoGu8Kk6BxNdR1qP7 fR2wiQuFsTIkXxcsXVdzzQFRlR1fFg9Q2N6+S+VfbUe8uR7wbO9TCkbqGX2d Mx0ReDPjZVgDOQ87uFWOn+2IKN0Yjlc9hXtlqyMkho4ofqR/yLyWQuLrrqJv tCPO7lGqb6yisGTo8pAB1xGxKUnfu0vJeb7yiCTFzxHDGdK3/a5RqEkYWLgu 2xGvb/MtrpD6wH3jGYO7OY5kvQbyrEj9MPnyvGmKeY645bHLuonUF7Ftcz/d LnBEpv0eec4eCm8ULLdPuOeIA5Zdr7jbKKzIm7HoZp0j0r86xZwKpfAp0Edp 1IAjXmHWg22kXknV1ulPghNSj0ygJ+pSiK5rzsh57ITTuUbXsovNUKVkrvd2 +TKEjry3krY2A7Lq1ux7twx+qgUGJqtNIc+X+jhp43Ise2P47DJlAn/VloQe aWcorHhe9LDCGAmt46TzDzsjUef49ZcSUt+FGOduV3HB3R6NfOqpAV7aMbrb s12QoWwxW1leHyYzHdLXmLuSOqPuUid3NnrmG01YXeGK1x6H7oXPn4VmMg+s uxvGf3D2mTxJBxb1ao80XruBV5BDhbRrYfrS50ZvNkpQu7k37pm0Gu5d3r/+ 6E8J1sVqzj3ITIXwwdhVZjvccYcvxe9wU8Q4jurDYwoe6NZj7DPjZHFN8liu 74gH3u38KHvB7Sdj+KpivU2KB6oCTjzb1j/I5EoF3U855gHLJ7qx/KRBxtop 1W3RaQ+ci52cmlb1g7mj567wT4YHciZW+MRYDjAPJyrenFzkgRSZCQ2v1b8x E3Y7dxu2eWA4rvzc+PPdDG9Dqtq2Vx54sKIjYPGz98waMZ/7pN0Dfesd/wjG v2dWK3VvDnnrAcXPCfH94W8Z74/jQ270eqBzpGjuKV4no01ZJSwc7YkLsoGn l9xvYdSDUnTjxnhizoSSmyqGzcxXnmXBfzKe6HJ1DshOfM5cHBddEC3nCa19 Bud/uD9lPH7G418lT4QaPc5wfV7JbA3kH1SY5gltU8GBfWceMlFPudUrVT3B Nf+crutTzpwpGkeNaHhioY6awtpXxczxqmpn+xmemBr99qRlwA1mAqcm+KyO JwzC/RZ2d2Yxn9PkdvbM8sQkvwKx8dsTjM6omL1L9TzB+Xu9z7/7f0eDWWY= "]]}}, {{}, {}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[CompressedData[" 1:eJwV13lYTO0bB/D2NxVaGKFS2rSfKYnQ+dbMOTOlfSpkSSkpS0gqZAvZKanQ RqkfiigUlbyEFO1KKqQF1StSSq/e32P+metzzTxzrvt55nzv+2j5hbgHSIiJ icmJi4n9eZ+6S3e6i2wafeRk5hbfonP03GWpqyyu5tFOXyTKOe7ZdM9HTnzh 6SK6y3ZCVWTHLXqr147+yNxy2ka5R+yoWymd8FJr8/H79fQ3hyU2C85U0ifH VpWFlXTQK9R2xfhottBMhNqTXKvv9O5vj/fOdPhMN14fbXbuFofcrSPyey6P 0LKxfKuny5Xx3OtVy+pnstBI0NotPzIDy5qbTkl9UMKNZjWXiMtaOJoSqjJr iIO9c6cvaJ6oh277wmd1WmqQDuuV1J9hiHeb35ScEmlivdHxRna9KXqY6Tf8 kmfDqH/N8ecsF0H9jmUpeTp48UNxX7GxBc7fmFbiu1sP78IeKqmZWyLe7av6 A8EcGDRvWu6rYIXbPvSUvTUG8D17ISegcT6CNj+t2EAZIVenY3ZusTWsFoxJ 9x01xp3t111O7VqES4c8KtuumeCTlrTYo6U2sO9avMirzBQSg777UpSA7CmL uvi5ZqDW/L4Z3AlY8rzC4i0pyClnyA/3AJ697XmTrSh0zc0y3N8LyCvPazo6 n0KjbM/thO+A1NZLnTsXEmvY9ZeK2WJLYpaUqy0Fn921ilLqtjhrYLLhqSMF s+oTzr6etri53Nun04/C+OCn8KByWzT6RNCfj1NQ8XKNvPbcFmIjfB35kxQW CgsEvZW2eDqvZ6bxKQr+s08s2Vhni5aDvbwNZygE2loMbHhni9dF1yLa4ylI NHLyfUdtkdmYfyAphcLIjUuO+iZ2WGX96tCKGxRS/Of/8qXssLf/8EefmxS8 Ry+EJVvYwcZUxmttHgUNpq1R0doOL6+ciwy8TeFNgezin6wd1N5lFvvfpWC4 +8j1+2vscH5qO21RSsGmWmipFm+HkeNfMjVfUmg4eMvqXKId/vpiNT7jFYWw aVPFJl20w56rZ5gp1RRmePZ1jF+yg7tfXqpkLQVX9t63tpt2SN9WvLuxgcKh 2iTr2Eo7HLmROMK0UrjI67tZJcHD33smh3p/oWD6s3KfjQwPq5yX3TbvpZB5 PlU1bwIPlgnSHRP6KARrLkyJU+TBP7tJ+U4/BXpQd8xDgwfpyz7F4wMU5tzy VaxewENduSbt85NC0MKxhqQtPAQ450R7SnJRuo6TNRjKg8ViswxZKS7M1syw dQ7nwejUtIf3iQ/FjTRI7CHfv7qyb6YMF40ra7YHHefBwz5Bo06WC8ttvy4Y Z/Ggbfy/gYmTuKgctb517C0P40h99HgaF6FPnla1t/MQU3PllJcqF49XcPLN O3jI/27q/Yl4tHrm+zefeEhOku2XncHFsT27inWHeQhzuy5po8bFXumAg/mK fJxuMJeM0OSioMl8bzbDh1rTo1KjOVzs6nvFFgv5mFxjVptAvO3hy/c1S/iw 0nKWFjfgwv9/sidG3fiIT6mpqyOuDJEpE67mw2/uaqmNRlwkriy43L6Dj+xm 9ZfbTbmY5TIQNxDJR5xkiVgdsW5kh6dEFB9vitu9TM248Jo1LtKN5mOI0x7c SRw4NYMbdJqPJ2cWWLBcLkJGtcI/ZfNhuLbc9b0FF59iDM/9vMaHeWP2bbO5 XHR5Ljwsc4OPmLJWqz3ETmLHPmgX8LHq5tYcVUsuzDcHRa0s4+O5/i2aN4+s /33BubyZj2+zKqaHzCf1/3MorfYtHwsqWu/mEZ8tqnjc1s7HoVTFiG/ECXUh h4c6+Rjulw/csoCLnrBHP2Z/4wOn7o6stebixH81kWETGGhDbFhrEdnfJvmd ZQoMRPZPzLyJmTY9Vl6RwbCmxPpYYsONHLt0DoPRfKOGf4ljfx+teKbNoHLS aPKzxVzML9xuoKTPwJh1rvpJ/N+arZ7ehgw2DaT80rPh4rhVkVIfxcC9cKPH AeLnmWZqE20YSJsdGTemyfkc82rzsGVgYLRV35PYJr0sOJnP4M7BBpfdxOHN O74YLmHQOMkh7Rlxg0V161Zn8vm03U97iTdzoy8WujE4b7q+fxK4aA3h7GGW MeiYdsPanXhyi/jl4ysY/Lyu77uNGAt842pXM9heeyEmlrhfJb55ZQADM8vc hiriTztDx7ZsY7A6evFWK1su1N5mR98JY6DQYnPehTg8Yl/zaASDH3aFj9YR 9wXN+7R/L4O1S92nxBHXF87KKD/AQO5AnE0W8X7rcsMJh8nvlxwNKiKOvbsy /fQJBguZ1ketxEuTvU/VnWawZ8zrax9x9nFj+6lnGfyKf6b+L3FAWHPN0gQG qQ8XO8nZcXFY6K974TyDLL2KqGnEqt8b2dZkBpnbIm9qEy9cZWGpkc4gwn51 hymxXuiBAZ8MBiucYzgLiHVnVkRcymLwVkvK0Y44xXriq46rDNp8Ow84EMvc 8RjQzmVw6arVAzfiwQ1X3vnnMXgcO3FoKbECLZ18JZ/B4rwwahWxisJO3e67 DAKS9m7yJe64MWG33n2yPy3WOf7EweL309aVkPOWude3jrjw7ZkzWWUMOFck zdYTf1OJd+5+TPbXlgr9Y889FW90nzGwWONYFEi8qH+eecALBjaHA8X/rFfn dizNfMnAaW7skrXEMaq1Dh9rGPR/ak70+VPvlgnysxsYTNV07vYm/lsiNmlN EwOuSMzKk5g+v2kwtYXBjNHxo87Ewofh8lltDBLvBQQJiMtD1/zMec/A+33J Bpr4dKDxvfyPDPZKTomdR6zk8N7hfjcDq5vb3xj/WV+x73bZZwZPQ/r4s/9c L1b5n6d9DGKqY+o5xOevqn2o+84g6sQK79/kPAcdUpOahxi8+5Hj/pX42Btt nfYRBtXKHpvfExe7O937NM6gfUvj5DLib9G/SvvFWUzIfX7uBnG8WemF71Is Xifw6GTi7dsuvhqTYxHlIfF7O/Ewr1RPbBKLVBUfpTXE16TkRFJKLHyWhtk7 EGcWms5RmMbivamYrhpxW4ti7eQZLFTSTj6XJKYcTJ1V1Fm8cJQ584XcDwdW m5RP12YRKN177A7xHH3Vh2p6LKTaQ0rPE1sedD05y4BFwmklThSxk0Vxlo4Z iy6pNq4tcVPy+EvjhSzEDv2j9pDcr5IOjcGmNiyG9hRsSybe8Vq91cyWxXTu r74I4qZEziJzAbH8PBczYpNCne9zRSzMnJ5XxpL84ATIWlh6sThU1cmuJx76 sF9ouZzFxZCP3YuJjQyE3+b6sHg6t/BcN8mjD7mp1uYbWDz/wMkzIS7KzNXk bmZhf/ui6DfJM32JHW/NtrLoSPNXqyIOusSvNg5nEZI7qB5IbPDTI08nmsUc k5UdcQu5cIibvlLhIou3rb93PiL5Oi616dRoCjkfJdfbB4lbpTcmdqez6G6d rSogLpKNMinLYvH32/CQCpLPGgargrfeZsHZo+H8xIqLxcLLhlUVLEY2ujXG kfxXUE2ouFvFwiRZ4peQuNR6B32pmoWpyRencdIvqnbL54U1knrzjkavI7Z8 Ppqp9oGFxwlW34T0myRqzQe/ERbhx895n6VI/qn+HHAYY7Gzczh8EXFhXVGT +TiLNz125X/618GwOkMJKQEsqp59NSdWnlrakzpZAJdXpYfKTUie3Ol5WKMn gIaU0cPHhqTf8o9JcTwF2Gw3dkdHh/w/utLyrZYJYG/m4nBNm+RL4QKL5SsE +PukX68pcQp3YuZFXwGixMU8LGeTemqLHDU2C2Aql142j/TzhFlLS2fECPCt tkxFgfT7SSUFvIFCAeb9OCIprsKFa3i0gkKxAD/XjDisV+ZC0XBTlv5DAfZ2 dKe/UiL79yHDaXW5ACcuRUQkKZLzVJkVXFErwGytwSZNMo8kSi55l/BFgDXz ffylJpA8aee0TFITwkQ1QWXaOAW/5Aa5AQ0hHoduiN74m8LpkfkqtVpCTF0a MvvRvxR+v5a8HqcvxFlds38CxyiEj0n/VLEQ4nlBecn1EQr1y19LTnYQItxH XKAwSOGd4cIJPeFC3CtXcOH2kPk16LLl451CtNdr39/YTYESaVqnRQlRXfrC M7uL+M2mSq9oIYbkfmjM6CTzp93NyU9OCTEpoGd06D25vuMTrcQrQnSMd749 3ELBo6c0ela9EE3DGckTyfxZ9Uj9usVrISzv/btPrYpCvPr0TMEbIYzOMKGG lRQEMsNyIe+EMH/Uvp9XQebx/4pzHvQK4eRwSxhcTmH+BnW+o5Q9Dol1HjlW QmHW98ftDpb2+DztigUnlwLbHZBRmmCP0C1lZquOUoic4KVTdN4es/rroyyP UBhNOxSZn2yPJvZjl0IMBWH4rfTsy/YozZsjVXSQzPcFaR0nb9hDVapgp8w+ CqvFv1m5P7VH0YNh7x07SP07B3F/yB47Mhxtr5Hngx7vwBOyHg64rO6zIYA8 b3wQaUw1kliCH0cV603KzBBZ2vUhuHgJWmt2eWt1mSLG7QevI9ARh3UUNur/ Z4L54pqTHk90Qm9szg9NGROc3WI43fWhE3LXRf1+22aE1B5OaoGfM5xysi3d bhmiJUVxpr+SC75sTEtOcDOAGt9VevFtF6w6oNWm900f0Vez0z/ruSKlN3FK 6H49SPAqKc2drqirldfWa9FB8PDXhflPXTFv6JVWxHxtaJzbVLlP1Q2/rWUb E1doIe9Txc1LgW4o0Dnw9Vi7BgoPXzYNyHODXvHdZRnqM+FxPSlDf9wN6fOH LwnaOfjQx7HLY9wx7NtdY1qiDMP7thvrj7ljLEzLK2rKRHQ5T+150OCOxJ9W fIUMSVQk+JRfVxXhgl6+srjcEH2/Lex983QR+motLe3u/aCbFdt6pGeKsEMu qSrc/wfdSKc/8FEXIdOjdVVZ6SBt+f6vcOXZIpzXPqn7bNt3Oof/cvF2IxHG lt1nlt36Si9wejDJwEaE4jwF3LHqolNrPheIaBG++K3fu+x0J20cGinYAxH4 x1O6O7s/0sEapdx6OxGerV42t+hcB92zpHfGboEIk361yKR3vqPNlQR44SpC cKsiu8W5kf5+8UnOoJsI8RYjsW2/6mmzjdel1UUi7Nx/Z4N6dh1d13N3d4in CHFxO/IMxqvpLUn1e1W8RUg8GSz1dHk5zUm+6rJohQijU9REL27+TU/8t08+ YKUI8kfTxkKly+jothL7u6tF4Kb5fN/sc4f2CXCsbPcRoW7wxIPLsnm0k5fD gr98RZARl++387tCx1oUnjXzE+FNpWNlztpzdNS+hJala0UQIy+IDyz6P+l8 DuM= "]]}}}, Axes->True, AxesLabel->{ FormBox["\"x,m\"", TraditionalForm], FormBox["\"y,m\"", TraditionalForm]}, AxesOrigin->{0, 0}, GridLines->Automatic, ImageSize->250, PlotLabel->None, PlotRange->{{0, 160}, {0, 40}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}], GraphicsBox[{{{}, {}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData[" 1:eJwV13k8VG0bB/ApoUKlKLJFyRrOSaVS54dZODNjKcugUkKWQohK+6OUSArt q6UkkhSqJy9akGwpPFEhlRZSkhS9d+ef+Xw/c5/l3q7rvrS9Q5b5juZwOJNH cTh/f3nlsZtCx51jvHOG3t4qTmFkWnZ5nZbJYzYuzzqQviGT6eH/avjFFjEH CqtPOozkMWpcaw35wPvMVqWy9OS4u8xv3bbzfVsamN/VZhNnVVcygb9mHju7 p53h7AuVVvZuZpK+StzXje1jPhidDfU69o7Z2njzf3o1HLCfrthkyvxgmu8t 73kXoIgc4zeG90WyEHOfL9v6QhVjUnZzbnZPQoLfhvi7StqolrHz+d2sjKX8 ZoWtJ3Qx+UGe4PHX6RiW+9wqaDTAwE71DY2btRD2Xv682gYTBIx5LtM8QQdX li2a2LKFgvCRY2C/+SxcXR0Xe/jYXMR/690yR2U2Vs9q+2fVm3nIoovYGCl9 GG9eGs+Ts4BDrhlz4JoBpJUbPdfpL8KRj8NHveYbYdggPis9whJB8UMa8+8Z I/2O+OrWk0th8qmx4YiCCV58n32vMAo4NnTy9jSJKfw3Bp42PmMFgeyBp8lL zPCVF/xm7jVrKIpWzva5ZYb5yNT6X7MNsjb4bZplQEFF5vPZaW02eDjMeZxn SEHutp9OSLsNKlTXm1saU2h5+36e5gcb+DI3rB1NKTSadBza9ssGxiKOeMM8 CjmiKJlFmlxkagarRFtRGGAvDhWu5WKkfu2BLgmF93NyA0t6uEhUDqz6HkNh a4NWa8Q3LlqVzS3W7qNwZmK5k+EgF7VXLxyujaXAPZpklzKKh7QWv1EZcRR+ bv8eGKTEg3vj0Q7rwxTKnkwIU1nEQ/I3cRp7isLd8/OjN+3loaLwh3pcHoXj +rnrjeJ4mPOu6WXjdQrpvL417Yd4+K/a5aDmDQq3djxxEx/noX6sYXruTQrl l2NCdbN5aAsyfVZ6m8KF2zOXP6/j4dTZWPOC+xRirz59uEidD5dAm3cVTRR2 hIaZv5jBR934vpMfmykYhrllROvycePQQhuF/yh8UX9/+K4JH6VZJzeKWyks SK49tNSKDy2lE7zS1xR260+ZaePHh8TXryqym/S3UnzcPo+0jxbwVYfI92e9 8O8t4KOAI5cw/RcF/kIHy8PFfKj0+1RM/02h0vnFx/oy8v/5F+oqIxQU/9Ab XJ7x4RdWZykzmsZec8uBFUPE4XckeeNoJFxLlQ/mCvC0t/jPYhUavwL6ckts BVj7bGOrvCoNn4fblyuKBRBPCaprJRYf104rcBHg00LtkS1qNCDjtOKXnwBT 00+EZmnSiLUwND9wQADl+szrrbNoZEnO+WfWCPBB61hashmNS4ohosEGAfZL 7P1tKRpm0jo02yRAsgGX+4u4vUZPqueVAK9sPlqtmkuj3in4zrw+Abbq6Tqr zqexYUnZngdTbLE0fH7j2sU01rSt8nwrsYXKY9aa5dHYX7XlVMpKW6wbp5/8 mdhREtrG9baF1M51jYl8Gt+bOv3Sgmxxq1h+Rr2ARu1AfOLqHbaQVenp5LM0 3hsZz3uRZouxtkMaf+xpLPCJS4q7bIvPun0uSQ40KnlHehfm2KK/z3abjiON ln1H8o7fsoWqrFqylRONLYnDPNdKW5ydJPgStpxGiVnZnfoeWywJyfW46Ebj nCWX2v2NvD8oe/NMCQ2joSWXzQZtkUaN3ZtG7CEffzJxlB3ynr32P+9O44ja 4sNiJTvYZcmvTPCkkSYx+LdyoR2mi/BjrhcZz7YA2fIYO9ABOV9v+NKIH9ei OPOAHVSUjE/I+9EIeGih8U+CHaTVdZx8iI0rSubbpNqBOz3i+6R1NMpL0iPK L9khqTh3opc/Db5mkur9Kjvo6UfG1QTS2La8mZpVawdjFT9blSAaesHv2Jin 5Hm11dPWEA/rL9/JbbXDxpCRD73Eq/ar9t3/bIf+5D7v0Rto3D6oP/BgEoui U5NODAXTCFb8V3W2MovsJQHB80LI/XVfluxTZTFkZOESQlzVYLSfr8OircHC 7TXx9YLLMx/NZTFy9L5xYSiNrtZeoZ4Fi7UdNQkfiHW6SyNiLVk4sA4cjY00 qvf8fiTgsfB1yFfdSex7KCaiwpWFchJH0yKMxvorL87re7KIU7gz3oc4zTnr yX4vFuejPo5NJL6lf1bfzp9FPSd3YQdx98XMzsot5H7v4vXbw2l8kwqaYriD Rd4Dna4LxMvOJNnE7WHxo29UyANiLftf6exBFhrJ2oXjImgERv8Menyaxcuk LpVYYtfPk88pX2Ahox2YkEZ8gh/V4JXBItk0W72E+Nj0aYv6c8j43PM++I1Y 5rE4eGk+C8nClkD5TTQsah5c3H+LRb6evO8sYkeLUHmNEhZ1zpeynIg/Np6x WlfOIubQxH4/4humUlHXH7GooMzdo4nNDwZ18OrI92bnh18gvlgaoHK4kcWF HfIGN4gvaafa/9fMwiVf52c5cWtlyJ3gdhah82K6O4hLBSpfi7pYeO+uHdf3 t71Hl77UBxbhek3cEWK/M41e4h4WhrNPnRwfSfbHlc7UY19ZzNqmJjeV+IXG pJr2ARbT9SWpM4htktykjX+xeK3vZGlI3HOu0DLyDwuv7TLDNHHhmzkR/5MS 4tyszc2LiCOHCrPHjxXinkZmjRWx9Lblnc7yQvSvO/xKQMyMGZl+bpIQyaMX yImJ/8y5uaxbSQi5zyecnIg1kyPj5qoK0Ta7ON+ZeFM9U7ZdQ4gr15JN3Ihf 75ow9EhbCKNY4wcSYoslr6nJs4WgcnZFuhNLLuQHrDAk7bWTrP9axfafC5km Qpx6s9Lgb3vnaoeWL7QQMwfeGroSv61QVly8QIhoV2PBcuLLzQ22excLMSBt ssOBOCw1ZlctI8SfMZ9qWeIZZ/SLVLlCaDj7WfKI42Pv9q61FaL32+nypcRJ X5bo5YqEMO1K9F1ALBN+ZdWgoxC5+oyOKfGjrD8p1i5CuJdc+alLfM108ZN4 dyHmX2n4qEZ8/JzHmKaVQvh+uDU4idg92XOxtrcQmrvdZkgTN0YNXr4ZKERq 4ZOSD2Q+rU4nvvoTLATfI21BK3Ff3ogyGy6En/u8qmri3VM997yMJuMffojJ Jp52xqZIf5cQ2kdddE4Qu+0c+hwWI4Tl1BatfcQ2ZZUS2QQhmhyVg1YSp0va EpyShOiUrykSEKveull2KkWI7/NstCniLCrbyOysEGtbvK1HEdup+Q1Jrgmx Mj/qQSrZH8OrklZwCoQIsjsVFPV3/+iuvnepSIi+i5+k3Ii1Oa27BkpJf3JV 5KYQd7A/OMmNQiy7nBq+g+xXA5lur8UtQixu0M92JT72xPdeR5sQKW/eN84h juX1b6HeCcE0fx1pJvFAbdHEjzU/hYg9aZKjQ/z7lhQ/ckQI3UyzyK8k3vAr A89rSIkwsXI1VUpcGBazfL28CE+DhTs8ifctPJw/TksEu0E27B8Svx6eXOHE 5YpQ6v+z7DyJj0Fb5C5+tBVBhNe5XsQKnN99R8QiRFz6Hq9B3FOZktjuKsJe wVWtVBJf/81zLd0RIMJAld25revJ/Neu/l10SITqefayiiR+T1x0h1l9VISd /jpTSwJojKyavUf2uAinH+pOW0+8+4zOGNcLInSa3e4tI/G/U7zy99cbIowd nP5rLckPH/aY3DFuEcH++MOt4T7k/YMHPWLaRMgff9d+GrHCxZ7BF+0i9Nwq XnB7LY13p4vpgx9EyHv3xHbY++9+nnGy+5cI+194rNu8hsaEuTLzMzXFWNsz KdV6FYlHGfH3h3XEuGmReLtpJYmHsV+cXPTEUI2Y2h9EvOEqP2CMmRhHepnM pBUk37e/PeBtRezOkW3woDHkVHVY00eMrc7Wt2eT/Lry6LBcpL8YCwpcTHNc aVjvebv3yXoxDJvCimnid1G1m7ZtEuP32Sr5xS5kPc8p4v23Twz1h33XQPK1 xYyitJQsMdptjd5rkXw/iqMgkOsVw1pSOMOEnB8GfxYUlXwTQ7feb18cOV8Y 2kXrRwyKUfRGpbmLS/Id4zq6bZQ9Ssz3MidsSP4Y/HQ2V8ke3J5dmt9Aw/9H 82anRfagv6hohJPzS/HkfSdS9tpDY0qERropWf/JTRV2cfbwzUiXemlCQ9a0 4/vwIXtcf/Xfs6nE1Pipdn7H7VFYKFm615iGetm5p/Oz7WH++bSWiwGNk6cj I5vq7BGZ4TWzVIcG10yhbaq6AwQXj5lVKdGIMJxeXjDDAV+EC1q6ptCY23A0 c5muA6xntEZxiN2pUt9DJg4Y8795x2hF0j+vvPvSVg7YoGu8Kk6BxNdR1qP7 fR2wiQuFsTIkXxcsXVdzzQFRlR1fFg9Q2N6+S+VfbUe8uR7wbO9TCkbqGX2d Mx0ReDPjZVgDOQ87uFWOn+2IKN0Yjlc9hXtlqyMkho4ofqR/yLyWQuLrrqJv tCPO7lGqb6yisGTo8pAB1xGxKUnfu0vJeb7yiCTFzxHDGdK3/a5RqEkYWLgu 2xGvb/MtrpD6wH3jGYO7OY5kvQbyrEj9MPnyvGmKeY645bHLuonUF7Ftcz/d LnBEpv0eec4eCm8ULLdPuOeIA5Zdr7jbKKzIm7HoZp0j0r86xZwKpfAp0Edp 1IAjXmHWg22kXknV1ulPghNSj0ygJ+pSiK5rzsh57ITTuUbXsovNUKVkrvd2 +TKEjry3krY2A7Lq1ux7twx+qgUGJqtNIc+X+jhp43Ise2P47DJlAn/VloQe aWcorHhe9LDCGAmt46TzDzsjUef49ZcSUt+FGOduV3HB3R6NfOqpAV7aMbrb s12QoWwxW1leHyYzHdLXmLuSOqPuUid3NnrmG01YXeGK1x6H7oXPn4VmMg+s uxvGf3D2mTxJBxb1ao80XruBV5BDhbRrYfrS50ZvNkpQu7k37pm0Gu5d3r/+ 6E8J1sVqzj3ITIXwwdhVZjvccYcvxe9wU8Q4jurDYwoe6NZj7DPjZHFN8liu 74gH3u38KHvB7Sdj+KpivU2KB6oCTjzb1j/I5EoF3U855gHLJ7qx/KRBxtop 1W3RaQ+ci52cmlb1g7mj567wT4YHciZW+MRYDjAPJyrenFzkgRSZCQ2v1b8x E3Y7dxu2eWA4rvzc+PPdDG9Dqtq2Vx54sKIjYPGz98waMZ/7pN0Dfesd/wjG v2dWK3VvDnnrAcXPCfH94W8Z74/jQ270eqBzpGjuKV4no01ZJSwc7YkLsoGn l9xvYdSDUnTjxnhizoSSmyqGzcxXnmXBfzKe6HJ1DshOfM5cHBddEC3nCa19 Bud/uD9lPH7G418lT4QaPc5wfV7JbA3kH1SY5gltU8GBfWceMlFPudUrVT3B Nf+crutTzpwpGkeNaHhioY6awtpXxczxqmpn+xmemBr99qRlwA1mAqcm+KyO JwzC/RZ2d2Yxn9PkdvbM8sQkvwKx8dsTjM6omL1L9TzB+Xu9z7/7f0eDWWY= "]]}}, {{}, {}, {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData[" 1:eJwV1nk8VVsbB3ClQbOhZGyQKfY2JUmyf+fsc46p5JAh1XVJlCmFSoakknmo uMksEiKNaFAppTI2KOWGXnWJDBWN9C7nn/35fvZeZ621n/U8z17qustm+2QR EZGZk0REJq4LRboVIsWyGaH5/deSVSmMztcHdh41ZUxn4Qpzy8gCZtR+if7g n2tM1+Dxls/S5cxw8V1Kd9E9xiTjsLzNjevM3NDx6VZUC3Pd4VHv8V8PmYDu RDdb3U5m301n5klCK6Mfkx96yHmQ6RNUh+dVv2eyd7tlhjeMM/LBr6p1l40w +wNi/wydmQd7oVFt3dqpKLG/HThqtRDBlyMDuWfnoj622LMkcREqREaTG0ul kPAlKnu2xjJsOaDXYbxIBqLzbwY33FLFhujrmrl/5KF561vvWJIGHFoNR7X7 FyM95wD7laeFnhuF23xvL0WiuK93UasO5BJ/SxRZLENEnlilQZEeBp6PzC98 oYxyTqjCY3t9xBqKlAaoqcIiuS/cZXQlZlvfU1GzV8P9r1ovtC+vgmG3WMf6 g+qotklccGLdamhZKcrW7FsOE0vbDt7kNdiwoVoG7hrgnKtL7SsyRt1g5dpa XU0MNMkfq9A2gV5e2MtbzzXRHOAWaGpggvvH3vqYvdTE/UOdU14am0DK0Uul pU0T39i46SPmJshVPvW9/a0m+vluGZSbCZKXzV/xtkcT/4rmzYg5ZYIL7ToL j/3WxNrMsEXjIgxsq88n+itRKD2QnFjfzEDXK6i+egcF4192Z1pbGQhfPdxy wZOC2eyO7Z3tDJS2+NhmeVPYW2rz7XMPgy6uZsA+PwpelIpqjAhg1OkXKb2f Qurr7V1nZIDpXLFpYscobJXWn1xlBgQFX9auOkPhrKvSWKUlINl//vbeAgqu ZnebKq2AzRtdq/QKKSREy/2u2Ag8SPT+WFBM4blH2O4rfwOzXQf4QRcpjMxU bSnYDwj1F/58Vk1B7n5pgOc5QMrvjITTKwoy4y80C0qAWZXqY1NfU8i/IXql owzY3Z86r/wNhbuVwas2XgW6za8Ujb+l8Je97qw1NYDhQMa1o+8p+P6zvufP G6Ap2M16zWcKkPkW7z6PA254jjd/Jo291+O90iWJ9V4HXptFY6NelFzzAg5m 1i8rVplDw8DoSr+hAgeTVT1Pjs+jEZOz2lVsOQcfzZ38Ty+gwX8bdjKLy4HG Ap99B5bQ2LXxy/JzgRwsuuIV0q5Po19iwLVuPwcdvVMOzzGg4SFju6snmIOA riOPjFfR8D7tPlk9ggP375ekU1fTkA0fkyhI4MDtP/mrK0xoGDUbtqUWciAy +5KCvCkNAaUlt6mNg+0+oZ7pDjRsMiNr/ds5+J2fee6kI43JNzJ4CR0ceEV7 asRtopGzcnZ1zXsONFsP/QjcTMMunsla/pmDK+966/SdaQiddaQHZ3Lxt32J wNmdRs1Y64ijMRdpI1vjd/jTmN4nS61muKg9t+2oYgCNfysUjWW5XBgk9I81 Ey/6tKv3lSkX+dL/+a3YS4NK2Btkb8tFoqeMy4f9NB58rvOz8OTi35WaB6eE Ea8R46n7cBGx+3BMLvE3CfXhqX5cDH5sW7j2IA0LY4m2O4FcVLzrqNwVTqOV vdOhf4iLdqP/Sd+LoOEnwn+84BQX48YODkrHaBwa32s8fJoLGTYtvpC4LfNc VH0mF5p6QlPNKBqhfpIXIs5wEcQN52tF0/g630D/UxkXVyp27FKKpRHctWPp jVou1l+7H38vgUb25gP6J+u4sE6wmaabSOLzuWipzxMutK8+Fs0knibiFbOo hQuJtNZ4vyQaDihKOdjORWdJd+fU4yT+cVUnjb5wIWcx75/ekzSwpuiA1SgX L2d+SBak0Li3Tl/f9Qd5X3jWnEusMllVKfoPFw2L3OVtU0m8fat6n89iMUs/ 50POPzT2D9V6/zeXhcBy69Qh4vwT4fd+SLCYEiu3c+0pGsmxM/oVZViMzpgp 8ow4fHXJcjdlFqbX+3x702i8u7PTIlCNxa+eV5Uap8nzQz0mkRosMl6XmXkS m4fonSnUYeExKdqom7hv1ySpyhUstJY/zFiUTmPmmtP2dQYslvxw4TsQnwjV 29RjzCLWdKnnPeL7Rw1kvjMsnFIPfhglnnJsTsl0lqxPq6xIPYNGZ9zadarm LB4WDU45Rhwkn+60ch0LQ2PjzMvECyueG/M2sFgdUB/ylnjKkvchLnYsdEQ1 JbUzaRz1u/N6lyOLRx/06jYS73kePjtsM4s10cO1+4lzn1X1pbmwGByZmnaD WNhnkFboRvajmeL7mth8Xp7cVQ8WGqPr474RZ3pZpjX5sPj7a1kOlUWjUDYh td2PxfvdSf/wiIW3H3r0+rPokpn70onYPuXn7NG9LKSO8Jx3Eac9U4+cfICF soW1TgSx2sWNz+aGsigYW29xgniFW/hXuXAWErRTaR6xglJZr+phFk9dkzeV E+9Y3HlJL5IFqyK+4SZxbaKMtUk0i4ujn+MfEM8+u+mueRyLzXb20k3EzMmC aXaJLIJv2Pe8II6JHV/893EWyBaf8mbi/k33OV4pLF7tydn5lvitXWdj4CkW 3vlKsp3E8475uIWns1DLuiw54TOh4o0xWSz0H+yyn3g+xf3JrJRcFvfD/Ltf T8zvm6OYnc9CXPXNzYn5HG4nixYVsnCQvtfRSDx8JPfWpWIWHwpM10+sN6yn xfJmKQtptaNTJ/bTIKlSVlvOQtjzj9jEfl9pZnY3XmYhqZ9hP/E+ap2MB19e Y/HRumzwOHHznThBaRULN5ufooeJ518q3Bdxk8X68cT03cSanxIiHG6z6LGK vPYXsaQOz4OqYXF0zdeNFsTLDB+pTKplEV45tFefWKpmcfWLhyRfKo4rKBIv tTQLCWtgYTyk9KWXxH/dHcU8m2YW7mMmyo3EEWee5Ko+I/mgt6WtnPjnqQqt xlcsnqeNNO0mFlf4cSP3DYuzkdkS1sTtA7LLAt+yUJE4+5IilvxL5KB8N4tG W+XhLnJ+Fdwf+Q98IOPLHvGuE8un7Ofe7WVh8klVMZl4rmGSj/sgC4PVbluM Ju4vev6z7CeLZE+PhcEkfwoGxqrDx0j8bMxPmBIHBspvtRHh4YZc2klJYhMX Q7WRqTw4Sv2rlk/yNe28+hdDCR7Cdu0+cZXku4j24mMz5vOwz2jt2r3EMQ3S I23SPOxQo3xWEpdPFXc+oMDD/5obnC+QelFV7+hVpcbD6/xTx5NJfVmVHdkU pcFDaOvILgGx++OaOY40D82XNJ7/IPWp46a3zKgeD3lBgbpbiOP6r7jrmPDQ LTqVO4/Us83bDqePg4dR1xTHSlL/jAU+xfUsD27MxVFn4ssNafY7zHnQV37/ qPgE6Xdah3syN/IQ1V/eqEXqZ4Dfny+TvHiY/WLn9iFSjwucR2/e9uEh9tgT +gixTfZpl1A/sv6my/HSxAbTh9d+D+ShdpL3/FXxNIZk/3D7w3loD65lPEh9 d3PrO9iQysM57Z1LjpD+IC27c0p0Gg9NVqJek4jTrpW48TJ45Dtmj1VoJI2i 0KOV13N5mF+s1Ol3lPT3F5dLC87zYDMioWt6mNSnCJOmgBoePgrt0stJ/+qT rhTXquWhVfArZCHxYMocrf8e8uAkU/M9JJTGlzHhb8cGHtjRKbfZEBoHp+34 z+gVD5LpuVF3gsj+kkR/fPvEQ0SBidI+0k8zQsukHGT54C9oGH+1g8bnJSVp AgU+pvcUBU4mvqVuO7JyMR8xLs4WGh40VNnz9HwVPl5a3ZwTuJ2G55FLeY06 fNyMX/Bn1IWc75zY7DVmfPzkf8s770TjWOTyoZG9fCiMb8vvsCD9tb1VqzOI /L8wTOyFOTnPY27s4xA+5PNKGurMaJyV1BjIjOCDuVMQXCKgIVF0xIJN4EPi afeOrVySf1ldiyML+NjQ0ZflT75fTH5wzPqf8XEhf4+mpyrpD4+XPsxu5eN4 scsKjgrpf/lhS23b+AjYd+u5tDKN6y5XdlS95UMrbk73raU0HL30OEd6yXgD q1W/FGhYUzHyUn/4KPRmavSkaLhOWxC2QEOAGf/r/p4yTuFly4DvfUqAAxvE 7TFG4bCo9xp/bQGE9Ss39P6ioGZi59GsL8AWuTsLVv2gcMpPdFY0I8Dc5Bmj d79Q4HY3RXzZKMCJVpUFKT0UAsKkjEsPCtBp1eik20Kh0rnvWVKEAPf0fb4m NFFYKVzFCTgqQND05oGPDWT+QZ0Mo1gB8qNMp2U9plBxs8W2NlWAU5Pqaobu URif+fvx01IBGp7bR5ldo7BF8Ne7hjcCKD31/HY3jcIYR32ct8oU/1OL6+va TMEpqr1M3MgUDxvVpr3bRGE46a1Bu7EpvN7kpHY6UFD0ba7fwzXF4WPRsm22 FN63xohnrTdF1/ZHRRWWFAYkNn7v32YKpaQsMc01FDzPdFl7J5nC8YmkW58M hTDvX38P95iixeTEhZdNmlCMdnF0jTNDnm/DevtVmtj+dHCy+hpzbJ68etzr gAZ6n0fIjr8xB1PrG2VxZTmG1j5pCd9ngavjRdTQv+rY3GgX2KpoidCpd0SX dKhBb9HW37XXLPEse7X+s3ZV2Bre2i3vtA5Qfmx2o0wFF7TlEoRD67Asb9rn leHK+K59qsP70HpcapU+eZu3DL9D/HM8FKxg2LjkaE3bUviGXzZ6WGyF8k/C smr/JVDvenUolbsB45ykVItrirApl2xZ/GIDNuyPD/roKYf21MLvj2hr6BWm DMvrL0T7o0OPAgOtEV60wx3JUticYP3DsMIacNz/OURMHG8rTihljlrjT6ZH 1MouMTCC+EAtIyFYkxP7bteLgN4aHSyzXwjnxXzJi3+GmR/vrvtrBAmhqTxw 8UPlMLPVUtze+IAQsbrteyX3DDMimaptziFk/Mpr/uu6h5jqVSJtBeFCvF5n m30yaZBJ1HG+TUcLsfxu+tF2hT6m7G6iKn1aiEpJY+sq1XcMOfDbjNOFKK43 HC1P7WLiL/VFW2YIkTVcKpsyrYuRan2asjNLSPKxuppf38FkvOQU5ucJEajb qVxk9oZZKppZLl0iRG534bdlRk+ZncXbEpXPC3F90kW//IUtjKB6naNeqRCf Q/S1f/c2MZMWRJ5bf0EI+k3yt6C/njDc7pPcw5eFeNfr/+kpW8NssfPdk3RF CKPo9I7G77eZjumecZlXhVC2L5u0decNhlGsC6uoEKJ8W2fzObNLjPteDYf7 lULAc0CrwbeEiRork22pEuJAWOUWKcs8RrTM7sG/14U4P5eONlt3nLE6vGjr xxtCiEz8+gaN/w/I2Eo/ "]]}}}, Axes->True, AxesLabel->{ FormBox["\"x,m\"", TraditionalForm], FormBox["\"y,m\"", TraditionalForm]}, AxesOrigin->{0, 0}, GridLines->Automatic, ImageSize->250, PlotLabel->None, PlotRange->{{0, 160}, {0, 40}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]}, { GraphicsBox[{{{}, {}, {RGBColor[0, 1, 0], Thickness[Large], LineBox[CompressedData[" 1:eJwV13lYTO0bB/D2NxVaGKFS2rSfKYnQ+dbMOTOlfSpkSSkpS0gqZAvZKanQ RqkfiigUlbyEFO1KKqQF1StSSq/e32P+metzzTxzrvt55nzv+2j5hbgHSIiJ icmJi4n9eZ+6S3e6i2wafeRk5hbfonP03GWpqyyu5tFOXyTKOe7ZdM9HTnzh 6SK6y3ZCVWTHLXqr147+yNxy2ka5R+yoWymd8FJr8/H79fQ3hyU2C85U0ifH VpWFlXTQK9R2xfhottBMhNqTXKvv9O5vj/fOdPhMN14fbXbuFofcrSPyey6P 0LKxfKuny5Xx3OtVy+pnstBI0NotPzIDy5qbTkl9UMKNZjWXiMtaOJoSqjJr iIO9c6cvaJ6oh277wmd1WmqQDuuV1J9hiHeb35ScEmlivdHxRna9KXqY6Tf8 kmfDqH/N8ecsF0H9jmUpeTp48UNxX7GxBc7fmFbiu1sP78IeKqmZWyLe7av6 A8EcGDRvWu6rYIXbPvSUvTUG8D17ISegcT6CNj+t2EAZIVenY3ZusTWsFoxJ 9x01xp3t111O7VqES4c8KtuumeCTlrTYo6U2sO9avMirzBQSg777UpSA7CmL uvi5ZqDW/L4Z3AlY8rzC4i0pyClnyA/3AJ697XmTrSh0zc0y3N8LyCvPazo6 n0KjbM/thO+A1NZLnTsXEmvY9ZeK2WJLYpaUqy0Fn921ilLqtjhrYLLhqSMF s+oTzr6etri53Nun04/C+OCn8KByWzT6RNCfj1NQ8XKNvPbcFmIjfB35kxQW CgsEvZW2eDqvZ6bxKQr+s08s2Vhni5aDvbwNZygE2loMbHhni9dF1yLa4ylI NHLyfUdtkdmYfyAphcLIjUuO+iZ2WGX96tCKGxRS/Of/8qXssLf/8EefmxS8 Ry+EJVvYwcZUxmttHgUNpq1R0doOL6+ciwy8TeFNgezin6wd1N5lFvvfpWC4 +8j1+2vscH5qO21RSsGmWmipFm+HkeNfMjVfUmg4eMvqXKId/vpiNT7jFYWw aVPFJl20w56rZ5gp1RRmePZ1jF+yg7tfXqpkLQVX9t63tpt2SN9WvLuxgcKh 2iTr2Eo7HLmROMK0UrjI67tZJcHD33smh3p/oWD6s3KfjQwPq5yX3TbvpZB5 PlU1bwIPlgnSHRP6KARrLkyJU+TBP7tJ+U4/BXpQd8xDgwfpyz7F4wMU5tzy VaxewENduSbt85NC0MKxhqQtPAQ450R7SnJRuo6TNRjKg8ViswxZKS7M1syw dQ7nwejUtIf3iQ/FjTRI7CHfv7qyb6YMF40ra7YHHefBwz5Bo06WC8ttvy4Y Z/Ggbfy/gYmTuKgctb517C0P40h99HgaF6FPnla1t/MQU3PllJcqF49XcPLN O3jI/27q/Yl4tHrm+zefeEhOku2XncHFsT27inWHeQhzuy5po8bFXumAg/mK fJxuMJeM0OSioMl8bzbDh1rTo1KjOVzs6nvFFgv5mFxjVptAvO3hy/c1S/iw 0nKWFjfgwv9/sidG3fiIT6mpqyOuDJEpE67mw2/uaqmNRlwkriy43L6Dj+xm 9ZfbTbmY5TIQNxDJR5xkiVgdsW5kh6dEFB9vitu9TM248Jo1LtKN5mOI0x7c SRw4NYMbdJqPJ2cWWLBcLkJGtcI/ZfNhuLbc9b0FF59iDM/9vMaHeWP2bbO5 XHR5Ljwsc4OPmLJWqz3ETmLHPmgX8LHq5tYcVUsuzDcHRa0s4+O5/i2aN4+s /33BubyZj2+zKqaHzCf1/3MorfYtHwsqWu/mEZ8tqnjc1s7HoVTFiG/ECXUh h4c6+Rjulw/csoCLnrBHP2Z/4wOn7o6stebixH81kWETGGhDbFhrEdnfJvmd ZQoMRPZPzLyJmTY9Vl6RwbCmxPpYYsONHLt0DoPRfKOGf4ljfx+teKbNoHLS aPKzxVzML9xuoKTPwJh1rvpJ/N+arZ7ehgw2DaT80rPh4rhVkVIfxcC9cKPH AeLnmWZqE20YSJsdGTemyfkc82rzsGVgYLRV35PYJr0sOJnP4M7BBpfdxOHN O74YLmHQOMkh7Rlxg0V161Zn8vm03U97iTdzoy8WujE4b7q+fxK4aA3h7GGW MeiYdsPanXhyi/jl4ysY/Lyu77uNGAt842pXM9heeyEmlrhfJb55ZQADM8vc hiriTztDx7ZsY7A6evFWK1su1N5mR98JY6DQYnPehTg8Yl/zaASDH3aFj9YR 9wXN+7R/L4O1S92nxBHXF87KKD/AQO5AnE0W8X7rcsMJh8nvlxwNKiKOvbsy /fQJBguZ1ketxEuTvU/VnWawZ8zrax9x9nFj+6lnGfyKf6b+L3FAWHPN0gQG qQ8XO8nZcXFY6K974TyDLL2KqGnEqt8b2dZkBpnbIm9qEy9cZWGpkc4gwn51 hymxXuiBAZ8MBiucYzgLiHVnVkRcymLwVkvK0Y44xXriq46rDNp8Ow84EMvc 8RjQzmVw6arVAzfiwQ1X3vnnMXgcO3FoKbECLZ18JZ/B4rwwahWxisJO3e67 DAKS9m7yJe64MWG33n2yPy3WOf7EweL309aVkPOWude3jrjw7ZkzWWUMOFck zdYTf1OJd+5+TPbXlgr9Y889FW90nzGwWONYFEi8qH+eecALBjaHA8X/rFfn dizNfMnAaW7skrXEMaq1Dh9rGPR/ak70+VPvlgnysxsYTNV07vYm/lsiNmlN EwOuSMzKk5g+v2kwtYXBjNHxo87Ewofh8lltDBLvBQQJiMtD1/zMec/A+33J Bpr4dKDxvfyPDPZKTomdR6zk8N7hfjcDq5vb3xj/WV+x73bZZwZPQ/r4s/9c L1b5n6d9DGKqY+o5xOevqn2o+84g6sQK79/kPAcdUpOahxi8+5Hj/pX42Btt nfYRBtXKHpvfExe7O937NM6gfUvj5DLib9G/SvvFWUzIfX7uBnG8WemF71Is Xifw6GTi7dsuvhqTYxHlIfF7O/Ewr1RPbBKLVBUfpTXE16TkRFJKLHyWhtk7 EGcWms5RmMbivamYrhpxW4ti7eQZLFTSTj6XJKYcTJ1V1Fm8cJQ584XcDwdW m5RP12YRKN177A7xHH3Vh2p6LKTaQ0rPE1sedD05y4BFwmklThSxk0Vxlo4Z iy6pNq4tcVPy+EvjhSzEDv2j9pDcr5IOjcGmNiyG9hRsSybe8Vq91cyWxXTu r74I4qZEziJzAbH8PBczYpNCne9zRSzMnJ5XxpL84ATIWlh6sThU1cmuJx76 sF9ouZzFxZCP3YuJjQyE3+b6sHg6t/BcN8mjD7mp1uYbWDz/wMkzIS7KzNXk bmZhf/ui6DfJM32JHW/NtrLoSPNXqyIOusSvNg5nEZI7qB5IbPDTI08nmsUc k5UdcQu5cIibvlLhIou3rb93PiL5Oi616dRoCjkfJdfbB4lbpTcmdqez6G6d rSogLpKNMinLYvH32/CQCpLPGgargrfeZsHZo+H8xIqLxcLLhlUVLEY2ujXG kfxXUE2ouFvFwiRZ4peQuNR6B32pmoWpyRencdIvqnbL54U1knrzjkavI7Z8 Ppqp9oGFxwlW34T0myRqzQe/ERbhx895n6VI/qn+HHAYY7Gzczh8EXFhXVGT +TiLNz125X/618GwOkMJKQEsqp59NSdWnlrakzpZAJdXpYfKTUie3Ol5WKMn gIaU0cPHhqTf8o9JcTwF2Gw3dkdHh/w/utLyrZYJYG/m4nBNm+RL4QKL5SsE +PukX68pcQp3YuZFXwGixMU8LGeTemqLHDU2C2Aql142j/TzhFlLS2fECPCt tkxFgfT7SSUFvIFCAeb9OCIprsKFa3i0gkKxAD/XjDisV+ZC0XBTlv5DAfZ2 dKe/UiL79yHDaXW5ACcuRUQkKZLzVJkVXFErwGytwSZNMo8kSi55l/BFgDXz ffylJpA8aee0TFITwkQ1QWXaOAW/5Aa5AQ0hHoduiN74m8LpkfkqtVpCTF0a MvvRvxR+v5a8HqcvxFlds38CxyiEj0n/VLEQ4nlBecn1EQr1y19LTnYQItxH XKAwSOGd4cIJPeFC3CtXcOH2kPk16LLl451CtNdr39/YTYESaVqnRQlRXfrC M7uL+M2mSq9oIYbkfmjM6CTzp93NyU9OCTEpoGd06D25vuMTrcQrQnSMd749 3ELBo6c0ela9EE3DGckTyfxZ9Uj9usVrISzv/btPrYpCvPr0TMEbIYzOMKGG lRQEMsNyIe+EMH/Uvp9XQebx/4pzHvQK4eRwSxhcTmH+BnW+o5Q9Dol1HjlW QmHW98ftDpb2+DztigUnlwLbHZBRmmCP0C1lZquOUoic4KVTdN4es/rroyyP UBhNOxSZn2yPJvZjl0IMBWH4rfTsy/YozZsjVXSQzPcFaR0nb9hDVapgp8w+ CqvFv1m5P7VH0YNh7x07SP07B3F/yB47Mhxtr5Hngx7vwBOyHg64rO6zIYA8 b3wQaUw1kliCH0cV603KzBBZ2vUhuHgJWmt2eWt1mSLG7QevI9ARh3UUNur/ Z4L54pqTHk90Qm9szg9NGROc3WI43fWhE3LXRf1+22aE1B5OaoGfM5xysi3d bhmiJUVxpr+SC75sTEtOcDOAGt9VevFtF6w6oNWm900f0Vez0z/ruSKlN3FK 6H49SPAqKc2drqirldfWa9FB8PDXhflPXTFv6JVWxHxtaJzbVLlP1Q2/rWUb E1doIe9Txc1LgW4o0Dnw9Vi7BgoPXzYNyHODXvHdZRnqM+FxPSlDf9wN6fOH LwnaOfjQx7HLY9wx7NtdY1qiDMP7thvrj7ljLEzLK2rKRHQ5T+150OCOxJ9W fIUMSVQk+JRfVxXhgl6+srjcEH2/Lex983QR+motLe3u/aCbFdt6pGeKsEMu qSrc/wfdSKc/8FEXIdOjdVVZ6SBt+f6vcOXZIpzXPqn7bNt3Oof/cvF2IxHG lt1nlt36Si9wejDJwEaE4jwF3LHqolNrPheIaBG++K3fu+x0J20cGinYAxH4 x1O6O7s/0sEapdx6OxGerV42t+hcB92zpHfGboEIk361yKR3vqPNlQR44SpC cKsiu8W5kf5+8UnOoJsI8RYjsW2/6mmzjdel1UUi7Nx/Z4N6dh1d13N3d4in CHFxO/IMxqvpLUn1e1W8RUg8GSz1dHk5zUm+6rJohQijU9REL27+TU/8t08+ YKUI8kfTxkKly+jothL7u6tF4Kb5fN/sc4f2CXCsbPcRoW7wxIPLsnm0k5fD gr98RZARl++387tCx1oUnjXzE+FNpWNlztpzdNS+hJala0UQIy+IDyz6P+l8 DuM= "]]}}, {{}, {}, {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData[" 1:eJwV1nk8VVsbB3ClQbOhZGyQKfY2JUmyf+fsc46p5JAh1XVJlCmFSoakknmo uMksEiKNaFAppTI2KOWGXnWJDBWN9C7nn/35fvZeZ621n/U8z17qustm+2QR EZGZk0REJq4LRboVIsWyGaH5/deSVSmMztcHdh41ZUxn4Qpzy8gCZtR+if7g n2tM1+Dxls/S5cxw8V1Kd9E9xiTjsLzNjevM3NDx6VZUC3Pd4VHv8V8PmYDu RDdb3U5m301n5klCK6Mfkx96yHmQ6RNUh+dVv2eyd7tlhjeMM/LBr6p1l40w +wNi/wydmQd7oVFt3dqpKLG/HThqtRDBlyMDuWfnoj622LMkcREqREaTG0ul kPAlKnu2xjJsOaDXYbxIBqLzbwY33FLFhujrmrl/5KF561vvWJIGHFoNR7X7 FyM95wD7laeFnhuF23xvL0WiuK93UasO5BJ/SxRZLENEnlilQZEeBp6PzC98 oYxyTqjCY3t9xBqKlAaoqcIiuS/cZXQlZlvfU1GzV8P9r1ovtC+vgmG3WMf6 g+qotklccGLdamhZKcrW7FsOE0vbDt7kNdiwoVoG7hrgnKtL7SsyRt1g5dpa XU0MNMkfq9A2gV5e2MtbzzXRHOAWaGpggvvH3vqYvdTE/UOdU14am0DK0Uul pU0T39i46SPmJshVPvW9/a0m+vluGZSbCZKXzV/xtkcT/4rmzYg5ZYIL7ToL j/3WxNrMsEXjIgxsq88n+itRKD2QnFjfzEDXK6i+egcF4192Z1pbGQhfPdxy wZOC2eyO7Z3tDJS2+NhmeVPYW2rz7XMPgy6uZsA+PwpelIpqjAhg1OkXKb2f Qurr7V1nZIDpXLFpYscobJXWn1xlBgQFX9auOkPhrKvSWKUlINl//vbeAgqu ZnebKq2AzRtdq/QKKSREy/2u2Ag8SPT+WFBM4blH2O4rfwOzXQf4QRcpjMxU bSnYDwj1F/58Vk1B7n5pgOc5QMrvjITTKwoy4y80C0qAWZXqY1NfU8i/IXql owzY3Z86r/wNhbuVwas2XgW6za8Ujb+l8Je97qw1NYDhQMa1o+8p+P6zvufP G6Ap2M16zWcKkPkW7z6PA254jjd/Jo291+O90iWJ9V4HXptFY6NelFzzAg5m 1i8rVplDw8DoSr+hAgeTVT1Pjs+jEZOz2lVsOQcfzZ38Ty+gwX8bdjKLy4HG Ap99B5bQ2LXxy/JzgRwsuuIV0q5Po19iwLVuPwcdvVMOzzGg4SFju6snmIOA riOPjFfR8D7tPlk9ggP375ekU1fTkA0fkyhI4MDtP/mrK0xoGDUbtqUWciAy +5KCvCkNAaUlt6mNg+0+oZ7pDjRsMiNr/ds5+J2fee6kI43JNzJ4CR0ceEV7 asRtopGzcnZ1zXsONFsP/QjcTMMunsla/pmDK+966/SdaQiddaQHZ3Lxt32J wNmdRs1Y64ijMRdpI1vjd/jTmN4nS61muKg9t+2oYgCNfysUjWW5XBgk9I81 Ey/6tKv3lSkX+dL/+a3YS4NK2Btkb8tFoqeMy4f9NB58rvOz8OTi35WaB6eE Ea8R46n7cBGx+3BMLvE3CfXhqX5cDH5sW7j2IA0LY4m2O4FcVLzrqNwVTqOV vdOhf4iLdqP/Sd+LoOEnwn+84BQX48YODkrHaBwa32s8fJoLGTYtvpC4LfNc VH0mF5p6QlPNKBqhfpIXIs5wEcQN52tF0/g630D/UxkXVyp27FKKpRHctWPp jVou1l+7H38vgUb25gP6J+u4sE6wmaabSOLzuWipzxMutK8+Fs0knibiFbOo hQuJtNZ4vyQaDihKOdjORWdJd+fU4yT+cVUnjb5wIWcx75/ekzSwpuiA1SgX L2d+SBak0Li3Tl/f9Qd5X3jWnEusMllVKfoPFw2L3OVtU0m8fat6n89iMUs/ 50POPzT2D9V6/zeXhcBy69Qh4vwT4fd+SLCYEiu3c+0pGsmxM/oVZViMzpgp 8ow4fHXJcjdlFqbX+3x702i8u7PTIlCNxa+eV5Uap8nzQz0mkRosMl6XmXkS m4fonSnUYeExKdqom7hv1ySpyhUstJY/zFiUTmPmmtP2dQYslvxw4TsQnwjV 29RjzCLWdKnnPeL7Rw1kvjMsnFIPfhglnnJsTsl0lqxPq6xIPYNGZ9zadarm LB4WDU45Rhwkn+60ch0LQ2PjzMvECyueG/M2sFgdUB/ylnjKkvchLnYsdEQ1 JbUzaRz1u/N6lyOLRx/06jYS73kePjtsM4s10cO1+4lzn1X1pbmwGByZmnaD WNhnkFboRvajmeL7mth8Xp7cVQ8WGqPr474RZ3pZpjX5sPj7a1kOlUWjUDYh td2PxfvdSf/wiIW3H3r0+rPokpn70onYPuXn7NG9LKSO8Jx3Eac9U4+cfICF soW1TgSx2sWNz+aGsigYW29xgniFW/hXuXAWErRTaR6xglJZr+phFk9dkzeV E+9Y3HlJL5IFqyK+4SZxbaKMtUk0i4ujn+MfEM8+u+mueRyLzXb20k3EzMmC aXaJLIJv2Pe8II6JHV/893EWyBaf8mbi/k33OV4pLF7tydn5lvitXWdj4CkW 3vlKsp3E8475uIWns1DLuiw54TOh4o0xWSz0H+yyn3g+xf3JrJRcFvfD/Ltf T8zvm6OYnc9CXPXNzYn5HG4nixYVsnCQvtfRSDx8JPfWpWIWHwpM10+sN6yn xfJmKQtptaNTJ/bTIKlSVlvOQtjzj9jEfl9pZnY3XmYhqZ9hP/E+ap2MB19e Y/HRumzwOHHznThBaRULN5ufooeJ518q3Bdxk8X68cT03cSanxIiHG6z6LGK vPYXsaQOz4OqYXF0zdeNFsTLDB+pTKplEV45tFefWKpmcfWLhyRfKo4rKBIv tTQLCWtgYTyk9KWXxH/dHcU8m2YW7mMmyo3EEWee5Ko+I/mgt6WtnPjnqQqt xlcsnqeNNO0mFlf4cSP3DYuzkdkS1sTtA7LLAt+yUJE4+5IilvxL5KB8N4tG W+XhLnJ+Fdwf+Q98IOPLHvGuE8un7Ofe7WVh8klVMZl4rmGSj/sgC4PVbluM Ju4vev6z7CeLZE+PhcEkfwoGxqrDx0j8bMxPmBIHBspvtRHh4YZc2klJYhMX Q7WRqTw4Sv2rlk/yNe28+hdDCR7Cdu0+cZXku4j24mMz5vOwz2jt2r3EMQ3S I23SPOxQo3xWEpdPFXc+oMDD/5obnC+QelFV7+hVpcbD6/xTx5NJfVmVHdkU pcFDaOvILgGx++OaOY40D82XNJ7/IPWp46a3zKgeD3lBgbpbiOP6r7jrmPDQ LTqVO4/Us83bDqePg4dR1xTHSlL/jAU+xfUsD27MxVFn4ssNafY7zHnQV37/ qPgE6Xdah3syN/IQ1V/eqEXqZ4Dfny+TvHiY/WLn9iFSjwucR2/e9uEh9tgT +gixTfZpl1A/sv6my/HSxAbTh9d+D+ShdpL3/FXxNIZk/3D7w3loD65lPEh9 d3PrO9iQysM57Z1LjpD+IC27c0p0Gg9NVqJek4jTrpW48TJ45Dtmj1VoJI2i 0KOV13N5mF+s1Ol3lPT3F5dLC87zYDMioWt6mNSnCJOmgBoePgrt0stJ/+qT rhTXquWhVfArZCHxYMocrf8e8uAkU/M9JJTGlzHhb8cGHtjRKbfZEBoHp+34 z+gVD5LpuVF3gsj+kkR/fPvEQ0SBidI+0k8zQsukHGT54C9oGH+1g8bnJSVp AgU+pvcUBU4mvqVuO7JyMR8xLs4WGh40VNnz9HwVPl5a3ZwTuJ2G55FLeY06 fNyMX/Bn1IWc75zY7DVmfPzkf8s770TjWOTyoZG9fCiMb8vvsCD9tb1VqzOI /L8wTOyFOTnPY27s4xA+5PNKGurMaJyV1BjIjOCDuVMQXCKgIVF0xIJN4EPi afeOrVySf1ldiyML+NjQ0ZflT75fTH5wzPqf8XEhf4+mpyrpD4+XPsxu5eN4 scsKjgrpf/lhS23b+AjYd+u5tDKN6y5XdlS95UMrbk73raU0HL30OEd6yXgD q1W/FGhYUzHyUn/4KPRmavSkaLhOWxC2QEOAGf/r/p4yTuFly4DvfUqAAxvE 7TFG4bCo9xp/bQGE9Ss39P6ioGZi59GsL8AWuTsLVv2gcMpPdFY0I8Dc5Bmj d79Q4HY3RXzZKMCJVpUFKT0UAsKkjEsPCtBp1eik20Kh0rnvWVKEAPf0fb4m NFFYKVzFCTgqQND05oGPDWT+QZ0Mo1gB8qNMp2U9plBxs8W2NlWAU5Pqaobu URif+fvx01IBGp7bR5ldo7BF8Ne7hjcCKD31/HY3jcIYR32ct8oU/1OL6+va TMEpqr1M3MgUDxvVpr3bRGE46a1Bu7EpvN7kpHY6UFD0ba7fwzXF4WPRsm22 FN63xohnrTdF1/ZHRRWWFAYkNn7v32YKpaQsMc01FDzPdFl7J5nC8YmkW58M hTDvX38P95iixeTEhZdNmlCMdnF0jTNDnm/DevtVmtj+dHCy+hpzbJ68etzr gAZ6n0fIjr8xB1PrG2VxZTmG1j5pCd9ngavjRdTQv+rY3GgX2KpoidCpd0SX dKhBb9HW37XXLPEse7X+s3ZV2Bre2i3vtA5Qfmx2o0wFF7TlEoRD67Asb9rn leHK+K59qsP70HpcapU+eZu3DL9D/HM8FKxg2LjkaE3bUviGXzZ6WGyF8k/C smr/JVDvenUolbsB45ykVItrirApl2xZ/GIDNuyPD/roKYf21MLvj2hr6BWm DMvrL0T7o0OPAgOtEV60wx3JUticYP3DsMIacNz/OURMHG8rTihljlrjT6ZH 1MouMTCC+EAtIyFYkxP7bteLgN4aHSyzXwjnxXzJi3+GmR/vrvtrBAmhqTxw 8UPlMLPVUtze+IAQsbrteyX3DDMimaptziFk/Mpr/uu6h5jqVSJtBeFCvF5n m30yaZBJ1HG+TUcLsfxu+tF2hT6m7G6iKn1aiEpJY+sq1XcMOfDbjNOFKK43 HC1P7WLiL/VFW2YIkTVcKpsyrYuRan2asjNLSPKxuppf38FkvOQU5ucJEajb qVxk9oZZKppZLl0iRG534bdlRk+ZncXbEpXPC3F90kW//IUtjKB6naNeqRCf Q/S1f/c2MZMWRJ5bf0EI+k3yt6C/njDc7pPcw5eFeNfr/+kpW8NssfPdk3RF CKPo9I7G77eZjumecZlXhVC2L5u0decNhlGsC6uoEKJ8W2fzObNLjPteDYf7 lULAc0CrwbeEiRork22pEuJAWOUWKcs8RrTM7sG/14U4P5eONlt3nLE6vGjr xxtCiEz8+gaN/w/I2Eo/ "]]}}}, Axes->True, AxesLabel->{ FormBox["\"x,m\"", TraditionalForm], FormBox["\"y,m\"", TraditionalForm]}, AxesOrigin->{0, 0}, GridLines->Automatic, ImageSize->250, PlotLabel->None, PlotRange->{{0, 160}, {0, 40}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}], ""} }, AutoDelete->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["Time dependent spin", "Text", CellChangeTimes->{{3.527435802715675*^9, 3.527435818735835*^9}}], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ OverscriptBox["x", ".."], "=", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"f", "(", "v", ")"}]}], " ", "v", " ", OverscriptBox["x", "."]}], StyleBox["+", FontColor->RGBColor[1, 0, 0]], RowBox[{"B", " ", RowBox[{"\[Omega]", "(", "t", ")"}], " ", OverscriptBox["z", "."]}]}]}], TraditionalForm]], "DisplayFormulaNumbered", CellChangeTimes->{{3.494263076907425*^9, 3.494263118547784*^9}, { 3.4942646064445114`*^9, 3.4942646283818707`*^9}, {3.517221997349837*^9, 3.517221997787331*^9}, {3.5272616041530204`*^9, 3.5272616050730295`*^9}}, FontSize->36], "\n", Cell[BoxData[ FormBox[ RowBox[{ OverscriptBox["z", ".."], "=", RowBox[{ RowBox[{"-", "g"}], "-", RowBox[{ RowBox[{"f", "(", "v", ")"}], "v", " ", OverscriptBox["z", "."]}], StyleBox["-", FontColor->RGBColor[1, 0, 0]], RowBox[{"B", " ", RowBox[{"\[Omega]", "(", "t", ")"}], " ", OverscriptBox["x", "."], " "}]}]}], TraditionalForm]], "DisplayFormulaNumbered", CellChangeTimes->{ 3.4942646320380974`*^9, {3.5172220158496*^9, 3.517222016224595*^9}, { 3.527261611733096*^9, 3.527261612593105*^9}}, FontSize->36], "\n", Cell[BoxData[ RowBox[{ RowBox[{"\[Omega]", RowBox[{"(", "t", ")"}]}], "=", RowBox[{"\[Omega]0", "-", RowBox[{"\[Alpha]0", " ", "t"}]}]}]], "Input", FontSize->24], "\n" }], "Text", CellChangeTimes->{ 3.527434939384042*^9, {3.5279326664592733`*^9, 3.5279326704393926`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[BoxData[ RowBox[{"(*", RowBox[{"values", "=", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", "0.0039"}], ",", " ", RowBox[{"\[Beta]", "\[Rule]", "0.0058"}], ",", RowBox[{"vd", "\[Rule]", "35."}], ",", RowBox[{"\[CapitalDelta]", "\[Rule]", "5."}], ",", RowBox[{"\[Rho]", "\[Rule]", "1.23"}], ",", RowBox[{"R", "\[Rule]", RowBox[{"36.4", " ", SuperscriptBox["10", RowBox[{"-", "3"}]]}]}], ",", RowBox[{"m", "\[Rule]", "0.145"}], ",", RowBox[{"g", "\[Rule]", "9.8"}], ",", RowBox[{"B", "\[Rule]", RowBox[{"4.1", " ", SuperscriptBox["10", RowBox[{"-", "4"}]]}]}], ",", "\n", RowBox[{"\[Omega]0", "\[Rule]", RowBox[{ RowBox[{ StyleBox["+", FontColor->RGBColor[1, 0, 0]], "1800."}], " ", FractionBox["\[Pi]", "30"]}]}], ",", StyleBox[ RowBox[{"\[Alpha]0", "\[Rule]", RowBox[{"100.", " ", FractionBox["\[Pi]", "30"]}]}], Background->RGBColor[1, 0.9, 0.8]], ",", RowBox[{"v0", "\[Rule]", "37."}]}], "}"}]}], "*)"}]], "Code", CellChangeTimes->{{3.527434958394232*^9, 3.527434969834346*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[TextData[Cell[BoxData[ TagBox[ TagBox[GridBox[{ { StyleBox["\[Null]", ShowStringCharacters->False], TagBox["\<\"{\[Alpha]D,\[Beta]M}=00\"\>", HoldForm], TagBox["\<\"{\[Alpha]D,\[Beta]M}=01\"\>", HoldForm], TagBox["\<\"{\[Alpha]D,\[Beta]M}=10\"\>", HoldForm], TagBox["\<\"{\[Alpha]D,\[Beta]M}=11\"\>", HoldForm]}, { TagBox["\<\"max range, m -->\"\>", HoldForm], "139.6938775510203`", "125.0189694967104`", "78.28322235551542`", "73.63382769325277`"}, { TagBox["\<\"\\!\\(\\*SuperscriptBox[\\(\[Theta]\\), \\(\[Degree]\\)]\\) \ -->\"\>", HoldForm], RowBox[{"\[Theta]", "\[Rule]", "45.000000000000064`"}], RowBox[{"\[Theta]", "\[Rule]", "50.4507815126606`"}], RowBox[{"\[Theta]", "\[Rule]", "39.42807073554649`"}], RowBox[{"\[Theta]", "\[Rule]", "43.239506400028965`"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {False, True, {False}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, Null, TableHeadings -> {{ "max range, m -->", "\!\(\*SuperscriptBox[\(\[Theta]\), \(\[Degree]\)]\) -->"}, { "{\[Alpha]D,\[Beta]M}=00", "{\[Alpha]D,\[Beta]M}=01", "{\[Alpha]D,\[Beta]M}=10", "{\[Alpha]D,\[Beta]M}=11"}}]]]], "Output", CellChangeTimes->{ 3.491577368563873*^9, 3.4915776061545815`*^9, {3.491577702653346*^9, 3.4915777703712296`*^9}, 3.4915778611044436`*^9, 3.491577893652337*^9, 3.49157873328784*^9, 3.4915787785233727`*^9, 3.4915790872773275`*^9, 3.491645505863392*^9, 3.491645618842987*^9, 3.4916518959757185`*^9, 3.491651941484935*^9, 3.491654226304617*^9, 3.4916543414483385`*^9, 3.4916692605664845`*^9, 3.4917246196461277`*^9, 3.492956701055622*^9, 3.4929610469672284`*^9, 3.4931124554885387`*^9, 3.493368028788995*^9, 3.4933985355974493`*^9, 3.4934544094719343`*^9, 3.493733909105966*^9, 3.4941458842122455`*^9, 3.4942586367853527`*^9, 3.4943151204746933`*^9, 3.494317558597986*^9, 3.4947531856694965`*^9, 3.496412860934456*^9, 3.496578271024184*^9, 3.496578541782905*^9, 3.4965863268713264`*^9, 3.497022937307895*^9, 3.5172199143741393`*^9, 3.5172222226907024`*^9, 3.5172234797007647`*^9, 3.5172247333523817`*^9, 3.5172282750232725`*^9, 3.5270054470361357`*^9, 3.5270057518261356`*^9, 3.5270060438306355`*^9, 3.5272500645205917`*^9}]], "Text", CellChangeTimes->{3.5274350193949795`*^9}], Cell["", "Section", CellChangeTimes->{3.527435055485701*^9, 3.5274350982565565`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[TextData[{ Cell[BoxData[ GraphicsBox[{LineBox[{{-1.5, 0}, {1.5, 0}}], LineBox[{{-1., -0.5}, {-1, 1.8}}], ArrowBox[{{1.5, 0}, {1.6, 0}}], ArrowBox[{{-1, 1.8}, {-1, 2.}}], InsetBox["x", {1.7, 0}], InsetBox["z", {-1, 2.1}], {GrayLevel[0.5], DiskBox[{0.2, 1.}, 0.3]}, LineBox[{{0.2, 1.}, {0.2, 0.5}}], ArrowBox[{{0.2, 0.5}, {0.2, 0.4}}], InsetBox["w", {0.2, 0.3}], {Dashing[0.01], LineBox[{{0.2, 1.}, {0.8, 1.3}}]}, ArrowBox[{{0.8, 1.3}, {0.9, 1.35}}], InsetBox["v", {1., 1.4}], LineBox[{{0.2, 1.}, {-0.2, 0.8}}], ArrowBox[{{-0.2, 0.8}, {-0.28, 0.76}}], InsetBox[ SubscriptBox["F", "D"], {-0.4, 0.72}], LineBox[{{0.2, 1.}, {-0.018, 1.4}}], ArrowBox[{{-0.018, 1.4}, {-0.059, 1.5}}], InsetBox[ SubscriptBox["F", "M"], {-0.059, 1.6}], CircleBox[{0.2, 1.}, 0.5, {4.869468613064179, 6.440264939859075}], ArrowBox[{{0.69, 1.07}, {0.67, 1.15}}], InsetBox["\[Omega]", {0.67, 0.66}], DiskBox[{0.2, 1.}, 0.02], {GrayLevel[0], CircleBox[{0.2, 1.}, 0.05]}}, GridLines->{{-1.5, -1., -0.5, 0., 0.5, 1., 1.5}, {-0.8, -0.6000000000000001, -0.4, -0.2, 0., 0.2, 0.4, 0.6000000000000001, 0.8, 1., 1.2000000000000002`, 1.4000000000000001`, 1.6, 1.8, 2.}}]], "Input", CellChangeTimes->{{3.4940662806630316`*^9, 3.4940662846162834`*^9}}], "\n" }], "Section", CellChangeTimes->{ 3.5274308217748613`*^9, 3.527430861825262*^9, 3.5274309720689898`*^9, 3.527431044810445*^9, {3.527431090451358*^9, 3.5274310924413977`*^9}, { 3.527431177223093*^9, 3.5274312372142925`*^9}, 3.5274313122857943`*^9, { 3.5274313502965546`*^9, 3.52743137957714*^9}, 3.5274314631588116`*^9, { 3.5274315733903785`*^9, 3.5274315747203913`*^9}, 3.527431647681121*^9, { 3.527431688471529*^9, 3.5274317190318346`*^9}, {3.527431789782542*^9, 3.527431819242837*^9}, {3.527431854253188*^9, 3.527431858753233*^9}, { 3.5274319007536526`*^9, 3.527431964554291*^9}, {3.5274320158248034`*^9, 3.527432077365419*^9}, 3.5274321420360656`*^9, {3.5274321733063784`*^9, 3.5274322262269077`*^9}, {3.5274348399330473`*^9, 3.5274348652233*^9}, { 3.5274349037436852`*^9, 3.527434951424162*^9}, 3.5274350054247017`*^9, 3.527435049675585*^9, {3.5274351223170376`*^9, 3.5274351372573366`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[TextData[{ "For back spin, we get the \[OpenCurlyDoubleQuote]famous\ \[CloseCurlyDoubleQuote] ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["35", "\[Degree]"], " "}], TraditionalForm]]], "angle. \n", Cell[BoxData["\[IndentingNewLine]"], "Input", CellChangeTimes->{3.5272654210541954`*^9}], "\n", Cell[BoxData[ TagBox[ TagBox[GridBox[{ { StyleBox["\[Null]", ShowStringCharacters->False], TagBox["\<\"{\[Alpha]D,\[Beta]M}=00\"\>", HoldForm], TagBox["\<\"{\[Alpha]D,\[Beta]M}=01\"\>", HoldForm], TagBox["\<\"{\[Alpha]D,\[Beta]M}=10\"\>", HoldForm], TagBox["\<\"{\[Alpha]D,\[Beta]M}=11\"\>", HoldForm]}, { TagBox["\<\"max range, m -->\"\>", HoldForm], "139.6938775510203`", "162.57900443412842`", "78.28322235551542`", "84.09500907751338`"}, { TagBox["\<\"\\!\\(\\*SuperscriptBox[\\(\[Theta]\\), \ \\(\[Degree]\\)]\\) -->\"\>", HoldForm], RowBox[{"\[Theta]", "\[Rule]", "45.000000000000064`"}], RowBox[{"\[Theta]", "\[Rule]", "38.39731461784826`"}], RowBox[{"\[Theta]", "\[Rule]", "39.42807073554649`"}], RowBox[{"\[Theta]", "\[Rule]", "35.17922071601326`"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {False, True, {False}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, Null, TableHeadings -> {{ "max range, m -->", "\!\(\*SuperscriptBox[\(\[Theta]\), \(\[Degree]\)]\) -->"}, { "{\[Alpha]D,\[Beta]M}=00", "{\[Alpha]D,\[Beta]M}=01", "{\[Alpha]D,\[Beta]M}=10", "{\[Alpha]D,\[Beta]M}=11"}}]]]], "Output", CellChangeTimes->{ 3.491577368563873*^9, 3.4915776061545815`*^9, {3.491577702653346*^9, 3.4915777703712296`*^9}, 3.4915778611044436`*^9, 3.491577893652337*^9, 3.49157873328784*^9, 3.4915787785233727`*^9, 3.4915790872773275`*^9, 3.491645505863392*^9, 3.491645618842987*^9, 3.4916518959757185`*^9, 3.491651941484935*^9, 3.491654226304617*^9, 3.4916543414483385`*^9, 3.4916692605664845`*^9, 3.4917246196461277`*^9, 3.492956701055622*^9, 3.4929610469672284`*^9, 3.4931124554885387`*^9, 3.493368028788995*^9, 3.4933985355974493`*^9, 3.4934544094719343`*^9, 3.493733909105966*^9, 3.4941458842122455`*^9, 3.4942586367853527`*^9, 3.4943151204746933`*^9, 3.494317558597986*^9, 3.4947531856694965`*^9, 3.496412860934456*^9, 3.496578271024184*^9, 3.496578541782905*^9, 3.4965863268713264`*^9, 3.497022937307895*^9, 3.510236956662058*^9, 3.510237104890741*^9}, FontFamily->"Courier New", FontWeight->"Bold"], "\n\n" }], "Text", CellChangeTimes->{ 3.527435142397439*^9, {3.52786342045047*^9, 3.527863430360569*^9}}] }, Open ]] }, AutoGeneratedPackage->None, ScreenStyleEnvironment->"SlideShow", WindowSize->{1280, 800}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, ShowSelection->True, Magnification:>FEPrivate`If[ FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.5, 1.5 Inherited], FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (February 23, 2011)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags -> "SlideShowHeader"], Cell["Style Environment Names", "Section"], Cell[ StyleData[All, "Condensed"], MenuSortingValue -> None], Cell[ StyleData[All, "SlideShow"], DockedCells -> { FEPrivate`FrontEndResource["FEExpressions", "SlideshowToolbar"], Cell[ BoxData[ GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzt3c2LXlWewHGZmcXM1krlLhoMkyJB6EoxqFhaKCRifIFESU8SIqZgUmGG aGhGW8mkBTG0IkjGhYsm3bMSateL7ATJZhZD/QH9R0y/d9u2bfe8z5ypQw6n zn157vNST1J1Px++huSpe5/7Uu5+nHv/cuPvv/V3f/LAAw+89efhj29d+ocT 3/nOpe/+9Z+Ffzzz3bf/duNPw1/+Mfz3N3/xwAP///cKAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABuDQkSMPP/pI/fOl5W+G HxUffuOhh8LG4c/8w/BJKGzfuPHIQzcWv62+Qf0ohbBN/bTj5XTv23YfAAAA AAAAYD957IXnX/nwg2LkF4QPX3z9teLDhx99JHweB21hl6fOnQ3/TJ25fi0f scWNOw79xMsv5bvnxUO3bXD84qv1E662Z3zxp/UfhS889967jXulDbrPFgAA AAAAAPaBpeVvvvLhB8trT+YfxtFefW74xMsvnXvv3fj302++Ef7+2AvPx23C 98QRW/qqnvPB7g2KGeWhI0f+6sTxcNxw9Pr2cdaZzjAXzy3s23igeBPMBwEA AAAAABiCc++9+9S5s/knT7z80pnr1+pzwxdff+3ZyxvV3Ulc/YGccZle/Ptu zAfzby7OLQjnfPziq41zwDgfDBs0HijuZT4IAAAAAADAEDx7eaNYjhf+efzi q+HPYm74yocfPPbC89X2uK1xBV+c3MW54e7NB6vtmWb4af5JXAMY/gyXE4eY uTi4bJwqfuOhh+Lo0HwQAAAAAACAIYiLAdM/47xsee3Jp86dzRfc5S8fPP3m G8V4LknL9+Y8H0xnG44evvbQkSP5T8P3pOpHiSsozQcBAAAAAAAYgrjyLj0s dHntyfjmwfiXNGjLXz4YPu+YD8Yf7d58MJ5YsRIwvgyx/vcoTgbjjsVjUeOo ceTJAAAAAAAAwL6RL8eLTxaNf8/f5ZdePljNcT4YziR8T14cUxZzw2KUmV9C Ovm4S3xHYfo8LTY0HwQAAAAAAGA4nr28kSZuZ65fS68dDB+maVp6+WA10/lg vfTNjRvEUeY3HnqoOP98IBjHhfFRqOlC4gUWTx9N40LzQQAAAAAAAIYjvYLw 0JEj+RM4w+fxmaL5ywermc4Hi+WBofyJpvk6wXhu9ePGFyYWDxTNp5xVNh8M G4crijPBeIbxYs0HAQAAAAAAGI70CsK4vK74PPyZBoXRvXr/4PGLr4bTKBYP xnMuPnzq3Nn8hNN8sLr7IsWwffGh+SAAAAAAAADDEZ/b+ezljfSSwfT5Yy88 X3z+4uuv5avzkriUL67I2435YOMSwtNvvtH4nNLQ8tqT6YTTV8WTPH7x1fzt iuaDAAAAAAAADEp8BWGcBhafh4rPwydnrl+rf0lcyhcfQ7ob88Hq7hLC9AzS NDGsP6c0vVuw2jkfjF8S9sovwXwQAAAAAACAQYmvIMxfMhjFkV/xeZz9pelb FDY49967aQy3S/PBOBBMh47PES0eLppfUfxRMR8MXxL+mRYP9jkZAAAAAAAA 2E/iqwbrqwLjPC5/l18U54Zxyvbwo4/EOd3pN99Io7o4H3zi5ZcaqyadD1bb M8GwY1xCmC8SbDzzOAQs5oONxzIfBAAAAAAAYFBefP214tV+0bOXNxrfNvjw o4/ER4++8uEHp998I+ybr+NbWv5mnMo1Vm1PGLtndmGDtrcchh0fe+H5uAww vu6w0fGLr8ZvCH82flV+rO6TAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAgMm8vbg4cfEbnjt4cIJ91+/uXre2/YU3 DxzYXFgIhb+Ef4YP61uu7Dz0StM2uefaty++qs+tG+vo4adXFhdv3L2oW9sX dWbUgdb73bGe6jf2So+bVgjbr2cXEorntlTbsrjbjb/B3NLO/xuvjHm9T58+ dfbbV69+fPOtH3w/FP4ePjl0+HCffcNmJy+cD7vEfcOXhL+vrK5273X02HLY rM+WhcefORH2CkcsPo/nMFb5l0y5ezyrkYXNuu/qBKcRvrN+Gj1/d0n9qxqF 39qpjUuX378Rf9fhL+Gf4cMZXk79NwsAAAAAAPeVHz/44MTFb3h7cXGCfTcX Fuons764eGdhoW2X2wsLz+2cMYV/5hs8N2oCVZxqvn3xVX1GhD2Pvnbw4K0D B9ou6s72fK3tEJvZ3Wi8Yz1139jN2o1ttNJ5IaGbBw7kU8Li/ow8/+K303NK W20Phj76/LNP/uWf64XPuydN4Ucdu3/v9o86Zj2PP3MibTbWMCscMez11g++ X3wePmk8jY7yL5ly93hW/Xdsm8RNcBrh0PXTuHj9Wv9bGtS/qrCyutpxbm1X NOVdBQAAAACA+9B9Mh9cqqru2VM+hEp77d58MDRyvVufo6/3uzm3Fxbq6++q WcwH+9/YG9mNnfhCth58MF8UublzKNnxCwrnubXzexpvSOHQ4cPvbH6az2XS Gq6rH9/Mx3yNS/zCh+FHabO4bDB08fq1/GvD543jvzQfHHeY1T0f/Ojzz+LS tj7lx51y9zSY694lH4Q1Dk/jNuHG9j+N/HvyMeXIxYC57vngqY1L+f8Pl9+/ kX7X+f8D9d2nvKsAAAAAAHAfuh/mg0tVdbt9dVvjNC3uuKvzwduj5nEjj36j 32AuTcTqj/qccj447o292TIi7DkcTK1nz55t+6UXJlg8mA8Hr358s/6IyLg2 8JO7CwmLYdbK6mpaNti4xvDxZ06kcVg4UOMG+bCs/zCrez448eqzKXdP92rk luFOpltXHxHG0+hYx9fzND4Zc2Fmx3zw4vVrbf8bROF3l/+/lP9oyrsKAAAA AAD3ofQWubxiqHS7aZs06ykmO41b1stXq9UXuG1tL2eL76G7eeDAVr/x02zn g6HuV+B1H/1M00zt1t2LCldXf+BnfSI55Xyw8cbezG5s/Qzrg7nuCwnVR5D5 nLHPEsLJFg+m4V33697iHDCULyE8dPhwnHCFP7vnepffv9G2QrCYD/YfZu31 +WC1fQPjsrtwA4urnuF8cKyFmW3zwadPn+oY8ibhR/F3Hf7MPzcfBAAAAABg IMaauxVDtymP1TiiWqqqNMxaz3662/PBxjV9PY9+pzZjrX/VldrorZhITjMf bLyxxdyt8emjK+NfSDhWGvAVixCL07jVtERxffzFgycvnO8/P1pZXS2eL5qG UN2zxSg9qrT4kjQfTMvTeg6z9sF8sMouv7iHs5oPptvec2Fm23ywbY7ZqG05 pPkgAAAAAAD73jzng8V8qmM2dGVxcX3nT3d7Ptg9les4ejHwanu9YH3LOzsP N818sP+NLZb45Vv2v5D4LNPGJ5QW318fL+YjyJ6LB+PwqOfQpy4uHuw59Dl6 bLlx/JcGZOEvYw2z9sd8sLo7emtccDf9fDCt8ey5MLNxPtg2xOzPfBAAAAAA gIGY53ywYzo22/Osn2qf+WB9TV+foxeP7uw+sY7x2TTzwf43dqX9LYFjXUjb XK+4UcUMcYLFg9XdYVAxmeppZXV13JlR45Aonw+ONczaN/PBxiPOaj5YZY8G 7bMws3E+mE8bJzsf80EAAAAAAAZibvPBtZ0HutG0+mxW51k/1Z7zwbanjHYc PX8l38ihZ/GU0TPZgGzi+eBzY97Y4h2CjSewNf7wt/F7ihnoBIsH04K+yRaF pble8bzQDo2zs3w+WI0zzDIf7H8a/RdmNs4H4+7vbH462clU5oMAAAAAAAzG 3OaDxYHW+60dm+w866faMR/cyv7eNpvrOPrIfTu+5+1dmA+eGXVjb+xcJzjZ hfQ/n7SEcLLFg8VgblwTDMJObVwaOR+seg+zzAf7n0b/hZmN88Hpp3vmgwAA AAAADMTc5oPr7QO7mZ9n/VQ75oPFmr4fNz1ltOd8cOTavZVdmA+Oe2Pb7sxY F9KteB9iXEK4Of7iwepezAfTEbtPo+cwa3/MB8MFdozkZjUfrHovzOw4mcme Q5t/g/kgAAAAAAD73tzmgx0Du5mfZ/fh6l9VbFx/ymjP+WCfNXEznw+Oe2P7 zAd7Lu5rUx+Ddiyc7JYGc0ePLU9wJtPMB/OJZOOHfYZZ+2M+mLYvHtM68/lg 1W9h5m4MKyvzQQAAAAAABmOa+WDYuLu17NtmOx+8sj1y6ujmziVs3fPBqvZW vmJCt5/mg23rDWc4Hwzy+7+1fUXpnyPf0phrXM3X367OB6sew6x9MB88eeF8 3LjtKmY7H+yzMNN8EAAAAAAApjHNfHBk+ZxrtvPBcRs5H6x/f/6U0T00Hxz5 3M62a+m+kPXFxbfbq/82V9p/X2O9evI+nw+OHGbt6nzwnc1Pw/mMrL70ss9t CTuevHA+HigULrP+PemRnrM9jZELM3d1PjjxXQUAAAAAgL3CfDD96MbOJYf5 O/L20Hxw5PaTzQc3d66vLGq88GIJZ2ysxYPVfT8frEYNs7rngz2rz7ym3D3d lp69s/lp8WTR2Z5G/Zu7F2bu6nxw4ssBAAAAAIC9wnww/Wipqu7snILdOnBg 5F0yH2y78MYlhGMtHqz2wnyw6hxm7ep88KPPPwt/GdnJC+fbbsvIwqXVdy9O 43u3fzTladS/uXth5q7OBye+qwAAAAAAsFdMMx/cXFjo7sbd+Vp93ynng7dH HbqY9PWZD9Z/FDqzPc/aQ/PBlVE3dm7zwaq2hHDcxYPVHpkPdgyzuueDEz/K clffP5gu9vL7N7q/ZzfeP5h0LMzc1fmg9w8CAAAAALDvTTMfHOtAs50Pjty9 43DdX9X4lNE9NB8ceWeutGzffSH19w/2ufDivvW5P4U9MR+s2odZu/r+wV2a D1bZ8sbut+zt6nywal+YaT4IAAAAAADTMB8svqrxKaP7aT7Ytv2sLiQ3w/lg 4/vvRppmPpgfceR8sGoZZu3R+eDRY8t9lhDu9nywbWGm+SAAAAAAAExjbvPB cQd8U+4+8XywvkGoWFTYNh+8mT1PtdFa+7xs4vngmenmgytN88Fboy6kmvt8 sGMw12GC+WBaCTjuaTQOs/bofDC4/P6NkZPZ3Z4PVi0LMzvmg9NM98wHAQAA AAAYiHs1Hxx3VDTP+WBVe8poUb7LVvb5yLlecegrs5gPFt+5PurGFu8EnOxC lvbIfPDUxqVx54ONQ6uep1EfZu3d+WBaQthxlDnMB6umhZnmgwAAAAAAMI25 zQdXdh6ozwq1ic+zfqrjzgeXds7LOuaDmzsfRtp9Vh3rECeeDxY3duQaxvzp qVvZCY91IcWixbah5PTzwUOHD8dh0KmNS+PuW000Xozr5j76/LPJvqcYZu3d +WCVLSFsu+r5zAfrCzMb54ONv7ixmA8CAAAAADAQc5sPVrWJ20r7sZamO8/6 qY47H6xqI7C2XYqR35X2EVj9zYb5ZU48H6x23titnV9beK59Stv/QqraMLHt Vzn9fDCIs6GrH9+cYN+0CK7/DOt7t39UHxL1nw8Ww6w9PR8cuYRwPvPBKlsH GhdmNv5O0zbhtCc7H/NBAAAAAAAGYp7zweLJlrcXFhonWeHD8KNiHdz854PB rZanjOa7FK8U3HrwwbWWLywuvxgCTjMf7Hljw4kVI9p83d+sLiQ3k/lgWsU2 2dznnc1Pi3cCdkhzwGK54ljrEPOnjO7p+WA1agnh3OaD6VjxTBrng2maGc55 svMxHwQAAAAAYCDmOR8snoQZJ1nFEdcXF9Miu3xEeE/mg21PGS12KRbTbW0P wvIJXdi+2Kb7S8adD/a8scW13KkdpX4hV3ZeyNrBg/WZaccNnMl8MM193tn8 dOSM7+SF8+ndf+mTnmOj8OVx8eBHn39WHGjc55Smp4y2jZz2ynww3Py4HLLx WPOcD6Yzib+jxuPmM8Tubwu/3/A7Wlldre9uPggAAAAAwL43zXywZ/m060rT N2xtbxOqD+PSiPCezAerlqeMFrus1NblpQsP3alNBn/c9JbA+gCxT2ni1n1j G/etX/hMLiQ3k/lgcPH6tT4jwrRZMTlKY6OOEeHRY8txpWHo5IXzxU/HnQ+m p4y2PZ9zr8wH843rt2We88Eqe4Jo23wwzRDDn0+fPtX2PSurq2mz/HPzQQAA AAAABmLO88Gq9p677tIDMO/VfLBqespofZf6ozs7apypTTkfrGqP/ex5Y2d+ IblZzQer7EGXH33+2amNS/mUMPz95IXzaVlZfYYY/plmf2GzsHG+wdFjy2e/ fTWN8+pTsGr8+WCVPWV0r88H8zcqNp7G3OaDVTbqbTtumv3FcXCxQjD8M/2P VP9dmw8CAAAAADAQ858PVk3Puqy3Nd1Qb4bzwfpTRht3WTt48HaPGV/bjGz6 +WDPG3un9ujRwsp0F5Kb4XywysZJadL31g++nwZ/6ZV/jQsMw4dpdWEaI4bd 01QxTh4bh4PVRPPBaudTRosfzWQ+OFb5scYdzLUtIZzgNPKh3gTzwbRCsGMu ubK6WvxfEc4zlK/oDL/3YnQ42eUYJgIAAAAAsBfdk/lgtT10ezt71WAxwCre 3zfuedZPdZr5YFV7ymjHLuuLi43Dta3t1XYr7TvOZD5Ydd7YcGJXajd25heS m+18sNoeD11+/0Y+6EnVF4vVPf7MiTSzK0aNZ799tePJpZPNB9PKu70+H2xb Qjj/+WCVPWW0e93iyQvniynhJ3fnwm1TYPNBAAAAAAAGYml7iJPqHh6tZFv2 b23UarWwzZnFxVD4S9vgaazzrJ9qvv24XxWNtUs6RLyo7jsQrU10bzvmdGvZ CXRv2edC1ntfSOPu05xDo5XV1cefOXFq41L4c6yZXRT3OnnhfPhz5FSx2h6Q xV06ZoiNjh5bbjxEPP8+h24Udx+r/FjxrMa6b+mIU55GOPQ0pxHVv6pNPMTT p0/F33X3LlPeVQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABgmI4AAAAAAAAAg3EaAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACYux/+8J8kSZIk SZIkSZIkDaR//clPJUmSJEmSJEmSJEmSJEmSJEmSJEnSPusnP/2ZJEmSJEmS JEmSpIH005/9XJIkSZIkSZIkSZIkSZIkSZIkSZIk7bN+9vNfSJIkSZIkSZIk SRpIP/+FJEmSJEmSJEmSpOH0S0mSJEmSJEmSJEkD6Re//JUkSZIkSZIkSZKk gfTLX0mSJEmSJEmSJEkaTr+WJEmSJEmSJEmSNJB+9evfSJIkSZIkSZIkSRpI v5YkSZIkSZIkSZI0nH7zhSRJkiRJkiRJkqSB9JsvJEmSJEmSJEmSJA2lL774 rSRJkiRJkiRJkqSh9NsvJUmSJEmSJEmSJA2k334pSZIkSZIkSZIkaSh9+eXv JEmSJEmSJEmSJA2l30mSJEmSJEmSJEkaSr/76itJkiRJkiRJkiRJA+mrr34v SZIkSZIkSZIkaSj9XpIkSZIkSZIkSdJQ+v3XX0uSJEmSJEmSJEkaSF9//QdJ kiRJkiRJkiRJAwkAAAAAAAAYkD/+UZIkSZIkSZIkSdJAAgAAAAAAAIbj3wAA AAAAAIAB+XdJkiRJkiRJkiRJAwkAAAAAAAAYjv8AAAAAAAAABuQ/JUmSJEmS JEmSJA0kAAAAAAAAYDj+CwAAAAAAAAAAAAAAAADYd/4bAAAAAAAAGIz/AQAA AAAAAAAAAAAAAAD2nf8FAAAAAAAABuP/ADmq/Zs= "], {{0, 140}, {2400, 0}}, {0, 255}, ColorFunction -> RGBColor], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable -> False], BaseStyle -> "ImageGraphics", ImageSize -> Magnification[1], ImageSizeRaw -> {2400, 140}, PlotRange -> {{0, 2400}, {0, 140}}]], "", CellMargins -> 0, CellChangeTimes -> {{3.516548605022827*^9, 3.516548633085456*^9}, { 3.516616961864057*^9, 3.516616982571135*^9}}]}, CellMargins -> 0, CellBracketOptions -> { "Color" -> RGBColor[0.739193, 0.750317, 0.747173]}], Cell[ BoxData[ GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzt3c2LXlWewHGZmcXM1krlLhoMkyJB6EoxqFhaKCRifIFESU8SIqZgUmGG aGhGW8mkBTG0IkjGhYsm3bMSateL7ATJZhZD/QH9R0y/d9u2bfe8z5ypQw6n zn157vNST1J1Px++huSpe5/7Uu5+nHv/cuPvv/V3f/LAAw+89efhj29d+ocT 3/nOpe/+9Z+Ffzzz3bf/duNPw1/+Mfz3N3/xwAP///cKAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABuDQkSMPP/pI/fOl5W+G HxUffuOhh8LG4c/8w/BJKGzfuPHIQzcWv62+Qf0ohbBN/bTj5XTv23YfAAAA AAAAYD957IXnX/nwg2LkF4QPX3z9teLDhx99JHweB21hl6fOnQ3/TJ25fi0f scWNOw79xMsv5bvnxUO3bXD84qv1E662Z3zxp/UfhS889967jXulDbrPFgAA AAAAAPaBpeVvvvLhB8trT+YfxtFefW74xMsvnXvv3fj302++Ef7+2AvPx23C 98QRW/qqnvPB7g2KGeWhI0f+6sTxcNxw9Pr2cdaZzjAXzy3s23igeBPMBwEA AAAAABiCc++9+9S5s/knT7z80pnr1+pzwxdff+3ZyxvV3Ulc/YGccZle/Ptu zAfzby7OLQjnfPziq41zwDgfDBs0HijuZT4IAAAAAADAEDx7eaNYjhf+efzi q+HPYm74yocfPPbC89X2uK1xBV+c3MW54e7NB6vtmWb4af5JXAMY/gyXE4eY uTi4bJwqfuOhh+Lo0HwQAAAAAACAIYiLAdM/47xsee3Jp86dzRfc5S8fPP3m G8V4LknL9+Y8H0xnG44evvbQkSP5T8P3pOpHiSsozQcBAAAAAAAYgrjyLj0s dHntyfjmwfiXNGjLXz4YPu+YD8Yf7d58MJ5YsRIwvgyx/vcoTgbjjsVjUeOo ceTJAAAAAAAAwL6RL8eLTxaNf8/f5ZdePljNcT4YziR8T14cUxZzw2KUmV9C Ovm4S3xHYfo8LTY0HwQAAAAAAGA4nr28kSZuZ65fS68dDB+maVp6+WA10/lg vfTNjRvEUeY3HnqoOP98IBjHhfFRqOlC4gUWTx9N40LzQQAAAAAAAIYjvYLw 0JEj+RM4w+fxmaL5ywermc4Hi+WBofyJpvk6wXhu9ePGFyYWDxTNp5xVNh8M G4crijPBeIbxYs0HAQAAAAAAGI70CsK4vK74PPyZBoXRvXr/4PGLr4bTKBYP xnMuPnzq3Nn8hNN8sLr7IsWwffGh+SAAAAAAAADDEZ/b+ezljfSSwfT5Yy88 X3z+4uuv5avzkriUL67I2435YOMSwtNvvtH4nNLQ8tqT6YTTV8WTPH7x1fzt iuaDAAAAAAAADEp8BWGcBhafh4rPwydnrl+rf0lcyhcfQ7ob88Hq7hLC9AzS NDGsP6c0vVuw2jkfjF8S9sovwXwQAAAAAACAQYmvIMxfMhjFkV/xeZz9pelb FDY49967aQy3S/PBOBBMh47PES0eLppfUfxRMR8MXxL+mRYP9jkZAAAAAAAA 2E/iqwbrqwLjPC5/l18U54Zxyvbwo4/EOd3pN99Io7o4H3zi5ZcaqyadD1bb M8GwY1xCmC8SbDzzOAQs5oONxzIfBAAAAAAAYFBefP214tV+0bOXNxrfNvjw o4/ER4++8uEHp998I+ybr+NbWv5mnMo1Vm1PGLtndmGDtrcchh0fe+H5uAww vu6w0fGLr8ZvCH82flV+rO6TAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAgMm8vbg4cfEbnjt4cIJ91+/uXre2/YU3 DxzYXFgIhb+Ef4YP61uu7Dz0StM2uefaty++qs+tG+vo4adXFhdv3L2oW9sX dWbUgdb73bGe6jf2So+bVgjbr2cXEorntlTbsrjbjb/B3NLO/xuvjHm9T58+ dfbbV69+fPOtH3w/FP4ePjl0+HCffcNmJy+cD7vEfcOXhL+vrK5273X02HLY rM+WhcefORH2CkcsPo/nMFb5l0y5ezyrkYXNuu/qBKcRvrN+Gj1/d0n9qxqF 39qpjUuX378Rf9fhL+Gf4cMZXk79NwsAAAAAAPeVHz/44MTFb3h7cXGCfTcX Fuons764eGdhoW2X2wsLz+2cMYV/5hs8N2oCVZxqvn3xVX1GhD2Pvnbw4K0D B9ou6s72fK3tEJvZ3Wi8Yz1139jN2o1ttNJ5IaGbBw7kU8Li/ow8/+K303NK W20Phj76/LNP/uWf64XPuydN4Ucdu3/v9o86Zj2PP3MibTbWMCscMez11g++ X3wePmk8jY7yL5ly93hW/Xdsm8RNcBrh0PXTuHj9Wv9bGtS/qrCyutpxbm1X NOVdBQAAAACA+9B9Mh9cqqru2VM+hEp77d58MDRyvVufo6/3uzm3Fxbq6++q WcwH+9/YG9mNnfhCth58MF8UublzKNnxCwrnubXzexpvSOHQ4cPvbH6az2XS Gq6rH9/Mx3yNS/zCh+FHabO4bDB08fq1/GvD543jvzQfHHeY1T0f/Ojzz+LS tj7lx51y9zSY694lH4Q1Dk/jNuHG9j+N/HvyMeXIxYC57vngqY1L+f8Pl9+/ kX7X+f8D9d2nvKsAAAAAAHAfuh/mg0tVdbt9dVvjNC3uuKvzwduj5nEjj36j 32AuTcTqj/qccj447o292TIi7DkcTK1nz55t+6UXJlg8mA8Hr358s/6IyLg2 8JO7CwmLYdbK6mpaNti4xvDxZ06kcVg4UOMG+bCs/zCrez448eqzKXdP92rk luFOpltXHxHG0+hYx9fzND4Zc2Fmx3zw4vVrbf8bROF3l/+/lP9oyrsKAAAA AAD3ofQWubxiqHS7aZs06ykmO41b1stXq9UXuG1tL2eL76G7eeDAVr/x02zn g6HuV+B1H/1M00zt1t2LCldXf+BnfSI55Xyw8cbezG5s/Qzrg7nuCwnVR5D5 nLHPEsLJFg+m4V33697iHDCULyE8dPhwnHCFP7vnepffv9G2QrCYD/YfZu31 +WC1fQPjsrtwA4urnuF8cKyFmW3zwadPn+oY8ibhR/F3Hf7MPzcfBAAAAABg IMaauxVDtymP1TiiWqqqNMxaz3662/PBxjV9PY9+pzZjrX/VldrorZhITjMf bLyxxdyt8emjK+NfSDhWGvAVixCL07jVtERxffzFgycvnO8/P1pZXS2eL5qG UN2zxSg9qrT4kjQfTMvTeg6z9sF8sMouv7iHs5oPptvec2Fm23ywbY7ZqG05 pPkgAAAAAAD73jzng8V8qmM2dGVxcX3nT3d7Ptg9les4ejHwanu9YH3LOzsP N818sP+NLZb45Vv2v5D4LNPGJ5QW318fL+YjyJ6LB+PwqOfQpy4uHuw59Dl6 bLlx/JcGZOEvYw2z9sd8sLo7emtccDf9fDCt8ey5MLNxPtg2xOzPfBAAAAAA gIGY53ywYzo22/Osn2qf+WB9TV+foxeP7uw+sY7x2TTzwf43dqX9LYFjXUjb XK+4UcUMcYLFg9XdYVAxmeppZXV13JlR45Aonw+ONczaN/PBxiPOaj5YZY8G 7bMws3E+mE8bJzsf80EAAAAAAAZibvPBtZ0HutG0+mxW51k/1Z7zwbanjHYc PX8l38ihZ/GU0TPZgGzi+eBzY97Y4h2CjSewNf7wt/F7ihnoBIsH04K+yRaF pble8bzQDo2zs3w+WI0zzDIf7H8a/RdmNs4H4+7vbH462clU5oMAAAAAAAzG 3OaDxYHW+60dm+w866faMR/cyv7eNpvrOPrIfTu+5+1dmA+eGXVjb+xcJzjZ hfQ/n7SEcLLFg8VgblwTDMJObVwaOR+seg+zzAf7n0b/hZmN88Hpp3vmgwAA AAAADMTc5oPr7QO7mZ9n/VQ75oPFmr4fNz1ltOd8cOTavZVdmA+Oe2Pb7sxY F9KteB9iXEK4Of7iwepezAfTEbtPo+cwa3/MB8MFdozkZjUfrHovzOw4mcme Q5t/g/kgAAAAAAD73tzmgx0Du5mfZ/fh6l9VbFx/ymjP+WCfNXEznw+Oe2P7 zAd7Lu5rUx+Ddiyc7JYGc0ePLU9wJtPMB/OJZOOHfYZZ+2M+mLYvHtM68/lg 1W9h5m4MKyvzQQAAAAAABmOa+WDYuLu17NtmOx+8sj1y6ujmziVs3fPBqvZW vmJCt5/mg23rDWc4Hwzy+7+1fUXpnyPf0phrXM3X367OB6sew6x9MB88eeF8 3LjtKmY7H+yzMNN8EAAAAAAApjHNfHBk+ZxrtvPBcRs5H6x/f/6U0T00Hxz5 3M62a+m+kPXFxbfbq/82V9p/X2O9evI+nw+OHGbt6nzwnc1Pw/mMrL70ss9t CTuevHA+HigULrP+PemRnrM9jZELM3d1PjjxXQUAAAAAgL3CfDD96MbOJYf5 O/L20Hxw5PaTzQc3d66vLGq88GIJZ2ysxYPVfT8frEYNs7rngz2rz7ym3D3d lp69s/lp8WTR2Z5G/Zu7F2bu6nxw4ssBAAAAAIC9wnww/Wipqu7snILdOnBg 5F0yH2y78MYlhGMtHqz2wnyw6hxm7ep88KPPPwt/GdnJC+fbbsvIwqXVdy9O 43u3fzTladS/uXth5q7OBye+qwAAAAAAsFdMMx/cXFjo7sbd+Vp93ynng7dH HbqY9PWZD9Z/FDqzPc/aQ/PBlVE3dm7zwaq2hHDcxYPVHpkPdgyzuueDEz/K clffP5gu9vL7N7q/ZzfeP5h0LMzc1fmg9w8CAAAAALDvTTMfHOtAs50Pjty9 43DdX9X4lNE9NB8ceWeutGzffSH19w/2ufDivvW5P4U9MR+s2odZu/r+wV2a D1bZ8sbut+zt6nywal+YaT4IAAAAAADTMB8svqrxKaP7aT7Ytv2sLiQ3w/lg 4/vvRppmPpgfceR8sGoZZu3R+eDRY8t9lhDu9nywbWGm+SAAAAAAAExjbvPB cQd8U+4+8XywvkGoWFTYNh+8mT1PtdFa+7xs4vngmenmgytN88Fboy6kmvt8 sGMw12GC+WBaCTjuaTQOs/bofDC4/P6NkZPZ3Z4PVi0LMzvmg9NM98wHAQAA AAAYiHs1Hxx3VDTP+WBVe8poUb7LVvb5yLlecegrs5gPFt+5PurGFu8EnOxC lvbIfPDUxqVx54ONQ6uep1EfZu3d+WBaQthxlDnMB6umhZnmgwAAAAAAMI25 zQdXdh6ozwq1ic+zfqrjzgeXds7LOuaDmzsfRtp9Vh3rECeeDxY3duQaxvzp qVvZCY91IcWixbah5PTzwUOHD8dh0KmNS+PuW000Xozr5j76/LPJvqcYZu3d +WCVLSFsu+r5zAfrCzMb54ONv7ixmA8CAAAAADAQc5sPVrWJ20r7sZamO8/6 qY47H6xqI7C2XYqR35X2EVj9zYb5ZU48H6x23titnV9beK59Stv/QqraMLHt Vzn9fDCIs6GrH9+cYN+0CK7/DOt7t39UHxL1nw8Ww6w9PR8cuYRwPvPBKlsH GhdmNv5O0zbhtCc7H/NBAAAAAAAGYp7zweLJlrcXFhonWeHD8KNiHdz854PB rZanjOa7FK8U3HrwwbWWLywuvxgCTjMf7Hljw4kVI9p83d+sLiQ3k/lgWsU2 2dznnc1Pi3cCdkhzwGK54ljrEPOnjO7p+WA1agnh3OaD6VjxTBrng2maGc55 svMxHwQAAAAAYCDmOR8snoQZJ1nFEdcXF9Miu3xEeE/mg21PGS12KRbTbW0P wvIJXdi+2Kb7S8adD/a8scW13KkdpX4hV3ZeyNrBg/WZaccNnMl8MM193tn8 dOSM7+SF8+ndf+mTnmOj8OVx8eBHn39WHGjc55Smp4y2jZz2ynww3Py4HLLx WPOcD6Yzib+jxuPmM8Tubwu/3/A7Wlldre9uPggAAAAAwL43zXywZ/m060rT N2xtbxOqD+PSiPCezAerlqeMFrus1NblpQsP3alNBn/c9JbA+gCxT2ni1n1j G/etX/hMLiQ3k/lgcPH6tT4jwrRZMTlKY6OOEeHRY8txpWHo5IXzxU/HnQ+m p4y2PZ9zr8wH843rt2We88Eqe4Jo23wwzRDDn0+fPtX2PSurq2mz/HPzQQAA AAAABmLO88Gq9p677tIDMO/VfLBqespofZf6ozs7apypTTkfrGqP/ex5Y2d+ IblZzQer7EGXH33+2amNS/mUMPz95IXzaVlZfYYY/plmf2GzsHG+wdFjy2e/ fTWN8+pTsGr8+WCVPWV0r88H8zcqNp7G3OaDVTbqbTtumv3FcXCxQjD8M/2P VP9dmw8CAAAAADAQ858PVk3Puqy3Nd1Qb4bzwfpTRht3WTt48HaPGV/bjGz6 +WDPG3un9ujRwsp0F5Kb4XywysZJadL31g++nwZ/6ZV/jQsMw4dpdWEaI4bd 01QxTh4bh4PVRPPBaudTRosfzWQ+OFb5scYdzLUtIZzgNPKh3gTzwbRCsGMu ubK6WvxfEc4zlK/oDL/3YnQ42eUYJgIAAAAAsBfdk/lgtT10ezt71WAxwCre 3zfuedZPdZr5YFV7ymjHLuuLi43Dta3t1XYr7TvOZD5Ydd7YcGJXajd25heS m+18sNoeD11+/0Y+6EnVF4vVPf7MiTSzK0aNZ799tePJpZPNB9PKu70+H2xb Qjj/+WCVPWW0e93iyQvniynhJ3fnwm1TYPNBAAAAAAAGYml7iJPqHh6tZFv2 b23UarWwzZnFxVD4S9vgaazzrJ9qvv24XxWNtUs6RLyo7jsQrU10bzvmdGvZ CXRv2edC1ntfSOPu05xDo5XV1cefOXFq41L4c6yZXRT3OnnhfPhz5FSx2h6Q xV06ZoiNjh5bbjxEPP8+h24Udx+r/FjxrMa6b+mIU55GOPQ0pxHVv6pNPMTT p0/F33X3LlPeVQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABgmI4AAAAAAAAAg3EaAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACYux/+8J8kSZIk SZIkSZIkDaR//clPJUmSJEmSJEmSJEmSJEmSJEmSJEnSPusnP/2ZJEmSJEmS JEmSpIH005/9XJIkSZIkSZIkSZIkSZIkSZIkSZIk7bN+9vNfSJIkSZIkSZIk SRpIP/+FJEmSJEmSJEmSpOH0S0mSJEmSJEmSJEkD6Re//JUkSZIkSZIkSZKk gfTLX0mSJEmSJEmSJEkaTr+WJEmSJEmSJEmSNJB+9evfSJIkSZIkSZIkSRpI v5YkSZIkSZIkSZI0nH7zhSRJkiRJkiRJkqSB9JsvJEmSJEmSJEmSJA2lL774 rSRJkiRJkiRJkqSh9NsvJUmSJEmSJEmSJA2k334pSZIkSZIkSZIkaSh9+eXv JEmSJEmSJEmSJA2l30mSJEmSJEmSJEkaSr/76itJkiRJkiRJkiRJA+mrr34v SZIkSZIkSZIkaSj9XpIkSZIkSZIkSdJQ+v3XX0uSJEmSJEmSJEkaSF9//QdJ kiRJkiRJkiRJAwkAAAAAAAAYkD/+UZIkSZIkSZIkSdJAAgAAAAAAAIbj3wAA AAAAAIAB+XdJkiRJkiRJkiRJAwkAAAAAAAAYjv8AAAAAAAAABuQ/JUmSJEmS JEmSJA0kAAAAAAAAYDj+CwAAAAAAAAAAAAAAAADYd/4bAAAAAAAAGIz/AQAA AAAAAAAAAAAAAAD2nf8FAAAAAAAABuP/ADmq/Zs= "], {{0, 140}, {2400, 0}}, {0, 255}, ColorFunction -> RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable -> False], BaseStyle -> "ImageGraphics", ImageSize -> Magnification[1], ImageSizeRaw -> {2400, 140}, PlotRange -> {{0, 2400}, {0, 140}}]], "", CellMargins -> 0, CellChangeTimes -> {{3.516548605022827*^9, 3.516548633085456*^9}, { 3.516616961864057*^9, 3.516616982571135*^9}}], Cell["", "SlideShowNavigationBar", CellTags -> "SlideShowHeader"], Cell[ BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"Evaluate", " ", "the", " ", "following", " ", "to", " ", "copy", " ", "the", " ", "style", " ", "of", " ", "the", " ", "cell", " ", "above", " ", "into", " ", "\[IndentingNewLine]", "the", " ", "docked", " ", "cell", " ", "style", " ", "of", " ", RowBox[{"the", " ", "'"}], RowBox[{"Notebook", "'"}], " ", "definition", " ", RowBox[{"(", RowBox[{"2", " ", "cells", " ", "above"}], ")"}], " ", "\[IndentingNewLine]", "These", " ", "two", " ", "cell", " ", "can", " ", "be", " ", "removed", " ", "once", " ", "the", " ", "docked", " ", "cell", " ", "is", " ", RowBox[{"created", "."}]}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SelectionMove", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "Previous", ",", "Cell", ",", "2"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"celldata", "=", RowBox[{"NotebookRead", "[", RowBox[{"SelectedNotebook", "[", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SelectionMove", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "Previous", ",", "Cell", ",", "1"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SetOptions", "[", RowBox[{ RowBox[{"NotebookSelection", "[", RowBox[{"SelectedNotebook", "[", "]"}], "]"}], ",", RowBox[{"DockedCells", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FEPrivate`FrontEndResource", "[", RowBox[{ "\"FEExpressions\"", ",", "\"SlideshowToolbar\""}], "]"}], ",", "celldata"}], "}"}]}]}], "]"}], ";"}]}]}]], "Input", FontWeight -> "Bold"]}, Closed]], Cell[ CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags -> "SlideShowHeader"], Cell["Notebook Options Settings", "Section"], Cell[ StyleData["Notebook"], CellBracketOptions -> { "Color" -> RGBColor[0.739193, 0.750317, 0.747173]}]}, Open]], Cell[ CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags -> "SlideShowHeader"], Cell["Styles for Title and Section Cells", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Title"], ShowCellBracket -> Automatic, ShowGroupOpener -> False, CellMargins -> {{58, 0}, {30, 0}}, CellBracketOptions -> {"Margins" -> {0, 0}}, CellGroupingRules -> {"TitleGrouping", 0}, PageBreakBelow -> False, CellFrameMargins -> {{20, 20}, {20, 20}}, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, CellChangeTimes -> {3.479211616867702*^9, 3.483202458952606*^9}, TextAlignment -> Left, LineSpacing -> {1, 0}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Title", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subtitle", 0}, {"Subsubtitle", 0}}, FontFamily -> "Helvetica", FontSize -> 48, FontWeight -> "Plain", FontSlant -> "Plain", FontTracking -> "Plain", FontVariations -> { "Masked" -> False, "Outline" -> False, "Shadow" -> False, "StrikeThrough" -> False, "Underline" -> False}, FontColor -> RGBColor[ 0.8156862745098039, 0.07058823529411765, 0.07058823529411765], Background -> None], Cell[ StyleData["Title", "Presentation", StyleDefinitions -> None], LineSpacing -> {1, 5}, FontSize -> 28], Cell[ StyleData[ "Title", "SlideShow", StyleDefinitions -> StyleData["Title", "Presentation"]], CellMargins -> {{55, 3}, {14, 45}}, FontSize -> 55], Cell[ StyleData["Title", "Printout", StyleDefinitions -> None], CellMargins -> {{2, 0}, {0, 10}}, LineSpacing -> {1, 18}, FontSize -> 15]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Subtitle"], ShowCellBracket -> False, CellMargins -> {{58, 0}, {0, 5}}, CellBracketOptions -> {"Margins" -> {0, 0}}, CellGroupingRules -> {"TitleGrouping", 10}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, TextAlignment -> Left, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subsubtitle", 0}}, FontFamily -> "Helvetica", FontSize -> 20, FontWeight -> "Plain", FontSlant -> "Plain", FontColor -> RGBColor[ 0.34901960784313724`, 0.5254901960784314, 0.5176470588235295], Background -> None], Cell[ StyleData["Subtitle", "Presentation", StyleDefinitions -> None], CellMargins -> {{58, 0}, {0, 5}}, FontSize -> 20], Cell[ StyleData[ "Subtitle", "SlideShow", StyleDefinitions -> StyleData["Subtitle", "Presentation"]]], Cell[ StyleData["Subtitle", "Printout", StyleDefinitions -> None], CellMargins -> {{2, 0}, {0, 5}}, FontSize -> 14, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubtitle", StyleDefinitions -> StyleData["Subtitle"]], FontSize -> 3 + Inherited], Cell[ StyleData["Subsubtitle", "Presentation"], FontSize -> 3 + Inherited], Cell[ StyleData[ "Subsubtitle", "SlideShow", StyleDefinitions -> StyleData["Subsubtitle", "Presentation"]]], Cell[ StyleData["Subsubtitle", "Printout"]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Section"], CellFrame -> {{0, 0}, {0.2, 0}}, ShowGroupOpener -> False, CellMargins -> {{58, 50}, {10, 20}}, FontSize -> 36, FontWeight -> "Plain", FontColor -> RGBColor[ 0.8156862745098039, 0.07058823529411765, 0.07058823529411765]], Cell[ StyleData["Section", "Presentation"], CellFrame -> {{0, 0}, {0.2, 0}}, CellMargins -> {{58, 50}, {10, 40}}], Cell[ StyleData[ "Section", "SlideShow", StyleDefinitions -> StyleData["Section", "Presentation"]], CellMargins -> {{58, 50}, {10, 10}}], Cell[ StyleData["Section", "Printout"], ShowGroupOpener -> False, CellMargins -> {{2, 0}, {7, 22}}, FontSize -> 14]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Subsection"], CellDingbat -> None, ShowGroupOpener -> True, CellMargins -> {{60, Inherited}, {0, 12}}, CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsection", CounterAssignments -> {{"Subsubsection", 0}}, FontFamily -> "Helvetica", FontSize -> 24, FontWeight -> "Plain", FontSlant -> "Plain", FontColor -> RGBColor[ 0.34901960784313724`, 0.5254901960784314, 0.5176470588235295]], Cell[ StyleData["Subsection", "Presentation"], CellMargins -> {{60, 50}, {6, 15}}, LineSpacing -> {1, 0}, FontFamily -> "Helvetica"], Cell[ StyleData["Subsection", "SlideShow"], CellMargins -> {{60, 50}, {8, 12}}, LineSpacing -> {1, 0}, FontFamily -> "Helvetica"], Cell[ StyleData["Subsection", "Printout"], ShowGroupOpener -> False, CellMargins -> {{2, 0}, {2, 22}}, FontSize -> 12]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubsection"], CellDingbat -> None, ShowGroupOpener -> True, CellMargins -> {{60, Inherited}, {0, 12}}, CellGroupingRules -> {"SectionGrouping", 50}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsubsection", FontFamily -> "Helvetica", FontSize -> 24, FontWeight -> "Plain", FontSlant -> "Plain", FontColor -> RGBColor[ 0.34901960784313724`, 0.5254901960784314, 0.5176470588235295]], Cell[ StyleData["Subsubsection", "Presentation"], CellMargins -> {{60, 50}, {6, 20}}, LineSpacing -> {1, 0}], Cell[ StyleData[ "Subsubsection", "SlideShow", StyleDefinitions -> StyleData["Subsubsection", "Presentation"]]], Cell[ StyleData["Subsubsection", "Printout"], ShowGroupOpener -> False, CellMargins -> {{2, 0}, {2, 22}}, FontSize -> 11]}, Closed]]}, Open]], Cell[ CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags -> "SlideShowHeader"], Cell["Styles for Body Text", "Section"], Cell[ CellGroupData[{ Cell["Standard", "Subsection"], Cell[ CellGroupData[{ Cell[ StyleData["Text"], CellMargins -> {{60, 10}, {7, 7}}, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing -> {1, 3}, CounterIncrements -> "Text", FontFamily -> "Helvetica", FontSize -> 17], Cell[ StyleData["Text", "Presentation"], CellMargins -> {{60, 50}, {10, 10}}, FontSize -> 17], Cell[ StyleData[ "Text", "SlideShow", StyleDefinitions -> StyleData["Text", "Presentation"]]], Cell[ StyleData["Text", "Printout"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 0.5, Hyphenation -> True, FontSize -> 10]}, Closed]]}, Open]], Cell[ CellGroupData[{ Cell["Display", "Subsection"], Cell[ CellGroupData[{ Cell[ StyleData["Item", StyleDefinitions -> StyleData["Text"]], CellDingbat -> Cell["\[FilledSmallCircle]", FontWeight -> "Bold"], CellMargins -> {{84, 10}, {7, 7}}, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, CounterIncrements -> "Item", $CellContext`ReturnCreatesNewCell -> True], Cell[ StyleData["Item", "Presentation"], CellMargins -> {{124, 10}, {7, 7}}], Cell[ StyleData[ "Item", "SlideShow", StyleDefinitions -> StyleData["Item", "Presentation"]]], Cell[ StyleData["Item", "Printout"], CellMargins -> {{2, 2}, {0, 6}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subitem", StyleDefinitions -> StyleData["Item"]], CellMargins -> {{108, 10}, {7, 7}}, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15150}, CounterIncrements -> "Subitem", $CellContext`ReturnCreatesNewCell -> True], Cell[ StyleData["Subitem", "Presentation"], CellMargins -> {{146, 10}, {7, 7}}], Cell[ StyleData[ "Subitem", "SlideShow", StyleDefinitions -> StyleData["Subitem", "Presentation"]]], Cell[ StyleData["Subitem", "Printout"], CellMargins -> {{30, 2}, {0, 6}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemNumbered", StyleDefinitions -> StyleData["Text"]], CellDingbat -> Cell[ TextData[{ CounterBox["ItemNumbered"], "."}]], CellMargins -> {{84, 10}, {7, 7}}, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, CounterIncrements -> "ItemNumbered", $CellContext`ReturnCreatesNewCell -> True], Cell[ StyleData["ItemNumbered", "Presentation"], CellMargins -> {{124, 10}, {7, 7}}], Cell[ StyleData[ "ItemNumbered", "SlideShow", StyleDefinitions -> StyleData["ItemNumbered", "Presentation"]]], Cell[ StyleData["ItemNumbered", "Printout"], CellMargins -> {{2, 2}, {0, 6}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData[ "SubitemNumbered", StyleDefinitions -> StyleData["ItemNumbered"]], CellDingbat -> Cell[ TextData[{ CounterBox["SubitemNumbered", CounterFunction :> (Part[ CharacterRange["a", "z"], #]& )], "."}]], CellMargins -> {{108, 10}, {7, 7}}, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15150}, CounterIncrements -> "SubitemNumbered", $CellContext`ReturnCreatesNewCell -> True], Cell[ StyleData["SubitemNumbered", "Presentation"], CellMargins -> {{146, 10}, {7, 7}}], Cell[ StyleData[ "SubitemNumbered", "SlideShow", StyleDefinitions -> StyleData["SubitemNumbered", "Presentation"]]], Cell[ StyleData["SubitemNumbered", "Printout"], CellMargins -> {{30, 2}, {0, 6}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData[ "ItemParagraph", StyleDefinitions -> StyleData["Item"]], CellDingbat -> None, CellMargins -> {{84, 10}, {7, 7}}, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15100}, CounterIncrements -> "ItemParagraph", $CellContext`ReturnCreatesNewCell -> True], Cell[ StyleData["ItemParagraph", "Presentation"], CellMargins -> {{124, 10}, {7, 7}}], Cell[ StyleData[ "ItemParagraph", "SlideShow", StyleDefinitions -> StyleData["ItemParagraph", "Presentation"]]], Cell[ StyleData["ItemParagraph", "Printout"], CellMargins -> {{14, 2}, {0, 6}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData[ "SubitemParagraph", StyleDefinitions -> StyleData["Subitem"]], CellDingbat -> None, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15200}, CounterIncrements -> "SubitemParagraph", $CellContext`ReturnCreatesNewCell -> True], Cell[ StyleData["SubitemParagraph", "Presentation"]], Cell[ StyleData[ "SubitemParagraph", "SlideShow", StyleDefinitions -> StyleData["SubitemParagraph", "Presentation"]]], Cell[ StyleData["SubitemParagraph", "Printout"]]}, Closed]]}, Open]]}, Open]], Cell[ CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags -> "SlideShowHeader"], Cell["Styles for Formulas and Programming", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["DisplayFormula"]], Cell[ StyleData["DisplayFormula", "Presentation"], CellMargins -> {{60, Inherited}, {1.5 Inherited, 1.5 Inherited}}, FontSize -> 17], Cell[ StyleData[ "DisplayFormula", "SlideShow", StyleDefinitions -> StyleData["DisplayFormula", "Presentation"]]], Cell[ StyleData["DisplayFormula", "Printout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}, FontSize -> 10]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData[ "DisplayFormulaNumbered", StyleDefinitions -> StyleData["DisplayFormula"]], CellFrameLabels -> {{None, Cell[ TextData[{"(", CounterBox["DisplayFormulaNumbered"], ")"}]]}, {None, None}}, CounterIncrements -> "DisplayFormulaNumbered"], Cell[ StyleData["DisplayFormulaNumbered", "Presentation"], CellMargins -> {{60, Inherited}, {1.5 Inherited, 1.5 Inherited}}, FontSize -> 17], Cell[ StyleData[ "DisplayFormulaNumbered", "SlideShow", StyleDefinitions -> StyleData["DisplayFormulaNumbered", "Presentation"]]], Cell[ StyleData["DisplayFormulaNumbered", "Printout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}]}, Open]]}, Open]], Cell[ CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags -> "SlideShowHeader"], Cell["Styles for Inline Formatting", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["InlineFormula"]], Cell[ StyleData["InlineFormula", "Presentation"], FontSize -> 17], Cell[ StyleData[ "InlineFormula", "SlideShow", StyleDefinitions -> StyleData["InlineFormula", "Presentation"]]], Cell[ StyleData["InlineFormula", "Printout"]]}, Closed]]}, Open]], Cell[ CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags -> "SlideShowHeader"], Cell["Styles for Input and Output Cells", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Input"], ShowCellBracket -> True, CellMargins -> {{103, 10}, {5, 7}}, CellBracketOptions -> { "Color" -> RGBColor[0.734936, 0.713848, 0.694041]}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, DefaultFormatType -> DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Mathematica", FormatType -> InputForm, ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input", FontWeight -> "Bold"], Cell[ StyleData["Input", "Presentation"], CellMargins -> {{110, 50}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 17], Cell[ StyleData[ "Input", "SlideShow", StyleDefinitions -> StyleData["Input", "Presentation"]]], Cell[ StyleData["Input", "Printout"], CellMargins -> {{39, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["InputOnly"], ShowCellBracket -> True, CellMargins -> {{103, 10}, {7, 7}}, CellBracketOptions -> { "Color" -> RGBColor[0.734936, 0.713848, 0.694041]}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, DefaultFormatType -> DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Mathematica", FormatType -> InputForm, ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input", MenuSortingValue -> 1550, FontWeight -> "Bold"], Cell[ StyleData["InputOnly", "Presentation"], CellMargins -> {{110, Inherited}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 17], Cell[ StyleData[ "InputOnly", "SlideShow", StyleDefinitions -> StyleData["InputOnly", "Presentation"]]], Cell[ StyleData["InputOnly", "Printout"], CellMargins -> {{39, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Output"], ShowCellBracket -> True, CellMargins -> {{103, 10}, {7, 5}}, CellBracketOptions -> { "Color" -> RGBColor[0.734936, 0.713848, 0.694041]}, CellEditDuplicate -> True, CellGroupingRules -> "OutputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, DefaultFormatType -> DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> None, FormatType -> InputForm, CounterIncrements -> "Output"], Cell[ StyleData["Output", "Presentation"], CellMargins -> {{110, 50}, {10, 8}}, LineSpacing -> {1, 0}, FontSize -> 17], Cell[ StyleData[ "Output", "SlideShow", StyleDefinitions -> StyleData["Output", "Presentation"]]], Cell[ StyleData["Output", "Printout"], CellMargins -> {{39, 0}, {6, 4}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Code"], CellMargins -> {{103, 10}, {5, 10}}], Cell[ StyleData["Code", "Presentation"], CellMargins -> {{110, 50}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 17], Cell[ StyleData[ "Code", "SlideShow", StyleDefinitions -> StyleData["Code", "Presentation"]]], Cell[ StyleData["Code", "Printout"], CellMargins -> {{39, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Print"], CellMargins -> {{103, Inherited}, {Inherited, Inherited}}, FontSize -> 14], Cell[ StyleData["Print", "Presentation"], CellMargins -> {{70, Inherited}, {1.5 Inherited, 1.5 Inherited}}, FontSize -> 17, Magnification -> 1.5 Inherited], Cell[ StyleData[ "Print", "SlideShow", StyleDefinitions -> StyleData["Print", "Presentation"]]], Cell[ StyleData["Print", "Printout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData[ "WolframAlphaShortInput", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{98, 10}, {5, 7}}, EvaluationMode -> "WolframAlphaShort", CellEventActions -> {"ReturnKeyDown" :> FrontEndTokenExecute[ EvaluationNotebook[], "HandleShiftReturn"]}, CellFrameLabels -> {{ Cell[ BoxData[ DynamicBox[ FEPrivate`FrontEndResource["WABitmaps", "Equal"]]], CellBaseline -> Baseline], None}, {None, None}}, FormatType -> TextForm, FontFamily -> "Helvetica"], Cell[ StyleData["WolframAlphaShortInput", "Presentation"], CellMargins -> {{107, 50}, {8, 10}}], Cell[ StyleData[ "WolframAlphaShortInput", "SlideShow", StyleDefinitions -> StyleData["WolframAlphaShortInput", "Presentation"]]], Cell[ StyleData["WolframAlphaShortInput", "Printout"], CellFrameLabelMargins -> 3]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData[ "WolframAlphaLong", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{100, 10}, {5, 7}}, StyleKeyMapping -> { "=" -> "Input", "Backspace" -> "WolframAlphaShort"}, EvaluationMode -> "WolframAlphaLong", CellEventActions -> {"ReturnKeyDown" :> FrontEndTokenExecute[ EvaluationNotebook[], "HandleShiftReturn"]}, CellFrameLabels -> {{ Cell[ BoxData[ DynamicBox[ FEPrivate`FrontEndResource["WABitmaps", "SpikeyEqual"]]]], None}, {None, None}}, DefaultFormatType -> TextForm, FormatType -> TextForm, FontFamily -> "Helvetica"], Cell[ StyleData["WolframAlphaLong", "Presentation"], CellMargins -> {{107, 50}, {8, 10}}], Cell[ StyleData[ "WolframAlphaLong", "SlideShow", StyleDefinitions -> StyleData["WolframAlphaLong", "Presentation"]], CellMargins -> {{107, 50}, {8, 10}}], Cell[ StyleData["WolframAlphaLong", "Printout"], CellFrameLabelMargins -> 3]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Program"], CellMargins -> {{60, 4}, {6, 8}}], Cell[ StyleData["Program", "Presentation"], CellMargins -> {{60, 50}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 17], Cell[ StyleData[ "Program", "SlideShow", StyleDefinitions -> StyleData["Program", "Presentation"]]], Cell[ StyleData["Program", "Printout"], FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["CellLabel"]], Cell[ StyleData["CellLabel", "Presentation"], FontSize -> 12], Cell[ StyleData[ "CellLabel", "SlideShow", StyleDefinitions -> StyleData["CellLabel", "Presentation"]]], Cell[ StyleData["CellLabel", "Printout"], FontSize -> 8, FontColor -> GrayLevel[0.]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ManipulateLabel"]], Cell[ StyleData["ManipulateLabel", "Presentation"], FontSize -> 15], Cell[ StyleData[ "ManipulateLabel", "SlideShow", StyleDefinitions -> StyleData["ManipulateLabel", "Presentation"]]], Cell[ StyleData["ManipulateLabel", "Printout"], FontSize -> 8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["GraphicsLabel"]], Cell[ StyleData["GraphicsLabel", "Presentation"], FontSize -> 14], Cell[ StyleData[ "GraphicsLabel", "SlideShow", StyleDefinitions -> StyleData["GraphicsLabel", "Presentation"]]], Cell[ StyleData["GraphicsLabel", "Printout"], FontSize -> 8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Graphics3DLabel"]], Cell[ StyleData["Graphics3DLabel", "Presentation"], FontSize -> 14], Cell[ StyleData[ "Graphics3DLabel", "SlideShow", StyleDefinitions -> StyleData["Graphics3DLabel", "Presentation"]]], Cell[ StyleData["Graphics3DLabel", "Printout"], FontSize -> 8]}, Closed]]}, Open]], Cell[ CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags -> "SlideShowHeader"], Cell[ "Styles for SlideShow", "Section", CellChangeTimes -> {{3.514665148412793*^9, 3.5146651505550737`*^9}}], Cell[ RawData[ "Cell[StyleData[\"slideshowheader\"],\n ShowCellBracket->False,\n \ CellMargins->{{0, 0}, {0, -2}},\n Evaluatable->False,\n \ CellHorizontalScrolling->False,\n PageBreakBelow->False,\n \ CellFrameMargins->0,\n ImageMargins->{{0, 0}, {0, 0}},\n ImageRegion->{{0, \ 1}, {0, 1}},\n Magnification->1,\n Background->GrayLevel[1],\n CellPadding -> \ 0,\n CellFramePadding -> 0]"], ShowCellBracket -> False, CellMargins -> {{0, 0}, {0, -2}}, Evaluatable -> False, CellHorizontalScrolling -> False, PageBreakBelow -> False, CellFrameMargins -> 0, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}, Magnification -> 1, Background -> GrayLevel[1], $CellContext`CellPadding -> 0, $CellContext`CellFramePadding -> 0], Cell[ RawData[ "Cell[StyleData[\"hidefromslideshowgraphic\"],\n \ ShowCellBracket->False,\n CellMargins->{{0, 0}, {0, 0}},\n \ Evaluatable->False,\n CellHorizontalScrolling->False,\n \ PageBreakBelow->False,\n CellFrameMargins->0,\n ImageMargins->{{0, 0}, {0, \ 0}},\n ImageRegion->{{0, 1}, {0, 1}},\n Magnification->1,\n \ Background->GrayLevel[1],\n CellPadding -> 0]"], ShowCellBracket -> False, CellMargins -> {{0, 0}, {0, 0}}, Evaluatable -> False, CellHorizontalScrolling -> False, PageBreakBelow -> False, CellFrameMargins -> 0, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}, Magnification -> 1, Background -> GrayLevel[1], $CellContext`CellPadding -> 0], Cell[ StyleData["hidefromslideshowgraphic", "SlideShow"], ShowCellBracket -> False, CellElementSpacings -> { "CellMinHeight" -> 0, "ClosedCellHeight" -> 0, "ClosedGroupTopMargin" -> 0}, CellOpen -> False, CellHorizontalScrolling -> False], Cell[ RawData[ "Cell[StyleData[\"slideshowheader2\"],\n ShowCellBracket->False,\n \ CellMargins->{{0, 0}, {0, 0}},\n Evaluatable->False,\n \ CellHorizontalScrolling->False,\n PageBreakBelow->False,\n ImageMargins->{{0, \ 0}, {0, 0}},\n ImageRegion->{{0, 1}, {0, 1}},\n Magnification->1,\n \ Background->GrayLevel[1]]"], ShowCellBracket -> False, CellMargins -> {{0, 0}, {0, 0}}, Evaluatable -> False, CellHorizontalScrolling -> False, PageBreakBelow -> False, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}, Magnification -> 1, Background -> GrayLevel[1]], Cell[ StyleData["ConferenceGraphicCell", "SlideShow"], ShowCellBracket -> False, CellElementSpacings -> { "CellMinHeight" -> 0, "ClosedCellHeight" -> 0, "ClosedGroupTopMargin" -> 0}, CellOpen -> False, CellHorizontalScrolling -> True], Cell[ StyleData["slideshowheader", "Printout"], FontSize -> 8, Magnification -> 0.75], Cell[ StyleData[ "ConferenceGraphicCellSlideShowOnly", StyleDefinitions -> StyleData["ConferenceCellGraphic"]], ShowCellBracket -> False, CellMargins -> 0, CellElementSpacings -> { "CellMinHeight" -> 0, "ClosedCellHeight" -> 0, "ClosedGroupTopMargin" -> 0}, CellOpen -> False], Cell[ CellGroupData[{ Cell[ StyleData["SlideShowNavigationBar"], Editable -> True, Selectable -> False, CellFrame -> 0, ShowGroupOpener -> False, CellMargins -> {{0, 0}, {3, 3}}, CellOpen -> True, CellFrameMargins -> 0, CellFrameColor -> None, Background -> None], Cell[ StyleData["SlideShowNavigationBar", "Printout"], PageBreakAbove -> Automatic]}, Open]]}, Open]]}, Visible -> False, FrontEndVersion -> "8.0 for Microsoft Windows (32-bit) (February 23, 2011)", StyleDefinitions -> "Default.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "SlideShowHeader"->{ Cell[11058, 200, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[12583, 238, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[12966, 255, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[13243, 266, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[14506, 293, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[14841, 307, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[17783, 385, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[19218, 419, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[20846, 475, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[30712, 658, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[31171, 676, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[32018, 707, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[32350, 721, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[33873, 762, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[36336, 844, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[36594, 854, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[40601, 982, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[41822, 1020, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[43890, 1092, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[48230, 1206, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[49487, 1242, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[50564, 1275, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[53996, 1365, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[55297, 1402, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[57456, 1459, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[58242, 1484, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[85078, 1960, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[85590, 1980, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[87220, 2027, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[92180, 2142, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[92489, 2157, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[161780, 3355, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[163572, 3417, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[164869, 3457, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[168084, 3533, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[170464, 3581, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"]} } *) (*CellTagsIndex CellTagsIndex->{ {"SlideShowHeader", 230581, 4837} } *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 10476, 176, 0, "hidefromslideshowgraphic"], Cell[CellGroupData[{ Cell[11058, 200, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[11125, 203, 688, 10, 71, "Text"], Cell[CellGroupData[{ Cell[11838, 217, 347, 5, 42, "Subtitle"], Cell[12188, 224, 346, 8, 80, "Subsubtitle"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[12583, 238, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[12650, 241, 279, 9, 100, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[12966, 255, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[13033, 258, 173, 3, 109, "Section"] }, Open ]], Cell[CellGroupData[{ Cell[13243, 266, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[13310, 269, 1159, 19, 292, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[14506, 293, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[14573, 296, 231, 6, 367, "Section"] }, Open ]], Cell[CellGroupData[{ Cell[14841, 307, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[14908, 310, 2838, 70, 677, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[17783, 385, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[17850, 388, 1331, 26, 469, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[19218, 419, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[19285, 422, 1524, 48, 340, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[20846, 475, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[20913, 478, 9762, 175, 442, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[30712, 658, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[30779, 661, 355, 10, 118, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[31171, 676, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[31238, 679, 743, 23, 158, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[32018, 707, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[32085, 710, 228, 6, 197, "Section"] }, Open ]], Cell[CellGroupData[{ Cell[32350, 721, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[32417, 724, 1419, 33, 365, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[33873, 762, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[33940, 765, 2359, 74, 303, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[36336, 844, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[36403, 847, 154, 2, 109, "Section"] }, Open ]], Cell[CellGroupData[{ Cell[36594, 854, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[36661, 857, 3903, 120, 454, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[40601, 982, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[40668, 985, 1117, 30, 156, "Code"] }, Open ]], Cell[CellGroupData[{ Cell[41822, 1020, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[41889, 1023, 1964, 64, 315, "Code"] }, Open ]], Cell[CellGroupData[{ Cell[43890, 1092, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[43957, 1095, 4236, 106, 234, "Code"] }, Open ]], Cell[CellGroupData[{ Cell[48230, 1206, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[48297, 1209, 1153, 28, 120, "Code"] }, Open ]], Cell[CellGroupData[{ Cell[49487, 1242, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[49554, 1245, 973, 25, 81, "Code"] }, Open ]], Cell[CellGroupData[{ Cell[50564, 1275, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[50631, 1278, 3328, 82, 248, "Code"] }, Open ]], Cell[CellGroupData[{ Cell[53996, 1365, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[54063, 1368, 1197, 29, 120, "Code"] }, Open ]], Cell[CellGroupData[{ Cell[55297, 1402, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[55364, 1405, 2055, 49, 158, "Code"] }, Open ]], Cell[CellGroupData[{ Cell[57456, 1459, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[57523, 1462, 682, 17, 67, "Code"] }, Open ]], Cell[CellGroupData[{ Cell[58242, 1484, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[58309, 1487, 26732, 468, 563, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[85078, 1960, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[85145, 1963, 408, 12, 88, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[85590, 1980, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[85657, 1983, 1526, 39, 79, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[87220, 2027, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[87287, 2030, 4856, 107, 541, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[92180, 2142, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[92247, 2145, 205, 7, 88, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[92489, 2157, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[92556, 2160, 69187, 1190, 578, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[161780, 3355, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[161847, 3358, 101, 1, 52, "Text"], Cell[161951, 3361, 1584, 51, 220, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[163572, 3417, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[163639, 3420, 1193, 32, 140, "Code"] }, Open ]], Cell[CellGroupData[{ Cell[164869, 3457, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[164936, 3460, 3023, 65, 127, "Text"], Cell[167962, 3527, 85, 1, 109, "Section"] }, Open ]], Cell[CellGroupData[{ Cell[168084, 3533, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[168151, 3536, 2276, 40, 566, "Section"] }, Open ]], Cell[CellGroupData[{ Cell[170464, 3581, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[170531, 3584, 3318, 78, 307, "Text"] }, Open ]] } ] *) (* End of internal cache information *)