(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.4' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     33629,        831]
NotebookOptionsPosition[     33130,        809]
NotebookOutlinePosition[     33498,        825]
CellTagsIndexPosition[     33455,        822]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 TagBox[GridBox[{
    {
     GraphicsBox[
      TagBox[RasterBox[CompressedData["
1:eJztXWlwFFW7xnvvD0urLLWscvvj90Or/GOV94d1Lb2Wlpb6oZRXrpcqpSwW
JfBJsUZ2hBAgECQYiJpA2JcIZIMshISEkBASsu/LZE8m+2QlhOw8t58Xepgk
M5kJZplk+ql6093nnO7pvM953/Oe031O/2PxqrlO/zZr1iznJ5U/cxdt+Gjt
2kWb/vdZ5eD/Vjr/a+nKJT/+c+XPS5YuWftfi/9dSdymyA+K/IciekN5X2dP
+6AmUytpxfFd3ELDlKPUkNOncWEf0LiwH2hc2A80LuwHGhf2A40L+4E1Lurq
6ibzdhwaKhf3798fkVdQUCCiYXKgctHX1zskvbOzEwkJCbLt6uqaort7hObm
ZnzyyScICAiQ+1m/fj3u3r1rsXxkZOQk3t34wBIXpaWlyMvLk/22tjZ0d3dD
tR0e9/b2YmBgQLgi7t27J9v29naYs7HxgJ+fH7766iv5jcTERLS0tOD8+fPY
vXs37ty5I/lHjhzBgQMHMG/ePLnPY8eO4dKlS4iOjoavry9+++03HDp0CJcv
X8bZs2cRHx+PoKAgBAYGTnmdM8dFdXU1DAYDysrK5Lijo8OYR/3//vvv+OOP
P+Dl5YWdO3dK+dWrV6OhoQGenp7w9/efkHulrl544QWEh4cL387Ozti+fTsW
LFiATZs2wcPDQ+6b+t+wYQNu374ttlRUVIS33noLW7ZskTLZ2dl47bXXcPHi
RWzcuBFvvvkmdu3aJXxOJUy5GLw/gLDY3Th2ZgdOBWxG1PVA0f3g4KDUQRVN
TU3y/x4/fhx//fWXcMU6Rj0sX74cwcHBE3a/8+fPl98ltm7dKvrlPdIWFi5c
KBydOXMGH3/8sXD20UcfISMjA19++aXw5ePjI3b10ksvobW1Vez5ypUrmD17
Ns6dOyc+cKpgykVY/C9ITI4We6C/vRThiczMTNy8edPor/h/s87RFmgXtA+C
XCQnJyM9PR0nT56cuPtVfKfqF3t6enD69GnExcWJz+Q9REVFST5tk7q+ceOG
COtSTEyM/C9EVlaW6L6iogJhYWG4desW9u/fL+3SVMGUi/Oh2+We8vLz4B/m
jrSMWNTU1Ij+CdY51qNr164hJSUFVVVVyMnJkbz6+nrJj4iIED89HVFbWzul
v2/KRY4uAuE3XXAlwQWG1vIpvS9zYFxHG1Drgi0xAss8bizBeEX9vdjYWKlv
qamp0v5PBIZwodRx2gH9KeNF2ivrCm2doO+irTc2NkofkOmTadOMhZ599llp
r95++22JE6yBfpS+7HGxY8cOfPHFF+Ibn376aYm7Xnzxxce+3mgw5YK+lD6G
foq/yWPGjvSr/P/ZxlEfbBNZLxkrqrHWZIC/+fzzz0s9Z2zLukqwLT9x4oS0
U6wbjGsPHz4sseqTTz4p/w/Tr169iqVLl6KkpETaDrYtjD0I1v/vvvtOeGOs
pf5fjAnmzJkj8clzzz0nsdnLL78s90B9MI7k7yQlJeH777+X3+V1aFPUJfMY
Y7D+sm3jb6pt1nCYctHV04x7va1K3MTYqd9o29z2D/Sgr+8emgy1cl01va2z
Ah139ejtH9nv4jV6+7vkXFP09j1oexm3jTjHTJopF88884zES8uWLZM0+q3X
X39d/udXX30VixcvlliJusjNzcUTTzwh5dLS0sTuWccPHjwo23Xr1onPeXCv
gxLbhoaGDomlyAVjLOqdtlFYWChcMP6lrt3c3CQ/Pz9f6gnbVtoN45innnpK
/Ac52rZtm6Szj8PrWOMiTXcYqUXeKKuLVvaPKOKL4pqryCw5gdLaSEnT6cNR
35KJvIqLcn5+hT9qm1KQVXoa1Y235NyqxgQUVAVBb0hBiXJ+kT4U+qYkEeZX
NsQrv+OD7NIzyCg+JtfS6cNwu+AgCioDLXJBG2XdpN8kJ+wfsI9GLlR89tln
cHd3l33W5VmzZolfZf1lX/3bb78Vf09boY7Y71BBn/fpp5+KvlX8+uuvEg+r
ULmgHX344YdiB59//rmMFb3yyitS5o033hCb5W8zjmH/x9XVVfql7777rvSL
rHHR2lmu6C4Cdc3pis5iFN3dRkVDHOoU3esNySirj0FNU7LosropUc6vUdLr
W7JQUR8rwnJVDQlSpkbhoq4lQ7a0nZY7pejoqkFjWy4aW3OV6ycr+3moNaSh
7W6VnMMylsD6/s4770gdZPzKvgN1Q59Av846Tt9KHZEntmdz584V/dNvqfZE
vfzyyy8S65q2OSzPOq6CtsU+7Ndffy3tNkEf/d5774muycGePXvwzTffICQk
BO+//77YHu+LduTi4iL3sWLFCuGK/cmjR4/a5KPYV6P/oXCfMSvbCbbl7E9Q
WCfZv6btsRzbeO6rbT3LV1ZWyj63LMtz9Hq9bPk/MU3N4/Fo40qTBd4P++Ps
d0wVTLlQ9Umh/llP1L4p7Zx+Tk1jPvXOfhXz6A9ojzzmvhpjkVMeU+9Mo59V
03lMPtlPm2owHuF4ykSA+uvT16KvrBK9ZeXoaW41W87S2KA9on+gT4kFetDT
14273Xcs9hvqWqrQ3Wt+nI/n9CgxSP9AP/r6H/3P3Oc1xwpLv2MK+tSy40rb
6LILic6bUBR1TWKF4TDlgr6GdZt1l+NwrOOst319fVKPmUafwj4It6a2QH/G
fYraTx9vkAuPwI1KXJCB24UxovOGVr3SthWgpDZPdKk3lMP3yl5EZwSjoa1G
iQlylDaqVco2tddBV5OD9JIE5FWmoamtTvJrDBVKO9WEI1fc5LisvhDhKX/h
zr12FNfmorKxVIk/spXz65VyjahtrkJuRQqSCqIRk3lZyjONeSwzHIznWpV2
rc1lDaqjwxR/0GKVi+LiYom9qWeO03B8k3E2dc88+ny2GTqdTtpMblmO+dxn
HstM5BjI6WhPFFZnISzZD1fTLsLv+h+i+6NX3RGfGwHvsJ2yT6G+L8QdRlxO
OA6Hu8EnfDcqGotxMuoAItP8Je3Y1X0KB3vQ2d2BE1EekkZh2o3sMFxOOgO/
WG/klCfjWkaQpJ+N8UKiwkOqLg6+Ee44HrlfiXGKcT0rRH53ODiml+15AMW7
dyB2/Ro0h/pb5YL1n+jv75c+j1q/eaz2vVUwTX2GYQr1GrQtllHLEuRIfc7x
uDB01IveWE/zq9KVeK4MyUWxSMi7qsTJN6Su8pj7acXxCm+ZckzhcbVBqePV
2Uq9TlXqfJ6SdlPyaBepOuV8xd4o+ZXpYmvZ5bcVTtOVeK9Ork2b4rZZsYHE
h79VqfBLv8d0/sZw0C6qc7NR7LoB5a7b0RERaJUL1m22zzyX8SGPGV9Qr/R5
qh3Qdhi70VYYd7AM89iGc3yadkV/V15eLvbDstznucxXYzJHAXVAP15dWIC8
E0fR0d5mlQvms55Lu6/Ub4paj5lOO2Adp6jl1Gd8LMvzmcd92pVqX4zTWYbt
pnqeaisaHmE6xVH0k7Qn2hnrAPsDKsg3bZRtlyWwrrAPRvCZhS1gH41jXaa/
NVGYTlzQxjju6u3tLc+rOYbHsTaO8ZAbjg06OTmJD+V44YULF6Td5D59BO31
gw8+EP/JvjH7U3xezL7F9evX5XkgfSj79+pzTPbXya/aDk4kphMXBPVPnXEs
gc8UOcawdu1aifk45ko9Uv8cG2XfjeN86lgc9ckxC46J7N27V8aZed6+ffvk
fQRyzfFbXkMdHyQXHEcazd7GC9ONC+qJ4zl8HkqdcxyQY36MHTgmRBuhP+FY
IO2Cz4rZNyLYRnEci3ZDv8OYg++QkAc+FyBoQ7Q91YeRX/araDcTjenGxUyG
xoX9QOPCfqBxYT/QuLAfaFzYDzQu7AcaF/YDjQv7gcaF/UDjwn6gcWE/IBeR
BX73MhqvIcUQrskUSkDGn13OgXNaffOd4ZG7QJMpFPKgcWEfonFhP6JxYT+i
cWE/onFhPzIpXOQsxIGcRTNOPHKmHxfplbFobWuZdKlvqDO7P14SXOQ17bjI
1MfLuxSjSWfnXeRm1qAotw6VpU0o1TWiKK8OVeVNqNW3KPu1KC9phC6/DiVF
DZKuU9Kqyg3KObUoKaxHRWmj7LM832fjuzjc51wlvqPNfd3D65QVN8o5+Vl6
Sed7Hvoqg7xryvdIrN0vJVj3+4zkgu+NNTa0odnQIWJoaoehsQ2tLTxuR1Mj
5xN0oqGuVUm7Y0zntunheYamNmMa5+rwujzm3BuZ58N9RRrrW9GgSEvzg3NZ
nu+mMY/vAvNd+ZnMRW5zDyJq+8dFUmpbEVvdicq2bpt0NlEyXbmIqevDvy4m
YXlgKtZfr8C66DKsCsnGxhvVsr/mSiF+jiqRNOdInXJcAOeoYqwOycHqK3lY
HZ6vpBdhS2KjrE3COcJZzb0aF4/BRXZLLy7X9I8u1X2jHz+UtNYBpCtS2a7Z
xVglvfKGvAc+k4Tz46YjF6kVE/8uqjXY8p74WN4l5xySmc7FnfYeVBS3olyR
Ml0L6qrbUVPZjhZDF8qV4+pyJQ6q60SH0m6XFjWjtroDVWVt6O8flPlUrK98
h5lrU3A+OY85L4jvQRN8p18tw/VB1LmgnPs5lrlSjsDF4OB9pX4OoPteP3q6
+9HbMyDHMhe4m/uD6FeE5bq7OGdwUMoyn3qlH+fcJ8aw3Krzo9R5hZx7wbkY
PGafg1t17bixwBG4mC7QuLAfaFzYD2YiF5z3M3zdTvbjVHDNWc4r4hpanC/E
sSVTsM3l3D2Ca0gR6voiHUqfJjepBROBmcgFYxquHcR5ctQr4x3qXQX72NQ/
21eWMwXjI8734vpDXA+Kc+8Yl6rtdHfXAKp0E7Pm7EzkYrpC42L84e62C5nB
f6IzKxTeO9fafJ7Gxd+HWyGwY5MzmpL80ZkZIhyIcF8RrnVsCzQuHg/s921f
uxSVaVeNOjeKKRcPt7ZA4+LB+me2gO367rU/iH4vJKQ80vkwvQ9JfygHt622
en2NC8jaopbA2PjY7jWiz2R/L9G1d1zGCD9kVobxYe0bLBoXkHVGTeF5YD9u
nvMYouu88KOoTgxCR2ao+fpvwR5M5ZT7eo0LK2C/bseWDdDHnRupw4c63h2R
jM7b5vMsncPtlpU/yLNuW6BxAcz5/ONRdXo9KR4d6ZdQ4XpiJAfDfFJR5Als
V3h9HDg6F3y3I+LoHrNc5KTGDNV5unlb8HZdLeve/F04OhctqUEoCvM26rst
LVj2d8bkWoyR7tD3rFoia+mOJxyZC5eNa0W3DbfOG/WeFHlI6TNEjOAh67IP
dmzbChwbB6VbgKNywWdupv4m7HAC1h3KRdTek0YOftv8k6zRPwTdtl3ffZ87
du7ZOaZ7clQuyqJPIfDQLWQFP+g3+8SmIl+Jp5Z8u+yxvv3F9Y+d1jvhcvVl
hOhDRM5knhnTNRyNCy8vYN2avca6nxR8BDtddwwtZO2zNA8fjXA9vM2+m0Xv
ofpQszIWOBoXXP5534al8r2igyVD84yfibWwRDTfL/hp408IyTWn+xCs2LcC
+0P2D0nf5bZL48IK4g0j04Y3DcSpU6ew+sBqi/We4n5gIYLKA2R/uI343vK1
+Z4cjYuyuxxjtZzPZ6mrNq1CVGSURd2fzjiNS36XEFDgh+CygFF5GoufchQu
+Jx1Y9yDb93pdCO/E/Pjth+H6C+sKsyibref3g6v/9xqtIPR2guKxwEPjQsT
NAyLRR++8mfEvksJFnVpqm+vMz/L1vOKp9l8c3Io6pDDc8F16p8OAj68MTJv
wYJH+0s2LMHyvdkjdJgQnGDUc4gSq55L8jHm+cT5mG0f1OPh/Dg6Fx02vlZM
XQWVhVus1257v7PaJhg5s2AfXI/YkbmwhgsXgCO+R8zWa2mj473MplvT+3BZ
tGHRiHewNC6GoqoKOF9wHheLIkbo9c/zD/pwtwJujVn3K35dIWvVjxWOzAXf
F3/g+68b9bjPc/HQNmNdgsV2QU1zD3LHlu1bHvt7uRoXwDLXZZjvXIQLhREI
Kr6IIN2FEfqm3QxPO5t1Fis3rZRnH+MJR+aCuj2ZdxIbdv0P/Ar9zLYbbhfd
EFAcgMXrFtv8ntPjwlG5cNnlgj8vbDbq3jPOcwgHTi5Oxm8mcAxwMuBoXKjf
hjsdf8jIw4mUE5i3cR42b91s/J7fbLfZCEwMNB6bE853HE84GheB3q4yh+7I
zSNw3uJsnNvIbzWrcA1wHRfdjhWOwkV9ZfGI7/mZgt+f6urpQnfv+Nb1sXyj
0RG46Ot5oF8+f7Dkb5z2OMk7gvzeEYXPVrm2Ct/14/zJ0eYGjzZHcizzJx2B
C2K0+ukRNvo4qrV+g6Vr8/tj5N9WOAoXlnAw4qDV+fDW/Mx4fSvWEbiwpCuf
aw/G64bPE7P1/PHKV+EIXJjD+9vel37zaDGrKvxm+9/RNcdabMFM58KSnjiv
cryg+ajxaS/4PsjfhcaFdS4m8vvrprDl++G23MtM5sKewPVdrGGmcmFLPfT3
97eYx7mRvAbXwLHUpvNdz7GuhTMaZioXtkBdy2A0TJafI2YiF+Opv8m81kzk
whbwG+m2wBbbsRVcp2Q0zDQubK3Hw+eu2gNmIheW2ll7x0zjwhbYEl+qYJzE
MYzRZCyx1GjjIY7Ihb1iunJxsywUFQ26GSZFuFjgMe240ETjYrqJxoX9iMaF
/YjKhU/+qim/F0cXlYupvg9NNC7sScjDfPf/rlY50WTqhDz8P8O2Pfc=
        "], {{0, 
        126}, {99, 0}}, {0, 255},
        ColorFunction->RGBColor],
       BoxForm`ImageTag[
       "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> 
        Association[
         "Comments" -> Association["Software" -> "www.inkscape.org"]]],
       Selectable->False],
      DefaultBaseStyle->"ImageGraphics",
      ImageSizeRaw->{99, 126},
      PlotRange->{{0, 99}, {0, 126}}], 
     TagBox[GridBox[{
        {
         StyleBox[
          RowBox[{
           RowBox[{
            StyleBox[
             StyleBox["Prof",
              FontColor->RGBColor[0., 0., 0.4980392156862745]],
             StripOnInput->False,
             FontFamily->"Lato",
             FontSize->20,
             FontColor->GrayLevel[0]], ".", 
            StyleBox[" ",
             FontColor->RGBColor[0., 0., 0.4980392156862745]], 
            StyleBox["Walter",
             FontColor->RGBColor[0., 0., 0.4980392156862745]]}], 
           StyleBox[" ",
            FontColor->RGBColor[0., 0., 0.4980392156862745]], 
           StyleBox["Mora",
            FontColor->RGBColor[0., 0., 0.4980392156862745]], 
           StyleBox[" ",
            FontColor->RGBColor[0., 0., 0.4980392156862745]], 
           RowBox[{
            StyleBox["F",
             FontColor->RGBColor[0., 0., 0.4980392156862745]], 
            StyleBox[
             StyleBox[".",
              FontColor->RGBColor[0., 0., 0.4980392156862745]],
             StripOnInput->False,
             FontFamily->"Lato",
             FontSize->20,
             FontColor->GrayLevel[0]]}]}],
          StripOnInput->False,
          FontFamily->"Lato",
          FontSize->20,
          FontColor->GrayLevel[0]]},
        {
         StyleBox[
          StyleBox[
           RowBox[{
            StyleBox[
             RowBox[{"Escuela", " ", "de", " ", "Matem\[AAcute]tica"}],
             
             FontColor->RGBColor[
              0.15294117647058825`, 0.15294117647058825`, 
               0.15294117647058825`]], 
            StyleBox["\n",
             StripOnInput->False,
             FontFamily->"Lato",
             FontSize->12,
             FontColor->GrayLevel[0]], 
            RowBox[{
             StyleBox[
              StyleBox["Instituto",
               
               FontColor->RGBColor[
                0.15294117647058825`, 0.15294117647058825`, 
                 0.15294117647058825`]],
              StripOnInput->False,
              FontFamily->"Lato",
              FontSize->12,
              FontColor->GrayLevel[0]], 
             StyleBox[" ",
              StripOnInput->False,
              FontFamily->"Lato",
              FontSize->12,
              FontColor->GrayLevel[0]], 
             StyleBox[
              StyleBox["Tecnol\[OAcute]gico",
               
               FontColor->RGBColor[
                0.15294117647058825`, 0.15294117647058825`, 
                 0.15294117647058825`]],
              StripOnInput->False,
              FontFamily->"Lato",
              FontSize->12,
              FontColor->GrayLevel[0]], 
             StyleBox[" ",
              StripOnInput->False,
              FontFamily->"Lato",
              FontSize->12,
              FontColor->GrayLevel[0]], 
             StyleBox[
              StyleBox["de",
               
               FontColor->RGBColor[
                0.15294117647058825`, 0.15294117647058825`, 
                 0.15294117647058825`]],
              StripOnInput->False,
              FontFamily->"Lato",
              FontSize->12,
              FontColor->GrayLevel[0]], 
             StyleBox[" ",
              StripOnInput->False,
              FontFamily->"Lato",
              FontSize->12,
              FontColor->GrayLevel[0]], 
             StyleBox[
              StyleBox["Costa",
               
               FontColor->RGBColor[
                0.15294117647058825`, 0.15294117647058825`, 
                 0.15294117647058825`]],
              StripOnInput->False,
              FontFamily->"Lato",
              FontSize->12,
              FontColor->GrayLevel[0]], 
             StyleBox[" ",
              StripOnInput->False,
              FontFamily->"Lato",
              FontSize->12,
              FontColor->GrayLevel[0]], 
             StyleBox[
              StyleBox["Rica",
               
               FontColor->RGBColor[
                0.15294117647058825`, 0.15294117647058825`, 
                 0.15294117647058825`]],
              StripOnInput->False,
              FontFamily->"Lato",
              FontSize->12,
              FontColor->GrayLevel[0]], "\"\<\>"}]}],
           StripOnInput->False,
           FontFamily->"Lato",
           FontSize->12,
           FontColor->GrayLevel[0]],
          FontColor->RGBColor[0., 0., 0.]]},
        {
         StyleBox[
          RowBox[{
           StyleBox["Libro",
            
            FontColor->RGBColor[
             0.10196078431372549`, 0.10196078431372549`, 
              0.10196078431372549`]], 
           StyleBox[" ",
            
            FontColor->RGBColor[
             0.10196078431372549`, 0.10196078431372549`, 
              0.10196078431372549`]], 
           RowBox[{
            StyleBox["base",
             
             FontColor->RGBColor[
              0.10196078431372549`, 0.10196078431372549`, 
               0.10196078431372549`]], 
            StyleBox[":",
             
             FontColor->RGBColor[
              0.10196078431372549`, 0.10196078431372549`, 
               0.10196078431372549`]], 
            StyleBox[" ",
             
             FontColor->RGBColor[
              0.10196078431372549`, 0.10196078431372549`, 
               0.10196078431372549`]], 
            RowBox[{
             StyleBox["W",
              
              FontColor->RGBColor[
               0.10196078431372549`, 0.10196078431372549`, 
                0.10196078431372549`]], 
             StyleBox[".",
              
              FontColor->RGBColor[
               0.10196078431372549`, 0.10196078431372549`, 
                0.10196078431372549`]], 
             StyleBox[" ",
              
              FontColor->RGBColor[
               0.10196078431372549`, 0.10196078431372549`, 
                0.10196078431372549`]], 
             StyleBox["Mora",
              
              FontColor->RGBColor[
               0.10196078431372549`, 0.10196078431372549`, 
                0.10196078431372549`]], 
             StyleBox[".",
              
              FontColor->RGBColor[
               0.10196078431372549`, 0.10196078431372549`, 
                0.10196078431372549`]], 
             StyleBox[" ",
              
              FontColor->RGBColor[
               0.10196078431372549`, 0.10196078431372549`, 
                0.10196078431372549`]], 
             RowBox[{
              StyleBox["\[OpenCurlyDoubleQuote]",
               
               FontColor->RGBColor[
                0.10196078431372549`, 0.10196078431372549`, 
                 0.10196078431372549`]], 
              StyleBox[
               RowBox[{
                StyleBox[
                 StyleBox["Vectores",
                  StripOnInput->False,
                  FontFamily->"Lato",
                  FontSize->12,
                  FontColor->RGBColor[0., 0., 0.]],
                 StripOnInput->False,
                 FontFamily->"Lato",
                 FontSize->12,
                 FontColor->RGBColor[0., 0., 0.]], 
                StyleBox[
                 StyleBox[",",
                  StripOnInput->False,
                  FontFamily->"Lato",
                  FontSize->12,
                  FontColor->RGBColor[0., 0., 0.]],
                 StripOnInput->False,
                 FontFamily->"Lato",
                 FontSize->12,
                 FontColor->RGBColor[0., 0., 0.]], 
                StyleBox[" ",
                 StripOnInput->False,
                 FontFamily->"Lato",
                 FontSize->12,
                 FontColor->RGBColor[0., 0., 0.]], 
                RowBox[{
                 StyleBox[
                  StyleBox[
                   StyleBox[
                    StyleBox[
                    StyleBox[
                    StyleBox[
                    StyleBox["Rectas",
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    
                    FontColor->RGBColor[
                    0.1607843137254902, 0.1607843137254902, 
                    0.1607843137254902]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                   StripOnInput->False,
                   FontFamily->"Lato",
                   FontSize->12,
                   FontColor->RGBColor[0., 0., 0.]],
                  StripOnInput->False,
                  FontFamily->"Lato",
                  FontSize->12,
                  FontColor->RGBColor[0., 0., 0.]], " ", 
                 StyleBox[
                  StyleBox[
                   StyleBox[
                    StyleBox[
                    StyleBox[
                    StyleBox[
                    StyleBox["y",
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    
                    FontColor->RGBColor[
                    0.1607843137254902, 0.1607843137254902, 
                    0.1607843137254902]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                   StripOnInput->False,
                   FontFamily->"Lato",
                   FontSize->12,
                   FontColor->RGBColor[0., 0., 0.]],
                  StripOnInput->False,
                  FontFamily->"Lato",
                  FontSize->12,
                  FontColor->RGBColor[0., 0., 0.]], " ", 
                 RowBox[{
                  StyleBox[
                   StyleBox[
                    StyleBox[
                    StyleBox[
                    StyleBox[
                    StyleBox[
                    StyleBox[
                    StyleBox[
                    StyleBox[
                    StyleBox[
                    StyleBox[
                    StyleBox["Planos",
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    
                    FontColor->RGBColor[
                    0.1607843137254902, 0.1607843137254902, 
                    0.1607843137254902]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    FontColor->GrayLevel[0]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                   StripOnInput->False,
                   FontFamily->"Lato",
                   FontSize->12,
                   FontColor->RGBColor[0., 0., 0.]], 
                  StyleBox[
                   StyleBox[
                    StyleBox[
                    StyleBox[
                    StyleBox[
                    StyleBox[
                    StyleBox[
                    StyleBox[
                    StyleBox[
                    StyleBox[
                    StyleBox[
                    StyleBox[".",
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    
                    FontColor->RGBColor[
                    0.1607843137254902, 0.1607843137254902, 
                    0.1607843137254902]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    FontColor->GrayLevel[0]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                   StripOnInput->False,
                   FontFamily->"Lato",
                   FontSize->12,
                   FontColor->RGBColor[0., 0., 0.]], 
                  StyleBox[" ",
                   StripOnInput->False,
                   FontFamily->"Lato",
                   FontSize->12,
                   FontColor->RGBColor[0., 0., 0.]], 
                  StyleBox[
                   StyleBox[
                    StyleBox[
                    StyleBox[
                    StyleBox[
                    StyleBox[
                    StyleBox[
                    StyleBox[
                    StyleBox[
                    StyleBox[
                    StyleBox[
                    StyleBox["Visualizaci\[OAcute]n",
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    
                    FontColor->RGBColor[
                    0.1607843137254902, 0.1607843137254902, 
                    0.1607843137254902]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    FontColor->GrayLevel[0]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                   StripOnInput->False,
                   FontFamily->"Lato",
                   FontSize->12,
                   FontColor->RGBColor[0., 0., 0.]]}], " ", 
                 StyleBox[
                  StyleBox[
                   StyleBox[
                    StyleBox[
                    StyleBox[
                    StyleBox[
                    StyleBox["interactiva",
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    
                    FontColor->RGBColor[
                    0.1607843137254902, 0.1607843137254902, 
                    0.1607843137254902]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                   StripOnInput->False,
                   FontFamily->"Lato",
                   FontSize->12,
                   FontColor->RGBColor[0., 0., 0.]],
                  StripOnInput->False,
                  FontFamily->"Lato",
                  FontSize->12,
                  FontColor->RGBColor[0., 0., 0.]], 
                 StyleBox[
                  StyleBox[
                   StyleBox[
                    StyleBox[
                    StyleBox["\[OpenCurlyDoubleQuote]",
                    FontColor->GrayLevel[0]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                    StripOnInput->False,
                    FontFamily->"Lato",
                    FontSize->12,
                    FontColor->RGBColor[0., 0., 0.]],
                   StripOnInput->False,
                   FontFamily->"Lato",
                   FontSize->12,
                   FontColor->RGBColor[0., 0., 0.]],
                  StripOnInput->False,
                  FontFamily->"Lato",
                  FontSize->12,
                  FontColor->RGBColor[0., 0., 0.]]}]}],
               StripOnInput->False,
               FontFamily->"Lato",
               FontSize->12,
               FontColor->RGBColor[0., 0., 0.]]}]}]}]}],
          StripOnInput->False,
          FontFamily->"Lato",
          FontSize->12,
          FontColor->RGBColor[0., 0., 0.]]},
        {
         StyleBox[
          TagBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              PaneSelectorBox[{
               False->"\<\"https://tecdigital.tec.ac.cr/revistamatematica/\
Libros\"\>", 
               True->"\<\"https://tecdigital.tec.ac.cr/revistamatematica/\
Libros\"\>"}, Dynamic[
                CurrentValue["MouseOver"]],
               BaseStyle->{"Hyperlink"},
               FrameMargins->0,
               ImageSize->Automatic], True->
              StyleBox[
               
               PaneSelectorBox[{
                False->"\<\"https://tecdigital.tec.ac.cr/revistamatematica/\
Libros\"\>", 
                True->"\<\"https://tecdigital.tec.ac.cr/revistamatematica/\
Libros\"\>"}, Dynamic[
                 CurrentValue["MouseOver"]],
                BaseStyle->{"Hyperlink"},
                FrameMargins->0,
                ImageSize->Automatic], "HyperlinkActive"]}, Dynamic[
               CurrentValue["MouseOver"]],
              BaseStyle->{"Hyperlink"},
              FrameMargins->0,
              ImageSize->Automatic],
             BaseStyle->"Hyperlink",
             ButtonData->{
               URL["https://tecdigital.tec.ac.cr/revistamatematica/Libros"], 
               None},
             
             ButtonNote->
              "https://tecdigital.tec.ac.cr/revistamatematica/Libros"],
            
            Annotation[#, 
             "https://tecdigital.tec.ac.cr/revistamatematica/Libros", 
             "Hyperlink"]& ],
           Annotation[#, 
            URL["https://tecdigital.tec.ac.cr/revistamatematica/Libros"], 
            "Hyperlink"]& ],
          StripOnInput->False,
          FontFamily->"Lato",
          FontSize->12,
          FontWeight->Bold,
          FontColor->RGBColor[0., 0., 0.]]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"]}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Text", "Input",
 CellChangeTimes->{{3.7251890653010902`*^9, 3.7251892189439487`*^9}, {
   3.7251893065246058`*^9, 3.725189306932521*^9}, 3.725189502429166*^9, 
   3.725193849725515*^9}],

Cell[CellGroupData[{

Cell["1 In", "Subchapter",
 CellChangeTimes->{{3.678402507505869*^9, 3.678402531905514*^9}, {
  3.6894214181909037`*^9, 3.689421421162506*^9}, {3.689708409716094*^9, 
  3.689708413880681*^9}, {3.690723139771049*^9, 3.6907231409704323`*^9}, {
  3.707402845856407*^9, 3.707402853120323*^9}, {3.7075038302070227`*^9, 
  3.707503844862753*^9}, {3.7088797492963333`*^9, 3.708879781088047*^9}, {
  3.708954502092173*^9, 3.7089545024439774`*^9}, {3.708977745118799*^9, 
  3.708977758829978*^9}, {3.709238747539812*^9, 3.709238759763233*^9}, {
  3.725184970779319*^9, 3.725184975947384*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"1.1", "  ", "\[CapitalAAcute]rea", " ", "y", " ", 
  "volumen"}]], "Section",
 CellChangeTimes->{{3.7088798765572767`*^9, 3.7088799167043877`*^9}, {
   3.7088799701439734`*^9, 3.708879980991886*^9}, {3.7089545046848593`*^9, 
   3.7089545144763737`*^9}, {3.708958203790225*^9, 3.708958247725618*^9}, {
   3.708977779742239*^9, 3.708977791711068*^9}, {3.708978367563875*^9, 
   3.7089783950839243`*^9}, {3.709042143393058*^9, 3.709042172176828*^9}, {
   3.709062326876093*^9, 3.709062344763693*^9}, 3.709062860827434*^9, {
   3.7090743870546227`*^9, 3.709074393165917*^9}, {3.709076979077855*^9, 
   3.7090769792858887`*^9}, {3.709079404343811*^9, 3.709079404647983*^9}, {
   3.709082337428418*^9, 3.709082344068528*^9}, {3.7091256591567583`*^9, 
   3.7091256606765947`*^9}, {3.709238779252198*^9, 3.7092387883559427`*^9}, {
   3.709247071104981*^9, 3.709247077857122*^9}, {3.709247315008197*^9, 
   3.709247341728736*^9}, {3.709305324236096*^9, 3.709305338235461*^9}, {
   3.7093053892914333`*^9, 3.709305407563435*^9}, {3.7251849652836313`*^9, 
   3.725184967523752*^9}},
 FontFamily->"Lato",
 FontSize->18],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.7251849532224703`*^9}],

Cell[BoxData[Cell[TextData[{
  StyleBox["Autor: ",
   FontColor->RGBColor[
    0.4745098039215686, 0.3137254901960784, 0.1568627450980392]],
  ButtonBox["Walter Mora F.",
   BaseStyle->"Hyperlink",
   ButtonData->{
     URL["https://tecdigital.tec.ac.cr/revistamatematica/"], None},
   ButtonNote->"https://tecdigital.tec.ac.cr/revistamatematica/"],
  StyleBox[
  " Esc. de Matem\[AAcute]tica, Instituto Tecnol\[OAcute]gico de Costa RIca. \
Este ejemplo interactivo usa Wolfram FreeCDFPlayer.",
   FontColor->RGBColor[
    0.4745098039215686, 0.3137254901960784, 0.1568627450980392]],
  " "
 }], "Text",
  CellMargins->{{72, Inherited}, {2, 10}},
  CellChangeTimes->{{3.6749993161543703`*^9, 3.674999373630671*^9}, {
    3.678406527609489*^9, 3.678406534199874*^9}, {3.6784068006416817`*^9, 
    3.678406852643159*^9}, {3.678406889194013*^9, 3.6784069446281548`*^9}, 
    3.6784742252483053`*^9, 3.678549592437633*^9},
  TextAlignment->Center,
  FontSize->11,
  FontWeight->"Plain"]], "Input",
 CellChangeTimes->{{3.709308443463518*^9, 3.709308447470928*^9}},
 TextAlignment->Center]
}, Open  ]]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{1259, 916},
WindowMargins->{{442, Automatic}, {12, Automatic}},
FrontEndVersion->"11.0 for Linux x86 (64-bit) (September 21, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 29602, 721, 143, "Text"],
Cell[CellGroupData[{
Cell[30185, 745, 583, 8, 64, "Subchapter"],
Cell[CellGroupData[{
Cell[30793, 757, 1131, 18, 53, "Section"],
Cell[31927, 777, 89, 1, 55, "Input"],
Cell[32019, 780, 1083, 25, 32, "Input"]
}, Open  ]]
}, Open  ]]
}
]
*)

