(* 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[     80850,       1581]
NotebookOptionsPosition[     80254,       1542]
NotebookOutlinePosition[     81385,       1583]
CellTagsIndexPosition[     81278,       1577]
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 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 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$7783$$ = 0, $CellContext`resol$7784$$ = 
      0, $CellContext`resp$7785$$ = False}, 
      DynamicBox[Manipulate`ManipulateBoxes[
       2, TraditionalForm, 
        "Variables" :> {$CellContext`pista$$ = 0, $CellContext`resol$$ = 
          0, $CellContext`resp$$ = 0}, "ControllerVariables" :> {
          Hold[$CellContext`pista$$, $CellContext`pista$7783$$, 0], 
          Hold[$CellContext`resol$$, $CellContext`resol$7784$$, 0], 
          Hold[$CellContext`resp$$, $CellContext`resp$7785$$, 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, 
            Row[{
              $CellContext`s[
               Part[$CellContext`sig, 1], 
               $CellContext`w[
                Part[$CellContext`v2, 1]]], " ", $CellContext`var, " ", 
              $CellContext`s1[
               Part[$CellContext`sig, 2], 
               Part[$CellContext`v2, 2]], " ", 
              Part[$CellContext`desi, 1], " ", 
              $CellContext`s[
               Part[$CellContext`sig, 3], 
               Part[$CellContext`v2, 3]]}], $CellContext`alt == 2, 
            Row[{
              $CellContext`s[
               Part[$CellContext`sig, 1], 
               $CellContext`w[
                Part[$CellContext`v2, 1]]], " ", $CellContext`var, " ", 
              $CellContext`s1[
               Part[$CellContext`sig, 2], 
               Part[$CellContext`v2, 2]], " ", 
              Part[$CellContext`desi, 1], " ", 
              $CellContext`s[
               Part[$CellContext`sig, 3], 
               $CellContext`w[
                Part[$CellContext`v2, 3]]], " ", $CellContext`var, " ", 
              $CellContext`s1[
               Part[$CellContext`sig, 4], 
               Part[$CellContext`v2, 4]]}], $CellContext`alt == 3, 
            Row[{
              $CellContext`s[
               Part[$CellContext`sig, 1], 
               $CellContext`w[
                Part[$CellContext`v2, 1]]], " ", $CellContext`var, " ", 
              $CellContext`s1[
               Part[$CellContext`sig, 2], 
               Part[$CellContext`v2, 2]], " ", 
              Part[$CellContext`desi, 1], " ", Row[{
                 $CellContext`w[
                  Part[$CellContext`v1, 3]], " ", $CellContext`var, " ", 
                 $CellContext`s1[
                  Part[$CellContext`sig, 4], 
                  Part[$CellContext`v1, 4]]}]/Row[{
                Part[$CellContext`v3, 4]}]}], $CellContext`alt == 4, 
            Row[{
              $CellContext`s[
               Part[$CellContext`sig, 1], 
               Part[$CellContext`v2, 1]], " ", 
              Part[$CellContext`desi1, 1], " ", Row[{
                 $CellContext`w[
                  Part[$CellContext`v1, 2]], " ", $CellContext`var, " ", 
                 $CellContext`s1[
                  Part[$CellContext`sig, 3], 
                  Part[$CellContext`v1, 3]]}]/Row[{
                Part[$CellContext`v3, 4]}], " ", 
              Part[$CellContext`desi1, 2], " ", $CellContext`s[
                Part[$CellContext`sig, 1], 
                Part[$CellContext`v2, 1]] + 
              Part[$CellContext`v2, 5]}]]; $CellContext`ecu1 = 
          Which[$CellContext`alt == 1, $CellContext`s[
               Part[$CellContext`sig, 1], 
               Part[$CellContext`v2, 1]] $CellContext`var + $CellContext`s[
              Part[$CellContext`sig, 2], 
              Part[$CellContext`v2, 2]] - $CellContext`s[
             Part[$CellContext`sig, 3], 
             Part[$CellContext`v2, 3]], $CellContext`alt == 2, $CellContext`s[
               Part[$CellContext`sig, 1], 
               Part[$CellContext`v2, 1]] $CellContext`var + $CellContext`s[
              Part[$CellContext`sig, 2], 
              Part[$CellContext`v2, 2]] - $CellContext`s[
              Part[$CellContext`sig, 3], 
              Part[$CellContext`v2, 3]] $CellContext`var - $CellContext`s[
             Part[$CellContext`sig, 4], 
             Part[$CellContext`v2, 4]], $CellContext`alt == 3, $CellContext`s[
               Part[$CellContext`sig, 1], 
               Part[$CellContext`v2, 1]] $CellContext`var + $CellContext`s[
              Part[$CellContext`sig, 2], 
              Part[$CellContext`v2, 2]] - (
             Part[$CellContext`v1, 3] $CellContext`var + $CellContext`s[
               Part[$CellContext`sig, 4], 
               Part[$CellContext`v1, 4]])/
            Part[$CellContext`v3, 4], $CellContext`alt == 4, {$CellContext`s[
               Part[$CellContext`sig, 1], 
               Part[$CellContext`v2, 1]] - (
              Part[$CellContext`v1, 2] $CellContext`var + $CellContext`s[
                Part[$CellContext`sig, 3], 
                Part[$CellContext`v1, 3]])/
             Part[$CellContext`v3, 
              4], (Part[$CellContext`v1, 2] $CellContext`var + $CellContext`s[
                 Part[$CellContext`sig, 3], 
                 Part[$CellContext`v1, 3]])/
              Part[$CellContext`v3, 4] - ($CellContext`s[
               Part[$CellContext`sig, 1], 
               Part[$CellContext`v2, 1]] + 
             Part[$CellContext`v2, 5])}]; $CellContext`ineq = Which[
            
            And[$CellContext`alt <= 3, Part[$CellContext`desi, 1] == 
             " \[LessEqual] "], $CellContext`ecu1 <= 0, 
            
            And[$CellContext`alt <= 3, Part[$CellContext`desi, 1] == 
             " < "], $CellContext`ecu1 < 0, 
            
            And[$CellContext`alt <= 3, Part[$CellContext`desi, 1] == 
             " \[GreaterEqual] "], $CellContext`ecu1 >= 0, 
            
            And[$CellContext`alt <= 3, Part[$CellContext`desi, 1] == 
             " > "], $CellContext`ecu1 > 0, 
            
            And[$CellContext`alt == 4, Part[$CellContext`desi1, 1] == 
             " \[LessEqual] ", Part[$CellContext`desi1, 2] == 
             " \[LessEqual] "], {
            Part[$CellContext`ecu1, 1] <= 0, Part[$CellContext`ecu1, 2] <= 0}, 
            
            And[$CellContext`alt == 4, Part[$CellContext`desi1, 1] == 
             " \[LessEqual] ", Part[$CellContext`desi1, 2] == " < "], {
            Part[$CellContext`ecu1, 1] <= 0, Part[$CellContext`ecu1, 2] < 0}, 
            
            And[$CellContext`alt == 4, Part[$CellContext`desi1, 1] == " < ", 
             Part[$CellContext`desi1, 2] == " \[LessEqual] "], {
            Part[$CellContext`ecu1, 1] < 0, Part[$CellContext`ecu1, 2] <= 0}, 
            
            And[$CellContext`alt == 4, Part[$CellContext`desi1, 1] == " < ", 
             Part[$CellContext`desi1, 2] == " < "], {
            Part[$CellContext`ecu1, 1] < 0, Part[$CellContext`ecu1, 2] < 
             0}]; $CellContext`sol = 
          Reduce[$CellContext`ineq, $CellContext`var]; 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}]}, {
                Which[$CellContext`alt == 1, 
                 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`pistalin01}]], 
                    Which[$CellContext`pista$$ >= 2, 
                    Row[{"2. ", $CellContext`pistalin02}]], 
                    Which[$CellContext`pista$$ >= 3, 
                    Row[{"3. ", $CellContext`pistalin03}]], 
                    Which[$CellContext`pista$$ >= 3, 
                    
                    Row[{"      ", $CellContext`pistalin031}]]}]}], \
$CellContext`tam - 8]], 
                    Style[
                    Column[{
                    Which[$CellContext`pista$$ >= 4, 
                    Row[{"4. ", $CellContext`pistalin04}]], 
                    Which[$CellContext`pista$$ >= 4, 
                    Row[{"      ", $CellContext`pistalin041}]], 
                    Which[$CellContext`pista$$ >= 5, 
                    Row[{"5. ", $CellContext`pistalin05}]], 
                    Which[$CellContext`pista$$ >= 6, 
                    Row[{"      ", $CellContext`pistalin051}]], 
                    Which[$CellContext`pista$$ >= 6, 
                    Row[{"      ", $CellContext`pistalin052}]], 
                    Which[$CellContext`pista$$ >= 7, 
                    
                    Row[{"6. ", $CellContext`pistalin06}]]}], \
