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

(*** Wolfram CDF File ***)
(* http://www.wolfram.com/cdf *)

(* CreatedBy='Mathematica 10.0' *)

(*************************************************************************)
(*                                                                       *)
(*  The Mathematica License under which this file was created prohibits  *)
(*  restricting third parties in receipt of this file from republishing  *)
(*  or redistributing it by any means, including but not limited to      *)
(*  rights management or terms of use, without the express consent of    *)
(*  Wolfram Research, Inc. For additional information concerning CDF     *)
(*  licensing and redistribution see:                                    *)
(*                                                                       *)
(*        www.wolfram.com/cdf/adopting-cdf/licensing-options.html        *)
(*                                                                       *)
(*************************************************************************)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[      1064,         20]
NotebookDataLength[     87986,       1815]
NotebookOptionsPosition[     87390,       1776]
NotebookOutlinePosition[     88521,       1817]
CellTagsIndexPosition[     88414,       1811]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 TogglerBox[2, {1->
  OverlayBox[{
   TagBox[GridBox[{
      {
       GraphicsBox[RasterBox[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBLECOU2VJahIzkCEFxAJADBL8//8/
Qfzo0SP2GzduCF29elXs/Pnz0sgYn747d+5wA9VoArE/EB8B4uPoGJu+Fy9e
MF+4cEENKB8AxBeB+AMQ/wXif+gYi1tBdvoB8QUg/ghV9x8XRtb7/PlzFqje
t1D7cOrDpv/ixYvqUHuJ0ousHxpWAVA3E6UXWT80nC8S8i82/Q8ePOAgx26Y
/uvXrwsD2UdJ8Tey/kuXLolD0wNJbofpB6YVSUr0n4ek5QHTT6n7KQ0/SuOP
0vRDafqlRv6BxgPZ+Ret/HhHrBl4yi9QWHwiFB7Yyk+QO6B+CTxPYvmJjG/f
vs17nozyG1f9cR6t7gBhAPeiQ4A=
         "], {{0, 26}, {16, 0}}, {0, 255},
         ColorFunction->RGBColor],
        BaseStyle->"ImageGraphics",
        ImageSize->Magnification[1],
        ImageSizeRaw->{16, 26},
        PlotRange->{{0, 16}, {0, 26}}], 
       GraphicsBox[RasterBox[CompressedData["
1:eJzt2d9OVFcUB2DSNmkfQRFEiRQ1gCK1vW4fwT6BJu1tE9uk8fUUERE9aECC
qLGYEmKkErWxtont2mGdcDLVOpNgZijfJB9hzp+99j6zb9b5Hb3ww7nvP+rr
6/vxs/hz7vzPX1+8eP7St5/El28u/fTdhY/jn/6w8GlfXzlYVdWhDgyEwXT4
HQYbBho6qQMAAOxt/Q0HWxxo0TzX3xij7juGwpFwNAyHY2EkfB6OhxPhZBgL
42EinAqnw2SYSl+Es+HL9FWb6uvP5hj1eJNZ41TWHM85nMw5Hc85juSch3MN
R3JNdf/UfGbtPqf6WdW6/XsDAADsV7vd/7b2vqPV2/veuuc9k6Za1Mfr3vVt
feto9e+eVb9KL2tmz81M+n25dadZ9bU2zYXbYSmshNXwoOF+uJfn7obFcKfa
/twMN8L1MNtBTQAAYO+ZSVfTdLqSLreoj0/n9eXe0jeUHmQ+3AoL1XZ/UfqR
5Wq77yg9yMPwS3gcfg0b4Ul4Gn4LW+F5eBl+D6/CH+F1+DP99Q71+dd5z6sc
42WOuZU1nmbNjZzD45zTw5zjSs55KdewkGuazzXONp5Xu8+pflb185rpgd8d
AABgv/kQ/W/J4krGVvrIkruVDO5RWAvr1U7fuxmeVTt9b/Ei1d+38prNaqdv
Xc+xHuXY97LWYtbWr9Jryj4sGXPJmkvmXD7l/UrZsyWTLu9dyj4u72Ca2fVq
nivvY8renuug5ps2/b2L2q0JAADwX3azT/kQuv18AAAA2Pv0rOxn3djz3X6f
BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAADsHW/a1I2aAAAAAAAAsJ91OyOEburGnr/W
prlwOyyFlbAaHjTcD/fy3N2wGO5U25+b4Ua4HmY7qAkAAAAAAAC9aCZdTdPp
Srrcoj4+ndeXe0tuVjK4+XCr2s7iSsa2XG3nbiWDexTWwnrYCE/CZngWtsLz
9CLV37fyms28ZyPHWMsxH2SN5ax5O+cwn3Oabayv3XXVa6vXN9MDvxN7W9mH
JWMuWXPJnMunZNBlz5ZMumTTZR+XrLqZXa/muZJtl70910HNQx0YCIPp8DsM
Ngw0dFIHAAAAAAAAel1/w8EWB1o0z/U3xqhzt6FwNAyHY2EkjIYT4WQYC+Nh
IpwOk+FMmmpRH5/Mayfy3rEc60SOPZK1hrP2ULWT9zXX2O666rXVuv378P/S
zJ6bmfT7cuuOsup/AFmW9vs=
         "], {{0, 26}, {2000, 0}}, {0, 255},
         ColorFunction->RGBColor],
        BaseStyle->"ImageGraphics",
        ImageSize->Magnification[1],
        ImageSizeRaw->{2000, 26},
        PlotRange->{{0, 2000}, {0, 26}}], 
       GraphicsBox[RasterBox[CompressedData["
1:eJy9lstOwkAUhhthQUJcuUBl5cr4GPoABvEJINGtCZoYng4Il4Z7gXAJYUHY
QAi3GlYQPZ5/4pCm0pYC2uSDaXvmn5lzzpzpVfQl/HyiKMqrj3/CkffbWCwS
f/TyzV387Snq4cYlc87gYbVaDbpB07SLRqMR6Pf7PiJSnOA+6h7kmBBz0+12
Tx30v/bgk9GZOvPAa7oejUYeC306AIz1wWjM/WAw8B9ZX4L1TDHGcDj02ulX
KpUNbt79jKHBV1b66Fcul3fCYgzEJNTr9fxmfaldKpWoUChQPp8X/8ViUWB8
BhuLMRCPGvJqmz76QWOxWFCtVqNsNku5XE6AdqfToclkImxga7cGuT/M+uw/
ms/ntF6vqdlsUjKZFKCNC/pynTZxyLbb7bNt/sHcMpkMzWYzoVev1wW4xuOx
WAdsbGIAH6ncJ7BNH/6FRjqdJl3XSV7T6VSsA76CDWxt9oSKOmLOH/RBLKEP
LVVVN/qJRGKjDxsnfSZoN3/4CPNfrVa/5n+IvtH/iDHu9/G/2T/G/JT5A41U
KiXm3Wq1xBhcx5zy0zK+Mj+Xy6XIf5n7EuQ/9sYh+Wneqy73r+3+2rX2OPh+
a31wqpHG5xbatvXtCDjW5wO1Z9UdzheXyPMRPrc6H49yvpvn/Y/fJ3/6ffUN
AyH/6w==
         "], {{0, 26}, {24, 0}}, {0, 255},
         ColorFunction->RGBColor],
        BaseStyle->"ImageGraphics",
        ImageSize->Magnification[1],
        ImageSizeRaw->{24, 26},
        PlotRange->{{0, 24}, {0, 26}}]}
     },
     AutoDelete->False,
     GridBoxItemSize->{"Columns" -> {Automatic, 
         Scaled[0.6], Automatic}},
     GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}],
    "Grid"], 
   PaneBox[
    StyleBox[
     RowBox[{
     "Background", " ", "images", " ", "and", " ", "text", " ", "colors", " ",
       "have", " ", "been", " ", "adjusted", " ", "for", " ", "editing", " ", 
      RowBox[{"purposes", "."}]}],
     LineBreakWithin->False,
     FontFamily->"Helvetica",
     FontSize->12,
     FontColor->GrayLevel[0.4]],
    Alignment->Center,
    ImageSize->Scaled[0.5],
    ScrollPosition->{0., 0.}]},
   Alignment->{Center, Center}], 2->""}, "1"]], "SlideShowNavigationBar", \
"FirstSlide",
 CellMargins->{{0, 0}, {0, 0}},
 CellFrameLabelMargins->2,
 CellSize->{Inherited, 30},
 TextAlignment->Center,
 CellTags->"SlideShowHeader"],

Cell["Inecuaciones no lineales", "Title",
 CellTags->"imprimir"],

Cell["\<\
Camilo Andr\[EAcute]s Ram\[IAcute]rez
Polit\[EAcute]cnico Grancolombiano
caramirezs@poligran.edu.co\
\>", "Subtitle",
 TextAlignment->Right,
 FontSize->24,
 CellTags->"imprimir"],

