(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 140836, 2868] NotebookOptionsPosition[ 137899, 2816] NotebookOutlinePosition[ 138294, 2832] CellTagsIndexPosition[ 138251, 2829] 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]", RowBox[{ RowBox[{"hd", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"hH", ",", "dD"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g11", "=", RowBox[{"ListPlot", "[", RowBox[{"hd", ",", RowBox[{"PlotStyle", "\[Rule]", " ", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"f1", "=", RowBox[{"Fit", "[", RowBox[{"hd", ",", RowBox[{"{", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "h"}], "/", "8.4"}], "]"}], "}"}], ",", "h"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g12", "=", RowBox[{"Plot", "[", RowBox[{"f1", ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"hH", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Last", "[", "hH", "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", " ", "Blue"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"{", RowBox[{"g11", ",", "g12"}], "}"}], "]"}], "\[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}, 3.970374297320572*^9, 3.970374360134353*^9, {3.970627717816572*^9, 3.9706277196573753`*^9}, { 3.9706277546794367`*^9, 3.9706277596880455`*^9}, {3.9706277942899065`*^9, 3.9706278631358275`*^9}}, CellLabel->"In[45]:=",ExpressionUUID->"6ed5a652-31de-42ea-a057-38c080240982"], Cell[BoxData[ RowBox[{"0.00127972365795213`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.11904761904761904`"}], " ", "h"}]]}]], "Output", CellChangeTimes->{{3.97062782474216*^9, 3.9706278644774303`*^9}}, CellLabel->"Out[49]=",ExpressionUUID->"4e43c1ad-58a1-424c-9a5b-600ab9205e16"], Cell[BoxData[ GraphicsBox[{{{}, { {RGBColor[1, 0, 0], 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== "]]}, { {RGBColor[1, 0, 0], PointSize[0.02], AbsoluteThickness[1.6]}, {}}, { {RGBColor[1, 0, 0], PointSize[0.02], AbsoluteThickness[ 1.6]}, {}}}, {{}, {}}}, {{{}, {}, TagBox[ {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVVnc4Ff4XzkhWIkQ2oUhIuMb9fO6x957Z47r2KpvKLFQyQiVbSEvmN2WF SFJGJUrKKMoMCeXX759znvd5zvuec/457xF2CzT3oN61a5f6v/D/HNO0VZC9 No/ZOcyjUn9Zkoq+akQ7R78gMepl6HMHWZJu3+ZOPxQ9RjJ9qsrJ9sOCdI8x 4cbu6O+kMXqed9/nzUkyqv8VrkdtkYxrrMX/HjAjlX+zumox95d0rGejL7fS lMTyIlJzRIoKVpfqijeJpqTECC5lhZu00EwXcaNyzJgUNGQushjFBG6fV8/8 GjMgHa0qvpkvtxdGUriO7Bw2IM3ELh0wnGOBPSU+fhkR+iRpru6kYSk2yKks OPxZXI9U1kmOOn6TA1qynqaL1WuTqGUvNdJHcIJQXOWzEBFtknNe7eoniwOg mHj/RniWFonnFHVgGhM3zLmqsCnHapIyBIvcv0fxgmeDxIhcvDppIbW76Kk1 H4joPzpewqhOMlxf+Hhdjh8yogIXOHPUSPQvka3unAD4mPVzN9cDidTsXz4o JQy972nj90ph0sIpKq2WG8LQ4V5oIuqNSDePZE/ephcB1rl5VfE7RNJm1hOh uCkRYLzpKO6PVEn1Pkx5MjdFQfSTBnVrrhKJLFSozMsoBrK9qaUTGwTS/rdy I3QRYrDVG5RG60QgBanZcY5biIPfprLZjxOKpKPct69cYjoC38zHq9KY5Emj L4nSEZFHQCd/Y5419QQpOeF1n/vXI5Clnlv7jukEaWbhF4NqhwQ0VHp9GueW IxV3aSfORh2Fhcrks7esZUmGhQ0HOFaOAnXhrZTqHhnSeoT4bewtBfrUlo5W c9IkQym6/iybY+Dy2F/lAekYaT2ziwvLy4DuCZYEMWlJUrGfQpXXHRlwDf0l /zdMgiReal6gxyYLMiqcSiOdR0ivY57KhiTLgvhTBa7dgYdJ4rIlVs/DjoOf BXdJ5W9R0jbfaIFTzXFQ8dNU/U4RJQ0w7P/2c/44SFyfoMiOHCLFTMZFCXjI wVn/UmqLZyKkgRzXwtMWJ+C6teLigX4hUnnC9W/0V06ApOXUwfO2QqSYoIHj Bb0ngNL4LtqmT5Akrq/W2aMmDy4VCibxnAKkmD9Cs/yyCuBqqfg5ZZ6HZD5n K1frqwBJT08UHj7OQzr8Lj1at0IBxr0vaH2PPEgarN7FclpAER6vpBKseLhJ h8kTcj3MBGhlbu7ZyeQkbZtyxzjqEuDDBUIJ2zYHaRCZdq0kEICfY8lJw5uD FMPVZsO/RYBftDkTWSbspMHewphTs0rAcr0tY1mXjVTR+K5rj5gySGywae5+ zUqKKdu3L99FGWSdI39Q7FhJh8+eK+5+pwznJ2rTg5ZZSDHHnZ/xPVMBAaka f48aJpK5QO6+GipVUP6ru1W8xEg6zPTKVgepAnvhW3ZJeUbS4BT+HlynCrpl hCcpvfSkw9cEWLtLiHDtK9tSoywdqYZWKNV7lAibxg/YSwp3k4jBwrTM+xEY CwcNwP7dJFN90Q3TOAR+oQwDqtS0pIhtiYlRZwy/TDQKKxipSdTeR+3O5GKY 5drd8/AqFenSG6lhwVcYymwNjrcKU5GK78v0kDEJ7rfcj87W3EXyqOaxDWcB IMijTmPrP7iKwputKwlwIkig6GzONl7i4xs8qA3wsNvkxtWxLRyVwm/45AyA 2Jz0zZ+nN3GamxBQzQOsfbngLDP6Cw9xC58ZpFcDG6O4BlX8C3O/Em4qFVWD Pcl3ajXK13GJ6iF5bQc1SBGiE/oUt4YbOcSPXHyhBqc4ki9mkX/i7V5xD4ev akBFYPjTPb2C1eMOlxyjUYev/fdPKfus4L75I3yvVdThRkCJxrmYZTzx7Cgr Z5U6HBYkTb5MXsRiZ6SMZrr+1Sta0hQ1LWCfE8dSGz+rw5TnDZmG5Xm8WihN a3dQAwpMA9+KBf7A9JHHNwqSNeCis1JcYuksNpKRUwgq04C7z0pqvmx9w5nT cqfU2jTAJDvxW7LtN8xnLv9j8pcGsNYXC2GBr/j4UcLEEU9NyMq8SuU1MoXD PhP4N+M1Ib60zZrfdAo/yVWye1GgCRmixG6jF5NYm1Zl2P+tJlRd+ZzU9eIL tvtI7KnR0gK9hxt0jSsTWLb9jOWGixYcvdcyz3x+Au+51TKBYrSgsW4nlZdv Atf5we9/BKhqNTmoWjSO925rSH4S1Ab742cY+u+M4alPiQ2iqtoQWyl73n1z FDd1dKn7WGsDdZtEso/RKKZc1LFfu6QNepF6H+13vcdtPAaXmDa1gfHjwt7R nLc45+9FbjNOHTjru9pES/cW+3/pK8uR1QF+umna1xFvME+VcbOwpw78cN7/ 57vXMD6tbL5AGNaBkfMBxwaDBrE+f1bUmUUdMPzDcTRncwALUQ3TdTDqQmoQ i6rphQHc12MlaKymCx4Hvx20v/0ai9ueNCXf14WpfBG6O7z9eFv1xofbz3XB 89OPS0V2L/GQ4JjX4pQuqO8IdfsW9OHYrw5xUbx6YPxonZ9e/gV+H+ZSk56s B0/lPRREr/bgarti/LZUD2i295y/vN6Nz+MvvbytetD/sFN11qEby9GRJ8vX 9OAVfkViV3iGL2V7cjS76UOYAhy5ytqJ3SIri6jP6oM53c/IhSsdWMlxVkr3 uj5omckWx+3vwNOivlpDr/SBM/0/813CTzGuCwibJRqALtXnOqJrG+a49oBa xtYAbl/5URew1Iq/Ry+lhZw2gHkJ7bryQ634msapip3bBrCQf7/Z9nozXh4M HeHkMoQ2T5Fi3ZYm/Kz1nvAdeUN479cYEk3bhG/enfYBc0Poyys+/MjkEdY+ b/XH57Ih1Dkx/Xm+2ohvKiuItNEYAem/cyvlofU4WNzf10rYCO5daTS6MlGH tdlv1c1hIyhc4TibYFKHl39w6HBGGYFpuscDQeVarF206uuzZASPNtqENJQe Yr7LUvU7e41B/YSQZVFbNV6OJP+9etQYLras1BMNq/FNi+H0VooxLDFXvax5 fx8v09XVc3w0hoFhZdbikjv42c/vf29vGsOufWFBxV+q8M2JQ7okbhOYy2No eXe4Cms3ZY16W5hAxQlvY+v2SnzT//ROy3MTqGnYy/xFqhyfsruja/nVBKgE frkPZN7CZaXLPSHUpjBg7MG/uF2GI9Ml9jMKmQIh28FQ/WMpFvW5XiZvbwrh 71ca9F8U4zQXBb0db1PIaJ32rjIpxr+tB+afR5hCx3ktWo93Rbhfg4HgnGMK japbFXyfC3Ekf+TzlAFT6Jd+KZ+bdhNPsXMGWE6Ygq/RLEG2Jw8bMz7cL7ho Ct5+f24d3ZOHRX99s69jNoOgUWXR+qvXcf9r24VxHTPoXGUqV57Lwcrdq5m3 rc3gXIlI0m6DHFzWnE4I8TADF32eyEPV2TiyqieWIcEMbGUGHcfPX8WiiUrs 8i1mkPLwXq2yeyaOGaWjpe4zA9EdSd+p7xl4WPbN6qv3ZvDu3qXc7PAMnPgx +K3vmhnkU89pNeem40nFO9dLpczBVj6nT2HlMla5HJkarGIOBjdSD3yUuYwz J3WiSbrmILUidjv41CWsnj7lMOZuDrHX0jImd1/EJbP8Qux55uBArmDLd0vG m6QfrJ8rzWHftTZT+84L2DyniepBgzk4Wn4s4pO8gKk1bCb1B81h5fXfdaA6 j11vppfHM1gAVek7bpexBPzfilOuKZcF2JGPlcfZJWBWvWPJAmIWcFCJdPHr h3jctvbcuwksYF+UJJfU9zgsZEJzbCXcAuTThis9j8biiFsD/G1JFsC5bji3 kHgOv94qZEnLsoDpR+bZLv+dxbGVxCWJBxZQcmNhslr6DP5EFVbrOmMBV0di I0KsorCirWaZzKoFeE3sM7pcFYnT7u/P/kNlCXRvmbS2aCIxtn8Qdp3fEsb0 +T9SOsJxQd035QFLSyjVuKyXHRyK1xkbJQvdLGFFLv6Gz0wINnZN4vUPsoSZ 2D3c3U4h+O9ekT/0lyxBkds/t+nkaezkad8GHZbgdc7ARDosGDc0SzxkGbCE MjpRnzHaYMzCsVH8YdwSlMhLvz1zgnBL29WEiE1L2JtQ3FSVEIj5efq1q49b wS5TqeQjQX54dZXrQDlYQcabn44Olb6475XrdJ6JFTB0H/jONOODo5LWEi74 W4GYeKewVrA3Hlnia3e6bQXK/vE2kh0UXP2Ckm75nxVoOy2E4kMUfKG82lm/ 2wq4zgQcarjggRUdNP8qTFvBwhPpe1aOZHy121d1r7A1wOUcYUklN+xXUs9I I2sN9jfMD0n854o1zuy838DWUEjYDL2j6opX5LIiphys4bjFUeoRQxdsUtBU //iaNexzoc1Ok3TE4pG0SQ8rrCFd1+VtmaMD/mthbFnRYA09qX2tdjn2+C7D l5XMYWsoX2XPoee2w4yhDLI+rDaQ4cpa62Brg7+YWOw4C9oACs/Ps62zxo8k 8/utpG0gP6/83TCHNfaakPVXM7SBPdBX+fqLJe4ysK3iTraB8kCNK9kPzPFN 8ZJIllwbKJk7e8VIyhyHUP3QpS23gUBp0tfCu2ZYpPHc18WOf/1Uu1keNJri WJEK0e4dG8iriXRvmjXCtn+Wfj5hsQUG16bkDC4jLDOi0lHDbwvSD83ljhkY 4vHL/a4FqrYw9JnqIFuHPlb9vVYQGm4L3wQ/bLgs6+D9w6QA3/O2IKJO/UZC TwfP3U9Brtm2cP/qjaT0W9r4Gpn/g2GtLXjwGV9s8NXC6680D4ou2gJFyL9p n6QGzmmXZh3+YwtTvS1G726pY8Va7j2JzCchKqqZV0ZMHYfl/FidlDgJu2hd m45Jq+F1h6uvS8kngXDCp6vlJcY5xme7LU6fhJWOiVyl3wgrglcLTfxJsDDQ euAniXDYIeJd98KT8Pl6wl1Kvipen528cGj0JBSoK/1Ib1fCOWMvzw59Ownd QQW8nQeUsOLLxtCEXyeh+Pryw4wgAg6rvug+yWEHF8bfT585rojXw06QSk3s oOQh7bDV9Amc48WvaOFkB0bUbLZsDiewot2eYzT+duBswTt77q0cDkNjPO6p dvBBUreX9e1xvE6TsC7SZQcFFzpcn27K4Jw1v/nBITugLTL2ERSQwYpfrafi v9iB3Yp0dYCONA7rlRz8smMHuQVua3BHCq+nD94rUbGHksHmuuhaCZwT/6TM XM8ehjpvDUtQS2DFkPI8alt7WBV5Z11odQSH2USluIXag4RaWoIj42G8zi/i IVJtDzU9ERvtFaI4Zx+zw2CLPQT5KvPCQVGsSLVuHv/yH/5wJTg77RAOm3oO X+bsgYZR6pRDogherwrmKxFzgGX3kbbi60I456Y9u7m8AzQv/yTyHBbCimla jNQaDqDzrq/XLFAQhwUf3HB1cYABRQOSVwc//kVoHxLOcwAi++O4kvs8ODHl 44E3lQ5wst5y6yk1D94/9vtkcoMDjMu+zlK0P4ilzspNLAw4gMv4S0olNzd2 6Sz98ZjeEX4nNLa/ecqJ5znbZAIPOEI7UKneVuTEUZ4fTomIOv7zZ98Smvsc OJuR83cyyRE4HnHNr5Sz417T87utwxyBZvNtglsrG7YpKdFlSHQEe66nxqxG bHjqZ8vFJxmOMFc0e67gIyveyfnFduieI+w/pRywfw8rlv/oJbA06QhDd251 fFhhxu3SSa6ly47AtKFW567EjI1ji8usdxxhcI39VV48E/Y+NCrZzOP0z1+G XCpEGXGBtwEh1cwJFE9XpTLf3IOPPvaMQs5OwKf/sf8XzR78H3Ni85KfE3ix EeoaAunw0IMnGjbJTjChQOdlZL4b068fMxVtdQK9CucoczUanK2jn/Wuzwl0 v4eq6XdRY5HrlLepo05wl+/UtoshNUbEQoflNSc4bvPCI8+dCp+KZ/VukXKG TfX6HBevHbQzJHU3WMUZFpv04lkL/qJLYnqLorrOIEiKLno38gdV9MSFXnR3 hp+nWvklHLfRB5afcbY3nEEloOl5aP5v5O2yr4up0hlO7xuZC93YQOsPj9K3 1jtD68c9UzdtNhCbFTlNbMAZvlWXs60J/0KlL32MftO4gIcP+S/j1Cqq+k9x nMLkAmeyT/rqmK+i6lLqwOH9LrBgtjET0/kTPYm8kf5A2AXODYzMkutW0Fux 3iEPkgvoGI15mrQuoQ+sOeQhbRdIcGCkDdVfQl+2XNfA2AU0kqy/Zz1cRIsD vw/wObpAToC0sMWfeUR/VsJuMMoFePNZLOffzyEW77U5UrwLhGeUUGcJzCFO y/boeykucI+1ZcHCaxaJSJ7MT77mAkk/Qn5eZ/yGVN8mT+AGF4jNre26dH4a qbdbBt9tdvn3D5mb2S9NId27QtQ8XS6QWCw1pOY0hSzj/zu0NuQCR+wvwbTW JAqQ/ka5s+wCKpL2n7LVPqOQg3W/uH//m89H8Jz08wkUTRubfH6XKxhFNKrs s5xAyaNcVa77XGEmbpH35sw4Kj6vM891zBXm+C2f9VWNocpg9rNJ8q6g7vFu X/vsKLrv8Inlp6ormMW1mmwcG0VNcuGy/fqucMko631+1wgaHi8/nejlCs0Z Cnf/HnuLRp+fol0JdAXGXdJfiFlv0Oc6nO0c/k8/13amZnsYLaS+bVA57wrs W+n+A2NDaA+BbnOp1BUumB58MtA9gFhEBlOd7rjCiltaW7vBAOLYW8DbV+MK Xe+XPdmHXiOhSQVU0e4Kz/3WerbevkIqVzxiHT+5gudUHO3u+D5EqNJvNJxx hYdOvHcP97xA8l0yC6rzrkBd1ihAx/4CSW/9tufZ+sff1/04uuE5EvFMI7w7 4Abe6678PMe7kWD86YBn/G4g+Sa9aPr6M8SXb3urXtQNFmNH1lLpnqEDQyLs V+XcQK1e0GhnrhMxkBoXTI3dQD2/iv3Xx6eIzu6mGFi5wYZ6+Niq21NEHRrn IOPgBszOm4Uc39vRdpVB714fN1gWJC170bajpQMTt3qT3CBIJbImo6YFzR/v +vDokhu053yt9Z9rRnOGVey3s9xAQ/15ltvhZjQVHxJ3ofifXsbw+/3Vj9HI Ar2jZvO//s8fCwr+/g+9YVjIOtHpBt3zXueMrP9Dg6JDvSIv3IDL29q7uLER 9dnlK1G9d4O/RHUv4/MNqO3ZcY6WVTcoaWQ4t2Jah5o/HzC4t+UG3NVjV870 1aKm7a24m9TuQAl/o+hlUIvq5J4tRrG6gxyNyEdaixpUWWD3giDlDksmFKUD F6rRrUck6sMn3MFf2PeiJW81KhkWVT6g4g5dbbPDJeQH6CbjYvmqjjs4oi2n c6/vofSwhPiH7u7gY7F/WHKqCl3O8HpU5OMO1d4Xat/JV6HUu0ZLV4LdgVVD vXwr5TZK/MLlFHDOHVqj6NgU1CpRuPFd5aN57kB++DzJb+IWGglxTfxV7A5s yx126Za3kEregVcdle7w9OtfC7m+MrT9NZbs0OAOQqFXlnK7SlF8nNWVywPu oCdwa/XGeDGarGAcPTniDmbNgb8c/IqRZn+rqPgnd1C6r2Xze7sI7eGVbGr5 4Q4qJ2PuRYgXoUt1f6cW95CBZ6ZT2Ol4PpofrZV5wkKG4P5imidhN5ExlXdU MicZaJzzWTva8hCb8dA+4UNkMKCVUrF2u4FyvlaomGMyPKXZtogZyUW/9jom CWiRIcjeooQBcpGt/P7XcwZkiGT8luZxJwfxxsV4JJwkg1PITvyRy9moiMcs vS6EDGZuWi+so7IQlRrdWGw0GV53LqW+/pOJ3DwfixnFk+ELFS2ZkpiJxOrE Hk9fIYPLmLp97o0MVGW0OX3gDhnG/aav7hq8gphCHshOPvynF+2tmkl3Bfnd IEc/+I8MgVaLQUqQhmS+9rPqPiMDw1OxALWnl1BdbKlq5GcydMoEqM/9SUGc Fbbntb6R4dmb2zstNiko7OXeAbZFMiwGubM31ScjZZ4IStU2GUS3zZ4/OnMB tdQaZoxxecAa05avsGoSEhql+lAh4AHBYU5/PWoTUdyuRvEQMQ/Q/SBmxiKT iDSNhJ8wn/CAwEvj7PKyCej5zNoMMvYAyrGvRTk2ccjn1TehAisPUKe22+f3 KRYx/zdm99fBA+KYCKLxPrHIOKW9v8XXA0ZrIeAYxzk0ePRyAynFA458m1kT fB+NTnPELhWme8BETe5xCe5oxPHnlOSuax6gZVMd6+sQhaz7bQvayj2AieZ+ OtNqBBoNEj2v1ukB7AF7XXc5hKHok1xtxS88IJ3y+jtbeyjiU2fcpBryABOq cioryVDkxL7k//SzB5imzDls04egL/WPrTR2POD7Yu3VwZ/BKKHg/pVSOgrE cJOC/cODkeiF4uc0LBQ4gs6qUf4GIYrtBdTJR4GKfldmzgNBaG7TXExLhQIO FxY7qIb90MVJLedbahToHwu/Dsx+SKpP6fpuPQqwKtOnf9XzRQH5Anuf2VDg gUUc/fthb7RCmlvVDqWA3GRDUqCYJ8o68lG6IoYCKnZshnuTKEie7bXXnkQK pFH/JlPPeqCwL/UfujMpoNzRyxzdTEabiXGdutUU0By3ZkjLdkN5/iF/Kxsp UHb7mGoPhxsiWnsqMbRSIGRwu/5sris6e9jo7vOXFHCX7sjcVeGCqHu5r+p/ p8DTzNnWxneOqLSGqb9qhQLjnZLUi/SOSDPv7x6mTQqc9N7kaSU5oPN+U9Ev 6D3hq3ze4yvNdohxX7W7obgnbEXoO6+t2aCSw080pI95QpyHNs+MnQ1Shp5D rPKeQO3LoPe0wxp5BU9MDql5Al8Mj8xIkRXqHmIl2zt6Qvn8PsexJAvk9INP E5E94T4UqyXusUDrtBKigr6eELSp3Op0yRyJK6pNfYnwBMPzGs7WhWYo8Vow 2eeqJ6QMSTrYvzZBfA/PaBrmeUJzGR11FLUJqn2eIipd4gnmZsx/+pSN0ZfN 4qnlB57AEmzFkdpoiNQcB8mRLzyBeXxLdua7HhoJHde0H/SEjBjNKnFNPRSU NieK3nuC+juOurIiXVTUSj2966sntE74UH546KC/wic8kqm9oPGjW8mwgBbK USFp+TB4AZdDyrR4jiY6ZmEgZsjqBXMVvLfnWTWRQ6L79D4BL9icdRo8x6qB Hs9keeQqe8Hdr0xBngpqyHynUCsSvODIsToLxmeA5rjuitnreEHAac7pMycB 8eh1TgtYeUHJiVMm/GwkFHFn1aM8yAtujdR8nmUkItbOXdrJ4V5wkMPDIMhK FVV8YBb3OesFIgnneC6XqaC3e8Vmjl3yAppIgVl2U2WkEGRFqa/wgkM2MRpa 7xVRX7Krdu59L0huCjH30lJE5GJ/8ch6L/A72aWuW6+Arg4mzRA7vMC9OaNk vFAercg3UDrHvUCCeaN1Ol8O9e7bpagy829fyuKnYF45VDynt7t63guaOvz5 028eR6ZFH0vztr1glOVKquBtWXSPaffnUzzeMJkW4L44cAwlzhhXfxP2hldy VQGbu44hh/Zr55wkvCE17mN1s4IUYgyXEtBX8oZTYTElLx9IIq8vFvbC1t7g 5m0Svfr5MILmfMlcR2+4TAHfGyqHEde1r7+ZPbyhhu06/ZtccfTMKPraxmlv yDjl053sLIYOPSp58yrDG4iTl67lCx1Cm1k/yrSue0P7wdqW7BsiaDBAMeRx kTfsYRvjUOYWQbGivfsrHnhDP98rWV4BYTR+Zdnk7EtvyBbnVTIrFUANPqqC q8PeEBEeylbcx48uayUteH/whjeTvfoDW3yIuMV92eq7N9SGdOnI+PKi6xTo lWLwgWyV1uZbKdwoSC31egmrDwx/1Mqv+8iFdPmGvbi5fcDjorRlhCIXWh/w 3EN72Ad6v9Rq5q1xIkt0RXNM0wfgqILu93J2RPNTZPKZhQ+0kswstXP3o5rK hrgaNx8IHzyADHPY0D6O8ZaUWB+gVxVSDY7ah1qeBzuGXvEBlnyphxbde5Hf ud3bLgX/sPlMUd1RZtQ7J6Ws9MQH+ANGQ5YUGJB6o8vOx14fYJpLba/8tAc9 SrjalfDeBxQF2vmT8+hQJd+22at1H7CzOam9qEWLBGdluEN3+4Inz/EH1XI0 KKfefZyHwxcWTTbpmKSpUZLxCx/KcV8QpGLSjTHahbZ5dmSZwRcWjBNzDSb+ EkO+yv16aOwLbytnm7jRH6Jb7I2EP76+IDXgrUVQ2iSOGvbrlUb5wuHoUio0 vEE0O0jNqpfiC6LSql2HEn4Rocb75tVyX3A6UNJQxLlGlDEYODLR4Quhgz2e +t9WiAJTSvVHP/vCM8Nd0bGrS0TmM0Vq4X99QSibObzUa4G4xUnf/5TXD2ra xliGNb8T5+4H2rEo+0EZu6oMbcg34ojOu5mT1n4g8YFxtnh+mtg9gU/fOu0H l+Iy3/65PUlsiCzfWUr3A/oH1o0nSj4Tzw2eEtW46weVzgY578c+EXWPkvSy u/3AlXCiv7D7A3F/IlPA1y9+UHX+QG3Wznvi2Id3mcp//aB8d1iSbcw7YkBa 0IeP8v7wVeYnn7PkEHEXMIjH+/qD/LQ63QOdV8TM5eJA8RJ/OHSAKqbq/HOi aKnKo94RfxDNZDa/OdxJtH7kr174yR/yRa3HXht3EpNfFb04PeMP14ghT136 OojzW3TjfKv+8KqwfY048JTYYDlEHbgvAL7u/nHp7k4bUY/Oz5BdOwAmu66+ cGh5TPS5HDl040kAhBeEG758/5CYynHBTuREIDgfKM24sVFO3P7xazBVJRD6 oo+db7UtJwZ0eRn8VAuE3gfls8TmW0TzMH1ip2kgaOw/MdqTWUbkGdkrQAkI hFnDCQKDfwnxTt7Vz7dvBwK9YbWTx5V8IoXNrI6bNQieZgxfoNmdRbzBmdNx mT0IziQq3XFIyST2HxwbpOYKgmL9P7XvWTOJBBGP5R/8QTAm+tN04UgGkf5E pHT70SC4m/OKqW89jXjHsrjSWycIdIyl0k7JpxCXcpdvNp0NgjshUwHetbHE aIHMJIf5IKirYT9pb+lPTD59EQt8DIa8ONTNVK9BFFQ4Hxzfcwriwm3I1+15 iSlr5Z68ZafhutGhKX/7NdXvf85pyWWGgHDi1hz/vpeqQrvPzZwJCgVtr7lQ KmK56qeIc1R++mEgX5A+8yczTjVHXol2RDEcjh8+PTiqYKsqvHigN4I9ArzJ 072h7XKqZcv3wnOpIyGRPKvCacGg+tBFu9B2PhI+MWobWNz+rJLRT5tq3BMF 7nb9mp11j1W8E6MdntZHg5tttgRhKVPl3xFb8cmKAc+5z4W+Av4q+nYNVA1+ Z6BiUF9rl5COSngH8++ztmdB2e2QBjeVkErE0ZTaGPlzsKqbznR0bkP50fy4 ZAxbLDgo7ioMmXmtLKh1yXE4NhZmXvT4OT+/rfzCXOXln/lYKIRwm1jzROXT iZ2yFHIcHMxUTmWZs1dOrP+89m0wDrSavq++vaKgnME4dr9KPx5Ey4f+aOzZ qzzJ+aYMtcVDwRivZ6DMlFKhkNv23LEESF858bIks1XJxuSFzruyBFBjzXW+ l5itFHGme/UjeyJcG9Q+nnU2SOmTa+d4fWwibDoesZMR1FdS98l/0reeCI9V Nqvi6USUWE4xbP8hJ0HOkTCO8s0tQrX1Fs0cJQkqezneVMtuEcxV55neeiUB icfczt9vk5BDO8B73y8JzKwqgm1XNwiCuddUnUKSQORugFir2jpB9snh6JaE JMh8piZwqm6ZYEGnvXm2JAlodC4wSHrNENbnCNS+ZUnwdsDJ0//ZNOHaKwlG m/IkKA1gJ4DENOHDtb08MlVJ8CeUEsC2PUkgH32j/OlhEniq9lylGvpMCDMl R5Lak2DUQNox3f4DgVvBOu5oRxIU8Iykf0obIzQd1E3h6kqCtj156qvdo4S/ X45eX+xJgrjghds9+u8JF0J//lf4OgkqvtxC79LeEiTtptsuDiZBofpEAM2P N4Q+/K4nfDgJ1gu4l58ZvSGw0j8eMRlJApVhCb10gWFCzY+7E6qjSTCvdaPA +vIQwXKg4NvhD0lwxua7osKuIcJ6ffoS+3gS1Dy5msASPki4diN+Y+dTEuxt pLzoWh4g/A8BrF6/ "]]}, Annotation[#, "Charting`Private`Tag$4890#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]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0, 700.}, {0, 0.00123}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.97062782474216*^9, 3.97062786450863*^9}}, CellLabel->"Out[51]=",ExpressionUUID->"80cf69f8-22e0-4a6a-861a-044649d03611"] }, 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[{"hM", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"hH", ",", "mM"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g21", "=", RowBox[{"ListPlot", "[", RowBox[{"hM", ",", RowBox[{"PlotStyle", "\[Rule]", " ", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"f2", "=", RowBox[{"Fit", "[", RowBox[{"hM", ",", RowBox[{"{", RowBox[{ RowBox[{"h", "^", "5"}], ",", RowBox[{"h", "^", "4"}], ",", RowBox[{"h", "^", "3"}], ",", RowBox[{"h", "^", "2"}], ",", "h", ",", "1"}], "}"}], ",", "h"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g22", "=", RowBox[{"Plot", "[", RowBox[{"f2", ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"hH", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Last", "[", "hH", "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", " ", "Blue"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"{", RowBox[{"g21", ",", "g22"}], "}"}], "]"}]}], "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}, 3.9703743115085125`*^9, 3.97037435656003*^9, {3.9706278735566463`*^9, 3.970628071464995*^9}}, CellLabel->"In[94]:=",ExpressionUUID->"c5c15ba5-f3a4-4d34-947f-9c8dc035012e"], Cell[BoxData[ RowBox[{"28.863880314610874`", "\[VeryThinSpace]", "+", RowBox[{"0.01710514940574164`", " ", "h"}], "-", RowBox[{"0.00027686896699041254`", " ", SuperscriptBox["h", "2"]}], "+", RowBox[{"6.960835506690475`*^-7", " ", SuperscriptBox["h", "3"]}], "-", RowBox[{"7.518320212848884`*^-10", " ", SuperscriptBox["h", "4"]}], "+", RowBox[{"3.139630257755526`*^-13", " ", SuperscriptBox["h", "5"]}]}]], "Output", CellChangeTimes->{{3.9706279873778467`*^9, 3.9706280531183624`*^9}, 3.970628092198431*^9}, CellLabel->"Out[98]=",ExpressionUUID->"fdc64cf4-4961-4414-8c5d-feb35dc3710b"], Cell[BoxData[ GraphicsBox[{{{}, { {RGBColor[1, 0, 0], PointSize[0.02], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWIQDQPfNGL6D321cYByHVD5Amh8CTS+AhpfBY1vgsZ3 QeP7ofFD0PiRDg+rRNa5P4TyGxIdjMHAGspPc0gDATUrKD/boRqk/JcFhO9Q 4BC0Q6719UVzCP9AkYMmyPgVZlDzKx0KbbmuL/5gDFVfD+UbQtU3OVxfXAAU MYDwH7Q6vAkEGqht4AAAvV1cqw== "]]}, { {RGBColor[1, 0, 0], PointSize[0.02], AbsoluteThickness[1.6]}, {}}, { {RGBColor[1, 0, 0], PointSize[0.02], AbsoluteThickness[ 1.6]}, {}}}, {{}, {}}}, {{{}, {}, TagBox[ {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV1nk0VV0YBnBxK1FfpCLzTIYcU4Z7L4+hSzKlSJqQVKLMYyTuadQkiZQp FJWkaJKhMhSlUIrQaAiJIon6tj/uOuu3nn3O2e9ed7/7yHnucdrGy8PD85P8 pq977/1JPzM6aAK/Mo5KBwuZPRZRW6LqTY9Xr5AQ7WQhP1/spEJUu2lMk73l zC4WrgnEn5sZ1W868jEn+d17FrSYdzLGIv+Ytp656xD2mQX/Zif5oUhByIpV XdvUz4J6Qdb5CzrzECTCI6U7wEJ37PfFtl//A79kRf+sQRaWidbSLRrCWFwU VpD/jYWcx16R2ucXQpj9saJ9mIVTMplb+yMl4PD0+MeRXyx8O1Kb+dBFEvVt 9mmF4yzYjn3rSNWRQmP0tvIdv1ngf8Z2tf4qDUtfDufNBAumD/zymjTkYO93 YU/OFAslPoJpWucVsVnZtnyYlw0v2QwjCQEl5DQ88E3iY2PBa503s8KVUM7Q PanPYMPfzG1R5xplrHz8zDBoJhvqYvknEgRVUXfTXOHdbDayqjncvkh1dEwm ffeay4ZtRunihSPqKHIceD5BPBaunG+yUwM9+iF9x+eRXGPW89PrNPHng9/r G/+RPLFa1ERPC5K5mpc+CrGhTGU7PwnVhhpP9bvvC9mYlGxL31ysjcVTHh98 FrHxcs6C3h+D2phzZ4vWJ+K9n/ZHSm/TAYNbVfB8McmTPTKC1uji+q9v+qfE SD4l2ydF6cOq/8Gaagk2nL666tzcpQ8l028OipJsqLSejLK+RHLf0Oz9xE1F PP8FSS/Hh4jHdgZSJPd6r1M31wBnHGqaj0uT+TiK7d1kbYAN75VS3xM3sR2r R+INcG/U4j4lQ94nWrlO6o8BNnV/FWsgbnqasTewzxBedvKOQ7JsXLrdWj1b yQiM0RJhPTkyPmf+/AvuRrj6w315GLFKzL6s2lYjzOQoXR2fzrW31EjWGKPM PWRLrzyZv/TZ+cUzmCj3anaQVSDjBRtdrdhMPK89ne9C3PTZpD/gFhOq4pvO l0/nKdJCtdksTP0aSopSZKOYIXtkZxsLl2fUiuQQswLkGHMXsCGeHatfT+xo ozjuuJ+NkGR5r0VKbLSVKgX+uMPGnAm7QENiLwWVgTPf2agR+ajkRhw+ufR9 2xYTOFXW7Usl5t2p7hZ91gQVizep3CZOeKXRItNogtMFHaHNxFmFWnVeJqZ4 u1JJiF+ZDQ0JbfPZoaYIe6axQZa49KBOWf41U/THZDkaEG8rEncN+w+4m7Sa 7UFc4C1xxloNiFRu0A8m/i4p2bSEAwxCp50m1m+WnN/vASSKKCxLJo48LGVb Fg3k5rC1cokrTKUPH0sFtF7KdhUTM8akazaXAHx2u0wqiFdeleGjXgIPs+/b PSU+7imLGYPAB92ieS3EzWJy0U38Zigx7Il5RyzWKHfvoqIZfCv/Zn0i3kTL /wqGGWRvJIX1EWczFfQ4G83wopbD8424Z1ghQDTcDDtTilnD0/VfVizsPW2G 5mMhmj+IAzcr9d+9bobePo3mad9eqKx6tN4M3OqQZdOefKq8bWOPGQ4KDZpO 32++XyVbk88cb09p8U8//6CBatdfaXPs6Xl7cPr9DYOqki+MzeF04FDF9PyE c5auz3IxR9691uvT83dxU0sODDTH5Utb10/Xlyak3mxx3Bx3rOrKput/X6Mu tKjAHO6+WW3T66MUrWHXXW0O1/IjN28S++hqHrn9wRzxD2Ss84iv92nWHpoy B6PqT8pZ4p8ZyxhuSyyg9+tu3kFiIxctM3V9CxRuGw0IJY6ZS8VMOlrArc/6 z1Zi/gjt8fRDFrB4k23DJLbT0tH3z7FAq3ansBJx4hedQLNKC9hFp6XOI5Z0 0hv49MsC9GzGYBv5f3nw6y8tEbFExtDHuxXEeeX63ge0LOEgeWXlRWJtdYP3 qtstMfvNxlvexKEfDKQm4iwh2BB+kkNcdtbQrT7dEgXPP2orEXMYxi1+ry0R NJdR20n2h1sHq654xQrk9qussiCmqqLXjruvQM+SJgNx4tm55e/Ze1fgU/Xp iSGy/2754je5AWdzUxgpxPMmLdS6ZDh4V8M2biP7+XMXt1SRycF5NeOeS8T3 HlWb+7hwkOtZuTuY2Puo1YbRBA7C72bOFyCuFF+VIDjBgV+D0mUV0h+S/x4V W73ICoczuw0HSH/x+9iQk0xZYWD9ucvXicUL7B/IbbeCG2euii5xkJHTN4MW K6iE776uQfqTsut6R69Ca3zrc9nxlfS/Sea5d/lPrHFsZ+PSC8TNMu07hj5b o9dyuMmeOLZn4/5IiZVIzFvfWUj66dtQ9+KTh1Yi1+hlr4c42e9nti984GkD 5XquZZIoG54RlzN5Y2ygt2ROlT6x4aY+DetUG7Qn1mm+Jv36i+KuFc2NNjDa L9YmQmxya3doH2sVkP0iIY70/+GmkDeLRG2RW/rshaYw6TsV1+Su6Nnifu+W xSXkvDh/9YsPnGwR8lZGmUnMOeA85XPMFmq8zXkW80lupC9fyWcHnddZphxy /nAyf+7y+W6HA45Lti6YQ3K/oH/lTxwQvIZnTv0/FgLdrliv7XHAjGeTbRrE OReH64J5HaHwUCzh2F8WIk4uXSAg64h6XxxfRc5TRZ/UHL0Njjitxla8R87b CKmIJ4dfOuLBr3Ilz1GScw1F9MpX49DDiP4PfSzsbZvF4G1YjeScphpN4hbq 1c/Gt6vxbWzJnfBeFrgdAa93ja5G7qHQTsEeFj4tv5J6UcMJay4HWKuQ74vs PilZkTQnXAizmaFLvk9kHfg0R8LWwCymJzrrJQtS4s85RdrOEOjx6hktYeHn T9HFeXDG6Rrs+nWLhYZGjy9pDs7Y0X+fZ/wmC5H0aPxBP2coaA57jt1g4c13 yarN+c6YM3N0Ye81FpJqdzHnybkgxqbwZkYuCwIhcygfoXX4077x59YkFsYa LZcoDrliUcWDy+57WPhlUNUsl7YRnXVJFZVSLFx85mP3m88dtweXObrXMWF8 Ylvspi4PzHLdGxCzlYkw+6tG6mlb0bXPdpDvnzGedI92s+23wV+I98Gns8YQ mF+01VZ5OySfuRZLKxpjRK/U+3HnDvxmyPmfKDHC068aRoZlPrA7x6MpzDJC aUTev+8nfSE9Hjcm+9gQK2f52opwdkPQ1tUzfK0hvIVX3xIT8oeXqfCY8zsD REkn0hsH/eFc8Hvgjp8BDgUdNZHuCEBmRr21+PhyyOgfCIirC8QB3uZhz4PL cXg0b7tEThC8rinFC8stR//UvhU6icE4wdpdlFCiD9mZ+7qj/UMwMqGWeW6t PrrC983wtQmFZnfg0x/jekjWM2S8WR6Gp2lhWYGpepAbWvw0XCQcU1F4tdBS DznD18LO8kag9C3z9Y1+Xdxw52S4DkbApDBXVTxVF6eeM47Y10WiXOMO+7GD LnZyozY+LInCrMOvXukzdLHQSGzE5/ReDKe3/FhbpQMbt9IZpb7R6PNWSJOI 10HYo7m/Y1xjkPB46JGhhQ7C1Q/f3Ku3D/wd51IGBHRwd7BTba9wLE4d+xzg 9VIbMisSNrXExsJEYV7Zu3Rt1DsZP5sajEUyv+oGtr82griPKW+v/QhoMs/v hDa4JR9Ge5v2o0Ww6G+mqDZOCbQXFtjEwV6uZ0ztG4VPi17lsCvjEPSq/Nmj OgoZsp6TXzXjkbPbTePLZQrrHOqtWnPioVvZHPfoMIXw6NqfHSJcTMzl7lns T0EgYM/aU4u4ePwo4uidPRTSvERvWYpyUWen1OFGXL5qe9AVcS6KEt/KZe6m MFN89ki4HBcfv27Q0fSjkFjKGRLR4uLIiFT0ah8KV4eq+1bacFEcoqbyyItC l8fjzpJYLro/te+wd6PAU8M0Ph7HhQ5z/eVf6ynIq908483l4pDqb/UsYu+R LFvRQ1z8pf/9++lKYSBu373wE1zwyD/syFhHYfyicTIznQt+pjnN60xBqLvI ruo+F4kV57UnHSjo2Kjmpz7g4pZHl2Ih8ZrCDEZgBReFrZ5b3ImTQ4/fl39E xmecKai2pyA523cp9ykXr3lPnT9tR2GpqspMq7dcBJetn8VeRcHc50JZwxgX ncGHb9RwKHiIp+2nx7mw52zbcIA49mkKx2SC1Jdvy+EQV6glvbg+xYXa3fNd NSsosPqPfE5k0Ggpapevt6Sg7xs+d/0CGrdU23nem1NQ3b1m4xdNGim2F2qY phSspFfLpWvRKIv9V8lH7P3cvttFm8a5urh/9SYUcpfZ+Nfp0ShvXbNyE7H8 ELhXmDSSiscWxLMpSPgvuxqwkkb6Na0z7UwK/wXOmZzyohGz84JQlSGFIpc/ fF+9aTw/UcxJIHZiDgq+3kFD8eiHV+uIkxkvJQp9afiaL+X5bkBB5mwKc3Mw DYG7Vw4pElNlKlHl8TSKaowT0vUpNGUuiS+gabDmh3vvIQ6mBY8mH6QxsdTu PIjv2g+d232Uhv0KT4nPemQ9P5Tekz5N5hNcukuLeM0szkRMNqnHeX1Eqw6F sa8GvLtyaCzjDZMtJE5pXCqwLo9GYECtEk38LmWeuFYBjYR1V1bpEXupvzLq ukFj4yA156w2hVBHrwjTKhqSA3IBuykKYvou+9Uf0XAMuDJ/FfG9JdaHRavJ eirJzlcl/vtRPXWojjx/VbT2Jy0KB0N+3Ml4QePAngH+zcRqbl8qjzbRcN13 6yabuMGktS6shQaPZmOlFLEQ//03Dm9ouK0r5u1aRqF44Op7ZhsNrvhrg0ri tS/Te1XekXr5+V5kEY+VnPwu0knjpND2+njilHNx4/+6aDiBUvMm/h/NpInZ "]]}, Annotation[#, "Charting`Private`Tag$5500#1"]& ]}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 15.459444444444445`}, 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]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0, 700.}, {15.459444444444445`, 28.96}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.9706279873778467`*^9, 3.9706280531183624`*^9}, 3.970628092214031*^9}, CellLabel-> "Out[100]=",ExpressionUUID->"eae90dc8-7a84-4137-b91c-0b7cfdad166e"] }, 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[{"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[{"hP", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"hH", ",", "pP"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g31", "=", RowBox[{"ListPlot", "[", RowBox[{"hP", ",", RowBox[{"PlotStyle", "\[Rule]", " ", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"f3", "=", RowBox[{"Fit", "[", RowBox[{"hP", ",", RowBox[{"{", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "h"}], "/", "8.4"}], "]"}], "}"}], ",", "h"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g32", "=", RowBox[{"Plot", "[", RowBox[{"f3", ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"hH", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Last", "[", "hH", "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", " ", "Blue"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"{", RowBox[{"g31", ",", "g32"}], "}"}], "]"}]}], "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}, 3.9703743216521482`*^9, { 3.9706281964574146`*^9, 3.9706282864881725`*^9}}, CellLabel-> "In[101]:=",ExpressionUUID->"be66cf15-f89b-4c7f-9c1d-c21289bac521"], Cell[BoxData[ RowBox[{"991094.5308807638`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.11904761904761904`"}], " ", "h"}]]}]], "Output", CellChangeTimes->{3.970628294054186*^9}, CellLabel-> "Out[105]=",ExpressionUUID->"ddffc8dd-6203-4544-9636-245766efa815"], Cell[BoxData[ GraphicsBox[{{{}, { {RGBColor[1, 0, 0], PointSize[0.02], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWIQjQwWXNJzhDIdQMQHJw0oXwDMD7iiBOVLgPkM52Wg fAUwX+GUKJSvAuYv0BGA8k3A/AaG1xB9DC4QOmcZlO8HoRVyoPwQh7NnQEAF yo90uKvC1jjV+bI9mNuQ6JAgP3fXp8g6KD/NQenvt9IHcxKh/GwHsfsBP3Jk fSB8hwIH/YCgBEYfSwj/QJHDcxPuLdZLNCB8hkqHH82nS34qsELV1zssVvtV M0XwuR1EfZPDr5zLfRc/nIHwH7Q6xCp5XmP6vtkOABbsR+0= "]]}, { {RGBColor[1, 0, 0], PointSize[0.02], AbsoluteThickness[1.6]}, {}}, { {RGBColor[1, 0, 0], PointSize[0.02], AbsoluteThickness[ 1.6]}, {}}}, {{}, {}}}, {{{}, {}, TagBox[ {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVl3c8198Xx+0RmRlf2UlZmZmf9/t97BGy9957byqbSqSQIivJKnuESIgi O4RkhURmEuLn99d9nMd9nXOf933v431fh8vOW8+RAA8Pr4kQD+//Y0TTYU76 73V03Hyo8gd6RT5vWTHcOrwXG3gTWhwfLiRfUsJ8/0L4FDbltjhE+0ZQ/uWZ mCfE4T+xGyLvOQO0BeSF5Rpz98IOMQsfxJb9xWX5ohXDNP3VY4xamq12mvSy PFVvqNKEID4EinMO53pcko8NYZK5mk0EdsnG2Cd5XnmfET3ujTAKoHJN1mNk 5pEXKM3Pfip2FqZfqhWqZlyQX4rcZNRcpYLQRbeYNqYL8leYuuNGBWmhiTSi /woPt3xhp0OYaPY5kOU+izdtwylPIJLUQBbCANybJwGsvzjkrbNqdr/pM8K7 gfeL4xwc8ix+BN7JFMzQeSjw+OMDNvlUjjz7n2HnYYf6IQt1DYv8rzvdee+M WGFchfFDGgmLvOber6+PxdjgoNS3LMDqP3myT4iJ2io7bFB6a4ywMMtjbzyL hgW5oOhflBNPB4P8Lz985dYnXPDCwGY3WZJBPvty+kIJGTessl99GffynPzB wxbOqMXTuHU0seU5vXydG0WWcDYPzP5TmNpqoZV34MyVOX/mIkTp8gWZa9DK 042JTZCEXIT96nuaJZM08j7yZgwz+rwQVrTt8YKQRl6AuSQlieIyuJuLE9xa pZSf/IS7EhJ6GXqUTKlrhCnlE2MG++yXLwPnkMzg01AK+aVff8jlOvjgIdWA A/v5M/L5XSqxP8IEgCJ942FRKqm8Zm4947ltATjRTT7oWCOR3wvhLUFdBcEg omfRTpNEXlOQpP+hsRDkUKmSFzMTy+896GJCJYThvUjZMu08gXy+x9VSlzJh 6KIbc/ljSSDP+0wvR51WBK77ZDKFfsWXH4x4JxKQKAKEkbPFa0t48rwiBYYf gkTBZZT0/R/5YzhincyxqhaFP06m5Bpe/2CInG5lZ10U9BKrBB3zjiBiISqM 3VEMzm+mahsyHMJQhm2uv744qOyOf9tB9qEo5vEKWYo46B+NfDNP+wMRPkOi OR/FwSAVMXDa2ANeDfnOHnkJsKGh65ur/g0R/zh/sIlchR6p8iw2jx3QWzUR q3G/ClVcjJbI4jZcGr8frvbiKmjIGVfS22zDcCUelT+7JOCbzH6JsNuCSw6z Yj2UUiDNr0wpwLEBRzrMEZZqUmAgNz/sq/wLhhGdru0YKUiDxI4y33WIYHpr zHYoBZMiLe/1p37C8MfcCL8f0iB+svxRcGMFXjSMd5FelAHcX9b9FliBiEJq 6qc2MpAvYBdO+2gZLt28ld89LgOfxkTJYnSXIELU+j3re1nQYroWyXKwAHrs j6ir8eXgrEbfuonXAlyiGDBRReRAXdGAznVpHoYX0Z++tXKgJp5knjY3B5cy 2Wm6C3BwlBlaZ4w/C9VEnHdcJ3FQc46v2EH0G+B8uYgo6RAYt/h4zc9xBnQ0 ePZ1ohBoKLrwjeLrNIQc8c1OWqMQ9i35aTbJJBC4CpjdeIRCvI75ip/FF0j6 LDjKMYDC9Yy2jvz6Cch/JdzjgGJgwK+IZAaPg2Mli0kwFUDXF5vrfy9/hlKn 8+lq/ABPdaO/5eaMwiYr6/B/KgBPhplO+plGIew2m2bLDYAfjR0s7udGINmO E/DXAaJc0nHSEkMwwsx1Y5hMHlaiLnu0dAwC8wBX0zMeeehEQs9yGg1CgdwF CRULedBZkj4KJBmAhnO8l+/2yoNk4CPXnL+9cPSR19FiWR5kS7PP1Sv0gkLU pQIhQgWwyCcuDL3/EfrWL7MOyioAU2guxV2ZDzD7XoCGoVQBBq20Rita38PF G4JaS10KMJ7G2PaX7z24iQvdaZhTgNaqrX3qx12wm3uFyOw/RSDljnyBRncC Wajofk6iIoi/83t17uY70BIWu+pTqAh2YQ8uCxK/gwffxfzk3yoCu1Ekn1lK O7DqSawt/FGEyEHRqJLytyAqIDV72VkJLKiqNk5oWyFoTortIFoJjkRXchy0 3kDLI2mz3hwl2F486ui/1wIqRLKjnmNKEBM5viPC1gxmX3E91crKUGgfo/nB rxFE2m8Y7NsoQ8XQ1VCysQYgfd46i0Qog+CjkQoJpAFqPeDvaQK8vJIhuMlY D2ePFPm/caiAtfGcl+nvGlj8FlvPI6cCqrI0RnaBNdDU0aXgZqQCpSseNbn7 1eB0V9X8d5IKLLTc43Yiq4a3LNeSKA5UYPwZkQDBtUrIOL7LrMugCnnR/5Uz dlWA53xfYYaIKqhUdT5w+PsKWEq133A5q8K+AXG9kO9L8JfR+yU1qgpe0we1 /x6Xggbbw7AbG6pwfeZqt9dGCXDij5J0nFGD+ffZThfVS6Cvx5BDW14Nysfm vPbIioHXxFTH4ZUa6K2Hk+s3PIcjuSfTJR/UYCY9bo5R8DmMcEy5bCyqgapt mq9xYSFELltEhZ1Xh/g1xsnfOc/gS5BN9f1Edbh7HlMyacqHSrN8dOyZOiBZ b6RfqeVDPDr/8XybOnzqldqe/pIHYiQOC0W/1cFsZIw3gigPktKdz72x0wDD jyp2b7aywS60OI/gpgZMPLU9zyedDdKWPwTVHmvASlhEpWxMFnzncVceGdCA 7Qi+gwneJ4DWegX9wF0Doj+fctbzHsG5zAoCYZNr0OLCp+dF/gh+hm8mB/hf g9ciwRZNgRmQqej34qTkGpBcTXynb5oOW8OBEwxMmjAdfl+cTOMhvG97yVUm oQkRjJrdRJ0PILv8uxvoaULG7JZHofwDUIk3/Od2TxPaUzrvuKimQrbMVe63 hFrwQafQ//NuMvjyerobcmmB2zPV3XdsyaBC/7x2FdUC96DeynjNe7C1dk6V IUwLLJW/t2803QWVvF13t00tUJvxvMk6ngis9wTrTs5qw6ZV9nECfyJshToc pwloQ3lDb3RBdAJk64/eb3PSBu9bgjr2EA9bJLV1575qg4GspHDzrxh4v/Pz uORAG8xMhm5hDjGQPXtBDWO+DsR0EptxX6NBpenhpKv+dSiR2/bfmoyCbE// k9YP16Gex/SE998t8DMrUzNYvg7rklEcK+y3oPDZVk8AgQ6YFf3SrVK5CaH3 +ejOcOpARqS3X92LCOBxe1woYa4DePAPvVoWCsk2V9VPXHUAycwQ/rYfAn+N htY/hOhAjMwCl821EOhXJJeyztCBz+vvAmyPgyCULfTD7SEdqEMpfNYyA2CR nsHLYFYHxOwN9YfJA0D7TBUdx4YOiH5293xy0x94/qyY11LqwjeeeXonfz/o HzT5NaOqC0nNizU8CT4g0737oMRIF7aeTfrrnPOBwjf3pQIcdWFiZOSvuLo3 hJb2RJLH6IL6W4I+m2xP4ImVppdo1YUx5Ncfm3g3iJgkISLo04XLa+wauElX GBX5vDvwRRco0gz6AsRcIfar75j7b104V4A3kLThDAuSZY+fCerB7g4fkcdj R5C9F3rHV1YPfnRU9qBnHeHBgmo4pqYHj9WbVHNjHUDh/qLFlL0e0L5f+/jy hj0U/GDjpM/Sg6kbny/nZtjCAbZGM1esB0rtqk2hPLagl9GEX1GvB0UnZEwy dTZAoGi8oDGsB0PLXuelWq3BNvt+UTS5PqS8efvlX6EFNG5bPdJh0gcOX/UK pp/mQKMulMh+UR9q8j8fLF81h7e/P7g2gT58v2VhL/bFFDivEwptB+tDHjs6 paxvDCHPh9jexukDvm4m7fdmIxg8zKVKfqgPqqZxtWaXjSCyGLfJV6EPpoFR Ck6UhvANP6jGdkkffF0/kHkc64GkiVKh8K4+TGnfv3spRg+SX9Gl/8M3ACeb GQpCCj1AzSuCHrMZgGSOieuHC7qQU7siM2RgANkk3QN7v7Rh70wDf66dAUjk pb27yqsN2rZx5z19DOAQr+DhXTstOD7L/Y8syQDMo6hu7/+4BlbO5m+hwwDq WZNjvUTUof4NXxXVkAGkSu6S/k5SA6pz+/nTMwZQyc0SmreuCq1v02JCDgwg TZwcPWxSATaWfpVKUUOIfKWI/j19N3Z3mRiLwBCcUm2iv24rQt+A7fes64Zg 4xKPq3dShLC43zEJnoZANCdYNWaqABObrO1WJYbAyjsWvu8GUNnrdN+g0RD8 UWtHbAODhKJKa41uQ+ApuZU1T4WBpIXS8dXvhsAWQvEyyAaBtG53ubNcRtBE JHCkoCYLHgV1ZwhFjMAof18lO0UGFG+cfNlHjeDJpNY3kmlp2BZ7GLJoYQSF TfOJ0ae+6npOU11zphGwCN3+5UZ+FXhDieKqXhjBf3O3CnICJeBYX9vgRb0R iGbVNc5+F4dy8vntB6NGQF7ydIx9WAzOBJKLuNEYw9NPXHjpYyIwf13/xJrD GCQYEwXUbETgNf/TfsMrxiBwp/N3wKQwuMyKeMprGsN1q+pBQq4r0HXNpJQ5 0RiE6U6yEnb5IZu3IJTqkTHMuGs/5pXihwD8NTWiImO4O2Bxfv8mH3A33Fre 6DAGmi//cvLZLkMk9wue7hNjOBvzZkzr4UUw+be500JlAvrcdr2NhzwgPCHb Uc1mAsWcjo2aLjwwc6/fNkfOBLq5MZtwrQsg9/d3TmCwCfzr457eVuICulHM yz3eBLw97ufl9HLC6qvbiG26CSgxVgzmGHJCpgPbtGaNCVA5b5LfWmKHvQGl /3g2TEDS9LvV1efnIaP9Cs3oPxNg3xa/HbrEApI1zKSxlKaQ8LIlf06QBYIy 1nYX+EzBgJy7/n4PM+xZpA0+czCFxxVlYp1SjJChfbNb398UOkQJ7oXlMIAk uLQSRpuCo3dcuB45AwRdwJXb55qC13zI+O9Vetj7sZBwYdIU1hckm89P0ULG 1KebIyumwCujCavWtCD5qSEw5o8pEOjxNJ5ZoYGgyrv2C+fMQP3Kxo0lfBrY CxLHnl03gwpN6h3zGkrIcGGT1Lcyg9l+JkWTdQqQNCMVIvQ0gxzO5y2lghQQ hEyx2N8xg4vr5IttTeSwRxizx91lBisufFxzNKSQ8dtjfXjEDIpM0++98SUB yWWjxeh5M0h4M7m2MEYMQR/5h+dPzODWfPtO5ksi2Ls//LJA1hymjsRKM28T QEZ0S6GeujnUpjwyqiEnAMmAoiwCE3PAXvs7wz18CDIOu20XaA5htNRy+jl4 sMfG7chdaQ6OC/2+w73/sAxqSovhVnN4bfK3HTs+wiTx9/SiP5lDX/CgrZTk ERa0+AHmV81h2a+7Wqj+ANsr9WUtuGgBJYpqVarbf7CMbHN6PQkLGDLAI6DV +oNJJiufIVC0AH7eN1e0y/ewIN//9m1tLCCkCqhLg39jf6TaR7iyLIBPIKe6 Fd3BYm9/ZfxcbAEX21/Sd7/bxuim/pom1lvAMk3Nv3X1bUzwptjsryELuPfn JFnVdguz6Xy21kxmCd9FdJwEHTawdYa3wt6MlvBzks/pz+NfWJjztB83jyX4 mIutToyuY+lnGP4mYpZwBV9TxtJ0DfuoE09sFGQJFU+KGMie/MCMCwrUyGMt wWD3hib77xVscaf1bkuq5ek5XfxkZrCCnWT8ob3w0hI6zS96TrMvYxJfXdg3 FyyhfIRDAJtbxNqvxNk+27KELea3nW1mi5h2ZH6h0YkljMWJthSML2CuFyb5 37BYAdHzy+wyU/NYjus1qTu6VsAnQsnoTDqHCTQ7hyHWVpBy/O2k7vEs1kgZ +2bTwwpcGY5udF+ZxUYqWhSNE61gzriBabx9BiPbE9LhabOCvIVi8473U1i6 qsbD8T4reDlDbD9OP4VxP3YauzNpBS5o1qa74ySG4HIttn5bwWtHLdNnDF8w v2ga11ZBazAfXzPUfDGGnYwIlvvKWsOvo398NgxjWNJF9Q0eNWsYOftxhyPh M/aiJyrwrr017MGao3LgKDZNtRNl8sQaTkJdRetDhzFXG+ouimJrGJ9efVdD MIztVQmQtdVZg97i0npF8hBGa+iQfHHIGnxVLRyMKwaxZ5/ctP4S2kCySbb8 B+5+rLRRcsaJwgau2O0sx+h8wiqfEXiP0tnAUuyT2r8xfVhL6JP7FVw2oPr9 4mLw4Uds7OLHEUfMBmK8N/7kX+7BpmkyHEZUbEC6/AUvbWQ3Nn9o+xu0bUD3 yn4E8/R7bGPoLyOrpQ34+q4r++R3YWQ3+cyGw2zAfuGnx75lB0bl+nsVi7YB yaLie2Nj7zAGg/bwl7dtgJs4Pdle/x3GzW/6NDHTBowIVpl5jNsxubHEWbTe Bmyf9BVePduGKbQb+Ja/sYFADp7cJIlWTK2ck4Cl63T++kODXts3mEF044Xf IzbAngVg8akZ87qy4lS2ZQN89JJhKYuNWMB/tX+Y/9qAhaO9yzfJRiycKDIx Hs8WZPn15X7ea8ASJ5lKbaltoWDdzKhGvR7Lj1ddZxKyhcL3sbO5uzVYsS/9 zTgJW7BJrx+xc63BXll8o9qRs4VyzmytrblqrEksWKRfwxbQWwrPSGeqsNGZ Iv9YF1uo8WNIbz+uwCY/+BFte9uC1kazcAxHBTZXi6ZbB9vCsDploJnKK+zX nbF62XhbmHw9a5j/vBwjlSI52HxmC8EiiZNiRSUYFffwHauy03rXmCvldoqx c2dzzvdV20Kd8iPkonIxxrlwFXnRbgu/F25o0P8pwmRTHCMtv9kCzXIRNpVS iEmVajRoLtmCwKoBXx95ISbRJfxLbv20HrXS+UsJz7Arh3/NWQ5tYdnhv9x3 dwswbudkqXFGO/Bp+9yr2JSHcUT7e71ns4PM/Vp/Ca08jPWpyfM6Hju4xEWv PdGVizGOcNOnidlBi8kdzyHBHIwca/ilo20HBTJ3X3pLZWEkZtkXwdAOjNzk iv/FPcEIAqMshC1O9X1Nt2m+PMaOSq99POtmBw4WFkvXkzKxTcbZ5x/j7ODc twR5fp4MbF20a/p1kh0cFukIDjxMx1Y1S+lLHtrBf6lu8lyk6dhidEBUQr4d sBzyFnnuP8QmfpFZKr05XZ9fsF+I8AH2mfzXQ/FOO2BNoSRuvZeKDfOMfOTu tQM+hfzFa+dTsT6zp9L4X+xg5ostGz12H3v7XvRc664dEHhSsmZq38PezDFe e3loB+W7+UexKUlY09FhVDaBPYRfu5B3/fNdrFbs/UYYjT1877rJiOd9ByvO MeuVErSHv7t0AgnjCdjz1xjBJXF7GGcKz2XAJWAFozwyjLL2QAxaiY8L47Hs MxtFu6r2sHUtket8VBx2PygmusreHlap7BFzxxjsXqrL6zw3ezAkENdaWorG 7pRrbab42oPd8thoiXs0FjvPZOV1yx6crPjG429GYcHa5TICWfbA/OKDwVTy LWwiwDb2T749RPmJA0vXTUw2i3Ggo9ge7nwGAnu8m9jRcqSDRb09uI9+OUmN i8CiowxT7g3Zg+DLlgTa7lBs4cWZSdMJe3AOwvuhxB2KKfW38fB+s4cYCbpv 6VEhGOl5/qbWNXsQzrq8c0kzGEuqPV7cIHUAuk8mUQZUgdj6ZI1wC5UDuNd/ vdGQEIBp47uGJTI4wGhWFX0wUQBGqz1CzXXBAUiB/Gk9qT+WsfxCVg91ALMe N/9jMV/sz1nLOHZlB9CI+/aIvMsHM5GgG1y95gDq9mo1I6Y+2PmoCMcYUwcg l9M+28rojeWx6N6vDXCAiyqzVwj/88Dw5UmmIsMdwK1pwsXW0R2zc26+qBXt AIccyhS4ejfsYu3F5u8pDrCiIHZ718EVK9U6+M5Ydqpn640L33HCKAIqRBaq HGBbyvnbWxsnzOOJQ3hFowPEhvmpVg45YsLL/TRq7x1ALEKYR6TVAauNfCYX OucA+MUdQmptdhjDC5N45RUHkF0S6fdUtcOCPp0dot1wgKbMgtLUYVtMhiXE qfTIAZb+OZEmbtlgrTWaqVNMjkDl+3vLNc8K45zEn37B7njqLzkUnk5bYlF4 DbwBFx1BSVPLuJbNElPS4mqhFHeE/9Jq79G+Msc+LP1eQrQdwUAs5q8mkSnm NrDCmWPoCOWm13N3jUwwysYps2MLR7CqCXDWemWMad9u7291d4T6kgaJVDcj bFjgXj122xEI02kfkjMaYP7nIjdz7zuC8u6X/Kk7+ti5f378eJmOECXZz+BH qI8Z9ZvkvC1yBJHnpiGxJ7rYpA9PvHynIwSWqDSmcOpg4aZMb/N7HUG4yjUr z/Y6xqpw5gB/xBEcCyxcriRqY1b0m57v5hxhQJfb5sOSJjZf12yoeOII9qRi C+Xf1bGYnFcpz0ic4NkjzzlZMXWMJyH/AyGVE+Re3lYpjFHDnEwSkE5WJ0he 53wQI6GKrR7oXVSWdYKP+VXj/z4qYXcXlK2fyzsB3Z+mM6uySphgn/RjYnUn sD7D+rDllSLm9ZT97HtjJ/ic06xWkq+AbWOruyqBTrCcV1L0pQqwh5e/XnkR 4QT1sgNRAihgErSDLqSxThBumDiFZGFY0HzddPcDJ+Cevnv38k8EO4iN6lSr dIJj4mDhw35ZLMsz4Li44XS9UY1UaQZZDGfkLE3e5gQriTysN2xksJuXtMo/ fHKCH1y5CqnE0hjBR+Y0jZ9OgHjH6+jEX8WeVVP0l247wcj7hQT+LQlMKeuY lOLACby+xkhS2Uhg8R6L4b1kzkAYJz0erS6OnaGutNfkdQbltNIwUBPFCi61 KF4Rcga99geOrhMimAz0XKCRcIaEggR6J3cRzMV3dmFE3hnKaf+dXBAXxrpH aBzMLZ1BWuFlbh6fIGa1xqqEODhDJVuQio2/ALZHxMfD4e4Ma09WTZrb+TFe SfnF+RBnKKv/iH1y58NiM30d3NKc4Xk6fd21bV6MteqGkmaWM4x9dxvqs+TF aj7c5rlScMqTw7VM9ekiNn+Qv7hV4Qy2ltE+gfU8mLzlsENorzP86nmeq17N jU0EziiZDzvDKyuk9JoMN+aTvMqDfHEGZ7mUKosOLiyvjeA73vIpr7LDGctZ TuyYS9wxkcAFzr55SvwomB3LkMWU3chd4BIPfq9HNRsmpH/toiaNC0il099C t1kxi1j779TsLqCNe3vLMPI81rz00PGRjAts6D0/ORpmxvROcpVDwQX41nPM jcWYsVWm8ovmqi4wPDKj357OhLGod35nN3QB+SbjQnMXRiykbNexyMcF+ovt vmzLnMNoOvFUEoNdgKaAXpOqgR57MU3J63bTBWSnvnwKkaLHxs5eXBJKcoFD jaz57/J02FUfQ6e6Fy7wHJ1lWQ2jwfoSbVUevTrlr7s/rkhDgznke/KG1rmA Bt7BrVwdaixtOG4J1+EC6sobQb5vz2LbEvVOnTMukPajiIJo6gz2kRpPUnbJ BcJ+hpJ9Zj+D5a+qE1euuwDrPHV5nzM5ppP39VnWkQt0XluNySMjw15SEM/5 sbgCv5L+A55oYix2SbtyhcsVmIQoszx/EmEW7Zm3rPhcIV02vWXMhAg7EyzI riHtCtRJqv4ZGCHmMq9vzmXkCjEfmtaGZfAxePOU/5GlKzzrYuVlb8fDmDKX /1I6uoL6fSnRhmt42Hut8Mx9f1ewKnkRvz56jF54XfB5INUV7KXmzqc/OkQP Hq4VKj92hfm6b+9wYwfosJdkQHOeKxBKp8oJsxygkTwf6V5UuEJdw7PrtlX7 6EzK1vWbn1zBIXGEhv+/PbTeTY5jd9QVPIaCJ3Vu/kbvKcf9cp12hX4xg9ra 5V0Ud8h8z/CnK2wVJ2W9eb+DPj79dQiSu4Hv5y+P3ldvoT7ydx4X0LhBVU6/ yjvJLVSNddSFmdkNeqk9DrhbN9G9IWdSoktuYI9dmHN9uYEaIClKU0puMJnm LKZnuoYKMn+h19V0g3jcB+XyBz9Rwh3uhff6bnDS064fNLSKVhfXR1XbuYF5 RD5Bh9UPlPrcTOvtSDdIedr7W792CV36dSn5JMEN9LOnQuUYltDWD76WgSlu kEm/MXgj7DvqcYv4yCbHDahro1of6y6iH1cFZaRb3CCLGS+BQngeJRlSYb3b 4QbXdhc+rVXNoQoNNidfP7rBlFAXoYD0HPo6Jq0r5osbsAd9vWanPYsWsx7p Duy5QQ+NqUId+hVdJGC8yn3sBquvPkNY4DTK8UOYOZDYHXoK/86/qJpCM+rs Z1jOuZ/eZ5AokZlE47R73ZxE3UGixifKO3YcfSvxXeu1tDtEFqw3PJ0fQ49Y TkQowR0CN+/aX1QeQwOWxf5UabsDR8sP0Y+Mn1G7yCcx/9zdT/1tmoDhj2E0 x6nWScffHTyDsvMknIfRSc1+9Wdh7vDLszjk4coQqvsfAY36bXeAS4o13r8H Uah2zU4rcofwoaZIHbd+NCIz5tbyS3foC7i2Tfr4E9p486mdbJ07VFK987H+ 1IcKXxu6PNvhDhT0Kb0GKr0o+6J0ncCcO9yO+ytqGdiDmn3Uy7y54g6x+T3Z tJ+60fRKj/ChDXcgVP5AocnXjVLeyJMPPnaHeJHNa+O/utBDBrL+d+c9YNVN U5W+rAOVPOKqYrjgAfyf0nPeXOhA/ebl0lz4PWCOflaIIu8duvrK24xKxgOO j42iBZ+1oxOq40umRh4wgd7j+pHfhp67svWh3NIDrOeuxENPK6pzjuLliYMH CP7Ly/TdfYN2z6L+z/09IG+tZOytZQtaH1p0snnfA+QEtbg2vF+jKylfErse eYC7qMCXpL5GlKWIku5JjgcUPqQ7UhRqRG8N+/EolnsA53PryfSDelRNAFNP 7/aAv9QJPtTvatEweb9h134P+K98n6MZV4u+NH5ujn72AJUv28JtTTUoXSyF 1/K8BygrO5OHv61Gp6bHH8gce4DRSbLs7c1KlGrnDCsVsScsR1g/aI6pRIEc fT5P4QmXRLrfFf9XiRZeLWy4+58nfM832Zt68gr1SvaZ/irhCZtNJAsvnpeh eYXPHKvlPGE1OnuPfrcUHW4a+xWv4AlGD4XzdlVKUallHL6IjidoVzD+zv9b jOIBOW+0uydEvCh90pBShIoZ4SqM/DzhI9scVf/xc9TBw1taINQTpJIs1RN8 n6MfMj9rjMZ7Qp52LhJnW4g+2Mr35i3wBFlV1EzZtQDtJP28f1DsCZ/47/wk 3MlH99jIogcqPIHoWhVF06181FzDKy3kjScorppIt+fnoTzPZF9/nPCEhd56 XDxlDmr02lMh95sn5HCJ4sVde4omDuT1+i95QnCuoI95Sja6fkgyw7rrCfzp +TX0F7PQeoMRAm9qL2CurNwPi8tEV9xIkhQZvUC/S+bRwfIj9HyUDAMzmxco JFtOeGo/QiNf5l5q5/eCwMehVh95M1B1Eg9NehUvmPh3i7iFIA1tmZnuDNfy gq74loOw4IfolQYtZNHAC3yeiOATbj5A6VyEr9TZe4EjO98T4rVUdPLDNrVx lBfUF3V7cpy9j2oW2Ce2JXrBwy99ohOyKWhr2Cje5fteoPONTSjWNhktEKjf 2s/xAs0hqiseb5NQt3uhI09avGCSCVd94e1tdNpx9Rphpxf8/nGXYYvyNqqN mne693pBxdKrqKdWiajYBq4ON+kFKdh2NyVNAnqgg/do5s9pvifc63kRi3rw +VKrnniB/8SrjTPMsegM/nxCBYk3EPIj2VeTYtB31R0hkQzeoMWy1Td+Kxq9 cy7BjFvcG16mPn8ekxqJHq39Gb4j6w1hqYr4UuyRqFeXy7UdeW8w1X8a+J/F LVQvSAPXqeMN4dfz5FNf3kBZJs6yO3l5g8TC9GZCWhiaVHkzoz/QGw4yvDVT pkLR48QNKqkb3mCi7Dnz9FIoOi8zdEKa5A2Xt2wLlPuD0bKstLmSEm9wTi92 5dULRNkDiM3oqrzByO6TVPebAPS+ZtBwWKM3xKlH3vERCkAD/hl3XOv2hiyh 93KezP4ozvr88/VFb3AS2/sswOKLvpJKYjNa8wY+JVrxy898UE6af+mtO96Q KELVYyPsg0bbeHeo4vsAzYq0jlmBF+pEq1vLTOMDwpvUeJ3e7ugThoyOe/Q+ 4Ms5Eurwxg3t/29qmIDJB+7a6GYlUbuhUtyOW2tsPnBbbqf7+K0LSiYeeqVd wAdStNhQG0MnFCfVikgK+wCbP+uGUKcj6itHqFUm5gMkQ8cZZZKO6KTiPfd0 GR/oUjaOMeZ1QMsM8otdVX2gTLaQbl/IDp01WWqY0fCBPg0P1e4GW/ScpUC3 vrYPtDMbz2Yo2aIRjnXfEUMf2JTWrfjhZINqB33gprP3AT6KpI81mZZodBiV WIKTD7RY6QerT1ig9Tf15Y9cfcD1aRnjO1YLlCPhq/WSjw/kxsasfK0xQzcf bWU33fQBO1Eq4hAmE5QnW7JcONoHGFvoEsbDjFHTvPDmwjgfeDS6eV103gh9 V0w8mZzkA/LPl9c9WgzRh6//Y7J/4gMrRgrNJtn6aM8bK96Jpz5ArLRJMMmq jx61P7uqle8DDzKMBTPzTjvVj0IGUsU+8Nv8IDS4SheVnJJPpaj3gadyztQC 69dRt2/xeZGvfQA/Arf5hO06mrPQW/G75XR/jNdRHX1tlHTNsP9bhw+YHP5c I+jXRCeOXClqh3xA9sNJwfGROkqJX8HC9/m0/tLiY3IDdVSeeJcvZ8IHDvpx +NYVamjp2Ztqid98QH3yrvxpS4qGsz+Is1g/1T9aZ0q9pIwOEgYlnd86/V4/ LqnWPFBCeX6YPpzcPb0PNmGU6/hKaF8NV77JkQ/wNsvsSqwpoKzqVS0GFL5Q PK6ZxrkOqM+V9A56al9QuHLpiDAI0E760I/DdL7wYI/ykRABoJ4zMKHD4gvP PexaNlRRtNV/cEeTzxfStTkOzjHKoXSmtQcUQr6gPfEdF2osizqhmfi9Ir5g pnh3hCVHBqUmt6FWl/aFkub2mBhZadQmZ4NfWdUXsi/wT3GWX0VrY0ZEia75 wuMvIaI59FdRMtcG6Q5tX9BccnqneUsCrRK/pSJv5AsXpVjteuzEUYIPVHaI 46l+K9BV1FgUNXq17XLk4gspUUEe/F9F0NKHY97NHr7AsL/Ne9NJBNW3yrkh E+AL9w4oDyqIhdHCHaHHV2NO+fvElQbbBND9Cdq83XhfoLMNZr1zxI9qtv4u qrnjC8YZA2wFKD+6m/imVvSBLzTiSd4zGr6MKrNrDQrl+wK7u9a1DXFe9Amh 6PhaoS/cibm0U/noIvpr5dxMWbEv/Hg1ztJ6woNm1Ez/5Kv0hdFqvS8K0xfQ JTUPUt42X0jdc1qY7OBCZa/oUH1/5wsvtxxx4ypcaDK9BEPhe1+w+Tyvq/iJ E5WaOeTm7veFHY1uBYYeDjTR/y7K/tUXdrPLeWs8WdFkK+OB3tlTXjeX80jJ eTRd/YJN6KIvPGm52XZulQUt4GiOGv15yjfaEXI+/D+0uXe1886BL6hTbuu1 jzGi7+rrDaWPfaGKk4d9TZoR7cmPXvqO7wcRO2PPTXMZ0NFgFjJ5cj9wfCG6 kRByDv11QePaHyY/sLtrPM1nSofuUjFOF573g73jfR7LSVr08O+chx6HH/Ar 0tUeWdGiZIOhyS95/SCRz6OU248G5YooGbK/6ge9h9cGroafRS87B9rRyviB 8JyMQmgFJXpFT36nFecH0c5tZbgfFKjs5S/nWJT8IIuY17bc4wxqMEpmMqjn B9xKzdIqFaSoWdvoyg0jP+BgY23IpCBFbUvzQgXM/OAfe7iRkQcJ6hUpnRVv 6wcafLkvHssSowmCLjM4Hz/YXSnSYiUlRJOZJLxX/f2gazn8xtMYAjSNAA8v M9gPNpQ4nMsICdC8iUdcOzdPeSMztyio8NGm2G6Hknt+oEYxFVnz4Bh56/3w t1GqH5SVz4e4t/1D3ptZxxOl+8FXMqe741tHyIjInxfW2X7Qpz/nJOx8iKxN 8/5kKPODoi6RnoGUfWS7ezu845UfKBI536db+oP8rW6l9K32g1tPSS1X4Q9C ctvoSt9rP1jETUpMEe4hHFfjfaN7/KD5pcjgreYdhLPR6vNmrx8I0Zov8eN2 EG45KRnrAT/Qbm17TvF2G+GVX8HDjfnBYIr7p/NDW4iglsb93wt+sMz59liP cRO5Msi9a7/sByGSBamklhuIiP6h8fCqH4xYnf9e+OAXIm5azlGx5QfygzPJ lGfXEVlHqgqXk9P85s2PdHKrCG5liW6cwB9ib9/d70/9gSDubUHKJP4wTDXj NLC2goCvD8p91h/OigdkCFcsI6o3hj9NsfjD/QxL1nS774gaXpmoBrs/WFwP oM+YWEQ0YmLSG7n84VI6cRyt3iKifVvCMv2yP5wXr85lv76AGKRnrGlL+kPZ ljgteM8hRszeOm9k/AGzKKRvO55FjLNUawUQf6DYj6c5lzqLmOXvh5Mp+UPE HEHYr/BviO1LM4p3uv7QRcM5FOE5jdiJiHuLGPqDzTfFHor6KcShhmIkx8Qf pmgvhMsSTiEur1uehFv7A+lsWBhe2RfEq4ud/6qnP6zMWLX+JzSO+Kj9uffM xx+oAnvX7z4aQ/x6B7ZoA/whsTJIsIN4DAkcinz9K8wfNkdqeTnXR5GIr/Nq xYn+8EK8sZbm+zBy06a5nDHJH+i678RecB9Gbi08pIlL8YfGmnhW9d0hJPqH 0oRthj+c+9M7eIN6CLn9u8j5fKE/MFiSPMQf6EdKTdk7Rl74QwuJbnXln09I 35t09qQyf9DpTMsF3k8ITXzs56Nqf3j2+HuFdVovksFopzjTfhprrBjbVvYg jWFfcjK6/E/71QzDz4Q9yJcZnQPtD/7A/V+yzIl5N8L6AqtqG/SHHv9LP7f+ e48USLFx5H/zB60EKa/Nng6kMystzHTBH0LOpoeWoh3I9xOKMdrl0/N02Jzn b3yHXO45SIr+5Q/NoRt4jPXtyCuTiQP7f/6A11dN1FrXhgy2XDdixQ8AUZcr qZwTrcgWZ3fVKFEAMFDkbaXgtSISP+pclCkDYJP0QHzdrgVpCn04xns+APyI g/rUXF8j01/PiH1jD4DjFeaEyoZG5J989L1H3AGwMuXsvXWmEYEzvkpk/AFQ YGAmGNJWj7x/ol39QzoA2oOpgtksa5GV466zBbgAoHeS2ujtr0HI7RFXMwiA 77RDZyyVahBNAUHOXtUA+B1Vp9ksW40MN5MnlxsFQN6rVYWnupXILkfUDwez AGj97qTH1VaBMMTuK7FZBYDKhTwFhblXiInm8uE9xwAQ7nlQEif1Ejm1667e AQHwKkSQ5vGlUgRPHtd1KSQANlLSXvf7lCBcz2s4Z8MDwIJKcRa/rRhx8CwY 14kJgLk/Wcxjri+Qn/9uKYs9CIAz0nxI3u9ChOyAMKAsPQC+AJddi0chwrOX UMDzOADaPr5JM1p+hlj9SjlhzAsAeY3DsNKlAmR4Jvf14csAmI8LDwmkyEc2 Ji+sBFQFQLOA6DZ3dh5COf6C8VdtADxVHol4IZyHKA9U+M82B8CiAMI08SYH aWxrE+r6EAC+mxTFW41ZyOdmRQv0UwDUaVnLzxNmIdsN3XcaBgOAOGTd3lf/ CSJYObBcMh4AWc7mFjsnmUhu3rf85O8BwF+q1OlyNwNpybYfJP0RAHIStGX8 ++nIRObyceRaADhxN+BeuaQjdKkb5v47AWCPi/2aaZCGxEedMJjgB8Larytl /oYPkGc3YpSGiALhcVDPUt3XVORtKKm/Blkg+HKkCZO4piJ/fakHcdSBUBkv lh2VeB/xsOO4w8UWCOelLXlLhu4ht62eNT7hDIR1kDBfobqHFJldWqbnCYRt i6cJHLpJyKyesBKJQCAE9uh+2l24g+grYser0oFAyqvlOoclIj5Yh6ADLhD4 g3GFkfkJSJKcqvlXLBC8ehSU+EkTkPfi1xsHVALBJr9sUHwmDpHlsfarNQiE gfs+L5waYxBjzoU8IZNASKLPK3oiFYMEsDoPFJkHAlwbGmdqikZenvMWfGwX CI/OO8dm9kQhnMS3lm74BAKhsMB4OHkkskHyM+e7fyCQUG5LJinfQlrJjI21 ggOBEaOxUrpxE7GgFO5hvRkI6OJ8dfZhBJJJ/62k+W4gKGVoPo0XCUOcGa7Z XUgJhFy1HMnexFBEkqmB5e6DQMghIqNW+B6CjLKk3DV7HAiUKxQl5qXBCA03 5vm3KBBGBrc8g+0CkW8Xyi7algbCYvLmv6gvAciri0wzPS8Doe+BZv1f/QBE k29DO7M2EKg7bzh+0fNHEkVyRaTeBYLtRCAHQ5AvYixG8SOnKxCwVV8tIPFF eCWC80k+BAJH13id1GMfpFPqOt3YQCCsPLDdT0j2RvCwk52Ar4HQfUycvBnj gQyAe/n0bCD8XbT+dP2TO5KjMO6gtBgIGn5p1XDeHcGpVHym/xkIjl9b2Ow7 XZEQLeuG6v1AkPy7iytUc0ZUr/d6sxwFwpmZ93RxNU4Io67U5eiTQGjX3dnj 5HZCag2oH+uSBMElv6xN/jOOyKZ5W9gmfRBobz0Noya0R9osBcRNmIJAZjlN TPO2HZJs/ehnG0sQXA6At2l0doigvbdFClcQpBk3DRwK2SIubhzoFeEgOHb0 +k+O0hqR8ri7ly4WBIW9zMZ2ylYIidefV/+uBkH8U22WmBhLpNB3gOMT7tSY +3MniVFZIN9CbuF7aARB1k1/rmNTU6Tf/E4Vm3YQWKfRk58pNUFa0HTbAd0g MAfDS1PHxsgTorJ2MdMgkGc8vKFeb4QY3R+L+ut8qr/f0/zLxABR9p8TLXMP AhNK9e91vfqIhNHanIV3EBwy4KR0FfQRWlYChbdBQdAjmt7+RFYP6XshRJAQ FwSztRsVbwx0kOY70tXSt4Pg5DoLx8f315FST0W71aQg2JwdxKGr2kiiuOk7 rbQgOE+fcX5dQQtRbIuNPvcsCAT9nl4kkNJAxApSxN4XBcF0ESEDTZQ6whn3 ZD64NAhoB/KHKAfVkGONSoWpqiDwiyd4pRGhijSNTREUvA2CD8aJbnpnlJGS 10vV+p1BcN30opNGiBKSmb1lR9wTBF/dFH9KrSoiQXakHS4DQeCW3ugU/0UB Ef0lFiM8EwRWvBv32BYA4RxCxOfmTnl/eXeteAJCVau28OB7EGT+pFp/9wdD 1kKtFPfWgqBPyE2LVAFFionvEL45DAJm37yjpPNyyKOVtBqvkyCIMX5U72It i8T35tpzEgaDya911KpYBnFIreuIORMM+v+5nDujLo1wsM3FaPwXDHTKvBlv 268iVHhr4keswcAc4hzUxn8VOZrfW3jJGQy+9tIOY48kkMliSiXay8HgVxAV N3VDHMmQkCaakAwG6vHvz42CRJHIiusJGrLBkK/RqcJNLIq48TufeYMEQ1TG 0YfeDBEE48ygKVAKBugaF/saK4ysUOyyeugFA4LQ7lP7CSLD8RR5M4bB0PKS suHFawGkBf/CBV3TYJBSN91cJRZA7v/R5ZO0CYaRqdUbh2V8iMxCxVU8r2C4 2NiUxiNwCeGx6m708w0G+nNsjNtpvAjVlxm57wHBIGSzqHGPgBeZ7z+r8DE8 GFLJxT99XOFB7jS5a6fdDobOb0kKYzPcSMDVmCGSe8HAEk08EenAjVhVPjEI vR8MEoPBN5XWuRDxog9mVo+CQZJHVaCblAuZTr3kfPl5MBSUaZJpv2FH3lNi q0+Kg2GH814vyR4bUplg5Hm2PBjMQxl8e8XZkNgbcf7b1cHAurRstvfmPCLk unCr5W0w/IX35b7k/yHMiwcEwp3B4MDv4cvtzIwQWNPF53cHw83EP14bPUzI mIF8Unx/MFxuOiMYkMmI3ITcTJ3pYCAd6b/s4nAO0ZPsz7m6cLq/LBcDc2t6 5JLgv0KW1WA4I/xYz8KZDhlkMq9a/BMMmzb8VTtZNEjh2TsNH46DwYJr9KQ4 mRoJIXz95hVxCBitfjB7dXAW4dpg/BhCHwK7vx+T6FJRIJIvYtq2WEIgyESJ pPkROaJhvVnrxh0Cb8WesDtfJUP8Bj7kWoiGgGTY6qxYCTESnyCZ/lk6BOjs gtS0bxAhT7Bnd7QhBG5R8pfl2xIi7yoiAuF6CPBu8JuEGeMjY84/3F4bhUAF tYeunTMessphZCNmdVr/M8/rJLITHN194Ws8nqfxxNXMsM5DHK9aNjwNCIEO 8omHZ5QOcLJ45JKMEad8ChfPOk7s4+x85jnJ7obAh03K5+Rye7g7s80UB49D gG9dw55jcQdXrZO+97M4BHz+tUXi+rZwk2+95r42hMCgUPn0jS8bOEJRtb6B 9yGgV9eW53VrDSeYz9XQ/jkERNm9bcpv/cAZ0B7m1yyGgPYDSt36wSVcRNRo 0vOdEHg18+4lhdsirnDrZfAjglC46Ef3nkZpHpcecumOIm0ocGUtuwfbzOLi T/KyNzhCgUDAVrbD8isuKJ6lIutKKPR+tnZTMZjEOZ9Na1dFQuFH6AV8saxx nNr5hKVcs1DI7HstMvV3GMfPF0axHxwKDLxEKaTR/ThKKU8RnfRQiE1waeWO 78H9UrIxLK4OBetPjd/q6ztwpUXHpvr1ofAhpTtz/EoHzonsqdXx61Ag+u/a h7zSd7hvvV+cDdpDQSr2j0NPeTtuUE8/DG8wFDRkjkqLq9pwVTYquSbroUBP mt54New1zsVsK6hzMxRuJzPsqIw14jgNsrVFdkOhT0btOEiyEZeiuv2P9DAU zvG/5/lI0IDzvJJj0UAWBmQD0i63empxfEe//2PkCYOjr8FS4ruVuPxHz9NG zMKA7rfae8v7RTiTVB0PzCoM/LAexisnz3E0dw8Vy2zDQHD0Tmah73PcrZu6 O9EuYVAV+2OS17YQZ+n4T1csKAz+1Ako0rsU4P4TN6ROTQ0Dl7/mFO9Ic3Cp /UR3tHvCgHjxldjg4UOcS4m2KVFfGOgR4hHH+TzEQWzm5aaBMCjt9O8i+vEA 90tGsPvieBjc1SE8c7SYitN8rk/073sYiFk+LacluY8jjSi4WUYYDnZDTjxu 1bdxN/jAnwwLB9GH3bPpcZE419hwi3d14fDzc7Vlh6477pwM87bbw4jT9zl0 vwRPGadhVo9f73EDrPouX/n1khMX3EH596bJTVh382FCGP/IhQjcromQuAU1 1Fijw/6Q3Ov1Gf4I2kg4mKojYLEtluNQTrIcjYyE+krlELvH0XK9erKf/q1H wlHdV6IxHUs5/9hOESeHKGhoYTnCuCXkYuvmfq8MR4GajptqNgu1XOqZqVel GtEg/5Ph9t7GouwCw+dC5G00ZOfLOgD7G9lcTrujVaEYODB3uNrdlSFrfL1X dbwwBgyVCJiiz3jLhtzo3v1KHwsEP7ARrFdV9ptt50xdZCxwy0bqqo5zyyq4 PW3p24uFPv1wngK8AxkqP/Kjfw5xsJte/VTqyqhMpdEh4apTHDw3SPidlD0i oye3TjHmEgeZPcNt/6hGZDKIhs6/8oiDhX+vfjafDMlwPMqUswqIA8f0y/O5 ZwdlRFouhbfGxMHbj432cOeDjD6JysHNgjj4KHQ/xpDvrczeqhSBe2EcCDEt kZq7tslkDvCdMS6KA7rkTo7c+FaZ6cyzLMKlccBwpHvIO9oi4yDwWeZbVRxs IBP0RvWvZYJ0HEKx9lNe+9yH7AG1MsxXjaIEOuKA52eUWfhsjUzTf2q3mbri wJpr+RO+bo3M8bzA442eOCi+jrM7h1bLJATuNOYOxkHC8rW/ssqVMvxm39/e HY4D0zvvZB/mVsj0oeM9waNx0KaysXu9+ZUMDVnzxPWJOOg11Jj9QfxSpnqt fFZuMg78OBaD3CXKZQyGclYuTccBed4lqc8uZTJ7dfc36WfiALdGcvOooFQm 80n0/sm3OPj7VXK6Yb5E5n/Y1UfJ "]]}, Annotation[#, "Charting`Private`Tag$5616#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]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0, 700.}, {0, 1.01*^6}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.9706282941009865`*^9}, CellLabel-> "Out[107]=",ExpressionUUID->"d350f804-1e7f-4082-b653-9ae7fd09d914"] }, 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[{"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[{"hMF", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"hH", ",", "mF"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g41", "=", RowBox[{"ListPlot", "[", RowBox[{"hMF", ",", RowBox[{"PlotStyle", "\[Rule]", " ", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"f4", "=", RowBox[{"Fit", "[", RowBox[{"hMF", ",", RowBox[{"{", RowBox[{"h", "^", "6"}], "}"}], ",", "h"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g42", "=", RowBox[{"Plot", "[", RowBox[{"f4", ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"hH", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Last", "[", "hH", "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", " ", "Blue"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"{", RowBox[{"g41", ",", "g42"}], "}"}], "]"}]}], "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}, {3.970374332804364*^9, 3.970374353559656*^9}, {3.970628376050331*^9, 3.9706284480474577`*^9}, { 3.970628478140911*^9, 3.9706285452542286`*^9}, 3.970628593023513*^9, 3.97062863149518*^9}, CellLabel-> "In[164]:=",ExpressionUUID->"405a939e-76a5-42c1-8425-a0f7e39652a0"], Cell[BoxData[ RowBox[{"2.4570992438879633`*^-12", " ", SuperscriptBox["h", "6"]}]], "Output", CellChangeTimes->{{3.9706284530082664`*^9, 3.97062854609663*^9}, 3.9706285935071135`*^9}, CellLabel-> "Out[168]=",ExpressionUUID->"288adcfc-5695-4871-9ac6-d1af61a15d46"], Cell[BoxData[ GraphicsBox[{{{}, { {RGBColor[1, 0, 0], PointSize[0.02], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWIQDQMS+d7vJc8U2kG5DseOvs1cubIUyhdwOPuf4/aP BVVQvoSDcZBooX1TA5Sv4HCDXT770NkWKF/FYXJFtXWTXxeUb+IgEJrraLx6 HZTv4vBv3uYEW8+vUL6fw1WOvz578wztIfwQhzdHA/y2rC6A8iMdyvfNl9K/ ewTCb0h0gNBmUDoNQjvEQ/nZEJqhDCpeAKF/dELoA0UQesVsqLpKCH3xAFR9 PYRWvw9V3wShn/+A0A9awXQCo5AjAGF4RsQ= "]]}, { {RGBColor[1, 0, 0], PointSize[0.02], AbsoluteThickness[1.6]}, {}}, { {RGBColor[1, 0, 0], PointSize[0.02], AbsoluteThickness[ 1.6]}, {}}}, {{}, {}}}, {{{}, {}, TagBox[ {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVV3c0F34XtiNl770psrLH93O/NlnZe++99x4lURpmNklJyMrICEWRGcUv hDKyM8rI2/vPvec5dzzPOffcPx5OB18DZzwcHByCf+H/Oar1uDBzfwNDskim TMASLV28rBxpG/kBHS9UBY2Z1ik8fcqQwR05gzjlP+dsmVAqdteo113LX0Lm bl+i/qvRUKw+n5hHGPkT2Q+kC8eY+CsOic91zwntoKyg1MH3KRmKyvNRTQr5 e0iZn2nSr6ZSsSWdqSqX9DeayTU7usPeqSgi/6roIOIY+TrpR6iajCpWrBg/ NFz7i2zZP6cM3v+mSPYhXOWzEC7gvn52qyhlW3GgpL/jxhIeDFG1VxtonSom hdHLSuYTwIysDr58DTEG6bnULxoSwTNLQeKwX9SYI97GK/dJieH5l5ZhI3Z2 TOMJfiX0kMCuilNRQCo/xm/cgGsrghTsKjw5LpmIYQSfleQXiF+ExdKmeZkd GcyPuG067TUyWKB0PH15H4sZqSrSONWnAFYqxb4CXQ2MMP275AkhSsgAm5Vb KfqYtITNN1XEVEAqY2iII2CCWd2gxUlcogIPxW9TIlrWGDVzRUWLLmpYNz/+ S8ruiCnvdYoQy6eBWl9SJo4aNwyeaFozcRgt7GcGkHxP8cXYPqrfmzOkAw4r 7T3HX4GYdqIZsWYReoi8xtlqSBiOYQrA871DygBKAWmt0uyxmLCvl547LzMA /e9HGcKSiZhJjeurCj2McDBjSG+TehMj0RDGR1PEBEobmylPKtMw99iLHX9G MIND781fTCb3MJup74rfmLAA24LkNeLphxjtg82vueKsIP5n+QXvTg7mmT0d sz8ZG4iV5ewzvyjAEA8pmmmssUEHb4N0xf0SjIuMcyb7W3YQ1WfODm4qxyxc V3M/1ucA6vOlxOm6lZiMc9Pnljs4oLdpQxPP7TkGvfauGBPihMvTXfSxKbWY zQBc1Y48TihivPPEWageky+QufiUmAu0bn9I3uVvwlybFUjIDOGCFW++ePyk FszRg3aO+CUuEO3D8WbTeo15qqnf6WXADR/XxvMV3nRhzM4Wrc26uIHSoIIN l70HQ9QYeqIszAPfFeZMJLr7MI0epI9E8nmgrTHwMVVNP8aJo0iW+TwvxAQQ FmC3PmCoJsU/E4XxghvLYspEyjCm+/bbkN3vvLA62JBc2T2K8cNa0M4a8sF7 Icc181/jGPbDjfqBbj5w07/Y0mo9ifn4PN6gUYQfMBuxeeqEXzBRDrQ7xQX8 EBrUxNi1OYMRZHh6N41UANoU/opcYp/DTA8pCIeFC4An3ePNZZ1vmJTEkUHH ZQF4FWj5g1dyESMt6+SpZ3wJTtuK8LAa3zE/Ng9J5HsuARFcHzdMXcZklt+u 5BO7DHy/5M1L/65iVCzY1amKLsOfhDa/R5XrmJI+taTVCEEoDWD8Sm2yg9Eu aqKj2RUE+mT21RdCvzAHYXxPMe5CcLvesFlAaB9TYpAl7z4vBLBTu3LN9BCj LUT08YHpFZjqIGQ7V/cHc0AYYtfx8QrkuTsK+CicYErmvu+uqApD+1gspu3k L+bgfh89RkIEmj4dLs48xEMlXpLP3KpEoCFH23lclwDxlRkUalKKgmvQrTcx l4nQ8d3U5VltUXjnRRe1dIkYjUS9EQ1KEQXKFlVGLr3zqML9KJykVxQ8E40n vPIvoEgT8Z7CM1EgWV/ToKIhR3yipcYDIWKw7yWzSaFGhU5YpgttXoqBZNn1 mvF+ajRKQrXya0MMdHAfLM8506KKA02xW5fE4RQjWVzIRo+iFuMj2JzFIXHx jszNPQZ0faSlp75YHJglj/rYV5kQ3+udC5r/icP6+8Og01MWNJplXxRoeBV+ 9vmbZL7jQBWJuSvEd68ChdzFzvBzXCjKb1Ss8P1VUDURczmy4EZ8WtjefqwE YF4L8VYAHzqRCr9oEy0BOKt2XGMT/GiUu87k1ysJuDYMD/LjLqGoU45VVlFJ SGTQYg7ivoIM1szE6z0loXCl4GyQRQTxT2VEajyRBC7qJ6LCuaJorBaHLJBN CmxSWPLvz4ijJwUypsQWUiBeTCMUQyOBolL9igsypeCwJHuOy0YS8TvNi/df kAaXXtlxfz4ZdKLPEGWtIQ0Dkuvh2RWyaExRv283URpmK7Z1vOXkURR9lynr sTSEZEdv2RdjkAHB7+KXUjJQWuCF6OQA8e+IrKkHyECjL3dsrAgWjb0vigpY lQHvsnChaowyetI81XeOVxaWlPxK7M1VUFQ5OXmBnSyY/LesGBGvivhjYkve TcmCeOKZ9uyxOjrxaF6zopYDPKuTP5J6mmjMdOvqrq4cvPku63z+pRaKErN9 y/JWDiJkLHg8K3WQAVs2+UtceZCzwiXiUtRD/KTDZuqK8iBiZBHwyV8fjS1h fvo3yIMApvq3uYQB4s9ho3hXqgDFD77zpYmboJcEHKnu0wpQW39RRFnOFCn4 cxJcoFIE8CjlYtQ2Q/paPL/14xUhxKveyvauBZpu4g349UoRSoqV1wO6LZET N/965vY/LCB9bv2vFQo7uTQ/bYuBw1mtKfcCW4TnLmgRnY2B/aEw14xYO5T2 SWiCfRgD0/rFuyNS9qjkhUi/EwZBrxuZBqbFATnXMpmFkgF8+nOSIEztgp65 MGdqXAag+bwilXHigrZZWMYY1QDuDy2TrW+4oohbrNrt0QDYQUpe/1V31InY bqXnAqAT7MsLex6I4IDtrU0jAP+sBsnNc17ojgMH4G4AdI7k+pJo+aBxBs7o MWIsPInW5E0P90UMw5ytZTxY2PbsjQo090Ol8twSalZYSJwNmaYo9UfNNHwC tz9gYS9lNu1iUBA6ec/nbLWMBTkD3qApqWCkFM9fegVfCVbpM3tLzoLR4IYA y4icErw2Kp37WBaK5t8KUtA++1d3kamakItEvNFCOj/6lICMZGvyh1gU8rh6 JbX5mxKwBKeBnGg02isSJrBgVAYOr/2LhsqxiDhc7HdhijJQZ6ncZV2KRzoi 4pJ+5crQHauuyxGbgO5/Fw/AdinDy1GH00i2RMRiILG+eKgMX/zCVks8kpCY oPS8gKsKKFZtpYfL30Qh36RZjxJUwNA3+Q7VyU3Uni1j8aFQBbRd6o4mu1OQ GoHchPekCmTY6+QZWqcii68K/S9VVaFNtpJafyodiXZHG/22UwX9M5znnZ13 0LnHHfOKUapgsfvE9cKLu6jBC/78GwCH28oClh8z0MUT5ctz7GpQ2edsPL1w Hy3NJTXxyKsBX6RmoqzfA9Ta06fkYaIGT/SVtYhwHyKX2+qW+2n/Di5p+ETo SibqYrqWRnqkBpm0ATey6rJR1t/bDNdp1aEOm/xKyyoHeS8MlmeJqsPvYCqi 4/O5iOmZ7mtOV3WIjVolzw/KQ4GyBpvSE+rgmNaSiB9ZgLRYH0REb6nDzjGx W6t6IeLAnSDqOa8BAS/e5F1gLEKD/cbsulgNYHRTmPvpVIz4zMz1nV5ogKWd pa3k1VJ0Ip/339MBDSAcEt29Ul2Kxtln3LaWNOD1dnbH4KUyFLdsFR/BrAnD LbjMQoLl6EuI3cuMFE0QkPtI1atXgWotSjCTZZrQmfc6G81XoBuYhffMnZqQ XrZ9syfwCRInclqs2NeEy462PQzllSgt05XmtYMWZBLrxfoIViGH8MpivBgt 0PC+xVj6qQrJWK8KaeRqwQ1kkK+V+Bx95/FUHR/WAsJInOGrq9UI0+ATsqpw DfrKODzj/WrRzljwZ1p6bUjz48gmeFeP3nZWc1ZJaEPd3SRWDdUGlP/8uwcY aIOsX0CBwNsGpHbD+NQjXRuu+dIOrg83onxZSa4ufB2Q6hKy7SR4hfz5vD2N OXVAt5pbkT/3FVKjftywhtEBISoZsRTRFrSzTqNOG6EDv0GG0cWtFakV73l6 bP/rT7RU2TptRyzpQo1nF3VB8yhdJKrqNdoJd/r7UFAXspKL4lytOlC+4URG p4suBK3wf77T34l2iBoaab7qAnGi/Kdh526U7x141jGgB9MP587Ke3tRgEWV htGyHjgW6OpWyfah8rKd/iA8fbAsUGT7VNuHwjMuUZ3n0Ie+oz1U//gt4vHI LZew1AeL1R3rmGf96I6dpOaZuz7IGEnvJokNoD8moxsDYf/wlSKdndYB9FGZ RNo2Sx8Cn8+JsX16j8JZwwdujeoD96zGu27+IbRETetjNK8Pd8+7kWy9GUK6 5+uo2Lf0QaGjX+S93UfEc7hi2XDhOhTkAVFt+TD6OGK2Oat+He57OYnw8I8i niQZaomO68CTVrjewjCBoqaJCPAGr4OGX64/NnQCTYh+2hv+ch0uWhbZyE1N oKSv/pOe+9dhM60p7P6jT2hRqiq3TMgAhJ7+FbeSmkKlq6wc1I8MwDVqWyL6 1TQ6QusU3yoNQHs4Qk9XdAYZZLXi1jQZwNMun09fn84gPGXTRa0xA3gwLbmm Xfofss/PqEggMQTmmmjhs8pZxKGHf2U31BDkDnc0FW99Q2GPR1m7kg3hQUj8 mdXENzRyXER254EhrPze4kvhWEBxlQrbl2oMQVmIrPZC+wKaww2pt/9hCC7B jbrcOEuosGFFdtTICC6+q8HDdv5AB+ebLxc5GEFsd/nGLZZlpGufzOztZwSP X4x8oIhcRn8vcp0SpxmBR5b2z+/yK8jG1bILeoygTYLp5OLQKmJl+qhWK2YM Q88dH/mIbqC9PXq6CjCGsfM0/SvPN9DgsP33R3rGoCXLwsAiuIkikvcTb3ob w95y6NNuoS30eZul2+apMbBOCvYOlG6jh+885S9ymkCcy5jSj5Vd5FXaeB5f 1ARIxLYwLFK/kHL02ZffGBMovvIezJJ+oV3xB2FLViaAc0vZf4N7D+kVtja2 5ZhAzG3chBnffXQ+mETUg8IUHgqnslxX/I0W9AzPbNlNof+gPhHyf6OWywUf jYVNoUXh3pHTyW/kNi/qjdU2Bd0B/KfmXX9Q3zWzZwwpptCsxWN5zfQYxXE9 4Xl3ZgqIRpRGpPcvMjvd/tVOZgYHfm+s96XPkMhnuZ6XrGYgdP77KG/1GZpN /2hfKG8GXHhxtas6OCD/Z78wONQMXMgWhx1UceFgWIWRZ8sMKmVJ/TjM8SGr W5hi4tQMaEsOLi8X4INUPcO5pAvmUD3RLBC+iA8hWet7i5fMgfbXijeRPwEc WD0cKXMyhy4mjP1xJiEcrC7e5J42h6NxvgsEJMSQNTMUM75iDvrk+aSulsQg NdQcnHhoDicVj6cbXhBDSO1tx0UaCyDfGVFmNCOBg5CrqEzPAjCMXzKg6Twc 4CcecPVZgIslt9tWyUXI2vfaGBu3gL27wlW4BGQgtWyylLBgASvS4hOcrmQQ 8v7y2MKZBeBUtLNnipLDQcZYdamcJdR5sTeouFHAASuXM1etJXx/eW3VnpsK DqW7xzkfWUG1OM4HGnI6SLr1le5TpRWYqGuI9erSAdXMH/OUJitQWThOvnCX DoRixOc3R62gh1/tnhclPdj1lq23EVvD7LjUs1RWBnivf4PQJMQaLgbtS2kY MYFpaakGSZI1FJEEFVAXMsHSr47b7fesIecOJfntFSY4yzqk5K62hv1X2XSJ scwg8dWNbXvRGs4NmFxpa2SBQvdr0qnXbYBn+OzES4UdBNtcIxRtbWCNk4P2 QS47vLqQ9Hrbywa+n9+mjNhih/GadmXTFBsQtaqk79flAOKDK/o8nTbgPWQx GI/LCQEJFO4dQrZAuhbGwxnBBWVDHjp/8O0gUXvTSvg1Lzx7JTXrQmoHORE9 /r/+8EJtGZ7vBJUdWC4FfVKV5oP28LyMGk47iGF1L8+q54NJ3vfjzsgO/lg8 9Cas5wfimEsWYxF2oFH6e5zg4yUgc99fQwl2AHHdJyw0l4HWqDuy+pYdXHp7 M2Xc4jJwXTYvSMmxAznOISzH2mWQn0yZxzTZQeMzpa+mFELgI7ziUrVjB/0v poawUcIQxNhwyPDnn74azpCBQWGIJIhLuYFjD4yFNnR4bCKQMk3/zJ7cHtZy i5luvxGBkhvqG/RX7EEh+aU6eaooTMxWBCa52QPR+vNasX++Se6uc5z1nD00 ePmnYv5KgPQzrWbtH/ZwSrJFpyMiCRJ9IpvyG/Zw6E1A1GYnCcLHfyyZju3h S4ysdXPvP5/iekd6is4BFnD8dJXuSQEJat7U13UAivUubz5FGfi8SWyt8toB 9JhbS4OX5OETyeaDq70OcMoSMZfPpQBjPOPvuT44gP3TTEtpewUYtCiQwf3i ALOpQa/75xSg660YTceeA+Rc9cfzW1CEykKLD9JCjtBFaTzj/hdBqO5zWcFH jhCWkJn+V0sJPgfZJx2WOELnk8zjK/5KIPeIbrin0hHmFHk6i7KV4GQ5zsmq yRHIDm83X/uuBAnxxnfTRx3Bv/Vr1nCiMqQ1/F3aOucE4aTz2V+GVKCY6XpG Q5ATPM8IpCnKUQdcLNFMXKQTtA/07o+9UwcH1zZenQQnMMBh8jY+VAfeBt62 73edICTQvEvdVAOe6Rx9p6tyAnfFnvgNJk1oiCuTD//mBDzsfmSP6rRg4Mf+ D0VdZyBbGBeNZ9cFj+EVjkJjZ4h7PhqvaaMLF17NWPy1cgZqjt3mmAJd0L3V /bHD0xkmcD+KiLPqwZhgehO65QyfjD4f/aDQh2k/nhvYXmdQHFolF+W4DmtH Bryqci5gcnud4rGnIdxeVLV9jHWBL2dMfb73DUFoUCaXUNMFXKbIDiJaDMGn gO3iW1MXqNeU5jUiNoJdtLanFuwCqGhYkPmpERwlxfdq1LoAx90fdzQOjeE8 ea2jNp8rcOkPqOb0m0Epf7uy8JV/eDIqc3PPDGShn5tCwhWiOWrXbnCag5v/ /OI41hUEz+jmYyLN4d04hZOltStEYN8VPRS3gKQcfyePh64wb9BZUlBtCX85 rzqn4LnB6+rfX52/2ECWHFL1IHGDgZj54DwyW7hieI1Xm8IN6j8f+jKr2IJV kuN3cjY30LBLWsWvtYW2Hw+cs2XdQIGTU6dd1Q7CqvacK/zcoGcuO6tIwB52 JZpcemfdgK6aydb+oiO8J8eRkvvhBu7J4859Io5QsqZJWLvh9o9XlcHawBH0 i7+WPTpxg/jx6jCBHEeoJiX8FsDk/s+fa/6V5HMCtwVDS04Td0gpk77tqO0M s3d39GKG3KEJj/nL8BtXaPKQZ9+bcIfzVyXGedddIV01edP9P3fgJ35T2Uz7 T+cxQ7rxT3fAvk4+vuvuBrku8F6IxAMc2We/MdG4g5HiXZUZFQ+wuKOQOhXk Ae/XhGRl2j3gtPb5k2UXbyAaVWO53eMBjTp94lbZ3qDUbHf29b0HqJ2GSVP3 e0NL4sO+xC8e8NPYf1Tzsg9UspxcHz7wAMMMfL1vOz6QrPvBw0XME4Qlvsuc qvkBvHTPf1jhCfapX/b3Tv0hKicxdrnaE87R/G4rYgqAVzEFDnKNnpA1JJri Jx0AItdGBeZ7PIGfVmsiyT8A2JZkGgW/ecI8972qqOUAOKYl/viG2Qsu+1xU GZoOhKbwirPtDC/QqYvDMMwHw8rdLyl92V6gqDr9J+0sGJgqLlDlFXrBgckH a372EIgdC+BRfu4F0djamiGbENAQRJqZ77xAZmAiYGkuBGb+m7ov+9cLPrMF 37BYDQUcIOFL8PQGwy0Y8GGKAHEThRqTAG8IZsxxnMdEgJOXr4xguDcsGORa RDlGwEDOJ62JG97wQ4L75Gp1BNzfKfHlK/UGm3I6hwqlSOApk2t5/9kbmgq4 WluDo0CTyEubWs0HnjM1m3eexkD77H+9kTo+wCdk2mwpGAvCzTqKS0Y+MBVR cyhiHgtUbiLCjY4+4M2ZdxzXGAvTA7vkpvE+QLKre9tZJg480sPH89p9QEdH XIDhTxyk0ty04LrqC8FzjWE/MhLgZP1wLFXOF7qrt+3dqxLAp8/t2i+sL3jk jQ2Tvk0AgxAthV59XxC56VVXc5wATJ8vsrn4+MLZufdTIW6JUPXo4benT32h PUXWhFUjCVworzcwUPhBdWtMcznHDcijzepJp/aDc8wHXuqKN+Aj48wYHr0f NCX4nhJb3ABpLueddVY/kCJ6x7j64AYQXw0X7hb0g2sW9kIcJDehyqik0l3d Dyr5G43i/9yE7eyd/NYYP5Alb+Uc2b0FPPlSz0US/MB515owkToVzIsj28qT /eDTBXkZM4lUeFNJOH0nzQ+Mi4f+uoekwoMWRnrHPD+IHEmUFT5JBakZ7D3S Jj843vLfNSBLg0i2+8lWG35QqkVY+lXnDozgh6Qx7/jBSH2ds1jIHeBZNX8w vecHz/+j/FxXeAcG6zlLzE78wCb7uqvs9h1g0axrNyL1B5qLOqmumXehI3Dk l/Ylf3AoD78hFpQBeANkDorO/tB6V+fn0ed7YPJi1+3EzR90ZxfI6bfvwbMH k75tXv4wOTLDpn3uPhjaFEbLBvnD9ZzV67hS96H815VcyUR/kAZa97yH90GV TWfkSok/REQl+uSZPICUwNsYtq/+0GZy9br35kO4Y2M6/GHeH7aXL182Ic6E TE1uu/Alf4hBec3mXJlQyt4WP/HTHwj/bqnXmWRC24e13tQjf1iZnHta3pUJ m9xa1w7pA6CKb/eoJjcLjCaIzUYMAiD0G83KoV0OsEve8E/oDwA6WvUvgZr5 wPHK5tP2hwDQKHn4J8EtH7jkpWVthwNArvMo9sXNfODDruAoTAbAXDoPleXb fBDS0crYXwwAFqXDBxdUC0DOmazG7SwAslndAxfVC8EoM2tdVyoQcOr36I7F iuHWfoUrc3kg2HJLImx0KTwzZ+sZfxIIYYrFKrr3S2HwdSZbWlUg9ExoId8n pUBxI+nTyctA+Omyor8xWgpZdA7Ks92BwOK+fmeGvwxKpVnZS+YCwc+/di59 qgxawx9M8jEHQZHdwVqT2mP4eRqrKn4/CIbEM5OLXSuB+Ag/qCozCOL8Fgyd 4iqB5+BmKU9uEGgO9pIr5laCzebdM7riIDDPnE258qESxmaLWo6rg2B6mZzs guhTeNXZeaVvIAiWloxWP5w+hRvxZ7RmuMHQ6jl6s/1pFXAQxv6I9guG3K+Y 9gq1Gtgi+ln4PTAYPOLv5sc51UAHsampTmgw3Bq9Kh2QUANWF0T6WWKCYaRu eCq/owZyqOeett0OhpvOAs3ELLVAwYW8/1QEAx0xUfmb7FrAQWe/gr4GQ6xt zF58Th3MhcXiemmFgLKsc/jPrnr4aJlax6obAh4B0j+zJ+qhHZNpP3w9BFhq bV8YrdRDHkFVt7h5CNx8eWZ4Rt4AJhmT8X9cQyC6dkCbya4BBp9cwbuZHAJz fqUpfviN0Do5g1faFQKy+EErP02aIEtChuCzVOi//67zKrzaAnE1eje15ELh YC5OgFmrBTwuu55/rRgKBRxueZV2LYA4sihKVULBdEu2fz+9BVZI91i8DEKB MOyco8VqC8gu1kji+IQCcV2vlXFZK/x3j99V4HEoJKRk3jTnaQfOLbr3YdRh IM2dOblg1QlC14ZUJOnDoNT62z5nRCdIPUns3GEKA3zb1Q+h2Z2gZbvd4MEV BsruBROuY50QMDxQZCUWBmNK6QHVPF3wpiYqGPTC4CMRc8dgQRc4+C1wEN8O A/uxS1ObOd1QvlMdmo0XDiQK0iN2DT1gZ6gdpUQUDnfLu+g7+nqApXEtboMk HF50/McqMNUDmWH8qcqU4SAe0JrIddQDN86K87fYwyFXSCmlDnrB9eLDbnXF cHh3iYwSjfTC5UsRpL9Dw6FmsrFB508f1NmpFZlthEOyDsXOdlA/3PtIkKrb HwF16XcG8JuHwD0p0upNYyRkt2gS3JIdAxpZhl2PB1Hw47dPdOTPT6Bl0YTb 5BUN1bUc5pMc0xDac+FPjFkMFInV5mX4zkGY4K36KIlYOImcy23LXICWjdnL UZRx8Oq5tQyn0A9gV02znoiLAxMpPeZnRGvwwUBu6HQjDnhYLJ+VGm1CYFKv qItTPGR8+zbxcXwHkhq/7a+MxQP/wldV8id7cO/8zItnWgkwsxRYLMXxGxZp P5UrdiXAAufLNbKzYyjicDhZu5IIx/EmAS3ncLCmeh/Up8oTYZZlot8lHg8b Fv1u7yt1EoQSicoVMxBi5+x7ZxvjkoCRIAVHdP0cVsmjoH3wIAm+mp7DjJuQ YskCSE5OnZKhJfrVy+QFMmytyTH+mksyCB2KC4v8IsMayG+QTrolQ0XHE755 fHJsFsEo8wuvZFiYUsk14yXHsmfnyNsEJcN7mcmRMjdyrGg7f2RHYjLIfcJZ ebxNjjUkUjuKKU2Gn/I0q5KJFNiDNWk8z/JkmP9yyECYRoHNGb503rQiGQJN WK9+fkiB/S/nIpPIs2RgvNQpmFpBgXUS/CQ7V5cMYc88jVnfU2BD9J3CUfe/ /UIXenGpKLEMkibxgj3J8PvHFKJgpsS2Mmrcou9LBs1C43YuHkrs3wXB3K3+ ZJhkpnhtKEWJvRn861XRSDIEE0oR/rCgxF62+N51eywZml8pv6BxosQOYqb6 QyeS4ZyNraO6NyWWgrjts97nZDAsCj58FUuJfbn+fF5+Ohmm2699OUyhxBqN Fq7w/5cM1cM/BuXuU2IPGjO2qWeTQTK1cTz+ESU2Jy/h99lcMhSe8W0NllNi /wc9bK+p "]]}, Annotation[#, "Charting`Private`Tag$6404#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]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0, 700.}, {0, 295000.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.9706284530082664`*^9, 3.97062854609663*^9}, 3.970628593538314*^9}, CellLabel-> "Out[170]=",ExpressionUUID->"0132572f-9ef7-4c69-a0f0-6879171884ed"] }, 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[{"hg", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"hH", ",", "gG"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g51", "=", RowBox[{"ListPlot", "[", RowBox[{"hg", ",", RowBox[{"PlotStyle", "\[Rule]", " ", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"f5", "=", RowBox[{"Fit", "[", RowBox[{"hg", ",", RowBox[{"{", RowBox[{"h", ",", "1"}], "}"}], ",", "h"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g52", "=", RowBox[{"Plot", "[", RowBox[{"f5", ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"hH", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Last", "[", "hH", "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", " ", "Blue"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"{", RowBox[{"g51", ",", "g52"}], "}"}], "]"}]}], "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}, { 3.9703743445070057`*^9, 3.9703743514475355`*^9}, {3.970628643944002*^9, 3.9706287882180557`*^9}}, CellLabel-> "In[213]:=",ExpressionUUID->"de43fd0c-4b8b-41de-98d1-a111942fe3d8"], Cell[BoxData[ RowBox[{"978.5661528861154`", "\[VeryThinSpace]", "-", RowBox[{"0.26923500212735835`", " ", "h"}]}]], "Output", CellChangeTimes->{{3.970628726299547*^9, 3.970628789263258*^9}}, CellLabel-> "Out[217]=",ExpressionUUID->"6e493e83-31c4-41ea-bbc5-e3de8146a5f8"], Cell[BoxData[ GraphicsBox[{{{}, { {RGBColor[1, 0, 0], PointSize[0.02], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWIQjQJW9DlAWRB6AYwvAKFnwPgSaHwFCD0BxldB45tA 6AoY3wVCO8D4fhBaAMYPgdAPeqH8SAi9A8pvSITQETB+GoT+0QPlZ0PdD+U7 FEBoDyj/QBGE/tANNb8SQitA+Q71UPO7oOqbIPSMTqi7WqF0hwMAMr8r3g== "]]}, { {RGBColor[1, 0, 0], PointSize[0.02], AbsoluteThickness[1.6]}, {}}, { {RGBColor[1, 0, 0], PointSize[0.02], AbsoluteThickness[ 1.6]}, {}}}, {{}, {}}}, {{{}, {}, TagBox[ {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVz2s01AkABXAJSUsPQtklyTo1JXUkGo+7yuxmKWwJJ6U8k0p5jvGYmH/+ 81yPysSuV46NpWOEqNipWBNp0MOQx0Ykmqa0qMXa2Q/33PP7cD9c05PnvIJV VVRU3JX5vxPvzOVfmZY7usnM6emXBSh8s5dxnNHuVIM4w9VKl5UZZpgxXjp9 XSa5nZstQKVWWq46Y9LpHf30TGWWANup9QUzCXNOXCNR1LMMASKfem1UJKxA +zH7s6Z8ATJNCgMnE4ywf9Qr8C4hQFELjfU2gQLaVIq7IlYAC6HxqtZie4j6 iwZ6vQXwG7CXVLu4QFZoXv/aVoCP3TGytQZucBvrUb1kJMAmlq2udZMndsx7 Li+f4+Ob9U9oVTsOo3tym9/7AT5mpPvWbVL4YOT3rpDaRj5md99/app3FM7y 6yNr8vm43hHu/mVpAPw1ZeUZTD72/BzM9B86gfFPT7dlBvARd6DCjpIXCKuG HXMiZz4ejU2PORwIRstio+0pcz60VlYFun0bijb9NTuvq/MxZV0X0jwYBt4y SczCGx7aJrba2d4LR5PEJaavlYc6eunih4wIOKyYeu1+g4f9GhFuurSzoFuo FLzi8BCy2rPGcFUkzPVe6H0O54FhnEUclUeC36f93NKdBzKK62g8cB7B57U9 x7fyYLLr0vlUyQVw2VQHW20e2NOloUYlUTjDaI+6oeBiciHFZWdWNMQOZiF5 Ui42qKeMJUXG4Elvf/FNERdD8SlLIlxjQZltPuhzmYur1rZqMps4zL6OrmdF c2Gq0G+L140Hs+LS6S5vLko+VsblqNJB3xfQV2jDhSiAVuAjp0PsH9agYcBF 5hM1zgFJAh54dA/zvnBwisU4+qCWARs9NcmVXg707AynwrMTESzKmW26y4Gr X92SuogkDEt9c5LzOYh7+NWXZJ9kSJtGpsTJHMRT2LcSrVMQny4Vmp3goEE+ uCVxNRNZG9L+0fyOAxMXnv8zJhOh2cJSHTMO2r32dCzImeCk9z8oV+cgitVs FRJ0EcZu47mPRtlg1b6aHu++iLMThxs1JWxkar28We6aCktfbl7bb2yMrH1e 4iBOhf1+xduNJBsFG07OT2xLg4ZubWpeOBtHDrZ/31OSBlQ691x1ZSM+qfXv AV0WbEx3xlZvZWPoRPNgLZOFBH0PImglG87hv957PMOCZf8uj2sKEjoXls8v BBHIZyQFv+8iUeU9t3QihECHWvm7U0p7UeUrXoQRmOe/iBrtJHFVrcvoZgQB v8Ltqf1SEiY5QuqxaAL6La/y2zpIWN2zYDSlERDo0GSlj0j8pEH7J7mYQHKR zo/H75OYmditerqEQMUWanefmIRQulnrSCmBl7dCfb2V7hdqr99eTmDPn+JQ 9z9IBFGe2w2JCOXuAovaSCLWI4judJ/AGeueRoMGEoa7vC9SHhL4pXGpS3Y9 iTvrfmAbtBBop1k91lH632HKNYWEwGZfdp/6bRLpMZ/qCzoJjCZRZz/VkNji NyrmdhPQWxaWfE7px449krhnBPZmXFafvEVileZd2UEZgaJiue5wNYnqdxV/ UfsIdFLW5/krfagrf9yin8BiDW1jr0j5rzbjg+4gAUvHqLJDSgtzUz8vDhHw by2w6qwi8R/AMVki "]]}, Annotation[#, "Charting`Private`Tag$7554#1"]& ]}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 785.7222222222224}, 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]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0, 700.}, {785.7222222222224, 981.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.970628726299547*^9, 3.970628789310058*^9}}, CellLabel-> "Out[219]=",ExpressionUUID->"e9554dfc-1425-4f68-8e4c-c9dd31ffecae"] }, 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[{"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[{"ht", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"hH", ",", "tT"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g61", "=", RowBox[{"ListPlot", "[", RowBox[{"ht", ",", RowBox[{"PlotStyle", "\[Rule]", " ", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"f6", "=", RowBox[{"Fit", "[", RowBox[{"ht", ",", RowBox[{"{", RowBox[{ RowBox[{"Exp", "[", "h", "]"}], ",", RowBox[{"h", "^", "5"}], ",", RowBox[{"h", "^", "4"}], ",", RowBox[{"h", "^", "3"}], ",", "h", ",", "1"}], "}"}], ",", "h"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g62", "=", RowBox[{"Plot", "[", RowBox[{"f6", ",", RowBox[{"{", RowBox[{"h", ",", RowBox[{"hH", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Last", "[", "hH", "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", " ", "Blue"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"{", RowBox[{"g61", ",", "g62"}], "}"}], "]"}]}], "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}, { 3.970374373869419*^9, 3.9703743770098505`*^9}, {3.970628830854931*^9, 3.9706289421037264`*^9}, {3.9706289774537897`*^9, 3.9706289851290035`*^9}}, CellLabel-> "In[244]:=",ExpressionUUID->"ca9bedbd-500e-48e1-868b-74a6037700fc"], Cell[BoxData[ RowBox[{"202.59627442437866`", "\[VeryThinSpace]", "-", RowBox[{"2.8669074100171322`*^-301", " ", SuperscriptBox["\[ExponentialE]", "h"]}], "+", RowBox[{"1.8002884140477344`", " ", "h"}], "+", RowBox[{"0.00013285177239321917`", " ", SuperscriptBox["h", "3"]}], "-", RowBox[{"4.713691222561615`*^-7", " ", SuperscriptBox["h", "4"]}], "+", RowBox[{"4.198279261722444`*^-10", " ", SuperscriptBox["h", "5"]}]}]], "Output", CellChangeTimes->{{3.9706289117128735`*^9, 3.9706289431333284`*^9}, 3.9706289858934045`*^9}, CellLabel-> "Out[247]=",ExpressionUUID->"9555b575-aa67-4218-9f8a-f25481f6236c"], Cell[BoxData[ GraphicsBox[{{{}, { {RGBColor[1, 0, 0], PointSize[0.02], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWIQjQqKHKAMCG1QCOULQOiEAihfAkIr5EP5ChC6IRfK V4HQD7KhfBOoehjfBUI7wPT7QWmY+SEQekEalB8JVZ8FtScRQge0QflQdQKT oHyoPRZToPqg5lZMhdAHoP5MmAY1vxJC20yHqq+H0DlQ/oEmCN0B5T9ohdAT pjsAAN2eJjs= "]]}, { {RGBColor[1, 0, 0], PointSize[0.02], AbsoluteThickness[1.6]}, {}}, { {RGBColor[1, 0, 0], PointSize[0.02], AbsoluteThickness[ 1.6]}, {}}}, {{}, {}}}, {{{}, {}, TagBox[ {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVl3k41F0Ux4kkylYh+1aWyC5ZT0gliUiRlFKWkHVmLGUsk/AS+g0zk+xk J0lIWbIVRUWLylKhtFARLXhPf83zec65537POfeeOz/ZE2cPnFrBxsb2mp2N 7d9vROOfLPrcF5PY8NXv19t7Qc6kefix8B7T8fwqyaBjXlBSIpoiH/7KVFvl pcfjM15QwRPDWhn+yTQ69sLZ5FgvUDesz/4Z9sd04MQW4TV1XuD/9IDcdBgv vKVcGpff6A2p0jknP4WJQ7rhrLDOqDfkdljGfgzbAmpROS2yIT6gyJAS6Moz gqNfdMyO8PuD8xuj7pqdO+HyOwnz6aUA+PYk5MUGEWvY8We86aBaMCjE6q/T uWsHDvYzuuemSCAp9siyWvMgSHiX+JGHQuFnn8VGhenD0M/M3mNDPgfz21qf yl5xgbELxmJ+9VTIf+i97xfHcWjq/XtBuzUaDC6doh4dcYNdi3U2tvI0INuU b99y5SQMvs5vPRkVB/cn5iaMbU7BSPHKU71f44GHv/qk9WYPULhel5Jb9B98 16k73T7sCSZXhJQXDS7BgynV7fpN3sA6qaT5mSMV6kKLlmdSfMBrt4pCnGsa 7OHysV5n6QdvjF5pPc64DKcF7WpFBfxB5ddUAf8rAsKl0mguX/zhpctVltws HS4GJZpIvQmA0W9Kdzu5M0Ba90JAdHcgxCeFZqybzwCZetfBmZ5AUFnyP7n7 dwbIGW7bfqwvEFiDW+XDFzNg844PbEbPAuG1ZFbYEAcDVPdZpcy9C4T+2N4A qgADDE7xVXkuB8KWZIsuT2UGONDTP9voBcHJpZVHCp0YED9X5CFeEARWExCQ d4MBpU5S955eCwIzznCnuDoG9N6hS/1XFgStwTuzvRoYIHAhdvBvTRDU7WSH zc0MSBc+YT7cGgQZJOqdyAcMyNsmKZ07EgQha2YmakYZ0Bh6+dlm8WAQE9IW Xs/LhNdveLRGpIKhaqaNJ38tExZ3RCdlyAXDG347M3UBJgBPgAW3SjBsqHUg m25gQifLpuajfjAMaxe/M5FmwpPbq5PLHYPhmY2iVIMWEz4tRu7USguGT9vy 16UfYgL3b47gMnowsHT044ucmKDwMy5PgRkM3YXf4mqPMMH166Vl4Rzcb6pe 6v4xjDec3fCnAtldOH/Agwn1zc1qHfeD4ZIzQQ8mM+FC1PKGw+wh0Ckk0zJA MCH/XIzFY84QKJO2OkVPZ0JL6KogK+4QCK50irVnMOFXAH+/EX8INCdTtnZf YYLPCekEWckQ0NbkV7ycxwR7c9OlKf0Q4MnX219VxQSZlZET5/xDgF1CZXCx iwnTXJ+yxoNCIMFue+ep+0y4y33o0D5yCOQTb016HjDBZY16t8T5EPAZedqR /JAJjHUjJbcTQ+Ak/3q5hSdMEJAz9f1VFALDvC8H7d8wYUS+bJNbaQjoK92Q IoaZULlJZLi7IgSemT6YejzCBGvlaRtGbQhIUW/yWr5lwkWNbI1tbSGgUTfk JTDJBDbT5R/Bb0LggzX7KbUZJvTBmfLXoyHQJKjYufMbE7LMnrtbvA+BifiV 1458Z4KRZdXguk8hMNCgPBk5ywTKvmO3ahZCgHvV5yOlC0yYOdIcNrOOBBGB st8usLGg+egW7cMiJHiS/VCfzM6C5GMZn5rFSHCXL2nRfQULVE+edbkkSwK5 47cX9TlZ4OktbbJVnQSVT0wH21axYIQSye5jRYLR82pdR/lY8OhIwnVJGxKs OXekQo+fBU0mdLc+OxK0H32UuUaABSzOslYtJxIM/ZXIqBJkgWPKs6hfHiRI Y73++Xg9C3YGjWmWnSFBcu01hcsbWKDj+HnM5SwJ3h9ee8ROmAWCEivMWkgk 4A4/M9YuwoLea2or4mgkaFQVsr8oxoLbCfo1+vEk0Mje1a4pzoJSX/MTU/+R gOtes/EL5IvaTm37CBKwTbvvkZBkgXlzbPT6fBJUz++8R5VmgVbeJa3OIhKk f7ciCcmwQIbGeksuJUGbR7JmLvKSVbXZq+skINVPttyUZUHjs1cr8lpIoKXQ Z35bngUlDRM19u0k8B4t2a6rwAJG5rcTK7tJcKFgnX45MunEqnuefSSInh20 Sd3EglM7hYLEnuJ+Nw94LCM7KEnK9z4jwYePRRe9N7NA86tWjPowCWymVSe2 KaKex8baY2NY//YkORYyX+3ud2njWH9hBc9fyJ9DXc1/fibBClVX/iolFhSv TOC484cEUk77H/9UZkHGB+KG3zIJ/j5lOu9QYcGFnuyTMhxkeGQl8vUisnvq zXsxPGToZLfQ4d/CAvvgliBdPjL4y5hP7kM2O9QjPylIBqNf6wvjkaUlx2Ks NpJh4snIjgVkPrbP2n8lyCD2QFt2iyoL/r79+a5CBtlLYM0R5E8d7MQxBTIo XCtacRF5qHiNhaASGbjHlFbWIN9PFJlt20IGjaEH614i1/vJFQSrk+FuU+vW ReRrdmoOm7XJwBCzcJRSY0G6jj7nCz0yJHyJTzBCplbtj7MyIIN3nL6gI7K3 igfPHWMyCAOdyxfZofB8kvoOMhh86PeOQjaVSRfIsyBD4ElJk8vIKlcqLq/f TQb94gpqHvJ64Q7huL1kGGi5qVWFvJTymvnLhgzuPd4ODcgfeGclfA6QwfX3 iokW5CcXeHOGD5JBgH5zsgO5iV1e3s6JDM/mG526kYsiDIruuZChmrA2+scp 83bKesfJEPGj4NI//7BAr/Lik5hfzbL9v3juX6jq4h5YnzhmfD2yjSejJsmb DJzG1RqVyNvfVemy+ZHhdH30nlxkBdeu+sAAMryftR1IReZ7OWw4HkyGAi6X x5HIC/Y/7x6ikCFLbALOIL99tNbsQTjmR9KSd0Du3bOpwyiSDL/DaBQD5Lp2 o91V0Vj/HIUd/+qd0HjGhognw9LtE2rD2I9g3ZjHXElk2K2SZteI7FrNcghN IUNO+dapy8jaRfedXTPIoCXwOtQUWUp27E0/C/tvdSFAEJk7c+G4eRYZSFb9 w6N4fl6nKnooFZLBNi1anILcucZ0ilVMhhPSSZ9MkavjHH3XlmM+S+FaK5Fj z9GCvtdgvy4f2vzv/PotZP50r8P6xk0/3Yl8OKg29HkD1ndf2y82ZDWvd5FN LWSgaIZXncX7IPr+9wr1djJY0jeAPPKKY0IXcrvIkOJobzWA9+eZw47/Ljwi Q9qs2sOtyOchm2H7mgx1nk/SO/B+et6uE783QgYgvi+5Ix/Qe5Sl+w7j37vz jh1ZUXWxQGyKDOsbvyro4P3uFzly/f08nlfbralhOC9kp4UfUNZRgO/2Rf9L OH9U9z600BWhgM5A284/UizQuxbT/E2MAhGeoeruyFbHZmq95ShgNtxupobz K7DvfraLJgXSnq8Ny8T511YVEQL7KUBpjmucxnnay6s98/cABSaEtOTVkJ95 fPRucKRAcFxDqcc6FkxJOx7XcqWAD01z4wDOY6EU9b0Kvhg/ezguAef5Cf+3 MtyJFJiR9Tngh/Pep5dxpT2ZAlnLX9jOc+E8U9ovHJVGARPHg0MJK/F8jN7m /c2kAMlFUDCTgwU1tvSfn4opIHx0d2HmMhM4NHf39nVSgHonfbPIPBMKvlWQ M1aEQvmo5LP5d0w4bm8dYcYVCpwBupm1+B5K3JyiflkdChJR8ff8xphApygm mAuGgsXq+9tf4Xt6YTknc1o6FIp3q48SL5ngsZZo3WUcCv/dtPuZ+IgJKsph vAtkjH9btyKljgkTCaIC+eGh0BRbdOVPLRPyPtett4kMhYgNKWvdbzBBvPqH ZMGFUPA0uUBVq2bCmm2+Grb0UKiPO9OeV8KErxbHDxbXhILSWsVBkUwmXD9u mX34Syh064wt6kQywdP5G6l9JhQUHuXuCTqH/y8cMm00ZkNBNWjXpapwJlza 9X1x1R+M59qzRo7CBN+tWS63uMMAWu7NfPVngvLfuY3CCmFw0eewm/IJJuRm FBJPncNgfXudvbI5E1IfcSbYdIeBxvGi8KvLDPAssXHi7A0D1aHbo9qLDIBY hlJjXxjEityw7P7NgK/bVbs2PQ+DlpUvJT7NMcC60J5zcTwM2IYCFDd+ZsCq iLzzZRzh8MF50kP0BQPOKUMQt2k4LLy5mHK9kgFeseEubTfDQYLzG3+HIwPW bxf97n05AlKiTpu8zc8AK+c69jqfc8A91LYk+DEdyPfW/Dp/+Dxw+9md/SWR DpQt8TcidCKBITXAGPaig/6SYJ6efiRQNFqJFR50WOhnpcwYRgI0nPVWcqcD hVTu624eCYen+epCXelAbu1TtD4QCTPEiL22PR1Ih4Qzxf0jwdNLbITLmA4h MfmxjWWR4H8i8KydEB3/L6gGBVdFQrVXJE8jPx1mlW66bb0RCdzSkRKb1tIh +FGnSV5jJIg632pYwY28cWoh/n4kXOSz8Xy9SEBwlYav0yT6z/tu5JsioOHL sEqEIBWKj0iHX2onQDi/JHH7OirkDNn9IbWh/+Hgzz/XU0GJrKPj1kKAxr3V lQGiVHihfH/MuImAIoaOpoc0FQR2jxeL1hKQZp6w7YAaFap3dD09VEDAzIID g1+dCoy5r/M+eQTsq5T+1atBBf+iNglaDgHcG2827tKhQotdY9jdTAIiv44Y GxtSoZtyjtuRToAPU9dCaQ/a2/TIEnEEPLBhKxy3wv2CyvpO0ghQ5OxZmW+N egeXAytjCHjrd7xL0hb3G5er2EclwMki0WrdISpQzz3CSUmA5fSo7ZI7rg9c QVL0JaCgoOz67dNUSOntqSs8QwC7M0ko1BPtspPJit4ENLXzDvw4Q4X+iEhR PQ8CtFh6hz4GUkHmVvHGSDcCpHf+d3SASoVRYlyqw5EAx0UrjvhojMdzIYx2 kMB7urrEOJYKtkZO9D0OBPzeFDdbFId2Hz/xN3YEDHBFJ4YmU+G4ZskXzX0E 8DaD5tYU9B/Z1CVgTYAZefnZ21TMr6uB9sOKgKrJCDlrOhVghVlH+24CErrJ DVKZGO8L10C6BQGtVL1jT69SgW2fmwvdnIAF/TnOi9lU7IPpTIYZAadKAm2/ 5aGd/HFfCRAACb6T90owvhSb16IRASQz1SRKGRU05qiDEsgVv6e01CqwX9ER wWBIgNgZz/Pp1ah3Iu4osZ2Aub0nN3jdQr1D46fO6hGgyil3W7IB6+EgP1Ot S8CJptHjTxqxfjwuAz91COhXdS03vItMFN+9pE0A17jEgZlmXJ9U9+itFgHG V1/NF7Riv3hqrQ2QS9c6mfN1YD+64ot+ahAw1iHysa0Tz1ea739HkEXPP0sm d6Oev4dm29UJoH21HxrtwXzvnHUt3ErA8T6bgBtP0P+jn/JVVQIy4taKeA5g /2yMKjYjPzLtbZJ4hnrtr72q3UKAYfUe7gsvMd7JHusRFQICPbkrDV4hh7Uz w5GLZbrsp1+j/75XhRLIwqkW2YdHsR/Bv/l9lQmw3sOxc+1bZF8HigRyDHvb VOs77M/Zs7X9SgQ0NlBTSOOopz/0fjzyTICp3pZJZPGCpl3IiipLr0Y+YH0E ZC/zILu+bYoiptBeuOnAE0UCCFa44p7P2A+uj0tZyD0HDB4ufkE7vSDLHzkt vNvv+TTuV+M6bY58uMBR4Po37O9ItrQksvTD99cTfmA+98T1/m4mYGIu0N59 Du+XcPz2MeRyKfY543nMrzBXoxcZx3q6yC/sj62c3B1kA39J/W+/0X91z/pa ZDZm2csHf5GHXPmvI3e2bg8vWML6juWL/rMnTXVJnGeLghTbk9v+rXdY53j3 0IoogCCvwH/xxYzeH9PkjAKNUlr/v/3H3APZebmioNov4fAicnESW/77VWi3 2ycojfr96pIt7q6Ogv4/Rey7kHVHJCYyeKPw/gRphCD/XVUWF7A2CmT6UgpK kNs0tivv5Y8C294x9/fI8U5dDxQE0d9wL2UT1tc2+qDPklAU+FvdHPdBFi57 t/bF+igYNeetbUR+8zSg6rpwFLQkG07xYT+9NyV/dxeLgpxdsyUPkDVsJAgT CdQj6rVDC8/DPKlUV1QK9a9IdclBju3upPTIIhvPbU/B87X3m4NYoXwUCEzr 8Qjh+RMSe3f7/CbkML0wFnL2meUlTWXUZ5N5sFmNgNNEUg7vliiY4ZLtO4Ln WfWOuNm4KvqH5nAuIzfy6dMYGuj//WuzE94H6rbOzYFaqDdhzl5Qk4Bdxx26 9+qgfflUSx/ywHV/3uVtGM9c2NQN7x9raKn8xXasz4uiYzp4P904kmxqDLHe A2YhfHh/vzqUpJ4yRf273TKf4/1evTAm0muJ+RrtKrhrgPdZxr+hcDcyr+q2 Bzgf0vcsOUdaYX/l5hde4/xQuCKWpWWD8V97bRY1JcDExF6BeTAKqJUZc+M4 nzg9xjoCD2G9S/x6t+zE83zprIe1E/ZP4cmaUEs8v2OJpcsumI/No0nlPXge Y9s1TrtjvHqjZ+M2BOj/emEocxrX87Y82meL/ff9Yjnkgf3MOX+2Cedr7CHh ozZnMN4a7rYKnL/pKp7xeoHIEjaOY84EOGdHEDNBqJeRaRjpQoDU+tTs0hDs 73Ox3/KuBFxbbLgpFYr5u+4Xj8Z5X9/P+5aLivXUaL6S6klAxE6ZLy1RWC+z 3PnT+F5Ao85CWAzW18fC1dyHgPv5R/mmL2C/gjrcBf0JGCJVGTxPwnzU2Lg4 KKhXwv7ytStYP8Y7cbN4AlpSPbLcrqL91PcNiYmonyuiRDwb61V1N/JVEgFr ZwqaL+Wh3mubmtLSUO+9n5/IJeiv+CTxCL6f4MWy2H0L8y9e2uJyHes7XLl/ RQPaM3M3S+P73H3gnnNTI+YTHr7wsY4AO6PP/hp30c7LY5SB7/kJfpOroh1Y nwnmb9tu3P/m2NyHJ+ifwiW1a4yAF6yOv10DeJ8fPpzqf4/nkVrCce0Z6rn1 zMv9AwGDVgGCp4Ywf98XOcXTBGweZVMbG0P7k8S3RUsEdPHIuL+cwXzi75hG S9FBYobjTP133O/XlH6ZHB38BycDMmZRz6GrfsOb6SCaUxV5cAHro3a15qQ6 HTx1Ta88Xsb6D2y6PAV04Dnu+uQ+XzTIHJ0M/HaKDq47zV4WC0SD/96th9q8 6VCjsnk0TgjtyV0rs87S4cjcly87hdFuMDYeEkqH8oRzq9skowE+8lQWJ9HB 5mYmNKpGg8bHXmu5ejqk8ryqLLVCe+23ucIN6XD3e81vqnU0vj9x2e3i6fB5 KMHykE00pLgb93yVTQfLMoNhjgO4vr+l99TWdPi7l7X2qBNy2ufAkV3pcDrJ yYffE/dP0VJbfS4dDAReKAfTosE2974IaSYdPBaqQqzi0D9pKk14IR2I0bhW mXiMP+5Xe285Haartzk9/A/5hYCABX8GFNhlXNxMRAN1KlZjeGsG8F12nHyR h/qMvxyi+mfAuw2DBcYtyO8HVzYvot1K23m2NRr6vzZeP83FAP3zqfxl93B9 Jf7j5GdA8sS+MNEurNfxT+JFMgwwuNW5/8dD1LN412e/BQPSDtf/Ln6F+qfm m2eSGLDjyhXb9fPRkLPtQW+RChN8+n6t7FnAeHPDiSM6TEjnOHw76jfWL9jS eZMpEz6fWb95ehH9T+hYvrBnAsMo6c99zhjICdY2f43fEzNvzhdFCsWAjMaM tPsAE7JlTvydUosB6v7BU5WJLHDuuFTRqY52+qzSFQYL1nvfcc3TRD5RTGMU 4vfZDdFWJ90YGN32dFtHM36/WfbRuo1iAEx1aidnWbDPx4i/aG8MtCzfaHU+ cQX+3BKWc/OKAbaIhqxdVplQ52Lx1OgM7pc3qX7UKRP82QNjRX0xPrdWW6xn JkxYPZzo80e9WQKiPHGZ8ORNTJkJBdfbx/R8bc+EEo5vOhJxMXD8T2KgisVV OLS/Z9fzAtTDmGc22WaBAESeuFyE8bxi17G5ZUG3hva5/cWoZ3dprENAFhgI XanpKsP1883BGmlZIDHoLVlfg+urb1y9OZAFo848PxgtyGdvlCy6ZIPn6T1Z zq8xXkcd2ynjHKCc65p9sy4WWiKeGLSTcoEn4KxD6oZYsH1u2TNPzYUr7iK1 FiKxkBOh2qiTmAt393oElYkhC0l2PcjOhZViq75TZGPB3yxLyfN+LqTVWU6v U0e77TYPH6k8KJ/u+LjHCuO9v7Hqbl8ejLi1D9+kxkKKwLXdBbYFwNZpaJAc HQvHg3XX+rgWgJzKDfrpWOR6LRfwKYDT33OtRS7GgoZkaS3fxQL4HB3ZSLkU CzK9dnzmLQWwkG+QbpiFLBXhJqBdCAIT1ftab2M+CgKvfeWKwMz7alPvT4xn NlR4R7kY3MSuRNEWYkHAvk65YXsxUB8wLE1+x0K1+3+yrXuKoVmF6K9axP14 vsf+9CoGo08J79M4adCSldw6X1oMuj6UNU5CNNC42GjjpF4CSn72LuNqNLyf t3607SiFXVJ2slnqyKtFMw/bl8LpRzYTjpo0kBmcDP3jXgqFW638u3VocDzH /6vnxVKQm4bYMkMawOsmj3d9pSDuv7U8YA8NZsZqOV3cyoAvcPXfRXcaCLjy 2cYll0O14x+OqdM0YNOSzuIrKIcDhl94n3lifNOtjtcayiGd87F4pQ+y6lOZ tePlIJ3BMHQNRv/cwu5SowrQaFIMvxuD+jZ2yKpPV8CTnI0xpTTcP6j+1sOV lRBM401Mj6PBqEmq/jmJSmiwmWb5JaJeVYmRtVaVYDZW1yh1mQY5052KHwor wZ7L8vf5PBrYGssHmB6rgp9T21acKaDh98+DYWtSFTD6lHkOFeH6GpNEg6Qq eM1YK6Zeivbyl6cjGqvg/LllWfFytL/bqVHSX4X38pvyqkrUf2Sl/KmJKnDf Mrh95DrWO7+C+9eqauAS6NrRc4MGCw9EFyoEq6F4tn7PrZvIpV5uLWLVYPWy 1C7/FurTU89gl6+GL3cynS410KD+ZZGxnko1pOQlu4XfpoHnI4WXQhrVoBVH 9fK4Q4OL5ut8t+lUw8CZwAD7Zqy/ceyUsl41kGzdQ01bsf8KpeL7datBVNcx ass9GqRQRPLHcH3jxt3xIh00KJ7ZGD+hWA0uS9tTObowHyv9CqmN1bD0dgtz uhv7F3ndfHZFNX6XSea+eoD15jjI6OysArNy/pKuXqzHji27b52tgvcp7Ndv PEJ/9ZkZ3d+VEBfyoz67nwZUhzXtC0crQcV5vCXxCepJ3N4YklIBvSbPu8kD mK/OSlHL2HLwk7/ff/IZ9jshOuiYUhkIcN9+sf8FstGramGPEqj5XD5qOITx 5GX3DCtcA4fHWR8UX+P6YwytCpMC+HkzZWbdMPLxsOqfcTnAYEUvLI+g3lmP O8opGfA//Mi9EA== "]]}, Annotation[#, "Charting`Private`Tag$7996#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]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0, 700.}, {0, 1508.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.9706289117128735`*^9, 3.9706289431333284`*^9}, 3.9706289859246044`*^9}, CellLabel-> "Out[249]=",ExpressionUUID->"276fad73-19c5-48fa-be50-0f6e435ecfe7"] }, 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[{"TableForm", "[", "ttT", "]"}], "\[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.01", "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[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]", 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.01", "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[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[{"[", "11", "]"}], "]"}], ",", RowBox[{"Last", "[", "hH", "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Brown"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"g12", ",", "g22"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"g11", ",", "g21", ",", "g12", ",", "g22"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"hHH", "=", RowBox[{ "Input", "[", "\"\\"", "]"}]}], "\[IndentingNewLine]", RowBox[{"tTTT", "=", RowBox[{"If", "[", RowBox[{ RowBox[{"hHH", "<", RowBox[{"hH", "[", RowBox[{"[", "11", "]"}], "]"}]}], ",", RowBox[{"fttT1", "/.", RowBox[{"h", "\[Rule]", "hHH"}]}], ",", RowBox[{"fttT2", "/.", RowBox[{"h", "\[Rule]", "hHH"}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", " ", "hHH", ",", "\"\< km \>\"", ",", "\"\< is \>\"", ",", " ", "tTTT", ",", "\"\< Celcius\>\""}], "]"}], "\[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}, {3.9706297310879145`*^9, 3.9706297506825495`*^9}, {3.9706299104640303`*^9, 3.970629910666831*^9}, { 3.970630026314834*^9, 3.970630034130448*^9}, {3.970630136002627*^9, 3.970630173709893*^9}, {3.9706302049733486`*^9, 3.970630356752015*^9}, { 3.9706303897626734`*^9, 3.97063039375628*^9}, {3.970630423928733*^9, 3.970630616065671*^9}}, CellLabel-> "In[392]:=",ExpressionUUID->"5ba2dab3-83c6-407a-842b-529a84adb9c8"], Cell[BoxData[ TagBox[GridBox[{ {"0", "288"}, {"2", "275"}, {"4", "262"}, {"6", "249"}, {"8", "236"}, {"10", "223"}, {"20", "217"}, {"40", "250"}, {"60", "256"}, {"80", "181"}, {"100", "210"}, {"140", "714"}, {"180", "1156"}, {"220", "1294"}, {"260", "1374"}, {"300", "1432"}, {"400", "1487"}, {"500", "1499"}, {"600", "1506"}, {"700", "1508"} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "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, 3.970629704365068*^9, 3.9706297519305515`*^9, 3.970629914410837*^9, 3.970630034957249*^9, 3.9706303023371196`*^9, 3.970630358202818*^9, 3.970630394427081*^9, {3.9706304395755606`*^9, 3.9706304618066*^9}, 3.9706306185148754`*^9}, CellLabel-> "Out[395]//TableForm=",ExpressionUUID->"bee3f9a9-faee-45dc-bbc1-\ 229cf5083d2c"], 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, 3.970629704365068*^9, 3.9706297519305515`*^9, 3.970629914410837*^9, 3.970630034957249*^9, 3.9706303023371196`*^9, 3.970630358202818*^9, 3.970630394427081*^9, {3.9706304395755606`*^9, 3.9706304618066*^9}, 3.9706306185304756`*^9}, CellLabel-> "Out[396]=",ExpressionUUID->"03bfe0a2-bd8d-4325-b0c6-63391938759e"], Cell[BoxData[ GraphicsBox[{{{}, { {RGBColor[0, 0, 1], PointSize[0.01], 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.}}]}, { {RGBColor[0, 0, 1], PointSize[0.01], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0, 0, 1], PointSize[0.01], AbsoluteThickness[ 1.6]}, {}}}, {{}, {}}}, {{{}, {}, TagBox[ {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV13k8lF8XAHBEEYmyFhKy/RDGllSnBbPYsg6yZGYsM5bJThIqpIWkDUmR FEklQoTKTvaUsqRFKiIhWd7z/sPn+3nuc++557n33DtbPQKsGVwcHByW+Of/ /+WSl3KyZGp3S96+WXJqYyCU8aps8fO+sWdH5N0Il/WBUBtelKvs/WDP6nlr XX3+QKjXPOK12vv5Hvn0xJRfXIHQeLaL+Mfr9R6/LOe+yOkj0GR4ovyH19Ce I/uDr//sPALNFwaOjHlN7uHT7pylpB4BctUaiy9eK3tGW3Y8/CZxBNrW6fFx uwiB7e/jlVFqbOiibLjaHiUE9vstUi1U2NB/ekLxWqYQUHNK3OUU2fCJ584B jfdCkBeROfp6CxsWl8RjqM7CoC4icGzfRjaoTvydLXTcALpDm4v4/wRAYnvV Jzt7EWiiBFSsuRQA+5KNa+5YSsCil21fzrA/xJBL7nb5S4BtA9vCecAfqnnk Ly6dk4A8h+AQsT5/MIzi8LRplQDzCPf2Ky3+QPCp5F8hSkK422JWfak/KOzX crDftwku5Ivb9Jzzh9VzUhPculJgQjEqKNztD4ztC+u01slCGPlTtk6BH5gN JNyWkJEF7t4w6ZA8P9BJEN3FsV0WFgxaG8tv+gH3kKbvaytZ2OjdkG951Q9u nfdq9kuThclQ64j7p/xg6GdP/L3NW4EisViiedgPHAsfrMirykHqr0h9q81+ ANRdV/h3ysG7u+82ior7gTJ3i8ZvihxoPDdePbjBD+adv7jU+cnB15Illai1 fnCZX/qZ+0M5GK4Qsv/21xe6mUnh1w3kod8mLyH+rS+YqzCmxEwV4J/FDu/6 DF9YOBNS+cFeAWQ7laYpV30hf+LUqVxPBdCbvPi7J80XuEvyJLXjFWBxhstp 6pwvVOwe22v+SgH2+vzJtonxBUVbVuqJ/dsgQfB0UBXDFziOHyH82qMI6kK1 c7IEXygaiV0qtVSEC8Rnq0Q0fcH5QGrDMTdF2DZsHbBW3RdK+R478x9XBJ6r Ozw4lXzBN23mhGK1InyeVLkpvtkX3t4N6zlkpATVM3I9n1b5wqOeYyFNBspQ pRB7bPENC/JP0T0+kpQhRUTx1tZeFmTpUSz/OSlDL3shi9zFgqSrEirqx5RB tXxZKr+VBbRDj9+n1CqDZMCMwIVaFoh8GttPJavAckRzu2QhC0J/22z46qwK +S6SVisnWOCba7iy4qsKn8Q2el+PZYGH3dYfEtGqcLQpV3fPcRZYlE28Imer Qs35TT/PRbJA6ejpiKJPqmCRtnjf4QgL+rmeD4f4/QeeDNejGW4s2LlB9QH3 cTVQvdNFfL+bBe2cTk1tyWqwnnO4f86IBe5Tp0cvZ6vBsMFEv9hOFpzs+Cau UqcGRuvSFdz0sf35uzHmPOowceRXs4QmtudXsb58Rh1aiXrU7XIsmF6g+rpl qkNg9ffDsbL4/nhivPJ9daCq5DT1ybDgbtNYRUW7Ogzqny46sxnbJ+TLDwlr wD5FnSJpUWzPrfxH6aoGjH4oPTHCywKxGYf1U/ka4DAxO+q9BvM9mqBSUa4B bZLtyb95WNBW99XFbEADdhZefbVhFbaPvVPPltkO/GfGEsOXmHB3SfFqee52 yFhhew1PM8HrX+r121RNYD04pC85zIQ0ix8vItw1wfT1AO+mISbU3DQeN/fW BPol+yvSg0yQIM7rzYZpQm+QxVe190xoTHPpMLmiCSSzHH3ffiaoaCivGuvV hAKR3krfTibYx8aqPPugCdnGpl+udjAhruedZcpnTUjS66pqeM2Ed5HnMg3+ aIL2wna2ejsTkhqmdU+LaAHT/PsriRYmfHev8la10YLimlgb/1c4folY8rKT FmTa3+t7+ZIJB9awn3R5aMFBqRez0ujM+3JcRwO1oLfrIV9/HRPMFhIyWi5o gfntny6sGiaEm4/U3rimBWdMVxX2PWdCbrbhWNBNLXhzeeD8AfSiyU8dqYda MHTtqaByNRPuX7Ru9+3QAs5423frnmG8XwpmoB/bP3j48FwlE1Yb8mwWHdaC Q4UXRYXQrsNlXlWTWiDHrIuWqmCCoLo0p+B6behQflFu85QJhjGhSh/FtEH9 LfR/LWOCZ/dr81IZbXh76k9kNLo6Ii7dVUMbVu3uJz4uZUJA/VfCA3NtoIQe +Gb4BL8HFLLU7LVBpqD/+UAJE4Qq2Tl3XbVh6ebf2OPo4gd/N+QGaMNMdvyL 14+ZwKFaTd4arg1BRgcgCn0wNy4uK0YbHGu1cv5DT1/ln756QRuOiRuJXXzE hH0bO1TE0rXBaeSOPAV98Vza4Yu3tCEgfkR4NVonTrrz3GNtSGmknjn5kAkn F0d4+Z9pw/rWjxuJ6N7QPEh8ifML7w4TRIeythfH9WoDn0R0a04xE+o///66 8kEbro/FVgSixd2fbjn2RRs4pGKiD6C930U5LExow4s3UuKS6Ke2e5PD5rTh ytS/uF8PmMD7mqdhZkUbrk3W1DSjqaTm5SO8BEjhXf/6Djr/xXm9SSEC6Cqc LkxA/91l4+8rSYCYgU4HJpr8VDzv21YCvAk/89oSna79/oOnKgG85x02GKDH C7NFP2kTgM77VkYebajEMD+8kwCmfMW/hdBJN1VODe4ngKRgdDInemDzxDNn MwKUvB/9NVPEBLXLj2b6bQnAPxEr9h0dJRSmZu9CAF//+eVRdGvSTno3gwD1 u77mD6GleTgyrfwJMDH5c8Mg2v/4y+62UAKMthbs/P/z6r+J/JTjBBDqfL71 /+8LBpvvb0wgwLX7jS++od0mhI8apxAgrZEu+xtd7N33qO4qAY8pbb0VNMdo +viemwQof9++ShDjtXJxk6u6i8/V+xO2oG++kXcyfESAftb3GgJ6+uDYhbIK zN+Z2/fJ6H2thU06Lwgwp5NjRkenmhzhfNRCgJNNMZkx6I81uju29xDA0f1d xg30iSfV+SqfCSCTyM75jO7ZfmI47ycBBAZH8wXweyrcM5VQmCVAew1Q9dAv szoSZNbowNzNrQ8uoEUkLz3PWK8D3CrvbF6gGRcd5yQkdKDK4nPmHHp14kfP jSo6EBrtKOaN68ue605WipYOOHyY2Z+LvhPF6ltnqAOEU6ZCo2jikRljXooO eB8KPu6N6zfJafW2JV8d0OhITEnF9b9bU2D2W7AOHE4KExtET/FsaOiL0oGf R3UH/sP9RH0o7VN8VgeeTZ+Sakdv49W9TyvUgbzLu13VcX/2fzCMtirRAeV3 fhVJ6LOPwXLXMx1gr9c1G0dPu5pNibXqQP/sd/5i3N81T2i6zd+x/6RLA3bl TAg+47O67LcODCRtefkSrXQ44E3OPx2w7lrq18X6cV7gaMQxfl2YahI+IYP1 xZmWWqX5ny6o/1z9lK+KCbNCtcZXmLrgspU326SWCfe+1IudDNQF7iXhujdo l2etX9mRumAm/2qJifXwpVf/aXKSLmwjhVZdecGEC9WTbUt3dcGdV37X2npc v74y9vRvuqDqKKhnjfV3eK+C0sEpXeC8m8rgbsV6IK46v+uvLhQcGMt4il6o 000X59ODd3EUCSWs342S5oPNynrQ9/eVhhTWf1rDUU8tbz1op+Y0Mt4wgW6k aDEboAf39AjFBDwvPB926FaG6UF47JbwVW9x/2ds4zFO0IMOpfO5+e9wPwS8 zqHm6cF44F4rPjx/IsXlR45/0oPJN5Gzcp9xPXo1O7e768MvHfGLD2bw/Hof vP+itz64vl5rX/aHCZcObvmPytaHo0TZ3ppZJlzdGbwwclwf9khsXfV2nglZ 62Wu/cnSB33aqWVpPB/vlR3pk/qgDy7unYF/8TytXSN5kOVoANLNDMqEBAu+ 5GiQ3x42AK5qi8Mmm1ggAAf2mzINoL69yj4bz29qeICu/FEDIPCR3jni+T45 9kpyINMAzGobNo3Ks7CfwI/kYQNwPnRVz3w7CyLOtgapeu2A7PjrUSGmLNAS jrn8LdgQZKVHluqiWFDB+0a5IcoQ9pzTmPOOZsE+Do3K3JOG0PJQbY9QDAts JweG3NIMIXPIudQD70ehbfoqfY8NQeyQ9xbxJBY8Oz1ZWTdtCBdLFVqeXWEB kcttJIO9E2J8FJanH+N95fcuNQtfI2hYuONcP8mCm1mvpObO7QaeZKFLkdG+ 8Pi84UCXNQBx9ZDljJgfBFfssrputhdE7weuW4P37efNt6dPO++Df6uuxcWa +YOP6Y4qH+p+MHva6r55yB8y87WesJgH4M3LQLNtwQFw4XdVLDvMGF4ZGLwL nQsA/66Uw4eOGsO7UJHE3X8DwOwhbS/xuDHMzG+W5/kXAKsD+DhlE4yh2ZZD Onk5AKLGbWNeXzYG+XajVS1cbPAc+R6tUWoMQZWCgWV8bDB6LRn1Y8YYBvvT d8mLs0Gy6Idz/7wx0GnXV/9Bz559vvPlojH4HO7Vr5dgw0My418GtwlwKm/r 9NzEBsX64kiKiAkk1fJ1Z0uzQbjKNOIewQREgu49mpNnw5d7IaHegSZwzenV sLomG+yllwfzQ03Atce+6x/6VXK86bdIE+jzdeZs0mJDbvAVCeYJE1g/ckP0 MIENHrvLK1hpJjCTcZA3UY8Ng52Ly/6lJsC6J3Sz2IgNvfMnEkIWTID7z7lV PkQ2HGAJ/HqybAIjzKGb0iQ2lHxIo85ymcLfYwS/TnRq3W2VMH5TeOb9NVGP wgarsw0t4VKmkLr9bv2sORtat/ALRe02hfPd3T8tbNjw0iT1alycKcTHHznj 5MKGz56VbZHxpkDc96bkG3p1wieuoCRTkEqflQh3ZQOxQc+PlmoKWZMjyalu 2J/pwN4Dt0zhiMOsevVhNnQTFb7z1JlCUJRq/ySDDR/JpbtOcxIhrEfXscKP DatYQ4GxPEToNJuR1/Rng8IZ3vwIPiK0NfZL30Z7tjhtYAoTgfKo+PrZADaM U1a+kLcSIf/B7xcHj7Bh2oyYIrCXCGPPTVxLgtnAafnuY3IMEXKDrgb2R7Kh sdpOPvgkEazq1zzWOsqGFI1OGjWRCLYtcbJJaFnBxk+yKUSQUWLGGkSxAdqe fHl4gwhfQoqszxxjQwzlwnh3NRGIIZZTvDE430qB/57WESEjTnrIFi30XyIr s54IQnnkPzfQ2WuP/6C3E8Fa9MY1Qiwbapp8J/58IMKJEdMKqzg2cBCJ0+JL RLiVJy7tcRLjK3uhvchBgoYM3YBsdIrSnqBhbhJ8pO79/AEtu0ZvJl+ABLyi gkb2pzC+evnZHVIkiDFbOmsUzwZevRt6MrIkcErhnQtCd9zeFMalQMJ7yFDc PbT7KeH55v9IEFf+aVkkAedzYOWv804S6Itxxg6hiSWRWDxIIO+/ZXp9Is5H YTZSYT8JXk7Nxu1BZ6/6+e8HmQT+L1q5MtE1de+WjjmR4OpWjmDyaTYkatvv 9nAlQXRp10AQ2upWZ7SJBwnmnJwPZ6KHYxtXBJkkqPl24eU4mmNvKWd2BAnS 48s+RSWxwenA1+b+YyR4nyq64Ra6xFQiTTiOBMdrXmvXo70tIhVPJJFg5sMW c/4zbKg7WDBZeZ4Eko6bTNTQUnbvn86kYj4EDLXM0J3OuymeGSRoXn7yPhGt 5hYgcuMGCTLPRmTeRsd7ZH94k0OCnl+a5rVoQx8uNqmQBNsKzWP+oNN8CTvi ikmwKCnNJXiWDRMBdK7KEhLMnykJ2oa+FVqfplZFAtfYjdsOohcj5lwYtSQ4 9dWUzkDbH1NWynpFgpPiMqnh6OIYx199TZgfmnlREnrtyaTy9e34vcPOPc1A 0xMq44hdJBh3ulxcgK5O+kGJ7SPBDz/ZyxXooAsWg9OD+H19M5R70e1px+/8 N0qChcHlnmG08tViNv0rCdRSGv2+o+MyRnZc/06CqbxH0zPo91kbVvVNkiDq dhhtCa13a3+r4Az259P1nPscrrfbwZdM50kQ+1/0Gn70eP5t15hFEiTE6BkK oQ8U9imVc5ChnFrmIILOerBmaoqbDLocVW7i6PlHBhWqfGSQ2sJtLYm2LvU5 QVtHhsJyksYmdGF5ulmmMBmompSZ/z9fXdUi2itKhvk99TkSaPeaxcF1m8gw zBlhJIaueKGebyJDBoEfW6s3oEUbXI8clyODQedxZUE0uznZ8KkiGVaGDx7l RTe31ayaUiXD2nyHUk60QudUq8p2MigKHXz7F+cb3SN32YNABm/35dFf6P43 Nm4Z+mSw3iXb9wWtPXBSuWcnGSbywx4MoM8OPpkSAIyPqz7gNfrLyJcK4wNk mOJtE6tDw2fxk9FEMjj1WeQ+RqePEc3LzMjw+NM6iVy0xeS9IWU7MpyItXwY i86fHsg/7EiG8++off5orlmBwHQXMvzluz/shC5b9OcW8CSDbKpp7nb0Bo7s tgNMMugUiLtIoH1XdV4+5k+Ga5tNFlZwfcquJahMhpLh47Xe4RZ0oviceVcC GYpEIqj2/1+/jY2jdWfIcHDf1CED9I2I9IjHyWS492bIWxJdOrDrdtoVMlhM +17ux/31+cbJRfs7OP58wH4K+peVfappARm6Q+qit6EXOZWVDR6QoWe3Ws0y 7l8ReouNZBkZJNMzbIvQ+5Q3FAzUk2HjrPVzTrTF21FobSZDL7lBsQfrhWPS k75n7WQY3b364m00+weVK6uPDAHa+yOM0TeKbzi6fyFD6XtaeATWo0UDdd7P PBR49iNpyyOsd7zjy9d7+SggcItVG4zemNFBqF9HAe77Txh6aNWlILc7ohTg eDVXUor10rG2otRnGwVC73swC07gfElExsQBCizU7N/IwHpctyD5b5BIATmR khZxdFvB95TXZhTI8w3Hnyxs+LQu+VmxLQWm3eNmVdAbu3o3BtEpAE+t3g5G Y/xOtLq5ExSw/RobI4HnheCN8WGjRAos6qRZP8bzpHD0yErsWQow1++YNUN/ 9Y0xErhEgUr9sodReB65Hr9eKptHgfO9q2fbwtlglvvmHqmRguvf65p+CO6/ Mdem860UEPyhEPocz7NE9S9fuzsoMG+ZLmeCflE6o+D6lgIx7/aPWwZh/WoS vhE4ToGuBz1adngeKk9QLmYImIEIX+A5RTxf67W7Hw4LmcH7H95OGb5Yb8Kc OraJmmH9LPgjiL7B4bOuWNoMDuk1XJ5mskFsY3zCSw0zWG7ziC3wZgO3Qc3R n1ZmMMMz+G2UxoaRWB36nktmkB246b6/I96HxATPs6+ZgQerxquGygbmva9l N6+bwdo88wUh9ExXOj93nhncXb3uTpE9fk8FzseNpWYgH1Er8x7vGxr1bZzW /WZAdIk8tYL3kci1Xjfom82B8qDY0HsvG55nQdOlLeYg17BzOg0wHsKm3/Xy 5rA2fiG2Zg8bzjm3maiomeP9doeqyG48rwoJEz+NzGFR/VvWfUM2NFhw7Apz NYfWySb5u3i/Erl47d3pm+bgALJ8LxSwHvdu7Ay8bQ4lezOuD+D9jUP8fIPz XXPgVDmr/VuODT/T40rUH5rDs5/Srlu2Yj5vsc531piDyT2Dahbe/8If7don OWwODXOqT3pE2fChc+RuvowFzB4KUhrjYUOekGpEQ4YF+J4KVNKvDwCNL47z 3NkWMO/F7fL0RQCUVZ4O25drAZdXXaPo1wZAo+e3kKpCC5B7FWWn8SwAxp/l Bz6usoBMT6Iy56MAUPdR8r0xZAGykzIahtcDoKRWwS1M3hKy8hI3LB0JgNrA LcZKBZagPFfO+iQSAFmy2VK7bK2AOh75LdjKH6qiFji8O6xgLDM7OC7ED7ZS 1izKOxyE7EcS0/v9faHktcqZtz0H8R44r67CYMHZ+mVNWRdroJZK7H2jh7/v gr4x3d9bQw+HET1C1AeiRGXWyznaQDhfC3/1ghfcVeFpDh62gZjG44yvXZ6w eoZTstbVFiRs9nA6dTNgvvjq+U/utjCsbRu97zUDvvtt5+al2cI8M8pEvYUB HV8PTVp42ULM2ol6vhcMSB8oe/U+wBaUWbxTg48YoPHCL3A+xhbY47a6S6kM sE9927I9xxas0rkICnYMIFqy99rcxv5+bmK5HGTAToE1ZaF3bKFjZ6v3NXMG yMbr3KoqwHi0nr+UNGHAeERyOKUE43lW5Gekz4Dow8bbvF5h+9jKFYFNDLij +TA666steO8IOTw3Qgd/0am/Zd8wPlbbl+xBOugsaIZ0freFX6mf08wH6FDz opjF/csWeOskjhb30KHfvpjKnLeFsXqjwcwGOvAee6Ctx2cHv3acjNxYRAfv pvtf2lTtIF9RYWfaMTpoFP08/FXNDp6Whaffi6TDTKr6B47tdpBi3JvzMowO MYfudxMIdiAkDq9WBdLh6mRhzbWddkAsCygr8qRDo2hhOsPMDhr9PFZVWtFB xeOexZKfHUCZz6dmJXx+3bB4OsAOhg++103cRgfPt83CY0fsgC35WJ0kT4dc q+89XSF2UNNeJtMnQwfZPWrO+ccw3sMXfKTE6CAmVeRlcw7jyfWrc+GhwxOH 3U3EZDugRrzZ5rCKDrYX21V3X0D/+Opty0mHC2snfypfsoPE/UcznZZoIPB3 e/ByJsZz/78tl//QgKvvYczdQjsYS+B91fqFBjeF933MKsL53PTr5/lMAzDv 2p9WjPH8EVi9f5QGx15Orz5egs8vt1U3DdHw/kE4Z/vMDq5KegvyvaXBRPKT aystmL/NP5jWrTQ412L8b6bNDopbw0fam2mgtqbv0PhrnL+7UpFlEw18ome3 9HbbAcfIBkfXehp88tXPuzeAz8XPuBXX0GCAVP7I7rsd8NLuxKuW0mCfZS41 5CfOn9L5qLuEBvdsk5fTJu0gWz0F4h7TINKNQe75jeO9O582WUyDTSHCH60X MX4fk7v8hTSIi1xMCFzGfGbX+g7fo8H48a/qqRz2MMyKL6+4S4PypKqITm57 yL85zhVzhwbUbB9hq3X20DEbNmKeQ4Oa27ZlAeuxvei5o5a3aKBcsMclWdge sn0lGuxvYj6eiN5tF7UH2Z6W+NAbNLjSUgvmMvaQWHRb718GDZY7Cr/4ytpD TIzbuCras+/K2bNy2F+tTrh7Og30Rvz6WxTt4ZdEvt6HqzTom5Vkk7fbg+Yb x3bpyzTYvcgtxtSyB/c7pz9GXaJBHuevytMEtNHvvyNpNAgVqF/TpI/jTyua Vl+kwaDww/tjO9BBlgm6aBPxTBteI3uoifAfepRKA1G5wBumYA9CLYd/PL9A gyglF2OvffZg9TinwBL9SY34Pf4AxnOo7MrnFBqYaRMu5JnYA/tQ/5NYdIm+ jH49EZ9rHOBXQEvt4vvwmYzzMTS83ppMg5P7ZuJ4zLF9xz/2UfQP0yHlbZaY L5XWM5poW/Pm9gMH7SGF+Wv6+3kaPLN+Eky3wec3HxTcRytQszedtMP+G6wr Q9BnXc7U5Djg81oFpQPoGY9QzxeOOJ5L4IwE+pD3YYFRZ3sAhyTlmXM0eOln 9ojLFedjW9XYi1YL0qfKuWO+vrq8q0JfDJdb3uuB+Umu8ShELxxbl3uYjv2V 7vS6ifY4MU+K9cTvVar0MxPdnDg6me2N/XcP/s1Ca59vv1TDxP73VKXeQadf LN857GsPHJu3VpWiua7ljqz4Y39BzOhWNDMrOWHLEcyHyb+BMXRXTqT6niBc X1H6A/wY/waO0nLDEPwejumJ2mibQ1PGemH4/Hbjajd02lO1Lq0IHL9LxekC ukfE21X9KObjlWJCE1r0SM648jGcz7BK6hrMr33bYKjCcYx/Ies4Bf3mlF3y 5hMY3+SljZ/REh9TNoufwv76Z+sM8ftRd7fe2ZCAHk7wvIx+N7uvhu8MxpPL m+mG62GTTbQZzznsf9eoXhva+UF5P0cy+sGLN4Dr6b2X5tRcKq6vTVG7DHG9 Sb1kHfudhvN9ReavQbvI3uGbvIzfu0BgioLrdbBfWu5LOrbv8xILxfUso+tY NJKJ+cpb5SaC693tQprhhywcv+lK51P0MInfpufW//dbtYkI7g/ZPJOh17k4 vqObdQv6MFccqyUP5+svmp54jQYfK+ZP1N3D9WM8MSmK++3zf19Kih9hPPSP OlFZNFBM3Lq3sATz+/NhNgP3q+enQ213StHPxf3ssml4Tnd/zqrAfGxbZUjE /T6+rlbsXB3Gx62/7WgeDVSZi7cSX+L+9D8rdhXrBatef/vJeoyvm3quMh/X e3SR6dFmjN9jVFqsAOvjZEa4Txeuv70/zTZhfdIwe8PN6MH+X0j/YD2kQUD+ hgvufdj/OI/ey0c0+OV++q7DO/xewhXvE5/Q4Hdn6Dvjj9ifr+Zfj0qsN48P GslNY3+5u5NdG7G+G+i1b5zB+Yp/0xPBeiv7bJM7zyzmgz8ouaOFBsSXoyfG /mK+J5QYLq9pcK0npKWI0wE0M0O2NvbRwPDPNaedwg4w7G3U+xnPA4uI6B9q Gx0gpVn4Hu833A9LHtEyog5QkxMUrv2dBkk8arc4JdHkHSIZk1ivRau/Ncg6 AITlNNbMYz3R+xhuq+kA7oNWmh4CdEipqF9rou0AxQElDbOCeN7tLsjU13EA jrmKW6nCdGg1Ca7ZZOAAVgbeesN43kk7rOYd2eMAMccuO3RvpUN1mOoVP0sH YEslZkvvoMPK08An8f44XoVAKs2PDu9XPzpzi423S0n9Zr0jdKiwnTpcHYjv Nx3cvzGEDsG/AgRnQ3E+RarCY1F0GFPy82Icx/EKM5s4z9Gh67KX5IEUbO+X v+0f3g8efMqbdEvF8bgLHRmP6XBW+8uro2kOICTYrf22jA6m7fTAx1fx/dLB nx9q6PCMx6NF7ibGo5RrcKibDreDDx3jfIT58Sc90VqgQ1xdho10CfZvEqK/ Y4UO7kIDKjtKsT1l8SWZmwGbCh372BUYX8evzWcFGXB+1H77cJ0DdJx66p8o z4Bw64Mj1d043vVrVD9LBlA0TYyj/qBrareLPWAAR28vZ/Acvp9XsLJcwoDS CEY1668DZItGGk9VMEDuxUl95yUcX+oycbqeAQt2L1QMeaggdPrDK88hBtw7 CoLzIlQYnvdkymzwBL4GwzdBOlSQNV/aPBntCdWs5ossPSp0/H3gIBzvCcFC TlY0Aypkq/VU7DrnCcOOEU3WRlSwahEQfJLhCU9/lFVqHcD3r72Nlyn3BO8N utmTNlRw95mqHPnjCQ0u231YQVRgR0ZTD4Z5wQaad+X1ECpoSkLN8xgvcPW+ ua4jDOOj7X+yM8kLZgM3PtKJwvd/ZHsduu4FColzC0snqRDzc2/X3pdeEPPo +dmUy1T4dfnu9xwRbzBcY1X8pBznY1ghvvLcG+IFTnONVaJZX6S3t3hDp3Cd 7aZq9LfiCr8+b/CW0vkbXYfvc8y+FfvpDVe0JPYRW7D/nJxMyc0+MOM83P3u PfrBqryxCB+Aw5KK64bQ/1E3rI73gTOe1uF7RqiQ8rzhunaqD8gdeSmV+5kK NeNsnfJ7PnAwPp/hN0GFYu1G62PvfSDzzEjZjV+YH7eauyLffGAsZdParmnM 78gaRuUfH4jJOFukN4f9f7b8T389E1qzX3H4/MX+bZ+ZCkgxQTxv2TrjH7af tfz+S5kJHgX6t9uWcDzdBpnPukwoKmbPrazgeIIj42P7mPA/MNHLgg== "]]}, Annotation[#, "Charting`Private`Tag$15385#1"]& ]}, {}}, {{}, { {RGBColor[1, 0, 1], PointSize[0.01], AbsoluteThickness[1.6], PointBox[{{100., 210.}, {140., 714.}, {180., 1156.}, {220., 1294.}, { 260., 1374.}, {300., 1432.}, {400., 1487.}, {500., 1499.}, {600., 1506.}, {700., 1508.}}]}, { {RGBColor[1, 0, 1], PointSize[0.01], AbsoluteThickness[1.6]}, {}}, { {RGBColor[1, 0, 1], PointSize[0.01], AbsoluteThickness[ 1.6]}, {}}}, {{}, {}}}, {{{}, {}, TagBox[ {RGBColor[0.6, 0.4, 0.2], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV13c81V0YAHAhREmhpEITKbMhqycrO0qZEVFkXdxr3mt0r1DI/N2r9Uol KiNbGkZZSZI9U4SorFBJ7+Of+nw/v3PPeJ5znnNsc/Q64czOxsZmiP8s/z/R Y6PExmYF4/teWNXd8YBzueNStXxWwCHXoa0y6wHdl4LF4jZawUhOcVm8rifU S99YtUXOCnSvthiPf/WEDP/ugUN2VpDrE/pcZhMJHAStYryeWcEJH7ITt503 tBucHu4PsAZdt68Hovp84WWZKfP5lA0kPM1N5S8MgH06ZPrgdntwyUi/MKge Dr28a8g/+B3g1PF7k18cIqDmvbrzNMMRvPJDXNaujQbaj4jrmaJOcJCnXvFr egxUy62NMUxxhsuvOnjSb1yDjprcyjtyF+AXv9Fg0OEEiFOTPUitcgGL1mLu Q6REaG39dl5L5SIwdstXGrolwWj1q57n791A5k3E723mySC7Mzogt8MN1iU7 RqtbJAOFYSx8p88NshsUuC2sk4Fdp92EMeYG6gv7W+hnk2FLzUilwQp3iO7M LnnlngymdbyZHfLuYCQUcHyIkQxljabkqWvuUBA8J/NfQTJcaetdvcvEA554 yZEl+VLAMPvm04WTHsB2VDWzeE0KrI6wdWm08gDVjIPc2gIpELe/t9rX2QN6 31/QsxJOgaSknqAqqgfkPL0/6iGeAjfNukftH3mA8XNJKVBKgey3Ha+u83jC 00qPjzFWKdD8uoUqUO0JNrzbdo6lpcDE7/R5x3pPeN9vPXLgbgrwyPv6FL3z BMmfG/LC7qfA0euCLta9nrCrWvaUwMMUyPc0P3nvpyfk1F7hEClIgZSN7dLK Ul7AKeJwu/5VCli7drXbx3rBgnjuofIvKeB3O8ssP8kLDjpIyzSMpkDih8BG zute4Jf0Va3jawq8URetysrwAtFhqxfj31NAbb1N9sxLL9hjn2yyNJcC4uW9 9MhpL/h5Js+sgYsAHy4Sq0OGBNOnCEOOXQTo3DXNbZAlwcaLj6B0NwEioFDz XIEEJOLDAzcpAl4GTs/cPUQC+SMDTW9lCFj9jXycpEWCSlXvhFBFAjI+BHKt siHBhvF+cuoRArrT6GSVKySYCF258ZElAdnqTlf3xZJge6JchJw1AWHd2ukS 8SRINKQE5tsQICnE1cxFkGCO+DBXYEcAOTJK5sMdEvy6b3X6vhMB/J6xn9zK SKCxy22/JokALVWm6a1RElyxpDW4XCbgFRdb07txEvxt0hzsiSRAu8XFkP0H CXxuXj5pHE2ArquK7oWfJLBmFBrLxBBgwOxTVWD3hsXw9pwPCQSYzeyQfL3Z G+bOU9vabxJg/yjv74SJN6QPstQePyHgo9+mYPET3lCe6GY4kU/AWc1LC2an vCFJl/PdnkICHLtOzhTbeIPEt+xDd4sJOM89Pxrm4g005fF74eUEeJxTbxW6 5A0t3+T++/mKgODNDQ/Virzh8D5awst2Ap6m58mfLfWGiOivtQ0dBCxIM4vp 5d6wveF2amsnxkPZqaqh0hs2fm1eN9RNgPuppS7LJm+wCeW7ON1PgN01xVWU EW8YfiNr//YLAcBx40L2Jh/Q2yXOCP9JQMiV8G/NW3xg0lAkwWGOgGfrXHxn xX1AuvKLKcwToCxxIFR1tw94Vk+N/1ogQEH9HVGv6APnpeDemUUCtvtz1Awb +gC5JrZyhJ0JK8fddoqF+MDXGt0GvrVMiJptoPOF+8Dn6VuaJejVS9KfF+g+ oO3qme0gwIT160bvfIj2ARvXNtuCdUyQOOQkHp3iA6mO8koGQkxQoduKzj72 AfkXKUd1NzHBc7OxQEOPD5QqmCwFb2fC1M7HXiX9PrD+VMwo1w4mkGX53t0b 9AHFpMWOeHTw0frY0BEfuDBVU3dnJ87ngg7fgRkfyBfTZy/dzYT0AnWuNF5f oMxxWBTvYUK7oewi5bAvSHxySF5SYAI3Q7gqXc0XvqvnuJEVmaD8bDHy3RFf yJ6pVhhDX9/7RlBa1xdsBg/HvlNiwpk1LjK9J3yhUKs55doBJgw13bHWdPcF BS6nhD5lJghzR0t4eflC8lfebM3DTNA9Qvpyw8cXQnbJVGegM3M1fH4G+MJ8 asWgmwoT3OJ7ojMjfGHWI3VxTJUJ02bCZfz/+UJ8dqRhsQYTdlxZDFFN94V3 pE/OfEeYYF71WdvlPnqn6WV7dLFifnPlI194euNYLycwIVDw+Ci51BeEdTon tY4yga0tamPPe1/gc3hxJlmLCQprSH3cbb5Qs6VUrhvtqGNxd3+nL/yd0BUU 12bCq6JdcnH9uB7OFesz0JFEle7RcV9IO/x9RZYOE/gtFykPOMlQ651sSD/G BMZ6W+Hb3GR4TNMcLkb/biwvTOYlw5La9rIx9JejwTPhAmRgX3y9zliPCS9k fpNst5Ch+cgrglefCfu/WAmcFCeDutLu9croh2llufrbydAkdbrRCU0IB34/ KEUGnjfu/8rRnv/m3dbtx/6dokkOBhj/Mgs+nkNk2O1Bmo5CW5NLHi4dJoPv +2cluWjdMb+x8SNkiOp7x/8HLfbh5/kaQzJI9A4uRRkyITn2FNdzEzKsk5l/ 9BDNq1d0v8CMDH+2c955g557Rh5KsyADV66RM58RE5oyZhyCz5FBTTT6/CW0 tsPJFT7nybB/h/G52+inmwvSXFzJcHEx5XEZOiPeZ+CUFxkqd//Z/R29xbAl xMiHDIM1h624jZmQuFJRTItChh1tR7vF0SFBU7bywWS4PjXVYIKe3W+2uDuE DJfvl6s6oy/+yLuxNZwMX9Yn/g1Cn3YidfNGkmEi6IHfPbSsyQ+L4UQybKeA yQ/0PZ7j8z0pZPgVombBZsIE0eocooWF8WutLRJAcyl7tr28jb8XbKTIoanT b8nFd8hAv+XUqY6efrxPKPseGRiFbxIN0f3bvp24/pAMwT1a65zR5r1G0/HZ ZHjU69tOQjcQjxMi88jQYJz3MxgNZqsVQgrIYEaK8rqMLuZzbyYXk4HqdVU7 Hr235o2XWxkZXM/qUVLR6WEyax2fkeHHURP2dLSI6tUcy5dkCFmUmchCx/38 any8igzGjiSlJ+j8/paTEa/JoPcowr4U3Vb71Kq8jgwmnvxNL9ALeen2U2/I EM1VEfoKveX6FWfJd2QQyztOqV+eH93H7UwLGUYifXLfop3crb2T2shw+2qf 7Ht01ClN//pOMqSl6sx+QD/S2EP714P5I9mztaObJNfTDwyQgfPJwMmO5XgJ /I5y+0QGvu6gH8ve8Hsw7s4wGayMhj8sW+VzfXLHKBnq9T6sWLZd45PraybI cGZyIbANHV6Umqb1gwwG2rzqy+Pdux2eETiN+dpVbtiMrot0fZz7kwy9p19m NKInSGb5wwvYPqDBpA691vpw6eZFMqTyxWtXoxW1tr0w+0eGMe/qqOfo03tX vYpkp4DcxMYtJegg4an65ysp8PM6/MtF31rqfDfDQ4GokEnFTPRQc2aP/VoK EJpP4gg0z9P4wZT1FBAIlyyNQcvcDRh5I0wBnrwf+y+hfSh6M4e2UGBA6YiM G5qwk//lIU6B7o97MuzQT4+J/LuLm9NSVsHfDL1CdJRXQJoClyfNxQ6gd3I0 C+jupYBoUdvPXWi9iZINVDkKsD89tHsDOv5F5PbRAxR4XeyUPIv7u/CBl5TY YQrsmU348AndEW8ha65GgWeLTp7NaLFzkioVmhS4Hv2yLAutabQW5nQo8EA3 0y0F7XxgXmevPgW84VdwGPoxd60Z6zgFEkeSn5qjVR6fdyXZUqA3fLrqJ55f uxQTrwx7CnyIOxPciw4POUjpdaTAV9tcZhW6zpQrXM+VAnoz1UsxaIuf91kS fhTg929JFUWTNYZrm69RYIhf7OYmrC+nPhu0zydSwHBwJHIe69PBqLwhMYIC pe1FI63ohffBKzxuUiCT89vKOHSw83rVVVkU+C6R1fQL6+GlmCM5R6so0Hh2 UrwU6+s5hfvPXF5TgO0LmRWL1m7nfXOtjgK276SvOaK5JNpH+poosBIe/eJF Rxe4bwvqwf4P5beewnod352anD9LgRyvGLlWrPfeof/Su+YpMHsyof0O+sRO 5ydsfzAeVc0rvdBCnvJNJiv8QIyb9o8bzVxRyz2+xg86B2ZI+/H+uC01G7RD 0g+oG/d2+GtifP1MHJKt/CCtfPbfY7zfWm7t1Y+w9QO/iW0K3uiFV7wKfvZo kd18B9DagrVsls5+oBLzsLxcnQm9uUfSNnv7QVa3/ZbXavjeGJMfSI/yg+iI Jf06vE/dbQTPPCnxA+dJ1WdJB7G+QKdlk7A/xBRubrLah/chofFgScQfZvmf eq9Efxi/91N2iz/sDuxuyduL54HpnXhtuz9s+bD4jgtd/5230VTOH2ouq9fk 4vvh/C31Ix/0/CGz592uOUkm/Pc7fVdnsD8En9aqtMT3yvoij+nBQX9oPCVj kbIB60v5jq9uaQGQtrS3NvofARV5eiuUbQLhzPTtqtlRfD+bBT7t2xUEN8sm d8i2EOBFtO9pkQoCSQ63W/3v8X3Wo3SjRiYInl9hO3YNXe/0PThXIQgcxl7K TDUTMOF/Tj1cPQgij1lql7wjQPG2ccXOU0Fw7HnavNFbAp5/3VbjxggC74qJ K2l1BFyWCz14NjIIBk1epVmgTci9GeZXguBMsN8kP/rjXyJSPT4I1KsJjZBa AtjXrdZfezMIrFKnbtnXEKB3aO5NfkEQ6A29zdqH79lWesP7X5+CwCAqfnrh Jb6v53Mz930JArYifft8dMXFlFCHsSD4z/2GqDs62+zsvvofQbC71iXk4wuc j/hcFGsxCIpHNTjfPifgcPk2OLQhGF40/mdehO/n29MBOWT9YDCc/mz5uoQA ofN2EZlGwcAmF6ARjb7apWXbezwYquOkacbogAp+Xu3TwcDRtp27A9/jZnH3 nAXPBUMoXfT09yICOPc0b8mnBkOyImunLL7fXR0kr/7IDQaNY7dSZ/MIuBl/ 5aJQQTBIJN3Y9Brd/PKb/uHiYNj34MZCClpZrJCH/iwYnuTmtCqjuXrg8ob6 YOB9Q1pNzyUg3dw6XP1TMBz4KVgonUNAO/35WcfhYLDdqqHFhl5VIAGRo8Gg k3PpQEc2AaR1I0vN34NBGSy1L6OPNPlSnf4Ew4yi4PqxxwT0Hov1vypEhTWT A3crHxEg4D95Om8jFTSVW8Nvo7UyTh5sE6WCTX1ZTTD6IafoT7FtVOB00bl8 CB1YmeGTv48KdvZ1nwoeEvB4ctWJDnkq0K7kLyWhP4p7KCwqUUGNfJZORuuF KE3qqFAhrmq89iB6g2qFR5cujqf1Q6siC/N7cYfxkj4VJhSlHt9F01Iv791h TIXtjC8hkeiheaNx95NUOLDxnZMpuqCwy4XtLBW+Fmkpj2QSYCo7c04ykArt UwF7pdH1A01bNlCpcMlouEEIrZnwsI0zlAovFHvr2NBKsw7HPjGo8PQQ/1DX A5zP0+Y9t+KpkPZ+/kY8+prb489Xk6igfFdWNRTNszXqZhBBhVd9Sqqe6F+h R/gtb1IhKvWYnTG6Vydnan0mFTTYevYLoE/NRz9c8Qjb277tX4FuynQ+N5lN BdtPr77OZODfv3xb294WUOHEgLV0F1r5+ULss2Iq5MRq2zai8zxbdR+VUWHD h/qpl+j091dLo15SwcBAVScTLUq/4O1fRQV+Pm+OW+ik/Vp7zr+mQktY285E NIP5+4bWGyq4ny1PoKH/6rWbKzZhfHIZfb5ov99P1mx7TwWV0NWxF9EXzriG LrXj/MSGN1qhP/LrKH/rwnhJUWdM0ZYVElM9vVTQk7JT0ke/917Mahigwu3C 7I6jaIMdnY5ln6jwUC72owq6qrVgc+YwFepei5nsR6tevtZKjFIh3oMhIYve O6arS/6O41WcmN2Ovn99+z/HKSq0Gi793IoWM1oqMZulwkIWx5lNaOJvFwnm qWD9ii4tjF6bWyQt95sK6Sb/2axDR51N+LT1L663xm9mDZptvceN1Ww0MPLd M8WLDqzWM//DToPm893mPOhp8s41X1fSwICaIcaFdtvNVtPJQwN2qxwTTvRQ R09ILR8Net3WDbOjbaNLDhXz04D17fvgCnSbStLkvXU0iPnorLNskwnPrCQh bC+QsnbZNbcMHC9tpAGP0A1Y9pHjuzd7i9LAVJ/oXHYpG3ur/VYaeHbd61ju XyG/L8ZEggYXi4fUl8d/eK5MR30HDb7c8OVbnt924ZQlmd00aOH3guX536gh lYhK08DpzGzv8vqEAoxIq/bSQOw/icHl9cdIS0kvyNKgu1DAeDk+K3s4Pn1R oIGf3qDEcvxCYgaut+2nAf/bHNvl+N5z13rKoUwDR85sVzF0g9GDLgVVGlSc U53agZ7cy/fLXoMGaZa0GWn0xjVeInFHMX6cBEkerfGt5dAzbRpUqWa6HEI7 vT1o8fUYDUYj23s0lvdz7FKKrgkNGjkE9h9Ht3s4FpHNaLCz1m6T5fL+NK5p TTfH9dSYBjks7yf+OMF/1jR4cSo9l4ImfZ9S3GeH4wtpMcKW90PTqRM2Dhhv 91VtV9Gf47YmlFzA/P6KGL+L5vUKzxu+SAPbuaAneWj548PvBD1pkL5ZcPY5 mro2m59EpsEz8Qc/ls/fhni1GKlwzOfgveqNeF7VSGmPTjNo8HH9orcU2tGU 8w0jkgYbBD7fOozOFWhcNRhLA8WlZs8zaL0Em8jU67g/kuQWHqI9vV9m1N6i Qdw+XuIlOsVsR83PNBpM1Bvnt6I/rRvnPPGABj5dfueX61FwYtAl3kIamPTw V5xBp/v031Euwe9K0yf90HUnNCvPP6WBxgHOC9fQQoK8bNUVNFBWWsdXjc5J SqUFv6VBZ7WesTzWx1bfvzezmnG+qlv7jNC/Tzo86/iA+9usZcIVfUxI+o9S Nw2EfBVi7qM/JpcGTHzB/TE037gd67Mg0eF7hi0EqrI1LxzAeh+yUOB+iiME 5E/IXbVAf7WOdzbmCoEXdVfFg9AV4voW6qtDYC69NrUC7Zn1VGWrSAisHr/f dgLvm4Znt1b0yWF/LF5KDN5HB8WDfrcqhsCkN+1+EfpO+OmZxgMhAPvWHxtA B+iuHX6mGgJhjq/7lPB+290cVnfzWAjcGzpq/Qkd/vncNVv7EPhIA8Ic78sJ HYgydwyB/T1Xexloy8wt4UbOIeB32iO5CC3r0eaj5hYCInLcViJPsF7P6Z7e 4h8C5hdFDn5GK/Pu2dobFwJpPdOacQUE/JCffGjzIgRav6cXHsb7X+S4wWPt yhD4fr1lzg8NHvey973CeKSYZxSiE7Ms8/7Vh4DLnLaxQikB+7dXFt1tw/X8 C3sqV0ZAkGBixfhECLByfvAfxfcH15xSe/DmUHDPLvAvwveLnFBch5NYKBRK 5luzVeD8FUc7jbeFQrek+kNDdJbnzR5xyVBoPdIc9xltNMI5WK0YCheVqtxF qnD8zrZxPgNsf73Om8D309Zy/xU3A0Lh3gtvrc/1BMxyW7u+Cg6F2UNd0loN mA9ztfcTIaHQP8Iddxft953tjnpEKDxssX/n/AbfJ9uuwEBCKAwdd1WabCTg UtTN0O2PQuFLgJbbFnwfjp6q/JvZFwrTfSY979sJsApY+dd6WxgsDeg+yBom 4MtA/tbW7WGQnF2RKv6FAPKxsxrGO8PAJdN3OgUdv6E89IhkGDTnz7TRR7Be FpLYd+7D9ksnHJzGMH5TPdzflMNgdZiTi/I3fJ9czF8fahoGkHBOQuYnAbU2 9lJ3Q8MggMObpcDFhFGhlzs7h8OggujU7pRjQvYGOVM9nXAorIsRfWDDhM3x p692pYeDOcmiciiaCWoDdKYFzyXQLtMrGHmOfy/6V7YIXLgEq2ct1LZ9Z0Lg EOdA8dtLYBrOlmsmzgL+ZvIf/Xfoams9HgkWpJcPbexrvgQLcg60F+jGxFem HK2XIHOBvUR6OwvEjjKqjndfAla6r+mfnSyousWRMfrlEgTMmVld2cMCXgt2 D1E2OoicWZtidoAFtzV9orNX0IGUpzD1C60k++k+cNAhKjG98c5BFtiurOo/ z4XtVV7//XGIBTkF4aYFq+lg6q4nd1mFBScEVuw32oS/F4r/xzrCguv1/37T FOkQtu/tCzN9FpjNyXDOKdGhOZ1bvB/Ns8NyjecBOgSkrvzpasACP2qeuJ0y HSS0t/0LNcT+5By0NTToUDrPpNw3ZgFfSlXskj6aaqHcZsYC6tkIiVAHOuhl NrhUWeF8Y59IzzvSwSV9fErVmgVfy/oUvZzo0Hm1vr0QbSl4UMf+An7nOJd3 z4YFB2q+uB7xoMPkRORV6hkWfJfRK/gXQIcF36M7VzuwwH6eVzcsng5nT7sN 3rvAAnfVYHaRRIyHYUCSgAsLgkLHX+Qm0QGOLp0LRhPcjYcGCFz/llkbE1cW NG2Mlda4RYc888+RYxdZoK68ds1iFh3q9i41z3iw8N4PrU96hOspu/jJ1BPn V/EjQiYb52MlwJaNJus1L1nnYbwanWwcvVjw2DJhsqyYDh9PPPCuJLFgc6Bg q381rk/p8gZTXxZIPafHr32N8Ysn299CH1wxa/SgBl3RcWcMfSK69XV7Pba3 OswfSmbBldSUkgPNOL7Xz3O3KCxg9a0kv32P6+cTtfiEztjmJ+/8AefjLK6y 2w/3T9bprOR2/G650PAQ/ats442ZXjpkCv7+meHPAq6lSIur/ZjvrUd0P6OF NBcEd3ykw6hpLlUsgAXyDZ0xJz7TQcBnLzMB7dKdGvJkDNu3qpy9GIj5F+NV 1R/HfAqEvLyFZjgGzX+cwPWC8J936LSv1iSBSYz3Z312hSAWdPze7Og1h/nR m983jOYJ0+ObmMf8BJ66sjqYBcorKYUuv+hQYdA7oIhmrW3iclzE/G819qGi 65J/5/b/xfm92pP9H/rXJkkrm390YLMS6atEW+8Me2TOzgCRnVwiHFSMV9Zj 8/ccDMisnZPYji6X7fprvJIBafKdooDecljR9BgPA3jK9fsC0EYv7H5Vr2JA 6Zrau0lomtbVdOBjgGXUWotsdL/x0OxhfgY0D3WE9qH5PwjcLl7LAOXyozMz 6COW6seU1mH7dIPjq2gsIPW5TuauZ4B8wpfEreg0RyJ1rxD2v2HVc3l080iV ZpYwAwSs7zdqold4/BjftRF/L5pTcRLt6K+nIS7KgHiuJjMfdOIieeTGZpx/ Zt1EKLo6/E68yFYGTBbMXYhBz3I1HU4RY4DpgF4VE70z5vendRIMkAjM/X0H bb5OMiZuGwPyLogKPEIziJMH+HYwoE4qcEUBunBzWH/kTgawtTx9W4YeTnsc ybmbAQECTb4v0Rt2d8mHSzKgQurOdDVa99HK7r9S+Pu5bfq1aD95RXrQHhz/ u7pfPTqjyG7vvAwDFjZ9CmhAt6tcbfPdh/HY8uf4srkrSkImZRngIkv5XYdW 1hmS9JDH79vU/GvQLg0C78cUMH+2qq+r0Kzj6kHnlXC8gTOfn6PrW113fN7P ABbENZegf1sRjfYHGXD2cfHVPPSegSpK7yEG6I1UCGairZ1+iFkdZgDJiLhw G311bHNdmwr2/1b8chL6maee9wk1BozO6HhGoidmyKLv1BnQ2T8pFoTeEnin 2vAI5k+bh+mGNl56614HGE8f3zYbdAj9t7COJsbLaFOXATqHR/JlpRauz+hj mjK6P/aki4YOro+eI7MLvVYwbF25Ln5nuQYILO+XrV3nCvUxv+MqJz/jfkpL X7lGwRDn6yI60IB+L6lYnG3EAKmjgVJP0IqKV3keHMd8/dL8EYh2LCl5ssMM 813ve9EWnag2ZJ12AuffnntbHT2jq56degrz8a953yKeF/aHmd38FgyI0hdQ 7kavXyPEw7DE/VTRyFGClv/w1dHTBvMdG9bjjna3Z4loOWB8A4Q96/H8Bldx 6JY64npLLp2/hb6yy8t3nxPGu21sIwmdOa7TtPECno8y2zvr0EP+M/QJd/w+ WyGvg/VhptvuiYMnnqfM8RZ+NLtGQ3+7F8bDnLyrA+uNBOedw5U+uD5Dg45z 6DPxJj9SAnB8udvHPbBetWdmWR9h4PmYMLp9BOvfMJ9wVGEEtt8QUz2D9XLW M6xIOpIBH7UfRGag1x+wEBC6guu7zzHKjTap5KwZvYbfT6p9LfNhQW2XvULi Dcz/8fu/u7B+t6u9seO+hfWBYyrSH/3lv4Mx1NsYP2uldEE05/k1I+fv4Prn hQKPYf2H6ac3VR/g+BOM+FvuLCjl3cAznI/n4Qlxnh3vF7GI16OBhVifXGZq aXj/MP6R6/mLcbwn43bzeF+Zzn64olyG8/GskRw+z4KRvoQ1MS/RKx/+eeiE 5+/JGkGlRsx/bbRdvz3epzLPZ2rfYv0YV7ughv50373V9h3un6GsWJYd7r/r b1Iut+B+Lby/zxDvSx1GtEh3J56XoMJrqXi/ki1WioUP43oE+i53mbOg+33h kvAI5kPncaEIGoycBh6OYvu6mpFTJ1mw+mh1Wus45udZjkUD3ud394TvkJrG /eH5SfGGCQta/i5KvVvC/TpTE9hzDPfPvVmlrSIRIBFZpPVGGeNhf3YFc1ME sJFMArrwPXJ0c2OTwOYIIO1vrB3G98qJxLuunGIRkHbsYP7Cfpxf2In/xndE gLzfxDVuBRaU2ObxPpXD739KdeukWKAh7D54+lgEROUIGTRuYEFNc0dOs14E dN6Q07shzILjMVpUA4MIEFhvd9BFiAVnOTZv1DCOAFZqSN+fdSy4NFVvtOtk BPD0k+V517Dg9VvJ0hm7CCh9xFZUyY73weXPcfF+ESC1uDkscYIJOgZxRgcD IiDeX0d56isTNPgP8/YGYn+JPbuNx5ggT8RFSNIi4Gyy83+Lw0wQzDhMfUFH i/nUHB5gQvfra64T8RgPFVVZmfdMcFmppq33CNdTLXy8N58JDvVfVnx/HAFh svSZvjwmWMcmvEzKwXh9a4rtzWGCkfCIysCTCKiIr7zR/JAJcrsSFfxK0TP7 PielM2FOe1Ts3mvsr/eJSUQCE37wJPXq1+J8l0QtT13D926j+vUfddi+ff3B 7bFM6DJPElZtxPgEal7Ij2LCMyeN1S0tOF/FiHOPQ5lQJDVW79+K/SUYtTvS mJAzkRS5tR2/S5eu3hDMhDTyGLtrF+aP/qvcx48JqcrJFfw9OP9jMfJbyEy8 rzRCCnux/2PqZ6u8mXClYkzVuh+/a43pOXsxgc5I/vVvAPszdB/l9GDC/xm7 UnU= "]]}, Annotation[#, "Charting`Private`Tag$15466#1"]& ]}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 175.05555555555554`}, 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]], ImageSize->{478.04761904762034`, Automatic}, Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "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.8805150769298058`*^9, 3.970629704365068*^9, 3.9706297519305515`*^9, 3.970629914410837*^9, 3.970630034957249*^9, 3.9706303023371196`*^9, 3.970630358202818*^9, 3.970630394427081*^9, {3.9706304395755606`*^9, 3.9706304618066*^9}, 3.9706306186084757`*^9}, CellLabel-> "Out[406]=",ExpressionUUID->"22619a11-6641-4e3f-b76a-b0dd182e335e"], Cell[BoxData["36"], "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, 3.970629704365068*^9, 3.9706297519305515`*^9, 3.970629914410837*^9, 3.970630034957249*^9, 3.9706303023371196`*^9, 3.970630358202818*^9, 3.970630394427081*^9, {3.9706304395755606`*^9, 3.9706304618066*^9}, 3.9706306299808955`*^9}, CellLabel-> "Out[407]=",ExpressionUUID->"80d9b2fe-5d84-445f-a8bb-62b66438838e"], Cell[BoxData["240.6933790572229`"], "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, 3.970629704365068*^9, 3.9706297519305515`*^9, 3.970629914410837*^9, 3.970630034957249*^9, 3.9706303023371196`*^9, 3.970630358202818*^9, 3.970630394427081*^9, {3.9706304395755606`*^9, 3.9706304618066*^9}, 3.9706306299808955`*^9}, CellLabel-> "Out[408]=",ExpressionUUID->"f412f6bf-bed5-482e-b25f-e0631b942a98"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Temperature of the corresponding altitude\"\>", "\[InvisibleSpace]", "36", "\[InvisibleSpace]", "\<\" km \"\>", "\[InvisibleSpace]", "\<\" is \"\>", "\[InvisibleSpace]", "240.6933790572229`", "\[InvisibleSpace]", "\<\" Celcius\"\>"}], SequenceForm[ "Temperature of the corresponding altitude", 36, " km ", " is ", 240.6933790572229, " Celcius"], Editable->False]], "Print", CellChangeTimes->{ 3.970630358312018*^9, 3.9706303945050817`*^9, {3.970630439669161*^9, 3.9706304619002*^9}, 3.9706306299808955`*^9}, CellLabel-> "During evaluation of \ In[392]:=",ExpressionUUID->"89fd35f7-b07c-4ac2-b48b-a48a210e34f1"] }, Open ]] }, WindowSize->{672, 305}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"12.3 for Microsoft Windows (64-bit) (May 11, 2021)", StyleDefinitions->"Default.nb", ExpressionUUID->"e19aebcb-49ff-4c81-97f2-ec73c4da823c" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 4933, 144, 295, "Input",ExpressionUUID->"6ed5a652-31de-42ea-a057-38c080240982"], Cell[5516, 168, 316, 6, 33, "Output",ExpressionUUID->"4e43c1ad-58a1-424c-9a5b-600ab9205e16"], Cell[5835, 176, 14165, 251, 232, "Output",ExpressionUUID->"80cf69f8-22e0-4a6a-861a-044649d03611"] }, Open ]], Cell[CellGroupData[{ Cell[20037, 432, 3737, 83, 200, "Input",ExpressionUUID->"c5c15ba5-f3a4-4d34-947f-9c8dc035012e"], Cell[23777, 517, 624, 13, 52, "Output",ExpressionUUID->"fdc64cf4-4961-4414-8c5d-feb35dc3710b"], Cell[24404, 532, 6769, 131, 238, "Output",ExpressionUUID->"eae90dc8-7a84-4137-b91c-0b7cfdad166e"] }, Open ]], Cell[CellGroupData[{ Cell[31210, 668, 5481, 145, 238, "Input",ExpressionUUID->"be66cf15-f89b-4c7f-9c1d-c21289bac521"], Cell[36694, 815, 293, 7, 33, "Output",ExpressionUUID->"ddffc8dd-6203-4544-9636-245766efa815"], Cell[36990, 824, 21920, 379, 229, "Output",ExpressionUUID->"d350f804-1e7f-4082-b653-9ae7fd09d914"] }, Open ]], Cell[CellGroupData[{ Cell[58947, 1208, 5609, 148, 238, "Input",ExpressionUUID->"405a939e-76a5-42c1-8425-a0f7e39652a0"], Cell[64559, 1358, 275, 6, 32, "Output",ExpressionUUID->"288adcfc-5695-4871-9ac6-d1af61a15d46"], Cell[64837, 1366, 12726, 229, 229, "Output",ExpressionUUID->"0132572f-9ef7-4c69-a0f0-6879171884ed"] }, Open ]], Cell[CellGroupData[{ Cell[77600, 1600, 3491, 78, 181, "Input",ExpressionUUID->"de43fd0c-4b8b-41de-98d1-a111942fe3d8"], Cell[81094, 1680, 278, 5, 32, "Output",ExpressionUUID->"6e493e83-31c4-41ea-bbc5-e3de8146a5f8"], Cell[81375, 1687, 3489, 77, 234, "Output",ExpressionUUID->"e9554dfc-1425-4f68-8e4c-c9dd31ffecae"] }, Open ]], Cell[CellGroupData[{ Cell[84901, 1769, 3645, 79, 181, "Input",ExpressionUUID->"ca9bedbd-500e-48e1-868b-74a6037700fc"], Cell[88549, 1850, 645, 14, 54, "Output",ExpressionUUID->"9555b575-aa67-4218-9f8a-f25481f6236c"], Cell[89197, 1866, 11310, 206, 237, "Output",ExpressionUUID->"276fad73-19c5-48fa-be50-0f6e435ecfe7"] }, Open ]], Cell[CellGroupData[{ Cell[100544, 2077, 6117, 160, 469, "Input",ExpressionUUID->"5ba2dab3-83c6-407a-842b-529a84adb9c8"], Cell[106664, 2239, 1498, 44, 369, "Output",ExpressionUUID->"bee3f9a9-faee-45dc-bbc1-229cf5083d2c"], Cell[108165, 2285, 1422, 35, 52, "Output",ExpressionUUID->"03bfe0a2-bd8d-4325-b0c6-63391938759e"], Cell[109590, 2322, 26137, 448, 303, "Output",ExpressionUUID->"22619a11-6641-4e3f-b76a-b0dd182e335e"], Cell[135730, 2772, 720, 11, 32, "Output",ExpressionUUID->"80d9b2fe-5d84-445f-a8bb-62b66438838e"], Cell[136453, 2785, 736, 11, 32, "Output",ExpressionUUID->"f412f6bf-bed5-482e-b25f-e0631b942a98"], Cell[137192, 2798, 691, 15, 22, "Print",ExpressionUUID->"89fd35f7-b07c-4ac2-b48b-a48a210e34f1"] }, Open ]] } ] *)