(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 235517, 4900] NotebookOptionsPosition[ 230661, 4824] NotebookOutlinePosition[ 231009, 4839] CellTagsIndexPosition[ 230966, 4836] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"hH", "=", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "4", ",", "6", ",", "8", ",", "10", ",", "20", ",", "40", ",", "60", ",", "80", ",", "100", ",", "140", ",", "180", ",", "220", ",", "260", ",", "300", ",", "400", ",", "500", ",", "600", ",", "700"}], "}"}]}], ";"}], RowBox[{"(*", "Altitude", "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dD", "=", RowBox[{"{", RowBox[{ RowBox[{"1.23", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "3"}], ")"}]}]}], ",", RowBox[{"1.01", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "3"}], ")"}]}]}], ",", RowBox[{"8.19", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "4"}], ")"}]}]}], ",", RowBox[{"6.6", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "4"}], ")"}]}]}], ",", RowBox[{"5.26", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "4"}], ")"}]}]}], ",", RowBox[{"4.14", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "4"}], ")"}]}]}], ",", RowBox[{"8.89", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "5"}], ")"}]}]}], ",", RowBox[{"4", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "6"}], ")"}]}]}], ",", RowBox[{"3.06", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "7"}], ")"}]}]}], ",", RowBox[{"2", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "8"}], ")"}]}]}], ",", RowBox[{"4.97", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "10"}], ")"}]}]}], ",", RowBox[{"3.39", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "12"}], ")"}]}]}], ",", RowBox[{"5.86", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "13"}], ")"}]}]}], ",", RowBox[{"1.99", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "13"}], ")"}]}]}], ",", RowBox[{"8.04", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "14"}], ")"}]}]}], ",", RowBox[{"3.59", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "14"}], ")"}]}]}], ",", RowBox[{"6.5", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "15"}], ")"}]}]}], ",", RowBox[{"1.58", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "15"}], ")"}]}]}], ",", RowBox[{"4.64", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "16"}], ")"}]}]}], ",", RowBox[{"1.54", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "16"}], ")"}]}]}]}], "}"}]}], ";"}], RowBox[{"(*", "Density", "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tden", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"hH", ",", "dD"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g1", "=", RowBox[{"ListPlot", "[", RowBox[{"tden", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ftden", "=", RowBox[{"Fit", "[", RowBox[{"tden", ",", StyleBox[ RowBox[{"{", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "h"}], "/", "8.4"}], "]"}], "}"}], FontColor->RGBColor[1, 0, 0]], ",", "h"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g2", "=", RowBox[{"Plot", "[", RowBox[{"ftden", ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"hH", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Last", "[", "hH", "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"g1", ",", "g2"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"ftden", "/.", RowBox[{"h", "\[Rule]", "250"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.880511737262699*^9, 3.880512057012791*^9}, { 3.88051211162052*^9, 3.880512111948636*^9}, {3.8805121671565275`*^9, 3.8805121810154877`*^9}, {3.8805122245610476`*^9, 3.880512356603939*^9}, 3.8805124414338593`*^9, {3.8805124945131297`*^9, 3.8805125198561153`*^9}, { 3.8805126972208753`*^9, 3.8805127162671595`*^9}},ExpressionUUID->"6ed5a652-31de-42ea-a057-\ 38c080240982"], Cell[BoxData[ RowBox[{"0.00127972365795213`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.11904761904761904`"}], " ", "h"}]]}]], "Output", CellChangeTimes->{{3.880512435621538*^9, 3.880512441965094*^9}, 3.880512520402972*^9, {3.8805127099392223`*^9, 3.8805127169233875`*^9}},ExpressionUUID->"e1f7183f-5419-4a08-8e97-\ 838ed8836322"], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0, 0, 1], PointSize[0.02], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWIQDQPX27oK/6mF2EO5DucKmO3sewKgfAGHWubJ0q7X vKB8CQeLFi3T6gWuUL6CA89zqbQMG0coX8VBy+xZ6RFFayjfxEHP/1rcL19x KN/Fofft1gXfj12wg/D9HOpy6qy5OqdA+SEOVj0Gj/oqQ6H8SIdtgk8bVwgz QvgNiQ77ctw/z7zYawvhpzm0H73HYDEvBcrPdri2nJtzN6MPhO9Q4KDCYmmZ t9AMwj9Q5DA5pMJyj6kKhM9Q6fDktXnSX9e/NhD19Q7ZefsPlZXdgfAPNDkE 96qxLd1+AMJ/0OqQ/bPgwQzDZTYA/OlWmw== "]]}, {}}, {}, {}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVlHc8Ff4bxa3sjMwQEQ2FBi7X/VwPka2MKNt1ty2SKPMWvsoqKtlCUsms JJlZKavskRUlFA3z1++v8zp/nPd5nn+OLMHbksTCxMSky8zE9H+1XopQisty AMugFudSugQ+KmZEtK/QAc5XWK/Xs0jgdw39PR9d6QCjRz8kq9vvxh+5enz8 e5cDuIy+IxeKi+NdGnO/VXM6wt/Iqrq+ehH8gsgbFW9RR6gDZq2H6iL4y5Rh Pzl5R+jqdc9hfSKMv80t8jda2xGEX4gt/MgXwredubbD5qIjsK59jCTUCuJt c3IMuaIcwV6s3lzATBA/9fP1f68SHWE+ay40Y0QAv53yW3DfY0fY5afptYtD AK86QpVemnSEnkcPGoZ/8OLrlBmuucuOwPNHp9xNgxdvHpadZ7PtCN2rQu/T InjwtH2DijUSTsB/p8elQJ4bn0EzwcRaOIH6haJY3vsc+MPVlMvI2QmkjEc6 f7Ny4J/zRtUseTgBVRBTXunNju95+uqkbbQTjKuxU80sd+A5fymdka91AqMC 58uWOqz42wbGyZ86nMDwa4COcRMLXu4u+WPsoBMUS/ltuJiy4BEu02F51QmO 2baT0tyY8X4RArTXR5xhTbcixYW6jbZ7jhT7Yp1h8aVRhEDGFopTMFqUN3QG Ge3grE/9m6igJTzgPzdn+OlXu+eQ4wYa5vsZfu6eM2C9XrYGpP9FNBf+Jp5C Z7jA3z8f8OcP+vXsMGdthTPUjnBM3bf9gwTPEm8qdDnDl5J8wVXZ3yj3Hd3s L6sLkOjELe6pFVT0XH2UzOMCV26fdzewXEEluSzevbtc4LvFn5mQxp/oVdC9 hKeyLhDa1T9HLP+BPiq09ZC0XcDAbIhyunYJDQukEHtOuUCkAzdbgPES+rzu ugrmLnCSYfM1+dkiWuz6Kyrl6AIpXsqyVpsLiPPqIbvuyy4gmc5nvTAwj/ho q/PaES4QmJjDkiw9j0Ss64Ifx7jAY4HX362oc0hO8Xx69B0XYHzz/3mX+wvS +hg9jq90gbDUsqa4a9NIt87at7jGBRpXLC3sl6aQYfFeFokmF4jKPtKj4zSF rCOe71vtcYGD9nEwrT+JvJS/kB8tuwBW0X7sts4E8t9d/lv877/76DKhyq3j KJgtLPoakyuYXarC8luPo+hBsSJXfleYCV+UvD8zirKvGSyIKbnC/B7r5o6i IVToK3SVoeoKuqRP/HVzg+iJwxjfTy1XsAivPf1HaRC9PB54tNPYFeLMkgfS m/pR72j+hSiqK9QkqhVvKX1Eg61+bD+8XYGbSfkzLrkPTZTjbzsH/uOnnpsp 3ehF32M/VmKvuYLQeoJn11AP4sCwry3lusL1M7tfdb3tQnxy3bFOj1zhB+Hm mzqTLiS8M0Oyo9QVmgaWKUI9H9DeSTVUUOcKrR6rLesf3yNsPCnMccwVKFPh bDsiOhCmyLjKdMYVnjlJFh9oaUeqTSrftRZcgSWvSppdqB0pr/+1l1j/l+d/ Wx1c2YrkKDcxn0QJQPvlukfi2FskE3HBq3kPART7ErKm7zYjqfRzDyrkCbAY 1r8ay96MRHvkhG4dJ4BOhYzZ9nwj4tKu+n7GnAC66UVCv0fqEbvdfQU4S4A/ uoFDK4R6xBIQ7qDiQABe57VM4a91aKPIpG0nnQDLMtrLVLY6tCQ6/qCNQQAf bFBpYulrtHCsafhFHAHqUmbLPOdr0LxpkdDDZAKc1G1NJhyoQVMR/uHXs//x EnsHdpVUo/7vnI56Nf/6W6tlZP4+R31c35NPNBLg7QI11MzmOeqW72mTayeA GM2Gll1VhTrs0jWYBwiwhdOlml+rRG+ajwm/XiFAThVX6I8z5ahmQtTk8ToB xEuG4q90lKGXG+vh91ncgBzYp041KUPlx5sXLwu4wXFWuRE2q1JUmGHXjjni BkunyRqi10vQgxfaLAdOuIGnrPt/1pIlKKdXXlMU6wZNb+Z6c4hP0X3uxfwV AzdwROtOoR8eo4SLkRHP3NyAbrWrV3GqCN1IpL7IortBCe162SfVIhRbbLYU 7+sGAid189djHqKoz2JOXqFuUHuZXVBNpxAFmhdrHk5zA+KzVobH+APU7+8a 9TvbDQSXG+wSrB8gbJro+4ZCN6if3bI63pGHNmbDiA6VbrA3IH4ptSkXRYSf jb/R5QZG0g9W7o1mo8kC7sHz/W5gUeP928EjG+l11srvH3MDjSf6tn83shCH pOLL19/cAHs+5PGl/VkornxrapGDCBIzjbJOx9LRwmCZyis+Ivh2ZrO+ungf mTPTLkeLEIHVOV2g4U0aEjTv4ZfdRwQTtiNYG8I9lDJbgLXEE6GedcMqpD8V /d7pyJDWJ4KPvVUOF6Sic6q7PsybECGI+8tN0qMUJBkeQoo8TwQn/+2Igzdu oywJi4RyfyJYEPTbbS4nI2Yd9qGwYCJ8aFyK/bCZhAiUagWzCCJ8ZmYjkqOS kEK5QvV0PBFchnTtU+8loiKztWnRR0QY9Zi+xdQdj3j8nx6dfPaPF0zTSmKP Rx73iMFPnxPB++yijwbcRCqznQKGzUTgqlfw0qmPQ+VhuVpBE0RoVPHSnd+M QSIF567pfyFCc9/D7de2Mejiu51dgotEWPRxE3pZEY00JS6RizaIIL9h0fri ynX0usw0cUiMBKs86+6yWgy0d5B5uECaBL4XnbZIZVEonKlqv78CCQyHFSz4 VKKQnpnsK94TJPCOGxVSPRqJWmdWZ5A5CchKs1kptuGI/v7L3oyzJNBlseP3 GAtDvM+H7LYcSBDOg5GPoIch85i6ztfuJBgsAy8l4VDUffhGpXYMCQ5+mVmV GQhGF4TDljITSDBemnrskHgwEt70U2S6QwJ925Iwd4fLyKbzXMabfBLwsD5J 4Fm5hAZ95K/pNJJAyGunK5PDRRR8XuxNdjsJEsgfvgrWBSApXe415h4SnGbO Zz6rGICchJY86ydIcCZm3mGD0x99rqg+e3KbBF8Xy251//RFkRlP4nPZyRAi ru3rGeiL5K9nt7LykeEguqpD3vJB5HPXUaMUGQo6XXlFRH3Q/Jqlgj6WDA7X FxuYez3Qf5P6zg90yNA5FHgXeD3QkQ6NuzuMyCCgyZkwa+SOvNKldzbbkuGp VTjnQC8N/dCeXzkVQIbjk5UMbwUKSj44olwQQgasnaDpTgYZqQp+oHJEkeEm y18iyxwJXfxcMfw2iQyaDW28wTVEtBYV3mhYQga9URuum7cJKM3Tf6uwigx5 D5W0WoQJCGdD0eCqJYN/90bF1VRXdPWAWXHrOzK4KTckMRW4IJY28VvGX8lQ nzRXW/XJEeWW8nQW/SDDaKMiyyKnI9JL2+LgWSPDedqaRK22A7rmMRXczkmB WdW06vgaO8TNX+Jmup8C65eMnVdXbVHOgVcnlZUoEE46JTFjZ4s0oWWfgCoF WNy5jOobbBDVd3yyR4cCUiESKv1ZZ9HbHgGivSMF8hf4HYcYVsjpm5QeIlLg CWTrRHFYoV9sh+Rl3Cngs6ZZ6xRnifar60x9vkQB02snnW0yLVDUHV8i/RYF YnoUHew/nEZSz67omaZRoCaPneUyy2lU1hojr5xDAUsL3s0OTXP0eS17avkp Bfh8zwrHVpkiHcduYlA7BXhH14/OfDVC/QGjevbdFEgM0Svar2eEfG7Oy6MB Cuh+Ei7PyzJEWbUs00yzFKgdp5O/kQzQluwJUjQLFapGCDm90vooBautT+ei gphDzPT+FD2kZGWiYCpAhfkCyYcLAnrIIcptml+aCmtzTt2hAidR9UwyKVWT CsWzPD4UNR1kuZ2pHwRUOKhUbsXdDGherFjB3oAKXhdEpq+cByRh1DgtfZYK OSf8Tu8R1EaXHq2Q8n2o8KC/dGKOG4cEGplORQdSYbcwycTnrBYqGObdT79K BbnIUIkbeVj0cafCjFIcFViDpOeEzmgiNZ+z5IoCKuyzDTmpP6COOqJdT6U+ oUL0S39Lqr46ImZ77g+qoILH+SZdwwo1dKubMYNroIJbTWLOaKYq+qFaSW4c pcIh3j+10+nHURs/kzp25t+/5MUxX8njKHveaEfJAhVeNnjuSbh/DJ3JGslN 26DCIF98rMzDo+gxz44JPwkaTN70clvsUkJRM+YlX2Rp8P54kdcakxJyqLsT 6nSIBrHhIyU1akcQd+ARaWMNGvhdDMl591QRUT9b2cva0IBAOx28MnEAQU26 YqojDW6Qwf0e9gASuzP7l5dEg1LBu5x9qftRs1nwnT8XaJDoR38b7ayA9r3I 6XufSAPcZNyd9L370Frytzz9uzSo2132+vY9OdTtpe5fnUUDDsEhYU1xORQm 37ar4CkNOqXeH5WUlkWj8cunr76jwe39khoWudKokq4ls9JLg0uBAYLZHXvQ DX3Gd9owDfom24y71qUQbl38xtmvNCjzbzJQcZdEd8nQdoSLDrextTUPYsSR j07s3RwBOvSO6KeXj4ghQ6leqrg4HUj/KVtfUhdDv7ooHGwH6ND2uUwvbVUE WaN4vSE9OsBhNcOv+UKI9afcZLMVHWq1LaxPpe5CpYWV4aUEOgR2iyLTFEHE Lzz6OiaMDpxae7V8L/Oj162+jgHxdOBLP/LM6u1O5BG6Y8Ml45+3nMkqP8yL 2uaPaGq8osMer0H/JTUupFvlsj3SRgee+di6wjEO9CLyVlPkAB3Upev2RKex o0KpDYv3v+hgZ3v+1KI+G5KZUxEP2OEOFIljT0uOs6KUCrdRCWF3WDy9xs6j zIIY5u108jF3kGHmMQwxY0IbEttHecEdvptHpZqMb+H8Z4//fmbuDh8L516K o00cIexe5Ka7OxzpouljNNZwg6adRrmX3eFAcC4z6v2Ds9jNImAU4w7yylpN +yJ/46CUdv9Wvjs4ieZUZoms4lRMug6ON7hDQHcLxfjLD5z0lEbF4Ql3aDZl Cg5bWcLxXsnSCdxyh723eQNzqd9x6yKcnfWSHlD6ZoivV+8rbv6Jtx2fpgfk CWmpsPl/wfUbfJo5b+MBh4a557IXpnFvx/EXHlzwgLjwpI+bDydxlUH520sJ HsD51KbqRM4ELrTbT/5ksQcUOpukDAyN4QwPaxvdfusBrpgTnZlvh3G7oni8 Zj97QNE10bLk7QHc0PCnJM0tD8jfcZFxLuQTzuumz/CIqifMqvyUclbswTEB 1/4Id09QndZlf2rwHpe0nO29P8cT9okyhxRda8XJ52JftPV7gnwSr+X93kac zQtP3cwxT0iXtxn6YN6Ii36f1X5hxhPu4PzrXToacAvr7KNSK57wPrNuFddV j6u07mHx5veC2R3f4oq33+CM2D1MhU55wWTTrXaH19U4+o2gnnuvvCAwI9D0 3cAzXKzwdTu5E97gLJqbeO9PPm7j2+/uWKw3dAQrXas9l4/zaqKa/NTxhran +XO4mgc4y4vGuMYz3nBy14nBlqQ8nET/TmmylzfMmY5juDxzcI/Sbk08fOgN nKYlTqT4dBxZ0KJcXMAH6hN7r7PuSMbdE0lpuCHkA1eiNB45xCThOncPdbOI +UC28WbZgEASDiNHWv62xweG5H+e+X4wEcd5Iki57rAPFKe85+n4dRP3yDq7 kGbgAwbmR276qcbgllKX77+86gOP/Ke8aGVhuGDpJIbDgg+Ulwqdt7f2xEVf +A8vPeILaeHoLU/FSZyM2jXfiBY/CA+0Jd61l8TFrOZTJPMuwF2zfVOe9qta XzdD9Y8n+YNs1Pr8Hv53Wnt3hM5c8QmAU9T5AGZcvtbYpVBmD+OLoJqRMLOZ FK6VoqrB1q8eCMcOXOgeVDunJbso2nZJ6BLQiNNtAXXHtfKWHwemsgRBFHEO K2LFpfXM5VTmuYUgGOM+ZWL1cAKb2MkWa95yGdzsOvUay6uxtKhgh/qKYCCc u30Is5SE/TdiP+jJIUCZn8h0l/bEGttVMld6XIGCbmN9pr0G2MAG3r9Xz10F TcK+k+LMe7GXDseUhaiGwophAs/h+T+aLxZGFUMEw8BBnSnTf+aDpox+nGNv WBjMtLd4OLc+1Gy3xL7bXAiDTAi0DbOM0rwQ1XiUTAyH3UmasXzz9ppRFROr X7rDQf/l15WP8WqaidxDT4qMI0A+v2fzJMdOzUmRvjz0JgIyhiQp3ipTGpl7 CRvzSpGQ8OPEu5ykWg3b0+0Gn/IiQUcg1flx1G2NS1ferowIRcGd7lPHkq/6 aIy5No5WhEXBmuNBOxUZYw1devqrjl9RUI1dK4pgl9Pg8+Pa2CQyIOXgReH8 tXVMic066zyZAYVtwn0lR9cxlloLPB+pDNCWsLTz9FjDpLB1ST7xYIDF2QLf cyt/MDKpd7Sc/BkgV+ylUKvzC3P01YHg15EMSGrWkfYrX8ZYsZ9au5rDAFaD 61yK1BnMr3kMi3seAz52OVE8m6cxd94f4rbNZ0CulxAGDk1jhu/slFApYsBm ANlLcGMSQzzcpzn2jAEUrZZbzD0TmItniEHadQwYNFF2TLAfxoir2YQfbmBA hkR/wtjNIczL3YYxYk0MeMORprvydhCz9fnw3cUWBoT7fn/YYjyAuR7w83nm BwYUfH6APt38iFG0m37zXzcDMnXHvVi/9WE68J9aAnsZ8CtDfLnZrA8jwFnd f7qfAdjeQ0YJ0r2Y0m/F41qDDFjQv5dhc6MHY92V8eXAMAOu2H5VV2Pqwfyq SFgSGmVA6atbkXyB3Zg79yL+bI8xYGcVub1puQvzPxKnRa4= "]]}, Annotation[#, "Charting`Private`Tag$9268#1"]& ]}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->All, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.880512435621538*^9, 3.880512441965094*^9}, 3.880512520402972*^9, {3.8805127099392223`*^9, 3.8805127169546366`*^9}},ExpressionUUID->"190ab2d2-f07c-4218-8041-\ e26e117957f1"], Cell[BoxData["1.5194457184149003`*^-16"], "Output", CellChangeTimes->{{3.880512435621538*^9, 3.880512441965094*^9}, 3.880512520402972*^9, {3.8805127099392223`*^9, 3.8805127169546366`*^9}},ExpressionUUID->"b4e2c490-e2e5-4eec-84d7-\ c5a1296f85b1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"hH", "=", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "4", ",", "6", ",", "8", ",", "10", ",", "20", ",", "40", ",", "60", ",", "80", ",", "100", ",", "140", ",", "180", ",", "220", ",", "260", ",", "300", ",", "400", ",", "500", ",", "600", ",", "700"}], "}"}]}], ";"}], RowBox[{"(*", "Altitude", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"mM", "=", RowBox[{"{", RowBox[{ "28.96", ",", "28.96", ",", "28.96", ",", "28.96", ",", "28.96", ",", "28.96", ",", "28.96", ",", "28.96", ",", "28.96", ",", "28.96", ",", "28.88", ",", "27.20", ",", "26.15", ",", "24.98", ",", "23.82", ",", "22.66", ",", "19.94", ",", "17.94", ",", "16.84", ",", "16.17"}], "}"}]}], ";"}], RowBox[{"(*", RowBox[{"Mean", " ", "Molecular", " ", "Weight"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tmM", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"hH", ",", "mM"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g1", "=", RowBox[{"ListPlot", "[", RowBox[{"tmM", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ftmM", "=", RowBox[{"Fit", "[", RowBox[{"tmM", ",", StyleBox[ RowBox[{"{", RowBox[{ RowBox[{"h", "^", "5"}], ",", RowBox[{"h", "^", "4"}], ",", RowBox[{"h", "^", "3"}], ",", RowBox[{"h", "^", "2"}], ",", "h", ",", "1"}], "}"}], FontColor->RGBColor[1, 0, 0]], ",", "h"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g2", "=", RowBox[{"Plot", "[", RowBox[{"ftmM", ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"hH", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Last", "[", "hH", "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"g1", ",", "g2"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"ftmM", "/.", RowBox[{"h", "\[Rule]", "250"}]}]}], "Input", CellChangeTimes->{{3.772015536487234*^9, 3.772015647164937*^9}, { 3.7720156922710953`*^9, 3.7720158354482017`*^9}, {3.772015865737871*^9, 3.772016203880355*^9}, {3.772016260164149*^9, 3.772016400682744*^9}, { 3.7720164606114874`*^9, 3.7720171289240847`*^9}, {3.7720171620051203`*^9, 3.7720172989497614`*^9}, {3.772019515938557*^9, 3.772019672638878*^9}, 3.77201972315697*^9, {3.772019789091245*^9, 3.772019949514459*^9}, { 3.7720225062752542`*^9, 3.772022576669985*^9}, {3.772022624249754*^9, 3.7720228944521613`*^9}, {3.772023020480048*^9, 3.7720232798566504`*^9}, { 3.77202332101007*^9, 3.772023465155593*^9}, {3.772023498910285*^9, 3.772023549330428*^9}, {3.772023610997158*^9, 3.7720236613623543`*^9}, { 3.7720237124011364`*^9, 3.772023739678512*^9}, {3.772023881109584*^9, 3.7720241233330183`*^9}, {3.772024158708761*^9, 3.772024174734576*^9}, { 3.772024283053416*^9, 3.7720245044087763`*^9}, {3.7720245425369434`*^9, 3.772024742728737*^9}, {3.772024828251802*^9, 3.772024829591036*^9}, { 3.7721453812626863`*^9, 3.772145387406159*^9}, {3.7721454539131923`*^9, 3.77214548393804*^9}, {3.772151284202403*^9, 3.7721513097552476`*^9}, 3.8805104343031597`*^9, {3.8805125451366034`*^9, 3.8805126732528315`*^9}, { 3.8805127441569443`*^9, 3.880512749391163*^9}},ExpressionUUID->"c5c15ba5-f3a4-4d34-947f-\ 9c8dc035012e"], Cell[BoxData[ RowBox[{"28.863880314610892`", "\[VeryThinSpace]", "+", RowBox[{"0.017105149405741246`", " ", "h"}], "-", RowBox[{"0.0002768689669904098`", " ", SuperscriptBox["h", "2"]}], "+", RowBox[{"6.96083550669039`*^-7", " ", SuperscriptBox["h", "3"]}], "-", RowBox[{"7.518320212848772`*^-10", " ", SuperscriptBox["h", "4"]}], "+", RowBox[{"3.1396302577554744`*^-13", " ", SuperscriptBox["h", "5"]}]}]], "Output", CellChangeTimes->{{3.880512632535309*^9, 3.880512673862184*^9}, 3.8805127500317664`*^9},ExpressionUUID->"e061aea7-1d3b-4228-b679-\ 7cb1be6ef3f3"], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0, 0, 1], PointSize[0.02], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWIQDQPfNGL6D321cYByHVD5Amh8CTS+AhpfBY1vgsZ3 QeP7ofFD0PiRDg+rRNa5P4TyGxIdjMHAGspPc0gDATUrKD/boRqk/JcFhO9Q 4BC0Q6719UVzCP9AkYMmyPgVZlDzKx0KbbmuL/5gDFVfD+UbQtU3OVxfXAAU MYDwH7Q6vAkEGqht4AAAvV1cqw== "]]}, {}}, {}, {}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV1nk4VF8YB3BJJemXUpF93+VaJsvM8DWYJFuK0IakEkJlJzFTKq0kUrYk VJItlbWyFKVotbeRLVpIpfyOP+a5z+f5njv3PWfmvOfKeux12MHLw8Pzg3xm rhF3/6SdGx8xtvCtYCt3MZDRbxa+LbzJJKHOQlykm4G8PNHT8uEdJpxWW/M5 PQzcEIi9MCd8yOTn++ykzl4GtOjl6RNhf0w6z92xC/7IgH+bg9xo2AIoiNbe 2DLEgHp+5sVLOgsRLMwjqTvMQF/02HLrwf+wUKJ6aO4IAytFGrgvNBZDrDA4 P+8LA9kPPcO0Ly7Fcub76o6vDJyRztg+FCaODY9Pvv/2k4Evxxoy7jtJoKXd NrVgkgHriS9dKTqSaIvcUbXrFwP8T5jOloNSWOPDZr/5zYBJpW9Oq4YsHHwv 7c3+y0Cp94JUrYsK8FCyrvrKy4SnTLqhuIAicpsrfRJnM7Hklc6buSGKqOXT PU3jY8Lf1HVZ93ol2Dx8YrBvDhPqonmn4heooKmYJd85j4nMOjZnIEwd76YS xzwFmbBOL1u+9Js6iu2Hn/4mnghRyjPerYFB2oGBkwtJrjH3acJGTUy/8311 6z+Sn60TMdbTgswVzavvhZhQorIcHwVpQ4OnrnNsKRNTEu1pW4u0seKv+zvv ZUw8n7/k8/cRbQiWb9P6QBzx4VCY1A4d8HNq858uJ3mSe/q+9boo+vmFdkaU 5H9lBiQpGqyGKtfXiTPhMOisU7yHBiWTL3YKEkwovz4dbnmVRtYrKOsQcWsh z3/7pFbhQ+hDG31Jknv26jQK6iPZrr7tpBSpx140YoulPrb2Kqb0Ercy7eu+ xeqjctzsHiVNnidSs1Hyjz7c+gZFm4lbH6dHBA4YYKeNnP2oDBNXb7+um6do iHnjpYv1ZMn47EWLLrkZ4sZ3t1XBxMpRBzMbXhuCn614fXIm195WL1FvhBq3 A9s+y5H6pc4vKppFR61nm52MPBm/oMV5NZOO5w0JeU7ErR+NhwJK6NAQ23Kx aiZPlhJqyGKAZ3I0MVyBiSI+mWO72xnIn9UgnE3MCJDlE1zChGRWNK2J2N5K YdL+EBMhSXKeyxSZaC9TDPxezoTgb5tAA2JPeeXhc2NMNAq/V3QlDplS7W3f ZgzHmsaDKcS8u9VdI88bo3b5FuXbxPEvNV5ItxgjKb8rqI04s0Cr0dPYBO1r FIX4lZjQENdmzQsyQdgTjU0yxGVHdCrybphgJCrTXp94R6GYc/B/wN3EdUx3 4nwv8XOWakCkUjNtP/GYhETrCjYwCp0OLjGtTWLRkDuQICy/Mok47KikdUUk cDWbqXWFuNpE6uiJFEDnuUxPETHfhFT91lJgjs0e42riNdelZ1PPgQdZ92we E5/0kMGsEeCjbuHCF8RtorKRrfymKDPoj+okFm2RvXtZwRR+Nf8yPxBv4cr9 3A9TyN1KDB4gzqLL67E3m6K1gc3zhbj/q3yASIgpfJKLGF9n5p+rUPA5wRQv TxzQ/E4cuFVx6M5NUwwMaLTN+PZSJZXjTaY4XHdg5YynHivt2NxviqNCIyYz 97MOKWdpzmah/YwW/8z3H9FX6fknxUJA/9sjM89vHlGReGbEwobDcdUz9S3O VnXJdGIh9+7rmzP1O7mqJQUGspB3dbvLzPxShdTbzE6ycHd1Y8XM/Hvr1YWW 5bPg4ZPZPrM+ipEaNn11LLhUHSsuJvbW1Tx2+x0LnEppyxzimwOaDXF/WZhT +yf5PPGP9JV8rivMQPt5J+cIsaGTlqk6zQyFO8YDgoijBKmoKXszuA5Y/tlO zB+qPZkWZwaLN1lWdGIbLR2af7YZ3mp3L1YkPvtJJ9C0xgx2kakpC4klHPSG P/w0Q9w8vpF28v9y56eplgqbI2P0/Z1q4pwqmtdhLXOsk7i25jKxtrp+r8pO cwi82VziRRz0Tl/yd4w5BJtDTrOJK84buDalmePa0/faisRsPqMXvq/McUCQ r6Gb7A/XLkZjkYUFcoaU15oRU7WRGybdLDCwolVfjHjelapeZoQFPtUl/B4l +6/EB7/IDTh/JZkvmXjhlJlajzQb3fVMo3aynz/2cMoU6GxcUjPqv0p890Ed y9uJjRyPGr/9xF7HV28aj2cj7E7GIgHiGrG18Qt+s+HXrJirTPpD0r/jouuW rcaxjD6DYdJffN83ZydRqzHsciH3JrFYvm2l7M7V2MwWVNYl3mfo8EX/xWqo hPjd1CD9ScnZxd6zwBKjA067Bkn/m6Jf6Mx7ZIlTu1tULxG3SXfsGv1oiQHz r622xNH9mw+Fia/B2RyX7gLST98GuRWdjluDK4bPP7uLkf1+bufSSg8rKDdx zBNFmPAIzc3gjbICbcX8WhqxwZYBDcsUK3ScbdR8Rfr1J4U9Fm0tVjA6JNou TGxc4hc0wFgLVtaz+BjS/7+2HnizTMQaOWVPnmkuZqK++obsNT1rVH7etryU nBcXr3/yhoM1gt5KK9GJ2Ycd/3qfsIYab1uO2SKSG9LkambbQPdVpgmbnD/s jB97vMdscNh+xfYl80nuu2+66pEd9q/nmd80zUCg6zXLDf12mPVkql2DOPvy 18b9vPaQvy8af+IfA6GnVZcIyNijyQcn15LzVME7JVtvkz0S1JgKd8l5GyoZ +ujoc3vc+1ml6DFOco6BsF7VOsTdDx16N8BARPtcPt7mdUjKbq3XJH5BvfzR 8nYdvkysKA/5zACnK+DVnvF1uBIX1L2gn4EPq66lXNZwgENugKUyeb/IGpCU EU51wKVgq1m65P1Exm625rfg9WBF9UdmPmdAUuwpu1DbEQL9nv3jpQz8+CGy PAeOSKjHnp8lDDS3uH9KtXPErqF7PJPFDIRxx2OP+DpCXvOrx8QtBt6MSdRu zXME/5zxpZ9vMJDYsIe+UNYJUVYFxelXGBA4MJ/yFtqIPx2bf2xPZGCixXyF wqgzllVX5rrtZeCnfm2bbOpmdDYmVtdIMnD5ibfNr9luuD2y0t6tkQ6jUzui t/S4Y45zREDUdjqCba8bqqduR89B65HZ00Z41Dfex7TdAX8h3soP540gsKhw u7XSTog9cS6SUjDCN70yr4fduzDJJ+t/qtQQjwc1DA0qvGFzgUdzMcMQZaE5 02OnfSA9GTMh89AAa+b6WAuz/bDA2tkjZIMBvBavKxEV8sd2k8UTjp36CJc6 y9084g/H/F/D5b76iNt33FiqKwBp6U2WYpOrIE07HBDTGAgOb9tXjyOrcHQ8 Z6d49j543FCMXSy7CkN/D1ronN2P0wy/wvhSGmTmHOyL9D+AL7/VMi5soKEn 5OAsH6sgqPYFPv4+qYckPQO+N6uC0ZganBmYogfZ0eWPQ4RD8DscL5ea6yH7 643g87yhKHlLf3VrSBe33NjpziOhoBdcURFL0cWZp3zHbBvDUKFRznxop4vd nPDN90vD8S/u5Usany6WGop+806IQF/ai+8banVg5Vo2q8wnEu+95FPFY3UQ /EDwV5RzFKIfjj4wMNNBiPrR4gi9g+DpupA8LKCDOyPdahGLoxF/4mOA53Nt SFvEb3kRHQ09+YUVnWnaaHIwevJ3JBon+VU2Mf21sY/zkPLyPIRdray8bmiD U/pu/HPrITQvKPyXIaKNMwIdBflWMYBs/4TaFwoflr3MZtbEwO9l1ZMHjRTS ZTymBjVjkevnqvEpl8JGu6bVr7NjoVLTFvPgKIWQyIYfXcIc/BDk7F3uT0Eg YO+GM8s4KH8Qerx8L4VUT5EScxEOKmwUu1yJq9bu3HdNjIPcs29lM/wozBGb 9y1EloMXg5t0NH0pnC1jjwprcRD/TTJynTeF66N1A2usOCg5oKb8wJNCj/vD 7tJoDno/dOyydaXAU083OhnDgQrdJfenCwU5teJzXhwOIlR+qWcSe33LtBaJ 42CSOz39w5nCcMzBuyGnOBiTvd+VvpHC5GWjJHoaB/x0FpfXkYJQX6FN7T0O 4qovak/ZUdCxUslLqST1uvcoFBCvL0jnC6zmIPu1xzY34qSgk/fkHpDx6efy 62wpSMzzUeU85uAZ75mLCTYUVFWU56x+y4Fnhctc5loKLO9LFc0TZL77j96q Z1NwF0s9xJ3kAOwdmw4TRz9OZhv/5uBjnjWbTVytlvjs5l8OFO5c7Km3oMAY OvbxLB8XzYUdck3mFGg+IYIuS7i4rtLB08uioOK3fvMnTS5OW1+qp5tQWC21 TjZNi4vC6Oma2cReT237nLRJ3hgz3WRM4cpKK/9GPS4evl6/Zgux3Cg41+hc xBVNLIllUhD3X3k9YA0XyTe0znXQKfwXOH/qrycXEbsvCdUaUCh0+jN70IuL mlNF7HhiB/rIgle7uJA5/u7lRuIkvufiBT5c7GKp8ozpU5A+n0zfup+LqfJr cQrEVIVyeFUsF9n1RvFpNAqtGSti87lcqCwK8dpLvJ+74HjSES6GVW0ugviO 7egFv+NcMCw8xD/qkfV8V3ZXKoGLkP1le7SI189l/47K4qLc0SX0tQ6FiUF9 3j3ZXCjwBssUECe3qApszOHCP6BBkUvcmbxQTCufrMfGa2v1iD3VXxr23OLC eoSaf16bQpC9Z6hJLRdCw7IBfhQFUZrTIfUHXFgGXFu0lvjuCsujInVcJCrK LFIh/vdePWW0kQuftZHaH7QoHDnwvTz9GRecvcP8W4nVXD/VHG/lYsPBkmIm cbPx68bgF1zwabbUSBIL8d97Y/eG5BuLeHtWUigavt5LbyfrLfZKv4Z4w/O0 z8qdZL78s59lEk+Unh4T7ia/l9DOplji5Asxk9M9pH5Qal7E/wOxOYqk "]]}, Annotation[#, "Charting`Private`Tag$9550#1"]& ]}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 15.5305}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->All, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.880512632535309*^9, 3.880512673862184*^9}, 3.880512750063012*^9},ExpressionUUID->"ac159c02-4d50-4600-85dd-\ 62293924b58e"], Cell[BoxData["24.081923392564207`"], "Output", CellChangeTimes->{{3.880512632535309*^9, 3.880512673862184*^9}, 3.880512750063012*^9},ExpressionUUID->"803c7f39-ce9a-4fd7-88a6-\ 0adeac8e5f8f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"hH", "=", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "4", ",", "6", ",", "8", ",", "10", ",", "20", ",", "40", ",", "60", ",", "80", ",", "100", ",", "140", ",", "180", ",", "220", ",", "260", ",", "300", ",", "400", ",", "500", ",", "600", ",", "700"}], "}"}]}], ";", RowBox[{"(*", "Altitude", "*)"}], "\[IndentingNewLine]", RowBox[{"pP", "=", RowBox[{"{", RowBox[{ RowBox[{"1.01", "*", RowBox[{"10", "^", RowBox[{"(", "6", ")"}]}]}], ",", RowBox[{"7.95", "*", RowBox[{"10", "^", RowBox[{"(", "5", ")"}]}]}], ",", RowBox[{"6.17", "*", RowBox[{"10", "^", RowBox[{"(", "5", ")"}]}]}], ",", RowBox[{"4.72", "*", RowBox[{"10", "^", RowBox[{"(", "5", ")"}]}]}], ",", RowBox[{"3.57", "*", RowBox[{"10", "^", RowBox[{"(", "5", ")"}]}]}], ",", RowBox[{"2.65", "*", RowBox[{"10", "^", RowBox[{"(", "5", ")"}]}]}], ",", RowBox[{"5.53", "*", RowBox[{"10", "^", RowBox[{"(", "4", ")"}]}]}], ",", RowBox[{"2.87", "*", RowBox[{"10", "^", RowBox[{"(", "3", ")"}]}]}], ",", RowBox[{"2.25", "*", RowBox[{"10", "^", RowBox[{"(", "2", ")"}]}]}], ",", RowBox[{"1.04", "*", RowBox[{"10", "^", RowBox[{"(", "1", ")"}]}]}], ",", RowBox[{"3.01", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], ",", RowBox[{"7.41", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "3"}], ")"}]}]}], ",", RowBox[{"2.15", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "3"}], ")"}]}]}], ",", RowBox[{"8.58", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "4"}], ")"}]}]}], ",", RowBox[{"3.86", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "4"}], ")"}]}]}], ",", RowBox[{"1.88", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "4"}], ")"}]}]}], ",", RowBox[{"4.03", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "5"}], ")"}]}]}], ",", RowBox[{"1.10", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "5"}], ")"}]}]}], ",", RowBox[{"3.45", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "6"}], ")"}]}]}], ",", RowBox[{"1.19", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "6"}], ")"}]}]}]}], "}"}]}], ";"}], RowBox[{"(*", "Pressure", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpr", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"hH", ",", "pP"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g1", "=", RowBox[{"ListPlot", "[", RowBox[{"tpr", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ftpr", "=", RowBox[{"Fit", "[", RowBox[{"tpr", ",", StyleBox[ RowBox[{"{", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "h"}], "/", "8.4"}], "]"}], "}"}], FontColor->RGBColor[1, 0, 0]], ",", "h"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g2", "=", RowBox[{"Plot", "[", RowBox[{"ftpr", ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"hH", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Last", "[", "hH", "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"g1", ",", "g2"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ftpr", "/.", RowBox[{"h", "\[Rule]", "250"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.772015536487234*^9, 3.772015647164937*^9}, { 3.7720156922710953`*^9, 3.7720158354482017`*^9}, {3.772015865737871*^9, 3.772016203880355*^9}, {3.772016260164149*^9, 3.772016400682744*^9}, { 3.7720164606114874`*^9, 3.7720171289240847`*^9}, {3.7720171620051203`*^9, 3.7720172989497614`*^9}, {3.772019515938557*^9, 3.772019672638878*^9}, 3.77201972315697*^9, {3.772019789091245*^9, 3.772019949514459*^9}, { 3.7720225062752542`*^9, 3.772022576669985*^9}, {3.772022624249754*^9, 3.7720228944521613`*^9}, {3.772023020480048*^9, 3.7720232798566504`*^9}, { 3.77202332101007*^9, 3.772023465155593*^9}, {3.772023498910285*^9, 3.772023549330428*^9}, {3.772023610997158*^9, 3.7720236613623543`*^9}, { 3.7720237124011364`*^9, 3.772023739678512*^9}, {3.772023881109584*^9, 3.7720241233330183`*^9}, {3.772024158708761*^9, 3.772024174734576*^9}, { 3.772024283053416*^9, 3.7720245044087763`*^9}, {3.7720245425369434`*^9, 3.772024742728737*^9}, {3.772024828251802*^9, 3.772024829591036*^9}, { 3.7721453812626863`*^9, 3.772145387406159*^9}, {3.7721454539131923`*^9, 3.77214548393804*^9}, {3.772151284202403*^9, 3.7721513097552476`*^9}, 3.8805104343031597`*^9, {3.880513680968502*^9, 3.8805137675908957`*^9}, { 3.8805138042772894`*^9, 3.880513805355382*^9}},ExpressionUUID->"be66cf15-f89b-4c7f-9c1d-\ c21289bac521"], Cell[BoxData[ RowBox[{"991094.5308807638`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.11904761904761904`"}], " ", "h"}]]}]], "Output", CellChangeTimes->{3.880513772559494*^9, 3.8805138057616158`*^9},ExpressionUUID->"dc016274-b445-4a1a-9077-\ f9006bbae83e"], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0, 0, 1], PointSize[0.02], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWIQjQwWXNJzhDIdQMQHJw0oXwDMD7iiBOVLgPkM52Wg fAUwX+GUKJSvAuYv0BGA8k3A/AaG1xB9DC4QOmcZlO8HoRVyoPwQh7NnQEAF yo90uKvC1jjV+bI9mNuQ6JAgP3fXp8g6KD/NQenvt9IHcxKh/GwHsfsBP3Jk fSB8hwIH/YCgBEYfSwj/QJHDcxPuLdZLNCB8hkqHH82nS34qsELV1zssVvtV M0XwuR1EfZPDr5zLfRc/nIHwH7Q6xCp5XmP6vtkOABbsR+0= "]]}, {}}, {}, {}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVl3k4lk8Xx0UiZI1KsiX97GvZnvu+D5EIEdn3ffc8ns1SspOUFBJlCwnZ tyISoshaCMlOIkQb4vX+M3PNNd9z5jMz55o5R8jR77ILLQ0NzYu95v/985Vw qfgsa4i8+xppPLSORd74zPOxwBpONT/jan/9A+Mc/WsRW2MN8+yV/5Z1fmCS IfIT3/us4dbv3dvaDmuYfevjpXpGG5iVNXSVdF7Blrlfyfjx2MC3ETHX3w++ Y0FuY/7CIjaAt5JfHP6wjCUzcf+NxWxAep+eio3FEvbOMJrelGIDpWn53Ixp XzGznJwLByNtwGTjmh7/zwVsZr3xZkOiDfyiO/Xe0mQB2035zXHymQ20Wp3y GeOfxxQ/u/OvTttA8YCABDY5gzVLRzk8XrOBtaOvWpssZzCD0Oxc010bGIyS a8gZmsY8To6Iv+S1hf15//GrjE5hGR4XleKMbEFMloXHjWESk6h3C0LsbCFh 58tu9YMJrI4l8uWqty14cG9fa5eewAZKG86ZxdrCpFntkaHmcYzxl5ShSJMt ZE0XWLW8GcWStXXvDXXZwrNxeqchrlFM+IHrYNyILbij6ateLiMYgsu0Xvtp C89d9C0ec3/C/MPZPRol7cBqaOmK3pNBbHdAspigagfft/+J2XMPYvGndFZE LtjBwKF36wIxH7EnHWHkm0528AuWXLTIH7Ax1vUw8zQ72A30kKsJ7Mc87Nna mAvsYGhs8XUlbT/2q1yCsanaDi7PzC2X3u7DOK443z7VZwcEbWtns9Je7PF7 T/2/dPZw2/yh+lvhbqyw7uy4K7M9SDuuz0cYvsfKHtP6feC0h7nItKq/EV1Y Q2DanVIhe9CePTVD3XqHDZ56N+CC2UOE38rv7P86sDH2FOeB8/agXPxElCO0 HZvacvgJBvZgJP3n6tGxN9hK318ePht7IBCWtfDZbRhjiJhlf5A9OE1/8/5j 04KxevxcxMLt4Wx+wa3BwdcYt0lz8LMb9iBMn3zbyfg1Jixu8Sg21R5MaReP ipg1Y2qDsRNojT04pHXlnjnUhGk0mxCKX9oDWUAkM16xEbtQLEjL27Y3f+me SafDS8wkvO7kzwF74E8HsH5fj/lKL7gWrdmDGNfZoISZOox0rOr30b/2YO3i 5P7lbB0WvD80NprGAVTFjdW+3arFYkeOFDqwOUDOsqVppU4Nlh2tvXxEygFy 30ROZG5UYgUErpAoRQewT64ZcPSoxEqsv7CuqzlAseBD/bXJCuyFPFW2W9cB 0OsajxnGy7EP4/nESHcHqPTnTm7eKcVG3vrv/+HnAPor9TIRAqXYZBWabEd1 gH4dFrLl+RLse9xgjWq0A4w8n7iSnVeMMSgd2Fx97ABU2dgR+fynGKtwf5xt 0Z6/i0fL1NYLsMOHMo53VThAtdZ95JRWASY4fQZ50uwAP6ev6XL9zsdUE1xC bb44APt8PjaakIspFerW6s05gMSiiVjXwVxMsU3mu9rynj82zeOnYx5j0lt/ rXi3HGDe+Vjm65s5mLDbbaUhHkfAN33sPPciCxMIJ/q+OeEIqX+qiIr6WRjf I/O8ahFHOC3EZTDclonxDAhzJck7QoN5nE+fZAZ2EKv9bmjgCDkqN5/5KaVj BywfnoIrjmDqqVbwLyoNoyWHWctY7+m7Xtxg//QA2y68+O6QpyM4W1vPXYpP xVZ5JvLeRTnC4S8x6uIiKdiyXNvY83hH2Mo3lOy5l4wt6hVyPb3nCMcSPdWF GJKxmXBSWEy2I/Buieb7/LmHDX9ntNF8ube+uGS3FN1d7OPB7/cUWh2BL4GF vvFWItYvMvBOuNMRxDSyZy4eT8S6LB8p7/vkCOOfHE5wYXewV2/kDjduOAKt DwtfqsEt7OUkz8VnW45QvJG9HZkQj73Y3gp7SOsEwRdPZl36eBOrkn+zEsTu BLNtITw0fnFYQYZlp5KkE/zd4JSIGYrB8p5jtKcVnGDoSHAmNy4Gy/kgosKj 6gT0oB/7IDcae8i0kr+h7QRrF2OFjodFYXcoEeHlTk6wyOqEWLlEYLcS3Z9n eTrBFVoF/bm5cCyuWH81geAEjvODH556hWORU0dsfa87gaut2FB0SBhGNShW kUh3gqNP3pqM3r6ODZMcIn9nO0GYvwLwtoVgquk8PS0FThD3EWidaEKw7flQ Z+saJ/D68Gk3MeoqFh52JeFWnxNIPmuI4WgPxKafMI1YDDuBG4Xmq6ZwIKbZ 3SQi+sUJIhQ5vySHBWAMx8VfNC45gUz6f+un9ahYfNXOzAqDM3C+Nw8zYSVj yyOVMg2szuBV8/labQwJM9jnERTL7Qwf0su5qPtJGIfBAJvQSWdggIOPahiI WMr8E9XLqDNYdngSd+QJ2O9DNlH8Ws6gG/Xl/sE2PGauyNm7eNEZdJwuVA5Y 4LHjYVddIiyc4aCawaFGHj8si9foThXJGU6dn5CmO+aN7VM/MBoa7AyeL4bd HVy8MEe3+lP64c6wJaDFjKvxxE5VnaqfTXCGBQ35GxvOHlih/uYsT9Ge/kRn VPC6K8ZMKpWdLneGH0puX17Zu2Leac7BpXXOEBnkr13W54LJzHezX3jjDPJX ZURkG52xqtDHaoGTzrCvoEXqQpMjxv3EPFprwRlU52S7fbQdMcr7Q30cK87w IjWnMLHfAVPhDXAt3HaGuX+uDLFr9lhjpV7i6BEXYCX8XPPIssUER/aNPeF3 AfZPAhqPxmywMJpaUdIpF9DU0zerOmGDaeoLNbAouMCxpKpbHCVW2Nu5n3OI gQuYyEf81dtvgXn2LAhmXHGBYotLmRum5hhL3ajljrUL2FaS3PRLzDCDG83d jV4uUPO0VjHR0xTrl7hVg91wAbpkjnsHeUww4uHQ1cw7LqC18Sl7NM4YO/zP X5wm1QXCznZz+9MZY6bd5hmv8l1ANs8iIHLXCBvBi0Srt7oA+en5ugRBQyzY 4sir7E4XkCn3SM9yuITxaTBt7htwAZcca3fpWAPMlmvV5/WkC/QYCdu/ndPD pqrrr5zbdQEnBvnp4lkdLCKjJOHxAVd4fN9nUlVeBxOJyX5Lx+oKmf/9OJ8b cQFzNY9BWvlc4fay4N0IRW1scfPyKS1VV3iXXT70750mdnNayy5P3RU4f79g WlTVxCS7lB/Q67iCHRPfvYaSc5jvI/5Db8xc4WNG/YWn2RrYD2xx4zzZFeaz nuZ/Kgfs3n+fpZ9cdYUa1Z4wCRQwRY5ed4ZIVwi+EjuKpGMYZap6rP2uKwiP 3bz53zcE24wMa71Q5go79FSZrW5VLN2HtFNQu7feB91EZW5VDGfqpnywyRUW YkX4rtmrYCGn9YvfvneFr0KZGon0yhjtu6NJut9cAfGLNjSMPoM9rmDuLvzh CgNvpmPE1xQxzfQdBuZNV/D9HHGW1V4Ri/aeCe5kdAO6KOWhcB0FjImtzElP 1A20kgqD4IIclnO64Zy0lBtcbr7r4jEsi6lAx0l2RTeIyYnhcvWSxdwJE9MD 6m5QzPFv96SCDNY+wO5sZeMGyhrPMrPEJDHbJT5NxNkNyk5QztsTJbBf+8VE BLzcYClt0by+WRwTPas+MxXgBkU177D3XmJYZCrB2TPJDfKSuaov/hDF+Mqv aeqlu8HgrGdfl40oVvn2hoh0zh5PhtA86/tT2NRm9sxaqRs42ITjyTUimLpN v3Ngpxt878jL1KkQxobJ45pW/W5QYosUXlQRxvC3F0WQT27gppZQbt0ihGU1 0c7SzO/xajkz2UwIYjtCCi6xtO5w6OUj+vtUfixFFdPyPOgOp0X2dXpXnMCk jC+e0mN3B6VkruvoDz7MOtJplo3fHQxwr65fCT2O1c/dc7mv4g4rl/N2t/uP Ypd3M7UCwR3EljOszOSPYotHik9ZabtD/8C4cXPyEYxXp3WW/4o7qL8wy7Vy 58ECijZc8vHu0F3g+OmHymGMvZXmfCzVHdhzuPRYa7mwJ2Msop4h7qA6+ul9 gBIXNnjo1JxUvDts6aZPzapzYmfwV1yrn7hDHjrBuxjEjnXFOpy/X7LHX31n 6Bw7O+ac7SMaWO0OujSb1zMN2bCk/qg5XIs76GitUAivDmE/FGtcW8fdIelr PvP+USbsHRvNWdU5dwj6Fsj4kZ8Jy17UoS9bdge+KbbiLreDmGHW58fp2+7Q enExIouREXvGTD/pz+sB4prGd0XC6bHIOYOyBSEPOCLFku7zbT9m3Zx63VbM A5JVkxsGzfdjTFRJfl1lD2CL1yamYHSY+5SxlZCpB0S8fbHUr7IPg5ePxO/b eMDjNj5R/mYa7Ejq/F8WFw/QuaMkV3uRBnujH5z6h+gBtk+fRC9/2EFPPs/5 2JPoAU5Kk8eT72+hm/eWcrUeeMBU9ZfXuMFNtN/3LKk+ywPolBPVZHg30VCR d5xPSj2guvbxJYfyP+h4wtqlkPce4Bw7wC5+7Bda46kmsPHBA7z7qCOGIT/R W1pR3z3GPKBb3qSqan4DxW0dvXXlmwesFcSnv3yzjj7YezokD3oC4eOn+28q 1lC8etyDHHZPKM/oPv/67Bp6ge+D+9GjntDJ5r0p3LiK/upzY9h/2hOcsJOT Hs9WUBMkQXNU0xNGktzkL1ssoZJHP3EZ6XlCNO6tVvHdbyjduvD0G2NP2O1o Nqb0LaIVBTVhFY6eYHU1m7bF9ivKdni88UaoJyQ86vxpXDWHzn0/fXs3xhOM H44GqnHPoY1vCTbkBE9I5VrpvRY0i3pfp9+2z/AEtqqwxgdGM+i7RUkV5QZP SD9KE8MsM4Ue6DvPd7PFEy5uTL9fKp9ENWrtdz+/84RRqTY6CeVJ9HlEUlvE J0/gp3y+6GgwgRbwbRv1/PKEDnYLjWr0MzpDy3NGeMcTFks+QhB5DBX4KnOU TO8FHbl/p56Uj6Ip1U7jvIe99uIZFJ+qjKBRBp2ernJeoFiJD/OLHEJfKc7q P1f2gtCc5dpHU4PoNu+uLAt4AXn1ptMprUGUNC//u9zACwQavsq94/mIOoam Rfzz8trLb5MkrnztRzNcq1wNiV7gQ3mYpejWj47odes8DvKC7z4FAfcW+lCj Y7TsOje8AE6fq/T72YtChcfDpHwvCO57EWro2Y1eTY24Pv/MC7pIF38wPHiP 1oU8clSt9oIy1td4u/ddqMzFvv8mWryAmSuh0+R8J8o/o1wtMekFN6L+ytmQ O1DLd5dTQxa8IDK74yHH+3Y0ucw7uG/FC+i03jLribWjLNey1Kk7XhAtu3px 6HsbusXN2P36uDcseuppcxW1oGe3hcq5T3qD+PvkjJcnW1D/KbUkd3FvmOSa kGLOeo0ulvhZsqp4w86Oabjk42Z0WHtozsLUG4bRW0Jfs5vQw9Jrb4ttvMFu UjoaOhpRw8PMz3advUHyX1YqYeMl2j6BEvOI3pC19HTwlU0DWhOYv7t6xxvU JPWFVvyeowsJn2Lb7nuDl5zEp/iuOpQ3n4UzLcMbcu9xbp+TqkOv9/uLnCv2 BsE8u5HkzRr0ggSmk9zuDX/ZYvBsr6vQIHX/fo9ubzhW/EegHleFPjPLs0I/ esP5Tz9kml5UopyRzL7zU96gpeV2MPhVBTo6NnRXZccbTHdvq95YLUNZ15n4 WOl9YP6q3d36iDIUDqJ5U8w+cFq2/XXBsTI090xu7c1jPjCbbf5rNK0E9b2N H/us6AOrLw5MP8krQrNyH7tUqPnAYvjDX1wbhWj/i8Hv0Ro+YHpPJmvjfCGq NI/bJ2voAwalPD+z/xagNHBQNNzLB64+KUyrTchH5U1xpab+PvDuxCRr904e 6uztpywR6ANK8TY6MYQ89G3qR90P0T6QZZCJRDnkonfXsv1Ec3xAVRu11PLI QVsZPv7ZLPCB9+Jx3+jWs9FfJxjDe0p9YP/FcuYX17NRK13fpICXPnBu0Vy5 OTsLFXms+vzdsA9Md9bgolkyUNPnPhqZX3wgQ0iOJuriIzS2J6uTOOcD1ExJ vFXCQ3R568A434YPiCdnV3KdSkdrTAZo/dh84WhZ2Z+gqFR0wfNA/DkeXzBu U7m/OX8fPR6mwn30hC9o3LYZ9jG4j4Y+yzzdLO4L5AeBtu9EU1CdA956XOd9 YfjfdfoG2iS0YXysNVjfF9qiGzaDqPdQ6Vp9ZMbEF/BpsvvoVu+inO4y0tVO vuDCL5ZGv5SIjrz9wWYW5gs1+e0+AofuoHo5TrFNsb5w71OX3LBqAtoY9IHm vzu+YPjlhFSkw200R6Jm7U+GL+j1sUp7v4pHPW8FDqQ1+MLIEVzFyVc30DGX xYt0rb7w8+tN7jWWG6gBatXq1ekLpXMlYY9sY1H5FVw1bsQXErAf7SzsMeim Ic398d979j5wq+NJJOotRmDT3vUF4nDJCtPRSHR831RM6QE/oBNHHp6Jj0Bf V7QEhHL7gT7vWtfQ9XA07nCMpbCCHzxLzMuLSAxFt5d+98ep+kFQ4rl9Svyh qG+b+8V1dT+wMH5EPmZ9Hb1M0cW1GvpB8KUs9cRn11De4UP8rr5+oDg9thqT FITGl4WkdJP9YDPFTy9hNBDdiV1hVbrmB+ZaPuOPTgeiUyp9uwzxfvDfmkOO VjcVLUpPmnz61A/ckgs8RC+TUX4SvSVnuR+YOr5Xan9JQu/oUfqD6vwgSic0 Di9FQkn/zFoutvtButQbNZ+jRBRndzxvecYPXOV/fZTgJaAlSvEnTJf8QEyT Q+G/x3hUkP1fcuO6H8TKsnbYy+DRcHu/Fu19eGBfUDa0zPFFXTmMqo6y40Fm lY2m1c8LTeNOabnFhQeC4ECg80tPtPvYaD/tETzctDdKj2fzRJWEXdaWTuDh htp6+84rd5RRIVC6WQIPCfonUPsrrihOqRE5K4OHE0S+FalWF5SgRqdfJI+H A307KUVnXdCRc7e8klXw0KZlFmEm6owWmWQXeGjjoUg1l/OPlCM6YT5XO66L hy5db+32Wgf0sI1Eu7EBHpqPmk2kaDqgV12qZ5EreFhVNir96mqPGlDeCnM6 4UGMOf5dZaoNGh7EKh/jiocGW2OqzrA1WhNirL7tgQePR0U8r/msUYGYz3Zz eDxkRkYsfK60RFfvrz18EYIHRzlW+oAj5qjIw7PFMuF44GngjBkKMkMtsoLr c6PwcP/D6iW5KVP0dQH9yO14PKjnzS97N1xB7z0/dsQpDQ8Lphr15g+N0Y6X tqLDj/BAr7lKO8JnjG43Pz6jn42HuylmkqlZe5XqOykTpQI8/LTaDKSWG6Fn R9UTmWvw8EjNjU1i+RLq+SU6K/Q5HvZdxa2mnbiEZkx3lv5s2NsfzyXU0NgA ZVi60v2lBQ/mW9+WaLv10OFtD+aqPjyovt3N2dnWQVn2lfKKfdzzPzfz4KCJ DqpOvyGWMYyHzW7cPrvSC2jhoZALsV/woDNyU32vJEWD+e9GWS/v6e8vH0k8 rYX20lHij6/tndfX09qVdzVRka8W90Y29uLBPohleZ8m2lUplG2+jQfRepUN xSUNlE+nvMGEmQAFQ3pJgsuA4qWTW7jYCKAhfXqbjgJoK1fgu35OAtz9xXJf ihZQn3EYNuQlQJ63Y8OKNoo2EnvX9cQIkGwgsHmYRw3ltKjaZJYigMHwLC7Q TBV1RVP3dcoSwPLczQHeDBWU7aA9m44yAZ7WN0dEqCqj9hkr4lraBHh4UnxU sPgMWhUxILf/IgEefAqQy+A6gzJ61Cq3GBBAb871td51RbRc4fp5dVMCnFLi c+xwVEBp37I6Ii57+jWyh5yZHGpa8sN9250ACWEUb/HPsmjhvUG/em8CcP/5 IRriKosa22ZcUyER4NYmy2YpvQyauy714EzEHn+XgmZvkwT6Z5gjayOaAJwO VL64bXFUr/FnfmUcAcxSek7koOLoRuzLKrm7BKijOXvLtP8/VItfv1cqmwD8 XvoXVxRE0TQ6uaGlXALERZxeL7t/Cv2+cHi8qIAAX0uGeBt3RdCUyrFvYmUE +FBx+ZPG2El07oI3g2gTARJ/uU6PtAihqtKGrLOvCfBszQU3dF4Ivc2lyJ37 hgD2H6eMzr0XRJXGt4SFuwmwrtuuwd0hgMYSb6L8nwmw8bBYtNKHD71ta9bT ObHH6+l+HHl6HE3WOWkfOEOAtIaQpsOLvGiOQH3Yh297fB9aAo4HH0PrOxdb 4zYJoMPy43LzIA/6uqbmivIOAcoFRfiXlHnQjuzwudl9/nB1fTDPIpMb/UDl ZVQ/6A8uT+RWYgIOo99P6l78fcQfHG+ajYlZcKIbrDxjucf94dfOHxGbEQ50 6++k92UBfxA/x1m1bcuBMvYG3n4m6g+xYt6Fwv7sqNDVp31OZ/yhc+tiz5ng Q+h/bmRHDhV/kJlU0QgsZUGlL6uvN+L8IdytqQj3lRlV/e/TYV5Nf0inF3Uo 9mZCTT4wmvde9gdhzXrl86UMqGXTh4Vrpv4gcIKvNpWZAXUozAqUsPSHf/zB pqbeB1DfUOX0aAd/0BXLfPJAlR6NkXQfx+H9YWMhX5+PgQ69fUTRb5HoD23z wdceRdCiSbQ0NKlUf1jRFHAroqNFs4bvC62H7PGGpq4xs+5DX0S2Oz+95Q8X mEdDK+/uIK/87v00TfSHouKpAK+mf8gbS7vo/cn+8JnR9ebQ2jYyIPv7id1D f+gynnSVcdtClsZEv3EX+UN+m2xHT8If5Ef7j+CWEn84t9/tDufcb+RvRSML ocIfrj9isFmE38iBG6bSXc/9YQY3ojhK9wsROBNNCO/wh/pnsr3X69cRwTrb j6ud/iDFYTUnjltHhNWUVOx6/MGgsSmP+dUPRFR9gQY36A+9CV7vj/etIZL6 und+TvvDvOCrncs8q4h0r/CG07w/BJzNSWSwWUFkjbfM+hf9YcD2+Gzu3e+I gkWxQOmaP6j3jt9mObSMqLqwlrrv7tnXr77jVFtEcAtznEO0RIi8cfNPd+JX BPFqomgdIEI/67hrz9ICAgQ8KnyICIcUSCkypfOI9rX+96O8RLiTYsOX7DiL XKApktPlJ4L1JRJXyvAMohsRkVwnRITTyfRRHJdnEIMbijbJ/xHhuEJFJv+l acQkOWXJ4CwRitYUOMBvEjE96mf4UoUImHUuV9POBGKWrl0lgRCB+U80++HE CcQy+08woyYRrk7SBn0P/oI4PLNkfm1EhDZ2wb6rPmOIo6yCn+wVIth/OdfB XDOKOFcyD2SYE2GU42SwKt0o4v68IS3YjggME0FBNEWfEN82fvEzPkRYGLdt PCY1hOAv/L71GE8EVnLn8s37g4h/Z88aB4kIsWUUyRb6QYTcF/r8exARVgeq RAWXPyBXP09dKIglwhOFuir22X4kxL6+mCeeCJztcZEnvfqR69P32KMSiFBX Gc2ns9GHhH/VHHZIIcLh352919j6kBs/892O5xKB2+bAvX093UihBX/LwBMi NBwwqij7/R7pepnMH19EBMPWpEwQfY+wR0d+3K4gwuMHs6V2SZ1ICo/jufHm vbHugplDWQdSF/QpI6WNuFevplz5SNeBfBo33DR4SwThY7dVdq3aEb4nWHlT LxE6iKe/rR17g+QonRDI/kIE/Rgl39WOFqQ1PSnIYpoIAYeSAwvRFmR2l3mQ Y37vPp1Xp8TrXiP/dWzGh38nQn3gCg1PTTNSYj686fSPCDRdFfsbq5uQ3oZL pnz7SCDnLp0oONyIrAm2l3/YTwJu5qy1BJpGRPFrtbsWCwlWGTYVlh0bkBeB 9wZFj5PAn57SdcHjOTL2mUn+Cz8JdhaOxpTV1iH/1MNv3RcmwcKom98aUx0C TARNRnES5JhYSgY01SBv0gwqviqToJnKSj1hU4Us7LQdysGRgMtVaaWzuxI5 6IR4WAIJZjn6mGw0KxE9CUnBTm0S/Ayr1qtXrUD66w/eLjYlQVbJosYjozJk QyDsq7MlCRpnXS8LNZUi3JF/NE/YkuD8ySwNjckSxFxvfuuWCwlkOu4+jVJ6 huyl6x5+JBKUBEiyPzhdiNCo49pOB5BgJSHpeTf+KSKUVyk4EUwCa9ZzE/ua ChBnn5whwwgSTP5OPzro8QT59u+6lvxdEjApiyFZP3MRxk06UlEyCT6BkGOD dy4i8ismR+QBCZrevUwynX+M2H5P2OXJIoG67lZQ4VwO0j+e+XzrGQmmooID yMzZyMrIyQVSOQnqJeR+CD/MQliGnvB8ryLBI62Bq09kshCtnlLiRD0JZiSQ I8MvM5C6piaptrckIKwyF6zVpSMf689Zo+9JUK1vpz5Fl478qG2Pq+0lAX3A shPBOA2RLOuZfzpEgnQ3K+v13VQkM+tL9u1ZEogXara630xBGh469TJ8JYGa IkeR+J9kZDh1fid0iQSuwrW4EvdkhDNxxYq4TgInXOTnVJMkJDpsl9t8HxmW vksXEa/cRR5fi9Ds20+GB5SOuerPicirQAaiLiMZCAJJMgc8EpG/BLZeHBsZ yqLlH4bF3kG8HQXihE6Q4biyjejTvlvIDdvHdWmCZFgGRasF1ltIvuXpeS4R MvywfhQjYBSPTFyW0TwgQQZyh9H7jek4xPgctrOoTAYGUX2PSSwWwWMtks44 MohTcbmh2TFIvJq21WeMDL4dGpriDDHIG4VLdT3nyWCfXdSrMB6FqIrY+VeZ kKHnDv6Ja10EYiY4nSVlToZ4rqz8NKUIhMTn1pNvRQa42Dd05EU48uywn+QD RzLcP+4WmdoRhgjSX5+7hicDnYzEUPDBUGTlwLeMWSIZDrD8OBuvdR1pZDQz 06eSgQdjt9W8FoJYs8h08IWQAZ2Zqni4dRVJ5frytP4mGTRT9B5FywYhbtwX HU8mkCHzQsbZzthA5OyRWt6bd8mQsZ+RTWM2APnAm3DT8gEZWBaYn1oVUhF2 Ycznbz4ZBnrXfKiOZOTLyaJTDoVkmLm9+i/sEwkpOXVkvOMZGbru6tX8NSYh emIrBqlVZGBrveby6TIRiZXNlFV6TQaHYbIAN4WAmMkzf81oIwO2SNCHAwRE VJGafeAtGQTahqqVHuCRVqVLnIM9ZFi46/An5rYfQoPtrpM+k6F9h/72aoQ3 0gNexWMTZPg7Y/f+0nsvJENjyFlzhgy6/kkVcNwLwZ0v/cj1jQwunxtOOLV6 IAH6drUVf8hw9u8GLveCG6J9qdOPd5sMTONvOKMqXREeI6X/wnfJ0Gy0/ktQ 2BWpMmF7YHSAAqf901fFmVyQVaumoFUuChisPQpio3NCmmwkFMyPUEBlPkle 74Yjctvu/rcmXgr8R4JXSZyOiKSTn3WCEAWSzF70bEk5IO6eAqi0DAV2XHyP qbHYIUreN38ly1Mgt/OomaOWLXLA93fJvzMUiH5kwBsRYYPkEnoE3uP2EnOi cLw8qzXyJeD6Pm9dCqSHEIV2LCyQbqu48hMGFLBL4jrIVGiONKDJDj1GFLCC K6dHd8yQtP1FzfIWFFDn2bqmU2OKmN4ZDPvrtqe/01H/3dwE0SJOyhV5UcCc RWe2utMYUTRdmrT2o8AWN07JSMMY4eCj1XhFoUCHXHJzmuplpOuJFG1MFAUm qlZKX5oYIvVxyhXKNyiwe4lX4N2bS0ihzznHxXgKrE704tBFAyRWweK1fhIF jnOlHF/W0EfONUWGH35MAUn/R6dolXQR+ZwE+Tf5FBjLp+NmD9NBBKPSpqiF FODoye5j6b2A7OiWaYyWU8A/mrZE96o28mJwlDbnFQXemsV6XmbSQp4+n6sw bqXAJYtTrroBmkjqwzVH+g4KfPY8901p8RxCcWRoce+hgGdynWv0Jw1E7rt8 hMw4BWxFV26dmAZEsA9RmJzc4/3u17bgAwhr1YXpu7MUSP3Guvz6N4YsBdqe +7VEgS4pT30GDRQpoI+je7lFgaOErO3442rI/YWkSt9dCkSY3a9xt1NFojsz nQTpqGD+fRm1LVBBnBOrWyKYqGB8zP0wk44yInBiMkL3GBU4tURTXjWfQVhp lhS2+ahwNMCN0iR+Btme+jX9TJAKBCdl58H7ishIAYsmx39U8M8Jixq9poCk KCrvHz5LBbah2TxTihwSWnopRleVCtm6reeF6eUQT3E3ppcIFcJStt92psgi mGAKe44mFaBtSP5zpAyywLzB532ZCgjC8YfNXxLpj2bOGr9ChYZnLLVPnksg DftOnjSyoIKSjsXqIr0Ecue3kdhZeyoMjC5e2yoSQ1SmS8/Q+FLhVN2LJBGJ 04iIbXudP4EKXIdP8PxIEkVYP42rzZKoIGU/o3uLVhSZ6j6k8S6YCokHFd6/ WxBB4l54GSTdoELrl3iNwXFhhHQmou/ALSrwhtMPhzoLI7ZlaSaBd6ig2EsN 0VwWQhTy31ra3qfCWRFtiXYGIWQs8bTbf3lUyCnSYzR4yY+8YcEW0wqosC54 q/PArxNIWYypz6FiKlgFchM6FU4gkdeiiD8qqMA3N2/56+VxRMpj+nrDKyr8 hTfFhIPHkKMzm7QyrVRwFvcmCLsdRWjtOKOz26kQEvvbd6XjCDJooh4f3U2F /14wSZJSeZAQyEw1HKMCw0D3f+7Oh5HLZ7szzkzv7S/d3cTKjgs5Lfkvl3eR CkwyDy5bu3EivUesymd+U2HVXrx8PZ0dyT0UV/t2hwrWQh92C26zIQF0z1+W 0AeA6eJby5LNQ4jQCs+7AK4A2Pj54IARKzNy9klE0xpvAFDMNQ/U3z+I6Nqt VnkKB8Ar+TR+tzOMiH/P20xruQA4G7Q4If+UHomOOZv8UTkAOB0pFwyu7UfS sMdxBhAA11nEi7Id6JDXpVfJcCkARFfEzYPM9iGDbl89n5sGQCmbt5GjGw2y KGBqL2+75/+jyPN4xl0c5x2ZiyI+e+PhM6lBrVs40QsP4REpAFoODt9j0tzE qdIcPMtzdY9P49Qhl+E/OEf8lCDjzQB4u8qSd1DtFy5uop5580EAiC3rOgnM rOMqDJN/fSsIAPy/plBc1xpu5JXv5OfaAOiVKh679mkFRyd3oavnTQBcrm7K 8r2+hJPMFqpt/hgAcvx+9sXXv+JMOLayK2cCwOAui1FN7xzuatiH+Lz1ACgZ f/2M2XMGl7v2jHqfNhBO+XO+YdecwiUHnI47xxEIQunzXlT7CVz0btbDFYFA oJVwUG2x+YyjRPOWpksHQudHO8/zJiM4t0NJzdpIIHwNPLlPPn0Id+F4zFym ZSCkdj2XHf3bjxMXC2L+Qw0EbtH9CQzh3TgWJR9Zw+RAiIxxbxSO7sB917S/ UlARCHbv677U1LTgCvN3LIxrAuFtQnvqkHQLzpXxke3O80DYf+zi26zC17gv nZ/cTJoDQSnyt3NHcTOu97JxEE1vIOiqbBcWlDfhyu3PZ5ovBwIXQ3LdmaDn OHfLNUrraiDcuM29fn6wDido8tBAdiMQulQu7FDO1uEStH/8Y9gKhMPib0Te 0dbifKQzrGsZg4CxR9n9ekcVTmz75zEekSDY/kxVUtgow2Xfz0sasAwCzp8X 3tjcyceZJxp6Y7ZB4I918Ejv5uHYb26dK3IIAskPcam5hDzc9RCj9XD3ICiP /Doi6pCLs3H5ZyRPCYLf1RLnuNxzcMcUrrAlJgaB+18r5tcMGbjE7v1xBh1B QD9TIt+7dQ/n/tTAYn9XEFymo6GPwt/DQWTqfy96gqCwldi2/+td3HcVyfZT Q0Fw05COaXsmEaeXZ7z/32wQyNs8KuY4cAfHcDUnpIguGBz7XEU8K27grokB kRELBrl77RPJUaE4j8hg69fVwfDtY4VNi5EX7rDK0R+e967u/c+Bf57SaOF0 LWv21XhfA9uu/6S/PxPEUVtY/oaYh8CyJ/4IwvNbLUDiRuVVxetQyYbVOf/p U3u+PC5+lSMUNkeraXkdCtQEtOJtPoSGQk2ZVoDjg3C1zsuq7/8th8J29ef9 g4Y2asTIVllX5zCobeDdxoQV1SKrJ38u9IfBBUNP7Ye8bGqJTKMlhbrhoP6N +8avlRnVae6PucircHiYreoM/C9VMwUdtxelImDTyvlMe1uKqtmlTu2h3Ai4 okl7JJzJTzXgWvvGZ65IoP2KDWCd2qpfHFrHq0MjQVg11Eh7SFhVw/NRQ9ev SOgyDhbJodlUYfU/uP3POQo2kiseKUl/UCkz3aJbdI2CPJOYn/EPB1Quqy0z D7pHQWpHf9M/1gGVlP19x0u8o2D6X8m3+t0+FYH7qWq2pChwSf5vKvNQr4ps w+ngxogoePWuzgni3qoYHzi/GZITBe+k7kRcEXul8mtRidYrNwqkjswxWHk0 qaT2iDGZ5UcB5+1WgczoRpWx1EO8MoVRwL1ttCX6oUHFWeKjypfyKFhBhrlM a56rUAydA7HmPV6nzHv8pCqVo2dMwyRaokDkW5hl8ESlyotjF24caYsCO6H5 9/uMKlV2piQerHREQcElnONhtEIlhrxel9kbBTHzF/+qapWpiFvOvrrZHwUW ca9V72WWqnShQx3UD1HQdH5l41J9iQo7Y/3wpeEo6LyiO/GV/plKxVLxhNpI FPgLzFC8FItVTPoyFk6PRcHBrNNKH92LVH5V31nlGo8C3NKBkO2cQpXUtPA/ u1+i4O/ns2O1U09V/gdF7hPZ "]]}, Annotation[#, "Charting`Private`Tag$10518#1"]& ]}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->All, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.880513772559494*^9, 3.8805138057928686`*^9},ExpressionUUID->"30c5788e-cdba-4eb6-8484-\ 0aa7e6e7044d"], Cell[BoxData["1.176749630385853`*^-7"], "Output", CellChangeTimes->{3.880513772559494*^9, 3.8805138057928686`*^9},ExpressionUUID->"cdafc768-66d7-4bed-abd6-\ f4d7d17819c9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"hH", "=", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "4", ",", "6", ",", "8", ",", "10", ",", "20", ",", "40", ",", "60", ",", "80", ",", "100", ",", "140", ",", "180", ",", "220", ",", "260", ",", "300", ",", "400", ",", "500", ",", "600", ",", "700"}], "}"}]}], ";", RowBox[{"(*", "Altitude", "*)"}], "\[IndentingNewLine]", RowBox[{"mF", "=", RowBox[{"{", RowBox[{ RowBox[{"6.63", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "8"}], ")"}]}]}], ",", RowBox[{"8.07", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "8"}], ")"}]}]}], ",", RowBox[{"9.92", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "8"}], ")"}]}]}], ",", RowBox[{"1.23", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "7"}], ")"}]}]}], ",", RowBox[{"1.55", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "7"}], ")"}]}]}], ",", RowBox[{"1.96", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "7"}], ")"}]}]}], ",", RowBox[{"9.14", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "7"}], ")"}]}]}], ",", RowBox[{"2.03", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "5"}], ")"}]}]}], ",", RowBox[{"2.66", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "4"}], ")"}]}]}], ",", RowBox[{"4.07", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "3"}], ")"}]}]}], ",", RowBox[{"1.63", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], ",", RowBox[{"2.25", "*", RowBox[{"10", "^", RowBox[{"(", "1", ")"}]}]}], ",", RowBox[{"1.25", "*", RowBox[{"10", "^", RowBox[{"(", "2", ")"}]}]}], ",", RowBox[{"3.52", "*", RowBox[{"10", "^", RowBox[{"(", "2", ")"}]}]}], ",", RowBox[{"8.31", "*", RowBox[{"10", "^", RowBox[{"(", "2", ")"}]}]}], ",", RowBox[{"1.77", "*", RowBox[{"10", "^", RowBox[{"(", "3", ")"}]}]}], ",", RowBox[{"8.61", "*", RowBox[{"10", "^", RowBox[{"(", "3", ")"}]}]}], ",", RowBox[{"3.19", "*", RowBox[{"10", "^", RowBox[{"(", "4", ")"}]}]}], ",", RowBox[{"1.02", "*", RowBox[{"10", "^", RowBox[{"(", "5", ")"}]}]}], ",", RowBox[{"2.95", "*", RowBox[{"10", "^", RowBox[{"(", "5", ")"}]}]}]}], "}"}]}], ";"}], RowBox[{"(*", RowBox[{"Mean", " ", "Free", " ", "Path"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tmF", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"hH", ",", "mF"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g1", "=", RowBox[{"ListPlot", "[", RowBox[{"tmF", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ftmF", "=", RowBox[{"Fit", "[", RowBox[{"tmF", ",", StyleBox[ RowBox[{"{", RowBox[{"h", "^", "6"}], "}"}], FontColor->RGBColor[1, 0, 0]], ",", "h"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g2", "=", RowBox[{"Plot", "[", RowBox[{"ftmF", ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"hH", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Last", "[", "hH", "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"g1", ",", "g2"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"ftmF", "/.", RowBox[{"h", "\[Rule]", "250"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.772015536487234*^9, 3.772015647164937*^9}, { 3.7720156922710953`*^9, 3.7720158354482017`*^9}, {3.772015865737871*^9, 3.772016203880355*^9}, {3.772016260164149*^9, 3.772016400682744*^9}, { 3.7720164606114874`*^9, 3.7720171289240847`*^9}, {3.7720171620051203`*^9, 3.7720172989497614`*^9}, {3.772019515938557*^9, 3.772019672638878*^9}, 3.77201972315697*^9, {3.772019789091245*^9, 3.772019949514459*^9}, { 3.7720225062752542`*^9, 3.772022576669985*^9}, {3.772022624249754*^9, 3.7720228944521613`*^9}, {3.772023020480048*^9, 3.7720232798566504`*^9}, { 3.77202332101007*^9, 3.772023465155593*^9}, {3.772023498910285*^9, 3.772023549330428*^9}, {3.772023610997158*^9, 3.7720236613623543`*^9}, { 3.7720237124011364`*^9, 3.772023739678512*^9}, {3.772023881109584*^9, 3.7720241233330183`*^9}, {3.772024158708761*^9, 3.772024174734576*^9}, { 3.772024283053416*^9, 3.7720245044087763`*^9}, {3.7720245425369434`*^9, 3.772024742728737*^9}, {3.772024828251802*^9, 3.772024829591036*^9}, { 3.7721453812626863`*^9, 3.772145387406159*^9}, {3.7721454539131923`*^9, 3.77214548393804*^9}, {3.772151284202403*^9, 3.7721513097552476`*^9}, 3.8805104343031597`*^9, {3.880513839323108*^9, 3.8805139396169567`*^9}, { 3.8805139874280186`*^9, 3.880513988256119*^9}},ExpressionUUID->"405a939e-76a5-42c1-8425-\ a0f7e39652a0"], Cell[BoxData[ RowBox[{"2.457099243887964`*^-12", " ", SuperscriptBox["h", "6"]}]], "Output", CellChangeTimes->{{3.880513901664977*^9, 3.8805139401794443`*^9}, 3.880513988943602*^9},ExpressionUUID->"11dcc70a-7dcc-4fbe-a790-\ 1f1475268499"], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0, 0, 1], PointSize[0.02], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWIQDQMS+d7vJc8U2kG5DseOvs1cubIUyhdwOPuf4/aP BVVQvoSDcZBooX1TA5Sv4HCDXT770NkWKF/FYXJFtXWTXxeUb+IgEJrraLx6 HZTv4vBv3uYEW8+vUL6fw1WOvz578wztIfwQhzdHA/y2rC6A8iMdyvfNl9K/ ewTCb0h0gNBmUDoNQjvEQ/nZEJqhDCpeAKF/dELoA0UQesVsqLpKCH3xAFR9 PYRWvw9V3wShn/+A0A9awXQCo5AjAGF4RsQ= "]]}, {}}, {}, {}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVV3c0F34bRSUaaCF7U2Rlj+/nypa9Z9kre2WVWUm0Edn8JBJlRQOhKFJo USTKyE5UlLf3r+fcc8/943nOc+85l9fZ39SNhoqKapqaiur/M7pxNTftxwxl 2yiD+kaOE/L54+pRR6Oekz+fy0N6re6o3LzJepE/apDwKb+7Nme5Q7WlUvvO 4ewxYuf5PvpDpY5qxZaErE1R34hLZ6r4SctA1W7p4ZZhsQWSEZLc9Szpoqr6 p+g6lewloiXM9iagslS1IZWtPHPrTzKUaf37PHeTqoTyvbzlyFUS6GocqWn5 SrVkwuKq2dRf4sj9Lqnr8ogqw/MIjXdi1KB5WHY2L2letbOg49HpMRr07HxQ Yar3RzUxnEVRNnsjPioabFCupKMQI/fqUTNa3LITpQv/vovyW7D2wOWtdKh8 39Bjzs1NqV3bUIpWeixpuOYFJQtTAvpM+eYit8K55BjPPkspimhZQXaO9HZ8 Kaz7pLCgQPkaO8+sP8WAsR0uf+5eVqO8LM/T+WPMBO6dqu05hjoUcZanp/rF duAyjkycTTKmpMTPPi6n24ntCmZmVCKWlMmZPVQJYzvhqzryVkLPgaJlo6pq 27wLMzarf7dyu1CK21wjpbJ3467/VjaeSk8KjWRKPV34HvxMC6L/kuRPOXq9 emnYjBl89vpLLt+DKQ9oB6XqJVhw4jBvo9mmCApbEI3/+a2s0AxKaZTnjqGE f9x3y22cFXt/Xr8oLptAeaNjMqnSuhc/B81YjiSfocjUhAvtzmOD5sxs0o3S FMol7nyXb5HscG07853N8hJlNvlp/mNLDvB8lj1MN3CVor88+zFTmhMyv8Zv Cy5co5Q5MbMHMnBBpujaD/bbORS6blVrnSkuNAvWyJdcLqC4K7ilcT/hhrQx e0ZoXTHls4mW16oxD/ZsKaRLNSylXNw8sHn8EQ+e1s3o0njeopCHviW9YrwQ G2hmiUmqoswGUWs+yuJFwd7zN9zEqinZImmjN+n4oH/u+alF4TrK4SGR+LQw PnzzFYrbkNhA+X3lAU/cGB8OtlP5cuk9pNzUNW7yMeVHz1RftsrjZor1+qiD dTM/dpmWcFFzt1Joa4+vqYsLYFxl2FKmpZ1S6731ukS2AB7WBv+3s7KD4sqT p8i+RRCxQZty1OaeU3a+kX5HGy6IYxyjSf1JPZSWc0/CFr8IYqqr5lRpyytK gJrtniEzIXSJuUzZfO+jcK/MVHe2CMHbeHtDo8Mbyotbcaa1EsJQm4nJ0t70 nhLtvGchP0cYkSF1e5tnBymirDcvpGwVwSOVvxL7uIcpA90q4uERIvBh/m92 3GCEkpTwsstlXASNwXZfBWVHKfKKrseMLPZh/X4ejZrOF8rX2RV65dZ9oIdJ n1nyOCWt+FypkNR+iHxXtin8O0nRsOXW3pm3H6vx9wOul05TCtq1EicjRVEU tPfjLssFin5eHfPuRVHsPcU9eVvsO2U5XOgmxUsMqdVm9SJiPygFpunKXp/E cGihauKw1QpFX4z2xRWrA3j/aBPX5ju/KMubwhwfvTiAbC8XET+VNUrB8JfF CU1xNPXGUO6v/aUsX25nochI4N7rldHBqzSkwEe2zLNcAnXX9N36DDcSoSLT XN0dkvAKOfv45H5asnoheXxIXxLPfJijx/bRkZfRjyVDkiSxq0FzL5/RFlLi 9TuCvk0SvgkW/T7Z20iUpXRr7roktk1P6ezczUiEJAstOsOksOKjMMuktZOs cQzkHrkrBfkik8q+jl3kFf3Oie8zUjCivjI+7LaHlCzrSp3dJ411imx+LhcL iR6Ni+Ryk8ap0fMKZ5ZYicnLhtbqfGlwyv5u555kI0IPF7bpfpDG7LOVkD9/ OMirdKe8YLODmG4PtEx7ykNKEjIn6C4cxA6l7U0Rm/lIdMArqdxnB6FtKeX+ 25afCOmptXWoyQAPxQRLIETW5CK2HzkhA5pJR77efmHyiv+O5fd7MjDowZXs 2H0k+g/PJKekLE6x6rGH8B8gplPW0tXHZJE/kbPexSFBhN9ejNK5IQv+XTck xTMlSW8VFUMwlxwckziyLw9Kkxs5ClZ0tnKQyd8tdnK3DIlODsjPSZPDr4KM Yb4jskTY9ZN0xzZ5eLYp9gUKKZA1Y9ZoBx15PJedjsgoUSS9qsbtiwnyGCmZ N/BVUibRLM1WnKvyiMg4MeeUTyGmG3/m35VTQHGOD2FWAhFekJjSDlJAvT9/ TIyEGul9lhcdNKkAv6IIsQqKOrlR/7Z9s6AivhwKKHCy0SDRxYyMOY6KsP4w rhoZp0mET8YUPH2rCJmEdf2hVW2y5l0/Zb9LCRvt137JGumSXqu5g4uGSmj/ oui25a4eiZY6+oTjiRJOKNgKHCs1IKZcGYx3qZWhak9Ny6dqRIS39lhrqypD ytw26HWgMekdo3wLrFHGPkrFTxsZUyJ8jYvpaaEKCq98EUqRtiR3N/Ikew2o 4G71dgl1JSuiEsi7cdtOVRzyLuTbq29NjPUEfhrHqSLCp9r+6AVbMlAnGPT9 niqK8tWng1rsiCu/8HTavCqKReQ3T/+1J+Fr+z4NHKXg95DeW6+co4TGS9T2 RAYFK93hHhdjHEnKa7F+7h4KBo3zF1/KOZGC2xIdrhSCdk8GHUqDM3GrYrM+ zgC8/bUWL77LnZS5s6fp7AeY303IXVxzJ/McHL17tYC07nGG6RkPEnmWU//B CUC9a4dg4KQXaSJcZ1MzAbU1tbvblrzJxmWuJ0dqgf1DOvRnNvuQ8848oJ4B Hr/M9KfX8yN9rLwneunUUHZCVzA1wp+w9vA2FgmoYeFYW3SwTQApVOaX0bJX w6mhsAGmwkBSv1tI5NxzNfxIGkrZHhJC1p4JudmPq0HFVDDkrVwoORQnXHhg wyF8Y0lrK1gPJV0zIhwvlQ6hybxw+EXRcfLpiSjTnrJ/vLtCeb9SFBE8IWbw tf0QmOjn3nyViibeBw8k148cAldoCpQkT5ClPPGNtnvVwefzY7uZegyhi5D6 mZukjj3pGhc4x+KIgYS0bECxOh7HaBvyxMSTy1+kg9Sa1VHzyvlPFFcC4TCV mR5dUcdgQPhkgXcikRKV/yTioQFSPpcaoXyGhI3Ic/6O14CF/6nzO9fOkAcZ CrbPczVg6H7n95uWJKK1Uanf940GLjsZZJk5JBPbjyoddzU18UixdJfx21Qi 2XLC/KejJszWqW41NZ0nm/979Ek1WhMOizc8tt2+QGp88OufAC7n1EXsXlwk 29fU9w9za6Gs3c1i4PNlMjacWCegrAWRKN0ExYArpLG1/ZC3pRZKjdX1aKmv Evdz2nY/UrRwSNbshtiBNNLMdjhl628tZOwJOp1+J4Ok/z3HarJHG9Vqp+7p 2V8jvp+7itMltbEaupN2dUsmYSszfMjroY246EnG7JAsEqxoOivfrw33lIaE DVE5RI/zSuSJOW0srdJ5NmrnEh7qftrWLToIuf04a9vePNLVYcFtqKYDdk+V 4W+u+UTI2sbY9bYOHBztjsoeLCRrylkfbnbqYHO35OKBikLSxz3oOTemg6b5 jEdd+4pI7Lh9XCS7Ll41ULOLiRaT92GOdy8m6WK/0oudbUYlpMq2gPKmSBct WQ8zyKcScpry+Rl7ky4uFM2faQ2+QaRpXUdLfuhCzOVoK2txKUlJ89j90FkP GXRGMX6i5cQ5ojSf5qQeDvue3Vv4upwoOEyK6WTqIYmYZusl3CJfBI5p9vXo gS6KqufgZAWh1PiFTaocxtMinmNxAVVkoTf03R4WfaQG8GRsfFpNnjRV8JbL 6KP6QiKnjmYNyb71xRum+lAOCMoReVJDtE5b/PFO1YeB/56u6Z5akq0oy9e8 wQAKzWJHmzbeI4FCvscseA1gXMGvKpx5j2jt+q9mimIA8Z0KUkmSDWRherf2 nkgDrEJhr7tnI9HKXzrmPW8AkwQ7jbk/DwhHqljt+nZD6P9OlYguf0gWIlz/ XhU1ROapvFgP+0ck26z/YpO7IY5PCL8739FEFmhrand/NMSWBOXXPW4tJNs3 eP1RpxE+XB1eL25rI0G25Trm40ZwyzE0LFdsJ8VFCx0hNMZwyFHlel3VTiIu 7tu5hccYT38vker/nhAB78xiGbt//OSCw8myDnLeUVZ33csYSubyi4lSneSX 5auZzvB/+ECewUJjJ3mhTi9/NN0YobeGpbhePyMRnBGdZ18ZQ2hI52mLcDcZ 27XHz/yTMS5t8aSfe9xNDLfc2ck9ZwzyqEPimeMLIrAyYVezzQT5WaCtKu4h L15azw5pm+Cqj6uEgPArIpCosEvmkQmEUnKnG1j7SfQA7UaaLhPoBWQGqh3v J/2Sr5d63puA0S7viNLbfpL4MfDNsR8mmE+pC798/TUZlSvPLBIzhfjNv9L2 cm9J4SQnz67rpvCKnpc5cW+A/CbTTCOlpjDqiTQylBwkpumN1JV1prjV7Pf6 481BQqNuNarXa4r0Adkp/cIPxCn7Ykk8vRm4Kk+Ir5cOER6jDQcWj5tBZWVB V/XsCAn/7xVn8ykzXA2LW7fvHyEvV/MYzl8xw9TPOaEkns8ktlRlfl+lGTTE GKq2PfhMhqnDqp2+msEztNaQn2qM5NZMKL4yNwfj00oataavZHlL/f48Z3PE tRTPnOUYJ4ZOp9h9A8xx4/bL50xR4+Tvdr4/dCnm8EnX//ZFeYIc8bBrRqs5 HsqwrW3vniScbC+0qqQs0HPL5bqf5AxZWmJhLoEFXm/Z3TFxa4Z09Th9uW5k AQNFDlYO0VkSeepHwhlfC6yMH7/ZIjZH3s1ztBy5aQGuN6JtnYXz5OrTY8rb eS0R79576OvEIvEprN2yQdISW6XmKBxy34n6ifX3PymWKDzwDNaJ38mi9JXw MXtL0JxVD5zhXyJGuY21969ZIvYcdfyg/w+yJZRe0pvJCuniyRwmqj/JZyOz 9aPcVni2XJ2A7J+kYX/OCwtxK9xXufTbde0n8fwk6aumbwXjzg03bZp/kfbD 1mWsSVZo1BOwO2y1SmL5bgg8XbeC2m7J3RJtf4n1n/nvDxis8SvgscMP+XUi 8U6p9S6nNSS2fHklWLFOhlJfOOUqW4OfJrZq0oAKyr9+5IYet4Ynw2iPsyY1 lns09grMWaNMcWsAj80GpLeIM/X/sQZLwfL+8ZwNkKtm3Zy4zQaV/fUiEaMb EJY+vTS6zwYs3yd8aQM3Ytn+6ssiVxs8ZqM4raZtwvLk6Bn+ARus9Qlt20hP h/TB7pN9EzYwZcze6mFHB7nu+tCEFRv8LflvoOY2HcKqzrmM7rbFjoWX6nut 6bEcdpAUGdkCe99fRN0WLG9IWOZrt4WXHb/nXMF2pP/wments8XKBfFy6o0M kBu3HIv/bItv8tL9vB4MCHu2v/fzui02lDzgTpNkxPLF3opCJTtU+3DXaHgy YZmTz42vyg7jdw9POvHvxIp8Sx/vdXtUSlM9383IjMSzH5lfl9rDWltHqs2Q GTsHf9kk1dlD6/PqqW0XmCF2UvrT7Ct7tAtrXfLZwQLHtqLp+3QO+NQnV5bM yYpnxqc3WYY5gCnkh5yOORusCgt16BMdUEAfkrMrlw1j3x+de3DJAVnndzCe m2DDevrKDv4KB/y8l8GcEMMOmY+eXPOjDqDvtDxwv5YDuV6H5ZNNjkC4Z33N R4Mbovc9IlWPHsEML8+eK5ncuLct8eG8zxFMbJnfETnHjb7KB+pWSUcgbV/K 0mHIA7rlA8YCTUfg123bFUfNi6B4Jq9HYkexfSpcgDeSD0Xd3ga/NjjilP6s vfhDQZTdkxty3+qIrMjWwO+/BFFVROPfv9MRDmMhrzXlhfAgIutiJa8jYjm9 itOrhfBG8FmfG3HEmu1V303VwqA7uc+2N9IRhwt/9m18sQ8MXj+mSLwjDsW2 rHHs3o895i1RFWcdIfrkTFKf7X7w7bfJSbrmCFXebjWeqf1QfpP0iVLniPqy Qx+tmMTgJz7hXr7giOe333arRYsjZG/NCusvR1yv5A3r7BJH1MbYpNNUTuDI PcJMwyWBpAGWMidGJ8xk5rOdeyyBgtPaMywHnEA5dVebMVkS/UMlwYmeTtg8 fatK6l9vUrrgFusw7IQ6n8Bkyl8ZyJfp1et/dcI6/RyzgYQsZNolZpVnnPDL dyPtfUdZiK/+smNbdcLgSUWH+jZZ8Hmcl3/L7IwvVAGGhy7JgZ7UzxobOmPX dLOvkKoC3s3SOWg8dIYJe2Nh6JgyXtPPXjnY5gwqzsjhbD4V9Ar0PeN77gzX m2l28k4q6LLNUaB+74yR5JCHHcMqaH4itfvRkjOuHwykCfisitJc2+fyYi5o 3WEx6PWX4LjhLUXR6y6IiE9L/at3CO9CnBJXClzQciNt9UDgIShdZ+5pLXXB iKpAU17GIayNx7ra17mAaeVc/eEvhxAfZ3Eh9ZULgho/pvckqCOl5u/Y3GZX RG39lPG+WwP5bCYXa0Jccfti8O68a9qgVqMdjI1yRVNn24/ep9pw9rgvaBDv CnMqNl+LFW0I1gje/3LBFRHBNs3aVjooM/j9hbncFcdUW+Nm2HRRE1ukHDHi CmHuAIbrd/TQ+fXHV1VDN+z43CcZx20I754JnlwLNyTcehWne8QQ2+4N2v61 dwMzz2L9yRxDGJ5tefHomBveUr+QkOY0Qq9oah05+w+bv/v9lckYAwECp9Xa 3EC6JxkleUww9dtUUFPJHdbnppn+O2aGc6OaR/9Tc8fgOlu7/2UziHUpZG7S dYfnW4blyAYz+OVwbX9i5Y5aXXlBczpzLJKpJa1Qd6jl9Yiy3zTH78S4Np0q d/Bd+HpeZ8UCWxirXPSFPCBg3Kl5rcMahcIP1MUPeEDwTXTa7JI1FNHBzyTj gVieqqnTvDbwDPw02qfmAfF15k8no2zwtI/J1c7BAyfUnuZdlbZF4rVAV++r Hhg1bSrIqbDDX96Dbkk0nmiq+PnR7f0RpCsRTW96T3Sd/BSaxXAUB8wOC+oz eaLu3Yo/u8ZR2Ce6fGHk8sRhx8TJDVVHcf/rFbcMRU9QeHkNHmg6Irx8ya0k wBNtwxnpeSJOWJSpc28b8gRrBdtRp+0ueMZIJaf01RPHTvW5tUu4oGBKd1PV jCeuKWmyOpi6wDj/Y9H1NU8k9FWEi1xzQcXWTSNBbF7/+rnuX1khV3h+NrPj tfRCcpH8ORd9NwxdWDA62e2FezTs73see6DOW5l7qd8L2w7K9AlOeyBV89Ss 1wcv7Kd7XFq/xxMqq6ypFt+8oPHw1OoFL09kuuOZGL033LiHRth2e8Fc9YLG oIY37M+rJL8N8cazKTFFhQfeoLpz68a4uy9oX2lxnGv1xj2Ddmn7DF8cqndc //jMG7p/wuV3dfiiIeFqe8J7b8xaBL7S3e+HUo41k55lb1he3GA0suCHU4bP vd2ljkFS5ovCH60A4K5X9tWSY3BJfv9j6U8goq8lxIxXHAP97p/389iCcO9k jrNS7TFc65ZMCpAPgsThVyKfWo9h3x69/sTAIHCNKdSKjhzDCP+l8ujxIKzu oXvxmN0Hon7bNboHglEXUbI+f9EHRndiKayfQjFx4X1Se4YPiObAr5T1ULCV bNuZleuDn5bPHYS5wxDTGySgfssHMWpVld1HwqAjSnTTnvpAqbM/aGw4DIMf 3l5W/OuDAa7Q07aTx0EFeqH4Y76wmEOnH1skpC1VKi2DfBG+95rLJ0okXH38 FUQjfPHFNNM22iUSndde6/Wf9sWEDP/awYpIXF4o8Bcq9IVjMbNzyaEoCBQp NTx79++OOXyNjaHR0KX10d+l5YdKtnqbpj8n8WDoQ1uUgR/2iVnV24nGQLze QHXM3A8DkZUrEjYx2OkpIV7r4ocA3qzV2NoYDHQuMlrF+WHLouE5N4VYeKdG 9GU98IORgbQI669YJO8+Y8t30B/Hh2vDv16Mx9r0Sm+ykj9aK+advMrj4dfu efi7mj98snp7tj6Jh2mYnkqbsT+kzvjcqVyNB9u77Vzufv6gpnv2NswzAeXX r47cvOmPR0mKlpw6iXDfYVLDyhSAysaT9cU8p5G1J701dVcAtrAv+2irnsaL vYO9NCwBuBfv/4fO9jTk+dwWpjkDoED7dO/kldOgOxgh3iIaAANbJzEe+jMo Ny8o9dIOQJlwrXncrzOYz1jIbjwZABXGRt6Xi2chkC13SyI+AB6LDpsSdiXD Jj/qfvGpALzdpqxgLZOMx6WbBs6nBMAqv/uvV1gyrjTsZXHJCsDJlwmK4mvJ kBtUu7S1LgB/5wIXTRlSEMV1+ZT9TAD+09tU+NHgPF5uCEthXwhAX/UdN6mw 8xCYtLkysPRvvw873t3JPY+uat4C67UAOGWYeCjOnweH7p0H5lsDwbLdINkj 7QIeBb/8rr8vEK7FEaelQi6CppPBWdUtEA8uGHz7/e4SLG8veq55BsJ46DMj y/wllF1543/fJxDvXg5y6W++DLMjuScUQwJhdm3ShFruMoq/H8iUTQj8l4N7 vLKuXoYml8HLAwX/fBSd4JdleQVJwecoXB8D8dDyoInv7FWcP2LV8/xTIBbH 9++3pEtDmi6/Y8RYIGJJVr0NXxoKue/H9X8LxOa/c9p3LNNw//lUW/LvQEy9 Gb5Z3JyGWX69wyssQagQWvxdmZkO834665emQYgY2T2x4ngN3LKnA+M7grB3 j/b7YN1s8Nw78nr+eRAOF1z9Fe+ZDT5lecWjPUFQafodc/tMNoTUJqhU3gRh JFVgp92TbIgZ6F38MRoE7kMrV7Zp5kDJjaHScz0IWZxewaPauTBPS582lAsG dfUS86pUPs7+KPFgLw6GE78sUTtRiDIbrta+G8GIVM3XMLxciK6HaVwp5cFo 79cj/jcKwXQ68fXa3WDMuE8Yz7wqRDqzs/pQSzA4vabPDwoXoVCek7tgOBiB gVXDqW+L0Bhx5Y0QewgKHJen6rT+w7c/MZrSl0PwUjrtVL5HKeh+bwgpTwtB QsBnM9fYUggsnykUyAyBflcbo2pmKY7MXlhnzg+BXdpQ0oHnpegdymtYrQjB h3FGhm2SN3GvqelAe2cIxsfMJ5//uYnTcet7rKlD8fDYqzMPbpaDZ1PM1xMB ocj+SHlQolWJOdpvuV+CQ+EbdyE71rUSj+isrAyOhyLl1UH5oPhK2G+T6OA4 GYq+Oz1vsx9V4tqu4Zv3z4UiyU2kno6jCkx8xPdXSShY6WiLH2dUgYqsfw/5 GIq4oyeX4q7dwXB4DLWPXhg0Fd0ivjVX44Vd8h1OwzD4BMl/y+ivxgNKmlOP SRi4qo7eNp+oRtbG8hZpmzCcvbtuts5Y8y/n38T98viXo1Wd+myONei6cYDm zKkwfAooTArYUIvGN4M0hc1hUN4QMvHNsg7pMgob38kd/+fvOz65BxsQW2l0 Rk/pOH4Ox4qw6zXAe7/Hloeqx5HH45lV6tgAwpPOVKhxHDZzih0/UhswsXWJ w8f0ODaHb3axnWyA4milLJXfcWy902ZvUdSID5eEPUT+O47EpLQzNgIPwDvH /Cx8VziU+NPefLZvgtjhbg1ZlnAUO4z84I1sgtyNhKYFtnDQHp18fjyjCXpH 52u8+cKh6ZXT79HbhKCezjx7qXD0HUoNqhBoxuPK6FAYhaOHlv1RV04znAM+ 89CdC4dL7763s9daULxQcTyDJgJbVeRfOta0wtFMP/oQbQQuFTezPGpvBUft VOwMfQSqHn3gFHnbirRw4WT1HRGQCWpM4PvditPr+dlz3BG4LnYo6Q7a4LH9 aou2agQ69zHsIC/bsH9f5NafxyNw501tjcGvdtxx1MqznonAGQOmhfmQDlx6 sTHZsCMSNannOzfUd8MrMcr+cW0UrjXobjyr2IvdiqyL3leiMfHT70TUt9fQ s62jrvM5gaoqHps3PAM43rrt10nrkyiUqsq66D+McNGz1dEyMfgbNZx5P+0z GmaG9kfviEXjLQcFXrGv4NZMceiPjYWNnBF7Ge0Unpsqdf+ZiYUwh11Zofks ghPbJN1d43B5ZKT/Rd8CEmtHfkz0xmHf54+ajDeWcGnL4O0yvXgMjQXny/H8 xOie18WqzfEY4707xbC++u8PnNemDiTgT5xlUMNmKjUro+fab4sTMMzR3+Ee R6MWfuLp0sddiYiglVTKZ92kppZ++N6ARiJu6Xu90T5Cq/Y/EeoDGA== "]]}, Annotation[#, "Charting`Private`Tag$12672#1"]& ]}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->All, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.880513901664977*^9, 3.8805139401794443`*^9}, 3.880513988974845*^9},ExpressionUUID->"2cad1ac0-6bf0-4ec5-9503-\ cc4cd83c102d"], Cell[BoxData["599.877745089835`"], "Output", CellChangeTimes->{{3.880513901664977*^9, 3.8805139401794443`*^9}, 3.880513988974845*^9},ExpressionUUID->"c7fa7629-71a2-4bc8-a1ce-\ 12fc0141e1b6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"hH", "=", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "4", ",", "6", ",", "8", ",", "10", ",", "20", ",", "40", ",", "60", ",", "80", ",", "100", ",", "140", ",", "180", ",", "220", ",", "260", ",", "300", ",", "400", ",", "500", ",", "600", ",", "700"}], "}"}]}], ";"}], RowBox[{"(*", "Altitude", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"gG", "=", RowBox[{"{", RowBox[{ "981", ",", "980", ",", "979", ",", "979", ",", "978", ",", "978", ",", "975", ",", "968", ",", "962", ",", "956", ",", "951", ",", "939", ",", "927", ",", "916", ",", "905", ",", "894", ",", "868", ",", "843", ",", "819", ",", "796"}], "}"}]}], ";"}], RowBox[{"(*", RowBox[{"Acceleration", " ", "Gravity"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tgr", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"hH", ",", "gG"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g1", "=", RowBox[{"ListPlot", "[", RowBox[{"tgr", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ftgr", "=", RowBox[{"Fit", "[", RowBox[{"tgr", ",", StyleBox[ RowBox[{"{", RowBox[{"h", ",", "1"}], "}"}], FontColor->RGBColor[1, 0, 0]], ",", "h"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g2", "=", RowBox[{"Plot", "[", RowBox[{"ftgr", ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"hH", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Last", "[", "hH", "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"g1", ",", "g2"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"ftgr", "/.", RowBox[{"h", "\[Rule]", "250"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.772015536487234*^9, 3.772015647164937*^9}, { 3.7720156922710953`*^9, 3.7720158354482017`*^9}, {3.772015865737871*^9, 3.772016203880355*^9}, {3.772016260164149*^9, 3.772016400682744*^9}, { 3.7720164606114874`*^9, 3.7720171289240847`*^9}, {3.7720171620051203`*^9, 3.7720172989497614`*^9}, {3.772019515938557*^9, 3.772019672638878*^9}, 3.77201972315697*^9, {3.772019789091245*^9, 3.772019949514459*^9}, { 3.7720225062752542`*^9, 3.772022576669985*^9}, {3.772022624249754*^9, 3.7720228944521613`*^9}, {3.772023020480048*^9, 3.7720232798566504`*^9}, { 3.77202332101007*^9, 3.772023465155593*^9}, {3.772023498910285*^9, 3.772023549330428*^9}, {3.772023610997158*^9, 3.7720236613623543`*^9}, { 3.7720237124011364`*^9, 3.772023739678512*^9}, {3.772023881109584*^9, 3.7720241233330183`*^9}, {3.772024158708761*^9, 3.772024174734576*^9}, { 3.772024283053416*^9, 3.7720245044087763`*^9}, {3.7720245425369434`*^9, 3.772024742728737*^9}, {3.772024828251802*^9, 3.772024829591036*^9}, { 3.7721453812626863`*^9, 3.772145387406159*^9}, {3.7721454539131923`*^9, 3.77214548393804*^9}, {3.772151284202403*^9, 3.7721513097552476`*^9}, 3.8805104343031597`*^9, {3.8805140166771374`*^9, 3.8805141272206783`*^9}},ExpressionUUID->"de43fd0c-4b8b-41de-98d1-\ a111942fe3d8"], Cell[BoxData[ RowBox[{"978.5661528861152`", "\[VeryThinSpace]", "-", RowBox[{"0.26923500212735796`", " ", "h"}]}]], "Output", CellChangeTimes->{{3.8805140770815635`*^9, 3.880514127830036*^9}},ExpressionUUID->"d826a984-58a1-42de-9e1f-\ 3f7fcabc62ba"], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0, 0, 1], PointSize[0.02], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWIQjQJW9DlAWRB6AYwvAKFnwPgSaHwFCD0BxldB45tA 6AoY3wVCO8D4fhBaAMYPgdAPeqH8SAi9A8pvSITQETB+GoT+0QPlZ0PdD+U7 FEBoDyj/QBGE/tANNb8SQitA+Q71UPO7oOqbIPSMTqi7WqF0hwMAMr8r3g== "]]}, {}}, {}, {}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVz2s01AkABXAJSUsPQpwlqXXWFOpQNB53K9NmKWwJm1KeyZEaDMYr5p// PPOoTOx65djYtEYRhVRa45FX5dVgKRJNU1pUWDv74Z57fh/uh2t06qx7gKKC goKLPP933L353CszUnunvi0xqZcFyH+zl3mC2epQAYbuWrlLSnTTjJkvHfRK xHezMwUoU0vJVmZOOUzGnJktyxDAnFqdNxs778DWF9GfpwkQ/sx9kyx2FZqP 24YZ8QVIN8z3m4rVx/4xd7/7hAAFT2ist7EU7JtOdJFFCWAiNFjTVGiLPyUF g/0eAngP2oorHB3Rk7+l+rW1AB+7I/vW6zjDabxX8aK+AJtZ1pqW9W4wX3Bb WTrPx7d67bTy7UfQObXN+/0gH7Md+zZslnli9I+uwMo6PuZ2PXxmlHMMkF5/ tS6Xj+tPQ1y+LPfFL6p9pWlJfOy+FJDkM3wSbz4925buywfj4E0bSo4fzGq2 z4v28NE8PjNudzAAj5fqrE9v4UNtdbmf83dBaNZet+O6Mh/TllWBjUPB4KwQ Ry6+4aFlcquNdW0IasWOkQNNPFTFFC99SAuF7arp1y43eDigEuqsSQsDw0Qh b4TDQ+Batzu6a8KxWatH63MID0yDDOKYNBy8AfUXZi48kHSuvcHgOfifU3eb 2MqDodXFc8ni8+CwqXbW6jywZ4qD9IvoCGW20m/IuJhaTHTckRGBB3bGgTkd XGxUThyPD49Ee7+k8JaIi+HoxGWhTlEwnWs85HmZi6uW1kp9OxmYex1RzYrg wkim3RKtGY3EmxfPdHlwUfSxjJGlGIPofb4D+Tu5EPnS8jylMXjgE1yjosNF ersS56A4Fo9cu0d5Xzg4zWIee1TJhJWWkvhKPwdaNrrTIZlx8BdlzdXf58DJ u2pZVWg8Rjq8shJyOWA8/uZLgmcC2utfTTckcBBNYd+Os0xEdGqH0PgkBzXS IdO4tUnI2JjyVfUHDgwdeT7Pk5IQlCks1jDmoNV999NFaRI4qZJHpcoc0FmN FoH+F2DgPJHdPMYGq3JkZqL7AsImj9SpitlIV3t5q9QpGWZe3JyW39l4tf5F kV1DMmwPyN5uItnI23hqYXJbClQ0K5NzQtg4eqh1f29RClC2p/eqExvR8U3/ DGqysNNoR1TFVjaGTzYOVSaxEKvtSvivZmNPyG+1bbMsmEmsXK/JSGicX7mw 6E8glxkf8L6LRLnH/PLJQALtSqXvTsvtTpWu6gkmsMDvoY91kriq1KV/K5SA d755sqSDhGGWkHo8goD2k5HclqckLGpNmPUpBAQatL7iZhI/q9C+JhQSSCjQ +OnEQxKzk7sUzxQRKDOldg80kBB2fK92tJiA5HaQl4fcEqG6nnkpgd1/NQS5 PCDhT3lhMywi5LvzLGodiShX/xiHhwTCLHvrdGpI6Fp5XKA8JvBr3XLHzGoS 9zb8yNZ5QqCNZtGmIfe/o5RrMjEBUy/2gPJdEqmRn6rzOgmMx1PnPt0hYeo9 1sDtJqC1IjjhrNxt9r1ixnMCe9MuK0/dJrFG9X7foT4CBYVSzdEKEhXvbv5N HSDQSdHL8ZH7cFfuhImEwNId2qZ+kfxfZdoHzSECZvb0ksNyC7OTPy8NEzje lGfRWU7iP+piWPA= "]]}, Annotation[#, "Charting`Private`Tag$14201#1"]& ]}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 786.7500000000002}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->All, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.8805140770815635`*^9, 3.8805141278612833`*^9}},ExpressionUUID->"24a93f9f-215f-417d-83cd-\ 7fdb337a57d0"], Cell[BoxData["911.2574023542758`"], "Output", CellChangeTimes->{{3.8805140770815635`*^9, 3.8805141278612833`*^9}},ExpressionUUID->"7adfab6c-26c1-4579-86b8-\ 4098890cca64"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{"Part", " ", "by", " ", "part", " ", "Modeling"}], " ", "*)"}], FontSize->18], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"hH", "=", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "4", ",", "6", ",", "8", ",", "10", ",", "20", ",", "40", ",", "60", ",", "80", ",", "100", ",", "140", ",", "180", ",", "220", ",", "260", ",", "300", ",", "400", ",", "500", ",", "600", ",", "700"}], "}"}]}], ";"}], RowBox[{"(*", "Altitude", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tT", "=", RowBox[{"{", RowBox[{ "288", ",", "275", ",", "262", ",", "249", ",", "236", ",", "223", ",", "217", ",", "250", ",", "256", ",", "181", ",", "210", ",", "714", ",", "1156", ",", "1294", ",", "1374", ",", "1432", ",", "1487", ",", "1499", ",", "1506", ",", "1508"}], "}"}]}], ";"}], RowBox[{"(*", "Temperature", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ttT", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"hH", ",", "tT"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g1", "=", RowBox[{"ListPlot", "[", RowBox[{"ttT", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"fttT", "=", RowBox[{"Fit", "[", RowBox[{"ttT", ",", StyleBox[ RowBox[{"{", RowBox[{ RowBox[{"h", "^", "5"}], ",", RowBox[{"h", "^", "4"}], ",", RowBox[{"h", "^", "2"}], ",", RowBox[{"h", "^", "2"}], ",", "h", ",", "1"}], "}"}], FontColor->RGBColor[1, 0, 0]], ",", "h"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g2", "=", RowBox[{"Plot", "[", RowBox[{"fttT", ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"hH", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Last", "[", "hH", "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"g1", ",", "g2"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"fttT", "/.", RowBox[{"h", "\[Rule]", "250"}]}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.772015536487234*^9, 3.772015647164937*^9}, { 3.7720156922710953`*^9, 3.7720158354482017`*^9}, {3.772015865737871*^9, 3.772016203880355*^9}, {3.772016260164149*^9, 3.772016400682744*^9}, { 3.7720164606114874`*^9, 3.7720171289240847`*^9}, {3.7720171620051203`*^9, 3.7720172989497614`*^9}, {3.772019515938557*^9, 3.772019672638878*^9}, 3.77201972315697*^9, {3.772019789091245*^9, 3.772019949514459*^9}, { 3.7720225062752542`*^9, 3.772022576669985*^9}, {3.772022624249754*^9, 3.7720228944521613`*^9}, {3.772023020480048*^9, 3.7720232798566504`*^9}, { 3.77202332101007*^9, 3.772023465155593*^9}, {3.772023498910285*^9, 3.772023549330428*^9}, {3.772023610997158*^9, 3.7720236613623543`*^9}, { 3.7720237124011364`*^9, 3.772023739678512*^9}, {3.772023881109584*^9, 3.7720241233330183`*^9}, {3.772024158708761*^9, 3.772024174734576*^9}, { 3.772024283053416*^9, 3.7720245044087763`*^9}, {3.7720245425369434`*^9, 3.772024742728737*^9}, {3.772024828251802*^9, 3.772024829591036*^9}, { 3.7721453812626863`*^9, 3.772145387406159*^9}, {3.7721454539131923`*^9, 3.77214548393804*^9}, {3.772151284202403*^9, 3.7721513097552476`*^9}, 3.8805104343031597`*^9, {3.8805141476419363`*^9, 3.880514235311172*^9}},ExpressionUUID->"ca9bedbd-500e-48e1-868b-\ 74a6037700fc"], Cell[BoxData[ RowBox[{"200.8139771815917`", "\[VeryThinSpace]", "+", RowBox[{"1.5107451859125318`", " ", "h"}], "+", RowBox[{"0.015622353009150464`", " ", SuperscriptBox["h", "2"]}], "-", RowBox[{"1.0709001793263187`*^-7", " ", SuperscriptBox["h", "4"]}], "+", RowBox[{"1.092133481296438`*^-10", " ", SuperscriptBox["h", "5"]}]}]], "Output", CellChangeTimes->{{3.8805142183116827`*^9, 3.880514237389235*^9}},ExpressionUUID->"e3fc9bd6-ac74-4f81-9ea6-\ 4fe8ad47bdb7"], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0, 0, 1], PointSize[0.02], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWIQjQqKHKAMCG1QCOULQOiEAihfAkIr5EP5ChC6IRfK V4HQD7KhfBOoehjfBUI7wPT7QWmY+SEQekEalB8JVZ8FtScRQge0QflQdQKT oHyoPRZToPqg5lZMhdAHoP5MmAY1vxJC20yHqq+H0DlQ/oEmCN0B5T9ohdAT pjsAAN2eJjs= "]]}, {}}, {}, {}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV13k4lF8bB3BZSikhImUr2StEKeKbpOyiXyGUSpYou5lBmGektKoZZgah 1VoqtBKlEKGFKKGFQrIUSeg971+uz3XOnOU+933OQ2XvYSdvQQEBgWszBAT+ /zf6/t8LnNEBU60LS7fMlfdD1tdNUbuj6sw2f5TXClX1Q26u3NllUe/NTn1b 0da90g+Fcyi+SFS/mXnVmbQfm/ywyvhu5hjjr9n61PlFpw75Iei109JBhhjO WbcJCz7zQ7JS1r5+xmLMenBe53GMP7KfWrJ6GdroeL08+ZREAGwzSxdKj2hj XeJZLxGlAIzR1HJN/XQgY1T8M2kFadeZ2XB+5wrUcIJdH1mT9nNPZU0NVqHM +t/8FwkBUNO9+F9thB42jUxaRk0HIHpKuVdB1xDLpK7MXDwRCHWuokT1RRNU 54WeF58XhFvCykl+70wwJvFt8QGZIJgEqwjPldqAtudOMU8UguBorTruGL8B xkulas6sDAJtUrPr3W5TFB5U8j3kGATvInmXSHFg4q738k2cINyRVtM4UbcR qsVbv1ksC4bbB5OaW5s3w6R3jQDNMQTDr8JbZWRtIVX+SaG1MwyqLKMFBuXb ULztuoSFEA0K8g2WRXr/wS9jdFPzxiiMNVosUh10QW6Ik/QfmVj8Xlv5WiXN HU9zlefMORuPSy/87f4I7YGHSpPx8CkK6894x3l0egGflVeVNCYg0r5gnXba PgzoNklaTSWitme0Z4O9N5xqr0T/1E7CnPlF+2zVfNDwtU6/NfkkRgxKD1R1 +GLb/Ai7gKbTeN6ns87ooT+id/8Jisw4i1L61X9DZwPw/L1EUXl1MqxmBtgu sDyEpy0LRf1azuGA5LZiOYkgKJTTo9qGziNK8VyC+0AQ/GZ0ugT0s3Es9ISp 4odgnDq8S3+wlwMlw6PBzJoQRA+mN000puD46FWfxZdD8dVBROveuVT0T8Vu 1j8XBrnj6zzk7blQFontiQkKh86zABfxbi4GZ/Zf6A4Nh8EqB5OVX7koF925 0y4yHIpyNldte7lwn7uqZsmRcFiqhYolDHDBXdCZ++BEOHw3v5D6MsqFxFKz wD9XwyFZ/arVbSYPAmb/foZ9CEeyc6qfphoPjThY0N4VjhHO3JOLNHi4YP52 v8WXcBR8NNER1eLBxPJG84L+cBxSav7StYIHmt3uO7fGw+HGUdGNM+RhaNcj xtCCCDQHC0yEW/DQSYudEWAdAemZOypMvHho2JV0U8E+AgwVIbGl+3h4aMrx atwWAcw/elTEmwe+cH6lvmsEwk5MiVf78rDjbEv8H58IXL7n5mkQxEP9tRWC iQkRaDuxu+zOER7ut7wXvFgRAY732We7+Tzk3uu55VwVga7oiRtz0nngpg/v FamJQHkv8/HtDB4i9s564tsYAWXugr0C2Tzo/dCnVnVEYFeBXQJ1jYcckSSh sr8RKNnjvFKvmIcUAyPh1jWR2D/BvKVRz0PcDYdE6/WRiIjPa499wYO/ls+c sg2ReCga79PcwIOZcorERYtIDCSWXIh6ycM3sV9LApwiMS2Sc6a4hYd1n28Y ChyKxCN1rT2tXTy0J6v7aFyJRIqs1HDPTx6ezTXr4+dEwuFQ5djsUR6KEncE ziuIxO3WVFftMR5YMQmhI7ciId6we43fOA8r/D7HPqyIRF3fuNXLSR6OIJPr 2B6JmGzXaicRPlQGFz6nLaDBWudYhrwMHzo2LywMZWlwO/l0nsJCPtZcox4N y9Pgfj/qjIIsH9a7h4r9l9KgyFpULbeIj5DG2kx3PRq0Sq+JjC/h4/GN6HA4 0GDiJ1fqqspHvdjqoUknGib+mhhtWM5Hi0+v/70dNKha6tYpqvHRp7Rjj74n DeVz/Ze1q/MhdXaVjWogDVnzuelm2nzsDfqkLHqCzKc4dj1Xj4+Aem5a1WnS P13N5JA+HxEaDgvjz9HQNz3Zpruaj6SuB2ITPBrMll7aUmTAxy1Hzlh/Dg39 per9qWv5ENLbWt/4jAafgl0752zgQ/zUtOXJ5zTkl30eukEs11tcubWBhuvZ AWnOpiQe2Sp3KptpYHXkLuOY8bFd8m/27S80DFHigjPM+bg8XBiZKkjHaZqi YLQlH3ucbaPNZ9JRPXAOAlv4WFLSFzcwmw6pwNqLTGIOTT1pkyQdpjufvIrf ysfRf1npg0p0JDqNffKz5sPcyyybv4wOHzlqYyfx9OMPVzar0zEnIqDKyYbs 96j8jbSVdKwsy19rYMuHzzx25ZYNdAiN7mzpsuND9bD+sxHQ8Tlko9sWez66 mpqeZ1jQobrUXKiA2IU9781PGzq6fg1WHXbgY+vixJ5MNzoKenpnf3TkQzhm eb+1Jx2xn8LvGW3jo6LjyeCoFx3a0z9PnyZed1Hgj40fHXYlGwoMnPjQ0mSI jUfS8eCC921/Zz56kuQkLkXRIZDwgXOb+OL3Umn7WDoYspsyJ4gXF/1UuHyU jr6nnurUdj5aJc8tdUiio3nA9WoVMTtUV33iFFnvu3pb4f/4mLs2UNeRQ0dr Va7EEeIarpjhXy4dWUPuK+8SsyZy111Np6PFWD5siHiqrMd88hIdZ0xtaLt2 8PHDYs9/ObfoUAiu91m8k4+8q9OuzqV0/AmVem5JfEA0w3P6Hh3712X9F0Tc Wdfms72SjmPVxr1lxOkraAH/qujYvCFz+COxy5mFwXk1dPQ0ji4TduGjycmZ IdBER//BFbM2EZ8sHj6S/5qOGTt87+4m3rrwLLXjLR3XFK3ZDGJh2spjM97T Qc2akXaeuKKt/mRBBx3ubQ/q84ijjQ8m7/xEx/YvuZoVxEYZs1MEe+gQEfh7 8zXxr+lr/MJeOjgnOr27iW/uscx0GaDjZ+CxzaPEvm7DEVVDdGwxGAgUdOVD eXu6ve4vOsy32P6bR9xqt0Ut/TcdepyGP7LEZ7aMTM36S8fZ0AwPZWLLjRnN odN0yGZ+0lInnl6/tbBzBgPdxjVeOsSlBj9ZNiIM0JppgrrEgSsvuN8RZWDE U2mePrGqhpXBsrkMLFj9Nf7/blf5JXZmPgP/SU/u0SNmL878PCHFgNKKpLyV xDYy1g8OLGSgbH65pxax4PzRc68WMcAtrYpRJb4vmuVvqsDAOlbdLAXiEEEb 8zxlBg5uEphaQKw5ObpooSoDHurJHrOJu0azhuPVGcivK9CcIvHgDtrUDmgx cMKA6TVI7Ng7luW6koHXDRDpIp71OZv2VI+BpUFyMo3E5e22jnqGDPzcsS75 IXFEy2/1DCMG7mq9oecQd9favQ0zI/uxMEmOIk5/Mn69y5yB+p6Air3E28su HbW1JPOv6nDfSvyk6I+hqh0D5qN2HeLEjLzL8846MuApf/vJIMkn/csO3X+d GXi5Rk22kTg79Qr7tRsDVvqis4//P9+SHQPMPBnIE/14bR+xxIm/m/K9GDB+ mlZiQhx7ZNtPpi8Dw4fPKPaRfF9Dm3z+4yADvGuGjPL/53/wtYtuhxm47sLd nEzs4T21TT+CgSH7EB19YundOZoX6AzMWe22VYC43sV5xpwYBrIbOt/Uk3oy ts0t+kgxYC+UBy/iRav/m5+czIDbA75fJKnXJh2Br5Ns0l79QmId8TG1/HJf LgNSKuFaf0i9/1404xAyGWifKV0aRtwsUFg/WMDAvw3bDF3J/ZHcIJxkX8PA Y9WlYq3kPvLNtXcVrmegOml7Ep0YLK7G/UYS32N31y8i/rFOp3r5WwYCzx/S dSb3me0VZ+Gpbga2Ci2n3yT34azoi0fyhaIw841Zg6wVHx07vtt5zYrCwx8m Senkvi3VW6MgKxaFiUqZGCXi/V9rHzClyHfl7HeiyuR+fuw0PO6qEgU3ZZsn Ypv5iNFEqKhZFPa035c/DXK+wknm5eZREI66FDJG3gOdzteSYZZRkGjKn+VB /I7tU9RpFwXxj5V9quT9MBI4M1DqHoXoezezMo35+NnywcebEQV5urT2xjV8 +LGi3B+XREG5+0fzWi0+TH6/nDa6FwXEqcdGaJL3yV8j+8bDKHCvTOTf1uCj 2KG5O/1JFEy8Rc9pkvdyWn7V4ciXUbi1VyhNiLy37Juf4nUGotDVJTsZpEDy ucPqWopqNNackBlePZ/Ee1uW1TyNaHCXbWrfJE72XzXWT2lHo+VwiYvTPD5m 513SDdaPxsXZprMOipH9hk/ds0E0NBa92XJiFh+9YjfrBdyj0dfoUpH4jwfp dXIj/uejcX/g90joDx54N3coNqWQ9ls/zrsP8KCoxbE25EcjaD3j86bvPGgs lrr0L4vMv9HyrHgfD8ZTYtvZ16OxXuvESnY3D3sr/5WU1UZDwG7Rjz3tPNyw +kqXEIhBy6JYaeFaHqzdSmeUBsRgZv9qnzMXeBi8fX65d1AMhi6lr5pNvt/Y 84KtpMOI9y5nx6fx8KFCOzkkKgYG4qUGh7g8BKlnK69KisHpsde9a87xwPl1 wiznWgweepi2HE3goeu0Vwz/UwzCfpcEqh3kIfLJ3D9HXI7gpGflSbY++Z7V Pn472iAWn142tDc95OLeQIdWtGQcRDOrArkruVDafNLjTVwcLOQyc8KyUlHn tP7F1EAcapaz3WZKpiKUVaV7YH88pNmnDVsjUsAq+Tj67VU8gk40LDz9g4NW /tPJ6jfxGAo6HO76nQOduFyhay3x+PLJvHN5HwfN1sGS3u/i0eoa+aGymwO1 LoEVHz/GI8xt1pOZHzionqO8v20oHjUZx1Y8q+Ngzh7PV7XiTHyndiZp53Hg udm8LUeCiW9pKveW5HBwS0utK1GKicnFt0zmX+Vg1+jAwOaFTBg8SbMZz+ag IClm9mMF8ntpgbp3PA7sS9JxX4eJGsfGA5+Pc5A85/31PGsm9n+vmlpwkIPy kVsTcbZMSLeqqW/w4+D7uyTLnfZMaIxUfPbx4cAyf32HkBOZX2yu8uN9HEza 8Od5uDLhcmft1+PuHBw45Row35cJufiWKl97DtZLtGqGJTBxt0MmNWw1Bz7j N8KtE5moT5lZ90aPA3ZXYqXycSZE9SI61+hyMFi01vXFSdI/4cFtgRUcXN6W ekyNzcSSwEiHfDUOxM/v+Np6kYmTZfmUpzwHn2WaL2+oYEL5itg5eyHSbr3a 7VclEw9l8wxmCXJgdCR5fv4TJroEOx9VCnBwuseOIVfNBC0khmsyzcb6O88c fr5gImu84ZTVHzbOudydyHlP5pOz8348yEbZyYVFuz8w0W6mepb/g41vFWHe CzuZMCoufBo2wIappl4T9YmJopc011Xk/8G+P7lXPHuJt1N7ynrY2JiW5ij9 m5xPd9xr0w42Ahr/iNSNM2EiNFpo9IGNFCGXB/ETZL/08RKDdja+H5RWG5wi v98Su3P1Oza4Jqf+1gpTuNsbqmjTwsbQhyNXY6WI95UW9jSwsVjqw6410hSJ j81BYWJLS2PJARkKx4rnM1RfsJF+/XeU2yIKyo812Afr2NgaG7TNUJkCd8P7 PzI1bGQq753sW0GBZfkg8UMlG25PzxQ+W0VBelQ4V5JY2r/M86IehYLPD65v rWAj6bZcpashBffiFaGPytmIsGxMqDGh8J3F1G96wIZe/+Say6ZkfLmztYuJ v5/R+hYLCuxVme7+99nY25ZgvdaCgklgFlPiHht2ASRtbShsnx2vEl/Khqik f0W8HZl/YXf/lxI2HpekBns4UJAoXPbchtjo38hraWcKcjS9hqXFbKiey+VS bhTw+9XWsZtsdK55a7XbnULXhi0zQ4n574X/rvekIKBePDhSxIbE8j0eI14U RGPTnCZvsPH3zsKlXn4UbD1bCg2vs1HqbvHa5CCFCmNT5fpCNoJmhLDkAikE rBZ8603cY/2ipzGIgkHLF4VLBWxkD06k5odQsAjULLYkdmdrWCWGUdg/JpM2 kM/Gqw9UvimNnE+pqc9m4lPMm+7yDApzz+c6jeWR81DvnDcWRc7nxqK0POLy oPVBhbHkPH6HOCgQ02V8VY7HUzh5/Hzl+1w2DO5zXu2nKKSraWRkEOcKDRss SaTQ7qqRoU28P0ex5/cxMp/8m+rfOWwo2tmmvk6iULwuzLeauG2YvvXGSQq6 J7WZfGJ2yrU/SafJ/qYV5IKJHYyb8w6cJfmVErTChnhOl6C7+TkS/3CrpxrE T1m68xTZJH6vGz/NJo7T9Cz/wyHxENY5/uMaG8YNJw43p5LzjUh80EI8FnJP +SaPwlDR3JjHxDdlv748mUbyY8fXppvEAQ+lKd8MClXLLO5fJlb3MjewyCT5 NOhokkb8SSSoWymbgkahiRuHOD0vI+XvRQpNvmtlzxPvdKjb8vYyWZ9NSASb WAKxe89fJfm646Uoj7hGd3WMQw6FaNV9dVnE8SpfU8XyyHjmTyryiddLpd2q zifzSZ/uv0c8IujwgiqkkNW2x76OOP+n4DezGySfLrf1dxLv/1IqOFlE8nNf 6rPfxEua/RXu3iLrb133UYrE481TRaOwYgp7LnqZ6hGfKn3lpFtK4axBUZcT seW1o4Hf71Bwaa9+Hkk8nbr+WM49Mt4jm3+ZxKXHflzc/4DE511nXB3xYfrF MuUyUm8imk4TxF1uc35yK4gVQ354kfPm2pTP++8x6T/6qJxPvM0kREOyipzH dc/eFuLHCu88jleTfO5d7eJK8okhfpq2uZbCG8VH2ZnEq/9tPD+jjtQH38Kx l/hyV24NvYGCr9Jwz1GSr+4vPT4bNlG4nBP65h2xzGPJ6eGX5Pfh1/T0Sb4f vURf7d9MwXHt5839xL4HrC64tVOgJSuoJJJ6Ut45dXdhB6nXuJS3Y8RtW26+ ftVJ4p+yc4E/qT9rzUWzbT6T+H45tXwXqU+d799CjftIvAonBXxvsfGlPf30 735SH0c+rfhFnPHCMff2ADkvyY5R6jYb4jfudmgPUyhKm7f3OrkPhoKPWS0Z J+cxA+Mr77CRs9dkf+sfitzXj6xbib2ch46w/5L1lLjaJ9wl9WngUjz3HwWd TYOhfeQ+Kv6trjQlwsIbc+ejHx+yQYup/vVhAQu+Cv5GCU9IPQQf3p4sw4LA MkGPA1VspO2XLbaQZWH8W72RzVNSvzY+ofnyLOTEZigrV7MhIj9rhKbCgsa2 ur9jz8n7Umo5uGAVC7oNAka7XpP7K++HfbUuCwUUU4L+ho2SjJTrDH0W5h5W quM3s9HK6gn8aMiCrWn8cO9bNpScj36/bsKC6OEf9nfIe1Ew+LTXypoFufXe NyS+kvfoc6DVlA0LNc+9hwK/sdHYIpNbZMdC0IiRWWMvye8yb1/ZbSxkOXhJ XvjOxrqTIl+/7CT7+7KqOWCEjWcam7/EerPQul3J6iV5Hzu9qjpK4sh69OXj asl7K/DMeP1pJguTDtSGt0s4WKp1m3OAxUKY+WWtPkXy/o9k28oeY6Giu/Ci 0jLy/cCMvU87w4KJCjOoVpuD8UvrU4wvsCDcJ/hwsSkH8qK3hhdkkXhul1x5 BBwYB2jafc8m+3n7YU6POQdHDOSEM66wMDQ7bcGzLRwIPx0Nni4g8RayfV69 jQOJniK7ygcs0IoomeYDHOhba+Tyylj44rpx9Az5fnG+nikc8ogFx599UY4B HKREnH6w9AkLFuJrTn0K5mDJrABN1nMyfq2rlk0MB5oa6iJb2lhIPy+fo8fh wNw/42H9GDk/rbn3DtVy4CWfFp8wzsK34Mj9efUcxD3nWppOsGC0ZY9PfyMH j7TYTTemWJCIPxIX08KBSX/Sl3PCCeBW9Ll++syBYQBtrqtUArIivaJv/uNA 45Cze/eKBNyliVlGG6dgi+I2lQurEtAlU6fhZ5aCAw32PTv0EiAgtrtu16YU XFlpHVRjkIAhho2Hk00Klg6ClW9Mxn/jIZmwKwWLg1YWBFsloFUy+6pQTArE Q2ZPTu0n47XtkY2pSkHRjr9CfQdI/4S9XbdrU+BkPCDW4kvGjzjqNtKQghTh l4uvB5D+ak7hR9tSoJTKNfYMS0CQgnSd2GAKdB+qR5VTxJKvdc4sToXzTMuJ IxcTILrQs5LPSMVY31rBg5dJe0mn2Mu4VHAbNefsvJqACg+tS/MTU9HOnSe/ Ki8BLhlDdVfOp2K/dvO6zpukXftg8prCVEQ47qebVSZAV9HA+sfHVMgZ7ojX fpKAnPuud/K/peL+oq3HZZ+S/XVvrQweTMX0J23eYA2J57o7j2SnUpEY/vNu ZlMCYHLqV50cF1pu3RUnXiWgKfh6c4MSF/Wmb2si3ySgSFgt+p0aFxKiD1od Wsl+Uxkr5hpycet7QZfxuwTsCT5prm/CxfaXF76ptyegxs1Tz2sTF2MlZ4cW dJD+h8X/ca254PKZ4/86yXotHxa1bePifz4WXMY= "]]}, Annotation[#, "Charting`Private`Tag$14774#1"]& ]}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->All, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.8805142183116827`*^9, 3.8805142374204817`*^9}},ExpressionUUID->"1cad33bb-0866-4e97-880a-\ 1a868ba5bd32"], Cell[BoxData["1243.2306144651404`"], "Output", CellChangeTimes->{{3.8805142183116827`*^9, 3.8805142374361057`*^9}},ExpressionUUID->"ef4a99e8-eadf-4b6a-810b-\ 383d548563c6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{"Part", " ", "by", " ", "part", " ", "Modeling"}], " ", "*)"}], FontSize->18], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"hH", "=", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "4", ",", "6", ",", "8", ",", "10", ",", "20", ",", "40", ",", "60", ",", "80", ",", "100", ",", "140", ",", "180", ",", "220", ",", "260", ",", "300", ",", "400", ",", "500", ",", "600", ",", "700"}], "}"}]}], ";"}], RowBox[{"(*", "Altitude", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tT", "=", RowBox[{"{", RowBox[{ "288", ",", "275", ",", "262", ",", "249", ",", "236", ",", "223", ",", "217", ",", "250", ",", "256", ",", "181", ",", "210", ",", "714", ",", "1156", ",", "1294", ",", "1374", ",", "1432", ",", "1487", ",", "1499", ",", "1506", ",", "1508"}], "}"}]}], ";"}], RowBox[{"(*", "Temperature", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ttT", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"hH", ",", "tT"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ttT1", "=", RowBox[{"Take", "[", RowBox[{"ttT", ",", "11"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g11", "=", RowBox[{"ListPlot", "[", RowBox[{"ttT1", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fttT1", "=", RowBox[{"Fit", "[", RowBox[{"ttT1", ",", StyleBox[ RowBox[{"{", RowBox[{ RowBox[{"h", "^", "5"}], ",", RowBox[{"h", "^", "4"}], ",", RowBox[{"h", "^", "2"}], ",", RowBox[{"h", "^", "2"}], ",", "h", ",", "1"}], "}"}], FontColor->RGBColor[1, 0, 0]], ",", "h"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g21", "=", RowBox[{"Plot", "[", RowBox[{"fttT1", ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"hH", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"hH", "[", RowBox[{"[", "11", "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"g11", ",", "g21"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ttT2", "=", RowBox[{"Take", "[", RowBox[{"ttT", ",", RowBox[{"-", "10"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g12", "=", RowBox[{"ListPlot", "[", RowBox[{"ttT2", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Magenta", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fttT2", "=", RowBox[{"Fit", "[", RowBox[{"ttT2", ",", StyleBox[ RowBox[{"{", RowBox[{ RowBox[{"h", "^", "5"}], ",", RowBox[{"h", "^", "4"}], ",", RowBox[{"h", "^", "2"}], ",", RowBox[{"h", "^", "2"}], ",", "h", ",", "1"}], "}"}], FontColor->RGBColor[1, 0, 0]], ",", "h"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g22", "=", RowBox[{"Plot", "[", RowBox[{"fttT2", ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"hH", "[", RowBox[{"[", "9", "]"}], "]"}], ",", RowBox[{"Last", "[", "hH", "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Brown"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"g12", ",", "g22"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"g11", ",", "g21", ",", "g12", ",", "g22"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.8805143082152243`*^9, 3.880514337297948*^9}, { 3.880514384421527*^9, 3.8805145401718893`*^9}, {3.8805146018731546`*^9, 3.8805146048887*^9}, {3.8805146364502373`*^9, 3.880514885341835*^9}, { 3.880514939574575*^9, 3.8805149934323225`*^9}, 3.8805150350716963`*^9, { 3.880515071117485*^9, 3.880515076304826*^9}},ExpressionUUID->"5ba2dab3-83c6-407a-842b-\ 529a84adb9c8"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "288"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "275"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "262"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "249"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "236"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "223"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "217"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "250"}], "}"}], ",", RowBox[{"{", RowBox[{"60", ",", "256"}], "}"}], ",", RowBox[{"{", RowBox[{"80", ",", "181"}], "}"}], ",", RowBox[{"{", RowBox[{"100", ",", "210"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.8805143928431444`*^9, 3.880514415217472*^9}, { 3.880514476080068*^9, 3.8805144973919296`*^9}, {3.8805145324689956`*^9, 3.880514540703124*^9}, 3.880514605716787*^9, 3.880514638778288*^9, 3.880514678636465*^9, 3.880514726255903*^9, 3.8805149166690116`*^9, { 3.8805149625895042`*^9, 3.880514994666662*^9}, 3.8805150769298058`*^9},ExpressionUUID->"f5922d83-e0bd-49fe-9d93-\ 91da5afc4147"], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0, 0, 1], PointSize[0.02], AbsoluteThickness[1.6], PointBox[{{0., 288.}, {2., 275.}, {4., 262.}, {6., 249.}, {8., 236.}, { 10., 223.}, {20., 217.}, {40., 250.}, {60., 256.}, {80., 181.}, {100., 210.}}]}, {}}, {}, {}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV13k81M8fB3AK6ZuE3EWScoSwrqR6Vc51JtZKjuyuY9exyZ2ECulQUglJ ESqVJIoIyZ0ipJSjQ9IhEh3oN79/6vF87Hxm3vOemfeMlV5BDqx5PDw8duSf //+vmDKbmy1fu0n9yqXSw0uDUS6ouiLA9+Jmm6irkW5LglEbcTNPxffWZplf DnoGi4LRoLXHR8D34WaDjKST3+cFo+lYp8VPn6ebD2S79kRN7EGz0cH7X3wG Nh/cFnLha8cetJzq2zPiM7ZZWqdjyip1D6hVC2yHff5tHm9df/uT9B48Way/ kM9NBO4/DlRGq3PRaSWW3h4tgt3bbFNtVbnoPfJtzfksETBzSz0V13Dxnr/A RPO1CEois949XcHFzKxULN1VFPriQvu3LuVC7dvvqSIXMVgMLLu56GcQktqr 3jvRxPHaKqhiwZkgbE0xrSmwk8Z/vo49uYOBiKWWXu0MlAajkWvr2heIav5V p2ePS6PMOSRUsicQRtE83jvapOEW6dl+rjUQFL/KRf8sZJDoMZPdUBYIpW3a zrStsrhYKLWj63ggBKaXf+PTWw4HK+PrRZsCwVr3Z7H2YgXEUd/n6F4PgHVf 4hVpeQUId4fLheYHQDdRYiPPOgXwrW9run8pAHwDWv5P7RUg69tYaJcegMsn fFoC0hQwFeYQeeNwAAa+diVcW7YSjtIzpVq7A+BSdOvfKjVFnP8eZWC/LACg bzy3aIMihq6+WiohFQAVvlbNH1aK0HtoKtAvFoBfrsNudQGK+FI6qxr9XwDO LpJ74HlbEcMVIrRPv/3xnJ0cccFwFQZ25CcmvPSHjSprXNJcCTx2630bMv3x 52ho5RuaElZ3KE9Ypfuj8Nvhw3neSjAaO/2jK80ffKX5MjoJpP3PeTvHj/uj YtPIFpvHSjD1+5mzI9Yfaxw5qQe3rcZR4SN7q1j+4Dmwh/J98xqsE6mdVqD4 4+ZQ3GyZ3RqcsXgwX1zLH64mqY37PdZAedAh6D8Nf5QtvOO66MAaCKav9+JV 9od/2uTBNdVrMDymeklqmT9eXg3v2mWsjJpJxa738/1R0rU/tNlQBVVKcftn XnBQeJjp9dZSBafE11xe2c1Btr6V3d+dKujm/smmdnKQnC6tqrFfBWr355YX tnHA2HXn9claFUgHTQqdquVA/P3INjpVFXORLe0yRRyE/dgh9tFVDQVuMvb/ DnLgn2f075+/Gt5LLvW9EMeBl9PKL9IxatjXnKe3+QAHtuXfHlNz1FBzQvbr 8SgOlPcdibz5Xg1WaTM3nPdw0Dvv4WBowFqwWO77Mj042CCmdovvgDpUCjot Xm/ioJ13Z/OTFHUI8Q72Thtz4Dl+5N3ZHHX0G37rldzAwaFnn6RU69SxYXGG kocBaX/iaqwNvwY+7/neIq1F2i9SdTh7VAPNFvr0dYocTPyh+3tkaSCo+vPu OAXy/WhSgsoNDTip5jb3yHNwtXmkoqJdA68Mjtw8uoy0TyxcNSCqic1rdG/K SZD2fCo/ldM1Mfim7OCQIAeSk85Lxgs14fht6p3vApLvd4mqFfc10SrTnvKD n4MndR/drPs0YViU/lhsPmkfV9DAlV+HBUdHkiJm2bg6uyb9ft46nPvH9Rmc YMPnb+qFK3QtsG7tMpAZZCPN9sujSE8tbH3aJyg7wEbNJdNRG18teJ6hnZPr Z0Pa4pf+VLgWnu21/aj+mo2mNLdnZue0YGKda+Dfy4aqpsr8kW4t5It3V/p3 sEGLi1N98EYLmabmw+nP2IjvemV38oMWEvQ7qxqfsvEq6niW4U8taPxZx9Vo ZyO5cULviLg2mDafH0u3svHZs8pXbYc2rtXE7Qh8TMYvlUyZ26mNc7RrPfX1 bJgs4N7t9NKG7fJHU3LEWTcU5+0L1sbTztsLe+vYsP6TmNl6ShvmV766cWrY iLAZqr14XhsJ5vOLeh6ykZdjNLL3kjY6z/adMCGeMfuqu/y2Nl6evyesUs3G jdMO7f7PtDF72PHV4gck3uHrk+gl7W/dvn28kg0BI/5lEoPacC46LSFC7D5Y 7lM1po3l7LqY5RVsCGvI8Qov0UGryqP7O+6xYRQbpvxWUgfKL9H7sZwN7+dP bcrkddB9+GdUDHF1ZHyGu6YOZjf2WtwpYyOo4SPllo0OzMNMPhndJeuBIo46 TQdS13sf9pWyIVLJzb3qroNfl37HHSAuvvVbLC9IB99yEh49vcMGj1o1dWWE DgKMTRBNvD0vPj47Vgc7arVz1xJPpC+aSD+lgzApY8nTJWxsXfpMVTJDB7Sh glVWxKePp+0+fVkHfglDogLEuvFyHcfv6CC5iX700G02Ds0MCS56oIP/2t4u tSDuDstHUr0O1kQ8DxcmDuOsK47v1sF86Zi23GI2Gj78+PjvjQ7OjcRVBBNL ed5bsX9YBzPLYmNMiH1fRTv/+aaD6hfLpWSI7zluSQmf1sGp8b/x32+xIfiU v3Hynw5Sx2pqWojpli1zewQpSBZc8rSAuPDRCf0xEQq0lI4UJRL/3rgj0F+G gqi+Dmc2MfWeVP6nlRQ8izj61I44Q+f1G281Cjx/OYsZEo8W5Ui816HAQ/Cl /CpiI2WWze4NFGxZWPxDhDj5kurh/m0UiAnHpPAS9y379sDVmoKbr999n7zJ hvrZksleRwr4vsVJfiaOFglXp7lR4B34a+4dcVvyBuZzFgUPN34sHCCW4+fJ sg+kYGTsq1g/ceCB+udPwih43XZ9w/9/r/6dtMjqAAWLOh6u/P/3wiE225oS KTh9o+nRJ2KPb6L7TE9ScKKJqfCDuNi3p6QunQKHjTr6/4h53mWMbr5EwZ3X 7fOFSbz2bh6KVVcp2K7Rm7iC+NKLVTuNSijo4nyuoRBPbB85VV5BwbqjV25Q ibe2FTXrPqJgXDfXmkmcaraHt6SVgv3NsVmxxG9r9Nav66LA0fNV5kXig3er C1U/UCCdxM39QNy17uBg/lcKBPrfFQqR9VS6Zi6tNEVBYw3o+sT12c8S5Rfo 4vullbdOEYvLnHmYuUQXcyqvdjwiZp12mZaW1sV92w9Z08QCSW+9l6rqIijG RdKX7C/avILsk9q62P5mclsecUE0p2exkS40D5uLvCO22DNpKmilC69dIQd8 yf5N3imwetZfFyrPkk6mkv2/SUto6lOILlyTwyX7icf5xRp7onXxcZ9e31py nui35fyKj+ni7sTh5e3EqwX1bjCKdHHx7CZ3DXI+e98YxdiX6kLxVUBFMvGx O7Db+EAX7CV61qPEE+7W45JtuuiY+ryomJzvmrsMvZbPuhhOPtPndJ+NkKN+ AuU/dNGdvKK+nlh5d9CL3L+6sO6c7dUj9eOE0L7I/Yv0MNoselCe1BdXRmqV 1lo9rPkqcG9hFRtTIrWm59h6oK8UzDGrZePacIPkoWA9zM2I1r0gdnvQ9pEb pQfzVY9n2aQe1vv0HqEm62GFZVjVuUdsnKoeezJ7VQ+ugqs2/tdA9q+/PI35 SQ9KLsL6DqT+Dm5RUt4+roeZwlQWXxupB1Jqvzb+1kO+yUjmPeI/dXoZUgv1 0R1vJa1M6neTjE1/i4o+nv5+rLmc1H9G4z5vbV99NNFzm1gv2GAar7GdCtJH nj6lmELuC+/bz/Qqw/URHLciYv5Lcv4zV/ObJuqjRflEXuErch6CnubS8/Xx PniL/UJy/0RJrRo68F4fn15ETSl+IPvRp8W13dMAo7pSp29Nkvvrdci2074G oD/9j1b+k40z21espXMNEGqh0F0zxUb6hpA/QwcMYCS9cv7LX2xkL5E//zPb ABTG4Tk5cj9eK9/Ts/yNAVw8O4J/k/u0doHMdo6LIWRaWFbfpDkYztWkvtxt iNkq291mshwIwWSbOdsQNe1VtBxyf9MjgvRW7TOExkLLVy7kfh8beSzTl2UI s9pG2XerOJBrCX5LHTSE8650fZt1HEQea9ur5rMeGQkXokPNOdAWjT37KcQI cnJDs3XRHFQIvlBpjDaC8XHNad8YDrbyaFbmHTJC4231zSKxHDiO9Q14pBnh 3IBrmRd5H4U9MVDtuWOEpbt8V0glc/DgyFhl3YQRTpYptT44x4HFPI+hTO4G xPgpzU3cIe+VHxvVbf2N0fCnwLVhjINL2Y+XTx/fBMEUkTNRMf64c8Kor9MB sBYYsJuUDEBIxUb7C9ZbIHcjePEC8t5+2HJl4ojrVvDznY+Psw6En/n6Kj/6 Nrjfa/NcNhCIrELtuxy2CT7XB1uvDgnCqR9VcdxwUwwYGr4Kmw5CYOfJ3bv2 meJnmHjSpt9BsL7N2GJxwBSLfy9bxf83CAJBC3kVEk3x1pFHLmUuCNGjjrFP z5pCq914fus8LryHPsdolpkirlI4uHwhF8ZPZaK/TJriS2/GxlVSXMjc/OLa +8sUexgXBH4STx17uKF+xhThu7sNGqS5uE1l/c3kM4OwyuoOb1ku1jQUR1mJ myG9duHzHDkuRKvMI69RzKC491rJ9Couhq+FhvkGm+HazseDGlpc0OTm+gvD zBDYRev8S/w4JcH8U5QZ3vu78jZrc5EXck6afdAMK4YuSuymcOG16X4FJ80M 87K2Cybpc9HfMTMXWGaG6Gsil4qNuej+dTAx9I8ZxH8en+9nwYUJR+j73Tkz jLMHLslZclH6Jo0+Nc8cQjGUgA7i1LorquGLzPHE92OSvhUX9scaWyOWmyNv 3dWGKRsu2lYsEoneZI6Lz59/td3BRb1Zanp8vDnSE/Yc3enGxQfvyidRCeag b31R+olYIPH9vL3J5tDMmJKOcOfColE/gJFqjuKxoZRUD9Kfed8Wk8vmiHOe 0qjezcVzC6XP/HXmSIxW6x1jcfGWWrbxCK8FjnbpuVQEcDGfMxAcx2+B99aT q7QCuVA6KlgYudACg029cleIvVt3irFFLeBeUnzhWBAXo1b/hqkrLVBx68ej 7Xu4mLC2OCm0xQJ/H5q5l4ZwwWv36m1KrAXu7U0P7o3ioqnaaVXIIQswGxbc 0d7HxUnNDgY9yQK+rfEKycQKwk3vFU5aQEeZHWcYzQWe3B2+fdECs6E3HY7u 5yLW6tTo82oLeITajQvGkvlWCq29V2eBkni5AUdikbVJnKwGCyjnU39eJM75 78AXZjvpX+LieUocFzXN/t9+vrFA+pB5hX08FzwWFhNSsyS+fCk5r0MkvvJH OjM8lujP1AvKIT6pvHnvIJ8lpulbPrwhVligP1koZAl5CWFj2mESX8OqqfXL LXHWevaYcQIXgvoX9eUVLBF4UnB6L/GzK7Lh85QscfnSQPw1Ys/Dor9a1loi /f77OfFEMh+Tf79dN1jCWpI3boDYojTKCJstYRi4YmJJEpmP0lSU0jZLvBqf it9MnDP/698vVEscetQ2L4u4pu7V7P6dlri5kieEeoSLJB3aJi93S6SVdfbt Jba/3BFj5mWJxa6uu7OIB+Oa/gmzLdHz6VT9KDHPljLenEjyfUL5++hkLnaa fGzp3W+JiVQJscvEpebSaaLxpL+apzoNxL62UWsOJltiUf8Km0VHuajbfn2s 8oQlNF1kzdSJlzu9vjeZSvIhZKRtTdzhusnKO5Pkc+7u6yRidY8g8YsXLVFy LDLrCnGCV86bF7mWGP2uZVNLbOQ3j2tZZIlNRTaxP4nT/Cnr44stIS4rN0/4 GBffgpjzKkstIXKsdO9q4sthDWnqVZYIi1u6ejvxTOS0G6vWEhkfzZksYtp+ FeXsx5bIkpJPjSAujnX53tNM4mPY3Ewm/u9Q8v0l7ZZ4HX78XiYxM7Ey3qLT EvNczxZfJ65O/mIV12OJ+YEKZyuI956y7Z/ot8Qe/0yVbuL2tAMFa99ZQmxg rmuQWCW9mMv8aAmzk00Bn4njM4fWX/hsCcGCkolJ4tfZYvN7xsj4V8IZs8T6 l7e1CU9aguvX+ZDvONlvV0LOmP8iv6+NWbCIeLTwinvsjCWyY/WNRIhNinqU 7/NQ8Yxe7ixOnH1rwfg4HxXWPFUeUsS/Sgwr1BZSob+Cz0GG2KHM7yBjMRX1 9y01ZYmL7mdYZ4lSwdWymvz/7wJVrRLdElQIoyFXmtizZqZ/sSwVv3kjjSWJ Kx5pFJrJU7H6y8pqMWKJRvc9BxSpsO04oCJMzG1JMbq3hgrJoe37BIlbntTM H1ejQrHQuYyXWKljvE11HRUbRba//E3mG9OleNaLQkWs59y778S9L3Z4ZBpQ 4b9RoWeYWKfvkErXBioEr4bf6iM+1n93XAhUiM5vCHpKPDw0XGFqQoXQwieS dcT4IHUoxoKK4B7bvDvEGSMWNuXWVLS9XyydR2w7dm1AxYmKrDi723HEhRN9 hbtdqMh/Re8JJJ43JRSc4UaF2H83BncSl88E8gl5U2GYap63jliMJ+eJCZvk 97qUmzSx//yOs/sDqbi7zOzPP7I/Ff6jqI6FUfH3fPdgK3GS1LRNZyIVDeKR dNr/929T07u6o2R+W8d3GRJfjMyIvJNCxaMXA74yxGV9G6+knaPCd8L/bC85 Xx8uHpqhFVBh9CtomxXxd3taqvl1Kr6F1sWsJp7hVVExvEXF103qNXPk/Ioz W3fIlFNBych0vEm8VUXsel8DFepTDg95iW1fvkNbCxXfqY1ruki9cEm+2/Og nYqZTQKnrxBzv9DnZfdQSd3YFmlKfLH4oovnMBUdrxkRkaQezRhqCH7gt0LX l+QVJaTeCY7OXeheaIXVlzm1IcRLM59RGhZbQf7GXZY+sdrsXo8CCSvIPJ4u LSP10qW2osxvtRVO3vBiXz9I5mtpwfpmYgWJ2m1LWaQe1/2R+dtvYYVN4qWt UsRPrn8++dTaCrX+EYeaSf1+vzjlQbGjFYR3x0+pEi/t7F66l2kFz3v2L/tj SPw7GXXTB60Q+DEuVprcF8IXRweNk6wgq5fmcIfcJ0Xv9vyLO2aFhCXrp6yJ P/rHGgudsUKvQfntaHIfuR+4UKaQb4Vr3QJTTyK4sM57cc2yyQpzvD7nDULJ +Rtxbz7RZoW1X5TCHpL7LElj+OPzZ1YQt89QNCN+VDap5P7SCtmvto3a7SX1 q1n0YvCoFcZudWk7kftQ5ZvV6Uwha+gsDD6+htyvDTrPbw+KWGPqi+/OTH9S b8J3PlstYQ19l+s/hYkv8vgtLpazRph+49kJNheSSxMS6zWtIdvuFXfdlws+ w5p9X+2tISzQ/+kdg4uhOF3m5jPWqA6WvRHoQt5DksInuOetEcep8amhc8G+ 9rH80gVrqOTb/BEhnuzMWMSXb40WgcUFN2lkPZV47zSVWWNTZK38a/Le0Gx4 wuvQaw1ft6jD/8h7JOo/n4vMZTYIuFVs5LuFi4fZaD6zwgZbGzdMpIHEQ5H9 0bDKBmoJf+JqNnNx3PWJmaq6DaoG1quJbyL3VRHl21djG8hqfsq+YcRFoy3P xnB3G3wda151lbyvxE+ff3Xkkg3CobDwkRKpx91LO4Kv2KB3S+aFPvJ+45E6 0eh61QYrVY/p/FDk4mtGfKnGbRu8/irnvmIlyedlzomOGhv4XTOs5pD3X0TJ xq0ygzYYnla72yXBxZuOoauF8raQcdurPMLPRb6IWmRjpi3uHQ5WNmgIguaw yy++HFvAl8/t3qMglFceCd+aZ4v++eetDGqD0OT9KbSqyBbsx9FOmg+CMPqg MPhOlS1ee1uo8JYEQcNP2f/igC24Y/KaRheCUFqr5BG+yg6j+Ulis3uCUBu8 wlT5uh240/c578WDkK2Qs3yjoz0KR6M+hdgHoir6D4/vM3sYXsgJiQ8NwEqr BTOrnLeD5470xLZAf5Q+VT36sms7FMx/aaiyODjWMKel4OaAe2XSW17ok7/v 9n5ie752gAWvMTNSwg/REvJLFF124PvC1kXVf3xwVZW/JWSQuOkA62OnNwQm eWVq3R1RuGMz787nLPwqTj/x3tMRdIpjzNanLHwOWMcnyHAElxNtptHKwrOP u8ZsfRzBs+hbw8JHLGT0lT9+HeSIdI7geH8JC5qPAoJ/xTri+6ij3mwqC7TU l63rch3xLGMeRcmJBQs77pYdVxwR+02W47adhQ1CC8rDChxhb9zme96GBYUE 3ctV1x2Ro/2wXsaMhdHIlAirUhJP1c0AYwMWYnabrvZ5TNrHV/4TkmWhQOt2 TPZHRwyuD909PcREoMT47/JPjhD0fzKc08+E7h+t0I7PJP7TH9Js+pioeVTM 4ftO4q2T3lfcxUQvrZjO/kXiaTTuz2pkQnD/LR39hU6INToUtfQmE77NN4af qDnBUFlpQ9p+JjRvft39UZ34XkTGtSgmJlM13vCsc4KIWXdufTgTsbtuPKdQ nJAuhcfzg5lIHyuqOb/Bibwjg8pvejPRJFGUwbJ2gn2g1/xKeyZUva7ZzgY4 4Vm53/sWZfL7BaPiiSAn+Dq81ktazYT3yxbRkT1O4JG9o2G5iok8+89dnaFO sHhaLt8jz4TCZnXXwv1OSPI65bdckgnJ5Td9dhx3gvSVgDo3fibuOm9qtkhx wmDki9XO85lwPN2utukU8ZePvo68TJz6b+yryhknCJrsy9o5y4DQ73Uhc1kk 3htrV5z9ycC8ntuxV4tI/0mCj9uGGbgkuvVt9k3y/aWAXv4PDMCmc1taMYln Skhg2zsG9tdPCBwoJfM5+6S6eYBB3h+U444PnKAi6yu88CUD31Lunv/XStov /8J2aGPgeKvp38knTuRdHzHU3sKA+oKeXaNPnRCxW/mmXTMDfjFTK7qfk/UY EnNxb2CQv8sM8q/1OeGk9FGP4hoG+izvlzh9dkIOoyBBrYyBrXZ59NCvTlCw 7ih5XsrANceUubQxsl6aJxF/h4EoDxa16wdx34m0sWIGZENF3zrMkPVgm11d VMRAfNRMYvAc6f9Srf/gNQZGD3zUSOWhgeufcL/iKgP3k6siO/hoMLw8Oi+2 gAF6jp+o/WIafKfDh2xyGai54lgetIS0lzy+z+4yAyrXN7uliJL2AdKNtEsk H3clrrZL0HCvqzUh7CID51prYSNPg9atK/p/MxmYe1Y07K9Ag3Scx6gasXfP uWPHFGmIrdON8MxgQH8ooLd1DQ0nZQr136Qz0DMlw6Wuo5F3k0u73FkGNs3w SbK1afhecORt9BkG8nm/Vx6hEBv/+D2UxkCYUMOCZgMaaibWmFefZqBf9PaN kfXEe+0S9YjNpLJ2CBrTYB8VOFCSyoCEYvBFc5DxWnd/eXiKgWhlN1OfrTQ8 u5N73Y74vbrF5wQTGtLdys99OMmAtQ7lVL4Zid+t924ccamBvEGDBQ1J60wW KREv37jwzQcqDREbjC60pTBwaOtkPL8NDYIdf7n7iL+YD6istiPjq7Ud1SJ2 tGlpN9lO8sP5PvH5BAMPHO6GMHf8P/+3rt8gVqLnyB5yIvE1OVSGEh9zO1qT 60x+r1NSNiGe9ArzfuRCxnMPnpQm3uW7W+idK8mXc7LK5HEG6gOsS+a50/DL saqpm1h9rwFd0ZMGnhG3V1XEpyMU57Z4kfyk1HgVEf/ZvzhvN5P0V77B5xKx 18FflnHeNCiUK3/NIm5JejeW40vy87z/dzaxzon2MzVsGkY2V6UWEGecvr9h 0J/kY9nKqjLieefzhv4FkvhD2DFtxOzslMQVe0g+zP/2jRB35kZpbN5L9tN+ g75FJH4xnrL7RqE0FLtkJOkQ79g1bqofTuLJbxLwIE67p96pHUnm16m68xRx l7ivu8Y+ks+GNYnNxBJ7ckdV9pP5DKqmLiD5pT3pD1M6QIPI3+wDVsQvDjul LDtI4hs7s/QDsfTbk8ukDpP59E7VGZH1o29qKxBLJB5M9D5L/Gpqa83Co2Q/ 5wlmeZD9ILsjxpr/OIlv4zv9J8Sut+738qSQ8W49egGyn177aI1Pp5Lzsix6 oxHZb8vrOft/pJHxG6iLaojdFAoWjp2lAUVC41Zkv/b3yikOZ9BAf+EjGUb2 s7yey82hLJKvgvke4mS/e5xKM3qTTcZrPtdxj3jQctGOrsv/P2/VZuLkfCjk mw08zSPju3g4tBLvnhfPac0n6xUkkZF0noG3Fb8O1l0j8zX7NiZBztuHtcOl xSUk/6y3utHZDKxJWrmlqJTk99vtHBY5r97vdz0pKCPrUSMV4JTDwEjW8w/Z FWT/rJ5vZEHO++jiWsnjdaQ/foPV+/IZUGPPXE6qJ/kKPCaZTuoFp8Fg3aEG sh5d9OOVhWS/x9w039dCQ6HXOznJ66Q+jmVG+HWS87P1q7UsqU+a1i/4WF1k P9bLfeHcZiCoUOyUZw+pB5/59etLGPjueeSq8yvyvWjF66S7DPzoCHtl+pas h7/Wb69KUm/ubDdWnCDnP29TinsTqe+G+u1LJ0m+pD/pi5N6q/BA1pN/iown tDflWSsDFvXvDo78JvkeU2a5PWXgfFdo601eZ3zPCl3Z1MOA0c/zOzeIOiPJ z7j7A7kPbCNjvqgvdYZWq+g1wU/kPMx6xchLOIObtzdC5zMDyfzql3llnOFp tV48c4zUa4nqT40KzvgVnttU84vUE/23EY5azuAZsNfyEmLiZEXDf2Y6zqBz SxunhMl9t+l6loGuMwqnKy6nijLRZhZSI2tIvjf01R8k952cs4Dg0GZnGMac dX6+konqcLVzAXbOkJZLypFbz8S/e8F3EwJJ/5VCqYwAJl4LlBy9zHXGMxmD Fv09TFQ4ju+uDibxt2zftjSUiZDvQcJTYSTeW2qiI9FMjCgH+LAOkO9vZDXz Hmei86yPjMlJZ1gEFq7+S94Ht97nj3mkkvH4i1xYd5g4pjP8eF8aiVf4uc7L cibM25nBd9KdIVje//VNDRMP+L1aFS+R+JXzDHc9Z+JKyK79vCXO8A2yvKv9 h4n4uswdcqWkf/NQg/X/mPAU6VNdX+YMEeuZeiofC7JFLj3cCmfYd3xfdkyY hRPvaOsG65wRm3AvMGkVCxEO24eqn5P22efpAXYsWGmZmUb/JOPX1q6TvMUC T3c3b8g06b/g+r+5UhbKIlnVnN/EklGm4xUsKD46ZOA66wzInbWYaGDhj9Mj VSN+Op4defPYe4CFa/sg/EucjsLf3mx5MW8sbDR6sVeXju82s8vGYrxRzWk5 zdGn496fW86iCd4IEdlpzzCkI1ajq2LjcW8MukQ2OxjTodImJHw30xv3vpRX apvQwZPxMkH+vjd8xfRyxnbQAfZ45dBPbzS6rfPj7KVDa18MfXu4D8QYvpUX QumQlkXNw1gfuPteWvwsnIzP2HZ3Q7IPpoKXluhGk/6/5vjsuuADpaTpP7OH 6PD8tqVzS70PYkseHjt5lo6mc1c/54r7wmiBffHd+3QUb6iQ+vfQFwlCR+aN VJL4/Yfl1rX6okO0zlG2msx/tLgioMcXvst1f8fUkfa8Uy8lv/rinLb0VotW Ouh5uVkyy/ww6Tr4/NVrOnyL5+ePRPoBu2XWLB6gg6tOFxNI8MNRb4eIzUN0 RNQ0XtBJ9YPinvrleR9IPj9zde9f88P2hEJWwDfSP6XJYf9rP2QdHSq/+J3M 17PmqvgnP4yclP2vc4LE/3YBq/KnH2Izj93UnybjD9utNVjCRlvOYx6/36R/ pwfmQsvZkMqfc8j8S0fNtN3n7ypseF03uPJklvSv3yj/QY+Nm8Xc6X//6MhZ MjQ6spWN/wF1jbtn "]]}, Annotation[#, "Charting`Private`Tag$26011#1"]& ]}, {}, {}}, {{}, {{}, {RGBColor[1, 0, 1], PointSize[0.02], AbsoluteThickness[1.6], PointBox[{{100., 210.}, {140., 714.}, {180., 1156.}, {220., 1294.}, { 260., 1374.}, {300., 1432.}, {400., 1487.}, {500., 1499.}, {600., 1506.}, {700., 1508.}}]}, {}}, {}, {}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[0.6, 0.4, 0.2], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwd2Xc81e8XAHAh2UmRUUJIkhUi0rGKUBRlZxMy7jDvRVxSMuPemyQNJbtS MpLsUbKi4SshISlFkcrv+P1Tr/frcz/POc86z/MpKbfAY56sLCwsmvjH6t/E 2ORZKSt74GyWqwrUJsKj75nB9oMO8OamprnQqTDgkqLteK91CliSu9VHnc7C oUTPLEsVV9CIUfjYVhUP988Uvl8z4QYbTYv7v/w4D1VuBvcqL3mAbsCThNZr yWCvlbDzoowXnPmp6e98LA1uRPpNqwx6A8fOmGnJ+nSIvfbHat7/NPi1K1tl T2QAS98I1P72hQJ3qo3G8CWgTdVdj1jjBzsjtWMERy8BF8tVVm1OP7CQ8x2f +XgJBHfbNT0U8oN9UsOOl79cAtlzPYfKVPxgtmGtfM+fS3BYp+HIDS8/aBWT +VUrlgmXbt50TOz1A0sHylKSdSbIkbzCrAv9oWLoeqVOfSbs3vf++LVyf0gQ fvhub2MmqLPYKk8/8gfKbdZ21ZZMMLhoOhHd6A+JZ06ybnueCc63FK2LhvyB qbxn7fvBTKD3f1dmXX8GWIe3/VyYzYS1GtGfyohnYE+R0BuaeBaMLzBO8OwP AJ1zrlZWAVlwQ38P8T/DACj6bBb0OygLTiV3pZYdDgDe+jtK14lZ8FZmbftx 2wB4o8NI/hSWBT3HCTo5xABoO5Hy9WRcFtTdM5fcXRgAs8m3t7YxsoBxZs30 kc2BEMU9+G2mLgusq3I4pCQCwW5EccTsWRYIrtXa/kMmEPrrBFIKGrMgJSfA kaEWCCILnjsd2rKA1vmu671FILSGUMPze7IgaOejB0G0QGBOC9q9HMuCwx99 qRlzgXD6Y+9oFAcdDlK3FxstBsIL8cLqZE46GAoNvf35LxC+8nyJy+amQ+4N uZzdHEGQaew2W8JPB3ovYyl9YxAsWtTp1grTIUEtosJeKQg4fr64GCpHB6/v egoz7kFQSHzoGWhEBw+9K/rG3kFwi8ihpneQDm4Xftnm+gbBrKQYH48JHZyl y89ZBgcBvULtR64ZHU4ck/pYERUEIuRWZtkxzO8+Wx71chD0XnQQJrvQYQeh TWj9yyBwf+AAjAg6TAgRfJV6g2Dd39RsfgodbleJP7V4FQRX/O440ah0kFkT 6HPxXRConyJJ+cXQQTJNqIZrMgi8YzUqZBPoIFbq5sK+JhiUbt0rOppOB/7p P4VLasEQJtbAQ7lNhxfJt1dENINh/X/6357docNFVUtrLe1g+C2+z4bjLh14 wm/+DTkQDKXOtJsXiujAyXnYct4sGAzYBbzOltOBVY6xMOsRDMJJ7jvkq+mw 4KoK4/RgaM5+W3PqOR3STPw1DmUHw9hPr5KUF3RQUL6jUHg1GMx7fX/VdNHB 5c8WoaBbaP4M5oYeOnTQOaeX7wWD8gHfnXdf4fx0vr+08UUwPDb1sbkwjOOl kfLJgI0AWTssrMW/0mFEvH0on4MA4dYKUpu/0SGSlb2Xk5sA4ww5jw1zdCh/ GV7bJUCAAoai5ZofOB6+nun2EgTwr9J52/WTDrO5ujoEbQKY2afRpP7RgcH5 OeV6IAFWLPSvFfEw4PtB4rMOAgEGdn/z9OVlwJH45R8/yAS4qcDydQcfAzhY ee0OUgjAPbXP7Bo/A0jLits/JxJAp/MdRG9gwLHZgEr1GwRge5TVwr6ZAaWK v6ac8glwgV+NtxzN7Re95VwBAVIj10raizDg2afUs29KCdBdYvSwUJQBKh/K zaJqCMBp1FK4fwsD+Pu/v2/tJ8Dkobteu6QY4CsYKTg3SACDm/yTjegWSzZj sXcESDYMNHSQZgD1xcZC/w+Y36BAUsJ2Bsy0qJM2zBIgsf4E4aUsAzqqQjgd 1hHB2afaaJcCA+Kv/VaZxTrLqWG4UUCNAbWSm9gd9hPh7tWiPyno+eu7B1uB CObl5gW8exjgdsuFev0QEWizE6bs6gzQu9vSbm1DhCBlre5xDQb8vJ/hVhNE hGnb7kd+2gzYrV6sIU8iAsvbL6qDaI+HzZxZoUSIE/lK1d/HgN7KxdKAKCJE hRteFNTB8ap1Xpa6SITO1port3UZ4NWikJl4hwhpw01WjAMMuHrIyHuhkAi/ nLxMvqH725z2uZUSoVs7TMIEGGDQmTai85AIusNJ/vNoie6fil8biLC/vPHu AQMG2FgJsDi2YH/atR+moi/27uxraydC4i37O8Po3/2O4Te6icB/eq9huCED Bt40NNsME+GGRzrhuhED+ByGmA0fiMBelvF8Em00tOCn/JEI8zNBm5SNGXB/ WF6Qa4YIZR/sgx+jU8ZSnGuXiFCbsxxWd5ABh77Y/5IWIgHnYOU5pgkDcjfF 9UWLkGC9XZpSF3pep6hsSJwE+3m/vGU1ZUDehWVvujQJBHXTDp1G/96R85pL hQRd3GyJCocZYHm0qcJrDwliDeMItujbITNpjZokEK3XOx2PPt6sa0rdTwIB Rn3UELrY7b+qb4dJkDl20jXajAGsF9bSLY6QIN5MvDkfbXtvN6HQigRzZW06 nei1LFEKHrYkGDHW9NxozgDnqxJXBj1JcIL7zlMmuqLpYKj6aRLcKljbW4nm ngk4nu5PAl7S/N9X6Mp9T3nMiCTgFunLX2/BAIHXpyh1MSTgyKo3D0N7rZyz FaeR4GzqC4M0dK1cuXrYORJkq3La3UGfJrN8UU0hwa/zx6Z60fU58u0p6STI WVjn+Qkt3GSZ/zkT8ydqsi+jGwSvO+VfIYFXgkn5tiMMENnXrs16jQSO97rr VNABrnNCp26QIERMfB7QTYmi32vySSBzf8nSEi1ert8lcpcEl4z0BpzRhMHT heRi7G94Nc0f3fYvPaG3jAQpfQecwtEki1G9i49IEGdRlJqG7iBxi09VkeBN zZ7P2WjJHLVfxk9I8HiGi3QLHdJo33ejngSSRf8UStAvpmPLVhpJ8CdnVOAh WkawKMmxlQRrDBPkatER2n3eVR0kuLxY5d+A7nZZNhTuIsHoD4vxVrRc4nZJ Yg8JYowFU56jKWVmf172kyDj9YBvN7p3gPha8TUJaAS/yD60/L8rFeffkUDk wbX6V+ho2aa0iWESGG4y1BlED5jP+BuO4nqclplZtSJpk2neRxIku23qX3Xs FV3Zv5MkuB0/8mMA/brBY439DAnUNGzNV9v7pv9WjPqVBPd9tPlX4617dlQ9 7zsJPlQvb1/NRwKaLRoXSPC7/eD/89V8us97YhHXw+YGizb0Eb3yGK4/JHi+ Vsi9Ee35RDZbcYUEHUMTXU9W+6d75cFRVjLINw+nV6IzawReENaSIaPjZnE5 unhfwkQWJxlU3g1tu4turFpeecxDho5WlZk89FutYNEhfjJYGB4UZKK/V06o rWwgg/hYY0YKmmuvo7m0EBn6JSwDaKvz96jH01iEDPst0/NX5/toRS0zSYIM 856dO93QXnvU7pdK4XMfgTAbdNT9O509MmQQyLkhY7KaT3nGv827yOBw3vjK rtX1pswpoqNEhrbA615b0O9KqarOqmTI/DCSwYvmLvHxuLWXDP7EawKfcT1L Kw5TW/ehX/i4v0FrFx1nTO8nQ5RcoWgr2ueuXoeKERn0l3Y8yEO35G9SeWJJ hnan9cXm6GGZC6Yjx8kg28hU1EQv3FxxYztJhiTzJ0Lb0DI3prNMncgwIeAt 8xX3a2xu/fKr02TQC5AyTkRnb9UUWvIng9SQz5Yz6Hs5RUpbgsgw2e7laoUe yaa7uoWQwZGyYa8IWo/h3zobS4aComnpa1g/TgiPjmxIIEORR1n4ar05k3Xy t/p5MnSv1zM8hc65ZLA7MpUMR7NAdSv6d6rIpXU5ZLCpTriQgfXqYWKTs+RD MsjUrH/qjvWv4HCnyLnHZBiovimrhc7m7e39UkOGvGDx7zzomLT3B2sayMB+ fvzpPayn5szfSie6yeDzRcT45yEGjN5RWUn6TIYTs0fuuGM9fnV6b9X3WTIM S6h1KqHbdukR7b6TwV4w13UJ63dJmdknuSUy8IvvmbqIDqv0evmMIwR+6eiE l2D952/NufZLKgTMvhHMXuH5seb8TTtn2RAo7MpcYKDnDxdubJYPAYmtDyXs 0W+6Ks9lKIdAxsC6uSF9Btwa6A3cvT8Epi9dKBrC82rfBCe424aAyxyXTLMe rq+15JGulBAY0BsIO4Dnpdi29sHldHy+pTRpEc/TLq2tL+WzQuA5ab/hPbSm f/OT2CshsLV+7oYUmqNP6IpmQQjk6dzX+LeXAfl5j2xyn4WAwR9xlTt4Xo/r LHacmQ+BUY2c4loVBrgTIh/y2oeCt/y7/4TlGKDsvavLXCoMPgjct2Fbz4CX goo85KUw+Gly6knJPB1qSmOvKDaGg3p4Ut3cEB04zG3EGC3hMLJvs3cq2mpq x+U1HeEwbuGnvxv9afsL+kB3ONTSzyaffkeHjZc3Z8QMh0OX0XT6+Bs6+MUV J/YvhcOx5ed14wN0ELcdIFNUIiDz4Fq11fui10LB/MSeCFjcoSzwqJsO9zIi iVZ7I6CXtlfFAX3ohWSwnF4EXPzVs/f2SzoQDfz8u80i4JhFHuEA3j87FVnc ZbwjQERfdU10J94f1yhYPr8aAQpe4i0aLXj/NuJ5LXc9AuxtOEw+NtPBMnHm 1NlbEcC7q2ZzFlpmfVmgZlEEmP9VvrHQRIfnW9RT8x5HQHfOj4DqRjpIaOl1 kfoiYFLQyuj4Mzo0BBwz38oVCfKnvt5rqqWD4v09/aG8kUB751UZhaYvbHLs XR8JLjwxm7XRfpRBv3PCkRAzv3WqtIYOmy44Js1tj4SO1JtDuXjf9sr36mjW iwR/thLbtMd04B6KMAkgRYLB2LxabQUdNEPv8qWGRoL6GEEuAe0q+Lq3LCIS dNOHCJboxyYaTnMxkfB9c+rmiQfY3sOvwaTkSCjgl2cKoZ+leFyJuI3x7YQf xN+jw8zOSy5X7kYC5zXREzZokeZnsrXFkXC70vGELDpgWaL87/1IkO4pDWzB 74MtPm+aYp5GQl1PJy8fOkz/yGzC60jon3RVKC6lw60hyoM77yKhe+J4/Vn0 y9CisLbhSBC5mV15Ei1XysnG/TESxvukO9nRfWKNm5PnIuFt0K+L7iV0UJrf q3+JmwKK2QX39hTTwT7Vi6OCjwIct36Fr0fHK2R19gtQQHdr0J3P+P0y5PLd RngzBS7ebVfLR194Uex7eTsF2r4lbNiK/nhbKvOaLgWG7NKlJAuxv7QPS2xA geoC99cr+D303e36KR9DCmzy8+EeQbNsk9qlepgClhSpD9fRYgzJhoaTFGCK fnLZhZYij+zY4YD5dY0v8qPlj+clJznjc3Zd/h8FdNBYL2ln7Ynv32G7X4u2 PLft20cCBcxP6n60QZ/0fG9zOIQCDXssAvejnQ2v1ZSGU4B+vjVMFu23InEu NIYCjyuXuH/h91tCqIQEVwoF2I8f2pOHTrYZjjuTTgHN6stPk9CZe3KnejIp YGB25EUo+vrXrQ+zr2B7R/vOWKFrvbeaK96lwOv1s+3c6Ebj/+6lFVOgibbg /Ru/Fzu2X928UEaBCUc4P40efL9l7MkjCij0nj/xHD38ZMhEupoC40f/sNah x6/klCY8ocDvuct7ytHfT26JONpEAZLlPmk6eklj6P2DVoy/UDJyHs2yKcdY pJMCQWlKMlFovm7xDR96KODioq7jg95U+i7E+BUF3OJ2rHdGi128MnT3NQUK Q9lOW6PlTcQLCO8xn0sWZQZoZbl3fIOjFPAolMvZh9Zkv0LUmcB4hLr1e9C6 o/Zvrk1RoJhoyq2INqwXO8D+Befj1XKSLPpw7ttbPt8oMO/MlbUNbUnJ5n7x gwJRofmyYuiT9vZBqr8oECbLpieEdtYSG8j6TYEOfpthAbSn8Fud338p0BL2 goMP7T9/+brzGip0Hcqt5EITeu3WNbJTIW1l8RsHOrxc9MwOTio8auB/wI6O SXnTm8RDhYZjAv9Y0Qn+l7W+8VPhoIBS7xp08mG7XGtBKrj8ZiivOlNelL1K iAqSZVThVTs6y90ZE6ECIf9w5KplMvcc5t9ChQQXddvV9mba4YvWNipMP3Qp YUNXrFikuUtTQUl1IWItmqLhsCdFlgqUjZufrUMb+fkMPJanQu3xz9HcaN7r 5PCxXVQIy6VXrvavfyB2C78yFcpt9vtsQOfwpj3VUqPCnzS2jNXx8TC46uau QYUTW/k0VsdPMaxwbYoWFQSoVKvV8Z0vqSx4rEOFuk+hn2TQtWNNZmN6VNh3 eNsvBTRNtHeWzwD7c5Aeo4reGD+j7m5CBf+tlDWAflu9NJhshu03Ky0dQt/4 xhH5+AgVOK5r+Vmi1RylnvHZYH7HB+rc0L/TlTy0bKmgm1uU549uaNVZ5+5A hWE2h78h6GN7Tlg8dsX821t3JK+ut9Pu30Y9qJBr0LTARI/mBl3i86GCAYfo gfzV+eROeuMWQIULzgeNnqIzPjz15IukwqzpH/EltP3mF5xaUVRI3M7Vxon7 S9ribZHbWZzfYMdvIuj7j+fnKs9RYfHtoUf70L2pO6PcMqnQpKYjRkNnN2tK JTMwnui5IgbabdmwqTIb80+ZrypCf/dy5ua7jvPFknPkFXqD3iV6ZQnO5/4x OyWsF6+Jedqj5Rj/E9ugMTrvbskQbwUVAjj5e53QKkJt0m7Vq+Ova5C6Wo9m /pTytlLhcf05vkV0WrZXq+sIFThVJt0+YD0LDYklUsaoYJkVu5MF66Xzsdxt jAkqTNp5+m5DK3IPhD6foUJx6GGHU+j2cGP5vUtUiPEKWh5Hs9rJnOcVjAJm 1g7DdVivp9RBY4dQFLT5/Xi4G90t4PhBXyQKSAkst6zR19ouaYdKREFes+D3 m2hdLbbpDwpRsGkN+aQJngfkzaOHKw2jYNJrl1UBnheOP/7+7DkYBT4aGdQB tNFL0ZszplHw/NWU7NoyOgies1qWssR4lsnT7ujSn/VFFx2joNz0rNEOPK8m X13jdSNHgYgOl34znm/2mU5dvHcwn8sMivNDPN8ecIv7FUaByVaesOvo9z2V 3u0lUVC/n43jI9pjveCahIooUJGmvDnzCM/HCy17Vp5FwdCctXNCJR1iY5Qv zw1FQYGg71BvFR3u+q/xGBCMBqZZRMSbOqwXSaXl6sLRYM4hXav0FM+7Qoe/ GaLR0ORul0pD3//0kH5UMhoStXWnVetxv7j5trftjgaWTxJBl/C+0W3bp1Rj Eg3W206WBOP9ZNEof+laVDTQNPlPZXfg/q65Ftd0Nhqel4vX/UavqGbzTdGi IUwk47ID3oc4tqVKqSVFg62LU7PEczoILYWZNjGiIU361ZfCF7ifSswvT5ZH Q/mNM/5v8b51RmheS3UsGoL0p09lDdJhjiCl+2F7DIQpCrORJnC9HfW2ypKN gTb3UO2/aEvFEi/THTGgq6q4mPAJx/+jVvo9hRhg9yjmy5nE/ttaTpxVjQEj tbKM59M4H/uj06QPxEBFnl/3wdV//+P8b9zdPgYmY1475y5if3OZyRNpMZC3 xeZoBy/e5xuqEx/8jAEXLp2/xnjfbSi8l3/W/ixY6gt7THoyQHS2u7+x5SzI mz5pU85hAH3nlZIXu2JB5JVSxdZuBlDrk5lml2PBZ342tp2DCZP/1WcuZceC lnCJGnMdE6yXf6TdyYkFiExP9eJkgoKm/Xm2vFiIaZk2Z+VmwkCRXETNbXxe m1KtwccEFcZTh10VscCyXjE+aSMTxs/MSfC8jIVunqBXn7cxwUzcJr+DPQ5G gpxPGe9lAn1cqd6BIw4Sf7p4fkaPlnC+m1kXBzFE46k0LSZEQK3Aep44EFgr 6P1WmwmFntspxzfEgWSVspS3LhM4y+eODW2Ng8ebSp556TOh2SiFZVYzDl5v WlZcPMwEAX4f8WitOCjP+LL9ohkTHAf1NQX2YfzHXRHbzJkwf3rBT21/HDDP RRsZWTBBJtVxMMQwDky6CYoJR5kQ+0ahdOVoHNje6CdOH2fCgYBWhw2n4wBe JM/tdmTC4uupg02+ceBiVJ/1CH3fkFct1D8OwvoP2Oo5YXuiVpz/BWJ7nZ/V zJyZwN30tqIgBPPZrS1m74LjJzrLBzR8Xp+RaObBhDSawNL3+DjolnYlNqNN v6qN55/D/mYc9NbzZEJtU2g1T1IcLLJ+99jtxYQbgWu8B9MxHu9E+oo3EwKa N9UHXMPx/DETQ/RjgrzK3iKp6/j7RDb7/9Afsu3o/TdwfGas5A764/wG5frv ux0HWlzrLm06w4R94vKiHCXYn8zGrFsBTOAI1iFcrY6D+t1Da9OCmVD/zsnJ shafV5n4TqLDD8aYsNXFQZ6Ee9EBAhNmxJslTj/DeJRPT6bRvS1HOtXbsL9r fiyrkZhwdYubzPNXGE+LlXkhhAlae3YpuQ3GQcFdvYROdK/p/N7F1/i+vp8b TyjGD00wkxnC5/zt78+hA3oKCZTROBA59Ok5MQznf5JIERyPg6CqRc5i9I1/ ugkFH3E+1W12jqEHdr283D+J7Y0JCh4JZ4Jewo96xa+4nohUV+EIJrzOqe1o +Ib5iLZeNUYTHsT3236PA5XzWRVE9O2RzZO0BWyvvc//ORp+jcyJ/YqDtK5O nl/ot3yFy+WLmB+HXYxkJBPW6+iu/28Z11fd/o+B6EKrtaLEv5ivqWhfFtrI p0uaawXjiWWkV6PDslw0NVhpYDLpFMlCYcLIV5pTMicN6o9bvaeiIziOeG/n poHtEJ9yNnrT1s3BVTw0GGlwNn6INjl8l/aRnwYFhmX1n9CjLoSUSAEaWDrI bV9BU0J1mBsE8f1OyUNCVCaU33pRtF8I259K7NqPPlxDf9gnTAOR0dPKlujx nlNPT4vQQKW1wtwVHTUp374iSgP4IiUbjBZZmevNEqeBi/Tpymj0faGaoV1b MV6JPmsy2lyRNvFMAn3Ejf0yesLA4ttJSRqE6Z2tvYk+ayf8+4sUDQRUrHeW oLcEvWejbcf4R9JMH6IfJRTwicnSgKk7LV6LtrwavLlcjgZaIsLXnqGnH+yT OihPg8SQ1p5mNK2DbdfQThqUe96734aW+PBcnbAL4/knQAf68a8sPc7dNJg8 vxi+6mP8p0xylWjAolnl1I6ekZE/pq6C4+ESPt2CTtCZc+hQpcFjwpREI1ry WLWnyx4cP/OqpSfoap+4wJ/qGO8gM7wSbR1tHn5RE3+vpnG1DD2bJRQnrYX5 2em530YnFg9ffKyN/aW4dlxBSzfeoR/RoUFQn1lPKvq54uKtIV2cPwfTJ7Ho ELrJA189HD9tPWvSanyWy88WD+D6eDqV6YFuPz31MkEf3cAddRxN6NMe3mRI A/nLp/j1V8dz/4WZG0Y0+LblttFudJDALq6nhzA/4b9X16DFIiI3W5iiWxPq pnB9NI51yr47jP3Pno/uRgtX+hv8skCXnh65jK6XfGIZfxT7u3eCQkH7XuA7 tdEK1wdB9aET+olTaaSyNY63uOi8ONqr9d/5JzaY/39yi4u4vgVUjzLNTmK8 nx8z+tEe7N8qvO3xfXebc+fQ/AHQuOCA8y1IHHZGVw6m9cQ54fru2dKqjuYu Up295oL9a5w6NIT7rWJT7J/dbjhetiH/laCdo3q5a91x/TS7rlDR96yIO157 4fgES4+Jom0XK1wEztBg0en5WsD9z+q2NjA3gIb3r/43a9HFnTZUxSCcr99t yh1YL1Zyf142IWK+C+qOR9C3jbX6YsJx/sd2Zhhh/bEsS/zAH4nj+7PQ8h/W qyWRN19zKJiffkLCI7T5TDhvVTQNXncvHpNG/8ioMZ6Lx/2jEGj6Cetfzh8e 6+hzmO8zr6uZ6INejm5852mQp8LhDOhs7b9ROy/i+hh+s+0SEevNiN5j1wyc D6m1MbJYT1N2Nyj05mL/uExj/2B9vq3lwBWbh+v57OP7CegnhvOfVG/g+ydz ZvnRM3Zy+en52P+iR2dFsb6bJlzYZlWM8dyax4TxPGB/f2xTdxUN0hZDuO7h eSI+/fl7dA0NJBnULeJotQVaj/ITzJ+bKhGH548rT2VKaj2OR5/SpDmeT3V7 xbmOtmL8f+WnWl3xPEgb+/uiH+e/j3joBJ6HaVcoQ9QBGvh48QTlOjCh4LZQ ze7X+P6Kr++4Pdbn2kNhye+wf9u3vjhtxwT1qaLv5qNYX6xdhe1P4H7SJ33q /Ir9lbsn/BLPY48f7D3t3PHQLfQ3+y/geV5o1OXIGw/1Gaeu86GtXWmdX/ni YTJ6S7L4Aay3L9lahDbEg+UXW37V/XgeF7HWuG6OB5NNt5IM8D4x5saSv7Q9 HuDqPN8/FSa49S6H7dwfDy59rIudEkywP68TUqsXD2nWYhlZW7F+QCTxKGB7 hSLDjluYYFD6+wzZEOPt0owfF8X9fWHJ7ZlpPHDe6fwwuAnPW/1f5nYnsL0W Q1cLvC+53PsueT4Q39cWbPT+wQDf2ON/DgfHQ55YknzlHAOIxysGeYnxINmf 6Mf2jQEJC+SUtJB4SFyXGJMxw4Bi7aVlBjUebO8zb174yIDFZysDt5OwvX9a D0YGGJDay5vcdAfjyT75IVjJAObNMz4Jd7F/E5/tlioYcIPUZWhSFA/f5i8f HbrPgArhtN+dpTh+DaHvGaUMeGu/0afvIcZPkjb7mM8AuTFRw9FGbF8hUWLw EgNUKiIkbjXHQ/mMwdH4dAZox79b8mzF/HVlPimnMsB8x9XyqY54UJmSMYi4 wACCn6TEXE88CNSRnMZiVv8/4+zS/T50bH00KYoB8Xyj/aRXmK9i+fwaCuZb djNp8TXmWy3/fEMo5hvD7l39FsdfImFnJokBRVaeBpQh/L2vyktBAuYv3bJV bxjbu5JanRzIgLofcksr7+OBpYV7iv0MA/4HEd1zAQ== "]]}, Annotation[#, "Charting`Private`Tag$26097#1"]& ]}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 175.64999999999998`}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, ImageSize->{299.33333333333275`, Automatic}, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->All, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.8805143928431444`*^9, 3.880514415217472*^9}, { 3.880514476080068*^9, 3.8805144973919296`*^9}, {3.8805145324689956`*^9, 3.880514540703124*^9}, 3.880514605716787*^9, 3.880514638778288*^9, 3.880514678636465*^9, 3.880514726255903*^9, 3.8805149166690116`*^9, { 3.8805149625895042`*^9, 3.880514994666662*^9}, 3.8805150770235543`*^9},ExpressionUUID->"472ed61b-040e-4228-a738-\ 43c1d2fe2bf4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"hH", "=", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "4", ",", "6", ",", "8", ",", "10", ",", "20", ",", "40", ",", "60", ",", "80", ",", "100", ",", "140", ",", "180", ",", "220", ",", "260", ",", "300", ",", "400", ",", "500", ",", "600", ",", "700"}], "}"}]}], ";"}], RowBox[{"(*", "Altitude", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tT", "=", RowBox[{"{", RowBox[{ "288", ",", "275", ",", "262", ",", "249", ",", "236", ",", "223", ",", "217", ",", "250", ",", "256", ",", "181", ",", "210", ",", "714", ",", "1156", ",", "1294", ",", "1374", ",", "1432", ",", "1487", ",", "1499", ",", "1506", ",", "1508"}], "}"}]}], ";"}], RowBox[{"(*", "Temperature", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ttT", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"hH", ",", "tT"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ttT1", "=", RowBox[{"Take", "[", RowBox[{"ttT", ",", "11"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ttT1", "=", RowBox[{"Take", "[", RowBox[{"ttT", ",", "07"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g11", "=", RowBox[{"ListPlot", "[", RowBox[{"ttT1", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fttT1", "=", RowBox[{"Fit", "[", RowBox[{"ttT1", ",", StyleBox[ RowBox[{"{", RowBox[{"h", ",", "1"}], "}"}], FontColor->RGBColor[1, 0, 0]], ",", "h"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g12", "=", RowBox[{"Plot", "[", RowBox[{"fttT1", ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"hH", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"hH", "[", RowBox[{"[", "07", "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"g11", ",", "g12"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ttT2", "=", RowBox[{"Take", "[", RowBox[{"ttT", ",", RowBox[{"{", RowBox[{"07", ",", "09"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g21", "=", RowBox[{"ListPlot", "[", RowBox[{"ttT2", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fttT2", "=", RowBox[{"Fit", "[", RowBox[{"ttT2", ",", StyleBox[ RowBox[{"{", RowBox[{"h", ",", "1"}], "}"}], FontColor->RGBColor[1, 0, 0]], ",", "h"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g22", "=", RowBox[{"Plot", "[", RowBox[{"fttT2", ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"hH", "[", RowBox[{"[", "07", "]"}], "]"}], ",", RowBox[{"hH", "[", RowBox[{"[", "09", "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Brown"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"g21", ",", "g22"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ttT3", "=", RowBox[{"Take", "[", RowBox[{"ttT", ",", RowBox[{"{", RowBox[{"09", ",", "11"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g31", "=", RowBox[{"ListPlot", "[", RowBox[{"ttT3", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fttT3", "=", RowBox[{"Fit", "[", RowBox[{"ttT3", ",", StyleBox[ RowBox[{"{", RowBox[{"h", ",", "1"}], "}"}], FontColor->RGBColor[1, 0, 0]], ",", "h"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g32", "=", RowBox[{"Plot", "[", RowBox[{"fttT3", ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"hH", "[", RowBox[{"[", "09", "]"}], "]"}], ",", RowBox[{"hH", "[", RowBox[{"[", "11", "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Orange"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"g31", ",", "g32"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ttT4", "=", RowBox[{"Take", "[", RowBox[{"ttT", ",", RowBox[{"{", RowBox[{"11", ",", "20"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g41", "=", RowBox[{"ListPlot", "[", RowBox[{"ttT4", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fttT4", "=", RowBox[{"Fit", "[", RowBox[{"ttT4", ",", StyleBox[ RowBox[{"{", RowBox[{ RowBox[{"h", "^", "5"}], ",", RowBox[{"h", "^", "4"}], ",", RowBox[{"h", "^", "2"}], ",", RowBox[{"h", "^", "2"}], ",", "h", ",", "1"}], "}"}], FontColor->RGBColor[1, 0, 0]], ",", "h"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g42", "=", RowBox[{"Plot", "[", RowBox[{"fttT4", ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"hH", "[", RowBox[{"[", "11", "]"}], "]"}], ",", RowBox[{"hH", "[", RowBox[{"[", "20", "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Pink"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"g41", ",", "g42"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{ "g11", ",", "g12", ",", "g21", ",", "g22", ",", "g31", ",", "g32", ",", "g41", ",", "g42"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input", CellChangeTimes->{{3.880515093023075*^9, 3.8805150938043013`*^9}, { 3.880515176030834*^9, 3.8805152801683197`*^9}, {3.880515325510705*^9, 3.880515510364523*^9}, {3.880515560894233*^9, 3.880515723826822*^9}, { 3.880515832932908*^9, 3.88051602562096*^9}, {3.880516294014053*^9, 3.880516309451088*^9}},ExpressionUUID->"442de880-f8d4-4218-bcec-\ 5bb8dd84d86c"], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0, 0, 1], PointSize[0.02], AbsoluteThickness[1.6], PointBox[{{0., 288.}, {2., 275.}, {4., 262.}, {6., 249.}, {8., 236.}, { 10., 223.}, {20., 217.}}]}, {}}, {}, {}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVznk41AkAxnESW4wWbTaJGdKMxmRm/CrHlnlje8jVIatVCgm/uUemtag0 OdsnTfHI8WiSxapGbFRWCbVJmA6lPPRkHVvpdEw18WTtH+/zfT7/vXZRkq17 5+jp6QXO7v+WHIwy4kYXe6o4T6km62S41U0LCKX9yquJs9has1aGmdtNR2i0 bF7LmYC0kFmXNB+jGtIKeYNmLS9VP8ggXCcXfaJW8ehjVbWrPGTonorL+0Bt 4Klrk713ucrwTd8g4y21ndfoQo2t5cpQelcle03t5T1ZFVMdSpeh+mJ2n9B5 lDfkQ5CNpjLE8h4Uvomf4GWJl1Y0f5RCPLJiqK5ax+NUKnzdB6QwtktjPHfT g/od4/v2NilyzDqYpREGuLnxVeyXGimi+rbdMOg0gvrSq2GvAilkf6dFSRjG KGTHtn09JEWtlBK8eKMpqDf0WDtJKUqTBaOcUDMkhfdeu79ZCoVqesvkG3OI v9Xc+9ddCr3uAVxLWojobp6vdJkU9ISYxG3MRXCu+PDGzESKYe2pn0yuW2K5 VTKj4qUEfiP8Aydli5FvkNu1/YoEQcNKJ1vbJaBYlHuOZ0gwejMq9Y7aGnU+ 7y9pfpbA2bzHxnu3DYyKrxzudZTAmKeN7J+wxdFFV4MZU2L4vA37ZB9CwxX1 moNl7WI8bY3WD2PZ4SV5cZ9RoRj1Wbd20bR2CAyMEF0QiBFjKB/QaOwRFnT8 RqqHGHvik+spRctQvP/jogKKGOxYJ01ApAMGWkNd85+LcM+CZSJ3Xw4Ny7W2 tVqExmpFMcuAjvfXg9guh0VI1mdu7nxGx1XhsOH9TSIY9yf5iusYyOAlVG6j ijBSYZenSnFElvvawKXjQuQ5Ws1tCFkBly0Kf4sWIZRFMW2RNCYWKPWC/HOF CMsL11BeMPFhPNFaECPE5x/LdaomJyTtk6xvWC3E0IhXYmsmC27WpwV+84Q4 u45r3RW5EqcH/N7NfyKAOl1uHrvSGWu62HJKlQCZIXv8DbTOePRsQZs2WYDV /aVVmV1sLKEIZab+AhSsKFZ3+XOQG6lPi7MR4FDzsQL/Bg7qH33HGHvNR6B1 SPldBy76Bfa6iEY+1ovbdphnc7GGGXdvYQ4fqqVRDp1aLtyMWF8nd/LhcLMy P2iHC8TzHblWbD6UK1uZD5tc8AfHlu0wh4+YibkP2pkEjspPpoc/IBFVO07L Pk7gzD+eA71lJISK4Gm/EwTO9WwqXzBreXDdE0ougcsdEXzvsySytPIcZT6B znrF5IUzJKrddVOnSgh8zL49L7WEhK5lpqfiPIEglyAu/RQJ5UPKsVttBKYV 4Yr4oySKykRxGe0EjBLFPpXZJMoSNN6+HQQsRIco/VkkLlsqv3RoCDBCS/M3 ZJLoD1sY1/2YwFankXOL00gwhqy8B4dm/3ULu5sOkODUJdn+PkKg/s6BgokU Eh7pfbq9Lwg0X88Jd5x1AKOk5tUogZ7KmhcnkkjEC2i2Y2ME9FMmp6J/IZGy 9rDuzwkCFJlhS+F+Eummg48StAQsYywzNHISBRfLfvv8mQBrs5uZWwKJs6lz Y//6QsB1w8bHwn0kzm/Z65UyTcDLI6yoNJ5Enf1tG8+vBALZgt09MhJNE3Td zAyB7Q4pDiaz/g9WQiL3 "]]}, Annotation[#, "Charting`Private`Tag$38828#1"]& ]}, {}, {}}, {{}, {{}, {RGBColor[0.5, 0, 0.5], PointSize[0.02], AbsoluteThickness[1.6], PointBox[{{20., 217.}, {40., 250.}, {60., 256.}}]}, {}}, {}, {}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[0.6, 0.4, 0.2], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVx3881HcAx/Hrx6PJSD/UUsq1HfkxrXQIF2+OO78+Z1M9NCeLEXX3/d63 wh5JdUqiXF2uZNYv+rE9WOVXxa0fOKPTmJ9N0UNYNu1HIcop9t0fr8fr8VwR rQiNnc7hcAjb/z+0uNSUw+GDLymaximWYUnaoDFvBh9pPismo1iXvuQa+c/i o93ljEHH+lndielqEz4SrA6NHCmRwTORemNlwcfNV+HPzcpkeNti2+vlxIez xlhvdUsG+bEL5Qdi+HDp3K72uiPDpsks6dQDPlyjba0OPJBhIq+icaDAGRKL H7Wm/TL8s9Jds4V2QV/KUOPjCRmuC2LPPnJ2RXOmmdTOXA6hUa/edc46tLnx t2WskoNXWxpo27kOoTlLBnliOR67dLzklLlh4PQHL5qj5NiyJr+zK9MdHZ6N MZwUORwtdeaiUA/g1MYw6pQcLXedE3MdBKjK6qsfvC5HdcikbfKYAHfWOBVf qpdDuZ3hRt5dj/nK8Pm9PXIscF8rsD/tif07M4cdDXIMG4KKDkd6YZtZcmDF fAobKsMvxFgCX3++kxvqSMHc7fejR44AWndvRiGmMFG8mLvrL0DV0ura8BWF 4LTE+uYwbyR9KNvHT6agC9m3+M0dbzwZqnXvzqZwOena3pP2Pti41zpJc40C FVXKcczxgd31SIemegoRvtGfqQ0+2KP6crPoGYWbB92ZuDghesykM5oMFPiV d8NnNQpR7bncRrOARl7Zwrirq33xfpG2psuBxo7ZOYe1Z30hyY54ulZEY2tY NcmZ5gdLbZVCH0mjirPQdoD2w2Sag5LeQ8OIXs9zfeIHj3Ha+IyGRlLb3IYQ TxFeWySYvC+iITllcrC7UISapweydtXRCCZl/avnimEqIWnWPTTWNKyKS98t RkncyKj0DQ1lQeu7kB4xZLyLz/PnKTC6a4WgV+iPfNUcYm2vQPv5XNVAsT/+ /vaQU4WvAo9rtBlliwJQHqo9kbFFgbrCkiupyQHoKNdv605UYNm/ze26gQCY aHt+8lIrkGf33bXGoEDcl93OePaDAqlVqtygykBkVJ1uU+sUCFm66UoDLwiF 94Jza58qIKTrpfMyg+C//ed25zEF8i2jeb+MBmG/tEAsNWJgo/s+RyINRk5n zVatOYNsxxr71nvBkBb+6tLFZRA/MrNFb09Q1NjzcMYqBjElw9zMEwRu9c2W Qe4M6IMb3gWeJFA6hr9KZf3NhvLfTDQEdZp+XQXro6OJx9U5BBu3ju2w8WBw w2184sw5AsX40sppAgaG6qlHV4sIrjjEbapYz+Bkq4mqtp5gnvq9ytqbQd4l Kj5dTxA2lh4VwfpyQpPQ/yHB+Yi5zhrWtxapDQ+bCD61+6Sb48OgO3xBfFsH gajG376btW2/hbCvn2Dfa01dti8Dp/Lk5ZefE+jCl+XpWXsc7hqP/YPAuPoq xfFjIFl5rnjwBUGuqtKcZr1bxl0+NERQatMTHSBikCJIHS8dIRjPindRsk43 7WtPGCXAyNDs26xzb1w69vYtQdP9mSU8MYMC5cw4rYHA3OZ4mpR10RexPinv CKRZH23OZl3+cd0yz0mCguGLDnrW90ZsxqemCP7cbD81xfo/ARcvwA== "]]}, Annotation[#, "Charting`Private`Tag$38929#1"]& ]}, {}, {}}, {{}, {{}, {GrayLevel[0.5], PointSize[0.02], AbsoluteThickness[1.6], PointBox[{{60., 256.}, {80., 181.}, {100., 210.}}]}, {}}, {}, {}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[1, 0.5, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV0HlM03cYBnAU12AlHHIIUjT1wGtMKR6LC/iIio2Mll70yyXHrPv14hAZ UxFQ1BlQRNAoiPWYCOMwoCiHsKhcMgoZqECdQy4L1blx6BCksN/+ePPmkydv nuRlR0QJZXNNTEx86fl/e5nrGCYmPJhJQkSSF2pYPDn4ReYcHuozMh71PVdD F281b4UpD8naOtdI2tEDu+dwGTxM7Fhr9tMzNa5VP/h8zpwHPWeiprJdjWnq wshSRx4arc67sNrUeNDAf7mNw0OKtn6yv1GNdUmNJUn7eJjZ8eX16Eo1En1f 7Y9t5+GwLPixc7YaEzZXm7/awsfV0HXcniNqSDUc3rscPsw+6+64haph7fXj 2FlTP0w8NRjsocb8suKFzM1+SI+6nGq5nO7z/fjNI5UfirgFs9mm9P23q//9 4aYfLOouiSsGVVjQtOHk+ed+WGzvYjncpMLBKF9nPVOAwit2msICFUaytqVq PAQYmPw5MzlNhbDFrNPSKAEiJq2/N0SqcLLN/NyePAH2r+uzHOSrUDvTobjR JYDtZv6SMY4KhcElfI6FEDtjl8zJtFEhlXWgoW6HELWC1rr6D0okEnOrqjgh esyc/mJ2K7HqSfV3w0VCpIw1D/dXKjGQ73nmSI8Qv5cv8mm7ooT4YWct106E m780HvNJUKJyQ0CyvY8INdskl4NClFi/rGwR96gIiXeO2yZBiaDtzpX37olQ z7eWbWQrkfNqr2uKXoTyZk8no6kSrbpUd5GDGIZBnzIypMD9eS1eITwxbnGq nbyfKlBa1OvSkiwGI6DpnXeRAmHJTNvYCjH+LtuUoUtTYF7Fkkyn92KwilNs Z1UKPJSbvVm1VILxxOiZLX4KrNrD2B4pkYB34teauW4K3L6ti3E4LYEwoqi3 10YBR9kl97oqCa72xQ8KJuTYLpDP5P8jgSorr0bcLUdClZVmhO2PQecDU4qH cqj4Wu9Y4o/el9fMbXLliAoPqQ9I88fJaNWJtkQ5ZC+6O1Drj5h8h1esCDms 4qm34eP+6LdyMTN6ydF2obVTv1KKz8KO7JGVdF+vtzYvWIrLTa9n4xhyFJwt FMoypUj8U7srfYjCsoqBktP1UjC1ZLTqNwoCC7eF+ikpWO93xcQXUcjqE/nk uxJ06tv9uekUmu3D7eShBF3HPFjFMRTKDx0f3neRIJjPfHBDSOEuOZRR30SQ +jHufuEmClser0nMe0rAFBlD19CuWfNSeaqZIK30BLNgI4WGqa27uS0EZ5RZ oXnuFLpzp40tbQTpfaXzr7tRMPYmKZ+9IMhsfRdy0ZUCV37Ku3+AICcvnJG8 kkJr++aNdYMEi00NpTMrKAi3DrFvvSG4EhYddJR20AKuUTZEkOuUVHp4OYXI kvnlhrcEmvO5gXFsChdGz7BHRwluHu26o3Cm4BjoYdkxRrDsj70BBhYFzZP3 03fH6fxrvSlFOz+L133wI8Gt8Q9E5kShepPVuU+fCG7LF5qGOVLw1DxK0E0S uDRll/Q4UKhjxCiqpwjyV7BJCG1tV/uuhGmCgtfrSwIX0f/GcfcQI8Fqjwqp zp5CZwGH7TlD5zmecwntQOsBi6WzBGs/NRR32lF4fShrepZ2ocRXKqH9HyoF M8M= "]]}, Annotation[#, "Charting`Private`Tag$39016#1"]& ]}, {}, {}}, {{}, {{}, {RGBColor[1, 1, 0], PointSize[0.02], AbsoluteThickness[1.6], PointBox[{{100., 210.}, {140., 714.}, {180., 1156.}, {220., 1294.}, { 260., 1374.}, {300., 1432.}, {400., 1487.}, {500., 1499.}, {600., 1506.}, {700., 1508.}}]}, {}}, {}, {}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[1, 0.5, 0.5], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV13c8lV8YAHAhREmhpEKlkDIbticrO0oZlRWlrIt7zXuN7hUVkvHeq/WT SpQVMppGWUmSPRtklhmS9Hv8U5/v533vOc95zvM+59jm7H3UlZ2Njc0E/1n+ f6zrpDIbmy2s3vvKtuauJ5zJHZWu5rMFSbk2PbUZT+i8GCIWt9EWeHKKSuMN vKBW5uaqLfK24HulyWx0xAvSAzr7Dtrbgp5v2EvZTSRwErSN8X5hC/0+ZBdu ex9oNT4x0BtoB/0XRvZH9/jB61IL5svJk6D+LDeFvzAQ9uqT6V+2O4BOetq5 L5oR0M27hjzO7wSqR+5PfHeKhKqPmq5TDGc4nR/qtnbtZaCNR97IEHUBaZ5a pZG0GKiUXxtjkuwKwW/aeNJuXoO2qtzyu/LnYIbf9Euw6nWI05A7QK1wA6vm Iu6DpARobv5xVlftAtB3KZSbuCfCUOWbrpcf3UH2XeTCNqskkJO8HJjb5g7r k5wva1onAYVhJny3xx0e1SlyW9slAbt+qzlj2B3U5/c10R2TYEvVYLnxCg9g tGcXv/FIAosa3ow2BQ84LBR4pJ+RBKX1FuTJax6QHzIr+19BElxp6V6909wT crzlyVJ8yWCSfevZ/DFP+APqGUVrkmF15Cm3eltPUEs/wK0nkAxx+7or/Vw9 ofvjOUNb4WRITOwKrqB6QuazB0Oe4slwy7JzyOGxJxi+lJIG5WTIft/25gaP FxSVe36OsU2GxrdNVIFKLzjOu01yODUZxhbS5pxrveBDr93g/nvJwKPg5/v0 gxdI/tqQF/4gGQ7dEHSz6/YCsUq54wKPkiHfy+rY/V9ekFV9hUOkIBmSN7bK qEh7A5uI053aN8lgd76j1SHWG2bEcw8+/54M/ncyLfMTvUHJSUa2bigZEj4F 1XPe8Ab/xBGNtpFkeKcpWpGZ7g0bBmxfjf5MBo31J7OnX3uDtEOS+dJsMog/ 76ZHTXnD1Ok8yzouAny5SKw2WRJMHCdMOHYSoH/PIrdOjgRCFx5DyS4CRECx 6qUiCS4Qnx66SxPwOmhq+t5BEuzV7mt4L0vA6h/kIyRdErxU97kepkRA+qcg rlUnSSAw2ktO0SagM5VOVrtCgpGwlRsf2xCQrelydW8sCbYmyEfK2xEQ3qmX JhFPgjgTSlD+SQKkhLgauQgSTBGfZgvsCSBHRct+ukuCmQe2Jx64EMDvFfvV vZQEajvd9+mQCNBVZ1rcHiJBlA2tzu0SAW+42Bo+jJJgoUHnS1cUAXpNbibs 4yTwvXXpmNllAgzOqxmc+0WCE4xCM9kYAoyZPeqK7D4wH9Ga8+k6AZbTO6Te bvaBqbPUltZbBDg8zvs7Zu4Dt76wNLKeEPDZf1OI+FEfyE9wNxnLJ8BR5+K8 5XEfiDPg/LC7kADnjmPTRSd9QPRH9sF7RQSc5Z4bCnfzAbLK6P2I5wR4ntFs FrroA3U/5P/79YaAkM11jzSe+sCBvbTrr1sJeJaWp+BY4gOhl0eq69oImJdh FtGf+4BY3Z2U5nbMh4pLRV25DwiMNK7r7yTA4/hSh02DD1iF8V2Y6iXA/prS KsqgD/S9k3N4/50A4Lh5LnuTL2jvFGdE/CIg9ErEj8YtvjBkInLdaZaAF+vc /GbEfUGi/LsFzBGgIrE/TH2XL1yonBz9PU+AouYHolbJF+yl4f7pRQK2B3BU DZj4gltVbPkgOxNWjrpLioX6wucqgzq+tUyInqmj80X4Qs/UbZ1i9OolmW/z dF/QOu+V7STAhPXrhu5+uuwLtudbThWsY4LEQRfxy8m+EO+soGwsxAQ1+inR mSxfkH2VfMhgExO8NpsJ1HX5Qrai+VLIdiZMSmZ5F/f6AvfxmCGuHUwgy/F9 uP/FF6QSF9vi0SGHamPDBn3h1GRVzV1JjOecPt/+aV/IEjNiL9nFhLQCTa5U Xj/wmOWwLtrNhFYTuUWKqh8IfnVKWlJkAjdDuCJNww++a+a4k5WYoPJiMeqD th+kTVcqDqNv7HknKGPgBxZfVGM/KDPh9Bo32e6jfpCt25h8bT8T+hvu2ul4 +IEUl8v1HhUmCHNflvD29oO4Ed5sHVUmGGiTvt/09QPKTtnKdHRGrpbvr0A/ GEkp++KuxgT3+K7LGZFoz5TFYXUmTFkKl/L/5wfR2VEmRVpM2HFlMVQ9zQ+q SV9d+bSZYFXxTc/tgR9USlpcckAXKeU3lj/2g5ybh7s5gQlBgkeGyCV+wKvf PqF7iAlsLdEbuz76AafTq9NJukxQXEPq4W7xgxdbSuQ70c761vf2tfvB9JiB oLgeE9483Skf14vr4VyxPh0dRVQYHBr1A6bqzxWZ+kzgt1mkPOQkwyufJBP6 YSYw1p8SvsNNhv9oOgNF6IX654VJvGT4pbG9dBj9/VDIdIQAGRb+vF1nZsiE V7ILpFNbyFCj/YbgNWLCvu+2AsfEybBfedd6FfSj1NJco+1kqJQ+Ue+CJoSD fh6QJsNince/52ivf3Pu6/aRYcblMsnJGPNfas3Hc5AMop6kqWi0Hbn40ZIq Gdw+vijORRsM+w+PapMhqOcD/x+02KdfZ6tMyCDS/WUp2oQJSbHHuV6ak4Fb du7xIzSv4dMHBZZk+LGd8+479OwLcn+qNRnmckxd+UyZ0JA+7RRyhgxKopfP XkTrOR1b4XuWDLI7zM7cQT/bXJDqdp4M9ovJWaXo9HjfvuPeZCjd9WfXT/QW k6ZQU18yNFep2nKbMSFhpZKYLoUMG1sOdYqjQ4MnTymEkCF2crLOHD2zz3Jx VygZgh88V3dFXxjPu7k1ggyd6xP+BqNPuJA6eaPI8CX4of99tJz5uPVAAhnW U8B8HH2f58hcVzIZfoZqWLOZM0G0ModoYmH+mqufCqC5VLxaXt/B3wvWU+TR 1Kn35KK7ZCDfdmnXRE9l7RXKvo/zF75LMEH3bvtx9MYjMnh06a5zRVt1m07F Z5PhfrdfKwldR2Rdj8ojQ5lZ3q8QNFiuVgwtIIMOKdr7ErqIz6ORXEQGL++r evHoPVXvvN1LyeDoaEhJQaeFy651fkGG3kPm7GloEfWrOTavcb5F2bFMdNyv EbMjFWTQdSYpP0Hn9zYdi3xLhoOPIx1K0C3Vz2yf15BBw4u/4RV6Pi/NYfId GcK5ysLeoLfcuOIq9YEMQnlHKLXL8dF93U83YT6jfHPfo1087HwSW8iQfLVH 7iM6+rhOQG07Ga6m6M98Qj/W2k3710WGDpIDWyu6QWo9fX8fGf7k9R1rW86X wEK0+1cy/OsIHl/2hoUvcXcHyGBmOvBp2WrfapPahsjw0vDTimXb1z+5sWaM DEYT80Et6IinKam642TQ0uPVXJ7v/p2I9KApMkztfG7SiK6JOp+V+4sMjSde p9ejx0iW+QPzZFALrDOvQa+1Uy3ZvEiGK3zxepVoJd1tryz/YT59KqNfok/s WfUmip0CEmMbtxSjg4Una1+upMD3G/AvF317qf3DNA8FgkInlDLQ/Y0ZXQ5r KRCt8ySOQPM8i/+SjMW1IkKqJAYtey9w8J0wBX7nju+7iPalGE4f3EKBRmVt WXc0Ya/w21OcAjWfd6fbo58dFvl3bzsWp5xigCV6hegQr4AMBQInrMT2oyU5 GgUM9lBg3dOWXzvRhmPFG6jyFJgtPbhrAzr+VdT2of0UeFHkkjSD9V340Fta TJUCIjPXP31Ft8Vby1lpUKBw0cWrES12RkqtTIcCUZdfl2aidUzXwqw+BVIN MtyT0a775/T3GFHAFX6HhKOzuKstWUcoQB9MemaFVss6e550igIfI6YqfuH3 a59s7p3uQIHquNMh3eiI0AOUbmcK9J7KZVagayy4IgzPU0BrunIpBm396wFL wp8CnAFNKaJostZAdeM1CrTxi93ahP3l+Dfj1rkEChz6Mhg1h/3pQHRevxhB gYzWp4PN6PmPISs8b1HgFuePlXHoENf16qsycT6JzIbf2A8vxmjnHKqgQKnj hHgJ9tczig9euL3FfA2QWbFovVbed9dqKGD8QeaaM5pLonWwp4EC49qPf/Oi Lxd4bAvuogBxML/5OPbr+M6UpPwZCqR5x8g3Y7/3CfuX1jFHgaFj11vvoo9K uj5h+0OB2orGld5oIS+FBvMV/sDLTfvHjWauqOYeXeMPNX3TpH14ftyRngne IeUPFzbuaQvQwfz6mzsl2fpD8vOZf1l4vjXd3mMUeQqfj21T9EHPv+FV9Hfw hzMiu/j2o/UEq9lsXP1hR8yj5881mdCdq5262ccfEjodtrzVwPvGsEJfWrQ/ UCOXjGrwPPU4KXj6SbE/nJhQf5F4APsLtNs0CAdg/9rcYLsXz0NC6+GSSAB8 5X/msxL9afT+L7ktASAS1NmUtwe/B6ZPwrXtAbD60+IHLnTtT956C/kAyL+k WZWL94eztzW1PxkGwK2uDztnpZjw30LazvaQAPA8oVtug/eV9U89p758CYCS 47LWyRuwvzzfMeKeGghxS3uqL/8joCzPcIXKySDQmbpTMTOE92fLoGc9O4Mh vHRih1wTAd5E6+4m6WBg53C/3fsR72ddyjerZIOBdYXt8DV0rcvPkFzFYNAb fi072UjAWMAZzQjNYPA4bKNX/IEApTtmZZLHg2HXy9Q50/cEvBzZVuXOCAar srErqTUEXJIPO+AYFQxvzN+kWqPNyd3pVleCAUL8J/jRn/8SUZrxwSBRSWiF VhPAvm610dpbwWCYMnnboYoAw4Oz7/ILgmFP//vMvXifbabXffz9NRj2RcdP zb/G+/Vcbsbe78HQWWjkkI8uu5Ac5jSM6/O4KeqBzrZ03Fs7Hgw81W6hn19h POKz0azFYCCGtDjfvyRA9fk2OLghBG7V/2f1FO/Pd6YCc8hGIbB76pvN22IC hM7aR2aYhsBnuUCty+irHbqnuo+EQE6cDM0MHVjGz6t3IgT6m7dzt+F93DLu vqvgmRBwpIue+PmUAM7djVvyqSEQqMSSlMP7+3knqavjuSEgdvh2ykweAbfi r1wQKggBnsSbm96iG1//MFItCoHVD2/OJ6NVxAp56C9CID43p1kFzdUFlzbU Yjx1pNX0XALSrOwiNL+GgMgvwUKZHAJa6S8dnQdCQGWrli4belWBBEQNhYB0 zsX9bdkEkNYNLjX+DAEhsNG7hNZu8KO6/AmBViXB9cNZBHQfjg24KkSFofG+ e+WPCRAImDiRt5EKkirNEXfQuunHDrSIUkGjtrQqBP2IU/SX2DYq9J/Tv3QQ HVSe7pu/lwrgUPO14BEBWROrjrYpUMHxSv5SIvqzuKfiojIVNpAd6WS0Yajy hL4aFdwqRqsPoDeol3l2GOB8uuO6ZZm4vxd2mC0ZUaFGSTrrHpqWcmnPDjMq cDG+h0ah++dMRz2OUUFg4wcXC3RBYYcbmyMVGp7qqgxmEGAhN31GKogKhZOB e2TQtX0NWzZQqWBnOlAnhNa5/qiFM4wKd5S6a9jQyjNOh78y0Af5+zseYjzP GnffjqdC+Me5m/Hoa+5Z364mUmHLPTn1MDTP1uhbwQQVbvQoq3uhf4dp89vc ooJ9ymF7M3S3fs7k+gwqbGfr2ieAPj53+dGKx1RIPfW+dwW6IcP1zEQ2FVS+ vhmZTse/f/m2trwvoMKBPjuZDrTKy/nYF0VUuBKrd6oenefVbPC4lAoLTbWT r9FpH6+WRL/GfBmr62egRennfAIqqDDG68NxG524T3f32bdUyApvkUxAM5gL N3XfUUHH8fl1GvqvYauVUgPmJ5fR44f2X3iyZttHKkiErY69gD53+nzYUisV 1MQGNtqiP/Prq/zooAJLmjptgbYpk5js6qbCbml7ZSP0R5/FzLo+KoQWZrcd QhvvaHcu/UoFhnzsZzV0RXPB5owBXP9bMfN9aPVL15qJISqQPBkScug9wwYG 5J+Yj7KjM9vRD25s/+c8SYV8k6VfW9FipkvFljNUaMrkOL0JTfztIMEc1uMb uowwem3uUxn5BSpQzf87uQ4d7Xj969a/VDCv8p9eg2Zb73lzNRsNdvntnuRF B1UaWv1hp0HO2U4rHvQUWXLNyEoaKFDTxbjQ7rvYqtp5aPDZJsecE93f1hVa zUeDF+7rBtjRpy4XHyzip4HHj59fVqBb1BIn7q+jge9nV/1lm495ZSYK0SBP IHntsqtuGztf3EiDIcGbsGztI7s2+4jSYI8R0b7sEjb2ZoetNDDsuN+2PL5i fk+MuQQNjIv6NZfnf3SmVF9zBw3e3PTjW45vu3DykuwuHJ/fG5bjv1lFKhaV oYHa6Znu5fUJBZqSVu2hAft/El+W1x8jIy0zL4fvFwqYLednZRfH1++KNLAy /CKxnL/QmL4bLftoMFGfc2o5v/c9dJ9xqNBAizP7vBi6zvRhh6I6DdLOqE/u QE/s4fvtoEWDiza0aRn0xjXeInGHaLCdkyApoLV+NB18oUeDO+oZbgfRLu8P WI8cxvijWru0lus5dinZwJwGjzgE9h1Bt3o6PyVb0oCr2n6TzXJ9mlU1p1nR AKosgp2W64k/TvCfHQ1Yx9NyKWjSz0mlvfY0CBbSZYQv10PD8aMnnWjwzGNV y1X0t7it14vP4f7+jhy9h+b1jsgbuID7Oxv8JA+tcGTgg6AXDUI3C868RFPX ZvOTyDRIFX84vvz9bYjXiJGOwP38cr9yI36vGqTUxycYNHi1ftFHGu1swfmO EUWDmbXfbquicwXqV32JpcHqpUav02jD6yejUm7QIDBRfv4R2svndXr1bRp4 7eUlXqOTLXdU/UrF8WrN8pvRX9eNch59SIMTHf5nl/tRSELwRd5CjLeLv+w0 Os23965KMe6X8tQxf3TNUZ3ys89oILKf89w1tJAgL1tlGQ0ElNfxVaJzElNo Ie9xvysNzRSwPzb7/b2V2UiDebWtPabohWNOL9o+YX1bNI2dRx8Wkvmj3Inr 8VWMeYD+nFQSOPYd5+ufq9+O/VmQaPM7zRYKrGydc/ux34fOF3gc5wgFgaPy V63RI3bxrmZcoZBac1U8GF0mbmStuToU2tOqU8rQXpnP1LaKhMLQyIOWo3je 1L24vaJHHt9n8VJi8Dw6IB680KwUCvU+tAdP0XcjTkzX7w8Fib3rD/ehAw3W DrxQDwVH57c9yni+7WoMr7l1OBQY/YfsvqIjvp25dsohFEpoQFjheTmmD9FW zqGwuutqNwNtk7ElwtQ1FGxOeCY9Rct5tvhquIfCjBy3rcgT7NezBie2BISC 9AWRA9/QKry7t3bHhUJ415ROXAEB4woTj06+CoW8n2mFqnj+ixwxztIrD4Wy G02z/mjwvJ+99w3Ol2yVXohOyLTJ+1cbCiqzemaKJQTs217+9F5LKIj8C38m X0pAsGBC2ehYKATmjPMfwvsH16xya8jmMDDMLgh4ivcXeaG4NhexMIiXyrdj K8P4lYbazbaFQYaU5iMTdKbXrS5xqTAo1G6M+4Y2HeT8UqkUBqBc4SFSgfO3 t4zyGYdByY0aHwLvT1ufB6y4FRgG0a98dL/VEjDDbXf+TUgYtB/skNGtw/2w 0vg4FhoGeYPccffQ/j/Z7mpGhkF4k8MH13d4P9l2Bfquh0H9kfPKE/UEXIy+ Fbb9cRi8CdR134L3w6Hj5X8zesKgsce862MrAbaBK//abQuH9j6Dh5kDBHzv y9/avD0cArPLUsS/E0A+7KhlJhkOhhl+U8no+A3Pw7SlwiEvf7qFPoj9spDE Lrk3HDyWjjq5DGP+Jru4f6iEw1CYi5vKD7yfXMhfH2YRDiLXz0jI/iKg+qSD 9L2wcLDh8GEpcjFhSOi1ZPtAOMQT7Xrt8kzI3iBvYagfAUk1MaIPTzJhc/yJ qx1pEbCHZF3ef5kJGn10pjXPRZAsNSwYfIl/LwaUNwmcuwj909Ya234yIaif s6/o/UUQiGDLtRRnAX8j+Y/Rh4sgUmlnyCPBgrTn/Rt7Gi9CibwT7RW6PuGN BUfzRYieZy+W2c4CsUOMiiOdF8Etzc/ijyQLKm5zpA99vwiGs5a2V3azgNea 3VOUjQ5Dp9YmW+5nwR0d38vZK+hgkac4+RutLPf1AXDQwS0hrf7uARacWlnR e5aLDp9V3/4dP8iCnIIIi4LVdJDwMJS/pMaCowIr9pluooOKUPw/ljYLbtT+ W6Ap0cFw7/tXlkYssJyV5ZxVpkNGGrd4L5pnh80ar/04X8rKX+eNWeBPzRO3 V6HDhO62f2EmOJ68k56WFh3i55iUB2Ys4EuuiF0yogOLaq3SYskCqmOkRJgT HQQy6twqbDHe2Ccyc850gLTRSXU7FoyU9ih5u+D7V2tbC9E2ggf0Hc5hfBxn 8u6fZMH+qu/ntT3p0DgWdZV6mgU/ZQ0L/gXSocbvkORqJxY4zPEahMfTQfqE +5f751jgoR7CLpJAB0eTwEQBNxYEh42+yk2kg8ihpTMhaIK7/mAfQQeFLTMn zc+zoGFjrIzWbToEWn2LGr7AAk2VtWsWM+mQumepcdqTBcbUsNrExxhf6YWv Fl4YX9l4pGw2HfJsBdiy0WTDxiW7PHxe73LS2ZsFWTbXJ0qL8PnRhz7lJBZs DhJsDqjEfCpf2mDhxwLpl/T4tW9xP6+RHW6jD6yYMX1YRQe2sra7w+ijl5vf ttbi+7aq/GFkFlxJSS7e34j59f515jaFBayeleT3H+lQxidq/RWdvs1fwfUT zucqrrbLH+sn80RmUis+t5mve4T+Xbrx5nQ3HcIFF36lB7CAaynK+mov7udW bYNvaCGdecEdn/H3FrlUsUAWKNS1xxz9Rod2nz3M62i3zpTQJ8NYH81qjheC cP/FeNWNRjFegdDXt9EM5+C5z2M4Hwj/+YBOHbEjCUzQgeebEbtiMAvaFjY7 e89i/RnO7R1A84Qb8o3N4XhBx6+sDmGBykpKodtvzJ9xd58SmrW2gct5Efdn q5kvFV2TtJDb+xfHf7M7+z/0701Stif/YT3YiPSUo+0kwx9bsTNgaAeXCAcV 85WZZfWRgwGk6lmJ7ejnch1/zVYyIFChXRTQW1SVLA7zMKDmmVFPINr0lf3v ylUMCF9TfS8RTdO9mgZ8DJCOXmudje41659R5WdARn9bWA+a/5PAnaK1ON+z Q9PTaG0bzcPK6xigkGZ8ZBWNBaSe8xO56xnAc/17wlZ0qjORskcIx9+w6qUC unGwQidTmAHttg/qddArPMdHd25kgIRoTtkxtHOAoZa4KAMsuBosfdEJi+TB m5sZ4JZRMxaGroy4Gy+ylQF5BbPnYtAzXA2qyWL4+z7DCiZaMmbh6zoJBkwE 5i7cRVutk4qJ24b5OCcq8BjNII7t59uB65EOWlGALtwc3hslifF8fPa+FD2Q mhXFuYsBhgINfq/RG3Z1KERIMSBe+u5UJdrg8crOv9Lo2W1G1Wh/BSV68G4G iPzU9K9Fpz+13zMny4DGTV8D69Ctaldb/PZiPJv/HFk2d1lx6IQc5leOslCD VtHvl/JUwHxt0wioQrvVCXwcVsT1nlJ/W4FmHdEMPqvMAFbf6W8v0bXN53d8 24fPIa6xGL1gS9Q7HMD8ZxVdzUPv7qugdB/EeAbLBDPQdi7jYraqDFAxJc7d QV8d3lzToob18F78UiL6hZehz1ENzMe0vlcUemyaLPpBE9fXOyEWjN4SdLfS RBv3T4+H6Y42W3rvUQP4e1+/lpPoUPqCsL4OA8B0U4cxOodH6nW5Lu6H6edU FXRv7DE3LX0GsNFzZHei1wqGr3tugPGwzgcKLNfL1o4zhUa4nlG1Y9+wnlLT Vq5RNMH1uIn21aE/SikVZZtivUGQ9BO0ktJVnodHsH7ndcaD0M7FxU92WOLz Gr8Lp9AJGv12qUdxPa25dzTR0waa2SnH8f1/jXsX8Xthf5TRyW+N+2skoNKJ Xr9GiIdhw4CSsnqOYrTCpxFnr5O4/tjwLg+0hwNLRNcJ4wkU9qrF7zekgsOg xBl/X3zx7G30lZ3efntdcH0twxtJ6IxR/YaN5xggUHrq7jp0f8A0fcwDPVOm oI/9YbrT/omTF8aXMdrEj2bXqutt9cZ6sCLvbMN+I8F5V7XclwFlxsZtZ9Cn 483HkwMxn/J3jnhiv2rNyLTTZjDAccz0jjb2vwE+4ejCSKw34ZjKaeyXM17h T2Wi8PvQexiVjl6/31pA6AqO94BjiBttXs5ZNXSNAanHNEZKfVlQ3eGgmHAT 3z/yYKED+3erxjt77tv4PbBPRgWgv/93IIZ6B39vp5wmiOY8u2bw7F3c7zmh oMPY/2Hq2S31hwz4PMqIv+3BghLeDTwD+Vh/T4iz7Hi+iEW+HQoqxPyfm66m 4fnD+Eeu5S/CfD8ZtZ/D88pi5tMVlVKMx6tKauAsCwZ7rq+JeY1e+ejPIxf8 /p6sEVSux/xWX7bvdcDzVPbldPV7nG9E45wG+usDj+ZTHzAf/ZmxLHusvxvv ki81YX0WPthrguelPuOySGc7Pg8uvJaC5yvZeqVYxACuR6DnUocVCzo/Fi4J D+J+62cViqDB1KXv0RADbGqqBo8fY8HqQ5WpzaO43y9yrOvwPL+3O2KH9BQD or2+Kt00Z0HT30XpD0uYj+mqoK7DWD/3Z5S3ikTC0KWnuu9UMB8OjiuYmyKh xts8sAPvI4c21zcIbI4ElX311QN4XzmacO88p1gkuB0+kD+/D+MLP/rf6I5I mKCMXeNWZEHxqTzeZ/KRYPOnxKBGmgVawh5fThyOBMgRMq7fwIKqxracRsNI yLspb3hTmAVHYnSpxsaR0L7O/oCbEAscOTZv1DKLBMeU0J4/61hwcbLWdOcx jKeHrMC7hgVv30uVTNtHQvxjtqfl7HgeXPoWF+8fCfN/NocnjDFB3zjO9EBg JFgE6KtMjjBBi1+VtzsoEgwTunaZDTNBgYiLlKJFgkKS63+LA0wQTFelvqJH goSYb5VqHxM63147PxaP61FVl5P9yAS3lRp6ho8xnkrhI935THCq/b7iZxaO L0ef7sljgl3s9deJOZFQNtYQ253DBFPhQbW+J5FAii+/2fiICfI7ExT9S9DT e78lpjFhVm9I7P5bHK/7iXnkdSaM8yR2G1VjfpZEbY5fw/tuveaN8RpcX+v6 A9tjmdBhlSisXh8JnwN1zuVHM+GFi9bqpqZIEFCKPJMVxoSn0sO1Ac04/nXT VmcaE3LGEqO2tuJzmZLVG0KYkEoeZj/fgeul/37u68+EFJWkMv4ujP9wjMIW MhPPK63Qwm6M30DTscKHCVfKhtXtevG57rChqzcT6Iyk3//6MD8mHkOcnkz4 H1ivR5w= "]]}, Annotation[#, "Charting`Private`Tag$39103#1"]& ]}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 213.45000000000002`}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, ImageSize->{1211., Automatic}, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->All, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.880515104319606*^9, {3.8805151830306215`*^9, 3.8805151956239915`*^9}, { 3.880515228982359*^9, 3.880515240778878*^9}, {3.8805152711685925`*^9, 3.8805152853869085`*^9}, {3.880515375946681*^9, 3.8805153821964903`*^9}, { 3.8805154968805356`*^9, 3.880515511333225*^9}, 3.880515670328432*^9, { 3.880515706217976*^9, 3.880515724342428*^9}, {3.880515967232091*^9, 3.880516030917673*^9}, 3.8805163125134926`*^9},ExpressionUUID->"06b062be-2109-4132-84c0-\ 2692a46237ba"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"hH", "=", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "4", ",", "6", ",", "8", ",", "10", ",", "20", ",", "40", ",", "60", ",", "80", ",", "100", ",", "140", ",", "180", ",", "220", ",", "260", ",", "300", ",", "400", ",", "500", ",", "600", ",", "700"}], "}"}]}], ";"}], RowBox[{"(*", "Altitude", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tT", "=", RowBox[{"{", RowBox[{ "288", ",", "275", ",", "262", ",", "249", ",", "236", ",", "223", ",", "217", ",", "250", ",", "256", ",", "181", ",", "210", ",", "714", ",", "1156", ",", "1294", ",", "1374", ",", "1432", ",", "1487", ",", "1499", ",", "1506", ",", "1508"}], "}"}]}], ";"}], RowBox[{"(*", "Temperature", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ttT", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"hH", ",", "tT"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ttT1", "=", RowBox[{"Take", "[", RowBox[{"ttT", ",", "11"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"ttT1", "=", RowBox[{"Take", "[", RowBox[{"ttT", ",", "07"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g11", "=", RowBox[{"ListPlot", "[", RowBox[{"ttT1", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"fttT1", "=", RowBox[{"Fit", "[", RowBox[{"ttT1", ",", StyleBox[ RowBox[{"{", RowBox[{ RowBox[{"h", "^", "2"}], ",", "h", ",", "1"}], "}"}], FontColor->RGBColor[1, 0, 0]], ",", "h"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g12", "=", RowBox[{"Plot", "[", RowBox[{"fttT1", ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"hH", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"hH", "[", RowBox[{"[", "07", "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"g11", ",", "g12"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"ttT2", "=", RowBox[{"Take", "[", RowBox[{"ttT", ",", RowBox[{"{", RowBox[{"07", ",", "09"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g21", "=", RowBox[{"ListPlot", "[", RowBox[{"ttT2", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"fttT2", "=", RowBox[{"Fit", "[", RowBox[{"ttT2", ",", StyleBox[ RowBox[{"{", RowBox[{ RowBox[{"h", "^", "2"}], ",", "h", ",", "1"}], "}"}], FontColor->RGBColor[1, 0, 0]], ",", "h"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g22", "=", RowBox[{"Plot", "[", RowBox[{"fttT2", ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"hH", "[", RowBox[{"[", "07", "]"}], "]"}], ",", RowBox[{"hH", "[", RowBox[{"[", "09", "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Brown"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"g21", ",", "g22"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"ttT3", "=", RowBox[{"Take", "[", RowBox[{"ttT", ",", RowBox[{"{", RowBox[{"09", ",", "11"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g31", "=", RowBox[{"ListPlot", "[", RowBox[{"ttT3", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"fttT3", "=", RowBox[{"Fit", "[", RowBox[{"ttT3", ",", StyleBox[ RowBox[{"{", RowBox[{ RowBox[{"h", "^", "2"}], ",", "h", ",", "1"}], "}"}], FontColor->RGBColor[1, 0, 0]], ",", "h"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g32", "=", RowBox[{"Plot", "[", RowBox[{"fttT3", ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"hH", "[", RowBox[{"[", "09", "]"}], "]"}], ",", RowBox[{"hH", "[", RowBox[{"[", "11", "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Orange"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"g31", ",", "g32"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{ "g11", ",", "g12", ",", "g21", ",", "g22", ",", "g31", ",", "g32"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input", CellChangeTimes->{{3.880515758419526*^9, 3.88051579057481*^9}},ExpressionUUID->"7cafba3f-1071-4ad3-9d96-\ 743b4b24eebb"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "288"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "275"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "262"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "249"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "236"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "223"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "217"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "250"}], "}"}], ",", RowBox[{"{", RowBox[{"60", ",", "256"}], "}"}], ",", RowBox[{"{", RowBox[{"80", ",", "181"}], "}"}], ",", RowBox[{"{", RowBox[{"100", ",", "210"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.880515760356969*^9, 3.8805157915122795`*^9}},ExpressionUUID->"c58b2b54-0d72-4213-bf9c-\ b56b47691513"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "288"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "275"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "262"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "249"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "236"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "223"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "217"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.880515760356969*^9, 3.8805157915122795`*^9}},ExpressionUUID->"2a0c53c1-87b1-49e5-a02a-\ 28e9161674b9"], Cell[BoxData[ RowBox[{"290.82446808510633`", "\[VeryThinSpace]", "-", RowBox[{"8.95833333333333`", " ", "h"}], "+", RowBox[{"0.26152482269503546`", " ", SuperscriptBox["h", "2"]}]}]], "Output", CellChangeTimes->{{3.880515760356969*^9, 3.8805157915435333`*^9}},ExpressionUUID->"64658bfd-852b-4510-896e-\ 795f459e8b43"], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0, 0, 1], PointSize[0.02], AbsoluteThickness[1.6], PointBox[{{0., 288.}, {2., 275.}, {4., 262.}, {6., 249.}, {8., 236.}, { 10., 223.}, {20., 217.}}]}, {}}, {}, {}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV13k4VP0XAHBlyVqUFkWWZDdz70wJkRNSeCVZirJG6dqFemukRMjSJNlK SlQiWtRP9qzJUqEQ4rWUFLKVLX7HX/N8npnn+X7vOWfuOUfayeugy3IODg6+ ZRwcS58p5514SOebu9o7bi0jVX2hslnqn0NS/+qsXf9y2lTFFxarSy5JSUXo 2Iv7cnkp+0JKWbQkt1SSjkxok/VjRV9w1/b3+COZqXPk3bZ5JTlfaJ5zjfsl +UrntkGQpJKkL6zo6JUflqzVcS1T7tkh4gt336b6/JBs1+H+r9fw2pQP5ORG dLjThnRMLjQ15Bf4wAmdD0k/fSd00n/4T8iG+oDngGJfXs6MjoEOI/6rmQ/w S4fId6tzgL7UPF/ZJh+IEa5TuuvACYWHPzRcHfIGpw6LUs56HjiUcf72q5fe 4FMV4uQlzw/CAo3qB0O94am3oPkGQyEoN+AbYR/2hrvn3IaIQ8LgrSe6lqXo DcGp82aTP0XgtVTZzzd/vYCjuQeKzq6BhY+jpc3ZXiDnd/yMhdJaSKXZq7Yd 8oL+qQQrgeJ1UNcy26kp4AVGA1RgrM8G4CSWw6ZCT9jfz1bevHkj6JqkK7h6 ecJQhdOFN483gaYx3eaUsifQRD5J6NlLQFfscNydfg/g15ly7JzYDC9+JVzT zPCAvcM2f2QspeDF12OG5455QFu58zIbFWlQezoYNbTVA16EV9pJTUmDd71B 79ZRdzjO7d/T2CgD39lBXI9fusMx33MvBJO3wJNuZfOcEHegn1Bu/MdRFiQC qpw0rdzh3WoVAX+NrXA75p72czl3KMwJvqnCKQezm+rr+f66wbllSgfqu+Rg LrDk7IcmN+DvPLvPM08edlkM+Vllu8HAfem4VJYCrPE27N8Q6QZxCmJcrywV 4Xo2p/DYSTdgJx+vcZRSArnMfu4XJm5gE2fbKPhNCaZXfh2L3eYG0/oZM6kl yqCZGSIrL+4GfQO6Z8rDVMA0RHyjAK8bpGmTmxocVeHskIex4hQF5fv5L805 q8LaZ9Khg5MU9Nr3DSm6qkJKMu37A/SW4BsFlz1Vwb3RnJBHp1fPWMM5VVj/ uq5AfoKCDNPyxOdxqhDf5FNGjFHw0NF8XXKNKqjfj49xGqbgcai/yAlVGggI 66nt+UrBTy3b4FCCBllcVWuF0SqT+hP3mDQw15qT6Big4JGT6MceDRoU+oU8 9EE/1HmeaGNAg3E+/vt3+vH8mV+S++1p8KvqP12ePgqSPdxp26/RQCOkgvNX NwWfZS1SzeNo0N/eMFOKFuvcKeybQINE36gNbHSikcB4TgoNNnrIvSfQN+Qf vVB4RIPgyw3yfl8oYP/3TUu8ggYDRoNnlndREGZ5zJhzigZTYgfStD9TkGba edRlmgbCQn5Cq9BFhpaeNXM0SCJYD3vaKRjX3nstcjkdxnk1PEPQR+WUW9cI 06F2wVm9sY0Cxp9xJ1llOiwshNZQrRR8SQw+u8eRDpFmP9/XtFAwEzsX+cCZ DlYH49VT0aLRfil8rnRgX5J9H4A2vHi8rMGTDkanh2Pk0HknjXisWHTou0ca hzdTcEVzdezxBDrcErlUYtFEwfbOu5lhDXQgdIzYIu8pEKa5Tue+p0NaWPfu sXeYjyDa3rZmOgQxVSQ+oNO3FPYrfKYD68WPA9fQom4tkm+/0iHYifPxGvQs i9OYh4OASocbO6QaKWgXUHu9T4wA0RG9+MP1FFRvSxrs3EjA/L2q89roPNv5 VT7iBJgVL7Bl0OzccrskSQK0NyYwhuso2GduOv99KwEygQ5UCDo/2XVHJIMA qW+W2QVvMV+KNx83GBMwaFz3r0EtBZMTBhmXTAgQH7tSTUOblozf0jAlYPf/ 9uqvR/OYG0VlHCTA4X5+0+AbCvxZM1SgNQFjq87sjEEffHdIQfUEAY7CHlq9 NRTkJHFK9bkSkFO5kNiA5nPOXZ9EETCcFC33Cl02zbOC25MAnQdpLWw0Xebl QKcfAeomj1i6aEF/0XtRwQT4V9Pnc6opcNUpS9YNIaAz4rprCrqCzz12OpSA bZ6T3FHos7crLjpHEFCQ9Lj5JPp7ja+DFpsAMdbfAnl09cYPEj9TCJD1XPMq u4oCmQHW2rRUAu6D4fbb6MBcBaHDdwnYsI3VexW9Tf/CfEU6AR8C29+dQqd5 0DtuZhGQcMvntzY6qCw60fgVAd4rNpzqqKRgqKssbqYA7/NCctt7tNXcBPtB EQGeEfayVWgVNZsIzjICdDPCYnPRbVlyZwurCQh49G/GZbRerXXAyTcEDEXq 9rDQOV+jfNe/JaDlup7RKXSo9AR1qoEA/vUjWQ5oRkLpEeUWAhaG+jO00Sl5 44faP2K+ObxstqN5m7ZahLUSULST3KWK7haM+qfvMwEWcnbXJdBRwYe1b/5H AG+ttR8H+k9qpIZhHwFdIhlpMxUUOBWXbP/TT4DCRQWOCbTGtCzNfJCAzc2t +76iv3qMbRYYJeCGfpvwO7RZpOymV78w3q/782vRRQ8PrT8xjvXrrMiuRF/v K15VMUWAm8SR+gL0AseYgM8fAt4w95Ev0dRmWV7JGQKSvT2qnqLB+grHuXkC 7tk6nMtEZwUUzyssENAmREvJQK+L+zX9aZGAS/3Mkbvo4KdbpkKWkZD+n4/n bfRwo9UYg5METe5BiZvowz8jhnu4SNhnGj+fgK7kK/4ew0NCXSmL/wY6WX9L 7xAfCUzR8edX0dxOVl8SBUjYMH3BNBrtHRTx2UCIhFPL922MRHfeKvo0uZIE feZe0Qj03oLRpjRhEqKunNcOQz9rlXl3YDUJRrwjN0LRm6cs6xbWkBCYfUMi BB2xOqImey0Jcqf9W4LRk/SiCpv1JOxxjS64iLY3GS3lFSPhc1DXuwvot5RM 0cuNJHwtdhFd8vZwy3xncRJcZeTCg9B3MsLzVm8mweHxZuUlC1QUPimTJKHe zvTveXRAz0i2pzQJT9TyF5bc+1c6U3wLCfzbrelLvzfZZJnxVhbPs2ZcXXJi P63siBwJPX9V1iyd1/+Yt+OnPAnLg3aVLZk43TsVqEiCbtfx+KX7sqBIeJUy CXc23L+x9Dxv+OKV76iQsJGcL76EFm32MiBpJDyTO7lqKR4Otwwdy+l4/5mf EZfR2S5bWOYkCTszw1TD0dO0v/H9DBKU1DRml+KrP/3pqf82EtTvLPu1FH/2 6yf1PGokOH3rWRmD7rhy5VvCDhIeCbRasdFyFs7LFTVI7Cf9NbFoX4ldEgWa JFz7scJpKd/8T8YOdmqTMKITJ7JUH1b/1nl46JDw5sW83FL9pOlmhC8ACWW8 LJel+tL4eLhESp8EXoNS24fokNuM9qd7SLAiLq3PRr8/ITipu5eEyj+2s7lo 19lSRRcjEn5LHN6Zj86rSNL/bUxCIet0UhGaI/qUfZgJCbfyH0u9Xoq3pPyN zAMk5NfYPXqLrtGP4RixIuGAXvOjbvTqla6bgg6TsHgl02wAbde6W03YBvOb Gy/9A/375JQbw5aEYvYLrT9Lz3/1aGvAMRIWcrkdRPD/7XtYbXyFCwmJPbGm G9Al0sJCScdJ2D+i5iqJtsyr0C08ScK6uxWiNHRIu1LOohcJHM6jNibo92lc tWwfEkICmdct0eLuX/qkT5Gw1S9m0hb9fOGamH4Axms6nOGF7t0yExLOwvjY s29eR+/2rDkiEkHC37uD0v3o2bbvBpVXSOD5n/GnUXSeniDjdBQJwT/+Fsyh 5cTMeLuuYj0+M10riu9bwcrPeQ/jSeAufCi0F90mNiIE6SQYPCWEXqJjQ4Rn xjNISC4Ora5EG48y+jMekHD8u+KTZnRJ5ekCgSwSbFLtRcfR6V7LTrQ+JaEo 5IIUif3Bu0q0zLOUBI/tiXvz0UrEjizp11g/Gt3cb9F9ydbxLeVYj0f9JzvQ Vt633TWrSSjguOrEgf1Ka5OCGE8DCRYVp4ON0bw+O31TPpMQQJP8MIROFXeS rZ8iwf5WVaYJ9lNNpjLN6Q8JamuUOo+hWwwnd0xPY/xKMtXPonlPXzaWnSdh 8Pms1wO094dHvqzlDIhd19fKif0bLk+UqaxigEFxQ1Qlunc0xDZagQE0Nn+k C84DLJ79J7YoMUA/5SPHRfQ6ifU+r5QZsLK78M4ttJFRZsgAjQH5HJ/tWtDP 0huytLczwLHoaMueBgouWa+bHd7NANw20gmcR2QrHsTvP8KABWOZ9q047zSq TKd3HmWA4Eat4T3oM/H7nlN2DBAPaFA8jq47+f3dZUcGaLZZiT9A+wor85We YABLn+ub0gcKSm1zztH9GMBbXLtaE+cpm+k8B+FoBvxDW6xYmse4nLi9bscw wKmI/9tNdE6dZaAKmwFn2qIZr9HLUn8n7bvOgPsFs7qCH3Ge3aPefCGJAVzy Xobp6KnYwj1jGQx4m1r+s+MTvi9Uy5WaShgQLCIafRLnx4fqR/iCyxgwLh9m lYAu1Zv8RpYzIOr6LdMq9Ii1XMa1KgZoUTnvpXEeNb58RdKsngFX13qu7ELz dB8Ufd/OgPljtmeOdlJwjt33t2GSAdPdc9xBOP8en+D6UKvEBE8LdV5znMft Huk3HlVhgrXoyq5wtJVjSN2oKhOsym07StAG7zir15JMYA1SFsrfsP6zlhc6 7mBCiK2WOs8gBQNOHBkzekwIGyqsrvhOgXPT3BlFWyaYsFUXbXEfcHo6LhVx lQlf+Du6VuL+4R5sPm90jQmLrsaRVmh/87xWwetM0Frp5n4bHT7lH8OOZwI3 Lb+W9hvjqzEzl5DCxL0t4pfZH5yXXy9+up/FhAu7+UfvzmD8mgSjK2vw+9gL ua4L2C/vebhermWCWUt700v0Pb9GvX11TOg/2qvIvUjBy3Xs2bpGJhzRW3Yq Dd1ps8a1+SMTwl0CfLo53EC+T0yvt48Jgwvaksc43YDIO7s5fYAJAs8iA/PQ mqEdMy7fmGCUHb6Kh8sN/pFPefJ9iAkbAtiNmWhfN6nNY2NMmLRrzZ/gdgOW 1sWZZxNMGDFKzTPgcYNQod4WvykmLD+/rj8JnZh7L3J6mgnnXq3+AitwX7vA daJglgk9rxMexqGzzFx0WfNMsBOpvz+IzpOplti1wITpB7ltWrjflUzIzSwu MnHv0t11Df1/OyiRvg== "]]}, Annotation[#, "Charting`Private`Tag$35443#1"]& ]}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 213.45000000000002`}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->All, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.880515760356969*^9, 3.8805157915747766`*^9}},ExpressionUUID->"0dc12c1d-62b1-4f5a-8305-\ f4c745d633ad"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"20", ",", "217"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "250"}], "}"}], ",", RowBox[{"{", RowBox[{"60", ",", "256"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.880515760356969*^9, 3.8805157915747766`*^9}},ExpressionUUID->"ae52169f-ce7e-4745-9fa1-\ 8ddf0c62a93d"], Cell[BoxData[ RowBox[{"156.9999999999998`", "\[VeryThinSpace]", "+", RowBox[{"3.6750000000000074`", " ", "h"}], "-", RowBox[{"0.03375000000000013`", " ", SuperscriptBox["h", "2"]}]}]], "Output", CellChangeTimes->{{3.880515760356969*^9, 3.8805157915904045`*^9}},ExpressionUUID->"c0cbced0-40e3-49c9-ae64-\ fb6f55be2565"], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0.5, 0, 0.5], PointSize[0.02], AbsoluteThickness[1.6], PointBox[{{20., 217.}, {40., 250.}, {60., 256.}}]}, {}}, {}, {}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[0.6, 0.4, 0.2], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV13k8VdsXAHBRMpNIChEPGSNRIitT7jn30uPJlIoMZSYahJAkU6hMT5RI UTI9RWRMGYsMv6TJFA3GyHDjt85f9/P93M/Z++y11l5nbylHb3NnVhYWFv41 LCzU76XNJbwsLBoQNrfExiLpDlsixrlk2DTg41aJ7HF0yaQkhwm7BvgazSq8 lXKHz03XWBN4NEA9u5SZK+0O+wM8f28T1QCF8NjbhJw7LHTKf9FT14DZ95nj 11TcwSMmq+yikwYMzhuFcem6g+VKrN3qKw0waLnVVGPjDsvpT9tHs3fDWI7S 0rtkd/gpp33d3ksT+Ny6x4I73KFQxzmjd7cWqLg12Dxh8wADji/NWnx7IMmw hHNhnwfINJYQ8v/bA7FKUoc2envAO82eSZbSvbD7A81/OscD7NXu/O/9VW14 fMyUSfzPA5TFGoSMzffBAtuR8U52T+is3h2QqqgDnbm37jZpeUKd2Yp84LwO mFaXzgs6eULoKR/Jo9W6YGiqI6wa7wkbtXfpKNzcD8XOrNwulZ4ws0QWXD6q B1V3irWNBj3BosI2y0kMQM1baMMytxcI7R2OvnIFwLR2a57LLi9YLtos6fcd /+/V524/7AX0iICXb6wOwEeXuAP/XfCCBrPgzb+rDsCES45dfYYX5Jx5dCFR QR/WygW+4qnxAk+HEhblZH3YIb00o/TJC44YOqomLOkDu8L72cZlL/gvXNvH 1dUAeMNHNxiJeoNGRbUte7sBLBY8o7vu8ob0UmHXezsNgX6bp6uU9AY3zuTL lRmGsNgSbnPTyRuOW9UxktcYQcafwfpTgd5QyyIsP+plBEdf1XyKT/AGDi9d Ga1+I3in1qzamOMNZ94KtJjtN4aIlhVRvXJvML3BEz6QbwxMEHz+30tvoDNK h3YKHIR/12bIZPR6g1qLimvk6YMwlD3K93XIG0Kzu5hmnw5C/tPVt/1T3jDn J6XzxcAEUj4cGY1f9obuzNS40SITkGO2979l9QEnuct1wSUmEHV3nfYI+tdj 3zmhMhN4rWwWP48WqiPsDZ6YgOB3kU2ibD7wzxBT6Xa1CXhwhGbbo3vkHNps WkzgZEd+4TC6t2gHd/uQCURecbvxba0PvKuvjCrdRIPDhUk3e9h94FymSp3+ Zhp0fxydHEJvDsxe7BSlwY2kCr0ZtLVatNuUGA0GL/XX8K3H8bJs6MrSNCiM 49I/iO4OWuDPU6XB2v3SpuXoN5qaKekmNLi/QetyLIcP+Ajmv95B0CAn3+5a GlpgQpyjgqTBSNNK/D20We66832mNFC7WutVi+7Y2GMrZEmDRQ31oll069Rp iXgHGhjv6NC25vSBpvzi3LBAGgxEjHmJcuH8cl6F6kE0iGTkysqiv+QoPBkK pgFH+boudTQz8+4rozAaJLsUs9HRatdvfueMosFbo7KuYHTGhfNqSTdp8IXp uu0T2o9+oDq7iAb7GVdOp3L7QGjznxcWJTSYFXiadRcdZ1zZsbaMBqH+sTWF 6Puw67PLExps3yrZ34j+oPEXm+JzGsSPzgROoU3EOWmlrTT4FWDsbsTjA+IT b7obRmmw7mwu+yiaS0SDaTVGA/MpOtskekEvRfrHOA1suXfO/UZ3J9r7Cf2k QYbsg6ecvD4Qu/sbv/MsDUanXZ4roZlBbCQ7CwHJ7wVe+KAHuDXrTEQJOLYs XjOFbtFIGxvYQoDgw70nFtBP7Zn8vmIEhK8kMFfRNx7XH03bRkBS1AwfP58P 0C3MmON/EXBOLaxECf0s/aRWjDqO19v2yxmdvuPfR+0kzuch7vIGPT9rnHuJ QUD6wXV7+tB/P5/J2GtGwD09kz8f0BwWRGyuOQEfIz85fEefDVp0C7YhoNbX 4vo6fqzf11byyq4E2FQcStFCF6WxSQ6dJGDR6VumLprb6bFImhsB2cqf0gzQ 9Qvs69d5EbBhU/8pM7Ta9vKRAX8CHA2E/VzQfAFCd2PDCXjPf0c6Ce2mV5uu H0GAcOyP4ynoF5weSQuXCbD963piBjoosyHM6SoBq4XTbffQ31/6HddJIKBO 4ldBJfrVlk7xH7cIEPHh4/6MlhkJEs7OImCiijtkGH3xsTyv9R0COmSdhsfQ moahzIYcAh7+LRszjc7xVH3/bwEBA2xTwCrgA2G1calkBQEC/akMKfSPD7U3 FisJOBRtPiKDtl6eTcirIqD8wICPPFpF0/YqWy0Bv18cO6GK7i+QDXzWRAAh I1eugzZqtjlz6hXGk9fhhx66aDTWT6SFALsVt00G6CtSs26n2wngmJswoqE1 UmrsFLsJ2LXniaAlOqtsxupdD+bH1verFZqr669/rvQRUBKx/NgW/YUnlj7U T0DLz4tix9Hx4da6/34hoE2YdsINvZgVs5c2RECh76VeD7RT9fPdv4fx/bvj dL3R+xZkVCzGCNhXJPj1NHrMc1qCe5KATdUDeUFoixiZrRVTBCibp1SEoJ/f txJxnSHAY0KqJhR9c6iav2GOgCM6ebkRaH2baJYLTAL4VPw+x6Afnalmyq8Q cJT5MCEOvfnG1ELvKgGdnU80rqEnOw5Pq7ORoJKka52EzjCUHvzGSULFSU7e VPR6x8MfU7lJ0PFptEtD+1282m/MS8LXELPMdDStcrIrW4CEouKelQx0Wd/2 14cESejoeSOWiZacs2xd2UiC0JoMlSz0vGpVg60ICYKe2cp30A6MyRoOURLa H33Yko1uc9teVb6FhIdzY8uUtaIsnzqJkVBm2PjmLjo7N6pMUIKEwXTvtBw0 b8OzotptJGgufLPMRZ/7PPHQS4qE4iOa7PfQZlstc1tkSBDbp6ufh04fVqm1 kyXBp/t3I+XRRxzvf8iRsCZERPc+Wv3s4FzwDhI6tTLyKYdAlQC/Igkf1kTy PkC3cCYr3lYiQX6g25nyprfexmoquP6mqFLKjhk0h3pVEs7W3ZmnXOgsHWSh RsKFtm2q+egllT/Jw+okPP/Kak/ZeKG3OECDhP0byVDKSXVFbeyaJCyZLqRS /hAd/TVFi4T5dK48yvL/OLHu2EvCzt9h+ZT9xfeLV2qTcO/E0buUa0dF9pA6 JBz5nJVImado2nxAlwRTT+MAytbnWz099UgI4TI3pZyjnxu1AiT8eFIvRnmK ++Lda/okpAWkfqbef1+P9XNJQxIuGbxNoxyZqf6u2IiEfKnTJpS7XHl+6R8k QUDg3A8qXhJqo3zdJiSU8g1epuy2VLPDmSDhhnixEOXyhjTDeRLzqTOSSsWf Ne70sSsMfN4jRJCy6WFG4GYzEgoKgsKo/KVvk7v54BDOv/xphMrv6BhLkbY5 vp/dfT3K6iX9La0WJPxs7Ymn6qHZMJ5l4jAJZh+O8VL1IsR3cutFa4xHSJUO VU/H+w5oCtiSkKca4kDV38KpOXd1e4xv/c4Yqj4Nd72ObDhKAjNHKoGq3wTm /Tv/HMf8pJyNvkXF/9qRvjMnSAh6aH7sXyr+1poz651JOP+6by+1H2qlBHjT XEgoYa3npPaLVVmD/rNTJHxKe3E1mYrfO4XCVW8SJGKuciVS8cte25zgSwLH Tq0Eaj9KeHwckjqN+R2hccej/1tJFDU8Q4J2aOaXaPSw9GJEVBAJu86v5af2 +86fXVmiISTw3O7XC0cHlT+szL9IwvY+YReqPwjRjk+1hZPAdeZZEtVPDLxe 2m24SkLVmQYPfzTzf+PGjdEk6AZt3OJH5ceAR/1sLI4X9b2S6k/yon9zfLhG QkLJrj6qn/E19pfdTyYBLGQCqX73SuVPll0q9o+YsgZ7qn+nbYvhSyfBvbmN xQ79y8vJwf8W7m/rm5ZUP+0XneCFHNyvDZGnqH57I0JgcSaXhOvKVmbGaMak +nBuHvabzMfyVH+ubTxbyV2A+ydp4T+qn9/zXuPaV0xCRtM3barf+70QqvWq ISHA/tDEBrTSTq0CqToSHind4eFDj6TbJHfXY7xYAyW4qPr3yfTQbiJBobZB jPre7N8qL8reTkL1lSeXqO8Rl+8+v1v9JJwzklxuR98Rc5Rpm8P1Xpi/FozW 2aWo4vgb66f2r6Bz6F7aL62FBRL8hs/Yn6aePxtJyjBJUHsZsnoS7deZ7xfE SgfrRZk6C7R+5GytEj8dQKBVWw49PBlhHydPhxiOkPVN+P0PYTd1lVagg92W 8ZQa9GZxEd8KRTrEc50Rr6DOH8SDiBEVOkhFzq1/iC7LaS/Q3U2HH+PRtono yzabln4eoMM2J/55G7RsQ16yqR0dWKQvsg/heeaN0kLOwBE6CHUGOr5HByab lLodpUPqo7Vlb9Htp8ZfRzrgeNP1Wo1ofwFFzhpXOjTmjdfloOvsCy+o+tNB /dWnzyfQRxbKjgvE0YFjwIvWj+cxdsd13pnxdJix2mnViS5qtQxWSqADwRpq +wrNljWfZnKdDiaDzQfK0flGe96GptHB5/X664no30nPjKZz6RB+VAmM0UnK 9Qpdz+mQZbb5RR6eF/P32HGG1+J6ru/KzUDXGfz6qlZPh9sBbOcT0VM2srmJ L+iQvbluORDNiIze9ncbHe71lHoy0ByfzIXevKPDY8WzbFN4ng1OGPrT/osO rQcD5hXRJ2fXdjYrMEASzJZC8Hx9PN+w44gSA/g2rnvmi7Z2iGidVGZApBO7 rxPa5DVbk7AaAwQvfa+ioeULWJ85aDHgTqFe90b0V0eW3EUDBiTV8K+5h+d/ l67lczvsGdD4ytSiHu8PTsUzklevMeDkOZP+frx/eIVbMIlEBoylCW9sRp+1 KOvjuc6AsCcx+5+go+cC4hOSGbD+q5/ndfTjvYvLKbcYYCmirEiil+pWe+8V MGC16pDsU7zfJHbxxDW+ZECcmOXWKLwfpd/1PBnZzAD3ugMP/NE5/h0GJq0M cHLs2+GALt+UsNTawYC81D+s2ugB240n3/YwwLd3t/D3Nbi+IVGDwSFcb4pl BYFWLwuUyBlhwO0/nb6a6H2X3y86f2WAyfHfYtvRpnK3isa/MeCbqC65yOID p90lJaanGeB3tGx9HjpIJ2yxZJYBfbnnLJPQkbyD3f5zDLAeH7kZjE59fDdm YYEBD5yeTVigs0PXulYuMeB8hvR6PXTB3876QUwGuLzREFRAl21vEt+/wgAP lkl+YfTzWdnF1VUGXFMyZ2FB/x+gpkZp "]]}, Annotation[#, "Charting`Private`Tag$35529#1"]& ]}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{19.375000000000004`, 215.05}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->All, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.880515760356969*^9, 3.8805157916216507`*^9}},ExpressionUUID->"98c14df7-a531-4f73-898a-\ 554ac89e2b15"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"60", ",", "256"}], "}"}], ",", RowBox[{"{", RowBox[{"80", ",", "181"}], "}"}], ",", RowBox[{"{", RowBox[{"100", ",", "210"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.880515760356969*^9, 3.8805157916372757`*^9}},ExpressionUUID->"d020681d-b9a1-477f-bd22-\ 3b4875e089b3"], Cell[BoxData[ RowBox[{"1105.0000000000011`", "\[VeryThinSpace]", "-", RowBox[{"21.950000000000035`", " ", "h"}], "+", RowBox[{"0.13000000000000023`", " ", SuperscriptBox["h", "2"]}]}]], "Output", CellChangeTimes->{{3.880515760356969*^9, 3.8805157916528997`*^9}},ExpressionUUID->"7f6d546d-e2ff-4ce2-b26d-\ 990e2d0e60fc"], Cell[BoxData[ GraphicsBox[{{{}, {{}, {GrayLevel[0.5], PointSize[0.02], AbsoluteThickness[1.6], PointBox[{{60., 256.}, {80., 181.}, {100., 210.}}]}, {}}, {}, {}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[1, 0.5, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV1nk4lF0UAHCJEJVQEZUtikj2lDoiTZsw7zumUIR3zGRvWlE+CZVUllJp +KT4lLKUtWQpSwmJMkhka6FGIVnyHX/N83vmee+959xzz70qB33tPYSFhIQk ZwkJzfxukeLPERKyAaaEysj0tC/ML+eKxsyyAS/T2F//TPkC/5i0iPpsG9By XGQlMuELft3bZtHm2EBK4PY2iVFfSCrKm7gkZQMuq/w/yQ/4wqRnnGCFgg3Y ryuhW7f4Qt6LPa2b9W3gk9Ce8o4sX9A+XZl52t0GeFd31ou6+cKp3e3U4Tc2 kCdTW5hS4gO/ZW/V6JrsgTXby+LitXzAgadv8+3GHrBi5k6f43nDwi3Hf16c bQsD8V4/SClvkMi+LzPX2Baa5sQ4wTkvyNs9sqHUyxbajUxyJGZ5gcOuVaNH U2yhx+yn/vp/DoFkld7ZK022YGgauIG24BBwfXcv65trB34O3Kbg6xwQxG4+ zzO3A+k5PEqgxwGXpUqRDr52IFeYMiesng1n66Qu7bhjBy6z454HH2LD07+N nH/f24H6BvqXYFk2ZDhl7tGfbw+lx6bffi30hPNKAS8qLO2huu/big8sTzjF lJIuPGIP7oOZT68pe4JmeZHb53v2QIthfhLls6A7bVNUYIc9NBRs3nTjJguI 4ndPaYvoIOVSO/ZlPwsK9PaGLN5JB6/wFr7lahasVc1eQgumQ0LXPf+wSQoc LZYV5ObSIWhLI6/6DQU32vfrnOmjg3qyz33bhxRcijrmvaOfDsl8+59vH1AQ tvFy5sLPdBAJaIt0QHsnlukkf6ED8YyfdiCTAnBS1306gK49n3n4HgX9bV90 f/+kQ8PDkvcZaRQYtnH1Dk3T4XiidxqZTMFr/nkDujwBtVKfDW7FUHC8tcpR W4EA6fX6Vdpo9TaRsNlLCQh6515YdIWCoPZTTbmKBBS4nyniX6ZA62PAEbkV BLTX3VmrdImCiJ59+c0rCWjgn+7NuUCBxQ+tDUwDApgvI09rnqVg4AfLTc8Q x1fs+lEWRkGCIPWCuBEBPe0qz5zQgqHl7QXGBIg/cjoZe4YC3rBMsIIZAZ8f 5ruJhlIw8We8pBVwvA5h4YlTFDwWebXF2YaApkXfvXROUGDr6DiusYeAVSVO j/nHcb7sb9kC9Bq5ANtwtPoBKZUwOwIiay6f6jxGQVzh7ukMggC5vbyihKMU cH0aisf2ESAlNZ4tz6VAv6XZMI5FgFJZ7i2GLwV1utSAsycBoDJmNg/NOTt6 W5ON863t1nruQ0GK/hLZYg7OR2QKG6BlLjKHurwJMKxYGCPnTcGQRVvmWi7G Z6So18+hIOtep8arEMwXS4/9kqJgNj2+8s4/+H/X8sXhaMb4dioklACnE2rq W9ATtNw7RmEEhIn5uhV7UGDdd1Y9OQL37/oC3xx3CtqVtVWPRBMgdPVoUc5B CsSvHlm2IhHXM9imMrkf681c6+kfdNDO6KEK9IOeDqemWwQMVzNUo9B0A1ri uSQCPFW00paheQ1LFYdTCFCmtZpvdcb6kSyVr/mPABdvl6S7jhS4hMyVO5xP QNxiEYMcJgVmb4TzthcQkDgv+Gc4epHqhINyIQEhI5ELnNAvK77dfF2E6722 96AY2lDstdqqEvxeo4Nz0IECiehLBh+eYz68uGJaDAp6OiKac18Q4OWvlCyC Llkbcux8JdYL5XD1I4n79cav2KSaAEI9/OZVdIecvWXMK8zXl0pxCXTOTTn6 tkbcn8Rmn2k6BVEDUiPL3mL9PLjf+RHNMhe9Nox2yl6cVYpW+jjS+m8zAQPn brPOoMNV3x+cbCHA9Gzy+nlox/+uB2R/JOByqiZb354C4/ErcpGdBOx6rvNI Hi2983ze/i4COpsqnabtKKgcODku2Y3xVWdXvkbr6TmFUn0E6I1zpnzQIvnL YxQHsd7COaPlthTUO3MqutHJl/K9s9A3RPKG730nIOGelzEPrWe/22GjgIDS pQuenEQ7DgYqOf/C89FsmGCC1oir2r1ymICsgPIbmmiBmezpQXSPSsH3Jejw yIyu4FHc//y283/2YH7U+Hd5f3B/ns2OK0UHv1RvocbRP96o5KJp/n4SaycI EKwTn3UX3VEi5vVskoDJwfu5Uej/POi3IqZwfSzFiBA0Vyqpbs9fAlJ/Dd3j oiX2Ga/rnMb1bXn/xRndJBR6MF2IhFVz+oTpaF7a61i/WSTUtjl509CGI+6j QrNJ2FUSamyIdrkcW6wyhwQll4fXF6C1TT4OfEFH5f01F0OPftBaniNGgt+K PINpG9xf7fKQLRIk3m/OsgK0Q+O8nLlzSfCq3jX1Ga16Ym93I3rgZKrpJ3R+ pWCrmxQJckuibjejQ703HtOeR0K1kNLbevQuucj0X+j2SVniJXpJ8Vt+8XwS mJJcjRfoT64rJMMWkLBxzcYdpehM8UMbd0mTEHbA61kx+vjDPG+5hfj/HZHw fLQlQzipHU1MifBy0fOndjekypDQwvIWy0Lzb1+f5S1LwpMe8/L76NQdvfpG ciRIc4/W/Yf2GdJzn0LXLlqyJg29PiEo/sUiEnpqVrSlokU2V1deXIzxXr7c loKu65UdI5eQYMtm6/yLvh51YPVyeRLSiYyGJLS7wb19fWgne/oLHnpt6+iF Bwq4/oPukjMeD9ny9OhSnP/sh5Rb6Bea0d83KZIwWVhyYcaX6/grxJQwH7PE K2fseGSlXT1a2rHQbuZ7DSX/0GvLMP6qRt2Z+QTlT3IPLCfh+VbCORldzBbv 1VxBQsE78w8z69voevyvkDLGJ4jn30aXMD8vaUXHlWYY3UWDLXNdrgoJ4tZB Q+no8m3VO6JUSTD9Z+68mXxZbTZ191DDegkgIx/OrNc4PXiTOgn35Z3dZvJt rSt/bclKEoa5KryZ/aheGZklQH8OTzF9gt6xbKymRoOEBJtO/TJ0rZxnd4om xvuqNaoSXT+btphcTUJDv6hLI9p2In+trhbWa7gxvwXd+FNzu5g2ifeoWs5H 9LsusaDCNVhvtw3PfEcz+cfiY3RIMFRgBo6iWxv6HxzSJUHPyvTtX/SHZ1Vd y/QwnmLdFGms7/35JhOj6F1iWxWWojsfpMk1rCNBXkJeoIbuuRWxLdQA60Vn +Ikpmor/7eJoSEKy7VSOJbo/inXS0AjHX10hvgf9NXBbZp8xCdyJsLcUemiv mOxOM9x/9a7eG+gAu2Nr1DeQ0DRcz09HD9P6t06hhQIDdfLRYyZVxx+aY3zp 4sNN6L+LIjpkLfC8RExMyWF/CZn3+/cAulO04cdKtLAoa2HlFlzPeleLmf4k OmxtddwK4ykvnO2Ilmqck9G+DcdnWoqmoaNrjlY8ppGQdWZquAgtXdbXHr2d BCkPrlU9WjarcoHFTswnLUH4D3ppdPiROzZYD/EFE7bYTzV3zLHwIXH+TY5d MtiPE67VfDFlkKCscFFaGz23NypmtgMJns+0Yy3R30/L9iQwMZ9+D2OOoPMe K0dUOOJ+uzac/IC2VtnwWv7gTHzHfzzB/l/g8/dIN/qR6jGyFa31pGz5Azc8 T+c+zR9Dz3eg+Vl6YD0XTwcaErj/UaSsjycJtCz65mw0Nea7t8IH+1WbK6cI 76eWrQbC0b4kiJjoiH1A74gdzWD6Yb3u9/g9jdbVDZ4c9Mf4ZZQarfH+G3U7 nyR/BPuHxG2/FnR4fWqvdyD2j/VL7CXxPr17l+8vH4n5uJ1w9+E+CpJvdSp9 RJsaKL5uQ9+I66+6cw7r4U6NpTje3xdDR5YZXCAhVTdD5SCau3/hy93ROP77 E0kKTtivFm9XPROH+T5Nv30N7//OswWNg8l4fnQEr+pdsH6DngU/+hfjG/v+ W9QV+/vhylWBKdh/UhW4G9FVrk2nxFOx36f8dMpAPzAXaKmlYfwGuYJz+D4J GtE8w8zE/zN9lJn4flHwuGZQUUhC0FRdsp4nvhful1feKMJ+Mv/UrqPok8OD ewOKsZ6aYxhP0O1nrEJUnuL+nBs8u52N90nKUO3pUow/nGXnie8rtc6d1MYq rLc675v5XhToOApdf9yE/ZBXMZHoj/dZivaai83Yb6JXc7+jo78ynrm/w3iM R3ZAAParE5m9si14XjOeyvaicxL26Qe04X5pyMoY4PvQ5N2jV7qfcL3eDWWd +H60sGP/TfuB/WFD3GBoEN4P3/uV/QV4Xq7sFfDRoVGUpdkQCe7Xd25dF0zB 8yq3yNqfWJ+lj3s70bRN+2WGRvA+YqcIWZ3G/qJN1zCbxPpa9YGngO/f/aLm NrXiDGjf3xIkHIn5K5TmCVQY4J7WW/IyDvOflpv+UpUBIoHCjpvjKVhzlZGb qsYAK6Nsh0fotoDEauZKBiQ4Pw9IuorvtTWrfpWuYgA3uGztyQQ837zNtCtr GUAbX/zCIhHrIczn5zpzBuh91nVWSKXAa0+t9WEmA5TjZSy/PqLA19X5+d4L DGhIr9RxaqHAo7mlEZ7i+G3yiqZCLJA+5vnV9RcDQmjm1Jp1LKiLe/2ub6UD JC9q8d3gzgKLTuvaO04OIK9nw+L8y4L0ixn2HjEOIJ3kOc+zmwWq+d2Zkc8d IGvYfpuFhifYzV8n0zfuAAmHo3eHcj0htou+M02HCVnq180nyz2hZrHrIvYB JviVWUdOy7Hh0YnQz+7xTFA+ss0t4zAbcpgnLj+vYsLxk/ddHN6wwaRs9ak7 1UwQZPU7i75lw5PVrYfCa5iY9/6y3CY2vBg320Z7xYTP3/RLFrawoSVxcupV HRNoiVMRjR1smOo8fehtMxNCCg+4sAbYQGOHW3/qxvn7GOodYhx4/cbYsKIH 13dj6XiCBAfszfpVUnuZ0BKTYkxIcsBRkjbl0c+ETpvp7lfzOeCTKfHoy1dc 7+i3BaWLOBA3FKUyNITzzYq5X6zGAYV95gsafzLBZfj696CVHOCVD07m/GIC U5u6tkmTA2mxNi3cEfzeY+eyCi0OFBlJXxobw/jEto83rOPAJl5pEP8Pfr/0 cEC8AQcq5vhzisZxfj9Xu31GHKh9/2Zr0CQTIr+ct+w15YAdhBo4TzGhVLKS cc+MA+/S9VU2/cV8+L9o8N/IgX0Lu+evmGbCmOK5bNNNHPh4InZyGi00d+Gf 6c0c+B+HsXD3 "]]}, Annotation[#, "Charting`Private`Tag$35615#1"]& ]}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{59.37500000000001, 177.24999999999997`}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->All, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.880515760356969*^9, 3.8805157916841493`*^9}},ExpressionUUID->"05952033-e794-4871-a585-\ 5edb33ea9829"], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0, 0, 1], PointSize[0.02], AbsoluteThickness[1.6], PointBox[{{0., 288.}, {2., 275.}, {4., 262.}, {6., 249.}, {8., 236.}, { 10., 223.}, {20., 217.}}]}, {}}, {}, {}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV13k4VP0XAHBlyVqUFkWWZDdz70wJkRNSeCVZirJG6dqFemukRMjSJNlK SlQiWtRP9qzJUqEQ4rWUFLKVLX7HX/N8npnn+X7vOWfuOUfayeugy3IODg6+ ZRwcS58p5514SOebu9o7bi0jVX2hslnqn0NS/+qsXf9y2lTFFxarSy5JSUXo 2Iv7cnkp+0JKWbQkt1SSjkxok/VjRV9w1/b3+COZqXPk3bZ5JTlfaJ5zjfsl +UrntkGQpJKkL6zo6JUflqzVcS1T7tkh4gt336b6/JBs1+H+r9fw2pQP5ORG dLjThnRMLjQ15Bf4wAmdD0k/fSd00n/4T8iG+oDngGJfXs6MjoEOI/6rmQ/w S4fId6tzgL7UPF/ZJh+IEa5TuuvACYWHPzRcHfIGpw6LUs56HjiUcf72q5fe 4FMV4uQlzw/CAo3qB0O94am3oPkGQyEoN+AbYR/2hrvn3IaIQ8LgrSe6lqXo DcGp82aTP0XgtVTZzzd/vYCjuQeKzq6BhY+jpc3ZXiDnd/yMhdJaSKXZq7Yd 8oL+qQQrgeJ1UNcy26kp4AVGA1RgrM8G4CSWw6ZCT9jfz1bevHkj6JqkK7h6 ecJQhdOFN483gaYx3eaUsifQRD5J6NlLQFfscNydfg/g15ly7JzYDC9+JVzT zPCAvcM2f2QspeDF12OG5455QFu58zIbFWlQezoYNbTVA16EV9pJTUmDd71B 79ZRdzjO7d/T2CgD39lBXI9fusMx33MvBJO3wJNuZfOcEHegn1Bu/MdRFiQC qpw0rdzh3WoVAX+NrXA75p72czl3KMwJvqnCKQezm+rr+f66wbllSgfqu+Rg LrDk7IcmN+DvPLvPM08edlkM+Vllu8HAfem4VJYCrPE27N8Q6QZxCmJcrywV 4Xo2p/DYSTdgJx+vcZRSArnMfu4XJm5gE2fbKPhNCaZXfh2L3eYG0/oZM6kl yqCZGSIrL+4GfQO6Z8rDVMA0RHyjAK8bpGmTmxocVeHskIex4hQF5fv5L805 q8LaZ9Khg5MU9Nr3DSm6qkJKMu37A/SW4BsFlz1Vwb3RnJBHp1fPWMM5VVj/ uq5AfoKCDNPyxOdxqhDf5FNGjFHw0NF8XXKNKqjfj49xGqbgcai/yAlVGggI 66nt+UrBTy3b4FCCBllcVWuF0SqT+hP3mDQw15qT6Big4JGT6MceDRoU+oU8 9EE/1HmeaGNAg3E+/vt3+vH8mV+S++1p8KvqP12ePgqSPdxp26/RQCOkgvNX NwWfZS1SzeNo0N/eMFOKFuvcKeybQINE36gNbHSikcB4TgoNNnrIvSfQN+Qf vVB4RIPgyw3yfl8oYP/3TUu8ggYDRoNnlndREGZ5zJhzigZTYgfStD9TkGba edRlmgbCQn5Cq9BFhpaeNXM0SCJYD3vaKRjX3nstcjkdxnk1PEPQR+WUW9cI 06F2wVm9sY0Cxp9xJ1llOiwshNZQrRR8SQw+u8eRDpFmP9/XtFAwEzsX+cCZ DlYH49VT0aLRfil8rnRgX5J9H4A2vHi8rMGTDkanh2Pk0HknjXisWHTou0ca hzdTcEVzdezxBDrcErlUYtFEwfbOu5lhDXQgdIzYIu8pEKa5Tue+p0NaWPfu sXeYjyDa3rZmOgQxVSQ+oNO3FPYrfKYD68WPA9fQom4tkm+/0iHYifPxGvQs i9OYh4OASocbO6QaKWgXUHu9T4wA0RG9+MP1FFRvSxrs3EjA/L2q89roPNv5 VT7iBJgVL7Bl0OzccrskSQK0NyYwhuso2GduOv99KwEygQ5UCDo/2XVHJIMA qW+W2QVvMV+KNx83GBMwaFz3r0EtBZMTBhmXTAgQH7tSTUOblozf0jAlYPf/ 9uqvR/OYG0VlHCTA4X5+0+AbCvxZM1SgNQFjq87sjEEffHdIQfUEAY7CHlq9 NRTkJHFK9bkSkFO5kNiA5nPOXZ9EETCcFC33Cl02zbOC25MAnQdpLWw0Xebl QKcfAeomj1i6aEF/0XtRwQT4V9Pnc6opcNUpS9YNIaAz4rprCrqCzz12OpSA bZ6T3FHos7crLjpHEFCQ9Lj5JPp7ja+DFpsAMdbfAnl09cYPEj9TCJD1XPMq u4oCmQHW2rRUAu6D4fbb6MBcBaHDdwnYsI3VexW9Tf/CfEU6AR8C29+dQqd5 0DtuZhGQcMvntzY6qCw60fgVAd4rNpzqqKRgqKssbqYA7/NCctt7tNXcBPtB EQGeEfayVWgVNZsIzjICdDPCYnPRbVlyZwurCQh49G/GZbRerXXAyTcEDEXq 9rDQOV+jfNe/JaDlup7RKXSo9AR1qoEA/vUjWQ5oRkLpEeUWAhaG+jO00Sl5 44faP2K+ObxstqN5m7ZahLUSULST3KWK7haM+qfvMwEWcnbXJdBRwYe1b/5H AG+ttR8H+k9qpIZhHwFdIhlpMxUUOBWXbP/TT4DCRQWOCbTGtCzNfJCAzc2t +76iv3qMbRYYJeCGfpvwO7RZpOymV78w3q/782vRRQ8PrT8xjvXrrMiuRF/v K15VMUWAm8SR+gL0AseYgM8fAt4w95Ev0dRmWV7JGQKSvT2qnqLB+grHuXkC 7tk6nMtEZwUUzyssENAmREvJQK+L+zX9aZGAS/3Mkbvo4KdbpkKWkZD+n4/n bfRwo9UYg5METe5BiZvowz8jhnu4SNhnGj+fgK7kK/4ew0NCXSmL/wY6WX9L 7xAfCUzR8edX0dxOVl8SBUjYMH3BNBrtHRTx2UCIhFPL922MRHfeKvo0uZIE feZe0Qj03oLRpjRhEqKunNcOQz9rlXl3YDUJRrwjN0LRm6cs6xbWkBCYfUMi BB2xOqImey0Jcqf9W4LRk/SiCpv1JOxxjS64iLY3GS3lFSPhc1DXuwvot5RM 0cuNJHwtdhFd8vZwy3xncRJcZeTCg9B3MsLzVm8mweHxZuUlC1QUPimTJKHe zvTveXRAz0i2pzQJT9TyF5bc+1c6U3wLCfzbrelLvzfZZJnxVhbPs2ZcXXJi P63siBwJPX9V1iyd1/+Yt+OnPAnLg3aVLZk43TsVqEiCbtfx+KX7sqBIeJUy CXc23L+x9Dxv+OKV76iQsJGcL76EFm32MiBpJDyTO7lqKR4Otwwdy+l4/5mf EZfR2S5bWOYkCTszw1TD0dO0v/H9DBKU1DRml+KrP/3pqf82EtTvLPu1FH/2 6yf1PGokOH3rWRmD7rhy5VvCDhIeCbRasdFyFs7LFTVI7Cf9NbFoX4ldEgWa JFz7scJpKd/8T8YOdmqTMKITJ7JUH1b/1nl46JDw5sW83FL9pOlmhC8ACWW8 LJel+tL4eLhESp8EXoNS24fokNuM9qd7SLAiLq3PRr8/ITipu5eEyj+2s7lo 19lSRRcjEn5LHN6Zj86rSNL/bUxCIet0UhGaI/qUfZgJCbfyH0u9Xoq3pPyN zAMk5NfYPXqLrtGP4RixIuGAXvOjbvTqla6bgg6TsHgl02wAbde6W03YBvOb Gy/9A/375JQbw5aEYvYLrT9Lz3/1aGvAMRIWcrkdRPD/7XtYbXyFCwmJPbGm G9Al0sJCScdJ2D+i5iqJtsyr0C08ScK6uxWiNHRIu1LOohcJHM6jNibo92lc tWwfEkICmdct0eLuX/qkT5Gw1S9m0hb9fOGamH4Axms6nOGF7t0yExLOwvjY s29eR+/2rDkiEkHC37uD0v3o2bbvBpVXSOD5n/GnUXSeniDjdBQJwT/+Fsyh 5cTMeLuuYj0+M10riu9bwcrPeQ/jSeAufCi0F90mNiIE6SQYPCWEXqJjQ4Rn xjNISC4Ora5EG48y+jMekHD8u+KTZnRJ5ekCgSwSbFLtRcfR6V7LTrQ+JaEo 5IIUif3Bu0q0zLOUBI/tiXvz0UrEjizp11g/Gt3cb9F9ydbxLeVYj0f9JzvQ Vt633TWrSSjguOrEgf1Ka5OCGE8DCRYVp4ON0bw+O31TPpMQQJP8MIROFXeS rZ8iwf5WVaYJ9lNNpjLN6Q8JamuUOo+hWwwnd0xPY/xKMtXPonlPXzaWnSdh 8Pms1wO094dHvqzlDIhd19fKif0bLk+UqaxigEFxQ1Qlunc0xDZagQE0Nn+k C84DLJ79J7YoMUA/5SPHRfQ6ifU+r5QZsLK78M4ttJFRZsgAjQH5HJ/tWtDP 0huytLczwLHoaMueBgouWa+bHd7NANw20gmcR2QrHsTvP8KABWOZ9q047zSq TKd3HmWA4Eat4T3oM/H7nlN2DBAPaFA8jq47+f3dZUcGaLZZiT9A+wor85We YABLn+ub0gcKSm1zztH9GMBbXLtaE+cpm+k8B+FoBvxDW6xYmse4nLi9bscw wKmI/9tNdE6dZaAKmwFn2qIZr9HLUn8n7bvOgPsFs7qCH3Ge3aPefCGJAVzy Xobp6KnYwj1jGQx4m1r+s+MTvi9Uy5WaShgQLCIafRLnx4fqR/iCyxgwLh9m lYAu1Zv8RpYzIOr6LdMq9Ii1XMa1KgZoUTnvpXEeNb58RdKsngFX13qu7ELz dB8Ufd/OgPljtmeOdlJwjt33t2GSAdPdc9xBOP8en+D6UKvEBE8LdV5znMft Huk3HlVhgrXoyq5wtJVjSN2oKhOsym07StAG7zir15JMYA1SFsrfsP6zlhc6 7mBCiK2WOs8gBQNOHBkzekwIGyqsrvhOgXPT3BlFWyaYsFUXbXEfcHo6LhVx lQlf+Du6VuL+4R5sPm90jQmLrsaRVmh/87xWwetM0Frp5n4bHT7lH8OOZwI3 Lb+W9hvjqzEzl5DCxL0t4pfZH5yXXy9+up/FhAu7+UfvzmD8mgSjK2vw+9gL ua4L2C/vebhermWCWUt700v0Pb9GvX11TOg/2qvIvUjBy3Xs2bpGJhzRW3Yq Dd1ps8a1+SMTwl0CfLo53EC+T0yvt48Jgwvaksc43YDIO7s5fYAJAs8iA/PQ mqEdMy7fmGCUHb6Kh8sN/pFPefJ9iAkbAtiNmWhfN6nNY2NMmLRrzZ/gdgOW 1sWZZxNMGDFKzTPgcYNQod4WvykmLD+/rj8JnZh7L3J6mgnnXq3+AitwX7vA daJglgk9rxMexqGzzFx0WfNMsBOpvz+IzpOplti1wITpB7ltWrjflUzIzSwu MnHv0t11Df1/OyiRvg== "]]}, Annotation[#, "Charting`Private`Tag$35443#1"]& ]}, {}, {}}, {{}, {{}, {RGBColor[0.5, 0, 0.5], PointSize[0.02], AbsoluteThickness[1.6], PointBox[{{20., 217.}, {40., 250.}, {60., 256.}}]}, {}}, {}, {}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[0.6, 0.4, 0.2], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV13k8VdsXAHBRMpNIChEPGSNRIitT7jn30uPJlIoMZSYahJAkU6hMT5RI UTI9RWRMGYsMv6TJFA3GyHDjt85f9/P93M/Z++y11l5nbylHb3NnVhYWFv41 LCzU76XNJbwsLBoQNrfExiLpDlsixrlk2DTg41aJ7HF0yaQkhwm7BvgazSq8 lXKHz03XWBN4NEA9u5SZK+0O+wM8f28T1QCF8NjbhJw7LHTKf9FT14DZ95nj 11TcwSMmq+yikwYMzhuFcem6g+VKrN3qKw0waLnVVGPjDsvpT9tHs3fDWI7S 0rtkd/gpp33d3ksT+Ny6x4I73KFQxzmjd7cWqLg12Dxh8wADji/NWnx7IMmw hHNhnwfINJYQ8v/bA7FKUoc2envAO82eSZbSvbD7A81/OscD7NXu/O/9VW14 fMyUSfzPA5TFGoSMzffBAtuR8U52T+is3h2QqqgDnbm37jZpeUKd2Yp84LwO mFaXzgs6eULoKR/Jo9W6YGiqI6wa7wkbtXfpKNzcD8XOrNwulZ4ws0QWXD6q B1V3irWNBj3BosI2y0kMQM1baMMytxcI7R2OvnIFwLR2a57LLi9YLtos6fcd /+/V524/7AX0iICXb6wOwEeXuAP/XfCCBrPgzb+rDsCES45dfYYX5Jx5dCFR QR/WygW+4qnxAk+HEhblZH3YIb00o/TJC44YOqomLOkDu8L72cZlL/gvXNvH 1dUAeMNHNxiJeoNGRbUte7sBLBY8o7vu8ob0UmHXezsNgX6bp6uU9AY3zuTL lRmGsNgSbnPTyRuOW9UxktcYQcafwfpTgd5QyyIsP+plBEdf1XyKT/AGDi9d Ga1+I3in1qzamOMNZ94KtJjtN4aIlhVRvXJvML3BEz6QbwxMEHz+30tvoDNK h3YKHIR/12bIZPR6g1qLimvk6YMwlD3K93XIG0Kzu5hmnw5C/tPVt/1T3jDn J6XzxcAEUj4cGY1f9obuzNS40SITkGO2979l9QEnuct1wSUmEHV3nfYI+tdj 3zmhMhN4rWwWP48WqiPsDZ6YgOB3kU2ibD7wzxBT6Xa1CXhwhGbbo3vkHNps WkzgZEd+4TC6t2gHd/uQCURecbvxba0PvKuvjCrdRIPDhUk3e9h94FymSp3+ Zhp0fxydHEJvDsxe7BSlwY2kCr0ZtLVatNuUGA0GL/XX8K3H8bJs6MrSNCiM 49I/iO4OWuDPU6XB2v3SpuXoN5qaKekmNLi/QetyLIcP+Ajmv95B0CAn3+5a GlpgQpyjgqTBSNNK/D20We66832mNFC7WutVi+7Y2GMrZEmDRQ31oll069Rp iXgHGhjv6NC25vSBpvzi3LBAGgxEjHmJcuH8cl6F6kE0iGTkysqiv+QoPBkK pgFH+boudTQz8+4rozAaJLsUs9HRatdvfueMosFbo7KuYHTGhfNqSTdp8IXp uu0T2o9+oDq7iAb7GVdOp3L7QGjznxcWJTSYFXiadRcdZ1zZsbaMBqH+sTWF 6Puw67PLExps3yrZ34j+oPEXm+JzGsSPzgROoU3EOWmlrTT4FWDsbsTjA+IT b7obRmmw7mwu+yiaS0SDaTVGA/MpOtskekEvRfrHOA1suXfO/UZ3J9r7Cf2k QYbsg6ecvD4Qu/sbv/MsDUanXZ4roZlBbCQ7CwHJ7wVe+KAHuDXrTEQJOLYs XjOFbtFIGxvYQoDgw70nFtBP7Zn8vmIEhK8kMFfRNx7XH03bRkBS1AwfP58P 0C3MmON/EXBOLaxECf0s/aRWjDqO19v2yxmdvuPfR+0kzuch7vIGPT9rnHuJ QUD6wXV7+tB/P5/J2GtGwD09kz8f0BwWRGyuOQEfIz85fEefDVp0C7YhoNbX 4vo6fqzf11byyq4E2FQcStFCF6WxSQ6dJGDR6VumLprb6bFImhsB2cqf0gzQ 9Qvs69d5EbBhU/8pM7Ta9vKRAX8CHA2E/VzQfAFCd2PDCXjPf0c6Ce2mV5uu H0GAcOyP4ynoF5weSQuXCbD963piBjoosyHM6SoBq4XTbffQ31/6HddJIKBO 4ldBJfrVlk7xH7cIEPHh4/6MlhkJEs7OImCiijtkGH3xsTyv9R0COmSdhsfQ moahzIYcAh7+LRszjc7xVH3/bwEBA2xTwCrgA2G1calkBQEC/akMKfSPD7U3 FisJOBRtPiKDtl6eTcirIqD8wICPPFpF0/YqWy0Bv18cO6GK7i+QDXzWRAAh I1eugzZqtjlz6hXGk9fhhx66aDTWT6SFALsVt00G6CtSs26n2wngmJswoqE1 UmrsFLsJ2LXniaAlOqtsxupdD+bH1verFZqr669/rvQRUBKx/NgW/YUnlj7U T0DLz4tix9Hx4da6/34hoE2YdsINvZgVs5c2RECh76VeD7RT9fPdv4fx/bvj dL3R+xZkVCzGCNhXJPj1NHrMc1qCe5KATdUDeUFoixiZrRVTBCibp1SEoJ/f txJxnSHAY0KqJhR9c6iav2GOgCM6ebkRaH2baJYLTAL4VPw+x6Afnalmyq8Q cJT5MCEOvfnG1ELvKgGdnU80rqEnOw5Pq7ORoJKka52EzjCUHvzGSULFSU7e VPR6x8MfU7lJ0PFptEtD+1282m/MS8LXELPMdDStcrIrW4CEouKelQx0Wd/2 14cESejoeSOWiZacs2xd2UiC0JoMlSz0vGpVg60ICYKe2cp30A6MyRoOURLa H33Yko1uc9teVb6FhIdzY8uUtaIsnzqJkVBm2PjmLjo7N6pMUIKEwXTvtBw0 b8OzotptJGgufLPMRZ/7PPHQS4qE4iOa7PfQZlstc1tkSBDbp6ufh04fVqm1 kyXBp/t3I+XRRxzvf8iRsCZERPc+Wv3s4FzwDhI6tTLyKYdAlQC/Igkf1kTy PkC3cCYr3lYiQX6g25nyprfexmoquP6mqFLKjhk0h3pVEs7W3ZmnXOgsHWSh RsKFtm2q+egllT/Jw+okPP/Kak/ZeKG3OECDhP0byVDKSXVFbeyaJCyZLqRS /hAd/TVFi4T5dK48yvL/OLHu2EvCzt9h+ZT9xfeLV2qTcO/E0buUa0dF9pA6 JBz5nJVImado2nxAlwRTT+MAytbnWz099UgI4TI3pZyjnxu1AiT8eFIvRnmK ++Lda/okpAWkfqbef1+P9XNJQxIuGbxNoxyZqf6u2IiEfKnTJpS7XHl+6R8k QUDg3A8qXhJqo3zdJiSU8g1epuy2VLPDmSDhhnixEOXyhjTDeRLzqTOSSsWf Ne70sSsMfN4jRJCy6WFG4GYzEgoKgsKo/KVvk7v54BDOv/xphMrv6BhLkbY5 vp/dfT3K6iX9La0WJPxs7Ymn6qHZMJ5l4jAJZh+O8VL1IsR3cutFa4xHSJUO VU/H+w5oCtiSkKca4kDV38KpOXd1e4xv/c4Yqj4Nd72ObDhKAjNHKoGq3wTm /Tv/HMf8pJyNvkXF/9qRvjMnSAh6aH7sXyr+1poz651JOP+6by+1H2qlBHjT XEgoYa3npPaLVVmD/rNTJHxKe3E1mYrfO4XCVW8SJGKuciVS8cte25zgSwLH Tq0Eaj9KeHwckjqN+R2hccej/1tJFDU8Q4J2aOaXaPSw9GJEVBAJu86v5af2 +86fXVmiISTw3O7XC0cHlT+szL9IwvY+YReqPwjRjk+1hZPAdeZZEtVPDLxe 2m24SkLVmQYPfzTzf+PGjdEk6AZt3OJH5ceAR/1sLI4X9b2S6k/yon9zfLhG QkLJrj6qn/E19pfdTyYBLGQCqX73SuVPll0q9o+YsgZ7qn+nbYvhSyfBvbmN xQ79y8vJwf8W7m/rm5ZUP+0XneCFHNyvDZGnqH57I0JgcSaXhOvKVmbGaMak +nBuHvabzMfyVH+ubTxbyV2A+ydp4T+qn9/zXuPaV0xCRtM3barf+70QqvWq ISHA/tDEBrTSTq0CqToSHind4eFDj6TbJHfXY7xYAyW4qPr3yfTQbiJBobZB jPre7N8qL8reTkL1lSeXqO8Rl+8+v1v9JJwzklxuR98Rc5Rpm8P1Xpi/FozW 2aWo4vgb66f2r6Bz6F7aL62FBRL8hs/Yn6aePxtJyjBJUHsZsnoS7deZ7xfE SgfrRZk6C7R+5GytEj8dQKBVWw49PBlhHydPhxiOkPVN+P0PYTd1lVagg92W 8ZQa9GZxEd8KRTrEc50Rr6DOH8SDiBEVOkhFzq1/iC7LaS/Q3U2HH+PRtono yzabln4eoMM2J/55G7RsQ16yqR0dWKQvsg/heeaN0kLOwBE6CHUGOr5HByab lLodpUPqo7Vlb9Htp8ZfRzrgeNP1Wo1ofwFFzhpXOjTmjdfloOvsCy+o+tNB /dWnzyfQRxbKjgvE0YFjwIvWj+cxdsd13pnxdJix2mnViS5qtQxWSqADwRpq +wrNljWfZnKdDiaDzQfK0flGe96GptHB5/X664no30nPjKZz6RB+VAmM0UnK 9Qpdz+mQZbb5RR6eF/P32HGG1+J6ru/KzUDXGfz6qlZPh9sBbOcT0VM2srmJ L+iQvbluORDNiIze9ncbHe71lHoy0ByfzIXevKPDY8WzbFN4ng1OGPrT/osO rQcD5hXRJ2fXdjYrMEASzJZC8Hx9PN+w44gSA/g2rnvmi7Z2iGidVGZApBO7 rxPa5DVbk7AaAwQvfa+ioeULWJ85aDHgTqFe90b0V0eW3EUDBiTV8K+5h+d/ l67lczvsGdD4ytSiHu8PTsUzklevMeDkOZP+frx/eIVbMIlEBoylCW9sRp+1 KOvjuc6AsCcx+5+go+cC4hOSGbD+q5/ndfTjvYvLKbcYYCmirEiil+pWe+8V MGC16pDsU7zfJHbxxDW+ZECcmOXWKLwfpd/1PBnZzAD3ugMP/NE5/h0GJq0M cHLs2+GALt+UsNTawYC81D+s2ugB240n3/YwwLd3t/D3Nbi+IVGDwSFcb4pl BYFWLwuUyBlhwO0/nb6a6H2X3y86f2WAyfHfYtvRpnK3isa/MeCbqC65yOID p90lJaanGeB3tGx9HjpIJ2yxZJYBfbnnLJPQkbyD3f5zDLAeH7kZjE59fDdm YYEBD5yeTVigs0PXulYuMeB8hvR6PXTB3876QUwGuLzREFRAl21vEt+/wgAP lkl+YfTzWdnF1VUGXFMyZ2FB/x+gpkZp "]]}, Annotation[#, "Charting`Private`Tag$35529#1"]& ]}, {}, {}}, {{}, {{}, {GrayLevel[0.5], PointSize[0.02], AbsoluteThickness[1.6], PointBox[{{60., 256.}, {80., 181.}, {100., 210.}}]}, {}}, {}, {}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[1, 0.5, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV1nk4lF0UAHCJEJVQEZUtikj2lDoiTZsw7zumUIR3zGRvWlE+CZVUllJp +KT4lLKUtWQpSwmJMkhka6FGIVnyHX/N83vmee+959xzz70qB33tPYSFhIQk ZwkJzfxukeLPERKyAaaEysj0tC/ML+eKxsyyAS/T2F//TPkC/5i0iPpsG9By XGQlMuELft3bZtHm2EBK4PY2iVFfSCrKm7gkZQMuq/w/yQ/4wqRnnGCFgg3Y ryuhW7f4Qt6LPa2b9W3gk9Ce8o4sX9A+XZl52t0GeFd31ou6+cKp3e3U4Tc2 kCdTW5hS4gO/ZW/V6JrsgTXby+LitXzAgadv8+3GHrBi5k6f43nDwi3Hf16c bQsD8V4/SClvkMi+LzPX2Baa5sQ4wTkvyNs9sqHUyxbajUxyJGZ5gcOuVaNH U2yhx+yn/vp/DoFkld7ZK022YGgauIG24BBwfXcv65trB34O3Kbg6xwQxG4+ zzO3A+k5PEqgxwGXpUqRDr52IFeYMiesng1n66Qu7bhjBy6z454HH2LD07+N nH/f24H6BvqXYFk2ZDhl7tGfbw+lx6bffi30hPNKAS8qLO2huu/big8sTzjF lJIuPGIP7oOZT68pe4JmeZHb53v2QIthfhLls6A7bVNUYIc9NBRs3nTjJguI 4ndPaYvoIOVSO/ZlPwsK9PaGLN5JB6/wFr7lahasVc1eQgumQ0LXPf+wSQoc LZYV5ObSIWhLI6/6DQU32vfrnOmjg3qyz33bhxRcijrmvaOfDsl8+59vH1AQ tvFy5sLPdBAJaIt0QHsnlukkf6ED8YyfdiCTAnBS1306gK49n3n4HgX9bV90 f/+kQ8PDkvcZaRQYtnH1Dk3T4XiidxqZTMFr/nkDujwBtVKfDW7FUHC8tcpR W4EA6fX6Vdpo9TaRsNlLCQh6515YdIWCoPZTTbmKBBS4nyniX6ZA62PAEbkV BLTX3VmrdImCiJ59+c0rCWjgn+7NuUCBxQ+tDUwDApgvI09rnqVg4AfLTc8Q x1fs+lEWRkGCIPWCuBEBPe0qz5zQgqHl7QXGBIg/cjoZe4YC3rBMsIIZAZ8f 5ruJhlIw8We8pBVwvA5h4YlTFDwWebXF2YaApkXfvXROUGDr6DiusYeAVSVO j/nHcb7sb9kC9Bq5ANtwtPoBKZUwOwIiay6f6jxGQVzh7ukMggC5vbyihKMU cH0aisf2ESAlNZ4tz6VAv6XZMI5FgFJZ7i2GLwV1utSAsycBoDJmNg/NOTt6 W5ON863t1nruQ0GK/hLZYg7OR2QKG6BlLjKHurwJMKxYGCPnTcGQRVvmWi7G Z6So18+hIOtep8arEMwXS4/9kqJgNj2+8s4/+H/X8sXhaMb4dioklACnE2rq W9ATtNw7RmEEhIn5uhV7UGDdd1Y9OQL37/oC3xx3CtqVtVWPRBMgdPVoUc5B CsSvHlm2IhHXM9imMrkf681c6+kfdNDO6KEK9IOeDqemWwQMVzNUo9B0A1ri uSQCPFW00paheQ1LFYdTCFCmtZpvdcb6kSyVr/mPABdvl6S7jhS4hMyVO5xP QNxiEYMcJgVmb4TzthcQkDgv+Gc4epHqhINyIQEhI5ELnNAvK77dfF2E6722 96AY2lDstdqqEvxeo4Nz0IECiehLBh+eYz68uGJaDAp6OiKac18Q4OWvlCyC Llkbcux8JdYL5XD1I4n79cav2KSaAEI9/OZVdIecvWXMK8zXl0pxCXTOTTn6 tkbcn8Rmn2k6BVEDUiPL3mL9PLjf+RHNMhe9Nox2yl6cVYpW+jjS+m8zAQPn brPOoMNV3x+cbCHA9Gzy+nlox/+uB2R/JOByqiZb354C4/ErcpGdBOx6rvNI Hi2983ze/i4COpsqnabtKKgcODku2Y3xVWdXvkbr6TmFUn0E6I1zpnzQIvnL YxQHsd7COaPlthTUO3MqutHJl/K9s9A3RPKG730nIOGelzEPrWe/22GjgIDS pQuenEQ7DgYqOf/C89FsmGCC1oir2r1ymICsgPIbmmiBmezpQXSPSsH3Jejw yIyu4FHc//y283/2YH7U+Hd5f3B/ns2OK0UHv1RvocbRP96o5KJp/n4SaycI EKwTn3UX3VEi5vVskoDJwfu5Uej/POi3IqZwfSzFiBA0Vyqpbs9fAlJ/Dd3j oiX2Ga/rnMb1bXn/xRndJBR6MF2IhFVz+oTpaF7a61i/WSTUtjl509CGI+6j QrNJ2FUSamyIdrkcW6wyhwQll4fXF6C1TT4OfEFH5f01F0OPftBaniNGgt+K PINpG9xf7fKQLRIk3m/OsgK0Q+O8nLlzSfCq3jX1Ga16Ym93I3rgZKrpJ3R+ pWCrmxQJckuibjejQ703HtOeR0K1kNLbevQuucj0X+j2SVniJXpJ8Vt+8XwS mJJcjRfoT64rJMMWkLBxzcYdpehM8UMbd0mTEHbA61kx+vjDPG+5hfj/HZHw fLQlQzipHU1MifBy0fOndjekypDQwvIWy0Lzb1+f5S1LwpMe8/L76NQdvfpG ciRIc4/W/Yf2GdJzn0LXLlqyJg29PiEo/sUiEnpqVrSlokU2V1deXIzxXr7c loKu65UdI5eQYMtm6/yLvh51YPVyeRLSiYyGJLS7wb19fWgne/oLHnpt6+iF Bwq4/oPukjMeD9ny9OhSnP/sh5Rb6Bea0d83KZIwWVhyYcaX6/grxJQwH7PE K2fseGSlXT1a2rHQbuZ7DSX/0GvLMP6qRt2Z+QTlT3IPLCfh+VbCORldzBbv 1VxBQsE78w8z69voevyvkDLGJ4jn30aXMD8vaUXHlWYY3UWDLXNdrgoJ4tZB Q+no8m3VO6JUSTD9Z+68mXxZbTZ191DDegkgIx/OrNc4PXiTOgn35Z3dZvJt rSt/bclKEoa5KryZ/aheGZklQH8OTzF9gt6xbKymRoOEBJtO/TJ0rZxnd4om xvuqNaoSXT+btphcTUJDv6hLI9p2In+trhbWa7gxvwXd+FNzu5g2ifeoWs5H 9LsusaDCNVhvtw3PfEcz+cfiY3RIMFRgBo6iWxv6HxzSJUHPyvTtX/SHZ1Vd y/QwnmLdFGms7/35JhOj6F1iWxWWojsfpMk1rCNBXkJeoIbuuRWxLdQA60Vn +Ikpmor/7eJoSEKy7VSOJbo/inXS0AjHX10hvgf9NXBbZp8xCdyJsLcUemiv mOxOM9x/9a7eG+gAu2Nr1DeQ0DRcz09HD9P6t06hhQIDdfLRYyZVxx+aY3zp 4sNN6L+LIjpkLfC8RExMyWF/CZn3+/cAulO04cdKtLAoa2HlFlzPeleLmf4k OmxtddwK4ykvnO2Ilmqck9G+DcdnWoqmoaNrjlY8ppGQdWZquAgtXdbXHr2d BCkPrlU9WjarcoHFTswnLUH4D3ppdPiROzZYD/EFE7bYTzV3zLHwIXH+TY5d MtiPE67VfDFlkKCscFFaGz23NypmtgMJns+0Yy3R30/L9iQwMZ9+D2OOoPMe K0dUOOJ+uzac/IC2VtnwWv7gTHzHfzzB/l/g8/dIN/qR6jGyFa31pGz5Azc8 T+c+zR9Dz3eg+Vl6YD0XTwcaErj/UaSsjycJtCz65mw0Nea7t8IH+1WbK6cI 76eWrQbC0b4kiJjoiH1A74gdzWD6Yb3u9/g9jdbVDZ4c9Mf4ZZQarfH+G3U7 nyR/BPuHxG2/FnR4fWqvdyD2j/VL7CXxPr17l+8vH4n5uJ1w9+E+CpJvdSp9 RJsaKL5uQ9+I66+6cw7r4U6NpTje3xdDR5YZXCAhVTdD5SCau3/hy93ROP77 E0kKTtivFm9XPROH+T5Nv30N7//OswWNg8l4fnQEr+pdsH6DngU/+hfjG/v+ W9QV+/vhylWBKdh/UhW4G9FVrk2nxFOx36f8dMpAPzAXaKmlYfwGuYJz+D4J GtE8w8zE/zN9lJn4flHwuGZQUUhC0FRdsp4nvhful1feKMJ+Mv/UrqPok8OD ewOKsZ6aYxhP0O1nrEJUnuL+nBs8u52N90nKUO3pUow/nGXnie8rtc6d1MYq rLc675v5XhToOApdf9yE/ZBXMZHoj/dZivaai83Yb6JXc7+jo78ynrm/w3iM R3ZAAParE5m9si14XjOeyvaicxL26Qe04X5pyMoY4PvQ5N2jV7qfcL3eDWWd +H60sGP/TfuB/WFD3GBoEN4P3/uV/QV4Xq7sFfDRoVGUpdkQCe7Xd25dF0zB 8yq3yNqfWJ+lj3s70bRN+2WGRvA+YqcIWZ3G/qJN1zCbxPpa9YGngO/f/aLm NrXiDGjf3xIkHIn5K5TmCVQY4J7WW/IyDvOflpv+UpUBIoHCjpvjKVhzlZGb qsYAK6Nsh0fotoDEauZKBiQ4Pw9IuorvtTWrfpWuYgA3uGztyQQ837zNtCtr GUAbX/zCIhHrIczn5zpzBuh91nVWSKXAa0+t9WEmA5TjZSy/PqLA19X5+d4L DGhIr9RxaqHAo7mlEZ7i+G3yiqZCLJA+5vnV9RcDQmjm1Jp1LKiLe/2ub6UD JC9q8d3gzgKLTuvaO04OIK9nw+L8y4L0ixn2HjEOIJ3kOc+zmwWq+d2Zkc8d IGvYfpuFhifYzV8n0zfuAAmHo3eHcj0htou+M02HCVnq180nyz2hZrHrIvYB JviVWUdOy7Hh0YnQz+7xTFA+ss0t4zAbcpgnLj+vYsLxk/ddHN6wwaRs9ak7 1UwQZPU7i75lw5PVrYfCa5iY9/6y3CY2vBg320Z7xYTP3/RLFrawoSVxcupV HRNoiVMRjR1smOo8fehtMxNCCg+4sAbYQGOHW3/qxvn7GOodYhx4/cbYsKIH 13dj6XiCBAfszfpVUnuZ0BKTYkxIcsBRkjbl0c+ETpvp7lfzOeCTKfHoy1dc 7+i3BaWLOBA3FKUyNITzzYq5X6zGAYV95gsafzLBZfj696CVHOCVD07m/GIC U5u6tkmTA2mxNi3cEfzeY+eyCi0OFBlJXxobw/jEto83rOPAJl5pEP8Pfr/0 cEC8AQcq5vhzisZxfj9Xu31GHKh9/2Zr0CQTIr+ct+w15YAdhBo4TzGhVLKS cc+MA+/S9VU2/cV8+L9o8N/IgX0Lu+evmGbCmOK5bNNNHPh4InZyGi00d+Gf 6c0c+B+HsXD3 "]]}, Annotation[#, "Charting`Private`Tag$35615#1"]& ]}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 213.45000000000002`}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->All, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.880515760356969*^9, 3.8805157916841493`*^9}},ExpressionUUID->"98eb6b05-8cb0-458b-b99a-\ 1cee3c6b808a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"hH", "=", RowBox[{"{", RowBox[{ "0", ",", "2", ",", "4", ",", "6", ",", "8", ",", "10", ",", "20", ",", "40", ",", "60", ",", "80", ",", "100", ",", "140", ",", "180", ",", "220", ",", "260", ",", "300", ",", "400", ",", "500", ",", "600", ",", "700"}], "}"}]}], ";"}], RowBox[{"(*", "Altitude", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tT", "=", RowBox[{"{", RowBox[{ "288", ",", "275", ",", "262", ",", "249", ",", "236", ",", "223", ",", "217", ",", "250", ",", "256", ",", "181", ",", "210", ",", "714", ",", "1156", ",", "1294", ",", "1374", ",", "1432", ",", "1487", ",", "1499", ",", "1506", ",", "1508"}], "}"}]}], ";"}], RowBox[{"(*", "Temperature", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ttT", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"hH", ",", "tT"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"ttT1", "=", RowBox[{"Take", "[", RowBox[{"ttT", ",", "07"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g11", "=", RowBox[{"ListPlot", "[", RowBox[{"ttT1", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fttT1", "=", RowBox[{"Fit", "[", RowBox[{"ttT1", ",", StyleBox[ RowBox[{"{", RowBox[{ RowBox[{"h", "^", "2"}], ",", "h", ",", "1"}], "}"}], FontColor->RGBColor[1, 0, 0]], ",", "h"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g12", "=", RowBox[{"Plot", "[", RowBox[{"fttT1", ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"hH", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"hH", "[", RowBox[{"[", "07", "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"g11", ",", "g12"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ttT2", "=", RowBox[{"Take", "[", RowBox[{"ttT", ",", RowBox[{"{", RowBox[{"07", ",", "09"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g21", "=", RowBox[{"ListPlot", "[", RowBox[{"ttT2", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fttT2", "=", RowBox[{"Fit", "[", RowBox[{"ttT2", ",", StyleBox[ RowBox[{"{", RowBox[{ RowBox[{"h", "^", "2"}], ",", "h", ",", "1"}], "}"}], FontColor->RGBColor[1, 0, 0]], ",", "h"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g22", "=", RowBox[{"Plot", "[", RowBox[{"fttT2", ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"hH", "[", RowBox[{"[", "07", "]"}], "]"}], ",", RowBox[{"hH", "[", RowBox[{"[", "09", "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Brown"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"g21", ",", "g22"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ttT3", "=", RowBox[{"Take", "[", RowBox[{"ttT", ",", RowBox[{"{", RowBox[{"09", ",", "11"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g31", "=", RowBox[{"ListPlot", "[", RowBox[{"ttT3", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fttT3", "=", RowBox[{"Fit", "[", RowBox[{"ttT3", ",", StyleBox[ RowBox[{"{", RowBox[{ RowBox[{"h", "^", "2"}], ",", "h", ",", "1"}], "}"}], FontColor->RGBColor[1, 0, 0]], ",", "h"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g32", "=", RowBox[{"Plot", "[", RowBox[{"fttT3", ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"hH", "[", RowBox[{"[", "09", "]"}], "]"}], ",", RowBox[{"hH", "[", RowBox[{"[", "11", "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Orange"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"g31", ",", "g32"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ttT4", "=", RowBox[{"Take", "[", RowBox[{"ttT", ",", RowBox[{"{", RowBox[{"11", ",", "20"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g41", "=", RowBox[{"ListPlot", "[", RowBox[{"ttT4", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fttT4", "=", RowBox[{"Fit", "[", RowBox[{"ttT4", ",", StyleBox[ RowBox[{"{", RowBox[{ RowBox[{"h", "^", "5"}], ",", RowBox[{"h", "^", "4"}], ",", RowBox[{"h", "^", "2"}], ",", RowBox[{"h", "^", "2"}], ",", "h", ",", "1"}], "}"}], FontColor->RGBColor[1, 0, 0]], ",", "h"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g42", "=", RowBox[{"Plot", "[", RowBox[{"fttT4", ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"hH", "[", RowBox[{"[", "11", "]"}], "]"}], ",", RowBox[{"hH", "[", RowBox[{"[", "20", "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Pink"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"g41", ",", "g42"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{ "g11", ",", "g12", ",", "g21", ",", "g22", ",", "g31", ",", "g32", ",", "g41", ",", "g42"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input", CellChangeTimes->{{3.880516335528427*^9, 3.880516344403159*^9}, { 3.880516408956891*^9, 3.8805164656739316`*^9}},ExpressionUUID->"c35bc6bc-5c4d-4b07-93f5-\ 3db4859444a2"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "288"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "275"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "262"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "249"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "236"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "223"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "217"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.880516424612667*^9, 3.880516468517592*^9}},ExpressionUUID->"998a821f-d829-476d-acee-\ 4a1b4a3cd0d8"], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0, 0, 1], PointSize[0.02], AbsoluteThickness[1.6], PointBox[{{0., 288.}, {2., 275.}, {4., 262.}, {6., 249.}, {8., 236.}, { 10., 223.}, {20., 217.}}]}, {}}, {}, {}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV13k4VP0XAHBlyVqUFkWWZDdz70wJkRNSeCVZirJG6dqFemukRMjSJNlK SlQiWtRP9qzJUqEQ4rWUFLKVLX7HX/N8npnn+X7vOWfuOUfayeugy3IODg6+ ZRwcS58p5514SOebu9o7bi0jVX2hslnqn0NS/+qsXf9y2lTFFxarSy5JSUXo 2Iv7cnkp+0JKWbQkt1SSjkxok/VjRV9w1/b3+COZqXPk3bZ5JTlfaJ5zjfsl +UrntkGQpJKkL6zo6JUflqzVcS1T7tkh4gt336b6/JBs1+H+r9fw2pQP5ORG dLjThnRMLjQ15Bf4wAmdD0k/fSd00n/4T8iG+oDngGJfXs6MjoEOI/6rmQ/w S4fId6tzgL7UPF/ZJh+IEa5TuuvACYWHPzRcHfIGpw6LUs56HjiUcf72q5fe 4FMV4uQlzw/CAo3qB0O94am3oPkGQyEoN+AbYR/2hrvn3IaIQ8LgrSe6lqXo DcGp82aTP0XgtVTZzzd/vYCjuQeKzq6BhY+jpc3ZXiDnd/yMhdJaSKXZq7Yd 8oL+qQQrgeJ1UNcy26kp4AVGA1RgrM8G4CSWw6ZCT9jfz1bevHkj6JqkK7h6 ecJQhdOFN483gaYx3eaUsifQRD5J6NlLQFfscNydfg/g15ly7JzYDC9+JVzT zPCAvcM2f2QspeDF12OG5455QFu58zIbFWlQezoYNbTVA16EV9pJTUmDd71B 79ZRdzjO7d/T2CgD39lBXI9fusMx33MvBJO3wJNuZfOcEHegn1Bu/MdRFiQC qpw0rdzh3WoVAX+NrXA75p72czl3KMwJvqnCKQezm+rr+f66wbllSgfqu+Rg LrDk7IcmN+DvPLvPM08edlkM+Vllu8HAfem4VJYCrPE27N8Q6QZxCmJcrywV 4Xo2p/DYSTdgJx+vcZRSArnMfu4XJm5gE2fbKPhNCaZXfh2L3eYG0/oZM6kl yqCZGSIrL+4GfQO6Z8rDVMA0RHyjAK8bpGmTmxocVeHskIex4hQF5fv5L805 q8LaZ9Khg5MU9Nr3DSm6qkJKMu37A/SW4BsFlz1Vwb3RnJBHp1fPWMM5VVj/ uq5AfoKCDNPyxOdxqhDf5FNGjFHw0NF8XXKNKqjfj49xGqbgcai/yAlVGggI 66nt+UrBTy3b4FCCBllcVWuF0SqT+hP3mDQw15qT6Big4JGT6MceDRoU+oU8 9EE/1HmeaGNAg3E+/vt3+vH8mV+S++1p8KvqP12ePgqSPdxp26/RQCOkgvNX NwWfZS1SzeNo0N/eMFOKFuvcKeybQINE36gNbHSikcB4TgoNNnrIvSfQN+Qf vVB4RIPgyw3yfl8oYP/3TUu8ggYDRoNnlndREGZ5zJhzigZTYgfStD9TkGba edRlmgbCQn5Cq9BFhpaeNXM0SCJYD3vaKRjX3nstcjkdxnk1PEPQR+WUW9cI 06F2wVm9sY0Cxp9xJ1llOiwshNZQrRR8SQw+u8eRDpFmP9/XtFAwEzsX+cCZ DlYH49VT0aLRfil8rnRgX5J9H4A2vHi8rMGTDkanh2Pk0HknjXisWHTou0ca hzdTcEVzdezxBDrcErlUYtFEwfbOu5lhDXQgdIzYIu8pEKa5Tue+p0NaWPfu sXeYjyDa3rZmOgQxVSQ+oNO3FPYrfKYD68WPA9fQom4tkm+/0iHYifPxGvQs i9OYh4OASocbO6QaKWgXUHu9T4wA0RG9+MP1FFRvSxrs3EjA/L2q89roPNv5 VT7iBJgVL7Bl0OzccrskSQK0NyYwhuso2GduOv99KwEygQ5UCDo/2XVHJIMA qW+W2QVvMV+KNx83GBMwaFz3r0EtBZMTBhmXTAgQH7tSTUOblozf0jAlYPf/ 9uqvR/OYG0VlHCTA4X5+0+AbCvxZM1SgNQFjq87sjEEffHdIQfUEAY7CHlq9 NRTkJHFK9bkSkFO5kNiA5nPOXZ9EETCcFC33Cl02zbOC25MAnQdpLWw0Xebl QKcfAeomj1i6aEF/0XtRwQT4V9Pnc6opcNUpS9YNIaAz4rprCrqCzz12OpSA bZ6T3FHos7crLjpHEFCQ9Lj5JPp7ja+DFpsAMdbfAnl09cYPEj9TCJD1XPMq u4oCmQHW2rRUAu6D4fbb6MBcBaHDdwnYsI3VexW9Tf/CfEU6AR8C29+dQqd5 0DtuZhGQcMvntzY6qCw60fgVAd4rNpzqqKRgqKssbqYA7/NCctt7tNXcBPtB EQGeEfayVWgVNZsIzjICdDPCYnPRbVlyZwurCQh49G/GZbRerXXAyTcEDEXq 9rDQOV+jfNe/JaDlup7RKXSo9AR1qoEA/vUjWQ5oRkLpEeUWAhaG+jO00Sl5 44faP2K+ObxstqN5m7ZahLUSULST3KWK7haM+qfvMwEWcnbXJdBRwYe1b/5H AG+ttR8H+k9qpIZhHwFdIhlpMxUUOBWXbP/TT4DCRQWOCbTGtCzNfJCAzc2t +76iv3qMbRYYJeCGfpvwO7RZpOymV78w3q/782vRRQ8PrT8xjvXrrMiuRF/v K15VMUWAm8SR+gL0AseYgM8fAt4w95Ev0dRmWV7JGQKSvT2qnqLB+grHuXkC 7tk6nMtEZwUUzyssENAmREvJQK+L+zX9aZGAS/3Mkbvo4KdbpkKWkZD+n4/n bfRwo9UYg5METe5BiZvowz8jhnu4SNhnGj+fgK7kK/4ew0NCXSmL/wY6WX9L 7xAfCUzR8edX0dxOVl8SBUjYMH3BNBrtHRTx2UCIhFPL922MRHfeKvo0uZIE feZe0Qj03oLRpjRhEqKunNcOQz9rlXl3YDUJRrwjN0LRm6cs6xbWkBCYfUMi BB2xOqImey0Jcqf9W4LRk/SiCpv1JOxxjS64iLY3GS3lFSPhc1DXuwvot5RM 0cuNJHwtdhFd8vZwy3xncRJcZeTCg9B3MsLzVm8mweHxZuUlC1QUPimTJKHe zvTveXRAz0i2pzQJT9TyF5bc+1c6U3wLCfzbrelLvzfZZJnxVhbPs2ZcXXJi P63siBwJPX9V1iyd1/+Yt+OnPAnLg3aVLZk43TsVqEiCbtfx+KX7sqBIeJUy CXc23L+x9Dxv+OKV76iQsJGcL76EFm32MiBpJDyTO7lqKR4Otwwdy+l4/5mf EZfR2S5bWOYkCTszw1TD0dO0v/H9DBKU1DRml+KrP/3pqf82EtTvLPu1FH/2 6yf1PGokOH3rWRmD7rhy5VvCDhIeCbRasdFyFs7LFTVI7Cf9NbFoX4ldEgWa JFz7scJpKd/8T8YOdmqTMKITJ7JUH1b/1nl46JDw5sW83FL9pOlmhC8ACWW8 LJel+tL4eLhESp8EXoNS24fokNuM9qd7SLAiLq3PRr8/ITipu5eEyj+2s7lo 19lSRRcjEn5LHN6Zj86rSNL/bUxCIet0UhGaI/qUfZgJCbfyH0u9Xoq3pPyN zAMk5NfYPXqLrtGP4RixIuGAXvOjbvTqla6bgg6TsHgl02wAbde6W03YBvOb Gy/9A/375JQbw5aEYvYLrT9Lz3/1aGvAMRIWcrkdRPD/7XtYbXyFCwmJPbGm G9Al0sJCScdJ2D+i5iqJtsyr0C08ScK6uxWiNHRIu1LOohcJHM6jNibo92lc tWwfEkICmdct0eLuX/qkT5Gw1S9m0hb9fOGamH4Axms6nOGF7t0yExLOwvjY s29eR+/2rDkiEkHC37uD0v3o2bbvBpVXSOD5n/GnUXSeniDjdBQJwT/+Fsyh 5cTMeLuuYj0+M10riu9bwcrPeQ/jSeAufCi0F90mNiIE6SQYPCWEXqJjQ4Rn xjNISC4Ora5EG48y+jMekHD8u+KTZnRJ5ekCgSwSbFLtRcfR6V7LTrQ+JaEo 5IIUif3Bu0q0zLOUBI/tiXvz0UrEjizp11g/Gt3cb9F9ydbxLeVYj0f9JzvQ Vt633TWrSSjguOrEgf1Ka5OCGE8DCRYVp4ON0bw+O31TPpMQQJP8MIROFXeS rZ8iwf5WVaYJ9lNNpjLN6Q8JamuUOo+hWwwnd0xPY/xKMtXPonlPXzaWnSdh 8Pms1wO094dHvqzlDIhd19fKif0bLk+UqaxigEFxQ1Qlunc0xDZagQE0Nn+k C84DLJ79J7YoMUA/5SPHRfQ6ifU+r5QZsLK78M4ttJFRZsgAjQH5HJ/tWtDP 0huytLczwLHoaMueBgouWa+bHd7NANw20gmcR2QrHsTvP8KABWOZ9q047zSq TKd3HmWA4Eat4T3oM/H7nlN2DBAPaFA8jq47+f3dZUcGaLZZiT9A+wor85We YABLn+ub0gcKSm1zztH9GMBbXLtaE+cpm+k8B+FoBvxDW6xYmse4nLi9bscw wKmI/9tNdE6dZaAKmwFn2qIZr9HLUn8n7bvOgPsFs7qCH3Ge3aPefCGJAVzy Xobp6KnYwj1jGQx4m1r+s+MTvi9Uy5WaShgQLCIafRLnx4fqR/iCyxgwLh9m lYAu1Zv8RpYzIOr6LdMq9Ii1XMa1KgZoUTnvpXEeNb58RdKsngFX13qu7ELz dB8Ufd/OgPljtmeOdlJwjt33t2GSAdPdc9xBOP8en+D6UKvEBE8LdV5znMft Huk3HlVhgrXoyq5wtJVjSN2oKhOsym07StAG7zir15JMYA1SFsrfsP6zlhc6 7mBCiK2WOs8gBQNOHBkzekwIGyqsrvhOgXPT3BlFWyaYsFUXbXEfcHo6LhVx lQlf+Du6VuL+4R5sPm90jQmLrsaRVmh/87xWwetM0Frp5n4bHT7lH8OOZwI3 Lb+W9hvjqzEzl5DCxL0t4pfZH5yXXy9+up/FhAu7+UfvzmD8mgSjK2vw+9gL ua4L2C/vebhermWCWUt700v0Pb9GvX11TOg/2qvIvUjBy3Xs2bpGJhzRW3Yq Dd1ps8a1+SMTwl0CfLo53EC+T0yvt48Jgwvaksc43YDIO7s5fYAJAs8iA/PQ mqEdMy7fmGCUHb6Kh8sN/pFPefJ9iAkbAtiNmWhfN6nNY2NMmLRrzZ/gdgOW 1sWZZxNMGDFKzTPgcYNQod4WvykmLD+/rj8JnZh7L3J6mgnnXq3+AitwX7vA daJglgk9rxMexqGzzFx0WfNMsBOpvz+IzpOplti1wITpB7ltWrjflUzIzSwu MnHv0t11Df1/OyiRvg== "]]}, Annotation[#, "Charting`Private`Tag$41518#1"]& ]}, {}, {}}, {{}, {{}, {RGBColor[0.5, 0, 0.5], PointSize[0.02], AbsoluteThickness[1.6], PointBox[{{20., 217.}, {40., 250.}, {60., 256.}}]}, {}}, {}, {}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[0.6, 0.4, 0.2], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV13k8VdsXAHBRMpNIChEPGSNRIitT7jn30uPJlIoMZSYahJAkU6hMT5RI UTI9RWRMGYsMv6TJFA3GyHDjt85f9/P93M/Z++y11l5nbylHb3NnVhYWFv41 LCzU76XNJbwsLBoQNrfExiLpDlsixrlk2DTg41aJ7HF0yaQkhwm7BvgazSq8 lXKHz03XWBN4NEA9u5SZK+0O+wM8f28T1QCF8NjbhJw7LHTKf9FT14DZ95nj 11TcwSMmq+yikwYMzhuFcem6g+VKrN3qKw0waLnVVGPjDsvpT9tHs3fDWI7S 0rtkd/gpp33d3ksT+Ny6x4I73KFQxzmjd7cWqLg12Dxh8wADji/NWnx7IMmw hHNhnwfINJYQ8v/bA7FKUoc2envAO82eSZbSvbD7A81/OscD7NXu/O/9VW14 fMyUSfzPA5TFGoSMzffBAtuR8U52T+is3h2QqqgDnbm37jZpeUKd2Yp84LwO mFaXzgs6eULoKR/Jo9W6YGiqI6wa7wkbtXfpKNzcD8XOrNwulZ4ws0QWXD6q B1V3irWNBj3BosI2y0kMQM1baMMytxcI7R2OvnIFwLR2a57LLi9YLtos6fcd /+/V524/7AX0iICXb6wOwEeXuAP/XfCCBrPgzb+rDsCES45dfYYX5Jx5dCFR QR/WygW+4qnxAk+HEhblZH3YIb00o/TJC44YOqomLOkDu8L72cZlL/gvXNvH 1dUAeMNHNxiJeoNGRbUte7sBLBY8o7vu8ob0UmHXezsNgX6bp6uU9AY3zuTL lRmGsNgSbnPTyRuOW9UxktcYQcafwfpTgd5QyyIsP+plBEdf1XyKT/AGDi9d Ga1+I3in1qzamOMNZ94KtJjtN4aIlhVRvXJvML3BEz6QbwxMEHz+30tvoDNK h3YKHIR/12bIZPR6g1qLimvk6YMwlD3K93XIG0Kzu5hmnw5C/tPVt/1T3jDn J6XzxcAEUj4cGY1f9obuzNS40SITkGO2979l9QEnuct1wSUmEHV3nfYI+tdj 3zmhMhN4rWwWP48WqiPsDZ6YgOB3kU2ibD7wzxBT6Xa1CXhwhGbbo3vkHNps WkzgZEd+4TC6t2gHd/uQCURecbvxba0PvKuvjCrdRIPDhUk3e9h94FymSp3+ Zhp0fxydHEJvDsxe7BSlwY2kCr0ZtLVatNuUGA0GL/XX8K3H8bJs6MrSNCiM 49I/iO4OWuDPU6XB2v3SpuXoN5qaKekmNLi/QetyLIcP+Ajmv95B0CAn3+5a GlpgQpyjgqTBSNNK/D20We66832mNFC7WutVi+7Y2GMrZEmDRQ31oll069Rp iXgHGhjv6NC25vSBpvzi3LBAGgxEjHmJcuH8cl6F6kE0iGTkysqiv+QoPBkK pgFH+boudTQz8+4rozAaJLsUs9HRatdvfueMosFbo7KuYHTGhfNqSTdp8IXp uu0T2o9+oDq7iAb7GVdOp3L7QGjznxcWJTSYFXiadRcdZ1zZsbaMBqH+sTWF 6Puw67PLExps3yrZ34j+oPEXm+JzGsSPzgROoU3EOWmlrTT4FWDsbsTjA+IT b7obRmmw7mwu+yiaS0SDaTVGA/MpOtskekEvRfrHOA1suXfO/UZ3J9r7Cf2k QYbsg6ecvD4Qu/sbv/MsDUanXZ4roZlBbCQ7CwHJ7wVe+KAHuDXrTEQJOLYs XjOFbtFIGxvYQoDgw70nFtBP7Zn8vmIEhK8kMFfRNx7XH03bRkBS1AwfP58P 0C3MmON/EXBOLaxECf0s/aRWjDqO19v2yxmdvuPfR+0kzuch7vIGPT9rnHuJ QUD6wXV7+tB/P5/J2GtGwD09kz8f0BwWRGyuOQEfIz85fEefDVp0C7YhoNbX 4vo6fqzf11byyq4E2FQcStFCF6WxSQ6dJGDR6VumLprb6bFImhsB2cqf0gzQ 9Qvs69d5EbBhU/8pM7Ta9vKRAX8CHA2E/VzQfAFCd2PDCXjPf0c6Ce2mV5uu H0GAcOyP4ynoF5weSQuXCbD963piBjoosyHM6SoBq4XTbffQ31/6HddJIKBO 4ldBJfrVlk7xH7cIEPHh4/6MlhkJEs7OImCiijtkGH3xsTyv9R0COmSdhsfQ moahzIYcAh7+LRszjc7xVH3/bwEBA2xTwCrgA2G1calkBQEC/akMKfSPD7U3 FisJOBRtPiKDtl6eTcirIqD8wICPPFpF0/YqWy0Bv18cO6GK7i+QDXzWRAAh I1eugzZqtjlz6hXGk9fhhx66aDTWT6SFALsVt00G6CtSs26n2wngmJswoqE1 UmrsFLsJ2LXniaAlOqtsxupdD+bH1verFZqr669/rvQRUBKx/NgW/YUnlj7U T0DLz4tix9Hx4da6/34hoE2YdsINvZgVs5c2RECh76VeD7RT9fPdv4fx/bvj dL3R+xZkVCzGCNhXJPj1NHrMc1qCe5KATdUDeUFoixiZrRVTBCibp1SEoJ/f txJxnSHAY0KqJhR9c6iav2GOgCM6ebkRaH2baJYLTAL4VPw+x6Afnalmyq8Q cJT5MCEOvfnG1ELvKgGdnU80rqEnOw5Pq7ORoJKka52EzjCUHvzGSULFSU7e VPR6x8MfU7lJ0PFptEtD+1282m/MS8LXELPMdDStcrIrW4CEouKelQx0Wd/2 14cESejoeSOWiZacs2xd2UiC0JoMlSz0vGpVg60ICYKe2cp30A6MyRoOURLa H33Yko1uc9teVb6FhIdzY8uUtaIsnzqJkVBm2PjmLjo7N6pMUIKEwXTvtBw0 b8OzotptJGgufLPMRZ/7PPHQS4qE4iOa7PfQZlstc1tkSBDbp6ufh04fVqm1 kyXBp/t3I+XRRxzvf8iRsCZERPc+Wv3s4FzwDhI6tTLyKYdAlQC/Igkf1kTy PkC3cCYr3lYiQX6g25nyprfexmoquP6mqFLKjhk0h3pVEs7W3ZmnXOgsHWSh RsKFtm2q+egllT/Jw+okPP/Kak/ZeKG3OECDhP0byVDKSXVFbeyaJCyZLqRS /hAd/TVFi4T5dK48yvL/OLHu2EvCzt9h+ZT9xfeLV2qTcO/E0buUa0dF9pA6 JBz5nJVImado2nxAlwRTT+MAytbnWz099UgI4TI3pZyjnxu1AiT8eFIvRnmK ++Lda/okpAWkfqbef1+P9XNJQxIuGbxNoxyZqf6u2IiEfKnTJpS7XHl+6R8k QUDg3A8qXhJqo3zdJiSU8g1epuy2VLPDmSDhhnixEOXyhjTDeRLzqTOSSsWf Ne70sSsMfN4jRJCy6WFG4GYzEgoKgsKo/KVvk7v54BDOv/xphMrv6BhLkbY5 vp/dfT3K6iX9La0WJPxs7Ymn6qHZMJ5l4jAJZh+O8VL1IsR3cutFa4xHSJUO VU/H+w5oCtiSkKca4kDV38KpOXd1e4xv/c4Yqj4Nd72ObDhKAjNHKoGq3wTm /Tv/HMf8pJyNvkXF/9qRvjMnSAh6aH7sXyr+1poz651JOP+6by+1H2qlBHjT XEgoYa3npPaLVVmD/rNTJHxKe3E1mYrfO4XCVW8SJGKuciVS8cte25zgSwLH Tq0Eaj9KeHwckjqN+R2hccej/1tJFDU8Q4J2aOaXaPSw9GJEVBAJu86v5af2 +86fXVmiISTw3O7XC0cHlT+szL9IwvY+YReqPwjRjk+1hZPAdeZZEtVPDLxe 2m24SkLVmQYPfzTzf+PGjdEk6AZt3OJH5ceAR/1sLI4X9b2S6k/yon9zfLhG QkLJrj6qn/E19pfdTyYBLGQCqX73SuVPll0q9o+YsgZ7qn+nbYvhSyfBvbmN xQ79y8vJwf8W7m/rm5ZUP+0XneCFHNyvDZGnqH57I0JgcSaXhOvKVmbGaMak +nBuHvabzMfyVH+ubTxbyV2A+ydp4T+qn9/zXuPaV0xCRtM3barf+70QqvWq ISHA/tDEBrTSTq0CqToSHind4eFDj6TbJHfXY7xYAyW4qPr3yfTQbiJBobZB jPre7N8qL8reTkL1lSeXqO8Rl+8+v1v9JJwzklxuR98Rc5Rpm8P1Xpi/FozW 2aWo4vgb66f2r6Bz6F7aL62FBRL8hs/Yn6aePxtJyjBJUHsZsnoS7deZ7xfE SgfrRZk6C7R+5GytEj8dQKBVWw49PBlhHydPhxiOkPVN+P0PYTd1lVagg92W 8ZQa9GZxEd8KRTrEc50Rr6DOH8SDiBEVOkhFzq1/iC7LaS/Q3U2HH+PRtono yzabln4eoMM2J/55G7RsQ16yqR0dWKQvsg/heeaN0kLOwBE6CHUGOr5HByab lLodpUPqo7Vlb9Htp8ZfRzrgeNP1Wo1ofwFFzhpXOjTmjdfloOvsCy+o+tNB /dWnzyfQRxbKjgvE0YFjwIvWj+cxdsd13pnxdJix2mnViS5qtQxWSqADwRpq +wrNljWfZnKdDiaDzQfK0flGe96GptHB5/X664no30nPjKZz6RB+VAmM0UnK 9Qpdz+mQZbb5RR6eF/P32HGG1+J6ru/KzUDXGfz6qlZPh9sBbOcT0VM2srmJ L+iQvbluORDNiIze9ncbHe71lHoy0ByfzIXevKPDY8WzbFN4ng1OGPrT/osO rQcD5hXRJ2fXdjYrMEASzJZC8Hx9PN+w44gSA/g2rnvmi7Z2iGidVGZApBO7 rxPa5DVbk7AaAwQvfa+ioeULWJ85aDHgTqFe90b0V0eW3EUDBiTV8K+5h+d/ l67lczvsGdD4ytSiHu8PTsUzklevMeDkOZP+frx/eIVbMIlEBoylCW9sRp+1 KOvjuc6AsCcx+5+go+cC4hOSGbD+q5/ndfTjvYvLKbcYYCmirEiil+pWe+8V MGC16pDsU7zfJHbxxDW+ZECcmOXWKLwfpd/1PBnZzAD3ugMP/NE5/h0GJq0M cHLs2+GALt+UsNTawYC81D+s2ugB240n3/YwwLd3t/D3Nbi+IVGDwSFcb4pl BYFWLwuUyBlhwO0/nb6a6H2X3y86f2WAyfHfYtvRpnK3isa/MeCbqC65yOID p90lJaanGeB3tGx9HjpIJ2yxZJYBfbnnLJPQkbyD3f5zDLAeH7kZjE59fDdm YYEBD5yeTVigs0PXulYuMeB8hvR6PXTB3876QUwGuLzREFRAl21vEt+/wgAP lkl+YfTzWdnF1VUGXFMyZ2FB/x+gpkZp "]]}, Annotation[#, "Charting`Private`Tag$41605#1"]& ]}, {}, {}}, {{}, {{}, {GrayLevel[0.5], PointSize[0.02], AbsoluteThickness[1.6], PointBox[{{60., 256.}, {80., 181.}, {100., 210.}}]}, {}}, {}, {}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[1, 0.5, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV1nk4lF0UAHCJEJVQEZUtikj2lDoiTZsw7zumUIR3zGRvWlE+CZVUllJp +KT4lLKUtWQpSwmJMkhka6FGIVnyHX/N83vmee+959xzz70qB33tPYSFhIQk ZwkJzfxukeLPERKyAaaEysj0tC/ML+eKxsyyAS/T2F//TPkC/5i0iPpsG9By XGQlMuELft3bZtHm2EBK4PY2iVFfSCrKm7gkZQMuq/w/yQ/4wqRnnGCFgg3Y ryuhW7f4Qt6LPa2b9W3gk9Ce8o4sX9A+XZl52t0GeFd31ou6+cKp3e3U4Tc2 kCdTW5hS4gO/ZW/V6JrsgTXby+LitXzAgadv8+3GHrBi5k6f43nDwi3Hf16c bQsD8V4/SClvkMi+LzPX2Baa5sQ4wTkvyNs9sqHUyxbajUxyJGZ5gcOuVaNH U2yhx+yn/vp/DoFkld7ZK022YGgauIG24BBwfXcv65trB34O3Kbg6xwQxG4+ zzO3A+k5PEqgxwGXpUqRDr52IFeYMiesng1n66Qu7bhjBy6z454HH2LD07+N nH/f24H6BvqXYFk2ZDhl7tGfbw+lx6bffi30hPNKAS8qLO2huu/big8sTzjF lJIuPGIP7oOZT68pe4JmeZHb53v2QIthfhLls6A7bVNUYIc9NBRs3nTjJguI 4ndPaYvoIOVSO/ZlPwsK9PaGLN5JB6/wFr7lahasVc1eQgumQ0LXPf+wSQoc LZYV5ObSIWhLI6/6DQU32vfrnOmjg3qyz33bhxRcijrmvaOfDsl8+59vH1AQ tvFy5sLPdBAJaIt0QHsnlukkf6ED8YyfdiCTAnBS1306gK49n3n4HgX9bV90 f/+kQ8PDkvcZaRQYtnH1Dk3T4XiidxqZTMFr/nkDujwBtVKfDW7FUHC8tcpR W4EA6fX6Vdpo9TaRsNlLCQh6515YdIWCoPZTTbmKBBS4nyniX6ZA62PAEbkV BLTX3VmrdImCiJ59+c0rCWjgn+7NuUCBxQ+tDUwDApgvI09rnqVg4AfLTc8Q x1fs+lEWRkGCIPWCuBEBPe0qz5zQgqHl7QXGBIg/cjoZe4YC3rBMsIIZAZ8f 5ruJhlIw8We8pBVwvA5h4YlTFDwWebXF2YaApkXfvXROUGDr6DiusYeAVSVO j/nHcb7sb9kC9Bq5ANtwtPoBKZUwOwIiay6f6jxGQVzh7ukMggC5vbyihKMU cH0aisf2ESAlNZ4tz6VAv6XZMI5FgFJZ7i2GLwV1utSAsycBoDJmNg/NOTt6 W5ON863t1nruQ0GK/hLZYg7OR2QKG6BlLjKHurwJMKxYGCPnTcGQRVvmWi7G Z6So18+hIOtep8arEMwXS4/9kqJgNj2+8s4/+H/X8sXhaMb4dioklACnE2rq W9ATtNw7RmEEhIn5uhV7UGDdd1Y9OQL37/oC3xx3CtqVtVWPRBMgdPVoUc5B CsSvHlm2IhHXM9imMrkf681c6+kfdNDO6KEK9IOeDqemWwQMVzNUo9B0A1ri uSQCPFW00paheQ1LFYdTCFCmtZpvdcb6kSyVr/mPABdvl6S7jhS4hMyVO5xP QNxiEYMcJgVmb4TzthcQkDgv+Gc4epHqhINyIQEhI5ELnNAvK77dfF2E6722 96AY2lDstdqqEvxeo4Nz0IECiehLBh+eYz68uGJaDAp6OiKac18Q4OWvlCyC Llkbcux8JdYL5XD1I4n79cav2KSaAEI9/OZVdIecvWXMK8zXl0pxCXTOTTn6 tkbcn8Rmn2k6BVEDUiPL3mL9PLjf+RHNMhe9Nox2yl6cVYpW+jjS+m8zAQPn brPOoMNV3x+cbCHA9Gzy+nlox/+uB2R/JOByqiZb354C4/ErcpGdBOx6rvNI Hi2983ze/i4COpsqnabtKKgcODku2Y3xVWdXvkbr6TmFUn0E6I1zpnzQIvnL YxQHsd7COaPlthTUO3MqutHJl/K9s9A3RPKG730nIOGelzEPrWe/22GjgIDS pQuenEQ7DgYqOf/C89FsmGCC1oir2r1ymICsgPIbmmiBmezpQXSPSsH3Jejw yIyu4FHc//y283/2YH7U+Hd5f3B/ns2OK0UHv1RvocbRP96o5KJp/n4SaycI EKwTn3UX3VEi5vVskoDJwfu5Uej/POi3IqZwfSzFiBA0Vyqpbs9fAlJ/Dd3j oiX2Ga/rnMb1bXn/xRndJBR6MF2IhFVz+oTpaF7a61i/WSTUtjl509CGI+6j QrNJ2FUSamyIdrkcW6wyhwQll4fXF6C1TT4OfEFH5f01F0OPftBaniNGgt+K PINpG9xf7fKQLRIk3m/OsgK0Q+O8nLlzSfCq3jX1Ga16Ym93I3rgZKrpJ3R+ pWCrmxQJckuibjejQ703HtOeR0K1kNLbevQuucj0X+j2SVniJXpJ8Vt+8XwS mJJcjRfoT64rJMMWkLBxzcYdpehM8UMbd0mTEHbA61kx+vjDPG+5hfj/HZHw fLQlQzipHU1MifBy0fOndjekypDQwvIWy0Lzb1+f5S1LwpMe8/L76NQdvfpG ciRIc4/W/Yf2GdJzn0LXLlqyJg29PiEo/sUiEnpqVrSlokU2V1deXIzxXr7c loKu65UdI5eQYMtm6/yLvh51YPVyeRLSiYyGJLS7wb19fWgne/oLHnpt6+iF Bwq4/oPukjMeD9ny9OhSnP/sh5Rb6Bea0d83KZIwWVhyYcaX6/grxJQwH7PE K2fseGSlXT1a2rHQbuZ7DSX/0GvLMP6qRt2Z+QTlT3IPLCfh+VbCORldzBbv 1VxBQsE78w8z69voevyvkDLGJ4jn30aXMD8vaUXHlWYY3UWDLXNdrgoJ4tZB Q+no8m3VO6JUSTD9Z+68mXxZbTZ191DDegkgIx/OrNc4PXiTOgn35Z3dZvJt rSt/bclKEoa5KryZ/aheGZklQH8OTzF9gt6xbKymRoOEBJtO/TJ0rZxnd4om xvuqNaoSXT+btphcTUJDv6hLI9p2In+trhbWa7gxvwXd+FNzu5g2ifeoWs5H 9LsusaDCNVhvtw3PfEcz+cfiY3RIMFRgBo6iWxv6HxzSJUHPyvTtX/SHZ1Vd y/QwnmLdFGms7/35JhOj6F1iWxWWojsfpMk1rCNBXkJeoIbuuRWxLdQA60Vn +Ikpmor/7eJoSEKy7VSOJbo/inXS0AjHX10hvgf9NXBbZp8xCdyJsLcUemiv mOxOM9x/9a7eG+gAu2Nr1DeQ0DRcz09HD9P6t06hhQIDdfLRYyZVxx+aY3zp 4sNN6L+LIjpkLfC8RExMyWF/CZn3+/cAulO04cdKtLAoa2HlFlzPeleLmf4k OmxtddwK4ykvnO2Ilmqck9G+DcdnWoqmoaNrjlY8ppGQdWZquAgtXdbXHr2d BCkPrlU9WjarcoHFTswnLUH4D3ppdPiROzZYD/EFE7bYTzV3zLHwIXH+TY5d MtiPE67VfDFlkKCscFFaGz23NypmtgMJns+0Yy3R30/L9iQwMZ9+D2OOoPMe K0dUOOJ+uzac/IC2VtnwWv7gTHzHfzzB/l/g8/dIN/qR6jGyFa31pGz5Azc8 T+c+zR9Dz3eg+Vl6YD0XTwcaErj/UaSsjycJtCz65mw0Nea7t8IH+1WbK6cI 76eWrQbC0b4kiJjoiH1A74gdzWD6Yb3u9/g9jdbVDZ4c9Mf4ZZQarfH+G3U7 nyR/BPuHxG2/FnR4fWqvdyD2j/VL7CXxPr17l+8vH4n5uJ1w9+E+CpJvdSp9 RJsaKL5uQ9+I66+6cw7r4U6NpTje3xdDR5YZXCAhVTdD5SCau3/hy93ROP77 E0kKTtivFm9XPROH+T5Nv30N7//OswWNg8l4fnQEr+pdsH6DngU/+hfjG/v+ W9QV+/vhylWBKdh/UhW4G9FVrk2nxFOx36f8dMpAPzAXaKmlYfwGuYJz+D4J GtE8w8zE/zN9lJn4flHwuGZQUUhC0FRdsp4nvhful1feKMJ+Mv/UrqPok8OD ewOKsZ6aYxhP0O1nrEJUnuL+nBs8u52N90nKUO3pUow/nGXnie8rtc6d1MYq rLc675v5XhToOApdf9yE/ZBXMZHoj/dZivaai83Yb6JXc7+jo78ynrm/w3iM R3ZAAParE5m9si14XjOeyvaicxL26Qe04X5pyMoY4PvQ5N2jV7qfcL3eDWWd +H60sGP/TfuB/WFD3GBoEN4P3/uV/QV4Xq7sFfDRoVGUpdkQCe7Xd25dF0zB 8yq3yNqfWJ+lj3s70bRN+2WGRvA+YqcIWZ3G/qJN1zCbxPpa9YGngO/f/aLm NrXiDGjf3xIkHIn5K5TmCVQY4J7WW/IyDvOflpv+UpUBIoHCjpvjKVhzlZGb qsYAK6Nsh0fotoDEauZKBiQ4Pw9IuorvtTWrfpWuYgA3uGztyQQ837zNtCtr GUAbX/zCIhHrIczn5zpzBuh91nVWSKXAa0+t9WEmA5TjZSy/PqLA19X5+d4L DGhIr9RxaqHAo7mlEZ7i+G3yiqZCLJA+5vnV9RcDQmjm1Jp1LKiLe/2ub6UD JC9q8d3gzgKLTuvaO04OIK9nw+L8y4L0ixn2HjEOIJ3kOc+zmwWq+d2Zkc8d IGvYfpuFhifYzV8n0zfuAAmHo3eHcj0htou+M02HCVnq180nyz2hZrHrIvYB JviVWUdOy7Hh0YnQz+7xTFA+ss0t4zAbcpgnLj+vYsLxk/ddHN6wwaRs9ak7 1UwQZPU7i75lw5PVrYfCa5iY9/6y3CY2vBg320Z7xYTP3/RLFrawoSVxcupV HRNoiVMRjR1smOo8fehtMxNCCg+4sAbYQGOHW3/qxvn7GOodYhx4/cbYsKIH 13dj6XiCBAfszfpVUnuZ0BKTYkxIcsBRkjbl0c+ETpvp7lfzOeCTKfHoy1dc 7+i3BaWLOBA3FKUyNITzzYq5X6zGAYV95gsafzLBZfj696CVHOCVD07m/GIC U5u6tkmTA2mxNi3cEfzeY+eyCi0OFBlJXxobw/jEto83rOPAJl5pEP8Pfr/0 cEC8AQcq5vhzisZxfj9Xu31GHKh9/2Zr0CQTIr+ct+w15YAdhBo4TzGhVLKS cc+MA+/S9VU2/cV8+L9o8N/IgX0Lu+evmGbCmOK5bNNNHPh4InZyGi00d+Gf 6c0c+B+HsXD3 "]]}, Annotation[#, "Charting`Private`Tag$41692#1"]& ]}, {}, {}}, {{}, {{}, {RGBColor[1, 1, 0], PointSize[0.02], AbsoluteThickness[1.6], PointBox[{{100., 210.}, {140., 714.}, {180., 1156.}, {220., 1294.}, { 260., 1374.}, {300., 1432.}, {400., 1487.}, {500., 1499.}, {600., 1506.}, {700., 1508.}}]}, {}}, {}, {}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[1, 0.5, 0.5], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV13c8lV8YAHAhREmhpEKlkDIbticrO0oZlRWlrIt7zXuN7hUVkvHeq/WT SpQVMppGWUmSPRtklhmS9Hv8U5/v533vOc95zvM+59jm7H3UlZ2Njc0E/1n+ f6zrpDIbmy2s3vvKtuauJ5zJHZWu5rMFSbk2PbUZT+i8GCIWt9EWeHKKSuMN vKBW5uaqLfK24HulyWx0xAvSAzr7Dtrbgp5v2EvZTSRwErSN8X5hC/0+ZBdu ex9oNT4x0BtoB/0XRvZH9/jB61IL5svJk6D+LDeFvzAQ9uqT6V+2O4BOetq5 L5oR0M27hjzO7wSqR+5PfHeKhKqPmq5TDGc4nR/qtnbtZaCNR97IEHUBaZ5a pZG0GKiUXxtjkuwKwW/aeNJuXoO2qtzyu/LnYIbf9Euw6nWI05A7QK1wA6vm Iu6DpARobv5xVlftAtB3KZSbuCfCUOWbrpcf3UH2XeTCNqskkJO8HJjb5g7r k5wva1onAYVhJny3xx0e1SlyW9slAbt+qzlj2B3U5/c10R2TYEvVYLnxCg9g tGcXv/FIAosa3ow2BQ84LBR4pJ+RBKX1FuTJax6QHzIr+19BElxp6V6909wT crzlyVJ8yWCSfevZ/DFP+APqGUVrkmF15Cm3eltPUEs/wK0nkAxx+7or/Vw9 ofvjOUNb4WRITOwKrqB6QuazB0Oe4slwy7JzyOGxJxi+lJIG5WTIft/25gaP FxSVe36OsU2GxrdNVIFKLzjOu01yODUZxhbS5pxrveBDr93g/nvJwKPg5/v0 gxdI/tqQF/4gGQ7dEHSz6/YCsUq54wKPkiHfy+rY/V9ekFV9hUOkIBmSN7bK qEh7A5uI053aN8lgd76j1SHWG2bEcw8+/54M/ncyLfMTvUHJSUa2bigZEj4F 1XPe8Ab/xBGNtpFkeKcpWpGZ7g0bBmxfjf5MBo31J7OnX3uDtEOS+dJsMog/ 76ZHTXnD1Ok8yzouAny5SKw2WRJMHCdMOHYSoH/PIrdOjgRCFx5DyS4CRECx 6qUiCS4Qnx66SxPwOmhq+t5BEuzV7mt4L0vA6h/kIyRdErxU97kepkRA+qcg rlUnSSAw2ktO0SagM5VOVrtCgpGwlRsf2xCQrelydW8sCbYmyEfK2xEQ3qmX JhFPgjgTSlD+SQKkhLgauQgSTBGfZgvsCSBHRct+ukuCmQe2Jx64EMDvFfvV vZQEajvd9+mQCNBVZ1rcHiJBlA2tzu0SAW+42Bo+jJJgoUHnS1cUAXpNbibs 4yTwvXXpmNllAgzOqxmc+0WCE4xCM9kYAoyZPeqK7D4wH9Ga8+k6AZbTO6Te bvaBqbPUltZbBDg8zvs7Zu4Dt76wNLKeEPDZf1OI+FEfyE9wNxnLJ8BR5+K8 5XEfiDPg/LC7kADnjmPTRSd9QPRH9sF7RQSc5Z4bCnfzAbLK6P2I5wR4ntFs FrroA3U/5P/79YaAkM11jzSe+sCBvbTrr1sJeJaWp+BY4gOhl0eq69oImJdh FtGf+4BY3Z2U5nbMh4pLRV25DwiMNK7r7yTA4/hSh02DD1iF8V2Y6iXA/prS KsqgD/S9k3N4/50A4Lh5LnuTL2jvFGdE/CIg9ErEj8YtvjBkInLdaZaAF+vc /GbEfUGi/LsFzBGgIrE/TH2XL1yonBz9PU+AouYHolbJF+yl4f7pRQK2B3BU DZj4gltVbPkgOxNWjrpLioX6wucqgzq+tUyInqmj80X4Qs/UbZ1i9OolmW/z dF/QOu+V7STAhPXrhu5+uuwLtudbThWsY4LEQRfxy8m+EO+soGwsxAQ1+inR mSxfkH2VfMhgExO8NpsJ1HX5Qrai+VLIdiZMSmZ5F/f6AvfxmCGuHUwgy/F9 uP/FF6QSF9vi0SGHamPDBn3h1GRVzV1JjOecPt/+aV/IEjNiL9nFhLQCTa5U Xj/wmOWwLtrNhFYTuUWKqh8IfnVKWlJkAjdDuCJNww++a+a4k5WYoPJiMeqD th+kTVcqDqNv7HknKGPgBxZfVGM/KDPh9Bo32e6jfpCt25h8bT8T+hvu2ul4 +IEUl8v1HhUmCHNflvD29oO4Ed5sHVUmGGiTvt/09QPKTtnKdHRGrpbvr0A/ GEkp++KuxgT3+K7LGZFoz5TFYXUmTFkKl/L/5wfR2VEmRVpM2HFlMVQ9zQ+q SV9d+bSZYFXxTc/tgR9USlpcckAXKeU3lj/2g5ybh7s5gQlBgkeGyCV+wKvf PqF7iAlsLdEbuz76AafTq9NJukxQXEPq4W7xgxdbSuQ70c761vf2tfvB9JiB oLgeE9483Skf14vr4VyxPh0dRVQYHBr1A6bqzxWZ+kzgt1mkPOQkwyufJBP6 YSYw1p8SvsNNhv9oOgNF6IX654VJvGT4pbG9dBj9/VDIdIQAGRb+vF1nZsiE V7ILpFNbyFCj/YbgNWLCvu+2AsfEybBfedd6FfSj1NJco+1kqJQ+Ue+CJoSD fh6QJsNince/52ivf3Pu6/aRYcblMsnJGPNfas3Hc5AMop6kqWi0Hbn40ZIq Gdw+vijORRsM+w+PapMhqOcD/x+02KdfZ6tMyCDS/WUp2oQJSbHHuV6ak4Fb du7xIzSv4dMHBZZk+LGd8+479OwLcn+qNRnmckxd+UyZ0JA+7RRyhgxKopfP XkTrOR1b4XuWDLI7zM7cQT/bXJDqdp4M9ovJWaXo9HjfvuPeZCjd9WfXT/QW k6ZQU18yNFep2nKbMSFhpZKYLoUMG1sOdYqjQ4MnTymEkCF2crLOHD2zz3Jx VygZgh88V3dFXxjPu7k1ggyd6xP+BqNPuJA6eaPI8CX4of99tJz5uPVAAhnW U8B8HH2f58hcVzIZfoZqWLOZM0G0ModoYmH+mqufCqC5VLxaXt/B3wvWU+TR 1Kn35KK7ZCDfdmnXRE9l7RXKvo/zF75LMEH3bvtx9MYjMnh06a5zRVt1m07F Z5PhfrdfKwldR2Rdj8ojQ5lZ3q8QNFiuVgwtIIMOKdr7ErqIz6ORXEQGL++r evHoPVXvvN1LyeDoaEhJQaeFy651fkGG3kPm7GloEfWrOTavcb5F2bFMdNyv EbMjFWTQdSYpP0Hn9zYdi3xLhoOPIx1K0C3Vz2yf15BBw4u/4RV6Pi/NYfId GcK5ysLeoLfcuOIq9YEMQnlHKLXL8dF93U83YT6jfHPfo1087HwSW8iQfLVH 7iM6+rhOQG07Ga6m6M98Qj/W2k3710WGDpIDWyu6QWo9fX8fGf7k9R1rW86X wEK0+1cy/OsIHl/2hoUvcXcHyGBmOvBp2WrfapPahsjw0vDTimXb1z+5sWaM DEYT80Et6IinKam642TQ0uPVXJ7v/p2I9KApMkztfG7SiK6JOp+V+4sMjSde p9ejx0iW+QPzZFALrDOvQa+1Uy3ZvEiGK3zxepVoJd1tryz/YT59KqNfok/s WfUmip0CEmMbtxSjg4Una1+upMD3G/AvF317qf3DNA8FgkInlDLQ/Y0ZXQ5r KRCt8ySOQPM8i/+SjMW1IkKqJAYtey9w8J0wBX7nju+7iPalGE4f3EKBRmVt WXc0Ya/w21OcAjWfd6fbo58dFvl3bzsWp5xigCV6hegQr4AMBQInrMT2oyU5 GgUM9lBg3dOWXzvRhmPFG6jyFJgtPbhrAzr+VdT2of0UeFHkkjSD9V340Fta TJUCIjPXP31Ft8Vby1lpUKBw0cWrES12RkqtTIcCUZdfl2aidUzXwqw+BVIN MtyT0a775/T3GFHAFX6HhKOzuKstWUcoQB9MemaFVss6e550igIfI6YqfuH3 a59s7p3uQIHquNMh3eiI0AOUbmcK9J7KZVagayy4IgzPU0BrunIpBm396wFL wp8CnAFNKaJostZAdeM1CrTxi93ahP3l+Dfj1rkEChz6Mhg1h/3pQHRevxhB gYzWp4PN6PmPISs8b1HgFuePlXHoENf16qsycT6JzIbf2A8vxmjnHKqgQKnj hHgJ9tczig9euL3FfA2QWbFovVbed9dqKGD8QeaaM5pLonWwp4EC49qPf/Oi Lxd4bAvuogBxML/5OPbr+M6UpPwZCqR5x8g3Y7/3CfuX1jFHgaFj11vvoo9K uj5h+0OB2orGld5oIS+FBvMV/sDLTfvHjWauqOYeXeMPNX3TpH14ftyRngne IeUPFzbuaQvQwfz6mzsl2fpD8vOZf1l4vjXd3mMUeQqfj21T9EHPv+FV9Hfw hzMiu/j2o/UEq9lsXP1hR8yj5881mdCdq5262ccfEjodtrzVwPvGsEJfWrQ/ UCOXjGrwPPU4KXj6SbE/nJhQf5F4APsLtNs0CAdg/9rcYLsXz0NC6+GSSAB8 5X/msxL9afT+L7ktASAS1NmUtwe/B6ZPwrXtAbD60+IHLnTtT956C/kAyL+k WZWL94eztzW1PxkGwK2uDztnpZjw30LazvaQAPA8oVtug/eV9U89p758CYCS 47LWyRuwvzzfMeKeGghxS3uqL/8joCzPcIXKySDQmbpTMTOE92fLoGc9O4Mh vHRih1wTAd5E6+4m6WBg53C/3fsR72ddyjerZIOBdYXt8DV0rcvPkFzFYNAb fi072UjAWMAZzQjNYPA4bKNX/IEApTtmZZLHg2HXy9Q50/cEvBzZVuXOCAar srErqTUEXJIPO+AYFQxvzN+kWqPNyd3pVleCAUL8J/jRn/8SUZrxwSBRSWiF VhPAvm610dpbwWCYMnnboYoAw4Oz7/ILgmFP//vMvXifbabXffz9NRj2RcdP zb/G+/Vcbsbe78HQWWjkkI8uu5Ac5jSM6/O4KeqBzrZ03Fs7Hgw81W6hn19h POKz0azFYCCGtDjfvyRA9fk2OLghBG7V/2f1FO/Pd6YCc8hGIbB76pvN22IC hM7aR2aYhsBnuUCty+irHbqnuo+EQE6cDM0MHVjGz6t3IgT6m7dzt+F93DLu vqvgmRBwpIue+PmUAM7djVvyqSEQqMSSlMP7+3knqavjuSEgdvh2ykweAbfi r1wQKggBnsSbm96iG1//MFItCoHVD2/OJ6NVxAp56C9CID43p1kFzdUFlzbU Yjx1pNX0XALSrOwiNL+GgMgvwUKZHAJa6S8dnQdCQGWrli4belWBBEQNhYB0 zsX9bdkEkNYNLjX+DAEhsNG7hNZu8KO6/AmBViXB9cNZBHQfjg24KkSFofG+ e+WPCRAImDiRt5EKkirNEXfQuunHDrSIUkGjtrQqBP2IU/SX2DYq9J/Tv3QQ HVSe7pu/lwrgUPO14BEBWROrjrYpUMHxSv5SIvqzuKfiojIVNpAd6WS0Yajy hL4aFdwqRqsPoDeol3l2GOB8uuO6ZZm4vxd2mC0ZUaFGSTrrHpqWcmnPDjMq cDG+h0ah++dMRz2OUUFg4wcXC3RBYYcbmyMVGp7qqgxmEGAhN31GKogKhZOB e2TQtX0NWzZQqWBnOlAnhNa5/qiFM4wKd5S6a9jQyjNOh78y0Af5+zseYjzP GnffjqdC+Me5m/Hoa+5Z364mUmHLPTn1MDTP1uhbwQQVbvQoq3uhf4dp89vc ooJ9ymF7M3S3fs7k+gwqbGfr2ieAPj53+dGKx1RIPfW+dwW6IcP1zEQ2FVS+ vhmZTse/f/m2trwvoMKBPjuZDrTKy/nYF0VUuBKrd6oenefVbPC4lAoLTbWT r9FpH6+WRL/GfBmr62egRennfAIqqDDG68NxG524T3f32bdUyApvkUxAM5gL N3XfUUHH8fl1GvqvYauVUgPmJ5fR44f2X3iyZttHKkiErY69gD53+nzYUisV 1MQGNtqiP/Prq/zooAJLmjptgbYpk5js6qbCbml7ZSP0R5/FzLo+KoQWZrcd QhvvaHcu/UoFhnzsZzV0RXPB5owBXP9bMfN9aPVL15qJISqQPBkScug9wwYG 5J+Yj7KjM9vRD25s/+c8SYV8k6VfW9FipkvFljNUaMrkOL0JTfztIMEc1uMb uowwem3uUxn5BSpQzf87uQ4d7Xj969a/VDCv8p9eg2Zb73lzNRsNdvntnuRF B1UaWv1hp0HO2U4rHvQUWXLNyEoaKFDTxbjQ7rvYqtp5aPDZJsecE93f1hVa zUeDF+7rBtjRpy4XHyzip4HHj59fVqBb1BIn7q+jge9nV/1lm495ZSYK0SBP IHntsqtuGztf3EiDIcGbsGztI7s2+4jSYI8R0b7sEjb2ZoetNDDsuN+2PL5i fk+MuQQNjIv6NZfnf3SmVF9zBw3e3PTjW45vu3DykuwuHJ/fG5bjv1lFKhaV oYHa6Znu5fUJBZqSVu2hAft/El+W1x8jIy0zL4fvFwqYLednZRfH1++KNLAy /CKxnL/QmL4bLftoMFGfc2o5v/c9dJ9xqNBAizP7vBi6zvRhh6I6DdLOqE/u QE/s4fvtoEWDiza0aRn0xjXeInGHaLCdkyApoLV+NB18oUeDO+oZbgfRLu8P WI8cxvijWru0lus5dinZwJwGjzgE9h1Bt3o6PyVb0oCr2n6TzXJ9mlU1p1nR AKosgp2W64k/TvCfHQ1Yx9NyKWjSz0mlvfY0CBbSZYQv10PD8aMnnWjwzGNV y1X0t7it14vP4f7+jhy9h+b1jsgbuID7Oxv8JA+tcGTgg6AXDUI3C868RFPX ZvOTyDRIFX84vvz9bYjXiJGOwP38cr9yI36vGqTUxycYNHi1ftFHGu1swfmO EUWDmbXfbquicwXqV32JpcHqpUav02jD6yejUm7QIDBRfv4R2svndXr1bRp4 7eUlXqOTLXdU/UrF8WrN8pvRX9eNch59SIMTHf5nl/tRSELwRd5CjLeLv+w0 Os23965KMe6X8tQxf3TNUZ3ys89oILKf89w1tJAgL1tlGQ0ElNfxVaJzElNo Ie9xvysNzRSwPzb7/b2V2UiDebWtPabohWNOL9o+YX1bNI2dRx8Wkvmj3Inr 8VWMeYD+nFQSOPYd5+ufq9+O/VmQaPM7zRYKrGydc/ux34fOF3gc5wgFgaPy V63RI3bxrmZcoZBac1U8GF0mbmStuToU2tOqU8rQXpnP1LaKhMLQyIOWo3je 1L24vaJHHt9n8VJi8Dw6IB680KwUCvU+tAdP0XcjTkzX7w8Fib3rD/ehAw3W DrxQDwVH57c9yni+7WoMr7l1OBQY/YfsvqIjvp25dsohFEpoQFjheTmmD9FW zqGwuutqNwNtk7ElwtQ1FGxOeCY9Rct5tvhquIfCjBy3rcgT7NezBie2BISC 9AWRA9/QKry7t3bHhUJ415ROXAEB4woTj06+CoW8n2mFqnj+ixwxztIrD4Wy G02z/mjwvJ+99w3Ol2yVXohOyLTJ+1cbCiqzemaKJQTs217+9F5LKIj8C38m X0pAsGBC2ehYKATmjPMfwvsH16xya8jmMDDMLgh4ivcXeaG4NhexMIiXyrdj K8P4lYbazbaFQYaU5iMTdKbXrS5xqTAo1G6M+4Y2HeT8UqkUBqBc4SFSgfO3 t4zyGYdByY0aHwLvT1ufB6y4FRgG0a98dL/VEjDDbXf+TUgYtB/skNGtw/2w 0vg4FhoGeYPccffQ/j/Z7mpGhkF4k8MH13d4P9l2Bfquh0H9kfPKE/UEXIy+ Fbb9cRi8CdR134L3w6Hj5X8zesKgsce862MrAbaBK//abQuH9j6Dh5kDBHzv y9/avD0cArPLUsS/E0A+7KhlJhkOhhl+U8no+A3Pw7SlwiEvf7qFPoj9spDE Lrk3HDyWjjq5DGP+Jru4f6iEw1CYi5vKD7yfXMhfH2YRDiLXz0jI/iKg+qSD 9L2wcLDh8GEpcjFhSOi1ZPtAOMQT7Xrt8kzI3iBvYagfAUk1MaIPTzJhc/yJ qx1pEbCHZF3ef5kJGn10pjXPRZAsNSwYfIl/LwaUNwmcuwj909Ya234yIaif s6/o/UUQiGDLtRRnAX8j+Y/Rh4sgUmlnyCPBgrTn/Rt7Gi9CibwT7RW6PuGN BUfzRYieZy+W2c4CsUOMiiOdF8Etzc/ijyQLKm5zpA99vwiGs5a2V3azgNea 3VOUjQ5Dp9YmW+5nwR0d38vZK+hgkac4+RutLPf1AXDQwS0hrf7uARacWlnR e5aLDp9V3/4dP8iCnIIIi4LVdJDwMJS/pMaCowIr9pluooOKUPw/ljYLbtT+ W6Ap0cFw7/tXlkYssJyV5ZxVpkNGGrd4L5pnh80ar/04X8rKX+eNWeBPzRO3 V6HDhO62f2EmOJ68k56WFh3i55iUB2Ys4EuuiF0yogOLaq3SYskCqmOkRJgT HQQy6twqbDHe2Ccyc850gLTRSXU7FoyU9ih5u+D7V2tbC9E2ggf0Hc5hfBxn 8u6fZMH+qu/ntT3p0DgWdZV6mgU/ZQ0L/gXSocbvkORqJxY4zPEahMfTQfqE +5f751jgoR7CLpJAB0eTwEQBNxYEh42+yk2kg8ihpTMhaIK7/mAfQQeFLTMn zc+zoGFjrIzWbToEWn2LGr7AAk2VtWsWM+mQumepcdqTBcbUsNrExxhf6YWv Fl4YX9l4pGw2HfJsBdiy0WTDxiW7PHxe73LS2ZsFWTbXJ0qL8PnRhz7lJBZs DhJsDqjEfCpf2mDhxwLpl/T4tW9xP6+RHW6jD6yYMX1YRQe2sra7w+ijl5vf ttbi+7aq/GFkFlxJSS7e34j59f515jaFBayeleT3H+lQxidq/RWdvs1fwfUT zucqrrbLH+sn80RmUis+t5mve4T+Xbrx5nQ3HcIFF36lB7CAaynK+mov7udW bYNvaCGdecEdn/H3FrlUsUAWKNS1xxz9Rod2nz3M62i3zpTQJ8NYH81qjheC cP/FeNWNRjFegdDXt9EM5+C5z2M4Hwj/+YBOHbEjCUzQgeebEbtiMAvaFjY7 e89i/RnO7R1A84Qb8o3N4XhBx6+sDmGBykpKodtvzJ9xd58SmrW2gct5Efdn q5kvFV2TtJDb+xfHf7M7+z/0701Stif/YT3YiPSUo+0kwx9bsTNgaAeXCAcV 85WZZfWRgwGk6lmJ7ejnch1/zVYyIFChXRTQW1SVLA7zMKDmmVFPINr0lf3v ylUMCF9TfS8RTdO9mgZ8DJCOXmudje41659R5WdARn9bWA+a/5PAnaK1ON+z Q9PTaG0bzcPK6xigkGZ8ZBWNBaSe8xO56xnAc/17wlZ0qjORskcIx9+w6qUC unGwQidTmAHttg/qddArPMdHd25kgIRoTtkxtHOAoZa4KAMsuBosfdEJi+TB m5sZ4JZRMxaGroy4Gy+ylQF5BbPnYtAzXA2qyWL4+z7DCiZaMmbh6zoJBkwE 5i7cRVutk4qJ24b5OCcq8BjNII7t59uB65EOWlGALtwc3hslifF8fPa+FD2Q mhXFuYsBhgINfq/RG3Z1KERIMSBe+u5UJdrg8crOv9Lo2W1G1Wh/BSV68G4G iPzU9K9Fpz+13zMny4DGTV8D69Ctaldb/PZiPJv/HFk2d1lx6IQc5leOslCD VtHvl/JUwHxt0wioQrvVCXwcVsT1nlJ/W4FmHdEMPqvMAFbf6W8v0bXN53d8 24fPIa6xGL1gS9Q7HMD8ZxVdzUPv7qugdB/EeAbLBDPQdi7jYraqDFAxJc7d QV8d3lzToob18F78UiL6hZehz1ENzMe0vlcUemyaLPpBE9fXOyEWjN4SdLfS RBv3T4+H6Y42W3rvUQP4e1+/lpPoUPqCsL4OA8B0U4cxOodH6nW5Lu6H6edU FXRv7DE3LX0GsNFzZHei1wqGr3tugPGwzgcKLNfL1o4zhUa4nlG1Y9+wnlLT Vq5RNMH1uIn21aE/SikVZZtivUGQ9BO0ktJVnodHsH7ndcaD0M7FxU92WOLz Gr8Lp9AJGv12qUdxPa25dzTR0waa2SnH8f1/jXsX8Xthf5TRyW+N+2skoNKJ Xr9GiIdhw4CSsnqOYrTCpxFnr5O4/tjwLg+0hwNLRNcJ4wkU9qrF7zekgsOg xBl/X3zx7G30lZ3efntdcH0twxtJ6IxR/YaN5xggUHrq7jp0f8A0fcwDPVOm oI/9YbrT/omTF8aXMdrEj2bXqutt9cZ6sCLvbMN+I8F5V7XclwFlxsZtZ9Cn 483HkwMxn/J3jnhiv2rNyLTTZjDAccz0jjb2vwE+4ejCSKw34ZjKaeyXM17h T2Wi8PvQexiVjl6/31pA6AqO94BjiBttXs5ZNXSNAanHNEZKfVlQ3eGgmHAT 3z/yYKED+3erxjt77tv4PbBPRgWgv/93IIZ6B39vp5wmiOY8u2bw7F3c7zmh oMPY/2Hq2S31hwz4PMqIv+3BghLeDTwD+Vh/T4iz7Hi+iEW+HQoqxPyfm66m 4fnD+Eeu5S/CfD8ZtZ/D88pi5tMVlVKMx6tKauAsCwZ7rq+JeY1e+ejPIxf8 /p6sEVSux/xWX7bvdcDzVPbldPV7nG9E45wG+usDj+ZTHzAf/ZmxLHusvxvv ki81YX0WPthrguelPuOySGc7Pg8uvJaC5yvZeqVYxACuR6DnUocVCzo/Fi4J D+J+62cViqDB1KXv0RADbGqqBo8fY8HqQ5WpzaO43y9yrOvwPL+3O2KH9BQD or2+Kt00Z0HT30XpD0uYj+mqoK7DWD/3Z5S3ikTC0KWnuu9UMB8OjiuYmyKh xts8sAPvI4c21zcIbI4ElX311QN4XzmacO88p1gkuB0+kD+/D+MLP/rf6I5I mKCMXeNWZEHxqTzeZ/KRYPOnxKBGmgVawh5fThyOBMgRMq7fwIKqxracRsNI yLspb3hTmAVHYnSpxsaR0L7O/oCbEAscOTZv1DKLBMeU0J4/61hwcbLWdOcx jKeHrMC7hgVv30uVTNtHQvxjtqfl7HgeXPoWF+8fCfN/NocnjDFB3zjO9EBg JFgE6KtMjjBBi1+VtzsoEgwTunaZDTNBgYiLlKJFgkKS63+LA0wQTFelvqJH goSYb5VqHxM63147PxaP61FVl5P9yAS3lRp6ho8xnkrhI935THCq/b7iZxaO L0ef7sljgl3s9deJOZFQNtYQ253DBFPhQbW+J5FAii+/2fiICfI7ExT9S9DT e78lpjFhVm9I7P5bHK/7iXnkdSaM8yR2G1VjfpZEbY5fw/tuveaN8RpcX+v6 A9tjmdBhlSisXh8JnwN1zuVHM+GFi9bqpqZIEFCKPJMVxoSn0sO1Ac04/nXT VmcaE3LGEqO2tuJzmZLVG0KYkEoeZj/fgeul/37u68+EFJWkMv4ujP9wjMIW MhPPK63Qwm6M30DTscKHCVfKhtXtevG57rChqzcT6Iyk3//6MD8mHkOcnkz4 H1ivR5w= "]]}, Annotation[#, "Charting`Private`Tag$41779#1"]& ]}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 213.45000000000002`}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->All, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.880516424612667*^9, 3.8805164686582146`*^9}},ExpressionUUID->"e6776698-b571-4000-8515-\ 69e4f9ea639f"] }, Open ]] }, WindowSize->{1280, 637}, WindowMargins->{{-8, Automatic}, {Automatic, -8}}, FrontEndVersion->"11.2 for Microsoft Windows (64-bit) (September 10, 2017)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 4838, 147, 280, "Input",ExpressionUUID->"6ed5a652-31de-42ea-a057-38c080240982"], Cell[5421, 171, 373, 8, 34, "Output",ExpressionUUID->"e1f7183f-5419-4a08-8e97-838ed8836322"], Cell[5797, 181, 8644, 160, 234, "Output",ExpressionUUID->"190ab2d2-f07c-4218-8041-e26e117957f1"], Cell[14444, 343, 254, 4, 32, "Output",ExpressionUUID->"b4e2c490-e2e5-4eec-84d7-c5a1296f85b1"] }, Open ]], Cell[CellGroupData[{ Cell[14735, 352, 3719, 87, 184, "Input",ExpressionUUID->"c5c15ba5-f3a4-4d34-947f-9c8dc035012e"], Cell[18457, 441, 600, 13, 32, "Output",ExpressionUUID->"e061aea7-1d3b-4228-b679-7cb1be6ef3f3"], Cell[19060, 456, 6522, 125, 239, "Output",ExpressionUUID->"ac159c02-4d50-4600-85dd-62293924b58e"], Cell[25585, 583, 195, 3, 32, "Output",ExpressionUUID->"803c7f39-ce9a-4fd7-88a6-0adeac8e5f8f"] }, Open ]], Cell[CellGroupData[{ Cell[25817, 591, 5538, 148, 280, "Input",ExpressionUUID->"be66cf15-f89b-4c7f-9c1d-c21289bac521"], Cell[31358, 741, 294, 7, 34, "Output",ExpressionUUID->"dc016274-b445-4a1a-9077-f9006bbae83e"], Cell[31655, 750, 16425, 288, 231, "Output",ExpressionUUID->"30c5788e-cdba-4eb6-8484-0aa7e6e7044d"], Cell[48083, 1040, 175, 3, 32, "Output",ExpressionUUID->"cdafc768-66d7-4bed-abd6-f4d7d17819c9"] }, Open ]], Cell[CellGroupData[{ Cell[48295, 1048, 5479, 147, 242, "Input",ExpressionUUID->"405a939e-76a5-42c1-8425-a0f7e39652a0"], Cell[53777, 1197, 247, 5, 32, "Output",ExpressionUUID->"11dcc70a-7dcc-4fbe-a790-1f1475268499"], Cell[54027, 1204, 12017, 215, 231, "Output",ExpressionUUID->"2cad1ac0-6bf0-4ec5-9503-cc4cd83c102d"], Cell[66047, 1421, 195, 3, 32, "Output",ExpressionUUID->"c7fa7629-71a2-4bc8-a1ce-12fc0141e1b6"] }, Open ]], Cell[CellGroupData[{ Cell[66279, 1429, 3479, 80, 203, "Input",ExpressionUUID->"de43fd0c-4b8b-41de-98d1-a111942fe3d8"], Cell[69761, 1511, 257, 5, 32, "Output",ExpressionUUID->"d826a984-58a1-42de-9e1f-3f7fcabc62ba"], Cell[70021, 1518, 3274, 73, 236, "Output",ExpressionUUID->"24a93f9f-215f-417d-83cd-7fdb337a57d0"], Cell[73298, 1593, 175, 3, 32, "Output",ExpressionUUID->"7adfab6c-26c1-4579-86b8-4098890cca64"] }, Open ]], Cell[CellGroupData[{ Cell[73510, 1601, 3865, 88, 224, "Input",ExpressionUUID->"ca9bedbd-500e-48e1-868b-74a6037700fc"], Cell[77378, 1691, 494, 11, 32, "Output",ExpressionUUID->"e3fc9bd6-ac74-4f81-9ea6-4fe8ad47bdb7"], Cell[77875, 1704, 10065, 184, 238, "Output",ExpressionUUID->"1cad33bb-0866-4e97-880a-1a868ba5bd32"], Cell[87943, 1890, 176, 3, 32, "Output",ExpressionUUID->"ef4a99e8-eadf-4b6a-810b-383d548563c6"] }, Open ]], Cell[CellGroupData[{ Cell[88156, 1898, 4825, 132, 374, "Input",ExpressionUUID->"5ba2dab3-83c6-407a-842b-529a84adb9c8"], Cell[92984, 2032, 1156, 31, 32, "Output",ExpressionUUID->"f5922d83-e0bd-49fe-9d93-91da5afc4147"], Cell[94143, 2065, 25203, 431, 194, "Output",ExpressionUUID->"472ed61b-040e-4228-a738-43c1d2fe2bf4"] }, Open ]], Cell[CellGroupData[{ Cell[119383, 2501, 7519, 231, 618, "Input",ExpressionUUID->"442de880-f8d4-4218-bcec-5bb8dd84d86c"], Cell[126905, 2734, 19517, 344, 765, "Output",ExpressionUUID->"06b062be-2109-4132-84c0-2692a46237ba"] }, Open ]], Cell[CellGroupData[{ Cell[146459, 3083, 5410, 166, 485, "Input",ExpressionUUID->"7cafba3f-1071-4ad3-9d96-743b4b24eebb"], Cell[151872, 3251, 859, 27, 32, "Output",ExpressionUUID->"c58b2b54-0d72-4213-bf9c-b56b47691513"], Cell[152734, 3280, 610, 19, 32, "Output",ExpressionUUID->"2a0c53c1-87b1-49e5-a02a-28e9161674b9"], Cell[153347, 3301, 332, 7, 32, "Output",ExpressionUUID->"64658bfd-852b-4510-896e-795f459e8b43"], Cell[153682, 3310, 6698, 127, 237, "Output",ExpressionUUID->"0dc12c1d-62b1-4f5a-8305-f4c745d633ad"], Cell[160383, 3439, 367, 11, 32, "Output",ExpressionUUID->"ae52169f-ce7e-4745-9fa1-8ddf0c62a93d"], Cell[160753, 3452, 333, 7, 32, "Output",ExpressionUUID->"c0cbced0-40e3-49c9-ae64-fb6f55be2565"], Cell[161089, 3461, 6678, 127, 237, "Output",ExpressionUUID->"98c14df7-a531-4f73-898a-554ac89e2b15"], Cell[167770, 3590, 368, 11, 32, "Output",ExpressionUUID->"d020681d-b9a1-477f-bd22-3b4875e089b3"], Cell[168141, 3603, 334, 7, 32, "Output",ExpressionUUID->"7f6d546d-e2ff-4ce2-b26d-990e2d0e60fc"], Cell[168478, 3612, 6659, 127, 241, "Output",ExpressionUUID->"05952033-e794-4871-a585-5edb33ea9829"], Cell[175140, 3741, 17860, 315, 231, "Output",ExpressionUUID->"98eb6b05-8cb0-458b-b99a-1cee3c6b808a"] }, Open ]], Cell[CellGroupData[{ Cell[193037, 4061, 7229, 225, 561, "Input",ExpressionUUID->"c35bc6bc-5c4d-4b07-93f5-3db4859444a2"], Cell[200269, 4288, 608, 19, 32, "Output",ExpressionUUID->"998a821f-d829-476d-acee-4a1b4a3cd0d8"], Cell[200880, 4309, 29765, 512, 260, "Output",ExpressionUUID->"e6776698-b571-4000-8515-69e4f9ea639f"] }, Open ]] } ] *)