$CellContext`tam - 8]}}, ItemSize -> {{21, 22}, Automatic}, 
                  Alignment -> {Left, Top}], $CellContext`alt == 2, 
                 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`pistalin01}]], 
                    Which[$CellContext`pista$$ >= 2, 
                    Row[{"2. ", $CellContext`pistalin02}]], 
                    Which[$CellContext`pista$$ >= 3, 
                    Row[{"3. ", $CellContext`pistalin07}]], 
                    Which[$CellContext`pista$$ >= 4, 
                    Row[{"4. ", $CellContext`pistalin03}]], 
                    Which[$CellContext`pista$$ >= 4, 
                    
                    Row[{"      ", $CellContext`pistalin031}]]}]}], \
$CellContext`tam - 8]], 
                    Style[
                    Column[{
                    Which[$CellContext`pista$$ >= 5, 
                    Row[{"5. ", $CellContext`pistalin04}]], 
                    Which[$CellContext`pista$$ >= 5, 
                    Row[{"      ", $CellContext`pistalin041}]], 
                    Which[$CellContext`pista$$ >= 6, 
                    Row[{"6. ", $CellContext`pistalin05}]], 
                    Which[$CellContext`pista$$ >= 6, 
                    Row[{"      ", $CellContext`pistalin051}]], 
                    Which[$CellContext`pista$$ >= 6, 
                    Row[{"      ", $CellContext`pistalin052}]], 
                    Which[$CellContext`pista$$ >= 7, 
                    
                    Row[{"7. ", $CellContext`pistalin06}]]}], \
$CellContext`tam - 8]}}, ItemSize -> {{21, 22}, Automatic}, 
                  Alignment -> {Left, Top}], $CellContext`alt == 3, 
                 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`pistalin01}]], 
                    Which[$CellContext`pista$$ >= 2, 
                    Row[{"2. ", $CellContext`pistalin08}]], 
                    Which[$CellContext`pista$$ >= 3, 
                    Row[{"3. ", $CellContext`pistalin02}]], 
                    Which[$CellContext`pista$$ >= 4, 
                    Row[{"4. ", $CellContext`pistalin03}]], 
                    Which[$CellContext`pista$$ >= 4, 
                    
                    Row[{"      ", $CellContext`pistalin031}]]}]}], \
$CellContext`tam - 8]], 
                    Style[
                    Column[{
                    Which[$CellContext`pista$$ >= 5, 
                    Row[{"5. ", $CellContext`pistalin04}]], 
                    Which[$CellContext`pista$$ >= 5, 
                    Row[{"      ", $CellContext`pistalin041}]], 
                    Which[$CellContext`pista$$ >= 6, 
                    Row[{"6. ", $CellContext`pistalin05}]], 
                    Which[$CellContext`pista$$ >= 6, 
                    Row[{"      ", $CellContext`pistalin051}]], 
                    Which[$CellContext`pista$$ >= 6, 
                    Row[{"      ", $CellContext`pistalin052}]], 
                    Which[$CellContext`pista$$ >= 7, 
                    
                    Row[{"7. ", $CellContext`pistalin06}]]}], \
