(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 35759, 796] NotebookOptionsPosition[ 34549, 750] NotebookOutlinePosition[ 34989, 767] CellTagsIndexPosition[ 34946, 764] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Payload for Electric Propulsion Engine", "Subtitle", CellChangeTimes->{{3.444500980905987*^9, 3.444500993530987*^9}}], Cell["\<\ Equation 9.13 on page 519 of \"Space Propulsion Analysis and Design\"\ \>", "Subsubtitle", CellChangeTimes->{{3.444501015077862*^9, 3.444501040093487*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"v0", "[", "days_", "]"}], ":=", SqrtBox[ RowBox[{ "0.85", " ", "days", "*", "86400", " ", "45"}]]}], "\[IndentingNewLine]", RowBox[{"\[CapitalDelta]v", "=", "5000"}]}], "Input", CellChangeTimes->{{3.444499663109112*^9, 3.444499752593487*^9}, { 3.444499819030987*^9, 3.444499830984112*^9}, {3.444499881796612*^9, 3.444499958655987*^9}, {3.444499996718487*^9, 3.444500001734112*^9}}], Cell[BoxData["5000"], "Output", CellChangeTimes->{ 3.444499757421612*^9, 3.444499833405987*^9, {3.444499902937237*^9, 3.444500004265362*^9}}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"mPay", "[", RowBox[{"ve_", ",", "days_"}], "]"}], ":=", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["\[CapitalDelta]v", "ve"]}]], " ", "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["\[CapitalDelta]v", "ve"]}]]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox["ve", RowBox[{"v0", "[", "days", "]"}]], ")"}], "2"]}]}]}]], "Input", CellChangeTimes->{{3.444499319249737*^9, 3.444499637874737*^9}, { 3.444500009452862*^9, 3.444500030312237*^9}, 3.444500069765362*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"mPay", "[", RowBox[{"ve", ",", "60"}], "]"}], ",", RowBox[{"{", RowBox[{"ve", ",", "1", ",", "100000"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0.6"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.444499767296612*^9, 3.444499802015362*^9}, { 3.444500043405987*^9, 3.444500050687237*^9}, {3.444500081030987*^9, 3.444500081671612*^9}, {3.444500436905987*^9, 3.444500464937237*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJw92Hk01N//B3DEp1KJUqGorCVpsbd4vUorJVGkxSdSiVAqCUlCSJFEdrIv 2XeyhJhizDC2YZi3PcqWXfF9f875nd/8M+dx5jX33Pe59/W897y3m1jr3uTi 4ODYwMnB8d/3V2KI89bfl8jxf5+j0Y8/D/znvd1Se25HqruKKFUc/e2Bg82+ KUpUBfj6dqImbNATlS1aXrOFT8CKlenUWZYXGigThypMdEHT2ZKh1/gKt3Ap XGX/cwW8Z2SZqTXeyF/k57zb1QSoVoNdK0teIyVoZmuZmhnw98f2mWa9QVkr 9v3fCVage+3GcGmCD1K4TrM+DtmAprmv3ZpzvtjtkX3yKdsWhqWsFwopvmhU MLH7g7IDeBNnncyOvUWuVuehhZ/PYHeYHOfG0re4fXJKJOS5C1AvrXKtUPPD pi+ICofcgJ9W4ym25x0a1kpvkDz8CjJexa+uTXyHFxO0z5c8fwO6J919nkj6 Y3P04dq9c77gX6LxniH8Hns+ONk5JPqD0KeSSC/uQEwJa2e1ToVCgVmYhOqz QMyTk5XqUIqAy5KOcX1zgchkCnyTq4iE0BC1FBz9gBkx88fYstGwzSs7b7ot GA11JOKKzySAzO0kqklaOCrYKN+V+5oBMZJj88aKEajC/ec41S8TxLuVZIwL IvBNXdYGKeMs8Elll6YZR6Ljctx0hisHXu28K5RqEYV3heRb9HXz4cXWF5Sk Z9HoRLnCp7qmFB6sytgVEx+PWfKp66/t+Ar7hxrLJYbi0dF9lcYJn68wXjNt EC2XgPsERVUypr6Ctfsh148ZCbgQeNN1sawaLDhrOiKLEvGx/VE/8fMUuDHT +TqsPhn9dw0bBV2sBb2e1WMBM2l4u2glLfM3DYjWvQotIun4dW2MIVWEDsJ4 ZaRbLR1TJaht0Ufo4MmXbjr/OB3vr1h8+PQNHe4kG57fOZmO61w2z49JNsCO vhTZlz8z8IPjqzPrjzfC9TMtfX6rMnH/TdeFoduN8CGLMypcNhPvVTpOO3s1 wgoX/U25ZpnoOzWq/IPaCINiHNx9vZl4SQL+ZF9gQPwlPdZRVhZqS+h3vr7Q BJ2lTz9o/8nC5Q/0E20fNMFGmQS9y5uzUWQhsF7Crwncp/5Q7htm43OH6apa ahPc8ovLjWzKRnX9QS/T480gXTvns1iXgxtVU/9y72iBWIg8WliShwd3SdG/ VbWCPxG9UZaVh/ROvlxPViu4vogfClrIw4vXNZQ3T7WCaXWq3xPVfOz9bWSa J9EGkuc+d6tm5qPwk/h2llMbxBgxXfJiC3CxZcJFbjcT/Dk69WUqC3A0cj7/ 0FEmuH4kZAO7CzC3LCxf0oAJpv2DDbZbC/FkrPSZp85MkLSaEVcOKsSkPXEy hnQmxDwVrMj2LkKtA17dfyzawX+rUKBkchGKEf1/UpzawbV8s4U/pQhNnDQc 1N62gymPxPqH/xTjkppr7mBOO0i+3ndDwbkYM697esb/bYeYUO1lmQ8+Y6RX SX+XewdEF3lopF0uRVMDgvrjOQt4xfqfZzmUot7gJtWutyywcdYoywstxVpe n/isKBbg8cVDZZ2l+E6iOXq+jAVWA2ohZvvK8J68vNqKRRasup/m/ySnDK/6 KAgZ2nSCunhn1kJVGV5qDyWuOneCTePqxqfNZUhdJxOg8aYTmErmAi4zZcjU 6ostTOyEhHnJN15q5bhlp9jLi12dcNw1+GXI53Lkb9raYnm8C+yUKHGi1HI8 mTe2pfB8F6T0z1RFdJbjo89m8T+vdYHg6YvcMUvluJMVfY7Htgu61/A/Tzny BedKd6vxxnbBs0A3+89VXzB3p7nRq8UuKEi6Z9lVV4HnFDUNtXXY0NqS7HqS VYFhFsXXsi+wYZZ7ICTtZwUalpW/EDBkg+q/1749W1WJqnM37mUYsyF/vabM ttOVOBAobeZpw4ZcRwniemUllme4nY3zY0NzotFsTWMlLtMclncLYMN0c9Da fT2VmAr2668Gs0F5H786J1cVSvx1EpmIYkNO35/gKKhCp9PCnmXpbMjWbr7Q XViFgXyebeO1bGA4CNzV/FaFwrMDTH0aGyYTzrzIbKvCPj6F2OxGNigsq8hw ma1Cym3/L5eZbMjMS+OTUP6KnV7+13QH2JCxzbPmRsZXtC8MypxdYkPqxMFD ffHVqOXpbWouRwAvR4xHYH41nhxl8SvuIeDmmtVNpynVKCO4tmp6HwFbdnRY pg5V43vdAJvbKgR4XXOMeLy7Bl9axG+eOULW1xRz8WbVYJCEkVTbRQLKmiTP FVfUYBEX/yPVS+T/e7xDrBg1KNauZff2MgENf68qNk7VYASnTvnefwlAhb83 Q1UpGKgXdE/KjKwPP0yRL6HgcGRpyKgdAXbJsRsIKgW9BMsSRuwJaMxfY/Ku i4INeSIcg47kfBpZ8zMc35D3HXcGxZmA2RVOcuUa3/CJKrFG04MAxoMSHz3K N/y6vmLNiQAC9j6X7uBhfsP3Io+KfgUS8OrNmx35Q9+wyPuBqm8QAUcTjcq3 rP6OE0+ul1aFEpDeuTjRp/0dLxxfaP79kaw/Dfp2jO+YKq71ySSVrJ9cn9bR +x0DChM/ZKcRMB8+uPzI1Hd0YflOcmYQYDb5tmDlxlq0OMUp5JNFwImI3i0h BrWof5ir/EE+AYunCx4t3a5F/8fveqMKCMiZfE29YVeLP3xfJn8vJEBSU8VZ LqgWO5plDq37TADXlGfPZ2YtxsiWCtwtJ6AwwuiQ+HAtykTKzz/+QsB9TYX3 7gu1yLBczHlWQQA7ouPEuS11eFB5tMSlioASzT1J7Gt1OH1rc64BhQD7SMa9 ZUQd+vcYCB2lEbBfK5Fye7wOY+L2tK2hE/Bj6ql4LScVGdY+VU2kL2nJMPzF qThIhCldbiRAefqJirQpFddbT3MqNxMwEqnt6/WQiuPCOqk9pGO1JH6MuFLR 63B26usWAgSjaoPzYqm4UV6ptLmVgAmtrYunBqjo4HQ37nA7AUnTv/U/zVCx ZirRnkraOKomTWBFPR4PP0W50kEAbfq+MXNHPbq1qAxasAhIjaqstDCvx1yN ZZ9Mugi4dSZIlGZfj1OsBEYLadEZS1vFV/WYWrkYfJpNgPeZTTv+Jtfj+y06 GyQIAu7M3Hn15lc9ykrNqKV2E7BaTKuj9U89BrcdYHD1kM8rHhAg8A8NrXRP hVwg/efU44ErG2j495rm51HS2h0DazlFacjlOi2m1ktApPUl1ThJGn5IbC98 RlojQM1zTIGGffruqdx9BPjvTMp4f5CG/NFtqzVI9xeLMA9okPWvnmc6kfbq WZB106XhYFom+xfpDtu7erKXaVi2Ncp6ez8B8rwsh3pjGl6MT9XVJd2wt6RW +D4N13EXbU8hLVkpP1ViR0PN9Jn1TaRtDSJETZ1pOKJYf2uBdM3Q2hMrPWi4 aH9BdOsAAcJOzlapPjRcm/r+AJI2FxgP0Auk4fnjoeVGpItjjEtnw2lovdoy x540n2rDQFgcDe/IrRD2J339+1F+jVQaGijeGU0inWmUpTqYQ85H/OXBUtLc ExLGrz/TsNX8AgedtL6bv+f+KhrWLStFNukEIZ7Mlloa3jdPX/pJej75EdOR QcN/Pq3BGdJnoJ9LvIOGXTZ53Eukwxv0d1X30DCM20uHe5CA0ZvVeneHaah/ 4Zr0ctI4p+Io8JuGeTw8nv/ZzzshJneehitsdRx4SPduFa67wkVH0UpeDk7S ylmeUxy8dNRonReeJ8f3ODEvGidAR767Pd/HSDPbzE9oCdNRbN0LoT7Scpbt VmPb6Eg97M/VQtqJ40zg+x10ZGjWeX8lTXtXXHpgLx0bXNkFWaTFZXYPdqnQ kSnv6B1O+mFhGL8b0JHmpbn8Jemqs3xqsifp2MIel7MkvZFwMq7XpmOIuyDH edJmD0c9H+rT0aNf58V+0qtDaMySm3QMFngaM0Kup5H8kWWmlnTsNAw4SSGd Xp6xa+UjOkaabomNIn1h0M9Rz5WO8pOBQVqk4xyWxc6+oqNv7gclUdKzfA/r wt7RcX/lloCf5H4LUbooNviR/D0qNNWV9M+aqhOvk+i4cMrd4ixp9avK1vsz 6Sg9S51eT7rbZVOZYzkd1WP3uQST+12W1mYswKajiZtp2muyP4Ib2TFXBuk4 Odk7pE6at2VgIHaMjn++xib8IvvtB2vK8gBnA4555OdqkE4YFrC/Id6ABsM0 qwayX4VGhT5/km3A4gIJvnukX05s5Zjd34DzpuwTq0jfmtvt7q3RgLsOtfgc IPtdarmmX45pA0qv8KhzJPPBn/d809LdBlSibnBfTpqb75KQ5qMGVC4WHfEh 86RX8FZ4p1sDSp2/0BJE5s1HcZek5fHkeB3PL/m1EbBNvfCL4Y8GPJAwZyjU RIDvkXKemPEG3LRkq/GMQcDSsZpTI3MNGBf5gqeXzMNOrWaqC28jNofxisY3 EBBmOMFM3tWI6eYarPVkvoo8kv3917IRw4/8m+n5jex3u33Kp2wbsQB+Hqkn 83jeQfWJn1MjmiRb1a8j3eZyYknapxEvOyj/eldNwAdfk1U66Y0o8OXcfadK AjakBEt8nGjE3H6Vp9Pk+WD/K97k3/lGjJT0f7CLNFs+J2oLFwPVeN5UGxUT kJJRvzVQgIFX+6belJHny7E87i3eexlo9dqQci+PAJsvVoK2Vgzkuu6g55ZO ALX1KI/mEAOVxJgenlEEKIroHFs+wUDT3kPqryPJ9b1y7UXlHAPdC8RdfCLI +0DnY05Y2YRovK7IJ4zMy56Uvwo7mtB04pLQM/J8lR3dOC16qwnHhuwyRN4S 4M4z3D9ONGGwQYe39jNyvPfych4/mrCoytBJzonMdymb+2LjTThpmqO48ikB TcfnFjQ5mnH4gedkCXkfkHRfLhAj1owr1Qe7NtsS8OUfyYP6V5pxSF7tSuhd cn2WX/MpZDQjt7e6dil5H7HjrVd5Ud2Clbvt3Sp3k+cNb2JgSX0L7ghf4jtM 3ofaeV/MzLW04NlJfetsWXK/r1LJuzfYguYtVfkRMgTwrI5QNlrZiu11pt5m 28l8WWOtpKbVig8XbbZVChKQzL9WYZTaisHGEiuT5tnQufGc/JXmNtxhEe50 s4IN3yONpCfK29E6uVPFT5cNcvt5K+ubWejgHEix+dAFfNanR0eILvzN3vDU y7ETigRXv+nvZaOZgU5hhSkLEh8dmbH7RSBPgO2Ss0wHXH6vTpj3duNlnTXm ZyeZUJW/UoxjrAfXHe10EQxrg/GM8O250724ztZjP79GK7DvLMR+H+7Dq2bS 4YfmmsFTSvqp61Q/XtBWuvnLuwmmI4SaQn8NIHWQ0FVTYIDEGON3E3sQJ/Km b6a1NwDvsX9vZg7+QPWrty8Zm9AhWz/DYKRzCI9J8bBq/9SDkCU9tO7HMApa u9e/H6+Fw4ZFCXWjP5H7B20h/RcFpLgtlXb3/sLrY+cUdwpVQ3XmT8G9v0ZQ cWPSeNtSBezepvjIr3cUGeUhYh6byiExQ5zqZTGGHOlpqz49KAaRi+tWiY2O oYcYV7y4Qi78bLm5grgzjnZm2qLJ+ukQcnVb2tTIOHKUrRpn/oiGlDL1jQcs JrBMO73Qk+IDEtv0aA8/T/z/+5P/AZdB+4s= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{1, 100000}, {0, 0.6}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}]], "Output", CellChangeTimes->{ 3.444499846265362*^9, {3.444500053218487*^9, 3.444500083421612*^9}, { 3.444500444515362*^9, 3.444500466515362*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LogLinearPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"mPay", "[", RowBox[{"ve", ",", "30"}], "]"}], ",", RowBox[{"mPay", "[", RowBox[{"ve", ",", "60"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ve", ",", "2000", ",", "100000"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "100000"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.6"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.444500153890362*^9, 3.444500245968487*^9}, { 3.444500308140362*^9, 3.444500401640362*^9}, {3.444500481687237*^9, 3.444500565749737*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwt1gk0lVsbAGApMjSaVYazP44hKm4jsV8SOqZkyDUWP5kiJBluZCxFGpRU blGZh1DJVWZJEhm/T0SJMhWpK6J//2v9Z62zznrWPnve77s3y9n3gCs3FxfX EPn+7/dGf9PigSPSsPz67aQl+kWYLy02OsFdGuRqAq0vWhTh4w66Ao0e0pCY 7G+icLgIG799IqrlLQ31J/xfuoYV4QU6S0XBTxq4Qj9MqpQUYafOWNv5EGlY 2FXJ84H1AFPNuo8yEqWBOpwfNrK0GOc+KT8681AaviW+cV/LlGCnoQiBPwRl oDHuZu0J+TIcWRtx+qWtDNgYLlhMRlXg1/GTezqyZCBd35T/5PkqXHVHfWvI ggywz2VFTqnU4qTtNr93s2VBQIZvSeo/9VhILzJU0FwWXlh/L/uV3Iiz97pI CYXKwmxW5JCA70t8knU4b2+6LOwuE9M8LNmCJeQ5b543y4JzvOglndBW/JV7 /8cTM7IghH2t1jS14b6OFdKO61nA3lEYHLa8Hd9sKZ24vJcFtt+5lNLNOvCl 9OCcH94siIswhg6fTmybprSYeY0FprZql48ldOEdiUlBF6tZMJBw5Ap3fDc2 shHpz/zEgkfKo4t3bXqwkIiAv/lnFpTck0v5YNeDmde/eeaJOxwLJ2ScerCn wZiq6RgLrjsYNF107cFnttf8NTPBAvnWM2q2/j24TuSYlM43FijyKv4MO9eD tdte2jMLLIi1VfprWUUPVuNE9a4QRsC4OvmOi9LYOViVyiUuFh01dZOg8aWs bs99Igg09g/y9q+j8TSvylyMKILstb4LDTI0Lq3tkPgtjsCZP3L6lBKNd2qx rac2IDgi/cQ9djeNYcuL1k42Aqur/45PHqLxMacAieMKCOZx3mXkQuM7iVKH hBQRCG94s2DhSmPuCb8vpkoI3nFoySIPGtdlr1vVuBGBinexo4k/jQ0ob6Py LQikvjTHr4+isanY6oY0DQRGxQ1jSzJoLD0tYsjRROAYoZkreo/Gk6/WNX0n 3qS5q5idSeOEGHaLsRaCXV6XLkMujZtntLrmMAKnfeIJFiU05rR7D1vvRaBn mX//ew2N9ZOaeFfvR5B2HXfIDdBYzLv1TDnx17Xh398N0njYoEvAzRxB7aYU vZQPNI75Pbjq6QEEo3WKHlwjZPw+P8W8rBA0iUY9LJigsa6JosJzWwRqw97Z kXM01hKINQh3RbDf6EIgtxCD+6tRjoIbgplfrp52wgw+FVy5opXY8N7LxAci DH72abZN1h3BmS9GLlbiDNZ+7mVf44lgYK0DO3QDcbS5H88xBJ4Lgz7abNKe 5mR7PnG/dtVSTwXS3rf47dZ+CNwmrCouKZL2nOvm7/uT/ecuTe5VZjDW2RFr GEjGm5bcwdnMYFjccONcCAJr7e99aTsYPPDwycIfoaT/iHdWN3cyOOKo9aG3 xCs6n3y8uovBVW8vyKv+hWBJmyknSpPU/4e7qCUcQVjJUaFdmME6Jz/VrY1B 8Exi75y4PoPfb45RKCcWGle9PkwcOcKKd45FsLbfWK/YgME11nZmJXEIctSg AvYxWHdbC20Zj+CNQ7S0hjHxdMnktQukv/IBvjRzBhtJ8fBsS0JQoVQcrn6A wZaG1uvfEIstS7OtI3ZLmzVYcQnB3X/cNAYsGBzP0boTcQXBqgali7NWDL4c mPhYKhnB/a+aEietGXzz9rtX5cQmqXmLM8QFP07PzVwl8dFlNDJ8kMFt6Q0W HtcRBH7+Jpb7J4OZV+KevKkIdr/zOiNqS+Y36x6RQbz8dpzlX8QzpoL5fTeI g0zm9OwYvBBsXxtyE8GtNS/e3CXmvZdPi99C8DD03FJuewZLzJvxHkhD8HY6 zquUmMW+s+ELMe+ty3f4HRisbD6tfv5vBGWWZ1XtiXdnXnFquI1gzLBL7yfx IQu6TCMDgamdzyFhJwZ7nFJ+3U3sG6C7zYLYPzv04/G7CIaTDOySiKN/SwkV 3iP7FX4mhfsQgxOUfRWN7yM4yb5asIP4qlWV9mdio1MnhT2Js3KdvagsBF7z js8biB90lZyuIp7l2iY6RVy+hCfFIZusZ1BUocRhBteqWBfMEb80L0nWIm4+ mFl3LQeBT6TqcyfizshZZmsuAokF2z3hxP35+6baiJ89vMt/k3i4J3W5bx6C xNsBko+Ivywdl1qRj2DywRb/V8Szm7S2ZhPv7NcTfk/MZZvI0S9AkCUp+esb MX/Mu0MfiM1txFSWOjNYqGhLUEQhglcJ99JXE6/vPZ0gVYRgX/5mJ0liOd72 jHJiyJY6LEusqiZXfvABgpCAnkw54u32ga0zxK2/GtXZxDiuYfhiMQL2Npsl 8sSGxeILm0oQKAt+EWIRm/e5CzcTG3v/cFtHbMtXruRRiiBVr/vXGmKXPwSB 9yGZ36m59mXE3o721hnEvEtfjH0n4w88m+8NjxBwP8ndM0R8qnQxso84L0aw 9zUx+3xue9xjMn/dxlv/W58WFxs59TIEAi6jKJX4hCZP4FviQ5wHHiHEMsLF 9bFPSPlBe7+DxI2jjmJq5Qj2DCnvUiM+ViN4pJc4bJ991XLiKj9Xvi0VJB9+ HOLPJfvrvk/oT4a47FF5UxDxGlZldvRTBL2XvxroEB9ulTCin5H/BwQfbyLn SyCr/kZUJQKXUQ6KJy4O9x9XrUKwzir4rD4x9+bmhMhqBHPFnyMeOjI4hze4 X6UGAd9k9mp34gP98pu7iU3yai3FiTMSwls31iHYvPh70Yucd2NXFVYXsUzm bee1xDO7ab+IegQXFq4Gl5D40RtXF+5sIOt3MeLZBIm38dp3LuHPESTlTI3G EF+5cb5UqZHcX8qlz9cRD3GGrU69QNBTpXhBg8RvTPb1FIVmBCLbCuCADYM3 ndb/3Ea8IuMM85rkgy6bb7vCXiGwcM6R5hCz+Ux6W1sQcMk8S99K8keDG5d0 SBuCQr9f0YMk//ho5/vIvUFQem7ETo9YTMy2soV4NmZldwbJV0fqSw5RHQgy JZc+tiH5jU/uSEZzFwL7rYf5Uk0ZXDQvPHOim9QX+jo2aMJgm/YqPVYPiYe/ c46yibMj1w0H0mT/DFIN7xkxmDP4SlHmLVmfk/IGIYYMPp+2tcBvkNyHqs0V EToMvvU5uXjNexIfWtVi6UDy3dZ/HxUSS35zCagi+bu16UnlxAeyfr471Ge0 GCzyr3abxzCC9O7HpTs0SH2zfTOHx0g82S3qbFIn9VNzZrnGEfwRaBImo0bO z0fBhb+JX47aFK7cQvJjaAtP/wS5fyrZCwOqZL2yLMRtv5J881SB7aJE6nM5 ahz4joAT3cvqlGFwpVGl9hTxsmq+W8nSZDxXZfck/SDnbWia10KKwdMqH4xa /iX3YV/o3bp1DN7xp7sDZw7B4puWmUhR0v8D/wjd3whkQ4sdvARI/naOa1Dn p2D3yPnh4SkaF58Nz20hrjN7oGv8lcZXioKSPAUo4Kg/SimYpLH14hHbdEEK kjLmN3uO0fjtdcPJtasoKEvPmqsYovGnVn6xKSEKVk0PBbd20XhR+7xr4QYK ltsfH84po/GAazTHSIqCJq0+i4JHNK4+H7Z5hLhfoC2zoJTG0Yz3T2kZCnon PnHdL6Ix/wmThEQWBbH21W6+WTQWyV/18CibgriN3Ce9r9F44/qLy1S2UDDc L+YiGEDjvMkhqpM4eXfa7RPHaKxSs3PPKTUKfr4SZvUfpfEmj4HTreoUXB24 MXLHncZbHm/+fXwbBRuKuo//cqDxdouWn081KNDX0+r7ZUBjnXOCX8z2UrCs KtRAXpLGNY5Oq34St7c/tRIXI+8Z9RLVdH0KatS3JvAI01iPtvWeMaDA8Gzo 8a4V5P2kkPM5hUNBa3/qSg4XjY1rDYcGzSh4plleHDTcgw/Ox9ABtmT8rPGl I4U9GHQT89baUfCNJ9zkel4PVj57NbyQuLdHS9EwuwcvimXKj9lT8FUmNvFG eg++q97o5+xEQUqaoqBkcg/+6iEgYP4fCrY7+G30CSbv4Z5EjU0+FLiyWreF 4R5c/vDajU+nKQhRl7Dhqu7Ge7Lnsy5HUpC7LexcUEU3br7p9Eg7ioLy5I7T o4+7cV+UQtuVaAqYxNKS2oJuzHXgMa9OHAXjMs5Ce252Y4PJLr/r5ymws0bj x0904w62mCHnGgV3l/44k6bQjb9cuzKTm0eB/5i+bkdYFzY8cuG9RT4FfPV+ 682CunD69vjWeWKBF0J36/26sGVneJ5RIRnP89nKe25duEzI6z9jDyiwWLma T31/F45M0OlQfkzBQrkhbwjqwiJRkyXZ1RSke/cJVdd24l0+hgGZXaT9EjW1 77MduFxa8t3rBQqGpqYvXjRpxyv/7RjUV5SDiLosywD1NpySnd82aiYHu5/V l+8ceIV37tcaaThByndpgmVfI86RLrs8dVsO3K1Gyy0qarDFczPVfY2kXLTP VjWrDLdce+PwZVoOjr3f/1TXMh2zg3rr7/HLA9f/P/8FdUWVtw== "]]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData[" 1:eJwt1wk01N/7B3A/RUUbSvrSxNyJLG1KUbiPXZZkSbKkRYutIlEookhZI2sp UiIhJCKE5FsSUsjSfFBIESnKF/+nc/5zzpw5r3Nm7uee5977fu5IHThudoiX h4dnAt9/P5O6Xk6bHWGBScW/r6rS8ujc5KALYUdZoL7GfjQ5P4962GkK1Dqy oEn8W79/ZR416ihequbCgkTPY1p7uHl0qu2egowbC6avtCfZSORT+3dB1pPe LDgzcBPuXsunpE6z8HY4C45obuPfEVZA7xc/cR17xIJmpudmQWQhte/1F9go uBIyCrZlPdAroQFV/udfWa+EGeFHTrcEK+iby0NazfdWgvtptfwFMZW0IkVx k/fUSjAaqfoZ7/ecRm62mlGVlgS2/Hbjvba1VFg7wEfQVBJklzZeHY15RTN0 Dq4Q9pEEfrWSgR/N9fS01P4snVRJaD3ou/zJWAMVW2XQ9KJOEnxS3wq9S22i 33l3fvIckwSL1vy82RubaWfzfNZecSlgNaioZxS+o9frC75F60hBV8vCkENm LfRq6pnMXy5SsEFvs77wi1ZqnSw7nR4nBU22l2bLGH6gW8IjvaKeSUHhk7mb JgraqaHVkq70finIe1ciWzPaQTcYBLbPF2HDmEOOUdTGLrpDdFFN8lY2ZB3c fd1b9yNVEwjS8zvEBp7TeWHPZblUczR/KC6CDbmBS8/vSOZSwxV8fEqRbPgu ZyXYc5NLLfQtxZvQti+O5HmmcOnh5Am9+VfZUBymZpmUxqWXDdRS/GPYoNb8 Y7gtk0sbU2vMHRPYcGKrso7CYy7dZ95WtPU2Pj9uth7nDZeeK5gO6Cxkg3Sm v5HVf1wqHXr/bfBjNvz7Qa7lzRSX1h+04igWsWHin00GujNculIk73lQMRtA Jqp/HS9DK9wOzV1fygaxukc8v+YwlHddXVjAMzaohLw7YSzC0IsZCfEydWwY 9DLulZFl6NrzugON6AH50qW+cgx9b/VDxfc1G27NCMq+kWeo9Fzj9oZ6Nviq B4y5rWVozWEelncjG7T6NyzP3MjQuZwjt+vesyEpns+1V42hocmbst0YNjjI F7b7mTL0xsC1vMXdbDgqklSdZMbQ7E3jhTno4+7R2YXmDG14WVz+rQfrd0/8 4sAuhi4ZV290/MwGy1pRZS1r/L3J9rH9g2wITNtwteYA/p5n71azn2wQqumf FDzJ0HLDcvURtHZCadEcDxwvVlIr8hcbjCZj3XhPMXRUocewfpwN3WLl78c8 Gbplz1E7gz9ssHPwcXrtjfV66O6vOcMGk4m7McYBDG08EFyjOI/ACiat41Ik Q/NC/O7Xo8eV3gbYRzE0Jtcr0kmAwCDYyCldZajl9BHrVEECAgI9vp3RDO1I 0B8SWkjAurtEnh3H0P6GeaIjwgSqk75F+Nxg6LR66KEcCQLp6ldcXTMYyj10 wcBwBYHiooJfJJOhz0J91/Whm+dF+rahL3xw+c1aSYA/6sVZjSyGzvM0DguX IhA6JWvGl4P1erDwkas0gdgsVbZtAUPlxaNmK6wncF/rgY1OGUOzhnrJO3Qm 09LZh1aoVNY6t4GAdLW1bEg5rr8j93yDIoElyffFaysYuv7xuhkPJQLsvduP bqli6Gbz+t9PtxLQDhnyan/B0MfS7OVHthG4o2J/xqmWocp/TikvViXwOWe9 xgRaJWWF1wE1ArmNW8jilwxVHXYZ4wecX/pt+Q11DNW4IjhsokMgyNuEo9zA 0Mq99gt/o8+B/6l8tKZi/ppUXQLOKmKX1zQyVLvN2mVMj0Dln7L/VjQxVFcm cyDegADv2Rze728ZalSl38uYEGDV7Dhi1cLQ17HXZ13ZSWD2m4jWcvQOp+/s TaYEkuk2AelWhpoIxe8PMiOQHy+UPYQ2s+/rkttFYOKH7+iJDwzdPXmx7aQ1 gWmWjrZKJ0NBMzxLyIZARFHVimC0XEisXw66N3h311v0tGj6qkFbAnt+SC1x 6mJommKt2wF7Al/puHHIR4aGn2nQ5tlHoOFzs0092quidVky2jszzESYy1CD HQNP2/YTMJb50ReL/u4oIGDqQKDMiLZeZRj6IVe4cwitYpK++A26avyf3NBD BAIVc9YIdDM09qK8Ze1hXN8UnqVn0aopRqnUkcDqjbtjdvXg+e23ONWJ3nLc +dsl9KJ1dvo+TgS6RXpkS9Ddpa5Dhc4EbozbGUn0MvRSa/jWtccIeF6X29iI dl8Zt6AOLVfIe3sSbXP4JtfxOIEBJ56fnE+4f8Zygu6cIPDd/LW6B1psW9Ee LTcCow1GmxPR/wuoUGDQ1t5mi8rRzYsamyROEuC7vfMQ32eGllm23XmCTtv2 m5FGp99gTlt5ENDdeInqob3lR1kxpwjYryu+fgHt4P5nZIMnAX0Jwesp6B3F vM/foH8p3/Z5ipbSE3EWPI3zD+NrH0ELhIurZ6C3+PhZC/QxdKyZCOmdIRA+ +2axFLr2wKbHAd54HheuFTVG52WoXpb0IbBDyFhkPzrpu7ZdGVoz/8TwSfSx c7tm/fElEBDB0Y5FWz23ex93loCUqEPpHbTG/MMZSucIRDfzixSg5cyP+b5F d9v36j1DL0n0NHHzw+/rNlu/Rk9zz7EX+RM4ujDbsBXdJxP8Mwtdo7z9n250 w7GIWoPzBJTUz9Z8QT95FJfUjw6JlNo5itbKmLwXHUBgQbDSxt/ouuv2heqB uB/54iqm0RaRVVUDaEFj4QnefoZ2Bso0xlwgcOvayTY+9GGvK130IoFD84Md 5qCHnIYHv6AdmsUS/tprr/nva0FYD/6fnvxoHrPH/BrBBE7m9k3NQofoiC/5 ir7xvnQND1pYxU8q7hIBIXfgn/xbP4WetZoh+H039eAxNEdST/UbOrcoIPcr +oHI/e3xl3H9JNvO96A3z1m0W+sKgeunF0z+rUfZH3eHIfT8wEHxv/XSG3rv lhCKeTmh3lv+tz7MVj/tMDzvwW/NH/5dj3fJocNoxQYPpxQ0U8ubmBhOwMJ5 SCYS7VR6OF0nAuvZKxh6Fv0j52XBd/T2kvhYR7Tv7bWVSZEEbh7ap2eBDr/8 q2MkikB5/evEVehl56y/XL9KYEhNQG0++pZb2bheNIFZTPaFv/vtoVWQcHIM gaJUu1lF6K1GX1Zuv0YgQWRaJQFdSXesGUOX2m5cegbdLC2qbxBHQC3+UtEm tN0/3rt+ok/4qvsvRn9e0HXgVjyBYxKPBr/g+ZkYu3P2VwIBra+LHiShxauU 8lOvE3gbd+/tVzyfaYUJFcY3cHzfqPynaIXMqdcT6IaISKUwtHrU8/4dN3G8 OZOs1egD9rtYkykELjelnjfGPBg0K5a/m4r1FbN3EUF76K5QMb1NIPt54HgL 5svFNZ/M09MIqJ5cO2SLvjfpEWKejvWfZu22xHwajosZu59FwN1rqI8f807/ SES3+QOcn2y0ShHmY+rmyw2T6FBlEaWjaIt3flmGOQSE375bXY15WiTs7DD4 EPtpS8GUcwdDA8I0muUeE/DdJ7/Op42h7baqlU3ovYeX8i9Db1LYkutdRKBp eWzgQ8zzzy8VQl8W4/hOl9y6Mf8N54ppO5USkEw7IrLpPZ6/wKH8jGeYJxJx EIv9xNVsIMW0kkBi8qKjEugaqd6I32hW+CvFFOw/pyvanLdXE9hdv/nhXexP nVPVZKCGgM3SccOUeobePZ0UvboO8yOp7l8L7Hcqx/RPpr/H/SHYczQf++l/ ueNLtFtwfImVVWLosh93C7noDx/n9Pti/9U8w/dneRuBpw5yURrYnw0uVPqH thN4VltqU1rCUOtE1XA3Lvb/JKVMr0LMw5r1Gdu+4P4ei/sy6z7m/TyuQSva pjFHQxPvC9OGEV89BnE9jB/a+eH9IqDx27rsrwSA91HPz3SGXu7ILJQcxn67 J47dnMbQxFFONd8YAVdXS81dyZgvrOUf30wR4KiLlhzF+4/4Qk7JmWkCwTvV wp0j8HxMrY0jM/i8u8/7XMIZSju0Tbx4OPBgJ88a51CGViecKGfN4sBaWe3f uy4x9M2S2puuczkwuuL7/l4/hvYKeO0TFOHAB3ePwm5Xhur8Oa/6CG3ZItr+ yAXrORAqZr+EA1dsJc8FOzPUsTa1IW8pB85ZHFSXdsR8ulgP1mIcUHY/e8vU Ac8Dj7RUxgoOqJruemiP98UF482M7moOyEnP27hbh6Gte2LcPqGrD7p9X6yN +6/U/H8XZDkwvS/a8l9NzJuAJslnchyouLNKYjMwdO+CBvttazjgp3U4aGYr Q3PJq851ihxY/0Lhrul6vC/sfNYmporzH9G4OLKcofEZDxq/mHCgRINvscgA lyr2z9IM2onzz6/ff7aPS19LW+dJmXIgK63A5vMnLuVN44+2MuPg/WtYt6Cb S12S7S1qLDigH9E0Rju4FKKFWlL2cGCByHkfUfw/0O97qsPqIAc4914mlOVz qfJOtb4aTw7w6n+c/HaaS923DUcd98L6LTvu/t6TS7OkU1TFTuPzQs01n3rg /4Op2Vcdz3DA1bvl68UTXMqfWac635cDn24NH5x1lEubZ9leNT3PgSJx0ehs Sy51e+yt1nGFA/cyeQqqFLk0k1UUPXKLA0EGAYIPXn2k5i9M1myv5YBVvkSB anAXrY9rshse5cAp1+K6LUMd1F/T3afyn1VAN8QKxmxpp3pMbdlrjVUwXHHn wWHTNspNF0iQcVkFvXOdXK7MvKe5+o77sqNXge8nG51l0c3UTCi/LLBsFchd 7qz+dKeRCtTna0b1r4L/vn241Pm5jv52aMx/tUgabEc4FommNfQJ+VBisVUa oHGJ7PzBUppXOpMrcEAaTmT3rz5yLYOmlhXNMOekgef/X/8HY9pqWg== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{7.600902539379287, 0}, FrameTicks->{{Automatic, Automatic}, {{{9.210340371976184, FormBox[ InterpretationBox[ RowBox[{"1", "\[Times]", TagBox[ SuperscriptBox[ TagBox["10", Power, Editable -> True, Selectable -> True], TagBox["4", Power, Editable -> True, Selectable -> True]], InterpretTemplate[Superscript[#, #2]& ], Editable -> False, Selectable -> False]}], Row[{1, Superscript[10, 4]}, "\[Times]"]], TraditionalForm]}, { 9.903487552536127, FormBox[ InterpretationBox[ RowBox[{"2", "\[Times]", TagBox[ SuperscriptBox[ TagBox["10", Power, Editable -> True, Selectable -> True], TagBox["4", Power, Editable -> True, Selectable -> True]], InterpretTemplate[Superscript[#, #2]& ], Editable -> False, Selectable -> False]}], Row[{2, Superscript[10, 4]}, "\[Times]"]], TraditionalForm]}, { 10.819778284410283`, FormBox[ InterpretationBox[ RowBox[{"5", "\[Times]", TagBox[ SuperscriptBox[ TagBox["10", Power, Editable -> True, Selectable -> True], TagBox["4", Power, Editable -> True, Selectable -> True]], InterpretTemplate[Superscript[#, #2]& ], Editable -> False, Selectable -> False]}], Row[{5, Superscript[10, 4]}, "\[Times]"]], TraditionalForm]}, { 11.512925464970229`, FormBox[ InterpretationBox[ RowBox[{"1", "\[Times]", TagBox[ SuperscriptBox[ TagBox["10", Power, Editable -> True, Selectable -> True], TagBox["5", Power, Editable -> True, Selectable -> True]], InterpretTemplate[Superscript[#, #2]& ], Editable -> False, Selectable -> False]}], Row[{1, Superscript[10, 5]}, "\[Times]"]], TraditionalForm]}, { 12.206072645530174`, FormBox[ InterpretationBox[ RowBox[{"2", "\[Times]", TagBox[ SuperscriptBox[ TagBox["10", Power, Editable -> True, Selectable -> True], TagBox["5", Power, Editable -> True, Selectable -> True]], InterpretTemplate[Superscript[#, #2]& ], Editable -> False, Selectable -> False]}], Row[{2, Superscript[10, 5]}, "\[Times]"]], TraditionalForm]}, { 13.122363377404328`, FormBox[ InterpretationBox[ RowBox[{"5", "\[Times]", TagBox[ SuperscriptBox[ TagBox["10", Power, Editable -> True, Selectable -> True], TagBox["5", Power, Editable -> True, Selectable -> True]], InterpretTemplate[Superscript[#, #2]& ], Editable -> False, Selectable -> False]}], Row[{5, Superscript[10, 5]}, "\[Times]"]], TraditionalForm]}, { NCache[ Log[1000], 6.907755278982137], FormBox["1000", TraditionalForm]}, { NCache[ Log[2000], 7.600902459542082], FormBox["2000", TraditionalForm]}, { NCache[ Log[5000], 8.517193191416238], FormBox["5000", TraditionalForm]}, {8.006367567650246, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.308952660644293`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.596634733096073`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.002099841204238`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.156250521031495`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.289781913656018`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.407564949312402`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.611537753638338`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.89921982609012, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{9.210340371976184, FormBox["\" \"", TraditionalForm]}, {9.903487552536127, FormBox["\" \"", TraditionalForm]}, {10.819778284410283`, FormBox["\" \"", TraditionalForm]}, {11.512925464970229`, FormBox["\" \"", TraditionalForm]}, {12.206072645530174`, FormBox["\" \"", TraditionalForm]}, {13.122363377404328`, FormBox["\" \"", TraditionalForm]}, { NCache[ Log[1000], 6.907755278982137], FormBox["\" \"", TraditionalForm]}, { NCache[ Log[2000], 7.600902459542082], FormBox["\" \"", TraditionalForm]}, { NCache[ Log[5000], 8.517193191416238], FormBox["\" \"", TraditionalForm]}, {8.006367567650246, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.308952660644293`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.596634733096073`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.002099841204238`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.156250521031495`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.289781913656018`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.407564949312402`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.611537753638338`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.89921982609012, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}}, GridLines->{None, None}, ImageSize->{477., Automatic}, Method->{}, PlotRange->{{7.600902539379287, 11.512925385133025`}, {0, 0.6}}, PlotRangeClipping->True, PlotRangePadding->{{None, None}, {None, None}}, Ticks->{{{9.210340371976184, FormBox[ InterpretationBox[ RowBox[{"1", "\[Times]", TagBox[ SuperscriptBox[ TagBox["10", Power, Editable -> True, Selectable -> True], TagBox["4", Power, Editable -> True, Selectable -> True]], InterpretTemplate[Superscript[#, #2]& ], Editable -> False, Selectable -> False]}], Row[{1, Superscript[10, 4]}, "\[Times]"]], TraditionalForm]}, { 9.903487552536127, FormBox[ InterpretationBox[ RowBox[{"2", "\[Times]", TagBox[ SuperscriptBox[ TagBox["10", Power, Editable -> True, Selectable -> True], TagBox["4", Power, Editable -> True, Selectable -> True]], InterpretTemplate[Superscript[#, #2]& ], Editable -> False, Selectable -> False]}], Row[{2, Superscript[10, 4]}, "\[Times]"]], TraditionalForm]}, { 10.819778284410283`, FormBox[ InterpretationBox[ RowBox[{"5", "\[Times]", TagBox[ SuperscriptBox[ TagBox["10", Power, Editable -> True, Selectable -> True], TagBox["4", Power, Editable -> True, Selectable -> True]], InterpretTemplate[Superscript[#, #2]& ], Editable -> False, Selectable -> False]}], Row[{5, Superscript[10, 4]}, "\[Times]"]], TraditionalForm]}, { 11.512925464970229`, FormBox[ InterpretationBox[ RowBox[{"1", "\[Times]", TagBox[ SuperscriptBox[ TagBox["10", Power, Editable -> True, Selectable -> True], TagBox["5", Power, Editable -> True, Selectable -> True]], InterpretTemplate[Superscript[#, #2]& ], Editable -> False, Selectable -> False]}], Row[{1, Superscript[10, 5]}, "\[Times]"]], TraditionalForm]}, { 12.206072645530174`, FormBox[ InterpretationBox[ RowBox[{"2", "\[Times]", TagBox[ SuperscriptBox[ TagBox["10", Power, Editable -> True, Selectable -> True], TagBox["5", Power, Editable -> True, Selectable -> True]], InterpretTemplate[Superscript[#, #2]& ], Editable -> False, Selectable -> False]}], Row[{2, Superscript[10, 5]}, "\[Times]"]], TraditionalForm]}, { 13.122363377404328`, FormBox[ InterpretationBox[ RowBox[{"5", "\[Times]", TagBox[ SuperscriptBox[ TagBox["10", Power, Editable -> True, Selectable -> True], TagBox["5", Power, Editable -> True, Selectable -> True]], InterpretTemplate[Superscript[#, #2]& ], Editable -> False, Selectable -> False]}], Row[{5, Superscript[10, 5]}, "\[Times]"]], TraditionalForm]}, { NCache[ Log[1000], 6.907755278982137], FormBox["1000", TraditionalForm]}, { NCache[ Log[2000], 7.600902459542082], FormBox["2000", TraditionalForm]}, { NCache[ Log[5000], 8.517193191416238], FormBox["5000", TraditionalForm]}, {8.006367567650246, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.308952660644293`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.596634733096073`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.002099841204238`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.156250521031495`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.289781913656018`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.407564949312402`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.611537753638338`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.89921982609012, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, Automatic}]], "Output", CellChangeTimes->{{3.444500541046612*^9, 3.444500567234112*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"v30", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "ve"], RowBox[{"mPay", "[", RowBox[{"ve", ",", "30"}], "]"}]}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"ve", ",", "10000"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.444500701937237*^9, 3.444500757827862*^9}, 3.444500800749737*^9, {3.444500831843487*^9, 3.444500850780987*^9}, { 3.444501111140362*^9, 3.444501122187237*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"ve", "\[Rule]", "11471.80598619732`"}], "}"}]], "Output", CellChangeTimes->{{3.444500746499737*^9, 3.444500759796612*^9}, 3.444500802796612*^9, 3.444500852952862*^9, 3.444501123499737*^9, 3.444501269530987*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"v60", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "ve"], RowBox[{"mPay", "[", RowBox[{"ve", ",", "60"}], "]"}]}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"ve", ",", "10000"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.444500701937237*^9, 3.444500757827862*^9}, 3.444500800749737*^9, {3.444500831843487*^9, 3.444500850780987*^9}, 3.444500885796612*^9, {3.444501126827862*^9, 3.444501129437237*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"ve", "\[Rule]", "17345.800102140416`"}], "}"}]], "Output", CellChangeTimes->{3.444500887484112*^9, 3.444501130437237*^9, 3.444501271874737*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"mPay", "[", RowBox[{"ve", ",", "30"}], "]"}], "/.", "v30"}], ")"}], " ", "100"}], ",", "\"\<%\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"mPay", "[", RowBox[{"ve", ",", "60"}], "]"}], "/.", "v60"}], ")"}], " ", "100"}], ",", "\"\<%\>\""}], "]"}]}], "Input", CellChangeTimes->{{3.444501140952862*^9, 3.444501154171612*^9}, { 3.444501188343487*^9, 3.444501259640362*^9}, {3.444501291546612*^9, 3.444501446890362*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Payload for a 30 day mission = \"\>", "\[InvisibleSpace]", "41.2240553853072`", "\[InvisibleSpace]", "\<\"%\"\>"}], SequenceForm["Payload for a 30 day mission = ", 41.2240553853072, "%"], Editable->False]], "Print", CellChangeTimes->{3.444501470655987*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Payload for a 60 day mission = \"\>", "\[InvisibleSpace]", "55.957397385040586`", "\[InvisibleSpace]", "\<\"%\"\>"}], SequenceForm["Payload for a 60 day mission = ", 55.957397385040586`, "%"], Editable->False]], "Print", CellChangeTimes->{3.444501470655987*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{755, 644}, WindowMargins->{{Automatic, -32}, {-74, Automatic}}, ShowSelection->True, FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)", StyleDefinitions->FrontEnd`FileName[{"Creative"}, "PastelColor.nb", CharacterEncoding -> "WindowsANSI"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 124, 1, 36, "Subtitle"], Cell[717, 26, 166, 3, 29, "Subsubtitle"], Cell[CellGroupData[{ Cell[908, 33, 434, 9, 66, "Input"], Cell[1345, 44, 148, 3, 40, "Output"] }, Open ]], Cell[1508, 50, 707, 20, 58, "Input"], Cell[CellGroupData[{ Cell[2240, 74, 515, 12, 41, "Input"], Cell[2758, 88, 6177, 107, 258, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8972, 200, 712, 20, 62, "Input"], Cell[9687, 222, 21819, 432, 333, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[31543, 659, 509, 13, 41, "Input"], Cell[32055, 674, 259, 5, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32351, 684, 531, 13, 41, "Input"], Cell[32885, 699, 187, 4, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[33109, 708, 739, 19, 62, "Input"], Cell[CellGroupData[{ Cell[33873, 731, 314, 6, 23, "Print"], Cell[34190, 739, 319, 6, 23, "Print"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)