Cell["", "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],

Cell["Resoviendo inecuaciones no lineales", "Section",
 CellTags->"imprimir"],

Cell[BoxData[
 FormBox[
  TagBox[
   FormBox[
    StyleBox[
     DynamicModuleBox[{$CellContext`pista$$ = 0, $CellContext`resol$$ = 
      0, $CellContext`resp$$ = 0, Typeset`show$$ = True, 
      Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
      Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
      "\"untitled\"", Typeset`specs$$ = {{{
         Hold[$CellContext`pista$$], 0, "desizar para mostrar pista"}, 0, 8, 
        1}, {{
         Hold[$CellContext`resol$$], 0, "desizar para resolver paso a paso"}, 
        0, 8, 1}, {{
         Hold[$CellContext`resp$$], 0, "mostrar respuesta"}, {0, 1}}, {
        Hold[
         Column[{
           Row[{
             Manipulate`Place[1]}], 
           Row[{
             Manipulate`Place[2]}], 
           Row[{
             Manipulate`Place[3]}]}]], Manipulate`Dump`ThisIsNotAControl}}, 
      Typeset`size$$ = {750., {226., 238.}}, Typeset`update$$ = 0, 
      Typeset`initDone$$, Typeset`skipInitDone$$ = 
      False, $CellContext`pista$31256$$ = 0, $CellContext`resol$31257$$ = 
      0, $CellContext`resp$31258$$ = False}, 
      DynamicBox[Manipulate`ManipulateBoxes[
       2, TraditionalForm, 
        "Variables" :> {$CellContext`pista$$ = 0, $CellContext`resol$$ = 
          0, $CellContext`resp$$ = 0}, "ControllerVariables" :> {
          Hold[$CellContext`pista$$, $CellContext`pista$31256$$, 0], 
          Hold[$CellContext`resol$$, $CellContext`resol$31257$$, 0], 
          Hold[$CellContext`resp$$, $CellContext`resp$31258$$, False]}, 
        "OtherVariables" :> {
         Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
          Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
          Typeset`specs$$, Typeset`size$$, Typeset`update$$, 
          Typeset`initDone$$, Typeset`skipInitDone$$}, 
        "Body" :> ($CellContext`ecu = 
          Which[$CellContext`alt == 1, $CellContext`a = $CellContext`s[
               Part[$CellContext`sig, 1], 
               Part[$CellContext`v1, 1]]; $CellContext`b = $CellContext`s[
               Part[$CellContext`sig, 2], 
               Part[$CellContext`v1, 2]]; $CellContext`c = $CellContext`s[
               Part[$CellContext`sig, 3], 
               Part[$CellContext`v1, 3]]; $CellContext`d = $CellContext`s[
               Part[$CellContext`sig, 4], 
               
               Part[$CellContext`v1, 
                4]]; $CellContext`a1 = $CellContext`a $CellContext`c; \
$CellContext`a2 = $CellContext`a $CellContext`d + $CellContext`b \
$CellContext`c; $CellContext`a3 = $CellContext`b $CellContext`d; 
            Row[{$CellContext`a1 $CellContext`var^2 + $CellContext`a2 \
$CellContext`var, " ", 
               Part[$CellContext`desi, 1], 
               " ", -$CellContext`a3}], $CellContext`alt == 
            2, $CellContext`a = $CellContext`s[
               Part[$CellContext`sig, 1], 
               Part[$CellContext`v1, 1]]; $CellContext`b = $CellContext`s[
               Part[$CellContext`sig, 2], 
               
               Part[$CellContext`v1, 
                2]]; $CellContext`a1 = $CellContext`b - $CellContext`a; \
$CellContext`a2 = $CellContext`a $CellContext`b; 
            Row[{-$CellContext`var^3 + $CellContext`a1 $CellContext`var^2 + \
$CellContext`a2 $CellContext`var, " ", 
               Part[$CellContext`desi, 1], " ", 0}], $CellContext`alt == 
            3, $CellContext`a = $CellContext`s[
               Part[$CellContext`sig, 1], 
               Part[$CellContext`v1, 1]]; $CellContext`b = $CellContext`s[
               Part[$CellContext`sig, 2], 
               Part[$CellContext`v1, 2]]; $CellContext`c = $CellContext`s[
               Part[$CellContext`sig, 3], 
               Part[$CellContext`v1, 3]]; $CellContext`d = $CellContext`s[
               Part[$CellContext`sig, 4], 
               
               Part[$CellContext`v1, 
                4]]; $CellContext`a1 = $CellContext`c + $CellContext`a \
$CellContext`b; $CellContext`a2 = $CellContext`a $CellContext`c; 
            Row[{Row[{$CellContext`b $CellContext`var^2 + $CellContext`a1 \
$CellContext`var + $CellContext`a2}]/Row[{$CellContext`d - $CellContext`var}],
                " ", 
               Part[$CellContext`desi, 1], " ", 0}], $CellContext`alt == 
            4, $CellContext`a = $CellContext`s[
               Part[$CellContext`sig, 1], 
               Part[$CellContext`v1, 1]]; $CellContext`b = $CellContext`s[
               Part[$CellContext`sig, 2], 
               Part[$CellContext`v1, 2]]; $CellContext`c = $CellContext`s[
               Part[$CellContext`sig, 3], 
               
               Part[$CellContext`v1, 
                3]]; $CellContext`a1 = $CellContext`c + $CellContext`a \
$CellContext`b; $CellContext`a2 = $CellContext`a $CellContext`c; \
$CellContext`a3 = $CellContext`c + $CellContext`a + $CellContext`a \
$CellContext`b; 
            Row[{Row[{$CellContext`b $CellContext`var^2 + $CellContext`a1 \
$CellContext`var + $CellContext`a2}]/Row[{$CellContext`c - $CellContext`var}],
                " ", 
               Part[$CellContext`desi, 1], 
               " ", $CellContext`a}]]; $CellContext`ecu1 = 
          Which[$CellContext`alt == 1, $CellContext`a = $CellContext`s[
               Part[$CellContext`sig, 1], 
               Part[$CellContext`v1, 1]]; $CellContext`b = $CellContext`s[
               Part[$CellContext`sig, 2], 
               Part[$CellContext`v1, 2]]; $CellContext`c = $CellContext`s[
               Part[$CellContext`sig, 3], 
               Part[$CellContext`v1, 3]]; $CellContext`d = $CellContext`s[
               Part[$CellContext`sig, 4], 
               
               Part[$CellContext`v1, 
                4]]; $CellContext`a1 = $CellContext`a $CellContext`c; \
$CellContext`a2 = $CellContext`a $CellContext`d + $CellContext`b \
$CellContext`c; $CellContext`a3 = $CellContext`b $CellContext`d; \
$CellContext`a1 $CellContext`var^2 + $CellContext`a2 $CellContext`var + \
$CellContext`a3, $CellContext`alt == 2, $CellContext`a = $CellContext`s[
               Part[$CellContext`sig, 1], 
               Part[$CellContext`v1, 1]]; $CellContext`b = $CellContext`s[
               Part[$CellContext`sig, 2], 
               
               Part[$CellContext`v1, 
                2]]; $CellContext`a1 = $CellContext`b - $CellContext`a; \
$CellContext`a2 = $CellContext`a $CellContext`b; -$CellContext`var^3 + \
$CellContext`a1 $CellContext`var^2 + $CellContext`a2 $CellContext`var, \
$CellContext`alt == 3, $CellContext`a = $CellContext`s[
               Part[$CellContext`sig, 1], 
               Part[$CellContext`v1, 1]]; $CellContext`b = $CellContext`s[
               Part[$CellContext`sig, 2], 
               Part[$CellContext`v1, 2]]; $CellContext`c = $CellContext`s[
               Part[$CellContext`sig, 3], 
               Part[$CellContext`v1, 3]]; $CellContext`d = $CellContext`s[
               Part[$CellContext`sig, 4], 
               
               Part[$CellContext`v1, 
                4]]; $CellContext`a1 = $CellContext`c + $CellContext`a \
$CellContext`b; $CellContext`a2 = $CellContext`a $CellContext`c; \
($CellContext`b $CellContext`var^2 + $CellContext`a1 $CellContext`var + \
$CellContext`a2)/($CellContext`d - $CellContext`var), $CellContext`alt == 
            4, $CellContext`a = $CellContext`s[
               Part[$CellContext`sig, 1], 
               Part[$CellContext`v1, 1]]; $CellContext`b = $CellContext`s[
               Part[$CellContext`sig, 2], 
               Part[$CellContext`v1, 2]]; $CellContext`c = $CellContext`s[
               Part[$CellContext`sig, 3], 
               
               Part[$CellContext`v1, 
                3]]; $CellContext`a1 = $CellContext`c + $CellContext`a \
$CellContext`b; $CellContext`a2 = $CellContext`a $CellContext`c; \
$CellContext`a3 = $CellContext`c + $CellContext`a + $CellContext`a \
$CellContext`b; ($CellContext`b $CellContext`var^2 + $CellContext`a1 \
$CellContext`var + $CellContext`a2 - $CellContext`a ($CellContext`c - \
$CellContext`var))/($CellContext`c - $CellContext`var)]; $CellContext`ineq = 
          Which[Part[$CellContext`desi, 1] == 
            " \[LessEqual] ", $CellContext`ecu1 <= 0, 
            Part[$CellContext`desi, 1] == " < ", $CellContext`ecu1 < 0, 
            Part[$CellContext`desi, 1] == 
            " \[GreaterEqual] ", $CellContext`ecu1 >= 0, 
            Part[$CellContext`desi, 1] == " > ", $CellContext`ecu1 > 
            0]; $CellContext`sol = 
          Reduce[$CellContext`ineq, $CellContext`var]; $CellContext`inde = 
          Which[$CellContext`alt <= 2, {}, $CellContext`alt == 3, 
            DeleteDuplicates[
             Solve[$CellContext`s[
                 Part[$CellContext`sig, 4], 
                 Part[$CellContext`v1, 4]] - $CellContext`var == 
              0, $CellContext`var, Reals]], $CellContext`alt == 4, 
            DeleteDuplicates[
             Solve[$CellContext`s[
                 Part[$CellContext`sig, 3], 
                 Part[$CellContext`v1, 3]] - $CellContext`var == 
              0, $CellContext`var, Reals]]]; Column[{
            Text[
             Style[
              
              Row[{"De ser posible, encontrar la soluci\[OAcute]n de la \
siguiente inecuac\[OAcute]n", 
                "                     ", $CellContext`botom}], \
$CellContext`tam]], 
            Pane[
             Grid[{{
                Column[{$CellContext`ecu}]}, {
                Grid[{{
                   If[$CellContext`pista$$ == 0, 
                    Text[
                    Style[
                    "\!\(\*\nStyleBox[\"Desliza\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\n\
StyleBox[\"para\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0, 0, 1]]\)\!\
\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0, 0, \
1]]\)\!\(\*\nStyleBox[\"ver\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"una\
\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\
\" \",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\n\
StyleBox[\"pista\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0, 0, 1]]\)",
                     20]], 
                    Style[
                    Column[{
                    
                    Row[{"\!\(\*\nStyleBox[\"Pista\",\nFontSlant->\"Italic\",\
\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\":\",\nFontSlant->\"Italic\
\",\nFontColor->RGBColor[0, 0, 1]]\)"}], 
                    Column[{
                    Which[$CellContext`pista$$ >= 1, 
                    Row[{"1. ", $CellContext`pistanolin01}]], 
                    Which[$CellContext`pista$$ >= 1, 
                    Row[{"    ", $CellContext`pistanolin02}]], 
                    Which[$CellContext`pista$$ >= 2, 
                    Row[{"2. ", $CellContext`pistanolin03}]], 
                    Which[$CellContext`pista$$ >= 3, 
                    Row[{"3. ", $CellContext`pistanolin04}]], 
                    Which[$CellContext`pista$$ >= 4, 
                    Row[{"4. ", $CellContext`pistanolin05}]], 
                    Which[$CellContext`pista$$ >= 5, 
                    
                    Row[{"5. ", $CellContext`pistanolin06}]]}]}], \
$CellContext`tam - 9]], 
                   Style[
                    Column[{
                    Which[$CellContext`pista$$ >= 6, 
                    Row[{"6. ", $CellContext`pistanolin07}]], 
                    Which[$CellContext`pista$$ >= 6, 
                    Row[{"    ", $CellContext`pistanolin071}]], 
                    Which[$CellContext`pista$$ >= 7, 
                    Row[{"7. ", $CellContext`pistanolin08}]], 
                    Which[$CellContext`pista$$ >= 7, 
                    Row[{"    ", $CellContext`pistanolin081}]], 
                    Which[$CellContext`pista$$ >= 8, 
                    
                    Row[{"8. ", $CellContext`pistanolin09}]]}], \
$CellContext`tam - 9]}}, ItemSize -> {{21, 22}, Automatic}, 
                 Alignment -> {Left, Top}]}, {
                Which[$CellContext`alt == 1, $CellContext`a1 = $CellContext`s[
                    Part[$CellContext`sig, 1], 
                    Part[$CellContext`v1, 1]] $CellContext`s[
                    Part[$CellContext`sig, 3], 
                    
                    Part[$CellContext`v1, 
                    3]]; $CellContext`a2 = $CellContext`s[
                    Part[$CellContext`sig, 1], 
                    Part[$CellContext`v1, 1]] $CellContext`s[
                    Part[$CellContext`sig, 4], 
                    Part[$CellContext`v1, 4]] + $CellContext`s[
                    Part[$CellContext`sig, 2], 
                    Part[$CellContext`v1, 2]] $CellContext`s[
                    Part[$CellContext`sig, 3], 
                    
                    Part[$CellContext`v1, 
                    3]]; $CellContext`a3 = $CellContext`s[
                    Part[$CellContext`sig, 2], 
                    Part[$CellContext`v1, 2]] $CellContext`s[
                    Part[$CellContext`sig, 4], 
                    
                    Part[$CellContext`v1, 
                    4]]; $CellContext`f = $CellContext`a1 $CellContext`var^2 + \
$CellContext`a2 $CellContext`var + $CellContext`a3; $CellContext`soluciones = 
                  DeleteDuplicates[
                    Solve[$CellContext`f == 0, $CellContext`var, Reals]]; 
                 Grid[{{
                    If[$CellContext`resol$$ == 0, 
                    Text[
                    Style[
                    "\!\(\*\nStyleBox[\"Desliza\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\n\
StyleBox[\"para\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\
\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0.5, \
0, 0.5]]\)\!\(\*\nStyleBox[\"resolver\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\n\
StyleBox[\"paso\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\
\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0.5, \
0, 0.5]]\)\!\(\*\nStyleBox[\"a\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\n\
StyleBox[\"paso\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\
\)", 20]], 
                    Style[
                    Column[{
                    
                    Row[{"\!\(\*\nStyleBox[\"paso\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\n\
StyleBox[\"a\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, \
0.5]]\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\"paso\",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\n\
StyleBox[\":\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, \
0.5]]\)"}], 
                    Column[{
                    Which[$CellContext`resol$$ >= 1, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontColor->RGBColor[1, 0, \
0]]\)\!\(\*\nStyleBox[\"   \",\nFontColor->RGBColor[1, 0, 0]]\)", \
$CellContext`f, " ", 
                    Part[$CellContext`desi, 1], " 0"}]], 
                    Which[$CellContext`resol$$ >= 2, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontColor->RGBColor[1, 0, \
0]]\)\!\(\*\nStyleBox[\"   \",\nFontColor->RGBColor[1, 0, 0]]\)", 
                    Row[{
                    Factor[$CellContext`f], " ", 
                    Part[$CellContext`desi, 1], " 0"}]}]], 
                    Which[$CellContext`resol$$ >= 3, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontColor->RGBColor[1, 0, \
0]]\)\!\(\*\nStyleBox[\"   \",\nFontColor->RGBColor[1, 0, 0]]\)", 
                    Which[Head[$CellContext`sol] === Symbol, 
                    Row[{"La desigualdad nunca se cumple"}], 
                    Head[$CellContext`sol] === Element, 
                    
                    Row[{"La desigualdad siempre se cumple, la \
soluci\[OAcute]n son todos los reales"}], True, 
                    
                    Row[{"La(s) soluci\[OAcute]n(es) de la expresi\[OAcute]n \
es(son): ", 
                    
                    ReplaceAll[$CellContext`var, \
$CellContext`soluciones]}]]}]], 
                    Which[$CellContext`resol$$ >= 4, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontColor->RGBColor[1, 0, \
0]]\)\!\(\*\nStyleBox[\"   \",\nFontColor->RGBColor[1, 0, 0]]\)", 
                    Which[Head[$CellContext`sol] === Symbol, 
                    Row[{"No hay soluci\[OAcute]n real"}], 
                    Head[$CellContext`sol] === Element, 
                    Row[{}], True, 
                    
                    Row[{"Se determinan los intervalos generados por las \
soluciones"}]]}]]}]}], $CellContext`tam - 5]], 
                    Style[
                    Column[{
                    Which[$CellContext`resol$$ >= 6, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontColor->RGBColor[1, 0, \
0]]\)\!\(\*\nStyleBox[\"   \",\nFontColor->RGBColor[1, 0, 0]]\)", 
                    Which[Head[$CellContext`sol] === Symbol, 
                    Row[{"No hay soluci\[OAcute]n real"}], 
                    Head[$CellContext`sol] === Element, 
                    Row[{}], True, 
                    
                    Row[{"Se determina cual(es) intervalo(s) da(n) soluci\
\[OAcute]n a la inecuaci\[OAcute]n y si los extremos forman parte de esta o \
no."}]]}]], 
                    If[$CellContext`resol$$ < 5, 
                    Row[{}], 
                    If[
                    Or[$CellContext`resol$$ == 5, $CellContext`resol$$ == 6], 
                    $CellContext`graf1[$CellContext`sol, 
                    ReplaceAll[$CellContext`var, $CellContext`soluciones]], 
                    If[$CellContext`resol$$ >= 7, 
                    $CellContext`graf2[$CellContext`sol, 
                    ReplaceAll[$CellContext`var, $CellContext`soluciones], 
                    
                    ReplaceAll[$CellContext`var, $CellContext`inde], \
$CellContext`f], 
                    Row[{}]], 
                    Row[{}]]]}], $CellContext`tam - 5]}}, 
                   ItemSize -> {{21, 22}, Automatic}, 
                   Alignment -> {Left, Top}], $CellContext`alt == 
                 2, $CellContext`a = $CellContext`s[
                    Part[$CellContext`sig, 1], 
                    Part[$CellContext`v1, 1]]; $CellContext`b = $CellContext`s[
                    Part[$CellContext`sig, 2], 
                    
                    Part[$CellContext`v1, 
                    2]]; $CellContext`a1 = $CellContext`b - $CellContext`a; \
$CellContext`a2 = $CellContext`a $CellContext`b; $CellContext`f = \
-$CellContext`var^3 + $CellContext`a1 $CellContext`var^2 + $CellContext`a2 \
$CellContext`var; $CellContext`soluciones = DeleteDuplicates[
                    Solve[$CellContext`f == 0, $CellContext`var, Reals]]; 
                 Grid[{{
                    If[$CellContext`resol$$ == 0, 
                    Text[
                    Style[
                    "\!\(\*\nStyleBox[\"Desliza\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\n\
StyleBox[\"para\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\
\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0.5, \
0, 0.5]]\)\!\(\*\nStyleBox[\"resolver\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\n\
StyleBox[\"paso\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\
\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0.5, \
0, 0.5]]\)\!\(\*\nStyleBox[\"a\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\n\
StyleBox[\"paso\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\
\)", 20]], 
                    Style[
                    Column[{
                    
                    Row[{"\!\(\*\nStyleBox[\"paso\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\n\
StyleBox[\"a\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, \
0.5]]\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\"paso\",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\n\
StyleBox[\":\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, \
0.5]]\)"}], 
                    Column[{
                    Which[$CellContext`resol$$ >= 1, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontColor->RGBColor[1, 0, \
0]]\)\!\(\*\nStyleBox[\"   \",\nFontColor->RGBColor[1, 0, 0]]\)", 
                    Row[{
                    Factor[$CellContext`f], " ", 
                    Part[$CellContext`desi, 1], " 0"}]}]], 
                    Which[$CellContext`resol$$ >= 3, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontColor->RGBColor[1, 0, \
0]]\)\!\(\*\nStyleBox[\"   \",\nFontColor->RGBColor[1, 0, 0]]\)", 
                    Which[Head[$CellContext`sol] === Symbol, 
                    Row[{"La desigualdad nunca se cumple"}], 
                    Head[$CellContext`sol] === Element, 
                    
                    Row[{"La desigualdad siempre se cumple, la \
soluci\[OAcute]n son todos los reales"}], True, 
                    
                    Row[{"La(s) soluci\[OAcute]n(es) de la expresi\[OAcute]n \
es(son): ", 
                    
                    ReplaceAll[$CellContext`var, \
$CellContext`soluciones]}]]}]], 
                    Which[$CellContext`resol$$ >= 4, 
                    Row[{
                    "\!\(\*\nStyleBox[\">\",\nFontColor->RGBColor[1, 0, 0]]\)\
\!\(\*\nStyleBox[\"   \",\nFontColor->RGBColor[1, 0, 0]]\)", 
                    Which[Head[$CellContext`sol] === Symbol, 
                    Row[{"No hay soluci\[OAcute]n real"}], 
                    Head[$CellContext`sol] === Element, 
                    Row[{}], True, 
                    
                    Row[{"Se determinan los intervalos generados por las \
soluciones"}]]}]]}]}], $CellContext`tam - 5]], 
                    Style[
                    Column[{
                    Which[$CellContext`resol$$ >= 6, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontColor->RGBColor[1, 0, \
0]]\)\!\(\*\nStyleBox[\"   \",\nFontColor->RGBColor[1, 0, 0]]\)", 
                    Which[Head[$CellContext`sol] === Symbol, 
                    Row[{"No hay soluci\[OAcute]n real"}], 
                    Head[$CellContext`sol] === Element, 
                    Row[{}], True, 
                    
                    Row[{"Se determina cual(es) intervalo(s) da(n) soluci\
\[OAcute]n a la inecuaci\[OAcute]n y si los extremos forman parte de esta o \
no."}]]}]], 
                    If[$CellContext`resol$$ < 5, 
                    Row[{}], 
                    If[
                    Or[$CellContext`resol$$ == 5, $CellContext`resol$$ == 6], 
                    $CellContext`graf1[$CellContext`sol, 
                    ReplaceAll[$CellContext`var, $CellContext`soluciones]], 
                    If[$CellContext`resol$$ >= 7, 
                    $CellContext`graf2[$CellContext`sol, 
                    ReplaceAll[$CellContext`var, $CellContext`soluciones], 
                    
                    ReplaceAll[$CellContext`var, $CellContext`inde], \
$CellContext`f], 
                    Row[{}]], 
                    Row[{}]]]}], $CellContext`tam - 5]}}, 
                   ItemSize -> {{21, 22}, Automatic}, 
                   Alignment -> {Left, Top}], $CellContext`alt == 
                 3, $CellContext`a = $CellContext`s[
                    Part[$CellContext`sig, 1], 
                    Part[$CellContext`v1, 1]]; $CellContext`b = $CellContext`s[
                    Part[$CellContext`sig, 2], 
                    Part[$CellContext`v1, 2]]; $CellContext`c = $CellContext`s[
                    Part[$CellContext`sig, 3], 
                    Part[$CellContext`v1, 3]]; $CellContext`d = $CellContext`s[
                    Part[$CellContext`sig, 4], 
                    
                    Part[$CellContext`v1, 
                    4]]; $CellContext`a1 = $CellContext`c + $CellContext`a \
$CellContext`b; $CellContext`a2 = $CellContext`a $CellContext`c; \
$CellContext`f = ($CellContext`b $CellContext`var^2 + $CellContext`a1 \
$CellContext`var + $CellContext`a2)/($CellContext`d - $CellContext`var); \
$CellContext`soluciones = DeleteDuplicates[
                    
                    Solve[$CellContext`b $CellContext`var^2 + $CellContext`a1 \
$CellContext`var + $CellContext`a2 == 0, $CellContext`var, 
                    Reals]]; $CellContext`todos = 
                  Union[$CellContext`soluciones, $CellContext`inde]; Grid[{{
                    If[$CellContext`resol$$ == 0, 
                    Text[
                    Style[
                    "\!\(\*\nStyleBox[\"Desliza\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\n\
StyleBox[\"para\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\
\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0.5, \
0, 0.5]]\)\!\(\*\nStyleBox[\"resolver\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\n\
StyleBox[\"paso\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\
\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0.5, \
0, 0.5]]\)\!\(\*\nStyleBox[\"a\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\n\
StyleBox[\"paso\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\
\)", 20]], 
                    Style[
                    Column[{
                    
                    Row[{"\!\(\*\nStyleBox[\"paso\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\n\
StyleBox[\"a\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, \
0.5]]\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\"paso\",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\n\
StyleBox[\":\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, \
0.5]]\)"}], 
                    Column[{
                    Which[$CellContext`resol$$ >= 1, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontColor->RGBColor[1, 0, \
0]]\)\!\(\*\nStyleBox[\"   \",\nFontColor->RGBColor[1, 0, 0]]\)", 
                    
                    Row[{Factor[$CellContext`b $CellContext`var^2 + \
$CellContext`a1 $CellContext`var + $CellContext`a2]/
                    Row[{$CellContext`d - $CellContext`var}], " ", 
                    Part[$CellContext`desi, 1], " 0"}]}]], 
                    Which[$CellContext`resol$$ >= 2, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontColor->RGBColor[1, 0, \
0]]\)\!\(\*\nStyleBox[\"   \",\nFontColor->RGBColor[1, 0, 0]]\)", 
                    Row[{
                    Factor[$CellContext`f], " ", 
                    Part[$CellContext`desi, 1], " 0"}]}]], 
                    Which[$CellContext`resol$$ >= 3, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontColor->RGBColor[1, 0, \
0]]\)\!\(\*\nStyleBox[\"   \",\nFontColor->RGBColor[1, 0, 0]]\)", 
                    Which[Head[$CellContext`sol] === Symbol, 
                    Row[{"La desigualdad nunca se cumple"}], 
                    Head[$CellContext`sol] === Element, 
                    
                    Row[{"La desigualdad siempre se cumple, la \
soluci\[OAcute]n son todos los reales"}], True, 
                    
                    Row[{"La(s) soluci\[OAcute]n(es) de la expresi\[OAcute]n \
es(son): ", 
                    
                    ReplaceAll[$CellContext`var, \
$CellContext`soluciones]}]]}]], 
                    Which[$CellContext`resol$$ >= 4, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontColor->RGBColor[1, 0, \
0]]\)\!\(\*\nStyleBox[\"   \",\nFontColor->RGBColor[1, 0, 0]]\)", 
                    Which[Head[$CellContext`sol] === Symbol, 
                    Row[{"La desigualdad nunca se cumple"}], 
                    Head[$CellContext`sol] === Element, 
                    
                    Row[{"La desigualdad siempre se cumple, la \
soluci\[OAcute]n son todos los reales"}], True, 
                    
                    Row[{"La(s) indeteterminaci\[OAcute]n(es) de la expresi\
\[OAcute]n es(son): ", 
                    
                    ReplaceAll[$CellContext`var, \
$CellContext`inde]}]]}]]}]}], $CellContext`tam - 9]], 
                    Style[
                    Column[{
                    Which[$CellContext`resol$$ >= 5, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontColor->RGBColor[1, 0, \
0]]\)\!\(\*\nStyleBox[\"   \",\nFontColor->RGBColor[1, 0, 0]]\)", 
                    Which[Head[$CellContext`sol] === Symbol, 
                    Row[{"No hay soluci\[OAcute]n real"}], 
                    Head[$CellContext`sol] === Element, 
                    Row[{}], True, 
                    
                    Row[{"Se determinan los intervalos generados por las \
soluciones e indeterminaciones"}]]}]], 
                    Which[$CellContext`resol$$ >= 7, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontColor->RGBColor[1, 0, \
0]]\)\!\(\*\nStyleBox[\"   \",\nFontColor->RGBColor[1, 0, 0]]\)", 
                    Which[Head[$CellContext`sol] === Symbol, 
                    Row[{"No hay soluci\[OAcute]n real"}], 
                    Head[$CellContext`sol] === Element, 
                    Row[{}], True, 
                    
                    Row[{"Se determina cual(es) intervalo(s) da(n) soluci\
\[OAcute]n a la inecuaci\[OAcute]n y si los extremos forman parte de esta o \
no."}]]}]], 
                    If[$CellContext`resol$$ < 5, 
                    Row[{}], 
                    If[
                    Or[$CellContext`resol$$ == 6, $CellContext`resol$$ == 7], 
                    $CellContext`graf1[$CellContext`sol, 
                    ReplaceAll[$CellContext`var, $CellContext`todos]], 
                    If[$CellContext`resol$$ >= 8, 
                    $CellContext`graf2[$CellContext`sol, 
                    ReplaceAll[$CellContext`var, $CellContext`todos], 
                    
                    ReplaceAll[$CellContext`var, $CellContext`inde], \
$CellContext`f], 
                    Row[{}]], 
                    Row[{}]]]}], $CellContext`tam - 9]}}, 
                   ItemSize -> {{21, 22}, Automatic}, 
                   Alignment -> {Left, Top}], $CellContext`alt == 
                 4, $CellContext`a = $CellContext`s[
                    Part[$CellContext`sig, 1], 
                    Part[$CellContext`v1, 1]]; $CellContext`b = $CellContext`s[
                    Part[$CellContext`sig, 2], 
                    Part[$CellContext`v1, 2]]; $CellContext`c = $CellContext`s[
                    Part[$CellContext`sig, 3], 
                    
                    Part[$CellContext`v1, 
                    3]]; $CellContext`a1 = $CellContext`c + $CellContext`a \
$CellContext`b; $CellContext`a2 = $CellContext`a $CellContext`c; \
$CellContext`a3 = $CellContext`c + $CellContext`a + $CellContext`a \
$CellContext`b; $CellContext`f = 
                  Simplify[($CellContext`b $CellContext`var^2 + \
$CellContext`a1 $CellContext`var + $CellContext`a2)/($CellContext`c - \
$CellContext`var) - $CellContext`a]; $CellContext`soluciones = 
                  DeleteDuplicates[
                    
                    Solve[$CellContext`b $CellContext`var^2 + $CellContext`a1 \
$CellContext`var + $CellContext`a2 - $CellContext`a ($CellContext`c - \
$CellContext`var) == 0, $CellContext`var, Reals]]; $CellContext`todos = 
                  Union[$CellContext`soluciones, $CellContext`inde]; Grid[{{
                    If[$CellContext`resol$$ == 0, 
                    Text[
                    Style[
                    "\!\(\*\nStyleBox[\"Desliza\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\n\
StyleBox[\"para\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\
\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0.5, \
0, 0.5]]\)\!\(\*\nStyleBox[\"resolver\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\n\
StyleBox[\"paso\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\
\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0.5, \
0, 0.5]]\)\!\(\*\nStyleBox[\"a\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\n\
StyleBox[\"paso\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\
\)", 20]], 
                    Style[
                    Column[{
                    
                    Row[{"\!\(\*\nStyleBox[\"paso\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\n\
StyleBox[\"a\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, \
0.5]]\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\"paso\",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\n\
StyleBox[\":\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, \
0.5]]\)"}], 
                    Column[{
                    Which[$CellContext`resol$$ >= 1, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontColor->RGBColor[1, 0, \
0]]\)\!\(\*\nStyleBox[\"   \",\nFontColor->RGBColor[1, 0, 0]]\)", 
                    
                    Row[{Row[{$CellContext`b $CellContext`var^2 + \
$CellContext`a1 $CellContext`var + $CellContext`a2}]/
                    Row[{$CellContext`c - $CellContext`var}] - $CellContext`a,
                     " ", 
                    Part[$CellContext`desi, 1], " 0"}]}]], 
                    Which[$CellContext`resol$$ >= 3, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontColor->RGBColor[1, 0, \
0]]\)\!\(\*\nStyleBox[\"   \",\nFontColor->RGBColor[1, 0, 0]]\)", 
                    
                    Row[{Factor[$CellContext`b $CellContext`var^2 + \
$CellContext`a1 $CellContext`var + $CellContext`a2 - $CellContext`a \
($CellContext`c - $CellContext`var)]/Row[{$CellContext`c - $CellContext`var}],
                     " ", 
                    Part[$CellContext`desi, 1], " 0"}]}]], 
                    Which[$CellContext`resol$$ >= 4, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontColor->RGBColor[1, 0, \
0]]\)\!\(\*\nStyleBox[\"   \",\nFontColor->RGBColor[1, 0, 0]]\)", 
                    Which[Head[$CellContext`sol] === Symbol, 
                    Row[{"La desigualdad nunca se cumple"}], 
                    Head[$CellContext`sol] === Element, 
                    
                    Row[{"La desigualdad siempre se cumple, la \
soluci\[OAcute]n son todos los reales"}], True, 
                    
                    Row[{"La(s) soluci\[OAcute]n(es) de la expresi\[OAcute]n \
es(son): ", 
                    
                    ReplaceAll[$CellContext`var, \
$CellContext`soluciones]}]]}]], 
                    Which[$CellContext`resol$$ >= 4, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontColor->RGBColor[1, 0, \
0]]\)\!\(\*\nStyleBox[\"   \",\nFontColor->RGBColor[1, 0, 0]]\)", 
                    Which[Head[$CellContext`sol] === Symbol, 
                    Row[{"La desigualdad nunca se cumple"}], 
                    Head[$CellContext`sol] === Element, 
                    
                    Row[{"La desigualdad siempre se cumple, la \
soluci\[OAcute]n son todos los reales"}], True, 
                    
                    Row[{"La(s) indeteterminaci\[OAcute]n(es) de la expresi\
\[OAcute]n es(son): ", 
                    
                    ReplaceAll[$CellContext`var, \
$CellContext`inde]}]]}]]}]}], $CellContext`tam - 9]], 
                    Style[
                    Column[{
                    Which[$CellContext`resol$$ >= 5, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontColor->RGBColor[1, 0, \
0]]\)\!\(\*\nStyleBox[\"   \",\nFontColor->RGBColor[1, 0, 0]]\)", 
                    Which[Head[$CellContext`sol] === Symbol, 
                    Row[{"No hay soluci\[OAcute]n real"}], 
                    Head[$CellContext`sol] === Element, 
                    Row[{}], True, 
                    
                    Row[{"Se determinan los intervalos generados por las \
soluciones e indeterminaciones"}]]}]], 
                    Which[$CellContext`resol$$ >= 7, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontColor->RGBColor[1, 0, \
0]]\)\!\(\*\nStyleBox[\"   \",\nFontColor->RGBColor[1, 0, 0]]\)", 
                    Which[Head[$CellContext`sol] === Symbol, 
                    Row[{"No hay soluci\[OAcute]n real"}], 
                    Head[$CellContext`sol] === Element, 
                    Row[{}], True, 
                    
                    Row[{"Se determina cual(es) intervalo(s) da(n) soluci\
\[OAcute]n a la inecuaci\[OAcute]n y si los extremos forman parte de esta o \
no."}]]}]], 
                    If[$CellContext`resol$$ < 5, 
                    Row[{}], 
                    If[
                    Or[$CellContext`resol$$ == 6, $CellContext`resol$$ == 7], 
                    $CellContext`graf1[$CellContext`sol, 
                    ReplaceAll[$CellContext`var, $CellContext`todos]], 
                    If[$CellContext`resol$$ >= 8, 
                    $CellContext`graf2[$CellContext`sol, 
                    ReplaceAll[$CellContext`var, $CellContext`todos], 
                    
                    ReplaceAll[$CellContext`var, $CellContext`inde], \
$CellContext`f], 
                    Row[{}]], 
                    Row[{}]]]}], $CellContext`tam - 9]}}, 
                   ItemSize -> {{21, 22}, Automatic}, 
                   Alignment -> {Left, Top}]]}, {
                If[$CellContext`resp$$ == 0, 
                 Text[
                  Style[
                  "\!\(\*\nStyleBox[\"Pulsa\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\n\
StyleBox[\"en\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0, 0.67, \
0]]\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0, \
0.67, 0]]\)\!\(\*\nStyleBox[\"el\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\n\
StyleBox[\"bot\[OAcute]n\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0, \
0.67, 0]]\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\nStyleBox[\"para\",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\nStyleBox[\" \
\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\n\
StyleBox[\"ver\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0, 0.67, 0]]\)\
\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0, 0.67, \
0]]\)\!\(\*\nStyleBox[\"la\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0, \
0.67, 0]]\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\nStyleBox[\"respuesta\",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0, 0.67, 0]]\)", 20]], 
                 Style[
                  Grid[{{
                    Which[
                    
                    Or[$CellContext`sol === True, Head[$CellContext`sol] === 
                    Element], 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\)La soluci\[OAcute]n \
son todos los reales"}], $CellContext`sol === False, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\)No hay \
soluci\[OAcute]n real"}], True, 
                    If[Head[$CellContext`sol] === Or, $CellContext`sol, 
                    And[$CellContext`sol, 
                    Simplify[
                    Not[
                    Reduce[Denominator[
                    Part[$CellContext`ineq, 1]] == 0, $CellContext`var]]]]]], 
                    $CellContext`graf[$CellContext`sol]}}, 
                   ItemSize -> {{18, 30}, Automatic}, 
                   Alignment -> {{Left, Right}, Top}], $CellContext`tam - 
                  3]]}}, ItemSize -> {43, Automatic}, 
              Alignment -> {Left, Baseline}, Frame -> All], 
             ImageSize -> {$CellContext`anc, $CellContext`alto}]}]), 
        "Specifications" :> {{{$CellContext`pista$$, 0, 
            "desizar para mostrar pista"}, 0, 8, 1, ControlPlacement -> 
           1}, {{$CellContext`resol$$, 0, 
            "desizar para resolver paso a paso"}, 0, 8, 1, ControlPlacement -> 
           2}, {{$CellContext`resp$$, 0, "mostrar respuesta"}, {0, 1}, 
           ControlPlacement -> 3}, 
          Column[{
            Row[{
              Manipulate`Place[1]}], 
            Row[{
              Manipulate`Place[2]}], 
            Row[{
              Manipulate`Place[3]}]}]}, "Options" :> {Deployed -> True}, 
        "DefaultOptions" :> {}],
       ImageSizeCache->{805., {302., 312.}},
       SingleEvaluation->True],
      Deinitialization:>None,
      DynamicModuleValues:>{},
      Initialization:>({$CellContext`ecu = 
         Row[{6 $CellContext`z + 3 $CellContext`z^2, " ", " > ", " ", 
            9}], $CellContext`alt = 1, $CellContext`a = 1, $CellContext`s[
           Pattern[$CellContext`s, 
            Blank[]], 
           Pattern[$CellContext`a, 
            Blank[]]] := 
         If[$CellContext`s == 
           "+ ", $CellContext`a, -$CellContext`a], $CellContext`sig = {
          "+ ", "+ ", "+ ", "- ", "+ ", "+ ", "- ", "- ", "- ", "- ", "- ", 
           "+ "}, $CellContext`v1 = {1, 3, 3, 3, 2, 2, 4, 1, 3, 1, 4, 
          1}, $CellContext`b = 3, $CellContext`c = 
         3, $CellContext`d = -3, $CellContext`a1 = 3, $CellContext`a2 = 
         6, $CellContext`a3 = -9, $CellContext`var = $CellContext`z, \
$CellContext`desi = {" > "}, $CellContext`ecu1 = -9 + 6 $CellContext`z + 
          3 $CellContext`z^2, $CellContext`ineq = -9 + 6 $CellContext`z + 
           3 $CellContext`z^2 > 0, $CellContext`sol = 
         Or[$CellContext`z < -3, $CellContext`z > 
           1], $CellContext`inde = {}, $CellContext`botom = Button[
           Text[
            Style[
            "nuevo ejemplo", $CellContext`tam]], {$CellContext`alt = 
             RandomInteger[{1, 4}]; $CellContext`v1 = 
             Array[$CellContext`coef[1]& , {12}]; $CellContext`v2 = 
             Array[$CellContext`coef[
                RandomInteger[{1, 2}]]& , {12}]; $CellContext`v3 = 
             Array[$CellContext`coef[3]& , {12}]; $CellContext`sig = 
             Array[RandomChoice[{"+ ", "- "}]& , {12}]; $CellContext`var = 
             RandomChoice[{$CellContext`x, $CellContext`y, $CellContext`z, \
$CellContext`m, $CellContext`t, $CellContext`u}]; $CellContext`desi = 
             Array[RandomChoice[{
                " \[LessEqual] ", " \[GreaterEqual] ", " < ", " > "}]& , {
               1}]}], $CellContext`tam = 20, $CellContext`coef[
           Pattern[$CellContext`x, 
            Blank[]]] := Which[$CellContext`x == 1, 
           RandomInteger[{1, 4}], $CellContext`x == 2, 
           $CellContext`rati[
            RandomReal[{1, 5}, WorkingPrecision -> 2]], $CellContext`x == 3, 
           RandomInteger[{2, 4}]], $CellContext`rati[
           Pattern[$CellContext`x, 
            Blank[]]] := 
         Rationalize[$CellContext`x, 0.1], $CellContext`v2 = {
          3, 11/3, 4, 2, 3, 2, 2, 2, 4, 4, 9/2, 10/3}, $CellContext`v3 = {3, 
          3, 4, 2, 3, 2, 2, 2, 4, 3, 3, 3}, $CellContext`pistanolin01 = 
         "\!\(TraditionalForm\`Es\\ una\\ desigualdad\\ no\\ lineal, todos\\ \
los\\ t\[EAcute]rminos\\ de\\ la\\ desigualdad\\ se\\ deben\\ agrupar\\ en\\ \
el\\ lado\\ \(\(izquierdo\)\(.\)\)\)", $CellContext`pistanolin02 = 
         "\!\(\*FormBox[\n RowBox[{\" \", \n  RowBox[{\"Por\", \" \", \"lo\", \
\" \", \"tanto\", \" \", \n   StyleBox[\"el\",\nFontColor->RGBColor[0, 0, \
1]], \n   StyleBox[\" \",\nFontColor->RGBColor[0, 0, 1]], \n   \
StyleBox[\"lado\",\nFontColor->RGBColor[0, 0, 1]], \n   StyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]], \n   StyleBox[\"derecho\",\n\
FontColor->RGBColor[0, 0, 1]], \n   StyleBox[\" \",\nFontColor->RGBColor[0, \
0, 1]], \n   StyleBox[\"de\",\nFontColor->RGBColor[0, 0, 1]], \n   \
StyleBox[\" \",\nFontColor->RGBColor[0, 0, 1]], \n   StyleBox[\"la\",\n\
FontColor->RGBColor[0, 0, 1]], \n   StyleBox[\" \",\nFontColor->RGBColor[0, \
0, 1]], \n   StyleBox[\"desigualdad\",\nFontColor->RGBColor[0, 0, 1]], \n   \
StyleBox[\" \",\nFontColor->RGBColor[0, 0, 1]], \n   StyleBox[\"debe\",\n\
FontColor->RGBColor[0, 0, 1]], \n   StyleBox[\" \",\nFontColor->RGBColor[0, \
0, 1]], \n   StyleBox[\"ser\",\nFontColor->RGBColor[0, 0, 1]], \n   StyleBox[\
\" \",\nFontColor->RGBColor[0, 0, 1]], \n   StyleBox[\"cero\",\n\
FontColor->RGBColor[0, 0, 1]]}]}],\n TraditionalForm]\)", \
$CellContext`pistanolin03 = 
         "\!\(TraditionalForm\`Operar\\ y\\ simplificar\\ las\\ expresiones\\ \
del\\ lado\\ \(\(izquierdo\)\(.\)\)\)", $CellContext`pistanolin04 = 
         "Factorizar completamente la expresi\[OAcute]n, simplificar de ser \
necesario", $CellContext`pistanolin05 = 
         "Para analizar el comportamiento de la desigualdad \!\(\*\nStyleBox[\
\"cada\",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"factor\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"se\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"debe\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"igualar\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"a\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"cero\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"y\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"resolver\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"la\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"ecuaci\[OAcute]n\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"resultante\",\n\
FontColor->RGBColor[0, 0, 1]]\).", $CellContext`pistanolin06 = 
         "En una recta num\[EAcute]rica se colocan todas las soluciones de \
las ecuaciones y se identifican los intervalos generados", \
$CellContext`pistanolin07 = 
         "Determinar cual o cuales intervalos dan soluci\[OAcute]n a la \
desigualdad:", $CellContext`pistanolin071 = 
         "elegir un valor en cada intervalo y evaluarlo en la inecuaci\
\[OAcute]n, los intervalos en donde los resultados verdaderos forman parte de \
la soluci\[OAcute]n", $CellContext`pistanolin08 = 
         "Dependiendo del signo de la desigualdad se debe incluir o no los \
extremos de los intervalos:", $CellContext`pistanolin081 = 
         "\[LessEqual] o \[GreaterEqual] \!\(\*\nStyleBox[\"se\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"incluyen\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"los\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"extremos\",\n\
FontColor->RGBColor[0, 0, 1]]\), < o > \!\(\*\nStyleBox[\"no\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"se\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"incluyen\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"los\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"extremos\",\n\
FontColor->RGBColor[0, 0, 1]]\)", $CellContext`pistanolin09 = 
         "Si en el paso 3 se cancel\[OAcute] alg\[UAcute]n factor, este valor \
no hace parte de la soluci\[OAcute]n: \!\(\*\nStyleBox[\"no\",\n\
FontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\"]\)\!\(\
\*\nStyleBox[\"se\",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\"puede\",\nFontSlant->\"Italic\"]\)\
\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\"]\)\!\(\*\n\
StyleBox[\"dividir\",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\"por\",\nFontSlant->\"Italic\"]\)\!\
\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\"cero\",\n\
FontSlant->\"Italic\"]\)", $CellContext`f = -9 + 6 $CellContext`z + 
          3 $CellContext`z^2, $CellContext`soluciones = {{$CellContext`z -> \
-3}, {$CellContext`z -> 1}}, $CellContext`graf1[
           Pattern[$CellContext`s, 
            Blank[]], 
           Pattern[$CellContext`sol, 
            Blank[]]] := (If[Part[
              Dimensions[$CellContext`sol], 1] == 
            1, $CellContext`min = 
             Min[2 Part[$CellContext`sol, 1], 0]; $CellContext`max = 
             Max[2 Part[$CellContext`sol, 1], 0], $CellContext`min = 
             Min[$CellContext`sol]; $CellContext`max = Max[$CellContext`sol]]; 
          Which[Head[$CellContext`s] === Symbol, 
            Row[{""}], Head[$CellContext`s] === Element, 
            Row[{""}], True, 
            Show[
             Plot[
             0, {$CellContext`x, $CellContext`min - 
               0.2 ($CellContext`max - $CellContext`min), $CellContext`max + 
               0.2 ($CellContext`max - $CellContext`min)}, PlotStyle -> 
              White], 
             Graphics[{Thick, 
               AbsolutePointSize[9], Blue, 
               Point[
                Table[{
                  Part[$CellContext`sol, $CellContext`i], 
                  0.4}, {$CellContext`i, 
                  Part[
                   Dimensions[$CellContext`sol], 1]}]]}], 
             Axes -> {True, False}, AxesStyle -> Directive[
               Thickness[0.003], 
               Arrowheads[0.03]], AxesOrigin -> {
               $CellContext`medio[
                Max[$CellContext`sol], 
                Min[$CellContext`sol]], 0}, AspectRatio -> 0.1, Ticks -> {
               N[$CellContext`sol, 2]}, 
             ImageSize -> {320, 60}]]), $CellContext`min = 
         0, $CellContext`max = 0, $CellContext`medio[
           Pattern[$CellContext`x, 
            Blank[]], 
           Pattern[$CellContext`y, 
            Blank[]]] := ($CellContext`x + $CellContext`y)/
          2, $CellContext`graf2[
           Pattern[$CellContext`s, 
            Blank[]], 
           Pattern[$CellContext`sol, 
            Blank[]], 
           Pattern[$CellContext`inde, 
            Blank[]], 
           Pattern[$CellContext`f, 
            Blank[]]] := (If[Part[
              Dimensions[$CellContext`sol], 1] == 
            1, $CellContext`min = 
             Min[2 Part[$CellContext`sol, 1], 0]; $CellContext`max = 
             Max[2 Part[$CellContext`sol, 1], 0], $CellContext`min = 
             Min[$CellContext`sol]; $CellContext`max = Max[$CellContext`sol]]; 
          Which[Head[$CellContext`s] === Symbol, 
            Row[{""}], Head[$CellContext`s] === Element, 
            Row[{""}], True, 
            Show[
             Plot[
             0, {$CellContext`x, $CellContext`min - 
               0.2 ($CellContext`max - $CellContext`min), $CellContext`max + 
               0.2 ($CellContext`max - $CellContext`min)}, PlotStyle -> 
              White], 
             Graphics[{Thick, 
               AbsolutePointSize[9], Blue, 
               Point[
                Table[{
                  Part[$CellContext`sol, $CellContext`i], 
                  0.4}, {$CellContext`i, 
                  Part[
                   Dimensions[$CellContext`sol], 1]}]]}], 
             If[
              Or[
              Part[$CellContext`desi, 1] == " > ", Part[$CellContext`desi, 1] == 
               " < "], 
              Graphics[{Thick, 
                AbsolutePointSize[5], White, 
                Point[
                 Table[{
                   Part[$CellContext`sol, $CellContext`i], 
                   0.4}, {$CellContext`i, 
                   Part[
                    Dimensions[$CellContext`sol], 
                    1]}]]}], $CellContext`punto3], 
             If[$CellContext`inde =!= $CellContext`var, 
              Graphics[{Thick, 
                AbsolutePointSize[5], White, 
                Point[{
                  Part[$CellContext`inde, 1], 0.4}]}], $CellContext`punto3], 
             If[
             ReplaceAll[$CellContext`f, $CellContext`var -> 
                Part[$CellContext`sol, 1] - 0.003] > 0, 
              Graphics[{
                Style[
                 Text[
                  
                  Row[{"\!\(\*\nStyleBox[\"+\",\nFontColor->RGBColor[0, 0, \
1]]\)"}], {
                   $CellContext`medio[
                    Part[$CellContext`sol, 1], $CellContext`min - 
                    0.2 ($CellContext`max - $CellContext`min)], 0.4}, {0, 0}],
                  22, Bold]}], 
              Graphics[{
                Style[
                 Text[
                  
                  Row[{"\!\(\*\nStyleBox[\"-\",\nFontColor->RGBColor[1, 0, \
0]]\)"}], {
                   $CellContext`medio[
                    Part[$CellContext`sol, 1], $CellContext`min - 
                    0.2 ($CellContext`max - $CellContext`min)], 0.4}, {0, 0}],
                  22, Bold]}]], 
             If[Part[
                Dimensions[$CellContext`sol], 1] == 1, 
              If[
              ReplaceAll[$CellContext`f, $CellContext`var -> 
                 Part[$CellContext`sol, 1] + 0.003] > 0, 
               Graphics[{
                 Style[
                  Text[
                   
                   Row[{"\!\(\*\nStyleBox[\"+\",\nFontColor->RGBColor[0, 0, \
1]]\)"}], {
                    $CellContext`medio[
                    Part[$CellContext`sol, 1], $CellContext`max + 
                    0.2 ($CellContext`max - $CellContext`min)], 0.4}, {0, 0}],
                   22, Bold]}], 
               Graphics[{
                 Style[
                  Text[
                   
                   Row[{"\!\(\*\nStyleBox[\"-\",\nFontColor->RGBColor[1, 0, \
0]]\)"}], {
                    $CellContext`medio[
                    Part[$CellContext`sol, 1], $CellContext`max + 
                    0.2 ($CellContext`max - $CellContext`min)], 0.4}, {0, 0}],
                   22, Bold]}]], 
              If[
              ReplaceAll[$CellContext`f, $CellContext`var -> 
                 Part[$CellContext`sol, 1] + 0.003] > 0, 
               Graphics[{
                 Style[
                  Text[
                   
                   Row[{"\!\(\*\nStyleBox[\"+\",\nFontColor->RGBColor[0, 0, \
1]]\)"}], {
                    $CellContext`medio[
                    Part[$CellContext`sol, 1], 
                    Part[$CellContext`sol, 2]], 0.4}, {0, 0}], 22, Bold]}], 
               Graphics[{
                 Style[
                  Text[
                   
                   Row[{"\!\(\*\nStyleBox[\"-\",\nFontColor->RGBColor[1, 0, \
0]]\)"}], {
                    $CellContext`medio[
                    Part[$CellContext`sol, 1], 
                    Part[$CellContext`sol, 2]], 0.4}, {0, 0}], 22, Bold]}]]], 
             If[Part[
                Dimensions[$CellContext`sol], 1] == 2, 
              If[
              ReplaceAll[$CellContext`f, $CellContext`var -> 
                 Part[$CellContext`sol, 2] + 0.003] > 0, 
               Graphics[{
                 Style[
                  Text[
                   
                   Row[{"\!\(\*\nStyleBox[\"+\",\nFontColor->RGBColor[0, 0, \
1]]\)"}], {
                    $CellContext`medio[
                    Part[$CellContext`sol, 2], $CellContext`max + 
                    0.2 ($CellContext`max - $CellContext`min)], 0.4}, {0, 0}],
                   22, Bold]}], 
               Graphics[{
                 Style[
                  Text[
                   
                   Row[{"\!\(\*\nStyleBox[\"-\",\nFontColor->RGBColor[1, 0, \
0]]\)"}], {
                    $CellContext`medio[
                    Part[$CellContext`sol, 2], $CellContext`max + 
                    0.2 ($CellContext`max - $CellContext`min)], 0.4}, {0, 0}],
                   22, Bold]}]], 
              If[Part[
                 Dimensions[$CellContext`sol], 1] > 2, 
               If[
               ReplaceAll[$CellContext`f, $CellContext`var -> 
                  Part[$CellContext`sol, 2] + 0.003] > 0, 
                Graphics[{
                  Style[
                   Text[
                    
                    Row[{"\!\(\*\nStyleBox[\"+\",\nFontColor->RGBColor[0, 0, \
1]]\)"}], {
                    $CellContext`medio[
                    Part[$CellContext`sol, 2], 
                    Part[$CellContext`sol, 3]], 0.4}, {0, 0}], 22, Bold]}], 
                Graphics[{
                  Style[
                   Text[
                    
                    Row[{"\!\(\*\nStyleBox[\"-\",\nFontColor->RGBColor[1, 0, \
0]]\)"}], {
                    $CellContext`medio[
                    Part[$CellContext`sol, 2], 
                    Part[$CellContext`sol, 3]], 0.4}, {0, 0}], 22, 
                   Bold]}]], $CellContext`punto3]], 
             If[Part[
                Dimensions[$CellContext`sol], 1] == 3, 
              If[
              ReplaceAll[$CellContext`f, $CellContext`var -> 
                 Part[$CellContext`sol, 3] + 0.003] > 0, 
               Graphics[{
                 Style[
                  Text[
                   
                   Row[{"\!\(\*\nStyleBox[\"+\",\nFontColor->RGBColor[0, 0, \
1]]\)"}], {
                    $CellContext`medio[
                    Part[$CellContext`sol, 3], $CellContext`max + 
                    0.2 ($CellContext`max - $CellContext`min)], 0.4}, {0, 0}],
                   22, Bold]}], 
               Graphics[{
                 Style[
                  Text[
                   
                   Row[{"\!\(\*\nStyleBox[\"-\",\nFontColor->RGBColor[1, 0, \
0]]\)"}], {
                    $CellContext`medio[
                    Part[$CellContext`sol, 3], $CellContext`max + 
                    0.2 ($CellContext`max - $CellContext`min)], 0.4}, {0, 0}],
                   22, Bold]}]], $CellContext`punto3], Axes -> {True, False}, 
             AxesStyle -> Directive[
               Thickness[0.003], 
               Arrowheads[0.03]], Ticks -> {
               N[$CellContext`sol, 2]}, 
             AxesOrigin -> {(Max[$CellContext`sol] + Min[$CellContext`sol])/2,
                0}, AspectRatio -> 0.1, 
             ImageSize -> {320, 60}]]), $CellContext`punto3 = Graphics[{
            AbsolutePointSize[1], 
            GrayLevel[1], 
            Point[{0, -0.5}]}], $CellContext`todos = {}, $CellContext`graf[
           Pattern[$CellContext`s, 
            
            Blank[]]] := ($CellContext`inde; \
$CellContext`intervalo[$CellContext`s]; Which[Head[$CellContext`s] === Symbol, 
            Row[{" "}], Head[$CellContext`s] === Element, 
            $CellContext`identidad[$CellContext`s, $CellContext`min, \
$CellContext`max], Head[$CellContext`s] === Equal, 
            $CellContext`igualdad[$CellContext`s, $CellContext`min, \
$CellContext`max, 
             ReplaceAll[$CellContext`var, $CellContext`inde]], 
            Or[
            Head[$CellContext`s] === Less, Head[$CellContext`s] === Greater], 
            $CellContext`menormayor[$CellContext`s, $CellContext`min, \
$CellContext`max, 
             ReplaceAll[$CellContext`var, $CellContext`inde]], 
            Or[
            Head[$CellContext`s] === LessEqual, Head[$CellContext`s] === 
             GreaterEqual], 
            $CellContext`menormayorigual[$CellContext`s, $CellContext`min, \
$CellContext`max, 
             ReplaceAll[$CellContext`var, $CellContext`inde]], 
            Head[$CellContext`s] === Inequality, 
            $CellContext`inecuacion[$CellContext`s, $CellContext`min, \
$CellContext`max, 
             ReplaceAll[$CellContext`var, $CellContext`inde]], 
            Head[$CellContext`s] === Or, 
            Show[
             $CellContext`plano[$CellContext`min, $CellContext`max], 
             If[Head[
                Part[$CellContext`s, 1]] === Equal, 
              $CellContext`punto1[
               Part[$CellContext`s, 1, 2]], $CellContext`punto3], 
             If[
              Or[Head[
                 Part[$CellContext`s, 1]] === Less, Head[
                 Part[$CellContext`s, 1]] === LessEqual, Head[
                 Part[$CellContext`s, 1]] === Greater, Head[
                 Part[$CellContext`s, 1]] === GreaterEqual], 
              $CellContext`flecha[
               Part[$CellContext`s, 1, 2], 
               $CellContext`ddd[
                Head[
                 Part[$CellContext`s, 1]], 
                Part[$CellContext`sol, 1, 2]]], $CellContext`punto3], 
             If[
              Or[Head[
                 Part[$CellContext`s, 1]] === Less, Head[
                 Part[$CellContext`s, 1]] === Greater], 
              $CellContext`punto2[
               Part[$CellContext`s, 1, 2]], $CellContext`punto3], 
             If[Head[
                Part[$CellContext`s, 1]] === Inequality, {
               $CellContext`segment[
                Part[$CellContext`s, 1, 1], 
                Part[$CellContext`s, 1, 5]], 
               If[Part[$CellContext`s, 1, 2] === Less, 
                $CellContext`punto2[
                 Part[$CellContext`s, 1, 1]], $CellContext`punto3], 
               If[Part[$CellContext`s, 1, 4] === Less, 
                $CellContext`punto2[
                 
                 Part[$CellContext`s, 1, 
                  5]], $CellContext`punto3]}, $CellContext`punto3], 
             If[Head[
                Part[$CellContext`s, 2]] === Equal, 
              $CellContext`punto1[
               Part[$CellContext`s, 2, 2]], $CellContext`punto3], 
             If[
              Or[Head[
                 Part[$CellContext`s, 2]] === Less, Head[
                 Part[$CellContext`s, 2]] === LessEqual, Head[
                 Part[$CellContext`s, 2]] === Greater, Head[
                 Part[$CellContext`s, 2]] === GreaterEqual], 
              $CellContext`flecha[
               Part[$CellContext`s, 2, 2], 
               $CellContext`ddd[
                Head[
                 Part[$CellContext`s, 2]], 
                Part[$CellContext`s, 2, 2]]], $CellContext`punto3], 
             If[
              Or[Head[
                 Part[$CellContext`s, 2]] === Less, Head[
                 Part[$CellContext`s, 2]] === Greater], 
              $CellContext`punto2[
               Part[$CellContext`s, 2, 2]], $CellContext`punto3], 
             If[Head[
                Part[$CellContext`s, 2]] === Inequality, {
               $CellContext`segment[
                Part[$CellContext`s, 2, 1], 
                Part[$CellContext`s, 2, 5]], 
               If[Part[$CellContext`s, 2, 2] === Less, 
                $CellContext`punto2[
                 Part[$CellContext`s, 2, 1]], $CellContext`punto3], 
               If[Part[$CellContext`s, 2, 4] === Less, 
                $CellContext`punto2[
                 
                 Part[$CellContext`s, 2, 
                  5]], $CellContext`punto3]}, $CellContext`punto3], 
             If[
             ReplaceAll[$CellContext`var, $CellContext`inde] =!= \
$CellContext`var, {
               $CellContext`punto1[
                Part[
                 ReplaceAll[$CellContext`var, $CellContext`inde], 1]], 
               $CellContext`punto2[
                Part[
                 ReplaceAll[$CellContext`var, $CellContext`inde], 
                 1]]}, $CellContext`punto3], Axes -> {True, False}, AxesStyle -> 
             Directive[
               Thickness[0.003], 
               Arrowheads[0.03]], 
             AxesOrigin -> {($CellContext`max + $CellContext`min)/2, 0}, 
             AspectRatio -> 0.1, 
             ImageSize -> {400, 60}]]), $CellContext`intervalo[
           Pattern[$CellContext`s, 
            Blank[]]] := ($CellContext`inde; 
          Which[Head[$CellContext`s] === 
            Symbol, $CellContext`min = 0; $CellContext`max = 0; Null, 
            Head[$CellContext`s] === 
            Element, $CellContext`min = -10; $CellContext`max = 10; Null, 
            Or[
            Head[$CellContext`s] === Equal, Head[$CellContext`s] === Unequal], 
            If[
            ReplaceAll[$CellContext`var, $CellContext`inde] =!= \
$CellContext`var, $CellContext`min = Min[
                Part[
                 ReplaceAll[$CellContext`var, $CellContext`inde], 1], 2 
                Part[$CellContext`s, 2], 0]; $CellContext`max = Max[
                Part[
                 ReplaceAll[$CellContext`var, $CellContext`inde], 1], 2 
                Part[$CellContext`s, 2], 0], $CellContext`min = 
              Min[2 Part[$CellContext`s, 2], 0]; $CellContext`max = 
              Max[2 Part[$CellContext`s, 2], 0]], 
            Or[
            Head[$CellContext`s] === Less, Head[$CellContext`s] === Greater], 
            If[
            ReplaceAll[$CellContext`var, $CellContext`inde] =!= \
$CellContext`var, $CellContext`min = Min[
                Part[
                 ReplaceAll[$CellContext`var, $CellContext`inde], 1], 
                Part[$CellContext`s, 2], 
                $CellContext`ddd[
                 Head[$CellContext`s], 
                 Part[$CellContext`s, 2]]]; $CellContext`max = Max[
                Part[
                 ReplaceAll[$CellContext`var, $CellContext`inde], 1], 
                Part[$CellContext`s, 2], 
                $CellContext`ddd[
                 Head[$CellContext`s], 
                 Part[$CellContext`s, 2]]], $CellContext`min = Min[
                Part[$CellContext`s, 2], 
                $CellContext`ddd[
                 Head[$CellContext`s], 
                 Part[$CellContext`s, 2]]]; $CellContext`max = Max[
                Part[$CellContext`s, 2], 
                $CellContext`ddd[
                 Head[$CellContext`s], 
                 Part[$CellContext`s, 2]]]], 
            Or[
            Head[$CellContext`s] === LessEqual, Head[$CellContext`s] === 
             GreaterEqual], 
            If[
            ReplaceAll[$CellContext`var, $CellContext`inde] =!= \
$CellContext`var, $CellContext`min = Min[
                Part[
                 ReplaceAll[$CellContext`var, $CellContext`inde], 1], 
                Part[$CellContext`s, 2], 
                $CellContext`ddd[
                 Head[$CellContext`s], 
                 Part[$CellContext`s, 2]]]; $CellContext`max = Max[
                Part[
                 ReplaceAll[$CellContext`var, $CellContext`inde], 1], 
                Part[$CellContext`s, 2], 
                $CellContext`ddd[
                 Head[$CellContext`s], 
                 Part[$CellContext`s, 2]]], $CellContext`min = Min[
                Part[$CellContext`s, 2], 
                $CellContext`ddd[
                 Head[$CellContext`s], 
                 Part[$CellContext`s, 2]]]; $CellContext`max = Max[
                Part[$CellContext`s, 2], 
                $CellContext`ddd[
                 Head[$CellContext`s], 
                 Part[$CellContext`s, 2]]]], Head[$CellContext`s] === 
            Inequality, $CellContext`min = 
             Part[$CellContext`s, 1]; $CellContext`max = 
             Part[$CellContext`s, 5], 
            Or[Head[$CellContext`s] === Or, Head[$CellContext`s] === And], 
            Which[
              Or[Head[
                 Part[$CellContext`s, 1]] === Equal, Head[
                 Part[$CellContext`s, 1]] === Unequal], $CellContext`min = 
               Min[2 Part[$CellContext`s, 1, 2], 0]; $CellContext`max = 
               Max[2 Part[$CellContext`s, 1, 2], 0], 
              Or[Head[
                 Part[$CellContext`s, 1]] === Less, Head[
                 Part[$CellContext`s, 1]] === LessEqual, Head[
                 Part[$CellContext`s, 1]] === Greater, Head[
                 Part[$CellContext`s, 1]] === GreaterEqual], $CellContext`min = 
               Min[
                 Part[$CellContext`s, 1, 2], 
                 $CellContext`ddd[
                  Head[
                   Part[$CellContext`s, 1]], 
                  Part[$CellContext`s, 1, 2]]]; $CellContext`max = Max[
                 Part[$CellContext`s, 1, 2], 
                 $CellContext`ddd[
                  Head[
                   Part[$CellContext`s, 1]], 
                  Part[$CellContext`s, 1, 2]]], Head[
                Part[$CellContext`s, 1]] === 
              Inequality, $CellContext`min = 
               Part[$CellContext`s, 1, 1]; $CellContext`max = 
               Part[$CellContext`s, 1, 5]]; Which[
              Or[Head[
                 Part[$CellContext`s, 2]] === Equal, Head[
                 Part[$CellContext`s, 1]] === Unequal], $CellContext`min = 
               Min[$CellContext`min, 2 Part[$CellContext`s, 2, 2], 
                 0]; $CellContext`max = 
               Max[$CellContext`max, 2 Part[$CellContext`s, 2, 2], 0], 
              Or[Head[
                 Part[$CellContext`s, 2]] === Less, Head[
                 Part[$CellContext`s, 2]] === LessEqual, Head[
                 Part[$CellContext`s, 2]] === Greater, Head[
                 Part[$CellContext`s, 2]] === GreaterEqual], $CellContext`min = 
               Min[$CellContext`min, 
                 Part[$CellContext`s, 2, 2], 
                 $CellContext`ddd[
                  Head[
                   Part[$CellContext`s, 2]], 
                  Part[$CellContext`s, 2, 2]]]; $CellContext`max = 
               Max[$CellContext`max, 
                 Part[$CellContext`s, 2, 2], 
                 $CellContext`ddd[
                  Head[
                   Part[$CellContext`s, 2]], 
                  Part[$CellContext`s, 2, 2]]], Head[
                Part[$CellContext`s, 2]] === 
              Inequality, $CellContext`min = Min[$CellContext`min, 
                 Part[$CellContext`s, 2, 1]]; $CellContext`max = 
               Max[$CellContext`max, 
                 Part[$CellContext`s, 2, 5]]]]), $CellContext`ddd[
           Pattern[$CellContext`x, 
            Blank[]], 
           Pattern[$CellContext`y, 
            Blank[]]] := ($CellContext`inde; If[$CellContext`inde === {}, 
            Which[
             Or[$CellContext`x === LessEqual, $CellContext`x === Less], 
             If[$CellContext`y == 0, -1.5, 
              Min[$CellContext`y - 1.5 Abs[$CellContext`y], -1.5]], 
             Or[$CellContext`x === GreaterEqual, $CellContext`x === Greater], 
             If[$CellContext`y == 0, 1.5, 
              
              Max[$CellContext`y + 1.5 Abs[$CellContext`y], 
               1.5]], $CellContext`x === Equal, 0], 
            Which[
             Or[$CellContext`x === LessEqual, $CellContext`x === Less], 
             If[$CellContext`y == 0, 
              Min[Part[
                 ReplaceAll[$CellContext`var, $CellContext`inde], 1] - 0.2 Abs[
                 Part[
                  ReplaceAll[$CellContext`var, $CellContext`inde], 1]], -1.5], 
              Min[Part[
                 ReplaceAll[$CellContext`var, $CellContext`inde], 1] - 0.2 Abs[
                 Part[
                  ReplaceAll[$CellContext`var, $CellContext`inde], 
                  1]], $CellContext`y - 1.5 Abs[$CellContext`y], -1.5]], 
             Or[$CellContext`x === GreaterEqual, $CellContext`x === Greater], 
             If[$CellContext`y == 0, 
              Max[Part[
                 ReplaceAll[$CellContext`var, $CellContext`inde], 1] + 0.2 Abs[
                  Part[
                   ReplaceAll[$CellContext`var, $CellContext`inde], 1]], 1.5], 
              Max[Part[
                 ReplaceAll[$CellContext`var, $CellContext`inde], 1] + 0.2 Abs[
                  Part[
                   ReplaceAll[$CellContext`var, $CellContext`inde], 
                   1]], $CellContext`y + 1.5 Abs[$CellContext`y], 
               1.5]], $CellContext`x === Equal, 0]]), $CellContext`identidad[
           Pattern[$CellContext`s, 
            Blank[]], 
           Pattern[$CellContext`min, 
            Blank[]], 
           Pattern[$CellContext`max, 
            Blank[]]] := Show[
           $CellContext`plano[$CellContext`min, $CellContext`max], 
           Graphics[{Thick, Blue, 
             Arrow[{{-1, 0.5}, {10, 0.5}}], 
             Arrow[{{1, 0.5}, {-10, 0.5}}]}], Axes -> {True, False}, 
           AxesStyle -> Directive[
             Thickness[0.003], 
             Arrowheads[0.03]], AxesOrigin -> {0, 0}, AspectRatio -> 0.1, 
           ImageSize -> {400, 60}], $CellContext`plano[
           Pattern[$CellContext`min, 
            Blank[]], 
           Pattern[$CellContext`max, 
            Blank[]]] := 
         Plot[0, {$CellContext`x, $CellContext`min - 
            0.05 ($CellContext`max - $CellContext`min), $CellContext`max + 
            0.05 ($CellContext`max - $CellContext`min)}, PlotStyle -> 
           White], $CellContext`igualdad[
           Pattern[$CellContext`s, 
            Blank[]], 
           Pattern[$CellContext`min, 
            Blank[]], 
           Pattern[$CellContext`max, 
            Blank[]], 
           Pattern[$CellContext`inde, 
            Blank[]]] := Show[
           $CellContext`plano[$CellContext`min, $CellContext`max], 
           $CellContext`punto1[
            Part[$CellContext`s, 2]], 
           If[$CellContext`inde =!= $CellContext`var, {
             $CellContext`punto1[
              Part[$CellContext`inde, 1]], 
             $CellContext`punto2[
              Part[$CellContext`inde, 1]]}, $CellContext`punto3], 
           Axes -> {True, False}, AxesStyle -> Directive[
             Thickness[0.003], 
             Arrowheads[0.03]], 
           AxesOrigin -> {($CellContext`max + $CellContext`min)/2, 0}, 
           AspectRatio -> 0.1, ImageSize -> {400, 60}], $CellContext`punto1[
           Pattern[$CellContext`x, 
            Blank[]]] := Graphics[{Thick, 
            AbsolutePointSize[9], Blue, 
            Point[{$CellContext`x, 0.5}]}], $CellContext`punto2[
           Pattern[$CellContext`x, 
            Blank[]]] := Graphics[{Thick, 
            AbsolutePointSize[5], White, 
            Point[{$CellContext`x, 0.5}]}], $CellContext`menormayor[
           Pattern[$CellContext`s, 
            Blank[]], 
           Pattern[$CellContext`min, 
            Blank[]], 
           Pattern[$CellContext`max, 
            Blank[]], 
           Pattern[$CellContext`inde, 
            Blank[]]] := Show[
           $CellContext`plano[$CellContext`min, $CellContext`max], 
           $CellContext`flecha[
            Part[$CellContext`s, 2], 
            $CellContext`ddd[
             Head[$CellContext`s], 
             Part[$CellContext`s, 2]]], 
           $CellContext`punto2[
            Part[$CellContext`s, 2]], 
           If[$CellContext`inde =!= $CellContext`var, {
             $CellContext`punto1[
              Part[$CellContext`inde, 1]], 
             $CellContext`punto2[
              Part[$CellContext`inde, 1]]}, $CellContext`punto3], 
           Axes -> {True, False}, AxesStyle -> Directive[
             Thickness[0.003], 
             Arrowheads[0.03]], 
           AxesOrigin -> {($CellContext`max + $CellContext`min)/2, 0}, 
           AspectRatio -> 0.1, ImageSize -> {400, 60}], $CellContext`flecha[
           Pattern[$CellContext`x, 
            Blank[]], 
           Pattern[$CellContext`d, 
            Blank[]]] := Graphics[{Thick, Blue, 
            Arrow[{{$CellContext`x, 0.5}, {$CellContext`d, 0.5}}], 
            AbsolutePointSize[9], 
            Point[{$CellContext`x, 0.5}]}], $CellContext`menormayorigual[
           Pattern[$CellContext`s, 
            Blank[]], 
           Pattern[$CellContext`min, 
            Blank[]], 
           Pattern[$CellContext`max, 
            Blank[]], 
           Pattern[$CellContext`inde, 
            Blank[]]] := Show[
           $CellContext`plano[$CellContext`min, $CellContext`max], 
           $CellContext`flecha[
            Part[$CellContext`s, 2], 
            $CellContext`ddd[
             Head[$CellContext`s], 
             Part[$CellContext`s, 2]]], 
           If[$CellContext`inde =!= $CellContext`var, {
             $CellContext`punto1[
              Part[$CellContext`inde, 1]], 
             $CellContext`punto2[
              Part[$CellContext`inde, 1]]}, $CellContext`punto3], 
           Axes -> {True, False}, AxesStyle -> Directive[
             Thickness[0.003], 
             Arrowheads[0.03]], 
           AxesOrigin -> {($CellContext`max + $CellContext`min)/2, 0}, 
           AspectRatio -> 0.1, 
           ImageSize -> {400, 60}], $CellContext`inecuacion[
           Pattern[$CellContext`s, 
            Blank[]], 
           Pattern[$CellContext`min, 
            Blank[]], 
           Pattern[$CellContext`max, 
            Blank[]], 
           Pattern[$CellContext`inde, 
            Blank[]]] := Show[
           $CellContext`plano[$CellContext`min, $CellContext`max], 
           $CellContext`segment[
            Part[$CellContext`s, 1], 
            Part[$CellContext`s, 5]], 
           If[Part[$CellContext`s, 2] === Less, 
            $CellContext`punto2[
             Part[$CellContext`s, 1]], $CellContext`punto3], 
           If[Part[$CellContext`s, 4] === Less, 
            $CellContext`punto2[
             Part[$CellContext`s, 5]], $CellContext`punto3], 
           If[$CellContext`inde =!= $CellContext`var, {
             $CellContext`punto1[
              Part[$CellContext`inde, 1]], 
             $CellContext`punto2[
              Part[$CellContext`inde, 1]]}, $CellContext`punto3], 
           Axes -> {True, False}, AxesStyle -> Directive[
             Thickness[0.003], 
             Arrowheads[0.03]], 
           AxesOrigin -> {($CellContext`max + $CellContext`min)/2, 0}, 
           AspectRatio -> 0.1, ImageSize -> {400, 60}], $CellContext`segment[
           Pattern[$CellContext`x, 
            Blank[]], 
           Pattern[$CellContext`y, 
            Blank[]]] := Graphics[{Thick, 
            AbsolutePointSize[9], Blue, 
            Line[{{$CellContext`x, 0.5}, {$CellContext`y, 0.5}}], 
            Point[{$CellContext`x, 0.5}], 
            Point[{$CellContext`y, 0.5}]}], $CellContext`anc = 
         750, $CellContext`alto = 420}; Typeset`initDone$$ = True),
      SynchronousInitialization->True,
      UnsavedVariables:>{Typeset`initDone$$},
      UntrackedVariables:>{Typeset`size$$}], "Manipulate",
     Deployed->True,
     StripOnInput->False],
    TraditionalForm],
   Manipulate`InterpretManipulate[1]], TraditionalForm]], "Output",
 CellTags->"imprimir"],

Cell["", "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"]
},
ScreenStyleEnvironment->"SlideShow",
WindowSize->{1024, 768},
Visible->True,
ScrollingOptions->{"VerticalScrollRange"->Fit},
ShowCellBracket->Automatic,
Deployed->True,
CellContext->Notebook,
TrackCellChangeTimes->False,
FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (July 1, 2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "SlideShowHeader"->{
  Cell[1464, 33, 4250, 94, 46, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[5975, 141, 64, 1, 43, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[87322, 1773, 64, 1, 43, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"]},
 "imprimir"->{
  Cell[5717, 129, 64, 1, 100, "Title",
   CellTags->"imprimir"],
  Cell[5784, 132, 188, 7, 127, "Subtitle",
   CellTags->"imprimir"],
  Cell[6042, 144, 77, 1, 71, "Section",
   CellTags->"imprimir"],
  Cell[6122, 147, 81197, 1624, 635, "Output",
   CellTags->"imprimir"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"SlideShowHeader", 87834, 1792},
 {"imprimir", 88118, 1799}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[1464, 33, 4250, 94, 46, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[5717, 129, 64, 1, 100, "Title",
 CellTags->"imprimir"],
Cell[5784, 132, 188, 7, 127, "Subtitle",
 CellTags->"imprimir"],
Cell[5975, 141, 64, 1, 43, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[6042, 144, 77, 1, 71, "Section",
 CellTags->"imprimir"],
Cell[6122, 147, 81197, 1624, 635, "Output",
 CellTags->"imprimir"],
Cell[87322, 1773, 64, 1, 43, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature uvpEnC1OYwJDQAgsVQySRF3t *)