$CellContext`tam - 8]}}, ItemSize -> {{21, 22}, Automatic}, 
                  Alignment -> {Left, Top}], $CellContext`alt == 4, 
                 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`pistalin09}]], 
                    Which[$CellContext`pista$$ >= 2, 
                    Row[{"2. ", $CellContext`pistalin10}]], 
                    Which[$CellContext`pista$$ >= 3, 
                    Row[{"3. ", $CellContext`pistalin02}]], 
                    Which[$CellContext`pista$$ >= 4, 
                    Row[{"4. ", $CellContext`pistalin03}]], 
                    Which[$CellContext`pista$$ >= 4, 
                    
                    Row[{"      ", $CellContext`pistalin031}]]}]}], \
$CellContext`tam - 8]], 
                    Style[
                    Column[{
                    Which[$CellContext`pista$$ >= 5, 
                    Row[{"5. ", $CellContext`pistalin04}]], 
                    Which[$CellContext`pista$$ >= 5, 
                    Row[{"      ", $CellContext`pistalin041}]], 
                    Which[$CellContext`pista$$ >= 6, 
                    Row[{"6. ", $CellContext`pistalin11}]], 
                    Which[$CellContext`pista$$ >= 6, 
                    Row[{"      ", $CellContext`pistalin111}]], 
                    Which[$CellContext`pista$$ >= 6, 
                    Row[{"      ", $CellContext`pistalin112}]], 
                    Which[$CellContext`pista$$ >= 7, 
                    
                    Row[{"7. ", $CellContext`pistalin06}]]}], \
$CellContext`tam - 8]}}, ItemSize -> {{21, 22}, Automatic}, 
                  Alignment -> {Left, Top}]]}, {
                Which[$CellContext`alt == 1, $CellContext`e = $CellContext`s[
                    Part[$CellContext`sig, 1], 
                    Part[$CellContext`v2, 1]]; $CellContext`d = $CellContext`s[
                    Part[$CellContext`sig, 3], 
                    Part[$CellContext`v2, 3]] - $CellContext`s[
                    Part[$CellContext`sig, 2], 
                    Part[$CellContext`v2, 2]]; 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[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"           \",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) ", 
                    Row[{
                    $CellContext`s[
                    Part[$CellContext`sig, 1], 
                    $CellContext`w[
                    Part[$CellContext`v2, 1]]], " ", $CellContext`var, " ", 
                    Part[$CellContext`desi, 1], " ", 
                    $CellContext`s[
                    Part[$CellContext`sig, 3], 
                    Part[$CellContext`v2, 3]], " + ", 
                    $CellContext`pa[-$CellContext`s[
                    Part[$CellContext`sig, 2], 
                    Part[$CellContext`v2, 2]]]}]}]], 
                    Which[$CellContext`resol$$ >= 3, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"           \",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) ", 
                    Row[{$CellContext`e $CellContext`var, " ", 
                    Part[$CellContext`desi, 1], 
                    " ", $CellContext`d}]}]]}]}], $CellContext`tam - 5]], 
                    Style[
                    Column[{
                    Which[$CellContext`resol$$ >= 5, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"           \",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) ", 
                    Which[$CellContext`e == 0, 
                    Which[
                    
                    Or[$CellContext`sol === True, Head[$CellContext`sol] === 
                    Element], 
                    
                    Row[{"La soluci\[OAcute]n son todos los reales"}], \
$CellContext`sol === False, 
                    Row[{"No hay soluci\[OAcute]n real"}], 
                    
                    Or[$CellContext`sol =!= True, $CellContext`sol =!= False, 
                    Head[$CellContext`sol] =!= 
                    Element], $CellContext`sol], $CellContext`e == 1, 
                    Row[{" "}], 
                    Or[$CellContext`e != 0, $CellContext`e != 1], 
                    Row[{$CellContext`var, " ", 
                    If[$CellContext`e < 0, 
                    $CellContext`cambdesi[
                    Part[$CellContext`desi, 1]], 
                    Part[$CellContext`desi, 1]], " (", $CellContext`d, ")(", 
                    $CellContext`inv[$CellContext`e], ")    ", 
                    
                    If[$CellContext`e < 0, 
                    "\!\(\*\nStyleBox[\"cambia\",\nFontColor->RGBColor[1, 0, \
0]]\)\!\(\*\nStyleBox[\"!!\",\nFontColor->RGBColor[1, 0, 0]]\)\!\(\*\n\
StyleBox[\"!\",\nFontColor->RGBColor[1, 0, 0]]\)", 
                    "\!\(\*\nStyleBox[\"(\",\nFontColor->RGBColor[0, 0, 1]]\)\
\!\(\*\nStyleBox[\"no\",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \
\",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"cambia\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\")\",\n\
FontColor->RGBColor[0, 0, 1]]\)"]}]]}]], 
                    Which[$CellContext`resol$$ >= 7, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"           \",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) ", 
                    Which[
                    Or[$CellContext`e == 0, $CellContext`e == 1], 
                    Row[{" "}], 
                    Or[$CellContext`e != 0, $CellContext`e != 1], 
                    Row[{$CellContext`var, " ", 
                    If[$CellContext`e < 0, 
                    $CellContext`cambdesi[
                    Part[$CellContext`desi, 1]], 
                    Part[$CellContext`desi, 1]], 
                    "  ", (1/$CellContext`e) $CellContext`d}]]}]]}], \
$CellContext`tam - 5]}}, ItemSize -> {{21, 22}, Automatic}, 
                   Alignment -> {Left, Top}], $CellContext`alt == 
                 2, $CellContext`e = $CellContext`s[
                    Part[$CellContext`sig, 1], 
                    Part[$CellContext`v2, 1]] - $CellContext`s[
                    Part[$CellContext`sig, 3], 
                    Part[$CellContext`v2, 3]]; $CellContext`d = $CellContext`s[
                    Part[$CellContext`sig, 4], 
                    Part[$CellContext`v2, 4]] - $CellContext`s[
                    Part[$CellContext`sig, 2], 
                    Part[$CellContext`v2, 2]]; 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[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"           \",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) ", 
                    Row[{
                    $CellContext`s[
                    Part[$CellContext`sig, 1], 
                    $CellContext`w[
                    Part[$CellContext`v2, 1]]], " ", $CellContext`var, 
                    " + ", $CellContext`pa[-$CellContext`s[
                    Part[$CellContext`sig, 3], 
                    Part[$CellContext`v2, 3]]] " ", $CellContext`var, " ", 
                    Part[$CellContext`desi, 1], " ", 
                    $CellContext`s[
                    Part[$CellContext`sig, 4], 
                    Part[$CellContext`v2, 4]], " + ", 
                    $CellContext`pa[-$CellContext`s[
                    Part[$CellContext`sig, 2], 
                    Part[$CellContext`v2, 2]]]}]}]], 
                    Which[$CellContext`resol$$ >= 3, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"           \",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) ", 
                    Row[{$CellContext`e $CellContext`var, " ", 
                    Part[$CellContext`desi, 1], 
                    " ", $CellContext`d}]}]]}]}], $CellContext`tam - 5]], 
                    Style[
                    Column[{
                    Which[$CellContext`resol$$ >= 5, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"           \",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) ", 
                    Which[$CellContext`e == 0, 
                    Which[
                    
                    Or[$CellContext`sol === True, Head[$CellContext`sol] === 
                    Element], 
                    
                    Row[{"La soluci\[OAcute]n son todos los reales"}], \
$CellContext`sol === False, 
                    Row[{"No hay soluci\[OAcute]n real"}], 
                    
                    Or[$CellContext`sol =!= True, $CellContext`sol =!= False, 
                    Head[$CellContext`sol] =!= 
                    Element], $CellContext`sol], $CellContext`e == 1, 
                    Row[{" "}], 
                    Or[$CellContext`e != 0, $CellContext`e != 1], 
                    Row[{$CellContext`var, " ", 
                    If[$CellContext`e < 0, 
                    $CellContext`cambdesi[
                    Part[$CellContext`desi, 1]], 
                    Part[$CellContext`desi, 1]], " (", $CellContext`d, ")(", 
                    $CellContext`inv[$CellContext`e], ")    ", 
                    
                    If[$CellContext`e < 0, 
                    "\!\(\*\nStyleBox[\"cambia\",\nFontColor->RGBColor[1, 0, \
0]]\)\!\(\*\nStyleBox[\" \",\nFontColor->RGBColor[1, 0, 0]]\)\!\(\*\n\
StyleBox[\"signo\",\nFontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"!!\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"!\",\n\
FontColor->RGBColor[1, 0, 0]]\)", 
                    "\!\(\*\nStyleBox[\"(\",\nFontColor->RGBColor[0, 0, 1]]\)\
\!\(\*\nStyleBox[\"no\",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \
\",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"cambia\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"signo\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\")\",\n\
FontColor->RGBColor[0, 0, 1]]\)"]}]]}]], 
                    Which[$CellContext`resol$$ >= 7, 
                    Row[{
                    "\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"           \",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) ", 
                    Which[
                    Or[$CellContext`e == 0, $CellContext`e == 1], 
                    Row[{" "}], 
                    Or[$CellContext`e != 0, $CellContext`e != 1], 
                    Row[{$CellContext`var, " ", 
                    If[$CellContext`e < 0, 
                    $CellContext`cambdesi[
                    Part[$CellContext`desi, 1]], 
                    Part[$CellContext`desi, 1]], 
                    "  ", (1/$CellContext`e) $CellContext`d}]]}]]}], \
