Lab 4 TODO BIEN

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[ 221021, 4799]
NotebookOptionsPosition[ 207455, 4590]
NotebookOutlinePosition[ 207885, 4607]
CellTagsIndexPosition[ 207842, 4604]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[TextData[{
 StyleBox["Laboratorio No. 4\nC\[AAcute]lculo I - MAT1610",
 FontFamily->"Arial",
 FontSize->36,
 FontColor->RGBColor[0.5, 0, 0.5]],
 StyleBox["\nSemana 6 - 10 Mayo 2019\n",
 FontFamily->"Arial",
 FontSize->24,
 FontColor->RGBColor[0.5, 0, 0.5]],
 StyleBox["\n",
 FontSize->24],
 StyleBox["Mar\[IAcute]a",
 FontSize->18],
 StyleBox[" ",
 FontSize->18,
 FontWeight->"Bold",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox["Trinidad",
 FontSize->18],
 StyleBox[" ",
 FontSize->18,
 FontWeight->"Bold",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox["Correa\nSiempre pongan las explicaciones porque sino les bajan \
puntos.",
 FontSize->18],
 StyleBox["\n",
 FontSize->24],
 StyleBox["Entrega martes 14 mayo en sesi\[OAcute]n",
 FontFamily->"Arial",
 FontSize->24,
 FontColor->RGBColor[1, 0, 0]]
}], "Chapter",
 CellChangeTimes->{{3.669171791567473*^9, 3.6691719049428205`*^9}, {
 3.669174099600687*^9, 3.6691741198633523`*^9}, {3.669174168800572*^9, 
 3.669174171535085*^9}, {3.6703505794068656`*^9, 3.670350621132115*^9}, {
 3.6707631175064573`*^9, 3.670763146845317*^9}, {3.6707728088553977`*^9, 
 3.670772906958067*^9}, {3.6837459760762625`*^9, 3.6837460458547153`*^9}, {
 3.683746077299302*^9, 3.683746078219443*^9}, {3.702310086047366*^9, 
 3.7023100935943213`*^9}, {3.715353376286883*^9, 3.7153533980251427`*^9}, {
 3.7159160976923056`*^9, 3.7159161196924515`*^9}, {3.7159163706008577`*^9, 
 3.7159163821166344`*^9}, {3.716907623566064*^9, 3.716907624738006*^9}, {
 3.766038001338765*^9, 3.7660380596069107`*^9}, {3.7660400839322977`*^9, 
 3.7660401298622303`*^9}, {3.7662009969291763`*^9, 3.766201013493863*^9}, {
 3.786105530167461*^9, 
 3.786105531178081*^9}},ExpressionUUID->"6800805d-77b0-4594-a51c-\
02115c55e344"],
Cell[TextData[{
 Cell[BoxData[GridBox[{
 {"Pregunta", "Observaciones", 
 RowBox[{"Puntos", " ", "seg\[UAcute]n", " ", "Pauta"}], 
 RowBox[{"Puntaje", " ", "Asignado"}]},
 {"1.1", "\[Placeholder]", "0.5", "0.5"},
 {"1.2", "\[Placeholder]", 
 RowBox[{"NO", " ", "SE", " ", "EVAL\[CapitalUAcute]A"}], "-"},
 {"1.3", "\[Placeholder]", "0.5", "0.5"},
 {"1.4", "\[Placeholder]", "0.5", "0.5"},
 {"1.5", "\[Placeholder]", "0.5", "0.5"},
 {"1.6", "\[Placeholder]", "0.5", "0.5"},
 {"1.7", "\[Placeholder]", "0.5", "0.5"},
 {"2.1", "\[Placeholder]", "0.5", "0.5"},
 {"2.2", "\[Placeholder]", "0.5", "0.5"},
 {"2.3", "\[Placeholder]", "0.5", "0.5"},
 {"2.4", "\[Placeholder]", "0.5", "0.5"},
 {"2.5", "\[Placeholder]", "0.3", "0.3"},
 {"2.6", "\[Placeholder]", "0.2", "0.2"},
 {"2.7", "\[Placeholder]", "0.5", "0.5"}
 },
 GridBoxDividers->{
 "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, 
 "RowsIndexed" -> {}}]], "Title",
 FontFamily->"Consolas",
 FontSize->24,
 FontColor->RGBColor[1, 0, 0],ExpressionUUID->
 "9aeabaa9-7250-43f7-ac6f-1a8a1564aef1"],
 StyleBox["\n\n",
 FontFamily->"Arial",
 FontSize->24,
 FontColor->RGBColor[1, 0, 0]],
 Cell[BoxData[GridBox[{
 {"Nota", "7.0"}
 },
 GridBoxDividers->{
 "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, 
 "RowsIndexed" -> {}}]],
 FontSize->24,
 FontColor->RGBColor[1, 0, 0],ExpressionUUID->
 "6a4b724e-3ed9-4655-b413-753ef55d32c7"],
 StyleBox["\n*La nota incluye punto base.",
 FontFamily->"Arial",
 FontSize->24,
 FontColor->RGBColor[1, 0, 0]]
}], "Text",
 CellChangeTimes->{{3.7023156654331713`*^9, 3.702315690699066*^9}, 
 3.715353366723545*^9, 3.7691189454149933`*^9, {3.769119120704653*^9, 
 3.769119152911829*^9}},ExpressionUUID->"697c984c-8124-433f-ab5f-\
15043badaabf"]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
 "Introducci\[OAcute]n",
 StyleBox["\n",
 FontColor->RGBColor[1, 0, 0]],
 StyleBox["Recordemos que el signo de la derivada en un intervalo determina \
si ella es creciente ( derivada positiva) o \ndecreciente ( derivada negativa \
) en dicho intervalo. \n\nUna funci\[OAcute]n continua creciente o \
decreciente en un intervalo alcanza su m\[AAcute]ximo o m\[IAcute]nimo en un \
extremo del intervalo. \n\nUn punto cr\[IAcute]tico b es un punto donde la \
derivada de la funci\[OAcute]n se anula, f \[CloseCurlyQuote](b) = 0. \n\nSi \
en la vecindad del punto cr\[IAcute]tico b la derivada cambia de signo, el \
punto f(b) es un m\[AAcute]ximo local o un m\[IAcute]nimo local. \n",
 FontSize->18,
 FontColor->RGBColor[0, 0, 1]],
 StyleBox["\n ",
 FontSize->18],
 "\n",
 StyleBox["Comandos para calcular m\[AAcute]ximos y m\[IAcute]nimos",
 FontSize->36,
 FontWeight->"Bold"],
 "\n\[AliasDelimiter]\n",
 StyleBox["El comando",
 FontSize->24],
 StyleBox[" ",
 FontSize->24,
 FontColor->RGBColor[1, 0, 0]],
 StyleBox["FindMaximum[ f[x], {x,a}]",
 FontSize->24,
 FontWeight->"Bold",
 FontColor->RGBColor[0, 0, 1]],
 StyleBox[" ",
 FontSize->24,
 FontColor->RGBColor[1, 0, 0]],
 StyleBox["calcula el ",
 FontSize->24,
 FontColor->GrayLevel[0]],
 StyleBox["m\[AAcute]ximo local ",
 FontSize->24,
 FontColor->RGBColor[0, 0, 1]],
 StyleBox["de la funci\[OAcute]n f(x) m\[AAcute]s cercano al valor x=a. \n\
Ejemplo, la funci\[OAcute]n ",
 FontSize->24,
 FontColor->GrayLevel[0]],
 StyleBox["f(x) = x sen(x) \n",
 FontSize->24,
 FontWeight->"Bold",
 FontColor->GrayLevel[0]],
 "\n",
 Cell[BoxData[
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"x", "*", 
 RowBox[{"Sin", "[", "x", "]"}]}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", 
 RowBox[{
 RowBox[{"-", "4"}], "Pi"}], ",", 
 RowBox[{"4", "Pi"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.70231150997583*^9, 3.702311536500532*^9}, {
 3.702312438377967*^9, 3.7023124400498533`*^9}, {3.7023126846281476`*^9, 
 3.702312711101495*^9}},ExpressionUUID->
 "8d7ccd14-e9cd-4b31-b81b-982ef3bf3e8c"],
 "\n",
 Cell[BoxData[
 GraphicsBox[{{{}, {}, 
 TagBox[
 {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
 Opacity[1.], LineBox[CompressedData["
1:eJwUWXk8lN8XtmcLM2NfZsYyY01IWb5yL+1RlhRpk61NlhJJEgrRYgtFhRBS
kaVSeU8RKkvZlVSWlCLZl8Hv/f11Pmfuec8957n3vO/zfEbZ1cfeg4eLiyuK
j4vr/3brFrF188qakHbm4b5Xgp8r/ys7OypI1wSDRtqm8LqnhI7y71vS8poA
4Re1jarrCLHZ2hl9qia4Zy3+iX/eSXzMC3t4mEcT/mhEr/2X95NwEpyUa+/V
gKfZm+07Q2aIQ7WfR4vuaoBVhMapSxKC4LRq6+3KOxogvimrfrZOEDbfeWpV
n6YB1/YO7Ww4LwRagddzBxM1oPpvrk3iiDCMsG320i9ogOuSc5ft6+UQEPm6
NtZdA0Rb1tSysylwYUP+bU+WBtRFCZae6pEGiD1jy1DWgPVeXNHKq2WA89GK
p1NRA56bqi5fFysDJ/ePeGyR1ACvTJlb31fLgmvgqhU6vBpw8O/yDM8LcoDy
Xz7/900d9GlD/w7zK8KZv1ePF3SrA2+exvMme0UoX+3CcOtUhxMpNO+UO4qg
+5onorVJHS49r/u43kgJFD9v2vqkUh3mHx6Wmt5PhznR5s6z6eqgnqka5bKJ
CWt23I1ZnaoOBc+CUzoOM+HEDX+zkUR14NLIPDR1iQm/WDIZB2LVIbR1nZPm
eyZ0mu89ZHlGHTb3PnN03KIM5b4/Jpc5qYOkS1a1r6EKjJU/uQc71CGzvejW
ClsV0F2I3h1kow7ruhptY4+pQM4l7ZdDG9Xh2eKVBvVMFUjK8r3QsFod0rvO
bfy8TBX8WueoiTR1GJjUeNz3WhWS7W2ck8TVQXAjXiXfoQovPtzNvC6iDvf0
VxyeHVIFgQZrvVRedWjubGEUU9Qg/c3tbbfG2XCT1h3EtUcNXq8bT7r9lw3H
ZMAy0EsNBl9t6r7zmw2/oGvr9RA1MKgcPZrVx4bdYlVnam6rQV25ZfS9FjYc
dfm2Z7ZbDUYMU5rymthQ3HlUOve3GtBKfksXvGfDDcaW+ZlZNdj/KCmnsIoN
Pxki7XFSLIhY8evPA4INTXYlqW0qLMi7v9bw0XM2fFYzZsBKFozf+/G6uIQN
ewq7lSM3s0CW/Z9wySM2vHV7GXDQgQXm2dfsSu+zYbkfB/ceYEF0hvG38rts
EHW8Mt1yigX0GzELzxPZkOB57GrALRasl/m6/uU1NmzPNWSdzWXBkeurLlfG
kvk8FbrZj1hQGt8t/yqCDT+WD6cdI1jQJa7v+jqUDUJX3TL5a1mweOViflUw
G05+Wg7rG1mwJUbXuOYkG+aF9ts//swCb8GI0FofNsiMuTd++86CpMiOmrpjbGhMcfEvHWTBMz4dsXeHyHoGV1qvGGZBT/j5ne/d2CBQonnAaowFfNxt6fUH
SDzFFZ+KTbNAM1Szv2EPG3ofWLkFzrNg+0KIdpMjG2DFSe+LSyzwD24+8WEH
G14cfv3TmJc8x1l2xUcbNlg8+9IbL8AGIjCYu8WKDfdNv3jHCbGhf7Jpc+sm
NqTyWmcYirJB2F8trm0dG7Y5q18+J8aGlWOnO9oRGzT6vmz2lmCDg28DvfM/
Nmi93T7CS2XDmRFlzy4jNuR9q7uOaGy44xXw4NMqNjCqhZyVJdlQPfRu4vNK
Nqj+NnPMJ/2hwwyzL9pkXc/nCjpIX3zwZESPOnk+1zf5F5K+oUfdu6+qbNjc
ntCiTvrOfYrU7ww2mHwpG9pC5g896Le7V4HEn3u8m0run/31TUafDJvEdaIx
nKzv3T75n/1kHPva+x83yPpt7pihOXE2xF9LPONO9tf6bX+yOGkfR/430UX2
76QSNqwmyIaK/OjgORKfL25315vyseFIapRJDYmfa86bNBsuNgRbxzqtJe2P
H4Nj7hwWKPHp8LmQdvSITua1CRZwa82W5Y2z4NT97TPZoyxY7ZEr1zTCgrk/
vjYVf1jwe/RvdeYv8jx9yxb6+1kgMq343LqHBZeKOxzmvrFA927IcVYnC8TG
Z++Lf2EBO+7EmvsfWSATYO5s2saCw0mZPyurWJD+xKXYhvw9j6K7btsLFjBn
wwU9Gsj9eP8lXyplgdbZ2vJrb1gwc1ZSfnk2Cx69/LU85xULuuVOVjukscBw
ScSj4iW5bwr3fqsEcl7CbWkDZSw4IVF9cGMoC6qqThydK2aBEE+ArRU5L5v5
r78Sf8iCzG+2RlzHWGAX3eVjSs7JvKETb/BOFrhfda2/lswCiZ2q3i/YLPjV
dEE1h8zrzu3yd7M8ef8p985UXGXBlJDl46jlLAhM+q0xEMmCbxErjJTG1SDm
pv9F00By36x5anGFGoh3J3fbnGRBM/7q3XlfDZKUnq3y8CHnrN/5Vmm6GtzK
WPh+7RALBE5INl0m3z9FuZHmA45k3sgNVjX/qcHqn3nX53awoNBGae6WlhpU
aL7/I25Lznl5hu0KOTWoKhRPMyXfG6XaBSf8J1Wh/XHq9DVjFjhsCTB8VKAK
C5UFRaZyLDAwqNReKagK9Z9Wis5LssCH/1zep1EVSJ8qPfRcgsS5e+UN4y4V
MNMl6GaCLEiJeCEilq8CZ261XF47rQb/dBRHdDeowFQw5zBuUwMtrr3m73yU
YdR4u/LGeDWYObrPczeLAeDQclbgihq4p9gfThugwzVfp86aaDUIjp97fySH
Drp5rtc2nVeDjMVT7GJVOhyXCVzY7KMGf38ywyUUlGBo8k6X1TY1SBN2Ddoy
JQ99j//F2wmpQT3P7Rs5h6UhXWAu3JlfDR7cnEkzVZGGXc48/m7caqBLjW1J
+CwFddy0XadmVcGqt+R1/DYpeGhrKH/jlyqM3+L7+ltXEk6PBGR9e6sKIQ2B
rmo/KSCqxXnsE6MKmzKJtZlnhGFNpkDrFRFVCLtTYWsEw4Rpk99bC/I7ZN1k
Hm2u+5swX+iunORRhZuPkqJG0n8SG3eX5O+bU4EvK6Skg872EY4Ul9AVv1Sg
SS1aWSK2mTgd9kyroUYFzjn4u2r+aUPPDnqFiYarwHM+3yrQnEWV1zoCIEQF
1N2/8PftnUOvX1p6+QepwItY7bVzV+fROzk5x25fMj4w02Ps7wL69PGNTuEB
FeAqi7r7nz03nrNgdFqtVQHxXwoWD37xYzOVZt3YGWUovWkdtDZRDGfQRAx3
TCjDwKaYsAFJcczLv95EYVQZsrE3teq6OH43WLbu/qAyVCzU+cVulcBOD244
vW9XBsGmJZ/J9RTsb3wwXKRMGV6GOx63ZdFwp+bNqJYiZZgqHRnYf4CG/1No
uZxWqAzd2srus6k0zLO4PkU7WxnsX+rKNglL4rgqjUKrRGWQfjId8uOnJC7c
PtoW66cMh9Srn0lflcYSWPPzjuPK4MBjcyISpPFJfddvCkeUweoIe/bUmDQ2
lWwduu+iDBf/lcBHBxlc1/Vk6b2NMuhWCc4cocnifvdQTVFdZQiKExBKCpTD
m3c91W3VVIbTXprXyjLl8P1N/1als5RhfmfAvm3v5fAJLTdzHSVleDZl0PxF
UR5zjW7cYS2qDGdX73zi/0weKwaLhVweYsJ8SGCcbKcCPpL9TubWDyZ07POo
WzmtgMsbIh8/6GXCNhTl+FZKEdsxlwYbPzHhc9/g8XA7RRz55q89heRF5pG9
1/mrFHHLyP1h5VomWPZTEjV6FDFT9nC0QRUTLHhr+epnFHHF0W8vdzxnwp57
KSGJOkr4r/hHjeT7TBD8wv2GcVUJm5lcqcq9x4T/clwcLXKUcIzrlv1P7jJh
/+V1Ar3PlbBa2avEzjQmvN1StiZjUAk7OT9elL/MBPpJ+VpREzrOifC+oR3N
hNHx9TQ1azoeK9QyNLvABIeM7Q+f7afjK0tZR/adZULpA6nEA+F0/Do7sfWO
FxP6zRV7kqroWLzRxqeI5IENfl1Ot5rpeO+0iPArdyYsXtzao/qdjqe3XEC9
e5nw8/RT8fscOl5/En8ac2LC0XnT6vtCDJyQzvHn3ckEvbozSVrSDKzz179A
bRsTnq49V5S1goGDZPU3rN7ChKnM+1LpxgxcYzH8dcMGJsxmHXpLW8fALkke
UofWMuFykJ/nuV0M/OClclGgCRPiPg8F+R1g4LkfX7ZGr2ZCxaVNen2HGPi6
ya7z+SvI+rd+G7UMZOBeV6pChSYTLqj1rdY/x8B6lxvL3rFIfLUcEm9fYOCQ
shjbz8pMkC16oR0bw8Dvejb+/q3EhJ2PH6tOX2NgGUHeSI4cideBjszeJAZ2
1yeYy6WZgNPbGrfdYOBi5+DnSlQmoPMubca3GHgxwmiXrhgTbtfq997NYGCr
B+Oj5sIkfuaCatfuMnBq+6NYGwEmrGblvp/LYeAfS8fYLjxMmItqEhm8x8Ce
9rbh3zkMSEvaLOeQz8BcOXVPeCYZcLOvRcuygIHTpvGw6jADmM/1gopJf83W
ZyobBhhwf4scyiL9D+n6Tp5fGPCpEz+TJH2ubJ/kL60MyPv97+OfPLL/+w9a
HeoZoLlEEdAn93N5/JtaX8UAX8fWgu/ZDBz3TNNu3XMGPHyuILuUycAAh65V
PGbA7MXAvEu3GXi0NqdBv4AB13OZz8JuMjCzqU8kP5MBkzen8gevM7Btu/JW
5g0GeDid/fI8joHPfzkQnRLHgASttqeLJL5F/bdqxKIZ0Hfx1d0iEv9vvz/z
RYYyoKchTbA5hIElxuXWLQQw4JL4Tge3AAbGc45h/t4MmH7kN+XuzcC+3MnE
bw8GLIkJHOzwIPsVp5p9cmAA50+Wu8QOsl8Z2zN21gygql8c6dhM9ku/+rRu
HQOOx8SqUM3J/nSEVz8xYMC7KBz5jU32t2rzSV0tBhzxeVFxSp7szzSyOEeZ
Aa/K/maFLif72cKjmyRB1l+x8Hj8Hx2ft8VeIoIknlyq4/v76LjI8VxB+BId
Sqcvy1i00rGE5xzbb4QO4c+5nbxK6fhD+Bhjez35HdwestHHm465YvT2v6mi
w5NOGfWsPXSsF++dbvacDsIGMpW2m+k47s6QrHYBHXIWHt9VZdKx7YteimA0
HVr89nQ+fquEz1cxbUND6eBpYD7Y9lgJF73bf3UqgA4dr7zEzqQpYYmuT8ID
HnQIW+0VuvmYEv4w2cz7eh0d9tlvcqDyK2GuBQlLk//I+rSmztkPKWI9Ppvz
RQZ02Ex5VyDXpIjjqO85t5Xp4OzpzMQpith2ZdVk8BKpG/+tyuNVUcRNh0sG
Vz9Xgh1BIr6KKgq4+eu0rXmJEjyzPWJ0gkcBt+8yq9h4XwnCAxeEj/bK4+71
by47pinBi8wvzywz5fEQs0M/KFgJgkRCiwrl5TFf11zwi/+UoKSx777wgiw2
3WIpse6FIugL3RlyvyiNzSEyyKpUER5n/AkM3CONLYze9+4oVISToy9MN+hL
480shzL3dEUo2xNfJdUthXdyezpHnlWE21Tnl1m6Utj32aXst2aK4JnffHBF
HQ3nan40tn2pABdkfvLptEjgw+rFr86XKcADazeW1V0JrMWK31r8QAG6mQ9N
152UwA+Zdnupt8n4+vKHr6gS+InMx9DWcwrQ/CriMCNDDNfxf6xxwgqwn1ho
drkkgn9//+BwsEoe2mf3xFKM+bHezQ++J97KQYP7pk8r34+iaOsAnlmQg2IU
8tal+y/6tqiQFPpUDk7elSgYURlB19wOPbl8Tw6uG8dqfSweQiM6iwu5F+WA
aa+5GN/RhwoJ7djPFnLwScOTqFB/i0jymbO+QhbcdHSEj3L1E+dTdIzeF8vC
CyJNo+bGANG5pbnOLl8W9ndLvr+rP0hEPVT6sz9VFg4pX1Su2ztE/AgsNQgK
kIUWXs/78zajRLZwL/HAQBZ6Qxc0pI5OEcp6az9J35eBvbJbQmXGuMDa/ley
7l0ZUBcVuXltHTec9r++Y2OaDNSvWScUk8QNjU+H60/FyoDsgm8h92oeOGNx
m2glxTaN/Uvmqw8vtNovZSfoyECoUmC4fz0/LPnfP1igJgP05dSVN6QEQCvF
kf5aUQauB5ak6e0XgPOfH6X8E5WBqOihNaXDArDC3SXGdpjkfQkK96f4BSHy
1CsfsYfSYB29dk2pvDAUpxzXYedKQ8PuVPcsZ2Hofib3a+1taUidW3o+dUMY
DBb9XI9flYZHH/fqNEmLwNdIlZ313tKQp1b9SEdIFIxTI0xjVkqDhGV/COXD
cnCrWDmdqS4N9f1sHhkBMbja/bnkGUMajHkYRkH/iUE/03DFL3FpiEvcWW2X
LQbx+f2MzaNS4OoolrLRWxyGKjbwCxRLgaW5V4ifnwTcj3/y7mSeFHw35ZuV
uCQBXoc1477fkYJlErJN1hkSMCy1XOHlVSnoyz7aktogAaO+rXr+XlLwdzS6
LESVAsWbNk59d5MCASNr73kjCpygP31us0cKyjMOWUtaU2D8fdpG7a1SMBo8
uUzmJAWm2G57e9WlIK8zqHffCwo8WWhVtmVIwWaf24qPGyhwunXj4EtpKVgh
W9yS0UOB2TCtEzf4pUCisu/KtiUKcLr/Rdn2SUKlefH5vv+o8LLEbVvlJ0kQ
O73mu/BWKpyLaaPqNEtCkeWhzHpHKiwZPbu17JUk9KXy7GGcoAJP4vmSytuS
sEaj9TtPFhWqjoyd1kmWBJVu9wOLhVS4gN3Nb16RhItepnlJT6jAP7Lp7amz
krBoHjEb/54KNdXPrvadlIRLprQ1s61UiEzTdrA7Jglnuem581+oILhF/KuO
sySY/si40zxChbeMsOybdpLwIbTi+L0pKsRMjR0R3CIJirxXZ2QWqbC1wX1l
AJYEE//IQ2r8NBDJbp/oM5KETZVS/fUiNKg/s7nCbqUkWGQ9vkGh0uCyXUUo
wZYE/7T2sjEZGogt3RJOkyL79bv5PUaFBk1t4h8El0vCXlf1XZbqNIgrDLse
wCcJjhTKfLI2DWwjxp3758nf018uu7SSBhRnD6b9OA02uEaXya6iQbNexwAx
RAO1OwTauIYGCcu23F/RS8bzZPVRTGiwo6fCN62LBthk77fg/2ggWaazRugj
DdS9BQIvrKVBW+zt+YA6Grx9lTmkjWiQ7Crxqp8g+3oqdf4EpoGjSXik/RMa
pKavOOdkQQNZiQkreEiDji/XV/SQftcPD4puLg3u7O/q5LWkwc2XHe1pt2jw
oHJ//Vty3TlpS7rQdRr8ueGxS4/0FY49Pxh4mQYPK3lrjcj8N+vqNi6/QANF
r/y4QXMayLPbte8G00AKsJ0ZWd/NiD4Jk5NkHR/zd68h65f/PjrZeJQGM1+8
OW3G5Lr54id3VxqcT311RYHsXy5dBOZ202Db8dNuy0h8Umdlc+LsaLAdRNpu
kPjJOrJj2FtooK2a+F8LiW9q6SqfF2QdPRGv/5WQ+MtQLRzsybx/dgzuMFMl
8fDZbvKTfE43b4DwotNAumEP/RwZt8tu9fUNcuS61hFeSQYN1gz3GNbSyLqj
A37mS9Pg6+hp7rHlJN7r4h+3kffEZl1syXpuGiRl3E45tkCFz3mfPI7PUYG2
eP8s9yQVqFGve/A4aZ/VbFzRT87J/rjGX31USJBu1a76TIVYG0s6kJbi/11i
dwsV9u2k/7AkrcRKzqcLr6mwueLnHZtXVIi7LATyFVSYaTQI+ETOg/iQdE5R
MRW29zheoT2kgliOvk93BhVWvXDclXCDCqIKh3gNQ6mwSaopusmLCpdP+/98
G0DuV18e3+VCBZH2sIYD3lS46TX68LoDFYTj01Ni91GhVFZBk03Os+CyZu3/
z3XcZf2Acj4qRLt/lQhaRQW6r/eJA1MUWPb6z6SYNhV61nTnVQ5SQCBkGZjK
U+GNusZI5lsK8I+bOSTMUKBWqBOJxFDggu1WE41RCrwbSjt6KogCfA8d6f9/
rmtfKb55mPSPnPj5q50CeVdWmUlvpADP13tnLcooID6yo3ZwQQIW31FzRv0o
cMntGj3woATYpbLLZI5SIC7vgIzJdgnI9jB9Y+5KAeUKAXqtqQRs5XIduGxP
AYh+4bqFJgHJq4tZmqso8LvsTepQhDisyLDJPTghAcxSQblXOmKw99Tle80B
EnBI1e5jmrkIPLLMeDLrTb53Y5eCDZeLAI9EaS3zkASEfLXkif4sDHkFnwe9
HSXAZ2WAtnugMEx81dIQMZaAf+wNHyQKhUD6eoJd1Jg4ORcthf8JC8JJJOpw
ZFoM5INGrAYz+WD9OuKi2w8xEL6+s2S3Bx9IbzrxZF+bGKxpSFmRq8EHT7d3
ytuXiJH8/KVpy0Ne4OzL/m7qQ66PLlTlPuOBC2fNfEQHl4OL4wO/M++4IPmZ
V8yjdlF4FOUj/PHNLHHoJeNF/htRmAjW3ty+eZYwftU8fLdUFBpLDPR/v58h
PtUZ26UmiAJjjeTY9uZpgt7JJxu2XRSyo/qoW79NEvem0nPsa0Rg7E7keXfe
MeLpqgaYLBOGO2+U/uwb7Sf0ZK5spuYKgywnD6tL9hN5c9YfdJOFwcqwdfsN
4z4i9VX910MBwrC1oio2MuI7EWhTv9i1RhhWbpKL6lrXTaw59t6s8okQcJ3m
z14p0UiUZr19GvlMEES5dDwFtKuRTuQlfDdfEPTWi8mn6NSi7CNb6ogbgqCV
JrKvW/MdStJ72zETJAjbzL0r74t8QCcr66aOmgrCt8ca/cd72pDBp1pDm+fL
4GPWuZcmMd/QI0pNkcxLAfjuKrcy5cMQst9P2frtvgDIFW+/GxXwG00V7O3L
uykAnnGHjvXI/0Fm68elTE8LACPHWrd8/zCqC2AG710lAHHS2tDSTPKzz2c2
ZObzw1aXs9ZXVo+hCI2aniOp/NBuaOtrETyG2Kcopw2i+GE067WQPIwhL7G8
gip3fqhRtWxavWkczeA28R8Mfvh3wPoQv9UEouSu/KSVzAcvtnb2RmlModKx
MyfHL/CByorcU2YuU8gJ1Yi+OMkH+/sDtZenTKHbnXvRNjs+MI9hvOfmmUZa
IjHZPqJ88FHR4L1ewzRqcGxbazzPC1xl6qbEwjTyzWZ2cA3xQmP+8mWHV8yg
8rVPhBJqeaHo+hpbwZgZZOnb710azgshFiukw41n0cCLlYIhfrxAD8iu/H5w
FkULBWducOGFHwVfE/bEzKLGLEpr+1peMB+sVLjdOYuc28xNZmd4gBi8k+h6
dA4tKMc0vxrkARM9vCPl8hzK8G47FtPOA0KSB1IHH8yhH8u8biuU8kCdXlzL5+E5dNL0Bq+5Dw/c3cVtoeg2j5KSFLp37ecB/SN5g89C5lHpyK1Sn208kGpK
p55LmUdTWVkemdo8kLIypjy4bh5JL6iZV8jzgIA7lVn+dR4ZOd6TbhHigXvb
wv7ITs2j0yKFtXw/ucHCyqxuN5ODbnjoZih1cIPG/h//jA05qIIoOr2mhhvm
uNgllps4aP5kmebhbG7QNhU61nmUgxQbjXjCErmhOIEv1yOYg8w0Kj7dCOeG
o0NruJmxHHSuuzL2vQs3bPuW3UXP46Dbayzc+224Ycdz22r3Mg4i4qrMFsy5
IUOMv+DTKw76NrRBSlqXG5YrSW8Pa+Agrg11w7pK3PDyYtvp3Z0cpHxna80m
UW44dCBm2q2Xgyxn62+7zHOBr9GR9MzfHOS6wyYwaIgL+CZjzWkTHBTx4KNN
QhcXHMv49ezZPAdlL3PQuF/HBc1i2/9e51lA1QfbuaqfcMHbE3bVeYILaOC5
U1d3Lhfc+WijOr58AQlIfy6evM4Fv/a5zJ+iLiC2774YsYtcsOeJNTaQXkCb
3n11VffnAiuJ6CENuQV0WM31P+zGBVPG7GlnhQUUfa6fttueC77HNR96q7iA
8jo9//hZcEF0T43lKaUF9NbgV3WMHhekLH+dcID0hy4fu3WXwQUjLYuel8h4
4cHhUy/EuCBvrVbLuPwC2hX+Lb1gfok4y3T+e0d2AaWsGdjW3bVEJATwdl6V
WkCdQ78Wlz9dInQzRx+8oiwg+Tsjj1DyErE/0SjZhOxn745xFz//JWKyf2XF
9LIFdGvZDOWu/RIh0Xh40wL3Aup5znndqrdEnBK542NF4sX05fYXEF8ift9/
fLhvnIMOqgmwjIcXCaHadK8aEu+sTuH2I+8XiWAlj2eT5HmwLCSNG6IWiZHx
ZybmTRzkOSn7a9FjkYgoxgu7qzkoL1/ppt76RaK84YJm7VMO0qKqcxK5FolP
6V8E0u5wkFeN9oM3PQvESf2nnnwJHPTgjN7+6RcLxOdfby5XR3CQXp8JOAct
EIFTdcXbPTjIL8Xc77LjAtE9+/eswk4Oemy1TqVy9QIh3J+cu349B60utb6g
PMYhMrjTWovJ+2168cDmn0c5RCpnKYnZPI/ezoTk7LfiENS+EzuOVM4jJ690
njZtDuGksdizomAendrR9eLVn3midlFw78rz86hIeYd+mvc80TLN8TBizyN0
3e8qxWae2Jl9YCJMbB41Csb9jlo5TzR7oGj7qTn05299jv/oHLFzlbRAbPUc
Uq/cKL/9xBwhUXy35NyeOVSu7xFYbT9HHO888ZSO59D6nIhW01VzRNnAvzAb
tTnkehmuqk/MEsm5NT8O/55Ft51NebkDZon1G3MnMv1nkeT0ij8lQTOEoLG2
11H/GXT3qPUWLecZIjEnLIuwn0EGPUdzM0xnCBv+a4df6M0g2zf3XK7MTxM8
60OiH/+eRrGJym2eIdOEh6bNzYp904hHT6pSLmyKkDGKTby0agr9Pcy5Fho9
Qdg83vHwXdE4an2oL7Hdc4L4J+vmExgxjiomPOMU108QyUtXCyd3jqML5z/G
PVsaJ4RV5S54z40h+dTc+PGAccJBO4v3ksUYWl9rm3jIY4y4KmR5WOHdKEpl
5STbWI4SD3h6rjRn/0Yhxz5J05mjxHr78eusjb/RG1eGbtf8X0IfS4umDg4h
5zMTurSTf4l9pV0mQ1pD6GL+bb2ogyPE+uOfUu6X/ESflo2v8jH/QxTe4otp
+zCAIqrTTNHMIOHWdrbvpP039LPRJNHj6SBRbdApo8f3DW3v6vgde3qQOH4w
deKD11ckP0K71Tnzg9iqvGzgkXEPKpK5vOQ3O0BYuCT6/e3+jL4cPVudPddH
OFwt7SvZ04EsT8krva/oI3Y//xiy+KEd5YU+PfXvTB8h871X4OqmduSfNME2
n+8lHCzbLl0xbkPClV6XOua/E25/5tdGabUgb5WKdMm5r0S5J5eLcHYjMjGa
2nbwzFfi3Q6Wne7zBsRnbbD0YK6HELlbtGl/Wz1KO1VwcNP8F+KDL2XvEvU9
qqu7yT7D+UyIPeidEymtRYlf2jtqzn4mmB6Qs6u/Bu0fo16iLXwi0vveNvXL
1KBJhdjfhQtdRMya5XsHoquRik9w0dfFDuK3Z4ELK/EVGo54clAntINgBCs2
mfYAepo6Tg1aaidS0gP3VesAsnl97BSVq50AFQ3VpLyX6KzUXtMN3K3E5TVu
zKNpT9EmrdTf8WEtxE+dE/M8R58gKmpN7+FuIY6v/UfrQOUo/7D1UiBPMxGo
yKu2i7sUtT83qy7g/UBI3tNN3/bsEVIMcu0ZE20ioqbP1z9se4Aun7EyjKM2
Er+i1+8P4ipEx0KUvr1Tqie279NJDg/LQ5/OCaw5rPqemPiAFLo7ctHW839j
+TXfES0nBIlWsxykFfHKCBuSFGmF24ZWgyx080LBlS8mtUSFlX3IWFUGEo5M
7DuDaoirzJ2cF7W30VC0x7WyrdXEaefbZokZN5BzzPYBe9sq4vh3YZ5nJino
XazRf6M7XxOTO8U8344mofyrQoNaB4EoHD+2+u/TOGTAHAiKa6gknoPA7y1J
VxBV9QnrfecLYlx3YFZk/BIaY136yN9fQfATg574aiT6qLEnBP99SvzZ6KPP
7RmBirRXaAbPlRN7M1dFe545j+J0l1rL+MuI9w/84penBCNf/Y/nRyVKiFfe
txb+PA5AtoZ3dbQViwmb+tV1cZtPoAPeQ0Xvtz8kSo6XnVtd5IXo/lcFLTwK
iFMnQ6TtqzxQT5CBS3lwLjESPFjmdP0AuhXa/kQ7IYtIVa3h7r+8Ez0VnqRb
2t0iktUKylmftyIj6bWNOueuE6xQoZIrPWbo2Drhed1dscTyEpMxTWd19KHU
sETQJZBI4/uWxaZxo1b/QnOD4gPoNGPlBpZbk/mtwA2/bNMjkNf0tCVDSBbZ
Fjm/WZsZj2jxolYvvVahj9lU6R3+N9CfbdUC38zXo3xrj1WldzNQYtHdJ9rb
7NDQxlefza9kI4P3qee03Z2RloXShbcBeWjsC2+f5GNXdOy/IB0Hl0L08P7C
iiPsI6j95tGjf9WK0NYEzXTfTb5oKiW1slTuMeKNZ7OzTvkj6es11DNipUi4
unVVvlIQMkqY8ES85ei080W6KzqHnK6pPOebeYJ2Gro32A+HodOXbcXf/XmG
Iszv7c2evoCeRhY+cWh/iU5TDGanX8WizohPIvLvCXRriY+nJuwaOov5iv5+
BRRqoDQ0XBmPbq014CtrfY2c+JJ89aWSka7ZlocyTVWoeplT0+bjqajS1MXp
zNtq9HV2T7JF303UY3S1EFXWoKO71oRskMxA3mtydmU9rUWKXCZJXcGZaNHw
BRd/SR3y3lk3unosC9ENhhze3XuHNlT7q8iL5KIDOhsXHOIb0ablG1imfwqR
WWru1amMJrSB+q6p7d9DJBrOK2Ht9AGJ7RZ9oXuhCP0adsscPvQRnTj2ct1Y
yWOU9UatWi+qBUV6KultC3yC4uZbL3OLtyKNOdrZ4hdP0Tn9izubk1uRV1hW
tZFwBdpza+DHydw29CjOLf/MyxdI8lSu0JM3HUj2EuKutHiFeO7vao7a1onO
C96y3Mr3Go1+E0hzautEN0l+XPruNWqwPqQz19+FBmVUtfjcqlGkmobNWr5u
dDfx82gN1CLOL4d3B5W/IXPZdJdhzSY0zvdAd6vHN+SZnlLgTPuAhhj8iQb5
39DTAIE8r8QPqHNn2R5e/e8oattDjejUj6jsldRwNu5FGpLTdNly8n17o138
54F+NGhxk41MO9H3zU47vW//RHc0neT2ML8j84GzBxu+/EROJUWchz7f0c2w
zOM6Sr+QUkW4nx/xHdlXDF0cSvuFok4dKjJy6UWvtUPKPW8ModwfJ6dDc/tQ
lliWzIGkP+jWg231Oet+IIOhyT/qG0ZRwRWR0NLC38jFWPBkh/soShmoLI/h
+4OuRsrPRl4YRSPWJ7xO7f2DhlQQ/4+qUXTdOXzDWdFhlLUnWinb8h9KXHGh
Z85rBNEa5Lcz8Rharcc5EpU8iiYeoUey/02goL+bi0a2jKN67f+ovvsm0Aa+
h68fBo6ju/fWnKoNnUC3hLZ645xxZH9nxX8B1RPoRp/B1Q9L46j4qkJty7ZJ
ZPz2wcCxxxPI+/h0z1VSV/3gBFU3iUyhjb/GLH6ET6Fmllf5s9VTSMljJHtt
zhQqeaTktvPAFKrfO3D0z68ptG8gbvnN4imkZd0yteXkNEo/FPVW2X4aDWo9
EuOPnEGa+ePKp8NmUGVugd/ePJKnaGurJeXMoGSV3NaSdzPILWEdx/LtDNoo
f+umq/gsyvO0e2BH2myhWDakziKZzzsXFq/PorMXIy/JPJ9FRXPGl0PKZ9EO
7vA/3l9mUcJ/oqzz7bOIZ/b0YyWVObTONtZYWGoOufz0NA++P4c2cr18vxQ7
h4zdXTObG+ZQczpvqFfeHBL/to9Pa3QOXS3exW9D8rPKDod3nYbzyCtgPtN7
bg4p1VruWkPywoXp7j0/D8yjCUvzZ1e+zaOlYK22lsB5VF9pojjAw0FtO9zT
1K/No7Pler2JpE6aiui7yP1iHn3KoXv/+8BBq9aONdiJcVC5QKF93hgH7ShT
N5sn+WjiIROjA5ILKL/jyhqBVRxkrenA1eC4gAqD9gn+R/JZjZjv/RFBCwik
g/lcSb7L/9v7rWnaAjrvsLm935+DKgsvJeT1LCCf0YyjM/EcdHO5TOABrkXk
KzB6PJLk04He2XukVRaRs8PluqOFHOTQpI8b1i0ilchJ1WySf+vpEWoXPBZR
zxn3FfokPxeNtxb6L2oR6Uq2X5cg+fvPf13D//IW0cl/UlSLLg7KLJkoP/Bn
EZmfO60TR/L/c5LhadJiS+hectqmQlIfOJ8SP9+wcglBfpavJKkf1rSnu1+w
W0KeK7l9a0l9QTXS2vLfySU0JWRMrSb1x0jKkxVjSUvoS+FXdSFSn7yfWU/N
L19CbTqPL14n9Uve7uapA51LKNXkOt9hUt9cqDjwWXpuCb3gyg4LJfVP0ZWp
rz+Wc+GYWeOeT6Q+opuvtX9N58IXb0wvnSb10+WRiOpbK7mw9b+2D06kvpq/
/W5NEObC7/TZKIj0j9pQ8h3suDCSy1jbRcZ3Ljkq6LlyYYHNR6sCSf22sej2
FZGTXPj9WdX6HaS+K3UZWPoRwYVnn/x29CL1nwpF58TrJC5M33j8GJD6MO7V
if5bOVyYVjwgbiO2gBb9nu0KKufCt1J0d8gILaDjKlxvHWq5sO2xmk2yvAuo
u3njf3qdXDhWsovPjsNBWyOuPBD5xYUNzm7OBVK/Pl3Vyhic5cKi86XWnn84
iN0vn/BamBv7PLyoZNHHQUlJB/luK3Bj5uNRS1vyfHg25AUE6XBjccT7J6GR
g3wnR346rOXGzQ/zrQWrOOhrzuo9etu5cZLbk1uPyjlo+66zDSIHuPHOpBHF
6HwOeiFQhQZ9uLHWwrLl8WkclHrIVu12PLnfvtdu+iEcJCCbkhyUxY17lv86
XOvFQf51XwR3lnBjeR5Rxdg9HGSneWxYpI0bb1phzX1jDQdBV/GBwQFuHPWh
bu67Cgfpxsx8fD3FjV9iMf1d5DwI/75YHiTLg3FVt0Jl7zw6nVavsVOTB49O
Br0qej+PfljR0vRMeXDctGRkfck8el2YETq4h4wffhwdEjaPgr2fb955hwdL
7H/p+Yw6jyzRpLvYIx5sImqr/Y/UX8ISK8NqK3nwRskfhsc+zaHU4qxnJj08
+IjRfjnWHVJ/TVzSoivxYvf3QcoFjDl07k3Vxg4dXpwpr/Z7eGEWbUhecI0z
48Xv/vM/duLzLGo18kvj2cuLNUX/k1ubNIvGzjiJDt7kxRuUIrvaOTOowipB
I6OAF08GvhlSaptBYYr163dX8OLj/Q8McwpnkEQlCnnfxYuXDl++6L97Buly
q488kuXDHAr3dZmCaXQ0arLpdDIf9mbzpFxSn0IGTiv/6Ofy4Q2Kz0O+jk+i
WY0jgr/L+PCMy/RAIDGJot91431tfNjPpPKQn8Mkyl1eXWwhyY+DVBpc405N
oO+JCYnCCfxY5OyoW3vSGMpzr39UlcmPi40+dZzfOYZ8VwvUny3mx6rdSRf8
pcbQYnsQ398P/Dj+Pb3ZJPEfUpQ/eKpFXABzTB6YbIscRU4ZKx3TrwjghM6/
m/ck/0ETy3oO5t8WwHsrZ942TfxGcT6XvcofCWC5U3vfFdn9Rm/Nf4V9+CiA
s4vWTYLAEDL9klXIJ70M+9o2bt69f5DML81z/PYyXJPQ8CD2zXf0NZFTuPaR
IBaosjn2SKkGnZ0veLIVBDHP6sx+od7XSNZt92vHj4K4cJI9I7SOQLYG5R1+
44KYN69u5Qq1xwg++PDkGglh/yPfJ0apmUTW8j5HMRDCxsXGlh+qmwjPqLc8
Xz8IY6+xiGsfPH8Qe8WPPXn7TRgnBX1QZG4YJOxSRL1KR4VxgpZ+n7DaT8Ls
nk3bJQkRrHFox7Wsvl8EtbbtnqGtCH5zTWit15Fh4qVAr3VMkwiWsT65emzD
GCEZOZe8ulEUh+vuu5EYNUtUXdDWvvxeDAs8ivBO4OcD06XrGezPYni8sYNp
tZYPHgdxSb8aEsN50Wtr+v35IMu7jWtKSBy3BWi7lffxQbhTaPuBzeLYfYSi
VULwg6VOS9iqN+K4In2xRNJ3GXw7stbr+AEJzG4ysooqEAbFe2O5pocksNa3
fWt0uoXBqf/e92U+EniRW/bHleUi8GE/1THrnAQe/nqFHuEjArBj0KLjlgQe
fwBfpfRE4c7aeBmLbgl8g2vb7EDWcthPGXgtuZuCe+NrOj6oSgDfzdaJ2IMU
rJc+GSVkIgEFKtVs3qMUnJoORwW2S8D0qrsx/85QcOVaj9VbAyUgbtdB+8Z0
Cq69YCPys0YC1ny1vbAhh4KveioH6n2SgC+HcPmLBxQcuapIwHhYArSCGPL3
Kym4xnJKPpxKgaq0L9+jvlEwTs6V/LebAkfVGmhLPyn4uMXuJOVjFJB48GJD
wD8KPqWd6SF6lgJ7K9Py3XmoeHfAnXtitygw9W23n4UaFTdp/Ykv+0yB9CNb
7j7VoWKTAwGheUMUsBwzblu5moqvxcrp281S4BqvrAl9IxUX1yw8eiVFBQ12
O9f8ISo+3LYgImFFhcaHbwxO+FKxcHgjd5YjFU4Zlbn/Ok3FcV9Tzwy4UeH1
5qS6jktU/P1M659zwVQ4/DFibnsCFS/ynRpoiaSCmPNJnZqbVPxu3v9AZzwV
9hyzjyu9T8Y7d/cP51KBZ8LitXYpFe9U3D+3UESFvLP6E1kvqDh19EzO8woq
TFyRcIpvoOKvRebf1jZQ4WpRI8P7LxU/lh0zsBuhgqFJpd3ANBUfKgtc82qS
Cp9ePYjYy0XDxv/41n7mUEG95fLgVgoNv8nclSsiTIPGPWflXsvRMKy7uEZZ
ggb+/cesTFRoeNXqZLWvUjSAya2P1FfR8MnvRyLtmTTwPGf6/fZ/NHzQXttw
GYsGy5dp0aTX0zA7rbnEVZMGpdfkNlyxpuFKimeu+woaOMsKBfLtJNfbrzwU
1acBV+ZMXvA+GlaqSfZ1NqRBrubPT2MeNGx95FTCNiMaWD/uED3qTcMpbXXP
B0xoMG5aa/49gIYfx365rmJGg5odRRtqz9Fwjm2x94+1NEj1umH9IJKG4wYN
1zojGhy7GL4j8SqZn7lQGYJpYH77mHNQMg0b7fvz2NaCBpQnDgcP3Kbhc6GG
Xc2k39+09vCGXBre/c5p/P//5z75yfbRfkjDkVUrq/vI9RhuiQBKOQ2rLB8QP0H6++Rnz06/pGEt0/m0h2R+vVW9EV/e0PCuW9tW3iD357V+H1PVQMOOVGqC
vjkN2t1L4/PbaNj91acrgWT9+SG3Uq99oWHeLynDR01pcDY58s6pARpWdL4R
ImJMA5tHPrl7hmlYPytOZPdqGqjUOT2wmKRhAiV47jCgweQ3i1L1BRquuiBz
YE6XBnWzWs+X80vijdpctdu0aZBGlXw9LiqJOX8T/bap08Bbe6GuS1ISf2Zf
WDWrQgOL9T+aCEVJXLhluNeWTgPJfU3tOWqS+MJ5J0cHORpUXM3s9zOUxKqm
4RP7xGhw5V7Mb0czSSz+O7TFTZAGLnBybO16SSw/xtUvyUMDgbENXMIOkrgJ
LUidnqBCl/DKZaN7JHGJr+Os5jAVClVlxdrdJPGd0Mn4yAEq2O0cUsg6KYmf
Cf0KQG1UUPNuUYkOlsTmB3/GpdVTYSryhaZ3hCSObgqbz6yiQvrTq0amiZL4
0h4z7wfkPPxUWLWj+bEkrggW/vCCnKfnhorOTyskcfXOe0ePkPN2dRv/wduv
yfiVF1sJH3IeQju8jzZL4v1OhmNHyHk93xscwzMmib+uf1T0WIUKO+bd43/O
kvVcmZJ6IEkFtuT21EZuKezg+kPLToAK9RuYuTcpUvjniQN+yT8pIJtf/cpA
Xwpv8bygLp1PgUc+y2ddfaXwjV/eUpNyFPjTojc9dloK126+tvSLjwJaxg6T
4WFSeObg4cQzfyUgmyvtX1aCFJaf2m/lUyUBN+M1hnpLpXCUBgq57ykBF0rW
fXadlcJfXEodDFeLw2uZQ11j3NLYyFt/pnJRDJaCYzrChaXxBGMhMqpWDM6s
/9iSpSCN/8q8yW3dJQY+bfvre9dKY4MNHvd8vJaD83TQS9dwabzDsqfNzF8E
Uvbcej4WI42b1JMbxvRFoJWAZ+GJ0riVYvXw34gw2EQvK8/Klsafp2PCGzyF
Yb3c9Ye9NdI461Neo9R2IVj5X9EdVxEZHCfFJp7NCwBf6I8w1yQZPPa4mFP8
iRu8T/LuPJgugw/bNbqgS9zQeYip4ZItg8+JftptZcQNhbbOjftKZbBocKBP
XzwXOKg0yu9ulcFHG4/JHwpfJO6+KSuxkZTFH7+tx0XUWcJS9OKAWZIsDuJ2
C8lU/k2E3VDdIpMkR05eC9fhVz+QzrIcznCaHD7vaJZp4PgTdfqzi6rvyuFL
GY4fE4d/IV1bTZkTJXJ4xTvNy1yKw+iTwMqB+mY5fOikofdh4h8y9DcNC6fI
48OWNKcd2jPox3a7Z8NX5XFK8sZu82geHP+i2as6WR4f0e7qNvvLg820HJhp
t+UxJz80XnsXL07gd4za/FAen9ARM2tV5cPoxd6ddxvkcVOfSpBKJT9O1Tz8
z0lUAbP3GEvqDQtiK75QzepLCngwTLTrt4Y4dnlp2ro+QQF30WveDyWI44CA
qXNvbirgD2v7dydzxHHWz+OtNfcV8O47J41Pkd/1mfq9oW8bFPD6ymsHs40o
OPu6aVsjRRGvCpSdOt1IxRz21PmuG4r488LPIrdGKUz9VqztnKWIGaLWuyQ4
Ulj9xvH2TwWKeJfHZKOvpjS2FxnQ7n6uiH8laspviZDGeX9b2nu+KGK3Xlcf
01UyeOfTYp1+ZSXc9eOApXmELD7qd7zDXUsJX743Evbwviw+r6UZPmCghIui
wuJet8jiwvSMjh/rlHDOd651zSpymCfsWvgvDyXsGDp78NQLOfxwy/HOkXwl
XHbnqOVctzweTVBx6ilWwgLGhfX/OPLYoLujo+EZ6QuLWVxWVMDl3pYdhW+V
8L91xyTvOStgIlGm/egvJVxTHf3dpVkB83yp3+n8TwmPyW/S2/uXxIUd3rZl
Vgm70Z/0Togo4rqnf1o1hOh4z5hL3fw6Rfzhy6uWHxp0XGN45r9tjxQxVT1w
R7seHT+vk1mn/FYRO/jqtLwxpmNL3eaQK72KuIsnpTl7Mx1HD9mL60gq4V51
r4+uh+l4mk8t2veEElbzU7az96XjmKvGfJPRStizov2DxWk6zlh946voHSU8
ZG3xgRlNx2lp9ocmyD7G/aSbeu7R8R18eSZBno7XPH+/vfERHR97Ss/KWkHH
p/nCGl8+oeMo9UumFpiOOcm/G9Jr6fjG+CW6pjsdm3/L2Ha5iY6HjW4d9DtF
x+c1dzUEd5D1GkeHb4ykY74XUO88SMcq2acOXM+l4438AdZb/9JxckQ0U6yc
7GO7dr3JNB3nvb3xlvKGjpd/v/5edhkDd24dGX3ynY6lBY69a2cz8FhZbtUJ
KQZ2smFurdFlYAOZtsHVygx8M7XtbdkaBi6Iu733vA4D07Xx26SNDJxgnnY1
34KBXfwnN1/YzsAc7bLgKCsGznpZUHdyF5n/lZncbwcGVreVqrP3ZODzpZ+6
LEh79Ma7TZbeDFyVX/ufIWkLe0Nr9QMYeOve1vcFpxh4RHv1JuVzDFz9Uks3
5ywD650aqpGIZGDLnz2CqhEMfKLyzkauqwz899Q/XrVLDFy6bGfN3+sMbPrR
7u098vcpW+GNX28xsEXIN76HiQxsfJN405jDwGm7/NzXpDJwv+4js8MPGVhB
utctPp2B46tul3A/YeA2dl2rYwYDmztd1UojGFjnpseuS3cZeOhPSKZhHQPX
ZDyLYeUycHLYcdnGDwxsdj9CWiePgddJ77t2qIuB+0I2ZqbnM/BogbUAdy8D
hxhZtQUUMHA6Mgu5OcTAH7dmH6gg/c2t2hOrxhmY+5jeqCfpTx5WONYwz8B3
j94yOUs+//Ecv98qHib2Wn7s3+w9Er8tITrnBZj4fP1w01eyj3O0ycF6YSZm
XLGLW0HW1/rF666cOBO3bEkf7b3DwFp5/fs9aUz8+0FR8VIaifuJvfIlMkys
c9c2JSKFgdvNWtuWFJi49iPjsHcC2ecy63hrJhPvp+YOE5cZOPxjlfUNNSaW
arabCCRx70r7T/CHBhPnHj5jlRxKnodnSZXBCibe5+L6Rv40A0fqaYeG6jNx
7yMTI35f8t68kZ+SNWVi4Y1sT5H9DBx9LaHYw5yJH3TadbPJ+/B1t/Dxx5ZM
nHr01ot7Wxj48shsn5UVk5wfp+1dBgzc+9TvTqoNEzvIp324RN5L44hfzgM7
mPjlaN7+O3IMPCDT9fHcXiamvCt1mV2gY7Ne2yvvXZi461LIy7XkvU8orNss
68HE6FP+9I+v5PxYPCWKjzOxUMC/qUMEHSeJ6AUv+jHx1Feul+ghHf9uu7fG
KoCJ+6v3u55Np5N1pTzoP0fim7zbWy2QjkcMxY/oRzDxlXbzkWtudLx+KVLt
XBQTW3rzn3exoeN/iQFpMnFMXFTjvkKfRcdbX+68tDWTib867clLJOc/I6ph
fUoOExd2t93UIt97U3YbuPrzmdiwZ3eKeqoSvvvDMDDkMRNr8Qt4OLgrYY64
pEdRFRNnbfBcODepiB+6NmPpH0x8ZnwgxWZeAeccOftn+xATn45cSOD5pIDT
fdmpUSNM/KVDCLGeKuCYc2f+zkwx8f0aW8rzEwrY46bK7c/LlPGFTYOUVd/l
sWLzifkMTWWsz3E+XUx+N2ldive6VijjPfZzF68FyWHhbzX2VANlvDNohU7/
djk8MyxfEGGqjI1zVh8Yn5bFLUJVTp5WythkVXHN03WyOMaCVq59XBm/bCwZ
cXstjcM2vzzo7qeMjzgEFoxek8anbQ4tv3VKGR+rGyxZ2CuNPfc9dxc7p4wZ
ocTZtEkpbBHkRvt3VRmX99VIzzFJ3lRU4ltepIwn/STvDLvQsCfTQdtiQhlz
8bSKismI45N/z1jozyjjfTsLpiVui+HzlZmOyhxlzOaxpnmoieG0vX8juPlU
8PMzL3yXrVyOP6TGdL+iqeA9PGvj3MxEsAnl1RXLVSp4i39Q55zxMizKozu6
7oQKjsm3qi+7vIAe9y0r2ziqgh/dqik/Mf2J8O98XxM7oYJ38RK8Z/i/EUYN
1zo/zKhg9qLnqGRcL/GiXIbjzK2K/1t3qaDg3iDx5pL6Oh+qKmbJZmdf/DtK
dK7c9DHFUBUfv2LPkjeYJxaDI4d/nlbFdnEd/Z3dywB8ty6tCFHFFZHOrlvP
C0KEhxjlZJgqjvlX5B2vKgSCNsmGC5dUsYdReH3iEWGgqOQGU9JUMYduVkYd
FwW1ujdCpi9VcWnq4pMMjgRsleRnx3KrYcbny9sce6RA9eOGrCh+Naz9oMJy
H0saOFci6ReE1PCn+vVPWV7S8GCZoEwIRQ0fGd28anZGGiTmhQV9lNXwnrCv
/6LEZaHtu8SQvYUaDtuzesFgpTy4PFJ8KB+mhinUq4N79Ohg4rVPS+aiGr5O
2wDOx+lA1bydS7ukhmMy6kWn8ulQlcW4Ixqvhu8bzoQvKDOAnawSt5ihhg0+
tjmnCjDh91mNE72ghsX+ex17Y5AJAVsN1xRwsfAzWv9GVogK/F13LyuBj4Uv
vv4gOZKoAofXyosHC7Iw/2ZnucACFdijx/XTSoKFTQDz17WrAJauvzHMYOH2
nGC73TqqUCGOBNpVWfhzQOITGQtVWCX0+ESlOgu7WHz/mbBTFdicFKtrK1lY
udpZsDJEFUR63Rb0EAtbjakMf36nChc+tx+RW8fCOk9nnU59UYXF1i3t3JtY
ePjSi/11f1VhtHblo+btLAw9Z4pv0NSg/cG8i/9+FpbJ/F8NVx5Odb7GH8sI
nWzZr8pwvt9zzpBRRINOr6WLwdiKIhk3JC1XlkHUHZpScQ2Dxy4SKWtPScV0
XkuWUYxk6SrUUZmoOISs9/fHvX9+/vl83s+7Pc/7z6u5MuzJxsLotJa6MwTO
1bNaip+yUSNMalthHIH1Jnla5aNs/O14dP7F8wRSQrWCAz+y8byv708H/k2g
08Ljyrw0weA9etylPALj8je7Y8wICvkF6cJCAq90TInm3wke3Kko9vgagYAG
dYlgV4LOevPP8yoIZJcITDYdIWis2JzIbyDgP9LZ15FMsFLWZIEiAbltzg8n
MwlSyRv+8i0EvAo6ZAWFBDXmk3eNdhLIWkrqDblF8LcpsZvt3QS0rQTPnO8T
ZL0PV73VS0BS9qH1SyS4+sLrU9wQAdsbSvHi3QSj+p94B48QsPETjmT3EZzu
hnY3IYETU1Htw0OMn47bxubvCPyjTF2q5xXBsSZapDtBICoS/EPeEfRpyN7A
+kRgXqesumGSYH8t6/SsiEBrrNXd2mmCHWUit0eLBBZeSxtVLhJcaBOvF18j
oPxxYPfqKuPnHTN8EhQKp0SBk+IU90rpJp5ZRyHySnpIpBTFeGI082A9BfZK
Lb0iQ7HGxtp7QZ7C+Lz8vsMsiiOH3Zt3KDN4TaujWY6i3LnDemHqFPwzNN1Q
gaLF1bC0Gi0KS12yjfuVKAY3nlv6oE3h/UDteNJGitmjaYf1CAXrwPL8g8oU
29eKO4N4FGR4NnfbGDy3+Y5R6VYKxgbFsl0MZvNbcoXbKFyCuvB/Mtjd55nE
1yYULHdZ/FnO8MXHjh07ZEYhyq9hMZ7Rq8md7c3lU/D6NbV3loln+IGkxXMr
CquX35qLyVPc8B/la6q2FEQG91TLGD8WX9isvQ4UTmX12/3F+A1W3xGe6kxB
1+HtvRYmH1mme150uVM45+jnbCZBsc1jnw1rP4UGk6w5+zWCcxEBFfYHKRDr
2zkzTL7ZGRHKCT9S+JvjbZ7pHEG3O+djW/wp+LWGpikz9YnrzRgTO0rhr1ul
HYkTBGtEJY67T1CQiB8R5L0hOKx4907sKQqTy5eO2Y4w/bStVetBBIUKpanm
xEGC5i79v8xHU3Ap/67paA/BrOS5vaHxFD5EnCoQNRJsrZT6vfoChRkVVlQ+
04+fH6uSD5cpmIaPfXxVw8Sz3vTzkTQKv8u7o2kBwZ+/sfUpyWRwQBGxTydY
be/56HUuBc2Wgl2zlxj9i5EZPtcolJUNVauFEzS7nrCSU0YhPGZKNyWI4NHW
zIDBCgq8Rt+zVw8y+pL3drjXUvis9KdBhjXDH7fQZ9dK4apDr/AOi2BVoTT/
wh8U8tvchKsrbHwpUC9t7qIwlJ6aKGTm22x150/8AUbPKt/7TDcbZ09HqxqP
U/DkFsnMJ7JRJ+fS2VOTFJo+nnHVPM1G1/vZb6umKAzq6599foSNVfP37/K+
UNA6pGOnb8XGoPBFjy2yHODvrfPkiXSx0juBpyzHga1nhTG5w7ooslJellbi
wBtx3qc6Zp/FKBoUiTQ4EJ3HT50q0sXkKr+JRzwO1KhZ1wU66mLtePu/jttz
oPj65NOcVB1c7N7n5ufEgYidv0g9idJBft1rtocrwxe6Eljpq4Pt55c7dh/g
QPn0voFofR18oWOovPEoBy6mPxq1b/oaxX0yy+5f5MAXQ6VIuRFttLVhx1Ql
ccAuVk3LvlEbk/RuORWncGBi9YmhabE2qiz+IUrK4kDzWgLv20Bt5GauWvxY
xoFfHYLttvdswR96Anqk2jnQ1uTz0lewCXP3GC+6r+PCgESfm4SxBt6s9Mx8
uJ4LhhWWrOWX6nhPJcaYp8AFS8m6LV4J6tj/pvHkqjoX0q/wLB0H1VDhgrOw
7BsueHyYubk9TBUvtAY/XnFi+JymXQKSN2KobVHB9XQubPjKy+tTpyzGVbeY
K2VzQWXK3DBsTQZT1MYHY/O5cNLdVWzrdhmsfGew0a2UC7uez1x2zViH4wkN
Cct1XKixsmYOIUk81D4Q4jrEhdOWRpNp3kuCE4ZLGxpGuGBs3mg6XfFFEJu1
uZyOcQH4E2kmK/OC7KCAN0uTXLAT6gqyc2YFz6RnDpSuciHY6EHX92kTAmGI
6ryCBA8GRye+cqLjAtHgd+kx63iAx+0WiurGBPI3fu5yUeBBqWfcOKt8SLBZ
8dqxemUeqBQ/LTnZ8kygH90mTTV4kO7Rt3+utlNg/up9ScomHvyQEOTgUl8v
+N9/Ifj/f6H/Ary6Rko=
 "]]},
 Annotation[#, "Charting`Private`Tag$7541#1"]& ]}, {}, {}},
 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
 Axes->{True, True},
 AxesLabel->{None, None},
 AxesOrigin->{0, 0},
 BaseStyle->{FontFamily -> "Arial"},
 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[{{(-4) Pi, 4 Pi}, {-11.040707915408166`, 
 7.916726583864787}}, {{-12.566370614359172`, 
 12.566370614359172`}, {-11.040707915408166`, 7.916726583864787}}],
 PlotRangeClipping->True,
 PlotRangePadding->{{
 Scaled[0.02], 
 Scaled[0.02]}, {
 Scaled[0.05], 
 Scaled[0.05]}},
 Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
 3.7023115376880054`*^9, 3.702312441690508*^9, {3.702312691753213*^9, 
 3.702312713867098*^9}},ExpressionUUID->
 "b146eb4b-8952-4948-b4dd-9ca1dfd38808"],
 "\n\n",
 StyleBox["Si nos paramos en a = 1 el output de Mathematica ser\[AAcute] el m\
\[AAcute]ximo local m\[AAcute]s cercano que es",
 FontSize->24],
 StyleBox[" 1.81971 y se alcanza en x= 2.02876:",
 FontSize->24,
 FontColor->RGBColor[0, 0, 1]],
 StyleBox["\n",
 FontSize->24],
 Cell[BoxData[
 StyleBox[
 RowBox[{
 RowBox[{"FindMaximum", "[", 
 RowBox[{
 RowBox[{"x", "*", 
 RowBox[{"Sin", "[", "x", "]"}]}], ",", " ", 
 RowBox[{"{", 
 RowBox[{"x", ",", "1"}], "}"}]}], "]"}], " "}],
 FontSize->18,
 FontColor->RGBColor[1, 0, 0]]], "Input",
 CellChangeTimes->{{3.7023112063387613`*^9, 3.7023112125297527`*^9}, {
 3.70231130635559*^9, 3.702311325716323*^9}, {3.702311391127316*^9, 
 3.702311434166589*^9}, {3.7023117118069043`*^9, 3.702311713213209*^9}, {
 3.7023117678033133`*^9, 3.7023117681626916`*^9}, {3.702312320843865*^9, 
 3.702312426799636*^9}, {3.7023124841801977`*^9, 3.702312485680214*^9}, {
 3.702312746719057*^9, 3.702312747297188*^9}},
 FontSize->24,ExpressionUUID->"8b2c4fad-7912-4919-ba99-37122c9e73f4"],
 "\n",
 Cell[BoxData[
 RowBox[{"{", 
 RowBox[{"1.8197057411596531`", ",", 
 RowBox[{"{", 
 RowBox[{"x", "\[Rule]", "2.028757843318219`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
 3.70231132989279*^9, {3.70231139343979*^9, 3.702311435541602*^9}, 
 3.7023117146038103`*^9, 3.70231176967828*^9, {3.7023123524248176`*^9, 
 3.7023124283308725`*^9}, 3.7023124873364277`*^9, 3.7023127482971497`*^9},
 FontSize->18,ExpressionUUID->"53ffa31b-83ca-4683-9ad6-bcab314a78bb"],
 "\n\n",
 StyleBox["El m\[AAcute]ximo local m\[AAcute]s cercano a x= 6 ser\[AAcute] ",
 FontSize->24],
 "\n",
 Cell[BoxData[
 StyleBox[
 RowBox[{
 RowBox[{"FindMaximum", "[", 
 RowBox[{
 RowBox[{"x", "*", 
 RowBox[{"Sin", "[", "x", "]"}]}], ",", " ", 
 RowBox[{"{", 
 RowBox[{"x", ",", "6"}], "}"}]}], "]"}], " "}],
 FontSize->18,
 FontColor->RGBColor[1, 0, 0]]], "Input",
 CellChangeTimes->{{3.7023117846008625`*^9, 3.7023117911009827`*^9}, 
 3.70231296664087*^9, {3.7023130195026855`*^9, 3.702313024169874*^9}, {
 3.7023151293726454`*^9, 3.7023151307320337`*^9}, {3.702315307821292*^9, 
 3.7023153086806507`*^9}},ExpressionUUID->
 "11d494b4-6e57-444d-b804-9a30cb3e1fcd"],
 "\n",
 Cell[BoxData[
 RowBox[{"{", 
 RowBox[{"7.916727371587782`", ",", 
 RowBox[{"{", 
 RowBox[{"x", "\[Rule]", "7.978665712412846`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
 3.70231179180411*^9, 3.7023130262011075`*^9, 3.702313396029817*^9, 
 3.7023151319698887`*^9, {3.7023152803272266`*^9, 3.702315310274393*^9}},
 ExpressionUUID->"7d9bd2f8-ebad-42e8-a2cd-b64d51a17739"],
 "\n\n",
 StyleBox["Llamamos x1 a este m\[AAcute]ximo local-",
 FontSize->24],
 "\n",
 Cell[BoxData[
 RowBox[{"x1", "=", 
 RowBox[{"x", "/.", 
 RowBox[{"Last", "[", "%", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.702313269359008*^9, 3.7023133655653343`*^9}},
 FontSize->18,ExpressionUUID->"47b87f34-728e-47ff-b776-29f14fe303c0"],
 StyleBox["\n",
 FontSize->18],
 Cell[BoxData["7.978665712412846`"], "Output",
 CellChangeTimes->{{3.702313386860403*^9, 3.702313398467353*^9}, 
 3.7023153659656076`*^9},
 FontSize->18,ExpressionUUID->"7060ca52-18e0-478f-900c-c550f9ef2fa7"],
 "\n",
 StyleBox["Para calcular el m\[AAcute]ximo y el m\[IAcute]nimo de ",
 FontSize->24],
 Cell[BoxData[
 FormBox[
 StyleBox[
 SuperscriptBox["x", "2"],
 FontSize->24], TraditionalForm]],
 FontSize->36,ExpressionUUID->"10a98120-463d-4be1-bf3b-520347f7e214"],
 StyleBox[" ",
 FontSize->36],
 StyleBox["en [2,7] ",
 FontSize->24],
 "\n",
 Cell[BoxData[
 RowBox[{"FindMaximum", "[", 
 RowBox[{
 RowBox[{"{", 
 RowBox[{
 RowBox[{"x", "^", "2"}], ",", 
 RowBox[{"2", "\[LessEqual]", " ", "x", "\[LessEqual]", " ", "7"}]}], 
 "}"}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.7023134587514277`*^9, 3.702313462751492*^9}, {
 3.7023135035362015`*^9, 3.7023135076409616`*^9}, {3.7023136490828066`*^9, 
 3.702313663449353*^9}, {3.7023137208874006`*^9, 3.7023137214811573`*^9}, {
 3.7023138346715555`*^9, 3.702313835468439*^9}, {3.702315407449771*^9, 
 3.7023154635931*^9}, {3.7023155752307043`*^9, 3.702315599608794*^9}, {
 3.702315766868678*^9, 3.702315767587077*^9}},
 FontSize->18,ExpressionUUID->"19e8a327-3567-4357-8e10-66a6746ce98d"],
 StyleBox["\n",
 FontSize->18],
 Cell[BoxData[
 RowBox[{"{", 
 RowBox[{"49.`", ",", 
 RowBox[{"{", 
 RowBox[{"x", "\[Rule]", "7.`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
 3.702313464157765*^9, {3.702313509094052*^9, 3.702313517362359*^9}, 
 3.7023135610432873`*^9, {3.7023136564422455`*^9, 3.7023136647930794`*^9}, 
 3.702313722746758*^9, 3.702313837062153*^9, {3.7023154241642323`*^9, 
 3.702315466905602*^9}, {3.7023155794651146`*^9, 3.702315603421282*^9}, 
 3.702315776484911*^9},
 FontSize->18,ExpressionUUID->"8d942eea-9b96-407a-b0ba-bb9d99833820"],
 StyleBox["\n",
 FontSize->18],
 Cell[BoxData[
 RowBox[{"FindMinimum", "[", 
 RowBox[{
 RowBox[{"{", 
 RowBox[{
 RowBox[{"x", "^", "2"}], ",", 
 RowBox[{"2", "\[LessEqual]", " ", "x", "\[LessEqual]", " ", "7"}]}], 
 "}"}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.7023137318069644`*^9, 3.7023137892834682`*^9}, {
 3.702313855531213*^9, 3.702313888619405*^9}, {3.7023157870745473`*^9, 
 3.702315811695353*^9}},
 FontSize->18,ExpressionUUID->"143f9417-bbdc-48f5-a14e-c3870b4ef204"],
 StyleBox["\n",
 FontSize->18],
 Cell[BoxData[
 RowBox[{"{", 
 RowBox[{"4.0000000109096305`", ",", 
 RowBox[{"{", 
 RowBox[{"x", "\[Rule]", "2.0000000027274076`"}], "}"}]}], "}"}]], 
 "Output",
 CellChangeTimes->{
 3.702313791939715*^9, {3.7023138589521856`*^9, 3.7023138905568743`*^9}, 
 3.7023158243996973`*^9},
 FontSize->18,ExpressionUUID->"8c6408f0-a186-4b33-9767-aacef4cb2c2e"],
 "\n\n",
 StyleBox["Tambi\[EAcute]n se puede utilizar el comando",
 FontSize->24],
 StyleBox[" MaxValue[ f[x] , x ].",
 FontSize->24,
 FontColor->RGBColor[0, 0, 1]],
 StyleBox[" \nPor ejemplo, mirando el gr\[AAcute]fico de xSin[x] se observa \
que el valor m\[AAcute]ximo no existe, ",
 FontSize->24,
 FontColor->GrayLevel[0]],
 "\n",
 Cell[BoxData[
 RowBox[{"MaxValue", "[", 
 RowBox[{
 RowBox[{"x", "*", 
 RowBox[{"Sin", "[", "x", "]"}]}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.7023148540511336`*^9, 3.702314862845805*^9}},
 FontSize->18,ExpressionUUID->"4b9052d7-f389-4dd9-85bc-585d2f5220fc"],
 StyleBox["\n",
 FontSize->18],
 Cell[BoxData["\[Infinity]"], "Output",
 CellChangeTimes->{3.702314863392632*^9},
 FontSize->18,ExpressionUUID->"0f794fd2-40b6-49b3-9c85-988b1cccedbb"],
 StyleBox["\n",
 FontSize->18],
 "\n",
 StyleBox["Si pedimos que busque el m\[AAcute]ximo valor en el intervalo [ 0 \
, 13] ",
 FontSize->24],
 "\n",
 Cell[BoxData[
 RowBox[{"N", "[", 
 RowBox[{"MinValue", "[", 
 RowBox[{
 RowBox[{"{", 
 RowBox[{
 RowBox[{"x", "*", 
 RowBox[{"Sin", "[", "x", "]"}]}], ",", 
 RowBox[{"0", "\[LessEqual]", " ", "x", "\[LessEqual]","13"}]}], "}"}],
 ",", "x"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7023146011257367`*^9, 3.702314670909996*^9}, {
 3.70231471504534*^9, 3.7023147907012267`*^9}, {3.702315047595562*^9, 
 3.70231505178926*^9}, {3.702315984708439*^9, 3.702315990474129*^9}},
 FontSize->16,ExpressionUUID->"b15b7c40-d58b-494c-8fcd-448b90dd54d5"],
 StyleBox["\n",
 FontSize->18],
 Cell[BoxData[
 RowBox[{"-", "11.04070801593`"}]], "Output",
 CellChangeTimes->{{3.7023146316418123`*^9, 3.702314672191205*^9}, {
 3.7023147675875626`*^9, 3.702314793623085*^9}, 3.7023150553965836`*^9, 
 3.7023159924897327`*^9},
 FontSize->18,ExpressionUUID->"7e3a53cf-c413-4776-b696-3f91a76890d0"],
 "\n",
 StyleBox["\n",
 FontSize->18],
 StyleBox["Si usamos FindMinimum nos lleva al m\[IAcute]nimo local que hay en \
x=0 que es el m\[IAcute]nimo m\[AAcute]s grande que hay en el intervalo [ 0, \
13 ].\n\n",
 FontSize->24],
 Cell[BoxData[
 RowBox[{"FindMinimum", "[", 
 RowBox[{
 RowBox[{"{", 
 RowBox[{
 RowBox[{"x", "*", " ", 
 RowBox[{"Sin", "[", "x", "]"}]}], ",", 
 RowBox[{"0", "\[LessEqual]", " ", "x", "\[LessEqual]", " ", "13"}]}], 
 "}"}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.7023159269869623`*^9, 3.70231596008712*^9}, 
 3.702316005847006*^9},
 FontSize->18,ExpressionUUID->"c0f7f634-f144-4501-b4ef-8a1e4fa70032"],
 "\n",
 Cell[BoxData[
 RowBox[{"{", 
 RowBox[{"3.6025957208989244`*^-7", ",", 
 RowBox[{"{", 
 RowBox[{"x", "\[Rule]", "0.0006002162891167271`"}], "}"}]}], "}"}]], 
 "Output",
 CellChangeTimes->{3.7023159613683333`*^9, 3.7023160074407206`*^9},
 FontSize->18,ExpressionUUID->"a24e9a47-85bf-49e3-a547-1e3e07d16471"],
 "\n\n",
 StyleBox["Pero si pedimos el m\[IAcute]nimo local m\[AAcute]s cercano a x=5 \
no lleva a x = 4.91318",
 FontSize->24],
 "\n",
 Cell[BoxData[
 RowBox[{"Z", "=", 
 RowBox[{"FindMinimum", "[", 
 RowBox[{
 RowBox[{"{", 
 RowBox[{
 RowBox[{"x", "*", " ", 
 RowBox[{"Sin", "[", "x", "]"}]}], ",", 
 RowBox[{"0", "\[LessEqual]", " ", "x", "\[LessEqual]", " ", "13"}]}], 
 "}"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", "5"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7023162764799385`*^9, 3.7023162902925835`*^9}, {
 3.702322390622037*^9, 3.702322391215818*^9}},
 FontSize->18,ExpressionUUID->"20d30d33-d4f9-4689-a65b-bc9277766e63"],
 StyleBox["\n",
 FontSize->18],
 Cell[BoxData[
 RowBox[{"{", 
 RowBox[{
 RowBox[{"-", "4.814469889712268`"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", "\[Rule]", "4.913180440827742`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.702316291886301*^9, 3.702322403328024*^9},
 FontSize->18,ExpressionUUID->"f6178f6d-52bb-4bcb-970d-bc014bf8ccb3"],
 StyleBox["\n",
 FontSize->18],
 Cell[BoxData[
 RowBox[{"b", "=", 
 RowBox[{"x", "/.", 
 RowBox[{"Last", "[", "Z", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.702322425984568*^9, 3.702322501932909*^9}, {
 3.7023225388928375`*^9, 3.702322561198454*^9}, {3.7023227492889814`*^9, 
 3.702322774832806*^9}, {3.702322809135417*^9, 3.702322809776084*^9}},
 FontSize->18,ExpressionUUID->"a52ab629-31af-494b-8989-23630aefcae7"],
 StyleBox["\n",
 FontSize->18],
 Cell[BoxData["4.913180440827742`"], "Output",
 CellChangeTimes->{3.702322811385476*^9},
 FontSize->18,ExpressionUUID->"c9d3219c-5924-4f41-9d8d-97d7f8e2112b"],
 StyleBox["\n",
 FontSize->18],
 Cell[BoxData[
 RowBox[{"a", "=", 
 RowBox[{"Z", "[", 
 RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.70232279237178*^9, 3.7023228395841017`*^9}},
 FontSize->18,ExpressionUUID->"a9e6941c-e9f5-4a55-8c3a-24914b651d7b"],
 StyleBox["\n",
 FontSize->18],
 Cell[BoxData[
 RowBox[{"-", "4.814469889712268`"}]], "Output",
 CellChangeTimes->{3.7023228406622314`*^9},
 FontSize->18,ExpressionUUID->"48e2a9b0-e700-4310-a2f9-d9344ebcc541"],
 StyleBox["\n",
 FontSize->18],
 "\n"
}], "Title",
 CellFrame->{{0, 0}, {0, 3}},
 CellChangeTimes->{{3.670771534708886*^9, 3.670771554691062*^9}, {
 3.6707719325467367`*^9, 3.6707719811206403`*^9}, {3.670772068859024*^9, 
 3.670772503592306*^9}, {3.670772747872185*^9, 3.6707727610012703`*^9}, {
 3.670786897413767*^9, 3.6707869011481743`*^9}, 3.6708731085580883`*^9, {
 3.6708731911964083`*^9, 3.670873191977708*^9}, 3.6837450817693152`*^9, {
 3.702310170906128*^9, 3.702310218729224*^9}, {3.7023104632145214`*^9, 
 3.702310508545988*^9}, {3.7023106811548986`*^9, 3.702310706673015*^9}, {
 3.7023107526305866`*^9, 3.702310793096874*^9}, {3.7023108888916883`*^9, 
 3.702310899141775*^9}, {3.7023168307390175`*^9, 3.702316855267887*^9}, {
 3.7153531478203945`*^9, 3.7153531503829966`*^9}, 3.715353595696536*^9, 
 3.7153570176623526`*^9, {3.7159146551214314`*^9, 3.7159146761997595`*^9}, {
 3.715914956448093*^9, 3.7159149603074474`*^9}, {3.7159150087922935`*^9, 
 3.7159150753241186`*^9}, {3.7159151613091817`*^9, 3.715915169418626*^9}, 
 3.715915266372592*^9, {3.7159155459687605`*^9, 3.715915554609455*^9}, {
 3.7159160125352983`*^9, 3.715916020488471*^9}, 3.7159164115543456`*^9, 
 3.7159164745392537`*^9, {3.7660381259763775`*^9, 3.766038141113619*^9}, 
 3.766038200879265*^9, {3.7660386410140333`*^9, 3.766038668257654*^9}, {
 3.7660394276334696`*^9, 3.7660399683582616`*^9}, {3.7660400141800327`*^9, 
 3.7660400169763823`*^9}, 3.7660400479429398`*^9, {3.7661964266222377`*^9, 
 3.7661964356956058`*^9}, {3.7661964663199863`*^9, 3.7661965022908773`*^9}, 
 3.766236975128841*^9},ExpressionUUID->"6b4b5c20-03f5-4fcc-878f-\
973fca83bf39"],
Cell[CellGroupData[{
Cell[TextData[{
 "\n",
 StyleBox["Problema 1 ",
 FontFamily->"Arial",
 FontColor->RGBColor[1, 0.5, 0]],
 StyleBox["\n\n",
 FontSize->24],
 StyleBox["El problema consiste en determinar las dimensiones de una caja \
cerrada de base cuadrada de volumen \n4 metros c\[UAcute]bicos que tenga \
\[AAcute]rea m\[IAcute]nima. Se entiende por \[AAcute]rea de la caja la \
suma de las \[AAcute]reas de sus 6 caras.\n\n1.1 Encuentre una \
funci\[OAcute]n A(x) que represente el \[AAcute]rea de la caja con tapas. \
 LISTO\n Precise el dominio de la funci\[OAcute]n para el problema y gr\
\[AAcute]fique A en su dominio. Explique. LISTO\n1.2 Observando el gr\
\[AAcute]fico de A encuentre el valor aproximado del \[AAcute]rea \
m\[IAcute]nima. LISTO\n1.3 Calcule y gr\[AAcute]fique la derivada de la \
funci\[OAcute]n A. LISTO\n1.4 Encuentre todos los valores donde la \
derivada de A se anula. LISTO\n1.5 A partir del gr\[AAcute]fica de la \
derivada de la funci\[OAcute]n examine si existe un punto p donde A tiene un \
m\[IAcute]nimo local. \n Explique su respuesta. LISTO\n1.6 \
\[DownQuestion]Es A(p) un m\[IAcute]nimo absoluto? Explique su respuesta. \
LISTO\n1.7 Explicite las dimensiones de la caja con tapas de volumen 4 \
metros c\[UAcute]bicos de m\[IAcute]nima \[AAcute]rea. LISTO",
 FontFamily->"Arial",
 FontSize->18,
 FontColor->GrayLevel[0]],
 StyleBox["\n",
 FontSize->24],
 "\n",
 StyleBox["Desarrollo.\n",
 FontSize->24,
 FontColor->RGBColor[1, 0.5, 0]]
}], "Section",
 CellChangeTimes->{{3.670771534708886*^9, 3.670771554691062*^9}, {
 3.6707719325467367`*^9, 3.6707719811206403`*^9}, {3.670772068859024*^9, 
 3.670772503592306*^9}, {3.670772747872185*^9, 3.6707727610012703`*^9}, {
 3.670786897413767*^9, 3.6707869011481743`*^9}, 3.6708731085580883`*^9, {
 3.6708731911964083`*^9, 3.670873191977708*^9}, 3.6837450817693152`*^9, {
 3.702310170906128*^9, 3.702310218729224*^9}, {3.7023104632145214`*^9, 
 3.702310508545988*^9}, {3.7023106811548986`*^9, 3.702310706673015*^9}, {
 3.7023107526305866`*^9, 3.702310793096874*^9}, {3.7023108888916883`*^9, 
 3.702310899141775*^9}, {3.7023168307390175`*^9, 3.702316855267887*^9}, {
 3.7153531478203945`*^9, 3.7153531503829966`*^9}, 3.715353595696536*^9, {
 3.7153536473355827`*^9,3.7153536605411158`*^9}, 3.715353819350836*^9, {
 3.7153539444669685`*^9, 3.71535394540416*^9}, {3.715353980170025*^9, 
 3.7153539958274317`*^9}, {3.715354220503536*^9, 3.7153542211437654`*^9}, {
 3.715354324383629*^9, 3.715354324383629*^9}, {3.7153544076025763`*^9, 
 3.7153544113993235`*^9}, 3.7153544462206235`*^9, 3.7153560400757656`*^9, {
 3.7153560940778294`*^9, 3.7153561029730406`*^9}, {3.715356143660245*^9, 
 3.715356331158213*^9}, {3.715356372438876*^9, 3.715356416013284*^9}, {
 3.7159159632379775`*^9, 3.7159159839881563`*^9}, {3.7660384859598365`*^9, 
 3.7660384865223074`*^9}, {3.766039248428982*^9, 3.766039269003587*^9}, {
 3.7661965799538784`*^9, 3.7661965816722226`*^9}, 3.766242467344512*^9, {
 3.7662437196513157`*^9, 3.7662437201876907`*^9}, 3.766245110615177*^9, 
 3.7662458717282343`*^9, {3.766247563620942*^9, 3.766247606528902*^9}, {
 3.766317572071109*^9, 3.7663175726280823`*^9}, {3.7663199708340483`*^9, 
 3.766319971784988*^9}},ExpressionUUID->"78e2842f-eabb-459f-bc5d-\
d4b6d8ffe147"],
Cell[TextData[{
 StyleBox["1.1",
 FontSize->24],
 StyleBox[" ",
 FontSize->16],
 "\nlado= x\naltura= h\nvolumen= 4= x\[CenterDot]x\[CenterDot]h\n \
 h=4/x^2 (despejar h)\n\[AAcute]rea=x\[CenterDot]h\
\[CenterDot]4+x\[CenterDot]x\[CenterDot]2\n =x\[CenterDot]4\
\[CenterDot]4/x^2+x^2\[CenterDot]2 (reemplazar h)\nEl dominio seria de \
(0,\[Infinity]), ya que un lado no puede ser negativo ni 0, incluso, en 0 se \
indefine la funci\[OAcute]n."
}], "Text",
 CellChangeTimes->{{3.715354455143552*^9, 3.715354458643468*^9}, {
 3.766242557595182*^9, 3.766242749232321*^9}, {3.766242785513661*^9, 
 3.7662428892023573`*^9}, 3.766243710651795*^9, {3.766247457313834*^9, 
 3.766247463426703*^9}, {3.76631760649994*^9, 3.766317621960619*^9}, 
 3.766317695203367*^9},ExpressionUUID->"713bba12-913c-4dc2-8119-\
fc23a0d9a7cf"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
 RowBox[{"A", "[", "x_", "]"}], "=", 
 RowBox[{
 RowBox[{"2", "*", 
 RowBox[{"x", "^", "2"}]}], "+", 
 RowBox[{"16", "*", 
 RowBox[{"x", "^", 
 RowBox[{"-", "1"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.7662416997241917`*^9, 3.766241758609967*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"5680c55e-db75-4d81-b1a5-9347118ded3f"],
Cell[BoxData[
 RowBox[{
 FractionBox["16", "x"], "+", 
 RowBox[{"2", " ", 
 SuperscriptBox["x", "2"]}]}]], "Output",
 CellChangeTimes->{3.7662424187574453`*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"c00a97d9-9063-4974-ae21-3f0ae3ec113a"]
}, Open ]],
Cell[TextData[StyleBox["1.2",
 FontSize->24]], "Text",
 CellChangeTimes->{{3.715354469927889*^9, 3.7153544700992937`*^9}, {
 3.715357103566801*^9, 3.715357103879221*^9}, {3.766242910549926*^9, 
 3.7662429325523767`*^9}, {3.766247465973016*^9, 
 3.7662474712822447`*^9}},ExpressionUUID->"babbe641-21f3-49b6-bd39-\
532b2334247e"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"A", "[", "x", "]"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", "0", ",", "2.5"}], "}"}], ",", " ", 
 RowBox[{"PlotStyle", "\[Rule]", "LightBlue"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.766242937762496*^9, 3.766243061509432*^9}, {
 3.766243119985166*^9, 3.766243120534095*^9}, {3.7662431686467876`*^9, 
 3.766243196252434*^9}, {3.766243412144226*^9, 3.766243453489813*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"0e6eabf4-a629-4219-8460-a98a3e25bc0c"],
Cell[BoxData[
 GraphicsBox[{{{}, {}, 
 TagBox[
 {RGBColor[0.87, 0.94, 1], AbsoluteThickness[1.6], Opacity[1.], 
 LineBox[CompressedData["
1:eJwV1nc8Ve8fAHDcUomGopIRhZTOva4GpT4fq5CRWSQykmiSKOonRIXSUpGV
pEWLjBZSsmdWyRaijHu55yK/5/vXfb1f95znPJ9zPuORdz5mcUBIQEDAXFBA
4L/fwNSxf4IyFSCgnyVrPdsc+58s4EzkVcDwhyub7dN2oYh8iHKrRhUcvhU0
qZNohl+1rjHP6VeBgrCHU3uYGYbuid8kY1EFGY5HslKOmaFQVPaOvZ5VEGcV
0hQPZsj/N3CwIa4KUocVkg3bTfH3D+tHlULVcPJa7qjmWlMsu6OskldWDbqN
O9efaTDGyxnr1RybqoGXdOswfDJGgyptzX/d1dB7eI27/HNjLJxlb6g1XQ0d
gRVZm8OM8d2pqEPZajUwlFCn+07DGNOs6McvomtAbG2id3HiTryyoHRN0v5a
6Ff8fT8u2AhzNslkmh6theU5b/cqnjDCLodjMOlfC5Knxw2KHIxwS9oiq923
a+F/tn3dezYbYa+h/Vmxilr43WVuljZiiLrBg5Wnt9RBWkT3r8GDhsjjzvex
kPwG9vXKX867GOBKGefp6ZXfYMJG3XrI0gBN9TIupal9g7yPtjreegaYcn1P
/GyTb3BOPDcmU9EALZhJRR+Cv8H95PpFq/t2YJo7W2rt8DdQUFzdnuy9A52/
W31klNWDFmPgh3D0dhSJbT9yoqkevG7pqvMvbsdXdkelW3vqoVU+VWrKfzsy
msNO5wo2gKDHapaa83Z80JirfmJTA8TM/BVhxtyOPd9WPPp5vwHS7zpdNi3T
R4+qgaic041Q3Tu4MG2BPopHnQblsEZoEr5g4zxTH3PNhP/cvNkIO+JFNqzi
6+HcSrmdx583whwx9tHyTj18Vm4xU7mbeGlp/OssPfxTkn365q4mOCCfNfre
SQ9PfA5xPqbcDA3Pj3sZfdBF2a7twmPqzVCeUvJhSaYulgrNeRKAzaAq/lf0
z1NdVMTI4Uu2zRDSkeKfeVcXm3JvBT4IbwZGtLduuo8uar94GN/0txmydrhV
aDF1cWHs12bd7O+w9+fjnoBHOvjyuKjlUsMWKFQNTtN5qY1lMYtOp9m0wPhC
cVf7x9rYUyiVoOPaAq0Cxc/OJmmj1DKV34f/1wI/hW1L669pY0i+fnB+Zgto
6ZfIdXhpo434/157KPyE0F9+flYbtZH/enjR+4mfoBUE89wKEJP8PftZu9vA
b553ZEEzICtvDi9sXxv0uih/EK4EzJvxaGarSxu0rF7lb/UJsC2ya0Xk8Tb4
xT5/VPQZoGzivt19l9pA7t6GeYNnAWMKzQqT3rWBdrahkPtKwOti6+PFFdph
eVyr17+T2zAoYdKcM9AOZs1deY9ZW3EXK/vE2tF2yJkV7LJBeSvK5ntfc6bb
4emBPMZXma2Y29FfVTWzA0wulKwQmrsVRxSbzNJkO0Dt69I5xd1a6Pws08Rt
VwcUPH5+LfaeFmrnHDVsfN0Be9qZdorztVCgtg3fnekEwbcK8qeEt2BI34ek
M+c7IXODzI7Oqc04RyBOSPNiJ0iL/Wmz4W5G8XW2hZm3OqHbUdHGvGszKoZV
73j+ohOc3+27cb1gMxptKTC939MJb54sasLAzXgjOdn+okUXxK4KNlAQ2IxK
J938rNZ0w/Hl3S8/LtDELu5tm7nve8DSKO1zU+gmNOr2OHv9RC/kcfdZcqU3
omlX1FpZ2X7Iyuq9Gv13PfZ/cg78mvYbUjIW/y/knzpSC+tldB0Hwem32GiN
jDqKANfpx+gfWFHM25h8iI07Bu3GFayH4L2rrZpUgRo2FrgK2qkOg2mLlL7Q
RjXMvFjosII7DAKirmyvLyx8ZFS6NIw3DM5LzFpfF7IwRrSmZnBiGGSKP38c
K2BhYFTr9rdCI/BjjvCywI8sNL7Dp2wWjIBiaY50UjYLO1JZ0+FrR8B+TXTf
8qcsnFd0L2HcaQSur/bLGIpiodtMn7aKihEw+B20hXZkoZRcccNE9QiIqB3Q
uefAwgoNmcrV30ZAT793E+5j4cbDn98HfR+BiJU4eNmOhcK1ErEbe0fA5vSu
U2utWZiS+MY6XnAUouTvPb1jxMKuLbySI+tH4U5q6NSKjSx08fLPFI0ZBY9v
ye1188l67J+ZKnHk+kZtxzfzWCgygm+2J46CxDehZ3fEWPjihHBW4MNR+JWY
9tJxLgsnj1/L5rwaBbnOIddxYRZGH0t9+6N0FFbWGxnHTDKx+HBt/rOpURCW
Xdsv952JzINrK4ydOGB6Lq2l8B4Tfx6SO5bmyoGdS8eiCmKYGHF40YJ57hw4
4ighUHCHiX0nJswrj3KAf0d6/pebTEwOKP1mHsABhSM7WjoimLjkumeLzW0O
1KZbJB89y8Tpd08H9pdz4Fy1+aYSRyamf0yIzK/igJXJzOX/9jHRvuAGpVDH
Adt5l1PU7ZmYU+R/vLOZA5bCwc+S9zDRu2Yn50AvByLknh6/bc7EX79+T3gw
uHA0oXd7uS4TK8VV5/pocqEtxrf3iAoTtx050herxQW2uP2rIWXyvKL0ogLg
ws2z8d9PKjHxSoBayILtXDhVamt0fiUTjXs2Tj214MJd+aDwJzJMLMnR/tvh
yYWIEVy/TZyJn/fvrt0VzwUvRU6/2ySF69/eeembxIWdJglvF09Q+ECi+Wr8
Ay7U/V3Y8ommMKTE3njgCRfeBEYsUBqnUGe98+ewLC7oSMat4w9TmDfrSNaH
Ki4UqrBb235R+DY9KFaVMQam4KSYUkehsLG11G3hMVDRFHBzqaXQvE/5rqDI
GOytAIWVNRT+WlkeXb9gDGzpiLmplRQuurvkeqDsGExe6bmeV0KhZ/Czi3Wa
Y+AX/l1wcz6Fy/fU+wQcH4NmJcvvOs8pdOM+4vR4j8GJuQ43mekUvrzu723u
S663YeTIpFG4o3zFCaVzYzA/lqX77wmF3jqeh6vCxyDiarpJ1UMKS1UFXFal
joHOlqGqrHgK/QXX7CprGYMrtetMrl2lsEdvbqNS+xgcPnTrU/oVCnddHHA8
3zUGvEz5y+WRFK6a//zYxt9j4MXmzZwfQWGZ9PqribwxkC1ofJZ0kUJZjW0V
JxeNw/NMCbuZQRQWHLUwljEcB5OjIVaffChUfaVe52s8Dhnyb4REiKO5i+1r
zMbB+uP0qPlJEn9Ag2eYzThIvDeI7/aicPFl+/Bhl3FI9ssTlj5O4k9xK/l8
bhzuzfOrKvSgUOTHGYOjGeOwTWnxPYYThRt9H4tdzRqHghKBV/77KXQSb6x5
njsOOlt96zmOFGYbbNg3nDcOVbnVhv0OZL3MvydOlo/Daqnx6nZ7CvOvuMae
6RmH+4eslRi2FA6o3Ngf2zcOqpeiBSP2ULj0c77iu4FxcF6e0SNBfHRC9sXU
yDgM33IoV91NobR7U2HgNIlP49iMg9YU+mmb/gldyoOP0X+aRC1Ivv0IeJ26
nAd/gqpZD80prPR96vdVlgefRUUikVgpfTZDRJEHoc6OVn67KKyV+rQkUo0H
34W+S3JMKaQ4m7RvGPHAdGvkOmljCu2uuglnmPBgtui77M87Kbyw5lZp3S4e
aCT+1DtO/GP/iLXkbh7sifzt8NWIwsvlzzzuuvBA0jX5eoghhd0P5W8mBPBA
Zw/3neoOEm9IO80I5MFQrL5p23YKR5yTHN2DeUCr5s++RSwgJ79W7TIP+unu
cUFiqdsrCgpu8+BT/f3MPj0K5X3alJVjefCqenbYQ+LVlomR4fFkPcexc67E
G+avsLVK4UFj6bL2Tl2SX2FyQ92veJDEOHhgSIfC3QdarY3e8GCX76DTG2IH
3YS36Tk8yDVzCTpL7DktG+abxwMF37p184lDfWVl51Tw4M7xJkXUpjDS+mfw
kWoeqMb1aMwnvqke31ddx4NzxjZHWpHCpL8ymTHfeVA2X0ozmPjdQRlj1T4e
/Kt0s2wECj/pt7yMGuDB4uBc9xfEJSvjlnD/8sCo58+9S8QNrdKd78d4YDP/
3X4g/vn+h4ECnwdKHm/+Lifuir2XHjrFg5p4q3v0NvL+dkufMZtBQ9NtbZNs
YnrDj9bXs2jg7hjddZdYYPE9/aVzadB6PO+EP7FY1fKF7QtpGFUxmqlLvDj9
+yl9CRqsLlb4rSaWioj98XgpDSESF2bNJ15tsPyRlxwNnrMtfVq3UshU+i7W
oEDDs8lKy2LijTNivbco0XBLy8g4g1irw64pQYWGw+MnHRKJdfOkYMY6Guov
MC5HEhvFNz9wZ9FQcuhxhT/xroAYkXJ1sr6plKonsYOGVP2tzTScvaHKMiE+INm8hb+VhlVLNtYD8WHO3SQHbRrS25tvqBN71djO+qRHw0WPSvfVxKdfLDui
bEDDE/OvVrLEgVeaasJ30hDgeGa3BHHo4bsaQ6Y05IbEHBcjjjSyjbeyoMGm
uSVBmPjm6mUzcqxpcE6iuwSI7R2UUjv30KDnoRA6qUX60011o3n2NPzM6F9K
Ew8U46CGIw3G4pJxY8QZ0yZRLs401Km5i3OJAzbsVb9ygIaytgd+HGI9T/f6
bHcabopEVf5n0SSf052eNHhlD0r+d39dfZD0vGM0RC0MMuUR3xON+qjhRZ5n
t/DUBLGrTpyziw8NwuOOkdPEqn5PZl7xo2G3G/vmDLJfTlrWo2x/Gl5tN7ks
Qvyus3Bn5zkafC19ji0kDllW80csiAa/A8d0lxEbm7Ve07hAQ4uXgLAC8aIL
A+tdLtIgd3XwzVri5ly6ITKchl/9E9Ybie8PCftnX6FBpG6oQ5vYQ2mxbOc1
8v0yr+0zJWbby+eL3aJhSPLB573E/GuUq8YdEl/coJQHcUHRllkusTQkiazf
d5rYQt3GJDuJhjxmZWoMsdQhl6GOByQ/+M+fPyPuiD9+Q+wRDTdqUpI//ve9
RcKbnNNpKJzdb9pLfL394wGxtzR8PhjxTI/kq92S8tkaH2goelQ2z4FYwaT5
qXM+Deq3d+/1I36VzRnOKqKhy9nj1XPimqsq55zraFBdbmWhQuor5vNG+cgG
Gh665wgYETtP6BZmNdPwSOjhbU/iETcHEbF2Gji+G869JF647UZ01iD5Hp0S
qw1IvTd6J2p2DJF8NItbfJw48XHaD1EODQohf3/dIWZJfFVw5tNwfeZSnUHi
XQOT6aKz+NB64fSHRNJPomLcipxW8CE7qT6VTfqX76kg74CVfCjI+Vh7kNjB
Il7uthIfwk3VmuOIVUXqfctU+SCe3OUjSvpf8Wn91Zs0+aAht6BzlFjIdtUl
UQs+iG7uc/9N+mnfetygbM2H7bYcRYr046oF9u3ae/hQ438k9wRxwtcbmr4O
fJi7r8d9glhLg9Hf7sEHhVsJ9UtJP/dZ0mGUFcwHo+qOEn/S/+1Hp8aqQ/lQ
GCnZW0qsV7kseeASH0p6Mpr+mx/iYeYT8lF8qEv11swnTh/Lexpxjw9tFeXd
i8i86f2WIOqcSfYv0fa1jcwju5v7KkR/8cFO3/Dkkv/m3WuR5Z79fLgSvqb5
MnFrddbB4kE+lK/aoz5N7DpfXDCUwweX6Ncf+v+bl5e/qE8LTsDaOJZ6uR2F
QYHMu8PSE6BqWez0kczjx4cFXestJqBayMFs90HST8LTX6y3mYC90uKveomp
J3unrttOQEavvKC/O8mXX5nRZvsnICT5rMv9Q6SenD2Kvx6ZgKCnRuqTnuT9
7aml3l6cgBeGOVXfyfmBp5dCJ3yYgIu04k1Df1L/bxOCC/MnoLdsoesAsQA7
RqyvcAJSfRdNXg2gcJbcVXl26QRUzM0IbjpLoSTtZ1jYMAFfDIYGfAIpVE8z
vts7ROLZVcCou0Dik+BoqK2chE0CQyqrrlHY2a3jVxA2CdyQq6VzyXlMJ6Hi
/prwSchsl9syTJy4x678+pVJCH3gdLnhKcmf0hMKLrcm4YXmtqKH5DzX/CKx
jJE8CSZXdDLNXpJ68P+3Qv/DJJwqHNcszSb1ujC3uIgzCZ5K4Q8PfiX1v1Vt
ebnTFIiwQqxV+8n/piLBE65T0JsdcHrDb1Kvjp39Ku5TEHGm3QYGKFwZdCs3
9OgUOK1x32r9h5xPvtC26D8FRf+yMy+NUJhiVnDn9c0poDbM2yhBzsuPnCwl
Y4qmQEMrJTJTlIlpF3wWHlz3DzqNTMMWs5kYZu2yk8H9B64up97ZBTNxw4+k
x2Hl0xBUW5a26BcT76jEppXvFEANaYk3Rsos/F9e5J2dOQKod75Ju8mVhSbL
rVNKVgliWLrCxcSHLNQ+WrR34SVB5CiHm8X0sjBB2nlVGVcQJ+YZ1M7YoIar
PqVGm+4Vwk07Oe8qA9Uwal3BmpoPQnjbZmu6aqUauo3OqC5ew8DRkfgLiavZ
6PxyZMWlqwyc16q7QCWQjYeDLCeNrjHwiYX3i+zzbPSxzGgQvcHAri9icQbB
bLzI9bkSFc1Aozi3vYdC2ZiuSU/cjmPgztktnukRbKTzp+sfPmXgtsuR37bf
ZWNUjWhkYREDQxznxLx4xcaY5CPuocUMvNj3Oscwg43JJyt0DUoZ2JbVvaoz
k41vJKP4pRUMTLb41CKZw8Yfdovca78xsNHpQeP5j2xU7lym29HJwEuTnIED
ZWxkZZyRfdDNQIXE+nxGBRs3X/hOH/jFQC336vakSjYaK8e96OtnYAN7XKi1
ho1enitkh4fJfmv0i+2b2BigdZ5+NcrA+MfssclmNl4Q66g7yWWg11mho3E/
2HjneXI4j8fAn+qsba2tbLwfOONgLp+B/x4FRge2s/Gp+QGdgEkGPoe7mgqd
bMxQ+CKz7R8DpXZ4Kxd2sfHDqBI9Pc3Azwtm73frYeP/AaLn6NQ=
 "]]},
 Annotation[#, "Charting`Private`Tag$2931#1"]& ]}, {}, {}},
 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
 Axes->{True, True},
 AxesLabel->{None, None},
 AxesOrigin->{0, 15.11905266773865},
 BaseStyle->{FontFamily -> "Arial"},
 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,
 ImageSize->{420.0624999999992, Automatic},
 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, 2.5}, {15.11905266773865, 68.13019531152167}},
 PlotRangeClipping->True,
 PlotRangePadding->{{
 Scaled[0.02], 
 Scaled[0.02]}, {
 Scaled[0.05], 
 Scaled[0.05]}},
 Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.766243045744534*^9, 3.766243062568225*^9}, 
 3.766243121003174*^9, 3.766243196868545*^9, {3.7662434136200647`*^9, 
 3.7662434542981043`*^9}},
 CellLabel->"Out[18]=",ExpressionUUID->"f26a1582-a988-44cc-870f-fd5013a9944b"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"A", "[", "1.49", "]"}], "\[IndentingNewLine]", 
 RowBox[{"A", "[", "1.5", "]"}], "\[IndentingNewLine]", 
 RowBox[{"A", "[", "1.51", "]"}], "\[IndentingNewLine]", 
 RowBox[{"A", "[", "1.58", "]"}], "\[IndentingNewLine]", 
 RowBox[{"A", "[", "1.59", "]"}], "\[IndentingNewLine]", 
 RowBox[{"A", "[", "1.6", "]"}], "\[IndentingNewLine]", 
 RowBox[{"A", "[", "1.61", "]"}]}], "Input",
 CellChangeTimes->{{3.7662432106569023`*^9, 3.766243251774498*^9}, {
 3.766243471392269*^9, 3.76624355214093*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"959808f4-d022-4956-afc5-620d7b8f91c7"],
Cell[BoxData["15.178455033557047`"], "Output",
 CellChangeTimes->{
 3.766243252644867*^9, {3.766243478847825*^9, 3.766243524266509*^9}},
 CellLabel->"Out[34]=",ExpressionUUID->"3218fdb3-d915-4e2a-a828-6952bdb87a83"],
Cell[BoxData["15.166666666666666`"], "Output",
 CellChangeTimes->{
 3.766243252644867*^9, {3.766243478847825*^9, 3.7662435242752733`*^9}},
 CellLabel->"Out[35]=",ExpressionUUID->"c385b077-2403-4281-ab4b-d0f53850f602"],
Cell[BoxData["15.156226490066226`"], "Output",
 CellChangeTimes->{
 3.766243252644867*^9, {3.766243478847825*^9, 3.766243524280349*^9}},
 CellLabel->"Out[36]=",ExpressionUUID->"6e6f0ea9-7943-4d26-8254-71eb265d0363"],
Cell[BoxData["15.119382278481012`"], "Output",
 CellChangeTimes->{
 3.766243252644867*^9, {3.766243478847825*^9, 3.766243524285412*^9}},
 CellLabel->"Out[37]=",ExpressionUUID->"99ba47e6-5988-4aca-8e0f-7b475b04ca11"],
Cell[BoxData["15.119093081761006`"], "Output",
 CellChangeTimes->{
 3.766243252644867*^9, {3.766243478847825*^9, 3.766243524290477*^9}},
 CellLabel->"Out[38]=",ExpressionUUID->"4b437ee8-8f2b-46ae-bd36-5976f8a94bc8"],
Cell[BoxData["15.120000000000001`"], "Output",
 CellChangeTimes->{
 3.766243252644867*^9, {3.766243478847825*^9, 3.7662435242954807`*^9}},
 CellLabel->"Out[39]=",ExpressionUUID->"5db1835a-d7af-4730-b667-63251b8912fa"],
Cell[BoxData["15.122088198757764`"], "Output",
 CellChangeTimes->{
 3.766243252644867*^9, {3.766243478847825*^9, 3.7662435243022213`*^9}},
 CellLabel->"Out[40]=",ExpressionUUID->"1e1d629f-3371-4d64-9b29-af0214ca256f"]
}, Open ]],
Cell[TextData[{
 "El valor m\[IAcute]nimo de la funci\[OAcute]n, es decir el valor del \
\[AAcute]rea m\[IAcute]nima, esta en el intervalo (1.58,1.59), ya que al ver \
en el gr\[AAcute]fico la funci\[OAcute]n se acerca m\[AAcute]s al cero en un \
n\[UAcute]mero cercano al 1.5 y al probar podemos ver que dentro de ese \
intervalo se debe encontrar la menor parte.\n",
 StyleBox["1.3",
 FontSize->24]
}], "Text",
 CellChangeTimes->{{3.7662435713305187`*^9, 3.766243733035022*^9}, {
 3.7662474741321087`*^9, 
 3.7662474786071863`*^9}},ExpressionUUID->"a29d49d9-7a33-4816-9126-\
8cc9006b6557"],
Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"D", "[", 
 RowBox[{
 RowBox[{"A", "[", "x", "]"}], ",", "x"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
 RowBox[{"A", "'"}], "[", "x", "]"}]}], "Input",
 CellChangeTimes->{{3.766243565585244*^9, 3.7662435668736362`*^9}, {
 3.766243746013294*^9, 3.76624375650142*^9}, {3.7662439428475647`*^9, 
 3.766243945304688*^9}},
 CellLabel->"In[51]:=",ExpressionUUID->"8420ee7f-2ade-4f9a-ae3e-46fb0a39f97f"],
Cell[BoxData[
 RowBox[{
 RowBox[{"-", 
 FractionBox["16", 
 SuperscriptBox["x", "2"]]}], "+", 
 RowBox[{"4", " ", "x"}]}]], "Output",
 CellChangeTimes->{3.7662437571706944`*^9, 3.766243945930234*^9},
 CellLabel->"Out[51]=",ExpressionUUID->"790e390d-5b97-4ff7-a9f8-dea3ff76336e"],
Cell[BoxData[
 RowBox[{
 RowBox[{"-", 
 FractionBox["16", 
 SuperscriptBox["x", "2"]]}], "+", 
 RowBox[{"4", " ", "x"}]}]], "Output",
 CellChangeTimes->{3.7662437571706944`*^9, 3.766243945937653*^9},CellLabel->"Out[52]=",ExpressionUUID->"ce12349d-1c25-4bbd-b5c3-2d48ecbebf80"]
}, Open ]],
Cell["\<\
El n\[UAcute]mero de arriba es la funci\[OAcute]n derivada de nuestra funci\
\[OAcute]n original.\
\>", "Text",
 CellChangeTimes->{{3.76624377866002*^9, 
 3.766243798804932*^9}},ExpressionUUID->"d5d98ee1-7337-4423-b819-\
35995d367621"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{
 RowBox[{"A", "'"}], "[", "x", "]"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", 
 RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
 RowBox[{"PlotStyle", "\[Rule]", 
 RowBox[{"{", "LightPink", "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.766243808154428*^9, 3.7662439305285387`*^9}},
 CellLabel->"In[50]:=",ExpressionUUID->"edafc5d8-8bd5-4b12-9fbf-c1c9c20c275b"],
Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
 TagBox[
 {RGBColor[1, 0.925, 0.925], AbsoluteThickness[1.6], Opacity[1.], 
 LineBox[CompressedData["
1:eJwV13k8VN8bB/A7YywVqRAhFeHODFkLRZHssif7VipFWihbliKyp8WSslRC
JWmh5ed5WklaCCEURWTNmnV+9/vXvN6vOXfmnuee53POXeflb+NNJwhiF40g
/vvccy91mMPhxYHo+a+ayWwUnhWX2zLHi98YHzekJbDxteFNlxP/eDGy5Sr/
QBwb5TqevBsY4cXq2ylueWfY+If/5/WWTl4s/yzqvSKYjUcObnR48IoXjSZP
Gi/dy8Zw2VbcF8uLpHJRg/9mNmZdkUn7sJQXF1b42g71sjDne5y/9SIeZHdt
Oz6ry8KVn20tmSLc6PHtxEx5KROrrWx3vJdl4HELB5aHChNZGStuPl/HwIwj
Q7ZOSkxM/F7HXbKagYdDoGKXIhOtDltVpYowsK1CQNOKycTmhJ2m9twM7Lp0
nGm3jom9b42sOn9xYVN+7LOM5Uzk09F2mbrOhRZqjhMSYyQaM2UDZKS58GzS
ElWTpyS68A6td5LiwslP4W7lFSQe6X7cmCrOhS1OkW1y5SSm5xlrLKygrud1
r1v0kMSeVb4zzVxceM1d/Pn3uyRGL34QmdxNR3mvyJjaPBJf9OsmTRfS8VoR
f979eBIb3i3aqnyTjoq3tCTMz5HYe6t+aF8eHVeMJS/ujSVx2d69Vg2ZdIyJ
O7ZzfQyJHm2xQvfi6cgvmx9TEkHiQu3HzL2+dGw0rf+0OJDEzSUuBZ+U6LhN
90pKvweJdxuXKT9i03HtYLzNVXcS186/fpIlT8c/GrtnrdxI5DFX/OC9ho4e
M/u4K51JrO+bH5tdSkd13hn2PXsSD8rm6JFDNJQPV7AYNiex3dz2vcAfGpLb
D+ihGYlWAby7xrppmHRpcNMFUxI3vfI/UNlOwwPLNZW3GZNI99RNsftAw7oX
0yn39EnMyu5si7xDQ23Lijtjm0kUeH1p375CGorNXy/o1iIxst9kxOwGDU9r
eL1o0SRx3+YyLtFsGm4ZN/Ss3kSiavNp1t0EGuZLVZ8GVRJrhNYHtRyk4bT5
WhFRNok6W5ppsI+GI9zGggosEku9EhNueNFQV1bMTJ9J4uX749f8nWjIytRO
DZIn0cvyzRtuUxqqh/9NXJAhcSZ+n5Aqk4a5m9y2hKwmsSTa/w1LloYCo5ID
5ZLU+PCgkzLraMisKe6fkqD+/2j8N+FVNIzJ6v0eLk7Nz6Hk+hQfDQ0TD7cW
ipJoYVO+a4RBQ3u9ldumV1L1MEfePoKqn9Bmhjnlg9vqD7X+I9AmZaHinzCJ
WnKTav/rJfCc+U5+/xUkDqzhdD/6RaDIi0sP65eTmLuKL6PkB4FBdfc/aVLm
ExCfy2kmMPbD6/38y0hsHtN5fbqaul7qomedAImJg4YnQl8TqDx3vcuYsu5v
SzIACVTXPN/3kp/EwlbPRO8KAsccIa1yCYlBL2LsjAsJfLxWOb1hEYkKz5J5
9G4Q+DOuLcGD8o+H6RVauQRaRbPEh/mofikskmRnENh5+q2AMGXRlA+/BOII
fOt8MOMUD1WfuKbLPNEEWvYE50lRDj/93ZgTQaCDWZnDS26qXwL/3hk5SaCO
7Oq25ZQfu4gEftlP4GsD/qg6Lqo+9lLytXsIdM49ZRBHWcpKvuW1O4GSRoc+
6FE+q6+l83g35fbrqv+jU+tfZ/twiS2BTQcOiURQHtpklnfLksDiM4Vv9Snb
s1y5M40IDBXKz2mkkbh4/b7y8/oEYuhkbT7lytX+PvHbCBzfM/LlGOVjokES
Z7YQ+Cx4b7kBZbnlUR9CNQg0GWaFSFBuXRwfEaBG4LXINWvGCRKTGRdU/JQI
rA9aV/SJ8vaFKz+92QTuKxeSKKE8MXXjkps8gfmP2k6mUHaKK0/PliHwpsCl
2EDKKFaT2bqGwObhRXJulOWK2q6ISRJ45ty1XSaUE7WGr9qLEfi0rkJMg/Lo
O1ruRWECjZJeHJWnvNtJOL9+GYHpNuv3iFN+/kfuxjIBAsuSLIcFKUuHahVY
LCJQM/qhGB/luCXmhYncBHo6VnXSKQ9dcSuuoRHIv4JjTlC+5dDlsHyOAzUZ
jS7/+Vgwr2vSOAfmXlQJcVHemqXguWiQA78tdwX893uLnll7x3Rz4OckEbWM
csO3Ez60Dg5EelppS1DOnbvid6qJA0/VawtJyr6rXxyd/sgBdWHinSZlja09
gYFVHAgoCMkxo0x3XxLyFzignPlhgyfljxHK4X4VHMi6mRQcTDkrd9fpvlIO
PLxoc/oiZe8XIWe9izhQol9uVkZZuSsnvjOPA+aFjs31lOfob5Jdszhg0djK
mqRcLfMnrSWNA70LHQaS1PO8sEMwfVcCdT8RAgr/PW/WWcecnWEcIN5c3ptD
eaIg/Pq7AA4wZK2ef6aMVddvGfhxYGjV3z4Gtb52Lxq6p+PGgX3Ha+oCKUuz
hB4+sedArkPo+bL/1qOpZsVGS6oe7QzVUcrRiadRUZfy8vK1IdR6trp763WR
Jgf6/3cs4CVliY+11bIqHNBZqvhQgEFimaBo3WppDhSU9dLvUg5X1m7MFOfA
OokMURrVPybWni0iQhzQcMqXcaD8I+12pwCDAxmhJoqCVP8tXak7Ot+9AGF2
Gx3yeKn1u8l7MrhjAaY8JoMEqP69uTt+ZqJpAZaoHisMo6yd2UAfqlqAinXJ
2/ZS/e8j6SPUUbQAXbGf8x2ovFDXSRZ1yl8Aoq4qqZ0y4fZAoilrAd40vMjx
pvLlcs68zMeEBZjfyjSIoPLntXSaeqXfAkRNxw82C1L52JT0J917AbTt3g1E
/5df587lHnVdAAvmYKU6lW8DI5H8sjsXoHjaZSCHykMh8P+VoLAAbeNOP26I
kJh97FCW9/oF+FUk2e9P5amc3H6rbZILsFTE4M9WKn83J7k9H11C3f+SqaZe
MSq/nXdedOyfhyAHr5++VJ4PLDUxVfs5D6cOPFzsQOX9iZc7CIFv86Ce4GFi
JEViPFPbF2vmoex5mZTqWhLvT7F2yBfPQ2r9okKt9dR8L/KNjx+Yh888EbrC
itR4I0bxR495ULXmZehvIKnzFMe90GEe7lsEMk8okUh6Tb13Np4HfXb83T4V
Ei2Ve66/lJ+HC8m163k0SLxW+8o2tWcORl9u11y1nRofCYsOdszByJz/sVRq
/yxTewb6TXNAp39y5zcg8U1WGXvqzRzYnTnus4LabwcO5HG53ZwDyZUan3Zb
kLiFO+IBe+8crNda+6iW2t/JnqRFqS5zoM2OOnLclcSVVdnu43ZzYLIq8bwU
dT4YiXu65H8GcxDjkiZ62ovEAv7JPRbyc+AVd+BJuA+JK4T9hI/+mYW3Rn8z
bYKo+U+EHmzsmoVZpcYJvRASBxvjUevbLMjdlePZFEb1V3qhL712FjJE7zso
RJJ4SuLX6wt3Z8H+k9FumzjqvCPtHPj4yCyEeXt6xmWS2MR18L24zyzIG14/
9eYKia9+Ba2L8JyFAMVVN3ivUfUpuPzByGYW7iiKy13JJ9GWVS/bojYLB3YH
X+XcpvJbxaRpdnIGvm0w930FJF7U1dDQOzUD2pXQ5NFPItfb4fb3gTPAN106
t2WIyjOzwmj7wzOQUpX0WPIvidb2q+oPuc+AQqk5Z2iS6hffWd/LejNAZBem
f6UzMS4d8vu5Z+Dv8S0ZlRJMDBsyWno5eRrEhCSPCdkwsf848Wht7DR0yc7R
S3Yx0Wm6wvl2xDTYJIswLB2ZqMVgFeGRabDauyHwhgcTJ1fx7+i3mYar1gu9
V/2ZeMTgc7Cu6DSYPyoeqEtm4p5sh+4/Of+gVtYn6mQ9E1Mf/tb5kv4P1loL
qll/ZWJl7YnLz1L+we1a6/tqbUwUn79olBjxD76A5nahHiZ+dq0rUnT/B2K5
Nzk6M0zcusb08BGpfxD56EOI+XoWrsrfMjWRPQVdeysMCyJYaPi0xrLj4hR4
RHFl3o9hYUC9Y+HbxCnYFsGwq0pg4Wd6kGN62BQ0rcjUWZHBwrN7Hj7TdJmC
mZjLJ+Tvs3B8vWJkqMQU7NsmnurSzcJPt6QW0bIm4URVzX53ezZ6DCItIG0S
fMgd7rtc2TiqumemJ34SIoOOS9tT7wvClbf6a0MnQV+W2zDoGBsdGpQ/ZrhO
wq3p91d1U9jYRehfUF43Cbt367wYqmHjpOP+1R6FE1BNHPmkZKaAsTmLVn7J
nQCGRpjhVVsFFOu+vdQwk3KZcqKoiwJuOTLCYcdPgDkj9L2qnwJGng3umjo0
ARJWXaI8qQq4+EHCrRSlCXg9YGug3KyAUvylKvB4HKYncn9LHlfEw7/ItpSS
cTgjTnSvD1fEyud5Zz0KxmHDmQedW88poqvfhW+0y+PweOyxWVGOImZ/PBGz
I3AcnMLWLHf+oIirzuu0vFMbhxMXZK+YK2xA4ZXvIxtKx0Ax7J2j4fQG3Duk
z75ZOAaNGGFSw6OED98+bwzMHQMxQUWDvcJKaHuyhCWaOgYsKZXxViUlTGs+
3+DoPwazp0zNv+5XQsErDuR3xTGIXyterdimhIvX9nzqKx4F45+dZk8OKWNb
Nt/7H/mjMFrXN/btuDLeXcV++zVrFOZczrxaEqaMVkJHnr+JHwVdx0r1C4nK
eJlnpjDv4ChYRET36Zcoo/SgwGlH1ijg/LJ0vXFl3PJ0o/q7or/g8XXDWs8E
FeTXcFDCvL9An7v12+GSCnY8CGGVZ/4Fm8F14p45Knj6Lqy9ee4vjKRma15/
oILVuSYCUT5/4Znyucd/21TQLta1R5P5FxpT6oK/qKqir11MRmHhCLgsVVme
MaCKeQtP1Vh5I3CpMLSG758qNhWOfLydOQLfd19NSeBSQ915Z+578SPAe8gD
q8TVULhA9dgj3xGo5F7jKWWqhv+b+m72UnkEeviiqrzuqKHkpsCF8qPDMMBr
sN80Uh3Pxv9Qf+Y1DMVHeWb1ktVxpMPsUKXtMLx7fsjKKlsdX8dKN7/eOAxb
b2gN369QR7+WT/frpofgZBG2J42qY2UYy7s/agi0ZDKHPh/ciB6vvr+XShsE
zVchud8Pb0IjnX/e7VGDkH9EnX46ahNuKF9GZB8dhBjFzluGFzfhXLGe+irr
QeC/mDKs8XQTZqRdzxZaNgiPJO1GX/Jq4GfP/X58yQMQsf1i6YsiDSz/FsFb
dWoAHARPVt+t1MBruzLyYvwGQECWx/zFFw30NXnXSN85ANJ5/DSPBQ3kU2Fv
nV8yAEHeOcZnd2miHjG8dPRcP3TsvMx4v0QLyRDeotLgfvhp7JzmJKOFy8bX
6Pv79IN4u+Uj0S1a2PHb6uSAcT8oMPgPSx7SwpBPZd97ePuBND7R4vxBC8uu
nSj9FvMHbE6/Oi52ZTNK6yxYv4nqg6mNdWkMd238vFxHIfNYH9xbjseVQrUx
vCeUx29PH/DEq5ulpmtja8r0U2GDPrDX5/ya+KyNF7rGZfbyUd/X3NjpbqiD
jLj+CXpKL5SeyIxfr70Vy1xYn5sieqHe59z8kPNW9FDxKS4+0gtshp7ev9Ct
+Ly1x83Gphc0neXuvXu+FQMVu6ryRHphTzG7MlhvG/bUN2fqZv8GxyMxgnVs
Xbx4SzRAOOk3WMb+7/4XHV3cHmZv0XvqN6y+Xiwxa6mL12Qb6Knuv+EHw/3N
kwBd3B306dB36d/QViGvQL1lYvXqtzrhRT0wk9W8Z4WbHhYdeND57HE3XIhQ
knN6th0bvHLWmBV0Q1uNegI2bEfCNcG19VI38Gl1+uwZ2o721nta/gV0w5KO
LaGe0vpI3yxUt1GtG24EnGy3TdJHpyXH8d69X7Bx8PnQS/8dGMPtvrA15xd8
O5a5xiJpB5ZyTLU/Jv+CfuXVb6Vv70CecemKAb9fwOZXIe/83oFlbfX3mAq/
YEzHmOa01wAXl6jmXC/8CTzXRvS5/QxxY6FUu2rGT9hYJyKTk2KIHvmLJV7G
/gS39qZ1F8oM8fHlrss/9v0E6SIRo+RpQ/SKSEteLfsT+u49+TSWYIRPrUZP
ped1Qblf8I/8V8bYbdrxTO58F+Q5XAwPHjDGZQY1048iu+DoupO/QcQE92nl
Bza4d0FtnLJbvo8JrpC28Vsu1QWRBnmW/StN8eDYfZeErE4oM17euvycGWZu
+rtlf3wnXI2S76mtMMPqYGUJ/ZBOGEphbhbsM0NZ4l7LjGMndHsNZ6uYmeMP
/jv2B1d1Qv+N+SS5lTtxl1yBlUnGD1BUTlv2vNoCo326lWTjfkDxTsGiAZol
lt1ZL0gL+gEn80ofVm+xxGVq1z9U7P4Bq+UvvEy6b4nvt+WakqI/wMhQIrjW
xgqjytTPLVX4Dr1sJ3c5R2vs0Hxg9HbJdzjPMWZWh1qjNqjwhPd3QDrLeXPz
NWucfL/hzGBxB5y3nQ4y7bFG327yVC2zA9qbrpy6E2KDDmKrj8bLt4Pj5ggp
1We2+PjaFaXtvO0QqeevV9hti0Ky4kPTPW0QtifobskyO/yoInrIp6ANJhoK
004csEN9s+XexrJtMP/KWVZnzS7cEM7tyCPzDX5uLLm64Y49ij/9nN7L+Ab3
QvZVHWy3R+7JK001Pa2wRlJiq4XgbmzzU7VLKW6FaIuM/pWBuzHe1d1STLUV
lF3PT3CbOOBv7ScGLL0WoJ1sDdsp4kS950ZH88u0QFd0fUOsjRNWPrR8NcRo
galrhyPzUp3wskKP7oPqZoipYjSfEXTGHZJC2tpWzfDyXHxolJgL5s76qlq4
f4UyO+viW85umKiheVRZ7yvcWRfWv6zIDU8e5ypdIfMVvC4Ir7g95YYW/ZmK
X3uawLjVWSMhwx3nW9+SHoebwOetvnRrgAf2rkzbv92qCdTd5c+U5Hpgg41r
wXrVJghyS3y26YMH3qkZk+mbaATTzdUKx0hPdHq6ds2xU40waSHmztvriYaT/a527o2QV7pUamCVF6qolmdv0msEkXOl5wrMvZCveKf4LKMRYuW/X7330AuV
GFm9vkMNcHV7rGRJuxf+HxHJumY=
 "]], LineBox[CompressedData["
1:eJwV1fk/FPoawHH7ZMm1VLeGCjOR6khEg+r5ppQsSYhs4VRKpJxQlFKyb8mp
CImSUgklRB4UUkm2sYxdjIQxxugg7rk/fF7vP+Gj7OZ96LiQgIBA+r/935DG
TQwpbIZUwzDFF11uqFMqT9XqbIbp8RCnGzluaGidU+zs3ALU3zuXLa12RSP9
m33qV1og7Dm5zohzRWMlf/Hp+y2Qp9lx2eGIK1r8NDwS1dcCkbXDi2c5LugY
0vHrzbFWmHW6+mmXugv6vRJnyJ5mgsPCNrHj15zwYvLEUVYUE47ncQMGNZzw
0tWWsMfPmMD22drzluWI180eMHeMM0FaJX6tzXZHjB9k+Huca4OkS2Xfzkg4
YM6yk4VV/u1g/jw8tYRlhy9mzbtj77bDJ03Vjqx7dpjfqy1mX9wOBVLmJyIc
7LDo2aINZ7YdwnxVZNd022L1njvTikEdEKNQkCsyfhh7z1dv9QvphL2uLPmV
OjbIqhWlZj/shLDrghsPCNlgm6LRYvv7TtiY6Vml1WCNDe+rPu4QZYH35Y7Z
WS9rxGUVzqKhLKCk1//UzrPC+6/ehieGdcGkNZntsTqEyUvmvKofd0H6iqbo
JxsO4W1HfatfNV3gQ+d38wUPYaxI8WrHJd3gc8RkWj7fEoOsC/NpEd1wbaGO
qbjSEp15L1n5kT0ww8srdp+yQHtjTsXg0x7w11vLjsu1QJuUzY9XfOqBxfam
kmueFqiqwmSUifYC/wQj9S37AK6psxFW3tsLDZ/UJuk/zFGaanWXXd0LpodD
ib20GUq950YKMnvhVIbli/oWU5Q4k3CZOtwLHbauQX2ppihW+c3NjNIHDXaO
nLbNprhw6uAfL/f1gZj7d9UGexMcLzav9K/tA9bDCEvxT8a4TrzmfCCzDwZE
jkokpBmjox1RuzLUB1l53YrhPsZYx9eKDhXph2m1v9ILFYzxkfbKw3+Tfkge
68ng++xDx+f9I/lF/dAm+DquV3sv3pp3SCms6QdP2+mp+0v3Yp1py4GS1n4I
zDHyLBo2QsaPmoIKXj/Mv27Q4qQYobza88sNmgMwFJBr4CRphHXp/rLj2QOQ
2izywHRmNwpyOFWTbwYg/mdQrVLrbmSAh9909QB4RGkbwOvdmNXl2Dk/OAAu
Nbpx1ud3YzDV8JGk8iB08K9d+ThtiIxEKT31pEFIGy3q2yBqiFlhD1yORXyH
Y86FrC8HCbrkeeU+S/oORm9jurR0CFI79RZ4T77DEqXZkqZVBGM1Gu/dqPsO
bn9zr0XXAPq1CDGzJIfgcegmqTe8nbiXdsx8JGYItgh+tj/z5w4UMNdM2ZI2
BHuWyVSt0N6BJX7zPy6+GIIi/RcVKsI7UKMuMVzi6xBYm/TKuT7cjivOfaja
KDMM56PrW+xGDXDonar+mYRhyIohoRaR+pjO5oYXZgxDZsAX2VdH9dFerpy5
kD8MdBV/JU8dfaw/busb1zQMFpHN25r69LBQKvzly2Vs8Da9KXl8px6G2o+o
Tt1mw9vlZ8K7RRm4jp8jf+HeCMh/9uz6UauDKz9YquQ8HQFGs+lt3yc6KJE4
o9ldPAInynMzt0bqIGfL7gN72kZg5Klfg7mZDpZ6dYTLLP8BW59rWPQ0bkXr
70sWsmN/wKHcHZuoI9p4rfk4uz14FFba3N4lsU0LfTMlZ6RujkJcFDdr/2ot
POmTJ0rSRyHSbb3LS2EtPCDzWyXr3SgINfN9uQ1bcJVZopPP3CikmE39Aq8t
+LKqslHC9yes3GsSUfxME7vz15YZnByDZNnfJ3QiNfALw2eDiv8YyH+rn9Ny
0cDSd+/vLAkdg76EmQseuhp4r+6UT0vmGIxx9RxuDPyBdv0Fat49YyCXarDP
mfyB32SNEzIOj4O9mGXMdpFN+P7sWXdxown4q0s6qjtPHQv4lc0TVhOQ+sij
zDRWHTMuLTdsdZuAvW0dZMhDHYPDSxQzr06A3J2rgw/o6rgzXaRxe+kENPb6
e21IXo8sd7M1Ras4EGhL8dOLUUObO73ho/EcCK2fFNx+cx3G7itYKpjEgU9m
0+70s+uwduZGwooHHDDVvKu8zWId6tttTNmVx4EAcT3jjqXrcM0qv9w73zgQ
22yYJB1DR3ayZOtuuUnQOfnKYzSBhgFpurSUW5MQsj71P4ElylhwQDw7794k
PIztrlZMU8afC52bajInobXJk90TrIzOR4N1uQWTkHMoze/jfmXcrfR5v3Hz
JGT9U6lF61RCqQzXs7xlXMi92xjwTlgJ0x5Fl5nd5kJ4PYOl2aqI59ebZTBT
ueDc5wMkWxH350iGuT3iwrbc2S1BAYrIexl58MIrLtD3j9wNWauIpqXhA5mN
XFDLr7MvOK2AvxpDxOekpyDDIZBzRIqKlgKXbZ6ETUHqR8WMSc//ooiD15jo
RR60Blc7yqTJoYLpYSXtYB78Ffb8dKmfHGoZgJVLBA8SMi9lx1jIoYuCbHFJ
Eg+eWvwuTxOUw7LOVyHeJTyoMJBf6usui36O8wrtczwIup75AfVkcMQpyuRZ
0DTEcgK9y8clsd7lyeNDIXzgoMObpLvCeI12RX86ig+lMgd9bzsJo86Q9Zc7
t/jQuqEnulxFGFNOC0yxMvhANchv//u5EJ72s93pXsEHkQFLP7MPgrgkWrQl
cIEPl1QoJc7/LJYbvnEVenRhBswKs4Xuyv9T/nop1WnG8xc0sCNUu/ezy1WT
ldkUs1lYuVqu36l1EGb9Qn7nWM2DXRC9Wi1jEUZnFaSzGQsgUmR+JSt+CUl3
D2tWoAmQN5om3yKjZEj8rs/Rq9YJkjYxvfp5+2VE2jvHsGq5EDmx88eL8Ef/
Je/2FJUVUoWJhpDHjNc8lfz2Oqp7WFqEcH9O23eMrSaClMakjb9FyGbzpc7S
tkpE19in0kRAjMit4K7f8EGZzLKesZdzxUg5+2aliTSN7PGsjTfni5G20ER5
jjyNxMwNMG7MipHAfKt7iatoRImqEMETopCAOBvLTjqN7LONUG+Sp5C6Xx7u
Rw1oJPHbcY94HQoJjDcqMTxJIxrVa35KXKSQc18Dmy5W0MgFG/1Ew8sUMm+v
KEOpoZGKQZvtAcEU8vnCZOKtzzRiLRwTPRJBIVNixhefMmkkkMxtqk2mkOZZ
bsnXMRqpLWF63SilkEsG62/9WkUnciZTy8uQQqTsmHEBa+nEsV36He895d+3
VrDm6HQyMWMkfewLheRb6Z6a30wnK3RevTDsphDhMA37aSM6cXn/9XBAP4Ws
rjQYOmdKJ0+sRhfyhiiEf9OxeuwgnWz3UbFQnqAQ1RNlIQMOdBIquHPGbopC
lO6N/+nkSicN8Ufux89QiFjN8qTWE3RCVfLdVztHIU8vPqVbeNLJn7nxE4uL
FNLRTqPUnKOT/wE3YP3L
 "]]},
 Annotation[#, "Charting`Private`Tag$3210#1"]& ]}, {{}, {}, {}}}, {}, {}},
 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
 Axes->{True, True},
 AxesLabel->{None, None},
 AxesOrigin->{0, 0},
 BaseStyle->{FontFamily -> "Arial"},
 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->{{-3, 3}, {-150.9275038377572, 10.22222158730158}},
 PlotRangeClipping->True,
 PlotRangePadding->{{
 Scaled[0.02], 
 Scaled[0.02]}, {
 Scaled[0.05], 
 Scaled[0.05]}},
 Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.766243911296657*^9, 3.766243930943062*^9}},
 CellLabel->"Out[50]=",ExpressionUUID->"63d93805-8ce2-4c35-8439-722bd2fdebe5"]
}, Open ]],
Cell["\<\
Este es el gr\[AAcute]fico de la funci\[OAcute]n derivada, eso si solo \
importa el cuadrante positivo ya que las dimensiones de la caja no pueden ser \
negativas.\
\>", "Text",
 CellChangeTimes->{{3.766440986693261*^9, 
 3.766441023526536*^9}},ExpressionUUID->"99937e93-8e4f-4592-8c99-\
d8442923d5f7"],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{
 RowBox[{"-", 
 FractionBox["16", 
 SuperscriptBox["x", "2"]]}], "+", 
 RowBox[{"4", " ", "x"}]}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", 
 RowBox[{"PlotStyle", "\[Rule]", 
 RowBox[{"{", "LightPink", "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.766441027143013*^9, 3.766441091502845*^9}, {
 3.7668381397542343`*^9, 3.766838139896063*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"068ef105-3608-4ef3-8ccc-2f0007d593db"],
Cell[BoxData[
 GraphicsBox[{{{}, {}, 
 TagBox[
 {RGBColor[1, 0.925, 0.925], AbsoluteThickness[1.6], Opacity[1.], 
 LineBox[CompressedData["
1:eJwVlHk81Pkfx0eGnxyL5D52+IYcQ641kj5vvh3apI0cqSVyRSk2u2EsRaFS
anOsFksoSiFa1PJBm5vpciybNmbcxzQGM8T2++P1eP7z/Of5z0vb74xLwAYK
hXLjy/5PMXMjlNL+EakeiJ0dlNyDg9CrX6cjRlBGh7wuNXwXphQs1g1eHUEH
TWpyPRi7cBZVY6i9cASVG/3+A5OyC7e2BWqV9I4g1u7CToNfSLz18GpBwPZR
9Gm6Xby40QGPB+s/fC/CRjpcfylxsMfxHU5dXWpslJ5kbVG1yR6rmETMPrdg
o9a35f6rbMCOvOfb7gSw0Utln6cHrwMuiXWp9mhjI6uIgsywDoRDbsXWs9I4
qGW6raHFyw5v4BcMN5RwUP/tr3ZS5e1wtkcr5XETB0VNB4dubd2B2zUUyNQF
Dlp99kRXxWYHNrp3v2Wf5xi6S9s4ZqRri6efvWE1fT2OSlOUCTXCBidqCbgV
jHHkJyk1QHAYWOOClkL+oXFEVWHRhksY2GnPSbe4hHHU352+xceCgctYawO2
Y+Not/YPu22crXEY22Ck6tEEqmQmDurkW+EP3gMSjW0T6MY+2cLGk1bYtT/Z
pGt0AkWt9W4UtbDCjI6xKLbaJMrVT6WfaLHEohVFckpJk2jnG1MHlyULnMXU
3vmTzxSqE4//eTjcHEsusk4kRE+hu0c3WiSR5jj2THzKjfQpxBZlSZUpmmM/
v+G39zqmkPz9PxNCn5lhY8ec0H7rafQy9+Z6nLQZblRQ/dVGbgatdR4wkUky
xZaprfW7jWaQqW05N4phiovFz48e2jODzJNzA8omTfA1Qa9pCHMGpe/p2/D9
IRPsPnz7Zfb4DGIxGzxv6dPxZKncwgqeRZe7DfuU+IZYUjtRf5gxj7b0R+TX
UfVx646bpj/vnkftfe/FLLr18GXPXGtNl3kUnDKtoZ6lhzek1ew9GjqPflLe
JWFF18PCtemgvpx5xPQfORd6TBdPDbnd79nARd7qH4/3dBG4M0vfAHdyEVc/
Q1C3QMNXqizNfAa4qGglP22sjYYdWfY2a2wuOm30cL9vHg2/+N+xfTvWuWgt
fL6LsZ+Gn/+YdrLG7BMyjpqQbXL6GpcdFpSUZ3xCj6Wd1HreaODrch2G+cd5
aFaQ9G+VvQqutdasdg7jIYMf/up8tKiMR73PoNUYHnrbbPjc4KEyti1TOOyR
yUN5bPrGHBVlPL7vWKxMNw91M2SUXZcUMZkw0xNlu4CMuq5MDLQr4GW+bKSL
Eh85KX1w3pooiwlNv/V1go90XlaZ3twoi513VaWUmfFRMshaV974Chfd8syV
OMBHVyJmPBVzZbCLaX5LfQIfeR77I5XeLIXLgs3VjLh8dHHNRV+XLoH9Bg83
iHYuooKAtibrSBEseeff0+EDiygkzonnJieCK73CNIY5i+hK5l7LxQcULPp3
UlSdyBLCRwzdz7atNxT211mEWy8hiZxScbJmtYHzjnb/fcESOh+1UqzTvNgQ
wppOq41aRsfDzo+urnEawv9K9DujL0RbH6crPsv5F2mN7hFftBCitKl+m6Wa
j6hjw8ZSJggRlhvKpb8ZQbqQyk05IkQS78zm0qgcNFCXHl94VYjkBnPEgo5O
Ivvy4tyBOSHyN5Ou+/E0F8nfaf2brFlBwVe8lf7IEKCKs9KuKvs+I5a812X6
91TozFaIKnP/jK7Pv9pcfocKnBdqeQ7+n5H/NbdHIn9TQU3VYOpU3Ge0s7Qy
RMFdDBIbdyc0Vn9Gt6ZsqoX7xcF9U9yTEJ01lOjLPUmYSoDwCVfhz5U1xDFR
58u8k4L8mNDJbR4UMBn1KzziIQ8X81YPLUyLgNPL5KZCNWWgvPkAz6NFQTdh