La Biblia del Laboratorio

Vista previa del material en texto

(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 10.3' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 1065339, 21046]
NotebookOptionsPosition[ 1020513, 20307]
NotebookOutlinePosition[ 1025386, 20440]
CellTagsIndexPosition[ 1024640, 20409]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.744063914788546*^9, 3.744063916464306*^9}},
 CellLabel->"In[52]:=",ExpressionUUID->"e76e57db-26b1-4ec7-8b87-03ae00c5340c"],
Cell[TextData[{
 StyleBox["La Biblia del Laboratorio de Calculo ",
 FontSize->28,
 FontWeight->"Bold",
 FontColor->RGBColor[0.5019607843137255, 0., 0.]],
 StyleBox["Versi\[OAcute]n 3.0",
 FontSize->16,
 FontColor->RGBColor[0.5019607843137255, 0., 0.]],
 StyleBox[" ",
 FontSize->18,
 FontWeight->"Bold",
 FontColor->RGBColor[0.5019607843137255, 0., 0.]],
 StyleBox["hecho por Ignacio Isla",
 FontSize->9,
 FontWeight->"Bold",
 FontColor->RGBColor[0.5019607843137255, 0., 0.]]
}], "Text",
 CellChangeTimes->{{3.7327189611241865`*^9, 3.7327189775417194`*^9}, {
 3.732719032158595*^9, 3.732719037157748*^9}, {3.7327190771588926`*^9, 
 3.7327191118483906`*^9}, {3.7340444820990515`*^9, 3.7340444982235565`*^9}, {
 3.734044985528904*^9, 3.734044985660285*^9}, {3.7340466739916286`*^9, 
 3.7340466742744293`*^9}, {3.7440617201182327`*^9, 3.744061759639952*^9}, {
 3.744061816407977*^9, 3.7440618475785446`*^9}, {3.7441101169699955`*^9, 
 3.744110130567935*^9}, {3.744110171151665*^9, 3.7441101725503955`*^9}, {
 3.7656727694374113`*^9, 3.765672769674184*^9}, {3.7658878334983764`*^9, 
 3.7658878386786666`*^9}},
 TextAlignment->Center,ExpressionUUID->"f4f40748-c443-4dd6-bbb6-efac24d4b285"],
Cell[TextData[{
 StyleBox["Esto Hoja esta dirigida a toda persona, hasta para el que no \
entiende nada y no esta nada informado. Env\[IAcute]en esto a cualquier \
persona que le sirva. Esta guia esta basada en el material entregado en los \
los laboratorios de calculo",
 FontColor->RGBColor[1, 0, 0]],
 "\n\nIntroducci\[OAcute]n:\nla idea de esta hoja es mejorar la comprensi\
\[OAcute]n los comandos que nos dan en los laboratorios y ense\[NTilde]ar un \
par de comandos mas que son bastantes \[UAcute]tiles, dejo en claro que en mi \
opini\[OAcute]n la mejor manera de aprender a usarlos es \
\[OpenCurlyDoubleQuote]jugar\[CloseCurlyDoubleQuote] con estos e ir \
entendiendo como funcionan (osea leer y hacer los laboratorios que nos \
envian). Si quieres que te vaya bien en los laboratorios, estudiar y \
aprenderse esta de memoria hoja no es suficiente (de hecho es innecesario), \
lo que necesitas es entender los comandos o tener una idea de cuales puedes \
usar, entender la materia de calculo y hacer las tareas del laboratorio para \
practicar los usos de los comandos. \n\nTambi\[EAcute]n esta hoja esta hecha \
para los que no sepan usar comandos especificos y solo tengan que buscarlo en \
el indice lo que necesitan y ver la explicaci\[OAcute]n.\n\n",
 StyleBox["Dato",
 FontColor->RGBColor[1, 0, 0]],
 "\nCuando aparezca en alguna explicaci\[OAcute]n o despu\[EAcute]s de dar un \
ejemplo ",
 StyleBox["en",
 FontVariations->{"Underline"->True}],
 StyleBox[" c",
 FontFamily->"Source Sans Pro ExtraLight",
 FontVariations->{"Underline"->True}],
 StyleBox["olor azul, un asterisco con un numero",
 FontVariations->{"Underline"->True},
 FontColor->GrayLevel[0]],
 " significa que es algo que: para entender a que se refiere cierta parte de \
la explicaci\[OAcute]n necesitas entender algo que se explicara mas adelante \
(en este caso el uso de esta referencia es para poder entender el comando mas \
a fondo, pero esta hoja esta hecha para que puedas entender el uso del \
comando sin necesidad de saber a lo que se esta haciendo referencia, a menos \
que te lo digan) o que hay un ejemplo de lo que se esta explicando en tal \
parte de la hoja y estar\[AAcute] espec\[IAcute]ficamente en el numero \
referido en el indice del que se habla. \nEjemplo:\n ",
 StyleBox["*3.6 ",
 FontColor->RGBColor[0, 0, 1],
 Background->None],
 StyleBox["(significa que en el capitulo 3.6 habr\[AAcute] una explicaci\
\[OAcute]n o ejemplo de lo que se esta hablando actualmente)",
 FontColor->GrayLevel[0],
 Background->None],
 "\n\nTambi\[EAcute]n para facilitar donde esta el ejemplo o explicada \
referida anteriormente estar\[AAcute] escrito de misma forma la referencia ",
 StyleBox["pero con color morado",
 FontColor->GrayLevel[0]],
 ", para encontrar en que parte especifica esta tal \
explicaci\[OAcute]n/ejemplo.\nEjemplo:\n",
 StyleBox["*3.6 ",
 FontColor->RGBColor[0.5, 0, 0.5]],
 "\n\nPor el caso en que en un capitulo de la hoja hayan dos veces el uso de \
una de estas referencias se usara un guion con un numero para diferenciar a \
que explicaci\[OAcute]n o ejemplo pertenece.\nAclaraci\[OAcute]n:\n",
 StyleBox["*3.6",
 FontColor->RGBColor[0, 0, 1]],
 " es diferente a ",
 StyleBox["*3.6-1",
 FontColor->RGBColor[0, 0, 1]],
 StyleBox[" porque hacen referencia a distintas explicaciones o ejemplos que \
est\[AAcute]n en el mismo capitulo, osea que ",
 FontColor->GrayLevel[0]],
 StyleBox["*3.6 ",
 FontColor->RGBColor[0.5, 0, 0.5]],
 StyleBox["y ",
 FontColor->GrayLevel[0]],
 StyleBox["*3.6-1",
 FontColor->RGBColor[0.5, 0, 0.5]],
 StyleBox[" estar\[AAcute]n en partes distintas del mismo capitulo.\n",
 FontColor->GrayLevel[0]],
 "\n ",
 StyleBox[" ",
 FontColor->RGBColor[1, 0.5, 0]],
 StyleBox[" ",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox["Indice",
 FontSize->36,
 FontVariations->{"Underline"->True},
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[" (Los numeros poseen Hipervinculo)",
 FontColor->RGBColor[0., 0., 0.]],
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["1.1",
 BaseStyle->"Hyperlink",
 ButtonData->"1.1"],
 FontColor->RGBColor[1, 0, 0]],
 ButtonBox[" ..................",
 BaseStyle->"Hyperlink",
 ButtonData->"1.1"],
 " Valor num\[EAcute]rico N[x]",
 StyleBox["\t\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["1.2",
 BaseStyle->"Hyperlink",
 ButtonData->"1.2"],
 FontColor->RGBColor[1, 0, 0]],
 ButtonBox[" ..................",
 BaseStyle->"Hyperlink",
 ButtonData->"1.2"],
 " Par\[EAcute]ntesis LLave { }",
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["1.3",
 BaseStyle->"Hyperlink",
 ButtonData->"1.3"],
 FontColor->RGBColor[1, 0, 0]],
 ButtonBox[" .................. ",
 BaseStyle->"Hyperlink",
 ButtonData->"1.3"],
 "Ra\[IAcute]z cuadrada Sqrt[ ]",
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["1.4",
 BaseStyle->"Hyperlink",
 ButtonData->"1.4"],
 FontColor->RGBColor[1, 0, 0]],
 ButtonBox[" ..................",
 BaseStyle->"Hyperlink",
 ButtonData->"1.4"],
 " Comando %",
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["1.5",
 BaseStyle->"Hyperlink",
 ButtonData->"1.5"],
 FontColor->RGBColor[1, 0, 0]],
 ButtonBox[" ..................",
 BaseStyle->"Hyperlink",
 ButtonData->"1.5"],
 " \[Pi], \[ExponentialE], Sin(x), Cos(x) y Tan(x)",
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["1.6",
 BaseStyle->"Hyperlink",
 ButtonData->"1.6"],
 FontColor->RGBColor[1, 0, 0]],
 ButtonBox[" ..................",
 BaseStyle->"Hyperlink",
 ButtonData->"1.6"],
 " Variables ",
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["1.7",
 BaseStyle->"Hyperlink",
 ButtonData->"1.7"],
 FontColor->RGBColor[1, 0, 0]],
 ButtonBox[" ..................",
 BaseStyle->"Hyperlink",
 ButtonData->"1.7"],
 " Borrarvariables con ClearAll y ClearGlobal ",
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["2.0",
 BaseStyle->"Hyperlink",
 ButtonData->"2.0"],
 FontColor->RGBColor[1, 0, 0]],
 ButtonBox[" ..................",
 BaseStyle->"Hyperlink",
 ButtonData->"2.0"],
 " Funciones",
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["2.1",
 BaseStyle->"Hyperlink",
 ButtonData->"2.1"],
 FontColor->RGBColor[1, 0, 0]],
 ButtonBox[" ..................",
 BaseStyle->"Hyperlink",
 ButtonData->"2.1"],
 " Como graficar Funciones con Plot [ ]",
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["2.2",
 BaseStyle->"Hyperlink",
 ButtonData->"2.2"],
 FontColor->RGBColor[1, 0, 0]],
 ButtonBox[" ..................",
 BaseStyle->"Hyperlink",
 ButtonData->"2.2"],
 StyleBox[" Graficar mas de una funcion en el mismo plano con Plot [ ]",
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["2.3",
 BaseStyle->"Hyperlink",
 ButtonData->"2.3"],
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox[" ..................",
 BaseStyle->"Hyperlink",
 ButtonData->"2.3"],
 FontColor->RGBColor[0., 0., 0.6274509803921569]],
 StyleBox[" ",
 FontFamily->"Source Sans Pro ExtraLight",
 FontColor->RGBColor[0, 0, 1]],
 StyleBox["Graficar funciones con Show[ ]",
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["2.4 ",
 BaseStyle->"Hyperlink",
 ButtonData->"2.4"],
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["..................",
 BaseStyle->"Hyperlink",
 ButtonData->"2.4"],
 FontColor->RGBColor[0, 0, 1]],
 StyleBox[" Dominio y Recorrido de una funci\[OAcute]n",
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["2.5 ",
 BaseStyle->"Hyperlink",
 ButtonData->"2.5"],
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["..................",
 BaseStyle->"Hyperlink",
 ButtonData->"2.5"],
 FontColor->RGBColor[0, 0, 1]],
 StyleBox[" ",
 FontColor->RGBColor[0, 0, 1]],
 StyleBox["Funciones a Tramos PieceWise[ ]",
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["2.6 ",
 BaseStyle->"Hyperlink",
 ButtonData->"2.6"],
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["..................",
 BaseStyle->"Hyperlink",
 ButtonData->"2.6"],
 FontColor->RGBColor[0, 0, 1]],
 StyleBox[" ",
 FontColor->RGBColor[0, 0, 1]],
 StyleBox["Como graficar ecuaciones, ontourPlot[ ], graficar puntos y \
circunferencias",
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["2.7 ",
 BaseStyle->"Hyperlink",
 ButtonData->"2.7"],
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox[".................. ",
 BaseStyle->"Hyperlink",
 ButtonData->"2.7"],
 FontColor->RGBColor[0, 0, 1]],
 StyleBox["Reduce[ ] , Table[ ] y Sum [ ] ",
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["2.8 ",
 BaseStyle->"Hyperlink",
 ButtonData->"2.8"],
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["..................",
 BaseStyle->"Hyperlink",
 ButtonData->"2.8"],
 FontColor->RGBColor[0, 0, 1]],
 StyleBox[" ",
 FontColor->RGBColor[0, 0, 1]],
 StyleBox["Como graficar Table[ ] con ListTable[ ] y Show[ ]",
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["3.0 ",
 BaseStyle->"Hyperlink",
 ButtonData->"3.0"],
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["..................",
 BaseStyle->"Hyperlink",
 ButtonData->"3.0"],
 FontColor->RGBColor[0, 0, 1]],
 StyleBox[" ",
 FontColor->RGBColor[0, 0, 1]],
 StyleBox[" Expand[ ], Factor[ ], Simplify[ ] y Abs[ ](valor absoluto)",
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["3.1 ",
 BaseStyle->"Hyperlink",
 ButtonData->"3.1"],
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["..................",
 BaseStyle->"Hyperlink",
 ButtonData->"3.1"],
 FontColor->RGBColor[0, 0, 1]],
 StyleBox[" Limites y Derivadas",
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["3.2 ",
 BaseStyle->"Hyperlink",
 ButtonData->"3.2"],
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["..................",
 BaseStyle->"Hyperlink",
 ButtonData->"3.2"],
 FontColor->RGBColor[0, 0, 1]],
 StyleBox[" Solve [ ] y Reduce [ ]",
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["3.3",
 BaseStyle->"Hyperlink",
 ButtonData->"3.3"],
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox[" ..................",
 BaseStyle->"Hyperlink",
 ButtonData->"3.3"],
 FontColor->RGBColor[0, 0, 1]],
 " Funci\[OAcute]n Piso o Parte entera, Floor[ ]",
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["3.4",
 BaseStyle->"Hyperlink",
 ButtonData->"3.4"],
 FontColor->RGBColor[1, 0, 0]],
 ButtonBox[" ..................",
 BaseStyle->"Hyperlink",
 ButtonData->"3.4"],
 " FindMinmum [ ] y FindMaximum [ ]",
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["3.5",
 BaseStyle->"Hyperlink",
 ButtonData->"3.5"],
 FontColor->RGBColor[1, 0, 0]],
 ButtonBox[" ..................",
 BaseStyle->"Hyperlink",
 ButtonData->"3.5"],
 StyleBox[" FindRoot[ ]",
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["4.1 ",
 BaseStyle->"Hyperlink",
 ButtonData->"4.1"],
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["..................",
 BaseStyle->"Hyperlink",
 ButtonData->"4.1"],
 FontColor->RGBColor[0, 0, 1]],
 StyleBox[" Como Pintar areas de funciones con ",
 FontColor->GrayLevel[0]],
 StyleBox["Filling",
 FontSize->16,
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["4.2 ",
 BaseStyle->"Hyperlink",
 ButtonData->"4.2"],
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["..................",
 BaseStyle->"Hyperlink",
 ButtonData->"4.2"],
 FontColor->RGBColor[0, 0, 1]],
 StyleBox[" Integrate [ ] y NIntegrate [ ]",
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["4.3 ",
 BaseStyle->"Hyperlink",
 ButtonData->"4.3"],
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["..................",
 BaseStyle->"Hyperlink",
 ButtonData->"4.3"],
 FontColor->RGBColor[0, 0, 1]],
 StyleBox[" Sumas de Riemann",
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["4.4 ",
 BaseStyle->"Hyperlink",
 ButtonData->"4.4"],
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["..................",
 BaseStyle->"Hyperlink",
 ButtonData->"4.4"],
 FontColor->RGBColor[0, 0, 1]],
 StyleBox[" RevolutionPlot3D [ ]",
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["4.5 ",
 BaseStyle->"Hyperlink",
 ButtonData->"4.5"],
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[ButtonBox["..................",
 BaseStyle->"Hyperlink",
 ButtonData->"4.5"],
 FontColor->RGBColor[0, 0, 1]],
 StyleBox[" Polinomios de Taylor usando Series [ ]",
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontFamily->"Source Sans Pro ExtraLight"],
 "\n\n\n\n"
}], "Text",
 CellChangeTimes->{{3.7307510247514296`*^9, 3.7307510956693664`*^9}, {
 3.732718602596159*^9, 3.7327186395176334`*^9}, {3.7327191537257433`*^9, 
 3.7327191727964706`*^9}, {3.7327192091107864`*^9, 3.7327192597388887`*^9}, 
 3.732719300763888*^9, {3.732719461402277*^9, 3.73271951028164*^9}, {
 3.732720481863985*^9, 3.7327205839806285`*^9}, {3.7327206864651723`*^9, 
 3.7327208241769953`*^9}, {3.7339603130712852`*^9, 
 3.7339603522230673`*^9}, {3.733961352221697*^9, 3.7339613636429825`*^9},{
 3.73396140349555*^9, 3.733961414177891*^9}, {3.733964360783088*^9, 
 3.733964395583483*^9}, {3.733964439136566*^9, 3.733964651960837*^9}, 
 3.7339647476475153`*^9, {3.7339648023947697`*^9, 3.733965025340719*^9}, {
 3.7339650854686103`*^9, 3.733965113812894*^9}, {3.734008374072563*^9, 
 3.73400838873098*^9}, {3.7340084277008643`*^9, 3.734008553398749*^9}, {
 3.734008615437196*^9, 3.7340086349326262`*^9}, {3.7340086726195145`*^9, 
 3.734008709463791*^9}, {3.734008749843674*^9, 3.7340087685877624`*^9}, {
 3.7340114248212748`*^9, 3.7340115146240454`*^9}, {3.7340115531044674`*^9, 
 3.734011865617236*^9}, {3.7340124034179735`*^9, 3.7340126074661913`*^9}, {
 3.734012764641083*^9, 3.7340128703811502`*^9}, {3.7340129118136053`*^9, 
 3.734012916754121*^9}, 3.7340134529107575`*^9, {3.734013657810244*^9, 
 3.734013658233514*^9}, {3.7340148305943527`*^9, 3.734014912596698*^9}, {
 3.7340207645228887`*^9, 3.7340210665027065`*^9}, {3.73402110065142*^9, 
 3.734021238474384*^9}, {3.734021271759144*^9, 3.734021286090128*^9}, {
 3.7340232960431585`*^9, 3.7340233128475347`*^9}, {3.7340408471306086`*^9, 
 3.734040898274479*^9}, {3.7340421757275314`*^9, 3.7340422153810205`*^9}, {
 3.73404226162416*^9, 3.7340422674821053`*^9}, {3.7340423034471693`*^9, 
 3.7340423047219486`*^9}, {3.734042339023946*^9, 3.7340425157374725`*^9}, {
 3.7340425521256075`*^9, 3.7340425769718103`*^9}, {3.7340426313259373`*^9, 
 3.734042727113407*^9}, {3.734043119302734*^9, 3.734043134730749*^9}, {
 3.734043171672332*^9, 3.734043335181961*^9}, {3.7340433706594424`*^9, 
 3.734043596206908*^9}, {3.734043636558399*^9, 3.734043669407651*^9}, {
 3.73404455366768*^9, 3.7340451905824165`*^9}, {3.7340452362220545`*^9, 
 3.7340456334243374`*^9}, {3.734045664941246*^9, 3.734045781850812*^9}, {
 3.734045813972395*^9, 3.7340460170404763`*^9}, {3.73404604794947*^9, 
 3.7340460593267355`*^9}, {3.734046110881933*^9, 3.7340461173148823`*^9}, {
 3.734046153952652*^9, 3.7340463276909275`*^9}, {3.7340465187325096`*^9, 
 3.7340465869741926`*^9}, {3.734046631285526*^9, 3.734046631684824*^9}, {
 3.7340468566636114`*^9, 3.734046915950143*^9}, {3.734046950807928*^9, 
 3.7340469508845606`*^9}, {3.7340479221129084`*^9, 3.734047978259799*^9}, {
 3.7340482999248247`*^9, 3.7340483012688646`*^9}, {3.734048332630285*^9, 
 3.734048334715804*^9}, {3.7340507720730953`*^9, 3.7340508006168995`*^9}, {
 3.7340508748703594`*^9, 3.7340508827570744`*^9}, {3.7340509316914835`*^9, 
 3.734050990843589*^9}, {3.734093742758112*^9, 3.734093758556307*^9}, {
 3.7340938457160635`*^9, 3.734093882281505*^9}, {3.734093925167633*^9, 
 3.734093935900408*^9}, {3.734093971318513*^9, 3.7340940649343653`*^9}, {
 3.7342136696610403`*^9, 3.734213762900058*^9}, {3.7345633450676994`*^9, 
 3.734563348557459*^9}, 3.742901017791304*^9, {3.742942905750416*^9, 
 3.7429429323824368`*^9}, {3.7429985794371862`*^9, 3.742998585598215*^9}, 
 3.7430231677072625`*^9, {3.7440662101043067`*^9, 3.744066242172451*^9}, {
 3.7440662999525757`*^9, 3.744066394418796*^9}, {3.744066491713811*^9, 
 3.7440665783289027`*^9}, {3.744138789813716*^9, 3.7441388092950497`*^9}, {
 3.744138841059084*^9, 3.744138860258731*^9}, {3.7441390819158196`*^9, 
 3.7441390823755045`*^9}, {3.7441392065055437`*^9, 3.744139206688776*^9}, {
 3.744139267453324*^9, 3.7441393213500557`*^9}, {3.7441393950654554`*^9, 
 3.744139432970802*^9}, {3.7441395498087473`*^9, 3.7441396158902564`*^9}, {
 3.744139649990453*^9, 3.744139659855155*^9}, {3.744139709264941*^9, 
 3.7441397547049446`*^9}, {3.7441400048790736`*^9, 3.744140031025934*^9}, {
 3.7441400624282513`*^9, 3.7441401195107393`*^9}, {3.7441404907925467`*^9, 
 3.7441405154306154`*^9}, {3.7442313914812994`*^9, 3.744231402580426*^9}, {
 3.765672010707987*^9, 3.7656720107140584`*^9}, {3.765672088138101*^9, 
 3.7656720881441655`*^9}, {3.7656721526739283`*^9, 
 3.7656721526739283`*^9}, {3.765672701253809*^9, 3.765672766014151*^9}, {
 3.7656728122343187`*^9, 3.7656729133539104`*^9}, {3.76567297861436*^9, 
 3.765673003143695*^9}, {3.7656730349242535`*^9, 3.765673062733833*^9}, {
 3.765673119743658*^9, 3.765673152293969*^9}, {3.765673205024021*^9, 
 3.7656732050343323`*^9}, {3.7656733003944583`*^9, 3.765673508404438*^9}, 
 3.765673733837205*^9, {3.7656737953832493`*^9, 3.7656738461082726`*^9}, {
 3.7656738911940813`*^9, 3.7656739051045156`*^9}, {3.765674664604555*^9, 
 3.765674801969162*^9}, 3.7657140340894117`*^9, {3.7657140745713434`*^9, 
 3.765714079682609*^9}},ExpressionUUID->"5791520a-8353-4990-8043-\
e2032f5499df"],
Cell[BoxData[{
 RowBox[{
 RowBox[{"f", "[", "x_", "]"}], ":=", 
 RowBox[{"Piecewise", "[", 
 RowBox[{"{", 
 RowBox[{
 RowBox[{"{", 
 RowBox[{
 RowBox[{
 RowBox[{"1", "/", "8"}], "*", 
 RowBox[{"x", "^", "2"}]}], ",", 
 RowBox[{
 RowBox[{"-", "2"}], "\[LessEqual]", "x", "\[LessEqual]", "2"}]}], 
 "}"}], ",", 
 RowBox[{"{", 
 RowBox[{"Indeterminate", ",", 
 RowBox[{"x", "<", 
 RowBox[{"-", "2"}]}]}], "}"}], ",", 
 RowBox[{"{", 
 RowBox[{"Indeterminate", ",", 
 RowBox[{"x", ">", "2"}]}], "}"}]}], "}"}], 
 "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
 RowBox[{"q1", "=", 
 RowBox[{"{", 
 RowBox[{
 RowBox[{"PointSize", "[", "0.03", "]"}], ",", "Red", ",", 
 RowBox[{"Point", "[", 
 RowBox[{"{", 
 RowBox[{"5", ",", "2"}], "}"}], "]"}]}], "}"}]}], ";", 
 RowBox[{"q2", "=", 
 RowBox[{"Graphics", "[", 
 RowBox[{"{", 
 RowBox[{"Dashed", ",", 
 RowBox[{"Circle", "[", 
 RowBox[{
 RowBox[{"{", 
 RowBox[{"5", ",", "2"}], "}"}], ",", 
 RowBox[{"3", "/", "10"}]}], "]"}]}], "}"}], "]"}]}], ";", 
 RowBox[{"q3", "=", 
 RowBox[{"{", 
 RowBox[{
 RowBox[{"PointSize", "[", "0.03", "]"}], ",", "Red", ",", 
 RowBox[{"Point", "[", 
 RowBox[{"{", 
 RowBox[{"3", ",", "2"}], "}"}], "]"}]}], "}"}]}], ";", 
 RowBox[{"q4", "=", 
 RowBox[{"Graphics", "[", 
 RowBox[{"{", 
 RowBox[{"Dashed", ",", 
 RowBox[{"Circle", "[", 
 RowBox[{
 RowBox[{"{", 
 RowBox[{"3", ",", "2"}], "}"}], ",", 
 RowBox[{"3", "/", "10"}]}], "]"}]}], "}"}], "]"}]}], 
 ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
 RowBox[{
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"x", "-", "1.75"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", "1.64", ",", "1.65"}], "}"}]}], "]"}], ",", 
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"x", "-", "1.75"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", 
 RowBox[{"6", "+", "2", "-", "1.64"}], ",", 
 RowBox[{"6", "+", "2", "-", "1.65"}]}], "}"}]}], "]"}], ",", 
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{
 RowBox[{"f", "[", 
 RowBox[{"x", "-", "4"}], "]"}], "+", "0.5"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", "1.5", ",", "8"}], "}"}]}], "]"}], ",", 
 RowBox[{"Graphics", "[", "q1", "]"}], ",", 
 RowBox[{"Graphics", "[", "q3", "]"}], ",", "q2", ",", "q4", ",", 
 RowBox[{"PlotRange", "->", 
 RowBox[{"{", 
 RowBox[{"0", ",", "2.5"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{
 3.73445081804105*^9, {3.7344508507532854`*^9, 3.7344508866523533`*^9}, {
 3.7344509209526644`*^9, 3.7344509401299105`*^9}, {3.73445097081693*^9, 
 3.7344510457441497`*^9}, {3.734451230330224*^9, 3.7344512322450647`*^9}, {
 3.7344512631634884`*^9, 3.7344512949415703`*^9}, {3.734451325437642*^9, 
 3.7344513429880714`*^9}, {3.7344513765429945`*^9, 
 3.7344513770262594`*^9}, {3.7344657247060924`*^9, 3.73446575546115*^9}, {
 3.734465907745473*^9, 3.7344659475210466`*^9}, {3.734465997953286*^9, 
 3.7344660240851135`*^9}, {3.7344660873193645`*^9, 
 3.7344661522897396`*^9}, {3.7344662166983304`*^9, 
 3.7344662618920765`*^9}, {3.7344663286160283`*^9, 3.734466576616929*^9},{
 3.7344666513907666`*^9, 3.734466657892062*^9}, {3.734466838845745*^9, 
 3.734466838955328*^9}, {3.734466927512516*^9, 3.7344669684134426`*^9}, {
 3.7344670319169436`*^9, 3.7344671899536476`*^9}, {3.7344672241670494`*^9, 
 3.734467498990656*^9}, {3.734467547564529*^9, 3.734467548518176*^9}, {
 3.734467592981526*^9, 3.7344676235503225`*^9}, {3.7345225600060234`*^9, 
 3.734522606235837*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"1921dc3b-0e42-4aa7-bfc3-cde1e11da525"],
Cell["\<\
 
\
\>", "Text",
 CellChangeTimes->{{3.765672212325144*^9, 
 3.7656722145939727`*^9}},ExpressionUUID->"8536716e-122e-4f94-8d41-\
9979a10f1c2a"],
Cell[TextData[{
 StyleBox[ButtonBox["1.1",
 BaseStyle->"Hyperlink",
 ButtonData->"Indice"],
 FontSize->24,
 FontColor->RGBColor[1, 0, 0],
 Background->None],
 StyleBox["\n",
 FontSize->24,
 FontColor->RGBColor[1, 0, 0],
 Background->None],
 StyleBox["Valor num\[EAcute]rico N[x], se usa para determinar el valor num\
\[EAcute]rico de una expresi\[OAcute]n",
 Background->None]
}], "Text",
 CellChangeTimes->{
 3.733961368262466*^9, {3.7340290698070602`*^9, 3.7340290711896305`*^9}, {
 3.734042308710981*^9, 3.7340423094598885`*^9}, {3.734051014145804*^9, 
 3.7340510282831993`*^9}, {3.7656722064444246`*^9, 3.765672221044182*^9}, {
 3.765887908413303*^9, 3.765887908413303*^9}},
 CellTags->"1.1",ExpressionUUID->"bcfdeccc-a84e-4944-b132-51365affddd7"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"N", "[", 
 RowBox[{"1", "/", "3"}], "]"}]], "Input",
 CellChangeTimes->{{3.732719519766224*^9, 3.732719537757199*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"96988ee3-2148-440c-9d96-6f82505a576c"],
Cell[BoxData["0.3333333333333333`"], "Output",
 CellChangeTimes->{3.7327195383651147`*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"81c45f00-1d2d-4bfc-837f-d8e19a2d2184"]
}, Open ]],
Cell["\<\
Al usarlo as\[IAcute] se mostraran en el Out solo los primero 6 \
d\[IAcute]gitos desde la izquierda, Ejemplo:\
\>", "Text",
 CellChangeTimes->{{3.7327197484387636`*^9, 3.73271976015374*^9}, {
 3.73271981074337*^9, 3.7327198195657473`*^9}, {3.732720608078535*^9, 
 3.7327206160578003`*^9}},ExpressionUUID->"4ef8df1b-e504-42ae-b15b-\
bf984890137a"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"N", "[", "54872734529", "]"}]], "Input",
 CellChangeTimes->{{3.7327197364770813`*^9, 3.7327197427083535`*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"d50459a9-ee5a-42ed-8275-42afc47754e1"],
Cell[BoxData["5.4872734529`*^10"], "Output",
 CellChangeTimes->{3.7327197438033495`*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"6737b96a-aca9-41c5-a303-22938b1de60e"]
}, Open ]],
Cell["\<\
Para que se muestren, mas d\[IAcute]gitos se puede usar el mismo comando de \
la forma:
N[x,a] , x es el numero y a es la cantidad de d\[IAcute]gitos que se \
ver\[AAcute]n desde el primer numero desde la izquierda distinto de 0\
\>", "Text",
 CellChangeTimes->{
 3.7327195057205505`*^9, {3.7327195502935495`*^9, 3.732719644525013*^9}, {
 3.7327196954380054`*^9, 3.7327197137775383`*^9}, {3.732719837902959*^9, 
 3.7327198393192673`*^9}, {3.7327206215377393`*^9, 3.732720632419634*^9}, 
 3.7339622492115765`*^9, {3.7340213170156465`*^9, 3.734021317370734*^9}, {
 3.7340510605491734`*^9, 3.7340511162516966`*^9}, {3.7340511572889485`*^9, 
 3.7340511619180756`*^9}},ExpressionUUID->"7ad3c000-b386-423d-ad13-\
37a65a4b1660"],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"N", "[", 
 RowBox[{"54872734529", ",", "8"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
 RowBox[{"2", "/", "3000"}], "]"}]}], "Input",
 CellChangeTimes->{{3.732719778066842*^9, 3.732719778429759*^9}, {
 3.734051175385225*^9, 3.734051182343021*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"798a8f67-fb99-44bc-b582-4ddaccb635a4"],
Cell[BoxData["5.4872734529`8.*^10"], "Output",
 CellChangeTimes->{
 3.732719779553046*^9, {3.734051176549304*^9, 3.734051183039424*^9}},
 CellLabel->"Out[4]=",ExpressionUUID->"a8e205a1-7ee9-41a4-af8f-0abe81e03db5"],
Cell[BoxData["0.0006666666666666666`"], "Output",
 CellChangeTimes->{
 3.732719779553046*^9, {3.734051176549304*^9, 3.734051183043937*^9}},
 CellLabel->"Out[5]=",ExpressionUUID->"cbab9ce8-2939-496b-82de-efcb72cc16a0"]
}, Open ]],
Cell[TextData[{
 StyleBox["1.2\n",
 FontSize->24,
 FontColor->RGBColor[1, 0, 0]],
 StyleBox["P",
 FontSize->14,
 FontColor->GrayLevel[0]],
 "ar\[EAcute]ntesis de llave { } se aplica para listas, cada elemento \
separados por coma *sirve separar cualquier tipo de elemento (graficas",
 StyleBox["*2.1",
 FontColor->RGBColor[0, 0, 1]],
 ", funciones, valores, limites",
 StyleBox["*3.1",
 FontColor->RGBColor[0, 0, 1]],
 " ... etc). Las llaves cuando estan dentro de un comando tienen otro \
significado.\nEjemplos:"
}], "Text",
 CellChangeTimes->{{3.7307513615134554`*^9, 3.730751376870898*^9}, {
 3.732719281285493*^9, 3.732719283378202*^9}, {3.732719857856675*^9, 
 3.7327198748598194`*^9}, {3.7339619751263*^9, 3.733962048014837*^9}, {
 3.7340290764499617`*^9, 3.7340290808728204`*^9}, {3.73404108161825*^9, 
 3.734041126234702*^9}, {3.7340411933535233`*^9, 3.734041221939639*^9}, {
 3.7340413157222853`*^9, 3.734041315835966*^9}, {3.734563127165284*^9, 
 3.734563189826253*^9}, {3.7441382557048244`*^9, 3.744138255878454*^9}},
 CellTags->"1.2",ExpressionUUID->"8f5b2805-76ec-4163-8019-b79554e830c5"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"{", " ", 
 RowBox[{
 RowBox[{"N", "[", 
 RowBox[{"2", "/", "3000"}], "]"}], " ", ",", " ", 
 RowBox[{"N", "[", 
 RowBox[{
 RowBox[{"2", "/", "3"}], " ", ",", " ", "12"}], "]"}]}], " ", 
 "}"}]], "Input",
 CellChangeTimes->{{3.6984359547571626`*^9, 3.6984359606860685`*^9}, {
 3.7099098751930027`*^9, 3.709909898067129*^9}, {3.7340511455768976`*^9, 
 3.7340511461073017`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"d5446761-3e29-4a9d-8127-6b460f027176"],
Cell[BoxData[
 RowBox[{"{", 
 RowBox[{
 "0.0006666666666666666`", ",", 
 "0.66666666666666666666666666666666666667`12."}], "}"}]], "Output",
 CellChangeTimes->{3.6984359621235266`*^9, 3.7099098993171005`*^9, 
 3.7340511474791727`*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"7d24c5e3-10e5-4ae2-989c-9912d7f56906"]
}, Open ]],
Cell["", "Text",
 CellChangeTimes->{{3.73396217793906*^9, 
 3.733962207154162*^9}},ExpressionUUID->"0512cb82-c154-44dc-93cb-\
dcc33d7ab71f"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"{", 
 RowBox[{
 RowBox[{"N", "[", 
 RowBox[{
 RowBox[{"g", "[", "4", "]"}], ",", "3"}], "]"}], ",", " ", 
 RowBox[{"N", "[", 
 RowBox[{
 RowBox[{"g", "[", "4", "]"}], ",", "4"}], "]"}], ",", " ", 
 RowBox[{"N", "[", 
 RowBox[{
 RowBox[{"g", "[", "4", "]"}], ",", "5"}], "]"}], ",", 
 RowBox[{"N", "[", 
 RowBox[{
 RowBox[{"g", "[", "4", "]"}], ",", "6"}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.6796687413154335`*^9, 3.679668790828486*^9}, {
 3.697816908525304*^9, 3.697816909119001*^9}, {3.6978172617976246`*^9, 
 3.6978172740489635`*^9}, {3.6978174552872734`*^9, 3.69781753048297*^9}, 
 3.732720056608761*^9},
 CellLabel->"In[10]:=",ExpressionUUID->"35fa27f6-51e7-43af-a893-4f26516c9b91"],
Cell[BoxData[
 RowBox[{"{", 
 RowBox[{
 "1.709975946676696877`3.", ",", "1.709975946676696877`4.", ",", 
 "1.709975946676696877`5.", ",", "1.709975946676696877`6."}], 
 "}"}]], "Output",
 CellChangeTimes->{
 3.679668791750354*^9, 3.679670050767521*^9, 3.6978169186824946`*^9, 
 3.6978172752678485`*^9, 3.697817500792173*^9, 3.6978175327018347`*^9, 
 3.697817603162589*^9, 3.729901362595821*^9, {3.732720066872731*^9, 
 3.7327200772645144`*^9}},
 CellLabel->"Out[10]=",ExpressionUUID->"2706471c-b6ba-4358-974f-962ca84a813a"]
}, Open ]],
Cell[TextData[StyleBox["la funcion g esta definida en el capitulo *2.0",
 FontColor->RGBColor[0, 0, 1]]], "Text",
 CellChangeTimes->{{3.7327200895358887`*^9, 3.732720109298199*^9},{
 3.733962077937892*^9, 3.733962142082879*^9}, 3.7339621722247915`*^9, {
 3.733962210001231*^9, 3.733962240842064*^9}, 3.7340410755918756`*^9, {
 3.734041131686166*^9, 3.734041133416892*^9}, {3.734041364408525*^9, 
 3.7340413933931847`*^9}, {3.7340463749196205`*^9, 
 3.7340463772190037`*^9}},ExpressionUUID->"c9927134-5a44-4f0c-900a-\
214503411f30"],
Cell[TextData[{
 StyleBox["1.3\n",
 FontSize->24,
 FontColor->RGBColor[1, 0, 0]],
 " Ra\[IAcute]z cuadrada"
}], "Text",
 CellChangeTimes->{{3.7099101377409444`*^9, 3.709910151073163*^9}, {
 3.709910187597929*^9, 3.709910221264656*^9}, {3.730751116539698*^9, 
 3.730751129105796*^9}, {3.7327192889354897`*^9, 3.7327192966668663`*^9}, 
 3.734029107213969*^9, 3.734051194645514*^9},
 CellTags->"1.3",ExpressionUUID->"4a0e9c80-4dde-4dc1-b494-ca89134aed14"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Sqrt", "[", "2", "]"}]], "Input",
 CellChangeTimes->{{3.7307511374854918`*^9, 3.7307511550866985`*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"8ea68744-8c98-4118-93b4-7f5aa04a99b1"],
Cell[BoxData[
 SqrtBox["2"]], "Output",
 CellChangeTimes->{3.730751156472698*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"5b04d174-6f4e-41f2-a356-b6cb756ab28e"]
}, Open ]],
Cell["Ra\[IAcute]z cuadrada de la ra\[IAcute]z cuadrada de 3 mas 1", "Text",
 CellChangeTimes->{{3.7307511637330484`*^9, 3.7307511930520334`*^9}, {
 3.7327193070310593`*^9, 
 3.7327193356652794`*^9}},ExpressionUUID->"c9ec0386-86cb-43d9-a77b-\
cd5599b07b8e"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Sqrt", "[", 
 RowBox[{
 RowBox[{"Sqrt", "[", "3", "]"}], "+", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.709910159548114*^9, 
 3.7099101771771765`*^9}},ExpressionUUID->"6a03f42b-cb5c-4900-8706-\
d23fdc28b244"],
Cell[BoxData[
 SqrtBox[
 RowBox[{"1", "+", 
 SqrtBox["3"]}]]], "Output",
 CellChangeTimes->{
 3.70991017883342*^9},ExpressionUUID->"f8da50a3-c14c-400c-ac73-51018070536b"]
}, Open ]],
Cell[TextData[{
 StyleBox["1.4\n",
 FontSize->24,
 FontColor->RGBColor[1, 0, 0]],
 " El comando",
 StyleBox[" ",
 FontWeight->"Bold"],
 StyleBox["% ",
 FontWeight->"Bold",
 FontColor->RGBColor[1, 0, 0]],
 "realiza la operaci\[OAcute]n sobre el \[UAcute]ltimo dato calculado. Al \
usarlo se usara lo que esta dentro del ultimo Out generado."
}], "Text",
 CellChangeTimes->{{3.709910236121117*^9, 3.709910290708033*^9}, 
 3.7099103797350607`*^9, {3.73075122500955*^9, 3.7307512414141607`*^9}, {
 3.7327193392347617`*^9, 3.7327194049165354`*^9}, {3.7327199058812504`*^9, 
 3.732719912489853*^9}, {3.7327206378486247`*^9, 3.732720643987297*^9}, {
 3.732720696674027*^9, 3.7327206984006243`*^9}, {3.733961044514075*^9, 
 3.733961047768547*^9}, 3.734029111211811*^9},
 CellTags->"1.4",ExpressionUUID->"1285d75d-7de0-4a76-a370-b35e0c0c8f02"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"N", "[", 
 RowBox[{"%", ",", "10"}], "]"}]], "Input",
 CellChangeTimes->{{3.709910297525218*^9, 
 3.7099103153668375`*^9}},ExpressionUUID->"93f518aa-69a7-4f47-9868-\
485481286894"],
Cell[BoxData["1.65289165028106948009584147101503434347`10."], "Output",
 CellChangeTimes->{
 3.7099103162461114`*^9},ExpressionUUID->"039752c4-5149-485f-a85a-\
30f3272c148e"]
}, Open ]],
Cell[TextData[{
 StyleBox["1.5",
 FontSize->24,
 FontColor->RGBColor[1, 0, 0]],
 "\nPi = \[Pi]\n",
 StyleBox["E =\[ExponentialE]",
 FontColor->GrayLevel[0]]
}], "Text",
 CellChangeTimes->{{3.6796695445495825`*^9, 3.6796695896745853`*^9}, {
 3.697816925058323*^9, 3.697817059822719*^9}, {3.6978173891083775`*^9, 
 3.697817403953718*^9}, {3.6978176122573185`*^9, 3.6978176363069105`*^9}, 
 3.7307513966543636`*^9, {3.730751440555833*^9, 3.7307514542563004`*^9}, {
 3.7327201302258167`*^9, 3.7327201325929956`*^9}, {3.732720700657858*^9, 
 3.7327207013348255`*^9}, {3.7339602639014883`*^9, 3.7339602739535418`*^9}},
 CellTags->"1.5",ExpressionUUID->"7179b8c7-d1a4-4108-a79e-57a9178a9c31"],
Cell[CellGroupData[{
Cell[BoxData[{"Pi", "\[IndentingNewLine]", "E"}], "Input",
 CellChangeTimes->{{3.6796696026582246`*^9, 3.679669621267767*^9}, {
 3.7307514013122597`*^9, 3.730751402429329*^9}, {3.733960291892292*^9, 
 3.733960292278449*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"878f01e7-120e-452d-8430-166bd675bdea"],
Cell[BoxData["\[Pi]"], "Output",
 CellChangeTimes->{{3.6796696090801272`*^9, 3.6796696226584287`*^9}, 
 3.7307514043783665`*^9, 3.733960294810845*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"02e6b184-1866-4268-a364-90cac39cc50a"],
Cell[BoxData["\[ExponentialE]"], "Output",
 CellChangeTimes->{{3.6796696090801272`*^9, 3.6796696226584287`*^9}, 
 3.7307514043783665`*^9, 3.7339602948148537`*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"9ab0d0e9-40ac-4cb0-8a4d-d85ebfb0e5c0"]
}, Open ]],
Cell["\<\
Para escribir las funciones trigonom\[EAcute]tricas se usan los siguientes \
comandos\
\>", "Text",
 CellChangeTimes->{{3.733960366857743*^9, 3.7339603871284266`*^9}, {
 3.7339604617903447`*^9, 
 3.7339604934451113`*^9}},ExpressionUUID->"437fee40-5365-43fe-8bc1-\
8dc0626f1f3d"],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"Sin", "[", "Pi", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Tan", "[", "Pi", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Cos", "[", "Pi", "]"}]}], "Input",
 CellChangeTimes->{{3.733960397208111*^9, 3.7339604475291834`*^9}, {
 3.7339604963351707`*^9, 
 3.733960549348168*^9}},ExpressionUUID->"3d74b17e-b7c0-46ef-950a-\
2fc0c33c17ee"],
Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.7339604149139895`*^9, 3.733960448118597*^9}, 
 3.7339605388891616`*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"0f9205c9-cb74-4b55-8184-3428b6f71ee9"],
Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.7339604149139895`*^9, 3.733960448118597*^9}, 
 3.7339605388941846`*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"91edf357-8cbb-43a4-9eb9-7c1b3565eceb"],
Cell[BoxData[
 RowBox[{"-", "1"}]], "Output",
 CellChangeTimes->{{3.7339604149139895`*^9, 3.733960448118597*^9}, 
 3.7339605388966813`*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"da87fae1-d47e-4cf1-86af-31288a2b38a7"]
}, Open ]],
Cell[TextData[{
 StyleBox["1.6\n",
 FontSize->24,
 FontColor->RGBColor[1, 0, 0]],
 "Variables: se pueden definir las letras, combinaciones de letras o s\
\[IAcute]mbolos (que no est\[EAcute]n ya definidas por el programa) y decir \
que son: un conjunto de elementos, funciones ",
 StyleBox["*2.0",
 FontColor->RGBColor[0, 0, 1]],
 " ,un valor, una gr\[AAcute]fica ",
 StyleBox["*2.1",
 FontColor->RGBColor[0, 0, 1]],
 "... etc (b\[AAcute]sicamente iguales a casi cualquier Out o in que puedas \
poner el en programa), y despu\[EAcute]s el programa los recordara."
}], "Text",
 CellChangeTimes->{{3.73396379007281*^9, 3.7339638510707445`*^9}, {
 3.733963890931802*^9, 3.733964154971349*^9}, {3.7339642551991663`*^9, 
 3.7339642554250317`*^9}, {3.734023223003209*^9, 3.734023233952407*^9}, {
 3.7340232774454947`*^9, 3.7340232819233217`*^9}, {3.734023340816448*^9, 
 3.7340233455720797`*^9}, {3.7340236758994617`*^9, 3.7340236956065216`*^9}, {
 3.7340291162835407`*^9, 3.7340291301822424`*^9}},
 CellTags->"1.6",ExpressionUUID->"999dc809-28e3-44c0-846b-9f7d0ab37f22"],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"p", "=", "3"}], "\[IndentingNewLine]", 
 RowBox[{"k", "=", 
 RowBox[{"Sqrt", "[", "2", "]"}]}]}], "Input",
 CellChangeTimes->{{3.733963861243534*^9, 3.7339638804498577`*^9}, {
 3.733964164603965*^9, 3.733964190161763*^9}, {3.7339642491581697`*^9, 
 3.7339643372571173`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"101156dd-52c1-4c7f-ac6e-0f7cbdb151db"],
Cell[BoxData["3"], "Output",
 CellChangeTimes->{{3.7339638639951982`*^9, 3.7339638781866055`*^9}, 
 3.733964190827817*^9, 3.7339643012601147`*^9, 3.733964337781047*^9, 
 3.7340231195512533`*^9, 3.7345632791033506`*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"4d4aebf8-4fc8-41d5-8a75-b2870b13570e"],Cell[BoxData[
 SqrtBox["2"]], "Output",
 CellChangeTimes->{{3.7339638639951982`*^9, 3.7339638781866055`*^9}, 
 3.733964190827817*^9, 3.7339643012601147`*^9, 3.733964337781047*^9, 
 3.7340231195512533`*^9, 3.734563279116401*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"aa55d63e-73d3-4797-ae73-f0da80864149"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"k", "+", "p"}], "\[IndentingNewLine]", 
 RowBox[{"k", "*", "p"}]}], "Input",
 CellChangeTimes->{{3.7339641932313027`*^9, 3.7339641965717955`*^9}, 
 3.733964258881875*^9, {3.7339643149842587`*^9, 3.7339643269192286`*^9}},
 CellLabel->"In[84]:=",ExpressionUUID->"5c947823-19b7-498e-bf9c-8383d75a080c"],
Cell[BoxData[
 RowBox[{"3", "+", 
 SqrtBox["2"]}]], "Output",
 CellChangeTimes->{
 3.7339641969355965`*^9, {3.7339643277551055`*^9, 3.7339643398178053`*^9}, 
 3.7340231221997757`*^9},
 CellLabel->"Out[84]=",ExpressionUUID->"982f5b26-54f2-40ac-97d3-10ad4bec6fd4"],
Cell[BoxData[
 RowBox[{"3", " ", 
 SqrtBox["2"]}]], "Output",
 CellChangeTimes->{
 3.7339641969355965`*^9, {3.7339643277551055`*^9, 3.7339643398178053`*^9}, 
 3.734023122206746*^9},
 CellLabel->"Out[85]=",ExpressionUUID->"39fc6e7b-7f73-4a9c-8286-19a31ccbbd30"]
}, Open ]],
Cell[TextData[{
 "El programa lee las combinaciones de letras o s\[IAcute]mbolos como \
variables diferentes (tambi\[EAcute]n esto incluye a los n\[UAcute]meros el \
programa considera por ejemplo a k12 como una variable), si quieres hacer una \
operaci\[OAcute]n entre dos variables tienes que indicarlo en el Input (de \
hecho tambi\[EAcute]n pasa lo mismo con los n\[UAcute]meros si es que los \
pones despues de la variable si los pones antes el programa los lee como una \
multiplicacion), de otro modo el programa lo leer\[AAcute] como una variable \
sin definir. ",
 StyleBox["*3.0",
 FontColor->RGBColor[0, 0, 1]],
 "\nEjemplo: (pensando en que ya definimos k y p antes)"
}], "Text",
 CellChangeTimes->{{3.7340229894557323`*^9, 3.7340231144925013`*^9}, {
 3.734023198410932*^9, 3.734023211227722*^9}, {3.73403430137716*^9, 
 3.7340343654733953`*^9}, {3.734034423004444*^9, 3.734034435221445*^9}, {
 3.734034479999612*^9, 3.7340345057109623`*^9}, {3.734035182675497*^9, 
 3.734035190085951*^9}, {3.734563236257434*^9, 
 3.734563266016508*^9}},ExpressionUUID->"a06c234a-e131-4fa6-a7a3-\
020ef022b7f4"],
Cell[CellGroupData[{
Cell[BoxData[{"kpk", "\[IndentingNewLine]", "k1", "\[IndentingNewLine]", 
 RowBox[{"k", "*", "p", "*", "k"}], "\[IndentingNewLine]", 
 RowBox[{"k5", "=", "12"}], "\[IndentingNewLine]", 
 RowBox[{"5", "k"}], "\[IndentingNewLine]", 
 RowBox[{"kp", "=", "800"}]}], "Input",
 CellChangeTimes->{{3.7340231260445166`*^9, 3.734023177685115*^9}, {
 3.7340232558825874`*^9, 3.7340232565609207`*^9}, {3.7340343691758747`*^9, 
 3.734034403832835*^9}, {3.7345632706665783`*^9, 3.7345632759931045`*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"dd8019ec-d6be-45d8-922f-2043bf98d847"],
Cell[BoxData["kpk"], "Output",
 CellChangeTimes->{{3.73402314419532*^9, 3.7340231789346523`*^9}, {
 3.7340343742460356`*^9, 3.7340344052689185`*^9}, 3.73403446340974*^9, 
 3.73456328527181*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"761e7609-320c-4c8b-9870-789ef9833fc4"],
Cell[BoxData["k1"], "Output",
 CellChangeTimes->{{3.73402314419532*^9, 3.7340231789346523`*^9}, {
 3.7340343742460356`*^9, 3.7340344052689185`*^9}, 3.73403446340974*^9, 
 3.7345632852874565`*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"03905acb-1329-4d9e-8b12-dabe55969059"],
Cell[BoxData["6"], "Output",
 CellChangeTimes->{{3.73402314419532*^9, 3.7340231789346523`*^9}, {
 3.7340343742460356`*^9, 3.7340344052689185`*^9}, 3.73403446340974*^9, 
 3.734563285290635*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"cb14aa3e-47bf-43a4-894a-33d397cc43f4"],
Cell[BoxData["12"], "Output",
 CellChangeTimes->{{3.73402314419532*^9, 3.7340231789346523`*^9}, {
 3.7340343742460356`*^9, 3.7340344052689185`*^9}, 3.73403446340974*^9, 
 3.734563285290635*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"d5d9f451-5486-4e34-91e6-9857a246a7cd"],
Cell[BoxData[
 RowBox[{"5", " ", 
 SqrtBox["2"]}]], "Output",
 CellChangeTimes->{{3.73402314419532*^9, 3.7340231789346523`*^9}, {
 3.7340343742460356`*^9, 3.7340344052689185`*^9}, 3.73403446340974*^9, 
 3.734563285290635*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"1c94ab33-3459-4c0f-9410-6dd1facec8d1"],
Cell[BoxData["800"], "Output",
 CellChangeTimes->{{3.73402314419532*^9, 3.7340231789346523`*^9}, {
 3.7340343742460356`*^9, 3.7340344052689185`*^9}, 3.73403446340974*^9, 
 3.734563285290635*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"23c1bb64-650b-4fdb-98d7-ed2157c20f38"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{"kp", "\[IndentingNewLine]", 
 RowBox[{"k5", "*", "3"}]}], "Input",
 CellChangeTimes->{{3.7340231893986998`*^9, 3.7340231895210733`*^9}, {
 3.734034398050846*^9, 3.7340343994849834`*^9}, {3.7340344503233747`*^9, 
 3.7340344565100307`*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"0bb4a0dd-2be0-46f6-8b92-cd71491e3f9b"],
Cell[BoxData["800"], "Output",
 CellChangeTimes->{3.734023191788829*^9, 3.734034459185315*^9, 
 3.734563289002062*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"a3c74f62-9f82-4d8e-867e-03d72cc4ea50"],
Cell[BoxData["36"], "Output",
 CellChangeTimes->{3.734023191788829*^9, 3.734034459185315*^9, 
 3.734563289005014*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"dcef2b20-d922-459f-bbbc-fd0fa4548048"]
}, Open ]],
Cell[TextData[{
 "\n",
 StyleBox["1.7\n",
 FontSize->24,
 FontColor->RGBColor[1, 0, 0]],
 "El comando",
 StyleBox[" ",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox["ClearAll limpia asignaciones anteriores",
 FontWeight->"Bold",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[".",
 FontWeight->"Bold"],
 "\nEsto se usa despu\[EAcute]s de haber hecho un problema para que no queden \
huellas de asignaciones anteriores para una letra en especifico (tambi\
\[EAcute]n sirve para borrar funciones ",
 StyleBox["*2.0",
 FontColor->RGBColor[0, 0, 1]],
 ". Osea cuando hemos definido algo en especifico para una inc\[OAcute]gnita. \
Ejemplo x=1 "
}], "Text",
 CellChangeTimes->{{3.6978177065175695`*^9, 3.697817896147414*^9}, {
 3.6978181655044565`*^9, 3.697818241512685*^9}, {3.697818528354838*^9, 
 3.6978186083165693`*^9}, {3.697818749019126*^9, 3.697818785929511*^9}, {
 3.697819418169421*^9, 3.6978194777695894`*^9}, 3.697826551081898*^9, {
 3.6982725231164455`*^9, 3.698272603606604*^9}, {3.698358463942144*^9, 
 3.69835847830302*^9}, 3.698358661435993*^9, {3.7099104897941837`*^9, 
 3.7099105196407275`*^9}, {3.729901439490587*^9, 3.7299014517099943`*^9}, {
 3.730751480033722*^9, 3.7307514805186763`*^9}, {3.7307516818769*^9, 
 3.730751691973129*^9}, {3.7307518162259398`*^9, 3.7307518166270504`*^9}, {
 3.7327201857869067`*^9, 3.732720213675894*^9}, {3.732720297403878*^9, 
 3.7327203858215275`*^9}, {3.7327204686445203`*^9, 3.732720475177862*^9}, {
 3.7327207050247297`*^9, 3.7327207057724752`*^9}, 3.7327208654767623`*^9, {
 3.7339605626117296`*^9, 3.7339606490564547`*^9}, {3.733963905316197*^9, 
 3.7339639133467283`*^9}, {3.734021344271856*^9, 3.734021396599432*^9}, {
 3.7340231826677704`*^9, 3.7340231850247326`*^9}, {3.7340291220344887`*^9, 
 3.7340291237512417`*^9}},
 CellTags->"1.7",ExpressionUUID->"65a2338b-85a1-4d37-a150-d08fda03ef12"],
Cell[BoxData[
 RowBox[{
 RowBox[{"ClearAll", "[", "x", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.6978179309480658`*^9, 3.697818014535181*^9}, {
 3.697818157128582*^9, 3.6978181596758456`*^9}, {3.6978188929097877`*^9, 
 3.6978188937223635`*^9}, {3.697818987154309*^9, 3.69781901847018*^9}, {
 3.69781964782755*^9, 3.6978196502497005`*^9}, 3.6983586376997786`*^9, {
 3.698436186722922*^9, 3.698436187455285*^9}, 3.7307515396945467`*^9, 
 3.730751582072279*^9, 3.730751673687481*^9, {3.7307522323372517`*^9, 
 3.7307523512166395`*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"d990a36a-8916-4364-bf13-d5650490a559"],Cell["\<\
Para borrar todas las asignaciones incluyendo funciones derivadas etc... Se \
usa este comando:\
\>", "Text",
 CellChangeTimes->{
 3.7327204094815865`*^9, {3.732720879199299*^9, 
 3.7327208938356237`*^9}},ExpressionUUID->"4546ff92-4d48-4720-8554-\
9c476f7be73b"],
Cell[BoxData[
 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.7327204530982904`*^9, 3.732720453117849*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"c3ee4feb-a348-43ed-ad71-ed888296af51"],
Cell["\<\
Dato: si tienes otra hoja de trabajo abierta y le pones una \
asignaci\[OAcute]n a una variable esta se vera afectada tambi\[EAcute]n el la \
otra hoja de trabajo, asi que lo mas recomendable es que si empiezas una hoja \
nueva lo mejor es usar el comando ClearAll[\[OpenCurlyDoubleQuote]Global`*\
\[CloseCurlyDoubleQuote]] para asigurarse de que no haya ninguna asiganacion \
a variables.\
\>", "Text",
 CellChangeTimes->{{3.7299044138439913`*^9, 3.7299044178129673`*^9}, {
 3.732720216197957*^9, 3.7327202850268445`*^9}, {3.7327204008967867`*^9, 
 3.7327204038946447`*^9}, 3.7327204617439723`*^9, {3.734022790201296*^9, 
 3.734022973050519*^9}, {3.7340236200352297`*^9, 3.734023620445266*^9}, {
 3.73403452190851*^9, 
 3.7340345502982492`*^9}},ExpressionUUID->"7d0e9c2f-f347-448c-b2f5-\
93a079793eb6"],
Cell[TextData[{
 StyleBox["2.0",
 FontSize->24,
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[" Definici\[OAcute]n de una Funci\[OAcute]n",
 FontSize->18,
 FontWeight->"Bold",
 FontColor->RGBColor[0., 0., 1.]],
 StyleBox[" ",
 FontSize->36,
 FontColor->RGBColor[0., 0., 1.]],
 StyleBox["\n",
 FontSize->24,
 FontColor->RGBColor[1, 0, 0]],
 StyleBox["2.0*",
 FontSize->18,
 FontColor->RGBColor[0.5, 0, 0.5]],
 " ",
 StyleBox["L",
 FontSize->14],
 StyleBox["a funci\[OAcute]n definida por ",
 FontSize->14,
 FontColor->GrayLevel[0]],
 Cell[BoxData[
 FormBox[
 RowBox[{
 RowBox[{"g", "(", "s", ")"}], "=", 
 SuperscriptBox[
 RowBox[{"(", 
 RowBox[{"1", "+", "s"}], ")"}], 
 RowBox[{"1", "/", "3"}]]}], TraditionalForm]],
 FontSize->14,ExpressionUUID->"28066fed-d449-4432-bbcc-2c3be046f507"],
 StyleBox[" se define mediante el comando: ",
 FontSize->14,
 FontColor->GrayLevel[0]]
}], "Text",
 CellChangeTimes->{
 3.6983693242334166`*^9, {3.7327208330419636`*^9, 3.7327208448023844`*^9}, {
 3.7327209410752335`*^9, 3.7327209432572002`*^9}, {3.73402250150383*^9, 
 3.734022532808524*^9}, {3.7340225845074224`*^9, 3.7340226609910636`*^9}, {
 3.734029165330927*^9, 3.7340291664847775`*^9}, 3.7340345199539547`*^9, {
 3.734034553011245*^9, 3.73403455852777*^9}},
 CellTags->"2.0",ExpressionUUID->"d9e1a951-fc92-441b-b2c9-89c878b51d27"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
 RowBox[{
 RowBox[{"g", "[", "s_", "]"}], "=", 
 RowBox[{
 RowBox[{"(", 
 RowBox[{"1", "+", "s"}], ")"}], "^", 
 RowBox[{"(", 
 RowBox[{"1", "/", "3"}], ")"}]}]}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.6610958214120455`*^9, 3.6610958214120455`*^9}, 
 3.6610958887523556`*^9, 3.661096047005429*^9, {3.6610966466599593`*^9, 
 3.661096651008296*^9}, {3.67966866723685*^9, 3.6796686842242856`*^9}, {
 3.6796700063997726`*^9, 3.6796700358611856`*^9}, 3.6978156792207055`*^9, {
 3.6978163504649887`*^9, 3.6978163750457487`*^9}},
 CellLabel->
 "In[381]:=",ExpressionUUID->"d1929da1-f7fd-49e3-bf62-c986bf224cc5"],
Cell[BoxData[
 SuperscriptBox[
 RowBox[{"(", 
 RowBox[{"1", "+", "s"}], ")"}], 
 RowBox[{"1", "/", "3"}]]], "Output",
 CellChangeTimes->{
 3.6978156857995415`*^9, 3.697815839284842*^9, 3.6978162897552958`*^9, 
 3.697816418659822*^9, 3.6978195790774193`*^9, 3.7327200733693457`*^9, {
 3.7340214658352213`*^9, 3.734021480464226*^9}, 3.7340242400121474`*^9, 
 3.7340243349255943`*^9, 3.7340415534281464`*^9},
 CellLabel->
 "Out[381]=",ExpressionUUID->"852ed77f-16b1-4a02-9081-a444f9232a67"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"g", "[", "x", "]"}]], "Input",
 CellChangeTimes->{{3.7340415463340673`*^9, 3.7340415502600327`*^9}},
 CellLabel->
 "In[382]:=",ExpressionUUID->"bf28f183-b4de-4d1d-8aef-26672226ae3f"],
Cell[BoxData[
 SuperscriptBox[
 RowBox[{"(", 
 RowBox[{"1", "+", "x"}], ")"}], 
 RowBox[{"1", "/", "3"}]]], "Output",
 CellChangeTimes->{3.7340415552388124`*^9},
 CellLabel->
 "Out[382]=",ExpressionUUID->"26077670-cb72-4330-bd5d-410ff3694ee4"]
}, Open ]],
Cell[TextData[StyleBox["Para que el comando funcione es necesario que la \
letra g y s no posean asignaciones desde antes asi que en caso de que los \
tengan hay que usar el comando ClearAll en las variables.",
 FontSize->14,
 FontColor->GrayLevel[0]]], "Text",
 CellChangeTimes->{{3.7340226788471794`*^9, 
 3.7340227710449924`*^9}},ExpressionUUID->"95e93847-02a7-4e9c-888c-\
6557cd554f96"],
Cell["\<\
Al escribir la funci\[OAcute]n quedara registrado para tomar valores siempre \
y cuando pongas la letra correspondiente seguida de llaves con un valor dentro\
\>", "Text",
 CellChangeTimes->{
 3.734021683217634*^9},ExpressionUUID->"3f32bf47-3b1d-47e8-a4a2-\
06974c04a22c"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
 RowBox[{"g", "[", "4", "]"}], " "}]], "Input",
 CellChangeTimes->{{3.7299011972119417`*^9, 3.729901201087184*^9}},
 CellLabel->
 "In[112]:=",ExpressionUUID->"9e51c9a5-589a-4a59-aea0-81400caa88c0"],
Cell[BoxData[
 SuperscriptBox["5", 
 RowBox[{"1", "/", "3"}]]], "Output",
 CellChangeTimes->{3.72990120188406*^9, 3.734024359370756*^9},
 CellLabel->
 "Out[112]=",ExpressionUUID->"40ab5c4a-eacd-411c-87ce-bdbe84237a1b"]
}, Open ]],
Cell["\<\
Si quieres borrar la asignaci\[OAcute]n para que ya no tome valores y \
simplemente quede como una funcion no definida (osea como g[x] en este caso), \
debes usar el comando ClearAll y poner dentro la variable correspondiente, en \
este caso para borrar la funcion g:\
\>", "Text",
 CellChangeTimes->{{3.7340214419959316`*^9, 3.734021457130694*^9}, {
 3.7340215065001*^9, 3.734021631021591*^9}, {3.734021690827675*^9, 
 3.734021907423459*^9}, {3.734022328818634*^9, 
 3.7340223720165296`*^9}},ExpressionUUID->"c4ffff60-7e40-4945-aa82-\
92e5d082cdc7"],
Cell[BoxData[
 RowBox[{"ClearAll", "[", "g", "]"}]], "Input",
 CellChangeTimes->{{3.7340223406139975`*^9, 3.7340223522815857`*^9}},
 CellLabel->"In[77]:=",ExpressionUUID->"43a02e69-863e-43c8-8b2b-2ff75b0c3249"],
Cell["Ahora probamos:", "Text",
 CellChangeTimes->{{3.7340415078765574`*^9, 
 3.7340415132360835`*^9}},ExpressionUUID->"58e7a611-e3b2-4404-bd24-\
eb6ab807fd08"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"g", "[", "x", "]"}]], "Input",
 CellChangeTimes->{{3.734022386367485*^9, 3.734022389582651*^9}},
 CellLabel->"In[78]:=",ExpressionUUID->"3055a211-0c65-4437-b502-7c2dc614eb19"],
Cell[BoxData[
 RowBox[{"g", "[", "x", "]"}]], "Output",
 CellChangeTimes->{3.734022389996861*^9},
 CellLabel->"Out[78]=",ExpressionUUID->"e9ec8018-48d6-4388-8d35-9ef1759e9ddc"]
}, Open ]],
Cell[TextData[{
 "Hay otras maneras para definir una funcion, por ejemplo una bastante \
\[UAcute]til es utilizando el comando",
 StyleBox[" Function[variable, imagen] ",
 FontColor->RGBColor[1, 0, 0]]
}], "Text",
 CellChangeTimes->{{3.679669506846775*^9, 3.6796695299400277`*^9}, 
 3.6796718563807983`*^9, {3.6978165295312853`*^9, 3.6978165491113944`*^9}, {
 3.6978165997262554`*^9, 3.6978166119307923`*^9}, {3.697817111812858*^9, 
 3.697817135752924*^9}, 3.697819599861024*^9, {3.6982724093884478`*^9, 
 3.6982724137780094`*^9}, {3.698358089170745*^9, 3.6983580943170705`*^9}, {
 3.7299010256714725`*^9, 3.729901070830164*^9}, {3.729901133771037*^9, 
 3.7299011438184824`*^9}, {3.7299012260729017`*^9, 3.729901245558323*^9}, {
 3.729901277606899*^9, 3.7299013272970524`*^9}, 3.7307513145107756`*^9, 
 3.7307517180574064`*^9, {3.734022408980323*^9, 
 3.734022476169915*^9}},ExpressionUUID->"80621d27-8bcf-4699-a977-\70a227d2cefa"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"f", "=", 
 RowBox[{"Function", "[", 
 RowBox[{"x", ",", 
 RowBox[{
 RowBox[{"(", 
 RowBox[{"1", "+", "x"}], ")"}], "^", 
 RowBox[{"(", 
 RowBox[{"1", "/", "3"}], ")"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{
 3.698358643072879*^9, 3.7307518445182076`*^9, {3.730752971094823*^9, 
 3.7307529946153345`*^9}, {3.7327210196705694`*^9, 3.7327210218390684`*^9}},
 CellLabel->"In[80]:=",ExpressionUUID->"aadcc96c-2ac0-4acb-9484-c6fed3e9f574"],
Cell[BoxData[
 RowBox[{"Function", "[", 
 RowBox[{"x", ",", 
 SuperscriptBox[
 RowBox[{"(", 
 RowBox[{"1", "+", "x"}], ")"}], 
 RowBox[{"1", "/", "3"}]]}], "]"}]], "Output",
 CellChangeTimes->{3.7327210229701643`*^9, 3.7328259103363004`*^9, 
 3.734022463523253*^9},
 CellLabel->"Out[80]=",ExpressionUUID->"51eefbc0-d0f9-4547-86a9-a42c3f4d2c31"]
}, Open ]],
Cell["\<\
Si no desea ver el Out se pueden poner dos puntos (:) antes del signo de \
igualdad.\
\>", "Text",
 CellChangeTimes->{
 3.729901074470964*^9, {3.7299011048319798`*^9, 3.729901129677055*^9}, {
 3.732720949494355*^9, 3.732720958840211*^9}, 3.7327210138580685`*^9, 
 3.733961152171965*^9, {3.7339613356411123`*^9, 3.7339613421276026`*^9}, {
 3.733961494062558*^9, 3.733961497722208*^9}, {3.733961568924125*^9, 
 3.7339616743739376`*^9}},ExpressionUUID->"a186fa4e-f183-4eac-b04d-\
248513dad788"],
Cell[BoxData[
 RowBox[{
 RowBox[{"g", "[", "s_", "]"}], ":=", 
 RowBox[{
 RowBox[{"(", 
 RowBox[{"1", "+", "s"}], ")"}], "^", 
 RowBox[{"(", 
 RowBox[{"1", "/", "3"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.72990109036248*^9, 3.7299010969878407`*^9}, 
 3.7339615603036323`*^9},
 CellLabel->
 "In[111]:=",ExpressionUUID->"802e3f2d-9825-4dc3-a3c6-ad63ba517904"],
Cell[TextData[{
 StyleBox["2.1",
 FontSize->24,
 FontColor->RGBColor[1, 0, 0],
 Background->None],
 StyleBox["\n",
 FontSize->24,
 FontColor->RGBColor[0.5, 0, 0.5],
 Background->None],
 StyleBox["El comando para graficar una funci\[OAcute]n h[x] en el intervalo \
[a, b] es : ",
 FontSize->16],
 StyleBox["Plot[h[x], {x,a,b}]",
 FontSize->16,
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[" (x no debe tener asignaciones previas)",
 FontSize->16,
 FontColor->GrayLevel[0]],
 StyleBox["\nEjemplo: ",
 FontSize->16,
 FontColor->RGBColor[1, 0, 0]]
}], "Text",
 CellChangeTimes->{{3.6681871992600117`*^9, 3.668187229690279*^9}, {
 3.668187422960865*^9, 3.6681874934884434`*^9}, {3.6978214774853263`*^9, 
 3.6978214780947657`*^9}, {3.6978218962648687`*^9, 3.6978219325031624`*^9}, {
 3.6978219670536413`*^9, 3.697822070908559*^9}, {3.6978221016931515`*^9, 
 3.697822140025524*^9}, {3.697822192046623*^9, 3.6978221948594675`*^9}, {
 3.697822237567157*^9, 3.6978222462401166`*^9}, {3.697826612385528*^9, 
 3.697826690925238*^9}, {3.6982752327153473`*^9, 3.6982752331087065`*^9}, {
 3.6982752749001355`*^9, 3.6982752909571457`*^9}, {3.7299032325387707`*^9, 
 3.729903395063122*^9}, {3.7299043630756407`*^9, 3.7299043854674625`*^9}, {
 3.732721074775134*^9, 3.732721091154069*^9}, {3.733961505474228*^9, 
 3.7339615055772147`*^9}, {3.734023712613594*^9, 3.7340237346742067`*^9}, {
 3.7340291584246073`*^9, 3.734029159152398*^9}, {3.734031558150769*^9, 
 3.734031675957656*^9}},
 CellTags->"2.1",ExpressionUUID->"22cb9710-cbd1-4cf0-8989-e8f7a3251e6d"],
Cell[BoxData[
 RowBox[{
 RowBox[{"v", "[", "x_", "]"}], ":=", 
 RowBox[{"1", "/", 
 RowBox[{"(", 
 RowBox[{
 RowBox[{"x", "^", "2"}], "-", "x"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.661096504728983*^9, 3.6610965078605137`*^9}, {
 3.6681815892353334`*^9, 3.6681816134262257`*^9}, {3.6798604112989144`*^9, 
 3.6798604261694946`*^9}, {3.697821237014681*^9, 3.697821244640379*^9}, 
 3.7339616868415565`*^9},
 CellLabel->
 "In[202]:=",ExpressionUUID->"bbbdb464-451d-4e8a-bc00-d71abb0c19ab"],
Cell[TextData[{
 "Por ejemplo el gr\[AAcute]fico de v(x) definido anteriormente entre [ -1 , \
2 ]",
 StyleBox[":",
 FontSize->16]
}], "Text",
 CellChangeTimes->{{3.6681875068628073`*^9, 3.668187524544112*^9}, {
 3.6681875572856207`*^9, 3.6681875852049527`*^9}, {3.668187675762199*^9, 
 3.668187709823203*^9}, 3.679670445440498*^9, {3.679860856136304*^9, 
 3.6798608755301156`*^9}, {3.6798611597530317`*^9, 3.679861170716753*^9}, {
 3.6978264366009383`*^9, 3.6978264695887365`*^9}, {3.6978268573181944`*^9, 
 3.697826867616169*^9}, {3.698275335267932*^9, 3.698275375315841*^9}, {
 3.69827585247956*^9, 3.6982758877155223`*^9}, {3.698276004845175*^9, 
 3.6982760314430437`*^9}, 3.698359608535082*^9, 3.6983602018922234`*^9, {
 3.698363323155754*^9, 3.698363348502474*^9}, {3.7299034238459563`*^9, 
 3.72990347044221*^9}, 
 3.732721084019785*^9},ExpressionUUID->"991e4427-7c0d-4748-a9fa-\
4f1a2f53d7a2"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"v", "[", "x", "]"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", 
 RowBox[{"-", "1"}], ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6982759503550596`*^9, 3.698275991592921*^9}, {
 3.73396171435987*^9, 3.7339617147734003`*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"232972f3-dbe4-447a-8977-4dafaf5d248e"],
Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
 TagBox[
 {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
 Opacity[1.], LineBox[CompressedData["
1:eJwViXc4FfofgE+EEBmJY4Sy9yyE71e3Mi6SEbddKiFUaClZGS1EhKy4dZOs
bOWDcG2Hjn3iDJusIw4qv/v7433e531e2Qs+9pfYCARC6X/83w1nZEc2N+eB
Z+2NGIFARQor+tY3WfPQY79G/oeDiiKfWlXMLsyDYT1nviMvFVl/8o0boM2D
aV1rQ8kuKuomNpp//DIPnjwdNanqVEQlexRcjpiHfsd5Hq5TVPTTqji4nX8e
VL1+nrOroiK9/eZyKVJzcInbcad9GA1hEBx5LTQLYe+G/jT2ZiDNjLdp9irT
YLw3dokaMYb0Xh3N69szDb902/xIMWPI6OXq51MS00DHtLaGpDF0JMb82+Xt
0/C9kiRc934MnQqakAiYmwL2qbfPt5DGUOQ5xaSsoingOnxALJM4jugyb+OW
jaZAwlW2OqpwHMVnvolM+HMSGnceyHT8MYFctOSt7vwxCYJll3zaCZNIErJ4
Tx2YhEV/p1nb7ZMom5LxTFZ1EiSPGYte3TuJikVT4nN5JkH6G1NPwH4SkZ9G
Z9Q1T4C7Oqmfq3ASidy9XT5nPgE/8Z3WNf8plGBvNXnk0Diseck34t0zqJqf
YllsPA6JU4bB5qozaKzF672s/jjw1OzWcDGYQXp/xHr/lB8HmTfzEYn2M6hb
t3+5kGscPI7xukdHzKAdIpe3SLWOAb/v5n0v5gyK7AsWZx4bA7WPP8R1v86i
u6cqrNPPjkKyQ4J2WskcOvde9pyH8yhIHidEkRvn0JH1KF/9o6PgFXHPRrx/
Dgm9PJHcajoKtrPPPcnrcyjn68bEqtQojMsmyXGYzaNBK9NQOwoDnk8nG3qQ
5pGR4ZeKLX8x4PbCUuPM/QUkE6na3mbHgN9kEj02YgFx9sVREy0YYBm2ymcW
u4C6/S5yaRgwID1Bva4yewF5FHA4nRBlgKaf3qpk2wJKVrRYKOqhQ9EnZvBb
yUW0IdKucNGeDh9iLuhoNyyiC9wjj5ys6PBPdoDJSOciavm5MHfkIB3K9v1I
TxxcRMmMnWXKOnToW6vNUlxYREaFp8znBenAsnI1bJRYQretZ93udtHAqlYq
ksd/Ca2E8L6LsaPB3HWjWkktJjpzU4ovxIIGueG+2rrGTNTornndF9Og16CO
6WTBRAl2DobHtWgQ8utHSc05JtLfndIsIUADwkigqvpzJvKrUJl+00kFaR87
uRurTLQ0b6n62ZYKtCym3r62ZVQt4KNpaE6FMkJXAf/AMorSjtctQVTozhgS
XB5bRjK+wwc+aFFBLEyvfWxzGdms3LBOFaKCms1HPTe9H+jY2v6h9dwRuO5w
Inkp/QeqFqKcDfg0DGIWn/dWBq8gJ0eFK74fhkE8Tb/UKWYFzb64ds0zbRjq
RDjqCekriEjkCD4ZNAxPhS7nP/y0gvykNV4fODQMhj4pZ21YK0hFLWh0o/Ub
fCEtJE7dWEWJh+Xc7w1RoLOAI5zXn4VyciV6NFsp0OpIGNaOYKFqYWEzRiUF
8JiRvXcSC43TthCtkilQajGgrFLNQnqBI02if1Eg/oIyvXDbGuouTVb62DsE
njIBPPKv1xCfkuDkVNcgdL2sMmqdWEcy0dscU2sH4VDELIHr1zrSW9kEu8JB
UP522O+M0AY6VT+XWBYzCN7OBJ3zJhso51yb+cOjg7BSV9tdFb+BLJIi3sq0
D8DTQNL7HxY/USjP78vOTf1wzSU3htj8C51pkxCWqegHMVHFs0+pv5DBM0OY
fNcPOSrvqdKsX2hO0F/07uN++Ce/dzRT8Tc6QZz995VtP7Bs+91lIn8jLaVB
JTq5D+qjTIgmRzcR5XDp9FVaL/w7oSNLDyDgMi5ygn53LyQRVs0aogj4efPi
wd91vaBCyGNVJRKwuY16SnR2L+xj528a/UjARY7Zfxa59UJJqryb0ncCjnR9
nrv6vQfedNRQX7luwfrB3t4h62S4lJ/Oun+eDe98MlKVOEMG+5b89Z7rbHgp
wY77A4UMjGcHg46EsOG8XJ3svmoyfC2mzlzPYsNK/SsDaqFk8LpbjFnjbFhS
88HhPl4yXO3Z3bt8gx1v/RYtqSb1FRLPPtpyIWMrpk8QPMz4v8KoV3y1afFW
XLt0vez4Zjdk8OexGzdtxYHbHO2Dad0Qtuvi6aSFrZilKxbZ+3c3DCXDtsmD
HHj2UQYzSKMbvluYee6e48BfDQpbelAX3DZJ0vY7z4U13DsD3mh2gTK7Q7jC
PS78KOm72i3pLnioFKDDl8iF8bpytNgmCQJyy2butHPhvKrXDierSfCeNjVE
M96Go0zjKVRjEni6qPgHKHDjUe+ip4VqJHhNDO2qPsSNcTrJNESSBILagdvN
XLnx903iQXNWJ4ydtZTmyOTGTSG8rW03O4HpveGZKc2DAyPnKH2+HRBqOyDM
UObF+lMq6I5DB8Q3iOj4W/PiWUu3THHdDuhaEyhz8OHFf/FSL51eaoeRGwsDayW8WO9Z1xz9WjuYcXIWc5pvx9NxxYQ5rzaQT6DZCt/hw07pd+W2XmmBXIH2
xiYhAZxcws5FsmyBXunOh+5KAni49clUimoLJCue9DExFcBXWGl5uvPNQKLs
ign2EMD3jn0xcL3ZDDlXSy9GNwjgbPbtNnVhTXCy+Cz7tXBBPEV8ofnschPE
EaW+paULYg2t3UInLJrgQ09aDV+FIC4/pdW3yPtfX3jglT8riFtLHM/Lxv0L
+Vqm01LOQnjJLdU/KLMRhEQ7uF8YCuP9gQou1qGNIF04WYCdhfG9+HwjsUuN
wPWQuGjiL4w5a2s385Uagc3J4JZOkTAWFx+PGslvgLBvJa3KWjuxWZtGmml1
PRhryuilmojgcHpZEE9GPeScpnjuOC+CW1jYtTf4vx/c/nUmTAQ7yjsoeR+u
h/TtdlnT7SL4SuCtotS2L8C2V7Jh36VdOEarpvHnYB1QLB4qjeeI4s7YrGuo
sg74LjpEJg6IYn5muHhIUh2o/0j4ML9NDD8usfHmcqmDLofmg6/dxXC40ZCI
UE8tiHA6893WJeKGlGpwLK4FxCbq3ehGxFt/ZbonxtXCjgcxePAVEQfDlc+S
9rXAEDxS48otju8dWrmo2FkDxFFny6BZcVz19wC/R14NBHrwhAYoSuB1zs/l
uU9r4NZJ8YELrhL4VnPodh3rGqBKdkttH5bAjFd7rtx5DhBFxD+9RyRxR4EL
Z3b4Z3jyiK5iLyaNrX2lTygf/gyqM/rcIpekcbP++Ic89s9w84lbif5HaVxf
6etUEfQJwh/8FhlSlsEV9c+yO+5WwSqNGe/2VQbvi3BiORhWAcvAba1tUwYX
W0paD6xWgr62SQuvuizO63jHZPhVwkvnt/Maj2Rxdn/9wTXvClCjXN3fcnQP
3pPyOCFQvQKeaZh7lofuwemn7afZZ8shNkQysqJ8D06mj8Tyu5eD1PhbYVGF
vThmdp2617UMCsjOdUd2yGH+/Fq9d7JlkPcu06XLWg4/vh4ZqUEthSvGLUHV
j+Vw+IqIluHpUji02r1vkU8eBxC0H9g6l0DcOf9ydXkFvG3ikAunaAn8UcmQ
o3op4Ph2F+3q3mIgufiGOJUr4NzkIIb68WIY37wz2WqviCl6JHM+p4/QkHGf
MZOuhK9IjMo07PwIsVHxASUsJby8hbV2j1wEWbv8eKkOypivUzp31qEI4mxa
DD4JqmBTdx+BNvtCeGFIlknPU8UtR0OnQoUKwci8mH5TSg0f35dYd6C7AEr5
w1gZ0WrYhx383h8rgLQTJqpRgep4Y6rbxlWwABLkQhZSNtQxf2a7zb7X+aCY
olqdc08Dt1RUGEY8yofp7Jd3U19o4P8BhmveBA==
 "]], LineBox[CompressedData["
1:eJw12Hc8lf/7B3BEych9jmPvmYRoKIqLdrLKTEOhZEcSGkZWReXTJCSKojKy
QrlEhZCVnTPMk3PKSJr63r8/fn+dx/Nxj8f7fr9f7+tc963iFrD3KB8PD89O
Xh6e//v9U0xrZK0ugLdGiT0j4QZ4/HTOMsnMApC4/GPusLkBSttPZxCUQlgX
RFvQ4DHAs75XDSX3FsKTK5kmc6iPW9PfH1XpKoTWK9rddjv1sXNhS/363iLY
kijMTOrRQ0Mp1n4TmWJQ6Y3NFAvUw9RVkbObXYrh4vPL8r6ieuh2uFrVerAY
NvT9MwdrXZypXRvlwXgOTmf3RB7nrkTH/g5pb5USmLU73dmSuhIrZ04UBriV
gIrE6m3bLVZitNpTevhICSwccZFUK9BGSqyGafJEKRQFs4ozr6zA4PS6j7dW
lMHMox5GvsUK7C094pfmXQZCjmu1tgmuwMyx9LRcThk8uPJHhRuvhfo7JX+/
nCoHhWU6Anh7OdoIL6n4/OMFMPwoa7ymNPBWhbDN3XWVIOI+yN5Xp4FDR4mx
3UGVkF2SFyh/WwP9UYb2dLISLmjdaecx18DEUzonAoaq4K/9fZ+ydHXsUjVY
oixXDZOn4F12iDrKta3LaHOqht+GG5w32qpjnjY0G7RXw/HoKgdnAXVsoO/R
+lb3Eo5zM/sHQtSQSHKsecDzCmD/5FS+vRo6Ge93dDB5BXPtX/kF16jh2A2P
mLKyV0CUX1jvNK2K/BanGaGPa2CyaunTPydVUdnFuvn8O4S5fxWGi66qYH1h
m1TPKMKAx1tD02AVPL7Ezn0Vfy3MTJ/cPrBPBQtKnH7RzWrB2Dkkfo2mCpqK
HdEyr6wFDdGP65fXKeOB+pMxi56+huE62oYUEWXkkfv+Yf/71zAh7kLd9EUJ
HwSGypWwX4PEpYLTXXVKOKl4rthDsw6mHjvw5p5QwvCwOMabe3WQoarSl9im
iCl6KZsS/qsH6ajZMJdcBdxsXItez+vB45Wb884oBeRsY2/d3VUPFcG8k8/3
K6DZQSOrZZJv4PVgHvGbooATl/sO3kh5Aw5Xc7NEYuRxA1smIjPzLZytPRUe
eVYOWd/MF0XXvoXXfUWKdgflMJHHO96d9RZ0vK7mxZjKIUOq8qqm+jtQLq03
XuCVw4TtLplPct/Bg42JASpJstibnVpb8awBPPktOLPFMhhd8Hpb6ocGUCs5
fk8oRQZ1qj43nplqAKNtie3eETIY2WHcYbq6EXD5rR2LrGRQi3eAVV/aCO5t
4Y0hk9IYekiOv726CfYKuDVfXiuNUjJp29lNzVC/Z1QrdFoSK/9TSDCYbIZX
TS10S7okHhC51xgm3ALXl335YN0iiVn/7lsKWbaAX3y+dO9jSdQZy927sqUF
7vRF80x7SKLZ8+eH/D60wq2WF+6NLAlk6azLLP3aCsE8u5+t7pTA2Jwy5l+x
D6C+7KVebZ0ENqW88Lhi+wECO0SlLR9KoENkjXdB+wdoyF5HF/WWwNKco1U/
vNqAqX7Pkv2ThnHumoPy4W0g8CS29hSHhs7K43/MLrWB3Mzl7Sp0Gv5KOW56
Ma8N1pieXdlVT0OzJJ9amck2+LDT3C4zmYZNJwPfGfu2g5f3QmGSPg2HzM51
nvXvAH59356OKHGcyJIquXyuAzyjeaRcQ8Vxhr/4RmpiB9gUrfy64C+OSxrH
HCryOmBnpnd16AFx1N9j2zs71gF7/w6ust0gjtFH1D55u3bCSO0rD59ZKibW
vXwZ5t8J8ncZSxUnqXhLwzkj4Vwn5N862c5kUTGfneiac7cTPJYGbUzroGJX
4Hcms6cTVPjEqnuLqagR3TjmbNsF52uk+u1CqKg/4v7O07ULKl0+EEsDqGi8
fSE3xL8LRpL2HG/xpKK10BqvG4ldkGzftPjCPiqG/Jc2+aGhC5guRVMZJlRs
yAqY2m7+EVgSV4SiBanoWyfxa+3qbuCXFJK0eETBn//4Tids7obDN6ZrjLIo
GLdpanZgbzeEFpc/Xp9GwfulTdzok93wcVdt38FrFOzOjWC2lXSDQeTzJXvC
KGieyG7wXd8DVfeehL2yomBrQ/c23NED564WasbvpOABgfrX4s49gF+k8w5s
oWDI+YzqytAeuOV0Y1jXiIJPTtgVClb2QMms1J9jGhSUdHh5+8GmXviq8dNb
jYeC2cl5tB+WvVDK7ble+JtA/dbbybsP9oIL54nfrnkCd+8IujxzrhduL8zP
pH8hMNJoeYRZTS9MsUzi2z4ROKmQfGzQvA9uVoqlW78iMNTl/PCqvX1QT6On
X60kcPFtn8MX3PpALN/NbaCMQGViu4v2hT64fPkX7/UCAh35fluF1vfBTGLe
uqj7BOKYxzrajn74ZrOx0zqewLiGlUF7HfshvudevHcMgZZ5M8+uHe2HpF7V
n1eiCOzzi9QSjekHA76Q6ekzBM58uyu3uLYfpo5F2CgFEqi+qJP3h/EAbL17
k0UcJPDzSIqpocUAvOld9ajEhcDCt4fPBO8bgBMHWAWHnQk0ufTl29TpAWB+
vufdbkeOjyI0wS4ZgCeryrtpuwlMUDJvHdAbBClnHS3FjQRa8woKy5oOgoM1
TWGLEYG04dYdzlaDEJ0k8C1gPYH3cw7UdvkMQmWX5xrmGgIrdUNLWh4NQmyo
op+KLjmfYjAtXDEIkW0pYzErCdw+LaBn8W4Q5lZby02tILCz5Hru29FB8DMs
ffBJk0DOxoLUGtVPEChTgzQVAosVQnr+GnwCmf+y00qVyPn/t4m2yfwTPHpd
Qj2kSKBAXVNShesnKFaLfPVGjkBFi7HIorRPgD/Di75KEjiy8unLr/mf4NcL
9q9mCQLzRIN/6VaR15vw1RXRCDRs5w3O6/sEz38J1iVTCbRxVvDMlhyCpQF/
DPKXEUidvsZ3U2MI3AzFbzeIEth1kT8jbu0QpNR/k+WKEOhSNdnltXcIdEEu
ZLcwgfL2rif2HxkC8XDKrlghAumcDmGrE0Pg+mft6rdLCfRQrNysf2UIlC6t
h4OCBGqW6w6ppA+BZpGr6/MlBLJt7oeJPxkCPdMdVwjS/lEJhd8bh+Di01IK
Q4DMr+yf3RO9Q/Dhq5z7XtKzxQHjfeND4L6F5+V7fnJ+RhwVXwrQIXq+NaZz
EYHG55pePKPRIb9Yd+oI6b8Spg6ZanTIUZs9NM9H5vFZ0VTyajoQtUvarpOO
3qGReMGcDv2nj21eT3or487yU7Z0yHwgX8rkJXBJmEjdMVc6eIpaLL9OuokS
ecjZnw5jA8p3dpNOzJv9uescHczujC4WJm29xfPmxkQ6rFX/GtTOQyBlsF9f
9y4dWspyBjJIdwVbNyvm0SGuN97sJOlboq89iRd0YLkq37cm7ZyzbhFfAx0u
+RN/9UnLweOM2W46tPkL2cuSHuqRNx4dpUM5pfOhEOnME9c+dn+jQ6CV+Qwv
6SL+6A0jvAywOWBqxEOa2r5x8cGlDNCrfhMuQDo4fa7zI8EAF73RMgrpj14F
962lGTBeXs1VJ21o6BXwTokBkVnnlYD0HT41E7PlDCg9F2B5mPTP1kGhF3oM
qFQeC04g7XL3Vq+BIQPSnuxOKSdd5Wmbk2fCgLkrcpVc0vJrhYLVtjGAFjvc
o03Oz3meevM0Swak3tsy60+a3nxOTMKeAbe2fxGpJG2Wsv5T0n4GiJs+0hAh
1yPr6HTeYncGqOfvND1K2mPBY/uPQAZ8i5wL0iHX902TIi0wjAFcS5HkVNKa
t3uZ7EgG2LkpPhcj88FeZXlu4CoDvlymCYqR+bH4I7Db/jYDGojbJimknzTU
SLdkMCC5fc9Z7cVk/o6sKXn1lAGFRWFybmQe23S5UetLGZDlJhshSObX4FeO
TWE1AzrjXWZKSX/7T3by/nsGqAx9WaZJ5j+snlc1lk0+D4vXaT+5f+QXRkwy
p8nxV90ssCL316v1DfuqfjJg21FBn51iBPLnX0meXsqEF6d6JJ0oBF5LluM9
pM2EH/NSGX3k/l3zfkE+bDUTQpRGjotJEdjNz9pww5gJk3vGiqykyXyEPjrR
ZMEEre8mrcOyBOYcWscw9GFCcpLqgxBlAnfdkf6z5yQT2IsaOqfI+sJp/y3l
d4YJu073Z59UI59n22ub7MtMGLQK33CdrEfVK21qxJ4woS3zMBqT9azzx/GM
CQ4TfFTnCf1NBIastqxcNMeEGrZovaEpgdK+q7oV/zIh9tnLwO1mBB6iz4k6
iLKg+1daT+RWsj6/iT5Xq8sCvTWbr7pZEchzPe1Aqj8LgiI2aDEOE5jdHBFa
GsKCGQd5dpg7WS8Xu99oO8+CSzFmigrHCLwctqJ58VUWpJkfEIz0IVDycNnG
kwUs+EmFvooQAnV122Qtp1gwGE5vX7hCoK9R5q3BefL4Itayv8nk+m47QfX7
xwLPjrdi/DcJ1D5ECF1ZNgzrVb2idO4SqHXV9ucHnWHY2mGpNZFLoOp0W4+d
1zD4lSYT4nUEHvmbaTdyYhhEE8RFst6S+21p4Ifg0GGYf7fgbdxEoJIq5d3N
+GGYVbofEd9OrrfdnrKeh8PwtO/flhsMcryl7Tf2s4bh6NNdJdHk/7ND7X2C
wx6G4qFXvk/5KXijJTDx7PQwxCSLW7IEKSg+RolJ5xkB6Wtlpd4UChJSe0/S
FUfgjFZb5bwqBYXCOva47x8BHeoBazGyX1jY1LnMp4s831U16kEqBSPKmnvT
B0fgfQHGPs6kII/+26y2kRHo8nAZrs6hIK/aC0PDuREQfJIoJvacgvxL7x3i
lRwFK9i81KOZgsIfvZ/ddhqFpUpWtyZ4yf7M2iO0yXUU4uuX9dPJfkik4eDm
v56jEMQftWFcjIrLqmy73UJH4XO4R52mIhWp9w0XdFNGoSrGK9V3IxWl/fis
6/tHYe1WV1GDMCqmjP2WmmeNwhtxh1yjKCrKHp5jrpgcBc35gXj7i1SUs5s4
dfX3KEhXZlXUplBR0ag13UV+DM44n9p4vors9wRSuVMHxyAq+E/pAz5xXJ1u
kKTAHAO9t3tmvmaKo0FQ1GJt9hhkGPaYH8sn+88d7RGG02Mg0hcm+K1UHPWm
TwTZ8I7D05RgluN7cdTeVugUpTIOvgGOlmbz4qjK1VMdPTIOxfyH+frsaKjy
+vzdaa9xSJv3LBt2paHy7VbaQuA4ZMUFTCz1paGiuf8SqehxyAnXnXwcQ0PZ
m085O7PG4fYb23yzchpSTHTKn7DG4Uu4N5+YqgQS1LP6Lz6Pw7LyO/bfV0ng
svH3j9/MjIOU8YqtCyYSKJLskzbENwE+hkZBgS4SKDiaF0WoTcCW2cmMrzck
kCdphWWw+wQcOslj+JCQxKlBTebGkQmIgCE1TU0pTIxxr3w5OQHHF4JFitdL
4XKdzOswOwE57n+veO6SwkNnZLZv4WND5r6b3nv8pLBZRiTfQpkNCa91DFeV
S2Gu43TwvgNscAw1/3DNTho3L+haD7izwSDvEPzwlMahh97LD/qwIWV1Udx/
Z6WRNjfcdzicDeLanF1uOdIYfb3b9PgdNmSI3JaP/iONh9qqBE93sWE44hrH
67kM/jr9g/ljgA2tAang+F4GbyqtqwofZoOPx4byqGEZbPZ/5nd+hrzf/rzC
FJosGove74glPoPj8UjaRJgsSljEpd2w/AyGvd+1mHvksHD69SlJ+88gZU5d
a+gvh5Yp/6zv7P8M9y/8Uxq4JIfRE6G8ad6f4Z9i9nWZN3I4FedzLDuBvL5u
wDjJRB6b62z1i+vJ48T45UuggI97y5y6mz+D2/uLtKMeChjHlY/41fUZLnK6
9F5cJN9vpdgtm0c/w0pzYbmejwpY4h3l0ykwCR41Rko6wYqYRinO+bZ9EiyS
cyei3ythmKZ0q7TNJNhlv/+p8VMJHTeen9vkNAl/Xkorl4srI3HUYmus5yS8
yRAVXNisjDEVLKZEwiScqnLqqHiojL6u4grrGydB9sHyp9nnVHBXcNjW/e2T
IOmZkRafqoKaF+k+EX2TMBbGx6WXqyCjOL/yHXsSHgc0X/gxq4L2i7c6Owtx
wEFEdpVskCoayOVFnKVygNe/YvP0f6q4TJ/IzZTlgJCdTbV9iSo27Bucm9Dm
wOJrtu2tP1Rx09Pg62G7OVBjk/dmPkENZV73V6bbceBVbXhyyjM1/N5txqrd
z4GgEPOJsS41LOQRNRDy5UBwh/zpW2rqqG7/sDU1kQNVmlK7OhrVUfj3x6XV
LRxI49YJ55lqYgxLK9nhIwf2BsaXq/hr4kLjGemvgxygtl6Pi87QxKk7KstV
ORyonOqOlOVbjt2GflsThLgg3JSdF/BxOdoq4nsVKhfI15bUXyJa2Cggblcl
w4U2jUcCT7ZpYXVXxZEvWlwoL55Zk1uphVlB/BH2O7ggvcSqRqpkBcq7OC3+
Ys0FJ+MCHu7cCrxpnpcU78gFsUaPZyZG2phA2KZVHuUCfUfR6th6bfR/dveFcgwXArrTPhp/XYkTN7+YVV7mguh0JuuUqQ4eOWfeYHedCyfEYnwfXtVBe8vx
7rgsLhjUGFjpbtBFo8+rv3GQC44rX7kuf6CHxe2xZ+IauBDVFkvfIbAKdV70
8im3ceGCRPBZMa9VqJhwnmJH58Kcdnd/tLw+3glov8MZ48J34/SbFXv1keKk
rhz3hQu2gg0fz1/SR37NJr0Xf7kw7NM1uuifPp4XVSjbK/AF7hwVpk9sNMD5
bwEmHJEvMBfc1ZcXboAvVWanZ0j///fG/wEdTP0d
 "]], LineBox[CompressedData["
1:eJwVlXc41nsDxh9UyMzISLKz0yAZ3V+eSmmdpGgPIqKpc2RlUyidI2Q2pZJX
i47MOPImo+GUiEcKGfF79sDz9v5xX5/r/u/zx31dt/7hEx5HJGk0Wsmv/J+a
FR1+x6YmMXI7Oyz/qjWRfGtjHzaXQq4WpWn9xZLomuUI4xUpzIovFcgctSSO
MVLVl1Uo1AadEu3iWpCQpf+63NGmwD5sub5Jx4IMXgnf2GFOgd+Wd0ElzYxI
jnxT6LamoKSbVPJxiRlZ5Lql4/syCvkbXFardZoSb6beDpEDhfFLZwL/NDEl
LR5N+002UrCVX5nsNGBC7NRM3o5uofBo1+QezzwTcr0zgf7Ig8Iu34Vpkl4m
5HfvtaZOu391vsz3sQ5jYrC/kdoWQMHR7Wni7U4jkrbIyFcjmELwWMV39Rwj
wmfE/dtzkoL+kgyq7oARafWhv/APpWCQ5+tZ8NOQhAa8jI9MouC9eGdMrJYh
GTA34LmmUEjcE3Lt9aAB2TIWEyBzmUL2+tefZJ8ZEMMTLlv+yqRgZai7zsPT
gLSF1Gncu0Oh2nQx2ytfnxhH19z/0EDhXp8w08NTj6S76C7MeUUhfdzr23pr
PSKUjLp8oIXC5WaFRIaMHulIcA4ZeUdhv1wnms8vIhEpVc60r7/8vjVxHgTo
kneZlR0WNCaoLx5slRM6xNlbm05JMdE52Hies1yHFGuFPSuXZkJmSaNeuWAB
icxbleOixESKTnxaTdICYnrzuY+XLhP0/tyh4Ifa5PzDcm6sExMJGadk/16g
RS4aW6RfI0zsry8JTB/WJJn5hWZla5jYVHSyzKBck5SmJe/9sokJOVnatqPb
NUlP8O6XK/cxkeTz5bpypgaxt55JG4tkwp4k1I3Yzydrik4vloplIrJPpNOh
NJ9s1R2q00pkYlqj7pXTkDrxU+xgrbvEROpcry83stTJ1Z83dt0oYCIzP3+H
14waYZauNd5Zy8QNx3m6Mf2qZMaksiaogQm+RtJ4c60qkS209o57xcTEI/fW
swWqRO+yRkpZOxM2o+s6eXtVyZYTPybnMpgo9Vv67nivCnmwJK2qlsZCrVOd
9wdqHvEt+7DdzJUFvYt9xUHblEnNFeQL17LgL9uubeWoTDTP3B9s2cDCMrPu
cwbGyqTFNvrc8W0shE3b0D1YSmTZC4vCJwdZ6O4pCTN2VyISTbEjzudZkC8o
DE2VVSS7744vV4pj4VhiXJPcgAJ5muwdyUhk4SrrxTNGlQI5utFaOe4SC8Ji
lmHSKQXS0dFl25zPQsAPPWZxrzwp6LaJ8ahi4YiiAs/nlRzhV+W+NqxjoSom
/XzjHTniUTBHjdPAQiWvnX4sXo7MPtRTlNXCgsBQ3iLZVY4EDSa96fnMgnv/
/N7h+rnEkerV8Bew8DSqfVvuG1nyaU5aabgdG2z/Y79JKMgQSv1W+yoHNhIl
3s5xY0mTucZ/T/Kc2bA4EP3Piy5p4kT/vixkLRtZv18LsLkrTQrPO1cEebKx
kT5fftUaaeLHH6/dd5qNfKkP1OHEOYT9Y8tblLIh2He3eLXpbKIg8GVOP2Kj
+A9BW7rqbGIiE65a9YyNCyUZy2aLZxFvk7s77KvZSL5oG7j931nkxWFxl80b
NuqWyfZFJM4isd3/+ao/wkbJc13d+jEpMq9VmS1lwsG2tiOxJu2S5PWfjk6q
5hycHW1OaqySJPHefvEG1hxkqptWR9+XJPyBF2oudhyoLEnL8UiUJL1CP9uo
dRzsVJuO9YQkKTGt/p3vx8GckqXvM8slyLr4AMHYXQ6a7wWJA5/TCM09w2Xq
AQd/nG66vv0ejVQq1V6QK+Mg3e0lzyOHRqxy1bTNn3Pgbp0leTWCRtQe1zr4
N3Pwj/3DzfquNNLfpx7RP8zB2wgGx/emGBGOL2c6zbi4ejJ1j87UNOIDB7iF
VlysmIhKzfs2jdRrsyYClnKRKKvn5Ng6jTzeur5pey6Uecq27wum8eJJS63x
ei5Em/TD/enTEFp0Rp/146JC8DWEeWUKoTrDkuq3uAhpn3BYQRcheqOsqLeI
i/NtuVJ6S0RIDjNnFd/nomp3kaHRAhGyPwUNOD3m4rnHhfoQlhAVGVSDbz0X
JlGmE8vuCMGVF8U/7ePizuEIVZqCEGenFaQ9dXhwLN6k/3GMD90BuskJPR6e
SLCvKn/mo6n53NqLRjwcyXhtc+gVH5oZ3+PqLHlIqai2c7vJR6V5Nc3KmYfH
1rKmBrv4oHkHCWfv58FJYnKIes3DxcevxysKeeg9Q5ynqrlYnk1TeH+Lh0s/
Kp3fPeSiJ9LO8uddHlhpDszKfC6sNtwMNCrjQdCSNdUQyUVH37mh9Doedq91
cX+0mgt1BbP+gH4eqIxPK/oaOLjun/RhgSEf2yPvfHj1mQ2Z8KMthov52Hcz
rG3m1+5OXtrw0sKCj5fXzqSsqWUDz+TKHJfz4T0WzBHdYqNXMj1lD52PP7uC
9TWPs6FTkO2a68MH549vRqxZbGR/uFemfZuPvw69DSlyYiHd5U2qlrEAMqvP
iOQ7KKyrubW8x1SAbby2s2pNFKYcwj8XWAqQ//qvIaMqCkdXmJsarRBAOpQf
d7CYAlmc3GBNF4DmUejnEkNhUn6NkH5IgEehia7XV1DY+umF//F8AewSpXZf
uDEJxRMPXBvUhWjV8Sj4YTiBIzezlD9qCZFM7DZGqEygqjOud2ShEJutmpN0
JSYQ4LQ3TMVEiIJ4ncNXen+iUVbh8SE7ITLnR8VY5/xE2O3j+jQvIea9KRfb
qv3EYNdSmnO2EKtW5l+fUhlHzZrn1eXaIoxa1C/tXDkKn/4cxwRdEW5qOSg+
MR+FTFTk39sNRIj44snLWTgKjwrXZ5NmInw6ktiYLDWKQbPWEvNVIuygnuh3
t49AUelrboGXCC2e11q3BY5gf5dcWGKGCPTBbj4p+oHp4AN2OxWnULTxnqm+
/TAO24+nzFOZQmwwXS7YahhNkuH9b9Sn0KVS6FtnMIxLWZmp9IVTOHW2eH+k
wjB061u/2lhO4dXpfXe3DgxhtZrTZTn3KYwbu/psTR/C+UrN4bqEKRSyaman
TgxCQvrdNYvpKZQlzMzPrv8Ou/WnX7rTZhBnEeNZGD0AYU/JsDpzBvF3Dlrt
Ke/HmqDm9M3cGRxkuixkl/YjTTRgnyCcAbdTg3Hlbj/0tBdcYEuKMfJ4U2t3
dj/cvC6YvVcVY1/Kjdbi8H5kvD0SmG4rhlro2qeGrv2wbtIdm3tOjJp/auKj
3zEQusMhwzVSDJ0oh/8+aGGg/tsOp7AYMY5yVA50NzLgKZWW+uOCGL+5vT/h
VsFAOBFZNueI0bZoU7VHHgPNlR+DE6rEWKP4x/tl/gyouLPUq+vE6P8ZfebG
QQb2dinWsBvFePNbsbnabgYmeGsVfVvFEBzd2DF7MwPzbZ+Wuvb+8p3Jy9Ja
zsDBxvadYV/F0Lu99HKxJQP3to/OPBoUQ71jdayjCQNOpw226k+IUf5p5eZg
Lcavn1nN82aJkRXnryuvykBH+q7CdJ4Y+m5ZX0rlGdDWO+vWLBLDdfnppB1z
GPD5T/qEWCyGrKBIk0Zj4H9YClKI
 "]]},
 Annotation[#, 
 "Charting`Private`Tag$2590#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, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}},
 GridLines->{None, None},
 GridLinesStyle->Directive[
 GrayLevel[0.5, 0.4]],
 ImagePadding->All,
 Method->{
 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
 AbsolutePointSize[6], "ScalingFunctions" -> None, 
 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& ), "CopiedValueFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& )}},
 PlotRange->{{-1, 2}, {-17.48005435155371, 15.29221709359486}},
 PlotRangeClipping->True,
 PlotRangePadding->{{
 Scaled[0.02], 
 Scaled[0.02]}, {
 Scaled[0.05], 
 Scaled[0.05]}},
 Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.698275993876052*^9, 3.698278492444171*^9, 
 3.698363767602743*^9, 3.733961692523363*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"e785dc9e-8d02-4e4c-9323-1df1a14dc1b5"]
}, Open ]],
Cell["\<\
No es necesario que ya este definida la funci\[OAcute]n para graficarla, \
puedes definir la funci\[OAcute]n dentro del comando Plot siempre y cuando \
tambi\[EAcute]n definas que variable quieres graficar. 
Ejemplo:
Voy a graficar la misma funci\[OAcute]n de 3 maneras distintas\
\>", "Text",
 CellChangeTimes->{{3.7339626427732935`*^9, 3.733962717997139*^9}, {
 3.7339628310706177`*^9, 3.733962914043126*^9}, {3.7339631081245947`*^9, 
 3.733963164176154*^9}, {3.7339632817708387`*^9, 3.733963317534256*^9}, {
 3.7339635793638697`*^9, 3.733963607361714*^9}, {3.7340298480955915`*^9, 
 3.734029848946987*^9}},ExpressionUUID->"5530dbc5-65a4-4f7d-907f-\
91030743f218"],
Cell[BoxData[
 RowBox[{
 RowBox[{"v", "[", "x_", "]"}], ":=", 
 RowBox[{"1", "/", 
 RowBox[{"(", 
 RowBox[{
 RowBox[{"x", "^", "2"}], "-", "x"}], ")"}]}]}]], "Input",
 CellLabel->"In[41]:=",ExpressionUUID->"4cf5fcbb-1013-402b-9085-d1e8bad66393"],
Cell[CellGroupData[{
Cell[BoxData[
 StyleBox[
 RowBox[{"{", 
 RowBox[{
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"v", "[", "x", "]"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", 
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"1", "/", 
 RowBox[{"(", 
 RowBox[{
 RowBox[{"x", "^", "2"}], "-", "x"}], ")"}]}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", 
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"1", "/", 
 RowBox[{"(", 
 RowBox[{
 RowBox[{"a", "^", "2"}], "-", "a"}], ")"}]}], ",", 
 RowBox[{"{", 
 RowBox[{"a", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "}"}],
 FontColor->GrayLevel[0]]], "Input",
 CellChangeTimes->{{3.733962633016077*^9, 3.733962634130811*^9}, {
 3.733962720023489*^9, 3.7339627665059023`*^9}, {3.7339627978564425`*^9, 
 3.7339628216281366`*^9}, {3.733963057760971*^9, 3.7339630858208976`*^9}, {
 3.733963259626186*^9, 3.733963271294895*^9}, {3.733963359873578*^9, 
 3.7339634501459475`*^9}, {3.7339634955502667`*^9, 3.7339634967649155`*^9}, {
 3.734023915510474*^9, 3.7340239726259775`*^9}},
 CellLabel->
 "In[103]:=",ExpressionUUID->"17a55be9-85e2-4192-b250-d87e24f4d2fb"],
Cell[BoxData[
 RowBox[{"{", 
 RowBox[{
 GraphicsBox[{{{}, {}, 
 TagBox[
 {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
 Opacity[1.], LineBox[CompressedData["
1:eJw92nc4le8bAHCjIcQ5x54hhGRlpOS2KRTRltCwMlOhoUHJSmXPVIiIEBlxZ5aRvcc59jykXajf+/3n98851+c677nO+zzP/d7juo64g8ehc0wMDAyCxMt/
7+GK3JvLJ5+DS2nEtg1hmnjseFre5+XnYH02fHvrNU1cGrRmfSqYDp+8fnVX
m2viXVuWc1b66RDaYUR32aKJhWc8BIuj0sFD8Yznh9pdyOG+N+iqRgboDLKF
H+TbhXW3+09suJ4JX1S3l8b3qaPN+vA3JemZ0EyXc9pRqI5f7umQnD9lgouU
zFHdCHUUC8+sa9ryAgr7LrRTDdXxWuwlpYfVL0DfIXSssEwNVXLIG4RZsmGp
9LVM61tV/KhQZ9eilA2z39anH0lQRbvXvuU3jmdDbwwEa11TxfBiqudodjZI
1nHWCOuq4gzmDmaYvwTjz0dXGFt3Ykr3vtfKj3NgMoSPm+ePCqodW2MbL8+B
4HVc0000FWweyD8fNZEDg1epGo0NKvibyif8Uy0Xxk0pL+JiVNB6bvJuRV8u
KNFNr57SUEG2f7dsjEXzwGX051BqoDLGOR+1lTfKA6N1q46lHsoo2SVvR3bP
A832DcByUhm1s3rPDL7LA48zMbl6KspYmhXzpkQhH1L8+C7wjCsh3WqhwvRT
PvwWztweba6Eqpt692qP5YNbfu1gzh4l9K98X6n0Ix90i5fHF2WVcKNsLPKI
vgZ1l0c5SxuUUPyvbi3V7TUo3ni0MStIEQ+/iG26uLkA/j33Zne7o4BJp26b
nRcvgE0Dn/kczyrgGMWt5ZhaAehfV7ufbqiAHtf1WveeKoC0j7/EF1gU8P4h
esfG3AIoUpxPCX60A9+t6g0kmhVCX9aXGvPX8ihluThTE1oENTvsasX5t6Ng
gPFux7QiWK9b9FX5rxyScp+EspYUQbVDVr3vhBz+YbFSsBwrgjKz1PzM13LY
hiUXR3a9gdBkSPI9IIf+Srf+/pp8A4phV+1PP5TFT5zc3Ao6JSB79uL+q7tk
sGav27n2wyUw1/DthIGkDL51rS/2cS0Bnt9uSjtJMviswfd4eUwJZP5bC7k5
sw19A4ZTTOglYMlY9v1TwjaUWMqQPZPwFi7X3pyeWr8Nr3zShLhvpVDKYTSc
8VUKORTeTH5kKQPj93nU0AkpfB6uFLYiXAafdLdGB3dLYbvZtn5bwzKYr5/S
/lAihdubuC9KxZTBmWrbshPXpZDasJRRoFEOaglD5ansUmj8Pp2jxb8CVO60
jzvslsQRMfE3fyMqQPjhcil1hyT63Ew6qfSsAjRTau+6i0tiGjx+8bipAuys
ct3es0jiyrubeieE38GHVw8dd/Vtxbyyk5en370Di4E6djP/rchXRB5hZKyC
rvtR3FKNEmgTtmI9wVsFx2e3Db6rlMCnZyeb6uWr4Puz2b/nCyVQnqe0NPRY
FajHm3TPJkmg3mW7aJ78KhiUtOB55SmB6klHM6IUEVol5Ru5hSTQ3jbj1IsR
BMPU+ZOh/uIYuF8oPn4W4c35batfPcUxQz2yK+QbwjzTJmtnR3Fc4PA3dWN9
D2bMUh/9rMXxcpW5por6e9D8tm27oqI4hol9564Ifw+pnnbpvVNiWDym39yq
VQ21VvV37tuKYY/JreVw42oIfVUpEnhEDH+8quQ1O1QN/FjuEXxADDWuatp/
cKyGM06cv3K1xfAtl+IPfFQN3y5WfXDZIoalBoJiBTPVMObXULy7bgtWZHy+
GBVVA5tVHfj+jIjiELtC/KHUGvDaky8g3i6Kq96ulaTsGgjz/dd7tEYU98IU
S3hVDfTNPpX4limKlb2DyUFzNXBliEtl0ksUq1gaGi7r1ILuS8rvxyyiWO2S
LHR8oRYCjoTaB+qIYOGsq6vtj1pI8sBTBmoi+Nxpd/kZhjooy5eK55QTwaDz
vSfcuesglGU+vIFLBE0cyAl3tOpAp2nobfm0MLYeD+J/FVYH+q9XqzIfCuOQ
iRsP8456+PvrdpwsXQi/S+/lzHVrgIo1rpq1KkHUHtNrCPFtAHnm2jX7YkG8
m2wS4HSnAYwNL+S25ggiL7f10tb4Btg5JbSrIV4Q1RldWxNqG8B9nV2slI8g
+g7GPQgW+gBqsqI5UXKCuPrgG+fZjx+A92eAwFyyADL9fkkSkmoERkajCPEk
fhRq0fsKio1waeueGLZoflRN6+8+q9kIM9/NYlbC+fHcvo2Jr8wb4XRa+Rl6
AD9+iHeQ0rvcCPxxVb58Z/nxwW6B3c4NjcA7kNgVsIMfha/dPVPi3ASG1lOJ
l2r5UP2fXbHVq2aY/undW8TIh2bmeNvwbTMIhd5JZV3lxTOJWw5qVDeDbovn
h7M/eDFSY2RasKcZ9M5YbJee58VZj5MCY2vNcOD6rfKhLl5Moh2+5mneAia2
YmY8WbzIWL1fL3yhBfQGZ8NjrXmxOVD1U71cK+g4fxhmL+HB3ZxNTA/VWqHV
caT9+2sefBFvr3FSpxV+SMZ0juXw4J1XEU+WDrdCWvD40oenxPV9M978t1qh
JuGPcF0Ecf32ZD6X3lZ4viwx7ufIg3qzt/M36LVBkIknU7kQD26JnP+dtdgG
PLPdNwciuLHSPiCr4GsbPBBrFv8Swo22O7mOl/9qg5tXr4Sx3+PGpJ7db5uZ
2kHUI+3NvgBu5BcJubzE2w4smxt5Jz24kZIt81UV2oFNpEggxZIb19eeW6h6
0A7LEk97N/Fx4/xP6ki3UgfYFX9cfySLC4sdH1TvV+8AM+o878d0LrzZq51R
tacD7Jnqe7SfciFvSbJbllEHZJW0H1dJ5CLyw8nVazYd4OKwXUkznAsTvvUI
SAZ3QKVn495aLy40WW6x9qZ2QD553OG9Fhc+nytv5IjoBGdf9+n5fgq6xx7c
6vK4EzwExVNZeimoYTB+tS6uEz4lCF7Z1kXBxmTWHdeedUKabskt108UXLY4
/mD2bSd8T2zpYa+hoHbJD6va8U4QZ+pXLMyhYP8d5WE/zS64oWnhFXiLghwi
mUsTE10wbmG7jq5EQZ0jd4bHZ7tAYmUza74CBb0fnG4aW+wCWzbDFB95CvYw
8mfSfnUBmT3QnUmGgilTwbZD7N1g1scbpbSFggr5Li2dqt0Qo6oj1bOZgub6
Ci+rA7vh2g1FUZ0FMoY5vzn/RLIHMqUuGdnlknFOJzeYTa4HznEwBx59SUZj
/vTsy4o94H0i4qhFFhmZGqIWzXb3QDvLZIVROhn9JH0u/z7YAy0+NeeNksl4
nqpy99DVHuDt4b8QGU5G3cP56es6euDjNUO+fR5k/KHzcsIpoBdK2VNbRDXI
WPF8PvFKYC94dW+WfahGxtss8lZ37/dC7KP6t+tUycjRlvP+2eNecDNp9F5S
IqP06VcpI5mED8npdsqR8cj118es23qhQOjNx05RMr4pLWkG8T6Q2KdUXrSR
jD4qtUW8NX1w++Hqxf4hEp5XFXvy8EMfPL+06YnfIAmPqV8LZf/UB0syy5xC
AyTcs1vVgam/D9z3UErte0nIpPecc3GxD+ibWMT/tpPwgWWgS51gP3T26bd4
N5Aw29NAzMe7H/4cmh43LiRhkvcTtqUr/WAuOHyTs4CE4T6rP5yv94Nc6KxF
Xz4JPX2LWk4H9wP18JFgt1ck1LgpedU0pR+2uXAaZ2SRsPbBuh6Jxn5oYz+d
YPGEhNRXtaHt4gOQGDjsFBRBwjb6ugWVbQPAd6H21pVwEqK8oVmU/ADIV9YV
uYSR8El2HftRjQGo6A90tA4hoUNGffiQ2QCwRbJ/V71LwqnkDw+mrwzAWvnD
E3I3SEgPa3681jIAd4vTy8bdSTjSxP7NtnMALpqW2vxyI+EnVnNr7BuAmGn1
zRyEXwW3cN8ZHwCXSv44LVdiPYGfoll+D8DRQ9vNMhxJ+O1qWyyX5CC8s0mZ
eGlHwhWXrkRZ/0G4VDaQft2KhNbqpx4qBAyCyczLf3iIhDmMU3d3Bg5CaOwu
rfWEbeN+eu2NGITDV+NtIi1I+L5O0MTy6SBUhouovjYn4T0x+2++jYOw7rwF
u4gJCbl66GYfBIcgbUx5LHEvCS+kXdZr2TIEs5JHtq1oEft54Z9Gh+QQ5KZ6
mpwkfJmZvHVIYQiCdGtERPeQsF9J9feS3hC8PxjG+WoXCVND/dP5XIfgg8T6
qR87Sbhdd+Pf8+VD8C+HTWz7dhLmZ7/c1odD0Og/b5UgR0JVbgvLffVDcG+t
4g4rYa3puOfb24dA/YljD12GhAfC5Uw/Tw1BdZqlHkqT0LvfPM6PMgx7ze03
RUmQ8Ifel/dzfMNg78w2SSF8NSdm/qTIMJxiSSp9JE7CwACqtrbMMKR+KjOL
FiNhjJTXJJP2MKy9YeHNECVhqVeUSpjzMLDHTHL8ECSh9uAumzX3YegJdTgb
SLjaYDjI3WcY/mTy5XMRbuST7rcIGIYOpVBZNQESDr0rCeCJHoaQ/ZZP7vCR
kIF1sDkFh+HRlgPXDnCT0PipuONrvhH4xDP3M4GDWG8ch3S98Ag4tpftNycs
FrEyMSA+AlbK7p4MhP/4dTuskx8BnW1bVJ03kzDX8r7tUZ0R0DWRSTBgJ86L
cfnwmtMISDCntUiwEr/3c5ib4j4CnIoyBmObSLiw0NgpfXEEZup3hT0lXN/3
3NLi+ggEtb+IlCLsl3/M/NnDESDFFzmpsRDPx2k02Fc2Al+K2wyvbSBh8+Fc
ZtuqEXgzb99sQvitaUK1d+0IlAif3cpL+JGGj07SpxHwF7mhV7iehIacMlpL
YyNgoOGs/3MdCVXW86wwz4zAhe2jpo2ERVcYy/jpI+A5d1gyhfCvqUENvZ8j
oOLCYGhC+GXlg53RbFTQeresn8FMwriia1+ySFS4HjvVGEA4MNv5dSUPFZiX
L4qfIGwbo684s4UKG/Pl9pIJk91/yu1RpcJjnr4d95lI+PfMxOxBTSqcnrJV
ciY8d7z9xVltKiS8k2XaT7jW8KV0hAkVZpfPcXEQviJyWmLUhgqdJwLmUxmJ
591C6ciQPRXK0GfyLuEDdxhDes9TQbTVJsOdsPTss+UWTypsmpi5pkOYInxJ
6uMlKiz7BzySI7x2wOh4rT8VOAbp7jyEu4pmsCyQCq7RmtfoDES+mS799uY+
FZoOsuUOEH4pGCrzOoK4/8fJzz8Qvn1zR2RmHBXSvi1OZxB2L/xb8zSZ2B/d
5ztjCR+fav2Z/JQK45c2GAUTVjLzPh2VQwU7b6y8QFg4QP/xg9dUsNhFkrIj
vLGAuyGkmApXxlYtrQl/mZj8E1ROhfMMdwz3ER7hK1G4hVS4ejL1nzbhxv3B
DtfqqND348BNNcJvrh+PudJIBUfOBw3yhJ/kyzV6t1KhW+hUtyThsPGVNbcu
KjxqLs4SIezL26Ls3E+FZrYEAz7CZ/alnDs7QgXvtXUZZMIHrnnEnx6ngsK/
7y3shHfn6bScmKGC8wvXChbC0mNkxiN0Khg0nvVaT5jMM65q+YVK9M+0BSbC
q8ZFTmY/qcAyPKzASHjGPyjJeJUKvZE2GgyE545sd0pjoAFZ32bDf7b7zMW0
hZkGlyeHEv9zz/3VxKT1NAh4NvLzv++bbp1UE2Shge2YveC6/86noqU1lpUG
qzqOzBsJqx8pdubZTIO12KUCVsI5SynMjzlpUPV7RYaTsMT9e8kkCg2OF4Sf
4yYcJ+GpEcFNgxTjDCdBwhwVx9rZ+Ggg5mesIk448LCu630BGsjrXKyWIfx7
UXb9RmEatLduF1D+77yDKamBojQYirqovpvwhPjKLiZxGtDUzAUNCLdZN19Y
k6LBUv17tROEjRaLNlyVocE/yTNu5wlX3Et+8kuOWP+eZ64XCWeWuXd9VaQB
5zRHxYP/4sP6qLuXCg08SvU4Ugk/ogPLkioN3ldIbcsjfEOMrDWnSQM3U/bc
dsLfSn93O2rRYPOYgOAEYRerMY9JbRqo4Jz5T8KH7xY+o+nT4MbUwiYxIt7l
Fw6z9ZoT9/9ApMuf8Ftrs6oQCxoYjlvGRRPWf6d3UduKBj5VeUavCZ+IUBxM
P0aDW4c4HOYJ31fa9NLnDA1adXyiXIjnkzv+n63MeRoorye9DCP8hPEHZciJ
BtEMcjl5hN92jPnruxP3s8Ti/ovwlE/FfoofDUQTe5ajiPzgPVzwt+4qDY51
1J2qJLxmmFXgd4MGNUJJRTOEufliBEfv0KDRetdWHSIf6Zd6zOVF0MBox8D6
P4SfrEmEmD8n1lcsuRRP5D/58wLajJk0sHHZQO4gXPKJ80tRFg3YmodF2TYS
9T519bhwHg2+Olf8DSC8ptsjO19Kg5IK73YfIt+euHv/Y3ArET97U7tDiPw9
tRhwXauDBkqp1dhO2OvoZeXPXTTYaagVL8BGwmCZM/FHB2hwtTuakkO4uFHL
WXqSBoE3cmSH/qsHnJ9Zav/QQGS1hcGZk4Qd70Lu7Vujwe8lGmsp4UcXpDa0
/iPixUhkchOJyFeNJ5gH1o2CHO0i66v/HFS3tsQxCi1brIQYKCQkrSR8Edo6
Cpte3LzQRNSvtiw1rzSpUfjEJRkkw0PCyGNtS9Iyo2CvHO1xlzBn8Xq68o5R
iPc7VGbAS8S7l+e0scYo8J86J9dE1EP2acOhi6aj4Hdf6sE/on42R9NO/DYf
hZvW9zqchYj8YXC1/4bFKLQ9SJrtIsz2NL/n/uFRuDV45nGuMAlZTwm1p54e
hcOkDf1ORL1m6fxc13RxFDSO+u7fSNT7dVWJeVuTRkHlJXPNhCwJB7QMTKgp
oyC26vzZh+gn8soWaAlpoyDKNiG0geg/ThTvpVAyRyHUZ9JtuzwJX+dSfRgK
RuGBwTLzbQWiviRt3T3cMApD7ptlThP9y1u/l7UxX0chN6lqfIDojyJ+Wp06
9GMUXk290AnVJvLbpdXvm3+Pws7Fr0+14L/1m28L+jsKJyILfZ/qkPCc09L9
i5vGQNaLw9Nfn9jvozsPWmwZA0Vd9Y8n95HQVbW8f5PpGKh1HuCaOkzkn7bu
nLfmY3DnwuPmwiMk5HH7HOBoMQZhvKdDbh8lYVW6lHTd4THYK/CGe+tx4vz5
Ir1v2o0B087oC542JCz/fZbt56UxUH5mekHrDLGfVRx7J56MgWvWp4FELyIf
npQlPX5GfB5ArwjxJvL7T/1x3YwxqFHPyfW/SMLTSn73U1+OwaeTzhWnLpGw
MG28+0TxGPCuJMYp+ZHwZOBb9/amMZAOlU3cdIuoX/scnlT+GAP5JO2ToQ+J
/kZeXBt+j8HZG/FHQh6RsJKDNli1MgYNPIXGIY+JeOo8xfeeYRxWnTzZw6OJ
/HLqeEQN6zgEJO+XTYkn+i9vi2sfRMdBddBzZTGNuD5B+1iH0Ticr9vjZk7M
B9/nBUlTMePQH5mjQuknYVTydENS/Dhwr/vlcYGYP3YeLAqwShoHweWAuQZi
PvEqMF/CtHE4ev5S/O0Rol/3vfkpMWccfpm5Lm6YIOHk+qkwy+pxYr6HL6ZL
JOze8nrTO/o4hI6+9mraQMxDVsbMUQYTMFSyylmjScZg07dBwsYTQHtanmO9
h4w2+rIs6fsmoFRq3a1pLWK+28m2ufjABBTqhXeQdMh4gNLK23dsArJtxeW8
jcg403ZETthtAnrfnFfxtCKj4IHzls+jJ4D5xCVGW3cyBpgEpRZNTUCnjEGi
1Asydtg62SjNToCXrnEcQzYZJS+ZCuTMT0De2bHZIWK+bEwjP372eQKmr2N4
fB4ZuVeS7z76MwGrQw4LEiVkfJFb7ObJMQmK7lNZl+vJ2EaZ2SOvPgmPYkkX
t02RUXx4f9+zoElYGdTfNyhLwZDqPXmHgydhwvBzly4xH3/JlL+7MXQSHhxU
U8wm5udqbw5V18hJuORrbH1zJwXPsnQ8UEmchGY/1tt6eyn4Yudx4/f5kxDw3PvaFktifg5xLB4ZnISvGndLDfwpuFsjMEpAZQpG6tlT7nUQ87eDgHqy6hQ8
GnA+s7ubghcjXvWKaUzBcubNjUu9FMyZ7BOU0ZqC9fv+fD41TEHRqB1p6kZT
sG5M3+3QDAWZlntyrU5Mwb1bbMqxfynYlC3bEH57CtR4Fezj5bnQRrT1N2Pn
FHz9bmrXHsGFHALeb8q7p4C7bI3R7BEXvufi8brUNwWG95YMPkZzofSmkzMz
w1MwaqRc0pTEhUtfp3paZ6ZALIcn5HM2F97++Lcw+e8UvJOP7y9v4MIXPgru
mnLTYDLSpebMzI3fG8PHPG9NA4d4b1TWHW4cYut2Wr0zDVpB2f2x97ix2kx4
6d7daRD1lv4RHMqNkZ+yV1JCp+GseEXVxcfcKNfRwN0SPQ1DEXf6XZ9xo20/
o7Fs9jQMH3l6aKaGG+unL70c7ZiG5S+FxyU38mDcOlufQ5IzoKt0s1c/lofo
f/nU2qVnQD6yyWIykQfP1rR9Pyg7A2uL63eGPOFBpdv6V8wVZqA9tkZ7JIsH
P/yT8TfZNQPdz7Ka8ip48OefrwHaZjPwtPNLyMoYDx5Zvh8q5zMDx+9ZMZir
8CLXyJunTLUzwG3VKPp0iBcj2K9fL6mfgUxScErBGC+y7jE4duHjDLDXHdL4
MMOLTHEdm3s+EQ60aWT6zotfLJd8s/pngDVdi7t4Mx+21ckctFiaAWvbbH1B
HT4My01cSRacBZDqtGbO4sP1129Za3rNQr9f0JGmMH4sWl74XXVxFlqrk7d1
PubHs+ePpRpdnoXfrJHjtAR+rD2oOGd1dRa6l7+oc2TxY6DEcIB70CxI0B+z
vq7jx3Ufdr18Fj8La086AkQYBJCJ6zMjR/Us1LJmNtb6CWDBvZOZUbWz4FUp
1R17SwAdVuvNhBpm4R5bWonXfQGsnkyOlWmehfRdrlK74wXw9lvTHfo9s7Dc
YxUuWiqAjLaZx3znZmH+muK6vX8EkCHLNm+MMgfVtzbs5rwtiPULve6pPHPw
+Lw4/X6oIIYpWSrY8M/BRAwHA0e0IPK91c/tFpmDfyO/fFVeCKJCg8zLDzJz
sL08RGrxkyDaTH7JeKU9B5+jgxW1RIWwVPxeir/LHKyJHnsWUyuEN84x2Gq4
zcHz8QK1Y61CaJDlJ/LNYw4i57h/Sg4IYZvShSS3S3Mg4HDVhLYkhDNgmWB3
cw5Oy3T8pAoJI6+tUIxRzBw0Jtvdo1wWRu+EvHBK9RwwvzIsr9kpgiWrCfeq
a+cgfVZ5cxeI4Krt3VveDXPgafbWftlUBO9tPXWpo3kOfj0Mc7A6K4JJOayn
HvXOwc9u/dXiaBGsqzwnT6HPgUnL5wmOFRHkHxdqIvPPA4eQTVpymyieMtxY
915wHr7p5h/wHRHFp5lfKr1E5kHKf1OPw4Ioyl/4WNAuMQ93rskNOrJsQd3v
lxMe7piHqPGADFXdLeiyscOZrD8PpBlxveU3W/Dd9mAWsvs8mMczzdofEUP1
Lr6WR57zcPasuuzIKTHMv5b5kPviPFiP0hYdzonh05Z6QX7febB/Q9O76yOG
wR7rd2y5PQ+cCSdT1B6L4aHC25Y7YuaBvCGc26BDDKd3X0/YVzkPfBtV8iKO
iqPdOPvpJpyHy+6/bDXtxHEgNGmrec08LHdPxi06iWPzUHmOxYd50P7N9cPX
XxwLbvypPNoxD7NzGa6cKeJ4rfrK+LmpefCtIoVZT4sjeb+3/G2OBZBLLd/Z
dVsCn7znZNtNXgAKy1avznAJVNLMnV3mWoCi0K1GY3ESeEBmJsNeYAF6zGZ3
KeZJYMgGW3FdyQVwjzszfn9IAtfV7ONl2L0Awo9I0Xa7t+KPPeIMN84tgH7d
NrFEZkkMKqwcUXNaALHsHXmdJEnk3m7zju6yACLDCzliopK4UzDW/5TnAkQs
H8r7tUsSPX+xf9e6ugBbPnuyZnhI4mzRr9mVyAU4c+kSTXxUEod2tHX6VSwA
ueCvh2iPFKbOk68zVy0A/eEdA41JKXTIspIOf78AzdRYTqdvUjgr2ev7pH4B
Am44uVK4pPGH0IhIQ9sC+JtORERaSiOZdcGRe3IBhjlMkxw7pdFoauPqq810
oMvGOlkvbMNNz/el7yLRQfXYO6OZv9uw2T70QDWFDkcN3cuSyDJoNcyR1s1H
h2m6Y4mThgzadfEYrYrTwVQ9KCkmUAavVm+N3KdOBxtp17YEKVnMTwHJCVs6
1G8V6+UKksOv/l832tvTwaz9mytTkhyqH82cHz5DhwqOb4IihXJYzslZ2OtE
h34Py5q+UTmsvzmi2+RNh8sPfoRd0d2Ogw7XTxfcpUNtgbd28yZ5FAVlfcX7
dDht81O+Yqs82glNSueE0iHQdZF3dK88TnWaLaZH0oHf8cz5Zm95/GwgfD0+
gQ7nWbcb76HK44Zt5Qk3X9HBqdZ9iqdmB+5j9rixlk+H2Rs2JzNpOzCMKuHg
X0iHvCztPX5/dyA5LkTW5y0dZJTF7o3uVkDhTSfeOlbTiXiekxsqVkCV+V/d
B3rooDfjYGNYoYin8tTJIn/psHrj1A9+JmUsPvGLo41hEVwv5H8I41NGjg1l
7HeYF2EJWZT27FBGtNnLMsuyCGPrWe6YHldGCVaDf0Vci9C58UjD4SJlnDpr
STeTXQRH49PbGK6ooDaJa/7f9kVouxG5NSFSBWPLu2YKFBbh+QnJyzezVdCE
cmyCX3UR/pRduaFBVcHsKtvBCe1F6Pq6MfSy2U50F7zw8Zr1IhT8s158qKGK
9XU7GhSPLoJSXd7G9COquMVrqXbs+CL0fkhSEr2sim0N3mhyehGi4zJT9xer
osolvxJul0W4wPvFtX6PGv5svZueE7AI0pd+tx04pY4WV02enb69CGUvcHfr
HXV8Ic2aRgkinJPuMpStjieuhyf5hizCxzAXy6w/6lghF/XYIHoR8LbNe8c0
DbwZlHZrKHsRFE2uHErj0MTNVzbut89dhELvwzKGWpqY4ORGmcpbBLbvs95x
Lpp4XT32S87rxf//H+N/Im9diA==
 "]]},
 Annotation[#, "Charting`Private`Tag$11316#1"]& ]}, {}, {}},
 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
 Axes->{True, True},
 AxesLabel->{None, None},
 AxesOrigin->{0, -25.546968910546106`},
 DisplayFunction->Identity,
 Frame->{{False, False}, {False, False}},
 FrameLabel->{{None, None}, {None, None}},
 FrameTicks->{{Automatic, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}},
 GridLines->{None, None},
 GridLinesStyle->Directive[
 GrayLevel[0.5, 0.4]],
 ImagePadding->All,
 Method->{
 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
 AbsolutePointSize[6], "ScalingFunctions" -> None, 
 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& ), "CopiedValueFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& )}},
 PlotRange->{{0, 1}, {-25.546968910546106`, -4.000000094777321}},
 PlotRangeClipping->True,
 PlotRangePadding->{{
 Scaled[0.02], 
 Scaled[0.02]}, {
 Scaled[0.05], 
 Scaled[0.05]}},
 Ticks->{Automatic, Automatic}], ",", 
 GraphicsBox[{{{}, {}, 
 TagBox[
 {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
 Opacity[1.], LineBox[CompressedData["
1:eJw92nc4le8bAHCjIcQ5x54hhGRlpOS2KRTRltCwMlOhoUHJSmXPVIiIEBlx
Z5aRvcc59jykXajf+/3n98851+c677nO+zzP/d7juo64g8ehc0wMDAyCxMt/
7+GK3JvLJ5+DS2nEtg1hmnjseFre5+XnYH02fHvrNU1cGrRmfSqYDp+8fnVX
m2viXVuWc1b66RDaYUR32aKJhWc8BIuj0sFD8Yznh9pdyOG+N+iqRgboDLKF
H+TbhXW3+09suJ4JX1S3l8b3qaPN+vA3JemZ0EyXc9pRqI5f7umQnD9lgouU
zFHdCHUUC8+sa9ryAgr7LrRTDdXxWuwlpYfVL0DfIXSssEwNVXLIG4RZsmGp
9LVM61tV/KhQZ9eilA2z39anH0lQRbvXvuU3jmdDbwwEa11TxfBiqudodjZI
1nHWCOuq4gzmDmaYvwTjz0dXGFt3Ykr3vtfKj3NgMoSPm+ePCqodW2MbL8+B
4HVc0000FWweyD8fNZEDg1epGo0NKvibyif8Uy0Xxk0pL+JiVNB6bvJuRV8u
KNFNr57SUEG2f7dsjEXzwGX051BqoDLGOR+1lTfKA6N1q46lHsoo2SVvR3bP
A832DcByUhm1s3rPDL7LA48zMbl6KspYmhXzpkQhH1L8+C7wjCsh3WqhwvRT
PvwWztweba6Eqpt692qP5YNbfu1gzh4l9K98X6n0Ix90i5fHF2WVcKNsLPKI
vgZ1l0c5SxuUUPyvbi3V7TUo3ni0MStIEQ+/iG26uLkA/j33Zne7o4BJp26b
nRcvgE0Dn/kczyrgGMWt5ZhaAehfV7ufbqiAHtf1WveeKoC0j7/EF1gU8P4h
esfG3AIoUpxPCX60A9+t6g0kmhVCX9aXGvPX8ihluThTE1oENTvsasX5t6Ng
gPFux7QiWK9b9FX5rxyScp+EspYUQbVDVr3vhBz+YbFSsBwrgjKz1PzM13LY
hiUXR3a9gdBkSPI9IIf+Srf+/pp8A4phV+1PP5TFT5zc3Ao6JSB79uL+q7tk
sGav27n2wyUw1/DthIGkDL51rS/2cS0Bnt9uSjtJMviswfd4eUwJZP5bC7k5
sw19A4ZTTOglYMlY9v1TwjaUWMqQPZPwFi7X3pyeWr8Nr3zShLhvpVDKYTSc
8VUKORTeTH5kKQPj93nU0AkpfB6uFLYiXAafdLdGB3dLYbvZtn5bwzKYr5/S
/lAihdubuC9KxZTBmWrbshPXpZDasJRRoFEOaglD5ansUmj8Pp2jxb8CVO60
jzvslsQRMfE3fyMqQPjhcil1hyT63Ew6qfSsAjRTau+6i0tiGjx+8bipAuys
ct3es0jiyrubeieE38GHVw8dd/Vtxbyyk5en370Di4E6djP/rchXRB5hZKyC
rvtR3FKNEmgTtmI9wVsFx2e3Db6rlMCnZyeb6uWr4Puz2b/nCyVQnqe0NPRY
FajHm3TPJkmg3mW7aJ78KhiUtOB55SmB6klHM6IUEVol5Ru5hSTQ3jbj1IsR
BMPU+ZOh/uIYuF8oPn4W4c35batfPcUxQz2yK+QbwjzTJmtnR3Fc4PA3dWN9
D2bMUh/9rMXxcpW5por6e9D8tm27oqI4hol9564Ifw+pnnbpvVNiWDym39yq
VQ21VvV37tuKYY/JreVw42oIfVUpEnhEDH+8quQ1O1QN/FjuEXxADDWuatp/
cKyGM06cv3K1xfAtl+IPfFQN3y5WfXDZIoalBoJiBTPVMObXULy7bgtWZHy+
GBVVA5tVHfj+jIjiELtC/KHUGvDaky8g3i6Kq96ulaTsGgjz/dd7tEYU98IU
S3hVDfTNPpX4limKlb2DyUFzNXBliEtl0ksUq1gaGi7r1ILuS8rvxyyiWO2S
LHR8oRYCjoTaB+qIYOGsq6vtj1pI8sBTBmoi+Nxpd/kZhjooy5eK55QTwaDz
vSfcuesglGU+vIFLBE0cyAl3tOpAp2nobfm0MLYeD+J/FVYH+q9XqzIfCuOQ
iRsP8456+PvrdpwsXQi/S+/lzHVrgIo1rpq1KkHUHtNrCPFtAHnm2jX7YkG8
m2wS4HSnAYwNL+S25ggiL7f10tb4Btg5JbSrIV4Q1RldWxNqG8B9nV2slI8g
+g7GPQgW+gBqsqI5UXKCuPrgG+fZjx+A92eAwFyyADL9fkkSkmoERkajCPEk
fhRq0fsKio1waeueGLZoflRN6+8+q9kIM9/NYlbC+fHcvo2Jr8wb4XRa+Rl6
AD9+iHeQ0rvcCPxxVb58Z/nxwW6B3c4NjcA7kNgVsIMfha/dPVPi3ASG1lOJ
l2r5UP2fXbHVq2aY/undW8TIh2bmeNvwbTMIhd5JZV3lxTOJWw5qVDeDbovn
h7M/eDFSY2RasKcZ9M5YbJee58VZj5MCY2vNcOD6rfKhLl5Moh2+5mneAia2
YmY8WbzIWL1fL3yhBfQGZ8NjrXmxOVD1U71cK+g4fxhmL+HB3ZxNTA/VWqHV
caT9+2sefBFvr3FSpxV+SMZ0juXw4J1XEU+WDrdCWvD40oenxPV9M978t1qh
JuGPcF0Ecf32ZD6X3lZ4viwx7ufIg3qzt/M36LVBkIknU7kQD26JnP+dtdgG
PLPdNwciuLHSPiCr4GsbPBBrFv8Swo22O7mOl/9qg5tXr4Sx3+PGpJ7db5uZ
2kHUI+3NvgBu5BcJubzE2w4smxt5Jz24kZIt81UV2oFNpEggxZIb19eeW6h6
0A7LEk97N/Fx4/xP6ki3UgfYFX9cfySLC4sdH1TvV+8AM+o878d0LrzZq51R
tacD7Jnqe7SfciFvSbJbllEHZJW0H1dJ5CLyw8nVazYd4OKwXUkznAsTvvUI
SAZ3QKVn495aLy40WW6x9qZ2QD553OG9Fhc+nytv5IjoBGdf9+n5fgq6xx7c
6vK4EzwExVNZeimoYTB+tS6uEz4lCF7Z1kXBxmTWHdeedUKabskt108UXLY4
/mD2bSd8T2zpYa+hoHbJD6va8U4QZ+pXLMyhYP8d5WE/zS64oWnhFXiLghwi
mUsTE10wbmG7jq5EQZ0jd4bHZ7tAYmUza74CBb0fnG4aW+wCWzbDFB95CvYw
8mfSfnUBmT3QnUmGgilTwbZD7N1g1scbpbSFggr5Li2dqt0Qo6oj1bOZgub6
Ci+rA7vh2g1FUZ0FMoY5vzn/RLIHMqUuGdnlknFOJzeYTa4HznEwBx59SUZj
/vTsy4o94H0i4qhFFhmZGqIWzXb3QDvLZIVROhn9JH0u/z7YAy0+NeeNksl4
nqpy99DVHuDt4b8QGU5G3cP56es6euDjNUO+fR5k/KHzcsIpoBdK2VNbRDXIWPF8PvFKYC94dW+WfahGxtss8lZ37/dC7KP6t+tUycjRlvP+2eNecDNp9F5S
IqP06VcpI5mED8npdsqR8cj118es23qhQOjNx05RMr4pLWkG8T6Q2KdUXrSR
jD4qtUW8NX1w++Hqxf4hEp5XFXvy8EMfPL+06YnfIAmPqV8LZf/UB0syy5xC
AyTcs1vVgam/D9z3UErte0nIpPecc3GxD+ibWMT/tpPwgWWgS51gP3T26bd4
N5Aw29NAzMe7H/4cmh43LiRhkvcTtqUr/WAuOHyTs4CE4T6rP5yv94Nc6KxF
Xz4JPX2LWk4H9wP18JFgt1ck1LgpedU0pR+2uXAaZ2SRsPbBuh6Jxn5oYz+d
YPGEhNRXtaHt4gOQGDjsFBRBwjb6ugWVbQPAd6H21pVwEqK8oVmU/ADIV9YV
uYSR8El2HftRjQGo6A90tA4hoUNGffiQ2QCwRbJ/V71LwqnkDw+mrwzAWvnD
E3I3SEgPa3681jIAd4vTy8bdSTjSxP7NtnMALpqW2vxyI+EnVnNr7BuAmGn1
zRyEXwW3cN8ZHwCXSv44LVdiPYGfoll+D8DRQ9vNMhxJ+O1qWyyX5CC8s0mZ
eGlHwhWXrkRZ/0G4VDaQft2KhNbqpx4qBAyCyczLf3iIhDmMU3d3Bg5CaOwu
rfWEbeN+eu2NGITDV+NtIi1I+L5O0MTy6SBUhouovjYn4T0x+2++jYOw7rwF
u4gJCbl66GYfBIcgbUx5LHEvCS+kXdZr2TIEs5JHtq1oEft54Z9Gh+QQ5KZ6
mpwkfJmZvHVIYQiCdGtERPeQsF9J9feS3hC8PxjG+WoXCVND/dP5XIfgg8T6
qR87Sbhdd+Pf8+VD8C+HTWz7dhLmZ7/c1odD0Og/b5UgR0JVbgvLffVDcG+t
4g4rYa3puOfb24dA/YljD12GhAfC5Uw/Tw1BdZqlHkqT0LvfPM6PMgx7ze03
RUmQ8Ifel/dzfMNg78w2SSF8NSdm/qTIMJxiSSp9JE7CwACqtrbMMKR+KjOL
FiNhjJTXJJP2MKy9YeHNECVhqVeUSpjzMLDHTHL8ECSh9uAumzX3YegJdTgb
SLjaYDjI3WcY/mTy5XMRbuST7rcIGIYOpVBZNQESDr0rCeCJHoaQ/ZZP7vCR
kIF1sDkFh+HRlgPXDnCT0PipuONrvhH4xDP3M4GDWG8ch3S98Ag4tpftNycs
FrEyMSA+AlbK7p4MhP/4dTuskx8BnW1bVJ03kzDX8r7tUZ0R0DWRSTBgJ86L
cfnwmtMISDCntUiwEr/3c5ib4j4CnIoyBmObSLiw0NgpfXEEZup3hT0lXN/3
3NLi+ggEtb+IlCLsl3/M/NnDESDFFzmpsRDPx2k02Fc2Al+K2wyvbSBh8+Fc
ZtuqEXgzb99sQvitaUK1d+0IlAif3cpL+JGGj07SpxHwF7mhV7iehIacMlpL
YyNgoOGs/3MdCVXW86wwz4zAhe2jpo2ERVcYy/jpI+A5d1gyhfCvqUENvZ8j
oOLCYGhC+GXlg53RbFTQeresn8FMwriia1+ySFS4HjvVGEA4MNv5dSUPFZiX
L4qfIGwbo684s4UKG/Pl9pIJk91/yu1RpcJjnr4d95lI+PfMxOxBTSqcnrJV
ciY8d7z9xVltKiS8k2XaT7jW8KV0hAkVZpfPcXEQviJyWmLUhgqdJwLmUxmJ
591C6ciQPRXK0GfyLuEDdxhDes9TQbTVJsOdsPTss+UWTypsmpi5pkOYInxJ
6uMlKiz7BzySI7x2wOh4rT8VOAbp7jyEu4pmsCyQCq7RmtfoDES+mS799uY+
FZoOsuUOEH4pGCrzOoK4/8fJzz8Qvn1zR2RmHBXSvi1OZxB2L/xb8zSZ2B/d
5ztjCR+fav2Z/JQK45c2GAUTVjLzPh2VQwU7b6y8QFg4QP/xg9dUsNhFkrIj
vLGAuyGkmApXxlYtrQl/mZj8E1ROhfMMdwz3ER7hK1G4hVS4ejL1nzbhxv3B
DtfqqND348BNNcJvrh+PudJIBUfOBw3yhJ/kyzV6t1KhW+hUtyThsPGVNbcu
KjxqLs4SIezL26Ls3E+FZrYEAz7CZ/alnDs7QgXvtXUZZMIHrnnEnx6ngsK/
7y3shHfn6bScmKGC8wvXChbC0mNkxiN0Khg0nvVaT5jMM65q+YVK9M+0BSbC
q8ZFTmY/qcAyPKzASHjGPyjJeJUKvZE2GgyE545sd0pjoAFZ32bDf7b7zMW0
hZkGlyeHEv9zz/3VxKT1NAh4NvLzv++bbp1UE2Shge2YveC6/86noqU1lpUG
qzqOzBsJqx8pdubZTIO12KUCVsI5SynMjzlpUPV7RYaTsMT9e8kkCg2OF4Sf
4yYcJ+GpEcFNgxTjDCdBwhwVx9rZ+Ggg5mesIk448LCu630BGsjrXKyWIfx7
UXb9RmEatLduF1D+77yDKamBojQYirqovpvwhPjKLiZxGtDUzAUNCLdZN19Y
k6LBUv17tROEjRaLNlyVocE/yTNu5wlX3Et+8kuOWP+eZ64XCWeWuXd9VaQB
5zRHxYP/4sP6qLuXCg08SvU4Ugk/ogPLkioN3ldIbcsjfEOMrDWnSQM3U/bc
dsLfSn93O2rRYPOYgOAEYRerMY9JbRqo4Jz5T8KH7xY+o+nT4MbUwiYxIt7l
Fw6z9ZoT9/9ApMuf8Ftrs6oQCxoYjlvGRRPWf6d3UduKBj5VeUavCZ+IUBxM
P0aDW4c4HOYJ31fa9NLnDA1adXyiXIjnkzv+n63MeRoorye9DCP8hPEHZciJ
BtEMcjl5hN92jPnruxP3s8Ti/ovwlE/FfoofDUQTe5ajiPzgPVzwt+4qDY51
1J2qJLxmmFXgd4MGNUJJRTOEufliBEfv0KDRetdWHSIf6Zd6zOVF0MBox8D6
P4SfrEmEmD8n1lcsuRRP5D/58wLajJk0sHHZQO4gXPKJ80tRFg3YmodF2TYS
9T519bhwHg2+Olf8DSC8ptsjO19Kg5IK73YfIt+euHv/Y3ArET97U7tDiPw9
tRhwXauDBkqp1dhO2OvoZeXPXTTYaagVL8BGwmCZM/FHB2hwtTuakkO4uFHL
WXqSBoE3cmSH/qsHnJ9Zav/QQGS1hcGZk4Qd70Lu7Vujwe8lGmsp4UcXpDa0
/iPixUhkchOJyFeNJ5gH1o2CHO0i66v/HFS3tsQxCi1brIQYKCQkrSR8Edo6
Cpte3LzQRNSvtiw1rzSpUfjEJRkkw0PCyGNtS9Iyo2CvHO1xlzBn8Xq68o5R
iPc7VGbAS8S7l+e0scYo8J86J9dE1EP2acOhi6aj4Hdf6sE/on42R9NO/DYf
hZvW9zqchYj8YXC1/4bFKLQ9SJrtIsz2NL/n/uFRuDV45nGuMAlZTwm1p54e
hcOkDf1ORL1m6fxc13RxFDSO+u7fSNT7dVWJeVuTRkHlJXPNhCwJB7QMTKgp
oyC26vzZh+gn8soWaAlpoyDKNiG0geg/ThTvpVAyRyHUZ9JtuzwJX+dSfRgK
RuGBwTLzbQWiviRt3T3cMApD7ptlThP9y1u/l7UxX0chN6lqfIDojyJ+Wp06
9GMUXk290AnVJvLbpdXvm3+Pws7Fr0+14L/1m28L+jsKJyILfZ/qkPCc09L9
i5vGQNaLw9Nfn9jvozsPWmwZA0Vd9Y8n95HQVbW8f5PpGKh1HuCaOkzkn7bu
nLfmY3DnwuPmwiMk5HH7HOBoMQZhvKdDbh8lYVW6lHTd4THYK/CGe+tx4vz5
Ir1v2o0B087oC542JCz/fZbt56UxUH5mekHrDLGfVRx7J56MgWvWp4FELyIf
npQlPX5GfB5ArwjxJvL7T/1x3YwxqFHPyfW/SMLTSn73U1+OwaeTzhWnLpGw
MG28+0TxGPCuJMYp+ZHwZOBb9/amMZAOlU3cdIuoX/scnlT+GAP5JO2ToQ+J
/kZeXBt+j8HZG/FHQh6RsJKDNli1MgYNPIXGIY+JeOo8xfeeYRxWnTzZw6OJ
/HLqeEQN6zgEJO+XTYkn+i9vi2sfRMdBddBzZTGNuD5B+1iH0Ticr9vjZk7M
B9/nBUlTMePQH5mjQuknYVTydENS/Dhwr/vlcYGYP3YeLAqwShoHweWAuQZi
PvEqMF/CtHE4ev5S/O0Rol/3vfkpMWccfpm5Lm6YIOHk+qkwy+pxYr6HL6ZL
JOze8nrTO/o4hI6+9mraQMxDVsbMUQYTMFSyylmjScZg07dBwsYTQHtanmO9
h4w2+rIs6fsmoFRq3a1pLWK+28m2ufjABBTqhXeQdMh4gNLK23dsArJtxeW8
jcg403ZETthtAnrfnFfxtCKj4IHzls+jJ4D5xCVGW3cyBpgEpRZNTUCnjEGi
1Asydtg62SjNToCXrnEcQzYZJS+ZCuTMT0De2bHZIWK+bEwjP372eQKmr2N4
fB4ZuVeS7z76MwGrQw4LEiVkfJFb7ObJMQmK7lNZl+vJ2EaZ2SOvPgmPYkkX
t02RUXx4f9+zoElYGdTfNyhLwZDqPXmHgydhwvBzly4xH3/JlL+7MXQSHhxU
U8wm5udqbw5V18hJuORrbH1zJwXPsnQ8UEmchGY/1tt6eyn4Yudx4/f5kxDw
3PvaFktifg5xLB4ZnISvGndLDfwpuFsjMEpAZQpG6tlT7nUQ87eDgHqy6hQ8
GnA+s7ubghcjXvWKaUzBcubNjUu9FMyZ7BOU0ZqC9fv+fD41TEHRqB1p6kZT
sG5M3+3QDAWZlntyrU5Mwb1bbMqxfynYlC3bEH57CtR4Fezj5bnQRrT1N2Pn
FHz9bmrXHsGFHALeb8q7p4C7bI3R7BEXvufi8brUNwWG95YMPkZzofSmkzMz
w1MwaqRc0pTEhUtfp3paZ6ZALIcn5HM2F97++Lcw+e8UvJOP7y9v4MIXPgru
mnLTYDLSpebMzI3fG8PHPG9NA4d4b1TWHW4cYut2Wr0zDVpB2f2x97ix2kx4
6d7daRD1lv4RHMqNkZ+yV1JCp+GseEXVxcfcKNfRwN0SPQ1DEXf6XZ9xo20/
o7Fs9jQMH3l6aKaGG+unL70c7ZiG5S+FxyU38mDcOlufQ5IzoKt0s1c/lofo
f/nU2qVnQD6yyWIykQfP1rR9Pyg7A2uL63eGPOFBpdv6V8wVZqA9tkZ7JIsH
P/yT8TfZNQPdz7Ka8ip48OefrwHaZjPwtPNLyMoYDx5Zvh8q5zMDx+9ZMZir
8CLXyJunTLUzwG3VKPp0iBcj2K9fL6mfgUxScErBGC+y7jE4duHjDLDXHdL4
MMOLTHEdm3s+EQ60aWT6zotfLJd8s/pngDVdi7t4Mx+21ckctFiaAWvbbH1B
HT4My01cSRacBZDqtGbO4sP1129Za3rNQr9f0JGmMH4sWl74XXVxFlqrk7d1
PubHs+ePpRpdnoXfrJHjtAR+rD2oOGd1dRa6l7+oc2TxY6DEcIB70CxI0B+z
vq7jx3Ufdr18Fj8La086AkQYBJCJ6zMjR/Us1LJmNtb6CWDBvZOZUbWz4FUp
1R17SwAdVuvNhBpm4R5bWonXfQGsnkyOlWmehfRdrlK74wXw9lvTHfo9s7Dc
YxUuWiqAjLaZx3znZmH+muK6vX8EkCHLNm+MMgfVtzbs5rwtiPULve6pPHPw
+Lw4/X6oIIYpWSrY8M/BRAwHA0e0IPK91c/tFpmDfyO/fFVeCKJCg8zLDzJz
sL08RGrxkyDaTH7JeKU9B5+jgxW1RIWwVPxeir/LHKyJHnsWUyuEN84x2Gq4
zcHz8QK1Y61CaJDlJ/LNYw4i57h/Sg4IYZvShSS3S3Mg4HDVhLYkhDNgmWB3
cw5Oy3T8pAoJI6+tUIxRzBw0Jtvdo1wWRu+EvHBK9RwwvzIsr9kpgiWrCfeq
a+cgfVZ5cxeI4Krt3VveDXPgafbWftlUBO9tPXWpo3kOfj0Mc7A6K4JJOayn
HvXOwc9u/dXiaBGsqzwnT6HPgUnL5wmOFRHkHxdqIvPPA4eQTVpymyieMtxY
915wHr7p5h/wHRHFp5lfKr1E5kHKf1OPw4Ioyl/4WNAuMQ93rskNOrJsQd3v
lxMe7piHqPGADFXdLeiyscOZrD8PpBlxveU3W/Dd9mAWsvs8mMczzdofEUP1
Lr6WR57zcPasuuzIKTHMv5b5kPviPFiP0hYdzonh05Z6QX7febB/Q9O76yOG
wR7rd2y5PQ+cCSdT1B6L4aHC25Y7YuaBvCGc26BDDKd3X0/YVzkPfBtV8iKO
iqPdOPvpJpyHy+6/bDXtxHEgNGmrec08LHdPxi06iWPzUHmOxYd50P7N9cPX
XxwLbvypPNoxD7NzGa6cKeJ4rfrK+LmpefCtIoVZT4sjeb+3/G2OBZBLLd/Z
dVsCn7znZNtNXgAKy1avznAJVNLMnV3mWoCi0K1GY3ESeEBmJsNeYAF6zGZ3
KeZJYMgGW3FdyQVwjzszfn9IAtfV7ONl2L0Awo9I0Xa7t+KPPeIMN84tgH7d
NrFEZkkMKqwcUXNaALHsHXmdJEnk3m7zju6yACLDCzliopK4UzDW/5TnAkQs
H8r7tUsSPX+xf9e6ugBbPnuyZnhI4mzRr9mVyAU4c+kSTXxUEod2tHX6VSwA
ueCvh2iPFKbOk68zVy0A/eEdA41JKXTIspIOf78AzdRYTqdvUjgr2ev7pH4B
Am44uVK4pPGH0IhIQ9sC+JtORERaSiOZdcGRe3IBhjlMkxw7pdFoauPqq810
oMvGOlkvbMNNz/el7yLRQfXYO6OZv9uw2T70QDWFDkcN3cuSyDJoNcyR1s1H
h2m6Y4mThgzadfEYrYrTwVQ9KCkmUAavVm+N3KdOBxtp17YEKVnMTwHJCVs6
1G8V6+UKksOv/l832tvTwaz9mytTkhyqH82cHz5DhwqOb4IihXJYzslZ2OtE
h34Py5q+UTmsvzmi2+RNh8sPfoRd0d2Ogw7XTxfcpUNtgbd28yZ5FAVlfcX7
dDht81O+Yqs82glNSueE0iHQdZF3dK88TnWaLaZH0oHf8cz5Zm95/GwgfD0+
gQ7nWbcb76HK44Zt5Qk3X9HBqdZ9iqdmB+5j9rixlk+H2Rs2JzNpOzCMKuHg
X0iHvCztPX5/dyA5LkTW5y0dZJTF7o3uVkDhTSfeOlbTiXiekxsqVkCV+V/d
B3rooDfjYGNYoYin8tTJIn/psHrj1A9+JmUsPvGLo41hEVwv5H8I41NGjg1l
7HeYF2EJWZT27FBGtNnLMsuyCGPrWe6YHldGCVaDf0Vci9C58UjD4SJlnDpr
STeTXQRH49PbGK6ooDaJa/7f9kVouxG5NSFSBWPLu2YKFBbh+QnJyzezVdCE
cmyCX3UR/pRduaFBVcHsKtvBCe1F6Pq6MfSy2U50F7zw8Zr1IhT8s158qKGK
9XU7GhSPLoJSXd7G9COquMVrqXbs+CL0fkhSEr2sim0N3mhyehGi4zJT9xer
osolvxJul0W4wPvFtX6PGv5svZueE7AI0pd+tx04pY4WV02enb69CGUvcHfr
HXV8Ic2aRgkinJPuMpStjieuhyf5hizCxzAXy6w/6lghF/XYIHoR8LbNe8c0
DbwZlHZrKHsRFE2uHErj0MTNVzbut89dhELvwzKGWpqY4ORGmcpbBLbvs95x
Lpp4XT32S87rxf//H+N/Im9diA==
 "]]},
 Annotation[#, "Charting`Private`Tag$11360#1"]& ]}, {}, {}},
 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
 Axes->{True, True},
 AxesLabel->{None, None},AxesOrigin->{0, -25.546968910546106`},
 DisplayFunction->Identity,
 Frame->{{False, False}, {False, False}},
 FrameLabel->{{None, None}, {None, None}},
 FrameTicks->{{Automatic, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}},
 GridLines->{None, None},
 GridLinesStyle->Directive[
 GrayLevel[0.5, 0.4]],
 ImagePadding->All,
 Method->{
 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
 AbsolutePointSize[6], "ScalingFunctions" -> None, 
 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& ), "CopiedValueFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& )}},
 PlotRange->{{0, 1}, {-25.546968910546106`, -4.000000094777321}},
 PlotRangeClipping->True,
 PlotRangePadding->{{
 Scaled[0.02], 
 Scaled[0.02]}, {
 Scaled[0.05], 
 Scaled[0.05]}},
 Ticks->{Automatic, Automatic}], ",", 
 GraphicsBox[{{{}, {}, 
 TagBox[
 {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
 Opacity[1.], LineBox[CompressedData["
1:eJw92nc4le8bAHCjIcQ5x54hhGRlpOS2KRTRltCwMlOhoUHJSmXPVIiIEBlx
Z5aRvcc59jykXajf+/3n98851+c677nO+zzP/d7juo64g8ehc0wMDAyCxMt/
7+GK3JvLJ5+DS2nEtg1hmnjseFre5+XnYH02fHvrNU1cGrRmfSqYDp+8fnVX
m2viXVuWc1b66RDaYUR32aKJhWc8BIuj0sFD8Yznh9pdyOG+N+iqRgboDLKF
H+TbhXW3+09suJ4JX1S3l8b3qaPN+vA3JemZ0EyXc9pRqI5f7umQnD9lgouU
zFHdCHUUC8+sa9ryAgr7LrRTDdXxWuwlpYfVL0DfIXSssEwNVXLIG4RZsmGp
9LVM61tV/KhQZ9eilA2z39anH0lQRbvXvuU3jmdDbwwEa11TxfBiqudodjZI
1nHWCOuq4gzmDmaYvwTjz0dXGFt3Ykr3vtfKj3NgMoSPm+ePCqodW2MbL8+B
4HVc0000FWweyD8fNZEDg1epGo0NKvibyif8Uy0Xxk0pL+JiVNB6bvJuRV8u
KNFNr57SUEG2f7dsjEXzwGX051BqoDLGOR+1lTfKA6N1q46lHsoo2SVvR3bP
A832DcByUhm1s3rPDL7LA48zMbl6KspYmhXzpkQhH1L8+C7wjCsh3WqhwvRT
PvwWztweba6Eqpt692qP5YNbfu1gzh4l9K98X6n0Ix90i5fHF2WVcKNsLPKI
vgZ1l0c5SxuUUPyvbi3V7TUo3ni0MStIEQ+/iG26uLkA/j33Zne7o4BJp26b
nRcvgE0Dn/kczyrgGMWt5ZhaAehfV7ufbqiAHtf1WveeKoC0j7/EF1gU8P4h
esfG3AIoUpxPCX60A9+t6g0kmhVCX9aXGvPX8ihluThTE1oENTvsasX5t6Ng
gPFux7QiWK9b9FX5rxyScp+EspYUQbVDVr3vhBz+YbFSsBwrgjKz1PzM13LY
hiUXR3a9gdBkSPI9IIf+Srf+/pp8A4phV+1PP5TFT5zc3Ao6JSB79uL+q7tk
sGav27n2wyUw1/DthIGkDL51rS/2cS0Bnt9uSjtJMviswfd4eUwJZP5bC7k5
sw19A4ZTTOglYMlY9v1TwjaUWMqQPZPwFi7X3pyeWr8Nr3zShLhvpVDKYTSc
8VUKORTeTH5kKQPj93nU0AkpfB6uFLYiXAafdLdGB3dLYbvZtn5bwzKYr5/S
/lAihdubuC9KxZTBmWrbshPXpZDasJRRoFEOaglD5ansUmj8Pp2jxb8CVO60
jzvslsQRMfE3fyMqQPjhcil1hyT63Ew6qfSsAjRTau+6i0tiGjx+8bipAuys
ct3es0jiyrubeieE38GHVw8dd/Vtxbyyk5en370Di4E6djP/rchXRB5hZKyC
rvtR3FKNEmgTtmI9wVsFx2e3Db6rlMCnZyeb6uWr4Puz2b/nCyVQnqe0NPRY
FajHm3TPJkmg3mW7aJ78KhiUtOB55SmB6klHM6IUEVol5Ru5hSTQ3jbj1IsR
BMPU+ZOh/uIYuF8oPn4W4c35batfPcUxQz2yK+QbwjzTJmtnR3Fc4PA3dWN9
D2bMUh/9rMXxcpW5por6e9D8tm27oqI4hol9564Ifw+pnnbpvVNiWDym39yq
VQ21VvV37tuKYY/JreVw42oIfVUpEnhEDH+8quQ1O1QN/FjuEXxADDWuatp/
cKyGM06cv3K1xfAtl+IPfFQN3y5WfXDZIoalBoJiBTPVMObXULy7bgtWZHy+
GBVVA5tVHfj+jIjiELtC/KHUGvDaky8g3i6Kq96ulaTsGgjz/dd7tEYU98IU
S3hVDfTNPpX4limKlb2DyUFzNXBliEtl0ksUq1gaGi7r1ILuS8rvxyyiWO2S
LHR8oRYCjoTaB+qIYOGsq6vtj1pI8sBTBmoi+Nxpd/kZhjooy5eK55QTwaDz
vSfcuesglGU+vIFLBE0cyAl3tOpAp2nobfm0MLYeD+J/FVYH+q9XqzIfCuOQ
iRsP8456+PvrdpwsXQi/S+/lzHVrgIo1rpq1KkHUHtNrCPFtAHnm2jX7YkG8
m2wS4HSnAYwNL+S25ggiL7f10tb4Btg5JbSrIV4Q1RldWxNqG8B9nV2slI8g
+g7GPQgW+gBqsqI5UXKCuPrgG+fZjx+A92eAwFyyADL9fkkSkmoERkajCPEk
fhRq0fsKio1waeueGLZoflRN6+8+q9kIM9/NYlbC+fHcvo2Jr8wb4XRa+Rl6
AD9+iHeQ0rvcCPxxVb58Z/nxwW6B3c4NjcA7kNgVsIMfha/dPVPi3ASG1lOJ
l2r5UP2fXbHVq2aY/undW8TIh2bmeNvwbTMIhd5JZV3lxTOJWw5qVDeDbovn
h7M/eDFSY2RasKcZ9M5YbJee58VZj5MCY2vNcOD6rfKhLl5Moh2+5mneAia2
YmY8WbzIWL1fL3yhBfQGZ8NjrXmxOVD1U71cK+g4fxhmL+HB3ZxNTA/VWqHV
caT9+2sefBFvr3FSpxV+SMZ0juXw4J1XEU+WDrdCWvD40oenxPV9M978t1qh
JuGPcF0Ecf32ZD6X3lZ4viwx7ufIg3qzt/M36LVBkIknU7kQD26JnP+dtdgG
PLPdNwciuLHSPiCr4GsbPBBrFv8Swo22O7mOl/9qg5tXr4Sx3+PGpJ7db5uZ
2kHUI+3NvgBu5BcJubzE2w4smxt5Jz24kZIt81UV2oFNpEggxZIb19eeW6h6
0A7LEk97N/Fx4/xP6ki3UgfYFX9cfySLC4sdH1TvV+8AM+o878d0LrzZq51R
tacD7Jnqe7SfciFvSbJbllEHZJW0H1dJ5CLyw8nVazYd4OKwXUkznAsTvvUI
SAZ3QKVn495aLy40WW6x9qZ2QD553OG9Fhc+nytv5IjoBGdf9+n5fgq6xx7c
6vK4EzwExVNZeimoYTB+tS6uEz4lCF7Z1kXBxmTWHdeedUKabskt108UXLY4
/mD2bSd8T2zpYa+hoHbJD6va8U4QZ+pXLMyhYP8d5WE/zS64oWnhFXiLghwi
mUsTE10wbmG7jq5EQZ0jd4bHZ7tAYmUza74CBb0fnG4aW+wCWzbDFB95CvYw
8mfSfnUBmT3QnUmGgilTwbZD7N1g1scbpbSFggr5Li2dqt0Qo6oj1bOZgub6
Ci+rA7vh2g1FUZ0FMoY5vzn/RLIHMqUuGdnlknFOJzeYTa4HznEwBx59SUZj
/vTsy4o94H0i4qhFFhmZGqIWzXb3QDvLZIVROhn9JH0u/z7YAy0+NeeNksl4
nqpy99DVHuDt4b8QGU5G3cP56es6euDjNUO+fR5k/KHzcsIpoBdK2VNbRDXI
WPF8PvFKYC94dW+WfahGxtss8lZ37/dC7KP6t+tUycjRlvP+2eNecDNp9F5S
IqP06VcpI5mED8npdsqR8cj118es23qhQOjNx05RMr4pLWkG8T6Q2KdUXrSR
jD4qtUW8NX1w++Hqxf4hEp5XFXvy8EMfPL+06YnfIAmPqV8LZf/UB0syy5xC
AyTcs1vVgam/D9z3UErte0nIpPecc3GxD+ibWMT/tpPwgWWgS51gP3T26bd4
N5Aw29NAzMe7H/4cmh43LiRhkvcTtqUr/WAuOHyTs4CE4T6rP5yv94Nc6KxF
Xz4JPX2LWk4H9wP18JFgt1ck1LgpedU0pR+2uXAaZ2SRsPbBuh6Jxn5oYz+d
YPGEhNRXtaHt4gOQGDjsFBRBwjb6ugWVbQPAd6H21pVwEqK8oVmU/ADIV9YV
uYSR8El2HftRjQGo6A90tA4hoUNGffiQ2QCwRbJ/V71LwqnkDw+mrwzAWvnD
E3I3SEgPa3681jIAd4vTy8bdSTjSxP7NtnMALpqW2vxyI+EnVnNr7BuAmGn1
zRyEXwW3cN8ZHwCXSv44LVdiPYGfoll+D8DRQ9vNMhxJ+O1qWyyX5CC8s0mZ
eGlHwhWXrkRZ/0G4VDaQft2KhNbqpx4qBAyCyczLf3iIhDmMU3d3Bg5CaOwu
rfWEbeN+eu2NGITDV+NtIi1I+L5O0MTy6SBUhouovjYn4T0x+2++jYOw7rwF
u4gJCbl66GYfBIcgbUx5LHEvCS+kXdZr2TIEs5JHtq1oEft54Z9Gh+QQ5KZ6
mpwkfJmZvHVIYQiCdGtERPeQsF9J9feS3hC8PxjG+WoXCVND/dP5XIfgg8T6
qR87Sbhdd+Pf8+VD8C+HTWz7dhLmZ7/c1odD0Og/b5UgR0JVbgvLffVDcG+t
4g4rYa3puOfb24dA/YljD12GhAfC5Uw/Tw1BdZqlHkqT0LvfPM6PMgx7ze03
RUmQ8Ifel/dzfMNg78w2SSF8NSdm/qTIMJxiSSp9JE7CwACqtrbMMKR+KjOL
FiNhjJTXJJP2MKy9YeHNECVhqVeUSpjzMLDHTHL8ECSh9uAumzX3YegJdTgb
SLjaYDjI3WcY/mTy5XMRbuST7rcIGIYOpVBZNQESDr0rCeCJHoaQ/ZZP7vCR
kIF1sDkFh+HRlgPXDnCT0PipuONrvhH4xDP3M4GDWG8ch3S98Ag4tpftNycs
FrEyMSA+AlbK7p4MhP/4dTuskx8BnW1bVJ03kzDX8r7tUZ0R0DWRSTBgJ86L
cfnwmtMISDCntUiwEr/3c5ib4j4CnIoyBmObSLiw0NgpfXEEZup3hT0lXN/3
3NLi+ggEtb+IlCLsl3/M/NnDESDFFzmpsRDPx2k02Fc2Al+K2wyvbSBh8+Fc
ZtuqEXgzb99sQvitaUK1d+0IlAif3cpL+JGGj07SpxHwF7mhV7iehIacMlpL
YyNgoOGs/3MdCVXW86wwz4zAhe2jpo2ERVcYy/jpI+A5d1gyhfCvqUENvZ8j
oOLCYGhC+GXlg53RbFTQeresn8FMwriia1+ySFS4HjvVGEA4MNv5dSUPFZiX
L4qfIGwbo684s4UKG/Pl9pIJk91/yu1RpcJjnr4d95lI+PfMxOxBTSqcnrJV
ciY8d7z9xVltKiS8k2XaT7jW8KV0hAkVZpfPcXEQviJyWmLUhgqdJwLmUxmJ
591C6ciQPRXK0GfyLuEDdxhDes9TQbTVJsOdsPTss+UWTypsmpi5pkOYInxJ
6uMlKiz7BzySI7x2wOh4rT8VOAbp7jyEu4pmsCyQCq7RmtfoDES+mS799uY+
FZoOsuUOEH4pGCrzOoK4/8fJzz8Qvn1zR2RmHBXSvi1OZxB2L/xb8zSZ2B/d
5ztjCR+fav2Z/JQK45c2GAUTVjLzPh2VQwU7b6y8QFg4QP/xg9dUsNhFkrIj
vLGAuyGkmApXxlYtrQl/mZj8E1ROhfMMdwz3ER7hK1G4hVS4ejL1nzbhxv3B
DtfqqND348BNNcJvrh+PudJIBUfOBw3yhJ/kyzV6t1KhW+hUtyThsPGVNbcu
KjxqLs4SIezL26Ls3E+FZrYEAz7CZ/alnDs7QgXvtXUZZMIHrnnEnx6ngsK/
7y3shHfn6bScmKGC8wvXChbC0mNkxiN0Khg0nvVaT5jMM65q+YVK9M+0BSbC
q8ZFTmY/qcAyPKzASHjGPyjJeJUKvZE2GgyE545sd0pjoAFZ32bDf7b7zMW0
hZkGlyeHEv9zz/3VxKT1NAh4NvLzv++bbp1UE2Shge2YveC6/86noqU1lpUG
qzqOzBsJqx8pdubZTIO12KUCVsI5SynMjzlpUPV7RYaTsMT9e8kkCg2OF4Sf
4yYcJ+GpEcFNgxTjDCdBwhwVx9rZ+Ggg5mesIk448LCu630BGsjrXKyWIfx7
UXb9RmEatLduF1D+77yDKamBojQYirqovpvwhPjKLiZxGtDUzAUNCLdZN19Y
k6LBUv17tROEjRaLNlyVocE/yTNu5wlX3Et+8kuOWP+eZ64XCWeWuXd9VaQB
5zRHxYP/4sP6qLuXCg08SvU4Ugk/ogPLkioN3ldIbcsjfEOMrDWnSQM3U/bc
dsLfSn93O2rRYPOYgOAEYRerMY9JbRqo4Jz5T8KH7xY+o+nT4MbUwiYxIt7l
Fw6z9ZoT9/9ApMuf8Ftrs6oQCxoYjlvGRRPWf6d3UduKBj5VeUavCZ+IUBxM
P0aDW4c4HOYJ31fa9NLnDA1adXyiXIjnkzv+n63MeRoorye9DCP8hPEHZciJ
BtEMcjl5hN92jPnruxP3s8Ti/ovwlE/FfoofDUQTe5ajiPzgPVzwt+4qDY51
1J2qJLxmmFXgd4MGNUJJRTOEufliBEfv0KDRetdWHSIf6Zd6zOVF0MBox8D6
P4SfrEmEmD8n1lcsuRRP5D/58wLajJk0sHHZQO4gXPKJ80tRFg3YmodF2TYS
9T519bhwHg2+Olf8DSC8ptsjO19Kg5IK73YfIt+euHv/Y3ArET97U7tDiPw9
tRhwXauDBkqp1dhO2OvoZeXPXTTYaagVL8BGwmCZM/FHB2hwtTuakkO4uFHL
WXqSBoE3cmSH/qsHnJ9Zav/QQGS1hcGZk4Qd70Lu7Vujwe8lGmsp4UcXpDa0
/iPixUhkchOJyFeNJ5gH1o2CHO0i66v/HFS3tsQxCi1brIQYKCQkrSR8Edo6
Cpte3LzQRNSvtiw1rzSpUfjEJRkkw0PCyGNtS9Iyo2CvHO1xlzBn8Xq68o5RiPc7VGbAS8S7l+e0scYo8J86J9dE1EP2acOhi6aj4Hdf6sE/on42R9NO/DYf
hZvW9zqchYj8YXC1/4bFKLQ9SJrtIsz2NL/n/uFRuDV45nGuMAlZTwm1p54e
hcOkDf1ORL1m6fxc13RxFDSO+u7fSNT7dVWJeVuTRkHlJXPNhCwJB7QMTKgp
oyC26vzZh+gn8soWaAlpoyDKNiG0geg/ThTvpVAyRyHUZ9JtuzwJX+dSfRgK
RuGBwTLzbQWiviRt3T3cMApD7ptlThP9y1u/l7UxX0chN6lqfIDojyJ+Wp06
9GMUXk290AnVJvLbpdXvm3+Pws7Fr0+14L/1m28L+jsKJyILfZ/qkPCc09L9
i5vGQNaLw9Nfn9jvozsPWmwZA0Vd9Y8n95HQVbW8f5PpGKh1HuCaOkzkn7bu
nLfmY3DnwuPmwiMk5HH7HOBoMQZhvKdDbh8lYVW6lHTd4THYK/CGe+tx4vz5
Ir1v2o0B087oC542JCz/fZbt56UxUH5mekHrDLGfVRx7J56MgWvWp4FELyIf
npQlPX5GfB5ArwjxJvL7T/1x3YwxqFHPyfW/SMLTSn73U1+OwaeTzhWnLpGw
MG28+0TxGPCuJMYp+ZHwZOBb9/amMZAOlU3cdIuoX/scnlT+GAP5JO2ToQ+J
/kZeXBt+j8HZG/FHQh6RsJKDNli1MgYNPIXGIY+JeOo8xfeeYRxWnTzZw6OJ
/HLqeEQN6zgEJO+XTYkn+i9vi2sfRMdBddBzZTGNuD5B+1iH0Ticr9vjZk7M
B9/nBUlTMePQH5mjQuknYVTydENS/Dhwr/vlcYGYP3YeLAqwShoHweWAuQZi
PvEqMF/CtHE4ev5S/O0Rol/3vfkpMWccfpm5Lm6YIOHk+qkwy+pxYr6HL6ZL
JOze8nrTO/o4hI6+9mraQMxDVsbMUQYTMFSyylmjScZg07dBwsYTQHtanmO9
h4w2+rIs6fsmoFRq3a1pLWK+28m2ufjABBTqhXeQdMh4gNLK23dsArJtxeW8
jcg403ZETthtAnrfnFfxtCKj4IHzls+jJ4D5xCVGW3cyBpgEpRZNTUCnjEGi
1Asydtg62SjNToCXrnEcQzYZJS+ZCuTMT0De2bHZIWK+bEwjP372eQKmr2N4
fB4ZuVeS7z76MwGrQw4LEiVkfJFb7ObJMQmK7lNZl+vJ2EaZ2SOvPgmPYkkX
t02RUXx4f9+zoElYGdTfNyhLwZDqPXmHgydhwvBzly4xH3/JlL+7MXQSHhxU
U8wm5udqbw5V18hJuORrbH1zJwXPsnQ8UEmchGY/1tt6eyn4Yudx4/f5kxDw
3PvaFktifg5xLB4ZnISvGndLDfwpuFsjMEpAZQpG6tlT7nUQ87eDgHqy6hQ8
GnA+s7ubghcjXvWKaUzBcubNjUu9FMyZ7BOU0ZqC9fv+fD41TEHRqB1p6kZT
sG5M3+3QDAWZlntyrU5Mwb1bbMqxfynYlC3bEH57CtR4Fezj5bnQRrT1N2Pn
FHz9bmrXHsGFHALeb8q7p4C7bI3R7BEXvufi8brUNwWG95YMPkZzofSmkzMz
w1MwaqRc0pTEhUtfp3paZ6ZALIcn5HM2F97++Lcw+e8UvJOP7y9v4MIXPgru
mnLTYDLSpebMzI3fG8PHPG9NA4d4b1TWHW4cYut2Wr0zDVpB2f2x97ix2kx4
6d7daRD1lv4RHMqNkZ+yV1JCp+GseEXVxcfcKNfRwN0SPQ1DEXf6XZ9xo20/
o7Fs9jQMH3l6aKaGG+unL70c7ZiG5S+FxyU38mDcOlufQ5IzoKt0s1c/lofo
f/nU2qVnQD6yyWIykQfP1rR9Pyg7A2uL63eGPOFBpdv6V8wVZqA9tkZ7JIsH
P/yT8TfZNQPdz7Ka8ip48OefrwHaZjPwtPNLyMoYDx5Zvh8q5zMDx+9ZMZir
8CLXyJunTLUzwG3VKPp0iBcj2K9fL6mfgUxScErBGC+y7jE4duHjDLDXHdL4
MMOLTHEdm3s+EQ60aWT6zotfLJd8s/pngDVdi7t4Mx+21ckctFiaAWvbbH1B
HT4My01cSRacBZDqtGbO4sP1129Za3rNQr9f0JGmMH4sWl74XXVxFlqrk7d1
PubHs+ePpRpdnoXfrJHjtAR+rD2oOGd1dRa6l7+oc2TxY6DEcIB70CxI0B+z
vq7jx3Ufdr18Fj8La086AkQYBJCJ6zMjR/Us1LJmNtb6CWDBvZOZUbWz4FUp
1R17SwAdVuvNhBpm4R5bWonXfQGsnkyOlWmehfRdrlK74wXw9lvTHfo9s7Dc
YxUuWiqAjLaZx3znZmH+muK6vX8EkCHLNm+MMgfVtzbs5rwtiPULve6pPHPw
+Lw4/X6oIIYpWSrY8M/BRAwHA0e0IPK91c/tFpmDfyO/fFVeCKJCg8zLDzJz
sL08RGrxkyDaTH7JeKU9B5+jgxW1RIWwVPxeir/LHKyJHnsWUyuEN84x2Gq4
zcHz8QK1Y61CaJDlJ/LNYw4i57h/Sg4IYZvShSS3S3Mg4HDVhLYkhDNgmWB3
cw5Oy3T8pAoJI6+tUIxRzBw0Jtvdo1wWRu+EvHBK9RwwvzIsr9kpgiWrCfeq
a+cgfVZ5cxeI4Krt3VveDXPgafbWftlUBO9tPXWpo3kOfj0Mc7A6K4JJOayn
HvXOwc9u/dXiaBGsqzwnT6HPgUnL5wmOFRHkHxdqIvPPA4eQTVpymyieMtxY
915wHr7p5h/wHRHFp5lfKr1E5kHKf1OPw4Ioyl/4WNAuMQ93rskNOrJsQd3v
lxMe7piHqPGADFXdLeiyscOZrD8PpBlxveU3W/Dd9mAWsvs8mMczzdofEUP1
Lr6WR57zcPasuuzIKTHMv5b5kPviPFiP0hYdzonh05Z6QX7febB/Q9O76yOG
wR7rd2y5PQ+cCSdT1B6L4aHC25Y7YuaBvCGc26BDDKd3X0/YVzkPfBtV8iKO
iqPdOPvpJpyHy+6/bDXtxHEgNGmrec08LHdPxi06iWPzUHmOxYd50P7N9cPX
XxwLbvypPNoxD7NzGa6cKeJ4rfrK+LmpefCtIoVZT4sjeb+3/G2OBZBLLd/Z
dVsCn7znZNtNXgAKy1avznAJVNLMnV3mWoCi0K1GY3ESeEBmJsNeYAF6zGZ3
KeZJYMgGW3FdyQVwjzszfn9IAtfV7ONl2L0Awo9I0Xa7t+KPPeIMN84tgH7d
NrFEZkkMKqwcUXNaALHsHXmdJEnk3m7zju6yACLDCzliopK4UzDW/5TnAkQs
H8r7tUsSPX+xf9e6ugBbPnuyZnhI4mzRr9mVyAU4c+kSTXxUEod2tHX6VSwA
ueCvh2iPFKbOk68zVy0A/eEdA41JKXTIspIOf78AzdRYTqdvUjgr2ev7pH4B
Am44uVK4pPGH0IhIQ9sC+JtORERaSiOZdcGRe3IBhjlMkxw7pdFoauPqq810
oMvGOlkvbMNNz/el7yLRQfXYO6OZv9uw2T70QDWFDkcN3cuSyDJoNcyR1s1H
h2m6Y4mThgzadfEYrYrTwVQ9KCkmUAavVm+N3KdOBxtp17YEKVnMTwHJCVs6
1G8V6+UKksOv/l832tvTwaz9mytTkhyqH82cHz5DhwqOb4IihXJYzslZ2OtE
h34Py5q+UTmsvzmi2+RNh8sPfoRd0d2Ogw7XTxfcpUNtgbd28yZ5FAVlfcX7
dDht81O+Yqs82glNSueE0iHQdZF3dK88TnWaLaZH0oHf8cz5Zm95/GwgfD0+
gQ7nWbcb76HK44Zt5Qk3X9HBqdZ9iqdmB+5j9rixlk+H2Rs2JzNpOzCMKuHg
X0iHvCztPX5/dyA5LkTW5y0dZJTF7o3uVkDhTSfeOlbTiXiekxsqVkCV+V/d
B3rooDfjYGNYoYin8tTJIn/psHrj1A9+JmUsPvGLo41hEVwv5H8I41NGjg1l
7HeYF2EJWZT27FBGtNnLMsuyCGPrWe6YHldGCVaDf0Vci9C58UjD4SJlnDpr
STeTXQRH49PbGK6ooDaJa/7f9kVouxG5NSFSBWPLu2YKFBbh+QnJyzezVdCE
cmyCX3UR/pRduaFBVcHsKtvBCe1F6Pq6MfSy2U50F7zw8Zr1IhT8s158qKGK
9XU7GhSPLoJSXd7G9COquMVrqXbs+CL0fkhSEr2sim0N3mhyehGi4zJT9xer
osolvxJul0W4wPvFtX6PGv5svZueE7AI0pd+tx04pY4WV02enb69CGUvcHfr
HXV8Ic2aRgkinJPuMpStjieuhyf5hizCxzAXy6w/6lghF/XYIHoR8LbNe8c0
DbwZlHZrKHsRFE2uHErj0MTNVzbut89dhELvwzKGWpqY4ORGmcpbBLbvs95x
Lpp4XT32S87rxf//H+N/Im9diA==
 "]]},
 Annotation[#, "Charting`Private`Tag$11404#1"]& ]}, {}, {}},
 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
 Axes->{True, True},
 AxesLabel->{None, None},
 AxesOrigin->{0, -25.546968910546106`},
 DisplayFunction->Identity,
 Frame->{{False, False}, {False, False}},
 FrameLabel->{{None, None}, {None, None}},
 FrameTicks->{{Automatic, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}},
 GridLines->{None, None},
 GridLinesStyle->Directive[
 GrayLevel[0.5, 0.4]],
 ImagePadding->All,
 Method->{
 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
 AbsolutePointSize[6], "ScalingFunctions" -> None, 
 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& ), "CopiedValueFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& )}},
 PlotRange->{{0, 1}, {-25.546968910546106`, -4.000000094777321}},
 PlotRangeClipping->True,
 PlotRangePadding->{{
 Scaled[0.02], 
 Scaled[0.02]}, {
 Scaled[0.05], 
 Scaled[0.05]}},
 Ticks->{Automatic, Automatic}]}], "}"}]], "Output",
 CellChangeTimes->{
 3.733963477594833*^9, {3.7340239415727377`*^9, 3.7340239731709194`*^9}},
 CellLabel->
 "Out[103]=",ExpressionUUID->"cc10bdcf-0467-43fb-b3c3-f7b3f0927b4f"]
}, Open ]],
Cell["\<\
Se puede utilizar PlotStyle para poder personalizar tu gr\[AAcute]fico \
algunos ejemplos:\
\>", "Text",
 CellChangeTimes->{{3.7339617757177925`*^9, 3.7339618093093433`*^9}, {
 3.7340239809637966`*^9, 
 3.734023986657241*^9}},ExpressionUUID->"1e798fbe-6e00-4172-8b5b-\
339e075447d9"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"{", 
 RowBox[{
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"v", "[", "x", "]"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", 
 RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", 
 RowBox[{"PlotStyle", "\[Rule]", 
 RowBox[{"{", 
 RowBox[{"Thick", ",", "Red"}], "}"}]}]}], "]"}], ",", 
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"v", "[", "x", "]"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", 
 RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", 
 RowBox[{"PlotStyle", "\[Rule]", 
 RowBox[{"{", 
 RowBox[{"Dashed", ",", "Purple"}], "}"}]}]}], "]"}], ",", 
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"v", "[", "x", "]"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", 
 RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", 
 RowBox[{"PlotStyle", "\[Rule]", 
 RowBox[{"{", "Green", "}"}]}]}], "]"}], ",", 
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"v", "[", "x", "]"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", 
 RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", 
 RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.7339617353136325`*^9, 3.7339617458634453`*^9}, {
 3.7339618148545165`*^9, 3.7339619339861717`*^9}, {3.7340247115348077`*^9, 
 3.7340247487519016`*^9}},
 CellLabel->
 "In[141]:=",ExpressionUUID->"16b1f325-cdfe-46a9-8b99-8abdd4873a30"],
Cell[BoxData[
 RowBox[{"{", 
 RowBox[{
 GraphicsBox[{{{{}, {}, 
 TagBox[
 {RGBColor[1, 0, 0], Thickness[Large], Opacity[1.], 
 LineBox[CompressedData["
1:eJwViXc4FfofgE+EEBmJY4Sy9yyE71e3Mi6SEbddKiFUaClZGS1EhKy4dZOsbOWDcG2Hjn3iDJusIw4qv/v7433e531e2Qs+9pfYCARC6X/83w1nZEc2N+eB
Z+2NGIFARQor+tY3WfPQY79G/oeDiiKfWlXMLsyDYT1nviMvFVl/8o0boM2D
aV1rQ8kuKuomNpp//DIPnjwdNanqVEQlexRcjpiHfsd5Hq5TVPTTqji4nX8e
VL1+nrOroiK9/eZyKVJzcInbcad9GA1hEBx5LTQLYe+G/jT2ZiDNjLdp9irT
YLw3dokaMYb0Xh3N69szDb902/xIMWPI6OXq51MS00DHtLaGpDF0JMb82+Xt
0/C9kiRc934MnQqakAiYmwL2qbfPt5DGUOQ5xaSsoingOnxALJM4jugyb+OW
jaZAwlW2OqpwHMVnvolM+HMSGnceyHT8MYFctOSt7vwxCYJll3zaCZNIErJ4
Tx2YhEV/p1nb7ZMom5LxTFZ1EiSPGYte3TuJikVT4nN5JkH6G1NPwH4SkZ9G
Z9Q1T4C7Oqmfq3ASidy9XT5nPgE/8Z3WNf8plGBvNXnk0Diseck34t0zqJqf
YllsPA6JU4bB5qozaKzF672s/jjw1OzWcDGYQXp/xHr/lB8HmTfzEYn2M6hb
t3+5kGscPI7xukdHzKAdIpe3SLWOAb/v5n0v5gyK7AsWZx4bA7WPP8R1v86i
u6cqrNPPjkKyQ4J2WskcOvde9pyH8yhIHidEkRvn0JH1KF/9o6PgFXHPRrx/
Dgm9PJHcajoKtrPPPcnrcyjn68bEqtQojMsmyXGYzaNBK9NQOwoDnk8nG3qQ
5pGR4ZeKLX8x4PbCUuPM/QUkE6na3mbHgN9kEj02YgFx9sVREy0YYBm2ymcW
u4C6/S5yaRgwID1Bva4yewF5FHA4nRBlgKaf3qpk2wJKVrRYKOqhQ9EnZvBb
yUW0IdKucNGeDh9iLuhoNyyiC9wjj5ys6PBPdoDJSOciavm5MHfkIB3K9v1I
TxxcRMmMnWXKOnToW6vNUlxYREaFp8znBenAsnI1bJRYQretZ93udtHAqlYq
ksd/Ca2E8L6LsaPB3HWjWkktJjpzU4ovxIIGueG+2rrGTNTornndF9Og16CO
6WTBRAl2DobHtWgQ8utHSc05JtLfndIsIUADwkigqvpzJvKrUJl+00kFaR87
uRurTLQ0b6n62ZYKtCym3r62ZVQt4KNpaE6FMkJXAf/AMorSjtctQVTozhgS
XB5bRjK+wwc+aFFBLEyvfWxzGdms3LBOFaKCms1HPTe9H+jY2v6h9dwRuO5w
Inkp/QeqFqKcDfg0DGIWn/dWBq8gJ0eFK74fhkE8Tb/UKWYFzb64ds0zbRjq
RDjqCekriEjkCD4ZNAxPhS7nP/y0gvykNV4fODQMhj4pZ21YK0hFLWh0o/Ub
fCEtJE7dWEWJh+Xc7w1RoLOAI5zXn4VyciV6NFsp0OpIGNaOYKFqYWEzRiUF
8JiRvXcSC43TthCtkilQajGgrFLNQnqBI02if1Eg/oIyvXDbGuouTVb62DsE
njIBPPKv1xCfkuDkVNcgdL2sMmqdWEcy0dscU2sH4VDELIHr1zrSW9kEu8JB
UP522O+M0AY6VT+XWBYzCN7OBJ3zJhso51yb+cOjg7BSV9tdFb+BLJIi3sq0
D8DTQNL7HxY/USjP78vOTf1wzSU3htj8C51pkxCWqegHMVHFs0+pv5DBM0OY
fNcPOSrvqdKsX2hO0F/07uN++Ce/dzRT8Tc6QZz995VtP7Bs+91lIn8jLaVB
JTq5D+qjTIgmRzcR5XDp9FVaL/w7oSNLDyDgMi5ygn53LyQRVs0aogj4efPi
wd91vaBCyGNVJRKwuY16SnR2L+xj528a/UjARY7Zfxa59UJJqryb0ncCjnR9
nrv6vQfedNRQX7luwfrB3t4h62S4lJ/Oun+eDe98MlKVOEMG+5b89Z7rbHgp
wY77A4UMjGcHg46EsOG8XJ3svmoyfC2mzlzPYsNK/SsDaqFk8LpbjFnjbFhS
88HhPl4yXO3Z3bt8gx1v/RYtqSb1FRLPPtpyIWMrpk8QPMz4v8KoV3y1afFW
XLt0vez4Zjdk8OexGzdtxYHbHO2Dad0Qtuvi6aSFrZilKxbZ+3c3DCXDtsmD
HHj2UQYzSKMbvluYee6e48BfDQpbelAX3DZJ0vY7z4U13DsD3mh2gTK7Q7jC
PS78KOm72i3pLnioFKDDl8iF8bpytNgmCQJyy2butHPhvKrXDierSfCeNjVE
M96Go0zjKVRjEni6qPgHKHDjUe+ip4VqJHhNDO2qPsSNcTrJNESSBILagdvN
XLnx903iQXNWJ4ydtZTmyOTGTSG8rW03O4HpveGZKc2DAyPnKH2+HRBqOyDM
UObF+lMq6I5DB8Q3iOj4W/PiWUu3THHdDuhaEyhz8OHFf/FSL51eaoeRGwsD
ayW8WO9Z1xz9WjuYcXIWc5pvx9NxxYQ5rzaQT6DZCt/hw07pd+W2XmmBXIH2
xiYhAZxcws5FsmyBXunOh+5KAni49clUimoLJCue9DExFcBXWGl5uvPNQKLs
ign2EMD3jn0xcL3ZDDlXSy9GNwjgbPbtNnVhTXCy+Cz7tXBBPEV8ofnschPE
EaW+paULYg2t3UInLJrgQ09aDV+FIC4/pdW3yPtfX3jglT8riFtLHM/Lxv0L
+Vqm01LOQnjJLdU/KLMRhEQ7uF8YCuP9gQou1qGNIF04WYCdhfG9+HwjsUuN
wPWQuGjiL4w5a2s385Uagc3J4JZOkTAWFx+PGslvgLBvJa3KWjuxWZtGmml1
PRhryuilmojgcHpZEE9GPeScpnjuOC+CW1jYtTf4vx/c/nUmTAQ7yjsoeR+u
h/TtdlnT7SL4SuCtotS2L8C2V7Jh36VdOEarpvHnYB1QLB4qjeeI4s7YrGuo
sg74LjpEJg6IYn5muHhIUh2o/0j4ML9NDD8usfHmcqmDLofmg6/dxXC40ZCI
UE8tiHA6893WJeKGlGpwLK4FxCbq3ehGxFt/ZbonxtXCjgcxePAVEQfDlc+S
9rXAEDxS48otju8dWrmo2FkDxFFny6BZcVz19wC/R14NBHrwhAYoSuB1zs/l
uU9r4NZJ8YELrhL4VnPodh3rGqBKdkttH5bAjFd7rtx5DhBFxD+9RyRxR4EL
Z3b4Z3jyiK5iLyaNrX2lTygf/gyqM/rcIpekcbP++Ic89s9w84lbif5HaVxf
6etUEfQJwh/8FhlSlsEV9c+yO+5WwSqNGe/2VQbvi3BiORhWAcvAba1tUwYX
W0paD6xWgr62SQuvuizO63jHZPhVwkvnt/Maj2Rxdn/9wTXvClCjXN3fcnQP
3pPyOCFQvQKeaZh7lofuwemn7afZZ8shNkQysqJ8D06mj8Tyu5eD1PhbYVGF
vThmdp2617UMCsjOdUd2yGH+/Fq9d7JlkPcu06XLWg4/vh4ZqUEthSvGLUHV
j+Vw+IqIluHpUji02r1vkU8eBxC0H9g6l0DcOf9ydXkFvG3ikAunaAn8UcmQ
o3op4Ph2F+3q3mIgufiGOJUr4NzkIIb68WIY37wz2WqviCl6JHM+p4/QkHGf
MZOuhK9IjMo07PwIsVHxASUsJby8hbV2j1wEWbv8eKkOypivUzp31qEI4mxa
DD4JqmBTdx+BNvtCeGFIlknPU8UtR0OnQoUKwci8mH5TSg0f35dYd6C7AEr5
w1gZ0WrYhx383h8rgLQTJqpRgep4Y6rbxlWwABLkQhZSNtQxf2a7zb7X+aCY
olqdc08Dt1RUGEY8yofp7Jd3U19o4P8BhmveBA==
 "]], LineBox[CompressedData["
1:eJw12Hc8lf/7B3BEych9jmPvmYRoKIqLdrLKTEOhZEcSGkZWReXTJCSKojKy
QrlEhZCVnTPMk3PKSJr63r8/fn+dx/Nxj8f7fr9f7+tc963iFrD3KB8PD89O
Xh6e//v9U0xrZK0ugLdGiT0j4QZ4/HTOMsnMApC4/GPusLkBSttPZxCUQlgX
RFvQ4DHAs75XDSX3FsKTK5kmc6iPW9PfH1XpKoTWK9rddjv1sXNhS/363iLY
kijMTOrRQ0Mp1n4TmWJQ6Y3NFAvUw9RVkbObXYrh4vPL8r6ieuh2uFrVerAY
NvT9MwdrXZypXRvlwXgOTmf3RB7nrkTH/g5pb5USmLU73dmSuhIrZ04UBriV
gIrE6m3bLVZitNpTevhICSwccZFUK9BGSqyGafJEKRQFs4ozr6zA4PS6j7dW
lMHMox5GvsUK7C094pfmXQZCjmu1tgmuwMyx9LRcThk8uPJHhRuvhfo7JX+/
nCoHhWU6Anh7OdoIL6n4/OMFMPwoa7ymNPBWhbDN3XWVIOI+yN5Xp4FDR4mx
3UGVkF2SFyh/WwP9UYb2dLISLmjdaecx18DEUzonAoaq4K/9fZ+ydHXsUjVY
oixXDZOn4F12iDrKta3LaHOqht+GG5w32qpjnjY0G7RXw/HoKgdnAXVsoO/R
+lb3Eo5zM/sHQtSQSHKsecDzCmD/5FS+vRo6Ge93dDB5BXPtX/kF16jh2A2P
mLKyV0CUX1jvNK2K/BanGaGPa2CyaunTPydVUdnFuvn8O4S5fxWGi66qYH1h
m1TPKMKAx1tD02AVPL7Ezn0Vfy3MTJ/cPrBPBQtKnH7RzWrB2Dkkfo2mCpqK
HdEyr6wFDdGP65fXKeOB+pMxi56+huE62oYUEWXkkfv+Yf/71zAh7kLd9EUJ
HwSGypWwX4PEpYLTXXVKOKl4rthDsw6mHjvw5p5QwvCwOMabe3WQoarSl9im
iCl6KZsS/qsH6ajZMJdcBdxsXItez+vB45Wb884oBeRsY2/d3VUPFcG8k8/3
K6DZQSOrZZJv4PVgHvGbooATl/sO3kh5Aw5Xc7NEYuRxA1smIjPzLZytPRUe
eVYOWd/MF0XXvoXXfUWKdgflMJHHO96d9RZ0vK7mxZjKIUOq8qqm+jtQLq03
XuCVw4TtLplPct/Bg42JASpJstibnVpb8awBPPktOLPFMhhd8Hpb6ocGUCs5
fk8oRQZ1qj43nplqAKNtie3eETIY2WHcYbq6EXD5rR2LrGRQi3eAVV/aCO5t
4Y0hk9IYekiOv726CfYKuDVfXiuNUjJp29lNzVC/Z1QrdFoSK/9TSDCYbIZX
TS10S7okHhC51xgm3ALXl335YN0iiVn/7lsKWbaAX3y+dO9jSdQZy927sqUF
7vRF80x7SKLZ8+eH/D60wq2WF+6NLAlk6azLLP3aCsE8u5+t7pTA2Jwy5l+x
D6C+7KVebZ0ENqW88Lhi+wECO0SlLR9KoENkjXdB+wdoyF5HF/WWwNKco1U/
vNqAqX7Pkv2ThnHumoPy4W0g8CS29hSHhs7K43/MLrWB3Mzl7Sp0Gv5KOW56
Ma8N1pieXdlVT0OzJJ9amck2+LDT3C4zmYZNJwPfGfu2g5f3QmGSPg2HzM51
nvXvAH59356OKHGcyJIquXyuAzyjeaRcQ8Vxhr/4RmpiB9gUrfy64C+OSxrH
HCryOmBnpnd16AFx1N9j2zs71gF7/w6ust0gjtFH1D55u3bCSO0rD59ZKibW
vXwZ5t8J8ncZSxUnqXhLwzkj4Vwn5N862c5kUTGfneiac7cTPJYGbUzroGJX
4Hcms6cTVPjEqnuLqagR3TjmbNsF52uk+u1CqKg/4v7O07ULKl0+EEsDqGi8
fSE3xL8LRpL2HG/xpKK10BqvG4ldkGzftPjCPiqG/Jc2+aGhC5guRVMZJlRs
yAqY2m7+EVgSV4SiBanoWyfxa+3qbuCXFJK0eETBn//4Tids7obDN6ZrjLIo
GLdpanZgbzeEFpc/Xp9GwfulTdzok93wcVdt38FrFOzOjWC2lXSDQeTzJXvC
KGieyG7wXd8DVfeehL2yomBrQ/c23NED564WasbvpOABgfrX4s49gF+k8w5s
oWDI+YzqytAeuOV0Y1jXiIJPTtgVClb2QMms1J9jGhSUdHh5+8GmXviq8dNb
jYeC2cl5tB+WvVDK7ble+JtA/dbbybsP9oIL54nfrnkCd+8IujxzrhduL8zP
pH8hMNJoeYRZTS9MsUzi2z4ROKmQfGzQvA9uVoqlW78iMNTl/PCqvX1QT6On
X60kcPFtn8MX3PpALN/NbaCMQGViu4v2hT64fPkX7/UCAh35fluF1vfBTGLe
uqj7BOKYxzrajn74ZrOx0zqewLiGlUF7HfshvudevHcMgZZ5M8+uHe2HpF7V
n1eiCOzzi9QSjekHA76Q6ekzBM58uyu3uLYfpo5F2CgFEqi+qJP3h/EAbL17
k0UcJPDzSIqpocUAvOld9ajEhcDCt4fPBO8bgBMHWAWHnQk0ufTl29TpAWB+
vufdbkeOjyI0wS4ZgCeryrtpuwlMUDJvHdAbBClnHS3FjQRa8woKy5oOgoM1
TWGLEYG04dYdzlaDEJ0k8C1gPYH3cw7UdvkMQmWX5xrmGgIrdUNLWh4NQmyo
op+KLjmfYjAtXDEIkW0pYzErCdw+LaBn8W4Q5lZby02tILCz5Hru29FB8DMs
ffBJk0DOxoLUGtVPEChTgzQVAosVQnr+GnwCmf+y00qVyPn/t4m2yfwTPHpd
Qj2kSKBAXVNShesnKFaLfPVGjkBFi7HIorRPgD/Di75KEjiy8unLr/mf4NcL
9q9mCQLzRIN/6VaR15vw1RXRCDRs5w3O6/sEz38J1iVTCbRxVvDMlhyCpQF/
DPKXEUidvsZ3U2MI3AzFbzeIEth1kT8jbu0QpNR/k+WKEOhSNdnltXcIdEEu
ZLcwgfL2rif2HxkC8XDKrlghAumcDmGrE0Pg+mft6rdLCfRQrNysf2UIlC6t
h4OCBGqW6w6ppA+BZpGr6/MlBLJt7oeJPxkCPdMdVwjS/lEJhd8bh+Di01IK
Q4DMr+yf3RO9Q/Dhq5z7XtKzxQHjfeND4L6F5+V7fnJ+RhwVXwrQIXq+NaZz
EYHG55pePKPRIb9Yd+oI6b8Spg6ZanTIUZs9NM9H5vFZ0VTyajoQtUvarpOO
3qGReMGcDv2nj21eT3or487yU7Z0yHwgX8rkJXBJmEjdMVc6eIpaLL9OuokS
ecjZnw5jA8p3dpNOzJv9uescHczujC4WJm29xfPmxkQ6rFX/GtTOQyBlsF9f
9y4dWspyBjJIdwVbNyvm0SGuN97sJOlboq89iRd0YLkq37cm7ZyzbhFfAx0u
+RN/9UnLweOM2W46tPkL2cuSHuqRNx4dpUM5pfOhEOnME9c+dn+jQ6CV+Qwv
6SL+6A0jvAywOWBqxEOa2r5x8cGlDNCrfhMuQDo4fa7zI8EAF73RMgrpj14F
962lGTBeXs1VJ21o6BXwTokBkVnnlYD0HT41E7PlDCg9F2B5mPTP1kGhF3oM
qFQeC04g7XL3Vq+BIQPSnuxOKSdd5Wmbk2fCgLkrcpVc0vJrhYLVtjGAFjvc
o03Oz3meevM0Swak3tsy60+a3nxOTMKeAbe2fxGpJG2Wsv5T0n4GiJs+0hAh
1yPr6HTeYncGqOfvND1K2mPBY/uPQAZ8i5wL0iHX902TIi0wjAFcS5HkVNKa
t3uZ7EgG2LkpPhcj88FeZXlu4CoDvlymCYqR+bH4I7Db/jYDGojbJimknzTU
SLdkMCC5fc9Z7cVk/o6sKXn1lAGFRWFybmQe23S5UetLGZDlJhshSObX4FeO
TWE1AzrjXWZKSX/7T3by/nsGqAx9WaZJ5j+snlc1lk0+D4vXaT+5f+QXRkwy
p8nxV90ssCL316v1DfuqfjJg21FBn51iBPLnX0meXsqEF6d6JJ0oBF5LluM9
pM2EH/NSGX3k/l3zfkE+bDUTQpRGjotJEdjNz9pww5gJk3vGiqykyXyEPjrRZMEEre8mrcOyBOYcWscw9GFCcpLqgxBlAnfdkf6z5yQT2IsaOqfI+sJp/y3l
d4YJu073Z59UI59n22ub7MtMGLQK33CdrEfVK21qxJ4woS3zMBqT9azzx/GM
CQ4TfFTnCf1NBIastqxcNMeEGrZovaEpgdK+q7oV/zIh9tnLwO1mBB6iz4k6
iLKg+1daT+RWsj6/iT5Xq8sCvTWbr7pZEchzPe1Aqj8LgiI2aDEOE5jdHBFa
GsKCGQd5dpg7WS8Xu99oO8+CSzFmigrHCLwctqJ58VUWpJkfEIz0IVDycNnG
kwUs+EmFvooQAnV122Qtp1gwGE5vX7hCoK9R5q3BefL4Itayv8nk+m47QfX7
xwLPjrdi/DcJ1D5ECF1ZNgzrVb2idO4SqHXV9ucHnWHY2mGpNZFLoOp0W4+d
1zD4lSYT4nUEHvmbaTdyYhhEE8RFst6S+21p4Ifg0GGYf7fgbdxEoJIq5d3N
+GGYVbofEd9OrrfdnrKeh8PwtO/flhsMcryl7Tf2s4bh6NNdJdHk/7ND7X2C
wx6G4qFXvk/5KXijJTDx7PQwxCSLW7IEKSg+RolJ5xkB6Wtlpd4UChJSe0/S
FUfgjFZb5bwqBYXCOva47x8BHeoBazGyX1jY1LnMp4s831U16kEqBSPKmnvT
B0fgfQHGPs6kII/+26y2kRHo8nAZrs6hIK/aC0PDuREQfJIoJvacgvxL7x3i
lRwFK9i81KOZgsIfvZ/ddhqFpUpWtyZ4yf7M2iO0yXUU4uuX9dPJfkik4eDm
v56jEMQftWFcjIrLqmy73UJH4XO4R52mIhWp9w0XdFNGoSrGK9V3IxWl/fis
6/tHYe1WV1GDMCqmjP2WmmeNwhtxh1yjKCrKHp5jrpgcBc35gXj7i1SUs5s4
dfX3KEhXZlXUplBR0ag13UV+DM44n9p4vors9wRSuVMHxyAq+E/pAz5xXJ1u
kKTAHAO9t3tmvmaKo0FQ1GJt9hhkGPaYH8sn+88d7RGG02Mg0hcm+K1UHPWm
TwTZ8I7D05RgluN7cdTeVugUpTIOvgGOlmbz4qjK1VMdPTIOxfyH+frsaKjy
+vzdaa9xSJv3LBt2paHy7VbaQuA4ZMUFTCz1paGiuf8SqehxyAnXnXwcQ0PZ
m085O7PG4fYb23yzchpSTHTKn7DG4Uu4N5+YqgQS1LP6Lz6Pw7LyO/bfV0ng
svH3j9/MjIOU8YqtCyYSKJLskzbENwE+hkZBgS4SKDiaF0WoTcCW2cmMrzck
kCdphWWw+wQcOslj+JCQxKlBTebGkQmIgCE1TU0pTIxxr3w5OQHHF4JFitdL
4XKdzOswOwE57n+veO6SwkNnZLZv4WND5r6b3nv8pLBZRiTfQpkNCa91DFeV
S2Gu43TwvgNscAw1/3DNTho3L+haD7izwSDvEPzwlMahh97LD/qwIWV1Udx/
Z6WRNjfcdzicDeLanF1uOdIYfb3b9PgdNmSI3JaP/iONh9qqBE93sWE44hrH
67kM/jr9g/ljgA2tAang+F4GbyqtqwofZoOPx4byqGEZbPZ/5nd+hrzf/rzC
FJosGove74glPoPj8UjaRJgsSljEpd2w/AyGvd+1mHvksHD69SlJ+88gZU5d
a+gvh5Yp/6zv7P8M9y/8Uxq4JIfRE6G8ad6f4Z9i9nWZN3I4FedzLDuBvL5u
wDjJRB6b62z1i+vJ48T45UuggI97y5y6mz+D2/uLtKMeChjHlY/41fUZLnK6
9F5cJN9vpdgtm0c/w0pzYbmejwpY4h3l0ykwCR41Rko6wYqYRinO+bZ9EiyS
cyei3ythmKZ0q7TNJNhlv/+p8VMJHTeen9vkNAl/Xkorl4srI3HUYmus5yS8
yRAVXNisjDEVLKZEwiScqnLqqHiojL6u4grrGydB9sHyp9nnVHBXcNjW/e2T
IOmZkRafqoKaF+k+EX2TMBbGx6WXqyCjOL/yHXsSHgc0X/gxq4L2i7c6Owtx
wEFEdpVskCoayOVFnKVygNe/YvP0f6q4TJ/IzZTlgJCdTbV9iSo27Bucm9Dm
wOJrtu2tP1Rx09Pg62G7OVBjk/dmPkENZV73V6bbceBVbXhyyjM1/N5txqrd
z4GgEPOJsS41LOQRNRDy5UBwh/zpW2rqqG7/sDU1kQNVmlK7OhrVUfj3x6XV
LRxI49YJ55lqYgxLK9nhIwf2BsaXq/hr4kLjGemvgxygtl6Pi87QxKk7KstV
ORyonOqOlOVbjt2GflsThLgg3JSdF/BxOdoq4nsVKhfI15bUXyJa2Cggblcl
w4U2jUcCT7ZpYXVXxZEvWlwoL55Zk1uphVlB/BH2O7ggvcSqRqpkBcq7OC3+
Ys0FJ+MCHu7cCrxpnpcU78gFsUaPZyZG2phA2KZVHuUCfUfR6th6bfR/dveF
cgwXArrTPhp/XYkTN7+YVV7mguh0JuuUqQ4eOWfeYHedCyfEYnwfXtVBe8vx
7rgsLhjUGFjpbtBFo8+rv3GQC44rX7kuf6CHxe2xZ+IauBDVFkvfIbAKdV70
8im3ceGCRPBZMa9VqJhwnmJH58Kcdnd/tLw+3glov8MZ48J34/SbFXv1keKk
rhz3hQu2gg0fz1/SR37NJr0Xf7kw7NM1uuifPp4XVSjbK/AF7hwVpk9sNMD5
bwEmHJEvMBfc1ZcXboAvVWanZ0j///fG/wEdTP0d
 "]], LineBox[CompressedData["
1:eJwVlXc41nsDxh9UyMzISLKz0yAZ3V+eSmmdpGgPIqKpc2RlUyidI2Q2pZJX
i47MOPImo+GUiEcKGfF79sDz9v5xX5/r/u/zx31dt/7hEx5HJGk0Wsmv/J+a
FR1+x6YmMXI7Oyz/qjWRfGtjHzaXQq4WpWn9xZLomuUI4xUpzIovFcgctSSO
MVLVl1Uo1AadEu3iWpCQpf+63NGmwD5sub5Jx4IMXgnf2GFOgd+Wd0ElzYxI
jnxT6LamoKSbVPJxiRlZ5Lql4/syCvkbXFardZoSb6beDpEDhfFLZwL/NDEl
LR5N+002UrCVX5nsNGBC7NRM3o5uofBo1+QezzwTcr0zgf7Ig8Iu34Vpkl4m
5HfvtaZOu391vsz3sQ5jYrC/kdoWQMHR7Wni7U4jkrbIyFcjmELwWMV39Rwj
wmfE/dtzkoL+kgyq7oARafWhv/APpWCQ5+tZ8NOQhAa8jI9MouC9eGdMrJYh
GTA34LmmUEjcE3Lt9aAB2TIWEyBzmUL2+tefZJ8ZEMMTLlv+yqRgZai7zsPT
gLSF1Gncu0Oh2nQx2ytfnxhH19z/0EDhXp8w08NTj6S76C7MeUUhfdzr23pr
PSKUjLp8oIXC5WaFRIaMHulIcA4ZeUdhv1wnms8vIhEpVc60r7/8vjVxHgTo
kneZlR0WNCaoLx5slRM6xNlbm05JMdE52Hies1yHFGuFPSuXZkJmSaNeuWAB
icxbleOixESKTnxaTdICYnrzuY+XLhP0/tyh4Ifa5PzDcm6sExMJGadk/16g
RS4aW6RfI0zsry8JTB/WJJn5hWZla5jYVHSyzKBck5SmJe/9sokJOVnatqPb
NUlP8O6XK/cxkeTz5bpypgaxt55JG4tkwp4k1I3Yzydrik4vloplIrJPpNOh
NJ9s1R2q00pkYlqj7pXTkDrxU+xgrbvEROpcry83stTJ1Z83dt0oYCIzP3+H
14waYZauNd5Zy8QNx3m6Mf2qZMaksiaogQm+RtJ4c60qkS209o57xcTEI/fW
swWqRO+yRkpZOxM2o+s6eXtVyZYTPybnMpgo9Vv67nivCnmwJK2qlsZCrVOd
9wdqHvEt+7DdzJUFvYt9xUHblEnNFeQL17LgL9uubeWoTDTP3B9s2cDCMrPu
cwbGyqTFNvrc8W0shE3b0D1YSmTZC4vCJwdZ6O4pCTN2VyISTbEjzudZkC8o
DE2VVSS7744vV4pj4VhiXJPcgAJ5muwdyUhk4SrrxTNGlQI5utFaOe4SC8Ji
lmHSKQXS0dFl25zPQsAPPWZxrzwp6LaJ8ahi4YiiAs/nlRzhV+W+NqxjoSom
/XzjHTniUTBHjdPAQiWvnX4sXo7MPtRTlNXCgsBQ3iLZVY4EDSa96fnMgnv/
/N7h+rnEkerV8Bew8DSqfVvuG1nyaU5aabgdG2z/Y79JKMgQSv1W+yoHNhIl
3s5xY0mTucZ/T/Kc2bA4EP3Piy5p4kT/vixkLRtZv18LsLkrTQrPO1cEebKx
kT5fftUaaeLHH6/dd5qNfKkP1OHEOYT9Y8tblLIh2He3eLXpbKIg8GVOP2Kj
+A9BW7rqbGIiE65a9YyNCyUZy2aLZxFvk7s77KvZSL5oG7j931nkxWFxl80b
NuqWyfZFJM4isd3/+ao/wkbJc13d+jEpMq9VmS1lwsG2tiOxJu2S5PWfjk6q
5hycHW1OaqySJPHefvEG1hxkqptWR9+XJPyBF2oudhyoLEnL8UiUJL1CP9uo
dRzsVJuO9YQkKTGt/p3vx8GckqXvM8slyLr4AMHYXQ6a7wWJA5/TCM09w2Xq
AQd/nG66vv0ejVQq1V6QK+Mg3e0lzyOHRqxy1bTNn3Pgbp0leTWCRtQe1zr4
N3Pwj/3DzfquNNLfpx7RP8zB2wgGx/emGBGOL2c6zbi4ejJ1j87UNOIDB7iF
VlysmIhKzfs2jdRrsyYClnKRKKvn5Ng6jTzeur5pey6Uecq27wum8eJJS63x
ei5Em/TD/enTEFp0Rp/146JC8DWEeWUKoTrDkuq3uAhpn3BYQRcheqOsqLeI
i/NtuVJ6S0RIDjNnFd/nomp3kaHRAhGyPwUNOD3m4rnHhfoQlhAVGVSDbz0X
JlGmE8vuCMGVF8U/7ePizuEIVZqCEGenFaQ9dXhwLN6k/3GMD90BuskJPR6e
SLCvKn/mo6n53NqLRjwcyXhtc+gVH5oZ3+PqLHlIqai2c7vJR6V5Nc3KmYfH
1rKmBrv4oHkHCWfv58FJYnKIes3DxcevxysKeeg9Q5ynqrlYnk1TeH+Lh0s/
Kp3fPeSiJ9LO8uddHlhpDszKfC6sNtwMNCrjQdCSNdUQyUVH37mh9Doedq91
cX+0mgt1BbP+gH4eqIxPK/oaOLjun/RhgSEf2yPvfHj1mQ2Z8KMthov52Hcz
rG3m1+5OXtrw0sKCj5fXzqSsqWUDz+TKHJfz4T0WzBHdYqNXMj1lD52PP7uC
9TWPs6FTkO2a68MH549vRqxZbGR/uFemfZuPvw69DSlyYiHd5U2qlrEAMqvP
iOQ7KKyrubW8x1SAbby2s2pNFKYcwj8XWAqQ//qvIaMqCkdXmJsarRBAOpQf
d7CYAlmc3GBNF4DmUejnEkNhUn6NkH5IgEehia7XV1DY+umF//F8AewSpXZf
uDEJxRMPXBvUhWjV8Sj4YTiBIzezlD9qCZFM7DZGqEygqjOud2ShEJutmpN0
JSYQ4LQ3TMVEiIJ4ncNXen+iUVbh8SE7ITLnR8VY5/xE2O3j+jQvIea9KRfb
qv3EYNdSmnO2EKtW5l+fUhlHzZrn1eXaIoxa1C/tXDkKn/4cxwRdEW5qOSg+
MR+FTFTk39sNRIj44snLWTgKjwrXZ5NmInw6ktiYLDWKQbPWEvNVIuygnuh3
t49AUelrboGXCC2e11q3BY5gf5dcWGKGCPTBbj4p+oHp4AN2OxWnULTxnqm+
/TAO24+nzFOZQmwwXS7YahhNkuH9b9Sn0KVS6FtnMIxLWZmp9IVTOHW2eH+k
wjB061u/2lhO4dXpfXe3DgxhtZrTZTn3KYwbu/psTR/C+UrN4bqEKRSyaman
TgxCQvrdNYvpKZQlzMzPrv8Ou/WnX7rTZhBnEeNZGD0AYU/JsDpzBvF3Dlrt
Ke/HmqDm9M3cGRxkuixkl/YjTTRgnyCcAbdTg3Hlbj/0tBdcYEuKMfJ4U2t3
dj/cvC6YvVcVY1/Kjdbi8H5kvD0SmG4rhlro2qeGrv2wbtIdm3tOjJp/auKj
3zEQusMhwzVSDJ0oh/8+aGGg/tsOp7AYMY5yVA50NzLgKZWW+uOCGL+5vT/h
VsFAOBFZNueI0bZoU7VHHgPNlR+DE6rEWKP4x/tl/gyouLPUq+vE6P8ZfebG
QQb2dinWsBvFePNbsbnabgYmeGsVfVvFEBzd2DF7MwPzbZ+Wuvb+8p3Jy9Ja
zsDBxvadYV/F0Lu99HKxJQP3to/OPBoUQ71jdayjCQNOpw226k+IUf5p5eZg
Lcavn1nN82aJkRXnryuvykBH+q7CdJ4Y+m5ZX0rlGdDWO+vWLBLDdfnppB1z
GPD5T/qEWCyGrKBIk0Zj4H9YClKI
 "]]},
 Annotation[#, 
 "Charting`Private`Tag$14033#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, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}},
 GridLines->{None, None},
 GridLinesStyle->Directive[
 GrayLevel[0.5, 0.4]],
 ImagePadding->All,
 Method->{
 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
 AbsolutePointSize[6], "ScalingFunctions" -> None, 
 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& ), "CopiedValueFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& )}},
 PlotRange->{{-1, 2}, {-17.48005435155371, 15.29221709359486}},
 PlotRangeClipping->True,
 PlotRangePadding->{{
 Scaled[0.02], 
 Scaled[0.02]}, {
 Scaled[0.05], 
 Scaled[0.05]}},
 Ticks->{Automatic, Automatic}], ",", 
 GraphicsBox[{{{{}, {}, 
 TagBox[
 {RGBColor[0.5, 0, 0.5], AbsoluteThickness[1.6], Opacity[1.], 
 Dashing[{Small, Small}], LineBox[CompressedData["1:eJwViXc4FfofgE+EEBmJY4Sy9yyE71e3Mi6SEbddKiFUaClZGS1EhKy4dZOs
bOWDcG2Hjn3iDJusIw4qv/v7433e531e2Qs+9pfYCARC6X/83w1nZEc2N+eB
Z+2NGIFARQor+tY3WfPQY79G/oeDiiKfWlXMLsyDYT1nviMvFVl/8o0boM2D
aV1rQ8kuKuomNpp//DIPnjwdNanqVEQlexRcjpiHfsd5Hq5TVPTTqji4nX8e
VL1+nrOroiK9/eZyKVJzcInbcad9GA1hEBx5LTQLYe+G/jT2ZiDNjLdp9irT
YLw3dokaMYb0Xh3N69szDb902/xIMWPI6OXq51MS00DHtLaGpDF0JMb82+Xt
0/C9kiRc934MnQqakAiYmwL2qbfPt5DGUOQ5xaSsoingOnxALJM4jugyb+OW
jaZAwlW2OqpwHMVnvolM+HMSGnceyHT8MYFctOSt7vwxCYJll3zaCZNIErJ4
Tx2YhEV/p1nb7ZMom5LxTFZ1EiSPGYte3TuJikVT4nN5JkH6G1NPwH4SkZ9G
Z9Q1T4C7Oqmfq3ASidy9XT5nPgE/8Z3WNf8plGBvNXnk0Diseck34t0zqJqf
YllsPA6JU4bB5qozaKzF672s/jjw1OzWcDGYQXp/xHr/lB8HmTfzEYn2M6hb
t3+5kGscPI7xukdHzKAdIpe3SLWOAb/v5n0v5gyK7AsWZx4bA7WPP8R1v86i
u6cqrNPPjkKyQ4J2WskcOvde9pyH8yhIHidEkRvn0JH1KF/9o6PgFXHPRrx/
Dgm9PJHcajoKtrPPPcnrcyjn68bEqtQojMsmyXGYzaNBK9NQOwoDnk8nG3qQ
5pGR4ZeKLX8x4PbCUuPM/QUkE6na3mbHgN9kEj02YgFx9sVREy0YYBm2ymcW
u4C6/S5yaRgwID1Bva4yewF5FHA4nRBlgKaf3qpk2wJKVrRYKOqhQ9EnZvBb
yUW0IdKucNGeDh9iLuhoNyyiC9wjj5ys6PBPdoDJSOciavm5MHfkIB3K9v1I
TxxcRMmMnWXKOnToW6vNUlxYREaFp8znBenAsnI1bJRYQretZ93udtHAqlYq
ksd/Ca2E8L6LsaPB3HWjWkktJjpzU4ovxIIGueG+2rrGTNTornndF9Og16CO
6WTBRAl2DobHtWgQ8utHSc05JtLfndIsIUADwkigqvpzJvKrUJl+00kFaR87
uRurTLQ0b6n62ZYKtCym3r62ZVQt4KNpaE6FMkJXAf/AMorSjtctQVTozhgS
XB5bRjK+wwc+aFFBLEyvfWxzGdms3LBOFaKCms1HPTe9H+jY2v6h9dwRuO5w
Inkp/QeqFqKcDfg0DGIWn/dWBq8gJ0eFK74fhkE8Tb/UKWYFzb64ds0zbRjq
RDjqCekriEjkCD4ZNAxPhS7nP/y0gvykNV4fODQMhj4pZ21YK0hFLWh0o/Ub
fCEtJE7dWEWJh+Xc7w1RoLOAI5zXn4VyciV6NFsp0OpIGNaOYKFqYWEzRiUF
8JiRvXcSC43TthCtkilQajGgrFLNQnqBI02if1Eg/oIyvXDbGuouTVb62DsE
njIBPPKv1xCfkuDkVNcgdL2sMmqdWEcy0dscU2sH4VDELIHr1zrSW9kEu8JB
UP522O+M0AY6VT+XWBYzCN7OBJ3zJhso51yb+cOjg7BSV9tdFb+BLJIi3sq0
D8DTQNL7HxY/USjP78vOTf1wzSU3htj8C51pkxCWqegHMVHFs0+pv5DBM0OY
fNcPOSrvqdKsX2hO0F/07uN++Ce/dzRT8Tc6QZz995VtP7Bs+91lIn8jLaVB
JTq5D+qjTIgmRzcR5XDp9FVaL/w7oSNLDyDgMi5ygn53LyQRVs0aogj4efPi
wd91vaBCyGNVJRKwuY16SnR2L+xj528a/UjARY7Zfxa59UJJqryb0ncCjnR9
nrv6vQfedNRQX7luwfrB3t4h62S4lJ/Oun+eDe98MlKVOEMG+5b89Z7rbHgp
wY77A4UMjGcHg46EsOG8XJ3svmoyfC2mzlzPYsNK/SsDaqFk8LpbjFnjbFhS
88HhPl4yXO3Z3bt8gx1v/RYtqSb1FRLPPtpyIWMrpk8QPMz4v8KoV3y1afFW
XLt0vez4Zjdk8OexGzdtxYHbHO2Dad0Qtuvi6aSFrZilKxbZ+3c3DCXDtsmD
HHj2UQYzSKMbvluYee6e48BfDQpbelAX3DZJ0vY7z4U13DsD3mh2gTK7Q7jC
PS78KOm72i3pLnioFKDDl8iF8bpytNgmCQJyy2butHPhvKrXDierSfCeNjVE
M96Go0zjKVRjEni6qPgHKHDjUe+ip4VqJHhNDO2qPsSNcTrJNESSBILagdvN
XLnx903iQXNWJ4ydtZTmyOTGTSG8rW03O4HpveGZKc2DAyPnKH2+HRBqOyDM
UObF+lMq6I5DB8Q3iOj4W/PiWUu3THHdDuhaEyhz8OHFf/FSL51eaoeRGwsD
ayW8WO9Z1xz9WjuYcXIWc5pvx9NxxYQ5rzaQT6DZCt/hw07pd+W2XmmBXIH2
xiYhAZxcws5FsmyBXunOh+5KAni49clUimoLJCue9DExFcBXWGl5uvPNQKLs
ign2EMD3jn0xcL3ZDDlXSy9GNwjgbPbtNnVhTXCy+Cz7tXBBPEV8ofnschPE
EaW+paULYg2t3UInLJrgQ09aDV+FIC4/pdW3yPtfX3jglT8riFtLHM/Lxv0L
+Vqm01LOQnjJLdU/KLMRhEQ7uF8YCuP9gQou1qGNIF04WYCdhfG9+HwjsUuN
wPWQuGjiL4w5a2s385Uagc3J4JZOkTAWFx+PGslvgLBvJa3KWjuxWZtGmml1
PRhryuilmojgcHpZEE9GPeScpnjuOC+CW1jYtTf4vx/c/nUmTAQ7yjsoeR+u
h/TtdlnT7SL4SuCtotS2L8C2V7Jh36VdOEarpvHnYB1QLB4qjeeI4s7YrGuo
sg74LjpEJg6IYn5muHhIUh2o/0j4ML9NDD8usfHmcqmDLofmg6/dxXC40ZCI
UE8tiHA6893WJeKGlGpwLK4FxCbq3ehGxFt/ZbonxtXCjgcxePAVEQfDlc+S
9rXAEDxS48otju8dWrmo2FkDxFFny6BZcVz19wC/R14NBHrwhAYoSuB1zs/l
uU9r4NZJ8YELrhL4VnPodh3rGqBKdkttH5bAjFd7rtx5DhBFxD+9RyRxR4EL
Z3b4Z3jyiK5iLyaNrX2lTygf/gyqM/rcIpekcbP++Ic89s9w84lbif5HaVxf
6etUEfQJwh/8FhlSlsEV9c+yO+5WwSqNGe/2VQbvi3BiORhWAcvAba1tUwYX
W0paD6xWgr62SQuvuizO63jHZPhVwkvnt/Maj2Rxdn/9wTXvClCjXN3fcnQP
3pPyOCFQvQKeaZh7lofuwemn7afZZ8shNkQysqJ8D06mj8Tyu5eD1PhbYVGF
vThmdp2617UMCsjOdUd2yGH+/Fq9d7JlkPcu06XLWg4/vh4ZqUEthSvGLUHV
j+Vw+IqIluHpUji02r1vkU8eBxC0H9g6l0DcOf9ydXkFvG3ikAunaAn8UcmQ
o3op4Ph2F+3q3mIgufiGOJUr4NzkIIb68WIY37wz2WqviCl6JHM+p4/QkHGf
MZOuhK9IjMo07PwIsVHxASUsJby8hbV2j1wEWbv8eKkOypivUzp31qEI4mxa
DD4JqmBTdx+BNvtCeGFIlknPU8UtR0OnQoUKwci8mH5TSg0f35dYd6C7AEr5
w1gZ0WrYhx383h8rgLQTJqpRgep4Y6rbxlWwABLkQhZSNtQxf2a7zb7X+aCY
olqdc08Dt1RUGEY8yofp7Jd3U19o4P8BhmveBA==
 "]], LineBox[CompressedData["
1:eJw12Hc8lf/7B3BEych9jmPvmYRoKIqLdrLKTEOhZEcSGkZWReXTJCSKojKy
QrlEhZCVnTPMk3PKSJr63r8/fn+dx/Nxj8f7fr9f7+tc963iFrD3KB8PD89O
Xh6e//v9U0xrZK0ugLdGiT0j4QZ4/HTOMsnMApC4/GPusLkBSttPZxCUQlgX
RFvQ4DHAs75XDSX3FsKTK5kmc6iPW9PfH1XpKoTWK9rddjv1sXNhS/363iLY
kijMTOrRQ0Mp1n4TmWJQ6Y3NFAvUw9RVkbObXYrh4vPL8r6ieuh2uFrVerAY
NvT9MwdrXZypXRvlwXgOTmf3RB7nrkTH/g5pb5USmLU73dmSuhIrZ04UBriV
gIrE6m3bLVZitNpTevhICSwccZFUK9BGSqyGafJEKRQFs4ozr6zA4PS6j7dW
lMHMox5GvsUK7C094pfmXQZCjmu1tgmuwMyx9LRcThk8uPJHhRuvhfo7JX+/
nCoHhWU6Anh7OdoIL6n4/OMFMPwoa7ymNPBWhbDN3XWVIOI+yN5Xp4FDR4mx
3UGVkF2SFyh/WwP9UYb2dLISLmjdaecx18DEUzonAoaq4K/9fZ+ydHXsUjVY
oixXDZOn4F12iDrKta3LaHOqht+GG5w32qpjnjY0G7RXw/HoKgdnAXVsoO/R
+lb3Eo5zM/sHQtSQSHKsecDzCmD/5FS+vRo6Ge93dDB5BXPtX/kF16jh2A2P
mLKyV0CUX1jvNK2K/BanGaGPa2CyaunTPydVUdnFuvn8O4S5fxWGi66qYH1h
m1TPKMKAx1tD02AVPL7Ezn0Vfy3MTJ/cPrBPBQtKnH7RzWrB2Dkkfo2mCpqK
HdEyr6wFDdGP65fXKeOB+pMxi56+huE62oYUEWXkkfv+Yf/71zAh7kLd9EUJ
HwSGypWwX4PEpYLTXXVKOKl4rthDsw6mHjvw5p5QwvCwOMabe3WQoarSl9im
iCl6KZsS/qsH6ajZMJdcBdxsXItez+vB45Wb884oBeRsY2/d3VUPFcG8k8/3
K6DZQSOrZZJv4PVgHvGbooATl/sO3kh5Aw5Xc7NEYuRxA1smIjPzLZytPRUe
eVYOWd/MF0XXvoXXfUWKdgflMJHHO96d9RZ0vK7mxZjKIUOq8qqm+jtQLq03
XuCVw4TtLplPct/Bg42JASpJstibnVpb8awBPPktOLPFMhhd8Hpb6ocGUCs5
fk8oRQZ1qj43nplqAKNtie3eETIY2WHcYbq6EXD5rR2LrGRQi3eAVV/aCO5t
4Y0hk9IYekiOv726CfYKuDVfXiuNUjJp29lNzVC/Z1QrdFoSK/9TSDCYbIZX
TS10S7okHhC51xgm3ALXl335YN0iiVn/7lsKWbaAX3y+dO9jSdQZy927sqUF
7vRF80x7SKLZ8+eH/D60wq2WF+6NLAlk6azLLP3aCsE8u5+t7pTA2Jwy5l+x
D6C+7KVebZ0ENqW88Lhi+wECO0SlLR9KoENkjXdB+wdoyF5HF/WWwNKco1U/
vNqAqX7Pkv2ThnHumoPy4W0g8CS29hSHhs7K43/MLrWB3Mzl7Sp0Gv5KOW56
Ma8N1pieXdlVT0OzJJ9amck2+LDT3C4zmYZNJwPfGfu2g5f3QmGSPg2HzM51
nvXvAH59356OKHGcyJIquXyuAzyjeaRcQ8Vxhr/4RmpiB9gUrfy64C+OSxrH
HCryOmBnpnd16AFx1N9j2zs71gF7/w6ust0gjtFH1D55u3bCSO0rD59ZKibW
vXwZ5t8J8ncZSxUnqXhLwzkj4Vwn5N862c5kUTGfneiac7cTPJYGbUzroGJX
4Hcms6cTVPjEqnuLqagR3TjmbNsF52uk+u1CqKg/4v7O07ULKl0+EEsDqGi8
fSE3xL8LRpL2HG/xpKK10BqvG4ldkGzftPjCPiqG/Jc2+aGhC5guRVMZJlRs
yAqY2m7+EVgSV4SiBanoWyfxa+3qbuCXFJK0eETBn//4Tids7obDN6ZrjLIo
GLdpanZgbzeEFpc/Xp9GwfulTdzok93wcVdt38FrFOzOjWC2lXSDQeTzJXvC
KGieyG7wXd8DVfeehL2yomBrQ/c23NED564WasbvpOABgfrX4s49gF+k8w5s
oWDI+YzqytAeuOV0Y1jXiIJPTtgVClb2QMms1J9jGhSUdHh5+8GmXviq8dNb
jYeC2cl5tB+WvVDK7ble+JtA/dbbybsP9oIL54nfrnkCd+8IujxzrhduL8zP
pH8hMNJoeYRZTS9MsUzi2z4ROKmQfGzQvA9uVoqlW78iMNTl/PCqvX1QT6On
X60kcPFtn8MX3PpALN/NbaCMQGViu4v2hT64fPkX7/UCAh35fluF1vfBTGLe
uqj7BOKYxzrajn74ZrOx0zqewLiGlUF7HfshvudevHcMgZZ5M8+uHe2HpF7V
n1eiCOzzi9QSjekHA76Q6ekzBM58uyu3uLYfpo5F2CgFEqi+qJP3h/EAbL17
k0UcJPDzSIqpocUAvOld9ajEhcDCt4fPBO8bgBMHWAWHnQk0ufTl29TpAWB+
vufdbkeOjyI0wS4ZgCeryrtpuwlMUDJvHdAbBClnHS3FjQRa8woKy5oOgoM1
TWGLEYG04dYdzlaDEJ0k8C1gPYH3cw7UdvkMQmWX5xrmGgIrdUNLWh4NQmyo
op+KLjmfYjAtXDEIkW0pYzErCdw+LaBn8W4Q5lZby02tILCz5Hru29FB8DMs
ffBJk0DOxoLUGtVPEChTgzQVAosVQnr+GnwCmf+y00qVyPn/t4m2yfwTPHpd
Qj2kSKBAXVNShesnKFaLfPVGjkBFi7HIorRPgD/Di75KEjiy8unLr/mf4NcL
9q9mCQLzRIN/6VaR15vw1RXRCDRs5w3O6/sEz38J1iVTCbRxVvDMlhyCpQF/
DPKXEUidvsZ3U2MI3AzFbzeIEth1kT8jbu0QpNR/k+WKEOhSNdnltXcIdEEu
ZLcwgfL2rif2HxkC8XDKrlghAumcDmGrE0Pg+mft6rdLCfRQrNysf2UIlC6t
h4OCBGqW6w6ppA+BZpGr6/MlBLJt7oeJPxkCPdMdVwjS/lEJhd8bh+Di01IK
Q4DMr+yf3RO9Q/Dhq5z7XtKzxQHjfeND4L6F5+V7fnJ+RhwVXwrQIXq+NaZz
EYHG55pePKPRIb9Yd+oI6b8Spg6ZanTIUZs9NM9H5vFZ0VTyajoQtUvarpOO
3qGReMGcDv2nj21eT3or487yU7Z0yHwgX8rkJXBJmEjdMVc6eIpaLL9OuokS
ecjZnw5jA8p3dpNOzJv9uescHczujC4WJm29xfPmxkQ6rFX/GtTOQyBlsF9f
9y4dWspyBjJIdwVbNyvm0SGuN97sJOlboq89iRd0YLkq37cm7ZyzbhFfAx0u
+RN/9UnLweOM2W46tPkL2cuSHuqRNx4dpUM5pfOhEOnME9c+dn+jQ6CV+Qwv
6SL+6A0jvAywOWBqxEOa2r5x8cGlDNCrfhMuQDo4fa7zI8EAF73RMgrpj14F
962lGTBeXs1VJ21o6BXwTokBkVnnlYD0HT41E7PlDCg9F2B5mPTP1kGhF3oM
qFQeC04g7XL3Vq+BIQPSnuxOKSdd5Wmbk2fCgLkrcpVc0vJrhYLVtjGAFjvc
o03Oz3meevM0Swak3tsy60+a3nxOTMKeAbe2fxGpJG2Wsv5T0n4GiJs+0hAh
1yPr6HTeYncGqOfvND1K2mPBY/uPQAZ8i5wL0iHX902TIi0wjAFcS5HkVNKa
t3uZ7EgG2LkpPhcj88FeZXlu4CoDvlymCYqR+bH4I7Db/jYDGojbJimknzTU
SLdkMCC5fc9Z7cVk/o6sKXn1lAGFRWFybmQe23S5UetLGZDlJhshSObX4FeO
TWE1AzrjXWZKSX/7T3by/nsGqAx9WaZJ5j+snlc1lk0+D4vXaT+5f+QXRkwy
p8nxV90ssCL316v1DfuqfjJg21FBn51iBPLnX0meXsqEF6d6JJ0oBF5LluM9pM2EH/NSGX3k/l3zfkE+bDUTQpRGjotJEdjNz9pww5gJk3vGiqykyXyEPjrR
ZMEEre8mrcOyBOYcWscw9GFCcpLqgxBlAnfdkf6z5yQT2IsaOqfI+sJp/y3l
d4YJu073Z59UI59n22ub7MtMGLQK33CdrEfVK21qxJ4woS3zMBqT9azzx/GM
CQ4TfFTnCf1NBIastqxcNMeEGrZovaEpgdK+q7oV/zIh9tnLwO1mBB6iz4k6
iLKg+1daT+RWsj6/iT5Xq8sCvTWbr7pZEchzPe1Aqj8LgiI2aDEOE5jdHBFa
GsKCGQd5dpg7WS8Xu99oO8+CSzFmigrHCLwctqJ58VUWpJkfEIz0IVDycNnG
kwUs+EmFvooQAnV122Qtp1gwGE5vX7hCoK9R5q3BefL4Itayv8nk+m47QfX7
xwLPjrdi/DcJ1D5ECF1ZNgzrVb2idO4SqHXV9ucHnWHY2mGpNZFLoOp0W4+d
1zD4lSYT4nUEHvmbaTdyYhhEE8RFst6S+21p4Ifg0GGYf7fgbdxEoJIq5d3N
+GGYVbofEd9OrrfdnrKeh8PwtO/flhsMcryl7Tf2s4bh6NNdJdHk/7ND7X2C
wx6G4qFXvk/5KXijJTDx7PQwxCSLW7IEKSg+RolJ5xkB6Wtlpd4UChJSe0/S
FUfgjFZb5bwqBYXCOva47x8BHeoBazGyX1jY1LnMp4s831U16kEqBSPKmnvT
B0fgfQHGPs6kII/+26y2kRHo8nAZrs6hIK/aC0PDuREQfJIoJvacgvxL7x3i
lRwFK9i81KOZgsIfvZ/ddhqFpUpWtyZ4yf7M2iO0yXUU4uuX9dPJfkik4eDm
v56jEMQftWFcjIrLqmy73UJH4XO4R52mIhWp9w0XdFNGoSrGK9V3IxWl/fis
6/tHYe1WV1GDMCqmjP2WmmeNwhtxh1yjKCrKHp5jrpgcBc35gXj7i1SUs5s4
dfX3KEhXZlXUplBR0ag13UV+DM44n9p4vors9wRSuVMHxyAq+E/pAz5xXJ1u
kKTAHAO9t3tmvmaKo0FQ1GJt9hhkGPaYH8sn+88d7RGG02Mg0hcm+K1UHPWm
TwTZ8I7D05RgluN7cdTeVugUpTIOvgGOlmbz4qjK1VMdPTIOxfyH+frsaKjy
+vzdaa9xSJv3LBt2paHy7VbaQuA4ZMUFTCz1paGiuf8SqehxyAnXnXwcQ0PZ
m085O7PG4fYb23yzchpSTHTKn7DG4Uu4N5+YqgQS1LP6Lz6Pw7LyO/bfV0ng
svH3j9/MjIOU8YqtCyYSKJLskzbENwE+hkZBgS4SKDiaF0WoTcCW2cmMrzck
kCdphWWw+wQcOslj+JCQxKlBTebGkQmIgCE1TU0pTIxxr3w5OQHHF4JFitdL
4XKdzOswOwE57n+veO6SwkNnZLZv4WND5r6b3nv8pLBZRiTfQpkNCa91DFeV
S2Gu43TwvgNscAw1/3DNTho3L+haD7izwSDvEPzwlMahh97LD/qwIWV1Udx/
Z6WRNjfcdzicDeLanF1uOdIYfb3b9PgdNmSI3JaP/iONh9qqBE93sWE44hrH
67kM/jr9g/ljgA2tAang+F4GbyqtqwofZoOPx4byqGEZbPZ/5nd+hrzf/rzC
FJosGove74glPoPj8UjaRJgsSljEpd2w/AyGvd+1mHvksHD69SlJ+88gZU5d
a+gvh5Yp/6zv7P8M9y/8Uxq4JIfRE6G8ad6f4Z9i9nWZN3I4FedzLDuBvL5u
wDjJRB6b62z1i+vJ48T45UuggI97y5y6mz+D2/uLtKMeChjHlY/41fUZLnK6
9F5cJN9vpdgtm0c/w0pzYbmejwpY4h3l0ykwCR41Rko6wYqYRinO+bZ9EiyS
cyei3ythmKZ0q7TNJNhlv/+p8VMJHTeen9vkNAl/Xkorl4srI3HUYmus5yS8
yRAVXNisjDEVLKZEwiScqnLqqHiojL6u4grrGydB9sHyp9nnVHBXcNjW/e2T
IOmZkRafqoKaF+k+EX2TMBbGx6WXqyCjOL/yHXsSHgc0X/gxq4L2i7c6Owtx
wEFEdpVskCoayOVFnKVygNe/YvP0f6q4TJ/IzZTlgJCdTbV9iSo27Bucm9Dm
wOJrtu2tP1Rx09Pg62G7OVBjk/dmPkENZV73V6bbceBVbXhyyjM1/N5txqrd
z4GgEPOJsS41LOQRNRDy5UBwh/zpW2rqqG7/sDU1kQNVmlK7OhrVUfj3x6XV
LRxI49YJ55lqYgxLK9nhIwf2BsaXq/hr4kLjGemvgxygtl6Pi87QxKk7KstV
ORyonOqOlOVbjt2GflsThLgg3JSdF/BxOdoq4nsVKhfI15bUXyJa2Cggblcl
w4U2jUcCT7ZpYXVXxZEvWlwoL55Zk1uphVlB/BH2O7ggvcSqRqpkBcq7OC3+
Ys0FJ+MCHu7cCrxpnpcU78gFsUaPZyZG2phA2KZVHuUCfUfR6th6bfR/dveF
cgwXArrTPhp/XYkTN7+YVV7mguh0JuuUqQ4eOWfeYHedCyfEYnwfXtVBe8vx
7rgsLhjUGFjpbtBFo8+rv3GQC44rX7kuf6CHxe2xZ+IauBDVFkvfIbAKdV70
8im3ceGCRPBZMa9VqJhwnmJH58Kcdnd/tLw+3glov8MZ48J34/SbFXv1keKk
rhz3hQu2gg0fz1/SR37NJr0Xf7kw7NM1uuifPp4XVSjbK/AF7hwVpk9sNMD5
bwEmHJEvMBfc1ZcXboAvVWanZ0j///fG/wEdTP0d
 "]], LineBox[CompressedData["
1:eJwVlXc41nsDxh9UyMzISLKz0yAZ3V+eSmmdpGgPIqKpc2RlUyidI2Q2pZJX
i47MOPImo+GUiEcKGfF79sDz9v5xX5/r/u/zx31dt/7hEx5HJGk0Wsmv/J+a
FR1+x6YmMXI7Oyz/qjWRfGtjHzaXQq4WpWn9xZLomuUI4xUpzIovFcgctSSO
MVLVl1Uo1AadEu3iWpCQpf+63NGmwD5sub5Jx4IMXgnf2GFOgd+Wd0ElzYxI
jnxT6LamoKSbVPJxiRlZ5Lql4/syCvkbXFardZoSb6beDpEDhfFLZwL/NDEl
LR5N+002UrCVX5nsNGBC7NRM3o5uofBo1+QezzwTcr0zgf7Ig8Iu34Vpkl4m
5HfvtaZOu391vsz3sQ5jYrC/kdoWQMHR7Wni7U4jkrbIyFcjmELwWMV39Rwj
wmfE/dtzkoL+kgyq7oARafWhv/APpWCQ5+tZ8NOQhAa8jI9MouC9eGdMrJYh
GTA34LmmUEjcE3Lt9aAB2TIWEyBzmUL2+tefZJ8ZEMMTLlv+yqRgZai7zsPT
gLSF1Gncu0Oh2nQx2ytfnxhH19z/0EDhXp8w08NTj6S76C7MeUUhfdzr23pr
PSKUjLp8oIXC5WaFRIaMHulIcA4ZeUdhv1wnms8vIhEpVc60r7/8vjVxHgTo
kneZlR0WNCaoLx5slRM6xNlbm05JMdE52Hies1yHFGuFPSuXZkJmSaNeuWAB
icxbleOixESKTnxaTdICYnrzuY+XLhP0/tyh4Ifa5PzDcm6sExMJGadk/16g
RS4aW6RfI0zsry8JTB/WJJn5hWZla5jYVHSyzKBck5SmJe/9sokJOVnatqPb
NUlP8O6XK/cxkeTz5bpypgaxt55JG4tkwp4k1I3Yzydrik4vloplIrJPpNOh
NJ9s1R2q00pkYlqj7pXTkDrxU+xgrbvEROpcry83stTJ1Z83dt0oYCIzP3+H
14waYZauNd5Zy8QNx3m6Mf2qZMaksiaogQm+RtJ4c60qkS209o57xcTEI/fW
swWqRO+yRkpZOxM2o+s6eXtVyZYTPybnMpgo9Vv67nivCnmwJK2qlsZCrVOd
9wdqHvEt+7DdzJUFvYt9xUHblEnNFeQL17LgL9uubeWoTDTP3B9s2cDCMrPu
cwbGyqTFNvrc8W0shE3b0D1YSmTZC4vCJwdZ6O4pCTN2VyISTbEjzudZkC8o
DE2VVSS7744vV4pj4VhiXJPcgAJ5muwdyUhk4SrrxTNGlQI5utFaOe4SC8Ji
lmHSKQXS0dFl25zPQsAPPWZxrzwp6LaJ8ahi4YiiAs/nlRzhV+W+NqxjoSom
/XzjHTniUTBHjdPAQiWvnX4sXo7MPtRTlNXCgsBQ3iLZVY4EDSa96fnMgnv/
/N7h+rnEkerV8Bew8DSqfVvuG1nyaU5aabgdG2z/Y79JKMgQSv1W+yoHNhIl
3s5xY0mTucZ/T/Kc2bA4EP3Piy5p4kT/vixkLRtZv18LsLkrTQrPO1cEebKx
kT5fftUaaeLHH6/dd5qNfKkP1OHEOYT9Y8tblLIh2He3eLXpbKIg8GVOP2Kj
+A9BW7rqbGIiE65a9YyNCyUZy2aLZxFvk7s77KvZSL5oG7j931nkxWFxl80b
NuqWyfZFJM4isd3/+ao/wkbJc13d+jEpMq9VmS1lwsG2tiOxJu2S5PWfjk6q
5hycHW1OaqySJPHefvEG1hxkqptWR9+XJPyBF2oudhyoLEnL8UiUJL1CP9uo
dRzsVJuO9YQkKTGt/p3vx8GckqXvM8slyLr4AMHYXQ6a7wWJA5/TCM09w2Xq
AQd/nG66vv0ejVQq1V6QK+Mg3e0lzyOHRqxy1bTNn3Pgbp0leTWCRtQe1zr4
N3Pwj/3DzfquNNLfpx7RP8zB2wgGx/emGBGOL2c6zbi4ejJ1j87UNOIDB7iF
VlysmIhKzfs2jdRrsyYClnKRKKvn5Ng6jTzeur5pey6Uecq27wum8eJJS63x
ei5Em/TD/enTEFp0Rp/146JC8DWEeWUKoTrDkuq3uAhpn3BYQRcheqOsqLeI
i/NtuVJ6S0RIDjNnFd/nomp3kaHRAhGyPwUNOD3m4rnHhfoQlhAVGVSDbz0X
JlGmE8vuCMGVF8U/7ePizuEIVZqCEGenFaQ9dXhwLN6k/3GMD90BuskJPR6e
SLCvKn/mo6n53NqLRjwcyXhtc+gVH5oZ3+PqLHlIqai2c7vJR6V5Nc3KmYfH
1rKmBrv4oHkHCWfv58FJYnKIes3DxcevxysKeeg9Q5ynqrlYnk1TeH+Lh0s/
Kp3fPeSiJ9LO8uddHlhpDszKfC6sNtwMNCrjQdCSNdUQyUVH37mh9Doedq91
cX+0mgt1BbP+gH4eqIxPK/oaOLjun/RhgSEf2yPvfHj1mQ2Z8KMthov52Hcz
rG3m1+5OXtrw0sKCj5fXzqSsqWUDz+TKHJfz4T0WzBHdYqNXMj1lD52PP7uC
9TWPs6FTkO2a68MH549vRqxZbGR/uFemfZuPvw69DSlyYiHd5U2qlrEAMqvP
iOQ7KKyrubW8x1SAbby2s2pNFKYcwj8XWAqQ//qvIaMqCkdXmJsarRBAOpQf
d7CYAlmc3GBNF4DmUejnEkNhUn6NkH5IgEehia7XV1DY+umF//F8AewSpXZf
uDEJxRMPXBvUhWjV8Sj4YTiBIzezlD9qCZFM7DZGqEygqjOud2ShEJutmpN0
JSYQ4LQ3TMVEiIJ4ncNXen+iUVbh8SE7ITLnR8VY5/xE2O3j+jQvIea9KRfb
qv3EYNdSmnO2EKtW5l+fUhlHzZrn1eXaIoxa1C/tXDkKn/4cxwRdEW5qOSg+
MR+FTFTk39sNRIj44snLWTgKjwrXZ5NmInw6ktiYLDWKQbPWEvNVIuygnuh3
t49AUelrboGXCC2e11q3BY5gf5dcWGKGCPTBbj4p+oHp4AN2OxWnULTxnqm+
/TAO24+nzFOZQmwwXS7YahhNkuH9b9Sn0KVS6FtnMIxLWZmp9IVTOHW2eH+k
wjB061u/2lhO4dXpfXe3DgxhtZrTZTn3KYwbu/psTR/C+UrN4bqEKRSyaman
TgxCQvrdNYvpKZQlzMzPrv8Ou/WnX7rTZhBnEeNZGD0AYU/JsDpzBvF3Dlrt
Ke/HmqDm9M3cGRxkuixkl/YjTTRgnyCcAbdTg3Hlbj/0tBdcYEuKMfJ4U2t3
dj/cvC6YvVcVY1/Kjdbi8H5kvD0SmG4rhlro2qeGrv2wbtIdm3tOjJp/auKj
3zEQusMhwzVSDJ0oh/8+aGGg/tsOp7AYMY5yVA50NzLgKZWW+uOCGL+5vT/h
VsFAOBFZNueI0bZoU7VHHgPNlR+DE6rEWKP4x/tl/gyouLPUq+vE6P8ZfebG
QQb2dinWsBvFePNbsbnabgYmeGsVfVvFEBzd2DF7MwPzbZ+Wuvb+8p3Jy9Ja
zsDBxvadYV/F0Lu99HKxJQP3to/OPBoUQ71jdayjCQNOpw226k+IUf5p5eZg
Lcavn1nN82aJkRXnryuvykBH+q7CdJ4Y+m5ZX0rlGdDWO+vWLBLDdfnppB1z
GPD5T/qEWCyGrKBIk0Zj4H9YClKI
 "]]},
 Annotation[#, 
 "Charting`Private`Tag$14077#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, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}},
 GridLines->{None, None},
 GridLinesStyle->Directive[
 GrayLevel[0.5, 0.4]],
 ImagePadding->All,
 Method->{
 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
 AbsolutePointSize[6], "ScalingFunctions" -> None, 
 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& ), "CopiedValueFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& )}},
 PlotRange->{{-1, 2}, {-17.48005435155371, 15.29221709359486}},
 PlotRangeClipping->True,
 PlotRangePadding->{{
 Scaled[0.02], 
 Scaled[0.02]}, {
 Scaled[0.05], 
 Scaled[0.05]}},
 Ticks->{Automatic, Automatic}], ",", 
 GraphicsBox[{{{{}, {}, 
 TagBox[
 {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.],LineBox[CompressedData["
1:eJwViXc4FfofgE+EEBmJY4Sy9yyE71e3Mi6SEbddKiFUaClZGS1EhKy4dZOs
bOWDcG2Hjn3iDJusIw4qv/v7433e531e2Qs+9pfYCARC6X/83w1nZEc2N+eB
Z+2NGIFARQor+tY3WfPQY79G/oeDiiKfWlXMLsyDYT1nviMvFVl/8o0boM2D
aV1rQ8kuKuomNpp//DIPnjwdNanqVEQlexRcjpiHfsd5Hq5TVPTTqji4nX8e
VL1+nrOroiK9/eZyKVJzcInbcad9GA1hEBx5LTQLYe+G/jT2ZiDNjLdp9irT
YLw3dokaMYb0Xh3N69szDb902/xIMWPI6OXq51MS00DHtLaGpDF0JMb82+Xt
0/C9kiRc934MnQqakAiYmwL2qbfPt5DGUOQ5xaSsoingOnxALJM4jugyb+OW
jaZAwlW2OqpwHMVnvolM+HMSGnceyHT8MYFctOSt7vwxCYJll3zaCZNIErJ4
Tx2YhEV/p1nb7ZMom5LxTFZ1EiSPGYte3TuJikVT4nN5JkH6G1NPwH4SkZ9G
Z9Q1T4C7Oqmfq3ASidy9XT5nPgE/8Z3WNf8plGBvNXnk0Diseck34t0zqJqf
YllsPA6JU4bB5qozaKzF672s/jjw1OzWcDGYQXp/xHr/lB8HmTfzEYn2M6hb
t3+5kGscPI7xukdHzKAdIpe3SLWOAb/v5n0v5gyK7AsWZx4bA7WPP8R1v86i
u6cqrNPPjkKyQ4J2WskcOvde9pyH8yhIHidEkRvn0JH1KF/9o6PgFXHPRrx/
Dgm9PJHcajoKtrPPPcnrcyjn68bEqtQojMsmyXGYzaNBK9NQOwoDnk8nG3qQ
5pGR4ZeKLX8x4PbCUuPM/QUkE6na3mbHgN9kEj02YgFx9sVREy0YYBm2ymcW
u4C6/S5yaRgwID1Bva4yewF5FHA4nRBlgKaf3qpk2wJKVrRYKOqhQ9EnZvBb
yUW0IdKucNGeDh9iLuhoNyyiC9wjj5ys6PBPdoDJSOciavm5MHfkIB3K9v1I
TxxcRMmMnWXKOnToW6vNUlxYREaFp8znBenAsnI1bJRYQretZ93udtHAqlYq
ksd/Ca2E8L6LsaPB3HWjWkktJjpzU4ovxIIGueG+2rrGTNTornndF9Og16CO
6WTBRAl2DobHtWgQ8utHSc05JtLfndIsIUADwkigqvpzJvKrUJl+00kFaR87
uRurTLQ0b6n62ZYKtCym3r62ZVQt4KNpaE6FMkJXAf/AMorSjtctQVTozhgS
XB5bRjK+wwc+aFFBLEyvfWxzGdms3LBOFaKCms1HPTe9H+jY2v6h9dwRuO5w
Inkp/QeqFqKcDfg0DGIWn/dWBq8gJ0eFK74fhkE8Tb/UKWYFzb64ds0zbRjq
RDjqCekriEjkCD4ZNAxPhS7nP/y0gvykNV4fODQMhj4pZ21YK0hFLWh0o/Ub
fCEtJE7dWEWJh+Xc7w1RoLOAI5zXn4VyciV6NFsp0OpIGNaOYKFqYWEzRiUF
8JiRvXcSC43TthCtkilQajGgrFLNQnqBI02if1Eg/oIyvXDbGuouTVb62DsE
njIBPPKv1xCfkuDkVNcgdL2sMmqdWEcy0dscU2sH4VDELIHr1zrSW9kEu8JB
UP522O+M0AY6VT+XWBYzCN7OBJ3zJhso51yb+cOjg7BSV9tdFb+BLJIi3sq0
D8DTQNL7HxY/USjP78vOTf1wzSU3htj8C51pkxCWqegHMVHFs0+pv5DBM0OY
fNcPOSrvqdKsX2hO0F/07uN++Ce/dzRT8Tc6QZz995VtP7Bs+91lIn8jLaVB
JTq5D+qjTIgmRzcR5XDp9FVaL/w7oSNLDyDgMi5ygn53LyQRVs0aogj4efPi
wd91vaBCyGNVJRKwuY16SnR2L+xj528a/UjARY7Zfxa59UJJqryb0ncCjnR9
nrv6vQfedNRQX7luwfrB3t4h62S4lJ/Oun+eDe98MlKVOEMG+5b89Z7rbHgp
wY77A4UMjGcHg46EsOG8XJ3svmoyfC2mzlzPYsNK/SsDaqFk8LpbjFnjbFhS
88HhPl4yXO3Z3bt8gx1v/RYtqSb1FRLPPtpyIWMrpk8QPMz4v8KoV3y1afFW
XLt0vez4Zjdk8OexGzdtxYHbHO2Dad0Qtuvi6aSFrZilKxbZ+3c3DCXDtsmD
HHj2UQYzSKMbvluYee6e48BfDQpbelAX3DZJ0vY7z4U13DsD3mh2gTK7Q7jC
PS78KOm72i3pLnioFKDDl8iF8bpytNgmCQJyy2butHPhvKrXDierSfCeNjVE
M96Go0zjKVRjEni6qPgHKHDjUe+ip4VqJHhNDO2qPsSNcTrJNESSBILagdvN
XLnx903iQXNWJ4ydtZTmyOTGTSG8rW03O4HpveGZKc2DAyPnKH2+HRBqOyDM
UObF+lMq6I5DB8Q3iOj4W/PiWUu3THHdDuhaEyhz8OHFf/FSL51eaoeRGwsD
ayW8WO9Z1xz9WjuYcXIWc5pvx9NxxYQ5rzaQT6DZCt/hw07pd+W2XmmBXIH2
xiYhAZxcws5FsmyBXunOh+5KAni49clUimoLJCue9DExFcBXWGl5uvPNQKLs
ign2EMD3jn0xcL3ZDDlXSy9GNwjgbPbtNnVhTXCy+Cz7tXBBPEV8ofnschPE
EaW+paULYg2t3UInLJrgQ09aDV+FIC4/pdW3yPtfX3jglT8riFtLHM/Lxv0L
+Vqm01LOQnjJLdU/KLMRhEQ7uF8YCuP9gQou1qGNIF04WYCdhfG9+HwjsUuN
wPWQuGjiL4w5a2s385Uagc3J4JZOkTAWFx+PGslvgLBvJa3KWjuxWZtGmml1
PRhryuilmojgcHpZEE9GPeScpnjuOC+CW1jYtTf4vx/c/nUmTAQ7yjsoeR+u
h/TtdlnT7SL4SuCtotS2L8C2V7Jh36VdOEarpvHnYB1QLB4qjeeI4s7YrGuo
sg74LjpEJg6IYn5muHhIUh2o/0j4ML9NDD8usfHmcqmDLofmg6/dxXC40ZCI
UE8tiHA6893WJeKGlGpwLK4FxCbq3ehGxFt/ZbonxtXCjgcxePAVEQfDlc+S
9rXAEDxS48otju8dWrmo2FkDxFFny6BZcVz19wC/R14NBHrwhAYoSuB1zs/l
uU9r4NZJ8YELrhL4VnPodh3rGqBKdkttH5bAjFd7rtx5DhBFxD+9RyRxR4EL
Z3b4Z3jyiK5iLyaNrX2lTygf/gyqM/rcIpekcbP++Ic89s9w84lbif5HaVxf
6etUEfQJwh/8FhlSlsEV9c+yO+5WwSqNGe/2VQbvi3BiORhWAcvAba1tUwYX
W0paD6xWgr62SQuvuizO63jHZPhVwkvnt/Maj2Rxdn/9wTXvClCjXN3fcnQP
3pPyOCFQvQKeaZh7lofuwemn7afZZ8shNkQysqJ8D06mj8Tyu5eD1PhbYVGF
vThmdp2617UMCsjOdUd2yGH+/Fq9d7JlkPcu06XLWg4/vh4ZqUEthSvGLUHV
j+Vw+IqIluHpUji02r1vkU8eBxC0H9g6l0DcOf9ydXkFvG3ikAunaAn8UcmQ
o3op4Ph2F+3q3mIgufiGOJUr4NzkIIb68WIY37wz2WqviCl6JHM+p4/QkHGf
MZOuhK9IjMo07PwIsVHxASUsJby8hbV2j1wEWbv8eKkOypivUzp31qEI4mxa
DD4JqmBTdx+BNvtCeGFIlknPU8UtR0OnQoUKwci8mH5TSg0f35dYd6C7AEr5
w1gZ0WrYhx383h8rgLQTJqpRgep4Y6rbxlWwABLkQhZSNtQxf2a7zb7X+aCY
olqdc08Dt1RUGEY8yofp7Jd3U19o4P8BhmveBA==
 "]], LineBox[CompressedData["
1:eJw12Hc8lf/7B3BEych9jmPvmYRoKIqLdrLKTEOhZEcSGkZWReXTJCSKojKy
QrlEhZCVnTPMk3PKSJr63r8/fn+dx/Nxj8f7fr9f7+tc963iFrD3KB8PD89O
Xh6e//v9U0xrZK0ugLdGiT0j4QZ4/HTOMsnMApC4/GPusLkBSttPZxCUQlgX
RFvQ4DHAs75XDSX3FsKTK5kmc6iPW9PfH1XpKoTWK9rddjv1sXNhS/363iLY
kijMTOrRQ0Mp1n4TmWJQ6Y3NFAvUw9RVkbObXYrh4vPL8r6ieuh2uFrVerAY
NvT9MwdrXZypXRvlwXgOTmf3RB7nrkTH/g5pb5USmLU73dmSuhIrZ04UBriV
gIrE6m3bLVZitNpTevhICSwccZFUK9BGSqyGafJEKRQFs4ozr6zA4PS6j7dW
lMHMox5GvsUK7C094pfmXQZCjmu1tgmuwMyx9LRcThk8uPJHhRuvhfo7JX+/
nCoHhWU6Anh7OdoIL6n4/OMFMPwoa7ymNPBWhbDN3XWVIOI+yN5Xp4FDR4mx
3UGVkF2SFyh/WwP9UYb2dLISLmjdaecx18DEUzonAoaq4K/9fZ+ydHXsUjVY
oixXDZOn4F12iDrKta3LaHOqht+GG5w32qpjnjY0G7RXw/HoKgdnAXVsoO/R
+lb3Eo5zM/sHQtSQSHKsecDzCmD/5FS+vRo6Ge93dDB5BXPtX/kF16jh2A2P
mLKyV0CUX1jvNK2K/BanGaGPa2CyaunTPydVUdnFuvn8O4S5fxWGi66qYH1h
m1TPKMKAx1tD02AVPL7Ezn0Vfy3MTJ/cPrBPBQtKnH7RzWrB2Dkkfo2mCpqK
HdEyr6wFDdGP65fXKeOB+pMxi56+huE62oYUEWXkkfv+Yf/71zAh7kLd9EUJ
HwSGypWwX4PEpYLTXXVKOKl4rthDsw6mHjvw5p5QwvCwOMabe3WQoarSl9im
iCl6KZsS/qsH6ajZMJdcBdxsXItez+vB45Wb884oBeRsY2/d3VUPFcG8k8/3
K6DZQSOrZZJv4PVgHvGbooATl/sO3kh5Aw5Xc7NEYuRxA1smIjPzLZytPRUe
eVYOWd/MF0XXvoXXfUWKdgflMJHHO96d9RZ0vK7mxZjKIUOq8qqm+jtQLq03
XuCVw4TtLplPct/Bg42JASpJstibnVpb8awBPPktOLPFMhhd8Hpb6ocGUCs5
fk8oRQZ1qj43nplqAKNtie3eETIY2WHcYbq6EXD5rR2LrGRQi3eAVV/aCO5t
4Y0hk9IYekiOv726CfYKuDVfXiuNUjJp29lNzVC/Z1QrdFoSK/9TSDCYbIZX
TS10S7okHhC51xgm3ALXl335YN0iiVn/7lsKWbaAX3y+dO9jSdQZy927sqUF
7vRF80x7SKLZ8+eH/D60wq2WF+6NLAlk6azLLP3aCsE8u5+t7pTA2Jwy5l+x
D6C+7KVebZ0ENqW88Lhi+wECO0SlLR9KoENkjXdB+wdoyF5HF/WWwNKco1U/
vNqAqX7Pkv2ThnHumoPy4W0g8CS29hSHhs7K43/MLrWB3Mzl7Sp0Gv5KOW56
Ma8N1pieXdlVT0OzJJ9amck2+LDT3C4zmYZNJwPfGfu2g5f3QmGSPg2HzM51
nvXvAH59356OKHGcyJIquXyuAzyjeaRcQ8Vxhr/4RmpiB9gUrfy64C+OSxrH
HCryOmBnpnd16AFx1N9j2zs71gF7/w6ust0gjtFH1D55u3bCSO0rD59ZKibW
vXwZ5t8J8ncZSxUnqXhLwzkj4Vwn5N862c5kUTGfneiac7cTPJYGbUzroGJX
4Hcms6cTVPjEqnuLqagR3TjmbNsF52uk+u1CqKg/4v7O07ULKl0+EEsDqGi8
fSE3xL8LRpL2HG/xpKK10BqvG4ldkGzftPjCPiqG/Jc2+aGhC5guRVMZJlRs
yAqY2m7+EVgSV4SiBanoWyfxa+3qbuCXFJK0eETBn//4Tids7obDN6ZrjLIo
GLdpanZgbzeEFpc/Xp9GwfulTdzok93wcVdt38FrFOzOjWC2lXSDQeTzJXvC
KGieyG7wXd8DVfeehL2yomBrQ/c23NED564WasbvpOABgfrX4s49gF+k8w5s
oWDI+YzqytAeuOV0Y1jXiIJPTtgVClb2QMms1J9jGhSUdHh5+8GmXviq8dNb
jYeC2cl5tB+WvVDK7ble+JtA/dbbybsP9oIL54nfrnkCd+8IujxzrhduL8zP
pH8hMNJoeYRZTS9MsUzi2z4ROKmQfGzQvA9uVoqlW78iMNTl/PCqvX1QT6On
X60kcPFtn8MX3PpALN/NbaCMQGViu4v2hT64fPkX7/UCAh35fluF1vfBTGLe
uqj7BOKYxzrajn74ZrOx0zqewLiGlUF7HfshvudevHcMgZZ5M8+uHe2HpF7V
n1eiCOzzi9QSjekHA76Q6ekzBM58uyu3uLYfpo5F2CgFEqi+qJP3h/EAbL17
k0UcJPDzSIqpocUAvOld9ajEhcDCt4fPBO8bgBMHWAWHnQk0ufTl29TpAWB+
vufdbkeOjyI0wS4ZgCeryrtpuwlMUDJvHdAbBClnHS3FjQRa8woKy5oOgoM1
TWGLEYG04dYdzlaDEJ0k8C1gPYH3cw7UdvkMQmWX5xrmGgIrdUNLWh4NQmyo
op+KLjmfYjAtXDEIkW0pYzErCdw+LaBn8W4Q5lZby02tILCz5Hru29FB8DMs
ffBJk0DOxoLUGtVPEChTgzQVAosVQnr+GnwCmf+y00qVyPn/t4m2yfwTPHpd
Qj2kSKBAXVNShesnKFaLfPVGjkBFi7HIorRPgD/Di75KEjiy8unLr/mf4NcL
9q9mCQLzRIN/6VaR15vw1RXRCDRs5w3O6/sEz38J1iVTCbRxVvDMlhyCpQF/
DPKXEUidvsZ3U2MI3AzFbzeIEth1kT8jbu0QpNR/k+WKEOhSNdnltXcIdEEu
ZLcwgfL2rif2HxkC8XDKrlghAumcDmGrE0Pg+mft6rdLCfRQrNysf2UIlC6t
h4OCBGqW6w6ppA+BZpGr6/MlBLJt7oeJPxkCPdMdVwjS/lEJhd8bh+Di01IK
Q4DMr+yf3RO9Q/Dhq5z7XtKzxQHjfeND4L6F5+V7fnJ+RhwVXwrQIXq+NaZz
EYHG55pePKPRIb9Yd+oI6b8Spg6ZanTIUZs9NM9H5vFZ0VTyajoQtUvarpOO
3qGReMGcDv2nj21eT3or487yU7Z0yHwgX8rkJXBJmEjdMVc6eIpaLL9OuokS
ecjZnw5jA8p3dpNOzJv9uescHczujC4WJm29xfPmxkQ6rFX/GtTOQyBlsF9f
9y4dWspyBjJIdwVbNyvm0SGuN97sJOlboq89iRd0YLkq37cm7ZyzbhFfAx0u
+RN/9UnLweOM2W46tPkL2cuSHuqRNx4dpUM5pfOhEOnME9c+dn+jQ6CV+Qwv
6SL+6A0jvAywOWBqxEOa2r5x8cGlDNCrfhMuQDo4fa7zI8EAF73RMgrpj14F
962lGTBeXs1VJ21o6BXwTokBkVnnlYD0HT41E7PlDCg9F2B5mPTP1kGhF3oM
qFQeC04g7XL3Vq+BIQPSnuxOKSdd5Wmbk2fCgLkrcpVc0vJrhYLVtjGAFjvc
o03Oz3meevM0Swak3tsy60+a3nxOTMKeAbe2fxGpJG2Wsv5T0n4GiJs+0hAh
1yPr6HTeYncGqOfvND1K2mPBY/uPQAZ8i5wL0iHX902TIi0wjAFcS5HkVNKa
t3uZ7EgG2LkpPhcj88FeZXlu4CoDvlymCYqR+bH4I7Db/jYDGojbJimknzTU
SLdkMCC5fc9Z7cVk/o6sKXn1lAGFRWFybmQe23S5UetLGZDlJhshSObX4FeO
TWE1AzrjXWZKSX/7T3by/nsGqAx9WaZJ5j+snlc1lk0+D4vXaT+5f+QXRkwyp8nxV90ssCL316v1DfuqfjJg21FBn51iBPLnX0meXsqEF6d6JJ0oBF5LluM9
pM2EH/NSGX3k/l3zfkE+bDUTQpRGjotJEdjNz9pww5gJk3vGiqykyXyEPjrR
ZMEEre8mrcOyBOYcWscw9GFCcpLqgxBlAnfdkf6z5yQT2IsaOqfI+sJp/y3l
d4YJu073Z59UI59n22ub7MtMGLQK33CdrEfVK21qxJ4woS3zMBqT9azzx/GM
CQ4TfFTnCf1NBIastqxcNMeEGrZovaEpgdK+q7oV/zIh9tnLwO1mBB6iz4k6
iLKg+1daT+RWsj6/iT5Xq8sCvTWbr7pZEchzPe1Aqj8LgiI2aDEOE5jdHBFa
GsKCGQd5dpg7WS8Xu99oO8+CSzFmigrHCLwctqJ58VUWpJkfEIz0IVDycNnG
kwUs+EmFvooQAnV122Qtp1gwGE5vX7hCoK9R5q3BefL4Itayv8nk+m47QfX7
xwLPjrdi/DcJ1D5ECF1ZNgzrVb2idO4SqHXV9ucHnWHY2mGpNZFLoOp0W4+d
1zD4lSYT4nUEHvmbaTdyYhhEE8RFst6S+21p4Ifg0GGYf7fgbdxEoJIq5d3N
+GGYVbofEd9OrrfdnrKeh8PwtO/flhsMcryl7Tf2s4bh6NNdJdHk/7ND7X2C
wx6G4qFXvk/5KXijJTDx7PQwxCSLW7IEKSg+RolJ5xkB6Wtlpd4UChJSe0/S
FUfgjFZb5bwqBYXCOva47x8BHeoBazGyX1jY1LnMp4s831U16kEqBSPKmnvT
B0fgfQHGPs6kII/+26y2kRHo8nAZrs6hIK/aC0PDuREQfJIoJvacgvxL7x3i
lRwFK9i81KOZgsIfvZ/ddhqFpUpWtyZ4yf7M2iO0yXUU4uuX9dPJfkik4eDm
v56jEMQftWFcjIrLqmy73UJH4XO4R52mIhWp9w0XdFNGoSrGK9V3IxWl/fis
6/tHYe1WV1GDMCqmjP2WmmeNwhtxh1yjKCrKHp5jrpgcBc35gXj7i1SUs5s4
dfX3KEhXZlXUplBR0ag13UV+DM44n9p4vors9wRSuVMHxyAq+E/pAz5xXJ1u
kKTAHAO9t3tmvmaKo0FQ1GJt9hhkGPaYH8sn+88d7RGG02Mg0hcm+K1UHPWm
TwTZ8I7D05RgluN7cdTeVugUpTIOvgGOlmbz4qjK1VMdPTIOxfyH+frsaKjy
+vzdaa9xSJv3LBt2paHy7VbaQuA4ZMUFTCz1paGiuf8SqehxyAnXnXwcQ0PZ
m085O7PG4fYb23yzchpSTHTKn7DG4Uu4N5+YqgQS1LP6Lz6Pw7LyO/bfV0ng
svH3j9/MjIOU8YqtCyYSKJLskzbENwE+hkZBgS4SKDiaF0WoTcCW2cmMrzck
kCdphWWw+wQcOslj+JCQxKlBTebGkQmIgCE1TU0pTIxxr3w5OQHHF4JFitdL
4XKdzOswOwE57n+veO6SwkNnZLZv4WND5r6b3nv8pLBZRiTfQpkNCa91DFeV
S2Gu43TwvgNscAw1/3DNTho3L+haD7izwSDvEPzwlMahh97LD/qwIWV1Udx/
Z6WRNjfcdzicDeLanF1uOdIYfb3b9PgdNmSI3JaP/iONh9qqBE93sWE44hrH
67kM/jr9g/ljgA2tAang+F4GbyqtqwofZoOPx4byqGEZbPZ/5nd+hrzf/rzC
FJosGove74glPoPj8UjaRJgsSljEpd2w/AyGvd+1mHvksHD69SlJ+88gZU5d
a+gvh5Yp/6zv7P8M9y/8Uxq4JIfRE6G8ad6f4Z9i9nWZN3I4FedzLDuBvL5u
wDjJRB6b62z1i+vJ48T45UuggI97y5y6mz+D2/uLtKMeChjHlY/41fUZLnK6
9F5cJN9vpdgtm0c/w0pzYbmejwpY4h3l0ykwCR41Rko6wYqYRinO+bZ9EiyS
cyei3ythmKZ0q7TNJNhlv/+p8VMJHTeen9vkNAl/Xkorl4srI3HUYmus5yS8
yRAVXNisjDEVLKZEwiScqnLqqHiojL6u4grrGydB9sHyp9nnVHBXcNjW/e2T
IOmZkRafqoKaF+k+EX2TMBbGx6WXqyCjOL/yHXsSHgc0X/gxq4L2i7c6Owtx
wEFEdpVskCoayOVFnKVygNe/YvP0f6q4TJ/IzZTlgJCdTbV9iSo27Bucm9Dm
wOJrtu2tP1Rx09Pg62G7OVBjk/dmPkENZV73V6bbceBVbXhyyjM1/N5txqrd
z4GgEPOJsS41LOQRNRDy5UBwh/zpW2rqqG7/sDU1kQNVmlK7OhrVUfj3x6XV
LRxI49YJ55lqYgxLK9nhIwf2BsaXq/hr4kLjGemvgxygtl6Pi87QxKk7KstV
ORyonOqOlOVbjt2GflsThLgg3JSdF/BxOdoq4nsVKhfI15bUXyJa2Cggblcl
w4U2jUcCT7ZpYXVXxZEvWlwoL55Zk1uphVlB/BH2O7ggvcSqRqpkBcq7OC3+
Ys0FJ+MCHu7cCrxpnpcU78gFsUaPZyZG2phA2KZVHuUCfUfR6th6bfR/dveF
cgwXArrTPhp/XYkTN7+YVV7mguh0JuuUqQ4eOWfeYHedCyfEYnwfXtVBe8vx
7rgsLhjUGFjpbtBFo8+rv3GQC44rX7kuf6CHxe2xZ+IauBDVFkvfIbAKdV70
8im3ceGCRPBZMa9VqJhwnmJH58Kcdnd/tLw+3glov8MZ48J34/SbFXv1keKk
rhz3hQu2gg0fz1/SR37NJr0Xf7kw7NM1uuifPp4XVSjbK/AF7hwVpk9sNMD5
bwEmHJEvMBfc1ZcXboAvVWanZ0j///fG/wEdTP0d
 "]], LineBox[CompressedData["
1:eJwVlXc41nsDxh9UyMzISLKz0yAZ3V+eSmmdpGgPIqKpc2RlUyidI2Q2pZJX
i47MOPImo+GUiEcKGfF79sDz9v5xX5/r/u/zx31dt/7hEx5HJGk0Wsmv/J+a
FR1+x6YmMXI7Oyz/qjWRfGtjHzaXQq4WpWn9xZLomuUI4xUpzIovFcgctSSO
MVLVl1Uo1AadEu3iWpCQpf+63NGmwD5sub5Jx4IMXgnf2GFOgd+Wd0ElzYxI
jnxT6LamoKSbVPJxiRlZ5Lql4/syCvkbXFardZoSb6beDpEDhfFLZwL/NDEl
LR5N+002UrCVX5nsNGBC7NRM3o5uofBo1+QezzwTcr0zgf7Ig8Iu34Vpkl4m
5HfvtaZOu391vsz3sQ5jYrC/kdoWQMHR7Wni7U4jkrbIyFcjmELwWMV39Rwj
wmfE/dtzkoL+kgyq7oARafWhv/APpWCQ5+tZ8NOQhAa8jI9MouC9eGdMrJYh
GTA34LmmUEjcE3Lt9aAB2TIWEyBzmUL2+tefZJ8ZEMMTLlv+yqRgZai7zsPT
gLSF1Gncu0Oh2nQx2ytfnxhH19z/0EDhXp8w08NTj6S76C7MeUUhfdzr23pr
PSKUjLp8oIXC5WaFRIaMHulIcA4ZeUdhv1wnms8vIhEpVc60r7/8vjVxHgTo
kneZlR0WNCaoLx5slRM6xNlbm05JMdE52Hies1yHFGuFPSuXZkJmSaNeuWAB
icxbleOixESKTnxaTdICYnrzuY+XLhP0/tyh4Ifa5PzDcm6sExMJGadk/16g
RS4aW6RfI0zsry8JTB/WJJn5hWZla5jYVHSyzKBck5SmJe/9sokJOVnatqPb
NUlP8O6XK/cxkeTz5bpypgaxt55JG4tkwp4k1I3Yzydrik4vloplIrJPpNOh
NJ9s1R2q00pkYlqj7pXTkDrxU+xgrbvEROpcry83stTJ1Z83dt0oYCIzP3+H
14waYZauNd5Zy8QNx3m6Mf2qZMaksiaogQm+RtJ4c60qkS209o57xcTEI/fW
swWqRO+yRkpZOxM2o+s6eXtVyZYTPybnMpgo9Vv67nivCnmwJK2qlsZCrVOd
9wdqHvEt+7DdzJUFvYt9xUHblEnNFeQL17LgL9uubeWoTDTP3B9s2cDCMrPu
cwbGyqTFNvrc8W0shE3b0D1YSmTZC4vCJwdZ6O4pCTN2VyISTbEjzudZkC8o
DE2VVSS7744vV4pj4VhiXJPcgAJ5muwdyUhk4SrrxTNGlQI5utFaOe4SC8Ji
lmHSKQXS0dFl25zPQsAPPWZxrzwp6LaJ8ahi4YiiAs/nlRzhV+W+NqxjoSom
/XzjHTniUTBHjdPAQiWvnX4sXo7MPtRTlNXCgsBQ3iLZVY4EDSa96fnMgnv/
/N7h+rnEkerV8Bew8DSqfVvuG1nyaU5aabgdG2z/Y79JKMgQSv1W+yoHNhIl
3s5xY0mTucZ/T/Kc2bA4EP3Piy5p4kT/vixkLRtZv18LsLkrTQrPO1cEebKx
kT5fftUaaeLHH6/dd5qNfKkP1OHEOYT9Y8tblLIh2He3eLXpbKIg8GVOP2Kj
+A9BW7rqbGIiE65a9YyNCyUZy2aLZxFvk7s77KvZSL5oG7j931nkxWFxl80b
NuqWyfZFJM4isd3/+ao/wkbJc13d+jEpMq9VmS1lwsG2tiOxJu2S5PWfjk6q
5hycHW1OaqySJPHefvEG1hxkqptWR9+XJPyBF2oudhyoLEnL8UiUJL1CP9uo
dRzsVJuO9YQkKTGt/p3vx8GckqXvM8slyLr4AMHYXQ6a7wWJA5/TCM09w2Xq
AQd/nG66vv0ejVQq1V6QK+Mg3e0lzyOHRqxy1bTNn3Pgbp0leTWCRtQe1zr4
N3Pwj/3DzfquNNLfpx7RP8zB2wgGx/emGBGOL2c6zbi4ejJ1j87UNOIDB7iF
VlysmIhKzfs2jdRrsyYClnKRKKvn5Ng6jTzeur5pey6Uecq27wum8eJJS63x
ei5Em/TD/enTEFp0Rp/146JC8DWEeWUKoTrDkuq3uAhpn3BYQRcheqOsqLeI
i/NtuVJ6S0RIDjNnFd/nomp3kaHRAhGyPwUNOD3m4rnHhfoQlhAVGVSDbz0X
JlGmE8vuCMGVF8U/7ePizuEIVZqCEGenFaQ9dXhwLN6k/3GMD90BuskJPR6e
SLCvKn/mo6n53NqLRjwcyXhtc+gVH5oZ3+PqLHlIqai2c7vJR6V5Nc3KmYfH
1rKmBrv4oHkHCWfv58FJYnKIes3DxcevxysKeeg9Q5ynqrlYnk1TeH+Lh0s/
Kp3fPeSiJ9LO8uddHlhpDszKfC6sNtwMNCrjQdCSNdUQyUVH37mh9Doedq91
cX+0mgt1BbP+gH4eqIxPK/oaOLjun/RhgSEf2yPvfHj1mQ2Z8KMthov52Hcz
rG3m1+5OXtrw0sKCj5fXzqSsqWUDz+TKHJfz4T0WzBHdYqNXMj1lD52PP7uC
9TWPs6FTkO2a68MH549vRqxZbGR/uFemfZuPvw69DSlyYiHd5U2qlrEAMqvP
iOQ7KKyrubW8x1SAbby2s2pNFKYcwj8XWAqQ//qvIaMqCkdXmJsarRBAOpQf
d7CYAlmc3GBNF4DmUejnEkNhUn6NkH5IgEehia7XV1DY+umF//F8AewSpXZf
uDEJxRMPXBvUhWjV8Sj4YTiBIzezlD9qCZFM7DZGqEygqjOud2ShEJutmpN0
JSYQ4LQ3TMVEiIJ4ncNXen+iUVbh8SE7ITLnR8VY5/xE2O3j+jQvIea9KRfb
qv3EYNdSmnO2EKtW5l+fUhlHzZrn1eXaIoxa1C/tXDkKn/4cxwRdEW5qOSg+
MR+FTFTk39sNRIj44snLWTgKjwrXZ5NmInw6ktiYLDWKQbPWEvNVIuygnuh3
t49AUelrboGXCC2e11q3BY5gf5dcWGKGCPTBbj4p+oHp4AN2OxWnULTxnqm+
/TAO24+nzFOZQmwwXS7YahhNkuH9b9Sn0KVS6FtnMIxLWZmp9IVTOHW2eH+k
wjB061u/2lhO4dXpfXe3DgxhtZrTZTn3KYwbu/psTR/C+UrN4bqEKRSyaman
TgxCQvrdNYvpKZQlzMzPrv8Ou/WnX7rTZhBnEeNZGD0AYU/JsDpzBvF3Dlrt
Ke/HmqDm9M3cGRxkuixkl/YjTTRgnyCcAbdTg3Hlbj/0tBdcYEuKMfJ4U2t3
dj/cvC6YvVcVY1/Kjdbi8H5kvD0SmG4rhlro2qeGrv2wbtIdm3tOjJp/auKj
3zEQusMhwzVSDJ0oh/8+aGGg/tsOp7AYMY5yVA50NzLgKZWW+uOCGL+5vT/h
VsFAOBFZNueI0bZoU7VHHgPNlR+DE6rEWKP4x/tl/gyouLPUq+vE6P8ZfebG
QQb2dinWsBvFePNbsbnabgYmeGsVfVvFEBzd2DF7MwPzbZ+Wuvb+8p3Jy9Ja
zsDBxvadYV/F0Lu99HKxJQP3to/OPBoUQ71jdayjCQNOpw226k+IUf5p5eZg
Lcavn1nN82aJkRXnryuvykBH+q7CdJ4Y+m5ZX0rlGdDWO+vWLBLDdfnppB1z
GPD5T/qEWCyGrKBIk0Zj4H9YClKI
 "]]},
 Annotation[#, 
 "Charting`Private`Tag$14121#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, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}},
 GridLines->{None, None},
 GridLinesStyle->Directive[
 GrayLevel[0.5, 0.4]],
 ImagePadding->All,
 Method->{
 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
 AbsolutePointSize[6], "ScalingFunctions" -> None, 
 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& ), "CopiedValueFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& )}},
 PlotRange->{{-1, 2}, {-17.48005435155371, 15.29221709359486}},
 PlotRangeClipping->True,
 PlotRangePadding->{{
 Scaled[0.02], 
 Scaled[0.02]}, {
 Scaled[0.05], 
 Scaled[0.05]}},
 Ticks->{Automatic, Automatic}], ",", 
 GraphicsBox[{{{{}, {}, 
 TagBox[{RGBColor[0.368417, 0.506779, 0.709798], Thickness[Large], Opacity[
 1.], LineBox[CompressedData["
1:eJwViXc4FfofgE+EEBmJY4Sy9yyE71e3Mi6SEbddKiFUaClZGS1EhKy4dZOs
bOWDcG2Hjn3iDJusIw4qv/v7433e531e2Qs+9pfYCARC6X/83w1nZEc2N+eB
Z+2NGIFARQor+tY3WfPQY79G/oeDiiKfWlXMLsyDYT1nviMvFVl/8o0boM2D
aV1rQ8kuKuomNpp//DIPnjwdNanqVEQlexRcjpiHfsd5Hq5TVPTTqji4nX8e
VL1+nrOroiK9/eZyKVJzcInbcad9GA1hEBx5LTQLYe+G/jT2ZiDNjLdp9irT
YLw3dokaMYb0Xh3N69szDb902/xIMWPI6OXq51MS00DHtLaGpDF0JMb82+Xt
0/C9kiRc934MnQqakAiYmwL2qbfPt5DGUOQ5xaSsoingOnxALJM4jugyb+OW
jaZAwlW2OqpwHMVnvolM+HMSGnceyHT8MYFctOSt7vwxCYJll3zaCZNIErJ4
Tx2YhEV/p1nb7ZMom5LxTFZ1EiSPGYte3TuJikVT4nN5JkH6G1NPwH4SkZ9G
Z9Q1T4C7Oqmfq3ASidy9XT5nPgE/8Z3WNf8plGBvNXnk0Diseck34t0zqJqf
YllsPA6JU4bB5qozaKzF672s/jjw1OzWcDGYQXp/xHr/lB8HmTfzEYn2M6hb
t3+5kGscPI7xukdHzKAdIpe3SLWOAb/v5n0v5gyK7AsWZx4bA7WPP8R1v86i
u6cqrNPPjkKyQ4J2WskcOvde9pyH8yhIHidEkRvn0JH1KF/9o6PgFXHPRrx/
Dgm9PJHcajoKtrPPPcnrcyjn68bEqtQojMsmyXGYzaNBK9NQOwoDnk8nG3qQ
5pGR4ZeKLX8x4PbCUuPM/QUkE6na3mbHgN9kEj02YgFx9sVREy0YYBm2ymcW
u4C6/S5yaRgwID1Bva4yewF5FHA4nRBlgKaf3qpk2wJKVrRYKOqhQ9EnZvBb
yUW0IdKucNGeDh9iLuhoNyyiC9wjj5ys6PBPdoDJSOciavm5MHfkIB3K9v1I
TxxcRMmMnWXKOnToW6vNUlxYREaFp8znBenAsnI1bJRYQretZ93udtHAqlYq
ksd/Ca2E8L6LsaPB3HWjWkktJjpzU4ovxIIGueG+2rrGTNTornndF9Og16CO
6WTBRAl2DobHtWgQ8utHSc05JtLfndIsIUADwkigqvpzJvKrUJl+00kFaR87
uRurTLQ0b6n62ZYKtCym3r62ZVQt4KNpaE6FMkJXAf/AMorSjtctQVTozhgS
XB5bRjK+wwc+aFFBLEyvfWxzGdms3LBOFaKCms1HPTe9H+jY2v6h9dwRuO5w
Inkp/QeqFqKcDfg0DGIWn/dWBq8gJ0eFK74fhkE8Tb/UKWYFzb64ds0zbRjq
RDjqCekriEjkCD4ZNAxPhS7nP/y0gvykNV4fODQMhj4pZ21YK0hFLWh0o/Ub
fCEtJE7dWEWJh+Xc7w1RoLOAI5zXn4VyciV6NFsp0OpIGNaOYKFqYWEzRiUF
8JiRvXcSC43TthCtkilQajGgrFLNQnqBI02if1Eg/oIyvXDbGuouTVb62DsE
njIBPPKv1xCfkuDkVNcgdL2sMmqdWEcy0dscU2sH4VDELIHr1zrSW9kEu8JB
UP522O+M0AY6VT+XWBYzCN7OBJ3zJhso51yb+cOjg7BSV9tdFb+BLJIi3sq0
D8DTQNL7HxY/USjP78vOTf1wzSU3htj8C51pkxCWqegHMVHFs0+pv5DBM0OY
fNcPOSrvqdKsX2hO0F/07uN++Ce/dzRT8Tc6QZz995VtP7Bs+91lIn8jLaVB
JTq5D+qjTIgmRzcR5XDp9FVaL/w7oSNLDyDgMi5ygn53LyQRVs0aogj4efPi
wd91vaBCyGNVJRKwuY16SnR2L+xj528a/UjARY7Zfxa59UJJqryb0ncCjnR9
nrv6vQfedNRQX7luwfrB3t4h62S4lJ/Oun+eDe98MlKVOEMG+5b89Z7rbHgp
wY77A4UMjGcHg46EsOG8XJ3svmoyfC2mzlzPYsNK/SsDaqFk8LpbjFnjbFhS
88HhPl4yXO3Z3bt8gx1v/RYtqSb1FRLPPtpyIWMrpk8QPMz4v8KoV3y1afFW
XLt0vez4Zjdk8OexGzdtxYHbHO2Dad0Qtuvi6aSFrZilKxbZ+3c3DCXDtsmD
HHj2UQYzSKMbvluYee6e48BfDQpbelAX3DZJ0vY7z4U13DsD3mh2gTK7Q7jC
PS78KOm72i3pLnioFKDDl8iF8bpytNgmCQJyy2butHPhvKrXDierSfCeNjVE
M96Go0zjKVRjEni6qPgHKHDjUe+ip4VqJHhNDO2qPsSNcTrJNESSBILagdvN
XLnx903iQXNWJ4ydtZTmyOTGTSG8rW03O4HpveGZKc2DAyPnKH2+HRBqOyDM
UObF+lMq6I5DB8Q3iOj4W/PiWUu3THHdDuhaEyhz8OHFf/FSL51eaoeRGwsD
ayW8WO9Z1xz9WjuYcXIWc5pvx9NxxYQ5rzaQT6DZCt/hw07pd+W2XmmBXIH2
xiYhAZxcws5FsmyBXunOh+5KAni49clUimoLJCue9DExFcBXWGl5uvPNQKLs
ign2EMD3jn0xcL3ZDDlXSy9GNwjgbPbtNnVhTXCy+Cz7tXBBPEV8ofnschPE
EaW+paULYg2t3UInLJrgQ09aDV+FIC4/pdW3yPtfX3jglT8riFtLHM/Lxv0L
+Vqm01LOQnjJLdU/KLMRhEQ7uF8YCuP9gQou1qGNIF04WYCdhfG9+HwjsUuN
wPWQuGjiL4w5a2s385Uagc3J4JZOkTAWFx+PGslvgLBvJa3KWjuxWZtGmml1
PRhryuilmojgcHpZEE9GPeScpnjuOC+CW1jYtTf4vx/c/nUmTAQ7yjsoeR+u
h/TtdlnT7SL4SuCtotS2L8C2V7Jh36VdOEarpvHnYB1QLB4qjeeI4s7YrGuo
sg74LjpEJg6IYn5muHhIUh2o/0j4ML9NDD8usfHmcqmDLofmg6/dxXC40ZCI
UE8tiHA6893WJeKGlGpwLK4FxCbq3ehGxFt/ZbonxtXCjgcxePAVEQfDlc+S
9rXAEDxS48otju8dWrmo2FkDxFFny6BZcVz19wC/R14NBHrwhAYoSuB1zs/l
uU9r4NZJ8YELrhL4VnPodh3rGqBKdkttH5bAjFd7rtx5DhBFxD+9RyRxR4EL
Z3b4Z3jyiK5iLyaNrX2lTygf/gyqM/rcIpekcbP++Ic89s9w84lbif5HaVxf
6etUEfQJwh/8FhlSlsEV9c+yO+5WwSqNGe/2VQbvi3BiORhWAcvAba1tUwYX
W0paD6xWgr62SQuvuizO63jHZPhVwkvnt/Maj2Rxdn/9wTXvClCjXN3fcnQP
3pPyOCFQvQKeaZh7lofuwemn7afZZ8shNkQysqJ8D06mj8Tyu5eD1PhbYVGF
vThmdp2617UMCsjOdUd2yGH+/Fq9d7JlkPcu06XLWg4/vh4ZqUEthSvGLUHV
j+Vw+IqIluHpUji02r1vkU8eBxC0H9g6l0DcOf9ydXkFvG3ikAunaAn8UcmQ
o3op4Ph2F+3q3mIgufiGOJUr4NzkIIb68WIY37wz2WqviCl6JHM+p4/QkHGf
MZOuhK9IjMo07PwIsVHxASUsJby8hbV2j1wEWbv8eKkOypivUzp31qEI4mxa
DD4JqmBTdx+BNvtCeGFIlknPU8UtR0OnQoUKwci8mH5TSg0f35dYd6C7AEr5
w1gZ0WrYhx383h8rgLQTJqpRgep4Y6rbxlWwABLkQhZSNtQxf2a7zb7X+aCY
olqdc08Dt1RUGEY8yofp7Jd3U19o4P8BhmveBA==
 "]], LineBox[CompressedData["
1:eJw12Hc8lf/7B3BEych9jmPvmYRoKIqLdrLKTEOhZEcSGkZWReXTJCSKojKy
QrlEhZCVnTPMk3PKSJr63r8/fn+dx/Nxj8f7fr9f7+tc963iFrD3KB8PD89O
Xh6e//v9U0xrZK0ugLdGiT0j4QZ4/HTOMsnMApC4/GPusLkBSttPZxCUQlgX
RFvQ4DHAs75XDSX3FsKTK5kmc6iPW9PfH1XpKoTWK9rddjv1sXNhS/363iLY
kijMTOrRQ0Mp1n4TmWJQ6Y3NFAvUw9RVkbObXYrh4vPL8r6ieuh2uFrVerAY
NvT9MwdrXZypXRvlwXgOTmf3RB7nrkTH/g5pb5USmLU73dmSuhIrZ04UBriV
gIrE6m3bLVZitNpTevhICSwccZFUK9BGSqyGafJEKRQFs4ozr6zA4PS6j7dW
lMHMox5GvsUK7C094pfmXQZCjmu1tgmuwMyx9LRcThk8uPJHhRuvhfo7JX+/
nCoHhWU6Anh7OdoIL6n4/OMFMPwoa7ymNPBWhbDN3XWVIOI+yN5Xp4FDR4mx
3UGVkF2SFyh/WwP9UYb2dLISLmjdaecx18DEUzonAoaq4K/9fZ+ydHXsUjVY
oixXDZOn4F12iDrKta3LaHOqht+GG5w32qpjnjY0G7RXw/HoKgdnAXVsoO/R
+lb3Eo5zM/sHQtSQSHKsecDzCmD/5FS+vRo6Ge93dDB5BXPtX/kF16jh2A2P
mLKyV0CUX1jvNK2K/BanGaGPa2CyaunTPydVUdnFuvn8O4S5fxWGi66qYH1h
m1TPKMKAx1tD02AVPL7Ezn0Vfy3MTJ/cPrBPBQtKnH7RzWrB2Dkkfo2mCpqK
HdEyr6wFDdGP65fXKeOB+pMxi56+huE62oYUEWXkkfv+Yf/71zAh7kLd9EUJ
HwSGypWwX4PEpYLTXXVKOKl4rthDsw6mHjvw5p5QwvCwOMabe3WQoarSl9im
iCl6KZsS/qsH6ajZMJdcBdxsXItez+vB45Wb884oBeRsY2/d3VUPFcG8k8/3
K6DZQSOrZZJv4PVgHvGbooATl/sO3kh5Aw5Xc7NEYuRxA1smIjPzLZytPRUe
eVYOWd/MF0XXvoXXfUWKdgflMJHHO96d9RZ0vK7mxZjKIUOq8qqm+jtQLq03
XuCVw4TtLplPct/Bg42JASpJstibnVpb8awBPPktOLPFMhhd8Hpb6ocGUCs5
fk8oRQZ1qj43nplqAKNtie3eETIY2WHcYbq6EXD5rR2LrGRQi3eAVV/aCO5t
4Y0hk9IYekiOv726CfYKuDVfXiuNUjJp29lNzVC/Z1QrdFoSK/9TSDCYbIZX
TS10S7okHhC51xgm3ALXl335YN0iiVn/7lsKWbaAX3y+dO9jSdQZy927sqUF
7vRF80x7SKLZ8+eH/D60wq2WF+6NLAlk6azLLP3aCsE8u5+t7pTA2Jwy5l+x
D6C+7KVebZ0ENqW88Lhi+wECO0SlLR9KoENkjXdB+wdoyF5HF/WWwNKco1U/
vNqAqX7Pkv2ThnHumoPy4W0g8CS29hSHhs7K43/MLrWB3Mzl7Sp0Gv5KOW56
Ma8N1pieXdlVT0OzJJ9amck2+LDT3C4zmYZNJwPfGfu2g5f3QmGSPg2HzM51
nvXvAH59356OKHGcyJIquXyuAzyjeaRcQ8Vxhr/4RmpiB9gUrfy64C+OSxrH
HCryOmBnpnd16AFx1N9j2zs71gF7/w6ust0gjtFH1D55u3bCSO0rD59ZKibW
vXwZ5t8J8ncZSxUnqXhLwzkj4Vwn5N862c5kUTGfneiac7cTPJYGbUzroGJX
4Hcms6cTVPjEqnuLqagR3TjmbNsF52uk+u1CqKg/4v7O07ULKl0+EEsDqGi8
fSE3xL8LRpL2HG/xpKK10BqvG4ldkGzftPjCPiqG/Jc2+aGhC5guRVMZJlRs
yAqY2m7+EVgSV4SiBanoWyfxa+3qbuCXFJK0eETBn//4Tids7obDN6ZrjLIo
GLdpanZgbzeEFpc/Xp9GwfulTdzok93wcVdt38FrFOzOjWC2lXSDQeTzJXvC
KGieyG7wXd8DVfeehL2yomBrQ/c23NED564WasbvpOABgfrX4s49gF+k8w5s
oWDI+YzqytAeuOV0Y1jXiIJPTtgVClb2QMms1J9jGhSUdHh5+8GmXviq8dNb
jYeC2cl5tB+WvVDK7ble+JtA/dbbybsP9oIL54nfrnkCd+8IujxzrhduL8zP
pH8hMNJoeYRZTS9MsUzi2z4ROKmQfGzQvA9uVoqlW78iMNTl/PCqvX1QT6On
X60kcPFtn8MX3PpALN/NbaCMQGViu4v2hT64fPkX7/UCAh35fluF1vfBTGLe
uqj7BOKYxzrajn74ZrOx0zqewLiGlUF7HfshvudevHcMgZZ5M8+uHe2HpF7V
n1eiCOzzi9QSjekHA76Q6ekzBM58uyu3uLYfpo5F2CgFEqi+qJP3h/EAbL17
k0UcJPDzSIqpocUAvOld9ajEhcDCt4fPBO8bgBMHWAWHnQk0ufTl29TpAWB+
vufdbkeOjyI0wS4ZgCeryrtpuwlMUDJvHdAbBClnHS3FjQRa8woKy5oOgoM1
TWGLEYG04dYdzlaDEJ0k8C1gPYH3cw7UdvkMQmWX5xrmGgIrdUNLWh4NQmyo
op+KLjmfYjAtXDEIkW0pYzErCdw+LaBn8W4Q5lZby02tILCz5Hru29FB8DMs
ffBJk0DOxoLUGtVPEChTgzQVAosVQnr+GnwCmf+y00qVyPn/t4m2yfwTPHpd
Qj2kSKBAXVNShesnKFaLfPVGjkBFi7HIorRPgD/Di75KEjiy8unLr/mf4NcL
9q9mCQLzRIN/6VaR15vw1RXRCDRs5w3O6/sEz38J1iVTCbRxVvDMlhyCpQF/
DPKXEUidvsZ3U2MI3AzFbzeIEth1kT8jbu0QpNR/k+WKEOhSNdnltXcIdEEu
ZLcwgfL2rif2HxkC8XDKrlghAumcDmGrE0Pg+mft6rdLCfRQrNysf2UIlC6t
h4OCBGqW6w6ppA+BZpGr6/MlBLJt7oeJPxkCPdMdVwjS/lEJhd8bh+Di01IK
Q4DMr+yf3RO9Q/Dhq5z7XtKzxQHjfeND4L6F5+V7fnJ+RhwVXwrQIXq+NaZz
EYHG55pePKPRIb9Yd+oI6b8Spg6ZanTIUZs9NM9H5vFZ0VTyajoQtUvarpOO
3qGReMGcDv2nj21eT3or487yU7Z0yHwgX8rkJXBJmEjdMVc6eIpaLL9OuokS
ecjZnw5jA8p3dpNOzJv9uescHczujC4WJm29xfPmxkQ6rFX/GtTOQyBlsF9f
9y4dWspyBjJIdwVbNyvm0SGuN97sJOlboq89iRd0YLkq37cm7ZyzbhFfAx0u
+RN/9UnLweOM2W46tPkL2cuSHuqRNx4dpUM5pfOhEOnME9c+dn+jQ6CV+Qwv
6SL+6A0jvAywOWBqxEOa2r5x8cGlDNCrfhMuQDo4fa7zI8EAF73RMgrpj14F
962lGTBeXs1VJ21o6BXwTokBkVnnlYD0HT41E7PlDCg9F2B5mPTP1kGhF3oM
qFQeC04g7XL3Vq+BIQPSnuxOKSdd5Wmbk2fCgLkrcpVc0vJrhYLVtjGAFjvc
o03Oz3meevM0Swak3tsy60+a3nxOTMKeAbe2fxGpJG2Wsv5T0n4GiJs+0hAh
1yPr6HTeYncGqOfvND1K2mPBY/uPQAZ8i5wL0iHX902TIi0wjAFcS5HkVNKa
t3uZ7EgG2LkpPhcj88FeZXlu4CoDvlymCYqR+bH4I7Db/jYDGojbJimknzTU
SLdkMCC5fc9Z7cVk/o6sKXn1lAGFRWFybmQe23S5UetLGZDlJhshSObX4FeOTWE1AzrjXWZKSX/7T3by/nsGqAx9WaZJ5j+snlc1lk0+D4vXaT+5f+QXRkwy
p8nxV90ssCL316v1DfuqfjJg21FBn51iBPLnX0meXsqEF6d6JJ0oBF5LluM9
pM2EH/NSGX3k/l3zfkE+bDUTQpRGjotJEdjNz9pww5gJk3vGiqykyXyEPjrR
ZMEEre8mrcOyBOYcWscw9GFCcpLqgxBlAnfdkf6z5yQT2IsaOqfI+sJp/y3l
d4YJu073Z59UI59n22ub7MtMGLQK33CdrEfVK21qxJ4woS3zMBqT9azzx/GM
CQ4TfFTnCf1NBIastqxcNMeEGrZovaEpgdK+q7oV/zIh9tnLwO1mBB6iz4k6
iLKg+1daT+RWsj6/iT5Xq8sCvTWbr7pZEchzPe1Aqj8LgiI2aDEOE5jdHBFa
GsKCGQd5dpg7WS8Xu99oO8+CSzFmigrHCLwctqJ58VUWpJkfEIz0IVDycNnG
kwUs+EmFvooQAnV122Qtp1gwGE5vX7hCoK9R5q3BefL4Itayv8nk+m47QfX7
xwLPjrdi/DcJ1D5ECF1ZNgzrVb2idO4SqHXV9ucHnWHY2mGpNZFLoOp0W4+d
1zD4lSYT4nUEHvmbaTdyYhhEE8RFst6S+21p4Ifg0GGYf7fgbdxEoJIq5d3N
+GGYVbofEd9OrrfdnrKeh8PwtO/flhsMcryl7Tf2s4bh6NNdJdHk/7ND7X2C
wx6G4qFXvk/5KXijJTDx7PQwxCSLW7IEKSg+RolJ5xkB6Wtlpd4UChJSe0/S
FUfgjFZb5bwqBYXCOva47x8BHeoBazGyX1jY1LnMp4s831U16kEqBSPKmnvT
B0fgfQHGPs6kII/+26y2kRHo8nAZrs6hIK/aC0PDuREQfJIoJvacgvxL7x3i
lRwFK9i81KOZgsIfvZ/ddhqFpUpWtyZ4yf7M2iO0yXUU4uuX9dPJfkik4eDm
v56jEMQftWFcjIrLqmy73UJH4XO4R52mIhWp9w0XdFNGoSrGK9V3IxWl/fis
6/tHYe1WV1GDMCqmjP2WmmeNwhtxh1yjKCrKHp5jrpgcBc35gXj7i1SUs5s4
dfX3KEhXZlXUplBR0ag13UV+DM44n9p4vors9wRSuVMHxyAq+E/pAz5xXJ1u
kKTAHAO9t3tmvmaKo0FQ1GJt9hhkGPaYH8sn+88d7RGG02Mg0hcm+K1UHPWm
TwTZ8I7D05RgluN7cdTeVugUpTIOvgGOlmbz4qjK1VMdPTIOxfyH+frsaKjy
+vzdaa9xSJv3LBt2paHy7VbaQuA4ZMUFTCz1paGiuf8SqehxyAnXnXwcQ0PZ
m085O7PG4fYb23yzchpSTHTKn7DG4Uu4N5+YqgQS1LP6Lz6Pw7LyO/bfV0ng
svH3j9/MjIOU8YqtCyYSKJLskzbENwE+hkZBgS4SKDiaF0WoTcCW2cmMrzck
kCdphWWw+wQcOslj+JCQxKlBTebGkQmIgCE1TU0pTIxxr3w5OQHHF4JFitdL
4XKdzOswOwE57n+veO6SwkNnZLZv4WND5r6b3nv8pLBZRiTfQpkNCa91DFeV
S2Gu43TwvgNscAw1/3DNTho3L+haD7izwSDvEPzwlMahh97LD/qwIWV1Udx/
Z6WRNjfcdzicDeLanF1uOdIYfb3b9PgdNmSI3JaP/iONh9qqBE93sWE44hrH
67kM/jr9g/ljgA2tAang+F4GbyqtqwofZoOPx4byqGEZbPZ/5nd+hrzf/rzC
FJosGove74glPoPj8UjaRJgsSljEpd2w/AyGvd+1mHvksHD69SlJ+88gZU5d
a+gvh5Yp/6zv7P8M9y/8Uxq4JIfRE6G8ad6f4Z9i9nWZN3I4FedzLDuBvL5u
wDjJRB6b62z1i+vJ48T45UuggI97y5y6mz+D2/uLtKMeChjHlY/41fUZLnK6
9F5cJN9vpdgtm0c/w0pzYbmejwpY4h3l0ykwCR41Rko6wYqYRinO+bZ9EiyS
cyei3ythmKZ0q7TNJNhlv/+p8VMJHTeen9vkNAl/Xkorl4srI3HUYmus5yS8
yRAVXNisjDEVLKZEwiScqnLqqHiojL6u4grrGydB9sHyp9nnVHBXcNjW/e2T
IOmZkRafqoKaF+k+EX2TMBbGx6WXqyCjOL/yHXsSHgc0X/gxq4L2i7c6Owtx
wEFEdpVskCoayOVFnKVygNe/YvP0f6q4TJ/IzZTlgJCdTbV9iSo27Bucm9Dm
wOJrtu2tP1Rx09Pg62G7OVBjk/dmPkENZV73V6bbceBVbXhyyjM1/N5txqrd
z4GgEPOJsS41LOQRNRDy5UBwh/zpW2rqqG7/sDU1kQNVmlK7OhrVUfj3x6XV
LRxI49YJ55lqYgxLK9nhIwf2BsaXq/hr4kLjGemvgxygtl6Pi87QxKk7KstV
ORyonOqOlOVbjt2GflsThLgg3JSdF/BxOdoq4nsVKhfI15bUXyJa2Cggblcl
w4U2jUcCT7ZpYXVXxZEvWlwoL55Zk1uphVlB/BH2O7ggvcSqRqpkBcq7OC3+
Ys0FJ+MCHu7cCrxpnpcU78gFsUaPZyZG2phA2KZVHuUCfUfR6th6bfR/dveF
cgwXArrTPhp/XYkTN7+YVV7mguh0JuuUqQ4eOWfeYHedCyfEYnwfXtVBe8vx
7rgsLhjUGFjpbtBFo8+rv3GQC44rX7kuf6CHxe2xZ+IauBDVFkvfIbAKdV70
8im3ceGCRPBZMa9VqJhwnmJH58Kcdnd/tLw+3glov8MZ48J34/SbFXv1keKk
rhz3hQu2gg0fz1/SR37NJr0Xf7kw7NM1uuifPp4XVSjbK/AF7hwVpk9sNMD5
bwEmHJEvMBfc1ZcXboAvVWanZ0j///fG/wEdTP0d
 "]], LineBox[CompressedData["
1:eJwVlXc41nsDxh9UyMzISLKz0yAZ3V+eSmmdpGgPIqKpc2RlUyidI2Q2pZJX
i47MOPImo+GUiEcKGfF79sDz9v5xX5/r/u/zx31dt/7hEx5HJGk0Wsmv/J+a
FR1+x6YmMXI7Oyz/qjWRfGtjHzaXQq4WpWn9xZLomuUI4xUpzIovFcgctSSO
MVLVl1Uo1AadEu3iWpCQpf+63NGmwD5sub5Jx4IMXgnf2GFOgd+Wd0ElzYxI
jnxT6LamoKSbVPJxiRlZ5Lql4/syCvkbXFardZoSb6beDpEDhfFLZwL/NDEl
LR5N+002UrCVX5nsNGBC7NRM3o5uofBo1+QezzwTcr0zgf7Ig8Iu34Vpkl4m
5HfvtaZOu391vsz3sQ5jYrC/kdoWQMHR7Wni7U4jkrbIyFcjmELwWMV39Rwj
wmfE/dtzkoL+kgyq7oARafWhv/APpWCQ5+tZ8NOQhAa8jI9MouC9eGdMrJYh
GTA34LmmUEjcE3Lt9aAB2TIWEyBzmUL2+tefZJ8ZEMMTLlv+yqRgZai7zsPT
gLSF1Gncu0Oh2nQx2ytfnxhH19z/0EDhXp8w08NTj6S76C7MeUUhfdzr23pr
PSKUjLp8oIXC5WaFRIaMHulIcA4ZeUdhv1wnms8vIhEpVc60r7/8vjVxHgTo
kneZlR0WNCaoLx5slRM6xNlbm05JMdE52Hies1yHFGuFPSuXZkJmSaNeuWAB
icxbleOixESKTnxaTdICYnrzuY+XLhP0/tyh4Ifa5PzDcm6sExMJGadk/16g
RS4aW6RfI0zsry8JTB/WJJn5hWZla5jYVHSyzKBck5SmJe/9sokJOVnatqPb
NUlP8O6XK/cxkeTz5bpypgaxt55JG4tkwp4k1I3Yzydrik4vloplIrJPpNOh
NJ9s1R2q00pkYlqj7pXTkDrxU+xgrbvEROpcry83stTJ1Z83dt0oYCIzP3+H
14waYZauNd5Zy8QNx3m6Mf2qZMaksiaogQm+RtJ4c60qkS209o57xcTEI/fW
swWqRO+yRkpZOxM2o+s6eXtVyZYTPybnMpgo9Vv67nivCnmwJK2qlsZCrVOd
9wdqHvEt+7DdzJUFvYt9xUHblEnNFeQL17LgL9uubeWoTDTP3B9s2cDCMrPu
cwbGyqTFNvrc8W0shE3b0D1YSmTZC4vCJwdZ6O4pCTN2VyISTbEjzudZkC8o
DE2VVSS7744vV4pj4VhiXJPcgAJ5muwdyUhk4SrrxTNGlQI5utFaOe4SC8Ji
lmHSKQXS0dFl25zPQsAPPWZxrzwp6LaJ8ahi4YiiAs/nlRzhV+W+NqxjoSom
/XzjHTniUTBHjdPAQiWvnX4sXo7MPtRTlNXCgsBQ3iLZVY4EDSa96fnMgnv/
/N7h+rnEkerV8Bew8DSqfVvuG1nyaU5aabgdG2z/Y79JKMgQSv1W+yoHNhIl
3s5xY0mTucZ/T/Kc2bA4EP3Piy5p4kT/vixkLRtZv18LsLkrTQrPO1cEebKx
kT5fftUaaeLHH6/dd5qNfKkP1OHEOYT9Y8tblLIh2He3eLXpbKIg8GVOP2Kj
+A9BW7rqbGIiE65a9YyNCyUZy2aLZxFvk7s77KvZSL5oG7j931nkxWFxl80b
NuqWyfZFJM4isd3/+ao/wkbJc13d+jEpMq9VmS1lwsG2tiOxJu2S5PWfjk6q
5hycHW1OaqySJPHefvEG1hxkqptWR9+XJPyBF2oudhyoLEnL8UiUJL1CP9uo
dRzsVJuO9YQkKTGt/p3vx8GckqXvM8slyLr4AMHYXQ6a7wWJA5/TCM09w2Xq
AQd/nG66vv0ejVQq1V6QK+Mg3e0lzyOHRqxy1bTNn3Pgbp0leTWCRtQe1zr4
N3Pwj/3DzfquNNLfpx7RP8zB2wgGx/emGBGOL2c6zbi4ejJ1j87UNOIDB7iF
VlysmIhKzfs2jdRrsyYClnKRKKvn5Ng6jTzeur5pey6Uecq27wum8eJJS63x
ei5Em/TD/enTEFp0Rp/146JC8DWEeWUKoTrDkuq3uAhpn3BYQRcheqOsqLeI
i/NtuVJ6S0RIDjNnFd/nomp3kaHRAhGyPwUNOD3m4rnHhfoQlhAVGVSDbz0X
JlGmE8vuCMGVF8U/7ePizuEIVZqCEGenFaQ9dXhwLN6k/3GMD90BuskJPR6e
SLCvKn/mo6n53NqLRjwcyXhtc+gVH5oZ3+PqLHlIqai2c7vJR6V5Nc3KmYfH
1rKmBrv4oHkHCWfv58FJYnKIes3DxcevxysKeeg9Q5ynqrlYnk1TeH+Lh0s/
Kp3fPeSiJ9LO8uddHlhpDszKfC6sNtwMNCrjQdCSNdUQyUVH37mh9Doedq91
cX+0mgt1BbP+gH4eqIxPK/oaOLjun/RhgSEf2yPvfHj1mQ2Z8KMthov52Hcz
rG3m1+5OXtrw0sKCj5fXzqSsqWUDz+TKHJfz4T0WzBHdYqNXMj1lD52PP7uC
9TWPs6FTkO2a68MH549vRqxZbGR/uFemfZuPvw69DSlyYiHd5U2qlrEAMqvP
iOQ7KKyrubW8x1SAbby2s2pNFKYcwj8XWAqQ//qvIaMqCkdXmJsarRBAOpQf
d7CYAlmc3GBNF4DmUejnEkNhUn6NkH5IgEehia7XV1DY+umF//F8AewSpXZf
uDEJxRMPXBvUhWjV8Sj4YTiBIzezlD9qCZFM7DZGqEygqjOud2ShEJutmpN0
JSYQ4LQ3TMVEiIJ4ncNXen+iUVbh8SE7ITLnR8VY5/xE2O3j+jQvIea9KRfb
qv3EYNdSmnO2EKtW5l+fUhlHzZrn1eXaIoxa1C/tXDkKn/4cxwRdEW5qOSg+
MR+FTFTk39sNRIj44snLWTgKjwrXZ5NmInw6ktiYLDWKQbPWEvNVIuygnuh3
t49AUelrboGXCC2e11q3BY5gf5dcWGKGCPTBbj4p+oHp4AN2OxWnULTxnqm+
/TAO24+nzFOZQmwwXS7YahhNkuH9b9Sn0KVS6FtnMIxLWZmp9IVTOHW2eH+k
wjB061u/2lhO4dXpfXe3DgxhtZrTZTn3KYwbu/psTR/C+UrN4bqEKRSyaman
TgxCQvrdNYvpKZQlzMzPrv8Ou/WnX7rTZhBnEeNZGD0AYU/JsDpzBvF3Dlrt
Ke/HmqDm9M3cGRxkuixkl/YjTTRgnyCcAbdTg3Hlbj/0tBdcYEuKMfJ4U2t3
dj/cvC6YvVcVY1/Kjdbi8H5kvD0SmG4rhlro2qeGrv2wbtIdm3tOjJp/auKj
3zEQusMhwzVSDJ0oh/8+aGGg/tsOp7AYMY5yVA50NzLgKZWW+uOCGL+5vT/h
VsFAOBFZNueI0bZoU7VHHgPNlR+DE6rEWKP4x/tl/gyouLPUq+vE6P8ZfebG
QQb2dinWsBvFePNbsbnabgYmeGsVfVvFEBzd2DF7MwPzbZ+Wuvb+8p3Jy9Ja
zsDBxvadYV/F0Lu99HKxJQP3to/OPBoUQ71jdayjCQNOpw226k+IUf5p5eZg
Lcavn1nN82aJkRXnryuvykBH+q7CdJ4Y+m5ZX0rlGdDWO+vWLBLDdfnppB1z
GPD5T/qEWCyGrKBIk0Zj4H9YClKI
 "]]},
 Annotation[#, 
 "Charting`Private`Tag$14165#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, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}},
 GridLines->{None, None},
 GridLinesStyle->Directive[
 GrayLevel[0.5, 0.4]],
 ImagePadding->All,
 Method->{
 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
 AbsolutePointSize[6], "ScalingFunctions" -> None, 
 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& ), "CopiedValueFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& )}},
 PlotRange->{{-1, 2}, {-17.48005435155371, 15.29221709359486}},
 PlotRangeClipping->True,
 PlotRangePadding->{{
 Scaled[0.02], 
 Scaled[0.02]}, {
 Scaled[0.05], 
 Scaled[0.05]}},
 Ticks->{Automatic, Automatic}]}],"}"}]], "Output",
 CellChangeTimes->{
 3.7339617470419493`*^9, {3.7339618368100743`*^9, 3.7339618871178703`*^9}, 
 3.733961934708943*^9, {3.734024737713081*^9, 3.734024749434842*^9}},
 CellLabel->
 "Out[141]=",ExpressionUUID->"de678ba8-0eeb-4a9b-8ab7-24db04ab910e"]
}, Open ]],
Cell[TextData[{
 StyleBox["*2.1 ",
 FontColor->RGBColor[0.5, 0, 0.5]],
 "Se puede asignar a una variable que indique que es un gr\[AAcute]fico \
(puedes escoger la letra o combinaci\[OAcute]n que tu quieras)\nEjemplo:"
}], "Text",
 CellChangeTimes->{{3.73402345187712*^9, 3.7340235587197857`*^9}, {
 3.734023645117282*^9, 3.7340236456621833`*^9}, {3.7340237604880657`*^9, 
 3.7340237707009516`*^9}},ExpressionUUID->"d237c425-e265-466b-8d78-\
d734c8628c35"],
Cell[BoxData[
 RowBox[{"grafA", ":=", 
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"v", "[", "x", "]"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.734023409379847*^9, 3.7340234145365505`*^9}, {
 3.7340235857374716`*^9, 3.7340235883119564`*^9}, {3.734024587760366*^9, 
 3.73402458918239*^9}},ExpressionUUID->"42710202-31d2-481f-a982-\
2483779e8300"],
Cell[CellGroupData[{
Cell[BoxData["grafA"], "Input",
 CellChangeTimes->{{3.7340235640359573`*^9, 3.734023565912531*^9}, {
 3.734024593704248*^9, 3.7340245939087863`*^9}},
 CellLabel->
 "In[133]:=",ExpressionUUID->"aed49bf6-4cb3-4e3a-8561-74f11a0b88be"],
Cell[BoxData[
 GraphicsBox[{{{}, {}, 
 TagBox[
 {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
 1.], LineBox[CompressedData["
1:eJw92nc4le8bAHCjIcQ5x54hhGRlpOS2KRTRltCwMlOhoUHJSmXPVIiIEBlx
Z5aRvcc59jykXajf+/3n98851+c677nO+zzP/d7juo64g8ehc0wMDAyCxMt/
7+GK3JvLJ5+DS2nEtg1hmnjseFre5+XnYH02fHvrNU1cGrRmfSqYDp+8fnVX
m2viXVuWc1b66RDaYUR32aKJhWc8BIuj0sFD8Yznh9pdyOG+N+iqRgboDLKF
H+TbhXW3+09suJ4JX1S3l8b3qaPN+vA3JemZ0EyXc9pRqI5f7umQnD9lgouU
zFHdCHUUC8+sa9ryAgr7LrRTDdXxWuwlpYfVL0DfIXSssEwNVXLIG4RZsmGp
9LVM61tV/KhQZ9eilA2z39anH0lQRbvXvuU3jmdDbwwEa11TxfBiqudodjZI
1nHWCOuq4gzmDmaYvwTjz0dXGFt3Ykr3vtfKj3NgMoSPm+ePCqodW2MbL8+B
4HVc0000FWweyD8fNZEDg1epGo0NKvibyif8Uy0Xxk0pL+JiVNB6bvJuRV8u
KNFNr57SUEG2f7dsjEXzwGX051BqoDLGOR+1lTfKA6N1q46lHsoo2SVvR3bP
A832DcByUhm1s3rPDL7LA48zMbl6KspYmhXzpkQhH1L8+C7wjCsh3WqhwvRT
PvwWztweba6Eqpt692qP5YNbfu1gzh4l9K98X6n0Ix90i5fHF2WVcKNsLPKI
vgZ1l0c5SxuUUPyvbi3V7TUo3ni0MStIEQ+/iG26uLkA/j33Zne7o4BJp26b
nRcvgE0Dn/kczyrgGMWt5ZhaAehfV7ufbqiAHtf1WveeKoC0j7/EF1gU8P4h
esfG3AIoUpxPCX60A9+t6g0kmhVCX9aXGvPX8ihluThTE1oENTvsasX5t6Ng
gPFux7QiWK9b9FX5rxyScp+EspYUQbVDVr3vhBz+YbFSsBwrgjKz1PzM13LY
hiUXR3a9gdBkSPI9IIf+Srf+/pp8A4phV+1PP5TFT5zc3Ao6JSB79uL+q7tk
sGav27n2wyUw1/DthIGkDL51rS/2cS0Bnt9uSjtJMviswfd4eUwJZP5bC7k5
sw19A4ZTTOglYMlY9v1TwjaUWMqQPZPwFi7X3pyeWr8Nr3zShLhvpVDKYTSc
8VUKORTeTH5kKQPj93nU0AkpfB6uFLYiXAafdLdGB3dLYbvZtn5bwzKYr5/S
/lAihdubuC9KxZTBmWrbshPXpZDasJRRoFEOaglD5ansUmj8Pp2jxb8CVO60
jzvslsQRMfE3fyMqQPjhcil1hyT63Ew6qfSsAjRTau+6i0tiGjx+8bipAuys
ct3es0jiyrubeieE38GHVw8dd/Vtxbyyk5en370Di4E6djP/rchXRB5hZKyC
rvtR3FKNEmgTtmI9wVsFx2e3Db6rlMCnZyeb6uWr4Puz2b/nCyVQnqe0NPRY
FajHm3TPJkmg3mW7aJ78KhiUtOB55SmB6klHM6IUEVol5Ru5hSTQ3jbj1IsR
BMPU+ZOh/uIYuF8oPn4W4c35batfPcUxQz2yK+QbwjzTJmtnR3Fc4PA3dWN9
D2bMUh/9rMXxcpW5por6e9D8tm27oqI4hol9564Ifw+pnnbpvVNiWDym39yq
VQ21VvV37tuKYY/JreVw42oIfVUpEnhEDH+8quQ1O1QN/FjuEXxADDWuatp/
cKyGM06cv3K1xfAtl+IPfFQN3y5WfXDZIoalBoJiBTPVMObXULy7bgtWZHy+
GBVVA5tVHfj+jIjiELtC/KHUGvDaky8g3i6Kq96ulaTsGgjz/dd7tEYU98IU
S3hVDfTNPpX4limKlb2DyUFzNXBliEtl0ksUq1gaGi7r1ILuS8rvxyyiWO2S
LHR8oRYCjoTaB+qIYOGsq6vtj1pI8sBTBmoi+Nxpd/kZhjooy5eK55QTwaDz
vSfcuesglGU+vIFLBE0cyAl3tOpAp2nobfm0MLYeD+J/FVYH+q9XqzIfCuOQ
iRsP8456+PvrdpwsXQi/S+/lzHVrgIo1rpq1KkHUHtNrCPFtAHnm2jX7YkG8
m2wS4HSnAYwNL+S25ggiL7f10tb4Btg5JbSrIV4Q1RldWxNqG8B9nV2slI8g
+g7GPQgW+gBqsqI5UXKCuPrgG+fZjx+A92eAwFyyADL9fkkSkmoERkajCPEk
fhRq0fsKio1waeueGLZoflRN6+8+q9kIM9/NYlbC+fHcvo2Jr8wb4XRa+Rl6
AD9+iHeQ0rvcCPxxVb58Z/nxwW6B3c4NjcA7kNgVsIMfha/dPVPi3ASG1lOJ
l2r5UP2fXbHVq2aY/undW8TIh2bmeNvwbTMIhd5JZV3lxTOJWw5qVDeDbovn
h7M/eDFSY2RasKcZ9M5YbJee58VZj5MCY2vNcOD6rfKhLl5Moh2+5mneAia2
YmY8WbzIWL1fL3yhBfQGZ8NjrXmxOVD1U71cK+g4fxhmL+HB3ZxNTA/VWqHV
caT9+2sefBFvr3FSpxV+SMZ0juXw4J1XEU+WDrdCWvD40oenxPV9M978t1qh
JuGPcF0Ecf32ZD6X3lZ4viwx7ufIg3qzt/M36LVBkIknU7kQD26JnP+dtdgG
PLPdNwciuLHSPiCr4GsbPBBrFv8Swo22O7mOl/9qg5tXr4Sx3+PGpJ7db5uZ
2kHUI+3NvgBu5BcJubzE2w4smxt5Jz24kZIt81UV2oFNpEggxZIb19eeW6h6
0A7LEk97N/Fx4/xP6ki3UgfYFX9cfySLC4sdH1TvV+8AM+o878d0LrzZq51R
tacD7Jnqe7SfciFvSbJbllEHZJW0H1dJ5CLyw8nVazYd4OKwXUkznAsTvvUI
SAZ3QKVn495aLy40WW6x9qZ2QD553OG9Fhc+nytv5IjoBGdf9+n5fgq6xx7c
6vK4EzwExVNZeimoYTB+tS6uEz4lCF7Z1kXBxmTWHdeedUKabskt108UXLY4
/mD2bSd8T2zpYa+hoHbJD6va8U4QZ+pXLMyhYP8d5WE/zS64oWnhFXiLghwi
mUsTE10wbmG7jq5EQZ0jd4bHZ7tAYmUza74CBb0fnG4aW+wCWzbDFB95CvYw
8mfSfnUBmT3QnUmGgilTwbZD7N1g1scbpbSFggr5Li2dqt0Qo6oj1bOZgub6
Ci+rA7vh2g1FUZ0FMoY5vzn/RLIHMqUuGdnlknFOJzeYTa4HznEwBx59SUZj
/vTsy4o94H0i4qhFFhmZGqIWzXb3QDvLZIVROhn9JH0u/z7YAy0+NeeNksl4
nqpy99DVHuDt4b8QGU5G3cP56es6euDjNUO+fR5k/KHzcsIpoBdK2VNbRDXI
WPF8PvFKYC94dW+WfahGxtss8lZ37/dC7KP6t+tUycjRlvP+2eNecDNp9F5S
IqP06VcpI5mED8npdsqR8cj118es23qhQOjNx05RMr4pLWkG8T6Q2KdUXrSR
jD4qtUW8NX1w++Hqxf4hEp5XFXvy8EMfPL+06YnfIAmPqV8LZf/UB0syy5xC
AyTcs1vVgam/D9z3UErte0nIpPecc3GxD+ibWMT/tpPwgWWgS51gP3T26bd4
N5Aw29NAzMe7H/4cmh43LiRhkvcTtqUr/WAuOHyTs4CE4T6rP5yv94Nc6KxF
Xz4JPX2LWk4H9wP18JFgt1ck1LgpedU0pR+2uXAaZ2SRsPbBuh6Jxn5oYz+d
YPGEhNRXtaHt4gOQGDjsFBRBwjb6ugWVbQPAd6H21pVwEqK8oVmU/ADIV9YV
uYSR8El2HftRjQGo6A90tA4hoUNGffiQ2QCwRbJ/V71LwqnkDw+mrwzAWvnD
E3I3SEgPa3681jIAd4vTy8bdSTjSxP7NtnMALpqW2vxyI+EnVnNr7BuAmGn1
zRyEXwW3cN8ZHwCXSv44LVdiPYGfoll+D8DRQ9vNMhxJ+O1qWyyX5CC8s0mZ
eGlHwhWXrkRZ/0G4VDaQft2KhNbqpx4qBAyCyczLf3iIhDmMU3d3Bg5CaOwu
rfWEbeN+eu2NGITDV+NtIi1I+L5O0MTy6SBUhouovjYn4T0x+2++jYOw7rwF
u4gJCbl66GYfBIcgbUx5LHEvCS+kXdZr2TIEs5JHtq1oEft54Z9Gh+QQ5KZ6
mpwkfJmZvHVIYQiCdGtERPeQsF9J9feS3hC8PxjG+WoXCVND/dP5XIfgg8T6
qR87Sbhdd+Pf8+VD8C+HTWz7dhLmZ7/c1odD0Og/b5UgR0JVbgvLffVDcG+t
4g4rYa3puOfb24dA/YljD12GhAfC5Uw/Tw1BdZqlHkqT0LvfPM6PMgx7ze03
RUmQ8Ifel/dzfMNg78w2SSF8NSdm/qTIMJxiSSp9JE7CwACqtrbMMKR+KjOL
FiNhjJTXJJP2MKy9YeHNECVhqVeUSpjzMLDHTHL8ECSh9uAumzX3YegJdTgb
SLjaYDjI3WcY/mTy5XMRbuST7rcIGIYOpVBZNQESDr0rCeCJHoaQ/ZZP7vCR
kIF1sDkFh+HRlgPXDnCT0PipuONrvhH4xDP3M4GDWG8ch3S98Ag4tpftNycs
FrEyMSA+AlbK7p4MhP/4dTuskx8BnW1bVJ03kzDX8r7tUZ0R0DWRSTBgJ86L
cfnwmtMISDCntUiwEr/3c5ib4j4CnIoyBmObSLiw0NgpfXEEZup3hT0lXN/3
3NLi+ggEtb+IlCLsl3/M/NnDESDFFzmpsRDPx2k02Fc2Al+K2wyvbSBh8+Fc
ZtuqEXgzb99sQvitaUK1d+0IlAif3cpL+JGGj07SpxHwF7mhV7iehIacMlpL
YyNgoOGs/3MdCVXW86wwz4zAhe2jpo2ERVcYy/jpI+A5d1gyhfCvqUENvZ8j
oOLCYGhC+GXlg53RbFTQeresn8FMwriia1+ySFS4HjvVGEA4MNv5dSUPFZiX
L4qfIGwbo684s4UKG/Pl9pIJk91/yu1RpcJjnr4d95lI+PfMxOxBTSqcnrJV
ciY8d7z9xVltKiS8k2XaT7jW8KV0hAkVZpfPcXEQviJyWmLUhgqdJwLmUxmJ
591C6ciQPRXK0GfyLuEDdxhDes9TQbTVJsOdsPTss+UWTypsmpi5pkOYInxJ
6uMlKiz7BzySI7x2wOh4rT8VOAbp7jyEu4pmsCyQCq7RmtfoDES+mS799uY+
FZoOsuUOEH4pGCrzOoK4/8fJzz8Qvn1zR2RmHBXSvi1OZxB2L/xb8zSZ2B/d
5ztjCR+fav2Z/JQK45c2GAUTVjLzPh2VQwU7b6y8QFg4QP/xg9dUsNhFkrIj
vLGAuyGkmApXxlYtrQl/mZj8E1ROhfMMdwz3ER7hK1G4hVS4ejL1nzbhxv3B
DtfqqND348BNNcJvrh+PudJIBUfOBw3yhJ/kyzV6t1KhW+hUtyThsPGVNbcu
KjxqLs4SIezL26Ls3E+FZrYEAz7CZ/alnDs7QgXvtXUZZMIHrnnEnx6ngsK/
7y3shHfn6bScmKGC8wvXChbC0mNkxiN0Khg0nvVaT5jMM65q+YVK9M+0BSbC
q8ZFTmY/qcAyPKzASHjGPyjJeJUKvZE2GgyE545sd0pjoAFZ32bDf7b7zMW0
hZkGlyeHEv9zz/3VxKT1NAh4NvLzv++bbp1UE2Shge2YveC6/86noqU1lpUG
qzqOzBsJqx8pdubZTIO12KUCVsI5SynMjzlpUPV7RYaTsMT9e8kkCg2OF4Sf
4yYcJ+GpEcFNgxTjDCdBwhwVx9rZ+Ggg5mesIk448LCu630BGsjrXKyWIfx7
UXb9RmEatLduF1D+77yDKamBojQYirqovpvwhPjKLiZxGtDUzAUNCLdZN19Y
k6LBUv17tROEjRaLNlyVocE/yTNu5wlX3Et+8kuOWP+eZ64XCWeWuXd9VaQB
5zRHxYP/4sP6qLuXCg08SvU4Ugk/ogPLkioN3ldIbcsjfEOMrDWnSQM3U/bc
dsLfSn93O2rRYPOYgOAEYRerMY9JbRqo4Jz5T8KH7xY+o+nT4MbUwiYxIt7l
Fw6z9ZoT9/9ApMuf8Ftrs6oQCxoYjlvGRRPWf6d3UduKBj5VeUavCZ+IUBxM
P0aDW4c4HOYJ31fa9NLnDA1adXyiXIjnkzv+n63MeRoorye9DCP8hPEHZciJ
BtEMcjl5hN92jPnruxP3s8Ti/ovwlE/FfoofDUQTe5ajiPzgPVzwt+4qDY51
1J2qJLxmmFXgd4MGNUJJRTOEufliBEfv0KDRetdWHSIf6Zd6zOVF0MBox8D6
P4SfrEmEmD8n1lcsuRRP5D/58wLajJk0sHHZQO4gXPKJ80tRFg3YmodF2TYS9T519bhwHg2+Olf8DSC8ptsjO19Kg5IK73YfIt+euHv/Y3ArET97U7tDiPw9
tRhwXauDBkqp1dhO2OvoZeXPXTTYaagVL8BGwmCZM/FHB2hwtTuakkO4uFHL
WXqSBoE3cmSH/qsHnJ9Zav/QQGS1hcGZk4Qd70Lu7Vujwe8lGmsp4UcXpDa0
/iPixUhkchOJyFeNJ5gH1o2CHO0i66v/HFS3tsQxCi1brIQYKCQkrSR8Edo6
Cpte3LzQRNSvtiw1rzSpUfjEJRkkw0PCyGNtS9Iyo2CvHO1xlzBn8Xq68o5R
iPc7VGbAS8S7l+e0scYo8J86J9dE1EP2acOhi6aj4Hdf6sE/on42R9NO/DYf
hZvW9zqchYj8YXC1/4bFKLQ9SJrtIsz2NL/n/uFRuDV45nGuMAlZTwm1p54e
hcOkDf1ORL1m6fxc13RxFDSO+u7fSNT7dVWJeVuTRkHlJXPNhCwJB7QMTKgp
oyC26vzZh+gn8soWaAlpoyDKNiG0geg/ThTvpVAyRyHUZ9JtuzwJX+dSfRgK
RuGBwTLzbQWiviRt3T3cMApD7ptlThP9y1u/l7UxX0chN6lqfIDojyJ+Wp06
9GMUXk290AnVJvLbpdXvm3+Pws7Fr0+14L/1m28L+jsKJyILfZ/qkPCc09L9
i5vGQNaLw9Nfn9jvozsPWmwZA0Vd9Y8n95HQVbW8f5PpGKh1HuCaOkzkn7bu
nLfmY3DnwuPmwiMk5HH7HOBoMQZhvKdDbh8lYVW6lHTd4THYK/CGe+tx4vz5
Ir1v2o0B087oC542JCz/fZbt56UxUH5mekHrDLGfVRx7J56MgWvWp4FELyIf
npQlPX5GfB5ArwjxJvL7T/1x3YwxqFHPyfW/SMLTSn73U1+OwaeTzhWnLpGw
MG28+0TxGPCuJMYp+ZHwZOBb9/amMZAOlU3cdIuoX/scnlT+GAP5JO2ToQ+J
/kZeXBt+j8HZG/FHQh6RsJKDNli1MgYNPIXGIY+JeOo8xfeeYRxWnTzZw6OJ
/HLqeEQN6zgEJO+XTYkn+i9vi2sfRMdBddBzZTGNuD5B+1iH0Ticr9vjZk7M
B9/nBUlTMePQH5mjQuknYVTydENS/Dhwr/vlcYGYP3YeLAqwShoHweWAuQZi
PvEqMF/CtHE4ev5S/O0Rol/3vfkpMWccfpm5Lm6YIOHk+qkwy+pxYr6HL6ZL
JOze8nrTO/o4hI6+9mraQMxDVsbMUQYTMFSyylmjScZg07dBwsYTQHtanmO9
h4w2+rIs6fsmoFRq3a1pLWK+28m2ufjABBTqhXeQdMh4gNLK23dsArJtxeW8
jcg403ZETthtAnrfnFfxtCKj4IHzls+jJ4D5xCVGW3cyBpgEpRZNTUCnjEGi
1Asydtg62SjNToCXrnEcQzYZJS+ZCuTMT0De2bHZIWK+bEwjP372eQKmr2N4
fB4ZuVeS7z76MwGrQw4LEiVkfJFb7ObJMQmK7lNZl+vJ2EaZ2SOvPgmPYkkX
t02RUXx4f9+zoElYGdTfNyhLwZDqPXmHgydhwvBzly4xH3/JlL+7MXQSHhxU
U8wm5udqbw5V18hJuORrbH1zJwXPsnQ8UEmchGY/1tt6eyn4Yudx4/f5kxDw
3PvaFktifg5xLB4ZnISvGndLDfwpuFsjMEpAZQpG6tlT7nUQ87eDgHqy6hQ8
GnA+s7ubghcjXvWKaUzBcubNjUu9FMyZ7BOU0ZqC9fv+fD41TEHRqB1p6kZT
sG5M3+3QDAWZlntyrU5Mwb1bbMqxfynYlC3bEH57CtR4Fezj5bnQRrT1N2Pn
FHz9bmrXHsGFHALeb8q7p4C7bI3R7BEXvufi8brUNwWG95YMPkZzofSmkzMz
w1MwaqRc0pTEhUtfp3paZ6ZALIcn5HM2F97++Lcw+e8UvJOP7y9v4MIXPgru
mnLTYDLSpebMzI3fG8PHPG9NA4d4b1TWHW4cYut2Wr0zDVpB2f2x97ix2kx4
6d7daRD1lv4RHMqNkZ+yV1JCp+GseEXVxcfcKNfRwN0SPQ1DEXf6XZ9xo20/
o7Fs9jQMH3l6aKaGG+unL70c7ZiG5S+FxyU38mDcOlufQ5IzoKt0s1c/lofo
f/nU2qVnQD6yyWIykQfP1rR9Pyg7A2uL63eGPOFBpdv6V8wVZqA9tkZ7JIsH
P/yT8TfZNQPdz7Ka8ip48OefrwHaZjPwtPNLyMoYDx5Zvh8q5zMDx+9ZMZir
8CLXyJunTLUzwG3VKPp0iBcj2K9fL6mfgUxScErBGC+y7jE4duHjDLDXHdL4
MMOLTHEdm3s+EQ60aWT6zotfLJd8s/pngDVdi7t4Mx+21ckctFiaAWvbbH1B
HT4My01cSRacBZDqtGbO4sP1129Za3rNQr9f0JGmMH4sWl74XXVxFlqrk7d1
PubHs+ePpRpdnoXfrJHjtAR+rD2oOGd1dRa6l7+oc2TxY6DEcIB70CxI0B+z
vq7jx3Ufdr18Fj8La086AkQYBJCJ6zMjR/Us1LJmNtb6CWDBvZOZUbWz4FUp
1R17SwAdVuvNhBpm4R5bWonXfQGsnkyOlWmehfRdrlK74wXw9lvTHfo9s7Dc
YxUuWiqAjLaZx3znZmH+muK6vX8EkCHLNm+MMgfVtzbs5rwtiPULve6pPHPw
+Lw4/X6oIIYpWSrY8M/BRAwHA0e0IPK91c/tFpmDfyO/fFVeCKJCg8zLDzJz
sL08RGrxkyDaTH7JeKU9B5+jgxW1RIWwVPxeir/LHKyJHnsWUyuEN84x2Gq4
zcHz8QK1Y61CaJDlJ/LNYw4i57h/Sg4IYZvShSS3S3Mg4HDVhLYkhDNgmWB3
cw5Oy3T8pAoJI6+tUIxRzBw0Jtvdo1wWRu+EvHBK9RwwvzIsr9kpgiWrCfeq
a+cgfVZ5cxeI4Krt3VveDXPgafbWftlUBO9tPXWpo3kOfj0Mc7A6K4JJOayn
HvXOwc9u/dXiaBGsqzwnT6HPgUnL5wmOFRHkHxdqIvPPA4eQTVpymyieMtxY
915wHr7p5h/wHRHFp5lfKr1E5kHKf1OPw4Ioyl/4WNAuMQ93rskNOrJsQd3v
lxMe7piHqPGADFXdLeiyscOZrD8PpBlxveU3W/Dd9mAWsvs8mMczzdofEUP1
Lr6WR57zcPasuuzIKTHMv5b5kPviPFiP0hYdzonh05Z6QX7febB/Q9O76yOG
wR7rd2y5PQ+cCSdT1B6L4aHC25Y7YuaBvCGc26BDDKd3X0/YVzkPfBtV8iKO
iqPdOPvpJpyHy+6/bDXtxHEgNGmrec08LHdPxi06iWPzUHmOxYd50P7N9cPX
XxwLbvypPNoxD7NzGa6cKeJ4rfrK+LmpefCtIoVZT4sjeb+3/G2OBZBLLd/Z
dVsCn7znZNtNXgAKy1avznAJVNLMnV3mWoCi0K1GY3ESeEBmJsNeYAF6zGZ3
KeZJYMgGW3FdyQVwjzszfn9IAtfV7ONl2L0Awo9I0Xa7t+KPPeIMN84tgH7d
NrFEZkkMKqwcUXNaALHsHXmdJEnk3m7zju6yACLDCzliopK4UzDW/5TnAkQs
H8r7tUsSPX+xf9e6ugBbPnuyZnhI4mzRr9mVyAU4c+kSTXxUEod2tHX6VSwA
ueCvh2iPFKbOk68zVy0A/eEdA41JKXTIspIOf78AzdRYTqdvUjgr2ev7pH4B
Am44uVK4pPGH0IhIQ9sC+JtORERaSiOZdcGRe3IBhjlMkxw7pdFoauPqq810
oMvGOlkvbMNNz/el7yLRQfXYO6OZv9uw2T70QDWFDkcN3cuSyDJoNcyR1s1H
h2m6Y4mThgzadfEYrYrTwVQ9KCkmUAavVm+N3KdOBxtp17YEKVnMTwHJCVs6
1G8V6+UKksOv/l832tvTwaz9mytTkhyqH82cHz5DhwqOb4IihXJYzslZ2OtE
h34Py5q+UTmsvzmi2+RNh8sPfoRd0d2Ogw7XTxfcpUNtgbd28yZ5FAVlfcX7
dDht81O+Yqs82glNSueE0iHQdZF3dK88TnWaLaZH0oHf8cz5Zm95/GwgfD0+
gQ7nWbcb76HK44Zt5Qk3X9HBqdZ9iqdmB+5j9rixlk+H2Rs2JzNpOzCMKuHg
X0iHvCztPX5/dyA5LkTW5y0dZJTF7o3uVkDhTSfeOlbTiXiekxsqVkCV+V/d
B3rooDfjYGNYoYin8tTJIn/psHrj1A9+JmUsPvGLo41hEVwv5H8I41NGjg1l
7HeYF2EJWZT27FBGtNnLMsuyCGPrWe6YHldGCVaDf0Vci9C58UjD4SJlnDpr
STeTXQRH49PbGK6ooDaJa/7f9kVouxG5NSFSBWPLu2YKFBbh+QnJyzezVdCE
cmyCX3UR/pRduaFBVcHsKtvBCe1F6Pq6MfSy2U50F7zw8Zr1IhT8s158qKGK
9XU7GhSPLoJSXd7G9COquMVrqXbs+CL0fkhSEr2sim0N3mhyehGi4zJT9xer
osolvxJul0W4wPvFtX6PGv5svZueE7AI0pd+tx04pY4WV02enb69CGUvcHfr
HXV8Ic2aRgkinJPuMpStjieuhyf5hizCxzAXy6w/6lghF/XYIHoR8LbNe8c0
DbwZlHZrKHsRFE2uHErj0MTNVzbut89dhELvwzKGWpqY4ORGmcpbBLbvs95x
Lpp4XT32S87rxf//H+N/Im9diA==
 "]]},
 Annotation[#, "Charting`Private`Tag$12652#1"]& ]}, {}, {}},
 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
 Axes->{True, True},
 AxesLabel->{None, None},
 AxesOrigin->{0, -25.546968910546106`},
 DisplayFunction->Identity,
 Frame->{{False, False}, {False, False}},
 FrameLabel->{{None, None}, {None, None}},
 FrameTicks->{{Automatic, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}},
 GridLines->{None, None},
 GridLinesStyle->Directive[
 GrayLevel[0.5, 0.4]],
 ImagePadding->All,
 Method->{
 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
 AbsolutePointSize[6], "ScalingFunctions" -> None, 
 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& ), "CopiedValueFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& )}},
 PlotRange->{{0, 1}, {-25.546968910546106`, -4.000000094777321}},
 PlotRangeClipping->True,
 PlotRangePadding->{{
 Scaled[0.02], 
 Scaled[0.02]}, {
 Scaled[0.05], 
 Scaled[0.05]}},
 Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.7340235666967993`*^9, 3.7340245947981625`*^9},
 CellLabel->
 "Out[133]=",ExpressionUUID->"b4741abc-3cb5-4991-84c9-d82e70806818"]
}, Open ]],
Cell[TextData[{
 "Ahora utilizaremos PlotRange\[Rule] para escoger el intervalo del eje Y \
que queremos ver del plano cartesiano sobre el que dibujaremos nuestra gr\
\[AAcute]fica (este comando puede ser muy \[UAcute]til, porque aveces hace \
mas comprensible el gr\[AAcute]fico o porque sin el no se ven las partes del \
gr\[AAcute]fico que queremos ver ",
 StyleBox["*2.3",
 FontColor->RGBColor[0, 0, 1]],
 ")."
}], "Text",
 CellChangeTimes->{{3.734028935954586*^9, 3.734029011837188*^9}, {
 3.73403028659905*^9, 3.734030322723939*^9}, {3.7340311957768035`*^9, 
 3.7340312613271074`*^9}, {3.7340312924518332`*^9, 
 3.734031306557681*^9}},ExpressionUUID->"63fcd04b-68ff-4755-bfce-\
6863d986cfcf"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"v", "[", "x", "]"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
 RowBox[{"PlotRange", "\[Rule]", 
 RowBox[{"{", 
 RowBox[{
 RowBox[{"-", "20"}], ",", 
 RowBox[{"-", "10"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.734029244148035*^9, 3.734029273234268*^9}},
 CellLabel->
 "In[185]:=",ExpressionUUID->"f11ece42-f0bc-4903-ad23-2f14f7b4c415"],
Cell[BoxData[
 GraphicsBox[{{{}, {}, 
 TagBox[
 {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
 1.], LineBox[CompressedData["
1:eJwB8QIO/SFib1JlAgAAAC4AAAACAAAA4aIAkcMHqz8AAAAAAAA0wOjArdum
Tas/R/BX+wHPM8Ce1UmxMZOsP+WKFxQV+jLANVj9C+O7rD+IBBPny+AywMza
sGaU5Kw/23vfN8rHMsD53xcc9zWtP+NLEqiYljLAVOrlhrzYrT8w7Ut7XTcy
wAv/gVxHHq8/auH33J+EMcCYaVdeLEavP0YE/Ge5bzHAJNQsYBFurz850QY/
CFsxwD6p12Pbva8/b2OWrUIyMcC5qZa1ty6wP555F2wV4zDA7VPsvEvOsD/5
HKcrlU0wwDQJ1z0+4rA/bbDE26w7MMB6vsG+MPawP0G28ePuKTDABymXwBUe
sT82apKs7wYwwCH+QcTfbbE/L36SB6mFL8BVqJfLcw2yP/+kcgxtgy7AnF2CTGYhsj8J2vAXZ2QuwOISbc1YNbI/Q301iaVFLsBvfULPPV2yP6HJ+CHsCC7A
iVLt0getsj+0L+ueiJItwL38QtqbTLM/2Knyw02xLMAlUe7ow4u0P8MtYMQh
GCvAGn9HOmehtD8FQbTzMf4qwBCtoIsKt7Q/wmKpxnjkKsD6CFMuUeK0P7pM
n7CnsSrA0MC3c944tT+LnT+ceE4qwHowgf745bU/L4x7YV+RKcDODxQULkC3
Pylkc0p7OCjAwz1tZdFVtz/qx/RaRCQowLhrxrZ0a7c/FfltMDMQKMCjx3hZ
u5a3P6f//YqA6CfAeH/dnkjttz9RAbr1zponwCLvpiljmrg/dsSA5+YFJ8B3
zjk/mPS5P7kORt2m8yXADi615ckIuj9Hwa/fi+QlwKSNMIz7HLo/zkEjlYjV
JcDRTCfZXkW6P+vG5j7ItyXAK8sUcyWWuj9jwl66Wn0lwN/H76ayN7s/NZrc
u58MJcBHwaUOzXq8PzKD0eNiOiTA3iAhtf6OvD8ckfG53y0kwHSAnFswo7w/
OZ7Ehm4hJMChP5Ook8u8P2BTrW3BCCTAneF2ACbavD8AAAAAAAAkwMCsb8k=
 "]], LineBox[CompressedData["
1:eJwtkutLk3EYQIeSN2o6LyWZNvPdpnPTNm1G1h4qL8nEUCvLZuasNlo4kdJU
XIJalFbrS5bZDTRRIkXFRC2ftCxoHxbTLEptMZdr7++t0NYosxsdOJx/4ISr
dFmH3VgsVswf/zbbMlfZd4gG1j8odCaGs/SHadj+RMC95k5hXc/D6Q0aGrgd
4k6zH4WB0coH5CgNoVP0XW4YhXGrGyvyimm48CWr07WRwmLX8q+bK2lY+7nY
546OQnuvy/7DQEPhiRPvwi0UvhWbzOVDNHC6l3RhL3l408Gpch+mgVyqSUqY
5aGqPZt//hENxplGX80CD+3U5MlbYzSc0mu0/gF8dIZMhz410VChsF4wZPKR
40OrA2dpmGIrmtVmPqbYPBfvrSBAoho1u2gBerektW70IxC/90HK3JIAjQX1
GSP+BHKSiwaaOZGYPcW+PbGKwAeivq9JiMSD40Epi+EEFLK65su1kVg5EmFI
kxFQ8rWmJl4Udt0AynqAwFgEdzKgTojzFfOeBQUE0l8saN2ahSjLaXNMFRIY
Yi+sDu0R4qCvb8+khsBrXeboK4sQx6qntz4vIVB60dlQtjUa36iq8rtPE3jc
XSI3eoswDCTbY88SyFd+Ew1FiPBgyCz/bj2BWi2z0rJFhDZzOtNqIBCsLjxi
LBHh56Q1VVebCBzxiU5NnBGhh2CwqfoeAc3jIlvQqBjT3HX6n10E7Hrl/rZ3
YmyYWaeq6CHQ2S5PLF8SI+fKuajj/QQiJdwzlk0xuMY7t189QoDj8VH4ti8G
pQ7XRMZLAtvmVMrkoVjM65RxQpcILOrznMFuEuzLdbFNLAa0x7qeNaySINtj
YHmNOwOf0Gt9oliCqNziZfdi4P0yrxrFPgmu80n61RvAgNlzz9PdvRK0Hcok
6VEMqFPzBawyKcr9Ahy/ohkw6Q0RTQYpNg6Oz3XHMNCSS5VWd0hxh/9ea3A8
A98HyvQJM1LsGD7wxipnYHzes740PQ4LOq7HqXYy/3+Ox99kaWgA
 "]]},
 Annotation[#, "Charting`Private`Tag$17767#1"]& ]}, {}, {}},
 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
 Axes->{True, True},
 AxesLabel->{None, None},
 AxesOrigin->{0, -20},
 DisplayFunction->Identity,
 Frame->{{False, False}, {False, False}},
 FrameLabel->{{None, None}, {None, None}},
 FrameTicks->{{Automatic, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}},
 GridLines->{None, None},
 GridLinesStyle->Directive[
 GrayLevel[0.5, 0.4]],
 ImagePadding->All,
 Method->{
 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
 AbsolutePointSize[6], "ScalingFunctions" -> None, 
 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& ), "CopiedValueFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& )}},
 PlotRange->{{0., 0.9999999795918367}, {-20, -10}},
 PlotRangeClipping->True,
 PlotRangePadding->{{
 Scaled[0.02], 
 Scaled[0.02]}, {0, 0}},
 Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.7340292737695665`*^9},
 CellLabel->
 "Out[185]=",ExpressionUUID->"ff0d6294-ac94-47e8-8f5c-e2f026c66393"]
}, Open ]],
Cell[TextData[{
 StyleBox["2.2",
 FontSize->24,
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[" \nPara graficar varias funciones en el mismo plano, se pueden \
escribir con Plot de la siguiente manera:\nEjemplos",
 FontColor->GrayLevel[0]]
}], "Text",
 CellChangeTimes->{{3.698279961307989*^9, 3.6982799807515173`*^9}, {
 3.7340277885788813`*^9, 3.7340278183792515`*^9}, {3.734027850057315*^9, 
 3.734027889514841*^9}, {3.734031341416459*^9, 3.734031351494104*^9}, {
 3.7340426025737963`*^9, 3.7340426064799786`*^9}, {3.7656724003942194`*^9, 
 3.765672401788207*^9}},
 CellTags->"2.2",ExpressionUUID->"be158c7a-58ca-4a3f-84f2-ce44d05bd4d5"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"{", 
 RowBox[{
 RowBox[{"Sin", "[", "x", "]"}], ",", 
 RowBox[{"Sin", "[", 
 RowBox[{"2", "x"}], "]"}]}], "}"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", 
 RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.668189428193326*^9, 3.6681894766646147`*^9}, {
 3.6982801654808335`*^9, 3.6982802387964263`*^9}, {3.7340288092624545`*^9, 
 3.7340288635236893`*^9}},
 CellLabel->
 "In[184]:=",ExpressionUUID->"10638bfc-b501-43ee-a44f-f1113360d431"],
Cell[BoxData[
 GraphicsBox[{{{}, {}, 
 TagBox[
 {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
 1.], LineBox[CompressedData["
1:eJwt2Xk0VP/7APCRJZUIlYqKFqUklZYP6hmRiLIkSVK0UUKiVYWkSGUplSwl
UZR9y/YMEgrZQtbsjJm51tkMfvd3zvevOa8/7rn3Puv7nlGydzE/P4dCoSQL
USj//3vIUFJ3SmkeLfC1fnXPTu9CrUzPEfFV82jxWU3jCqGnUVVpOHLpinm0
kJcZeg0hLijJK+Nuk5lH2/i56HZMyH2s/eSd5DBnHi3A+13l0ZDnaCU+ubyx
W5z28MBCi2PB0XixrHUk5YM4bSfyC249TUbfA5+jLqwXp6kv+ay38h7i1Qa+
TKjsXJpvfsGB+Qdq8OepFYO9smK0bzdKNPL/NuF0YUKK5nJRmnLiqt8GjA7s
SRsNNpsnQuvr/3uiVLwHd70Xa3i6QJimODdB6JB0P2qvqVN7whWi8a+V7Uzk
DuI72QUaRyeEaK7Xc9buFB5CYVG9/+RHhGjJXgtX5iwcwp8DmbqJA0K0ujMa
yp/XDKHV1zdWvxqFaPuHlursNh5C9z12PgsyhWj2F2MWC0UN4ZcjI3+eXBWi
Hf7b5LFbm44KdyTvBtIptISlg9Wv7IfRMfanXGQ/hZY7e3L1t0vDmFXll/a1
m0ILORdaVe82jGaKswPVLRRattF1rUmfYfQrJcylf1FoO44EKA/GDCMhVbsx
LJFCSzm7/klg1zAWx4Y2RDtRaMvCLK4Un2CgVLWJS4oDhRZbNKdigR0DbTgL
5hedo9CM2lr0jzgwkGPoC902FJpbvXBM4XUGqhLuCesOU2hP09w+Gocy8OV/
ll6ft1BoP/Ukzyj8YmBNxDarC+2z+PAYsu/tZCIl1iWsvWEWr7LXBlzTZqJ6
4tcGi8pZvLlGvfK0LhODvqmY6ebNour7MxarzZho2qh0SPHNLO6KCd6n6cTE
GikZ7RaLWSzc41nV/o60z9jqI5UzKHVZk1ktzEJKgLptackM2vQ2pWXOY6F6
sHOEdt4MPjqXzQiVYmFQNH3Z5oQZHDwZnLVLnoWm+d3S4o9n8HjGE/cl21lY
M1knXKw7g/9KXNV32bLwt0P6wM68aXTwcezkJbOwrpNjui99GtvTFM7ezmBh
o6V2rn7iNHrsrjIcz2Fhm15p4PG30/g0IkeruoiFdMWmbbfuTGPHwbWhG+tZ
KPKXfydfaxrFp2uVnCdYKG4Kfd93TKNCuJOFO5eFC8oeHKnaPI0lOSp/3QQs
lMmUUOqQn8ZAkPtjJULg6uBVP2anBLgvyPNOuSyBmob7F+nmC3BXYkTSzm0E
7qP53TLKEGDHr/QgmgaBOrt/dR/9IkAfIX6m7h4CDdZbZJ6LEGBOzZsf24HA
Y0IXrP08BWTc9g6mGxPo+s0/tkJbgCzGMnedCwS6q1cvrNMQYLlHwzpTRwJv
xMvcaFEVILMoa8FxJwLvvXxrOKwgQEJ09OZhNwKfXP3Kkpiewtdr0/Lb7hIY
p1K7x7RgCk9udTHyDSXQYUNqkVfmFI4axmyeF0bgpvXBh1K/TqEBg/LQ7zWB
SYpmNjJRU8iU7Xl3KZLAbLna+w33pnDCS+pKcxyBt5ekiovemELzjgtiSp8J
1JYNDt7pMoUS4qcW2ycSSJM0+xB2egpbHgoFViUTWC5a+8OKOoU/DoW0GuYQ
GCCcauK/Zwq3hGkusMwl0FgouPmb+hQWUBwSrfMJrBWY0lcoTWFdyEWtwzQC
W8ZrFrYLTeG53ROBTWUEDnfVWNiV8FFjtfALrz/k83amtAfn8XGTg2aYbBMZ
v/agC8XpfMwKXTknupnAiWbTm2tj+Zhy23VJdCuBgt81b/t8+YgqTop6XQQW
VqWsW3qXjx+9l18I7ybQ61fQV30PPqq/TJcZ6iFQtMwU48/zkVHoGu3ST6Bk
YU23oz4fM3aV31MaJrAmL+Vy+D4+Pvj7aFyTQWDIt6CJn7v4uGRksNKYSeDS
TFMx1Q18TN0f+OUEQWBzmvpzm9V8VHQyS7MYITA8ZdGyp3J81OwtkDcYJevr
S40Kay4f/z6NW7ZsnMDuzylpqyh8HFHLSJwgHRsfpGXC5eH49JP3FRMEbvxg
ejhlkIdVvJoMGzaB9Hfqjf/+8XDBio7aFRwCv0QtOi39l4dLTCZNa0mrh9e4
ulXw0PTPS/cNPAIfG1+fw6PxMFCky7SB9L8Z+Rf3c3jY/qlJ4yafwD2pRevF
UngYVG6kKDtF4POzF7MD43m4lSUt+5F0/5KFhrLRPHy4UWihmoCs//K0ljdh
PMycP74wiTRLdWY67iEPpz+ZrQudJlC/88PzLXd5eFjp3n9c0lHBhkoZ7jwU
fFM9ZjFDIFuXSNN04uHxCN0b8aQPs1/oFZ3l4a7ridGjpGM/aTYePMnD2Vsm
1dtnyXxa/7tYbc7Dr7YrhS+Ttljox7M4xMP606L7wkl/wc1PWnV4+HEv/x6N
tIhbrYL9fzzkaI+WtpO2WXcjaVCdh7obumXGSGc0KlBdNvIw4VDZ+WnSC/yL
aydX83DiVmThLGl7LYeznnI8fClxbiWPdC5z4eQcKR4mdij4DJGWeZfu5y9G
vo9pJaOG9CXzE8sWzXCRbXDrVDLpYpHZz2GTXExW39LgS3pFdqzWSiYXO9nj
pmak3RwPVX3oJS3ZVr+YdIX8iO2mNi5+cGXb/CbfX7H65UhKPRe/vbZkeJG+
6aXls/sXF/c9lvFRIV2zvUu2sJiLbd/3r6og47uxz++jXi4XS6zmFJ0m7fVK
dfevVC5G1TlfYpL5aTasKzf7zMXnBz6tcCOtLrhh3fyOi+sMa2uZZH4fJa1k
2L7mohFPMugM6Y4zJXf7nnPJvDw+9pOsj12yjlJOj7hYcM5xzWbS/Tcytt+6
zkWPApn6Wi5ZD5usv89eId//oXa2HOmwttljfue5qOP57IMFWY8HdIxuhVpw
0evk45fpk2R+53fj1+1c3PLeuU90jMxv/iMzjU1c/MKxlxYh+8PCZUtPrhIX
7dLuHOSR/STccFOsfBEXRzQM6svJfrOPlDrczeJgtZG8m2CQzI9JZodDPweV
xAlO2gCZnzknXYl2Dm7d6xtwhuzn4gtxoYJKDgpbXG16R/a7kvrelqWJHDR9
YSmf1U7OJ/OhMLUPHBy+4raV2kbG2/3lUf23HIwO9bxT3EJgdQ6z0uMJB9OC
6/KTyflzWycKGy5z8KTdVkK1lsCPZw95Ms5yUNrSuurmbzI/D9l7RGw4uCEs
pD+/isANP4+k7TDmIMu/49eWnwQ2mM/GhqhykHF1t3NaMYGz7ol2Ces4eD1B
ZhuNnIebXh1fVaxAvl9U6PYfhWQ+W5NfjUpwsG3i+nguOU+3nDsTYMpk49zR
wtsH0wj08yhykUxi4zf++SXMaAJTX11RVY5jY+29JMp9cr63fVs+tDeKjdXz
/9sx7y2B22eu2l95xsaSC3ddxcj90Om35lilMxsrRyROxT4h58HrB5oBW9n4jl38zNmDnDe5B0TFUiex7LGElo4ugYnB2T+vfZrEb/Ie61+Q+83JQSWoK3oS
3x1QX9ahRSBzyUL5gmeTuNq7Z8Vxcj+OuDaouztNYodvanr7OrL/lc/adG+Y
xC/+HLV95L6dE+qVXhg1gT5hPWkW+SwscRy7qRo2gdSUh0MB2Sz0pZ7bF/50
AkuP+5rkpLFQlHWwwsNzAufPX5vM/UTud0OpTlXrCcx6eqBX6iULJWcj579d
MoFOiXaOby6zUP5ynt2NwHEsEe32XCvDwvDycv2FvuP43NtAzlaChSuUGzd/
uDOO+fEq9kFipLtGJqsvjaNTT4VUG5+Jy44rBygbjqPaVhGuVA8TF+sGp/0R
HUd297jLcCoTJeQvCmvcH8P4mxzpu4ZMnPkp83Hk6ijaLP63/toZBpq9Vs6U
uzSK9ikRn9TI81/sec3SffajeDEh/ESPGQMPUez7As1HUXml3eE9ugwM25m6
XmXHKMo5vfsatJ6BW96ZxNlNjGBunV+3YHAYbTwC4+uuj+DdJgqlhjyfXgMJ
C0cOC2sfPT5RZU1HPV18eLafhS2dJf1KZnRcetAt+9QfFp7iPRRyOUjHnCPN
K8zTWfhvKpw+toOOglOxXZou5PU555vfS9DR11PbRWKAiXcL9V9E5Q9h2Den
gORGBgaE6D/eIDeEOTuqaJOZdDy5e7x3ZfYAJkv/SJEr6MeF7Lm/XTt78Zrm
G+F9Lt3YaX5e5YFzF2o+PG0weKkNPWsOvthxrxUJB8Hz+48bsKnf+H25WgM+
+P5WE7hlqCBxa6NbQxk25ml/TxBOwcJGiQszlBQ8rao/bRGcBI41tquSA5Og
y8DqmHNUOfTJKmp/vFEOE8mQvEyrAew2pK3T76uHlo+rnEdr2kDqZ/RnjZZW
uOOcZ3Asuhve3lLPLAnrAqt3W49HPO2H7UEfrGzyeuHCo4o5nTV02P1Uuke5
YgBspC5nV/yjg0l0SW5F/QCYvZJwyhihwy/i6NcLHQOgHW/yx3/RMFQJnjc/
Gx8AmbI/8Rqmw6ATYjzzauUgFIh1Gwf8HgaVTfb7n7gOwmI/ftjOagYYR55r
6pEeghLfzZsDf7FgUYWlT70OHTRnX75TbmXB3izh8LxDdEi7RVlaRGfBjo4L
VyOP0iHG+Q+FPY+AiNYOyyPn6eBjdb/xtAEB14dri849psN+1XrvHaUE+BwJ
0revosM/x71OV06PgJudoCbYfBgU4sfiNC+OwC7/JX1frYfBqje+a67LCDwM
075ZYj8MNbYyx2PujUBfqujiVrdhoB0d0GmKHIGQAVlGXsgwRO8NltNpG4Gm
37k39tcOg610X/HiE6Ow+4COgqUhA0TCGyae2I1CTEHrb20zBiSs+a4sfGkU
JiSlwuRPMICz40PA6O1RULJ0MytyYECQpZ15dcQoOGeLHfz6iAElb9u7Hv0b
ha9nQo1EvzNgo3IjZeriGFiKByrF72JCdVLpdjfXMSi+WCcZuJcJHrszzw3d
HAOjjQGVDnpMKDZ4Ud7kPwb76O9S55kz4eRl86CMxDH4UbONOejEhGcp1aud
iTFQVox5JP+eCeOaZfu6ro9D/1rjVD1hFvw4mnKg7N44GOa/GM8TZ8FrpzfG
X/3G4W6wYu9mSRbsi7psfStsHCo6s35OLmNBgNCi69JZ40AJ1vDfpsaCNeVW
X3Umx6Fhi/iXg8dZYHaMLh9zbQKqo6UYfR9YsM65fs3jOxOwI0X/sesnFrD9
8lWcH0xAnPufxPEvLIjIebZbM3QCkvpe+vZksmBQfsfRurQJUF1kZOtYxgKv
7jsBc8YmgJdeUSoxxIJkl4U8e9dJOBpjfzpRmQBGvTpn7OYkUCvUxUI2EbBp
j8Wkj/ckXGDMobmoERBLeTsaEzIJ/sMHHRbtIiA8eCO9O2MSeq5NOvXrEeCb
rttqz5uEAEdjm94zBBTLXfw7JsSG9ZylGVrnCJi9E9DkM58NBwbsJAMuEnBb
r7Y+Rp4NMuzUHwucCXD5Y1vZvZcNTCNr1Q+3CbDm3Cqw92GDlASIKoUQ8Opk
ZN5YABuGXi1ZPviCgAakffMJZYPF9B2luFcEmDyemxUTy4bQ9EaJuZEE6C1/
mdT9gw1rAh332MSTdX0354vbbzZE+5i3tnwmALtaE+Y0s0Hrzi8n0y8EaCas
iV8zxAbnxigrxVQCtmqlRNsv4IDatSzq0VwCnKLrI8dkOeAfyNXzzycgQZjz
1keBAxtFr27PKiRgXeXe1zFbOLApxf/HRDEBK079Cuo24YDDvMBikV8EiNzv
97Z/wYH/5MefuPwlwPma8DG7CA7oSLw15bYQ0HxRceOZWA5oTbYq3moj4Iup
dfWpDA64GSd023cSYLGmesWJBg6s/3itq7GXgMKlw8zjbRxgCtdwV/cTsHGB
eJFlLwdO7xcssxsgQDCuc9FiggO5bx66/Roi4ENpZrrJYi7IoqwPlUWABLkI
jihwgan1psmQIOdAEnHi8DouSFfF7jAaIeDQKxWKkQYXYpebzOwcIyDjiX69
oTYXPPSvOa0eJ2CV19k4Az3Slzb+o0wQMOYQaaxvwYXIcxeaEicJsDmVu/qA
DRcsInytPdgE/DBrGtM9xwXnZ7bduzhk/WhKv9Fx54KCmd/sey4Zn61qTlRP
8v4et14Y8cj4rDUC8OXCQb7bFibp/RIP+7RfcOFiwd9Ly6bI+FBicrQiuDCm
I5CMIb10svCJZiwXFmc+z1orIMBrqNX2vy9cuJJ1zS6SNL2du21PBhc0ev2l
pKbJeNYtEd2dz4V9rZm0m6QLf2xv3vmdC8K7291bSG/MM0nUqORCfPDAZo0Z
AkKSne7taODC9IPCvoekBR/8zba3cSHk4+EY8rwNF17HrdvWy4UvgT520rME
1ASWcLYyuGBebbzWiLSm97+fahNcMJ2JHPAkHesxHblFwIX/kh2T4khLXlpx
VVWEB1fcyG1E+qbtbr3NEjxY2myg202629xCbtNiHuxwOSw9Qdr44FX6RgUe
BJUmdZHfH5Cl9axgwzoeVF+8lEF+f4CiemKQsioPznTd9ye/PyBgXfnZ9Ro8
CMwfOTNMemJZ36512uT9fGiaf0jbLpwzf60eD5i5E0uzSZcLrW5XMuZBBePF
ZBDp7WytFEUL8vrIhEZ70hF0qwerbXjw1EwnV5W0WKeH5apz5PVPLrxjkfFw
rQ9RWenEg9BqFf9PpFvKkgXy7jzYEB7hbk1aL7/y9wpPHkg719mLkE5KGYpZ
7suDq+X/jsaR8fd+s9ZQ7gUPns0Z2FdH5k917kcB8y0PnOwpkbakm92VU75/
4EFTaf7hHjL/aqYqcm7pPKDUhcX/4RPwtyDhp0EeDwx2TJrqkvbdrHpvdQkP
1sy7efgzWU8tYlv7Kut4cKfMi2pL1t9D95TXH1p4YLHecvdXsj7Vu7cZ3+7m
gV03y3uCrN9HBRrpG8Z4sCB+pawTWd8a7prePtJ8kEgr2DQ7SkBnV57GieV8
sPZkfV9EOsBk7+BWJT5w229mrCD76d8mqkm7Oh+S7jx+IUf239OuAyv3mPLh
Zpbn6UyyP/eYlNVIWvGhgmWZ6D9IQG++gW/faT68yw07Ykn2s+Zro+EQFz4k
810imsn+7z9i9o35jA+pDyVtvcn5EJxf5/Q9jA9E79MryzoI0N5kofg2ig9B
Nyca48l5EiJ6/JFBEh9grCUnmZw/kG9z7EMVH74NbSk5W0/2h0qH+O0/fKD/
4icW1BIQ9up0vmk7H3yE4kalasj94Ga/dobBh8PVO19GVhLwWsVh1EpiChRs
2QanyHOD7quh2K2LpyDL49y62yUEsEQuW4kpTIGl6cozz4sIOPDvCqZvngIT
EwN+TAE5L8KuPZU0moJNfc0/nDMJMBK5r/Ldfwper3i+7c0HAs4UaDbohUzB
NDUrW/w9OZ+us++Vhk/BItAzcYkiIGbwSsOPxCl4xPDLVHpDALfS5n5F1RRo
29Zfk39G9tdLzT/V0gJQNVNzPHudgNwj7PsmKwSgUWV9Vu8aAb/npm2qWSOA
czUtdxRcCeDfUvGq3SGAe/4OC9IcCTC1Xba54ZgAvIeNC91syH5XZnv9fSOA
5cJCBkZUAmT+pW62jhHAvyN1r6K0Cdjw5kpjS4IA6pvOLxnaQ4D5gr7NbXkC
EE0Wizq7jYBPRH1jR7sAnmxXFCaUCDiWk6raqzQNw4zTi88IkfVveKWZ9Xka
mqoCQtK/sWAkZI1VR+o0lKUmeFPJfb69ramp6ts0XL0i2lOawoIs5/1NXyqm
ofneH0puPAswVK7x0tA0jN5VKz/4kgU17UX1/RtnICPZyI/vzILxq0t/d8TP
QMWXY+tLFViwK+/XkerkGTCsXBVjL8eCmyLe1QXZM/BHhpvNlWaBIGy4KqJs
BmJC1DMk57JAJJ9WaT0wA8lRHou7R5iwVOzyz0blWSDK13/aUMKEPeFYWv1x
FkYHwpfvsWdCr1qytkPSLAxXp289d5IJwSVR6ULZs1A8UvfzkQUT6Iy77zXK
Z2F5vezrTH0mRID23XD6LAw8yPmRuIkJXm42K9LlKNTnImZ7RUYZ0Cf3t/ae
DYXan7PkmPsNBiTZ11GX9lOoDqeZO35fHoaPjp6MI3QK9anh7W1yZ4chwlX5
9SMWhTqX3/XsOHleDbh3m+CyKdTRrXOuFRkMw/nwNVGtc4Wo43LU9ZrryfNt
ndvUOxUh6qkJZ9uiNjoE6Mhmbb4iRE2qOcnZo0+HC4oWm3UmhKj0s9+V7IWH
IK1nbqb+yBxq8IH5h6pO98OhxaLKT4REqKoFWy7lK/XA9UMauxIootQ+t9zS
kledUPFpzLyUL0qNyLbILQttBgd3vuXq+XOpNzqbyxSf1cDbAxr8o3PFqbE3
bD6tjCiChK/HXxUuEKdmip1RW2lZBDlL7mioLBKnltJ/XZZbVASNfUXOM8vE
qRJztewFD2iwyM+k59Mmcerd69+VlzQVgt+PS5XTh8Wpj+lLr7+8lgtuB99H
xb8Qp4o7Ry38F5cK3snftWTeiFNN/za1di5PhSC5wWbPSHHqct8/11oCU+Dr
gJqseZw4NchXxtq7LwkGH+U/EmSTz+OpNpLomQC25U2uZq3i1N6El8qhn9/D
FfWphfmd4tR1Ti7Gi5+/A8/XqxKVe8Wp2SEZlYpDUfDG4XzfFEOcuuXQm8jJ
e+HQID5+Im5GnFpwIDpXNyEYelyXchYJz6OuUjmktYj+DMaa/3txZ+48KmPC
/uXz+wEg9dmr2nTRPGpA48DFGwnesEo69nLe4nnUV9Kda0rv3wbVW2Xiysvn
UVXjPOxDE66CVhf9Y9DKedSV0Vfu5yTYwf/+36L+7/+tff8HmnfwFw==
 "]]},
 Annotation[#, "Charting`Private`Tag$17719#1"]& ], 
 TagBox[
 {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
 1.], LineBox[CompressedData["
1:eJwtmnk8Ff/3x92515ZKWih8Uook7WmRvEeh7JRQkVK0iVYtSlmypbJlj4hk
yZItFWdElpIoW/b97ncIkfU338fj98+9j+djHjPvc17ndc7MvB+z2t7lsAMm
JCRUTP38799Af+GBqdXixNlIvdo+9WCtvfn3hsRWihNdhoryK0JdkNpq7gtp
WXFCRFtvsDzkAVr4r3Ji62Jxol5vluYQ8gzVv/HIPI+JExGrR/i2wfHIWmxs
RVOvGGFbckLc/UkWOlfZNpT9SowwSN95TsEdkLduapyjkhgRedemtBv/ga42
TC4OXSJKqP/Oy7l0uwuFHzY9HiYpSng/zfdhZHehT3WvEp5LiBJ2eiNwn9mF
RL4bbYmkixLMXeO42IZuFPslzvjFiAhhuHZzfEtkN6oq2O+X8otiOQme1dUe
tDIqYOZjqAhxzdVDa9myPqQj06VT/EyEmLHeFJa7qQ9deL49sOSxCNFecbFS
61Afygtuly31EiHSxotOybn1If2ATbsrrosQfN+5KE5XH7rh9vNa3RERovvW
gPa35H701VaW1b9EhBgcunqas3oQmcZroklJEcIoT3yRx+5B1NB9Mlxyvggh
wSi7gpkOoo4zr3Q0GCJEfrPdn3K3QTR0QS3h2agwIbNENV6vYRDJuGod12gU
Jq4PJ6iqejDR2af2Nc/ChYlV64kvvdUsxP7hvSY5RJgIPpfhmdLBQs5SKXc/
PBUmyic9zlsMs9CtMK7KgI8wMXH/8RnH5WwUEH3jkcYtYcLsUtD8Cw5slP3a
R2vASpgokLFU/D3JRjMladkaK4QJXy+3MdZiLqpp3Tx/aqkw8etRherEWi6K
/Zt37uMiYUKq5gHB2slFmptgpaaYMHFF4tKny8e56O6LX4H7xhnEh0OzlYyX
XPTXbfo83sggtrz5vNlSiYcqIjzKheoZxJRNyt5r6jz0PFdkVWkNg9A8E3bD
WZeHdnAXNWuXMwi/KD8lUQceun5cSfdALoOYCPgSWpjIQ0O7TVbrBTMIncnF
kcLL+Yiw+HVP5AmDiLyYYSqvzEfPrli3VPgxiLsT39Yu3sFHm97YPzv4kEGs
VixjRZvy0WWZWzOHXBjEdnbJOoVHfMQZi/9taMwgDEP2uA+w+eiDlJL6fH0G
odG8YHZwjI/8N6YF1egwiEV/p7IraAKk4pB30FiTQRi0FNxdtUKAHBuq8k02
MAh2xfRmTT0B6ns3HGwuziD2lDzbJh4tQLEik57HhRlE5puAs/grAbI8jt04
Q2MQxwdT3I5lCFAVbYnlzX90gh+bpL61RIAyzXbIRrHpRKpC4sDNbgE6l6Qp
kThAJy6NtBl9ZAnQqgmd6bQeOhF1/49F75AAhcYf7fz0m070xFWtaxQi0W2B
a2J3NZ1Q/k9lzkiBRFv3Pwhlf6ETjPFHoXHKJOI89/X+U0onxmHocf1GEtnu
i3RkfKAT1/0gsG0vifYHFqmqpNGJ2rXRkg8sSTTVVSq39TWd2G8wwGizIVHe
9q/zNRLpRLfNH5XlZ0i0rq1VYBhNJx6v5Paru5Bovur0O5cAOnFr/zq/2Uck
+nKfkXTbh070qbmbnHlMIvf6+c89POmESlfHstQgEg3f/u9W6F06YdIqH9oc
TaKmSq29hRfpxIoM8RJ4S6IguYNqhCOVz/79mNo7Eum7mP5XbU8nvEPOrb5T
QKJP0qfmWo/TCWG5rK78EhIlOHiUzRrQiUfnz/LffyfR8SL/PNGDVHzGdlEb
6km0dEFI8qIDdMLvSD3tQQOJfPISfRX30onwpeumKltJhIul396wi06U1nU8
Ku4g0b8TuRd2bKcTWwpyiNBuEjnRyw31NtCJjTape3sHSKRkVaNpuo5OrNYO
dz3OIlFnWsNG6zV0Ar3YZpXLIVHkbPvK0wp04jO2pY3HI5H54QHJi3J0gtNw
UkiUJNG813yh6zJ04j+DzHLaMInK/40Nuy2hEyOX1ZQ7/pBoZ4JIwxMJOrFT
ybdI/S+JNH5crdYWpROzz9c41I+TSGumvWQMoxP2f06qHfpH1W/DobzUWYzg
v/dbED1JIr1juam2kxixc0ZWtHKKRAa+K+Ol/mJEyoUPMj+mSWSS7x/2ZRgj
JLR3ar2bIdHhvlH/O3yM4Nj53bkySyIrqVMPNrIxgtjXWCU+RyIb9O1GTz9G
jPIvbXCn+NTlnRefd2NE0qqKl98pPhuTYKffjhE6a/xUJig+Xz3/6EwzRjB6
Hn6eodhp/JZBzi9qvb5U506Kryj1IYcfGPHAbN3GaIpvHDFRX/ENI6wFB2e3UHzbo0j1ewVGiCo86k2k4rmXtXaVx2eM4PZ4tpJUvA87ni1TL8GIsJ+STBmK
vSWm5rGLMKJunZK4HJWf3x5HoRf5GBH8blD7H6VH4Ln6MbMcjIhuTwx5R+kV
9FyTy3iLEdOvf07rTZAorCyl+/0bjHB4s8KzgNI7cnhxk1MSRuyR0FtLGyNR
rIL7t1UvMcLjsdmA8giJXhqziYYYjIi/YVO5jqpfkptFgV8ERrTHFdbQqfq+
SYV0zVCM+OjUOv6Bqn9Gs2rC0FOMWF11ztCY8ke2cHh4UgBGGChs/PqBSaKi
004e8z0xYmjqwtF1vSQqedbsStzHCN9Gs/PKXST6XLzf6cYdjHhjaJIr1E6i
rytWWLVfwYixIi2hg40kqj3obRTkhBH/RYyK51J+/3mT1NY5T+lRr3dikuqH
1vovahl2GHHcefmgbAXl17ktiqdOYERJwVuV0VIS9W6MlVlqhRFmChJf3hRT
88L/GnbPBCOMPeQUkvJINKmt0GK4DyPEKj/x+16SaNYl4PvcboyIkHweEhlD
Iixu7HPuDoyICr1TrBJO+Xvy21s5NYwY35dW0hZAIrl3t724shixtzRb5ck1
Eq3q7rsdL40RXclfC1Y6kWjtQlPnI4sx4kvuB1qgA4nULiod+yiOETdz4nj/
rEikqfhz0+MJGiEUvmZsDTWvXi6R2HFklEbI1G1mFm4nEV1YZ4/cEI14HmK+
dr0apQ8z/0A6k0awg2MTXsmTyPptlPW3Jhoxbbvpxb8pAbqx+7SnRD7FBerF
W/MEqGV9tO+vbBqhneiWHJcmQHvlfgXGZNCIGwGWV9kvBQib1YnYkEQjDKMV
u5Y/EaCgMpUMw1AaUbahxKD7jABlmAw1Pr5KIzYfxGLkJARoEb6+7chlGvGj
gr/SaY6Prm+175a7QCO23G3TiRnhI42lDZz0UzTCYupG+vM2Pqr6XTj3zZRG
dHZ+splO5aP+sw/Wz99EI1L+Mwp+gfORvNvC+4EcIeJIY3dl5FEeupD0VebF
oBBB66Jls/V4qOC7z7u3vUKE5FYZDYXdPGS+ao5Z2ypERH10u7xblod8vpCH
pb4JEbmj91hrO7iIlKxXCU8XIlYmt6MRWy76nBTaEO8kRHyDTzq/DDlIstbU
Jfu8EDH1pUWhaQ8H2YxLzCs9K0SY+y6PgnUcNK7vjXpthAhSSDFDj85BauSN
tLXGQoTW9UCddUVs9HyP5cPUjULEj5B3kvtXsVFd7FZrx445iDBNvXW6nYmE
klzCOxrmYPWEWlXYFybakv62waJmDuoua0m8zWSioKL15gc+zsGVk5frAx8y
kVnTaoNVUXPQ+8oGzV/DRHWSizVbLeag48YzScUzg6jO84+CSc0sHNlCTF6s
60c/zucy1T/OwAKuYM9vhx70en39brPiKdgesPxo5r0GtCW67sq16n8Q4XhS
l8vKQ6u37GuVTh+HlZwzhk1GlcD5oCsskjMGvb7KukeyWyE9uPDr9TdjEP95
c1S4oBWczq8P6okfAyXXIeyjWhvwly2QK346Br+Vz00mv2mDoSsNW244jYF2
2/u86bh2+Kt8xqZ33RiM3NJ76/KoE7DQh7klcaOgKeG+rUyuB8ou/LmtFj4K
WMf1p+9294A3flYr+skoZCS9VXp6tAeEBQerb94bBetVXh7iz3pATF+yS+34
KBhfbbZYQOuFhXMv5sUsG4WWB2ostZ5ekLv08fStwBF4euZhNi+oH6KrqvQW
eI9AarTQ07S0fpBVbtrwym0Ezk87PzUvp7hnaKz24ggkW6X7HB/vh+VWygHK
+iOwfJ8RftRmAJYeCH7XKDwCBtLPAhpXD8J8uXP0HQ/+wLLu1kc60UwIvH2D
Ve36B9aXGn0ezmaCRJPHdzvnPyAlL1PtXcmEecGxEY9t/8DVSV79iVEmiIn+
3NC39w846vrKfzNigfCIpkXIxDBolX48GjXBgtmvi5OHrg6D/adTj832csA8
Ujlf5uIw6M890dEy5kCSg8YXLfth4JQNZi6244CBkP1A4OFhuOkSetjFkwPh
6jlK67cPw0H3h1NjlRzY+NL09enRIWDSus1VTbjw8PKZAj/eEIy4MQ+5neTC
T41bFVn9Q0C/voWT48yF241xgzMNQzA7bw//x1MulM8TKEfnD4F1y3O979+5
YHMzMOWn6xCMS65TJvR4kLX/ZeE/5yHwEiilnj3KA2xRXuWqc0NQqV3P4p/h
wZu0Nqaz1RDcmbFwzHzIg9EuVRWJ3UMwkMVuGXjPA2lqcPn+IUFaicFRXMuH
62i+xYVxAaTNU069P8AHnQPw6MygAPzL+p4FDfNB+uC1QttGAbTnNAZ7zPDh
vUmL7OFcARTevpQzs1QA07ZJPRouAjCtPCmw2S8A73uaLvOZfFA4pWuZES6A
ow/JlyJNfFjY8kEQ/VIAyt6JP4W+8EH51/52xzQBVD0W2zmWyAd5P8uA8GIB
LIhpmO44yQdPs2Jhi14BhBc5BWQ18eCGZ2yYlhIJ54oVPqV+4YGramPCjBoJ
u0t/8l/l8UCQvNshagcJrVW7zSNDeNC/V53neICElS2M5R4mPOAPFS05ZkcC
2Vao77aPB559g+xpBxKIrotuN9V4EOT9Qf2+Ewn2zLrOC/N4kJa9UGrJHRJS
/sYmH67gAnej/uLQIBJuT5o2G+VzYX7alboV4SQYzGLiB5O4ULKi+vu9GBJ4
whec9npyQSG//nJzMgnF4vJx6le5QA+vZvxII+Hpgh8/Np/iglKvR1liFglb
lqlvX6vFBfZBj8TO9yTQVrDOrtzIhbp0i/d6xST8lI8JXy7PhSNytJ6AUhJu
rKVNzp/kgG37J6uUahLeb/9OjOVzgFX8xHZLC3U9mSeHFr/mwMHA39nabSS8
mTSq2xTOAU2OfPT2ThIiS2u6zrlyYN9jiTVFfSQsSg485+1I+X5Ap9hokAQ/
PyPypSUHHLCQXoJFwi3TmtnfOzmwoLWl3IBPgmBboM9fZQ70/7K+f4okwVHa
aOESGQ5kL/lXaDlMQuc/ifDNohz4ZfX12sYREiw7vv1nNM6GQOfp9P5REmqJ
x8nnmWz4tKvz9L2/JOglGW581MyG5687QkbHSSjxlchPqGSDUpnvPuN/JOy8
9E2zpJAN5el+p3wmScg0eVzemsIG+/D0yfgpEpS3GRqNR7DhY33rvOhpEuKW
STQs8WPD2QqFoBszlM//fT2x5TYbSscT/TfPUvq3B/QZnWdDKyPj71eKRQiD
Sxes2SCZmtCkN0eC+6t5I48OsSHnk/j6VxSP+Xy9m7ibDbfV/fldFDtdDMBA
hQ1dyv1rqOdN6Dc2CGhbzoZTn2e+TVJss3Xe4gkxKl+rloEWihuWfo1a+o8F
CyyeX42g2GjCf/VWNgu8Dtx02UlxeZt+qvFvFuj+aO7Kp+LRBPGtF6tZQC/Z
W7aM4rzE6vc+RSzQH9GStaTyUfPxx1+lsqDbOW7Alco36YJ+FUSxQM5op/Jt
Sg95Y3Gzdn8WjBK0jmOUXmFbqpsn7rBg5X9yEvKUnvOX+tstu8gCdtXHnBJK
b+/xQ8ytx1mwUEfzpzZVj+slVX8varBg/9JWHzY1JzgJfu6+qizQqz+wciFV
X/tHh0SSZFlgoqq8cwlV/8NGVcs6JpkwuesAWcIh4etmvxf/OExwr/sc5kD5
Z/+SQ0rSbUx4UqVTxhsgYVtr5Q7Tj0xwntn0JbabhLRi30+X0pmQadnw4ksH
CYoJB3X8Ypiw/sBf8R+tJEidrzxS6saE0ln3N14NlD8Nfds6LjFhW51sz6Z6
EoQ2HzwzeYIJ57a/KPrwnYShsYpr2zWp9VYttb5RQcL53z6TpmpMqNqirpT4
mYTuT3qeTvJMMGl5/jK7hIQ6r4rg5OlBOFj7OcelgIQsqYpsmeJBsDDRfeea
ROV3UsqgO30QXOwOWeyPJ+Fvmk3fm+hBsDtoe4wdRdVLZ2SZxu1BSFiXnlz9
lIQq11VuNtsHQe59/OwvVxIulV1aqqRIXU+63sXtCgkLFxW+5S8ahLqN++7O
XiDBItW4210wADVLpm9H2FDxtd3VTUiluLdichlOgpdKReeFyAFwGbSWitlN
+f2m1O1tvgPw400zbXoL5ceFb9LKzg5AlrpUmPlqEibwRslBhQHYbFrnbiRE
6fd6c6tqeD+sOjUtFFAogLw/d6+PePdDuZfTjvq3ArBGFfM/Xe+HYt7d3tFX
AohrsUHG5v0gFaTXXv9MAKoSAUku8/sh1vlkUJ+DAPZf6XfO8+yDPdfKa69I
CGDg02ax+1f74Mz7SLtHc3zwE3dL0D3VB/VOv3fcGuFDbaJUQ9O+Pig1etH/
p5UPxxu19vyb6IUEWjfb8A11/9GIomu59EJl8rvQYE0+hIXJtVue7IW3D1ep
lG3iQ57gRZ6LcS98YNWoNqziw9/ERIeEDb2w1GVPURiDD7clMioZrB5Ie5Vf
EPyVB+7tJY+/neqBIoeRQH8zHvi59y85drgb1Db+zOfocOFNiyPvqnY3aP+j
sVS3c6F6G7s8YEs3DNcMlRit5sI8Jv/mp4Xd8MpiOE19hgOy8YIsFN4FuR1K
7+JyOaCkvXT3d99O4KvqvuyS5YDGI7tDrIvt8El724+8XyyonriffNKwHcwX
dA98BhZYO8VijRvaoSIo6M/7dBbcPPL7UymvDU79x9tr68WC7NVHtsY4t4HN
Gu18v60sWFeiJ2tyrZXqO+uye/5MWDq+kZd7pwU4DIvhCyqDQJ6ffvbArwFS
Q6d2rl3XBw2ZWxeZODbAelf1tjyJPvgw6hgkr9MAY6NXic1DveD9sD6oaO4X
FFh+/Nb/vhdkI18Hj7j+AmeDiydM9XtBp9Is9JzDT0iL+c92v2MPRColh5vu
r4MITd2d4mu6wKs8RgNNVMLG9xrm3y40Q9NHzfI0ejb8ar71fWwYwE5Nb8Yi
OBPF7RieT7iXoJ5D1ked46qQGe3BZyVGC9IauHf6e0cVEjU9fqNZqwVFeyRc
VvuvGuEfik5dvdOCDn/gPOLEVKNwUQO6raAFfd5wv8Ax6iuqlqtQW9D8GyUu
TJSxC6tB5zolDeJftaFtnDHeOt06lF07V0JT6UKjWShr+d4G9PkCN4vD6kU1
G/YuvmLbgIru5/4LZfShVyk7b1Y+aEC3rM7brFvVhw7Hb9zrWt6ArMg3fAmr
PpTzVK7yl3Ejous9rakq60POl8c7n55qQnf0Tu75G9mPmKpZC4V9WtChlf0a
hlsHUcnrtKs2b1pQvK7Kimn9QRSu+Loh92sLwhS5hqH2g0hP9kW0veRvdMTg
874boYMoSfyxMhH5G52wktKeGRlEp1iOWm7prWir/7bYJdlM1Jq80nm4rh3Z
LCIzw5ewUYFIxuE3f9qRdtO603dV2Cj03J5ddks7UHqtmfL+fWxktN5C6LtV
B6rbY/LkviMblWT4h7zp7EATWhWmCYVslJA7WmDH60RdPQHy/hYclHdqYG7Q
qxsNRhev0LnNRYpSatc+h3WjFG+xngf+XBRUeq3/RXI3Ws7WlHkRzUWXFYWq
LSq7kaG6r7fbJy5S7pcN+TyvBz2Nl7WqmOWiyHNma+OCe5DhjqIhr/s85Ob8
8dDR+F6ksG9PifIZPtqPxs4uzOpF7oOtngEufDRv0WaPypJe1BPq11rvxkeR
OYlFezp7UWFw/hKJMD4qGPVXXflfHxq9IHdeuYyP/ty1ns+M7kPceYu//pUT
oA+GISov0/qQd4PI5afKAuQhX6Nz7EMfenrX8I/YVur9twTd//abqnOSo9tr
XQHaRFsnyFrej3jqD657Xhagi75jP26H96NV+SN5+YUCtM16M2/r637k0HRr
2pUQoH8qF8S4+f3I2CI9WLZagPy+tuO2jf3omHWnl1irAL1eUJ6jvXQAiT4j
k9wnBci5c+b75JoBxFqe4GqOkUg9axcnd/sAMhG7aCkyj0TlZumKykcG0DLr
aEXpFSSVd0jovJABVPVvx9rv6iR6c7YmqyxhAFVnRcRmaZLoirpIzb2cAfTJ
IY9z/QCJZpvuMMi6AZTnt0yQYEYiednTN39JDqLkzIyekAsk6udEBwcqDCK/
1/pWXi4kSv/Y8FZ38yB65fD46tGbJNKwPTRYaDKIGrLi7sc9JJH1y81WsU8G
0VhGq23ZcxKNinaeTo0bRNXp7Q2qMSQKcgl0KsgaRJITvY7OL0lUrcX2qKsf
RPXxe8v900jk+DoisKN3EBU8W+J9OotE2EK9CA7l40Fs6uCyPGq9jsQMhjQT
lYyXVywqJlGTjnmh1DomMp66fsu6lETXMuZKV+5mIv/gbzL3vlDxutk07z7O
RMG/fyy1+v6//KSxy3FM1OWc5HOijUTvPcrn381iomjx4T2enSSyYF+T8SWY
qNi98qN3D4mevP+hltDLROZ9T//7j0ki1VXuuzJHmEhjudL4OzaJKnzV9n9k
sFB20bOQtTxKT0t/q0ZlFoLbw/SYIRJFl+yy793FQmJrmhvi/7f/qTzoRB5i
IaFjzrYPR0n080nYreljLLTU7nmM5l8SOY/t9xS/xEJvso88aRgn0Tzb4UDp
eyxkhbVu+d9+6Ovy+Ig1T6jzdTy9IyZJtF/NJHFLHAslJ/7w+TxFoq7Q6Yx9
WSwkH+C8s3qaRPem0goNCBYKfr0jJH2GRMvPHPtsVc9CzQOroi7Mkijvq+j3
s70s9PT2CQP6HInMthU0Xx1hoeW/1JNvU8yLOtvrzmAj20zV1GqK/WhL+I+X
sZGDWOfRvxSvvVA6HqnMRrD2v/RZiok6F+z1Ljb6GNj5pvd/+6u7Vy7IPcRG
NyX3myZSPBFfI0McY6Oc0qC4fRSHibopfr/IRr4zmhF5VDxbXdZvbHVjo57T
vXtEKa5tat7FDGSj7/W6vupU/Be1fPaPvmCj6OtHHyIqP5HXO4xpWWz0LUtF
WYnKP3FBn9VCgo1aNwvdHaT00roZbC9Xz0Y17br3vSZI1NqOLqv0slF4R+DW
aUpvVx3BLfURNjJ9HhxpNkaiJRmxnvsZHIQn7Ml7OEKi7CWGT0yXcVBuU6hP
4DCJjNz+Rdgoc1Ay3iJ1gySRt4HlW9dDHLSg7btNE4dEq94x3nsd4yBj6eLV
5iwSfVqR+znoIgelPV+cljJAojGWZEtaIAcd19wqxeoiUYhZSW/hCw5ySvH4
W99Ook3vnfjlmRyU3aSXEfGb6gffaqyrjoOObcUiC35SekpeKqzu5iCfA1Gr
TX+QyDxivlPeEAfZHrHaUvWNRJoppo3+i7iI1WnLPVFOosWVjSk7zLhI9dc/
fB7VP2Kmt2wUTnHR0bojNilUf800LZead4WLjLxU5JXSScQaPHG36xkXLVbT
iPmcQKJikV6jgB9ctET/mZzPExK9e+pFu9nFRSOWrp0qftR8kVYqsCO5aMVH
vlOGJ5WP8nkFdUkeQv1nMMtbJDqvJxjuMuGhdlw8a7sdiZb6TIar1/JQRI7o
1ZXrKX8vjDVc1clDslPfP9atJtHc831CEgIe4s067TorSyJO8sML3Qv4aFF/
QecmCcpfX0Q0HxvzUdZ/mZ+PcAXISXhJT3cNH7VqWvB7kwXI/kne82/tfDT3
5N2/9FgBslpmaVDA46PMxowPlqECtF8pKvfxfAFqkH70wPyhAC3XVfDZaSRA
d7uKV3ZYC1CZ94YNgd8EiDbVevYoQ4A05p6/VG4ToNR6by/Xf3z07o6QdClH
gOo6b61yE/BRonOj0F9xEq0Plpvb1MJHntYPmuwOUb76feXu/jTq/qT2y2M7
NYeMzSxlFfX5qPvCPqfLdkPIubpxRvoaD8mn/HmtcW4I1aMclZIzPGTdn9Ij6jKEhsyzjxgc5aG6k4utEt2HUMXTjT1Su3mIOMLUbn4xhJQeGJy2m+ai+H3B
MtrtQ+jQu1hPoYdcdFJq4PPSY8PI5wH+s/w6BzGiG0Yfnx5GixK+f0g5RflQ
sVyZfnEYSZ+rX3HZmIPGt78KGL47jO5IPAiOp3wdZHn6cG3sMAryvP41uZmN
ymI6eny7qeOGbwcMdrCRinKT0NS5P8hBosUxuoWJRjQqtXpcR9Cs6HLbqp/9
qOJItm6l+wjiqZ5sIz70o0inKKO3PiOInZ60NjmxH2nFXTp+J3wE3RI+6Lr1
Wj8KoC1ylSoYQfAtN+PEon6kWGX9VntsBFUeajshod+HzI9y5BKvj6JN4dY6
Xhk9KMtlwT/7K2OoY3CtTqNnO2I8GPSwDxtHbhWFx9NyqpBH1Bp9mbB/KHRw
VmKnVwYYMh6sL/efQvFt3gr2oz8hU/9yiyB1Bu0J5vdnbeiBoRBF686cGfQu
XsLvil4PbGtvbv5eNIMCO/M2rDrdAwXO+5szqmfQw9ocCaPwHoBQmaaL7Bn0
1uPgkV9zPVDXUfprUGUW3QkSP+3/oxdGrkr/6EyZRbz7aat7T/XDzo/fTGqz
ZpFSrK6B+Z1+uM3wqC0unEWB7CzjjOB+mA7nfo+tnEVXNFUfKX3uB8YnouY4
cxYt1YqXV1QcAGmRS1+blOeQ/qiL3ebOAdgdDV9qk+dQ0lfPeZO6TOjflKV5
PnMOlclg+n62TAgui8ulFc6hIoUx36kbTODw7ifsqJpD1WtHooNeMSEWad6P
5syhRYxjytfmmPDwmo1srowQnlfsVzaVw4IBmd/17jZC+L5CM4NbNA5o9po9
+XZKCDfWm/W5vowDIRlVh5Y7COHgL/TSfD0HtLTfQ85lIVwv8LBErhkHIi9G
vO13F8LH22jGYnEcMCg+6m+QIIQLovcqsLdxIdP+Jy49KIRnWybeGNLhQfKF
ezwTjhCuvDi+KdeCB7FXlCN9BUK43cBQmtVZHgS43yUn/grh9+bPc8C9eOAQ
rRjXJkrDjY+J4GHAA/mf16ZerqfhErXHF+zaxoclv+VTfm+k4XfiRgr/IT7M
6644vHgbDQ8uaamNMebDBF82zUuDhl+dJhnu5/nwS7zM2tGQhrPmVv95H8uH
AO0lBRsu0/AvkbsOTs/yweNQ8emzV2n4iV33WJnzBHDb9NyCFzdp+IS5/lJc
WgCOth/PLnSn4RePyrbMqAlA+86ZJcNPaXiRzOKcAWsBTGTnXinIpuENmafW
2aQJgCy0lSfzaDg97UDRcK4ABktEq9YV0fDU2A0rHIoF0FBzQiGqlIZHHZBe
MfBDAFkseq3bTxrueIE+fWiEWm+VxQbtURqunHaiJ2I7CdfJu9pbJ2i48FvG
Yl8NEh6WJFitnqbhn1fnz1ppkxBjQ3rRGBheZNgxHGdCQl1kQHvpEgx3vfj0
CXGOhI5zOX9yZDB8YzSb++kyCZydLWKJchg+9i6tIfo6CYxGJXXPNRjOqS3e
NOVOwh6p0if7t2P4rjt7LhuHkaDXzXy1bReGG+8W9TkaRYJF1sIPinsx/N2d
yVmtOBKcjW0GsQMYfvTa2dn8FBLc5L2m/+hhON6f6XYggwQ/buriPgMML7Cs
0HuXTUKi/7hW2WEMf/PTIH97EQlZ1iuP5lpS64fdMfvf/uSndbqXXh3HcO36
CRWNUhKav4REeNljeOZ0rueXKhLmY5uGDlzD8NB5229ebCJhRb2FyA5XDJ8j
VcN9fpOg/NJNfu1dDFeWXvzbq50Eba3qQwxPDG+4rF60upcEkwVDJ0cfYfhj
GSHzz/0k2LRL3+z3x/CM8aa5A0wSXO+eTSgPxvAhkIzicEnw0n9cmPccwwcq
SHdJAQlBy999T4rCcKTXcm3ZEAkvmC19YS8w/PKBX9emh0lIK5j7552A4c5l
YvfLR0gofKS86GYyhofVlDy7PEZCuYWxskMqhqufP5Y6/peEn2tuaB59i+E7
k45X2U+Q0PUn+rBuDoZ7hdlzM/+RwCstPa+ej+G2Fpul2idJmAxiuSsVYXik
6IvdnCkSRE9JPl9WjOF5bcmnfk+TsHTzznThUgxvFrP3S50hYfWsTelYOXX8
p2jW8VkSNn33ah6ownBDf+4vHsV7Y9P4jTUY/tT/wV+7ORIOXaqnV9RhuGCf
hXQexUc1JlYUNGB4+crl29kU24srbHndguEJ7yKM5ii+0qKrF96O4Z5Pi+2p
50W4n+Jk49ON4V1HQ27WUhzgGnrNtR/D0z9oPvKlOFL3g58jC8PX3aeFrKY4
eWlPnCUPw5MuHYiNpeJ51yearzeE4avsvZImqPhvtHyreDyK4dYf++vWULzr
+7OWugkM33ZJNUCVyney9Ahn2QyGm7pdqZ9P6fGpQGb6OI2On743nfKV0s89
vW3BS2E6nu+9T/IspS/+Ml5hQJyOh26qEftN6Y89P7NVdSEdPx9+MXw9VZ8v
/usOuCym49+sGR+OUvXzc+da5EnTcf2gzJu2VH0Nrmc5/pOl42K/Ur7hJAm1
NrsCvNbQcYON5mbRHMof5lMxVevouHyZsfciFglH9ODtAjU6XnZ8m639AAkt
mw/WR+yg4zrmS+dFdZEQvVair303HZ8NS+2/T/nVdsWP0dX76Pj3WMurWpSf
ezGr5Rm6dNyOKcg6/JOEpHFZ1WF9On5m5tOF17UkOPI69+40oc6/cX6g8SsJ
3EZHO8KSjveH9m2v+kxC5lfVq8InqHgvd0s+LqHqBQJPAzs6jtGWEes/kDD6
xvV1wzk6/hbXzZmk+nPWzYfPuk3H/5CJTtxYEogrBnMb79PxUfjvwZMIqh8c
Fkpd96DjipX7QiRCSBAzDd8x40/Hj8Zn/4rxIUFK8bWbVAwd/6W58f4CZxIa
pC8+sYyn45bb3Y2DqHkULrEpPuYVHXf8qHiUPEWC7Fj+Z6UMOn4964vK/iMk
rK36Iq5RTMdrx0ZL9u4kYfCTv9yDUjoeHqmnnLCJhNQc443lX+j4wmvfhPuU
KT/HNJqZ1NLxXJses2lpyh/OAxH2XXT8cN3O5T5jAjBYKqz8mMbAl9lfG59N
F8Caet1EX2EG7iTyVqUlUQDTT3xWeoszcHGijhcSJYC3omIy96UY+NOHXw6/
9RHAoql5Yi6rGbjrh+g4VzsBNPYs4hzWZuAaXRt7z0gIIDPO3NFUl4H/nXrW
cFxIAD4nQnoN9anrO+6d2j7Gh92NS9p0zBn4g/oWqSedfIiukq7ZeZqBK2JP
Etqy+HAqSz5T1oOBL5bbED5qxIc9TraqMo+o9Va7ay3F+bB4fdzrJf4M3DtD
slV6Ox/KEhXi5wczcGnv5JVflvNBOVwxaPYlA095yTKu7OUB957KtV6CgW8b
m1zrfJUHrgY7dqYJCePr+gc90u5wgTyQkhjCEMZjspiPwi9w4fw+WUk3MWH8
4DHC7vwxLpzYIsQyXCSMa8S2/CzezQVcuiaKryCMR6Etl7f+5YBE75mZLUgY
dz9cfUvfiQMv74SWF94Xxn23nJ/3TpcNK66LbH3pIYwb3mh4dnsbG0Kc7rzw
eySM60g6iq1TYMMjOzvXY0+E8aGmennNCRZc1N2gMhUrjMfq57cfSmXBDqmy
x1qfhPFl++QOz4iwoPrNn8NfJoVxZet3F07kDMJEJfYRmxPGj9w2u382ahCU
mYvX4HQRXG1Nt5qFxyB4Km0f+SAhgptlLKthmg2CZuL10Gx5Edy2qkGkTzAA
2TGjv2K0RHBVq/mp2soDEPn0r8U1TxHcQj16/jmvPjh/Y9JSYZ4orp+R/F/Z
VBfE6O6YPCIqhtuXvUtBV+sh7a1VRImEGL7N5M283Rvr4f0ytx3rF4nhJqfl
7sux66BpoNR5drkYXpeU1550qg4W+Zj2vVEVw/ltTgeev6gFn4qLNTPGYni5
iUydpelXuHYwIS4lTAwfOi1ftDK2FDyyyvcujhLDm7H8e8sXlUKQDKvl3gsx
/ICQ0fUZLwLeMjctOfxaDP+m4K4v01wCLN9PvtOFYvgc0R0Vcf0DnKxqvmLe
JoYLW0ts732dA5e3TC341CWGt8y/FNUemA33IlemK/eL4Sci/JMfDWRC1HmH
gSmeGB7YsVEz+14aNIiNHHs9K4b7Vztej0hNgL4r0uOL6OL4prvJjuvZcfCn
ZU+Ym6g4PneydtesezRIpj6sNVskjofh+44apQXDSqmkSx+XiuNca9bXlw8C
QO1OpZjyCnFcIyvhhV+aB+zt4SQH/SeOqx5Uqc1Puwr///0u/v/f75b8H9dr
XY8=
 "]]},
 Annotation[#, "Charting`Private`Tag$17719#2"]& ]}, {}, {}},
 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, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}},
 GridLines->{None, None},
 GridLinesStyle->Directive[
 GrayLevel[0.5, 0.4]],
 ImagePadding->All,
 Method->{
 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
 AbsolutePointSize[6], "ScalingFunctions" -> None, 
 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& ), "CopiedValueFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& )}},
 PlotRange->
 NCache[{{-Pi, Pi}, {-0.9999998782112116, 
 0.9999998592131705}}, {{-3.141592653589793, 
 3.141592653589793}, {-0.9999998782112116, 0.9999998592131705}}],
 PlotRangeClipping->True,
 PlotRangePadding->{{
 Scaled[0.02], 
 Scaled[0.02]}, {
 Scaled[0.05], 
 Scaled[0.05]}},
 Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.734028857168758*^9, 3.7340288639555583`*^9}},
 CellLabel->
 "Out[184]=",ExpressionUUID->"bcbada5f-4475-47f4-b871-28bd79c34453"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"{", 
 RowBox[{
 RowBox[{"Sin", "[", 
 RowBox[{"2", "x"}], "]"}], ",", 
 RowBox[{"Cos", "[", 
 RowBox[{"2", "x"}], "]"}], ",", 
 RowBox[{"Tan", "[", "x", "]"}]}], "}"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", "0", ",", 
 RowBox[{"Pi", "/", "2"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6982802899210415`*^9, 
 3.6982803824620056`*^9}},ExpressionUUID->"967dcf23-dd48-4f90-b17d-\
c71706a3674c"],
Cell[BoxData[
 GraphicsBox[{{{}, {}, 
 {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
 1.], LineBox[CompressedData["
1:eJwd2Hk8VN//B3C0kFLZKqFFmySSIlle8akUZau0iFBKUrZCJVqkooQkyVIp
IpSEkoQoJClLKJVhZu4dYy7Zxpbf+X3/ej+ej8edx7nn3PdyHrPQ2cPGRUxE
RGSCqIjI/+I7yZr2tU5GIv+LXkZL6CL9ebeAi4rltPItSww/1zzUHGWJBb+s
lJqiDoAt5yrMI/F6wVhTdpQHWjYHlz4m8bb9+MbIqCA0HIhalkBiW0KPlnnU
Tdi4K7TEkjhp91xx68gkRP7dnxMTlYQomMX63XgG/XIzSROf5xjIvVOacaQY
nmcsnHI8X2HwZvOdYrMKHH/lEi62qBh/S2t7SgRfUE9tnZLqXIae0MV9LZL1
CNUcEMnbW4E/S3QMXcq+w2tFxe3ix9V4F/PMyzznB4YPHstqPVELy1abHeWe
v+H81tYq4vA3PHx5+pD+kTYc7KkvLr5aj4CZ5p57lrXj+qp8j5SQRjT33jk3
Pa8DYsX5usFnmsBuOaUrspwDaTXzmt+xLRCoTxu8nszFliST5O6onxibscCy
nU9hNlO9OSj/F3oEG47t0eEh7mOB6ISjfyD2KnDflf2dMFA2Hl9wqA3ffz7Q
frSDjxV/ZnacO8lCX5peYv2GLlhwF5T6+rOQtvOG3LSNXfAUrLrvEcBCm92C
t8amXXg5arXfKZiFddPWP0rd3gUDhcj6jdEsCCe9LrPf14VtNtLlU1+ysPj8
ikU+Pl1wL5NOudvLwl1+99iGR13IfCLjmuvdDoPSokoHEQGCG94ZT/Brx1Cb
rNn+CQLsFzuuaH22HVdOuSbuniyA5P6PNfxL7chW1y41nSbA4RkBaxffbkf0
XItuqTkCLPBli93Kbwdbd06+lqYA0f+9SvAcbccjeb2zDXYCBPyyr1sR0gF9
scKyi1kC9JkaJriEdkAuUcKKei6Ae7bSkaTwDoQkbc03zxHALvjHsMydDlxw
/jdn2isB1qvtVRlO7QCjFbXYp0SAoVM7vSoqO3C6rUW3pU4AXynzGS5SbIwm
3Vg9dVAAga9ac6I0G6YWGfwVQ+R9/0xJbpJn4+jQy3NmIwLY5lTobJvHRoZk
16IL4wKs3bvZQVuTjXm81oB6cQZ9j4wzRa3ZKOB6bJCdw8DLYJ15YjQbqmlZ
st06DERORAfdjGVj6ZPiyKfrGIQndeecj2dj56t4NZf1DNLF0pQOPmJju8A0
45shA1aFgmDZSzasrS/xYzYy2LlrJCK7jo30gpytZdYMdE4UNZbJcJDro/sh
241BWdLcqXmzOPh8qfHYKncGNl99kTqXg4Nj85ZnHmdwYo3mk2sqHPg0WvLu
ezJIHU46bbGag1Sj7GAvXwZzrlxQarLmIFqvYVL+BQbDSRudOyM4ODT26eG3GAZGg4ZRWrc5WLOiX0ozlsEFC91Sv7scTFFndK/dZSAxtlxl4kMObEV6P+rE
M5DfN4OllMNB09GIBt8HDFbJtThZNHBwW9c+KvQpA59jdZHRzRx0ue39XZrB
IK+0uqSllQOJkCxamMnA0OvdwiMcDjqVpuo4PGdgVvOoLWiQAzV/9adSuQxc
rno4ZStw8aPuet/4WwZPfrtGDipzkUDJSMm9Y8DXcS4xVOHi/cbktiXFDLzZ
OxdWqXFR+C26yKSUwXmT9W0sfS6krB5ucvrAIG50opOcAxc/pyzz16phUOsZ
5+j3kIuDGnv7lX8yUIuYOXIyhVh97fgP4kvPQm57p3OxMvGxVGwr+R4C76rj
L7jYoyW/TvI3g4Rj5msOlXKRYc6UNLYxcDs8Km7N4kI9Xpg0k0u+12XvhxYc
Lvjy7K4sYuXHlME2HhcNya9hTpH12+u9TP9yMV2nT3COZqDrlPnDUIwCNyfl
zKdOBhP3OzxTU6EQVrcY4t0MHM7Wb1VdSmGwZsvHy8T5cWYdS9QoGMytsBHr
Ies36ygsXE3BsfS1Tz/xV9sZl2abUPDQjv35vpfsz/eysvxmCrHpZYGr+xgE
3x7JlzGjcIkvvTiJeF09ly9lQ8GP2+vn3c8g0brYdqIzhdTNCzaKDjIQeur0
iB6moPg+/t8BYpuIjLDxoxQ0PMQLC4knfYktHvaiYOocAU8hA/dtXmo9Fyj8
N9Do+m6IwYdj3DLBZQpyO9XWTx9mMD/M/gD/GoWFWsbT7Yi/VW6N5kZSiHNL
KRIQ65mq/Gt9QNavr8W/EQZrkquufnxM4Vy1B6M/ykBj3Fs2O43CsrzAXD9i
lfz3qsHZFJ6u+hVMEyvJuuccz6UQ0bssfP4Yg1kecka7X1Owm1afuYN46jKX
HWolFArZm1flEU++JPVLtpxCaKn4rQ5ikd+5rmMVFF6unD9N+h+p/5jJgbW1
FKKWmxofIhb8zZIoqKeQX2wzFkpMWey+ldxEQb43/csz4tbJT574/qHg7r8u
v5e4ydlK27GDwozCo9Uy42S/RcK3WykKRgG/BzWJq+c+2KJN5sTF4Tt65sQf
fLfWKXWT/dyOjDxEXPytx35yH4WvlVXjZ4kLNOIoZpDCjlUmwZHEL0NNfJpH
KPwIGpj3mPgZhzdWOk5hz3XOlzzidJNbVzMm0BAzlb7zgfhRor5sjDiN/UWn
TtYTJw63JwRNpbFynqzrH+JY2+uqR2fQCH1GefGIo16sybGRpVHV1B/5l/j6
9FZDg9k0bimvrxASh7hdrliiSOPLvFy5MeILH1bumDGfRk7cYb9x4gCVxlah
Co0Cd4vu/7dvYKAraymNjBvuQf+IPVuW9n5SoxEjW7J4hNhN58u5XA0aNVrb
/vQTH4ryk0haTaN33fQXAmIHwfxbV3VoMDHicWziPWYVyt7rafQ0rottId6R
4vnEzoiG94OHGZ+JLcQUtDeZ0NAu3PS9iHiLQ8lbjc00ILloThaxScHRLXPM
aNBh+h73iA1mydSJWtCodIj4GUKs411g32lNo/ytiqMn8aoaZ6p+F43Jon1D
u4mXhOSMpdrT8Fi213Mh8QKW3dVIJxq7tndvm0A812ii7FkXGv9+VqOd5MP0
gZ2qFsdpqIk6uCYQS9iMvdD1opFWOivRj1gs67HhwlM0OkyVeZbEgy4DNn0B
5Lz1lMuHSX7+LUlsbT1Pw/Ct4s7PxHxlU9ePwTSma3sPJRD/abhzLu46jXsu
q6/oEVdu0nuyIZ6G0NH22V5SH/4fAzWC7tO46emZM5tYdWvZy7ePyHkOOPnV
kXoL2WZZsj6Thmb5L6ONxBt3uLSsKaLx5uuXaklSn3316Y4+pTQ47DW1eaS+
k227OdkfaMhtjb/lSCy272yvxhca+W6h+zJJPyh2jJy2/A8N49E79ArSLzxZ
jVFHOmgMbC/tKh8g/eCQkkIKRaOaWvTCnjjwSOqSRT00Pvinnw0h/cjgxFsj
ZTEe5HfHy7wl/Sz/LO0pvZiHywk2u4sYBofHNAYtVXlYaljgvIZ4VtDJc+Hq
PPDOtmk8ETA4eXH82tS15PlTMVOudTFYfU0+edJmHsauvarUJP02K8a4YegI
DxKXdwRKc0h+zblit86dh5GTmXEH2Qyk4qrbfD15WF7v55/TQfpbwm5Brz8P
Vfdu+m9rJ/310XFxwTUeOrasun7wD4PH2Xf1WE95eHGaNW1pC8nnETu1pmc8
VJ5ssHNuJvmzaZ5iTQ75/RfV/PgmBoVND0dfv+FBXGfhranfGdSNP30X+YmH
Ttectq91DEQtijYZd/JQMRrTIfKZgT2PZX1frRPLRY63UWQ+qqx5bBKj0YnD
X7UbOYWkH507on19dSfGvio0s96Q/Uvz5fzXd+K53qUpDa8ZhK3r/25p1onz
6yNnPSTz9nWIuMP40U6MfFDr/kXmtfwidTeHtE6YhikodZD5HxEVZpuW2QlN
Y1XJa+R+ICnWadKX3Qkv3/HsFXdIv2xLUwwt6ITTPHdNt2iSj4nLPud+6sSr
SomOT+FkHs5dtEpK0AmJBermKpfI+8jMHXizmg9llVu1iuR+w1w4zZqsy4ek
MHqFvys5r56mGmt9PgwmNPz37TADx9o7qdz/+OjYfy0j6CCDbeHye2V38XE8
e77zu/0MFklKF7r58RE/zfP0NwvSX0UlLioU8qFbFW6wRYv068y7DlbFfAy9
SQlw0WQwZd8K/StlfGiVs6LOr2Sw4YVFX181H9YN202eLyf54Hz7cG0rH3tt
U5/3LyTn9V7F/Mo4H2vnPKDnyJB6uGwo12/Shbmrd30o6RYgV8InpbayCzcO
bDj1OFUATsCFrqLPXfg2JVr14GMB5vTcXJP5tQu+7ENi85PJ/bc5o/RacxdY
+yXVIhMF2JjO+WVCd0GkGNsP3Bbgm/m+2bkSAlTH3BBLvihAd7jx1bumArxq
tVWtJPdndfmZbs7lAqxmygpiyXNM+ICcdiOD9eUry+31u7DoyhVND7du1Gha
Hf5qzwdr348WE243Jo3nKR4k33kLu24o90QPjjK+xi9NePD3dnGd1dWD6txz
J/XkaVjk3TOb5fsXvSKiyfXk3iMYdQuYMPAXl0yPGRyw5ODB9wsvT/j0Ytdm
S9qotQPDroaOp0d6oXVgAUt9bTuUxyLtvM70IfiekPp4uw0c07AqiYn9YFty
8izP/8b7pdWYF9aPiTpnPpeU/oCbRMrEhVMG0OreHhC5vAn59xcbvo8cgIIi
u8pJtR41+gblNtKDSCm0jz1pWwuh270djuGDsKufTw/OqESFVdIuqVlCRGT7
KD15UQxnPYPU1Gghage5w79SsnG063P/zxghlMJ8ww44ZsPzwYGNMneFSJee
XflLIRtBUy61BSQI8bBI0qn5+nPEN1cq2qQI8VtouyaInYXG07sjRvOFOFyl
UZUWkA6zAu/T1j+E5P61UiQy7QGsT0ysCGkVYrdRn56N0gPsUYmZVfhbiDsv
RpfI3LyPI6Gvc5Z2CNGkVBikRCcieJ+IYIQvhOvbQKuewDgUDd9wTvknRPlm
q+NIj0R51vzsHyJDiA+z3vDwZgSqnbPHZ04YwtD52PvivHD8qKqPPys+BNaG
+8MhQaEQxil+t5o5hHxK8vOJ9AsYt8hcEiIzhERarmcrLxCTJ+DkG7kh6P2U
6coJOgO5Y87SSxWG0LAjXv1iuhcU5/cdsFMk67m3rasJcoNK3eWsCOUhiJo8
lY1Jd4Laldlj5fOHIDVatOJ1ujW09NPMRxYOQUPrxv/+H/g/h4CSLA==
 "]]}, 
 {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
 1.], LineBox[CompressedData["
1:eJwt1wk0VdsfB3AkUSl6NFCIBpkLSehnyvgSelKGDKUMRVQU0ksZGkSGQuJK
pkKUeWhLbknqSZIhMs/3bG7cey7if1rrf9ba66zPWnuvvX97ffdZZ2919bF2
4+Hi4mJQ7c97GVr5eUDd5QBj6c+DYfvYay2JOIDSW3V8fzxXqHyqI/YwGO0W
F1+gXMSCb8IFtrBx20odNuUhEXeyNNYJFvOjz05RvrupQbCg6iSIaebljlDO
knVI4yo4A/2HnGd+UK7VmFI5QvMCybi8v5spdxrdrMuM9QHGp/sv3/yZT261
XHCdL1T1Ce0oohyxp80vs+oCmDbLZadSFtlPq/pcfAnyKnrVb1NO1/PkJfMD
4O8fqi0XKCuZqh3amn0FeuO3B9tTrrJcTDCjBcHFE2WqepS/OcXufBx7Dc7m
vPnI96ceVaV9A/R/4XqpTt7wIoYAjbgfAXXXYXHKObmeMi84bk+vugFi/2Sm
BVJu1K/7oF5+ExYWGkutKd832undWBwGjS20LlnKEhbTpb/yI0DtyBmL/35j
GLQ6ah/5LBJSzzumpFF+blO1tDn7FtynrSHPUd7nGGZiRLsDO70K2nkpW5/d
1JkYGw0mLwHEFzCs3gfogXEMMB94zHfNY5iq8BXuo8eAP78nPZlyaU1byaW6
+7AxejF0HWUDOm0xtSoO3Msmn45zMOww/mo5phkPh6t0mx9RXvlheYZqeTxI
290TMKfc3ORp3FCcAMeU5bIySAyOrWox0/kPwchkNkKHjUH36Jl+LYVEKHbK
kvnJwrCtPUkt/FkiOLwK+hRCebxrsV0sOwni0p6Zl89S+zfQsNWQ9ggst9CZ
f81Q+8N0ePUgNg02JuVNn5vCECWarF0rSAOWX/KnIYyhpShMUt2aBma2Q872
lO3HHYYkumggzF2ZDwQGb/tVvszJdNhgFtI3OYEhXsc9MknoKey2Y1d2DGPo
6DjitcbmKQyLlggrUpbwB4sbSU8hrOW6VMgQhuyC9SLnpDNBOjTw9KZBDJWS
9DRdtSxQN7JKUOvD8JNbumzENgcECl1u/+6k6ksVTHZIyYFb08buCpTd93OC
v/TmQMnExqVjHRiYfs36VR65sDyvzPb5dyofgyGf7wU9A7/RpFK1Vgxy77qG
1NPyYPgsn2ZnEwYtutlK/QuF8OXzyw/nqzEItWb9pxFXCHd9ojM9qqh89PMk
KL4qhMQuTrhzJYZ7XFWSm34VwlXrSjuTcgz9WvLqU35FYHio1pirGEPky1XO
qX4vgXl3wUj4OYa2tKaSOd9ieMJz73j5QypfBbJBU/eLod8ySsDvAYZ/a27q
DhcVg6mn+5tdCRh2dWl//DJdDFHzy0zjYjEEr8/vzfEtgWxX0UqLKAwyUVGr
bH1LYSJDae+ZUAznAy1cXp0vh1K2yG5JLwxm3to5/DHlELqpID/dg+rvKocd
X5TD5s3uJtLu1HpM+a7yE+XQTk9u3+KGQWfT60RHrwp4sjLs9OIJKn/lis0r
TleC7JzEITdrDJmzq8HBvhperOuZatTAEDI2F1YUWA3XxgydhfdiONY92sSX
XA0xqQNTNmrUeaDX2xW1V8NZAVX/DhUMfvHB/nxHa6B2ml+kcReVV9XJ/ELL
12ASe6bYShzDuXK3ezwyteCVHvr3/AJBfR+spLjVasFA5WlE1xwBUx3aL5cM
a2ENPSaugiTg4vxfbQuna0FKxk3CZ4aAwAN1W9jPaiFUfz9v7QQB4fUS+RN7
3gC78S9VTgcBtObvH1v16+DVleuajcUEtI6aCmS71kPUuhLTqZME4CTZgzf8
6sE9YHvSBRcCVpqvuO4UWg9jdsyVsycI0M2vJzc8qQepxANHmccJeO4Lo5F9
9UAqMKPbDhMQOqf23tOZDh4DL14e1CJAebVUmNKJd/Ckr7UFCRFwW5nFVXq8
AW72VL9XKGWAr3xDQm1mE2QpV4vg9kmYO+lV0O3dDC+Xvi8d+zkBrjVHLWNO
t8BePtvlcZ3jcHK6tbY2shUCBJ1PXnkyBndVynyywttg7bbRfW9PjQJPbZnG
zcB2CLCoGm4WHQFhOfPPPxM7wcHmyZt794fAJE0/Yyr2B9Q9oNecFR6EDbjJ
6FpZD0g7bZT5ZdcPye8ruZd59MKOq8WbFx/2gvYWvSWpU30wSdwQeknvBvle
ocGrF/vBP8L0gPx0B+TnrHMv8RuApIh8ZTeDNgjucfwqHz4I33cR5/WUWsBX
e595avwQ6HndyDZTboK5NEPXiZhh4FWpT533rYfm88nOAU9GQDlHgWmCy0DT
WHqxO30UzqgZZC3x0ODDQc0c3ZQxEHA6ESQfk4oyi5I0+5+PQ/qJjpTy+HIk
KqPgeSJ3AqYNV56L3l6PWrj5QzdVT0Jh1mLRh9gmVMJ/Iav5AwO6mcEnjjm0
IAVRIU9XOgGqEw/7O9e3IXyPJaLahiGjLbarTqATyUREKPt4TkHjqvnxttRu
1G/X1ak/MgVjeKi4LLQXmQx95ZR4T8PP3CErXdN+dNnPzX09Yxp09UdlJ3oG
kEXpI7P1/kwIoW14/vbfIUQseAYvYzFBXsmpvWZqGKV/v17sfeEXtBv999XI
YBTNues4X5n/BZnS4xoSiWNoy+/79r6BM7DRpb1IqXocDRvfaeTnnYV++fqs
2c4J9HZHE0jcmYXCEIcYjW+TyJM/i3erAAuaaNfEUToDfeSJjDJYxYK48PjT
7KcMpPDbY/1pQRZcc1FPUMxhIDytKPtcmAXvRlRS4goY6GJXibm6GAt09xeZ
GVUx0NUCeqypPAu+5rqxD7YyUMw/Q1J+h1igfpebN5+XQGW0bTpv77NA3C53
9RonAm1bMgx6E8eCttF3U9EuBIpxdKtACSxQPSDFXHuKQO5iWerVSSyQvzBi
vtKDQGLxO5VK0lmQKBxgO+pHoOAIOcls6ielhnMpzzScQPreKtx3vrDg9rYZ
fdpzAhU0WcKtryw44tN+YyifQOLyvlcjvrFALVyrW7aQQDMjRZwbHSzYd4Jo
zy0mUKaLKjO4jwWzupJT8TUE4rfZO+A9zYJP976FrP2PQJ+1tOnWwmwQW1ql
mDBFoNvll+aN/mJDxt3e5XFMAhmrv9itJcqGa+9E+aJnCFSrJJ0qs4kNijK7
gq+TBHq1lT9gRooNGqO5WpZcGCWuaJV9oMIGk+syRPxajE5+9brbcZgNpLG+
baUCRlKWmXWfrNjAiEgcCFbC6EdTD/nmCBtSL1fH6ahgdPSdldszWzYUBvA4
VahiZFKhcSDIiQ3mF2mpyfsxUkpbNrXZhw0trEPPl5lgRHo+OuJ8jw3DmbGm
Pi4YRQdmrLgWw4aT1qz9G05itOP286rHsWywMJYkq09hZJNbJdP1gA2h1Wbf
uN0xejnS9csmjQ35J1o3+HpjdPbU5njzQjbkkIlPhwIx6nV83Lq3hQ323Lqb
d8RiFHAuM9KmlQ2/iycPR8RhtOZqvvbFNjZI/GKbD8djpJNS87Sokw1dtPcp
jx9ilNzZfVFhgA3Lr2SkTqdg9I+thKj0DLW+iqg1ytkYNVim2QiuJ2HTiAv3
UgVGnvVDr1dsJMFBZ5kpXxVGgvsUZHnESLgnNJe2qhoja8mKOdYWkspvTpDQ
a4y6GC1pvdup8TWHR3nqMCJu842/UidB7u65W7c/YBSz+PeRAg0SrJ7JI79G
jFT94qpzNEnI7zi07PhHjC4fl4p+rEPCKc3wUslPGPHI7leLOEhClL7h+4Rm
jETp50LsbEi4EmUQvu07RuX7ikf+sSVB/NvEIwZlu7w5y8PHSZhR2o6K2zFK
jYuQMXQk4cUNMSWdToxkXdMbFN1IWDSsy9vbjZH2Uus67kskuDUvSjf1Y9Tj
Jx48708C8eXgav8BjK4PuwzNXibB2tmDR2IQo3efiLLxYBL4lbaIug9hdDiF37H1JglKNyS/Do5g5KqpnZ0dT0I0c0/uv5MYeTA+zf54QMIrtQIHcQZG59Od
DNclkeC88nz6K8rXBG70BT8moVwjqecHgVFKxwdx6ywSPHxMdqybxigjyt4z
IoeExrYa1yTKz/QY5dXPSLDfI60iwcSoIlfo6M4XJGgGR1+V+oVR2xXbmIUy
EsbLJ/tWzGLUrTjWs7uShLCvDU+DKA/2BSqeqSZh91YTcpLyL9PUxi+1JFye
F7RqYGEkJDbEm/2BGv+wucGFxGjDZ/8jPz6S8Ha8Z20dZYlQ/ifCn6n5oi1H
JDkYKY7LQ3ALCb9c9YxbKZtV+l2x6iLBrDilUXIeIytv3obwbhLk362IP0v5
mPSD9dU/SRDb9YRRSvnM7YpXOwZJaHe3sDJcwMj7gDmPwzAJbdds7CMo+zN/
WN4fJUHPwX/2PeWbdlzE/CQJtMHpDr3fGN1ZE6u9G5MgaGywLYhybJ3MndPT
JHR0PVosopwuZyz7ZZaESyLWJzcuYpTT0+7PR5KwbiKbYUy5MNaTrjVHQt7x
2RWXKL+ei3LNWiTBx8dj8j1leoFkURcXB+j0W6UMyk2uRUtCyzjguy5BSHgJ
o9b1BhZGyzkwlhE5t5tyV2NrStAKDiiRLhctKfeHnJ4oFOBAS7VEyFnK43tI
zeFVHGB+rt4QTnl6+Fak+BoO7NPar/eYMpks/t1SiAPdOglz1H0NLVnkbw9f
x4Fs/SaDesp8y+BilQgHJge7N7dSFixrrptaz4Eo3BDWR1nEy1V4xyYOzDnc
DZmkLC4542QvzgFV250rZilLfw0riNlC1aORJDlPWS5iw2+6JAcaI/reL1Le
rZVrPr+VA/+/v6L/AbHJJVc=
 "]]}, 
 {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[
 1.], LineBox[CompressedData["
1:eJwtxXswEwAAB+AxzqOXIo9LZXM9LpUuuVrot4hERe6406llnm0JJeFkpZ1H
Cc3jZGrJI84lpbGeds6z0JpHWYVmSB6zXUZLtO7647uPRI/0CdEmEAg7NP5N
bDDsGrYPPKD7/03jbxw25AB+opfB/1bX2Ab3c7wQZLVRX6J5xCR8vo5Dw4fi
9WnPNUvc2I1lnEgw649q1WjupXG23OWwwGI1kls0+5yzkBRwspA5ndvumJOF
28qA2nwODze7Ku9vzuPBodnD0PliDVw7dwcYxdcgKuF4YG2UAIZBGdGt1wWI
EIRkalsLId9xTK1PEaLn+xGDh/Qm8Dve6u7PasINWxWhzr8N8Y/jjHXK2xBt
05YnLOvAIqW/6Rm5E+ogZvXX8yIsTw/NE3eKQH/t550dKsZWhntSx6QYQYoe
oTCtB7W3ZNekh3qRsas+sjylD+Vktq/dtY/QFtbvZSd8Qh9LsWDe0I/V2zy7
BgskWJ5GdJx3+gJ3nnPJDOcLSNWnT5FLBmAm73Bj1Q8gzD/J3qdiCIWtL7SI
Z4cwKygtKtaRwnH9wSWr4G+g3j6WfNh3GDZDRrIrMVJEJAeQxCIZHlWsCedf
GAa7k07b6TyKxIFT3TYpMmR/czIblI0h2nGf573cEaSNLjHGc8eh5h2iT2SP
gu1aNKfnNAFRVOGZyw/GQKYO8xvJU6AcJi9+Lf4O42UuO58S5Wh3pVRQi8Zx
Ioy7SEqcQdmTOxRp1Q88jX9DI99TYK31dsbpygmY2+rMpQqVEGvpJ1u8moSo
eBN3hclP8PUvlovap3ApPexqYNIstq81YtCbp5Hfz5yPmVZBnqkyseuTo9lg
gWtZOg/r1FTbSMYMNrQwL9mFqSE9+VniPDYDPZf0lQLvBbiPdP/in1eg6n0s
L6RkEXEXQsJNpxRQvdvLsL9JoB6v43qYxirhFKMbVblKmzq9wEgkqpTwsly3
RKslUrm/s7h7/iiRzfw98LmLSP0LNS5oHw==
 "]]}}, {}, {}},
 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
 Axes->{True, True},
 AxesLabel->{None, None},
 AxesOrigin->{0, 0},
 DisplayFunction->Identity,
 Frame->{{False, False}, {False, False}},
 FrameLabel->{{None, None}, {None, None}},
 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
 GridLines->{None, None},
 GridLinesStyle->Directive[
 GrayLevel[0.5, 0.4]],
 ImagePadding->All,
 Method->{
 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
 AbsolutePointSize[6], "ScalingFunctions" -> None, 
 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
 (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
 Part[#, 1]], 
 (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
 Part[#, 2]]}& ), "CopiedValueFunction" -> ({
 (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
 Part[#, 1]], 
 (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
 Part[#, 2]]}& )}},
 PlotRange->
 NCache[{{0, Rational[1, 2] Pi}, {-0.9999999999999979, 
 2.4760053081967683`}}, {{0, 1.5707963267948966`}, {-0.9999999999999979, 
 2.4760053081967683`}}],
 PlotRangeClipping->True,
 PlotRangePadding->{{
 Scaled[0.02], 
 Scaled[0.02]}, {
 Scaled[0.05], 
 Scaled[0.05]}},
 Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6982803156674585`*^9, 3.6982803331587696`*^9}, {
 3.6982803632049704`*^9, 
 3.698280383290165*^9}},ExpressionUUID->"ae8bcf7a-1509-4d28-ab0e-\
c031b846ea31"]
}, Open ]],
Cell[TextData[{
 StyleBox["2.3",
 FontSize->24,
 FontColor->RGBColor[1, 0, 0]],
 "\nTambi\[EAcute]n para esto mismo se puede ocupar el comando Show[ ]. La \
diferencia entre Plot y Show es que con Show puedes seleccionar que intervalo \
de las funciones quieres graficar en cambio con Plot estas obligado a usar el \
mismo intervalo para ambas funciones",
 StyleBox["*2.3-1",
 FontColor->RGBColor[0, 0, 1]],
 " y ademas Plot[ ] es solo para graficas Show[ ] es mas amplio ",
 StyleBox["*2.7",
 FontColor->RGBColor[0, 0, 1]],
 " "
}], "Text",
 CellChangeTimes->{{3.7340280149516096`*^9, 3.734028065701785*^9}, {
 3.7340284556099367`*^9, 3.734028473949118*^9}, {3.7340285377213607`*^9, 
 3.734028564459134*^9}, 3.7340288985344567`*^9, {3.7340290383451777`*^9, 
 3.734029038535741*^9}, {3.734029769530098*^9, 3.734029769658431*^9}, {
 3.7340303337726707`*^9, 3.734030334145295*^9}, {3.734030399486758*^9, 
 3.7340303996000633`*^9}, {3.7340305498691964`*^9, 
 3.7340305618976135`*^9}, {3.7340332675791683`*^9, 
 3.7340333199463744`*^9}, {3.734033363050474*^9, 3.734033415565163*^9}, {
 3.7340334674319954`*^9, 3.7340334704437847`*^9}, {3.734034927409788*^9, 
 3.7340349306095915`*^9}},
 CellTags->"2.3",ExpressionUUID->"767485e5-7772-4068-859e-6e93c49b124a"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Show", "[", 
 RowBox[{
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"Sin", "[", "x", "]"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", 
 RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}]}], "]"}], ",", 
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"Cos", "[", "x", "]"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", 
 RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}], ",", 
 RowBox[{"PlotStyle", "\[Rule]", 
 RowBox[{"{", "Green", "}"}]}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.679670458081235*^9, 3.6796705318938217`*^9}, 
 3.679860902316842*^9, {3.679860981435831*^9, 3.6798609961139297`*^9}, {
 3.679861036258314*^9, 3.6798611468977623`*^9}, {3.6978223896774287`*^9, 
 3.697822403475837*^9}, {3.697822442136242*^9, 3.6978224473555565`*^9}, {
 3.697826941233462*^9, 3.697826942858677*^9}, {3.6978269808783817`*^9, 
 3.697827010772127*^9}, {3.697827243109681*^9, 3.6978272448912463`*^9}, {
 3.6978274092838535`*^9, 3.6978274129873447`*^9}, 3.6978277900280375`*^9, {
 3.6978289510515537`*^9, 3.6978289522078924`*^9}, {3.697829052109432*^9, 
 3.697829052781237*^9}, {3.6978290917699394`*^9, 3.697829124523486*^9}, {
 3.6982763363865676`*^9, 3.698276338544328*^9}, {3.6982767639150996`*^9, 
 3.6982767692599382`*^9}, 3.7339623861097984`*^9, 3.7339624565906706`*^9, {
 3.733962493913379*^9, 3.7339625945934935`*^9}, {3.733963623478387*^9, 
 3.733963762322432*^9}},
 CellLabel->"In[53]:=",ExpressionUUID->"6137283e-59f1-45e6-8ff8-eb01d12803d5"],
Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
 TagBox[
 {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
 Opacity[1.], LineBox[CompressedData["
1:eJwt2Xk0VP/7APCRJZUIlYqKFqUklZYP6hmRiLIkSVK0UUKiVYWkSGUplSwl
UZR9y/YMEgrZQtbsjJm51tkMfvd3zvevOa8/7rn3Puv7nlGydzE/P4dCoSQL
USj//3vIUFJ3SmkeLfC1fnXPTu9CrUzPEfFV82jxWU3jCqGnUVVpOHLpinm0
kJcZeg0hLijJK+Nuk5lH2/i56HZMyH2s/eSd5DBnHi3A+13l0ZDnaCU+ubyx
W5z28MBCi2PB0XixrHUk5YM4bSfyC249TUbfA5+jLqwXp6kv+ay38h7i1Qa+
TKjsXJpvfsGB+Qdq8OepFYO9smK0bzdKNPL/NuF0YUKK5nJRmnLiqt8GjA7s
SRsNNpsnQuvr/3uiVLwHd70Xa3i6QJimODdB6JB0P2qvqVN7whWi8a+V7Uzk
DuI72QUaRyeEaK7Xc9buFB5CYVG9/+RHhGjJXgtX5iwcwp8DmbqJA0K0ujMa
yp/XDKHV1zdWvxqFaPuHlursNh5C9z12PgsyhWj2F2MWC0UN4ZcjI3+eXBWi
Hf7b5LFbm44KdyTvBtIptISlg9Wv7IfRMfanXGQ/hZY7e3L1t0vDmFXll/a1
m0ILORdaVe82jGaKswPVLRRattF1rUmfYfQrJcylf1FoO44EKA/GDCMhVbsx
LJFCSzm7/klg1zAWx4Y2RDtRaMvCLK4Un2CgVLWJS4oDhRZbNKdigR0DbTgL
5hedo9CM2lr0jzgwkGPoC902FJpbvXBM4XUGqhLuCesOU2hP09w+Gocy8OV/
ll6ft1BoP/Ukzyj8YmBNxDarC+2z+PAYsu/tZCIl1iWsvWEWr7LXBlzTZqJ6
4tcGi8pZvLlGvfK0LhODvqmY6ebNour7MxarzZho2qh0SPHNLO6KCd6n6cTE
GikZ7RaLWSzc41nV/o60z9jqI5UzKHVZk1ktzEJKgLptackM2vQ2pWXOY6F6
sHOEdt4MPjqXzQiVYmFQNH3Z5oQZHDwZnLVLnoWm+d3S4o9n8HjGE/cl21lY
M1knXKw7g/9KXNV32bLwt0P6wM68aXTwcezkJbOwrpNjui99GtvTFM7ezmBh
o6V2rn7iNHrsrjIcz2Fhm15p4PG30/g0IkeruoiFdMWmbbfuTGPHwbWhG+tZ
KPKXfydfaxrFp2uVnCdYKG4Kfd93TKNCuJOFO5eFC8oeHKnaPI0lOSp/3QQs
lMmUUOqQn8ZAkPtjJULg6uBVP2anBLgvyPNOuSyBmob7F+nmC3BXYkTSzm0E7qP53TLKEGDHr/QgmgaBOrt/dR/9IkAfIX6m7h4CDdZbZJ6LEGBOzZsf24HA
Y0IXrP08BWTc9g6mGxPo+s0/tkJbgCzGMnedCwS6q1cvrNMQYLlHwzpTRwJv
xMvcaFEVILMoa8FxJwLvvXxrOKwgQEJ09OZhNwKfXP3Kkpiewtdr0/Lb7hIY
p1K7x7RgCk9udTHyDSXQYUNqkVfmFI4axmyeF0bgpvXBh1K/TqEBg/LQ7zWB
SYpmNjJRU8iU7Xl3KZLAbLna+w33pnDCS+pKcxyBt5ekiovemELzjgtiSp8J
1JYNDt7pMoUS4qcW2ycSSJM0+xB2egpbHgoFViUTWC5a+8OKOoU/DoW0GuYQ
GCCcauK/Zwq3hGkusMwl0FgouPmb+hQWUBwSrfMJrBWY0lcoTWFdyEWtwzQC
W8ZrFrYLTeG53ROBTWUEDnfVWNiV8FFjtfALrz/k83amtAfn8XGTg2aYbBMZ
v/agC8XpfMwKXTknupnAiWbTm2tj+Zhy23VJdCuBgt81b/t8+YgqTop6XQQW
VqWsW3qXjx+9l18I7ybQ61fQV30PPqq/TJcZ6iFQtMwU48/zkVHoGu3ST6Bk
YU23oz4fM3aV31MaJrAmL+Vy+D4+Pvj7aFyTQWDIt6CJn7v4uGRksNKYSeDS
TFMx1Q18TN0f+OUEQWBzmvpzm9V8VHQyS7MYITA8ZdGyp3J81OwtkDcYJevr
S40Kay4f/z6NW7ZsnMDuzylpqyh8HFHLSJwgHRsfpGXC5eH49JP3FRMEbvxg
ejhlkIdVvJoMGzaB9Hfqjf/+8XDBio7aFRwCv0QtOi39l4dLTCZNa0mrh9e4
ulXw0PTPS/cNPAIfG1+fw6PxMFCky7SB9L8Z+Rf3c3jY/qlJ4yafwD2pRevF
UngYVG6kKDtF4POzF7MD43m4lSUt+5F0/5KFhrLRPHy4UWihmoCs//K0ljdh
PMycP74wiTRLdWY67iEPpz+ZrQudJlC/88PzLXd5eFjp3n9c0lHBhkoZ7jwU
fFM9ZjFDIFuXSNN04uHxCN0b8aQPs1/oFZ3l4a7ridGjpGM/aTYePMnD2Vsm
1dtnyXxa/7tYbc7Dr7YrhS+Ttljox7M4xMP606L7wkl/wc1PWnV4+HEv/x6N
tIhbrYL9fzzkaI+WtpO2WXcjaVCdh7obumXGSGc0KlBdNvIw4VDZ+WnSC/yL
aydX83DiVmThLGl7LYeznnI8fClxbiWPdC5z4eQcKR4mdij4DJGWeZfu5y9G
vo9pJaOG9CXzE8sWzXCRbXDrVDLpYpHZz2GTXExW39LgS3pFdqzWSiYXO9nj
pmak3RwPVX3oJS3ZVr+YdIX8iO2mNi5+cGXb/CbfX7H65UhKPRe/vbZkeJG+
6aXls/sXF/c9lvFRIV2zvUu2sJiLbd/3r6og47uxz++jXi4XS6zmFJ0m7fVK
dfevVC5G1TlfYpL5aTasKzf7zMXnBz6tcCOtLrhh3fyOi+sMa2uZZH4fJa1k
2L7mohFPMugM6Y4zJXf7nnPJvDw+9pOsj12yjlJOj7hYcM5xzWbS/Tcytt+6
zkWPApn6Wi5ZD5usv89eId//oXa2HOmwttljfue5qOP57IMFWY8HdIxuhVpw
0evk45fpk2R+53fj1+1c3PLeuU90jMxv/iMzjU1c/MKxlxYh+8PCZUtPrhIX
7dLuHOSR/STccFOsfBEXRzQM6svJfrOPlDrczeJgtZG8m2CQzI9JZodDPweV
xAlO2gCZnzknXYl2Dm7d6xtwhuzn4gtxoYJKDgpbXG16R/a7kvrelqWJHDR9
YSmf1U7OJ/OhMLUPHBy+4raV2kbG2/3lUf23HIwO9bxT3EJgdQ6z0uMJB9OC
6/KTyflzWycKGy5z8KTdVkK1lsCPZw95Ms5yUNrSuurmbzI/D9l7RGw4uCEs
pD+/isANP4+k7TDmIMu/49eWnwQ2mM/GhqhykHF1t3NaMYGz7ol2Ces4eD1B
ZhuNnIebXh1fVaxAvl9U6PYfhWQ+W5NfjUpwsG3i+nguOU+3nDsTYMpk49zR
wtsH0wj08yhykUxi4zf++SXMaAJTX11RVY5jY+29JMp9cr63fVs+tDeKjdXz
/9sx7y2B22eu2l95xsaSC3ddxcj90Om35lilMxsrRyROxT4h58HrB5oBW9n4
jl38zNmDnDe5B0TFUiex7LGElo4ugYnB2T+vfZrEb/Ie61+Q+83JQSWoK3oS
3x1QX9ahRSBzyUL5gmeTuNq7Z8Vxcj+OuDaouztNYodvanr7OrL/lc/adG+Y
xC/+HLV95L6dE+qVXhg1gT5hPWkW+SwscRy7qRo2gdSUh0MB2Sz0pZ7bF/50
AkuP+5rkpLFQlHWwwsNzAufPX5vM/UTud0OpTlXrCcx6eqBX6iULJWcj579d
MoFOiXaOby6zUP5ynt2NwHEsEe32XCvDwvDycv2FvuP43NtAzlaChSuUGzd/
uDOO+fEq9kFipLtGJqsvjaNTT4VUG5+Jy44rBygbjqPaVhGuVA8TF+sGp/0R
HUd297jLcCoTJeQvCmvcH8P4mxzpu4ZMnPkp83Hk6ijaLP63/toZBpq9Vs6U
uzSK9ikRn9TI81/sec3SffajeDEh/ESPGQMPUez7As1HUXml3eE9ugwM25m6
XmXHKMo5vfsatJ6BW96ZxNlNjGBunV+3YHAYbTwC4+uuj+DdJgqlhjyfXgMJ
C0cOC2sfPT5RZU1HPV18eLafhS2dJf1KZnRcetAt+9QfFp7iPRRyOUjHnCPN
K8zTWfhvKpw+toOOglOxXZou5PU555vfS9DR11PbRWKAiXcL9V9E5Q9h2Den
gORGBgaE6D/eIDeEOTuqaJOZdDy5e7x3ZfYAJkv/SJEr6MeF7Lm/XTt78Zrm
G+F9Lt3YaX5e5YFzF2o+PG0weKkNPWsOvthxrxUJB8Hz+48bsKnf+H25WgM+
+P5WE7hlqCBxa6NbQxk25ml/TxBOwcJGiQszlBQ8rao/bRGcBI41tquSA5Og
y8DqmHNUOfTJKmp/vFEOE8mQvEyrAew2pK3T76uHlo+rnEdr2kDqZ/RnjZZW
uOOcZ3Asuhve3lLPLAnrAqt3W49HPO2H7UEfrGzyeuHCo4o5nTV02P1Uuke5
YgBspC5nV/yjg0l0SW5F/QCYvZJwyhihwy/i6NcLHQOgHW/yx3/RMFQJnjc/
Gx8AmbI/8Rqmw6ATYjzzauUgFIh1Gwf8HgaVTfb7n7gOwmI/ftjOagYYR55r
6pEeghLfzZsDf7FgUYWlT70OHTRnX75TbmXB3izh8LxDdEi7RVlaRGfBjo4L
VyOP0iHG+Q+FPY+AiNYOyyPn6eBjdb/xtAEB14dri849psN+1XrvHaUE+BwJ
0revosM/x71OV06PgJudoCbYfBgU4sfiNC+OwC7/JX1frYfBqje+a67LCDwM
075ZYj8MNbYyx2PujUBfqujiVrdhoB0d0GmKHIGQAVlGXsgwRO8NltNpG4Gm
37k39tcOg610X/HiE6Ow+4COgqUhA0TCGyae2I1CTEHrb20zBiSs+a4sfGkU
JiSlwuRPMICz40PA6O1RULJ0MytyYECQpZ15dcQoOGeLHfz6iAElb9u7Hv0b
ha9nQo1EvzNgo3IjZeriGFiKByrF72JCdVLpdjfXMSi+WCcZuJcJHrszzw3d
HAOjjQGVDnpMKDZ4Ud7kPwb76O9S55kz4eRl86CMxDH4UbONOejEhGcp1aud
iTFQVox5JP+eCeOaZfu6ro9D/1rjVD1hFvw4mnKg7N44GOa/GM8TZ8FrpzfG
X/3G4W6wYu9mSRbsi7psfStsHCo6s35OLmNBgNCi69JZ40AJ1vDfpsaCNeVW
X3Umx6Fhi/iXg8dZYHaMLh9zbQKqo6UYfR9YsM65fs3jOxOwI0X/sesnFrD9
8lWcH0xAnPufxPEvLIjIebZbM3QCkvpe+vZksmBQfsfRurQJUF1kZOtYxgKv
7jsBc8YmgJdeUSoxxIJkl4U8e9dJOBpjfzpRmQBGvTpn7OYkUCvUxUI2EbBp
j8Wkj/ckXGDMobmoERBLeTsaEzIJ/sMHHRbtIiA8eCO9O2MSeq5NOvXrEeCb
rttqz5uEAEdjm94zBBTLXfw7JsSG9ZylGVrnCJi9E9DkM58NBwbsJAMuEnBb
r7Y+Rp4NMuzUHwucCXD5Y1vZvZcNTCNr1Q+3CbDm3Cqw92GDlASIKoUQ8Opk
ZN5YABuGXi1ZPviCgAakffMJZYPF9B2luFcEmDyemxUTy4bQ9EaJuZEE6C1/
mdT9gw1rAh332MSTdX0354vbbzZE+5i3tnwmALtaE+Y0s0Hrzi8n0y8EaCas
iV8zxAbnxigrxVQCtmqlRNsv4IDatSzq0VwCnKLrI8dkOeAfyNXzzycgQZjz
1keBAxtFr27PKiRgXeXe1zFbOLApxf/HRDEBK079Cuo24YDDvMBikV8EiNzv
97Z/wYH/5MefuPwlwPma8DG7CA7oSLw15bYQ0HxRceOZWA5oTbYq3moj4Iup
dfWpDA64GSd023cSYLGmesWJBg6s/3itq7GXgMKlw8zjbRxgCtdwV/cTsHGB
eJFlLwdO7xcssxsgQDCuc9FiggO5bx66/Roi4ENpZrrJYi7IoqwPlUWABLkI
jihwgan1psmQIOdAEnHi8DouSFfF7jAaIeDQKxWKkQYXYpebzOwcIyDjiX69
oTYXPPSvOa0eJ2CV19k4Az3Slzb+o0wQMOYQaaxvwYXIcxeaEicJsDmVu/qA
DRcsInytPdgE/DBrGtM9xwXnZ7bduzhk/WhKv9Fx54KCmd/sey4Zn61qTlRP
8v4et14Y8cj4rDUC8OXCQb7bFibp/RIP+7RfcOFiwd9Ly6bI+FBicrQiuDCm
I5CMIb10svCJZiwXFmc+z1orIMBrqNX2vy9cuJJ1zS6SNL2du21PBhc0ev2l
pKbJeNYtEd2dz4V9rZm0m6QLf2xv3vmdC8K7291bSG/MM0nUqORCfPDAZo0Z
AkKSne7taODC9IPCvoekBR/8zba3cSHk4+EY8rwNF17HrdvWy4UvgT520rME
1ASWcLYyuGBebbzWiLSm97+fahNcMJ2JHPAkHesxHblFwIX/kh2T4khLXlpx
VVWEB1fcyG1E+qbtbr3NEjxY2myg202629xCbtNiHuxwOSw9Qdr44FX6RgUe
BJUmdZHfH5Cl9axgwzoeVF+8lEF+f4CiemKQsioPznTd9ye/PyBgXfnZ9Ro8
CMwfOTNMemJZ36512uT9fGiaf0jbLpwzf60eD5i5E0uzSZcLrW5XMuZBBePF
ZBDp7WytFEUL8vrIhEZ70hF0qwerbXjw1EwnV5W0WKeH5apz5PVPLrxjkfFw
rQ9RWenEg9BqFf9PpFvKkgXy7jzYEB7hbk1aL7/y9wpPHkg719mLkE5KGYpZ
7suDq+X/jsaR8fd+s9ZQ7gUPns0Z2FdH5k917kcB8y0PnOwpkbakm92VU75/
4EFTaf7hHjL/aqYqcm7pPKDUhcX/4RPwtyDhp0EeDwx2TJrqkvbdrHpvdQkP
1sy7efgzWU8tYlv7Kut4cKfMi2pL1t9D95TXH1p4YLHecvdXsj7Vu7cZ3+7m
gV03y3uCrN9HBRrpG8Z4sCB+pawTWd8a7prePtJ8kEgr2DQ7SkBnV57GieV8
sPZkfV9EOsBk7+BWJT5w229mrCD76d8mqkm7Oh+S7jx+IUf239OuAyv3mPLh
Zpbn6UyyP/eYlNVIWvGhgmWZ6D9IQG++gW/faT68yw07Ykn2s+Zro+EQFz4k
810imsn+7z9i9o35jA+pDyVtvcn5EJxf5/Q9jA9E79MryzoI0N5kofg2ig9B
Nyca48l5EiJ6/JFBEh9grCUnmZw/kG9z7EMVH74NbSk5W0/2h0qH+O0/fKD/
4icW1BIQ9up0vmk7H3yE4kalasj94Ga/dobBh8PVO19GVhLwWsVh1EpiChRs
2QanyHOD7quh2K2LpyDL49y62yUEsEQuW4kpTIGl6cozz4sIOPDvCqZvngIT
EwN+TAE5L8KuPZU0moJNfc0/nDMJMBK5r/Ldfwper3i+7c0HAs4UaDbohUzB
NDUrW/w9OZ+us++Vhk/BItAzcYkiIGbwSsOPxCl4xPDLVHpDALfS5n5F1RRo
29Zfk39G9tdLzT/V0gJQNVNzPHudgNwj7PsmKwSgUWV9Vu8aAb/npm2qWSOA
czUtdxRcCeDfUvGq3SGAe/4OC9IcCTC1Xba54ZgAvIeNC91syH5XZnv9fSOA
5cJCBkZUAmT+pW62jhHAvyN1r6K0Cdjw5kpjS4IA6pvOLxnaQ4D5gr7NbXkC
EE0Wizq7jYBPRH1jR7sAnmxXFCaUCDiWk6raqzQNw4zTi88IkfVveKWZ9Xka
mqoCQtK/sWAkZI1VR+o0lKUmeFPJfb69ramp6ts0XL0i2lOawoIs5/1NXyqm
ofneH0puPAswVK7x0tA0jN5VKz/4kgU17UX1/RtnICPZyI/vzILxq0t/d8TP
QMWXY+tLFViwK+/XkerkGTCsXBVjL8eCmyLe1QXZM/BHhpvNlWaBIGy4KqJs
BmJC1DMk57JAJJ9WaT0wA8lRHou7R5iwVOzyz0blWSDK13/aUMKEPeFYWv1x
FkYHwpfvsWdCr1qytkPSLAxXp289d5IJwSVR6ULZs1A8UvfzkQUT6Iy77zXK
Z2F5vezrTH0mRID23XD6LAw8yPmRuIkJXm42K9LlKNTnImZ7RUYZ0Cf3t/ae
DYXan7PkmPsNBiTZ11GX9lOoDqeZO35fHoaPjp6MI3QK9anh7W1yZ4chwlX5
9SMWhTqX3/XsOHleDbh3m+CyKdTRrXOuFRkMw/nwNVGtc4Wo43LU9ZrryfNt
ndvUOxUh6qkJZ9uiNjoE6Mhmbb4iRE2qOcnZo0+HC4oWm3UmhKj0s9+V7IWH
IK1nbqb+yBxq8IH5h6pO98OhxaLKT4REqKoFWy7lK/XA9UMauxIootQ+t9zS
kledUPFpzLyUL0qNyLbILQttBgd3vuXq+XOpNzqbyxSf1cDbAxr8o3PFqbE3
bD6tjCiChK/HXxUuEKdmip1RW2lZBDlL7mioLBKnltJ/XZZbVASNfUXOM8vE
qRJztewFD2iwyM+k59Mmcerd69+VlzQVgt+PS5XTh8Wpj+lLr7+8lgtuB99H
xb8Qp4o7Ry38F5cK3snftWTeiFNN/za1di5PhSC5wWbPSHHqct8/11oCU+Dr
gJqseZw4NchXxtq7LwkGH+U/EmSTz+OpNpLomQC25U2uZq3i1N6El8qhn9/D
FfWphfmd4tR1Ti7Gi5+/A8/XqxKVe8Wp2SEZlYpDUfDG4XzfFEOcuuXQm8jJ
e+HQID5+Im5GnFpwIDpXNyEYelyXchYJz6OuUjmktYj+DMaa/3txZ+48KmPC
/uXz+wEg9dmr2nTRPGpA48DFGwnesEo69nLe4nnUV9Kda0rv3wbVW2Xiysvn
UVXjPOxDE66CVhf9Y9DKedSV0Vfu5yTYwf/+36L+7/+tff8HmnfwFw==
 "]]},
 Annotation[#, "Charting`Private`Tag$6824#1"]& ]}, {}, {}}, {{{}, {}, 
 TagBox[
 {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
 LineBox[CompressedData["
1:eJw12Xk0Vd/bAHDi3ntuSpJSylBpQlJKA9knjZSSCiFDZUilAQ2GopCQiCRl
ioSIylSG5xCRyDyGDJnvvdtcpvzOd633Pf/c9Vln3bP3fp5n73P22ivPXtG1mMPHx/eAn4/vv18tTeG9UyvZVPrsfxcG1TTnQUKKTQmqzF0+TVth5UDYEgk2
lZFx+dIgbclHpw/LLmFTYcYbR5tpC08U/d0syqYy27U/5NGePa8Si4TZlHJf
bWw47cGKmBPac9mUzWRZpR3tNrVF/EZMNtXmRirvoV0Z5/bOeg6b2lO58zuT
dr7YoNGNfwRlKl38vOAfhg+uJmz3SYKS95oKd6QdzSlNDxgnqLR53U3raQcZ
qJ6PGCaotYEvtMtnMHgUxC9M4hHU5+7Nfy7TvqG0FD73ExRkUPWCtA2IsWV1
HQRlO09Jffk0Bk37c0WdrQRVcEGzIHQKw662SvuhJoKq/VPqJkp7Rea78nnV
BNW16Xl0/wSG+bKSLhLlBDXRtIE4TPvfYx+59d8Jqi0zNSb6Lz0+K2uPvV8I
at/vM567/9Djq67bchwIat3p6u93xunxof1tJlkEFXRsSDNzDEOM+CpVx48E
xd/ZN7hoFINV0c/BlGiCSn/8CF8epPurrBWeG0FQMVkTs1cxhkMRmYdLXxDU
sfZCrUs8DHI3n8b2BBLU1mIX/8McDLy1x4yl3AlqU1J1Z2IPhl9PctgKrgQl
Jhr641o3hop/8hk7nQkqeGxwTLGLjm8dIXrKnqB8z/lOBXTQ8fLML/I5T1CG
P7wGJpvp/gwrOTw3I6jutpovbj/p/phErHpjTFCO7YY/+ZroeKk4u+SfJCib
PY++9dRhmOnapjyxj6B8FPYkGVRgcN8fH265hqDUPfO5X/MwUD6OOtIr6ec7
Tdi8AQzTlYfnNKwgKC29a9V3cjDYmfAsNMUIakdAuLXoJwxnbypvVBAgqOP7
m9NKkzGg+JysoTYW1ZpYYef3AoMj9ruc0MyiqNzG0ZYQDOnbzKTPNbAoxRrV
S7LBGBTz59yvKWdRAe/k9wT70/n8eVArI5dFdWlvCp3vgWFyXlWD80sWJS3Z
U3D4EgaVE9He20JY1MuUt8JCFzBcf26vxgtkUUeX3zTOs8DQt0Y80tSHRT1j
9bIWmWJoUDe20nBkUXr/1n/SOk63f7V7jGXAovyND1rM24rhWs2kaOAiFiXZ
onyxbZgHwbrHDIMWsKgs4y/PS3k8yK6IjnoqxKIOZvsvfN/PA2bZEaUQARYV
hmfbznbw4GVhuHbYCJNyCNRfYVPJg+J0Da831UzqfuT1UdY7Hkg9957JCmRS
ximcuQ/NebBP/Ne+nMdMSt3p3D1XYx5ceKrsm+vDpHBpoNVVfR6kBjRL5N1n
UjZfN7nu1OaBprfijq92TGp8bI3wtR08sHequl5xgklZTuXm3ZjPg5IzEr2/
FzEpiQfhC7rfc+FYhBqaXMCknvIutgslcqGmzSR4wTwmZSLvHSwXy4WWc9H7
dgkyqSPzTVJ0Q7kweEEh6vEog+KX2l+ifY8L4jfUDXfVMqiJruSfgzpcOO93
tvRxMIPa+fjV8GgvB2ZyE1J2LWNQkh3qhkcFOVDatGnelBiD8n76+aTY9AC8
HE+1yhJhUME1r22qRgZATRGk1AgGZcKUGlbpHADHsGrf3X8EKVJY/31U3gCM
O01bk7WClPVfNSafywAM7ji68kCAIGWhl7xuiNsPnR+GAo6zBan2kgU62z71
gUoUs+aRkAD1QUDrsbNCD6itqlL0+ctPmUylz8+f8xtWOAm7+PbzUds+7F01
+agNKl5uNrBsmYXbgd23F8g2Qbn1x55tWTOg2nfP2lC2CmI3VO7QyZmC039U
hkS+FIBSaMXV698mIDFo0sKCGwMrlXY3LXn7BwqMtob2WmSg/s/7Gcz3Y8Dq
sH1nf/w7Wn4xy/ym7wj83hXRndxRi/6ViL4evDYEX37010BQC7JD805e+MMD
M/3OYbu1HShTuYwaS+uHG2q+l9nOXSh54dcU8ZxuqPqdfePcnl6ka7JQq+1t
N4gnOpaEHulF4wnGnXGh3fBLP3zxd/1epLZvZPGuW90gxl7jscS2FxXfkHEy
Vu6G4GH+Kwahvajtp+P+qPgu8Jw4FO0x1IsWxm5qkgv+DfzS/q+vhPYhu13P
BdSvdAAuks1vrO1HQUHLm/VMOqBPRlFJ6Fc/SuWFpV7R7oD59r+ktvX2o/FX
ryyi5DugbYjf/vpkP7ollFgk2NsOpIxy+hOpAXSnOdfnu1k7HNsYbG1lMYC8
7vxedFq3DSD/hJUOdwDFNVhyru1pA0PFNdKPxgbQty19Bd5KbcDn3sfOnxlA
c3u4DtnCbaBvKntFTJiDJCJ4ySj4F2yQKt9hpMhBa/aI7Sh70Aofl3tX217m
oF0epod6bZpBYOInL7yLg779dXltcrgZqvzHfc05HGRw6eWcWvlmoCfFGskR
DnI40Zidx/kJbsd/qN3l46KUlSc2v7D9CU/qu5t5Ely0LveAxNHrTbAi18bR
8SgXif3ZyPl4uwHUHHWMdqRwUbTNEU05wwbwDlmpJJ7ORVtabWIjdzVAocVk
GS+Li3QK35g9mqoH46VLTb2KuMgncGWtpUs9pF/5lHy+lYvmKC3OXeZWB2Ud
jDpqLg9h6+nHd71qILhVHM+c4aGad5tFjlrWQOKL+Joz53jo86il/4p9NXBN
//X8NGsecnet9P80Ww3qygV2mnY8JBESGzByoxqSNvp2s714aF+RTqCVRRX0
t1dK9ibz0Ib5notU9lbBjjE3r+xUHhI+kRUouJK+/898k9cnHmpsXRMU1VwJ
e6ldCowvPGQ7Phn080QliJaFZD+t5aGQNa+Dj2lUQHRhgKjIBA+5XGxaIiVT
Ab4PHaP0Z3io8Ky0YuNUOfTGNeoH82Nk6DiquMiuHDLTZVUm2Bh5xIcrPTD/
Abgg4tlJCYyaWCPKV9RLoW8tk2O2E6P7BS92ob9FoEuVHi2+ilHvj52BFplF
4KQQL5djh9HRxvoBn1tF4FA0uyXhBkYSvEVhDX+/Qt2o8tdLzhiliPvOXpso
BGO1io7ABxi12DgXxEx+gamyWaMLLzHScJCQ/P75C9RcsUhsC8co7m6mw5Dj
F6g69FBKJwoj+6DRtepT+ZA+P8pCPBajubmXHtZP5cHY0yDbg8kY2a76/FJs
EoA6spSnQGG0c/u4trkjAHvbyOK1+RgJHtkymzSZC1JehXriBRi9cEgwPziV
A09unVvZUYRRcXHoWsfpLDg0crNsaTlGgS119V+dsyD010hyVQVGJsOiDxfN
fAZTe+qNexVGY8t9BhJnPoF+RFhtRS1Gq644pfz6lwEjj8Wk5zZjxL2fYa5w
NwMu+KRGurdglBkyInp7Nh2S7jpv/dOK0bH8iw6ifOkQarc4oKAdI+fFxrv2
86dCynilGF8PRgflQgYC3D7CRv25Uqq9GImimpet/B+hej+lYtuHUbz1kdmb
cz6AjpTD0+wBjOqy1AoSBFJA7cVqvkmM0YrbZ1uH5yVD98ybyMFBjHwdD2/1
F30HrJyIsF9DGF10kWwrkUyEBA9mYuwIne87TBXr1W9hfhaRc2cUIy1X7MPY
kAB5MTEbjo1hJHc/bzu5NQ52sH6LNY5jFOqe8Khl5xvo0toQ+OQPnQ/PwE5H
FAvlDYcv7fuLUb+XxeM0rRhw93BVDJig6837aJeuTjS8XbBXXGESoxKf7aqD
p15B8+e9hkA73o/dI2ceCcsu2PN+TGG0Rabrtn9ZOMjePocOT9PjX52x5nvD
S9AsEO4H2sNrHlYyfofCt3OGPIUZjCrXG7mQOAQ09isceUI7RX7jBqfJYPgg
d0lgkLa/4mxNGuMpuCQIiB34h9HVzZWugyKBYL+p1SWIts7WaAX5FQFQ/7eX
/Enb1LY/5ftRPzCRWHRGYhYjKXs/Yo+FN6g4a1cdp916e4tZupMnCP/0jnSj
HXa3LkP+yT1YWAxF8bQz545JaRx3ARzXcbCE9vYlu38o3HGA5owBmU7aF/fO
nVLUuwiBArW6o7QrUrd+JMz04fSV0JYZ2jX2iepb3iM08WFn3ux/z7+5v0/n
5TlUavhhZoK2Toph4e6oa+hDESOQQ7syRnTJCfvbaMmm7W71tOOPWCinRrui
gdDDxZ9p9x/I+6n+yB0l9WlaB9OW2yPp/u2GFzrzY5e5zX/9Ub2tcNLMF7lW
rP+oQrsu1MYGy/ojqSMyJlN0PMafheSmLnuCsq5tOptJe8nTr6KOwkHI4IAl
XKa9/cmoJRIIRpei6xyW0zZ4vCpL8O8z9FslyCOPjv8tX50FJZznaMn9VJ4p
7UzPxIyTdWFouYNzmQedz4b7TUIS3yNQ8H6DvfNpO5OCKfhXJBKVnRV9RNdD
2O4tgmk1r5CAqxzlQNeLoprmO/HyaBRZMhTWStdX7i4zA8dvMehuDrsO0W7d
7peIcmPRq5OFpwbo+rRVea33KvMN8rP6HLaN9r+t2XyMj3Ho7+wr8hZdz1Jb
+k+WvElA+7IYId10/ZsqHJg5GfAOVfvdemJFzxe1kFi/8chklL9GKN+Unk/z
7gmIHDFIQWlSh0aP0vOtj3suimv1HrW2jZuLcjF6VShboPTgIzo+pnBxIz1/
/adqfPkXpKKQrcxPLd0Y3dnscaoqOBWpcFTmeXRhZBTW1W0Xm4bMDdYUZHZg
JOYQy84ozEADCdc8Uun1ZM5bvaoH2pkoyE2JLfkTo8E25guD2kzEjXn61LkR
o7IjVgqTvz+hemW5Epk6jDxl1x/bLZiNhCy5yTM/MJruO1livpJCWhrx7WzA
aEQwSVHLgkKDiRoKndl0fUgzArfEU8hIW9Dr42c6H6fSjAQ256GhglsOO9Mx
SstbzI0h81GQyezOpkQ6ns/rFvSaFiDWa0++qyEYWaQq2ldEFyCXpj+Jn59i
ZFzu2ZDZU4A0ioMdpp9gdJixPerhlUJk33nDxOIRRuuvPdsif/crEs6diil1
w6j9kMEp2/BitE9pHQxZY6Te5Wxe1lKMHn/b8qrbgl5v3KIuK0h+Q922wtXV
ZzHS/dzv0f/iG7qzUXXlM2OM8uVd0i2flyDj7RPuecfo+Au/EjcNKkX6OQkr
YrfS60n/GGfd/grk/jrAPfUvD5ntIOzqz1eguO7UrNRRHvLzlJjwdK9AjWwr
46RBHupfhRjdXyrQBdbl1ge9PPTKyEsyRqMSBZsv5++o56FFZRJHZcgqdOv9
yBv5NB4aTUbJS1VrEOmhJLbChodK5VVFr56pQeczPmzPO89D0W9UHIru1qBD
Y6OhZ0x5SDdio+qNghpUMjm41vkkD733W15UrV2LPrbVu+qo0+/3y39a/czq
kPuV1a/1RXioRy5ZmOHZgPauGL81kMSlSzvhmnFcA8Km4V+d3nBR8KrYmo8l
DWjdHQ9vgSguOiARFnp2QSNapuLpPBHIRTFsn7VUSCMSdhBTv3ubi8x6LdWd
3jahRM69rhENLmp6LWU7VNGMFhmfTX9czkHpzETduOFmdHvN1/htxRwUaLVz
u6lYC5KRvx5ZTXHQkQ0n+cr0W9BuyfqIP+85KDfx4ZO41hY6/zkybYEcFPVx
NN2U04ocP7jzb9PjoFSzrtnu+21opcZ6y5maAeRkm3XoVEQHyhfSmfcwqx9p
oLHzwskdKDYk3ar9Qz+aK7LJrSi3A7nsZh1XTuhHIe9ffdrZ2oFMlEtqv4T0
o/TRh3JSkp1IyrGr45lDPxp2NJjXE9qJjqpM9M5X7Ec2D8bKbwX/RnZRx9tJ
+vvZIHKT/stH3YiQLzfcY9aLLB98m/Oroh/JJ9xWErHuQl/c5eV9v9PfeX6i
Ave16HYWduWLnR5C6j43NL9xWtDIriL19hsjyCc/tB6U61DylfkTZ6+Oobdl
0T9yNcuQ4N1ut7NBf9DNiew6//JM5PZ8taZ40ATauDnZQsjzJRwWvLuh4OEU
+i566maO/Bd4p3m5gRc/gy6qqxiyOyphRygU/ng9i67lpIk7GjTCu7NV5JJu
PjJ1NuDB+zttYClzUn7PKD/pf8y60misEz50stIODM4h+VNedWS0dYOWGGOt
D78gyf5yxjI+tg9WV+5/9YAhSNZpkEmKKX0w/chTyp0tSN4yMwpMovdjSSxC
3GWhIFlf9kM5pLQPRKbmEldWCpKjpXPdZYb7oLZdpF93jyDpeGaJ4ZRqP5gl
r3gn4SZIxvTg4W8l9D5Ia6tKAh+D7FON7tOpGQC8982rJ4IMcqA6f1KweQCs
d0sscCIY5KYctuUHev9opMTXe1iEQXJls/ZODA8AuaT0OVeaQe7+VNCrspAD
Qh3nZpQQg2w0vH7w6hEORN4OLMhwYZBjQ47Ly3M4sMyOuTnSjUHO828SeFvA
gSeXbod5eTDIoU8twq7fOeBhanrj9CMGmdmt5bm4kQM2++XXT71kkD7898q4
IxzYuvCLj3o2g7zwvsZAdz0XvsUN6xZOMkjGOcenbT5c+Fs0J2vOLIMsbF+c
avqEC2t7RFeTAkxyecBR97oQLtxbozzyWYhJZrzQ2/L2NRfUXtkFpqxgks//
uDwZzOVCyovR6hfqTNK5NbehD3MhxG/85PV7TPK1kd5r78M8+JrEzEn2ZJKs
zd6R0zo8GCtdsobrzSSD51SKW+rxQFdo+5hVIH3/rIe9tDkP5nndfHomhklm
xj/Olr/BA1e3v7WHvjLJ02cRig/ngbX9pJ70XBbpGqh6VLGPB0lGDzaICbNI
t/eNLhpcHgxriE0ToiyyqltG8tgQD5wWKkYNL2ORtSfSY49P8MDvnflA4QYW
+XJhRskUgSGtt/juJU0WmdY96ta5FsNk+Sldc20WGbjJaOcdOQzqGR2yesdZ
ZFzG1eMLFTEUe0x/Q6dZJLlBIVJmG4bmVUpiiy6wyIiHvyI6NTDMOfMs7pMX
i1R13mw7aYzh4D5Zp3e+dPvNmd8lzDD4yr/XjvZnkQ/rq5yVz2FYPFky7BvC
Iiv4PtVpX8Cw/tk/NbM4Fmkh7n9yrQOGo5UWlcxiuv17MQ0WPhgCM4ejp76z
yGgIWCrkh6Eh4u6NwXIW6XC6NjLOH4O57fPlTfUsUtGr6kHpUwz2QmUWST0s
UrxuS3hGBIYX+7dOnmAR5Oz5TVYSHzAkJOk/yxUiyIG7A3n3UzFkLnbaukGE
IPuu8dt1pmOo68qz/beUIOOmDGo9sjCIeB7rjJMjSC1fxQd6BRikedddF20i
SL6EFW7Xv2JQ1AuWvKNMkJH3uN/dizEcXtuif0KNIL+3fzzuW4rB86tN6Yw2
/X+ZtnnrajA8VfS7YK1LkFIqzc5jtRhigt8zq/UIEpfy7fxcjyHP8i8ZZ0qQ
Bl7hgWt/YphmeqbpXiPIYvnyL97tGISuxOvmOBCk0KMwT6FODBL1pXidI0GW
2T0LuPcbw/Y3i+Rm7hGkWNDBOyd6MFw/GBX+JoggDQ2rY105GNySC1RFnxPk
Y6vVER+5GPzFexucwwjyn7dpczMPQ1KP4iLdWIJsS9kqKzqEIfuYbkp2AkF2
XFypKDWMoSTDQXtdMkHavItykhnB0Psg+8F0BkFuapVtY41h+IN/yVplE2Q1
GTjOoc00EMivpAhyevGlY8XjGFav15qO/UaQb+NPFpn/xbDF//LzhT8IUjOs
p0t6AgP511/FuYog4fLA/hraJsX1V4//JMgvny59k57CcFlpan72L4K8qeDB
SaftHCL1du1vgrxqs09n3zQGbz6NQwG9BGlpfHe0iPZza4uuKQ5Bvuyc37hn
BkNchdc9yyGCHG4smXlPO31HonTlGEH2Lww6u/QfhsLI8mzVSYLM1NNiOdCu
IUZOx/4jyP2XKgeKaHdeXfJHRIBN7lkgIrJwFsNww84gJxablB7Ddjq0+fac
2dwtxCbXlZ4R96S9IN71h44Im7RT1Zx8T1tqYczFLDE2OdkRs6Lmv/OB20XE2mVs8omR5R3Of+cH7f2v/SXZ5LCKp/QU7f87XyD//3zhf1AgHoI=
 "]]},
 Annotation[#, "Charting`Private`Tag$6868#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, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}},
 GridLines->{None, None},
 GridLinesStyle->Directive[
 GrayLevel[0.5, 0.4]],
 ImagePadding->All,
 Method->{
 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
 AbsolutePointSize[6], "ScalingFunctions" -> None, 
 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& ), "CopiedValueFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& )}},
 PlotRange->
 NCache[{{-Pi, Pi}, {-0.9999998782112116, 
 0.9999998592131705}}, {{-3.141592653589793, 
 3.141592653589793}, {-0.9999998782112116, 0.9999998592131705}}],
 PlotRangeClipping->True,
 PlotRangePadding->{{
 Scaled[0.02], 
 Scaled[0.02]}, {
 Scaled[0.05], 
 Scaled[0.05]}},
 Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7339637093454847`*^9, 3.7339637628965898`*^9}},
 CellLabel->"Out[53]=",ExpressionUUID->"13bd1e34-be6c-4291-a506-51799e663717"]
}, Open ]],
Cell["\<\
Se puede tambi\[EAcute]n poner asignaciones dentro del comando para facilitar \
su uso
Ejemplo:\
\>", "Text",
 CellChangeTimes->{{3.698276220713772*^9, 3.698276231602474*^9}, 
 3.6982766781927395`*^9, 3.698280466098072*^9, 3.698363385790849*^9, {
 3.7299034992249684`*^9, 3.7299036361229534`*^9}, 3.7339624520090947`*^9, 
 3.7340238655557065`*^9, {3.7340240251102715`*^9, 3.7340240264909763`*^9}, {
 3.734024062656907*^9, 
 3.734024174278144*^9}},ExpressionUUID->"43fe3417-1948-423b-a209-\
8ae65f1ec43f"],
Cell[BoxData[
 RowBox[{"grafA", ":=", 
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"v", "[", "x", "]"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7340245701893053`*^9, 3.7340245731316843`*^9}},
 CellLabel->
 "In[131]:=",ExpressionUUID->"e5b51b3f-d507-4622-92b7-addb5920b551"],
Cell[BoxData[
 RowBox[{"h", ":=", 
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{
 RowBox[{"-", "20"}], "x"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7340242578775773`*^9, 3.7340242889852095`*^9}, {
 3.7340243839480085`*^9, 3.734024411907859*^9}, {3.73402448440397*^9, 
 3.7340245217119036`*^9}},
 CellLabel->
 "In[128]:=",ExpressionUUID->"ef48c11b-3b1f-4927-977f-2fef3dd93746"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Show", "[", 
 RowBox[{"grafA", ",", "h"}], "]"}]], "Input",
 CellChangeTimes->{{3.6982762635909157`*^9, 3.698276282979044*^9}, 
 3.7339624040085635`*^9, 3.733962444523686*^9, {3.7340242035562353`*^9, 
 3.7340242057704444`*^9}, {3.734024297944974*^9, 3.7340243177644205`*^9}, {
 3.7340243996534576`*^9, 3.734024460622523*^9}, {3.7340245782608337`*^9, 
 3.7340245807185326`*^9}},
 CellLabel->
 "In[132]:=",ExpressionUUID->"291a6092-e461-41df-8eb0-befb74a81b9d"],
Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
 TagBox[
 {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
 Opacity[1.], LineBox[CompressedData["
1:eJw92nc4le8bAHCjIcQ5x54hhGRlpOS2KRTRltCwMlOhoUHJSmXPVIiIEBlx
Z5aRvcc59jykXajf+/3n98851+c677nO+zzP/d7juo64g8ehc0wMDAyCxMt/
7+GK3JvLJ5+DS2nEtg1hmnjseFre5+XnYH02fHvrNU1cGrRmfSqYDp+8fnVX
m2viXVuWc1b66RDaYUR32aKJhWc8BIuj0sFD8Yznh9pdyOG+N+iqRgboDLKF
H+TbhXW3+09suJ4JX1S3l8b3qaPN+vA3JemZ0EyXc9pRqI5f7umQnD9lgouU
zFHdCHUUC8+sa9ryAgr7LrRTDdXxWuwlpYfVL0DfIXSssEwNVXLIG4RZsmGp
9LVM61tV/KhQZ9eilA2z39anH0lQRbvXvuU3jmdDbwwEa11TxfBiqudodjZI
1nHWCOuq4gzmDmaYvwTjz0dXGFt3Ykr3vtfKj3NgMoSPm+ePCqodW2MbL8+B
4HVc0000FWweyD8fNZEDg1epGo0NKvibyif8Uy0Xxk0pL+JiVNB6bvJuRV8u
KNFNr57SUEG2f7dsjEXzwGX051BqoDLGOR+1lTfKA6N1q46lHsoo2SVvR3bP
A832DcByUhm1s3rPDL7LA48zMbl6KspYmhXzpkQhH1L8+C7wjCsh3WqhwvRT
PvwWztweba6Eqpt692qP5YNbfu1gzh4l9K98X6n0Ix90i5fHF2WVcKNsLPKI
vgZ1l0c5SxuUUPyvbi3V7TUo3ni0MStIEQ+/iG26uLkA/j33Zne7o4BJp26b
nRcvgE0Dn/kczyrgGMWt5ZhaAehfV7ufbqiAHtf1WveeKoC0j7/EF1gU8P4h
esfG3AIoUpxPCX60A9+t6g0kmhVCX9aXGvPX8ihluThTE1oENTvsasX5t6Ng
gPFux7QiWK9b9FX5rxyScp+EspYUQbVDVr3vhBz+YbFSsBwrgjKz1PzM13LY
hiUXR3a9gdBkSPI9IIf+Srf+/pp8A4phV+1PP5TFT5zc3Ao6JSB79uL+q7tk
sGav27n2wyUw1/DthIGkDL51rS/2cS0Bnt9uSjtJMviswfd4eUwJZP5bC7k5
sw19A4ZTTOglYMlY9v1TwjaUWMqQPZPwFi7X3pyeWr8Nr3zShLhvpVDKYTSc
8VUKORTeTH5kKQPj93nU0AkpfB6uFLYiXAafdLdGB3dLYbvZtn5bwzKYr5/S
/lAihdubuC9KxZTBmWrbshPXpZDasJRRoFEOaglD5ansUmj8Pp2jxb8CVO60
jzvslsQRMfE3fyMqQPjhcil1hyT63Ew6qfSsAjRTau+6i0tiGjx+8bipAuys
ct3es0jiyrubeieE38GHVw8dd/Vtxbyyk5en370Di4E6djP/rchXRB5hZKyC
rvtR3FKNEmgTtmI9wVsFx2e3Db6rlMCnZyeb6uWr4Puz2b/nCyVQnqe0NPRY
FajHm3TPJkmg3mW7aJ78KhiUtOB55SmB6klHM6IUEVol5Ru5hSTQ3jbj1IsR
BMPU+ZOh/uIYuF8oPn4W4c35batfPcUxQz2yK+QbwjzTJmtnR3Fc4PA3dWN9
D2bMUh/9rMXxcpW5por6e9D8tm27oqI4hol9564Ifw+pnnbpvVNiWDym39yq
VQ21VvV37tuKYY/JreVw42oIfVUpEnhEDH+8quQ1O1QN/FjuEXxADDWuatp/
cKyGM06cv3K1xfAtl+IPfFQN3y5WfXDZIoalBoJiBTPVMObXULy7bgtWZHy+
GBVVA5tVHfj+jIjiELtC/KHUGvDaky8g3i6Kq96ulaTsGgjz/dd7tEYU98IU
S3hVDfTNPpX4limKlb2DyUFzNXBliEtl0ksUq1gaGi7r1ILuS8rvxyyiWO2S
LHR8oRYCjoTaB+qIYOGsq6vtj1pI8sBTBmoi+Nxpd/kZhjooy5eK55QTwaDz
vSfcuesglGU+vIFLBE0cyAl3tOpAp2nobfm0MLYeD+J/FVYH+q9XqzIfCuOQ
iRsP8456+PvrdpwsXQi/S+/lzHVrgIo1rpq1KkHUHtNrCPFtAHnm2jX7YkG8
m2wS4HSnAYwNL+S25ggiL7f10tb4Btg5JbSrIV4Q1RldWxNqG8B9nV2slI8g
+g7GPQgW+gBqsqI5UXKCuPrgG+fZjx+A92eAwFyyADL9fkkSkmoERkajCPEk
fhRq0fsKio1waeueGLZoflRN6+8+q9kIM9/NYlbC+fHcvo2Jr8wb4XRa+Rl6
AD9+iHeQ0rvcCPxxVb58Z/nxwW6B3c4NjcA7kNgVsIMfha/dPVPi3ASG1lOJ
l2r5UP2fXbHVq2aY/undW8TIh2bmeNvwbTMIhd5JZV3lxTOJWw5qVDeDbovn
h7M/eDFSY2RasKcZ9M5YbJee58VZj5MCY2vNcOD6rfKhLl5Moh2+5mneAia2
YmY8WbzIWL1fL3yhBfQGZ8NjrXmxOVD1U71cK+g4fxhmL+HB3ZxNTA/VWqHV
caT9+2sefBFvr3FSpxV+SMZ0juXw4J1XEU+WDrdCWvD40oenxPV9M978t1qh
JuGPcF0Ecf32ZD6X3lZ4viwx7ufIg3qzt/M36LVBkIknU7kQD26JnP+dtdgG
PLPdNwciuLHSPiCr4GsbPBBrFv8Swo22O7mOl/9qg5tXr4Sx3+PGpJ7db5uZ
2kHUI+3NvgBu5BcJubzE2w4smxt5Jz24kZIt81UV2oFNpEggxZIb19eeW6h6
0A7LEk97N/Fx4/xP6ki3UgfYFX9cfySLC4sdH1TvV+8AM+o878d0LrzZq51R
tacD7Jnqe7SfciFvSbJbllEHZJW0H1dJ5CLyw8nVazYd4OKwXUkznAsTvvUI
SAZ3QKVn495aLy40WW6x9qZ2QD553OG9Fhc+nytv5IjoBGdf9+n5fgq6xx7c
6vK4EzwExVNZeimoYTB+tS6uEz4lCF7Z1kXBxmTWHdeedUKabskt108UXLY4
/mD2bSd8T2zpYa+hoHbJD6va8U4QZ+pXLMyhYP8d5WE/zS64oWnhFXiLghwi
mUsTE10wbmG7jq5EQZ0jd4bHZ7tAYmUza74CBb0fnG4aW+wCWzbDFB95CvYw
8mfSfnUBmT3QnUmGgilTwbZD7N1g1scbpbSFggr5Li2dqt0Qo6oj1bOZgub6
Ci+rA7vh2g1FUZ0FMoY5vzn/RLIHMqUuGdnlknFOJzeYTa4HznEwBx59SUZj
/vTsy4o94H0i4qhFFhmZGqIWzXb3QDvLZIVROhn9JH0u/z7YAy0+NeeNksl4
nqpy99DVHuDt4b8QGU5G3cP56es6euDjNUO+fR5k/KHzcsIpoBdK2VNbRDXI
WPF8PvFKYC94dW+WfahGxtss8lZ37/dC7KP6t+tUycjRlvP+2eNecDNp9F5S
IqP06VcpI5mED8npdsqR8cj118es23qhQOjNx05RMr4pLWkG8T6Q2KdUXrSR
jD4qtUW8NX1w++Hqxf4hEp5XFXvy8EMfPL+06YnfIAmPqV8LZf/UB0syy5xC
AyTcs1vVgam/D9z3UErte0nIpPecc3GxD+ibWMT/tpPwgWWgS51gP3T26bd4
N5Aw29NAzMe7H/4cmh43LiRhkvcTtqUr/WAuOHyTs4CE4T6rP5yv94Nc6KxF
Xz4JPX2LWk4H9wP18JFgt1ck1LgpedU0pR+2uXAaZ2SRsPbBuh6Jxn5oYz+d
YPGEhNRXtaHt4gOQGDjsFBRBwjb6ugWVbQPAd6H21pVwEqK8oVmU/ADIV9YV
uYSR8El2HftRjQGo6A90tA4hoUNGffiQ2QCwRbJ/V71LwqnkDw+mrwzAWvnD
E3I3SEgPa3681jIAd4vTy8bdSTjSxP7NtnMALpqW2vxyI+EnVnNr7BuAmGn1
zRyEXwW3cN8ZHwCXSv44LVdiPYGfoll+D8DRQ9vNMhxJ+O1qWyyX5CC8s0mZ
eGlHwhWXrkRZ/0G4VDaQft2KhNbqpx4qBAyCyczLf3iIhDmMU3d3Bg5CaOwu
rfWEbeN+eu2NGITDV+NtIi1I+L5O0MTy6SBUhouovjYn4T0x+2++jYOw7rwF
u4gJCbl66GYfBIcgbUx5LHEvCS+kXdZr2TIEs5JHtq1oEft54Z9Gh+QQ5KZ6
mpwkfJmZvHVIYQiCdGtERPeQsF9J9feS3hC8PxjG+WoXCVND/dP5XIfgg8T6
qR87Sbhdd+Pf8+VD8C+HTWz7dhLmZ7/c1odD0Og/b5UgR0JVbgvLffVDcG+t4g4rYa3puOfb24dA/YljD12GhAfC5Uw/Tw1BdZqlHkqT0LvfPM6PMgx7ze03
RUmQ8Ifel/dzfMNg78w2SSF8NSdm/qTIMJxiSSp9JE7CwACqtrbMMKR+KjOL
FiNhjJTXJJP2MKy9YeHNECVhqVeUSpjzMLDHTHL8ECSh9uAumzX3YegJdTgb
SLjaYDjI3WcY/mTy5XMRbuST7rcIGIYOpVBZNQESDr0rCeCJHoaQ/ZZP7vCR
kIF1sDkFh+HRlgPXDnCT0PipuONrvhH4xDP3M4GDWG8ch3S98Ag4tpftNycs
FrEyMSA+AlbK7p4MhP/4dTuskx8BnW1bVJ03kzDX8r7tUZ0R0DWRSTBgJ86L
cfnwmtMISDCntUiwEr/3c5ib4j4CnIoyBmObSLiw0NgpfXEEZup3hT0lXN/3
3NLi+ggEtb+IlCLsl3/M/NnDESDFFzmpsRDPx2k02Fc2Al+K2wyvbSBh8+Fc
ZtuqEXgzb99sQvitaUK1d+0IlAif3cpL+JGGj07SpxHwF7mhV7iehIacMlpL
YyNgoOGs/3MdCVXW86wwz4zAhe2jpo2ERVcYy/jpI+A5d1gyhfCvqUENvZ8j
oOLCYGhC+GXlg53RbFTQeresn8FMwriia1+ySFS4HjvVGEA4MNv5dSUPFZiX
L4qfIGwbo684s4UKG/Pl9pIJk91/yu1RpcJjnr4d95lI+PfMxOxBTSqcnrJV
ciY8d7z9xVltKiS8k2XaT7jW8KV0hAkVZpfPcXEQviJyWmLUhgqdJwLmUxmJ
591C6ciQPRXK0GfyLuEDdxhDes9TQbTVJsOdsPTss+UWTypsmpi5pkOYInxJ
6uMlKiz7BzySI7x2wOh4rT8VOAbp7jyEu4pmsCyQCq7RmtfoDES+mS799uY+
FZoOsuUOEH4pGCrzOoK4/8fJzz8Qvn1zR2RmHBXSvi1OZxB2L/xb8zSZ2B/d
5ztjCR+fav2Z/JQK45c2GAUTVjLzPh2VQwU7b6y8QFg4QP/xg9dUsNhFkrIj
vLGAuyGkmApXxlYtrQl/mZj8E1ROhfMMdwz3ER7hK1G4hVS4ejL1nzbhxv3B
DtfqqND348BNNcJvrh+PudJIBUfOBw3yhJ/kyzV6t1KhW+hUtyThsPGVNbcu
KjxqLs4SIezL26Ls3E+FZrYEAz7CZ/alnDs7QgXvtXUZZMIHrnnEnx6ngsK/
7y3shHfn6bScmKGC8wvXChbC0mNkxiN0Khg0nvVaT5jMM65q+YVK9M+0BSbC
q8ZFTmY/qcAyPKzASHjGPyjJeJUKvZE2GgyE545sd0pjoAFZ32bDf7b7zMW0
hZkGlyeHEv9zz/3VxKT1NAh4NvLzv++bbp1UE2Shge2YveC6/86noqU1lpUG
qzqOzBsJqx8pdubZTIO12KUCVsI5SynMjzlpUPV7RYaTsMT9e8kkCg2OF4Sf
4yYcJ+GpEcFNgxTjDCdBwhwVx9rZ+Ggg5mesIk448LCu630BGsjrXKyWIfx7
UXb9RmEatLduF1D+77yDKamBojQYirqovpvwhPjKLiZxGtDUzAUNCLdZN19Y
k6LBUv17tROEjRaLNlyVocE/yTNu5wlX3Et+8kuOWP+eZ64XCWeWuXd9VaQB
5zRHxYP/4sP6qLuXCg08SvU4Ugk/ogPLkioN3ldIbcsjfEOMrDWnSQM3U/bc
dsLfSn93O2rRYPOYgOAEYRerMY9JbRqo4Jz5T8KH7xY+o+nT4MbUwiYxIt7l
Fw6z9ZoT9/9ApMuf8Ftrs6oQCxoYjlvGRRPWf6d3UduKBj5VeUavCZ+IUBxM
P0aDW4c4HOYJ31fa9NLnDA1adXyiXIjnkzv+n63MeRoorye9DCP8hPEHZciJ
BtEMcjl5hN92jPnruxP3s8Ti/ovwlE/FfoofDUQTe5ajiPzgPVzwt+4qDY51
1J2qJLxmmFXgd4MGNUJJRTOEufliBEfv0KDRetdWHSIf6Zd6zOVF0MBox8D6
P4SfrEmEmD8n1lcsuRRP5D/58wLajJk0sHHZQO4gXPKJ80tRFg3YmodF2TYS
9T519bhwHg2+Olf8DSC8ptsjO19Kg5IK73YfIt+euHv/Y3ArET97U7tDiPw9
tRhwXauDBkqp1dhO2OvoZeXPXTTYaagVL8BGwmCZM/FHB2hwtTuakkO4uFHL
WXqSBoE3cmSH/qsHnJ9Zav/QQGS1hcGZk4Qd70Lu7Vujwe8lGmsp4UcXpDa0
/iPixUhkchOJyFeNJ5gH1o2CHO0i66v/HFS3tsQxCi1brIQYKCQkrSR8Edo6
Cpte3LzQRNSvtiw1rzSpUfjEJRkkw0PCyGNtS9Iyo2CvHO1xlzBn8Xq68o5R
iPc7VGbAS8S7l+e0scYo8J86J9dE1EP2acOhi6aj4Hdf6sE/on42R9NO/DYf
hZvW9zqchYj8YXC1/4bFKLQ9SJrtIsz2NL/n/uFRuDV45nGuMAlZTwm1p54e
hcOkDf1ORL1m6fxc13RxFDSO+u7fSNT7dVWJeVuTRkHlJXPNhCwJB7QMTKgp
oyC26vzZh+gn8soWaAlpoyDKNiG0geg/ThTvpVAyRyHUZ9JtuzwJX+dSfRgK
RuGBwTLzbQWiviRt3T3cMApD7ptlThP9y1u/l7UxX0chN6lqfIDojyJ+Wp06
9GMUXk290AnVJvLbpdXvm3+Pws7Fr0+14L/1m28L+jsKJyILfZ/qkPCc09L9
i5vGQNaLw9Nfn9jvozsPWmwZA0Vd9Y8n95HQVbW8f5PpGKh1HuCaOkzkn7bu
nLfmY3DnwuPmwiMk5HH7HOBoMQZhvKdDbh8lYVW6lHTd4THYK/CGe+tx4vz5
Ir1v2o0B087oC542JCz/fZbt56UxUH5mekHrDLGfVRx7J56MgWvWp4FELyIf
npQlPX5GfB5ArwjxJvL7T/1x3YwxqFHPyfW/SMLTSn73U1+OwaeTzhWnLpGw
MG28+0TxGPCuJMYp+ZHwZOBb9/amMZAOlU3cdIuoX/scnlT+GAP5JO2ToQ+J
/kZeXBt+j8HZG/FHQh6RsJKDNli1MgYNPIXGIY+JeOo8xfeeYRxWnTzZw6OJ
/HLqeEQN6zgEJO+XTYkn+i9vi2sfRMdBddBzZTGNuD5B+1iH0Ticr9vjZk7M
B9/nBUlTMePQH5mjQuknYVTydENS/Dhwr/vlcYGYP3YeLAqwShoHweWAuQZi
PvEqMF/CtHE4ev5S/O0Rol/3vfkpMWccfpm5Lm6YIOHk+qkwy+pxYr6HL6ZL
JOze8nrTO/o4hI6+9mraQMxDVsbMUQYTMFSyylmjScZg07dBwsYTQHtanmO9
h4w2+rIs6fsmoFRq3a1pLWK+28m2ufjABBTqhXeQdMh4gNLK23dsArJtxeW8
jcg403ZETthtAnrfnFfxtCKj4IHzls+jJ4D5xCVGW3cyBpgEpRZNTUCnjEGi
1Asydtg62SjNToCXrnEcQzYZJS+ZCuTMT0De2bHZIWK+bEwjP372eQKmr2N4
fB4ZuVeS7z76MwGrQw4LEiVkfJFb7ObJMQmK7lNZl+vJ2EaZ2SOvPgmPYkkX
t02RUXx4f9+zoElYGdTfNyhLwZDqPXmHgydhwvBzly4xH3/JlL+7MXQSHhxU
U8wm5udqbw5V18hJuORrbH1zJwXPsnQ8UEmchGY/1tt6eyn4Yudx4/f5kxDw
3PvaFktifg5xLB4ZnISvGndLDfwpuFsjMEpAZQpG6tlT7nUQ87eDgHqy6hQ8
GnA+s7ubghcjXvWKaUzBcubNjUu9FMyZ7BOU0ZqC9fv+fD41TEHRqB1p6kZT
sG5M3+3QDAWZlntyrU5Mwb1bbMqxfynYlC3bEH57CtR4Fezj5bnQRrT1N2Pn
FHz9bmrXHsGFHALeb8q7p4C7bI3R7BEXvufi8brUNwWG95YMPkZzofSmkzMz
w1MwaqRc0pTEhUtfp3paZ6ZALIcn5HM2F97++Lcw+e8UvJOP7y9v4MIXPgru
mnLTYDLSpebMzI3fG8PHPG9NA4d4b1TWHW4cYut2Wr0zDVpB2f2x97ix2kx4
6d7daRD1lv4RHMqNkZ+yV1JCp+GseEXVxcfcKNfRwN0SPQ1DEXf6XZ9xo20/
o7Fs9jQMH3l6aKaGG+unL70c7ZiG5S+FxyU38mDcOlufQ5IzoKt0s1c/lofo
f/nU2qVnQD6yyWIykQfP1rR9Pyg7A2uL63eGPOFBpdv6V8wVZqA9tkZ7JIsH
P/yT8TfZNQPdz7Ka8ip48OefrwHaZjPwtPNLyMoYDx5Zvh8q5zMDx+9ZMZir
8CLXyJunTLUzwG3VKPp0iBcj2K9fL6mfgUxScErBGC+y7jE4duHjDLDXHdL4
MMOLTHEdm3s+EQ60aWT6zotfLJd8s/pngDVdi7t4Mx+21ckctFiaAWvbbH1B
HT4My01cSRacBZDqtGbO4sP1129Za3rNQr9f0JGmMH4sWl74XXVxFlqrk7d1
PubHs+ePpRpdnoXfrJHjtAR+rD2oOGd1dRa6l7+oc2TxY6DEcIB70CxI0B+z
vq7jx3Ufdr18Fj8La086AkQYBJCJ6zMjR/Us1LJmNtb6CWDBvZOZUbWz4FUp
1R17SwAdVuvNhBpm4R5bWonXfQGsnkyOlWmehfRdrlK74wXw9lvTHfo9s7Dc
YxUuWiqAjLaZx3znZmH+muK6vX8EkCHLNm+MMgfVtzbs5rwtiPULve6pPHPw
+Lw4/X6oIIYpWSrY8M/BRAwHA0e0IPK91c/tFpmDfyO/fFVeCKJCg8zLDzJz
sL08RGrxkyDaTH7JeKU9B5+jgxW1RIWwVPxeir/LHKyJHnsWUyuEN84x2Gq4
zcHz8QK1Y61CaJDlJ/LNYw4i57h/Sg4IYZvShSS3S3Mg4HDVhLYkhDNgmWB3
cw5Oy3T8pAoJI6+tUIxRzBw0Jtvdo1wWRu+EvHBK9RwwvzIsr9kpgiWrCfeq
a+cgfVZ5cxeI4Krt3VveDXPgafbWftlUBO9tPXWpo3kOfj0Mc7A6K4JJOayn
HvXOwc9u/dXiaBGsqzwnT6HPgUnL5wmOFRHkHxdqIvPPA4eQTVpymyieMtxY
915wHr7p5h/wHRHFp5lfKr1E5kHKf1OPw4Ioyl/4WNAuMQ93rskNOrJsQd3v
lxMe7piHqPGADFXdLeiyscOZrD8PpBlxveU3W/Dd9mAWsvs8mMczzdofEUP1
Lr6WR57zcPasuuzIKTHMv5b5kPviPFiP0hYdzonh05Z6QX7febB/Q9O76yOG
wR7rd2y5PQ+cCSdT1B6L4aHC25Y7YuaBvCGc26BDDKd3X0/YVzkPfBtV8iKO
iqPdOPvpJpyHy+6/bDXtxHEgNGmrec08LHdPxi06iWPzUHmOxYd50P7N9cPX
XxwLbvypPNoxD7NzGa6cKeJ4rfrK+LmpefCtIoVZT4sjeb+3/G2OBZBLLd/Z
dVsCn7znZNtNXgAKy1avznAJVNLMnV3mWoCi0K1GY3ESeEBmJsNeYAF6zGZ3
KeZJYMgGW3FdyQVwjzszfn9IAtfV7ONl2L0Awo9I0Xa7t+KPPeIMN84tgH7d
NrFEZkkMKqwcUXNaALHsHXmdJEnk3m7zju6yACLDCzliopK4UzDW/5TnAkQs
H8r7tUsSPX+xf9e6ugBbPnuyZnhI4mzRr9mVyAU4c+kSTXxUEod2tHX6VSwA
ueCvh2iPFKbOk68zVy0A/eEdA41JKXTIspIOf78AzdRYTqdvUjgr2ev7pH4B
Am44uVK4pPGH0IhIQ9sC+JtORERaSiOZdcGRe3IBhjlMkxw7pdFoauPqq810
oMvGOlkvbMNNz/el7yLRQfXYO6OZv9uw2T70QDWFDkcN3cuSyDJoNcyR1s1H
h2m6Y4mThgzadfEYrYrTwVQ9KCkmUAavVm+N3KdOBxtp17YEKVnMTwHJCVs6
1G8V6+UKksOv/l832tvTwaz9mytTkhyqH82cHz5DhwqOb4IihXJYzslZ2OtE
h34Py5q+UTmsvzmi2+RNh8sPfoRd0d2Ogw7XTxfcpUNtgbd28yZ5FAVlfcX7
dDht81O+Yqs82glNSueE0iHQdZF3dK88TnWaLaZH0oHf8cz5Zm95/GwgfD0+
gQ7nWbcb76HK44Zt5Qk3X9HBqdZ9iqdmB+5j9rixlk+H2Rs2JzNpOzCMKuHg
X0iHvCztPX5/dyA5LkTW5y0dZJTF7o3uVkDhTSfeOlbTiXiekxsqVkCV+V/d
B3rooDfjYGNYoYin8tTJIn/psHrj1A9+JmUsPvGLo41hEVwv5H8I41NGjg1l
7HeYF2EJWZT27FBGtNnLMsuyCGPrWe6YHldGCVaDf0Vci9C58UjD4SJlnDpr
STeTXQRH49PbGK6ooDaJa/7f9kVouxG5NSFSBWPLu2YKFBbh+QnJyzezVdCE
cmyCX3UR/pRduaFBVcHsKtvBCe1F6Pq6MfSy2U50F7zw8Zr1IhT8s158qKGK
9XU7GhSPLoJSXd7G9COquMVrqXbs+CL0fkhSEr2sim0N3mhyehGi4zJT9xer
osolvxJul0W4wPvFtX6PGv5svZueE7AI0pd+tx04pY4WV02enb69CGUvcHfr
HXV8Ic2aRgkinJPuMpStjieuhyf5hizCxzAXy6w/6lghF/XYIHoR8LbNe8c0
DbwZlHZrKHsRFE2uHErj0MTNVzbut89dhELvwzKGWpqY4ORGmcpbBLbvs95x
Lpp4XT32S87rxf//H+N/Im9diA==
 "]]},
 Annotation[#, "Charting`Private`Tag$12605#1"]& ]}, {}, {}}, {{{}, {}, 
 TagBox[
 {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
 Opacity[1.], LineBox[CompressedData["
1:eJwVkHk4lAkcgInKRjLZ1KS55Mg4wmcr2/Fr05YMta5sl5hcCWF5Kp2sIZXY
1srZuFKyTGn0rMj8HqYsMcUoWmdjyNmXNGnUmm3/eJ/37/dlcY+7B8xTU1Nz
/cr/dg4YacNRry2557gLbP1z6jQdV0b0U+3hsZTp4s08JSL4mbn3qdtBrbHu
VyYzWcRp7azMo3rCDUxhzGdmibz9Zx5do/pD2OaYsBlGqah3bZJjCjUaOj4H
p79jVIvyl+1JvERNAK1umdkko0kUp3XfLJmaDgXN/MhxxivRz/sKBO+miqFC
kNwdaj0m0lbFHdxJF0AQtGVNRE2LTNzejjRcFkL4kPmgsEIpOiFxgMwP1bCI
lWDWv0ENlwspferqIriq95Rd4KuBD2SOLc821YN/t6dIo2UB1ofkGe6bEEPU
4wTucbNFqDDdvKQ8rBEqI3Q8VuxajPOUZXqGJs1QcPrYmI23Hq5T+T7wqGiB
eP4Xtw8TFGxJsJc8YT8DNenA1tpYfWSkjStL3z4Hs+jAk57sZTg+09/3wqYd
hhXX92o/MsDisZpm3atScB0KOXstcgXq0m6RcnkHuMvTLOj0lXjlaFVgvvFL
IBu4F/4uN8SPW8vkwec7wZ7ykuZ4mIbRdmKhQUMXUEDh1zNNx/4K8eU21j/A
mdw/Y+TFxM8hHTnmsd3QW++vvt+ShRY/LJwLrOmBmotiH6aChTsLWUH3lvdB
6PyYAYnECE/QDhu9PtgPIVGnq3SyV6PlhJd2p+sArA+ykLj4GaP+knda4tkB
6FpqqR3jYIKaohzB6tzX8LgiPsdSwxSP2de8+oYjg0R19k8tvaZYtoubX/dR
BgY9sU7hQjNUjK/UG84YhPclrHT+mTVY5bFTI327HArXUDWrvczxvBOPLxyWAz87sNGPyUZWr3NXEW8IjqYfkui8YeP36xPSqXbDoPXjTSW/zgIP0p8p1aXD
MD207WR9kiUqmlNkEXFvoHKzrWGrnxVmavpEuxuPQB0vhhJkZY36fVWF88Qj
kOl1hKOhsMb5Z+M8HSJHYUdPQWlS61pUK/URyJaOQb55TnkrxwajsgUpS+vH
IAlTMjnVNvjI4qIWJXwc9hp63Ww2tkWKc5RlvO4EcMIbD1CSbbHH6rn0VO0E
3FnFNW5R2OLdG2As95kE64ZbGbsP2OEhwToKbW4Ssq3q2e11dniBVxDXc+ct
RExrtjWxCSwfoeXoupAQeu89MzmVwIt5PN++3STExHt8cf6NQH/3SZMKNxLO
eQg7dX4ncFVt7V1XbxKuKWKupmUQeCn1wJMrXBIeOCg/X88jMHhd1tSiUySo
16telpQRaJTwrdPCEhL+aNdJETcSOLfhzOLO2yTwi8KCE5sIfDU52F5SRsLt
aImj01MC07zvH9pxj4SHBmmzTyUEqtjuv/BqSejfrx8sfUFgT1vqDQ0pCexB
qqNskMC/EmeOSF+QQAhj6cVDBKZvPGxe1EXCJl63MuANgZyb1sJtfSTsMcu7
OzpG4MOTrU1xoyREH2PSp6YIzLD6LtVt4mvfpjhl5TSBkbJcTxZJQtJiWUe0
gsA1LqH9+IGELEHR5U+fCNRU7yhOmyGh8IJm0MNZAgeqNob4zpLwp1vAtjNf
CKwNKVpr8+/XH0ZPaFvmCLzO0FaoVCTUTZsqVSoC/wPenHea
 "]]},
 Annotation[#, "Charting`Private`Tag$12555#1"]& ]}, {}, {}}},
 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
 Axes->{True, True},
 AxesLabel->{None, None},
 AxesOrigin->{0, -25.546968910546106`},
 DisplayFunction->Identity,
 Frame->{{False, False}, {False, False}},
 FrameLabel->{{None, None}, {None, None}},
 FrameTicks->{{Automatic, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}},
 GridLines->{None, None},
 GridLinesStyle->Directive[
 GrayLevel[0.5, 0.4]],
 ImagePadding->All,
 Method->{
 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
 AbsolutePointSize[6], "ScalingFunctions" -> None, 
 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& ), "CopiedValueFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& )}},
 PlotRange->{{0, 1}, {-25.546968910546106`, -4.000000094777321}},
 PlotRangeClipping->True,
 PlotRangePadding->{{
 Scaled[0.02], 
 Scaled[0.02]}, {
 Scaled[0.05], 
 Scaled[0.05]}},
 Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
 3.698276284197919*^9, 3.698276347431666*^9, 3.698276773213524*^9, 
 3.698278547491778*^9, 3.6983637743690863`*^9, {3.73402430192118*^9, 
 3.734024318485368*^9}, {3.734024395256632*^9, 3.734024509902032*^9}, 
 3.734024581224905*^9},
 CellLabel->
 "Out[132]=",ExpressionUUID->"f1f21c1d-1ae8-4ffa-8d49-0d998eb9f746"]
}, Open ]],
Cell["Ahora graficamos varios pedazos de la misma funcion. ", "Text",
 CellChangeTimes->{{3.698276625575738*^9, 3.698276633000825*^9}, {
 3.6982766949750586`*^9, 3.698276716418912*^9}, {3.6983639689896855`*^9, 
 3.698363992994629*^9}, {3.729903658624196*^9, 3.7299037185024133`*^9}, {
 3.7327206550481124`*^9, 3.732720661251855*^9}, {3.7327212160937634`*^9, 
 3.732721222833193*^9}, {3.7327213823208313`*^9, 3.7327213840131245`*^9}, {
 3.7339614546819725`*^9, 3.7339614548200293`*^9}, {3.734024548043902*^9, 
 3.7340245510504975`*^9}, {3.7340251115675535`*^9, 3.73402514283519*^9}, {
 3.734028112434964*^9, 3.7340283086340976`*^9}, {3.7340283658235106`*^9, 
 3.734028444599331*^9}, {3.734028570618541*^9, 3.734028571563279*^9}, {
 3.734030385006487*^9, 
 3.7340303882954144`*^9}},ExpressionUUID->"b46534d5-b6ba-4221-b763-\
52179d552c67"],
Cell[BoxData[
 RowBox[{"grafB", ":=", 
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"v", "[", "x", "]"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", 
 RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
 RowBox[{"PlotStyle", "\[Rule]", 
 RowBox[{"{", 
 RowBox[{"Thick", ",", "Blue"}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6978272798950257`*^9, 3.6978273111796513`*^9}, {
 3.697827452976195*^9, 3.697827454601348*^9}, 3.6978277918564587`*^9, {
 3.697829098754939*^9, 3.6978290993956347`*^9}, 3.697829131117807*^9, 
 3.69827842520168*^9, 3.6982804847886963`*^9, {3.698363424898387*^9, 
 3.6983634705030813`*^9}, {3.698363619366725*^9, 3.698363620726519*^9}, {
 3.6983638731855*^9, 3.6983639016003895`*^9}, {3.7340246013893623`*^9, 
 3.734024612852282*^9}},
 CellLabel->
 "In[134]:=",ExpressionUUID->"5e4d7d70-3dd2-4f8b-ac74-25e85441c7b9"],
Cell[BoxData[
 RowBox[{"grafC", ":=", 
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"v", "[", "x", "]"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", "1", ",", "2"}], "}"}], ",", 
 RowBox[{"PlotStyle", "\[Rule]", 
 RowBox[{"{", 
 RowBox[{"Thick", ",", "Blue"}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6978273476210685`*^9, 3.697827384171771*^9}, {
 3.697827419675599*^9, 3.697827421769684*^9}, {3.6978274586330233`*^9, 
 3.6978274592267113`*^9}, {3.6978287705102563`*^9, 3.697828781448944*^9}, 
 3.6978288205156617`*^9, {3.6978288579477916`*^9, 3.6978288675582805`*^9}, {
 3.6978291028648896`*^9, 3.6978291031461954`*^9}, 3.6978291370560837`*^9, 
 3.698278408901744*^9, 3.69828049552931*^9, {3.6983638494484477`*^9, 
 3.6983638517142887`*^9}, {3.6983639042879534`*^9, 3.6983639070699205`*^9}},
 CellLabel->
 "In[135]:=",ExpressionUUID->"79592da0-2b6e-4f84-ac2d-9f65bdfe9aae"],
Cell[BoxData[
 RowBox[{"grafD", ":=", 
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"v", "[", "x", "]"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
 RowBox[{"PlotStyle", "\[Rule]", 
 RowBox[{"{", 
 RowBox[{"Thick", ",", "Red"}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7340246549603786`*^9, 3.734024684870637*^9}},
 CellLabel->
 "In[137]:=",ExpressionUUID->"5165bd36-9d74-4338-b9b5-b55ec2d2a229"],
Cell[TextData[{
 "Podemos usar PlotRange\[Rule] dentro del comando Show para definir el rango \
del eje Y que se mostrara en el plan cartesiano de Show.\n",
 StyleBox["*2.3",
 FontColor->RGBColor[0.5, 0, 0.5]],
 " Ejemplo:"
}], "Text",
 CellChangeTimes->{{3.7299037334407153`*^9, 3.729903777825478*^9}, {
 3.732721233189986*^9, 3.7327213222564707`*^9}, {3.7327214494990215`*^9, 
 3.732721455740475*^9}, {3.7340247844338055`*^9, 3.734024827996916*^9}, {
 3.7340285868082714`*^9, 3.7340287438378325`*^9}, 3.734029200772339*^9, {
 3.7340293188196273`*^9, 3.7340294241385508`*^9}, {3.734030174968498*^9, 
 3.734030190075659*^9}, {3.7340302502524014`*^9, 3.7340302606377616`*^9}, {
 3.734030421737135*^9, 3.734030434970145*^9}, {3.734031161097103*^9, 
 3.734031165661009*^9}},ExpressionUUID->"817ed419-ba16-4931-b48f-\
4da5fa12a2ab"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Show", "[", 
 RowBox[{
 RowBox[{"{", 
 RowBox[{"grafB", ",", "grafC", ",", "grafD"}], "}"}], ",", 
 RowBox[{"PlotRange", "\[Rule]", 
 RowBox[{"{", 
 RowBox[{
 RowBox[{"-", "10"}], ",", "10"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.698363705135898*^9, 3.698363720434297*^9}, {
 3.6983637908965254`*^9, 3.698363840004228*^9}, {3.698363929812378*^9, 
 3.698363934719182*^9}, {3.734024695632805*^9, 3.7340246973453317`*^9}, {
 3.734029908051521*^9, 3.7340300424660397`*^9}, {3.734030085291983*^9, 
 3.7340301569398327`*^9}},
 CellLabel->
 "In[196]:=",ExpressionUUID->"ae22cf13-c22d-4cdf-b8b9-4ba8fa6a1170"],
Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
 TagBox[
 {RGBColor[0, 0, 1], Thickness[Large], Opacity[1.], 
 LineBox[CompressedData["
1:eJwVx3k41PsewPGxa2wz1skyloruSbKesp3f15ISEm2OOEqOSiUSh5PckJpI
4aKokHtEi4ayDcNnMAxjJLJHxtjXsYRJyu3+8X7ez0vb94r7n8I4HC7mZ///
Q02plc1NPrgX7JXE4bhYxQaRGfmdD4dL9TJ4Qlyst4/0n6/rfNglcT+mQYSL
qabqGi2v8OE2T9nnngQXeyJpe3l8hg+k+Xs2ZDkulrMYPsbp4YNArAbcyVzs
Zf14VwaVDw7E42jTiovRz9WVmfjwQcZf1u/idS4WMC22wi2ah1IBFPEkhjE5
7t54Ndl56JFfoNGTh7FPZryYO4Fz8M6wxyNTk4cZNZIEl2pnwYUmPJZYy8Nu
NFszhzRnwUZVn9N+egRzl+BLc4JmgGCXU/JFeRRzzSPRppjT0N9fFWXQOYrZ
lhnSU7dPw1jr7CH6/TEMhLosaWFTMOUdnsTzG8eMGefkL3ZOgoSbqNDAvgmM
8/mq82GzSTh/OUttWnESW9iLF3lFmYDsIxJ7U+WnMLxoEiFtYhyKGM+PR8lO
Y2/wuZmCfeNgWURQKTeawSKC9SmJiWOgZTqMMc7OYhZOeRzq3Ci0r1DwM6lz
WJzPy0QnNAp/VDpcz1ubxxrHn+ZdyxqBsoc1awW7F7DkAg0LFT4PzG4EHN33fQGLZSsZz9jyIOTfA1R63yJ20WfjpnPuMAg/tk7RrVjCBg2uOOt94cLusNzl
4uplbH/wh8AHblzwLtcTP8f6gr3QOzbl5jcE5PfzItm8FezTsOb8X/jPEDoW
G0E1XsPWo5tyKlgDEBoqkU9IEGD6D+86z174BF+pLYJO3XXs9SVLiJHvh9o4
0lmtyW/Y1p3sIZOOXiAKScyt0r5jGR7BX3vCeiCvQttman4TE7+ywkg37gb2
aSsNAy0hVLs/wLXiSyeQq3vXO84Jo6TktW7O44/AzRaaq9wQQU71Z6Q3fu+A
8ImsWeobMbQ1YNSC/P0D2C65mHV+kEAFc3cMygLbYFZwaK5QD48IQbm7qvza
4PgO6h+5RngUvkTfyfBsA8M/NU89tcQjx7VFHbZDGwwKe8rmu+LRNM5L5TO5
DZ5hYQR8OB7tVjTEibe9B9O/PAwV2Xj01qK3/fie9yBH3YE/HyKF6Hd2hq7w
ORDSICH1fEAatbZK4XXGONDdmtV3bUoafVbgZx3u/+k0hwSXVWmEyyltymdy
ILC6gKlOkEF2FbbqnhkcyJFMaTWxl0HsSa/6GlsOuHrO+xx+I4P6HJOJlLQW
cOnaiI2Pl0WrUuuFqpZsWL2P2YmaENCv5s4knBEbag50mB2zIKAw/6yYMV02
aHalLb2wIaA1hu3JInk2DBlXjPkfISBBaALOYboZeOKrwXqBBPRtSP1ocEYz
CMb0bZtfEhCuBBOw1ppATuyaQv1OIkLDyb6Fc01A8Rw06zckopuyo5yUkSZI
NThJEOwjIqELlGfebU3wDzdI9qAjEQmT2w8tP2+CbbrDJIsAIhKl+D4ln2iC
2h2ew5cLiWiLV5xtaAkLLimcUjhqLo+WnHPsY16w4FSs9kEFO3nUb13l8CCL
BepfpCsGnOXRa83FQy8oLOjqE7+RcFoeHRnxOjroxQJ/XwbekyKPHgWY+u0X
Y4FQkpAQq08e6UaMxCmdaIT0iiEd+1sKSC7gxx0dp0boj8S9cXiggASeW+P3
oEbI2utkfyxTAbGtXO87/tIIZB3RzqQiBXQZV5V+40cDJD8rdk8eVEAld1Ly
x543QNeyYnuNuSKyS7dpLl1jgolaiIvTN0VkIJM6vDLLhOjwbbIPJZSQ6q3x
r2Y8JkyZpVH5CkpoITjhlzIOE7IyWkZZ+kooy6UroewZEyZ2Srsr+yghgeiF
w+VOTCgve5Bs3aiE3oQkfazIrgdqZNSQW7YyypzmzQhSf/pmPftsoTKKO2Mm
ah5fDwnEgcC4KmXk5dpvSrtWD9Lm3xwFPcpoy67t6TTHepgX7jbJJqogP165
R+VyHZj5rvZvoaggVbehwaoDdcA7EDioGUNCZtSclhLrOvjoPUE4mExCR2R8
aYUmdfDb+IJxdA4JxTWPpmZr1gGJ7vZOF0howWbaKXatFiK73Vg230mo0XiF
dii/FuKLyTodkVvRVUWp9D7xWli8XkM2j1dFiVc5sR0bDLCcb3xd+VgVFXxI
DG5Z+ulpYxO3QlU0eI/gUv2ZASe7NmuqP6iig2LKos/KGDDon/3jEUkNkVe1
rp73Z4AVqbL479dqKJV6+cl8AsAnppCO4rg6UluOzt8T9tMhk7W/baij3F/T
3wadBiAPvwyiyGsganVN05IpQEBlw48ITAOxW+RWVgdrgC77t/ZgpgbanCh2
2dxTA8xAe2XuSTIK0Fr9IddJBw+LXpvJWU20eBaPd6uhwz6hLgZDRAuF55OV
Ugro8KqKAtpELRRncGCX4g06WBUopGrra6Ecq0cnSbp0MI140qlxVgt1e1gU
aYVXwTfC7eumXVrIJjnqjJF6JQQ9Ibd7tmgj3f8GqYxKVEKiHunurX5tJF3q
25q+TIP17rl/NU5po+5eB/MNNg0yH+lLpkjqoEtackRWBA0c007ccz+ggx5R
sxlePRVQLBLd8qpZBy20MjQpKeUgEC1pSBnZhrqH3nZZRJVD+PzvH81Wt6Gq
xX8S5i6UQzpx8/xXye3ottLdNXebcsixt4seMdiO1L3d2jQWysAkN2vdOXI7
Ojg7HPXOpQw+nsh736CxA3V4B9fW00phNaXX27pmB/ofE0sq/w==
 "]]},
 Annotation[#, "Charting`Private`Tag$20529#1"]& ]}, {}, {}}, {{{}, {}, 
 TagBox[
 {RGBColor[0, 0, 1], Thickness[Large], Opacity[1.], 
 LineBox[CompressedData["
1:eJwVknk4VfsXxqmEOqaDY8jBMRRFFGWqu75JxEVFRXIl92p2FCpx4xpzJEVJ
aZAh85BKckkhQ4YMR5c02JThHFN7b/O0f35/rGf9sT7rfZ73fV6Wh7eD5woB
AYGw5fn/Dn6a2/PSGQcLTlq90qgmEpEeunnMDYdMWx15LkcTLaFdvSv8cIjV
KhqZ0tNA37iHGX9cxEH9WfBs4ToNVH7i3O8ll3DoKu8vixXWQIExicVnr+Cg
MKtVVdajjmY6RzkdQTgIXeY01sepI5KdtDWDg4NYgB3j6IIaGnpIhlkn4zB+
zFdtFY+F+hyOPo55gsPYlT89uz6z0BeR6tctKTiU72yxe9/AQh/94kcPpeNw
vYBr2JfHQi9stzh5ZOMwE8+/pu/DQkEL7I2BL3CwryFy+QIsJOvKb82rw0F3
sPjrDV1VJE53GB6vx8HIVgBmVFWRSH2pkEEDDj7Tu6P9ZFTRnAHHtLQJhzCq
mGMxrYKwtVrpNW04BLbvC32YoILyyjwvf/+Cw1dsY158lzIyX9fLlPyFQ166
wJvmi0xU+3rfHjaOg6O2eAzXjYlsDlecayJw2Jr4YWLWiokc4x6URU3isIHo
DslUZKK/hA8fEZzHoSwg3ySoUgldIxvuEEIEeIbVD/fKKKGmxpdrP60jIDNa
daCvVRHtP61uYMAkYFNxkk34G0X0aXW8S5wyAXUZGxd/y1FE33d5Z9uxCOh+
tpdDhSmi8RJtq9r1y/9TLYJZxoqInv44tGQLAb7XNJXZGQrI6e+o2ftWBKy+
SwilxcsjJW39CnwvARjtPsszVB5hnzpDrW0ISNxeEmPqI49O6W2gzdoS0Df5
/YOygzzy76tRdnYg4G1x8o4PdHl0b+9KC8YfBGzXlezjJMqhLpmg2HgfAorC
1RIH8xnoYaWmI9+XgFL7as/OZAZyZzfLmV8k4D+uSct/cQw0VKeUgl8mwMY2
gbbqEgPNBJS92H+VAI2KWB9ZYCD53pku8SgC2p9zMpa4suhIvq/69UcEIJWd
721EZJHxVa/mxscEvOPpuXIXZBDD7uRl2hMCxlj9sidxGdQ+4tJ4I5UA+ZDx
gsJuGWSjY+57K5OABcWwd9X5Msg0V7I6oYiAcVFnUf4hGaSUne/xpIaAv3Ul
5RrypRGWPphSPErArQiFMwJX6MjadchZapyAL2O951W96ei5NE/C6xcBRtiT
emtPOgoP5V/VIAlgxrsZvT5AR1ruo0duzxCQe5qTv2ITHZ1fR0pdWEkC4XRe
c3ePFBKMXwrRUSABJQOlYi+F1IJlPdIsSDioy3edNpdET4+cWhrcQ4IG3VP1
vpkk0jIsS9KxIkGyQ6oMGUqizTx3brE1CXFK31xSNCWRmWOeRb09CY9WXovK
FJFEBzfs3jDqTMLdrR/ehiVLoMiW8yPbvUjY+1uDodB7ccRTabrUkEBCsG67
/8+NYihP1PmZSCIJElVC7biyGGKTP3iW90goPRCUIywthiZq512rk0jgDA0U
287TkAB70+7yZBKOqX7eZdZEQ4zyaImC7GU/No6Fqd40ZO5snRX3hoQrqQlw
vHwtenir9rNzPwn6/GeFxNk1aM3PgKAcswmQP33MyIsnjBYXSy5vi5kAHeaT
pEK+EMqdK3ge9mMCRkrNH9HFVyHLOp6ZickkGPCL6g2vrECeLvkKWpxJkAnp
G6rSFUSodaNJd88kbHaUGtDEKEimbcmv0Z+CCmGF3M1ti/DvJtzDL2oK4HZW
P407D5WKkyeiv0/BcNC/fhX0ObBrDXn7efM0nA9m3+2+NwN3TtUfGYmYBqfJ
vjM7NKfBvS5xr3HnNHi18UojeJMgP5UTMbx+BtYbeXytaJ6A68L+qzyuzoCG
nHax8wsSwnqaO6U+zoC6Z0PE6srlniR9GwnXnAU2zYY7/hGHTo0t+48FzsI0
07illfwFCxfFRHwbZ0H0xryV5fZf8DU7TdBGbQ6iaplKcWNjsCu9ap+L7xz0
DvFUilNHIZ6tOdJWNQdqD2pc/vIZgcfrzBtoCvOwM/L4RMLOYdC7Objwz+l5
OOEwENCox4fAfssLr9/NA/toyslYJg9sV+iZatMXoKI71UhbdwjWjLscEPRY
gMmyCfas/SCEVaCch68XYPjsWlbP2QEIOVjodEF0Ed7utqsk0/rBtLnTUvT4
IuhsWTp1ovMn9MhahIuULELAJR+xXoWfIKppwtglvASzOu76bJ8fMMYY4u1w
WwIb+qfI/bV94NyiQvcpXIL56CnXXt0+KHR6ECVOLcHH4Lk1Gcm9UFnVitiH
KBAOjFH5RusF54lYO+EMCvbtEa4Ijsag9qO5vncmBa/ex/hbRWFgmD1F78yi
oCCnIVsiEgMJN7eujFwKZOYGvFNClvk63T8tiyjIvTcY2eCPwbYHTf4R5RQ4
pByv2noSA7r5mvSVXAput18Pd7HA4B+lisizHRTMtXV06JtjMDZ14TT3EwXx
Z7IShREGH3I/b07rouD3nnN+r8yWednsUvPvFKwv+xKpYIDB+JBVSwiPgpjD
FDHBwsC1er6Ix6fgZUKFa7sKBg2PCu8cGKGgO3+l0TMmBhkOci6scQq8O5J3
eClg4FY+8PPdxPLd92nUiCQGTXeT6rSmKLiYKu/bLI6B6QX7nFvTFAzmSzcX
0DCQXf/K232OguPG6i0+IhiECpxxqJ+n4H7VzKVDqzH41c3cpr9IwQJ03TBe
taxf3CZ3b2k5P4dUaaUVy/o3I+YoioIDWUYiAgIY/A/JWBt4
 "]]},
 Annotation[#, "Charting`Private`Tag$20573#1"]& ]}, {}, {}}, {{{}, {}, 
 TagBox[
 {RGBColor[1, 0, 0], Thickness[Large], Opacity[1.], 
 LineBox[CompressedData["
1:eJw92nc4le8bAHCjIcQ5x54hhGRlpOS2KRTRltCwMlOhoUHJSmXPVIiIEBlx
Z5aRvcc59jykXajf+/3n98851+c677nO+zzP/d7juo64g8ehc0wMDAyCxMt/
7+GK3JvLJ5+DS2nEtg1hmnjseFre5+XnYH02fHvrNU1cGrRmfSqYDp+8fnVX
m2viXVuWc1b66RDaYUR32aKJhWc8BIuj0sFD8Yznh9pdyOG+N+iqRgboDLKF
H+TbhXW3+09suJ4JX1S3l8b3qaPN+vA3JemZ0EyXc9pRqI5f7umQnD9lgouU
zFHdCHUUC8+sa9ryAgr7LrRTDdXxWuwlpYfVL0DfIXSssEwNVXLIG4RZsmGp
9LVM61tV/KhQZ9eilA2z39anH0lQRbvXvuU3jmdDbwwEa11TxfBiqudodjZI
1nHWCOuq4gzmDmaYvwTjz0dXGFt3Ykr3vtfKj3NgMoSPm+ePCqodW2MbL8+B
4HVc0000FWweyD8fNZEDg1epGo0NKvibyif8Uy0Xxk0pL+JiVNB6bvJuRV8u
KNFNr57SUEG2f7dsjEXzwGX051BqoDLGOR+1lTfKA6N1q46lHsoo2SVvR3bP
A832DcByUhm1s3rPDL7LA48zMbl6KspYmhXzpkQhH1L8+C7wjCsh3WqhwvRT
PvwWztweba6Eqpt692qP5YNbfu1gzh4l9K98X6n0Ix90i5fHF2WVcKNsLPKI
vgZ1l0c5SxuUUPyvbi3V7TUo3ni0MStIEQ+/iG26uLkA/j33Zne7o4BJp26b
nRcvgE0Dn/kczyrgGMWt5ZhaAehfV7ufbqiAHtf1WveeKoC0j7/EF1gU8P4h
esfG3AIoUpxPCX60A9+t6g0kmhVCX9aXGvPX8ihluThTE1oENTvsasX5t6Ng
gPFux7QiWK9b9FX5rxyScp+EspYUQbVDVr3vhBz+YbFSsBwrgjKz1PzM13LY
hiUXR3a9gdBkSPI9IIf+Srf+/pp8A4phV+1PP5TFT5zc3Ao6JSB79uL+q7tk
sGav27n2wyUw1/DthIGkDL51rS/2cS0Bnt9uSjtJMviswfd4eUwJZP5bC7k5
sw19A4ZTTOglYMlY9v1TwjaUWMqQPZPwFi7X3pyeWr8Nr3zShLhvpVDKYTSc
8VUKORTeTH5kKQPj93nU0AkpfB6uFLYiXAafdLdGB3dLYbvZtn5bwzKYr5/S
/lAihdubuC9KxZTBmWrbshPXpZDasJRRoFEOaglD5ansUmj8Pp2jxb8CVO60
jzvslsQRMfE3fyMqQPjhcil1hyT63Ew6qfSsAjRTau+6i0tiGjx+8bipAuys
ct3es0jiyrubeieE38GHVw8dd/Vtxbyyk5en370Di4E6djP/rchXRB5hZKyC
rvtR3FKNEmgTtmI9wVsFx2e3Db6rlMCnZyeb6uWr4Puz2b/nCyVQnqe0NPRY
FajHm3TPJkmg3mW7aJ78KhiUtOB55SmB6klHM6IUEVol5Ru5hSTQ3jbj1IsR
BMPU+ZOh/uIYuF8oPn4W4c35batfPcUxQz2yK+QbwjzTJmtnR3Fc4PA3dWN9
D2bMUh/9rMXxcpW5por6e9D8tm27oqI4hol9564Ifw+pnnbpvVNiWDym39yq
VQ21VvV37tuKYY/JreVw42oIfVUpEnhEDH+8quQ1O1QN/FjuEXxADDWuatp/
cKyGM06cv3K1xfAtl+IPfFQN3y5WfXDZIoalBoJiBTPVMObXULy7bgtWZHy+
GBVVA5tVHfj+jIjiELtC/KHUGvDaky8g3i6Kq96ulaTsGgjz/dd7tEYU98IU
S3hVDfTNPpX4limKlb2DyUFzNXBliEtl0ksUq1gaGi7r1ILuS8rvxyyiWO2S
LHR8oRYCjoTaB+qIYOGsq6vtj1pI8sBTBmoi+Nxpd/kZhjooy5eK55QTwaDz
vSfcuesglGU+vIFLBE0cyAl3tOpAp2nobfm0MLYeD+J/FVYH+q9XqzIfCuOQ
iRsP8456+PvrdpwsXQi/S+/lzHVrgIo1rpq1KkHUHtNrCPFtAHnm2jX7YkG8
m2wS4HSnAYwNL+S25ggiL7f10tb4Btg5JbSrIV4Q1RldWxNqG8B9nV2slI8g
+g7GPQgW+gBqsqI5UXKCuPrgG+fZjx+A92eAwFyyADL9fkkSkmoERkajCPEk
fhRq0fsKio1waeueGLZoflRN6+8+q9kIM9/NYlbC+fHcvo2Jr8wb4XRa+Rl6
AD9+iHeQ0rvcCPxxVb58Z/nxwW6B3c4NjcA7kNgVsIMfha/dPVPi3ASG1lOJ
l2r5UP2fXbHVq2aY/undW8TIh2bmeNvwbTMIhd5JZV3lxTOJWw5qVDeDbovn
h7M/eDFSY2RasKcZ9M5YbJee58VZj5MCY2vNcOD6rfKhLl5Moh2+5mneAia2
YmY8WbzIWL1fL3yhBfQGZ8NjrXmxOVD1U71cK+g4fxhmL+HB3ZxNTA/VWqHV
caT9+2sefBFvr3FSpxV+SMZ0juXw4J1XEU+WDrdCWvD40oenxPV9M978t1qh
JuGPcF0Ecf32ZD6X3lZ4viwx7ufIg3qzt/M36LVBkIknU7kQD26JnP+dtdgGPLPdNwciuLHSPiCr4GsbPBBrFv8Swo22O7mOl/9qg5tXr4Sx3+PGpJ7db5uZ
2kHUI+3NvgBu5BcJubzE2w4smxt5Jz24kZIt81UV2oFNpEggxZIb19eeW6h6
0A7LEk97N/Fx4/xP6ki3UgfYFX9cfySLC4sdH1TvV+8AM+o878d0LrzZq51R
tacD7Jnqe7SfciFvSbJbllEHZJW0H1dJ5CLyw8nVazYd4OKwXUkznAsTvvUI
SAZ3QKVn495aLy40WW6x9qZ2QD553OG9Fhc+nytv5IjoBGdf9+n5fgq6xx7c
6vK4EzwExVNZeimoYTB+tS6uEz4lCF7Z1kXBxmTWHdeedUKabskt108UXLY4
/mD2bSd8T2zpYa+hoHbJD6va8U4QZ+pXLMyhYP8d5WE/zS64oWnhFXiLghwi
mUsTE10wbmG7jq5EQZ0jd4bHZ7tAYmUza74CBb0fnG4aW+wCWzbDFB95CvYw
8mfSfnUBmT3QnUmGgilTwbZD7N1g1scbpbSFggr5Li2dqt0Qo6oj1bOZgub6
Ci+rA7vh2g1FUZ0FMoY5vzn/RLIHMqUuGdnlknFOJzeYTa4HznEwBx59SUZj
/vTsy4o94H0i4qhFFhmZGqIWzXb3QDvLZIVROhn9JH0u/z7YAy0+NeeNksl4
nqpy99DVHuDt4b8QGU5G3cP56es6euDjNUO+fR5k/KHzcsIpoBdK2VNbRDXI
WPF8PvFKYC94dW+WfahGxtss8lZ37/dC7KP6t+tUycjRlvP+2eNecDNp9F5S
IqP06VcpI5mED8npdsqR8cj118es23qhQOjNx05RMr4pLWkG8T6Q2KdUXrSR
jD4qtUW8NX1w++Hqxf4hEp5XFXvy8EMfPL+06YnfIAmPqV8LZf/UB0syy5xC
AyTcs1vVgam/D9z3UErte0nIpPecc3GxD+ibWMT/tpPwgWWgS51gP3T26bd4
N5Aw29NAzMe7H/4cmh43LiRhkvcTtqUr/WAuOHyTs4CE4T6rP5yv94Nc6KxF
Xz4JPX2LWk4H9wP18JFgt1ck1LgpedU0pR+2uXAaZ2SRsPbBuh6Jxn5oYz+d
YPGEhNRXtaHt4gOQGDjsFBRBwjb6ugWVbQPAd6H21pVwEqK8oVmU/ADIV9YV
uYSR8El2HftRjQGo6A90tA4hoUNGffiQ2QCwRbJ/V71LwqnkDw+mrwzAWvnD
E3I3SEgPa3681jIAd4vTy8bdSTjSxP7NtnMALpqW2vxyI+EnVnNr7BuAmGn1
zRyEXwW3cN8ZHwCXSv44LVdiPYGfoll+D8DRQ9vNMhxJ+O1qWyyX5CC8s0mZ
eGlHwhWXrkRZ/0G4VDaQft2KhNbqpx4qBAyCyczLf3iIhDmMU3d3Bg5CaOwu
rfWEbeN+eu2NGITDV+NtIi1I+L5O0MTy6SBUhouovjYn4T0x+2++jYOw7rwF
u4gJCbl66GYfBIcgbUx5LHEvCS+kXdZr2TIEs5JHtq1oEft54Z9Gh+QQ5KZ6
mpwkfJmZvHVIYQiCdGtERPeQsF9J9feS3hC8PxjG+WoXCVND/dP5XIfgg8T6
qR87Sbhdd+Pf8+VD8C+HTWz7dhLmZ7/c1odD0Og/b5UgR0JVbgvLffVDcG+t
4g4rYa3puOfb24dA/YljD12GhAfC5Uw/Tw1BdZqlHkqT0LvfPM6PMgx7ze03
RUmQ8Ifel/dzfMNg78w2SSF8NSdm/qTIMJxiSSp9JE7CwACqtrbMMKR+KjOL
FiNhjJTXJJP2MKy9YeHNECVhqVeUSpjzMLDHTHL8ECSh9uAumzX3YegJdTgb
SLjaYDjI3WcY/mTy5XMRbuST7rcIGIYOpVBZNQESDr0rCeCJHoaQ/ZZP7vCR
kIF1sDkFh+HRlgPXDnCT0PipuONrvhH4xDP3M4GDWG8ch3S98Ag4tpftNycs
FrEyMSA+AlbK7p4MhP/4dTuskx8BnW1bVJ03kzDX8r7tUZ0R0DWRSTBgJ86L
cfnwmtMISDCntUiwEr/3c5ib4j4CnIoyBmObSLiw0NgpfXEEZup3hT0lXN/3
3NLi+ggEtb+IlCLsl3/M/NnDESDFFzmpsRDPx2k02Fc2Al+K2wyvbSBh8+Fc
ZtuqEXgzb99sQvitaUK1d+0IlAif3cpL+JGGj07SpxHwF7mhV7iehIacMlpL
YyNgoOGs/3MdCVXW86wwz4zAhe2jpo2ERVcYy/jpI+A5d1gyhfCvqUENvZ8j
oOLCYGhC+GXlg53RbFTQeresn8FMwriia1+ySFS4HjvVGEA4MNv5dSUPFZiX
L4qfIGwbo684s4UKG/Pl9pIJk91/yu1RpcJjnr4d95lI+PfMxOxBTSqcnrJV
ciY8d7z9xVltKiS8k2XaT7jW8KV0hAkVZpfPcXEQviJyWmLUhgqdJwLmUxmJ
591C6ciQPRXK0GfyLuEDdxhDes9TQbTVJsOdsPTss+UWTypsmpi5pkOYInxJ
6uMlKiz7BzySI7x2wOh4rT8VOAbp7jyEu4pmsCyQCq7RmtfoDES+mS799uY+
FZoOsuUOEH4pGCrzOoK4/8fJzz8Qvn1zR2RmHBXSvi1OZxB2L/xb8zSZ2B/d
5ztjCR+fav2Z/JQK45c2GAUTVjLzPh2VQwU7b6y8QFg4QP/xg9dUsNhFkrIj
vLGAuyGkmApXxlYtrQl/mZj8E1ROhfMMdwz3ER7hK1G4hVS4ejL1nzbhxv3B
DtfqqND348BNNcJvrh+PudJIBUfOBw3yhJ/kyzV6t1KhW+hUtyThsPGVNbcu
KjxqLs4SIezL26Ls3E+FZrYEAz7CZ/alnDs7QgXvtXUZZMIHrnnEnx6ngsK/
7y3shHfn6bScmKGC8wvXChbC0mNkxiN0Khg0nvVaT5jMM65q+YVK9M+0BSbC
q8ZFTmY/qcAyPKzASHjGPyjJeJUKvZE2GgyE545sd0pjoAFZ32bDf7b7zMW0
hZkGlyeHEv9zz/3VxKT1NAh4NvLzv++bbp1UE2Shge2YveC6/86noqU1lpUG
qzqOzBsJqx8pdubZTIO12KUCVsI5SynMjzlpUPV7RYaTsMT9e8kkCg2OF4Sf
4yYcJ+GpEcFNgxTjDCdBwhwVx9rZ+Ggg5mesIk448LCu630BGsjrXKyWIfx7
UXb9RmEatLduF1D+77yDKamBojQYirqovpvwhPjKLiZxGtDUzAUNCLdZN19Y
k6LBUv17tROEjRaLNlyVocE/yTNu5wlX3Et+8kuOWP+eZ64XCWeWuXd9VaQB
5zRHxYP/4sP6qLuXCg08SvU4Ugk/ogPLkioN3ldIbcsjfEOMrDWnSQM3U/bc
dsLfSn93O2rRYPOYgOAEYRerMY9JbRqo4Jz5T8KH7xY+o+nT4MbUwiYxIt7l
Fw6z9ZoT9/9ApMuf8Ftrs6oQCxoYjlvGRRPWf6d3UduKBj5VeUavCZ+IUBxM
P0aDW4c4HOYJ31fa9NLnDA1adXyiXIjnkzv+n63MeRoorye9DCP8hPEHZciJ
BtEMcjl5hN92jPnruxP3s8Ti/ovwlE/FfoofDUQTe5ajiPzgPVzwt+4qDY51
1J2qJLxmmFXgd4MGNUJJRTOEufliBEfv0KDRetdWHSIf6Zd6zOVF0MBox8D6
P4SfrEmEmD8n1lcsuRRP5D/58wLajJk0sHHZQO4gXPKJ80tRFg3YmodF2TYS
9T519bhwHg2+Olf8DSC8ptsjO19Kg5IK73YfIt+euHv/Y3ArET97U7tDiPw9
tRhwXauDBkqp1dhO2OvoZeXPXTTYaagVL8BGwmCZM/FHB2hwtTuakkO4uFHL
WXqSBoE3cmSH/qsHnJ9Zav/QQGS1hcGZk4Qd70Lu7Vujwe8lGmsp4UcXpDa0
/iPixUhkchOJyFeNJ5gH1o2CHO0i66v/HFS3tsQxCi1brIQYKCQkrSR8Edo6
Cpte3LzQRNSvtiw1rzSpUfjEJRkkw0PCyGNtS9Iyo2CvHO1xlzBn8Xq68o5R
iPc7VGbAS8S7l+e0scYo8J86J9dE1EP2acOhi6aj4Hdf6sE/on42R9NO/DYf
hZvW9zqchYj8YXC1/4bFKLQ9SJrtIsz2NL/n/uFRuDV45nGuMAlZTwm1p54e
hcOkDf1ORL1m6fxc13RxFDSO+u7fSNT7dVWJeVuTRkHlJXPNhCwJB7QMTKgp
oyC26vzZh+gn8soWaAlpoyDKNiG0geg/ThTvpVAyRyHUZ9JtuzwJX+dSfRgK
RuGBwTLzbQWiviRt3T3cMApD7ptlThP9y1u/l7UxX0chN6lqfIDojyJ+Wp06
9GMUXk290AnVJvLbpdXvm3+Pws7Fr0+14L/1m28L+jsKJyILfZ/qkPCc09L9
i5vGQNaLw9Nfn9jvozsPWmwZA0Vd9Y8n95HQVbW8f5PpGKh1HuCaOkzkn7bu
nLfmY3DnwuPmwiMk5HH7HOBoMQZhvKdDbh8lYVW6lHTd4THYK/CGe+tx4vz5
Ir1v2o0B087oC542JCz/fZbt56UxUH5mekHrDLGfVRx7J56MgWvWp4FELyIf
npQlPX5GfB5ArwjxJvL7T/1x3YwxqFHPyfW/SMLTSn73U1+OwaeTzhWnLpGw
MG28+0TxGPCuJMYp+ZHwZOBb9/amMZAOlU3cdIuoX/scnlT+GAP5JO2ToQ+J
/kZeXBt+j8HZG/FHQh6RsJKDNli1MgYNPIXGIY+JeOo8xfeeYRxWnTzZw6OJ
/HLqeEQN6zgEJO+XTYkn+i9vi2sfRMdBddBzZTGNuD5B+1iH0Ticr9vjZk7M
B9/nBUlTMePQH5mjQuknYVTydENS/Dhwr/vlcYGYP3YeLAqwShoHweWAuQZi
PvEqMF/CtHE4ev5S/O0Rol/3vfkpMWccfpm5Lm6YIOHk+qkwy+pxYr6HL6ZL
JOze8nrTO/o4hI6+9mraQMxDVsbMUQYTMFSyylmjScZg07dBwsYTQHtanmO9
h4w2+rIs6fsmoFRq3a1pLWK+28m2ufjABBTqhXeQdMh4gNLK23dsArJtxeW8
jcg403ZETthtAnrfnFfxtCKj4IHzls+jJ4D5xCVGW3cyBpgEpRZNTUCnjEGi
1Asydtg62SjNToCXrnEcQzYZJS+ZCuTMT0De2bHZIWK+bEwjP372eQKmr2N4
fB4ZuVeS7z76MwGrQw4LEiVkfJFb7ObJMQmK7lNZl+vJ2EaZ2SOvPgmPYkkX
t02RUXx4f9+zoElYGdTfNyhLwZDqPXmHgydhwvBzly4xH3/JlL+7MXQSHhxU
U8wm5udqbw5V18hJuORrbH1zJwXPsnQ8UEmchGY/1tt6eyn4Yudx4/f5kxDw
3PvaFktifg5xLB4ZnISvGndLDfwpuFsjMEpAZQpG6tlT7nUQ87eDgHqy6hQ8
GnA+s7ubghcjXvWKaUzBcubNjUu9FMyZ7BOU0ZqC9fv+fD41TEHRqB1p6kZT
sG5M3+3QDAWZlntyrU5Mwb1bbMqxfynYlC3bEH57CtR4Fezj5bnQRrT1N2Pn
FHz9bmrXHsGFHALeb8q7p4C7bI3R7BEXvufi8brUNwWG95YMPkZzofSmkzMz
w1MwaqRc0pTEhUtfp3paZ6ZALIcn5HM2F97++Lcw+e8UvJOP7y9v4MIXPgru
mnLTYDLSpebMzI3fG8PHPG9NA4d4b1TWHW4cYut2Wr0zDVpB2f2x97ix2kx4
6d7daRD1lv4RHMqNkZ+yV1JCp+GseEXVxcfcKNfRwN0SPQ1DEXf6XZ9xo20/
o7Fs9jQMH3l6aKaGG+unL70c7ZiG5S+FxyU38mDcOlufQ5IzoKt0s1c/lofo
f/nU2qVnQD6yyWIykQfP1rR9Pyg7A2uL63eGPOFBpdv6V8wVZqA9tkZ7JIsH
P/yT8TfZNQPdz7Ka8ip48OefrwHaZjPwtPNLyMoYDx5Zvh8q5zMDx+9ZMZir
8CLXyJunTLUzwG3VKPp0iBcj2K9fL6mfgUxScErBGC+y7jE4duHjDLDXHdL4
MMOLTHEdm3s+EQ60aWT6zotfLJd8s/pngDVdi7t4Mx+21ckctFiaAWvbbH1B
HT4My01cSRacBZDqtGbO4sP1129Za3rNQr9f0JGmMH4sWl74XXVxFlqrk7d1
PubHs+ePpRpdnoXfrJHjtAR+rD2oOGd1dRa6l7+oc2TxY6DEcIB70CxI0B+z
vq7jx3Ufdr18Fj8La086AkQYBJCJ6zMjR/Us1LJmNtb6CWDBvZOZUbWz4FUp
1R17SwAdVuvNhBpm4R5bWonXfQGsnkyOlWmehfRdrlK74wXw9lvTHfo9s7Dc
YxUuWiqAjLaZx3znZmH+muK6vX8EkCHLNm+MMgfVtzbs5rwtiPULve6pPHPw
+Lw4/X6oIIYpWSrY8M/BRAwHA0e0IPK91c/tFpmDfyO/fFVeCKJCg8zLDzJz
sL08RGrxkyDaTH7JeKU9B5+jgxW1RIWwVPxeir/LHKyJHnsWUyuEN84x2Gq4
zcHz8QK1Y61CaJDlJ/LNYw4i57h/Sg4IYZvShSS3S3Mg4HDVhLYkhDNgmWB3
cw5Oy3T8pAoJI6+tUIxRzBw0Jtvdo1wWRu+EvHBK9RwwvzIsr9kpgiWrCfeq
a+cgfVZ5cxeI4Krt3VveDXPgafbWftlUBO9tPXWpo3kOfj0Mc7A6K4JJOayn
HvXOwc9u/dXiaBGsqzwnT6HPgUnL5wmOFRHkHxdqIvPPA4eQTVpymyieMtxY
915wHr7p5h/wHRHFp5lfKr1E5kHKf1OPw4Ioyl/4WNAuMQ93rskNOrJsQd3v
lxMe7piHqPGADFXdLeiyscOZrD8PpBlxveU3W/Dd9mAWsvs8mMczzdofEUP1
Lr6WR57zcPasuuzIKTHMv5b5kPviPFiP0hYdzonh05Z6QX7febB/Q9O76yOG
wR7rd2y5PQ+cCSdT1B6L4aHC25Y7YuaBvCGc26BDDKd3X0/YVzkPfBtV8iKO
iqPdOPvpJpyHy+6/bDXtxHEgNGmrec08LHdPxi06iWPzUHmOxYd50P7N9cPX
XxwLbvypPNoxD7NzGa6cKeJ4rfrK+LmpefCtIoVZT4sjeb+3/G2OBZBLLd/Z
dVsCn7znZNtNXgAKy1avznAJVNLMnV3mWoCi0K1GY3ESeEBmJsNeYAF6zGZ3
KeZJYMgGW3FdyQVwjzszfn9IAtfV7ONl2L0Awo9I0Xa7t+KPPeIMN84tgH7d
NrFEZkkMKqwcUXNaALHsHXmdJEnk3m7zju6yACLDCzliopK4UzDW/5TnAkQs
H8r7tUsSPX+xf9e6ugBbPnuyZnhI4mzRr9mVyAU4c+kSTXxUEod2tHX6VSwA
ueCvh2iPFKbOk68zVy0A/eEdA41JKXTIspIOf78AzdRYTqdvUjgr2ev7pH4B
Am44uVK4pPGH0IhIQ9sC+JtORERaSiOZdcGRe3IBhjlMkxw7pdFoauPqq810
oMvGOlkvbMNNz/el7yLRQfXYO6OZv9uw2T70QDWFDkcN3cuSyDJoNcyR1s1H
h2m6Y4mThgzadfEYrYrTwVQ9KCkmUAavVm+N3KdOBxtp17YEKVnMTwHJCVs6
1G8V6+UKksOv/l832tvTwaz9mytTkhyqH82cHz5DhwqOb4IihXJYzslZ2OtE
h34Py5q+UTmsvzmi2+RNh8sPfoRd0d2Ogw7XTxfcpUNtgbd28yZ5FAVlfcX7
dDht81O+Yqs82glNSueE0iHQdZF3dK88TnWaLaZH0oHf8cz5Zm95/GwgfD0+
gQ7nWbcb76HK44Zt5Qk3X9HBqdZ9iqdmB+5j9rixlk+H2Rs2JzNpOzCMKuHg
X0iHvCztPX5/dyA5LkTW5y0dZJTF7o3uVkDhTSfeOlbTiXiekxsqVkCV+V/dB3rooDfjYGNYoYin8tTJIn/psHrj1A9+JmUsPvGLo41hEVwv5H8I41NGjg1l
7HeYF2EJWZT27FBGtNnLMsuyCGPrWe6YHldGCVaDf0Vci9C58UjD4SJlnDpr
STeTXQRH49PbGK6ooDaJa/7f9kVouxG5NSFSBWPLu2YKFBbh+QnJyzezVdCE
cmyCX3UR/pRduaFBVcHsKtvBCe1F6Pq6MfSy2U50F7zw8Zr1IhT8s158qKGK
9XU7GhSPLoJSXd7G9COquMVrqXbs+CL0fkhSEr2sim0N3mhyehGi4zJT9xer
osolvxJul0W4wPvFtX6PGv5svZueE7AI0pd+tx04pY4WV02enb69CGUvcHfr
HXV8Ic2aRgkinJPuMpStjieuhyf5hizCxzAXy6w/6lghF/XYIHoR8LbNe8c0
DbwZlHZrKHsRFE2uHErj0MTNVzbut89dhELvwzKGWpqY4ORGmcpbBLbvs95x
Lpp4XT32S87rxf//H+N/Im9diA==
 "]]},
 Annotation[#, "Charting`Private`Tag$20617#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, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}},
 GridLines->{None, None},
 GridLinesStyle->Directive[
 GrayLevel[0.5, 0.4]],
 ImagePadding->All,
 Method->{
 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
 AbsolutePointSize[6], "ScalingFunctions" -> None, 
 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& ), "CopiedValueFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& )}},
 PlotRange->{-10, 10},
 PlotRangeClipping->True,
 PlotRangePadding->{{
 Scaled[0.02], 
 Scaled[0.02]}, {
 Scaled[0.05], 
 Scaled[0.05]}},
 Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
 3.698363721449607*^9, {3.6983637834481363`*^9, 3.6983638024440804`*^9}, {
 3.698363841520012*^9, 3.6983638561050005`*^9}, 3.6983638877079067`*^9, {
 3.6983639196388445`*^9, 3.6983639373282194`*^9}, 3.7340246299908977`*^9, {
 3.7340246892603674`*^9, 3.7340246978030925`*^9}, {3.734030078282277*^9, 
 3.7340300942340174`*^9}, 3.734030125106372*^9, 3.7340301581168823`*^9},
 CellLabel->
 "Out[196]=",ExpressionUUID->"53a52874-b2cb-49ae-97e6-a425e28dd84d"]
}, Open ]],
Cell["N\[OAcute]tese ahora sin a\[NTilde]adirle al comando PlotRange", "Text",
 CellChangeTimes->{{3.734028773464696*^9, 3.734028798374592*^9}, 
 3.734030463513966*^9},ExpressionUUID->"422f7e2b-727a-4142-a2dd-\
3195f3c492f7"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Show", "[", 
 RowBox[{"{", 
 RowBox[{"grafB", ",", "grafD", ",", "grafC"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{3.734028762313268*^9},
 CellLabel->
 "In[197]:=",ExpressionUUID->"9b9c6ea4-ea0e-48cf-a603-1f5c85603497"],
Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
 TagBox[
 {RGBColor[0, 0, 1], Thickness[Large], Opacity[1.], 
 LineBox[CompressedData["
1:eJwVx3k41PsewPGxa2wz1skyloruSbKesp3f15ISEm2OOEqOSiUSh5PckJpI
4aKokHtEi4ayDcNnMAxjJLJHxtjXsYRJyu3+8X7ez0vb94r7n8I4HC7mZ///
Q02plc1NPrgX7JXE4bhYxQaRGfmdD4dL9TJ4Qlyst4/0n6/rfNglcT+mQYSL
qabqGi2v8OE2T9nnngQXeyJpe3l8hg+k+Xs2ZDkulrMYPsbp4YNArAbcyVzs
Zf14VwaVDw7E42jTiovRz9WVmfjwQcZf1u/idS4WMC22wi2ah1IBFPEkhjE5
7t54Ndl56JFfoNGTh7FPZryYO4Fz8M6wxyNTk4cZNZIEl2pnwYUmPJZYy8Nu
NFszhzRnwUZVn9N+egRzl+BLc4JmgGCXU/JFeRRzzSPRppjT0N9fFWXQOYrZ
lhnSU7dPw1jr7CH6/TEMhLosaWFTMOUdnsTzG8eMGefkL3ZOgoSbqNDAvgmM
8/mq82GzSTh/OUttWnESW9iLF3lFmYDsIxJ7U+WnMLxoEiFtYhyKGM+PR8lO
Y2/wuZmCfeNgWURQKTeawSKC9SmJiWOgZTqMMc7OYhZOeRzq3Ci0r1DwM6lz
WJzPy0QnNAp/VDpcz1ubxxrHn+ZdyxqBsoc1awW7F7DkAg0LFT4PzG4EHN33
fQGLZSsZz9jyIOTfA1R63yJ20WfjpnPuMAg/tk7RrVjCBg2uOOt94cLusNzl
4uplbH/wh8AHblzwLtcTP8f6gr3QOzbl5jcE5PfzItm8FezTsOb8X/jPEDoW
G0E1XsPWo5tyKlgDEBoqkU9IEGD6D+86z174BF+pLYJO3XXs9SVLiJHvh9o4
0lmtyW/Y1p3sIZOOXiAKScyt0r5jGR7BX3vCeiCvQttman4TE7+ywkg37gb2
aSsNAy0hVLs/wLXiSyeQq3vXO84Jo6TktW7O44/AzRaaq9wQQU71Z6Q3fu+A
8ImsWeobMbQ1YNSC/P0D2C65mHV+kEAFc3cMygLbYFZwaK5QD48IQbm7qvza
4PgO6h+5RngUvkTfyfBsA8M/NU89tcQjx7VFHbZDGwwKe8rmu+LRNM5L5TO5
DZ5hYQR8OB7tVjTEibe9B9O/PAwV2Xj01qK3/fie9yBH3YE/HyKF6Hd2hq7w
ORDSICH1fEAatbZK4XXGONDdmtV3bUoafVbgZx3u/+k0hwSXVWmEyyltymdy
ILC6gKlOkEF2FbbqnhkcyJFMaTWxl0HsSa/6GlsOuHrO+xx+I4P6HJOJlLQW
cOnaiI2Pl0WrUuuFqpZsWL2P2YmaENCv5s4knBEbag50mB2zIKAw/6yYMV02
aHalLb2wIaA1hu3JInk2DBlXjPkfISBBaALOYboZeOKrwXqBBPRtSP1ocEYz
CMb0bZtfEhCuBBOw1ppATuyaQv1OIkLDyb6Fc01A8Rw06zckopuyo5yUkSZI
NThJEOwjIqELlGfebU3wDzdI9qAjEQmT2w8tP2+CbbrDJIsAIhKl+D4ln2iC
2h2ew5cLiWiLV5xtaAkLLimcUjhqLo+WnHPsY16w4FSs9kEFO3nUb13l8CCL
BepfpCsGnOXRa83FQy8oLOjqE7+RcFoeHRnxOjroxQJ/XwbekyKPHgWY+u0X
Y4FQkpAQq08e6UaMxCmdaIT0iiEd+1sKSC7gxx0dp0boj8S9cXiggASeW+P3
oEbI2utkfyxTAbGtXO87/tIIZB3RzqQiBXQZV5V+40cDJD8rdk8eVEAld1Ly
x543QNeyYnuNuSKyS7dpLl1jgolaiIvTN0VkIJM6vDLLhOjwbbIPJZSQ6q3x
r2Y8JkyZpVH5CkpoITjhlzIOE7IyWkZZ+kooy6UroewZEyZ2Srsr+yghgeiF
w+VOTCgve5Bs3aiE3oQkfazIrgdqZNSQW7YyypzmzQhSf/pmPftsoTKKO2Mm
ah5fDwnEgcC4KmXk5dpvSrtWD9Lm3xwFPcpoy67t6TTHepgX7jbJJqogP165
R+VyHZj5rvZvoaggVbehwaoDdcA7EDioGUNCZtSclhLrOvjoPUE4mExCR2R8
aYUmdfDb+IJxdA4JxTWPpmZr1gGJ7vZOF0howWbaKXatFiK73Vg230mo0XiF
dii/FuKLyTodkVvRVUWp9D7xWli8XkM2j1dFiVc5sR0bDLCcb3xd+VgVFXxI
DG5Z+ulpYxO3QlU0eI/gUv2ZASe7NmuqP6iig2LKos/KGDDon/3jEUkNkVe1
rp73Z4AVqbL479dqKJV6+cl8AsAnppCO4rg6UluOzt8T9tMhk7W/baij3F/T
3wadBiAPvwyiyGsganVN05IpQEBlw48ITAOxW+RWVgdrgC77t/ZgpgbanCh2
2dxTA8xAe2XuSTIK0Fr9IddJBw+LXpvJWU20eBaPd6uhwz6hLgZDRAuF55OV
Ugro8KqKAtpELRRncGCX4g06WBUopGrra6Ecq0cnSbp0MI140qlxVgt1e1gU
aYVXwTfC7eumXVrIJjnqjJF6JQQ9Ibd7tmgj3f8GqYxKVEKiHunurX5tJF3q
25q+TIP17rl/NU5po+5eB/MNNg0yH+lLpkjqoEtackRWBA0c007ccz+ggx5R
sxlePRVQLBLd8qpZBy20MjQpKeUgEC1pSBnZhrqH3nZZRJVD+PzvH81Wt6Gq
xX8S5i6UQzpx8/xXye3ottLdNXebcsixt4seMdiO1L3d2jQWysAkN2vdOXI7
Ojg7HPXOpQw+nsh736CxA3V4B9fW00phNaXX27pmB/ofE0sq/w==
 "]]},
 Annotation[#, "Charting`Private`Tag$20666#1"]& ]}, {}, {}}, {{{}, {}, 
 TagBox[
 {RGBColor[1, 0, 0], Thickness[Large], Opacity[1.], 
 LineBox[CompressedData["
1:eJw92nc4le8bAHCjIcQ5x54hhGRlpOS2KRTRltCwMlOhoUHJSmXPVIiIEBlx
Z5aRvcc59jykXajf+/3n98851+c677nO+zzP/d7juo64g8ehc0wMDAyCxMt/
7+GK3JvLJ5+DS2nEtg1hmnjseFre5+XnYH02fHvrNU1cGrRmfSqYDp+8fnVX
m2viXVuWc1b66RDaYUR32aKJhWc8BIuj0sFD8Yznh9pdyOG+N+iqRgboDLKF
H+TbhXW3+09suJ4JX1S3l8b3qaPN+vA3JemZ0EyXc9pRqI5f7umQnD9lgouU
zFHdCHUUC8+sa9ryAgr7LrRTDdXxWuwlpYfVL0DfIXSssEwNVXLIG4RZsmGp
9LVM61tV/KhQZ9eilA2z39anH0lQRbvXvuU3jmdDbwwEa11TxfBiqudodjZI
1nHWCOuq4gzmDmaYvwTjz0dXGFt3Ykr3vtfKj3NgMoSPm+ePCqodW2MbL8+B
4HVc0000FWweyD8fNZEDg1epGo0NKvibyif8Uy0Xxk0pL+JiVNB6bvJuRV8u
KNFNr57SUEG2f7dsjEXzwGX051BqoDLGOR+1lTfKA6N1q46lHsoo2SVvR3bP
A832DcByUhm1s3rPDL7LA48zMbl6KspYmhXzpkQhH1L8+C7wjCsh3WqhwvRT
PvwWztweba6Eqpt692qP5YNbfu1gzh4l9K98X6n0Ix90i5fHF2WVcKNsLPKI
vgZ1l0c5SxuUUPyvbi3V7TUo3ni0MStIEQ+/iG26uLkA/j33Zne7o4BJp26b
nRcvgE0Dn/kczyrgGMWt5ZhaAehfV7ufbqiAHtf1WveeKoC0j7/EF1gU8P4h
esfG3AIoUpxPCX60A9+t6g0kmhVCX9aXGvPX8ihluThTE1oENTvsasX5t6Ng
gPFux7QiWK9b9FX5rxyScp+EspYUQbVDVr3vhBz+YbFSsBwrgjKz1PzM13LY
hiUXR3a9gdBkSPI9IIf+Srf+/pp8A4phV+1PP5TFT5zc3Ao6JSB79uL+q7tk
sGav27n2wyUw1/DthIGkDL51rS/2cS0Bnt9uSjtJMviswfd4eUwJZP5bC7k5
sw19A4ZTTOglYMlY9v1TwjaUWMqQPZPwFi7X3pyeWr8Nr3zShLhvpVDKYTSc
8VUKORTeTH5kKQPj93nU0AkpfB6uFLYiXAafdLdGB3dLYbvZtn5bwzKYr5/S
/lAihdubuC9KxZTBmWrbshPXpZDasJRRoFEOaglD5ansUmj8Pp2jxb8CVO60
jzvslsQRMfE3fyMqQPjhcil1hyT63Ew6qfSsAjRTau+6i0tiGjx+8bipAuys
ct3es0jiyrubeieE38GHVw8dd/Vtxbyyk5en370Di4E6djP/rchXRB5hZKyC
rvtR3FKNEmgTtmI9wVsFx2e3Db6rlMCnZyeb6uWr4Puz2b/nCyVQnqe0NPRY
FajHm3TPJkmg3mW7aJ78KhiUtOB55SmB6klHM6IUEVol5Ru5hSTQ3jbj1IsR
BMPU+ZOh/uIYuF8oPn4W4c35batfPcUxQz2yK+QbwjzTJmtnR3Fc4PA3dWN9
D2bMUh/9rMXxcpW5por6e9D8tm27oqI4hol9564Ifw+pnnbpvVNiWDym39yq
VQ21VvV37tuKYY/JreVw42oIfVUpEnhEDH+8quQ1O1QN/FjuEXxADDWuatp/
cKyGM06cv3K1xfAtl+IPfFQN3y5WfXDZIoalBoJiBTPVMObXULy7bgtWZHy+
GBVVA5tVHfj+jIjiELtC/KHUGvDaky8g3i6Kq96ulaTsGgjz/dd7tEYU98IU
S3hVDfTNPpX4limKlb2DyUFzNXBliEtl0ksUq1gaGi7r1ILuS8rvxyyiWO2S
LHR8oRYCjoTaB+qIYOGsq6vtj1pI8sBTBmoi+Nxpd/kZhjooy5eK55QTwaDz
vSfcuesglGU+vIFLBE0cyAl3tOpAp2nobfm0MLYeD+J/FVYH+q9XqzIfCuOQ
iRsP8456+PvrdpwsXQi/S+/lzHVrgIo1rpq1KkHUHtNrCPFtAHnm2jX7YkG8m2wS4HSnAYwNL+S25ggiL7f10tb4Btg5JbSrIV4Q1RldWxNqG8B9nV2slI8g
+g7GPQgW+gBqsqI5UXKCuPrgG+fZjx+A92eAwFyyADL9fkkSkmoERkajCPEk
fhRq0fsKio1waeueGLZoflRN6+8+q9kIM9/NYlbC+fHcvo2Jr8wb4XRa+Rl6
AD9+iHeQ0rvcCPxxVb58Z/nxwW6B3c4NjcA7kNgVsIMfha/dPVPi3ASG1lOJ
l2r5UP2fXbHVq2aY/undW8TIh2bmeNvwbTMIhd5JZV3lxTOJWw5qVDeDbovn
h7M/eDFSY2RasKcZ9M5YbJee58VZj5MCY2vNcOD6rfKhLl5Moh2+5mneAia2
YmY8WbzIWL1fL3yhBfQGZ8NjrXmxOVD1U71cK+g4fxhmL+HB3ZxNTA/VWqHV
caT9+2sefBFvr3FSpxV+SMZ0juXw4J1XEU+WDrdCWvD40oenxPV9M978t1qh
JuGPcF0Ecf32ZD6X3lZ4viwx7ufIg3qzt/M36LVBkIknU7kQD26JnP+dtdgG
PLPdNwciuLHSPiCr4GsbPBBrFv8Swo22O7mOl/9qg5tXr4Sx3+PGpJ7db5uZ
2kHUI+3NvgBu5BcJubzE2w4smxt5Jz24kZIt81UV2oFNpEggxZIb19eeW6h6
0A7LEk97N/Fx4/xP6ki3UgfYFX9cfySLC4sdH1TvV+8AM+o878d0LrzZq51R
tacD7Jnqe7SfciFvSbJbllEHZJW0H1dJ5CLyw8nVazYd4OKwXUkznAsTvvUI
SAZ3QKVn495aLy40WW6x9qZ2QD553OG9Fhc+nytv5IjoBGdf9+n5fgq6xx7c
6vK4EzwExVNZeimoYTB+tS6uEz4lCF7Z1kXBxmTWHdeedUKabskt108UXLY4
/mD2bSd8T2zpYa+hoHbJD6va8U4QZ+pXLMyhYP8d5WE/zS64oWnhFXiLghwi
mUsTE10wbmG7jq5EQZ0jd4bHZ7tAYmUza74CBb0fnG4aW+wCWzbDFB95CvYw
8mfSfnUBmT3QnUmGgilTwbZD7N1g1scbpbSFggr5Li2dqt0Qo6oj1bOZgub6
Ci+rA7vh2g1FUZ0FMoY5vzn/RLIHMqUuGdnlknFOJzeYTa4HznEwBx59SUZj
/vTsy4o94H0i4qhFFhmZGqIWzXb3QDvLZIVROhn9JH0u/z7YAy0+NeeNksl4
nqpy99DVHuDt4b8QGU5G3cP56es6euDjNUO+fR5k/KHzcsIpoBdK2VNbRDXI
WPF8PvFKYC94dW+WfahGxtss8lZ37/dC7KP6t+tUycjRlvP+2eNecDNp9F5S
IqP06VcpI5mED8npdsqR8cj118es23qhQOjNx05RMr4pLWkG8T6Q2KdUXrSR
jD4qtUW8NX1w++Hqxf4hEp5XFXvy8EMfPL+06YnfIAmPqV8LZf/UB0syy5xC
AyTcs1vVgam/D9z3UErte0nIpPecc3GxD+ibWMT/tpPwgWWgS51gP3T26bd4
N5Aw29NAzMe7H/4cmh43LiRhkvcTtqUr/WAuOHyTs4CE4T6rP5yv94Nc6KxF
Xz4JPX2LWk4H9wP18JFgt1ck1LgpedU0pR+2uXAaZ2SRsPbBuh6Jxn5oYz+d
YPGEhNRXtaHt4gOQGDjsFBRBwjb6ugWVbQPAd6H21pVwEqK8oVmU/ADIV9YV
uYSR8El2HftRjQGo6A90tA4hoUNGffiQ2QCwRbJ/V71LwqnkDw+mrwzAWvnD
E3I3SEgPa3681jIAd4vTy8bdSTjSxP7NtnMALpqW2vxyI+EnVnNr7BuAmGn1
zRyEXwW3cN8ZHwCXSv44LVdiPYGfoll+D8DRQ9vNMhxJ+O1qWyyX5CC8s0mZ
eGlHwhWXrkRZ/0G4VDaQft2KhNbqpx4qBAyCyczLf3iIhDmMU3d3Bg5CaOwu
rfWEbeN+eu2NGITDV+NtIi1I+L5O0MTy6SBUhouovjYn4T0x+2++jYOw7rwF
u4gJCbl66GYfBIcgbUx5LHEvCS+kXdZr2TIEs5JHtq1oEft54Z9Gh+QQ5KZ6
mpwkfJmZvHVIYQiCdGtERPeQsF9J9feS3hC8PxjG+WoXCVND/dP5XIfgg8T6
qR87Sbhdd+Pf8+VD8C+HTWz7dhLmZ7/c1odD0Og/b5UgR0JVbgvLffVDcG+t
4g4rYa3puOfb24dA/YljD12GhAfC5Uw/Tw1BdZqlHkqT0LvfPM6PMgx7ze03
RUmQ8Ifel/dzfMNg78w2SSF8NSdm/qTIMJxiSSp9JE7CwACqtrbMMKR+KjOL
FiNhjJTXJJP2MKy9YeHNECVhqVeUSpjzMLDHTHL8ECSh9uAumzX3YegJdTgb
SLjaYDjI3WcY/mTy5XMRbuST7rcIGIYOpVBZNQESDr0rCeCJHoaQ/ZZP7vCR
kIF1sDkFh+HRlgPXDnCT0PipuONrvhH4xDP3M4GDWG8ch3S98Ag4tpftNycs
FrEyMSA+AlbK7p4MhP/4dTuskx8BnW1bVJ03kzDX8r7tUZ0R0DWRSTBgJ86L
cfnwmtMISDCntUiwEr/3c5ib4j4CnIoyBmObSLiw0NgpfXEEZup3hT0lXN/3
3NLi+ggEtb+IlCLsl3/M/NnDESDFFzmpsRDPx2k02Fc2Al+K2wyvbSBh8+Fc
ZtuqEXgzb99sQvitaUK1d+0IlAif3cpL+JGGj07SpxHwF7mhV7iehIacMlpL
YyNgoOGs/3MdCVXW86wwz4zAhe2jpo2ERVcYy/jpI+A5d1gyhfCvqUENvZ8j
oOLCYGhC+GXlg53RbFTQeresn8FMwriia1+ySFS4HjvVGEA4MNv5dSUPFZiX
L4qfIGwbo684s4UKG/Pl9pIJk91/yu1RpcJjnr4d95lI+PfMxOxBTSqcnrJV
ciY8d7z9xVltKiS8k2XaT7jW8KV0hAkVZpfPcXEQviJyWmLUhgqdJwLmUxmJ
591C6ciQPRXK0GfyLuEDdxhDes9TQbTVJsOdsPTss+UWTypsmpi5pkOYInxJ
6uMlKiz7BzySI7x2wOh4rT8VOAbp7jyEu4pmsCyQCq7RmtfoDES+mS799uY+
FZoOsuUOEH4pGCrzOoK4/8fJzz8Qvn1zR2RmHBXSvi1OZxB2L/xb8zSZ2B/d
5ztjCR+fav2Z/JQK45c2GAUTVjLzPh2VQwU7b6y8QFg4QP/xg9dUsNhFkrIj
vLGAuyGkmApXxlYtrQl/mZj8E1ROhfMMdwz3ER7hK1G4hVS4ejL1nzbhxv3B
DtfqqND348BNNcJvrh+PudJIBUfOBw3yhJ/kyzV6t1KhW+hUtyThsPGVNbcu
KjxqLs4SIezL26Ls3E+FZrYEAz7CZ/alnDs7QgXvtXUZZMIHrnnEnx6ngsK/
7y3shHfn6bScmKGC8wvXChbC0mNkxiN0Khg0nvVaT5jMM65q+YVK9M+0BSbC
q8ZFTmY/qcAyPKzASHjGPyjJeJUKvZE2GgyE545sd0pjoAFZ32bDf7b7zMW0
hZkGlyeHEv9zz/3VxKT1NAh4NvLzv++bbp1UE2Shge2YveC6/86noqU1lpUG
qzqOzBsJqx8pdubZTIO12KUCVsI5SynMjzlpUPV7RYaTsMT9e8kkCg2OF4Sf
4yYcJ+GpEcFNgxTjDCdBwhwVx9rZ+Ggg5mesIk448LCu630BGsjrXKyWIfx7
UXb9RmEatLduF1D+77yDKamBojQYirqovpvwhPjKLiZxGtDUzAUNCLdZN19Y
k6LBUv17tROEjRaLNlyVocE/yTNu5wlX3Et+8kuOWP+eZ64XCWeWuXd9VaQB
5zRHxYP/4sP6qLuXCg08SvU4Ugk/ogPLkioN3ldIbcsjfEOMrDWnSQM3U/bc
dsLfSn93O2rRYPOYgOAEYRerMY9JbRqo4Jz5T8KH7xY+o+nT4MbUwiYxIt7l
Fw6z9ZoT9/9ApMuf8Ftrs6oQCxoYjlvGRRPWf6d3UduKBj5VeUavCZ+IUBxM
P0aDW4c4HOYJ31fa9NLnDA1adXyiXIjnkzv+n63MeRoorye9DCP8hPEHZciJ
BtEMcjl5hN92jPnruxP3s8Ti/ovwlE/FfoofDUQTe5ajiPzgPVzwt+4qDY51
1J2qJLxmmFXgd4MGNUJJRTOEufliBEfv0KDRetdWHSIf6Zd6zOVF0MBox8D6
P4SfrEmEmD8n1lcsuRRP5D/58wLajJk0sHHZQO4gXPKJ80tRFg3YmodF2TYS
9T519bhwHg2+Olf8DSC8ptsjO19Kg5IK73YfIt+euHv/Y3ArET97U7tDiPw9
tRhwXauDBkqp1dhO2OvoZeXPXTTYaagVL8BGwmCZM/FHB2hwtTuakkO4uFHL
WXqSBoE3cmSH/qsHnJ9Zav/QQGS1hcGZk4Qd70Lu7Vujwe8lGmsp4UcXpDa0
/iPixUhkchOJyFeNJ5gH1o2CHO0i66v/HFS3tsQxCi1brIQYKCQkrSR8Edo6
Cpte3LzQRNSvtiw1rzSpUfjEJRkkw0PCyGNtS9Iyo2CvHO1xlzBn8Xq68o5R
iPc7VGbAS8S7l+e0scYo8J86J9dE1EP2acOhi6aj4Hdf6sE/on42R9NO/DYf
hZvW9zqchYj8YXC1/4bFKLQ9SJrtIsz2NL/n/uFRuDV45nGuMAlZTwm1p54e
hcOkDf1ORL1m6fxc13RxFDSO+u7fSNT7dVWJeVuTRkHlJXPNhCwJB7QMTKgp
oyC26vzZh+gn8soWaAlpoyDKNiG0geg/ThTvpVAyRyHUZ9JtuzwJX+dSfRgK
RuGBwTLzbQWiviRt3T3cMApD7ptlThP9y1u/l7UxX0chN6lqfIDojyJ+Wp06
9GMUXk290AnVJvLbpdXvm3+Pws7Fr0+14L/1m28L+jsKJyILfZ/qkPCc09L9
i5vGQNaLw9Nfn9jvozsPWmwZA0Vd9Y8n95HQVbW8f5PpGKh1HuCaOkzkn7bu
nLfmY3DnwuPmwiMk5HH7HOBoMQZhvKdDbh8lYVW6lHTd4THYK/CGe+tx4vz5
Ir1v2o0B087oC542JCz/fZbt56UxUH5mekHrDLGfVRx7J56MgWvWp4FELyIf
npQlPX5GfB5ArwjxJvL7T/1x3YwxqFHPyfW/SMLTSn73U1+OwaeTzhWnLpGw
MG28+0TxGPCuJMYp+ZHwZOBb9/amMZAOlU3cdIuoX/scnlT+GAP5JO2ToQ+J
/kZeXBt+j8HZG/FHQh6RsJKDNli1MgYNPIXGIY+JeOo8xfeeYRxWnTzZw6OJ
/HLqeEQN6zgEJO+XTYkn+i9vi2sfRMdBddBzZTGNuD5B+1iH0Ticr9vjZk7M
B9/nBUlTMePQH5mjQuknYVTydENS/Dhwr/vlcYGYP3YeLAqwShoHweWAuQZi
PvEqMF/CtHE4ev5S/O0Rol/3vfkpMWccfpm5Lm6YIOHk+qkwy+pxYr6HL6ZL
JOze8nrTO/o4hI6+9mraQMxDVsbMUQYTMFSyylmjScZg07dBwsYTQHtanmO9
h4w2+rIs6fsmoFRq3a1pLWK+28m2ufjABBTqhXeQdMh4gNLK23dsArJtxeW8
jcg403ZETthtAnrfnFfxtCKj4IHzls+jJ4D5xCVGW3cyBpgEpRZNTUCnjEGi
1Asydtg62SjNToCXrnEcQzYZJS+ZCuTMT0De2bHZIWK+bEwjP372eQKmr2N4
fB4ZuVeS7z76MwGrQw4LEiVkfJFb7ObJMQmK7lNZl+vJ2EaZ2SOvPgmPYkkX
t02RUXx4f9+zoElYGdTfNyhLwZDqPXmHgydhwvBzly4xH3/JlL+7MXQSHhxU
U8wm5udqbw5V18hJuORrbH1zJwXPsnQ8UEmchGY/1tt6eyn4Yudx4/f5kxDw
3PvaFktifg5xLB4ZnISvGndLDfwpuFsjMEpAZQpG6tlT7nUQ87eDgHqy6hQ8
GnA+s7ubghcjXvWKaUzBcubNjUu9FMyZ7BOU0ZqC9fv+fD41TEHRqB1p6kZT
sG5M3+3QDAWZlntyrU5Mwb1bbMqxfynYlC3bEH57CtR4Fezj5bnQRrT1N2Pn
FHz9bmrXHsGFHALeb8q7p4C7bI3R7BEXvufi8brUNwWG95YMPkZzofSmkzMz
w1MwaqRc0pTEhUtfp3paZ6ZALIcn5HM2F97++Lcw+e8UvJOP7y9v4MIXPgru
mnLTYDLSpebMzI3fG8PHPG9NA4d4b1TWHW4cYut2Wr0zDVpB2f2x97ix2kx4
6d7daRD1lv4RHMqNkZ+yV1JCp+GseEXVxcfcKNfRwN0SPQ1DEXf6XZ9xo20/
o7Fs9jQMH3l6aKaGG+unL70c7ZiG5S+FxyU38mDcOlufQ5IzoKt0s1c/lofo
f/nU2qVnQD6yyWIykQfP1rR9Pyg7A2uL63eGPOFBpdv6V8wVZqA9tkZ7JIsH
P/yT8TfZNQPdz7Ka8ip48OefrwHaZjPwtPNLyMoYDx5Zvh8q5zMDx+9ZMZir
8CLXyJunTLUzwG3VKPp0iBcj2K9fL6mfgUxScErBGC+y7jE4duHjDLDXHdL4
MMOLTHEdm3s+EQ60aWT6zotfLJd8s/pngDVdi7t4Mx+21ckctFiaAWvbbH1B
HT4My01cSRacBZDqtGbO4sP1129Za3rNQr9f0JGmMH4sWl74XXVxFlqrk7d1
PubHs+ePpRpdnoXfrJHjtAR+rD2oOGd1dRa6l7+oc2TxY6DEcIB70CxI0B+z
vq7jx3Ufdr18Fj8La086AkQYBJCJ6zMjR/Us1LJmNtb6CWDBvZOZUbWz4FUp
1R17SwAdVuvNhBpm4R5bWonXfQGsnkyOlWmehfRdrlK74wXw9lvTHfo9s7Dc
YxUuWiqAjLaZx3znZmH+muK6vX8EkCHLNm+MMgfVtzbs5rwtiPULve6pPHPw
+Lw4/X6oIIYpWSrY8M/BRAwHA0e0IPK91c/tFpmDfyO/fFVeCKJCg8zLDzJz
sL08RGrxkyDaTH7JeKU9B5+jgxW1RIWwVPxeir/LHKyJHnsWUyuEN84x2Gq4
zcHz8QK1Y61CaJDlJ/LNYw4i57h/Sg4IYZvShSS3S3Mg4HDVhLYkhDNgmWB3
cw5Oy3T8pAoJI6+tUIxRzBw0Jtvdo1wWRu+EvHBK9RwwvzIsr9kpgiWrCfeq
a+cgfVZ5cxeI4Krt3VveDXPgafbWftlUBO9tPXWpo3kOfj0Mc7A6K4JJOayn
HvXOwc9u/dXiaBGsqzwnT6HPgUnL5wmOFRHkHxdqIvPPA4eQTVpymyieMtxY
915wHr7p5h/wHRHFp5lfKr1E5kHKf1OPw4Ioyl/4WNAuMQ93rskNOrJsQd3v
lxMe7piHqPGADFXdLeiyscOZrD8PpBlxveU3W/Dd9mAWsvs8mMczzdofEUP1
Lr6WR57zcPasuuzIKTHMv5b5kPviPFiP0hYdzonh05Z6QX7febB/Q9O76yOG
wR7rd2y5PQ+cCSdT1B6L4aHC25Y7YuaBvCGc26BDDKd3X0/YVzkPfBtV8iKO
iqPdOPvpJpyHy+6/bDXtxHEgNGmrec08LHdPxi06iWPzUHmOxYd50P7N9cPX
XxwLbvypPNoxD7NzGa6cKeJ4rfrK+LmpefCtIoVZT4sjeb+3/G2OBZBLLd/Z
dVsCn7znZNtNXgAKy1avznAJVNLMnV3mWoCi0K1GY3ESeEBmJsNeYAF6zGZ3
KeZJYMgGW3FdyQVwjzszfn9IAtfV7ONl2L0Awo9I0Xa7t+KPPeIMN84tgH7d
NrFEZkkMKqwcUXNaALHsHXmdJEnk3m7zju6yACLDCzliopK4UzDW/5TnAkQs
H8r7tUsSPX+xf9e6ugBbPnuyZnhI4mzRr9mVyAU4c+kSTXxUEod2tHX6VSwAueCvh2iPFKbOk68zVy0A/eEdA41JKXTIspIOf78AzdRYTqdvUjgr2ev7pH4B
Am44uVK4pPGH0IhIQ9sC+JtORERaSiOZdcGRe3IBhjlMkxw7pdFoauPqq810
oMvGOlkvbMNNz/el7yLRQfXYO6OZv9uw2T70QDWFDkcN3cuSyDJoNcyR1s1H
h2m6Y4mThgzadfEYrYrTwVQ9KCkmUAavVm+N3KdOBxtp17YEKVnMTwHJCVs6
1G8V6+UKksOv/l832tvTwaz9mytTkhyqH82cHz5DhwqOb4IihXJYzslZ2OtE
h34Py5q+UTmsvzmi2+RNh8sPfoRd0d2Ogw7XTxfcpUNtgbd28yZ5FAVlfcX7
dDht81O+Yqs82glNSueE0iHQdZF3dK88TnWaLaZH0oHf8cz5Zm95/GwgfD0+
gQ7nWbcb76HK44Zt5Qk3X9HBqdZ9iqdmB+5j9rixlk+H2Rs2JzNpOzCMKuHg
X0iHvCztPX5/dyA5LkTW5y0dZJTF7o3uVkDhTSfeOlbTiXiekxsqVkCV+V/d
B3rooDfjYGNYoYin8tTJIn/psHrj1A9+JmUsPvGLo41hEVwv5H8I41NGjg1l
7HeYF2EJWZT27FBGtNnLMsuyCGPrWe6YHldGCVaDf0Vci9C58UjD4SJlnDpr
STeTXQRH49PbGK6ooDaJa/7f9kVouxG5NSFSBWPLu2YKFBbh+QnJyzezVdCE
cmyCX3UR/pRduaFBVcHsKtvBCe1F6Pq6MfSy2U50F7zw8Zr1IhT8s158qKGK
9XU7GhSPLoJSXd7G9COquMVrqXbs+CL0fkhSEr2sim0N3mhyehGi4zJT9xer
osolvxJul0W4wPvFtX6PGv5svZueE7AI0pd+tx04pY4WV02enb69CGUvcHfr
HXV8Ic2aRgkinJPuMpStjieuhyf5hizCxzAXy6w/6lghF/XYIHoR8LbNe8c0
DbwZlHZrKHsRFE2uHErj0MTNVzbut89dhELvwzKGWpqY4ORGmcpbBLbvs95x
Lpp4XT32S87rxf//H+N/Im9diA==
 "]]},
 Annotation[#, "Charting`Private`Tag$20710#1"]& ]}, {}, {}}, {{{}, {}, 
 TagBox[
 {RGBColor[0, 0, 1], Thickness[Large], Opacity[1.], 
 LineBox[CompressedData["
1:eJwVknk4VfsXxqmEOqaDY8jBMRRFFGWqu75JxEVFRXIl92p2FCpx4xpzJEVJ
aZAh85BKckkhQ4YMR5c02JThHFN7b/O0f35/rGf9sT7rfZ73fV6Wh7eD5woB
AYGw5fn/Dn6a2/PSGQcLTlq90qgmEpEeunnMDYdMWx15LkcTLaFdvSv8cIjV
KhqZ0tNA37iHGX9cxEH9WfBs4ToNVH7i3O8ll3DoKu8vixXWQIExicVnr+Cg
MKtVVdajjmY6RzkdQTgIXeY01sepI5KdtDWDg4NYgB3j6IIaGnpIhlkn4zB+
zFdtFY+F+hyOPo55gsPYlT89uz6z0BeR6tctKTiU72yxe9/AQh/94kcPpeNw
vYBr2JfHQi9stzh5ZOMwE8+/pu/DQkEL7I2BL3CwryFy+QIsJOvKb82rw0F3
sPjrDV1VJE53GB6vx8HIVgBmVFWRSH2pkEEDDj7Tu6P9ZFTRnAHHtLQJhzCq
mGMxrYKwtVrpNW04BLbvC32YoILyyjwvf/+Cw1dsY158lzIyX9fLlPyFQ166
wJvmi0xU+3rfHjaOg6O2eAzXjYlsDlecayJw2Jr4YWLWiokc4x6URU3isIHo
DslUZKK/hA8fEZzHoSwg3ySoUgldIxvuEEIEeIbVD/fKKKGmxpdrP60jIDNa
daCvVRHtP61uYMAkYFNxkk34G0X0aXW8S5wyAXUZGxd/y1FE33d5Z9uxCOh+
tpdDhSmi8RJtq9r1y/9TLYJZxoqInv44tGQLAb7XNJXZGQrI6e+o2ftWBKy+
SwilxcsjJW39CnwvARjtPsszVB5hnzpDrW0ISNxeEmPqI49O6W2gzdoS0Df5
/YOygzzy76tRdnYg4G1x8o4PdHl0b+9KC8YfBGzXlezjJMqhLpmg2HgfAorC
1RIH8xnoYaWmI9+XgFL7as/OZAZyZzfLmV8k4D+uSct/cQw0VKeUgl8mwMY2
gbbqEgPNBJS92H+VAI2KWB9ZYCD53pku8SgC2p9zMpa4suhIvq/69UcEIJWd
721EZJHxVa/mxscEvOPpuXIXZBDD7uRl2hMCxlj9sidxGdQ+4tJ4I5UA+ZDx
gsJuGWSjY+57K5OABcWwd9X5Msg0V7I6oYiAcVFnUf4hGaSUne/xpIaAv3Ul
5RrypRGWPphSPErArQiFMwJX6MjadchZapyAL2O951W96ei5NE/C6xcBRtiT
emtPOgoP5V/VIAlgxrsZvT5AR1ruo0duzxCQe5qTv2ITHZ1fR0pdWEkC4XRe
c3ePFBKMXwrRUSABJQOlYi+F1IJlPdIsSDioy3edNpdET4+cWhrcQ4IG3VP1
vpkk0jIsS9KxIkGyQ6oMGUqizTx3brE1CXFK31xSNCWRmWOeRb09CY9WXovK
FJFEBzfs3jDqTMLdrR/ehiVLoMiW8yPbvUjY+1uDodB7ccRTabrUkEBCsG67
/8+NYihP1PmZSCIJElVC7biyGGKTP3iW90goPRCUIywthiZq512rk0jgDA0U
287TkAB70+7yZBKOqX7eZdZEQ4zyaImC7GU/No6Fqd40ZO5snRX3hoQrqQlw
vHwtenir9rNzPwn6/GeFxNk1aM3PgKAcswmQP33MyIsnjBYXSy5vi5kAHeaT
pEK+EMqdK3ge9mMCRkrNH9HFVyHLOp6ZickkGPCL6g2vrECeLvkKWpxJkAnp
G6rSFUSodaNJd88kbHaUGtDEKEimbcmv0Z+CCmGF3M1ti/DvJtzDL2oK4HZW
P407D5WKkyeiv0/BcNC/fhX0ObBrDXn7efM0nA9m3+2+NwN3TtUfGYmYBqfJ
vjM7NKfBvS5xr3HnNHi18UojeJMgP5UTMbx+BtYbeXytaJ6A68L+qzyuzoCG
nHax8wsSwnqaO6U+zoC6Z0PE6srlniR9GwnXnAU2zYY7/hGHTo0t+48FzsI0
07illfwFCxfFRHwbZ0H0xryV5fZf8DU7TdBGbQ6iaplKcWNjsCu9ap+L7xz0
DvFUilNHIZ6tOdJWNQdqD2pc/vIZgcfrzBtoCvOwM/L4RMLOYdC7Objwz+l5
OOEwENCox4fAfssLr9/NA/toyslYJg9sV+iZatMXoKI71UhbdwjWjLscEPRY
gMmyCfas/SCEVaCch68XYPjsWlbP2QEIOVjodEF0Ed7utqsk0/rBtLnTUvT4
IuhsWTp1ovMn9MhahIuULELAJR+xXoWfIKppwtglvASzOu76bJ8fMMYY4u1w
WwIb+qfI/bV94NyiQvcpXIL56CnXXt0+KHR6ECVOLcHH4Lk1Gcm9UFnVitiH
KBAOjFH5RusF54lYO+EMCvbtEa4Ijsag9qO5vncmBa/ex/hbRWFgmD1F78yi
oCCnIVsiEgMJN7eujFwKZOYGvFNClvk63T8tiyjIvTcY2eCPwbYHTf4R5RQ4
pByv2noSA7r5mvSVXAput18Pd7HA4B+lisizHRTMtXV06JtjMDZ14TT3EwXx
Z7IShREGH3I/b07rouD3nnN+r8yWednsUvPvFKwv+xKpYIDB+JBVSwiPgpjD
FDHBwsC1er6Ix6fgZUKFa7sKBg2PCu8cGKGgO3+l0TMmBhkOci6scQq8O5J3
eClg4FY+8PPdxPLd92nUiCQGTXeT6rSmKLiYKu/bLI6B6QX7nFvTFAzmSzcX
0DCQXf/K232OguPG6i0+IhiECpxxqJ+n4H7VzKVDqzH41c3cpr9IwQJ03TBe
taxf3CZ3b2k5P4dUaaUVy/o3I+YoioIDWUYiAgIY/A/JWBt4
 "]]},
 Annotation[#, "Charting`Private`Tag$20754#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, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}},
 GridLines->{None, None},
 GridLinesStyle->Directive[
 GrayLevel[0.5, 0.4]],
 ImagePadding->All,
 Method->{
 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
 AbsolutePointSize[6], "ScalingFunctions" -> None, 
 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& ), "CopiedValueFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& )}},
 PlotRange->{{-1, 0}, {0., 10.871561939894928`}},
 PlotRangeClipping->True,
 PlotRangePadding->{{
 Scaled[0.02], 
 Scaled[0.02]}, {
 Scaled[0.05], 
 Scaled[0.05]}},
 Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.734028763549059*^9, 3.7340302079169006`*^9},
 CellLabel->
 "Out[197]=",ExpressionUUID->"fde12e4c-08b5-4376-818e-69da7bdc145d"]
}, Open ]],
Cell[TextData[{
 StyleBox["*2.3-1",
 FontColor->RGBColor[0.5, 0, 0.5]],
 " Otro ejemplo:\nAca graficaremos la misma funcion pero solo ciertos \
intervalos, y no por completo."
}], "Text",
 CellChangeTimes->{{3.7340252160884953`*^9, 3.7340252313335347`*^9}, {
 3.7340304712640963`*^9, 3.734030492767203*^9}, {3.734030579830591*^9, 
 3.734030633922921*^9}},ExpressionUUID->"36f20cc3-6479-4e83-801e-\
ac1f650c60db"],
Cell[BoxData[
 RowBox[{"grak1", ":=", 
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"v", "[", "x", "]"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", 
 RowBox[{"-", "5"}], ",", 
 RowBox[{"-", "3.1"}]}], "}"}], ",", 
 RowBox[{"PlotStyle", "\[Rule]", "Brown"}]}], " ", "]"}], " "}]], "Input",
 CellChangeTimes->{
 3.6796704117681894`*^9, {3.6796717007523875`*^9, 3.679671725237596*^9}, {
 3.6798613225006833`*^9, 3.6798613471324873`*^9}, {3.6978298611184216`*^9, 
 3.697829874963784*^9}, {3.6978299093736353`*^9, 3.6978299137334623`*^9}, {
 3.698277457255374*^9, 3.6982775318137712`*^9}, {3.6982776158402596`*^9, 
 3.698277620856003*^9}, {3.6982776820515594`*^9, 3.6982777744126577`*^9}, {
 3.698277804635029*^9, 3.6982778359059887`*^9}, {3.6982779088378563`*^9, 
 3.6982779136362047`*^9}, {3.698277949867871*^9, 3.698277970537895*^9}, {
 3.6982780507269077`*^9, 3.698278061083209*^9}, {3.698278125827447*^9, 
 3.6982781264055777`*^9}, {3.6982782364671516`*^9, 3.698278237182568*^9}, {
 3.698364389675911*^9, 3.69836441773923*^9}, {3.6983645048277645`*^9, 
 3.698364505874752*^9}, {3.698364580701185*^9, 3.6983645826232643`*^9}, {
 3.698364613506911*^9, 3.698364613678738*^9}, {3.730752583352212*^9, 
 3.7307525927657547`*^9}},
 CellLabel->"In[75]:=",ExpressionUUID->"d463296c-efbc-4c4c-9924-338705b3df7b"],
Cell[BoxData[
 RowBox[{"grak2", ":=", 
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"v", "[", "x", "]"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", 
 RowBox[{"-", "2"}], ",", 
 RowBox[{"-", "0"}]}], "}"}], ",", 
 RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], " "}]], "Input",
 CellChangeTimes->{
 3.6982781206644964`*^9, {3.6982782292693577`*^9, 3.698278231410199*^9}, {
 3.6983644242711296`*^9, 3.6983644345668206`*^9}, {3.698364510453361*^9, 
 3.6983645204485073`*^9}, {3.6983645888115396`*^9, 3.69836458938923*^9}, {
 3.7307525948061676`*^9, 3.7307525971096535`*^9}, {3.730752684199727*^9, 
 3.73075269335783*^9}, {3.730752789696951*^9,3.730752789796835*^9}, {
 3.7307528253513155`*^9, 3.730752830219105*^9}, {3.7307528935374393`*^9, 
 3.73075290503737*^9}},
 CellLabel->"In[80]:=",ExpressionUUID->"e076a6e4-128e-456c-bf36-1b4fa431baf5"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Show", "[", 
 RowBox[{
 RowBox[{"{", 
 RowBox[{"grak1", ",", "grak2"}], "}"}], ",", 
 RowBox[{"PlotRange", "\[Rule]", 
 RowBox[{"{", 
 RowBox[{"0", ",", "3"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.697830068844075*^9, 3.6978301216935234`*^9}, {
 3.698277926258024*^9, 3.698277933297713*^9}, {3.698278177390633*^9, 
 3.6982781785308523`*^9}, {3.698278241585802*^9, 3.6982782836258044`*^9}, {
 3.6982822160430574`*^9, 3.698282243332261*^9}, 3.698282277084958*^9, {
 3.698364205245902*^9, 3.698364320406721*^9}, {3.698364350814045*^9, 
 3.6983643525485334`*^9}, {3.698364551161235*^9, 3.6983645659597883`*^9}, {
 3.730752637850057*^9, 3.730752643489064*^9}, {3.730752740378681*^9, 
 3.730752817641406*^9}, {3.734025155221169*^9, 3.7340251648744974`*^9}, {
 3.734025250745967*^9, 3.734025324222084*^9}},
 CellLabel->
 "In[150]:=",ExpressionUUID->"bc928938-d84c-481a-bd08-3cf9b3b3d36c"],
Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
 TagBox[
 {RGBColor[0.6, 0.4, 0.2], AbsoluteThickness[1.6], Opacity[1.], 
 LineBox[CompressedData["
1:eJwVi3s0lAkYhye3vpmGMTOkWpVw2EIGhShvOV1ojTYa0WmRRVIqt9NMF45M
YpVaapRYZsa1kJlvwkb12naccpnk0tAqskVJKcolqbV/POd3nnN+z4qQIz5h
GhQKhTvH/5ukDpv9/p2NY65mhkymGJz7fnHdP+dFTrZLKCwxfBjkCVTf2Fig
GrQfnfPgiS2fc2fZ6HRsX36rgRjcDC3erZth47fghtD0RWL46jPYGzvBxnma
LCnNRAx8VXj90AgbybJ1s0a2Yjiq3H/iUQ8bDX1uSw5zxcBWZRdEVLGRyrpc
zb0ohrbnOuaYxsbuL2bK5W1i4PjefNDzKxtnUDtIR18CmwfOGNxxYaNuR2ZS
v58EYgXX7gYasDGC90LvZI4EeFZ9jKZhFq5xqIs7+EoCTzfuPT3ZwEJah3zD
bY4Ujgcu8v33GgtPPj/Ly+JLQSXSaL4Sw8LLfn9t9HwghfVqKzHdi4WcXHuM
NigE7omMK+4WLDzNeW3dFFwILJflTu6zTPS6puGeeasQxiijDhQ1E20SgoMu
6hTBmYER9dkKJi7OPJB2PLgI6izN8x4Lmah3PDx68nYR0ONzsCeQicZ6qa3h
zGJgPnNLv7GWiZ1h8mNx0cXA4ZoqXBlMrO2YcPFvLQbNbgfh5Vf62JLNMz3i
UAKCxoR4Wb0+brDxTuLmlADtDqFMF+mj1piv0a2vJeCtwjrbKH0k2xpiLSJL
oWKoRj9z69xf+a10Xkcp3Ax9nVJtoo/alslZYevLoGnqvIfnKANr/n5I1MvK
4KDzQ5BIGCjP8uFaml6HuIrgMxk7GLgwvj/6p/zrcP9NpO73WT0cfObPylt6
A7Y5ju8ckelh3LD1tFR0Axxq1S8PBenhFv6fccKl5bBru8uaSJYejn8af/vp
j3KokzIa3zbqom6M5waPFRWQZr+pmBKvi4Wfp+9XySvg3OMP7pk/6uLqcMet
4FYJk0VfbWq66CjYLF32sacSsn9L6fJPpaMG5kUVHLkJpxyT7yWsp2NokOdd
D80qaDbqnXQaXoCKzndU0e4q8KaSI1F5C9Cs8WJmUWkVOHMGbZ22L8CPZUPh
dpoyiFh27pZwioZTK/uTPwTKoNW4atK7nIb2VxOTbWpkkPMzJ7U8gIZ2HiaJ
fYvlkHtpdVcKnYadR7OMpvhyeJmfH/oKqSicqQkw7JHDpf5D7urDVNS+s9Op
fjMJArva3i2mVCzY49h7qpyEVbzzU6MmVNzpqszdVUlCLz/EIGc5Fd8XNORb
VZHghnSv98ZUjOGujXpKkqC1Y1+dyIiKWoYHLF3rSMg4RMsZolOxPo1tTm0i
QVKyd3faJIEhibnZ6iESfJvtYh0mCJzRiL9b/WauH9W58OwTgcxw35WityTs
d5Q12o0RKJDymnmjJFgrtR2fjhDYKvpnU/cECTUDlQZWAwR68HdpDWsrIEJH
yOnqJ9DkUWF063wFLFkV4JXYR2Bde7OZjKqAk9Gawo5eApOS2v0Eugpwp/iP
n1AT6J/tME03VMC4mQ3D4gmBO/yvZ4wtVEDhNg2rtk4Cp/fsO9C9SAHzL5SH
mLcT6GatfF9orIBaeVKCqo3ArSnnrqYvU0DkE78c/iMCO50fpsWYKOCHL1bV
pioCJb+n3gswVUDL0nntLS0Eil6oXTaZK+A/WaNRYw==
 "]]},
 Annotation[#, "Charting`Private`Tag$14682#1"]& ]}, {}, {}}, {{{}, {}, 
 TagBox[
 {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
 LineBox[CompressedData["
1:eJwVxXk8FGweAPChGTSucRRJKFKRq0gp7/NQ8ToqKjmSYslrOhxvpF0qNKGS
I0nvytFbOV7FayVCP8mRMRjjGIRBKPc5DGbM7v7x/Xy3e/mf9hElEAgR//P/
n6lLcoVCIUz0Rng6OdWiUr5cTZhACF86mh00XGpRV7fyk5VVIQz1+jZPuNUi
lWRtowWuEKJ1lILvXapFaRKW10YnhJCn9+JGxZValDkXOsJgC+HkTpKHdWQt
yvsy2vG8QAhyPtPjDQW1qMK3umT/RSEkMGvSH0jVIeo4iTtQuA6SlZGGU311
SHbA9MFWmXWg7dF7a5dfj76ZDEVGXxdA47E/efERX5FRnTLv6mc+1Iw4c5VD
GlB4g3kNR50PSLF/ONeXjk6Lz0gxAtZgb+5rA+PwRnTqtXLZWM0quD117l5M
ZyDLEsOKZK1V+Pw26vZaZRMCkY7DZSEr8FE4PbJpYwvaV+Urf6WdB9bxj3aY
72EiRn+Q/UkTHtiQ+NIyHUw0a0re8FfMMihkU0y10loRmZhAefpjCbRwjtdP
LxZ6R375B+/gEtzT1G2bt2lDtwL3xsTFcWG3lW6+1i/tyMzuNaNgahE05CTr
iPs7EO1iXpwdXoQ1fYa+o2Mnqht98fpG+gIUT9AbNwexUWLONjOlmXloPcso
MqrtQlH0TfsmLOdhrO67a6NBD7pykX/X/uUcmFkZX2BlfEN9+v72uxZnoeK0
TILfmT50PJB5Pd5xFjZEDlwdonBQ7q6zY47eM/A5JYTse3MAfRtUn75Jnoa0
CAvaSPIgWo34mllaPwkp2s05keVDaO+zWPtJvwkQ7Pw57qg2jPKvHoZI+XGY
Mr+k6ftqBG3ZTefsZ/2EPZdYjzoP/0DPXQJX2CE/YI5V2lusN4bE/LlVKftG
weSntX/lkQn0+Tj1VOniMJR2j85ToqdQQuJyJ+Pf3+G+d5p8geEssvviKcV3
HQJqr9LUnvI5tIU6bKYmGIDWWD3X/IIFlDMVrV9ynQMe5zzCRLq5iBLwUrfc
mwPCrabh5kNcFDpfsbvKjQOLpK7uOxNcZLM8t4NuxYGWI5dBaZ2LxgnuSv1q
HLB4ozmZrLmE9BQNCWIt/ZCslkGl+y+hIrOuVieDfngtHCt0kF5GFdG7g7kz
veCpYHHbw4OHmpokyTtGeuFDTSrbmcpD/Qoz6Sd7eiEw9ijbLYSHCJnvv2bX
9MJkuOJS+GMeOlpqqer2vBdEZcYmDwEP0X+6f/lk2Qvvxe6wknasoG6bRLmY
p99gePPdVtW5FbQkufpW5XAPUA2PTQQXrqEDh+yVCUY90DEcWoY+raGQy+mR
I9o9YFdbPKjIWEPLVZbOhfI9YNvPDx78sYZ4wQ8JVuPd0GdP0yFp8NEaR/VM
4PNuyBvhzUQm8RGhGPHql7uAnFe5WHlXgPBgotfbqS6QiniQL5MgQHdlhhlJ
37vgzfazz65mCJCIX0zWhZYueN9OtXb4JECiaq22C2+6wKzzt6FSvgARY7xe
qJ3rgn9lPRveFraONrrTLIOL2TB5VrClmCZE8/aZxyJz2VBzfmH2cKoQ9ZiX
W8Wns0Hi1/H5jjwhylefs82NYUPL5bp+zBQih+/uZ/rc2UBHmamr0gScSjX2
Pk5iw9Pi+PSb5wlY+9Z32qZznaA7HMFaFhCwLHU9eoddJyhZkyxuSYhgntuW
Bwa4EwbOST0hKYhg+pFTj210OiE2WUIT7RbB1wjlKeHrHXBhc/IX0zMiuDg6
KXvkTQcc3OnKP/GXCD6aYtHwfrkdYkWDHeK8RbG+dPIgd7Idaj56OToFiGKV
e6MrJkPtMLatgawTJopnAx/qlDDaYcWncWnliShOP9HxsCSrHe6YOE2Y1Ihi
HtHv5Ae7dliSsk803LUBv/s9oa00ow2y51OTGMsb8B/jQxO85DZYv//5iROJ
iGmeJsRDD9og0MBGc1qeiN1P9RiX3WiD8zpZTif1iXijrlZKmU0baPp7TDX5
ELH30AeXjwss0JpW7h9kE7GKI6ev3JoFztvTcvc0kLBJQWZjsTkLdrqS5ZvY
JOwg7VX2dj8Lsg4qWEaMkjCtYTg5Q50FUX2n/VSJYnjWYtwuarkVXAe7FzWw
GK7bxy2zzW6FYzdJXWHlYjhIUTKlW6wVlHycetyrxHFcECOKxWeCwOVjxtlW
cZzDjAtsnGfC499jjT2HxHHfI8qJyn4mhDdOeZYRJfCvpM3ErBIm+IbvXfKz
lcBqSxpBv11mQrXy/djpbgmcXHAtbfphC+hSQ9Xekcl460JEtkFIC+TSW1+Z
a5DxywMpRQGXWuAAx1F80oSMCyo/fZ03boFm3evebzzJmN4oy13qawa9FahK
/UjGwh9/nxAaNMO7WMWowiBJTNVYWpdtZ4CsqI9suUAKz/2DTHb8xADLPpWi
IiVpHJqttikphwEBktW9LCNpTNO31lUMZ0B1vQR6fFkaZx5JdVbWZsB+2+S8
tVZp3OliVqgR2gjpF9VTJf6WwRaJtz2NVOlAq+HdDrahYO0/A5SGxelAct0W
7+BCwVLvvZpSFhrAwdjD/6gvBXd2WR3i0xvAZuPGyEAaBV/VkJWrv9UAKmoH
jnGrKTi1IKPKnf0VOMoZtkxLOTzbVKUek1QPoRIu/8l2lsednKIOs9v1UFBL
meT5yePyuVcPp/zqwZmfnUQNk8f3N8Uun7aoB1NXfLswSx6rXnBs2TZbB1K0
ai/mlDyuPPj4rvBFHYT+83yz1i8K+L85cUjh
 "]]},
 Annotation[#, "Charting`Private`Tag$14726#1"]& ]}, {}, {}}},
 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
 Axes->{True, True},
 AxesLabel->{None, None},
 AxesOrigin->{-5, 0.03333333380725624},
 DisplayFunction->Identity,
 Frame->{{False, False}, {False, False}},
 FrameLabel->{{None, None}, {None, None}},
 FrameTicks->{{Automatic, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}},
 GridLines->{None, None},
 GridLinesStyle->Directive[
 GrayLevel[0.5, 0.4]],
 ImagePadding->All,
 Method->{
 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
 AbsolutePointSize[6], "ScalingFunctions" -> None, 
 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& ), "CopiedValueFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& )}},
 PlotRange->{0, 3},
 PlotRangeClipping->True,
 PlotRangePadding->{{
 Scaled[0.02], 
 Scaled[0.02]}, {
 Scaled[0.05], 
 Scaled[0.05]}},
 Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
 3.697830088033527*^9, 3.697830126381386*^9, {3.698277938045065*^9, 
 3.698277979393832*^9}, 3.69827807099086*^9, 3.698278138232175*^9, 
 3.6982781801046305`*^9, {3.698278245351245*^9, 3.6982782947931986`*^9}, {
 3.698282224868569*^9, 3.6982822449792724`*^9}, {3.6983642260582275`*^9, 
 3.698364321406253*^9}, 3.698364353845039*^9, 3.69836445048981*^9, {
 3.6983645332305326`*^9, 3.698364595264885*^9}, 3.698364625992074*^9, {
 3.730752604501364*^9, 3.730752645074522*^9}, 3.7307526969778357`*^9, {
 3.730752747456476*^9, 3.730752834691331*^9}, 3.730752869242613*^9, 
 3.730752908456808*^9, {3.73402530238846*^9, 3.7340253251350656`*^9}},CellLabel->
 "Out[150]=",ExpressionUUID->"8647a736-f191-4d7b-a94b-b46444165d30"]
}, Open ]],
Cell["\<\
Tambien esta el comando AspectRatio-> que se puede poner en Show[ ] o en \
Plot[ ], puede agrandar o reducir el tama\[NTilde]o del plano que se muestra\
\>", "Text",
 CellChangeTimes->{{3.7340437647694902`*^9, 3.7340438210008235`*^9}, {
 3.734043868342903*^9, 3.734043875939847*^9}, {3.734043907099366*^9, 
 3.734043909512004*^9}, {3.7340439484847965`*^9, 3.7340439504013586`*^9}, {
 3.7340442654408555`*^9, 3.734044273386135*^9}, {3.7342138417376585`*^9, 
 3.7342138905199623`*^9}, {3.734214048826455*^9, 3.734214051000166*^9}, {
 3.7429420964466248`*^9, 
 3.742942101860181*^9}},ExpressionUUID->"b77f78bf-4ccb-4502-a225-\
26498c0ecd9d"],
Cell["Ejemplo:", "Text",
 CellChangeTimes->{{3.734213898337092*^9, 
 3.7342139017233667`*^9}},ExpressionUUID->"cc907e1b-3833-453b-bfdd-\
e3bf90960eee"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Show", "[", 
 RowBox[{
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"Sin", "[", "x", "]"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", 
 RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}]}], "]"}], ",", 
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"Cos", "[", "x", "]"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", 
 RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}], ",", 
 RowBox[{"PlotStyle", "\[Rule]", 
 RowBox[{"{", "Green", "}"}]}]}], "]"}], ",", 
 RowBox[{"AspectRatio", "\[Rule]", 
 RowBox[{"1", "/", "2"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7340438311200304`*^9, 3.7340439376756506`*^9}, {
 3.7342139103586035`*^9, 3.73421391236687*^9}, {3.734213985124731*^9, 
 3.7342140208686547`*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"d264e4b0-e8cd-4390-a5f9-bfbf7fe2169e"],
Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
 TagBox[
 {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
 Opacity[1.], LineBox[CompressedData["
1:eJwt2Xk0VP/7APCRJZUIlYqKFqUklZYP6hmRiLIkSVK0UUKiVYWkSGUplSwl
UZR9y/YMEgrZQtbsjJm51tkMfvd3zvevOa8/7rn3Puv7nlGydzE/P4dCoSQL
USj//3vIUFJ3SmkeLfC1fnXPTu9CrUzPEfFV82jxWU3jCqGnUVVpOHLpinm0
kJcZeg0hLijJK+Nuk5lH2/i56HZMyH2s/eSd5DBnHi3A+13l0ZDnaCU+ubyx
W5z28MBCi2PB0XixrHUk5YM4bSfyC249TUbfA5+jLqwXp6kv+ay38h7i1Qa+
TKjsXJpvfsGB+Qdq8OepFYO9smK0bzdKNPL/NuF0YUKK5nJRmnLiqt8GjA7s
SRsNNpsnQuvr/3uiVLwHd70Xa3i6QJimODdB6JB0P2qvqVN7whWi8a+V7Uzk
DuI72QUaRyeEaK7Xc9buFB5CYVG9/+RHhGjJXgtX5iwcwp8DmbqJA0K0ujMa
yp/XDKHV1zdWvxqFaPuHlursNh5C9z12PgsyhWj2F2MWC0UN4ZcjI3+eXBWi
Hf7b5LFbm44KdyTvBtIptISlg9Wv7IfRMfanXGQ/hZY7e3L1t0vDmFXll/a1
m0ILORdaVe82jGaKswPVLRRattF1rUmfYfQrJcylf1FoO44EKA/GDCMhVbsx
LJFCSzm7/klg1zAWx4Y2RDtRaMvCLK4Un2CgVLWJS4oDhRZbNKdigR0DbTgL
5hedo9CM2lr0jzgwkGPoC902FJpbvXBM4XUGqhLuCesOU2hP09w+Gocy8OV/
ll6ft1BoP/Ukzyj8YmBNxDarC+2z+PAYsu/tZCIl1iWsvWEWr7LXBlzTZqJ6
4tcGi8pZvLlGvfK0LhODvqmY6ebNour7MxarzZho2qh0SPHNLO6KCd6n6cTE
GikZ7RaLWSzc41nV/o60z9jqI5UzKHVZk1ktzEJKgLptackM2vQ2pWXOY6F6
sHOEdt4MPjqXzQiVYmFQNH3Z5oQZHDwZnLVLnoWm+d3S4o9n8HjGE/cl21lY
M1knXKw7g/9KXNV32bLwt0P6wM68aXTwcezkJbOwrpNjui99GtvTFM7ezmBh
o6V2rn7iNHrsrjIcz2Fhm15p4PG30/g0IkeruoiFdMWmbbfuTGPHwbWhG+tZ
KPKXfydfaxrFp2uVnCdYKG4Kfd93TKNCuJOFO5eFC8oeHKnaPI0lOSp/3QQs
lMmUUOqQn8ZAkPtjJULg6uBVP2anBLgvyPNOuSyBmob7F+nmC3BXYkTSzm0E
7qP53TLKEGDHr/QgmgaBOrt/dR/9IkAfIX6m7h4CDdZbZJ6LEGBOzZsf24HA
Y0IXrP08BWTc9g6mGxPo+s0/tkJbgCzGMnedCwS6q1cvrNMQYLlHwzpTRwJv
xMvcaFEVILMoa8FxJwLvvXxrOKwgQEJ09OZhNwKfXP3Kkpiewtdr0/Lb7hIY
p1K7x7RgCk9udTHyDSXQYUNqkVfmFI4axmyeF0bgpvXBh1K/TqEBg/LQ7zWB
SYpmNjJRU8iU7Xl3KZLAbLna+w33pnDCS+pKcxyBt5ekiovemELzjgtiSp8J
1JYNDt7pMoUS4qcW2ycSSJM0+xB2egpbHgoFViUTWC5a+8OKOoU/DoW0GuYQ
GCCcauK/Zwq3hGkusMwl0FgouPmb+hQWUBwSrfMJrBWY0lcoTWFdyEWtwzQC
W8ZrFrYLTeG53ROBTWUEDnfVWNiV8FFjtfALrz/k83amtAfn8XGTg2aYbBMZ
v/agC8XpfMwKXTknupnAiWbTm2tj+Zhy23VJdCuBgt81b/t8+YgqTop6XQQW
VqWsW3qXjx+9l18I7ybQ61fQV30PPqq/TJcZ6iFQtMwU48/zkVHoGu3ST6Bk
YU23oz4fM3aV31MaJrAmL+Vy+D4+Pvj7aFyTQWDIt6CJn7v4uGRksNKYSeDS
TFMx1Q18TN0f+OUEQWBzmvpzm9V8VHQyS7MYITA8ZdGyp3J81OwtkDcYJevr
S40Kay4f/z6NW7ZsnMDuzylpqyh8HFHLSJwgHRsfpGXC5eH49JP3FRMEbvxg
ejhlkIdVvJoMGzaB9Hfqjf/+8XDBio7aFRwCv0QtOi39l4dLTCZNa0mrh9e4
ulXw0PTPS/cNPAIfG1+fw6PxMFCky7SB9L8Z+Rf3c3jY/qlJ4yafwD2pRevF
UngYVG6kKDtF4POzF7MD43m4lSUt+5F0/5KFhrLRPHy4UWihmoCs//K0ljdh
PMycP74wiTRLdWY67iEPpz+ZrQudJlC/88PzLXd5eFjp3n9c0lHBhkoZ7jwU
fFM9ZjFDIFuXSNN04uHxCN0b8aQPs1/oFZ3l4a7ridGjpGM/aTYePMnD2Vsm
1dtnyXxa/7tYbc7Dr7YrhS+Ttljox7M4xMP606L7wkl/wc1PWnV4+HEv/x6N
tIhbrYL9fzzkaI+WtpO2WXcjaVCdh7obumXGSGc0KlBdNvIw4VDZ+WnSC/yL
aydX83DiVmThLGl7LYeznnI8fClxbiWPdC5z4eQcKR4mdij4DJGWeZfu5y9G
vo9pJaOG9CXzE8sWzXCRbXDrVDLpYpHZz2GTXExW39LgS3pFdqzWSiYXO9nj
pmak3RwPVX3oJS3ZVr+YdIX8iO2mNi5+cGXb/CbfX7H65UhKPRe/vbZkeJG+
6aXls/sXF/c9lvFRIV2zvUu2sJiLbd/3r6og47uxz++jXi4XS6zmFJ0m7fVK
dfevVC5G1TlfYpL5aTasKzf7zMXnBz6tcCOtLrhh3fyOi+sMa2uZZH4fJa1k
2L7mohFPMugM6Y4zJXf7nnPJvDw+9pOsj12yjlJOj7hYcM5xzWbS/Tcytt+6
zkWPApn6Wi5ZD5usv89eId//oXa2HOmwttljfue5qOP57IMFWY8HdIxuhVpw
0evk45fpk2R+53fj1+1c3PLeuU90jMxv/iMzjU1c/MKxlxYh+8PCZUtPrhIX
7dLuHOSR/STccFOsfBEXRzQM6svJfrOPlDrczeJgtZG8m2CQzI9JZodDPweV
xAlO2gCZnzknXYl2Dm7d6xtwhuzn4gtxoYJKDgpbXG16R/a7kvrelqWJHDR9
YSmf1U7OJ/OhMLUPHBy+4raV2kbG2/3lUf23HIwO9bxT3EJgdQ6z0uMJB9OC
6/KTyflzWycKGy5z8KTdVkK1lsCPZw95Ms5yUNrSuurmbzI/D9l7RGw4uCEs
pD+/isANP4+k7TDmIMu/49eWnwQ2mM/GhqhykHF1t3NaMYGz7ol2Ces4eD1B
ZhuNnIebXh1fVaxAvl9U6PYfhWQ+W5NfjUpwsG3i+nguOU+3nDsTYMpk49zR
wtsH0wj08yhykUxi4zf++SXMaAJTX11RVY5jY+29JMp9cr63fVs+tDeKjdXz
/9sx7y2B22eu2l95xsaSC3ddxcj90Om35lilMxsrRyROxT4h58HrB5oBW9n4
jl38zNmDnDe5B0TFUiex7LGElo4ugYnB2T+vfZrEb/Ie61+Q+83JQSWoK3oS
3x1QX9ahRSBzyUL5gmeTuNq7Z8Vxcj+OuDaouztNYodvanr7OrL/lc/adG+Y
xC/+HLV95L6dE+qVXhg1gT5hPWkW+SwscRy7qRo2gdSUh0MB2Sz0pZ7bF/50
AkuP+5rkpLFQlHWwwsNzAufPX5vM/UTud0OpTlXrCcx6eqBX6iULJWcj579d
MoFOiXaOby6zUP5ynt2NwHEsEe32XCvDwvDycv2FvuP43NtAzlaChSuUGzd/
uDOO+fEq9kFipLtGJqsvjaNTT4VUG5+Jy44rBygbjqPaVhGuVA8TF+sGp/0R
HUd297jLcCoTJeQvCmvcH8P4mxzpu4ZMnPkp83Hk6ijaLP63/toZBpq9Vs6U
uzSK9ikRn9TI81/sec3SffajeDEh/ESPGQMPUez7As1HUXml3eE9ugwM25m6
XmXHKMo5vfsatJ6BW96ZxNlNjGBunV+3YHAYbTwC4+uuj+DdJgqlhjyfXgMJ
C0cOC2sfPT5RZU1HPV18eLafhS2dJf1KZnRcetAt+9QfFp7iPRRyOUjHnCPN
K8zTWfhvKpw+toOOglOxXZou5PU555vfS9DR11PbRWKAiXcL9V9E5Q9h2Den
gORGBgaE6D/eIDeEOTuqaJOZdDy5e7x3ZfYAJkv/SJEr6MeF7Lm/XTt78Zrm
G+F9Lt3YaX5e5YFzF2o+PG0weKkNPWsOvthxrxUJB8Hz+48bsKnf+H25WgM+
+P5WE7hlqCBxa6NbQxk25ml/TxBOwcJGiQszlBQ8rao/bRGcBI41tquSA5Og
y8DqmHNUOfTJKmp/vFEOE8mQvEyrAew2pK3T76uHlo+rnEdr2kDqZ/RnjZZW
uOOcZ3Asuhve3lLPLAnrAqt3W49HPO2H7UEfrGzyeuHCo4o5nTV02P1Uuke5
YgBspC5nV/yjg0l0SW5F/QCYvZJwyhihwy/i6NcLHQOgHW/yx3/RMFQJnjc/
Gx8AmbI/8Rqmw6ATYjzzauUgFIh1Gwf8HgaVTfb7n7gOwmI/ftjOagYYR55r
6pEeghLfzZsDf7FgUYWlT70OHTRnX75TbmXB3izh8LxDdEi7RVlaRGfBjo4L
VyOP0iHG+Q+FPY+AiNYOyyPn6eBjdb/xtAEB14dri849psN+1XrvHaUE+BwJ
0revosM/x71OV06PgJudoCbYfBgU4sfiNC+OwC7/JX1frYfBqje+a67LCDwM
075ZYj8MNbYyx2PujUBfqujiVrdhoB0d0GmKHIGQAVlGXsgwRO8NltNpG4Gm
37k39tcOg610X/HiE6Ow+4COgqUhA0TCGyae2I1CTEHrb20zBiSs+a4sfGkU
JiSlwuRPMICz40PA6O1RULJ0MytyYECQpZ15dcQoOGeLHfz6iAElb9u7Hv0b
ha9nQo1EvzNgo3IjZeriGFiKByrF72JCdVLpdjfXMSi+WCcZuJcJHrszzw3d
HAOjjQGVDnpMKDZ4Ud7kPwb76O9S55kz4eRl86CMxDH4UbONOejEhGcp1aud
iTFQVox5JP+eCeOaZfu6ro9D/1rjVD1hFvw4mnKg7N44GOa/GM8TZ8FrpzfG
X/3G4W6wYu9mSRbsi7psfStsHCo6s35OLmNBgNCi69JZ40AJ1vDfpsaCNeVW
X3Umx6Fhi/iXg8dZYHaMLh9zbQKqo6UYfR9YsM65fs3jOxOwI0X/sesnFrD9
8lWcH0xAnPufxPEvLIjIebZbM3QCkvpe+vZksmBQfsfRurQJUF1kZOtYxgKv
7jsBc8YmgJdeUSoxxIJkl4U8e9dJOBpjfzpRmQBGvTpn7OYkUCvUxUI2EbBp
j8Wkj/ckXGDMobmoERBLeTsaEzIJ/sMHHRbtIiA8eCO9O2MSeq5NOvXrEeCb
rttqz5uEAEdjm94zBBTLXfw7JsSG9ZylGVrnCJi9E9DkM58NBwbsJAMuEnBb
r7Y+Rp4NMuzUHwucCXD5Y1vZvZcNTCNr1Q+3CbDm3Cqw92GDlASIKoUQ8Opk
ZN5YABuGXi1ZPviCgAakffMJZYPF9B2luFcEmDyemxUTy4bQ9EaJuZEE6C1/
mdT9gw1rAh332MSTdX0354vbbzZE+5i3tnwmALtaE+Y0s0Hrzi8n0y8EaCas
iV8zxAbnxigrxVQCtmqlRNsv4IDatSzq0VwCnKLrI8dkOeAfyNXzzycgQZjz
1keBAxtFr27PKiRgXeXe1zFbOLApxf/HRDEBK079Cuo24YDDvMBikV8EiNzv
97Z/wYH/5MefuPwlwPma8DG7CA7oSLw15bYQ0HxRceOZWA5oTbYq3moj4Iup
dfWpDA64GSd023cSYLGmesWJBg6s/3itq7GXgMKlw8zjbRxgCtdwV/cTsHGB
eJFlLwdO7xcssxsgQDCuc9FiggO5bx66/Roi4ENpZrrJYi7IoqwPlUWABLkIjihwgan1psmQIOdAEnHi8DouSFfF7jAaIeDQKxWKkQYXYpebzOwcIyDjiX69
oTYXPPSvOa0eJ2CV19k4Az3Slzb+o0wQMOYQaaxvwYXIcxeaEicJsDmVu/qA
DRcsInytPdgE/DBrGtM9xwXnZ7bduzhk/WhKv9Fx54KCmd/sey4Zn61qTlRP
8v4et14Y8cj4rDUC8OXCQb7bFibp/RIP+7RfcOFiwd9Ly6bI+FBicrQiuDCm
I5CMIb10svCJZiwXFmc+z1orIMBrqNX2vy9cuJJ1zS6SNL2du21PBhc0ev2l
pKbJeNYtEd2dz4V9rZm0m6QLf2xv3vmdC8K7291bSG/MM0nUqORCfPDAZo0Z
AkKSne7taODC9IPCvoekBR/8zba3cSHk4+EY8rwNF17HrdvWy4UvgT520rME
1ASWcLYyuGBebbzWiLSm97+fahNcMJ2JHPAkHesxHblFwIX/kh2T4khLXlpx
VVWEB1fcyG1E+qbtbr3NEjxY2myg202629xCbtNiHuxwOSw9Qdr44FX6RgUe
BJUmdZHfH5Cl9axgwzoeVF+8lEF+f4CiemKQsioPznTd9ye/PyBgXfnZ9Ro8
CMwfOTNMemJZ36512uT9fGiaf0jbLpwzf60eD5i5E0uzSZcLrW5XMuZBBePF
ZBDp7WytFEUL8vrIhEZ70hF0qwerbXjw1EwnV5W0WKeH5apz5PVPLrxjkfFw
rQ9RWenEg9BqFf9PpFvKkgXy7jzYEB7hbk1aL7/y9wpPHkg719mLkE5KGYpZ
7suDq+X/jsaR8fd+s9ZQ7gUPns0Z2FdH5k917kcB8y0PnOwpkbakm92VU75/
4EFTaf7hHjL/aqYqcm7pPKDUhcX/4RPwtyDhp0EeDwx2TJrqkvbdrHpvdQkP
1sy7efgzWU8tYlv7Kut4cKfMi2pL1t9D95TXH1p4YLHecvdXsj7Vu7cZ3+7m
gV03y3uCrN9HBRrpG8Z4sCB+pawTWd8a7prePtJ8kEgr2DQ7SkBnV57GieV8
sPZkfV9EOsBk7+BWJT5w229mrCD76d8mqkm7Oh+S7jx+IUf239OuAyv3mPLh
Zpbn6UyyP/eYlNVIWvGhgmWZ6D9IQG++gW/faT68yw07Ykn2s+Zro+EQFz4k
810imsn+7z9i9o35jA+pDyVtvcn5EJxf5/Q9jA9E79MryzoI0N5kofg2ig9B
Nyca48l5EiJ6/JFBEh9grCUnmZw/kG9z7EMVH74NbSk5W0/2h0qH+O0/fKD/
4icW1BIQ9up0vmk7H3yE4kalasj94Ga/dobBh8PVO19GVhLwWsVh1EpiChRs
2QanyHOD7quh2K2LpyDL49y62yUEsEQuW4kpTIGl6cozz4sIOPDvCqZvngIT
EwN+TAE5L8KuPZU0moJNfc0/nDMJMBK5r/Ldfwper3i+7c0HAs4UaDbohUzB
NDUrW/w9OZ+us++Vhk/BItAzcYkiIGbwSsOPxCl4xPDLVHpDALfS5n5F1RRo
29Zfk39G9tdLzT/V0gJQNVNzPHudgNwj7PsmKwSgUWV9Vu8aAb/npm2qWSOA
czUtdxRcCeDfUvGq3SGAe/4OC9IcCTC1Xba54ZgAvIeNC91syH5XZnv9fSOA
5cJCBkZUAmT+pW62jhHAvyN1r6K0Cdjw5kpjS4IA6pvOLxnaQ4D5gr7NbXkC
EE0Wizq7jYBPRH1jR7sAnmxXFCaUCDiWk6raqzQNw4zTi88IkfVveKWZ9Xka
mqoCQtK/sWAkZI1VR+o0lKUmeFPJfb69ramp6ts0XL0i2lOawoIs5/1NXyqm
ofneH0puPAswVK7x0tA0jN5VKz/4kgU17UX1/RtnICPZyI/vzILxq0t/d8TP
QMWXY+tLFViwK+/XkerkGTCsXBVjL8eCmyLe1QXZM/BHhpvNlWaBIGy4KqJs
BmJC1DMk57JAJJ9WaT0wA8lRHou7R5iwVOzyz0blWSDK13/aUMKEPeFYWv1x
FkYHwpfvsWdCr1qytkPSLAxXp289d5IJwSVR6ULZs1A8UvfzkQUT6Iy77zXK
Z2F5vezrTH0mRID23XD6LAw8yPmRuIkJXm42K9LlKNTnImZ7RUYZ0Cf3t/ae
DYXan7PkmPsNBiTZ11GX9lOoDqeZO35fHoaPjp6MI3QK9anh7W1yZ4chwlX5
9SMWhTqX3/XsOHleDbh3m+CyKdTRrXOuFRkMw/nwNVGtc4Wo43LU9ZrryfNt
ndvUOxUh6qkJZ9uiNjoE6Mhmbb4iRE2qOcnZo0+HC4oWm3UmhKj0s9+V7IWH
IK1nbqb+yBxq8IH5h6pO98OhxaLKT4REqKoFWy7lK/XA9UMauxIootQ+t9zS
kledUPFpzLyUL0qNyLbILQttBgd3vuXq+XOpNzqbyxSf1cDbAxr8o3PFqbE3
bD6tjCiChK/HXxUuEKdmip1RW2lZBDlL7mioLBKnltJ/XZZbVASNfUXOM8vE
qRJztewFD2iwyM+k59Mmcerd69+VlzQVgt+PS5XTh8Wpj+lLr7+8lgtuB99H
xb8Qp4o7Ry38F5cK3snftWTeiFNN/za1di5PhSC5wWbPSHHqct8/11oCU+Dr
gJqseZw4NchXxtq7LwkGH+U/EmSTz+OpNpLomQC25U2uZq3i1N6El8qhn9/D
FfWphfmd4tR1Ti7Gi5+/A8/XqxKVe8Wp2SEZlYpDUfDG4XzfFEOcuuXQm8jJ
e+HQID5+Im5GnFpwIDpXNyEYelyXchYJz6OuUjmktYj+DMaa/3txZ+48KmPC
/uXz+wEg9dmr2nTRPGpA48DFGwnesEo69nLe4nnUV9Kda0rv3wbVW2Xiysvn
UVXjPOxDE66CVhf9Y9DKedSV0Vfu5yTYwf/+36L+7/+tff8HmnfwFw==
 "]]},
 Annotation[#, "Charting`Private`Tag$3191#1"]& ]}, {}, {}}, {{{}, {}, 
 TagBox[
 {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
 LineBox[CompressedData["
1:eJw12Xk0Vd/bAHDi3ntuSpJSylBpQlJKA9knjZSSCiFDZUilAQ2GopCQiCRl
ioSIylSG5xCRyDyGDJnvvdtcpvzOd633Pf/c9Vln3bP3fp5n73P22ivPXtG1
mMPHx/eAn4/vv18tTeG9UyvZVPrsfxcG1TTnQUKKTQmqzF0+TVth5UDYEgk2
lZFx+dIgbclHpw/LLmFTYcYbR5tpC08U/d0syqYy27U/5NGePa8Si4TZlHJf
bWw47cGKmBPac9mUzWRZpR3tNrVF/EZMNtXmRirvoV0Z5/bOeg6b2lO58zuT
dr7YoNGNfwRlKl38vOAfhg+uJmz3SYKS95oKd6QdzSlNDxgnqLR53U3raQcZ
qJ6PGCaotYEvtMtnMHgUxC9M4hHU5+7Nfy7TvqG0FD73ExRkUPWCtA2IsWV1
HQRlO09Jffk0Bk37c0WdrQRVcEGzIHQKw662SvuhJoKq/VPqJkp7Rea78nnV
BNW16Xl0/wSG+bKSLhLlBDXRtIE4TPvfYx+59d8Jqi0zNSb6Lz0+K2uPvV8I
at/vM567/9Djq67bchwIat3p6u93xunxof1tJlkEFXRsSDNzDEOM+CpVx48E
xd/ZN7hoFINV0c/BlGiCSn/8CF8epPurrBWeG0FQMVkTs1cxhkMRmYdLXxDU
sfZCrUs8DHI3n8b2BBLU1mIX/8McDLy1x4yl3AlqU1J1Z2IPhl9PctgKrgQl
Jhr641o3hop/8hk7nQkqeGxwTLGLjm8dIXrKnqB8z/lOBXTQ8fLML/I5T1CG
P7wGJpvp/gwrOTw3I6jutpovbj/p/phErHpjTFCO7YY/+ZroeKk4u+SfJCib
PY++9dRhmOnapjyxj6B8FPYkGVRgcN8fH265hqDUPfO5X/MwUD6OOtIr6ec7
Tdi8AQzTlYfnNKwgKC29a9V3cjDYmfAsNMUIakdAuLXoJwxnbypvVBAgqOP7
m9NKkzGg+JysoTYW1ZpYYef3AoMj9ruc0MyiqNzG0ZYQDOnbzKTPNbAoxRrV
S7LBGBTz59yvKWdRAe/k9wT70/n8eVArI5dFdWlvCp3vgWFyXlWD80sWJS3Z
U3D4EgaVE9He20JY1MuUt8JCFzBcf26vxgtkUUeX3zTOs8DQt0Y80tSHRT1j
9bIWmWJoUDe20nBkUXr/1n/SOk63f7V7jGXAovyND1rM24rhWs2kaOAiFiXZ
onyxbZgHwbrHDIMWsKgs4y/PS3k8yK6IjnoqxKIOZvsvfN/PA2bZEaUQARYV
hmfbznbw4GVhuHbYCJNyCNRfYVPJg+J0Da831UzqfuT1UdY7Hkg9957JCmRS
ximcuQ/NebBP/Ne+nMdMSt3p3D1XYx5ceKrsm+vDpHBpoNVVfR6kBjRL5N1n
UjZfN7nu1OaBprfijq92TGp8bI3wtR08sHequl5xgklZTuXm3ZjPg5IzEr2/
FzEpiQfhC7rfc+FYhBqaXMCknvIutgslcqGmzSR4wTwmZSLvHSwXy4WWc9H7
dgkyqSPzTVJ0Q7kweEEh6vEog+KX2l+ifY8L4jfUDXfVMqiJruSfgzpcOO93
tvRxMIPa+fjV8GgvB2ZyE1J2LWNQkh3qhkcFOVDatGnelBiD8n76+aTY9AC8
HE+1yhJhUME1r22qRgZATRGk1AgGZcKUGlbpHADHsGrf3X8EKVJY/31U3gCM
O01bk7WClPVfNSafywAM7ji68kCAIGWhl7xuiNsPnR+GAo6zBan2kgU62z71
gUoUs+aRkAD1QUDrsbNCD6itqlL0+ctPmUylz8+f8xtWOAm7+PbzUds+7F01
+agNKl5uNrBsmYXbgd23F8g2Qbn1x55tWTOg2nfP2lC2CmI3VO7QyZmC039U
hkS+FIBSaMXV698mIDFo0sKCGwMrlXY3LXn7BwqMtob2WmSg/s/7Gcz3Y8Dq
sH1nf/w7Wn4xy/ym7wj83hXRndxRi/6ViL4evDYEX37010BQC7JD805e+MMD
M/3OYbu1HShTuYwaS+uHG2q+l9nOXSh54dcU8ZxuqPqdfePcnl6ka7JQq+1t
N4gnOpaEHulF4wnGnXGh3fBLP3zxd/1epLZvZPGuW90gxl7jscS2FxXfkHEy
Vu6G4GH+Kwahvajtp+P+qPgu8Jw4FO0x1IsWxm5qkgv+DfzS/q+vhPYhu13P
BdSvdAAuks1vrO1HQUHLm/VMOqBPRlFJ6Fc/SuWFpV7R7oD59r+ktvX2o/FX
ryyi5DugbYjf/vpkP7ollFgk2NsOpIxy+hOpAXSnOdfnu1k7HNsYbG1lMYC8
7vxedFq3DSD/hJUOdwDFNVhyru1pA0PFNdKPxgbQty19Bd5KbcDn3sfOnxlA
c3u4DtnCbaBvKntFTJiDJCJ4ySj4F2yQKt9hpMhBa/aI7Sh70Aofl3tX217m
oF0epod6bZpBYOInL7yLg779dXltcrgZqvzHfc05HGRw6eWcWvlmoCfFGskR
DnI40Zidx/kJbsd/qN3l46KUlSc2v7D9CU/qu5t5Ely0LveAxNHrTbAi18bR
8SgXif3ZyPl4uwHUHHWMdqRwUbTNEU05wwbwDlmpJJ7ORVtabWIjdzVAocVk
GS+Li3QK35g9mqoH46VLTb2KuMgncGWtpUs9pF/5lHy+lYvmKC3OXeZWB2Ud
jDpqLg9h6+nHd71qILhVHM+c4aGad5tFjlrWQOKL+Joz53jo86il/4p9NXBN
//X8NGsecnet9P80Ww3qygV2mnY8JBESGzByoxqSNvp2s714aF+RTqCVRRX0
t1dK9ibz0Ib5notU9lbBjjE3r+xUHhI+kRUouJK+/898k9cnHmpsXRMU1VwJ
e6ldCowvPGQ7Phn080QliJaFZD+t5aGQNa+Dj2lUQHRhgKjIBA+5XGxaIiVT
Ab4PHaP0Z3io8Ky0YuNUOfTGNeoH82Nk6DiquMiuHDLTZVUm2Bh5xIcrPTD/
Abgg4tlJCYyaWCPKV9RLoW8tk2O2E6P7BS92ob9FoEuVHi2+ilHvj52BFplF
4KQQL5djh9HRxvoBn1tF4FA0uyXhBkYSvEVhDX+/Qt2o8tdLzhiliPvOXpso
BGO1io7ABxi12DgXxEx+gamyWaMLLzHScJCQ/P75C9RcsUhsC8co7m6mw5Dj
F6g69FBKJwoj+6DRtepT+ZA+P8pCPBajubmXHtZP5cHY0yDbg8kY2a76/FJs
EoA6spSnQGG0c/u4trkjAHvbyOK1+RgJHtkymzSZC1JehXriBRi9cEgwPziV
A09unVvZUYRRcXHoWsfpLDg0crNsaTlGgS119V+dsyD010hyVQVGJsOiDxfN
fAZTe+qNexVGY8t9BhJnPoF+RFhtRS1Gq644pfz6lwEjj8Wk5zZjxL2fYa5w
NwMu+KRGurdglBkyInp7Nh2S7jpv/dOK0bH8iw6ifOkQarc4oKAdI+fFxrv2
86dCynilGF8PRgflQgYC3D7CRv25Uqq9GImimpet/B+hej+lYtuHUbz1kdmb
cz6AjpTD0+wBjOqy1AoSBFJA7cVqvkmM0YrbZ1uH5yVD98ybyMFBjHwdD2/1
F30HrJyIsF9DGF10kWwrkUyEBA9mYuwIne87TBXr1W9hfhaRc2cUIy1X7MPY
kAB5MTEbjo1hJHc/bzu5NQ52sH6LNY5jFOqe8Khl5xvo0toQ+OQPnQ/PwE5H
FAvlDYcv7fuLUb+XxeM0rRhw93BVDJig6837aJeuTjS8XbBXXGESoxKf7aqD
p15B8+e9hkA73o/dI2ceCcsu2PN+TGG0Rabrtn9ZOMjePocOT9PjX52x5nvD
S9AsEO4H2sNrHlYyfofCt3OGPIUZjCrXG7mQOAQ09isceUI7RX7jBqfJYPgg
d0lgkLa/4mxNGuMpuCQIiB34h9HVzZWugyKBYL+p1SWIts7WaAX5FQFQ/7eX
/Enb1LY/5ftRPzCRWHRGYhYjKXs/Yo+FN6g4a1cdp916e4tZupMnCP/0jnSj
HXa3LkP+yT1YWAxF8bQz545JaRx3ARzXcbCE9vYlu38o3HGA5owBmU7aF/fO
nVLUuwiBArW6o7QrUrd+JMz04fSV0JYZ2jX2iepb3iM08WFn3ux/z7+5v0/n
5TlUavhhZoK2Toph4e6oa+hDESOQQ7syRnTJCfvbaMmm7W71tOOPWCinRrui
gdDDxZ9p9x/I+6n+yB0l9WlaB9OW2yPp/u2GFzrzY5e5zX/9Ub2tcNLMF7lW
rP+oQrsu1MYGy/ojqSMyJlN0PMafheSmLnuCsq5tOptJe8nTr6KOwkHI4IAl
XKa9/cmoJRIIRpei6xyW0zZ4vCpL8O8z9FslyCOPjv8tX50FJZznaMn9VJ4p
7UzPxIyTdWFouYNzmQedz4b7TUIS3yNQ8H6DvfNpO5OCKfhXJBKVnRV9RNdD
2O4tgmk1r5CAqxzlQNeLoprmO/HyaBRZMhTWStdX7i4zA8dvMehuDrsO0W7d
7peIcmPRq5OFpwbo+rRVea33KvMN8rP6HLaN9r+t2XyMj3Ho7+wr8hZdz1Jb
+k+WvElA+7IYId10/ZsqHJg5GfAOVfvdemJFzxe1kFi/8chklL9GKN+Unk/z
7gmIHDFIQWlSh0aP0vOtj3suimv1HrW2jZuLcjF6VShboPTgIzo+pnBxIz1/
/adqfPkXpKKQrcxPLd0Y3dnscaoqOBWpcFTmeXRhZBTW1W0Xm4bMDdYUZHZg
JOYQy84ozEADCdc8Uun1ZM5bvaoH2pkoyE2JLfkTo8E25guD2kzEjXn61LkRo7IjVgqTvz+hemW5Epk6jDxl1x/bLZiNhCy5yTM/MJruO1livpJCWhrx7WzA
aEQwSVHLgkKDiRoKndl0fUgzArfEU8hIW9Dr42c6H6fSjAQ256GhglsOO9Mx
SstbzI0h81GQyezOpkQ6ns/rFvSaFiDWa0++qyEYWaQq2ldEFyCXpj+Jn59i
ZFzu2ZDZU4A0ioMdpp9gdJixPerhlUJk33nDxOIRRuuvPdsif/crEs6diil1
w6j9kMEp2/BitE9pHQxZY6Te5Wxe1lKMHn/b8qrbgl5v3KIuK0h+Q922wtXV
ZzHS/dzv0f/iG7qzUXXlM2OM8uVd0i2flyDj7RPuecfo+Au/EjcNKkX6OQkr
YrfS60n/GGfd/grk/jrAPfUvD5ntIOzqz1eguO7UrNRRHvLzlJjwdK9AjWwr
46RBHupfhRjdXyrQBdbl1ge9PPTKyEsyRqMSBZsv5++o56FFZRJHZcgqdOv9
yBv5NB4aTUbJS1VrEOmhJLbChodK5VVFr56pQeczPmzPO89D0W9UHIru1qBD
Y6OhZ0x5SDdio+qNghpUMjm41vkkD733W15UrV2LPrbVu+qo0+/3y39a/czq
kPuV1a/1RXioRy5ZmOHZgPauGL81kMSlSzvhmnFcA8Km4V+d3nBR8KrYmo8l
DWjdHQ9vgSguOiARFnp2QSNapuLpPBHIRTFsn7VUSCMSdhBTv3ubi8x6LdWd
3jahRM69rhENLmp6LWU7VNGMFhmfTX9czkHpzETduOFmdHvN1/htxRwUaLVz
u6lYC5KRvx5ZTXHQkQ0n+cr0W9BuyfqIP+85KDfx4ZO41hY6/zkybYEcFPVx
NN2U04ocP7jzb9PjoFSzrtnu+21opcZ6y5maAeRkm3XoVEQHyhfSmfcwqx9p
oLHzwskdKDYk3ar9Qz+aK7LJrSi3A7nsZh1XTuhHIe9ffdrZ2oFMlEtqv4T0
o/TRh3JSkp1IyrGr45lDPxp2NJjXE9qJjqpM9M5X7Ec2D8bKbwX/RnZRx9tJ
+vvZIHKT/stH3YiQLzfcY9aLLB98m/Oroh/JJ9xWErHuQl/c5eV9v9PfeX6i
Ave16HYWduWLnR5C6j43NL9xWtDIriL19hsjyCc/tB6U61DylfkTZ6+Oobdl
0T9yNcuQ4N1ut7NBf9DNiew6//JM5PZ8taZ40ATauDnZQsjzJRwWvLuh4OEU
+i566maO/Bd4p3m5gRc/gy6qqxiyOyphRygU/ng9i67lpIk7GjTCu7NV5JJu
PjJ1NuDB+zttYClzUn7PKD/pf8y60misEz50stIODM4h+VNedWS0dYOWGGOt
D78gyf5yxjI+tg9WV+5/9YAhSNZpkEmKKX0w/chTyp0tSN4yMwpMovdjSSxC
3GWhIFlf9kM5pLQPRKbmEldWCpKjpXPdZYb7oLZdpF93jyDpeGaJ4ZRqP5gl
r3gn4SZIxvTg4W8l9D5Ia6tKAh+D7FON7tOpGQC8982rJ4IMcqA6f1KweQCs
d0sscCIY5KYctuUHev9opMTXe1iEQXJls/ZODA8AuaT0OVeaQe7+VNCrspAD
Qh3nZpQQg2w0vH7w6hEORN4OLMhwYZBjQ47Ly3M4sMyOuTnSjUHO828SeFvA
gSeXbod5eTDIoU8twq7fOeBhanrj9CMGmdmt5bm4kQM2++XXT71kkD7898q4
IxzYuvCLj3o2g7zwvsZAdz0XvsUN6xZOMkjGOcenbT5c+Fs0J2vOLIMsbF+c
avqEC2t7RFeTAkxyecBR97oQLtxbozzyWYhJZrzQ2/L2NRfUXtkFpqxgks//
uDwZzOVCyovR6hfqTNK5NbehD3MhxG/85PV7TPK1kd5r78M8+JrEzEn2ZJKs
zd6R0zo8GCtdsobrzSSD51SKW+rxQFdo+5hVIH3/rIe9tDkP5nndfHomhklm
xj/Olr/BA1e3v7WHvjLJ02cRig/ngbX9pJ70XBbpGqh6VLGPB0lGDzaICbNI
t/eNLhpcHgxriE0ToiyyqltG8tgQD5wWKkYNL2ORtSfSY49P8MDvnflA4QYW
+XJhRskUgSGtt/juJU0WmdY96ta5FsNk+Sldc20WGbjJaOcdOQzqGR2yesdZ
ZFzG1eMLFTEUe0x/Q6dZJLlBIVJmG4bmVUpiiy6wyIiHvyI6NTDMOfMs7pMX
i1R13mw7aYzh4D5Zp3e+dPvNmd8lzDD4yr/XjvZnkQ/rq5yVz2FYPFky7BvC
Iiv4PtVpX8Cw/tk/NbM4Fmkh7n9yrQOGo5UWlcxiuv17MQ0WPhgCM4ejp76z
yGgIWCrkh6Eh4u6NwXIW6XC6NjLOH4O57fPlTfUsUtGr6kHpUwz2QmUWST0s
UrxuS3hGBIYX+7dOnmAR5Oz5TVYSHzAkJOk/yxUiyIG7A3n3UzFkLnbaukGE
IPuu8dt1pmOo68qz/beUIOOmDGo9sjCIeB7rjJMjSC1fxQd6BRikedddF20i
SL6EFW7Xv2JQ1AuWvKNMkJH3uN/dizEcXtuif0KNIL+3fzzuW4rB86tN6Yw2
/X+ZtnnrajA8VfS7YK1LkFIqzc5jtRhigt8zq/UIEpfy7fxcjyHP8i8ZZ0qQ
Bl7hgWt/YphmeqbpXiPIYvnyL97tGISuxOvmOBCk0KMwT6FODBL1pXidI0GW
2T0LuPcbw/Y3i+Rm7hGkWNDBOyd6MFw/GBX+JoggDQ2rY105GNySC1RFnxPk
Y6vVER+5GPzFexucwwjyn7dpczMPQ1KP4iLdWIJsS9kqKzqEIfuYbkp2AkF2
XFypKDWMoSTDQXtdMkHavItykhnB0Psg+8F0BkFuapVtY41h+IN/yVplE2Q1
GTjOoc00EMivpAhyevGlY8XjGFav15qO/UaQb+NPFpn/xbDF//LzhT8IUjOs
p0t6AgP511/FuYog4fLA/hraJsX1V4//JMgvny59k57CcFlpan72L4K8qeDB
SaftHCL1du1vgrxqs09n3zQGbz6NQwG9BGlpfHe0iPZza4uuKQ5Bvuyc37hn
BkNchdc9yyGCHG4smXlPO31HonTlGEH2Lww6u/QfhsLI8mzVSYLM1NNiOdCu
IUZOx/4jyP2XKgeKaHdeXfJHRIBN7lkgIrJwFsNww84gJxablB7Ddjq0+fac
2dwtxCbXlZ4R96S9IN71h44Im7RT1Zx8T1tqYczFLDE2OdkRs6Lmv/OB20XE
2mVs8omR5R3Of+cH7f2v/SXZ5LCKp/QU7f87XyD//3zhf1AgHoI=
 "]]},
 Annotation[#, "Charting`Private`Tag$3235#1"]& ]}, {}, {}}},
 AspectRatio->NCache[
 Rational[1, 2], 0.5],
 Axes->{True, True},
 AxesLabel->{None, None},
 AxesOrigin->{0, 0},
 DisplayFunction->Identity,
 Frame->{{False, False}, {False, False}},
 FrameLabel->{{None, None}, {None, None}},
 FrameTicks->{{Automatic, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}},
 GridLines->{None, None},
 GridLinesStyle->Directive[
 GrayLevel[0.5, 0.4]],
 ImagePadding->All,
 Method->{
 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
 AbsolutePointSize[6], "ScalingFunctions" -> None, 
 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& ), "CopiedValueFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& )}},
 PlotRange->
 NCache[{{-Pi, Pi}, {-0.9999998782112116, 
 0.9999998592131705}}, {{-3.141592653589793, 
 3.141592653589793}, {-0.9999998782112116, 0.9999998592131705}}],
 PlotRangeClipping->True,
 PlotRangePadding->{{
 Scaled[0.02], 
 Scaled[0.02]}, {
 Scaled[0.05], 
 Scaled[0.05]}},
 Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.734043839316129*^9, 3.7340438474496703`*^9}, {
 3.7340438959856544`*^9, 3.7340439382256174`*^9}, 3.73421391438232*^9, {
 3.7342139858821373`*^9, 3.7342140213860235`*^9}},
 CellLabel->"Out[10]=",ExpressionUUID->"aa889145-6e46-478e-93a7-134d4f025c8b"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Show", "[", 
 RowBox[{
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"Sin", "[", "x", "]"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", 
 RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}]}], "]"}], ",", 
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"Cos", "[", "x", "]"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", 
 RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}], ",", 
 RowBox[{"PlotStyle", "\[Rule]", 
 RowBox[{"{", "Green", "}"}]}]}], "]"}], ",", 
 RowBox[{"AspectRatio", "\[Rule]", "1.5"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7340438311200304`*^9, 3.7340439376756506`*^9}, {
 3.734213927201432*^9, 3.7342139772034664`*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"f8c0ea2c-93f2-4b9f-910b-014ae7b6c70c"],
Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
 TagBox[
 {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
 Opacity[1.], LineBox[CompressedData["
1:eJwt2Xk0VP/7APCRJZUIlYqKFqUklZYP6hmRiLIkSVK0UUKiVYWkSGUplSwl
UZR9y/YMEgrZQtbsjJm51tkMfvd3zvevOa8/7rn3Puv7nlGydzE/P4dCoSQL
USj//3vIUFJ3SmkeLfC1fnXPTu9CrUzPEfFV82jxWU3jCqGnUVVpOHLpinm0
kJcZeg0hLijJK+Nuk5lH2/i56HZMyH2s/eSd5DBnHi3A+13l0ZDnaCU+ubyx
W5z28MBCi2PB0XixrHUk5YM4bSfyC249TUbfA5+jLqwXp6kv+ay38h7i1Qa+
TKjsXJpvfsGB+Qdq8OepFYO9smK0bzdKNPL/NuF0YUKK5nJRmnLiqt8GjA7s
SRsNNpsnQuvr/3uiVLwHd70Xa3i6QJimODdB6JB0P2qvqVN7whWi8a+V7Uzk
DuI72QUaRyeEaK7Xc9buFB5CYVG9/+RHhGjJXgtX5iwcwp8DmbqJA0K0ujMa
yp/XDKHV1zdWvxqFaPuHlursNh5C9z12PgsyhWj2F2MWC0UN4ZcjI3+eXBWi
Hf7b5LFbm44KdyTvBtIptISlg9Wv7IfRMfanXGQ/hZY7e3L1t0vDmFXll/a1
m0ILORdaVe82jGaKswPVLRRattF1rUmfYfQrJcylf1FoO44EKA/GDCMhVbsx
LJFCSzm7/klg1zAWx4Y2RDtRaMvCLK4Un2CgVLWJS4oDhRZbNKdigR0DbTgL
5hedo9CM2lr0jzgwkGPoC902FJpbvXBM4XUGqhLuCesOU2hP09w+Gocy8OV/
ll6ft1BoP/Ukzyj8YmBNxDarC+2z+PAYsu/tZCIl1iWsvWEWr7LXBlzTZqJ6
4tcGi8pZvLlGvfK0LhODvqmY6ebNour7MxarzZho2qh0SPHNLO6KCd6n6cTE
GikZ7RaLWSzc41nV/o60z9jqI5UzKHVZk1ktzEJKgLptackM2vQ2pWXOY6F6
sHOEdt4MPjqXzQiVYmFQNH3Z5oQZHDwZnLVLnoWm+d3S4o9n8HjGE/cl21lY
M1knXKw7g/9KXNV32bLwt0P6wM68aXTwcezkJbOwrpNjui99GtvTFM7ezmBh
o6V2rn7iNHrsrjIcz2Fhm15p4PG30/g0IkeruoiFdMWmbbfuTGPHwbWhG+tZ
KPKXfydfaxrFp2uVnCdYKG4Kfd93TKNCuJOFO5eFC8oeHKnaPI0lOSp/3QQs
lMmUUOqQn8ZAkPtjJULg6uBVP2anBLgvyPNOuSyBmob7F+nmC3BXYkTSzm0E
7qP53TLKEGDHr/QgmgaBOrt/dR/9IkAfIX6m7h4CDdZbZJ6LEGBOzZsf24HA
Y0IXrP08BWTc9g6mGxPo+s0/tkJbgCzGMnedCwS6q1cvrNMQYLlHwzpTRwJv
xMvcaFEVILMoa8FxJwLvvXxrOKwgQEJ09OZhNwKfXP3Kkpiewtdr0/Lb7hIY
p1K7x7RgCk9udTHyDSXQYUNqkVfmFI4axmyeF0bgpvXBh1K/TqEBg/LQ7zWB
SYpmNjJRU8iU7Xl3KZLAbLna+w33pnDCS+pKcxyBt5ekiovemELzjgtiSp8J
1JYNDt7pMoUS4qcW2ycSSJM0+xB2egpbHgoFViUTWC5a+8OKOoU/DoW0GuYQ
GCCcauK/Zwq3hGkusMwl0FgouPmb+hQWUBwSrfMJrBWY0lcoTWFdyEWtwzQC
W8ZrFrYLTeG53ROBTWUEDnfVWNiV8FFjtfALrz/k83amtAfn8XGTg2aYbBMZ
v/agC8XpfMwKXTknupnAiWbTm2tj+Zhy23VJdCuBgt81b/t8+YgqTop6XQQW
VqWsW3qXjx+9l18I7ybQ61fQV30PPqq/TJcZ6iFQtMwU48/zkVHoGu3ST6Bk
YU23oz4fM3aV31MaJrAmL+Vy+D4+Pvj7aFyTQWDIt6CJn7v4uGRksNKYSeDS
TFMx1Q18TN0f+OUEQWBzmvpzm9V8VHQyS7MYITA8ZdGyp3J81OwtkDcYJevrS40Kay4f/z6NW7ZsnMDuzylpqyh8HFHLSJwgHRsfpGXC5eH49JP3FRMEbvxg
ejhlkIdVvJoMGzaB9Hfqjf/+8XDBio7aFRwCv0QtOi39l4dLTCZNa0mrh9e4
ulXw0PTPS/cNPAIfG1+fw6PxMFCky7SB9L8Z+Rf3c3jY/qlJ4yafwD2pRevF
UngYVG6kKDtF4POzF7MD43m4lSUt+5F0/5KFhrLRPHy4UWihmoCs//K0ljdh
PMycP74wiTRLdWY67iEPpz+ZrQudJlC/88PzLXd5eFjp3n9c0lHBhkoZ7jwU
fFM9ZjFDIFuXSNN04uHxCN0b8aQPs1/oFZ3l4a7ridGjpGM/aTYePMnD2Vsm
1dtnyXxa/7tYbc7Dr7YrhS+Ttljox7M4xMP606L7wkl/wc1PWnV4+HEv/x6N
tIhbrYL9fzzkaI+WtpO2WXcjaVCdh7obumXGSGc0KlBdNvIw4VDZ+WnSC/yL
aydX83DiVmThLGl7LYeznnI8fClxbiWPdC5z4eQcKR4mdij4DJGWeZfu5y9G
vo9pJaOG9CXzE8sWzXCRbXDrVDLpYpHZz2GTXExW39LgS3pFdqzWSiYXO9nj
pmak3RwPVX3oJS3ZVr+YdIX8iO2mNi5+cGXb/CbfX7H65UhKPRe/vbZkeJG+
6aXls/sXF/c9lvFRIV2zvUu2sJiLbd/3r6og47uxz++jXi4XS6zmFJ0m7fVK
dfevVC5G1TlfYpL5aTasKzf7zMXnBz6tcCOtLrhh3fyOi+sMa2uZZH4fJa1k
2L7mohFPMugM6Y4zJXf7nnPJvDw+9pOsj12yjlJOj7hYcM5xzWbS/Tcytt+6
zkWPApn6Wi5ZD5usv89eId//oXa2HOmwttljfue5qOP57IMFWY8HdIxuhVpw
0evk45fpk2R+53fj1+1c3PLeuU90jMxv/iMzjU1c/MKxlxYh+8PCZUtPrhIX
7dLuHOSR/STccFOsfBEXRzQM6svJfrOPlDrczeJgtZG8m2CQzI9JZodDPweV
xAlO2gCZnzknXYl2Dm7d6xtwhuzn4gtxoYJKDgpbXG16R/a7kvrelqWJHDR9
YSmf1U7OJ/OhMLUPHBy+4raV2kbG2/3lUf23HIwO9bxT3EJgdQ6z0uMJB9OC
6/KTyflzWycKGy5z8KTdVkK1lsCPZw95Ms5yUNrSuurmbzI/D9l7RGw4uCEs
pD+/isANP4+k7TDmIMu/49eWnwQ2mM/GhqhykHF1t3NaMYGz7ol2Ces4eD1B
ZhuNnIebXh1fVaxAvl9U6PYfhWQ+W5NfjUpwsG3i+nguOU+3nDsTYMpk49zR
wtsH0wj08yhykUxi4zf++SXMaAJTX11RVY5jY+29JMp9cr63fVs+tDeKjdXz
/9sx7y2B22eu2l95xsaSC3ddxcj90Om35lilMxsrRyROxT4h58HrB5oBW9n4
jl38zNmDnDe5B0TFUiex7LGElo4ugYnB2T+vfZrEb/Ie61+Q+83JQSWoK3oS
3x1QX9ahRSBzyUL5gmeTuNq7Z8Vxcj+OuDaouztNYodvanr7OrL/lc/adG+Y
xC/+HLV95L6dE+qVXhg1gT5hPWkW+SwscRy7qRo2gdSUh0MB2Sz0pZ7bF/50
AkuP+5rkpLFQlHWwwsNzAufPX5vM/UTud0OpTlXrCcx6eqBX6iULJWcj579d
MoFOiXaOby6zUP5ynt2NwHEsEe32XCvDwvDycv2FvuP43NtAzlaChSuUGzd/
uDOO+fEq9kFipLtGJqsvjaNTT4VUG5+Jy44rBygbjqPaVhGuVA8TF+sGp/0R
HUd297jLcCoTJeQvCmvcH8P4mxzpu4ZMnPkp83Hk6ijaLP63/toZBpq9Vs6U
uzSK9ikRn9TI81/sec3SffajeDEh/ESPGQMPUez7As1HUXml3eE9ugwM25m6
XmXHKMo5vfsatJ6BW96ZxNlNjGBunV+3YHAYbTwC4+uuj+DdJgqlhjyfXgMJ
C0cOC2sfPT5RZU1HPV18eLafhS2dJf1KZnRcetAt+9QfFp7iPRRyOUjHnCPN
K8zTWfhvKpw+toOOglOxXZou5PU555vfS9DR11PbRWKAiXcL9V9E5Q9h2Den
gORGBgaE6D/eIDeEOTuqaJOZdDy5e7x3ZfYAJkv/SJEr6MeF7Lm/XTt78Zrm
G+F9Lt3YaX5e5YFzF2o+PG0weKkNPWsOvthxrxUJB8Hz+48bsKnf+H25WgM+
+P5WE7hlqCBxa6NbQxk25ml/TxBOwcJGiQszlBQ8rao/bRGcBI41tquSA5Og
y8DqmHNUOfTJKmp/vFEOE8mQvEyrAew2pK3T76uHlo+rnEdr2kDqZ/RnjZZW
uOOcZ3Asuhve3lLPLAnrAqt3W49HPO2H7UEfrGzyeuHCo4o5nTV02P1Uuke5
YgBspC5nV/yjg0l0SW5F/QCYvZJwyhihwy/i6NcLHQOgHW/yx3/RMFQJnjc/
Gx8AmbI/8Rqmw6ATYjzzauUgFIh1Gwf8HgaVTfb7n7gOwmI/ftjOagYYR55r
6pEeghLfzZsDf7FgUYWlT70OHTRnX75TbmXB3izh8LxDdEi7RVlaRGfBjo4L
VyOP0iHG+Q+FPY+AiNYOyyPn6eBjdb/xtAEB14dri849psN+1XrvHaUE+BwJ
0revosM/x71OV06PgJudoCbYfBgU4sfiNC+OwC7/JX1frYfBqje+a67LCDwM
075ZYj8MNbYyx2PujUBfqujiVrdhoB0d0GmKHIGQAVlGXsgwRO8NltNpG4Gm
37k39tcOg610X/HiE6Ow+4COgqUhA0TCGyae2I1CTEHrb20zBiSs+a4sfGkU
JiSlwuRPMICz40PA6O1RULJ0MytyYECQpZ15dcQoOGeLHfz6iAElb9u7Hv0b
ha9nQo1EvzNgo3IjZeriGFiKByrF72JCdVLpdjfXMSi+WCcZuJcJHrszzw3d
HAOjjQGVDnpMKDZ4Ud7kPwb76O9S55kz4eRl86CMxDH4UbONOejEhGcp1aud
iTFQVox5JP+eCeOaZfu6ro9D/1rjVD1hFvw4mnKg7N44GOa/GM8TZ8FrpzfG
X/3G4W6wYu9mSRbsi7psfStsHCo6s35OLmNBgNCi69JZ40AJ1vDfpsaCNeVW
X3Umx6Fhi/iXg8dZYHaMLh9zbQKqo6UYfR9YsM65fs3jOxOwI0X/sesnFrD9
8lWcH0xAnPufxPEvLIjIebZbM3QCkvpe+vZksmBQfsfRurQJUF1kZOtYxgKv
7jsBc8YmgJdeUSoxxIJkl4U8e9dJOBpjfzpRmQBGvTpn7OYkUCvUxUI2EbBp
j8Wkj/ckXGDMobmoERBLeTsaEzIJ/sMHHRbtIiA8eCO9O2MSeq5NOvXrEeCb
rttqz5uEAEdjm94zBBTLXfw7JsSG9ZylGVrnCJi9E9DkM58NBwbsJAMuEnBb
r7Y+Rp4NMuzUHwucCXD5Y1vZvZcNTCNr1Q+3CbDm3Cqw92GDlASIKoUQ8Opk
ZN5YABuGXi1ZPviCgAakffMJZYPF9B2luFcEmDyemxUTy4bQ9EaJuZEE6C1/
mdT9gw1rAh332MSTdX0354vbbzZE+5i3tnwmALtaE+Y0s0Hrzi8n0y8EaCas
iV8zxAbnxigrxVQCtmqlRNsv4IDatSzq0VwCnKLrI8dkOeAfyNXzzycgQZjz
1keBAxtFr27PKiRgXeXe1zFbOLApxf/HRDEBK079Cuo24YDDvMBikV8EiNzv
97Z/wYH/5MefuPwlwPma8DG7CA7oSLw15bYQ0HxRceOZWA5oTbYq3moj4Iup
dfWpDA64GSd023cSYLGmesWJBg6s/3itq7GXgMKlw8zjbRxgCtdwV/cTsHGB
eJFlLwdO7xcssxsgQDCuc9FiggO5bx66/Roi4ENpZrrJYi7IoqwPlUWABLkI
jihwgan1psmQIOdAEnHi8DouSFfF7jAaIeDQKxWKkQYXYpebzOwcIyDjiX69
oTYXPPSvOa0eJ2CV19k4Az3Slzb+o0wQMOYQaaxvwYXIcxeaEicJsDmVu/qA
DRcsInytPdgE/DBrGtM9xwXnZ7bduzhk/WhKv9Fx54KCmd/sey4Zn61qTlRP
8v4et14Y8cj4rDUC8OXCQb7bFibp/RIP+7RfcOFiwd9Ly6bI+FBicrQiuDCm
I5CMIb10svCJZiwXFmc+z1orIMBrqNX2vy9cuJJ1zS6SNL2du21PBhc0ev2l
pKbJeNYtEd2dz4V9rZm0m6QLf2xv3vmdC8K7291bSG/MM0nUqORCfPDAZo0Z
AkKSne7taODC9IPCvoekBR/8zba3cSHk4+EY8rwNF17HrdvWy4UvgT520rME
1ASWcLYyuGBebbzWiLSm97+fahNcMJ2JHPAkHesxHblFwIX/kh2T4khLXlpx
VVWEB1fcyG1E+qbtbr3NEjxY2myg202629xCbtNiHuxwOSw9Qdr44FX6RgUe
BJUmdZHfH5Cl9axgwzoeVF+8lEF+f4CiemKQsioPznTd9ye/PyBgXfnZ9Ro8
CMwfOTNMemJZ36512uT9fGiaf0jbLpwzf60eD5i5E0uzSZcLrW5XMuZBBePF
ZBDp7WytFEUL8vrIhEZ70hF0qwerbXjw1EwnV5W0WKeH5apz5PVPLrxjkfFw
rQ9RWenEg9BqFf9PpFvKkgXy7jzYEB7hbk1aL7/y9wpPHkg719mLkE5KGYpZ
7suDq+X/jsaR8fd+s9ZQ7gUPns0Z2FdH5k917kcB8y0PnOwpkbakm92VU75/
4EFTaf7hHjL/aqYqcm7pPKDUhcX/4RPwtyDhp0EeDwx2TJrqkvbdrHpvdQkP
1sy7efgzWU8tYlv7Kut4cKfMi2pL1t9D95TXH1p4YLHecvdXsj7Vu7cZ3+7m
gV03y3uCrN9HBRrpG8Z4sCB+pawTWd8a7prePtJ8kEgr2DQ7SkBnV57GieV8
sPZkfV9EOsBk7+BWJT5w229mrCD76d8mqkm7Oh+S7jx+IUf239OuAyv3mPLh
Zpbn6UyyP/eYlNVIWvGhgmWZ6D9IQG++gW/faT68yw07Ykn2s+Zro+EQFz4k
810imsn+7z9i9o35jA+pDyVtvcn5EJxf5/Q9jA9E79MryzoI0N5kofg2ig9B
Nyca48l5EiJ6/JFBEh9grCUnmZw/kG9z7EMVH74NbSk5W0/2h0qH+O0/fKD/
4icW1BIQ9up0vmk7H3yE4kalasj94Ga/dobBh8PVO19GVhLwWsVh1EpiChRs
2QanyHOD7quh2K2LpyDL49y62yUEsEQuW4kpTIGl6cozz4sIOPDvCqZvngIT
EwN+TAE5L8KuPZU0moJNfc0/nDMJMBK5r/Ldfwper3i+7c0HAs4UaDbohUzB
NDUrW/w9OZ+us++Vhk/BItAzcYkiIGbwSsOPxCl4xPDLVHpDALfS5n5F1RRo
29Zfk39G9tdLzT/V0gJQNVNzPHudgNwj7PsmKwSgUWV9Vu8aAb/npm2qWSOA
czUtdxRcCeDfUvGq3SGAe/4OC9IcCTC1Xba54ZgAvIeNC91syH5XZnv9fSOA
5cJCBkZUAmT+pW62jhHAvyN1r6K0Cdjw5kpjS4IA6pvOLxnaQ4D5gr7NbXkC
EE0Wizq7jYBPRH1jR7sAnmxXFCaUCDiWk6raqzQNw4zTi88IkfVveKWZ9Xka
mqoCQtK/sWAkZI1VR+o0lKUmeFPJfb69ramp6ts0XL0i2lOawoIs5/1NXyqm
ofneH0puPAswVK7x0tA0jN5VKz/4kgU17UX1/RtnICPZyI/vzILxq0t/d8TP
QMWXY+tLFViwK+/XkerkGTCsXBVjL8eCmyLe1QXZM/BHhpvNlWaBIGy4KqJs
BmJC1DMk57JAJJ9WaT0wA8lRHou7R5iwVOzyz0blWSDK13/aUMKEPeFYWv1x
FkYHwpfvsWdCr1qytkPSLAxXp289d5IJwSVR6ULZs1A8UvfzkQUT6Iy77zXK
Z2F5vezrTH0mRID23XD6LAw8yPmRuIkJXm42K9LlKNTnImZ7RUYZ0Cf3t/ae
DYXan7PkmPsNBiTZ11GX9lOoDqeZO35fHoaPjp6MI3QK9anh7W1yZ4chwlX5
9SMWhTqX3/XsOHleDbh3m+CyKdTRrXOuFRkMw/nwNVGtc4Wo43LU9ZrryfNt
ndvUOxUh6qkJZ9uiNjoE6Mhmbb4iRE2qOcnZo0+HC4oWm3UmhKj0s9+V7IWH
IK1nbqb+yBxq8IH5h6pO98OhxaLKT4REqKoFWy7lK/XA9UMauxIootQ+t9zS
kledUPFpzLyUL0qNyLbILQttBgd3vuXq+XOpNzqbyxSf1cDbAxr8o3PFqbE3
bD6tjCiChK/HXxUuEKdmip1RW2lZBDlL7mioLBKnltJ/XZZbVASNfUXOM8vE
qRJztewFD2iwyM+k59Mmcerd69+VlzQVgt+PS5XTh8Wpj+lLr7+8lgtuB99H
xb8Qp4o7Ry38F5cK3snftWTeiFNN/za1di5PhSC5wWbPSHHqct8/11oCU+Dr
gJqseZw4NchXxtq7LwkGH+U/EmSTz+OpNpLomQC25U2uZq3i1N6El8qhn9/D
FfWphfmd4tR1Ti7Gi5+/A8/XqxKVe8Wp2SEZlYpDUfDG4XzfFEOcuuXQm8jJ
e+HQID5+Im5GnFpwIDpXNyEYelyXchYJz6OuUjmktYj+DMaa/3txZ+48KmPC
/uXz+wEg9dmr2nTRPGpA48DFGwnesEo69nLe4nnUV9Kda0rv3wbVW2Xiysvn
UVXjPOxDE66CVhf9Y9DKedSV0Vfu5yTYwf/+36L+7/+tff8HmnfwFw==
 "]]},
 Annotation[#, "Charting`Private`Tag$2827#1"]& ]}, {}, {}}, {{{}, {}, 
 TagBox[
 {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
 LineBox[CompressedData["
1:eJw12Xk0Vd/bAHDi3ntuSpJSylBpQlJKA9knjZSSCiFDZUilAQ2GopCQiCRl
ioSIylSG5xCRyDyGDJnvvdtcpvzOd633Pf/c9Vln3bP3fp5n73P22ivPXtG1
mMPHx/eAn4/vv18tTeG9UyvZVPrsfxcG1TTnQUKKTQmqzF0+TVth5UDYEgk2
lZFx+dIgbclHpw/LLmFTYcYbR5tpC08U/d0syqYy27U/5NGePa8Si4TZlHJf
bWw47cGKmBPac9mUzWRZpR3tNrVF/EZMNtXmRirvoV0Z5/bOeg6b2lO58zuT
dr7YoNGNfwRlKl38vOAfhg+uJmz3SYKS95oKd6QdzSlNDxgnqLR53U3raQcZ
qJ6PGCaotYEvtMtnMHgUxC9M4hHU5+7Nfy7TvqG0FD73ExRkUPWCtA2IsWV1
HQRlO09Jffk0Bk37c0WdrQRVcEGzIHQKw662SvuhJoKq/VPqJkp7Rea78nnV
BNW16Xl0/wSG+bKSLhLlBDXRtIE4TPvfYx+59d8Jqi0zNSb6Lz0+K2uPvV8I
at/vM567/9Djq67bchwIat3p6u93xunxof1tJlkEFXRsSDNzDEOM+CpVx48E
xd/ZN7hoFINV0c/BlGiCSn/8CF8epPurrBWeG0FQMVkTs1cxhkMRmYdLXxDU
sfZCrUs8DHI3n8b2BBLU1mIX/8McDLy1x4yl3AlqU1J1Z2IPhl9PctgKrgQl
Jhr641o3hop/8hk7nQkqeGxwTLGLjm8dIXrKnqB8z/lOBXTQ8fLML/I5T1CG
P7wGJpvp/gwrOTw3I6jutpovbj/p/phErHpjTFCO7YY/+ZroeKk4u+SfJCibPY++9dRhmOnapjyxj6B8FPYkGVRgcN8fH265hqDUPfO5X/MwUD6OOtIr6ec7
Tdi8AQzTlYfnNKwgKC29a9V3cjDYmfAsNMUIakdAuLXoJwxnbypvVBAgqOP7
m9NKkzGg+JysoTYW1ZpYYef3AoMj9ruc0MyiqNzG0ZYQDOnbzKTPNbAoxRrV
S7LBGBTz59yvKWdRAe/k9wT70/n8eVArI5dFdWlvCp3vgWFyXlWD80sWJS3Z
U3D4EgaVE9He20JY1MuUt8JCFzBcf26vxgtkUUeX3zTOs8DQt0Y80tSHRT1j
9bIWmWJoUDe20nBkUXr/1n/SOk63f7V7jGXAovyND1rM24rhWs2kaOAiFiXZ
onyxbZgHwbrHDIMWsKgs4y/PS3k8yK6IjnoqxKIOZvsvfN/PA2bZEaUQARYV
hmfbznbw4GVhuHbYCJNyCNRfYVPJg+J0Da831UzqfuT1UdY7Hkg9957JCmRS
ximcuQ/NebBP/Ne+nMdMSt3p3D1XYx5ceKrsm+vDpHBpoNVVfR6kBjRL5N1n
UjZfN7nu1OaBprfijq92TGp8bI3wtR08sHequl5xgklZTuXm3ZjPg5IzEr2/
FzEpiQfhC7rfc+FYhBqaXMCknvIutgslcqGmzSR4wTwmZSLvHSwXy4WWc9H7
dgkyqSPzTVJ0Q7kweEEh6vEog+KX2l+ifY8L4jfUDXfVMqiJruSfgzpcOO93
tvRxMIPa+fjV8GgvB2ZyE1J2LWNQkh3qhkcFOVDatGnelBiD8n76+aTY9AC8
HE+1yhJhUME1r22qRgZATRGk1AgGZcKUGlbpHADHsGrf3X8EKVJY/31U3gCM
O01bk7WClPVfNSafywAM7ji68kCAIGWhl7xuiNsPnR+GAo6zBan2kgU62z71
gUoUs+aRkAD1QUDrsbNCD6itqlL0+ctPmUylz8+f8xtWOAm7+PbzUds+7F01
+agNKl5uNrBsmYXbgd23F8g2Qbn1x55tWTOg2nfP2lC2CmI3VO7QyZmC039U
hkS+FIBSaMXV698mIDFo0sKCGwMrlXY3LXn7BwqMtob2WmSg/s/7Gcz3Y8Dq
sH1nf/w7Wn4xy/ym7wj83hXRndxRi/6ViL4evDYEX37010BQC7JD805e+MMD
M/3OYbu1HShTuYwaS+uHG2q+l9nOXSh54dcU8ZxuqPqdfePcnl6ka7JQq+1t
N4gnOpaEHulF4wnGnXGh3fBLP3zxd/1epLZvZPGuW90gxl7jscS2FxXfkHEy
Vu6G4GH+Kwahvajtp+P+qPgu8Jw4FO0x1IsWxm5qkgv+DfzS/q+vhPYhu13P
BdSvdAAuks1vrO1HQUHLm/VMOqBPRlFJ6Fc/SuWFpV7R7oD59r+ktvX2o/FX
ryyi5DugbYjf/vpkP7ollFgk2NsOpIxy+hOpAXSnOdfnu1k7HNsYbG1lMYC8
7vxedFq3DSD/hJUOdwDFNVhyru1pA0PFNdKPxgbQty19Bd5KbcDn3sfOnxlA
c3u4DtnCbaBvKntFTJiDJCJ4ySj4F2yQKt9hpMhBa/aI7Sh70Aofl3tX217m
oF0epod6bZpBYOInL7yLg779dXltcrgZqvzHfc05HGRw6eWcWvlmoCfFGskR
DnI40Zidx/kJbsd/qN3l46KUlSc2v7D9CU/qu5t5Ely0LveAxNHrTbAi18bR
8SgXif3ZyPl4uwHUHHWMdqRwUbTNEU05wwbwDlmpJJ7ORVtabWIjdzVAocVk
GS+Li3QK35g9mqoH46VLTb2KuMgncGWtpUs9pF/5lHy+lYvmKC3OXeZWB2Ud
jDpqLg9h6+nHd71qILhVHM+c4aGad5tFjlrWQOKL+Joz53jo86il/4p9NXBN
//X8NGsecnet9P80Ww3qygV2mnY8JBESGzByoxqSNvp2s714aF+RTqCVRRX0
t1dK9ibz0Ib5notU9lbBjjE3r+xUHhI+kRUouJK+/898k9cnHmpsXRMU1VwJ
e6ldCowvPGQ7Phn080QliJaFZD+t5aGQNa+Dj2lUQHRhgKjIBA+5XGxaIiVT
Ab4PHaP0Z3io8Ky0YuNUOfTGNeoH82Nk6DiquMiuHDLTZVUm2Bh5xIcrPTD/
Abgg4tlJCYyaWCPKV9RLoW8tk2O2E6P7BS92ob9FoEuVHi2+ilHvj52BFplF
4KQQL5djh9HRxvoBn1tF4FA0uyXhBkYSvEVhDX+/Qt2o8tdLzhiliPvOXpso
BGO1io7ABxi12DgXxEx+gamyWaMLLzHScJCQ/P75C9RcsUhsC8co7m6mw5Dj
F6g69FBKJwoj+6DRtepT+ZA+P8pCPBajubmXHtZP5cHY0yDbg8kY2a76/FJs
EoA6spSnQGG0c/u4trkjAHvbyOK1+RgJHtkymzSZC1JehXriBRi9cEgwPziV
A09unVvZUYRRcXHoWsfpLDg0crNsaTlGgS119V+dsyD010hyVQVGJsOiDxfN
fAZTe+qNexVGY8t9BhJnPoF+RFhtRS1Gq644pfz6lwEjj8Wk5zZjxL2fYa5w
NwMu+KRGurdglBkyInp7Nh2S7jpv/dOK0bH8iw6ifOkQarc4oKAdI+fFxrv2
86dCynilGF8PRgflQgYC3D7CRv25Uqq9GImimpet/B+hej+lYtuHUbz1kdmb
cz6AjpTD0+wBjOqy1AoSBFJA7cVqvkmM0YrbZ1uH5yVD98ybyMFBjHwdD2/1
F30HrJyIsF9DGF10kWwrkUyEBA9mYuwIne87TBXr1W9hfhaRc2cUIy1X7MPY
kAB5MTEbjo1hJHc/bzu5NQ52sH6LNY5jFOqe8Khl5xvo0toQ+OQPnQ/PwE5H
FAvlDYcv7fuLUb+XxeM0rRhw93BVDJig6837aJeuTjS8XbBXXGESoxKf7aqD
p15B8+e9hkA73o/dI2ceCcsu2PN+TGG0Rabrtn9ZOMjePocOT9PjX52x5nvD
S9AsEO4H2sNrHlYyfofCt3OGPIUZjCrXG7mQOAQ09isceUI7RX7jBqfJYPgg
d0lgkLa/4mxNGuMpuCQIiB34h9HVzZWugyKBYL+p1SWIts7WaAX5FQFQ/7eX
/Enb1LY/5ftRPzCRWHRGYhYjKXs/Yo+FN6g4a1cdp916e4tZupMnCP/0jnSj
HXa3LkP+yT1YWAxF8bQz545JaRx3ARzXcbCE9vYlu38o3HGA5owBmU7aF/fO
nVLUuwiBArW6o7QrUrd+JMz04fSV0JYZ2jX2iepb3iM08WFn3ux/z7+5v0/n
5TlUavhhZoK2Toph4e6oa+hDESOQQ7syRnTJCfvbaMmm7W71tOOPWCinRrui
gdDDxZ9p9x/I+6n+yB0l9WlaB9OW2yPp/u2GFzrzY5e5zX/9Ub2tcNLMF7lW
rP+oQrsu1MYGy/ojqSMyJlN0PMafheSmLnuCsq5tOptJe8nTr6KOwkHI4IAl
XKa9/cmoJRIIRpei6xyW0zZ4vCpL8O8z9FslyCOPjv8tX50FJZznaMn9VJ4p
7UzPxIyTdWFouYNzmQedz4b7TUIS3yNQ8H6DvfNpO5OCKfhXJBKVnRV9RNdD
2O4tgmk1r5CAqxzlQNeLoprmO/HyaBRZMhTWStdX7i4zA8dvMehuDrsO0W7d
7peIcmPRq5OFpwbo+rRVea33KvMN8rP6HLaN9r+t2XyMj3Ho7+wr8hZdz1Jb
+k+WvElA+7IYId10/ZsqHJg5GfAOVfvdemJFzxe1kFi/8chklL9GKN+Unk/z
7gmIHDFIQWlSh0aP0vOtj3suimv1HrW2jZuLcjF6VShboPTgIzo+pnBxIz1/
/adqfPkXpKKQrcxPLd0Y3dnscaoqOBWpcFTmeXRhZBTW1W0Xm4bMDdYUZHZg
JOYQy84ozEADCdc8Uun1ZM5bvaoH2pkoyE2JLfkTo8E25guD2kzEjXn61LkR
o7IjVgqTvz+hemW5Epk6jDxl1x/bLZiNhCy5yTM/MJruO1livpJCWhrx7WzA
aEQwSVHLgkKDiRoKndl0fUgzArfEU8hIW9Dr42c6H6fSjAQ256GhglsOO9Mx
SstbzI0h81GQyezOpkQ6ns/rFvSaFiDWa0++qyEYWaQq2ldEFyCXpj+Jn59i
ZFzu2ZDZU4A0ioMdpp9gdJixPerhlUJk33nDxOIRRuuvPdsif/crEs6diil1
w6j9kMEp2/BitE9pHQxZY6Te5Wxe1lKMHn/b8qrbgl5v3KIuK0h+Q922wtXV
ZzHS/dzv0f/iG7qzUXXlM2OM8uVd0i2flyDj7RPuecfo+Au/EjcNKkX6OQkr
YrfS60n/GGfd/grk/jrAPfUvD5ntIOzqz1eguO7UrNRRHvLzlJjwdK9AjWwr
46RBHupfhRjdXyrQBdbl1ge9PPTKyEsyRqMSBZsv5++o56FFZRJHZcgqdOv9
yBv5NB4aTUbJS1VrEOmhJLbChodK5VVFr56pQeczPmzPO89D0W9UHIru1qBD
Y6OhZ0x5SDdio+qNghpUMjm41vkkD733W15UrV2LPrbVu+qo0+/3y39a/czq
kPuV1a/1RXioRy5ZmOHZgPauGL81kMSlSzvhmnFcA8Km4V+d3nBR8KrYmo8l
DWjdHQ9vgSguOiARFnp2QSNapuLpPBHIRTFsn7VUSCMSdhBTv3ubi8x6LdWd
3jahRM69rhENLmp6LWU7VNGMFhmfTX9czkHpzETduOFmdHvN1/htxRwUaLVz
u6lYC5KRvx5ZTXHQkQ0n+cr0W9BuyfqIP+85KDfx4ZO41hY6/zkybYEcFPVx
NN2U04ocP7jzb9PjoFSzrtnu+21opcZ6y5maAeRkm3XoVEQHyhfSmfcwqx9p
oLHzwskdKDYk3ar9Qz+aK7LJrSi3A7nsZh1XTuhHIe9ffdrZ2oFMlEtqv4T0
o/TRh3JSkp1IyrGr45lDPxp2NJjXE9qJjqpM9M5X7Ec2D8bKbwX/RnZRx9tJ
+vvZIHKT/stH3YiQLzfcY9aLLB98m/Oroh/JJ9xWErHuQl/c5eV9v9PfeX6i
Ave16HYWduWLnR5C6j43NL9xWtDIriL19hsjyCc/tB6U61DylfkTZ6+Oobdl
0T9yNcuQ4N1ut7NBf9DNiew6//JM5PZ8taZ40ATauDnZQsjzJRwWvLuh4OEU
+i566maO/Bd4p3m5gRc/gy6qqxiyOyphRygU/ng9i67lpIk7GjTCu7NV5JJu
PjJ1NuDB+zttYClzUn7PKD/pf8y60misEz50stIODM4h+VNedWS0dYOWGGOt
D78gyf5yxjI+tg9WV+5/9YAhSNZpkEmKKX0w/chTyp0tSN4yMwpMovdjSSxC
3GWhIFlf9kM5pLQPRKbmEldWCpKjpXPdZYb7oLZdpF93jyDpeGaJ4ZRqP5gl
r3gn4SZIxvTg4W8l9D5Ia6tKAh+D7FON7tOpGQC8982rJ4IMcqA6f1KweQCs
d0sscCIY5KYctuUHev9opMTXe1iEQXJls/ZODA8AuaT0OVeaQe7+VNCrspAD
Qh3nZpQQg2w0vH7w6hEORN4OLMhwYZBjQ47Ly3M4sMyOuTnSjUHO828SeFvA
gSeXbod5eTDIoU8twq7fOeBhanrj9CMGmdmt5bm4kQM2++XXT71kkD7898q4
IxzYuvCLj3o2g7zwvsZAdz0XvsUN6xZOMkjGOcenbT5c+Fs0J2vOLIMsbF+c
avqEC2t7RFeTAkxyecBR97oQLtxbozzyWYhJZrzQ2/L2NRfUXtkFpqxgks//
uDwZzOVCyovR6hfqTNK5NbehD3MhxG/85PV7TPK1kd5r78M8+JrEzEn2ZJKs
zd6R0zo8GCtdsobrzSSD51SKW+rxQFdo+5hVIH3/rIe9tDkP5nndfHomhklm
xj/Olr/BA1e3v7WHvjLJ02cRig/ngbX9pJ70XBbpGqh6VLGPB0lGDzaICbNI
t/eNLhpcHgxriE0ToiyyqltG8tgQD5wWKkYNL2ORtSfSY49P8MDvnflA4QYW
+XJhRskUgSGtt/juJU0WmdY96ta5FsNk+Sldc20WGbjJaOcdOQzqGR2yesdZ
ZFzG1eMLFTEUe0x/Q6dZJLlBIVJmG4bmVUpiiy6wyIiHvyI6NTDMOfMs7pMX
i1R13mw7aYzh4D5Zp3e+dPvNmd8lzDD4yr/XjvZnkQ/rq5yVz2FYPFky7BvC
Iiv4PtVpX8Cw/tk/NbM4Fmkh7n9yrQOGo5UWlcxiuv17MQ0WPhgCM4ejp76z
yGgIWCrkh6Eh4u6NwXIW6XC6NjLOH4O57fPlTfUsUtGr6kHpUwz2QmUWST0s
UrxuS3hGBIYX+7dOnmAR5Oz5TVYSHzAkJOk/yxUiyIG7A3n3UzFkLnbaukGE
IPuu8dt1pmOo68qz/beUIOOmDGo9sjCIeB7rjJMjSC1fxQd6BRikedddF20i
SL6EFW7Xv2JQ1AuWvKNMkJH3uN/dizEcXtuif0KNIL+3fzzuW4rB86tN6Yw2
/X+ZtnnrajA8VfS7YK1LkFIqzc5jtRhigt8zq/UIEpfy7fxcjyHP8i8ZZ0qQ
Bl7hgWt/YphmeqbpXiPIYvnyL97tGISuxOvmOBCk0KMwT6FODBL1pXidI0GW
2T0LuPcbw/Y3i+Rm7hGkWNDBOyd6MFw/GBX+JoggDQ2rY105GNySC1RFnxPk
Y6vVER+5GPzFexucwwjyn7dpczMPQ1KP4iLdWIJsS9kqKzqEIfuYbkp2AkF2
XFypKDWMoSTDQXtdMkHavItykhnB0Psg+8F0BkFuapVtY41h+IN/yVplE2Q1
GTjOoc00EMivpAhyevGlY8XjGFav15qO/UaQb+NPFpn/xbDF//LzhT8IUjOs
p0t6AgP511/FuYog4fLA/hraJsX1V4//JMgvny59k57CcFlpan72L4K8qeDB
SaftHCL1du1vgrxqs09n3zQGbz6NQwG9BGlpfHe0iPZza4uuKQ5Bvuyc37hn
BkNchdc9yyGCHG4smXlPO31HonTlGEH2Lww6u/QfhsLI8mzVSYLM1NNiOdCu
IUZOx/4jyP2XKgeKaHdeXfJHRIBN7lkgIrJwFsNww84gJxablB7Ddjq0+fac
2dwtxCbXlZ4R96S9IN71h44Im7RT1Zx8T1tqYczFLDE2OdkRs6Lmv/OB20XE
2mVs8omR5R3Of+cH7f2v/SXZ5LCKp/QU7f87XyD//3zhf1AgHoI=
 "]]},
 Annotation[#, "Charting`Private`Tag$2871#1"]& ]}, {}, {}}},
 AspectRatio->1.5,
 Axes->{True, True},
 AxesLabel->{None, None},
 AxesOrigin->{0, 0},
 DisplayFunction->Identity,
 Frame->{{False, False}, {False, False}},
 FrameLabel->{{None, None}, {None, None}},
 FrameTicks->{{Automatic, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}},
 GridLines->{None, None},
 GridLinesStyle->Directive[
 GrayLevel[0.5, 0.4]],
 ImagePadding->All,
 Method->{
 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
 AbsolutePointSize[6], "ScalingFunctions"-> None, 
 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& ), "CopiedValueFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& )}},
 PlotRange->
 NCache[{{-Pi, Pi}, {-0.9999998782112116, 
 0.9999998592131705}}, {{-3.141592653589793, 
 3.141592653589793}, {-0.9999998782112116, 0.9999998592131705}}],
 PlotRangeClipping->True,
 PlotRangePadding->{{
 Scaled[0.02], 
 Scaled[0.02]}, {
 Scaled[0.05], 
 Scaled[0.05]}},
 Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.734043839316129*^9, 3.7340438474496703`*^9}, {
 3.7340438959856544`*^9, 3.7340439382256174`*^9}, {3.73421392892737*^9, 
 3.7342139777068596`*^9}},
 CellLabel->"Out[6]=",ExpressionUUID->"c87eb7e6-3fba-43eb-acaa-519081c02b59"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Show", "[", 
 RowBox[{
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"Sin", "[", "x", "]"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", 
 RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}]}], "]"}], ",", 
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"Cos", "[", "x", "]"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", 
 RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}], ",", 
 RowBox[{"PlotStyle", "\[Rule]", 
 RowBox[{"{", "Green", "}"}]}]}], "]"}], ",", 
 RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7340438311200304`*^9, 3.7340439376756506`*^9}},
 CellLabel->
 "In[406]:=",ExpressionUUID->"e9cec355-0fb2-4697-956a-592cc5641201"],
Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
 TagBox[
 {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
 Opacity[1.], LineBox[CompressedData["
1:eJwt2Xk0VP/7APCRJZUIlYqKFqUklZYP6hmRiLIkSVK0UUKiVYWkSGUplSwl
UZR9y/YMEgrZQtbsjJm51tkMfvd3zvevOa8/7rn3Puv7nlGydzE/P4dCoSQL
USj//3vIUFJ3SmkeLfC1fnXPTu9CrUzPEfFV82jxWU3jCqGnUVVpOHLpinm0
kJcZeg0hLijJK+Nuk5lH2/i56HZMyH2s/eSd5DBnHi3A+13l0ZDnaCU+ubyx
W5z28MBCi2PB0XixrHUk5YM4bSfyC249TUbfA5+jLqwXp6kv+ay38h7i1Qa+
TKjsXJpvfsGB+Qdq8OepFYO9smK0bzdKNPL/NuF0YUKK5nJRmnLiqt8GjA7s
SRsNNpsnQuvr/3uiVLwHd70Xa3i6QJimODdB6JB0P2qvqVN7whWi8a+V7Uzk
DuI72QUaRyeEaK7Xc9buFB5CYVG9/+RHhGjJXgtX5iwcwp8DmbqJA0K0ujMa
yp/XDKHV1zdWvxqFaPuHlursNh5C9z12PgsyhWj2F2MWC0UN4ZcjI3+eXBWi
Hf7b5LFbm44KdyTvBtIptISlg9Wv7IfRMfanXGQ/hZY7e3L1t0vDmFXll/a1
m0ILORdaVe82jGaKswPVLRRattF1rUmfYfQrJcylf1FoO44EKA/GDCMhVbsx
LJFCSzm7/klg1zAWx4Y2RDtRaMvCLK4Un2CgVLWJS4oDhRZbNKdigR0DbTgL
5hedo9CM2lr0jzgwkGPoC902FJpbvXBM4XUGqhLuCesOU2hP09w+Gocy8OV/
ll6ft1BoP/Ukzyj8YmBNxDarC+2z+PAYsu/tZCIl1iWsvWEWr7LXBlzTZqJ6
4tcGi8pZvLlGvfK0LhODvqmY6ebNour7MxarzZho2qh0SPHNLO6KCd6n6cTE
GikZ7RaLWSzc41nV/o60z9jqI5UzKHVZk1ktzEJKgLptackM2vQ2pWXOY6F6
sHOEdt4MPjqXzQiVYmFQNH3Z5oQZHDwZnLVLnoWm+d3S4o9n8HjGE/cl21lY
M1knXKw7g/9KXNV32bLwt0P6wM68aXTwcezkJbOwrpNjui99GtvTFM7ezmBh
o6V2rn7iNHrsrjIcz2Fhm15p4PG30/g0IkeruoiFdMWmbbfuTGPHwbWhG+tZ
KPKXfydfaxrFp2uVnCdYKG4Kfd93TKNCuJOFO5eFC8oeHKnaPI0lOSp/3QQs
lMmUUOqQn8ZAkPtjJULg6uBVP2anBLgvyPNOuSyBmob7F+nmC3BXYkTSzm0E
7qP53TLKEGDHr/QgmgaBOrt/dR/9IkAfIX6m7h4CDdZbZJ6LEGBOzZsf24HA
Y0IXrP08BWTc9g6mGxPo+s0/tkJbgCzGMnedCwS6q1cvrNMQYLlHwzpTRwJv
xMvcaFEVILMoa8FxJwLvvXxrOKwgQEJ09OZhNwKfXP3Kkpiewtdr0/Lb7hIY
p1K7x7RgCk9udTHyDSXQYUNqkVfmFI4axmyeF0bgpvXBh1K/TqEBg/LQ7zWB
SYpmNjJRU8iU7Xl3KZLAbLna+w33pnDCS+pKcxyBt5ekiovemELzjgtiSp8J
1JYNDt7pMoUS4qcW2ycSSJM0+xB2egpbHgoFViUTWC5a+8OKOoU/DoW0GuYQ
GCCcauK/Zwq3hGkusMwl0FgouPmb+hQWUBwSrfMJrBWY0lcoTWFdyEWtwzQC
W8ZrFrYLTeG53ROBTWUEDnfVWNiV8FFjtfALrz/k83amtAfn8XGTg2aYbBMZ
v/agC8XpfMwKXTknupnAiWbTm2tj+Zhy23VJdCuBgt81b/t8+YgqTop6XQQW
VqWsW3qXjx+9l18I7ybQ61fQV30PPqq/TJcZ6iFQtMwU48/zkVHoGu3ST6Bk
YU23oz4fM3aV31MaJrAmL+Vy+D4+Pvj7aFyTQWDIt6CJn7v4uGRksNKYSeDS
TFMx1Q18TN0f+OUEQWBzmvpzm9V8VHQyS7MYITA8ZdGyp3J81OwtkDcYJevr
S40Kay4f/z6NW7ZsnMDuzylpqyh8HFHLSJwgHRsfpGXC5eH49JP3FRMEbvxg
ejhlkIdVvJoMGzaB9Hfqjf/+8XDBio7aFRwCv0QtOi39l4dLTCZNa0mrh9e4
ulXw0PTPS/cNPAIfG1+fw6PxMFCky7SB9L8Z+Rf3c3jY/qlJ4yafwD2pRevF
UngYVG6kKDtF4POzF7MD43m4lSUt+5F0/5KFhrLRPHy4UWihmoCs//K0ljdh
PMycP74wiTRLdWY67iEPpz+ZrQudJlC/88PzLXd5eFjp3n9c0lHBhkoZ7jwU
fFM9ZjFDIFuXSNN04uHxCN0b8aQPs1/oFZ3l4a7ridGjpGM/aTYePMnD2Vsm
1dtnyXxa/7tYbc7Dr7YrhS+Ttljox7M4xMP606L7wkl/wc1PWnV4+HEv/x6N
tIhbrYL9fzzkaI+WtpO2WXcjaVCdh7obumXGSGc0KlBdNvIw4VDZ+WnSC/yL
aydX83DiVmThLGl7LYeznnI8fClxbiWPdC5z4eQcKR4mdij4DJGWeZfu5y9G
vo9pJaOG9CXzE8sWzXCRbXDrVDLpYpHZz2GTXExW39LgS3pFdqzWSiYXO9nj
pmak3RwPVX3oJS3ZVr+YdIX8iO2mNi5+cGXb/CbfX7H65UhKPRe/vbZkeJG+
6aXls/sXF/c9lvFRIV2zvUu2sJiLbd/3r6og47uxz++jXi4XS6zmFJ0m7fVK
dfevVC5G1TlfYpL5aTasKzf7zMXnBz6tcCOtLrhh3fyOi+sMa2uZZH4fJa1k
2L7mohFPMugM6Y4zJXf7nnPJvDw+9pOsj12yjlJOj7hYcM5xzWbS/Tcytt+6
zkWPApn6Wi5ZD5usv89eId//oXa2HOmwttljfue5qOP57IMFWY8HdIxuhVpw
0evk45fpk2R+53fj1+1c3PLeuU90jMxv/iMzjU1c/MKxlxYh+8PCZUtPrhIX
7dLuHOSR/STccFOsfBEXRzQM6svJfrOPlDrczeJgtZG8m2CQzI9JZodDPweV
xAlO2gCZnzknXYl2Dm7d6xtwhuzn4gtxoYJKDgpbXG16R/a7kvrelqWJHDR9
YSmf1U7OJ/OhMLUPHBy+4raV2kbG2/3lUf23HIwO9bxT3EJgdQ6z0uMJB9OC
6/KTyflzWycKGy5z8KTdVkK1lsCPZw95Ms5yUNrSuurmbzI/D9l7RGw4uCEs
pD+/isANP4+k7TDmIMu/49eWnwQ2mM/GhqhykHF1t3NaMYGz7ol2Ces4eD1B
ZhuNnIebXh1fVaxAvl9U6PYfhWQ+W5NfjUpwsG3i+nguOU+3nDsTYMpk49zR
wtsH0wj08yhykUxi4zf++SXMaAJTX11RVY5jY+29JMp9cr63fVs+tDeKjdXz
/9sx7y2B22eu2l95xsaSC3ddxcj90Om35lilMxsrRyROxT4h58HrB5oBW9n4
jl38zNmDnDe5B0TFUiex7LGElo4ugYnB2T+vfZrEb/Ie61+Q+83JQSWoK3oS
3x1QX9ahRSBzyUL5gmeTuNq7Z8Vxcj+OuDaouztNYodvanr7OrL/lc/adG+Y
xC/+HLV95L6dE+qVXhg1gT5hPWkW+SwscRy7qRo2gdSUh0MB2Sz0pZ7bF/50
AkuP+5rkpLFQlHWwwsNzAufPX5vM/UTud0OpTlXrCcx6eqBX6iULJWcj579d
MoFOiXaOby6zUP5ynt2NwHEsEe32XCvDwvDycv2FvuP43NtAzlaChSuUGzd/
uDOO+fEq9kFipLtGJqsvjaNTT4VUG5+Jy44rBygbjqPaVhGuVA8TF+sGp/0R
HUd297jLcCoTJeQvCmvcH8P4mxzpu4ZMnPkp83Hk6ijaLP63/toZBpq9Vs6U
uzSK9ikRn9TI81/sec3SffajeDEh/ESPGQMPUez7As1HUXml3eE9ugwM25m6
XmXHKMo5vfsatJ6BW96ZxNlNjGBunV+3YHAYbTwC4+uuj+DdJgqlhjyfXgMJ
C0cOC2sfPT5RZU1HPV18eLafhS2dJf1KZnRcetAt+9QfFp7iPRRyOUjHnCPN
K8zTWfhvKpw+toOOglOxXZou5PU555vfS9DR11PbRWKAiXcL9V9E5Q9h2Den
gORGBgaE6D/eIDeEOTuqaJOZdDy5e7x3ZfYAJkv/SJEr6MeF7Lm/XTt78Zrm
G+F9Lt3YaX5e5YFzF2o+PG0weKkNPWsOvthxrxUJB8Hz+48bsKnf+H25WgM+
+P5WE7hlqCBxa6NbQxk25ml/TxBOwcJGiQszlBQ8rao/bRGcBI41tquSA5Og
y8DqmHNUOfTJKmp/vFEOE8mQvEyrAew2pK3T76uHlo+rnEdr2kDqZ/RnjZZW
uOOcZ3Asuhve3lLPLAnrAqt3W49HPO2H7UEfrGzyeuHCo4o5nTV02P1Uuke5
YgBspC5nV/yjg0l0SW5F/QCYvZJwyhihwy/i6NcLHQOgHW/yx3/RMFQJnjc/
Gx8AmbI/8Rqmw6ATYjzzauUgFIh1Gwf8HgaVTfb7n7gOwmI/ftjOagYYR55r
6pEeghLfzZsDf7FgUYWlT70OHTRnX75TbmXB3izh8LxDdEi7RVlaRGfBjo4L
VyOP0iHG+Q+FPY+AiNYOyyPn6eBjdb/xtAEB14dri849psN+1XrvHaUE+BwJ
0revosM/x71OV06PgJudoCbYfBgU4sfiNC+OwC7/JX1frYfBqje+a67LCDwM
075ZYj8MNbYyx2PujUBfqujiVrdhoB0d0GmKHIGQAVlGXsgwRO8NltNpG4Gm
37k39tcOg610X/HiE6Ow+4COgqUhA0TCGyae2I1CTEHrb20zBiSs+a4sfGkU
JiSlwuRPMICz40PA6O1RULJ0MytyYECQpZ15dcQoOGeLHfz6iAElb9u7Hv0b
ha9nQo1EvzNgo3IjZeriGFiKByrF72JCdVLpdjfXMSi+WCcZuJcJHrszzw3d
HAOjjQGVDnpMKDZ4Ud7kPwb76O9S55kz4eRl86CMxDH4UbONOejEhGcp1aud
iTFQVox5JP+eCeOaZfu6ro9D/1rjVD1hFvw4mnKg7N44GOa/GM8TZ8FrpzfG
X/3G4W6wYu9mSRbsi7psfStsHCo6s35OLmNBgNCi69JZ40AJ1vDfpsaCNeVW
X3Umx6Fhi/iXg8dZYHaMLh9zbQKqo6UYfR9YsM65fs3jOxOwI0X/sesnFrD9
8lWcH0xAnPufxPEvLIjIebZbM3QCkvpe+vZksmBQfsfRurQJUF1kZOtYxgKv
7jsBc8YmgJdeUSoxxIJkl4U8e9dJOBpjfzpRmQBGvTpn7OYkUCvUxUI2EbBp
j8Wkj/ckXGDMobmoERBLeTsaEzIJ/sMHHRbtIiA8eCO9O2MSeq5NOvXrEeCb
rttqz5uEAEdjm94zBBTLXfw7JsSG9ZylGVrnCJi9E9DkM58NBwbsJAMuEnBb
r7Y+Rp4NMuzUHwucCXD5Y1vZvZcNTCNr1Q+3CbDm3Cqw92GDlASIKoUQ8Opk
ZN5YABuGXi1ZPviCgAakffMJZYPF9B2luFcEmDyemxUTy4bQ9EaJuZEE6C1/
mdT9gw1rAh332MSTdX0354vbbzZE+5i3tnwmALtaE+Y0s0Hrzi8n0y8EaCas
iV8zxAbnxigrxVQCtmqlRNsv4IDatSzq0VwCnKLrI8dkOeAfyNXzzycgQZjz
1keBAxtFr27PKiRgXeXe1zFbOLApxf/HRDEBK079Cuo24YDDvMBikV8EiNzv
97Z/wYH/5MefuPwlwPma8DG7CA7oSLw15bYQ0HxRceOZWA5oTbYq3moj4Iup
dfWpDA64GSd023cSYLGmesWJBg6s/3itq7GXgMKlw8zjbRxgCtdwV/cTsHGB
eJFlLwdO7xcssxsgQDCuc9FiggO5bx66/Roi4ENpZrrJYi7IoqwPlUWABLkI
jihwgan1psmQIOdAEnHi8DouSFfF7jAaIeDQKxWKkQYXYpebzOwcIyDjiX69
oTYXPPSvOa0eJ2CV19k4Az3Slzb+o0wQMOYQaaxvwYXIcxeaEicJsDmVu/qADRcsInytPdgE/DBrGtM9xwXnZ7bduzhk/WhKv9Fx54KCmd/sey4Zn61qTlRP
8v4et14Y8cj4rDUC8OXCQb7bFibp/RIP+7RfcOFiwd9Ly6bI+FBicrQiuDCm
I5CMIb10svCJZiwXFmc+z1orIMBrqNX2vy9cuJJ1zS6SNL2du21PBhc0ev2l
pKbJeNYtEd2dz4V9rZm0m6QLf2xv3vmdC8K7291bSG/MM0nUqORCfPDAZo0Z
AkKSne7taODC9IPCvoekBR/8zba3cSHk4+EY8rwNF17HrdvWy4UvgT520rME
1ASWcLYyuGBebbzWiLSm97+fahNcMJ2JHPAkHesxHblFwIX/kh2T4khLXlpx
VVWEB1fcyG1E+qbtbr3NEjxY2myg202629xCbtNiHuxwOSw9Qdr44FX6RgUe
BJUmdZHfH5Cl9axgwzoeVF+8lEF+f4CiemKQsioPznTd9ye/PyBgXfnZ9Ro8
CMwfOTNMemJZ36512uT9fGiaf0jbLpwzf60eD5i5E0uzSZcLrW5XMuZBBePF
ZBDp7WytFEUL8vrIhEZ70hF0qwerbXjw1EwnV5W0WKeH5apz5PVPLrxjkfFw
rQ9RWenEg9BqFf9PpFvKkgXy7jzYEB7hbk1aL7/y9wpPHkg719mLkE5KGYpZ
7suDq+X/jsaR8fd+s9ZQ7gUPns0Z2FdH5k917kcB8y0PnOwpkbakm92VU75/
4EFTaf7hHjL/aqYqcm7pPKDUhcX/4RPwtyDhp0EeDwx2TJrqkvbdrHpvdQkP
1sy7efgzWU8tYlv7Kut4cKfMi2pL1t9D95TXH1p4YLHecvdXsj7Vu7cZ3+7m
gV03y3uCrN9HBRrpG8Z4sCB+pawTWd8a7prePtJ8kEgr2DQ7SkBnV57GieV8
sPZkfV9EOsBk7+BWJT5w229mrCD76d8mqkm7Oh+S7jx+IUf239OuAyv3mPLh
Zpbn6UyyP/eYlNVIWvGhgmWZ6D9IQG++gW/faT68yw07Ykn2s+Zro+EQFz4k
810imsn+7z9i9o35jA+pDyVtvcn5EJxf5/Q9jA9E79MryzoI0N5kofg2ig9B
Nyca48l5EiJ6/JFBEh9grCUnmZw/kG9z7EMVH74NbSk5W0/2h0qH+O0/fKD/
4icW1BIQ9up0vmk7H3yE4kalasj94Ga/dobBh8PVO19GVhLwWsVh1EpiChRs
2QanyHOD7quh2K2LpyDL49y62yUEsEQuW4kpTIGl6cozz4sIOPDvCqZvngIT
EwN+TAE5L8KuPZU0moJNfc0/nDMJMBK5r/Ldfwper3i+7c0HAs4UaDbohUzB
NDUrW/w9OZ+us++Vhk/BItAzcYkiIGbwSsOPxCl4xPDLVHpDALfS5n5F1RRo
29Zfk39G9tdLzT/V0gJQNVNzPHudgNwj7PsmKwSgUWV9Vu8aAb/npm2qWSOA
czUtdxRcCeDfUvGq3SGAe/4OC9IcCTC1Xba54ZgAvIeNC91syH5XZnv9fSOA
5cJCBkZUAmT+pW62jhHAvyN1r6K0Cdjw5kpjS4IA6pvOLxnaQ4D5gr7NbXkC
EE0Wizq7jYBPRH1jR7sAnmxXFCaUCDiWk6raqzQNw4zTi88IkfVveKWZ9Xka
mqoCQtK/sWAkZI1VR+o0lKUmeFPJfb69ramp6ts0XL0i2lOawoIs5/1NXyqm
ofneH0puPAswVK7x0tA0jN5VKz/4kgU17UX1/RtnICPZyI/vzILxq0t/d8TP
QMWXY+tLFViwK+/XkerkGTCsXBVjL8eCmyLe1QXZM/BHhpvNlWaBIGy4KqJs
BmJC1DMk57JAJJ9WaT0wA8lRHou7R5iwVOzyz0blWSDK13/aUMKEPeFYWv1x
FkYHwpfvsWdCr1qytkPSLAxXp289d5IJwSVR6ULZs1A8UvfzkQUT6Iy77zXK
Z2F5vezrTH0mRID23XD6LAw8yPmRuIkJXm42K9LlKNTnImZ7RUYZ0Cf3t/ae
DYXan7PkmPsNBiTZ11GX9lOoDqeZO35fHoaPjp6MI3QK9anh7W1yZ4chwlX5
9SMWhTqX3/XsOHleDbh3m+CyKdTRrXOuFRkMw/nwNVGtc4Wo43LU9ZrryfNt
ndvUOxUh6qkJZ9uiNjoE6Mhmbb4iRE2qOcnZo0+HC4oWm3UmhKj0s9+V7IWH
IK1nbqb+yBxq8IH5h6pO98OhxaLKT4REqKoFWy7lK/XA9UMauxIootQ+t9zS
kledUPFpzLyUL0qNyLbILQttBgd3vuXq+XOpNzqbyxSf1cDbAxr8o3PFqbE3
bD6tjCiChK/HXxUuEKdmip1RW2lZBDlL7mioLBKnltJ/XZZbVASNfUXOM8vE
qRJztewFD2iwyM+k59Mmcerd69+VlzQVgt+PS5XTh8Wpj+lLr7+8lgtuB99H
xb8Qp4o7Ry38F5cK3snftWTeiFNN/za1di5PhSC5wWbPSHHqct8/11oCU+Dr
gJqseZw4NchXxtq7LwkGH+U/EmSTz+OpNpLomQC25U2uZq3i1N6El8qhn9/D
FfWphfmd4tR1Ti7Gi5+/A8/XqxKVe8Wp2SEZlYpDUfDG4XzfFEOcuuXQm8jJ
e+HQID5+Im5GnFpwIDpXNyEYelyXchYJz6OuUjmktYj+DMaa/3txZ+48KmPC
/uXz+wEg9dmr2nTRPGpA48DFGwnesEo69nLe4nnUV9Kda0rv3wbVW2Xiysvn
UVXjPOxDE66CVhf9Y9DKedSV0Vfu5yTYwf/+36L+7/+tff8HmnfwFw==
 "]]},
 Annotation[#, "Charting`Private`Tag$29584#1"]& ]}, {}, {}}, {{{}, {}, 
 TagBox[
 {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
 LineBox[CompressedData["
1:eJw12Xk0Vd/bAHDi3ntuSpJSylBpQlJKA9knjZSSCiFDZUilAQ2GopCQiCRl
ioSIylSG5xCRyDyGDJnvvdtcpvzOd633Pf/c9Vln3bP3fp5n73P22ivPXtG1
mMPHx/eAn4/vv18tTeG9UyvZVPrsfxcG1TTnQUKKTQmqzF0+TVth5UDYEgk2
lZFx+dIgbclHpw/LLmFTYcYbR5tpC08U/d0syqYy27U/5NGePa8Si4TZlHJf
bWw47cGKmBPac9mUzWRZpR3tNrVF/EZMNtXmRirvoV0Z5/bOeg6b2lO58zuT
dr7YoNGNfwRlKl38vOAfhg+uJmz3SYKS95oKd6QdzSlNDxgnqLR53U3raQcZ
qJ6PGCaotYEvtMtnMHgUxC9M4hHU5+7Nfy7TvqG0FD73ExRkUPWCtA2IsWV1
HQRlO09Jffk0Bk37c0WdrQRVcEGzIHQKw662SvuhJoKq/VPqJkp7Rea78nnV
BNW16Xl0/wSG+bKSLhLlBDXRtIE4TPvfYx+59d8Jqi0zNSb6Lz0+K2uPvV8I
at/vM567/9Djq67bchwIat3p6u93xunxof1tJlkEFXRsSDNzDEOM+CpVx48E
xd/ZN7hoFINV0c/BlGiCSn/8CF8epPurrBWeG0FQMVkTs1cxhkMRmYdLXxDU
sfZCrUs8DHI3n8b2BBLU1mIX/8McDLy1x4yl3AlqU1J1Z2IPhl9PctgKrgQl
Jhr641o3hop/8hk7nQkqeGxwTLGLjm8dIXrKnqB8z/lOBXTQ8fLML/I5T1CG
P7wGJpvp/gwrOTw3I6jutpovbj/p/phErHpjTFCO7YY/+ZroeKk4u+SfJCib
PY++9dRhmOnapjyxj6B8FPYkGVRgcN8fH265hqDUPfO5X/MwUD6OOtIr6ec7
Tdi8AQzTlYfnNKwgKC29a9V3cjDYmfAsNMUIakdAuLXoJwxnbypvVBAgqOP7
m9NKkzGg+JysoTYW1ZpYYef3AoMj9ruc0MyiqNzG0ZYQDOnbzKTPNbAoxRrV
S7LBGBTz59yvKWdRAe/k9wT70/n8eVArI5dFdWlvCp3vgWFyXlWD80sWJS3Z
U3D4EgaVE9He20JY1MuUt8JCFzBcf26vxgtkUUeX3zTOs8DQt0Y80tSHRT1j
9bIWmWJoUDe20nBkUXr/1n/SOk63f7V7jGXAovyND1rM24rhWs2kaOAiFiXZ
onyxbZgHwbrHDIMWsKgs4y/PS3k8yK6IjnoqxKIOZvsvfN/PA2bZEaUQARYV
hmfbznbw4GVhuHbYCJNyCNRfYVPJg+J0Da831UzqfuT1UdY7Hkg9957JCmRS
ximcuQ/NebBP/Ne+nMdMSt3p3D1XYx5ceKrsm+vDpHBpoNVVfR6kBjRL5N1n
UjZfN7nu1OaBprfijq92TGp8bI3wtR08sHequl5xgklZTuXm3ZjPg5IzEr2/
FzEpiQfhC7rfc+FYhBqaXMCknvIutgslcqGmzSR4wTwmZSLvHSwXy4WWc9H7
dgkyqSPzTVJ0Q7kweEEh6vEog+KX2l+ifY8L4jfUDXfVMqiJruSfgzpcOO93
tvRxMIPa+fjV8GgvB2ZyE1J2LWNQkh3qhkcFOVDatGnelBiD8n76+aTY9AC8
HE+1yhJhUME1r22qRgZATRGk1AgGZcKUGlbpHADHsGrf3X8EKVJY/31U3gCM
O01bk7WClPVfNSafywAM7ji68kCAIGWhl7xuiNsPnR+GAo6zBan2kgU62z71
gUoUs+aRkAD1QUDrsbNCD6itqlL0+ctPmUylz8+f8xtWOAm7+PbzUds+7F01
+agNKl5uNrBsmYXbgd23F8g2Qbn1x55tWTOg2nfP2lC2CmI3VO7QyZmC039U
hkS+FIBSaMXV698mIDFo0sKCGwMrlXY3LXn7BwqMtob2WmSg/s/7Gcz3Y8Dq
sH1nf/w7Wn4xy/ym7wj83hXRndxRi/6ViL4evDYEX37010BQC7JD805e+MMD
M/3OYbu1HShTuYwaS+uHG2q+l9nOXSh54dcU8ZxuqPqdfePcnl6ka7JQq+1t
N4gnOpaEHulF4wnGnXGh3fBLP3zxd/1epLZvZPGuW90gxl7jscS2FxXfkHEy
Vu6G4GH+Kwahvajtp+P+qPgu8Jw4FO0x1IsWxm5qkgv+DfzS/q+vhPYhu13P
BdSvdAAuks1vrO1HQUHLm/VMOqBPRlFJ6Fc/SuWFpV7R7oD59r+ktvX2o/FX
ryyi5DugbYjf/vpkP7ollFgk2NsOpIxy+hOpAXSnOdfnu1k7HNsYbG1lMYC8
7vxedFq3DSD/hJUOdwDFNVhyru1pA0PFNdKPxgbQty19Bd5KbcDn3sfOnxlA
c3u4DtnCbaBvKntFTJiDJCJ4ySj4F2yQKt9hpMhBa/aI7Sh70Aofl3tX217m
oF0epod6bZpBYOInL7yLg779dXltcrgZqvzHfc05HGRw6eWcWvlmoCfFGskR
DnI40Zidx/kJbsd/qN3l46KUlSc2v7D9CU/qu5t5Ely0LveAxNHrTbAi18bR
8SgXif3ZyPl4uwHUHHWMdqRwUbTNEU05wwbwDlmpJJ7ORVtabWIjdzVAocVk
GS+Li3QK35g9mqoH46VLTb2KuMgncGWtpUs9pF/5lHy+lYvmKC3OXeZWB2Ud
jDpqLg9h6+nHd71qILhVHM+c4aGad5tFjlrWQOKL+Joz53jo86il/4p9NXBN
//X8NGsecnet9P80Ww3qygV2mnY8JBESGzByoxqSNvp2s714aF+RTqCVRRX0
t1dK9ibz0Ib5notU9lbBjjE3r+xUHhI+kRUouJK+/898k9cnHmpsXRMU1VwJ
e6ldCowvPGQ7Phn080QliJaFZD+t5aGQNa+Dj2lUQHRhgKjIBA+5XGxaIiVT
Ab4PHaP0Z3io8Ky0YuNUOfTGNeoH82Nk6DiquMiuHDLTZVUm2Bh5xIcrPTD/
Abgg4tlJCYyaWCPKV9RLoW8tk2O2E6P7BS92ob9FoEuVHi2+ilHvj52BFplF
4KQQL5djh9HRxvoBn1tF4FA0uyXhBkYSvEVhDX+/Qt2o8tdLzhiliPvOXpso
BGO1io7ABxi12DgXxEx+gamyWaMLLzHScJCQ/P75C9RcsUhsC8co7m6mw5Dj
F6g69FBKJwoj+6DRtepT+ZA+P8pCPBajubmXHtZP5cHY0yDbg8kY2a76/FJs
EoA6spSnQGG0c/u4trkjAHvbyOK1+RgJHtkymzSZC1JehXriBRi9cEgwPziV
A09unVvZUYRRcXHoWsfpLDg0crNsaTlGgS119V+dsyD010hyVQVGJsOiDxfN
fAZTe+qNexVGY8t9BhJnPoF+RFhtRS1Gq644pfz6lwEjj8Wk5zZjxL2fYa5w
NwMu+KRGurdglBkyInp7Nh2S7jpv/dOK0bH8iw6ifOkQarc4oKAdI+fFxrv2
86dCynilGF8PRgflQgYC3D7CRv25Uqq9GImimpet/B+hej+lYtuHUbz1kdmb
cz6AjpTD0+wBjOqy1AoSBFJA7cVqvkmM0YrbZ1uH5yVD98ybyMFBjHwdD2/1
F30HrJyIsF9DGF10kWwrkUyEBA9mYuwIne87TBXr1W9hfhaRc2cUIy1X7MPY
kAB5MTEbjo1hJHc/bzu5NQ52sH6LNY5jFOqe8Khl5xvo0toQ+OQPnQ/PwE5H
FAvlDYcv7fuLUb+XxeM0rRhw93BVDJig6837aJeuTjS8XbBXXGESoxKf7aqD
p15B8+e9hkA73o/dI2ceCcsu2PN+TGG0Rabrtn9ZOMjePocOT9PjX52x5nvD
S9AsEO4H2sNrHlYyfofCt3OGPIUZjCrXG7mQOAQ09isceUI7RX7jBqfJYPgg
d0lgkLa/4mxNGuMpuCQIiB34h9HVzZWugyKBYL+p1SWIts7WaAX5FQFQ/7eX
/Enb1LY/5ftRPzCRWHRGYhYjKXs/Yo+FN6g4a1cdp916e4tZupMnCP/0jnSj
HXa3LkP+yT1YWAxF8bQz545JaRx3ARzXcbCE9vYlu38o3HGA5owBmU7aF/fO
nVLUuwiBArW6o7QrUrd+JMz04fSV0JYZ2jX2iepb3iM08WFn3ux/z7+5v0/n
5TlUavhhZoK2Toph4e6oa+hDESOQQ7syRnTJCfvbaMmm7W71tOOPWCinRrui
gdDDxZ9p9x/I+6n+yB0l9WlaB9OW2yPp/u2GFzrzY5e5zX/9Ub2tcNLMF7lW
rP+oQrsu1MYGy/ojqSMyJlN0PMafheSmLnuCsq5tOptJe8nTr6KOwkHI4IAl
XKa9/cmoJRIIRpei6xyW0zZ4vCpL8O8z9FslyCOPjv8tX50FJZznaMn9VJ4p
7UzPxIyTdWFouYNzmQedz4b7TUIS3yNQ8H6DvfNpO5OCKfhXJBKVnRV9RNdD
2O4tgmk1r5CAqxzlQNeLoprmO/HyaBRZMhTWStdX7i4zA8dvMehuDrsO0W7d
7peIcmPRq5OFpwbo+rRVea33KvMN8rP6HLaN9r+t2XyMj3Ho7+wr8hZdz1Jb
+k+WvElA+7IYId10/ZsqHJg5GfAOVfvdemJFzxe1kFi/8chklL9GKN+Unk/z
7gmIHDFIQWlSh0aP0vOtj3suimv1HrW2jZuLcjF6VShboPTgIzo+pnBxIz1/
/adqfPkXpKKQrcxPLd0Y3dnscaoqOBWpcFTmeXRhZBTW1W0Xm4bMDdYUZHZg
JOYQy84ozEADCdc8Uun1ZM5bvaoH2pkoyE2JLfkTo8E25guD2kzEjXn61LkR
o7IjVgqTvz+hemW5Epk6jDxl1x/bLZiNhCy5yTM/MJruO1livpJCWhrx7WzA
aEQwSVHLgkKDiRoKndl0fUgzArfEU8hIW9Dr42c6H6fSjAQ256GhglsOO9MxSstbzI0h81GQyezOpkQ6ns/rFvSaFiDWa0++qyEYWaQq2ldEFyCXpj+Jn59i
ZFzu2ZDZU4A0ioMdpp9gdJixPerhlUJk33nDxOIRRuuvPdsif/crEs6diil1
w6j9kMEp2/BitE9pHQxZY6Te5Wxe1lKMHn/b8qrbgl5v3KIuK0h+Q922wtXV
ZzHS/dzv0f/iG7qzUXXlM2OM8uVd0i2flyDj7RPuecfo+Au/EjcNKkX6OQkr
YrfS60n/GGfd/grk/jrAPfUvD5ntIOzqz1eguO7UrNRRHvLzlJjwdK9AjWwr
46RBHupfhRjdXyrQBdbl1ge9PPTKyEsyRqMSBZsv5++o56FFZRJHZcgqdOv9
yBv5NB4aTUbJS1VrEOmhJLbChodK5VVFr56pQeczPmzPO89D0W9UHIru1qBD
Y6OhZ0x5SDdio+qNghpUMjm41vkkD733W15UrV2LPrbVu+qo0+/3y39a/czq
kPuV1a/1RXioRy5ZmOHZgPauGL81kMSlSzvhmnFcA8Km4V+d3nBR8KrYmo8l
DWjdHQ9vgSguOiARFnp2QSNapuLpPBHIRTFsn7VUSCMSdhBTv3ubi8x6LdWd
3jahRM69rhENLmp6LWU7VNGMFhmfTX9czkHpzETduOFmdHvN1/htxRwUaLVz
u6lYC5KRvx5ZTXHQkQ0n+cr0W9BuyfqIP+85KDfx4ZO41hY6/zkybYEcFPVx
NN2U04ocP7jzb9PjoFSzrtnu+21opcZ6y5maAeRkm3XoVEQHyhfSmfcwqx9p
oLHzwskdKDYk3ar9Qz+aK7LJrSi3A7nsZh1XTuhHIe9ffdrZ2oFMlEtqv4T0
o/TRh3JSkp1IyrGr45lDPxp2NJjXE9qJjqpM9M5X7Ec2D8bKbwX/RnZRx9tJ
+vvZIHKT/stH3YiQLzfcY9aLLB98m/Oroh/JJ9xWErHuQl/c5eV9v9PfeX6i
Ave16HYWduWLnR5C6j43NL9xWtDIriL19hsjyCc/tB6U61DylfkTZ6+Oobdl
0T9yNcuQ4N1ut7NBf9DNiew6//JM5PZ8taZ40ATauDnZQsjzJRwWvLuh4OEU
+i566maO/Bd4p3m5gRc/gy6qqxiyOyphRygU/ng9i67lpIk7GjTCu7NV5JJu
PjJ1NuDB+zttYClzUn7PKD/pf8y60misEz50stIODM4h+VNedWS0dYOWGGOt
D78gyf5yxjI+tg9WV+5/9YAhSNZpkEmKKX0w/chTyp0tSN4yMwpMovdjSSxC
3GWhIFlf9kM5pLQPRKbmEldWCpKjpXPdZYb7oLZdpF93jyDpeGaJ4ZRqP5gl
r3gn4SZIxvTg4W8l9D5Ia6tKAh+D7FON7tOpGQC8982rJ4IMcqA6f1KweQCs
d0sscCIY5KYctuUHev9opMTXe1iEQXJls/ZODA8AuaT0OVeaQe7+VNCrspAD
Qh3nZpQQg2w0vH7w6hEORN4OLMhwYZBjQ47Ly3M4sMyOuTnSjUHO828SeFvA
gSeXbod5eTDIoU8twq7fOeBhanrj9CMGmdmt5bm4kQM2++XXT71kkD7898q4
IxzYuvCLj3o2g7zwvsZAdz0XvsUN6xZOMkjGOcenbT5c+Fs0J2vOLIMsbF+c
avqEC2t7RFeTAkxyecBR97oQLtxbozzyWYhJZrzQ2/L2NRfUXtkFpqxgks//
uDwZzOVCyovR6hfqTNK5NbehD3MhxG/85PV7TPK1kd5r78M8+JrEzEn2ZJKs
zd6R0zo8GCtdsobrzSSD51SKW+rxQFdo+5hVIH3/rIe9tDkP5nndfHomhklm
xj/Olr/BA1e3v7WHvjLJ02cRig/ngbX9pJ70XBbpGqh6VLGPB0lGDzaICbNI
t/eNLhpcHgxriE0ToiyyqltG8tgQD5wWKkYNL2ORtSfSY49P8MDvnflA4QYW
+XJhRskUgSGtt/juJU0WmdY96ta5FsNk+Sldc20WGbjJaOcdOQzqGR2yesdZ
ZFzG1eMLFTEUe0x/Q6dZJLlBIVJmG4bmVUpiiy6wyIiHvyI6NTDMOfMs7pMX
i1R13mw7aYzh4D5Zp3e+dPvNmd8lzDD4yr/XjvZnkQ/rq5yVz2FYPFky7BvC
Iiv4PtVpX8Cw/tk/NbM4Fmkh7n9yrQOGo5UWlcxiuv17MQ0WPhgCM4ejp76z
yGgIWCrkh6Eh4u6NwXIW6XC6NjLOH4O57fPlTfUsUtGr6kHpUwz2QmUWST0s
UrxuS3hGBIYX+7dOnmAR5Oz5TVYSHzAkJOk/yxUiyIG7A3n3UzFkLnbaukGE
IPuu8dt1pmOo68qz/beUIOOmDGo9sjCIeB7rjJMjSC1fxQd6BRikedddF20i
SL6EFW7Xv2JQ1AuWvKNMkJH3uN/dizEcXtuif0KNIL+3fzzuW4rB86tN6Yw2
/X+ZtnnrajA8VfS7YK1LkFIqzc5jtRhigt8zq/UIEpfy7fxcjyHP8i8ZZ0qQ
Bl7hgWt/YphmeqbpXiPIYvnyL97tGISuxOvmOBCk0KMwT6FODBL1pXidI0GW
2T0LuPcbw/Y3i+Rm7hGkWNDBOyd6MFw/GBX+JoggDQ2rY105GNySC1RFnxPk
Y6vVER+5GPzFexucwwjyn7dpczMPQ1KP4iLdWIJsS9kqKzqEIfuYbkp2AkF2
XFypKDWMoSTDQXtdMkHavItykhnB0Psg+8F0BkFuapVtY41h+IN/yVplE2Q1
GTjOoc00EMivpAhyevGlY8XjGFav15qO/UaQb+NPFpn/xbDF//LzhT8IUjOs
p0t6AgP511/FuYog4fLA/hraJsX1V4//JMgvny59k57CcFlpan72L4K8qeDB
SaftHCL1du1vgrxqs09n3zQGbz6NQwG9BGlpfHe0iPZza4uuKQ5Bvuyc37hn
BkNchdc9yyGCHG4smXlPO31HonTlGEH2Lww6u/QfhsLI8mzVSYLM1NNiOdCu
IUZOx/4jyP2XKgeKaHdeXfJHRIBN7lkgIrJwFsNww84gJxablB7Ddjq0+fac
2dwtxCbXlZ4R96S9IN71h44Im7RT1Zx8T1tqYczFLDE2OdkRs6Lmv/OB20XE
2mVs8omR5R3Of+cH7f2v/SXZ5LCKp/QU7f87XyD//3zhf1AgHoI=
 "]]},
 Annotation[#, "Charting`Private`Tag$29628#1"]& ]}, {}, {}}},
 AspectRatio->Automatic,
 Axes->{True, True},
 AxesLabel->{None, None},
 AxesOrigin->{0, 0},
 DisplayFunction->Identity,
 Frame->{{False, False}, {False, False}},
 FrameLabel->{{None, None}, {None, None}},
 FrameTicks->{{Automatic, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
 Charting`ScaledFrameTicks[{Identity, Identity}]}},
 GridLines->{None, None},
 GridLinesStyle->Directive[
 GrayLevel[0.5, 0.4]],
 ImagePadding->All,
 Method->{
 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
 AbsolutePointSize[6], "ScalingFunctions" -> None, 
 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& ), "CopiedValueFunction" -> ({
 (Identity[#]& )[
 Part[#, 1]], 
 (Identity[#]& )[
 Part[#, 2]]}& )}},
 PlotRange->
 NCache[{{-Pi, Pi}, {-0.9999998782112116, 
 0.9999998592131705}}, {{-3.141592653589793, 
 3.141592653589793}, {-0.9999998782112116, 0.9999998592131705}}],
 PlotRangeClipping->True,
 PlotRangePadding->{{
 Scaled[0.02], 
 Scaled[0.02]}, {
 Scaled[0.05], 
 Scaled[0.05]}},
 Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.734043839316129*^9, 3.7340438474496703`*^9}, {
 3.7340438959856544`*^9, 3.7340439382256174`*^9}},
 CellLabel->
 "Out[406]=",ExpressionUUID->"bca68c3c-5286-4052-8996-ea01fa5ba4a1"]
}, Open ]],
Cell[TextData[{
 StyleBox["2.4",
 FontSize->24,
 FontColor->RGBColor[1, 0, 0]],
 StyleBox[" \nPara sacar el dominio se usa el comando:",
 FontColor->GrayLevel[0]]
}], "Text",
 CellChangeTimes->{{3.66818904597359*^9, 3.668189069100111*^9}, {
 3.6796704362216673`*^9, 3.67967043845606*^9}, {3.6796705798455954`*^9, 
 3.679670691798811*^9}, {3.6796707356741705`*^9, 3.679670739221056*^9}, {
 3.679671406296914*^9, 3.6796714504245205`*^9}, {3.6796715726898327`*^9, 
 3.67967158548678*^9}, {3.697822550413397*^9, 3.697822551319745*^9}, {
 3.697825880407995*^9, 3.6978258834083233`*^9}, {3.6982770686587973`*^9, 
 3.6982770757765846`*^9}, {3.6982771174483557`*^9, 
 3.6982771265207224`*^9}, {3.7307523667331223`*^9, 
 3.7307523741568213`*^9}, {3.7327213966420965`*^9, 
 3.7327214022899055`*^9}, {3.7340248736677027`*^9, 
 3.7340248791897173`*^9}, {3.734029781231982*^9, 3.7340297814588203`*^9}, 
 3.734030664152581*^9},
 CellTags->"2.4",ExpressionUUID->"22954ec4-6a80-4a56-a7f4-fc56872c525f"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"FunctionDomain", "[", 
 RowBox[{
 FormBox[
 RowBox[{"v", "[", "x", "]"}],
 TraditionalForm], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.6681871180257025`*^9, 3.668187153093789*^9}, {
 3.6796707028613586`*^9, 3.6796707160177794`*^9}, {3.6796714824727325`*^9, 
 3.6796715552190785`*^9}, {3.6796716060026727`*^9, 3.6796716239765286`*^9}, {
 3.697822567946534*^9, 3.697822569649844*^9}, {3.6978259021290913`*^9, 
 3.697825993217177*^9}, {3.6978295383961067`*^9, 3.69782956000781*^9}, {
 3.7307523791448927`*^9, 3.730752402085514*^9}},
 CellLabel->"In[48]:=",ExpressionUUID->"a63af47c-6396-4ce0-998c-f174ff9e2e0f"],
Cell[BoxData[
 RowBox[{
 RowBox[{"x", "<", "0"}], "||", 
 RowBox[{"0", "<", "x", "<", "1"}], "||", 
 RowBox[{"x", ">", "1"}]}]], "Output",
 CellChangeTimes->{
 3.6681871569612956`*^9, 3.67967071937718*^9, 3.6796714577526884`*^9, {
 3.679671488879006*^9, 3.6796715105636587`*^9}, {3.6796715407501955`*^9, 
 3.679671557469097*^9}, {3.6796715958931336`*^9, 3.679671625476527*^9}, {
 3.6978225582892847`*^9, 3.697822570993767*^9}, 3.6978259969986906`*^9, 
 3.69782956335192*^9, 3.6982773444790907`*^9, 3.6983641091080008`*^9, {
 3.7307523929239187`*^9, 3.73075240431986*^9}},
 CellLabel->"Out[48]=",ExpressionUUID->"e0bc3073-cd28-423d-80a1-1205495e4647"]
}, Open ]],
Cell["Para determinar el Recorrido de una funci\[OAcute]n: ", "Text",
 CellChangeTimes->{
 3.6978226800837746`*^9, {3.6982771631861897`*^9, 3.6982771728948607`*^9}, {
 3.6982772445726175`*^9, 3.698277259527768*^9}, {3.7307525127333336`*^9, 
 3.730752520696628*^9}, {3.7327214148400774`*^9, 3.7327214187598495`*^9}, {
 3.734024896431879*^9, 3.734024937133031*^9}, {3.734029785405814*^9, 
 3.7340297955102196`*^9}},ExpressionUUID->"bdfc5caa-bd1a-410c-b772-\
19186a8c9e5a"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"FunctionRange", "[", 
 RowBox[{
 RowBox[{"v", "[", "x", "]"}], ",", "x", ",", "y"}], "]"}]], "Input",
 CellChangeTimes->{{3.6978260216265087`*^9, 3.697826039003355*^9}, {
 3.7307525028273153`*^9, 3.730752502981361*^9}},
 CellLabel->"In[49]:=",ExpressionUUID->"f1e3391f-85f3-48c2-a5ff-d340351c5c2f"],