$CellContext`tam - 5]}}, ItemSize -> {{21, 22}, Automatic}, 
                   Alignment -> {Left, Top}], $CellContext`alt == 
                 3, $CellContext`e = $CellContext`s[
                    Part[$CellContext`sig, 1], 
                    $CellContext`w[
                    Part[$CellContext`v3, 4] Part[$CellContext`v2, 1]]] - 
                   Part[$CellContext`v1, 3]; $CellContext`d = $CellContext`s[
                    Part[$CellContext`sig, 4], 
                    Part[$CellContext`v1, 4]] - $CellContext`s[
                    Part[$CellContext`sig, 2], Part[$CellContext`v3, 4] 
                    Part[$CellContext`v2, 2]]; 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[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"           \",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) ", 
                    Row[{
                    $CellContext`s[
                    Part[$CellContext`sig, 1], 
                    $CellContext`w[
                    Part[$CellContext`v3, 4] Part[$CellContext`v2, 1]]], 
                    " ", $CellContext`var, " ", 
                    $CellContext`s1[
                    Part[$CellContext`sig, 2], Part[$CellContext`v3, 4] 
                    Part[$CellContext`v2, 2]], " ", 
                    Part[$CellContext`desi, 1], " ", 
                    Row[{
                    $CellContext`w[
                    Part[$CellContext`v1, 3]], " ", $CellContext`var, " ", 
                    $CellContext`s1[
                    Part[$CellContext`sig, 4], 
                    Part[$CellContext`v1, 4]]}]}]}]], 
                    Which[$CellContext`resol$$ >= 2, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"           \",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) ", 
                    Row[{
                    $CellContext`s[
                    Part[$CellContext`sig, 1], 
                    $CellContext`w[
                    Part[$CellContext`v3, 4] Part[$CellContext`v2, 1]]], 
                    " ", $CellContext`var, 
                    " + ", $CellContext`pa[-Part[$CellContext`v1, 3]] 
                    " ", $CellContext`var, " ", 
                    Part[$CellContext`desi, 1], " ", 
                    $CellContext`s[
                    Part[$CellContext`sig, 4], 
                    Part[$CellContext`v1, 4]], " + ", 
                    $CellContext`pa[-$CellContext`s[
                    Part[$CellContext`sig, 2], Part[$CellContext`v3, 4] 
                    Part[$CellContext`v2, 2]]]}]}]], 
                    Which[$CellContext`resol$$ >= 3, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"           \",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) ", 
                    Row[{$CellContext`e $CellContext`var, " ", 
                    Part[$CellContext`desi, 1], 
                    " ", $CellContext`d}]}]]}]}], $CellContext`tam - 5]], 
                    Style[
                    Column[{
                    Which[$CellContext`resol$$ >= 5, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"           \",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) ", 
                    Which[$CellContext`e == 0, 
                    Which[
                    
                    Or[$CellContext`sol === True, Head[$CellContext`sol] === 
                    Element], 
                    
                    Row[{"La soluci\[OAcute]n son todos los reales"}], \
$CellContext`sol === False, 
                    Row[{"No hay soluci\[OAcute]n real"}], 
                    
                    Or[$CellContext`sol =!= True, $CellContext`sol =!= False, 
                    Head[$CellContext`sol] =!= 
                    Element], $CellContext`sol], $CellContext`e == 1, 
                    Row[{" "}], 
                    Or[$CellContext`e != 0, $CellContext`e != 1], 
                    Row[{$CellContext`var, " ", 
                    If[$CellContext`e < 0, 
                    $CellContext`cambdesi[
                    Part[$CellContext`desi, 1]], 
                    Part[$CellContext`desi, 1]], " (", $CellContext`d, ")(", 
                    $CellContext`inv[$CellContext`e], ")    ", 
                    
                    If[$CellContext`e < 0, 
                    "\!\(\*\nStyleBox[\"cambia\",\nFontColor->RGBColor[1, 0, \
0]]\)\!\(\*\nStyleBox[\" \",\nFontColor->RGBColor[1, 0, 0]]\)\!\(\*\n\
StyleBox[\"signo\",\nFontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"!!\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"!\",\n\
FontColor->RGBColor[1, 0, 0]]\)", 
                    "\!\(\*\nStyleBox[\"(\",\nFontColor->RGBColor[0, 0, 1]]\)\
\!\(\*\nStyleBox[\"no\",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \
\",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"cambia\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"signo\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\")\",\n\
FontColor->RGBColor[0, 0, 1]]\)"]}]]}]], 
                    Which[$CellContext`resol$$ >= 7, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"           \",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) ", 
                    Which[
                    Or[$CellContext`e == 0, $CellContext`e == 1], 
                    Row[{" "}], 
                    Or[$CellContext`e != 0, $CellContext`e != 1], 
                    Row[{$CellContext`var, " ", 
                    If[$CellContext`e < 0, 
                    $CellContext`cambdesi[
                    Part[$CellContext`desi, 1]], 
                    Part[$CellContext`desi, 1]], 
                    "  ", (1/$CellContext`e) $CellContext`d}]]}]]}], \
