(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 62320, 1196] NotebookOptionsPosition[ 61170, 1153] NotebookOutlinePosition[ 61550, 1169] CellTagsIndexPosition[ 61507, 1166] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"iL", "[", "t_", "]"}], " ", "=", " ", RowBox[{"Piecewise", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"t", "<", "0"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"50", " ", "t"}], ",", " ", RowBox[{ RowBox[{"t", "<", "5"}], " ", "&&", " ", RowBox[{"t", " ", ">", " ", "0"}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"500", " ", "-", " ", RowBox[{"50", " ", "t"}]}], ",", " ", RowBox[{ RowBox[{"t", " ", ">", "5"}], " ", "&&", " ", RowBox[{"t", "<", "10"}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"t", ">", "10"}]}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"iL", "[", "t", "]"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", RowBox[{"-", "1"}], ",", " ", "11"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.4257430037071624`*^9, 3.4257430080976753`*^9}, { 3.4257430630025196`*^9, 3.4257431967959957`*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{-0.9999997551020409, 0.}, {-0.9963193849532845, 0.}, {-0.9926390148045281, 0.}, {-0.9852782745070154, 0.}, {-0.9705567939119901, 0.}, {-0.9411138327219395, 0.}, {-0.8822279103418381, 0.}, {-0.7644560655816354, 0.}, {-0.5090997149744965, 0.}, {-0.2706653971581751, 0.}, {-0.2670129411740394, 0.}, {-0.2633604851899036, 0.}, {-0.25605557322163214`, 0.}, {-0.2414457492850892, 0.}, {-0.21222610141200327`, 0.}, {-0.1537868056658314, 0.}, {-0.15013434968169564`, 0.}, {-0.14648189369755993`, 0.}, {-0.13917698172928844`, 0.}, {-0.12456715779274546`, 0.}, {-0.09534750991965954, 0.}, {-0.0916950539355238, 0.}, {-0.08804259795138805, 0.}, {-0.08073768598311658, 0.}, {-0.06612786204657362, 0.}, {-0.03690821417348768, 0.}, {-0.032946185359871726`, 0.}, {-0.028984156546255774`, 0.}, {-0.02106009891902387, 0.}, {-0.01709807010540792, 0.}, {-0.013136041291791968`, 0.}, {-0.009174012478176018, 0.}, {-0.005211983664560067, 0.}, {-0.003826530612244898, 0.}}], LineBox[CompressedData[" 1:eJwBAQT++yFib1JlAgAAAD8AAAACAAAA1ofG+tBYbz8fGutDY33IPxICeNJN Vns/nsFtzGxb1T8FPa1qZciFP6xXVzuPBOE/AHke7KPljT+IzncQaFvnP37a xzZxAZM/ZUWY5UCy7T96Fjm4rx6bP4+Z7Ef5L/U/d7Tx+E4tnz/91HyyZVv4 Pzop1Rz3naE/axANHdKG+z84x41dlqylP6TDFnnV7gBANAP/3tTJrT+BOjdO rkUHQJa98PAoArc/HRQ8/K/5EUAW5R7B0AW4P/ki4BaLxBJAlQxNkXgJuT/U MYQxZo8TQJRbqTHIELs/jE/MZhwlFUCR+WFyZx+/P/mKXNGIUBhAxprp+VKe wz/VAX2mYaceQMLWWnuRu8s/yPdeqImqJUBCHDWaBQPdPxR+eWBcqjZAHqjL ZG+25j9XG78Gh75BQENA2FILxe4/NPK42PAJSEBuutuWgyTzP0xTt5sN6U1A gvUBmag39z/Oh4m3eyNSQNB+kZF9Bfs/Equ5GUocVUAyx041KsD+P5+Lpfkg BlhALVjh9v5lAUDGGcBhXi9bQN7zT85ASQNAC+1cQnUiXkDy3xkwFlUFQPU2 lFV5qmBAkKt6Z1dXB0AI1tdIPDxiQEseEJrwNglAq5dc+OuyY0Bq4QBXHT8L QBuw+OtOSWVApksmD6IkDUAa69WbnsRmQEUGp1G6Mg9A5nzKj6FfaEA3UN80 n5sQQFbtnMIo82lA23CFPo2MEUBWgLCxnGtrQLA5WQ3FkRJAI2rb5MMDbUAi 8oqclJUSQFUamTS4CW1Ak6q8K2SZEkCGylaErA9tQHYbIEoDoRJA6CrSI5Ub bUA8/eaGQbASQK7ryGJmM21AycB0AL7OEkA6bbbgCGNtQOJHkPO2CxNAUXCR 3E3CbUBUAMKChg8TQIMgTyxCyG1AxbjzEVYTE0C00Ax8Ns5tQKgpVzD1GhNA FjGIGx/abUBuCx5tMyoTQNzxflrw8W1A+86r5q9IE0Boc2zYkiFuQBRWx9mo hRNAf3ZH1NeAbkBEPKRAZYkTQCqeADWuhm5AdSKBpyGNE0DXxbmVhIxuQNbu OnWalBNALhUsVzGYbkCZh64QjKMTQN+zENqKr25AHrmVR2/BE0A/8dnfPd5u QE6fcq4rxRNA6hiTQBTkbkB/hU8V6MgTQJZATKHq6W5A4FEJ42DQE0Duj75i l/VuQKPqfH5S3xNAny6j5fAMb0DU0FnlDuMTQEtWXEbHEm9ABLc2TMvmE0D2 fRWnnRhvQGaD8BlE7hNAT82HaEokb0CWac2AAPITQPr0QMkgKm9Ax0+q57z1 E0CnHPop9y9vQPg1h055+RNAVESzis01b0Avp+DlFPwTQDkFL6fgOW9AMT3G yg== "]], LineBox[{{5.003826530612245, 249.80867346938774`}, {5.00457196111723, 249.77140194413852`}, {5.008220344479634, 249.5889827760183}, { 5.011868727842037, 249.40656360789814`}, {5.015517111204441, 249.22414443977794`}, {5.019165494566845, 249.04172527165773`}, { 5.026462261291653, 248.67688693541737`}, {5.030110644654057, 248.49446776729715`}, {5.03375902801646, 248.312048599177}, { 5.041055794741268, 247.94721026293658`}, {5.055649328190883, 247.21753359045584`}, {5.114023461989345, 244.29882690053276`}, { 5.117981418181229, 244.10092909093856`}, {5.121939374373113, 243.90303128134434`}, {5.1298552867568805`, 243.50723566215595`}, { 5.145687111524417, 242.71564442377917`}, {5.17735076105949, 241.1324619470255}, {5.240678060129634, 237.9660969935183}, { 5.367332658269922, 231.63336708650388`}, {5.603719821759682, 219.81400891201588`}, {5.859919646336176, 207.0040176831912}, { 6.111442336081036, 194.4278831959482}, {6.346042993035078, 182.6978503482461}, {6.600456311075853, 169.97718444620733`}, { 6.837947596325812, 158.1026201837094}, {7.070761746744135, 146.46191266279322`}, {7.323388558249192, 133.83057208754042`}, { 7.559093336963432, 122.0453331518284}, {7.814610776764405, 109.26946116177976`}, {8.05320618377456, 97.33969081127202}, { 8.28712445595308, 85.64377720234597}, {8.540855389218335, 72.9572305390833}, {8.77766428969277, 61.11678551536147}, { 9.03428585125394, 48.28570743730296}, {9.286230277983476, 35.688486100826196`}, {9.521252671922195, 23.93736640389028}, { 9.776087726947647, 11.195613652617624`}, {9.779805117920063, 11.009744103996866`}, {9.78352250889248, 10.823874555375994`}, { 9.790957290837312, 10.452135458134421`}, {9.805826854726977, 9.708657263651162}, {9.835565982506306, 8.2217008746847}, { 9.895044238064965, 5.247788096751719}, {9.89876162903738, 5.061918548130961}, {9.902479020009798, 4.87604899951009}, { 9.90991380195463, 4.50430990226846}, {9.924783365844295, 3.7608317077852575`}, {9.92850075681671, 3.5749621591644996`}, { 9.932218147789127, 3.389092610543628}, {9.93965292973396, 3.017353513301998}, {9.954522493623625, 2.2738753188187957`}, { 9.95823988459604, 2.0880057701980377`}, {9.961957275568457, 1.902136221577166}, {9.96939205751329, 1.5303971243355363`}, { 9.973109448485705, 1.3445275757147783`}, {9.976826839458122, 1.1586580270939066`}, {9.984261621402954, 0.786918929852277}, { 9.98797901237537, 0.601049381231519}, {9.991696403347786, 0.4151798326107041}, {9.995413794320203, 0.22931028398983244`}, { 9.996173469387756, 0.19132653061217297`}}], LineBox[{{10.003826530612244`, 0.}, {10.00656596723745, 0.}, { 10.010283358209865`, 0.}, {10.014000749182282`, 0.}, { 10.017645059922955`, 0.}, {10.021289370663627`, 0.}, { 10.028577992144971`, 0.}, {10.043155235107658`, 0.}, { 10.072309721033033`, 0.}, {10.130618692883782`, 0.}, { 10.247236636585281`, 0.}, {10.500285185075015`, 0.}, {10.73641170077393, 0.}, {10.992350877559579`, 0.}, {10.99247039127118, 0.}, { 10.992589904982779`, 0.}, {10.992828932405981`, 0.}, { 10.993306987252385`, 0.}, {10.994263096945193`, 0.}, {10.99617531633081, 0.}, {10.99629483004241, 0.}, {10.996414343754012`, 0.}, { 10.996653371177214`, 0.}, {10.997131426023618`, 0.}, { 10.998087535716426`, 0.}, {10.998207049428027`, 0.}, { 10.998326563139628`, 0.}, {10.99856559056283, 0.}, {10.999043645409234`, 0.}, {10.999163159120835`, 0.}, {10.999282672832436`, 0.}, { 10.999521700255638`, 0.}, {10.999641213967239`, 0.}, {10.99976072767884, 0.}, {10.99988024139044, 0.}, {10.99999975510204, 0.}}]}, {}}, {{}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{-1, 11}, {0., 249.80867346938774`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.425743203624077*^9, 3.4257461018722095`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"vL", "[", "t_", "]"}], " ", "=", " ", RowBox[{"20", " ", "*", " ", RowBox[{"10", "^", RowBox[{"-", "3"}]}], " ", "*", " ", RowBox[{ RowBox[{"iL", "'"}], "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"vL", "[", "t", "]"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "1"}], ",", "11"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.425743211045904*^9, 3.425743277639228*^9}, { 3.4257460636222095`*^9, 3.4257460765909595`*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{-0.9999997551020409, 0.}, {-0.9963193849532845, 0.}, {-0.9926390148045281, 0.}, {-0.9852782745070154, 0.}, {-0.9705567939119901, 0.}, {-0.9411138327219395, 0.}, {-0.8822279103418381, 0.}, {-0.7644560655816354, 0.}, {-0.5090997149744965, 0.}, {-0.2706653971581751, 0.}, {-0.2670129411740394, 0.}, {-0.2633604851899036, 0.}, {-0.25605557322163214`, 0.}, {-0.2414457492850892, 0.}, {-0.21222610141200327`, 0.}, {-0.1537868056658314, 0.}, {-0.15013434968169564`, 0.}, {-0.14648189369755993`, 0.}, {-0.13917698172928844`, 0.}, {-0.12456715779274546`, 0.}, {-0.09534750991965954, 0.}, {-0.0916950539355238, 0.}, {-0.08804259795138805, 0.}, {-0.08073768598311658, 0.}, {-0.06612786204657362, 0.}, {-0.03690821417348768, 0.}, {-0.032946185359871726`, 0.}, {-0.028984156546255774`, 0.}, {-0.02106009891902387, 0.}, {-0.01709807010540792, 0.}, {-0.013136041291791968`, 0.}, {-0.009174012478176018, 0.}, {-0.005211983664560067, 0.}, {-0.003826530612244898, 0.}}], LineBox[{{0.003826530612244898, 1.}, {0.006674102776287787, 1.}, { 0.010636131589903739`, 1.}, {0.01856018921713564, 1.}, { 0.026484246844367544`, 1.}, {0.05818047735329515, 1.}, { 0.08987670786222277, 1.}, {0.15326916888007797`, 1.}, { 0.2166616298979332, 1.}, {0.33498553553823485`, 1.}, { 0.45330944117853644`, 1.}, {0.709769913545873, 1.}, {0.9615532510815757, 1.}, {1.1964145558264607`, 1.}, {1.4510885216580793`, 1.}, { 1.6888404546988802`, 1.}, {1.9219152529080472`, 1.}, { 2.1748027122039475`, 1.}, {2.41076813870903, 1.}, {2.666546226300846, 1.}, {2.917647179061028, 1.}, {3.151826099030392, 1.}, { 3.40581768008649, 1.}, {3.6428872283517704`, 1.}, {3.899769437703784, 1.}, {4.151974512224164, 1.}, {4.387257553953726, 1.}, { 4.642353256770022, 1.}, {4.761440091782761, 1.}, {4.8805269267955005`, 1.}, {4.938901060593961, 1.}, {4.996173469387755, 1.}}], LineBox[{{5.003826530612245, -1.}, {5.00457196111723, -1.}, { 5.008220344479634, -1.}, {5.011868727842037, -1.}, { 5.019165494566845, -1.}, {5.026462261291653, -1.}, { 5.041055794741268, -1.}, {5.055649328190883, -1.}, { 5.0848363950901145`, -1.}, {5.114023461989345, -1.}, { 5.240678060129634, -1.}, {5.367332658269922, -1.}, { 5.603719821759682, -1.}, {5.859919646336176, -1.}, { 6.111442336081036, -1.}, {6.346042993035078, -1.}, { 6.600456311075853, -1.}, {6.837947596325812, -1.}, { 7.070761746744135, -1.}, {7.323388558249192, -1.}, { 7.559093336963432, -1.}, {7.814610776764405, -1.}, { 8.05320618377456, -1.}, {8.28712445595308, -1.}, { 8.540855389218335, -1.}, {8.77766428969277, -1.}, { 9.03428585125394, -1.}, {9.286230277983476, -1.}, { 9.521252671922195, -1.}, {9.648670199434921, -1.}, { 9.776087726947647, -1.}, {9.835565982506306, -1.}, { 9.895044238064965, -1.}, {9.924783365844295, -1.}, { 9.954522493623625, -1.}, {9.96939205751329, -1.}, { 9.984261621402954, -1.}, {9.991696403347786, -1.}, { 9.996173469387756, -1.}}], LineBox[{{10.003826530612244`, 0.}, {10.00656596723745, 0.}, { 10.010283358209865`, 0.}, {10.014000749182282`, 0.}, { 10.017645059922955`, 0.}, {10.021289370663627`, 0.}, { 10.028577992144971`, 0.}, {10.043155235107658`, 0.}, { 10.072309721033033`, 0.}, {10.130618692883782`, 0.}, { 10.247236636585281`, 0.}, {10.500285185075015`, 0.}, {10.73641170077393, 0.}, {10.992350877559579`, 0.}, {10.99247039127118, 0.}, { 10.992589904982779`, 0.}, {10.992828932405981`, 0.}, { 10.993306987252385`, 0.}, {10.994263096945193`, 0.}, {10.99617531633081, 0.}, {10.99629483004241, 0.}, {10.996414343754012`, 0.}, { 10.996653371177214`, 0.}, {10.997131426023618`, 0.}, { 10.998087535716426`, 0.}, {10.998207049428027`, 0.}, { 10.998326563139628`, 0.}, {10.99856559056283, 0.}, {10.999043645409234`, 0.}, {10.999163159120835`, 0.}, {10.999282672832436`, 0.}, { 10.999521700255638`, 0.}, {10.999641213967239`, 0.}, {10.99976072767884, 0.}, {10.99988024139044, 0.}, {10.99999975510204, 0.}}]}, {}}, {{}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{-1, 11}, {-1., 1.}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{ 3.425743249326909*^9, 3.425743287373541*^9, {3.4257460689034595`*^9, 3.4257461021222095`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"pL", "[", "t_", "]"}], " ", "=", " ", RowBox[{ RowBox[{"vL", "[", "t", "]"}], " ", "*", " ", RowBox[{"iL", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"pL", "[", "t", "]"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", RowBox[{"-", "1"}], ",", " ", "11"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.425743291592264*^9, 3.42574331090464*^9}, { 3.4257460724815845`*^9, 3.4257460834503345`*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{-0.9999997551020409, 0.}, {-0.9963193849532845, 0.}, {-0.9926390148045281, 0.}, {-0.9852782745070154, 0.}, {-0.9705567939119901, 0.}, {-0.9411138327219395, 0.}, {-0.8822279103418381, 0.}, {-0.7644560655816354, 0.}, {-0.5090997149744965, 0.}, {-0.2706653971581751, 0.}, {-0.2670129411740394, 0.}, {-0.2633604851899036, 0.}, {-0.25605557322163214`, 0.}, {-0.2414457492850892, 0.}, {-0.21222610141200327`, 0.}, {-0.1537868056658314, 0.}, {-0.15013434968169564`, 0.}, {-0.14648189369755993`, 0.}, {-0.13917698172928844`, 0.}, {-0.12456715779274546`, 0.}, {-0.09534750991965954, 0.}, {-0.0916950539355238, 0.}, {-0.08804259795138805, 0.}, {-0.08073768598311658, 0.}, {-0.06612786204657362, 0.}, {-0.03690821417348768, 0.}, {-0.032946185359871726`, 0.}, {-0.028984156546255774`, 0.}, {-0.02106009891902387, 0.}, {-0.01709807010540792, 0.}, {-0.013136041291791968`, 0.}, {-0.009174012478176018, 0.}, {-0.005211983664560067, 0.}, {-0.003826530612244898, 0.}}], LineBox[CompressedData[" 1:eJwVxns41XcAx/EjqTyY43zxuB5Ce6KLVBjTvp/ESO6bcxQzqSNdfue0NpVc UuIgHp25lEs8pmII0+ZSTS7pHCmP9biUmssKSXkOJg7N1v54P6/32jCRv2AF i8WiH/vfPvGDxe5AETUxmNx1IFZGOStOP/HiRdPCFubRsaBeqrLj5hGBLJFW 8vmfZ6wcoawo7tuS0XSa3HWKHRE0TuMGpHbfKWVSgeuVUdS+o2d0HRqqufk0 I/etm8J6jp76dXrBe1MRXe6JqRUELVBHy16j+avF9Bhbw/hJ0hL9TJr+TU7l dXqtTTeqd4qF7cr/DvZ03KTnHO29q1xXI+d3uXz9inpqrO30oVqhBd1Rbku3 SgNVmA3rXrzPQba6l+S0aiPtsblgE55BkBX0s42MfYem+TwKN1qnA4li/4lD JvfoYmrwH8m+eniQN6HwL2yjvUqxN/aXctHaty9acqeTyuZDylLK18HZyDZP RflPqhMXFRpcbgduWedBUd0Y5RveWyVu2oldeOqv1j5FbWcanspV3SG8/Twn wWKWen5Vn68x4YXzc0q5ZfbztEucUh9t7o/uOIkkVmWJcioa9T2MArBV6m1r 1bxMiy5eV5iuCsSmwJH3ywIlSPWb94dYB2Fw1qcLu5Wh/i7YOdIsBDND+lt0 A1QwZ5cVEFUeiksVZw7x+auxpq/f3ckpDHu47Dy5nSoqLgcvTNYewJERFt+Y qsGwZmHSe7cAN/Z8qvmThQYMJnvzC++Hw3VVqd/trZoYj3mYUfxtBOx9h7YX 5bPBe1fQun72MJ4fT/wiPU0LvPiaXwqOHkWNw16NdgkH5keev2pTZmA2k1qQ lc1BgEHu9gZVBpnldzcczOVA/JB3oVKTwUlDUw/lYg5eWz0xzzZk4PTPWNLO Gg6qJmVh4dsYdDT/wGrq4sCRqRtec4DBX26XZuvUCPyOS154tTL4mtV6PkmT IMHUZ6OzjEF7w6wWjxD81q0eY9fFoMySv2XOgEDXJtnQZICBUI3LbLMieDEd t08+zWCpq2Ks2p0g4vtjT39cK4Q2T/qsLJHg7Em3nv54IVycrkGQQmBVyLKt ShIi0uxc6dp0gv72xuwLaUL0TTlG5mURbNbZyLe5IkSuuIqdVkIwdIs9kFot BLcx203UQkCnnw3tGBTCu+hE1YZ2gjd6mdB+JcTZRB+d1zKCHHgWv5kQYthP 9WVoN8FURlPY5TkhSt7ExPkPERRtLhmVq4vQ07139JOXBJ684C+lHBFW1tt5 do4RvI/VKb2qJ0J4glzfZYrA97E4wsNChJzDj+NZMwSLf6PD1EoEqU/5+N05 glKjRct5axEWbMXeUQqCAJdbqY9tRbAuHR7V/kDgqPLxHET4D0tNxtg= "]], LineBox[CompressedData[" 1:eJwV0XlM03cYBvByDQQEkS/ITWmRSwUCGJlQfKVM0AoyrlQwDDk6QPdrx3BR RBFQCLdAcWwwIjEVj3FtOBqm9B1jwHByOREBtahclY0jXEOL++2PN08+eZLn n9cmVhiSoMpgMA7S938O8q3N3qoR2K/hUif/WIh5M5bZDeoE7vjZhDZ6CrGt b2M2WYvApkXi0oibEBUtT4PtdQmErDSUqu4RonlVS+trfQJ1j1Zcd9sL8Whm qdV1QwIbEu+BcBsh1gfy5kzMCdyI6NW7bSTEF+4OoU+sCKw4GzQM6QtRz0yj rZRF4IgmP/D9FiGKptpztZ0ILLZOFhzbpNAtw4393pMA11Rly+oUhXEJ+vlS bwIVi/63rCcoFPPmFlKBwOwfxf6Hxyhc2XGz/W9/AqVpFjnV/RRKm0wjX0YQ kI/tU+NKKeS8YpR2pBLIrKGUJXkU6mUsWQ2cJZBmKunfn02h3PzND8/TCaSI x2on0ynMCu/uWb9MID4/4JCXiMKeniKGSwWBgK9ZJVMRFIY1momq7hHQDRpm cmwpTE73OJa6SuA7JcdP0f4FfmOcuNXurBHcO7G1wG/5NF6qScrdm2wM/PXk E7ppp7Cqr7KrWLQDnDnNs0x5Ep6nyhcsU0wg5oapZ3NgIs6edDA5HmsK6tPQ GzYswDylQv2FwAxGHwebfHIgAaVz/vN6kebArLG+E/BbHN7liTrPBFhAZ942 ZXdQLA6EdEXb8Syh2kqhI26Lwcv1P69meVtBp43Gg6msaExq+ivU0dcapHzN UZ9Po5DKPvSUY86Eq0dyLz4I52O+QGtDpZwJzAyexD0pHGWWJz8oiA2YfDTB 5XJC8JfNHDWnYhuQl8w8XioOwoGfuIoiAxbwpc36ZbYB2M0UdBWWsSBAoBbM HDmIOa3htRPabFg0rPVZm9+H0azx6KgiNlw/rHLOPt4Om0SPvvctoa18uUep bodqsvZxx1I2xDS3vxqS7MRbUbWR62I2gGn60YvTtrgkFkRUVLMBZ1atnySz MUdzMbD/LhvkuXNdWV8ysWFOg8PtZQOjsNHxvpIgw2vtvNOftJdPl39+gGBo 3kybQR8bLkU5KbdnGuL6zoee8kG63yUZSFLfjr6fXfW48IzuxXvnnY31UFyf +VX8GO34po4r3+ri9LuUH3nPabvvujZuoYOFleGuZhO0h5icfLYWDg+a7W6d ofcMdAsmXVXRgal7qkZBeyIn2ruFQf9befvKHO0YtXg74aaMqSO3D1ugXfNP c2b6uizl+KDAa4m2zxu+S/aK7Pe6Dglrmfb4sw/jeUuyZD8Je3GNtkd+lch5 Vna/7FrsyL+0U8/MPvR6LdOfyK2VvaMd/ysVVDYqi3U5J7+ppC11MdKOfCSr DF1I0d6kve0tN+5Cj+w/ZdHhCQ== "]], LineBox[{{10.003826530612244`, 0.}, {10.00656596723745, 0.}, { 10.010283358209865`, 0.}, {10.014000749182282`, 0.}, { 10.017645059922955`, 0.}, {10.021289370663627`, 0.}, { 10.028577992144971`, 0.}, {10.043155235107658`, 0.}, { 10.072309721033033`, 0.}, {10.130618692883782`, 0.}, { 10.247236636585281`, 0.}, {10.500285185075015`, 0.}, {10.73641170077393, 0.}, {10.992350877559579`, 0.}, {10.99247039127118, 0.}, { 10.992589904982779`, 0.}, {10.992828932405981`, 0.}, { 10.993306987252385`, 0.}, {10.994263096945193`, 0.}, {10.99617531633081, 0.}, {10.99629483004241, 0.}, {10.996414343754012`, 0.}, { 10.996653371177214`, 0.}, {10.997131426023618`, 0.}, { 10.998087535716426`, 0.}, {10.998207049428027`, 0.}, { 10.998326563139628`, 0.}, {10.99856559056283, 0.}, {10.999043645409234`, 0.}, {10.999163159120835`, 0.}, {10.999282672832436`, 0.}, { 10.999521700255638`, 0.}, {10.999641213967239`, 0.}, {10.99976072767884, 0.}, {10.99988024139044, 0.}, {10.99999975510204, 0.}}]}, {}}, {{}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{-1, 11}, {-249.80867346938777`, 249.80867346938777`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.425743313685872*^9, 3.4257461021847095`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"wL", "[", "t_", "]"}], " ", "=", " ", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"pL", "[", "t1", "]"}], ",", " ", RowBox[{"{", RowBox[{"t1", ",", " ", "0", ",", " ", "t"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"wL", "[", "t", "]"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", "11"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.42574332031083*^9, 3.4257433754511023`*^9}, 3.4257438546378345`*^9, {3.4257460868722095`*^9, 3.4257460924659595`*^9}}],\ Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxN1Xc01l/8AHCUrcLzGNnP85Edsknu204kfJGKkhDSIFFWeMysomRlZK/M zChlVaLMrLIyQhmZkZ/fOb/z4/5zz+u8zz3ve8993/smWN00sqEgIyPTICcj +99ZKzSZz54QofLyqSdiEHE9IcDFrxSddg3Z0KPe25lSaLLfcNU0zQPduSfp T8w0QkOdLULO1f6IwrbWpGXDGmlXT3UrpIWi1Bcz/esZzsjMwL9+W/MROsEk XayDeaFwdTz7lerH6Nr1/p6cDX/0Vi79RpN4LHoZoDBFHxGGVoVlGoXTEtCb qXOBPzKikBh3A2c4WzKyEhJ4vhT3FEnSiCiuaaaiBnJfbUnsGfpA7jwuTJaG nJVkaz6lpCKbv1WRF6rT0Rg4PY3fSEdky+THw10ykdxjl8p/Sdko/pfORJ14 Nroig3g2wvNR+0ifMjEtDxUfZTEfyChBDgOEqf8sCtBhpyMrxw+8RPu77aMD 2ArR/Pk4qam4CsQ1vunyR7MYzRHyozCsFk0Pp5w6gJWgkPtHLvQdeoPKhzT4 BMhKkXG9QF1TSj0y7A37eLa6DEXV1a1GbTQgni7J1FtPX6J97iZtTu+a0Ozn LtcQl3JURMPjupLUggI/cBFrxCvRi2QNxYXwVlRTm3+XJ60GYf1LWj0ZHSi4 2kBf3ucVqvGnWh3s6kSmFX8wA4tatMBeEil3oBvNFym3+7K9RhL/Ot1H43oR s9FE1KJmPVqrUVPgxobQXYPKLe+yenSjlOtoTeI39F3/gR099hapftCm7Dk0 jPJ1xVX4yd6hN7Qp6F3KCNLWdJ02qW5ANhQTgpEb4+iF+knjUaFGFJVe3pAz +APh1The33jaiB7UdHZffzeBRlXqHge5NKEZ7SXjxaQp5KlABVXiLeh0f3PT bPgsKhaNieFK+4j6nK+86sxYRP31zR7LHK2I2zvFYu7kEqIwW7dsi2pFUkwT xg2/lpCRv7moj98n1NH2QDNXbRktDhLfjF1uRytZShKm9GvocHOvi8nDL6jt izS/ON8/dDTq1qRq6xekfH79CPfvf0jVgva8OE0Huu/Q7PX+zTayX1JC1D4d SPlRHdvRcjKo4k2irbrZicTuZn066kwB5+5aJ3Gd6UafyLVO/RalguvqW4y0 od0oZf91D8McKvA9GENabupGprqxZ5mFqCEnvdmuTaUHkdL/MhYJ08D6ZxFp H/Fe1BqwHHThBB3ECS80jx3oQ4L7ywOdMw9CX7/XQm7rIFpdLbvyGeHB7oVM W9L+ISQUbW/9MQIPa74zuVHKQ+jd1Qa1S9/wwCp8zto9fwgp1TrGGt5nAWM3 mV6dsG9I5nBwlmULK0yG3Ln458gwMnwybSzkdhisBMQ0on+MIMmks7MW2rwg 8jBIKpx8FLXZdqa65PDC4vooXxD3KLpR5s7BTMUHvp/ittxNRlE8A+tGpj0f pLhQV1g1jqK7LFIzNjIEGHo7KiyVMYZOhWw/VvhKBLNLcYe+WP9Ayuu/qY6d E4A49kEfFZ8fiPK7nnJalAD0f+FZzEv4gRprLk5dbBUAc430rsCOH+jY+dT0 EhAES+HCOGWYQJkizws+ignB1aUGLJtzErFxRJE3MIuAa9C8/P2OKcQuLVr8 iUUcKkA6Z3ZuCo2vCtTeMBOHtfU7HOdpp1FuaS86lyAO7o5/N2VgGnEzmuXQ ESXAy5Dq7c+CaWQk7hB487Ak+HNy6ZmG/EScz4foBI8dg+hCbcujMIveCKQ+ JXpKQ4M+cX7OYhbxMtwqU8uQhpW5zfsvPGbR4LgQXUSbNJiJlSRLVMwiy1tm lpkEGeDJ4fp+THwO5fx+UTH0Xgayny9YyHH9QmKRisxXiXLw6knCBbT2G1Eb NbqOLynAYq1bntDXBcQ+Wb4Vwo4gN3L2E93EAhI6T3i/fRLB5cuX52eXFpCo 04Riwj0En/fryhYfWkT8oT706gMIXujyvFbUXkQ28u7yogYADn0NHafKF9Fd 9+ucTeyqMPKHacPx8RI66W3443ClGnwWzT9ZbLCM4j0P+SpKaEH12aHKZ7h1 pHJIsd+1TB8+Oq8FbDRsogbWVx/IZY2hhc59w5aTDEQHuokzJufg2HHXBL91 clj446ktHX4J7hRahfdV7IP0tresuE0rOM3ZUGB3nRKov0sLC12zBZGJtArh k9QQa0xYj3ZzgNE/t5kF9tHCRe2/NyTDbkCK1VtT4zE6OIsbrQ/KdIKF5oD3 1dUMcO8XpCcJuAC3k2K4ufNBeHP52/eGVFfIeiXLHSvICOcZP9w29rwHBaNa ibxUTHAcb5BkdtoT5BTYGGGVCWiIgSUaAfchhJaYsDnGDM8C+SjzHX3BlGV+ 361JZvAPqNKju+0LGKHOcewnM5inU9XZ3/OFWoXzKh8WmGFQtZZbLNAXFq5G jTzdZgbcZsKXumRfONdEISTNiQPH67z0XJ2+IEwaK7M3wkGrukrjSyU/WIko 5h4ywUEGXFBXVPWDd/H3Aw3O4cDZQmymVtsPLEo4zeQtcdC58rPig7EfPBr5 7+/+GzvO7tNcvOEH66hBNSUEBzW0XtL30vzg/WZ6W88bHKi8HjCxPUACY0qt hMcNOJjWqE1PwpNg+MDkVaMWHCSlRRl+5STBCo8weVs7Dg7OsjeeESEBUbVA uvEbDrCcaNwZbRIU6OiTkUZxsLSCM4rSJ4GC0e9WmMDBe+7gXz0mJNC/csz2 1RwOfFd0Va2tSdB3rUPKfQEHttkJq/nXSGDtcntbfhkHetLf6VedSfDbE9+6 vIYDpaes3mruJHAPeBlbuokDkS5V/UhfElBGmNo4keHBvD0wmBhEgocxq8ck 9uNhpUyjoOs+CTiTY//NUuPh6e0VieC7JMjMUvyYS4+H4/SJjCecSHCsqP+p 3SE8jHnInlmyJ8GrSg9rARweHja+ncm1IkHH+9qtVA48rI9VqvAYk8Ci4+KH Szx4KK0kLPfpkWCqfzuGm4gHF1tv2qeaJPg3oyoZJ4wH8tM4PRZ5EogcbLJ6 qIAHA608BSIHCV6yXpXQV8aD5FjJtylmEgAvzSY94IHl3IvRInoSmEqeehKk jYef7T77Nbf8wM+ordnbFA+fpqMLvYb9YCCmR+y6Cx6utTmnSWb5QRjv5IpO 0c4/fQFH8UzWD5JpRJRaSvEQJ5NIpJbwg5IFRy+tCjzoGsu6OAv5Qe+7xX3q dXjQsI3N1eP0A6LdP0blVjz4dhGsD5H7QWURi6j4FB5E+1Xp2lp9YVxV4xIz HwuoPCgnStr4grJ1anN/JAtYejn7B8X5QDl/TCH1NVYIvHoun03SG0rxp8I+ mbEBu5JoqiCLBzwTcGUqlmMHpaapBiXTu0Bndzn0qOBhiBm96NoWeAdUjwRx aeE44J8Fw6Nbv53BZv8RU8/fHMD60uQ3Td4tYMD5+et+49ypdxgfqHOEVPWz FxRquYCsbeOrWYMdbP+21al/yg327GS37gvawPBHWbExfx4Qp9RMvxxxGQrf e1YQrXjheEZxXwGZBfh41CdsCfHBgaRcte+0Z4EvjaxoLZYPEpsoDF6wGkEG zVB7PRUBjLnpXw6m6kL8mqZAEg0BGH4KNxvd14WHUy883ekIMN/c6PnNXBfc W3yEpQ8SoLLCpUOOXRf0g/lJ6SwEuGJbKDgTeQpWqB3lgvgJ4EYWe8+KpAMn qf8m6qkR4LSgXE2ouzbMUB526PUiQBJkvmzJUQf+iY6/0fcJIFhRcCY2Qh3M m8LCDXwJQOez+Nb9tjq0BZIVv/cnADuNjOzdE+pQQj21WhO6s34x5qRJhxq4 01YEpMQRoFxyUCR2WxXoDpik2r/c2Y+h9RDYAQjhH339O0sAb52eP8fHleCN s0zi0C8CUI/GZAWWKoHZl95Lr+cJYDcrmbzlpwTBETyTfn8IoGW6YH6LqART NPnLtJsEOH4/jdn+iiJkbzUxs9MTIe/IJ9usOXkQnNzUkxEmQkuDbMlZTBbq NFMYWUWJ0PaEn0x0TQZM09W7VsWI4PZ1NkrkkwwEXn5woUaSCKyltEEv3GRg YoDNQU1hJ17rkvN+p/9lfpYKMtAmwrgAY69egBQIVNvVO9oQoVfXvDsQJwnl 4Uq1mleJ0FHssIgNSYDmZYYqHnsiaCVijyKjJcCapqjosyMRtoZzOm3JJeC5 6WqyjMtOXJTmOsvIUeBdCvDe9COCx1v6BeciUWAXSzselkKErk1xFYlIQcje dpG3eU6EVfYa2/kzgiDfqSWtkk4EOUr9CSomQTB1/ykyn7WT/3TwT+nHAvC4 5RiHcSERJpP1qSOSjgCjzZs1zjoilGgRo9TeYUCbNPQyb4AIC8k/ZvP1+GDw Mtmc9RARHAzVTZM4+aDoCMbP850IJ8zm95d184JpgV3Uw1Ei/Kpu07LE80L6 q6Ubd6aJ4H+x4mBhLDfAAK0QWiUCJZ9C4ZFaDsAni11aWyOCZ97XQQNrDpi0 OhNTvEGE4hDBh4wMHBDx8/F+/n9EGD7xOei0xWEYWOcdoaHEIMT/dE0tFTu4 ssvFdzBjwBS2KuV2hwVODZp9CcVjcAm8an4eYQHuFA8aTVYMDLWL3y/24KFB sN614jAG43r8bm+U8MAkr/dfIh8GL+TkWI1ocZBvYsVgK47BIX9aG/23jDAW FeG9roNB4aHBB6batMDaHT/Zq4uB94bWdf53NHCSLcug/DQG/eGRYWeABvIT XhNvG2IQV1DlW6tCDa7p802zZhgofHHSWtOlBLpyo0PDVzG4muekOJ1FDspr F+/W2e+ch6ti+oEiOdxUujaSeA2DHNn+npBWMuiqI5Weu4mB/zvndpW5bfSs uexspysGOsoVzUblm0iyjzWlKQAD0/8uhTp9XEFWnBhtRhAGYarJQeYcK+iJ hYQzKQSD8z7xW+SOy2hjRFsDwjGonH9r6sn2BzX8vDtV9RiDlPiBWvHIBbQi FmAYG4OBzKGVoLmleSR881G1aywGXF0fP9pemEcRSzlh0okY1KQa+TLZ/EJn N/slC9IwYBA0q8Pv+4keqEzGhWZgMMWp9ktxbQq98lmicMjCQKz0OVPX4iTi o2ToFsjD4Hhjs9TVtR/o54ET91JKMDD2SP1GozmKuAx0Rr3LsJ0+CrndNiPo TJSJrkU5Bo95Te3ZwoZRGesNbo7qnfuI/kBa+jKEvHmT66PrMRC2Eqi63dKL /hhu2hjt1G1zUxT6drcHOfifo2NqxIC91mvho1Q3OjuN+y+iBdt5x+29ku86 UBun06reBwycDskxZMd9QRr6bQn0rRiwGnA6Pr/3GUmWBo8Ht2PgzPzOXDW/ FWX++BGs/QWD4X0BBJ2MD4iLXf0oVScG19k1TpwtbkG0Xlt3SD0YKJVW3Quk aEQ+hec51L5i0CV3Kz5L+x1aGamoI+vHwGgEY25PrkejWs7U3kMYWOhQHrBi rkVm99rzlL9j8M/jAlWvTDVqyxMz+DuMwem1vAIzrwqk8S3kT9UoBrmvVygm Z8pQDeNk7N1xDOTaj1P5+ZQgKXWNE/ITGNgIelQIHy9C2XdSR5YnMUiNtz/6 Sj4fPe6/IHJ7BgOHmaN1fUnpiO5AVduxOQzm5r0fRmikIl/Eenv+FwacuBCv KsdEtOZ0m61wHgPJm1uPgqdi0I30zzXXFzEoWj5/8cHmIzTec9RS7A8Ggzrq jV6Goeg8bej+mWUM0leen9DrJ6HPx6eyc1Z38i/k6JIJeiDtG5qn7dZ36j24 5K/Uxi1Ul/J8QeAvBk9CX7NeNrdCMp3bT35sYhBlHN7dzKaPciktlNL/YRBE SSUbwiSI+BSqv1mR8QPZ/40YBzYSgWLXB565CA7v2/UGucQtC+pd35IJw3PR 7nrCdrqyn27XnR/TyM0O7jr/CXu0EcuuiS135JnYdh270THQzr7rgEvh/Ke5 dn1RmKJcG9s1Y+3MV+Vju/a2dnu5KLXrWfp9Udkyu245z6GLV9j1/bWTtTMq u/4lnZkar7fr1lxLh7Wruw6K7f5bmrTrN/S8cW4sR/7fvyPT6U7573o4L2TF bnPXLVceGbntcSFn3IuAPfYOzbZ9vsec15p7BvbYVISyQn9r163ZPm4y/3Zd ZhncqbbHCewPJQz32CE4efL6HlPb1Z3N2mM1wU15ju1di3zf91hoj5me0s/L 7fEwFWf2f3vsNaHIHr7H1kmqLgl7rGeq8zlnjzmazIKb9pjC23K8a4+nZe1g bI8/z91MXNjjygy3te09/h9b+3lW "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 11}, {0., 624.8918619663268}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.4257461179972095`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxN1Xc01l/8AHCUrcLzGNnP85Edsknu204kfJGKkhDSIFFWeMysomRlZK/M zChlVaLMrLIyQhmZkZ/fOb/z4/5zz+u8zz3ve8993/smWN00sqEgIyPTICcj +99ZKzSZz54QofLyqSdiEHE9IcDFrxSddg3Z0KPe25lSaLLfcNU0zQPduSfp T8w0QkOdLULO1f6IwrbWpGXDGmlXT3UrpIWi1Bcz/esZzsjMwL9+W/MROsEk XayDeaFwdTz7lerH6Nr1/p6cDX/0Vi79RpN4LHoZoDBFHxGGVoVlGoXTEtCb qXOBPzKikBh3A2c4WzKyEhJ4vhT3FEnSiCiuaaaiBnJfbUnsGfpA7jwuTJaG nJVkaz6lpCKbv1WRF6rT0Rg4PY3fSEdky+THw10ykdxjl8p/Sdko/pfORJ14 Nroig3g2wvNR+0ifMjEtDxUfZTEfyChBDgOEqf8sCtBhpyMrxw+8RPu77aMD 2ArR/Pk4qam4CsQ1vunyR7MYzRHyozCsFk0Pp5w6gJWgkPtHLvQdeoPKhzT4 BMhKkXG9QF1TSj0y7A37eLa6DEXV1a1GbTQgni7J1FtPX6J97iZtTu+a0Ozn LtcQl3JURMPjupLUggI/cBFrxCvRi2QNxYXwVlRTm3+XJ60GYf1LWj0ZHSi4 2kBf3ucVqvGnWh3s6kSmFX8wA4tatMBeEil3oBvNFym3+7K9RhL/Ot1H43oR s9FE1KJmPVqrUVPgxobQXYPKLe+yenSjlOtoTeI39F3/gR099hapftCm7Dk0 jPJ1xVX4yd6hN7Qp6F3KCNLWdJ02qW5ANhQTgpEb4+iF+knjUaFGFJVe3pAz +APh1The33jaiB7UdHZffzeBRlXqHge5NKEZ7SXjxaQp5KlABVXiLeh0f3PT bPgsKhaNieFK+4j6nK+86sxYRP31zR7LHK2I2zvFYu7kEqIwW7dsi2pFUkwT xg2/lpCRv7moj98n1NH2QDNXbRktDhLfjF1uRytZShKm9GvocHOvi8nDL6jt izS/ON8/dDTq1qRq6xekfH79CPfvf0jVgva8OE0Huu/Q7PX+zTayX1JC1D4d SPlRHdvRcjKo4k2irbrZicTuZn066kwB5+5aJ3Gd6UafyLVO/RalguvqW4y0 od0oZf91D8McKvA9GENabupGprqxZ5mFqCEnvdmuTaUHkdL/MhYJ08D6ZxFp H/Fe1BqwHHThBB3ECS80jx3oQ4L7ywOdMw9CX7/XQm7rIFpdLbvyGeHB7oVM W9L+ISQUbW/9MQIPa74zuVHKQ+jd1Qa1S9/wwCp8zto9fwgp1TrGGt5nAWM3 mV6dsG9I5nBwlmULK0yG3Ln458gwMnwybSzkdhisBMQ0on+MIMmks7MW2rwg 8jBIKpx8FLXZdqa65PDC4vooXxD3KLpR5s7BTMUHvp/ittxNRlE8A+tGpj0f pLhQV1g1jqK7LFIzNjIEGHo7KiyVMYZOhWw/VvhKBLNLcYe+WP9Ayuu/qY6d E4A49kEfFZ8fiPK7nnJalAD0f+FZzEv4gRprLk5dbBUAc430rsCOH+jY+dT0 EhAES+HCOGWYQJkizws+ignB1aUGLJtzErFxRJE3MIuAa9C8/P2OKcQuLVr8 iUUcKkA6Z3ZuCo2vCtTeMBOHtfU7HOdpp1FuaS86lyAO7o5/N2VgGnEzmuXQ ESXAy5Dq7c+CaWQk7hB487Ak+HNy6ZmG/EScz4foBI8dg+hCbcujMIveCKQ+ JXpKQ4M+cX7OYhbxMtwqU8uQhpW5zfsvPGbR4LgQXUSbNJiJlSRLVMwiy1tm lpkEGeDJ4fp+THwO5fx+UTH0Xgayny9YyHH9QmKRisxXiXLw6knCBbT2G1Eb NbqOLynAYq1bntDXBcQ+Wb4Vwo4gN3L2E93EAhI6T3i/fRLB5cuX52eXFpCo 04Riwj0En/fryhYfWkT8oT706gMIXujyvFbUXkQ28u7yogYADn0NHafKF9Fd 9+ucTeyqMPKHacPx8RI66W3443ClGnwWzT9ZbLCM4j0P+SpKaEH12aHKZ7h1 pHJIsd+1TB8+Oq8FbDRsogbWVx/IZY2hhc59w5aTDEQHuokzJufg2HHXBL91 clj446ktHX4J7hRahfdV7IP0tresuE0rOM3ZUGB3nRKov0sLC12zBZGJtArh k9QQa0xYj3ZzgNE/t5kF9tHCRe2/NyTDbkCK1VtT4zE6OIsbrQ/KdIKF5oD3 1dUMcO8XpCcJuAC3k2K4ufNBeHP52/eGVFfIeiXLHSvICOcZP9w29rwHBaNa ibxUTHAcb5BkdtoT5BTYGGGVCWiIgSUaAfchhJaYsDnGDM8C+SjzHX3BlGV+ 361JZvAPqNKju+0LGKHOcewnM5inU9XZ3/OFWoXzKh8WmGFQtZZbLNAXFq5G jTzdZgbcZsKXumRfONdEISTNiQPH67z0XJ2+IEwaK7M3wkGrukrjSyU/WIko 5h4ywUEGXFBXVPWDd/H3Aw3O4cDZQmymVtsPLEo4zeQtcdC58rPig7EfPBr5 7+/+GzvO7tNcvOEH66hBNSUEBzW0XtL30vzg/WZ6W88bHKi8HjCxPUACY0qt hMcNOJjWqE1PwpNg+MDkVaMWHCSlRRl+5STBCo8weVs7Dg7OsjeeESEBUbVA uvEbDrCcaNwZbRIU6OiTkUZxsLSCM4rSJ4GC0e9WmMDBe+7gXz0mJNC/csz2 1RwOfFd0Va2tSdB3rUPKfQEHttkJq/nXSGDtcntbfhkHetLf6VedSfDbE9+6 vIYDpaes3mruJHAPeBlbuokDkS5V/UhfElBGmNo4keHBvD0wmBhEgocxq8ck 9uNhpUyjoOs+CTiTY//NUuPh6e0VieC7JMjMUvyYS4+H4/SJjCecSHCsqP+p 3SE8jHnInlmyJ8GrSg9rARweHja+ncm1IkHH+9qtVA48rI9VqvAYk8Ci4+KH Szx4KK0kLPfpkWCqfzuGm4gHF1tv2qeaJPg3oyoZJ4wH8tM4PRZ5EogcbLJ6 qIAHA608BSIHCV6yXpXQV8aD5FjJtylmEgAvzSY94IHl3IvRInoSmEqeehKk jYef7T77Nbf8wM+ordnbFA+fpqMLvYb9YCCmR+y6Cx6utTmnSWb5QRjv5IpO 0c4/fQFH8UzWD5JpRJRaSvEQJ5NIpJbwg5IFRy+tCjzoGsu6OAv5Qe+7xX3q dXjQsI3N1eP0A6LdP0blVjz4dhGsD5H7QWURi6j4FB5E+1Xp2lp9YVxV4xIz HwuoPCgnStr4grJ1anN/JAtYejn7B8X5QDl/TCH1NVYIvHoun03SG0rxp8I+ mbEBu5JoqiCLBzwTcGUqlmMHpaapBiXTu0Bndzn0qOBhiBm96NoWeAdUjwRx aeE44J8Fw6Nbv53BZv8RU8/fHMD60uQ3Td4tYMD5+et+49ypdxgfqHOEVPWz FxRquYCsbeOrWYMdbP+21al/yg327GS37gvawPBHWbExfx4Qp9RMvxxxGQrf e1YQrXjheEZxXwGZBfh41CdsCfHBgaRcte+0Z4EvjaxoLZYPEpsoDF6wGkEG zVB7PRUBjLnpXw6m6kL8mqZAEg0BGH4KNxvd14WHUy883ekIMN/c6PnNXBfc W3yEpQ8SoLLCpUOOXRf0g/lJ6SwEuGJbKDgTeQpWqB3lgvgJ4EYWe8+KpAMn qf8m6qkR4LSgXE2ouzbMUB526PUiQBJkvmzJUQf+iY6/0fcJIFhRcCY2Qh3M m8LCDXwJQOez+Nb9tjq0BZIVv/cnADuNjOzdE+pQQj21WhO6s34x5qRJhxq4 01YEpMQRoFxyUCR2WxXoDpik2r/c2Y+h9RDYAQjhH339O0sAb52eP8fHleCN s0zi0C8CUI/GZAWWKoHZl95Lr+cJYDcrmbzlpwTBETyTfn8IoGW6YH6LqART NPnLtJsEOH4/jdn+iiJkbzUxs9MTIe/IJ9usOXkQnNzUkxEmQkuDbMlZTBbq NFMYWUWJ0PaEn0x0TQZM09W7VsWI4PZ1NkrkkwwEXn5woUaSCKyltEEv3GRg YoDNQU1hJ17rkvN+p/9lfpYKMtAmwrgAY69egBQIVNvVO9oQoVfXvDsQJwnl 4Uq1mleJ0FHssIgNSYDmZYYqHnsiaCVijyKjJcCapqjosyMRtoZzOm3JJeC5 6WqyjMtOXJTmOsvIUeBdCvDe9COCx1v6BeciUWAXSzselkKErk1xFYlIQcje dpG3eU6EVfYa2/kzgiDfqSWtkk4EOUr9CSomQTB1/ykyn7WT/3TwT+nHAvC4 5RiHcSERJpP1qSOSjgCjzZs1zjoilGgRo9TeYUCbNPQyb4AIC8k/ZvP1+GDw Mtmc9RARHAzVTZM4+aDoCMbP850IJ8zm95d184JpgV3Uw1Ei/Kpu07LE80L6 q6Ubd6aJ4H+x4mBhLDfAAK0QWiUCJZ9C4ZFaDsAni11aWyOCZ97XQQNrDpi0 OhNTvEGE4hDBh4wMHBDx8/F+/n9EGD7xOei0xWEYWOcdoaHEIMT/dE0tFTu4 ssvFdzBjwBS2KuV2hwVODZp9CcVjcAm8an4eYQHuFA8aTVYMDLWL3y/24KFB sN614jAG43r8bm+U8MAkr/dfIh8GL+TkWI1ocZBvYsVgK47BIX9aG/23jDAW FeG9roNB4aHBB6batMDaHT/Zq4uB94bWdf53NHCSLcug/DQG/eGRYWeABvIT XhNvG2IQV1DlW6tCDa7p802zZhgofHHSWtOlBLpyo0PDVzG4muekOJ1FDspr F+/W2e+ch6ti+oEiOdxUujaSeA2DHNn+npBWMuiqI5Weu4mB/zvndpW5bfSs uexspysGOsoVzUblm0iyjzWlKQAD0/8uhTp9XEFWnBhtRhAGYarJQeYcK+iJ hYQzKQSD8z7xW+SOy2hjRFsDwjGonH9r6sn2BzX8vDtV9RiDlPiBWvHIBbQi FmAYG4OBzKGVoLmleSR881G1aywGXF0fP9pemEcRSzlh0okY1KQa+TLZ/EJn N/slC9IwYBA0q8Pv+4keqEzGhWZgMMWp9ktxbQq98lmicMjCQKz0OVPX4iTi o2ToFsjD4Hhjs9TVtR/o54ET91JKMDD2SP1GozmKuAx0Rr3LsJ0+CrndNiPo TJSJrkU5Bo95Te3ZwoZRGesNbo7qnfuI/kBa+jKEvHmT66PrMRC2Eqi63dKL /hhu2hjt1G1zUxT6drcHOfifo2NqxIC91mvho1Q3OjuN+y+iBdt5x+29ku86 UBun06reBwycDskxZMd9QRr6bQn0rRiwGnA6Pr/3GUmWBo8Ht2PgzPzOXDW/ FWX++BGs/QWD4X0BBJ2MD4iLXf0oVScG19k1TpwtbkG0Xlt3SD0YKJVW3Quk aEQ+hec51L5i0CV3Kz5L+x1aGamoI+vHwGgEY25PrkejWs7U3kMYWOhQHrBi rkVm99rzlL9j8M/jAlWvTDVqyxMz+DuMwem1vAIzrwqk8S3kT9UoBrmvVygm Z8pQDeNk7N1xDOTaj1P5+ZQgKXWNE/ITGNgIelQIHy9C2XdSR5YnMUiNtz/6 Sj4fPe6/IHJ7BgOHmaN1fUnpiO5AVduxOQzm5r0fRmikIl/Eenv+FwacuBCv KsdEtOZ0m61wHgPJm1uPgqdi0I30zzXXFzEoWj5/8cHmIzTec9RS7A8Ggzrq jV6Goeg8bej+mWUM0leen9DrJ6HPx6eyc1Z38i/k6JIJeiDtG5qn7dZ36j24 5K/Uxi1Ul/J8QeAvBk9CX7NeNrdCMp3bT35sYhBlHN7dzKaPciktlNL/YRBE SSUbwiSI+BSqv1mR8QPZ/40YBzYSgWLXB565CA7v2/UGucQtC+pd35IJw3PR 7nrCdrqyn27XnR/TyM0O7jr/CXu0EcuuiS135JnYdh270THQzr7rgEvh/Ke5 dn1RmKJcG9s1Y+3MV+Vju/a2dnu5KLXrWfp9Udkyu245z6GLV9j1/bWTtTMq u/4lnZkar7fr1lxLh7Wruw6K7f5bmrTrN/S8cW4sR/7fvyPT6U7573o4L2TF bnPXLVceGbntcSFn3IuAPfYOzbZ9vsec15p7BvbYVISyQn9r163ZPm4y/3Zd ZhncqbbHCewPJQz32CE4efL6HlPb1Z3N2mM1wU15ju1di3zf91hoj5me0s/L 7fEwFWf2f3vsNaHIHr7H1kmqLgl7rGeq8zlnjzmazIKb9pjC23K8a4+nZe1g bI8/z91MXNjjygy3te09/h9b+3lW "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 11}, {0., 624.8918619663268}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Input", CellChangeTimes->{ 3.4257433774667144`*^9, {3.4257438736378345`*^9, 3.4257438878565845`*^9}, { 3.4257449764659595`*^9, 3.4257449805597095`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxN1Xc01l/8AHCUrcLzGNnP85Edsknu204kfJGKkhDSIFFWeMysomRlZK/M zChlVaLMrLIyQhmZkZ/fOb/z4/5zz+u8zz3ve8993/smWN00sqEgIyPTICcj +99ZKzSZz54QofLyqSdiEHE9IcDFrxSddg3Z0KPe25lSaLLfcNU0zQPduSfp T8w0QkOdLULO1f6IwrbWpGXDGmlXT3UrpIWi1Bcz/esZzsjMwL9+W/MROsEk XayDeaFwdTz7lerH6Nr1/p6cDX/0Vi79RpN4LHoZoDBFHxGGVoVlGoXTEtCb qXOBPzKikBh3A2c4WzKyEhJ4vhT3FEnSiCiuaaaiBnJfbUnsGfpA7jwuTJaG nJVkaz6lpCKbv1WRF6rT0Rg4PY3fSEdky+THw10ykdxjl8p/Sdko/pfORJ14 Nroig3g2wvNR+0ifMjEtDxUfZTEfyChBDgOEqf8sCtBhpyMrxw+8RPu77aMD 2ArR/Pk4qam4CsQ1vunyR7MYzRHyozCsFk0Pp5w6gJWgkPtHLvQdeoPKhzT4 BMhKkXG9QF1TSj0y7A37eLa6DEXV1a1GbTQgni7J1FtPX6J97iZtTu+a0Ozn LtcQl3JURMPjupLUggI/cBFrxCvRi2QNxYXwVlRTm3+XJ60GYf1LWj0ZHSi4 2kBf3ucVqvGnWh3s6kSmFX8wA4tatMBeEil3oBvNFym3+7K9RhL/Ot1H43oR s9FE1KJmPVqrUVPgxobQXYPKLe+yenSjlOtoTeI39F3/gR099hapftCm7Dk0 jPJ1xVX4yd6hN7Qp6F3KCNLWdJ02qW5ANhQTgpEb4+iF+knjUaFGFJVe3pAz +APh1The33jaiB7UdHZffzeBRlXqHge5NKEZ7SXjxaQp5KlABVXiLeh0f3PT bPgsKhaNieFK+4j6nK+86sxYRP31zR7LHK2I2zvFYu7kEqIwW7dsi2pFUkwT xg2/lpCRv7moj98n1NH2QDNXbRktDhLfjF1uRytZShKm9GvocHOvi8nDL6jt izS/ON8/dDTq1qRq6xekfH79CPfvf0jVgva8OE0Huu/Q7PX+zTayX1JC1D4d SPlRHdvRcjKo4k2irbrZicTuZn066kwB5+5aJ3Gd6UafyLVO/RalguvqW4y0 od0oZf91D8McKvA9GENabupGprqxZ5mFqCEnvdmuTaUHkdL/MhYJ08D6ZxFp H/Fe1BqwHHThBB3ECS80jx3oQ4L7ywOdMw9CX7/XQm7rIFpdLbvyGeHB7oVM W9L+ISQUbW/9MQIPa74zuVHKQ+jd1Qa1S9/wwCp8zto9fwgp1TrGGt5nAWM3 mV6dsG9I5nBwlmULK0yG3Ln458gwMnwybSzkdhisBMQ0on+MIMmks7MW2rwg 8jBIKpx8FLXZdqa65PDC4vooXxD3KLpR5s7BTMUHvp/ittxNRlE8A+tGpj0f pLhQV1g1jqK7LFIzNjIEGHo7KiyVMYZOhWw/VvhKBLNLcYe+WP9Ayuu/qY6d E4A49kEfFZ8fiPK7nnJalAD0f+FZzEv4gRprLk5dbBUAc430rsCOH+jY+dT0 EhAES+HCOGWYQJkizws+ignB1aUGLJtzErFxRJE3MIuAa9C8/P2OKcQuLVr8 iUUcKkA6Z3ZuCo2vCtTeMBOHtfU7HOdpp1FuaS86lyAO7o5/N2VgGnEzmuXQ ESXAy5Dq7c+CaWQk7hB487Ak+HNy6ZmG/EScz4foBI8dg+hCbcujMIveCKQ+ JXpKQ4M+cX7OYhbxMtwqU8uQhpW5zfsvPGbR4LgQXUSbNJiJlSRLVMwiy1tm lpkEGeDJ4fp+THwO5fx+UTH0Xgayny9YyHH9QmKRisxXiXLw6knCBbT2G1Eb NbqOLynAYq1bntDXBcQ+Wb4Vwo4gN3L2E93EAhI6T3i/fRLB5cuX52eXFpCo 04Riwj0En/fryhYfWkT8oT706gMIXujyvFbUXkQ28u7yogYADn0NHafKF9Fd 9+ucTeyqMPKHacPx8RI66W3443ClGnwWzT9ZbLCM4j0P+SpKaEH12aHKZ7h1 pHJIsd+1TB8+Oq8FbDRsogbWVx/IZY2hhc59w5aTDEQHuokzJufg2HHXBL91 clj446ktHX4J7hRahfdV7IP0tresuE0rOM3ZUGB3nRKov0sLC12zBZGJtArh k9QQa0xYj3ZzgNE/t5kF9tHCRe2/NyTDbkCK1VtT4zE6OIsbrQ/KdIKF5oD3 1dUMcO8XpCcJuAC3k2K4ufNBeHP52/eGVFfIeiXLHSvICOcZP9w29rwHBaNa ibxUTHAcb5BkdtoT5BTYGGGVCWiIgSUaAfchhJaYsDnGDM8C+SjzHX3BlGV+ 361JZvAPqNKju+0LGKHOcewnM5inU9XZ3/OFWoXzKh8WmGFQtZZbLNAXFq5G jTzdZgbcZsKXumRfONdEISTNiQPH67z0XJ2+IEwaK7M3wkGrukrjSyU/WIko 5h4ywUEGXFBXVPWDd/H3Aw3O4cDZQmymVtsPLEo4zeQtcdC58rPig7EfPBr5 7+/+GzvO7tNcvOEH66hBNSUEBzW0XtL30vzg/WZ6W88bHKi8HjCxPUACY0qt hMcNOJjWqE1PwpNg+MDkVaMWHCSlRRl+5STBCo8weVs7Dg7OsjeeESEBUbVA uvEbDrCcaNwZbRIU6OiTkUZxsLSCM4rSJ4GC0e9WmMDBe+7gXz0mJNC/csz2 1RwOfFd0Va2tSdB3rUPKfQEHttkJq/nXSGDtcntbfhkHetLf6VedSfDbE9+6 vIYDpaes3mruJHAPeBlbuokDkS5V/UhfElBGmNo4keHBvD0wmBhEgocxq8ck 9uNhpUyjoOs+CTiTY//NUuPh6e0VieC7JMjMUvyYS4+H4/SJjCecSHCsqP+p 3SE8jHnInlmyJ8GrSg9rARweHja+ncm1IkHH+9qtVA48rI9VqvAYk8Ci4+KH Szx4KK0kLPfpkWCqfzuGm4gHF1tv2qeaJPg3oyoZJ4wH8tM4PRZ5EogcbLJ6 qIAHA608BSIHCV6yXpXQV8aD5FjJtylmEgAvzSY94IHl3IvRInoSmEqeehKk jYef7T77Nbf8wM+ordnbFA+fpqMLvYb9YCCmR+y6Cx6utTmnSWb5QRjv5IpO 0c4/fQFH8UzWD5JpRJRaSvEQJ5NIpJbwg5IFRy+tCjzoGsu6OAv5Qe+7xX3q dXjQsI3N1eP0A6LdP0blVjz4dhGsD5H7QWURi6j4FB5E+1Xp2lp9YVxV4xIz HwuoPCgnStr4grJ1anN/JAtYejn7B8X5QDl/TCH1NVYIvHoun03SG0rxp8I+ mbEBu5JoqiCLBzwTcGUqlmMHpaapBiXTu0Bndzn0qOBhiBm96NoWeAdUjwRx aeE44J8Fw6Nbv53BZv8RU8/fHMD60uQ3Td4tYMD5+et+49ypdxgfqHOEVPWz FxRquYCsbeOrWYMdbP+21al/yg327GS37gvawPBHWbExfx4Qp9RMvxxxGQrf e1YQrXjheEZxXwGZBfh41CdsCfHBgaRcte+0Z4EvjaxoLZYPEpsoDF6wGkEG zVB7PRUBjLnpXw6m6kL8mqZAEg0BGH4KNxvd14WHUy883ekIMN/c6PnNXBfc W3yEpQ8SoLLCpUOOXRf0g/lJ6SwEuGJbKDgTeQpWqB3lgvgJ4EYWe8+KpAMn qf8m6qkR4LSgXE2ouzbMUB526PUiQBJkvmzJUQf+iY6/0fcJIFhRcCY2Qh3M m8LCDXwJQOez+Nb9tjq0BZIVv/cnADuNjOzdE+pQQj21WhO6s34x5qRJhxq4 01YEpMQRoFxyUCR2WxXoDpik2r/c2Y+h9RDYAQjhH339O0sAb52eP8fHleCN s0zi0C8CUI/GZAWWKoHZl95Lr+cJYDcrmbzlpwTBETyTfn8IoGW6YH6LqART NPnLtJsEOH4/jdn+iiJkbzUxs9MTIe/IJ9usOXkQnNzUkxEmQkuDbMlZTBbq NFMYWUWJ0PaEn0x0TQZM09W7VsWI4PZ1NkrkkwwEXn5woUaSCKyltEEv3GRg YoDNQU1hJ17rkvN+p/9lfpYKMtAmwrgAY69egBQIVNvVO9oQoVfXvDsQJwnl 4Uq1mleJ0FHssIgNSYDmZYYqHnsiaCVijyKjJcCapqjosyMRtoZzOm3JJeC5 6WqyjMtOXJTmOsvIUeBdCvDe9COCx1v6BeciUWAXSzselkKErk1xFYlIQcje dpG3eU6EVfYa2/kzgiDfqSWtkk4EOUr9CSomQTB1/ykyn7WT/3TwT+nHAvC4 5RiHcSERJpP1qSOSjgCjzZs1zjoilGgRo9TeYUCbNPQyb4AIC8k/ZvP1+GDw Mtmc9RARHAzVTZM4+aDoCMbP850IJ8zm95d184JpgV3Uw1Ei/Kpu07LE80L6 q6Ubd6aJ4H+x4mBhLDfAAK0QWiUCJZ9C4ZFaDsAni11aWyOCZ97XQQNrDpi0 OhNTvEGE4hDBh4wMHBDx8/F+/n9EGD7xOei0xWEYWOcdoaHEIMT/dE0tFTu4 ssvFdzBjwBS2KuV2hwVODZp9CcVjcAm8an4eYQHuFA8aTVYMDLWL3y/24KFB sN614jAG43r8bm+U8MAkr/dfIh8GL+TkWI1ocZBvYsVgK47BIX9aG/23jDAW FeG9roNB4aHBB6batMDaHT/Zq4uB94bWdf53NHCSLcug/DQG/eGRYWeABvIT XhNvG2IQV1DlW6tCDa7p802zZhgofHHSWtOlBLpyo0PDVzG4muekOJ1FDspr F+/W2e+ch6ti+oEiOdxUujaSeA2DHNn+npBWMuiqI5Weu4mB/zvndpW5bfSs uexspysGOsoVzUblm0iyjzWlKQAD0/8uhTp9XEFWnBhtRhAGYarJQeYcK+iJ hYQzKQSD8z7xW+SOy2hjRFsDwjGonH9r6sn2BzX8vDtV9RiDlPiBWvHIBbQi FmAYG4OBzKGVoLmleSR881G1aywGXF0fP9pemEcRSzlh0okY1KQa+TLZ/EJn N/slC9IwYBA0q8Pv+4keqEzGhWZgMMWp9ktxbQq98lmicMjCQKz0OVPX4iTi o2ToFsjD4Hhjs9TVtR/o54ET91JKMDD2SP1GozmKuAx0Rr3LsJ0+CrndNiPo TJSJrkU5Bo95Te3ZwoZRGesNbo7qnfuI/kBa+jKEvHmT66PrMRC2Eqi63dKL /hhu2hjt1G1zUxT6drcHOfifo2NqxIC91mvho1Q3OjuN+y+iBdt5x+29ku86 UBun06reBwycDskxZMd9QRr6bQn0rRiwGnA6Pr/3GUmWBo8Ht2PgzPzOXDW/ FWX++BGs/QWD4X0BBJ2MD4iLXf0oVScG19k1TpwtbkG0Xlt3SD0YKJVW3Quk aEQ+hec51L5i0CV3Kz5L+x1aGamoI+vHwGgEY25PrkejWs7U3kMYWOhQHrBi rkVm99rzlL9j8M/jAlWvTDVqyxMz+DuMwem1vAIzrwqk8S3kT9UoBrmvVygm Z8pQDeNk7N1xDOTaj1P5+ZQgKXWNE/ITGNgIelQIHy9C2XdSR5YnMUiNtz/6 Sj4fPe6/IHJ7BgOHmaN1fUnpiO5AVduxOQzm5r0fRmikIl/Eenv+FwacuBCv KsdEtOZ0m61wHgPJm1uPgqdi0I30zzXXFzEoWj5/8cHmIzTec9RS7A8Ggzrq jV6Goeg8bej+mWUM0leen9DrJ6HPx6eyc1Z38i/k6JIJeiDtG5qn7dZ36j24 5K/Uxi1Ul/J8QeAvBk9CX7NeNrdCMp3bT35sYhBlHN7dzKaPciktlNL/YRBE SSUbwiSI+BSqv1mR8QPZ/40YBzYSgWLXB565CA7v2/UGucQtC+pd35IJw3PR 7nrCdrqyn27XnR/TyM0O7jr/CXu0EcuuiS135JnYdh270THQzr7rgEvh/Ke5 dn1RmKJcG9s1Y+3MV+Vju/a2dnu5KLXrWfp9Udkyu245z6GLV9j1/bWTtTMq u/4lnZkar7fr1lxLh7Wruw6K7f5bmrTrN/S8cW4sR/7fvyPT6U7573o4L2TF bnPXLVceGbntcSFn3IuAPfYOzbZ9vsec15p7BvbYVISyQn9r163ZPm4y/3Zd ZhncqbbHCewPJQz32CE4efL6HlPb1Z3N2mM1wU15ju1di3zf91hoj5me0s/L 7fEwFWf2f3vsNaHIHr7H1kmqLgl7rGeq8zlnjzmazIKb9pjC23K8a4+nZe1g bI8/z91MXNjjygy3te09/h9b+3lW "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 11}, {0., 624.8918619663268}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.4257461180597095`*^9}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzdXGmQVNUVfkzPgGJQYtRoMHEURTRGUVEWQUDCJruAYBBkGJCZIIswCLLI 7iiLgKBINBLDFkQUQoQQsUxCJYYqK1QWEysmZRErIakKZSomZVFl1WS+c2+/ +077nX49TA8/pJzuvqff/c5+7rn3vXZwRU3V5GkVNdWVFeX9ZlXMrKqunF3e d8aselKmWRQ1q4qi6MPyCJ/r6j/6l7r6/+qq8QJK+udBeCvF1K5CyEQORq6J uuC1BJQ74k+d8UkuK4lpVzuwwTkQFqxARKWKVv+vCycbV5cQ4Cvdl0PIV51i RQ02ReM+lHx1u2mZzyB3ja1qSNRA1p1ivK6x5wzWDdd1UB5bhrhhUVUM7oPz sgmGDJ86x58yucF7oYOoS0LI68iz8/15eBOVx7v4SEwoP3nyPz2P//pvUUZe W87c8/Jvl2x98Z1dS5ccOV458ZW6Ht23/HHc2N2b1645WrV/37vtT5z4CPPO JzxbEdoXzgLt88W3LEuDQ+bt2H78tQXzD0clJ4cP3RaVvjVj+gG4Ai6Cq0qd 71p//PHpGKpQscrs6DnHvcLZcDo4Ighwzdbax3865s0jfz7n9OlPz/vcO+Ps 823pTI+8hIPxHXIQjq/d8tyxYUd//sGlp079r2UjWORxvLu8OThMOHTwPVSB T/r0fgEhiHF7MqVNgbSvFyhd1wKvu8SJCkMhRlGsPhg9aue6jU//sv+xX/31 ggLFymOM1u4CmBxRD0PgvcP7f/pXdA25vkuB2jBa28ALRocmyDrhxWRra4vt aGVIUPgMhkH04HP0qfsO9QKlBUUFvkVC+5WOQl7spqHYwAKQDjYHi+gT9x1C BrYHJAIV46h7AlIQvyyEUjgN6gEIUf5fjZElC34PW6zLHFpyGgz4b60kKleM 1stGaxNkg01gM5j/lCMjpmBK6Abk3jbQV90MWCs545+OjKJ6aE7NQfyBVx8b 6ApHyyohXvq7Q4EyAAYDiNbPRikPVkJogS8+f+jInd/9/T8AAiYA7Z/rsqsc ZFZ/vEcnHA0CvF1dtQ8qRXfbErQNEoA7Qgis/uIuhRGAAgl820dRfMohjnE5 pkXvOxosA+GgjN8rUIh2jga3xrq8FwwKwWAieGuIjXKto+EqqIO1OPqD1kWS bZgNcZ2jYSpiDVDR77ShJfWH2xDXOxoCPvbBb4KJYth7ch3qCzEmYKIY4XiQ J+udaITN+wZtAdH2HUfL2lGsMsqGuNHRcCmSU0bHAmx2xYnutSFucjSkvnDD 6O3gBySwKDfahuig9ZbRLzSE+GGMDXFzsDliR0x3VENIqN5nQ9wSohh6C8TP CMS3cl15awiZeOJbIcbjNBlr8+5IIN4MEOAtpfx+G+I2AvGGhpBIHGdD3E4g DhOI8Q6ifi/n3uN/4cQgbL/KCKNOgREiV0aHdEIIowccA7dFTN05Mhr+SogE nUO8xCH3OnH2hOJJIFuKToTvgZBwcahXNJnmvu9BuiNnZbQ/VA34Q7YzE5tM gjtCxYiLzj5HQ9ihlsqo6STo5mjQVWoTRq86GrwiJQ+jSo+cUYEeYjt/lHcL VkVEi1/3ygxUusl2HrqGLYOMj4vHHkfLbgRllAfiTpK2ux0N3gVNRg8mIASh B6kBu0JiYE0UsCk2755E1B3BFoCQdbLKhuhFQmQ7CZF0CBXT2xwNPQ66JhlV 2xB3BT9AaKnALzkaJJAjAYy+bUP0DjaHFGLOrY6mKt3UXD98k6Tpd0OhiJuN h2zerqfNYD2UphWjF4gR0yGU254nkk2zIfoSbbeE6ARNrDLdhuhHbL6ZSDbD hnANdSZ7gCajZ0nGp0Mojs84mirnM3NdOYBouzFYBWBCe9jmfTex+QZSXmbZ EAMdTdW89STN0iFUPqwjvpltQwwK5SVe+dcS2BobYjAReg0J63QI5crVxJVz cl05hLjyySA+9ocS4I/YvOUMX1YAPxG1WKoTRmkTc/xd62iq1M61IYYF8aG3 jFaSSJznIErjNbWA1c5tkmQ3KntIjFY4GsSVTSFGHjtq7t+j3PfGLOzDiWOX O5oq+o865KK1dd6wUBLKymgpMex8h5cpgEFD1B5BbL+ERFfTsldWX0zSaUHs +hyDF8P1I4kLFpHKstAjn1lPN4oUH4eo15GFdhKOCtbCWZkI5SyjW7NFNoTb jstWFat7IqS1Ex5LQAjCaBIU80jwPGbzHk3Cem6oK3FZXGxDjCEcHyGlIh1C GdFVa10Ml9gQ7iiArVzSYaGWC+xSG8IdBehlZxaJkHQI9NbgmGgEtDmX5bpS ThNkHfGXq5V9mc1xbDAdOMruYgaxxXIb4n5y+TQCu8KGGEf87RpRXanTIdRq NjVkPOJCTLfShhhPUtd187ptTkIIwnjCp5pUoMdt3g8Qbd1+JhOfPBYGobJg CsmCWhtiAiklkwnsEzZEBRF6UhydT6ZOVA6sJIbNAzGRZOBEkoFJCEGYSPgw eVbZvCsJnwlEnnQIJYV3qloLVtsQk0gYjSce8RCZhqx2k0ggjCO5vyaLLV8V ra/wcah2PWOJSGuLxF5auUrCYCwRxDPN6SMcdsENjqX5g4ThfSFW4mbmKQfc BEdkU0gIjSEB/1TTuH4KibLRJFnWnUFUsyJ7L1FtnZ10VUS8UUS89TaEXy3U AjiSSJGEEAQ/UVWpEYT3Bpu3X+JUlbqH8E6HUFIMJ1I8bUNMJVIMI1KkQygp hhIpNtoQDxEp/DZftQXpEEqKwYS2KdeV0wjvQYS2yeY9jfAZSGjP2BDTCUd/ 4KSaoHQIxXEA8cOzNsQMIkV/Eg3pEEqKfkSKzbl+mEl49yW8N9u8ZxLefQjv 52yIh0lF8MfAaquUDqHqkj+CVgvaFhvC719UdfQH4Wo5SodQUvQiUnzHhvAb MTzHIpdi1JNIkYQQhNnkoh6E9/OpvNXlHkJ11XkgaogUdxLDpkNgKworSPB0 J4Z1J/q0BagraDmcQwK9G5E1D6NGLvZzSJ74m4RqM+Xuf3jeLWI2CSnSWUuP V0NU7kpqgGdI1Wp0j+dPPHCQgg2zjLoQ2ouxEFlGRRRiLtG6M7HO2RBC1c5O JCa2NjbU/VGXqrDy0IPsVL9nJ+M8kni3kTKRB8Kfz+FSORvBqCMpE0kIQXiU XNSR5Gc6b4j60cABW8WYtxKVXrIh5pOguIWYMx0ChpLnqDG6mbj++zbEAhKu HQgtHUIVlpuIZNtsiIXE+jcS+yQhBGEhsfk3SBhtT+WtLvcQanHKA7GIBNQN RKV0CJWd/ok2dW6xw4Z4jBjseuLKdAgVPNcRV+7M9YO/OaGOwdsTeXbavBcT V15LfLPLhvB3aFSP0464Mh1CHf60I65Mh1CuvIa48gc2hL/TpbZLVxNXpkMo V7Ylrtyd68plRNuriCt327w9hDoCvTK4Erzlpu7LqRDK8x5C3QHLA+FvU6pO v5wo5yEadOKxnPj4CmLxPVls+Yo0PWfW360gsfA1R1MPZBSLfVkiMFQMu2fC dU/9StPovJK47nJHU4XXs2+axmolYXg5EeyzQgTEYgmhjN6GOGevAw7PGxT6 5IG7QaLLz1ccTZ1f7LWTz0OopuAykjSv2hC1xK6XOpoqz0kIQaglTvITVbOY zluZ2P3IQy9Qr9kQTxAjXkLyNh1CGfHiYMS4hu+zIfwjMdj7yA1sjC4S56NB 3586URnxIkdT62s6b+XvLxEjJqUQhFUk1i4kpssj/iqSD18k8vzQhlhNTNea xF86hDJiaxKJ6RBK6AuIcgdsiDXEnOcTWhJCEPxE9WxZK5IZP7J5ryXa+p+9 qZYsDULCtRWpCOm8wRf8ZeR/26kW6ddtCHczRve1/jeKqhlKh1Bdy7mOprqb g6kQqnc6lyRSEkIQ/LOEqidwP4LVDzfk4b2OGKxFiMm4Bh2yIdaTRGpOEikd Ql3enMB6iDN8Fmk9yTV/narBP/boTfLY1QaSmaXEj8UVoiwRLirfMyT2Djel /u7mlF5k/HVqQ+GFCP9jjcY3Vp612jGUkHTJ6t8k3Z0TooU6saz/U0H5Ewfa 8M7O3XMrS1bQOKfesNPPT0uuY3HapU4rzdaJbA4dScyQCe5unKztgJUQP2LD bgrRgB8vi0XyXO4fKY/rN/7yCC2vZ+l/YRE1+z9yGBAy\ \>"]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"iC", "[", "t_", "]"}], " ", "=", " ", RowBox[{"Piecewise", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"t", "<", "0"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"4", ",", " ", RowBox[{ RowBox[{"t", ">=", "0"}], " ", "&&", " ", RowBox[{"t", " ", "<", " ", "5"}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", " ", RowBox[{ RowBox[{"t", ">=", "5"}], " ", "&&", " ", RowBox[{"t", " ", "<", " ", "20"}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"6", ",", " ", RowBox[{ RowBox[{"t", ">=", "20"}], " ", "&&", " ", RowBox[{"t", " ", "<", " ", "25"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", " ", RowBox[{ RowBox[{"t", ">=", "25"}], " ", "&&", " ", RowBox[{"t", " ", "<", "35"}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"t", " ", ">=", " ", "35"}]}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"iC", "[", "t", "]"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", RowBox[{"-", "1"}], ",", " ", "36"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.4257449857003345`*^9, 3.4257451028253345`*^9}, { 3.4257458693097095`*^9, 3.4257458822784595`*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{-0.9999992448979592, 0.}, {-0.9886514369392938, 0.}, {-0.9773036289806285, 0.}, {-0.9546080130632977, 0.}, {-0.9092167812286363, 0.}, {-0.8184343175593132, 0.}, {-0.6368693902206672, 0.}, {-0.6255215822620019, 0.}, {-0.6141737743033365, 0.}, {-0.5914781583860058, 0.}, {-0.5460869265513443, 0.}, {-0.4553044628820213, 0.}, {-0.2737395355433754, 0.}, {-0.26143721136047937`, 0.}, {-0.24913488717758334`, 0.}, {-0.2245302388117913, 0.}, {-0.1753209420802072, 0.}, {-0.1630186178973112, 0.}, {-0.15071629371441517`, 0.}, {-0.12611164534862312`, 0.}, {-0.07690234861703907, 0.}, {-0.06460002443414305, 0.}, {-0.052297700251247026`, 0.}, {-0.039995376068351005`, 0.}, {-0.02769305188545499, 0.}, {-0.015390727702558971`, 0.}, {-0.011798469387755101`, 0.}}], LineBox[{{0.011798469387755101`, 4.}, {0.021516244846129087`, 4.}, { 0.07072554157771316, 4.}, {0.11993483830929724`, 4.}, { 0.3167720252356335, 4.}, {0.5136092121619699, 4.}, {0.8811954521287986, 4.}, {1.2487816920956274`, 4.}, {1.9695330062984135`, 4.}, { 2.751373358851961, 4.}, {3.4810374436338214`, 4.}, {3.8764140052001324`, 4.}, {4.271790566766443, 4.}, {4.465873556116881, 4.}, { 4.659956545467318, 4.}, {4.756998040142536, 4.}, {4.854039534817755, 4.}, {4.902560282155364, 4.}, {4.951081029492974, 4.}, { 4.975341403161778, 4.}, {4.988201530612245, 4.}}], LineBox[{{5.011798469387755, -2.}, {5.023862150499388, -2.}, { 5.0359923373337905`, -2.}, {5.048122524168193, -2.}, { 5.410200368983224, -2.}, {5.772278213798255, -2.}, { 6.557522941779078, -2.}, {7.290591401988214, -2.}, { 8.009238696466479, -2.}, {8.788975029295505, -2.}, { 9.516535094352845, -2.}, {10.305184197760946`, -2.}, { 11.079412135438176`, -2.}, {11.801463805343717`, -2.}, { 12.58460451360002, -2.}, {13.315568954084634`, -2.}, { 14.10762243292001, -2.}, {14.885254746024515`, -2.}, { 15.610710791357333`, -2.}, {16.397255875040912`, -2.}, { 17.1316246909528, -2.}, {17.85157234113382, -2.}, { 18.632609029665602`, -2.}, {18.99703924004565, -2.}, { 19.361469450425695`, -2.}, {19.55895681520341, -2.}, { 19.756444179981123`, -2.}, {19.85518786236998, -2.}, { 19.953931544758838`, -2.}, {19.966274505057445`, -2.}, { 19.978617465356052`, -2.}, {19.988201530612244`, -2.}}], LineBox[{{20.011798469387756`, 6.}, {20.02798930655048, 6.}, { 20.052675227147695`, 6.}, {20.102047068342124`, 6.}, {20.15141890953655, 6.}, {20.53918305622654, 6.}, {20.92694720291653, 6.}, { 21.650299228524823`, 6.}, {22.434740292483877`, 6.}, { 23.167005088671246`, 6.}, {23.884848719127742`, 6.}, {24.27431505353137, 6.}, {24.663781387935, 6.}, {24.754625938064443`, 6.}, { 24.84547048819389, 6.}, {24.890892763258613`, 6.}, {24.936315038323336`, 6.}, {24.959026175855698`, 6.}, {24.98173731338806, 6.}, { 24.988201530612244`, 6.}}], LineBox[{{25.011798469387756`, 4.}, {25.015804019686602`, 4.}, { 25.027159588452783`, 4.}, {25.208848688711676`, 4.}, {25.39053778897057, 4.}, {25.784460508663734`, 4.}, {26.1783832283569, 4.}, { 26.914052399971546`, 4.}, {27.635300405855318`, 4.}, { 28.417637450089853`, 4.}, {29.1477982265527, 4.}, {29.939048041366306`, 4.}, {30.715876690449043`, 4.}, {31.440529071760093`, 4.}, { 32.22627049142191, 4.}, {32.95983564331203, 4.}, {33.678979629471286`, 4.}, {34.06909614172629, 4.}, {34.4592126539813, 4.}, { 34.64122684316588, 4.}, {34.82324103235046, 4.}, {34.8687445796466, 4.}, {34.91424812694275, 4.}, {34.93699990059082, 4.}, { 34.959751674238895`, 4.}, {34.97112756106293, 4.}, {34.98250344788697, 4.}, {34.993879334711, 4.}, {34.99609375294962, 4.}}], LineBox[{{35.00525522153504, 0.}, {35.01663110835908, 0.}, { 35.02800699518311, 0.}, {35.05075876883119, 0.}, {35.09626231612733, 0.}, {35.18726941071962, 0.}, {35.19959981376789, 0.}, { 35.21193021681616, 0.}, {35.23659102291269, 0.}, {35.28591263510576, 0.}, {35.3845558594919, 0.}, {35.581842308264164`, 0.}, { 35.976415205808706`, 0.}, {35.976783706419475`, 0.}, { 35.977152207030244`, 0.}, {35.97788920825178, 0.}, {35.97936321069486, 0.}, {35.98231121558102, 0.}, {35.988207225353335`, 0.}, { 35.988575725964104`, 0.}, {35.98894422657487, 0.}, {35.98968122779641, 0.}, {35.99115523023949, 0.}, {35.99410323512565, 0.}, { 35.99447173573642, 0.}, {35.99484023634719, 0.}, {35.995577237568725`, 0.}, {35.9970512400118, 0.}, {35.99741974062257, 0.}, { 35.99778824123334, 0.}, {35.998525242454875`, 0.}, {35.99889374306564, 0.}, {35.99926224367641, 0.}, {35.99963074428719, 0.}, { 35.99999924489796, 0.}}]}, {}}, {{}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{-1, 36}, {-2., 6.}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.4257450890753345`*^9, 3.4257451050440845`*^9}, 3.4257458853878345`*^9, 3.4257461181065845`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"vC", "[", "t_", "]"}], " ", "=", " ", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"iC", "[", "t1", "]"}], "/", "5"}], ",", " ", RowBox[{"{", RowBox[{"t1", ",", " ", RowBox[{"-", "50"}], ",", " ", "t"}], "}"}]}], "]"}], " ", "+", " ", "12"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"vC", "[", "t", "]"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", RowBox[{"-", "50"}], ",", " ", "50"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.4257451220284595`*^9, 3.4257451936847095`*^9}, { 3.4257453845440845`*^9, 3.4257453858565845`*^9}, {3.4257454729190845`*^9, 3.4257454831065845`*^9}, {3.4257456847003345`*^9, 3.4257456885753345`*^9}, 3.4257457209347095`*^9, {3.4257457590909595`*^9, 3.4257457633097095`*^9}, { 3.4257457987628345`*^9, 3.4257457991222095`*^9}, {3.4257459337472095`*^9, 3.4257459762628345`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxF1wk0FFwbB3BCRJaQ9kiDGcssZpea/yBKkVCylz2JEBLeQqm82iTSolLo TdaoSCVLG6OSEC0UKpWyRRTffNu459xzz++c59znOfecuy3xCLL1niYmJtYg 7P8eXbZ09k1OrqoU+08jouw4x21z3JTVqo4KKiWnbLHi1V/uQ+Yiz7MekZb7 uVJk4s7Yiuu/zUTOL802NeozFfll4oVMQb+JyKFRzKYVHXyRreNYtLwXEDmF O7feppgncmTWr7ZpJ5aLfIGzL70hbZnIJqM9+SnZXJEb+/ZsVfubLfLlmVUv ik4wRfbcYvRBJoQu8rn3iaudnGgi09Vm3EsUkEWWeenHbD2uK/Lm9/PlHDO0 p+p15eqt36gpcrSn0kCU2UKRm6/Yrq0IUBX56Yn28OYWaZEFl1irWxsm7/3f I7yA1dKvv4s8oZ7nLLWmQ+RCsco725EmsuSf0fBNCXt4e4tbZXQkiEjnZfyu j73Eqy/ylD2jSMTjAnKY76Ei3ryiPjnFhUTU8hQCPq0v4/kURsrHE4no/Bhe xDhcybteIKk4wiDiXUGPflhwDU+s4KjSNj4R7bwHS39y63npeVkqdk5E9PAy J3/nveFN5vxRH7xDxFfese1ifn28+rN5HPp+EnaqPS8zDP/OS8iJqShNJuGv nzLxhiY/eCi2AucCCdKC1U+9bPp5JQ+/WSy/TcLc3XW+jwMGeWcHDBws+klY 1tRwKjlLuAqr8sOcXXWBGv+YZDkxyA/lF8cz9bBvV/A7QowMrNcU6jd162PF oSRjcoUMZpaWZgUN6GM0PSedPS6DusW3F8tN6iPg9hs7y8gZWD1Qq2Qy1wD2 E6sfBYXJwiy9fajA0gBL92kWlW+fCaOP0+/8XWCAzodb+USKEnTiXa1MI8lY YTPy/Zq1Enq+ejx4u5+M0637MmiBSri80Y+3O5kM+8/nx43ylKCpG0oryiXj kWxzqZXeLCx6fnC2+lsyCq1MdEN1lKGiXvJmzIQC+eanrSPmymg8WLYxdR0F /m6uB6J9lHF84O5TmgsFhKBdXfuzlKHw4PF9vzAKYkekTsjWKkNAeWokGUfB 2z0n+Ee7lJGU3nT9/BEKTh3Lzzi1VAWy299lNedQMDzX2GqRqQoeNXctDimh wPbi4/GLHio4gN40+fsUFJAcrmrHqcD86nelfwQUzCzu2pR7UQVSqsOHzNoo 2GoUIk29r4KamLFpHT0UPKiaLC3pUEH8x8moqEEKlq457MUVU8Vmh5j9Q5MU 7H0xX+Wuuir2Zo49yv5FQeCovfRHvip6fTfUPR+gwGXR0XFFL1XYGxQKfn+h gOMr0bXliiqIt7wbbd9S0D/2pUSKNhvPBM/aJ6oo8NC8s9HKRA0av7L7NiZR YBrsfvq111zcW2enKq1OwXTFy0vG/1mIyd+57r5mZNis9fHXSdBEh4Vs0NI0 fZw2udK1KEgbpOKKlsrpepCpi1E9d00XT/IFI4ftSRiUFO/+dJGMxieGwcb3 dDA08FniAp+G5S1mnj00bbTdO10tZ0nDrfTexyQ9bVQmrYmPsKWB7nKMup2g jcPaedPWedJA6mz/M6imDW2nHeIT+2iY/SXklPhvLTjc/znh/IiGvokLgoUP tFB+VGJszjpDZGj/Yds5aeGCS0lZvIMh5n/OzEi100ICyTvyu7shTuaukmpb qwW76gejD3YYIpGa0riZp4WvPw+NhCUbIsJIb3sgQQuL3ZSGX7w0hLW1Y+ah PgJi9Rf9OOpCx2RY6czKOAKe2Cuu3uZFx+jBytHwaAJUY8QzzQPo6D9T12UQ TkC2oNvuTxQdnfc7K85sFcYH5t/0P0NHrbzC9ggbAlTSLiiZX6LjrsY8R7Il AS73krcuyaXjJp2wstuUgO+KEQtay+nIcTRaZMcWzl/E27OyjY7ELB8BeTEB rq9orRrv6Yi7FVzWPUeYT5xA+/2Zjqi66Kyzswj4QVJLbOmnI/TtgeN2cgRw bWU+FP+iY1t/coysFAFxu8eWHRFn4PmAVvVtCQLqM7+mbJ3BQG+Z5GSqGgGz 695+M5vFgFjsB6MQEgFug8/MNeYxMHtVVbiVMQE5C6rPj2swQFK8WExcJ8xn WjraTGRgRfOePgkP4fwp6VcPcxjY5rXcp/yAMJ7poTDuwED13lsbdF4I413t fZvdGWizSDs+rYcAowTzyiJfBgYUwgVvRoX1NOuG+EUwsOAcfWXKYi38iBh8 +TKVgZ1l+Qxxfy0Yle87V/iSAa2ByyrtYtoQrMjR97FjIsHz+PMjZB0YHZFM 63Vm4u7tlmeTJjq48maLeJAXE6Mqi5/tcNBBXPTC5ogwJgJqrjbY7tUBp/z4 nkNpTNhp1dSpNergMjO68Vo7E0s//qzNCBPeN/rrdw16slDt71KeX0GC3vzx 6r072RAL0bnUYKmP3zXpD3dGs1HTuly521Uf9UGcOr99bMTz7GPHdwjPx9qw RpsUNiTkY92Jwv2Tv+NHh0YJG9OvtC2I+6APw4fdfyoH2Zj19nAKM9oA3J3P 2OKhHGhaDu0/m0eGrHrQsuHdHHwolB0uriSj7bE873McB9lzlng9fkHGbvU1 5s+TOdDqtjL5+YuMiie19heLOSDuzZlYZ05BUpjXppPlHPT23Nnu40iBq4aE y6EqDq5ZNb2ODqBgIgyewY0ckBeI3/4nmYIGjXc+3m0c9MXO0a3MouB8XYy/ 43sOij8ZpDffogBLbgfzBzgwvOEUIfGOAqV6xzDmGAcDC4N75gnPo87w0V2k aVx81DN4WC5ORfGStOhFslwQrd+lzpGhIq6euXeWMhd+O4777FSgwjaiKV5q PhdXkk1Zz1WpWKoZeuDXEi4+lQxLkRdQURNReKSTxoX/L8esjzpUWDRk5cYG cxEg90WzwYkKn7mfa60iufgSWS4pt4WKfR76HfNihfGfDvVY+FJR9bNYtfiY MF8t8er9UCqM1Stj3hdw4bnHh1aaRAV1R9s60z4unAY7eWfvUjFXWXFIcpsR zNtbXfw1afi0YZfxQa9l0Mh9kDq9l4Yz2arEF7HLEX3L1E5RuK/ln0l7SUbx EJIdcINFYaK12sMoOZ6HjqcLTiqwmMi8eUdJI4kH619PQnuMmWCdD72z7BwP +mtJtFRLJtwC36mF3uOhq787d9ibCYeE9q4f4sCm5e4XS84ykUO4nuZuDqxo Wp9kKMtCUkZHXLYlcO2P2DbZWSyEzFUI/GYNLNQpXP1+DgvGM7eaRTkAo5EK 0slaLDwbXNyf6geUqNfF9oOF0apEy4ZEQHubWURhBAurtnj8MX4KyE9je5C7 WWjSfT8Y9AIoi5Cw6/nCwuahLb2ZLYDPt6emGQMs7DqwpUWmA6hs9dNSEGPj St7moqYfwM6C05++zWdjxpibd4AyH69dJgLzbNhIrX7rfF6Nj8TGJ+7eDmxo HnazbZzPB2tVms0iNzaMNNx4nKV8HKNTDQ9vY8Pf3HWeJIMPU1mP4YAENp4k OwvObODj6s3aKP0KNja6tFc3OPKx0SA5oKuKjfdazuXibnxIXnJzPfuYjbFb Tjm+Pny4HhlZMbOFjYS4tnOn/fmQlayh1LxhQ3mtU4ogkI8bkcc0orvY0H3n GEuP4EPJmzTtaz8bN668ivCJ4qOibXjg0igbJiGOgel7+PC3qfrgPMlGw7JX XvXxfPz3fciBk5Sj8+SBKYec2rTK+9iU/9bbxKw7NeWvERs/e5RPeW2N/bmx 9ilP5HqK2zmaiFxwIsQ7t3nKZyyGnf7qMRW5x/fSLrMuM5GHgrv95d+snMq/ OSlxtNdc5Njbbo3NPRYii42ftGgZWSUyOX/ZmS/jU/7ff0bkfwHsOi+m "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 10.}, PlotRange->{{-50, 50}, {10.007291887647996`, 24.}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{ 3.4257452009659595`*^9, 3.4257454210753345`*^9, 3.4257454887159595`*^9, 3.4257456961690845`*^9, 3.4257457676690845`*^9, 3.4257458954347095`*^9, { 3.4257459378097095`*^9, 3.4257459830128345`*^9}, 3.4257461225128345`*^9}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztW22MnVURvt177y4tpRRqa0Gs22rLtiCFWmhh2W63fBcRKi2tLAWWUroL 9MN2mxi/qH/kj8ZEfiCJaX8oIEoCQgIxwWgkUUmMTYxEoyYEE1MTJSQSY5qY rDtz5j3vee4+75l3u6v8sen9eOc+7zPnzMyZmXPu3dtGxkf37h8ZH9sz0nvT 4ZFDo2N7jvTeePDwpKg5p9GYM9poNP7W25D3E5Nv7Wli8v/EmDyJhL9frS+t Rrhhonh0yfWAvNOPuqLsMSIbzHD0VaspOBpNEPfrczvK0leG/9I08dfWH8rK 8OGKOOfJzwvqcI/8a4Pa4v2GeFOzvsIv14deUw6KD+Di8O7ijntLvilqBiuh qPqxmrhr6qu2wfbFuPkfDbHfU1h3YCGquqd4IePBL07/lrrDza3qTfFdM747 RmQ1VnWaSF4Ow51I4S/9lz7SuY4Fa/UQ2AIiO7cmrq5stvlmW8c5QXb5H//w d5E/+5VjrzUWvk9jtgT1f1dlXXVyzwPPi/x3u4efe79dtYZ8tIXIhohscyDa 9ePX/iRRJ5/964brvn3W6dP/phx9M1cZclW3qBDr9Z469Q/5XCwqCyCjlWUZ Yzv0g+//5htPfPPnhfzJr3/t9dEfvvjm/uo7NwXZ0nfe+afoltcij8udwqBX j7oUolgGoFdGIVMR2ikUyjAQQH1vv/2ugNTcofVoyntxgafbKF49Ov7KzW/8 8s961SqDU/Tr1SPVFKEONu94/WdvvfCFz/8oianmice/+tP7X33l9zUpQKNR gEsyFP0E3h1km0/++i8/OXjgZY/CmpeF7713WkJKXdlTyt699ZYTNSnAlWcF 2altt39HKeXq4YSiJQwbA0jCWHSrK+cS3zxcrfvqIBMfiC/0yigef+pbb3zu 6e+e9Cg2EoPNI+71KcCV88o41UznUGwIMgkcCSC9mh9k4gPxhV5l2pCrylXw 1s4dz6jdLef+Ymz0xY1v/vavNSnAdOcQ92Yorixzg4xCnbqA5IaUQqNhfQBJ LpWcqlcLSEbI6F5P4OeS3OBTgCsXEtloNcUnSPCcF2RFbvUo1hFXnk+MaBTP yktoocnOrVWtQJwsztYrUyBxIvGSKvievvQ0UopCT/HK1FxBgmERyS6mxhKP uF+Woi7H4/qsk4uyLiJrynNbtK8ltv5AkMlKlBWpV/tAqYxRcoA8Gsf1WRVE WZPIuoJswgaiTJeTIFxM0tS+1LS4/2kSWVdpXsmqmhBMFSTLxcSzoKrWtjvR Fge9lsT1kiAT7TKKVJsGZcdmq13Sxkx3WRnrEna6wj5Y+kQmm9ImyyV+bBRQ B5cGGVSgh1KKVhGpxbq+tFQau5oLiIU5y7ETx38lj0tJujQWSKspi5JcEkDQ 2FxYLgjd2UxR3y7UC1yWk962hoTbhSV9rEecSh7x1rDFxup4UZDFbleu9lZS Ra+sJmnUqKA+VVPFwfeRXPhhsuyBqhtS0+SjyAarygiM2XYZ0ZBnKzy+ijh7 GUmtebbC4CtJBv1IOd5Y0lK2kINbnWHxMRIVvSQvPjhloXWmBRmYZj65WkHm tjzIoJb7tLB+V5BoWU5wPi1k4uVkRa0gSSxDa9lZ3CGtq14lLokh9NEgg0Ln 00L8Km2XpBWLA0hne1wyyNXLSCitJDGR0mpm6ionF1PMMuLhlSTyM2O0hgFy 60XEZavIXHxaCBKWZoxWXCjmqEkL8A+RkVlqgqb9gWraNgmmC0p7F9v8InnC yjPasvtjfUOzWimrUWC21QRnSlnbwhqJjHow21ISnFbGYE+UUd+q6kLbJH6X kqmtIcEH+ioPsVWDlqoW8dMSwnsJGRPo4ifSbTK9buK5JWRdW2cCGXVkRiqh mVhMvPrxIIMjkZEkatP9iRs2PWSpLCrNGJtH6wahAx6pXoE9ZIyLiEkvI/Pz aQFuOyw4bFlbBn5sdX1aoRC4xs35JJZtawD14v5qWjuvgQRp2144nrENHeTs lFZZlUyr1nkkDI0CqoQ/MmhAbU8PLcc6Yu8MrR0SQZpeQBbIOhLpPi0Ekx2g QBpbT9Tf59Ky0yFoOa4kbvRpoUOZH513FQmrDNk8onteGdwxqxstdNYprbYc c+MoziYWNQpIqP7IIFzmEooNpUVjX52hPZv40KIV0j87HbzXpYXOiiWTqwnO p4UQ6i4nHBsNO82F1OfTQvpiBcloocfO0M4nwdQqVclo1eb9JII9Wg0r1gLZ iTzkzN2dkWkThnzUJMFkXzJA6tvtTlhcEY93moRiIM4gM82QcbohNCYfRfgM kmjKDM3YIHImymOTQRIBLls77aNjKhgiK+qeQFU2ueUPclhnEnJ4SwJEAqco s8YMdcuYz+xUrEOhBpJMX4NpCwmuM9SmTaUFRzGh9CtG2MjOzoySE/MoGyJO Bm2d7VuFe7aTdT2c8rSBx0ZeZJSpVLoS0hApO8rKs+/tZAUPVwfsdrIyM/Ad QQZr724XDosrhWvO2U6sn+G8K8ig4HzGhUND5sPBfD4cNjoZ+M4gg5y3y4VD M+HDYROfwhUdBHgmtrOacxdZ7D4cCqEPB/Nl4MGymOfucuFQqX04mC+Fa7Aa CLZpO6o57ybm8+FgPh8O5svAh4n5wuKrXYCGiUmNYoZ5eZhYf3aY7yEuu7Oa GaavBcrMDGeXGYLpDw16lVllhtC4M/F19VdXkSK0Odjtf7o6ugwOBxM+HLrK DPxe4sRtnYvTOGE3tc3lBOv7cOjGM/D7iPnucOBa8H1OMFqGM2zlseW/3YWD +VK42tiGACXd5wSjZeDhbAg7qE85cDWazwklPcMZzimxTb/NhUNH5MPBfClc 0QaCjijDGc71sSP6pAuHjsiHg/l8ODSUBtek3vFnByzxhK+RsEu6NVBo7prG 3wmw1PggcYHRn9H+xbwFlcv4nuu4cTrD3Eu8unXWaKEj2Zr4Z3q/Zc9ogIDZ mrivRunZWwZRrF5bq2PuIRIwt7hwaKt9OPg3hWtaNBDUp5urOfcRL/hw6At9 OJgvAw+/T8K+8CYXDj2gDwfzpXBFjxHz3VjNaXDoyHw4FHofDubLwMPvHrHQ 3+DCoU/y4XBEn4E/Qgx5fWewGicU+utdTjiM8eFQ8jPwR4n5rnPgWvKNs6wq dX8eaBqhizKNob7kM2sVbfhJOXZb4RxrRt8n7yfOMtrOOlBFW9Yq5sozIeNj BJdvSdwz86JyIMigMRxKfFajqBwgC2+oOtAOkCjJwA8GGbSNm104eDWF6zq1 IUCn4nNC25iBHwoyaDAGHbguPJ8TvozKcH6WGG2TCwej+XCo8ylcbWwjhvKU 4TxMjDbgwqHX9uHQOmXgR4j5rnXh0Cb5cIi+FK7oI8R8Gc7xIIPTx34XDubz 4WA+Hw513uBlUan7q6OjQQZNVPhakBaVadKCE4x2Wr8SOkr8ZDwh8fM9VXkI Nl4Gz8TgwFPyaFyhz03JCVFROyXtzOsVmfmlxOgVuy/v3un/4KbGX6jKC/lz +8ac/wCf+rAM\ \>"]] }, Open ]] }, ScreenStyleEnvironment->"Presentation", WindowSize->{1016, 668}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 1178, 34, 83, "Input"], Cell[1771, 59, 6803, 112, 253, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8611, 176, 580, 16, 60, "Input"], Cell[9194, 194, 4712, 81, 244, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13943, 280, 531, 14, 60, "Input"], Cell[14477, 296, 5493, 95, 241, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[20007, 396, 618, 16, 60, "Input"], Cell[20630, 415, 6701, 116, 245, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27368, 536, 6807, 118, 245, "Input"], Cell[34178, 656, 10952, 187, 245, 6657, 115, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[45167, 848, 1489, 42, 83, "Input"], Cell[46659, 892, 5341, 87, 244, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[52037, 984, 1004, 24, 60, "Input"], Cell[53044, 1010, 8110, 140, 253, 4252, 75, "CachedBoxData", "BoxData", \ "Output"] }, Open ]] } ] *) (* End of internal cache information *)