$CellContext`tam - 5]}}, ItemSize -> {{21, 22}, Automatic}, 
                   Alignment -> {Left, Top}], $CellContext`alt == 
                 4, $CellContext`e = Part[$CellContext`v1, 2]; 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[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"           \",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) ", 
                    Row[{
                    $CellContext`s[
                    Part[$CellContext`sig, 1], Part[$CellContext`v3, 4] 
                    Part[$CellContext`v2, 1]], " ", 
                    Part[$CellContext`desi1, 1], " ", 
                    Row[{
                    $CellContext`w[
                    Part[$CellContext`v1, 2]], " ", $CellContext`var, " ", 
                    $CellContext`s1[
                    Part[$CellContext`sig, 3], 
                    Part[$CellContext`v1, 3]]}], " ", 
                    Part[$CellContext`desi1, 2], " ", 
                    Part[$CellContext`v3, 4] ($CellContext`s[
                    Part[$CellContext`sig, 1], 
                    Part[$CellContext`v2, 1]] + 
                    Part[$CellContext`v2, 5])}]}]], 
                    Which[$CellContext`resol$$ >= 2, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"           \",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) ", 
                    Row[{
                    $CellContext`s[
                    Part[$CellContext`sig, 1], Part[$CellContext`v3, 4] 
                    Part[$CellContext`v2, 1]], " + ", 
                    $CellContext`pa[-$CellContext`s[
                    Part[$CellContext`sig, 3], 
                    Part[$CellContext`v1, 3]]], " ", 
                    Part[$CellContext`desi1, 1], " ", 
                    Row[{
                    $CellContext`w[
                    Part[$CellContext`v1, 2]], " ", $CellContext`var}], " ", 
                    Part[$CellContext`desi1, 2], " ", 
                    Part[$CellContext`v3, 4] ($CellContext`s[
                    Part[$CellContext`sig, 1], 
                    Part[$CellContext`v2, 1]] + Part[$CellContext`v2, 5]), 
                    " + ", 
                    $CellContext`pa[-$CellContext`s[
                    Part[$CellContext`sig, 3], 
                    Part[$CellContext`v1, 3]]]}]}]], 
                    Which[$CellContext`resol$$ >= 3, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"           \",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) ", 
                    Row[{$CellContext`s[
                    Part[$CellContext`sig, 1], Part[$CellContext`v3, 4] 
                    Part[$CellContext`v2, 1]] - $CellContext`s[
                    Part[$CellContext`sig, 3], 
                    Part[$CellContext`v1, 3]], " ", 
                    Part[$CellContext`desi1, 1], " ", 
                    Row[{
                    $CellContext`w[
                    Part[$CellContext`v1, 2]], " ", $CellContext`var}], " ", 
                    Part[$CellContext`desi1, 2], " ", 
                    Part[$CellContext`v3, 4] ($CellContext`s[
                    Part[$CellContext`sig, 1], 
                    Part[$CellContext`v2, 1]] + 
                    Part[$CellContext`v2, 5]) - $CellContext`s[
                    Part[$CellContext`sig, 3], 
                    Part[$CellContext`v1, 3]]}]}]]}]}], $CellContext`tam - 
                    5]], 
                    Style[
                    Column[{
                    Which[$CellContext`resol$$ >= 5, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"           \",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) ", 
                    Which[$CellContext`e == 0, 
                    Which[
                    
                    Or[$CellContext`sol === True, Head[$CellContext`sol] === 
                    Element], 
                    
                    Row[{"La soluci\[OAcute]n son todos los reales"}], \
$CellContext`sol === False, 
                    Row[{"No hay soluci\[OAcute]n real"}], 
                    
                    Or[$CellContext`sol =!= True, $CellContext`sol =!= False, 
                    Head[$CellContext`sol] =!= 
                    Element], $CellContext`sol], $CellContext`e == 1, 
                    Row[{" "}], 
                    Or[$CellContext`e != 0, $CellContext`e != 1], 
                    Row[{" (", $CellContext`s[
                    Part[$CellContext`sig, 1], Part[$CellContext`v3, 4] 
                    Part[$CellContext`v2, 1]] - $CellContext`s[
                    Part[$CellContext`sig, 3], 
                    Part[$CellContext`v1, 3]], ")(", 
                    $CellContext`inv[$CellContext`e], ")", " ", 
                    Part[$CellContext`desi1, 1], " ", $CellContext`var, " ", 
                    Part[$CellContext`desi1, 2], "  (", 
                    Part[$CellContext`v3, 4] ($CellContext`s[
                    Part[$CellContext`sig, 1], 
                    Part[$CellContext`v2, 1]] + 
                    Part[$CellContext`v2, 5]) - $CellContext`s[
                    Part[$CellContext`sig, 3], 
                    Part[$CellContext`v1, 3]], ")(", 
                    $CellContext`inv[$CellContext`e], ")"}]]}]], 
                    Which[$CellContext`resol$$ >= 7, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"           \",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) ", 
                    Which[
                    Or[$CellContext`e == 0, $CellContext`e == 1], 
                    Row[{" "}], 
                    Or[$CellContext`e != 0, $CellContext`e != 1], 
                    Row[{(1/$CellContext`e) ($CellContext`s[
                    Part[$CellContext`sig, 1], Part[$CellContext`v3, 4] 
                    Part[$CellContext`v2, 1]] - $CellContext`s[
                    Part[$CellContext`sig, 3], 
                    Part[$CellContext`v1, 3]]), " ", 
                    Part[$CellContext`desi1, 1], " ", $CellContext`var, " ", 
                    Part[$CellContext`desi1, 2], 
                    " ", (1/$CellContext`e) (
                    Part[$CellContext`v3, 4] ($CellContext`s[
                    Part[$CellContext`sig, 1], 
                    Part[$CellContext`v2, 1]] + 
                    Part[$CellContext`v2, 5]) - $CellContext`s[
                    Part[$CellContext`sig, 3], 
                    Part[$CellContext`v1, 3]])}]]}]]}], $CellContext`tam - 
                    5]}}, 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, $CellContext`sol], 
                    $CellContext`graf[$CellContext`sol]}}, 
                   ItemSize -> {{12, 30}, Automatic}, 
                   Alignment -> {{Left, Right}, Top}], $CellContext`tam]]}}, 
              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[{9/2, " ", $CellContext`u, " ", 
            Row[{"- ", 5}], " ", " \[GreaterEqual] ", " ", -4, 
            " ", $CellContext`u, " ", 
            Row[{"+ ", 1}]}], $CellContext`alt = 2, $CellContext`s[
           Pattern[$CellContext`s, 
            Blank[]], 
           Pattern[$CellContext`a, 
            Blank[]]] := 
         If[$CellContext`s == 
           "+ ", $CellContext`a, -$CellContext`a], $CellContext`a = 
         0, $CellContext`sig = {
          "+ ", "- ", "- ", "+ ", "- ", "- ", "- ", "+ ", "+ ", "+ ", "+ ", 
           "- "}, $CellContext`w[
           Pattern[$CellContext`a, 
            Blank[]]] := If[$CellContext`a == 1, 
           Row[{""}], $CellContext`a], $CellContext`v2 = {
          9/2, 5, 4, 1, 11/5, 5/3, 14/3, 9/4, 4, 8/3, 14/3, 
           2}, $CellContext`var = $CellContext`u, $CellContext`s1[
           Pattern[$CellContext`s, 
            Blank[]], 
           Pattern[$CellContext`a, 
            Blank[]]] := If[$CellContext`s == "+ ", 
           Row[{"+ ", $CellContext`a}], 
           Row[{"- ", $CellContext`a}]], $CellContext`desi = {
          " \[GreaterEqual] "}, $CellContext`v1 = {3, 3, 1, 1, 2, 1, 3, 3, 3, 
          2, 1, 3}, $CellContext`v3 = {4, 2, 2, 3, 2, 3, 4, 3, 3, 3, 2, 
          4}, $CellContext`desi1 = {
          " < ", " < "}, $CellContext`ecu1 = -6 + (17 $CellContext`u)/
           2, $CellContext`ineq = -6 + (17 $CellContext`u)/2 >= 
          0, $CellContext`sol = $CellContext`u >= 12/17, $CellContext`botom = 
         Button[
           Text[
            Style[
            "nuevo ejemplo", 20]], {$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`desi1 = 
             Array[RandomChoice[{" \[LessEqual] ", " < "}]& , {
               2}]}], $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`tam = 
         20, $CellContext`pistalin01 = 
         "Es una desigualdad lineal.", $CellContext`pistalin02 = 
         "Utilizar las propiedades de desigualdades para resolverla", \
$CellContext`pistalin03 = 
         "\!\(\*\nStyleBox[\"Propiedad\",\nFontColor->RGBColor[0, 0, \
1]]\)\!\(\*\nStyleBox[\" \",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\n\
StyleBox[\"ii\",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\":\",\n\
FontColor->RGBColor[0, 0, 1]]\) Si \!\(\*Cell[\"a > b\"]\) y \
\!\(\*Cell[\"c\"]\) es un n\[UAcute]mero real, entonces \!\(\*Cell[\"a + c < \
b + c\"]\).", $CellContext`pistalin031 = 
         "\!\(\*\nStyleBox[\"Se\",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\
\" \",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\"puede\",\n\
FontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\"]\)\!\(\
\*\nStyleBox[\"sumar\",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\"o\",\nFontSlant->\"Italic\"]\)\!\(\
\*\nStyleBox[\" \",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\"restar\",\n\
FontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\"]\)\!\(\
\*\nStyleBox[\"a\",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\"ambos\",\nFontSlant->\"Italic\"]\)\
\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\"lados\",\n\
FontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\"]\)\!\(\
\*\nStyleBox[\"de\",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\"la\",\n\
FontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\"]\)\!\(\
\*\nStyleBox[\"desigualdad\",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \
\",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\"por\",\n\
FontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\"]\)\!\(\
\*\nStyleBox[\"la\",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\"misma\",\nFontSlant->\"Italic\"]\)\
\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\"]\)\!\(\*\n\
StyleBox[\"cantidad\",\nFontSlant->\"Italic\"]\)", $CellContext`pistalin04 = 
         "\!\(\*\nStyleBox[\"Propiedad\",\nFontColor->RGBColor[0, 0, \
1]]\)\!\(\*\nStyleBox[\" \",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\n\
StyleBox[\"iv\",\nFontColor->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[\"v\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\":\",\n\
FontColor->RGBColor[0, 0, 1]]\) Si \!\(\*Cell[\"a < b\"]\) y \!\(\*Cell[\"c > \
0\"]\), entonces \!\(\*Cell[\"ac < bc\"]\), PERO si \!\(\*Cell[\"c < 0\"]\) \
(n\[UAcute]mero negativo), entonces \!\(\*Cell[\"ac > bc\"]\).", \
$CellContext`pistalin041 = 
         "\!\(\*\nStyleBox[\"Si\",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\
\" \",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\"se\",\nFontSlant->\"Italic\
\"]\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\"]\)\!\(\*\n\
StyleBox[\"multiplica\",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\"o\",\nFontSlant->\"Italic\"]\)\!\(\
\*\nStyleBox[\" \",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\"divide\",\n\
FontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\"]\)\!\(\
\*\nStyleBox[\"por\",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\"un\",\n\
FontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\"]\)\!\(\
\*\nStyleBox[\"n\[UAcute]mero\",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \
\",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\"negativo\",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\" \
\",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\"a\",\n\
FontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\"]\)\!\(\
\*\nStyleBox[\"ambos\",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\"lados\",\nFontSlant->\"Italic\"]\)\
\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\"de\",\n\
FontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\"]\)\!\(\
\*\nStyleBox[\"la\",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\"desigualdad\",\n\
FontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\",\",\nFontSlant->\"Italic\"]\)\!\(\
\*\nStyleBox[\" \",\nFontSlant->\"Italic\"]\)\!\(\*\n\
StyleBox[\"\[EAcute]sta\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[1, 0, \
0]]\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\",\nFontColor->RGBColor[1, \
0, 0]]\)\!\(\*\nStyleBox[\"cambia\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)", $CellContext`pistalin05 = 
         "Dependiendo del signo de la desigualdad se debe incluir o no el \
extremo:", $CellContext`pistalin051 = 
         "\[LessEqual] o \[GreaterEqual] \!\(\*\nStyleBox[\"se\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"incluye\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"el\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"extremo\",\n\
FontColor->RGBColor[0, 0, 1]]\)", $CellContext`pistalin052 = 
         "< o > \!\(\*\nStyleBox[\"no\",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\
\*\nStyleBox[\" \",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"se\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"incluye\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"el\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"extremo\",\n\
FontColor->RGBColor[0, 0, 1]]\)", $CellContext`pistalin06 = 
         "La respuesta se puede representar gr\[AAcute]ficamente en una recta \
real.", $CellContext`pistalin07 = 
         "T\[EAcute]rminos que tengan varibles se dejan en el lado izquierdo \
y constantes en el lado derecho", $CellContext`pistalin08 = 
         "Se puede multiplicar a ambos lados de la desigualdad por el \
denominador del t\[EAcute]rmino derecho (\!\(\*\nStyleBox[\"Si\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"se\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"multiplica\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"por\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"un\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"n\[UAcute]mero\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"negativo\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"la\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"desigualdad\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"cambia\",\n\
FontColor->RGBColor[1, 0, 0]]\)).", $CellContext`pistalin09 = 
         "Es una desigualdad lineal compuesta por tres partes (lado \
izquierdo, centro y lado derecho), la variable est\[AAcute] en el centro", \
$CellContext`pistalin10 = 
         "Se puede multiplicar a ambos lados de la desigualdad por el \
denominador del t\[EAcute]rmino del centro (\!\(\*\nStyleBox[\"Si\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"se\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"multiplica\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"por\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"un\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"n\[UAcute]mero\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"negativo\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"la\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"desigualdad\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"cambia\",\n\
FontColor->RGBColor[1, 0, 0]]\)).", $CellContext`pistalin11 = 
         "Dependiendo de la desigualdad se debe incluir o no los extremos:", \
$CellContext`pistalin111 = 
         "\[LessEqual] \!\(\*\nStyleBox[\"se\",\nFontColor->RGBColor[0, 0, \
1]]\)\!\(\*\nStyleBox[\" \",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\n\
StyleBox[\"incluyen\",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \
\",\nFontColor->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`pistalin112 = 
         "< \!\(\*\nStyleBox[\"no\",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\n\
StyleBox[\" \",\nFontColor->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`e = 17/2, $CellContext`d = 
         6, $CellContext`pa[
           Pattern[$CellContext`a, 
            Blank[]]] := If[$CellContext`a >= 0, $CellContext`a, 
           Row[{"(", $CellContext`a, ")"}]], $CellContext`cambdesi[
           Pattern[$CellContext`x, 
            Blank[]]] := 
         Which[$CellContext`x == " \[LessEqual] ", 
           " \[GreaterEqual] ", $CellContext`x == " \[GreaterEqual] ", 
           " \[LessEqual] ", $CellContext`x == " > ", " < ", $CellContext`x == 
           " < ", " > "], $CellContext`inv[
           Pattern[$CellContext`x, 
            Blank[]]] := If[$CellContext`x != 0, 
           $CellContext`rati[1/$CellContext`x], 
           Row[{"no se puede dividir por cero"}]], $CellContext`graf[
           Pattern[$CellContext`s, 
            Blank[]]] := Which[Head[$CellContext`s] === Symbol, 
           Row[{}], Head[$CellContext`s] === Element, 
           $CellContext`identidad[$CellContext`s], Head[$CellContext`s] === 
           Equal, 
           $CellContext`igualdad[$CellContext`s], 
           Or[
           Head[$CellContext`s] === Less, Head[$CellContext`s] === Greater], 
           $CellContext`menormayor[$CellContext`s], 
           Or[
           Head[$CellContext`s] === LessEqual, Head[$CellContext`s] === 
            GreaterEqual], 
           $CellContext`menormayorigual[$CellContext`s], Head[$CellContext`s] === 
           Inequality, 
           $CellContext`inecuacion[$CellContext`s]], $CellContext`identidad[
           Pattern[$CellContext`s, 
            Blank[]]] := If[
           Or[$CellContext`s === True, Head[$CellContext`s] === Element], 
           Show[
            Plot[0, {$CellContext`x, -10, 10}, PlotStyle -> White], 
            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}], 
           Row[{}]], $CellContext`igualdad[
           Pattern[$CellContext`s, 
            Blank[]]] := ($CellContext`min = 
           Min[2 Part[$CellContext`s, 2], 0]; $CellContext`max = 
           Max[2 Part[$CellContext`s, 2], 
             0]; $CellContext`dist = $CellContext`max - $CellContext`min; Show[
            Plot[
            0, {$CellContext`x, $CellContext`min - 
              0.05 $CellContext`dist, $CellContext`max + 
              0.05 $CellContext`dist}, PlotStyle -> White], 
            $CellContext`punto1[
             Part[$CellContext`s, 2]], 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`dist = 
         0, $CellContext`punto1[
           Pattern[$CellContext`x, 
            Blank[]]] := Graphics[{Thick, 
            AbsolutePointSize[9], Blue, 
            Point[{$CellContext`x, 0.5}]}], $CellContext`menormayor[
           Pattern[$CellContext`s, 
            Blank[]]] := ($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]]]; $CellContext`dist = $CellContext`max - $CellContext`min; 
          Show[
            Plot[
            0, {$CellContext`x, $CellContext`min - 
              0.05 $CellContext`dist, $CellContext`max + 
              0.05 $CellContext`dist}, PlotStyle -> White], 
            $CellContext`flecha[
             Part[$CellContext`s, 2], 
             $CellContext`ddd[
              Head[$CellContext`s], 
              Part[$CellContext`s, 2]]], 
            $CellContext`punto2[
             Part[$CellContext`s, 2]], 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`ddd[
           Pattern[$CellContext`x, 
            Blank[]], 
           Pattern[$CellContext`y, 
            Blank[]]] := Which[
           Or[$CellContext`x === LessEqual, $CellContext`x === Less], 
           If[$CellContext`y == 0, -1.5, $CellContext`y - 1.5 
            Abs[$CellContext`y]], 
           Or[$CellContext`x === GreaterEqual, $CellContext`x === Greater], 
           
           If[$CellContext`y == 0, 1.5, $CellContext`y + 
            1.5 Abs[$CellContext`y]], $CellContext`x === Equal, 
           0], $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`punto2[
           Pattern[$CellContext`x, 
            Blank[]]] := Graphics[{Thick, 
            AbsolutePointSize[5], White, 
            Point[{$CellContext`x, 0.5}]}], $CellContext`menormayorigual[
           Pattern[$CellContext`s, 
            Blank[]]] := ($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]]]; $CellContext`dist = $CellContext`max - $CellContext`min; 
          Show[
            Plot[
            0, {$CellContext`x, $CellContext`min - 
              0.05 $CellContext`dist, $CellContext`max + 
              0.05 $CellContext`dist}, PlotStyle -> White], 
            $CellContext`flecha[
             Part[$CellContext`s, 2], 
             $CellContext`ddd[
              Head[$CellContext`s], 
              Part[$CellContext`s, 2]]], 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[]]] := ($CellContext`min = 
           Part[$CellContext`s, 1]; $CellContext`max = 
           Part[$CellContext`s, 
             5]; $CellContext`dist = $CellContext`max - $CellContext`min; Show[
            Plot[
            0, {$CellContext`x, $CellContext`min - 
              0.05 $CellContext`dist, $CellContext`max + 
              0.05 $CellContext`dist}, PlotStyle -> White], 
            $CellContext`segment[
             Part[$CellContext`s, 1], 
             Part[$CellContext`s, 5]], 
            If[Part[$CellContext`s, 2] === Less, 
             $CellContext`punto2[
              Part[$CellContext`s, 1]], {}], 
            If[Part[$CellContext`s, 4] === Less, 
             $CellContext`punto2[
              Part[$CellContext`s, 5]], {}], 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[5972, 141, 64, 1, 43, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[80186, 1539, 64, 1, 43, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"]},
 "imprimir"->{
  Cell[5717, 129, 61, 1, 100, "Title",
   CellTags->"imprimir"],
  Cell[5781, 132, 188, 7, 127, "Subtitle",
   CellTags->"imprimir"],
  Cell[6039, 144, 74, 1, 71, "Section",
   CellTags->"imprimir"],
  Cell[6116, 147, 74067, 1390, 635, "Output",
   CellTags->"imprimir"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"SlideShowHeader", 80698, 1558},
 {"imprimir", 80982, 1565}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[1464, 33, 4250, 94, 46, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[5717, 129, 61, 1, 100, "Title",
 CellTags->"imprimir"],
Cell[5781, 132, 188, 7, 127, "Subtitle",
 CellTags->"imprimir"],
Cell[5972, 141, 64, 1, 43, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[6039, 144, 74, 1, 71, "Section",
 CellTags->"imprimir"],
Cell[6116, 147, 74067, 1390, 635, "Output",
 CellTags->"imprimir"],
Cell[80186, 1539, 64, 1, 43, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature WxDAsaun1gXyQA1M0iM6N2X@ *)
