(* 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[     66615,       1371]
NotebookOptionsPosition[     66014,       1332]
NotebookOutlinePosition[     67150,       1373]
CellTagsIndexPosition[     67043,       1367]
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["Ecuaci\[OAcute]n no lineal y no cuadr\[AAcute]tica", "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 ecuaciones", "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$$ = {776., {216., 228.}}, Typeset`update$$ = 0, 
      Typeset`initDone$$, Typeset`skipInitDone$$ = 
      False, $CellContext`pista$774$$ = 0, $CellContext`resol$775$$ = 
      0, $CellContext`resp$776$$ = False}, 
      DynamicBox[Manipulate`ManipulateBoxes[
       2, TraditionalForm, 
        "Variables" :> {$CellContext`pista$$ = 0, $CellContext`resol$$ = 
          0, $CellContext`resp$$ = 0}, "ControllerVariables" :> {
          Hold[$CellContext`pista$$, $CellContext`pista$774$$, 0], 
          Hold[$CellContext`resol$$, $CellContext`resol$775$$, 0], 
          Hold[$CellContext`resp$$, $CellContext`resp$776$$, 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" :> Column[{
           Text[
            Style[
             
             Row[{"De ser posible, encontrar la soluci\[OAcute]n de la \
siguiente ecuaci\[OAcute]n", 
               "                                ", $CellContext`botom}], \
$CellContext`tam]], $CellContext`ecu = Which[$CellContext`alt == 1, 
              Row[{
                $CellContext`s[
                 Part[$CellContext`sig, 1], 
                 Part[$CellContext`v1, 1]], " ", 
                $CellContext`s1[
                 Part[$CellContext`sig, 12], 
                 $CellContext`w[1]], " ", Row[{
                   $CellContext`s[
                    Part[$CellContext`sig, 2], 
                    $CellContext`w[
                    Part[$CellContext`v1, 2]]], " ", $CellContext`var, " ", 
                   $CellContext`s1[
                    Part[$CellContext`sig, 3], 
                    Part[$CellContext`v1, 3]]}]/Row[{
                  $CellContext`s[
                   Part[$CellContext`sig, 4], 
                   $CellContext`w[
                    Part[$CellContext`v1, 4]]], " ", $CellContext`var, "  ", 
                  $CellContext`s1[
                   Part[$CellContext`sig, 5], 
                   Part[$CellContext`v1, 5]]}], " = 0"}], $CellContext`alt == 
              2, 
              Row[{Row[{
                   $CellContext`s[
                    Part[$CellContext`sig, 1], 
                    $CellContext`w[
                    Part[$CellContext`v1, 1]]], " ", $CellContext`var, " ", 
                   $CellContext`s1[
                    Part[$CellContext`sig, 2], 
                    Part[$CellContext`v1, 2]]}]/Row[{
                  $CellContext`w[
                   Part[$CellContext`v1, 3]], " ", $CellContext`var, " ", 
                  $CellContext`s1[
                   Part[$CellContext`sig, 4], 
                   Part[$CellContext`v1, 4]]}], " ", 
                $CellContext`s1[
                 Part[$CellContext`sig, 12], 
                 $CellContext`w[1]], " ", Row[{
                   $CellContext`s[
                    Part[$CellContext`sig, 5], 
                    $CellContext`w[
                    Part[$CellContext`v1, 5]]], " ", $CellContext`var, " ", 
                   $CellContext`s1[
                    Part[$CellContext`sig, 6], 
                    Part[$CellContext`v1, 6]]}]/Row[{
                  $CellContext`w[
                   Part[$CellContext`v1, 7]], " ", $CellContext`var, "  ", 
                  $CellContext`s1[
                   Part[$CellContext`sig, 8], 
                   Part[$CellContext`v1, 8]]}], " = ", 
                $CellContext`s[
                 Part[$CellContext`sig, 9], 
                 Part[$CellContext`v1, 9]]}], $CellContext`alt == 3, 
              Row[{Row[{
                   $CellContext`s[
                    Part[$CellContext`sig, 1], 
                    $CellContext`w[
                    Part[$CellContext`v1, 1]]], " ", $CellContext`var, " ", 
                   $CellContext`s1[
                    Part[$CellContext`sig, 2], 
                    Part[$CellContext`v1, 2]]}]/Row[{
                  $CellContext`w[
                   Part[$CellContext`v1, 3]], " ", $CellContext`var, " ", 
                  $CellContext`s1[
                   Part[$CellContext`sig, 4], 
                   Part[$CellContext`v1, 4]]}], " ", 
                $CellContext`s1[
                 Part[$CellContext`sig, 12], 
                 $CellContext`w[1]], " ", Row[{
                   $CellContext`s[
                    Part[$CellContext`sig, 5], 
                    $CellContext`w[
                    Part[$CellContext`v1, 5]]], " ", $CellContext`var, " ", 
                   $CellContext`s1[
                    Part[$CellContext`sig, 6], 
                    Part[$CellContext`v1, 6]]}]/Row[{
                  $CellContext`w[Part[$CellContext`v1, 3]^2], 
                  " ", $CellContext`var^2, " - ", 
                  Part[$CellContext`v1, 4]^2}], " = 0"}], $CellContext`alt == 
              4, $CellContext`a6 = Part[$CellContext`v1, 3] $CellContext`s[
                   Part[$CellContext`sig, 8], 
                   Part[$CellContext`v1, 8]] + 
                Part[$CellContext`v1, 7] $CellContext`s[
                   Part[$CellContext`sig, 4], 
                   Part[$CellContext`v1, 4]]; Row[{Row[{
                    $CellContext`s[
                    Part[$CellContext`sig, 1], 
                    $CellContext`w[
                    Part[$CellContext`v1, 1]]], " ", $CellContext`var, " ", 
                    $CellContext`s1[
                    Part[$CellContext`sig, 2], 
                    Part[$CellContext`v1, 2]]}]/Row[{
                   $CellContext`w[
                    Part[$CellContext`v1, 3]], " ", $CellContext`var, " ", 
                   $CellContext`s1[
                    Part[$CellContext`sig, 4], 
                    Part[$CellContext`v1, 4]]}], " ", 
                 $CellContext`s1[
                  Part[$CellContext`sig, 12], 
                  $CellContext`w[1]], " ", Row[{
                    $CellContext`s[
                    Part[$CellContext`sig, 5], 
                    $CellContext`w[
                    Part[$CellContext`v1, 5]]], " ", $CellContext`var, " ", 
                    $CellContext`s1[
                    Part[$CellContext`sig, 6], 
                    Part[$CellContext`v1, 6]]}]/Row[{
                   $CellContext`w[
                   Part[$CellContext`v1, 7] Part[$CellContext`v1, 3]], 
                   " ", $CellContext`var^2, " ", 
                   $CellContext`s1[
                    Part[
                    $CellContext`p1[$CellContext`a6], 1, 1], 
                    $CellContext`w[
                    Abs[$CellContext`a6]]], " ", $CellContext`var, " ", 
                   $CellContext`s1[
                    Part[
                    $CellContext`p1[$CellContext`s[
                    Part[$CellContext`sig, 8], 
                    Part[$CellContext`v1, 8]] $CellContext`s[
                    Part[$CellContext`sig, 4], 
                    Part[$CellContext`v1, 4]]], 1, 1], 
                    Abs[$CellContext`s[
                    Part[$CellContext`sig, 8], 
                    Part[$CellContext`v1, 8]] $CellContext`s[
                    Part[$CellContext`sig, 4], 
                    Part[$CellContext`v1, 4]]]]}], " = 0"}]]; 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`pista01}]], 
                    Which[$CellContext`pista$$ >= 1, 
                    Row[{"    ", $CellContext`pista011}]], 
                    Which[$CellContext`pista$$ >= 2, 
                    Row[{"2. ", $CellContext`pista02}]], 
                    Which[$CellContext`pista$$ >= 3, 
                    Row[{"3. ", $CellContext`pista03}]], 
                    Which[$CellContext`pista$$ >= 4, 
                    Row[{"4. ", $CellContext`pista04}]]}]}], $CellContext`tam - 
                    8]], 
                   Style[
                    Column[{
                    Which[$CellContext`pista$$ >= 5, 
                    Row[{"5. ", $CellContext`pista05}]], 
                    Which[$CellContext`pista$$ >= 6, 
                    Row[{"6. ", $CellContext`pista06}]], 
                    Which[$CellContext`pista$$ >= 7, 
                    Row[{"7. ", $CellContext`pista07}]], 
                    Which[$CellContext`pista$$ >= 8, 
                    Row[{"8. ", $CellContext`pista08}]]}], $CellContext`tam - 
                    8]}}, ItemSize -> {{21, 22}, Automatic}, 
                 Alignment -> {Left, Top}]}, {
                
                Which[$CellContext`alt == 
                 1, $CellContext`a = Simplify[Expand[$CellContext`s[
                    Part[$CellContext`sig, 1], 
                    Part[$CellContext`v1, 1]] Factor[$CellContext`s[
                    Part[$CellContext`sig, 4], 
                    
                    Part[$CellContext`v1, 
                    4]] $CellContext`var + $CellContext`s[
                    Part[$CellContext`sig, 5], 
                    Part[$CellContext`v1, 5]]]] + $CellContext`s[
                    Part[$CellContext`sig, 12], 1] ($CellContext`s[
                    Part[$CellContext`sig, 2], 
                    
                    Part[$CellContext`v1, 
                    2]] $CellContext`var + $CellContext`s[
                    Part[$CellContext`sig, 3], 
                    Part[$CellContext`v1, 3]])]; 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`v1, 1]], " ", 
                    $CellContext`s1[
                    Part[$CellContext`sig, 12], 
                    $CellContext`w[1]], " ", Row[{
                    $CellContext`s[
                    Part[$CellContext`sig, 2], 
                    $CellContext`w[
                    Part[$CellContext`v1, 2]]], " ", $CellContext`var, " ", 
                    $CellContext`s1[
                    Part[$CellContext`sig, 3], 
                    Part[$CellContext`v1, 3]]}]/Row[{
                    Factor[$CellContext`s[
                    Part[$CellContext`sig, 4], 
                    
                    Part[$CellContext`v1, 
                    4]] $CellContext`var + $CellContext`s[
                    Part[$CellContext`sig, 5], 
                    Part[$CellContext`v1, 5]]]}], " = 0"}]}]], 
                    Which[$CellContext`resol$$ >= 2, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"           \",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) ", 
                    Row[{Row[{
                    $CellContext`s[
                    Part[$CellContext`sig, 1], 
                    Part[$CellContext`v1, 1]], " \[CenterDot] (", 
                    Factor[$CellContext`s[
                    Part[$CellContext`sig, 4], 
                    
                    Part[$CellContext`v1, 
                    4]] $CellContext`var + $CellContext`s[
                    Part[$CellContext`sig, 5], 
                    Part[$CellContext`v1, 5]]], ")"}]/Row[{
                    Factor[$CellContext`s[
                    Part[$CellContext`sig, 4], 
                    
                    Part[$CellContext`v1, 
                    4]] $CellContext`var + $CellContext`s[
                    Part[$CellContext`sig, 5], 
                    Part[$CellContext`v1, 5]]]}], " ", 
                    $CellContext`s1[
                    Part[$CellContext`sig, 12], 
                    $CellContext`w[1]], " ", Row[{
                    $CellContext`s[
                    Part[$CellContext`sig, 2], 
                    $CellContext`w[
                    Part[$CellContext`v1, 2]]], " ", $CellContext`var, " ", 
                    $CellContext`s1[
                    Part[$CellContext`sig, 3], 
                    Part[$CellContext`v1, 3]]}]/Row[{
                    Factor[$CellContext`s[
                    Part[$CellContext`sig, 4], 
                    
                    Part[$CellContext`v1, 
                    4]] $CellContext`var + $CellContext`s[
                    Part[$CellContext`sig, 5], 
                    Part[$CellContext`v1, 5]]]}], " = 0"}]}]], 
                    Which[$CellContext`resol$$ >= 3, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"           \",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) ", 
                    Row[{Row[{
                    Expand[$CellContext`s[
                    Part[$CellContext`sig, 1], 
                    Part[$CellContext`v1, 1]] Factor[$CellContext`s[
                    Part[$CellContext`sig, 4], 
                    
                    Part[$CellContext`v1, 
                    4]] $CellContext`var + $CellContext`s[
                    Part[$CellContext`sig, 5], 
                    Part[$CellContext`v1, 5]]]], " ", 
                    $CellContext`s1[
                    Part[$CellContext`sig, 12], 
                    $CellContext`w[1]], " (", 
                    Row[{
                    $CellContext`s[
                    Part[$CellContext`sig, 2], 
                    $CellContext`w[
                    Part[$CellContext`v1, 2]]], " ", $CellContext`var, " ", 
                    $CellContext`s1[
                    Part[$CellContext`sig, 3], 
                    Part[$CellContext`v1, 3]]}], ")"}]/Row[{
                    Factor[$CellContext`s[
                    Part[$CellContext`sig, 4], 
                    
                    Part[$CellContext`v1, 
                    4]] $CellContext`var + $CellContext`s[
                    Part[$CellContext`sig, 5], 
                    Part[$CellContext`v1, 5]]]}], Null, 
                    " = 0"}]}]]}]}], $CellContext`tam - 5]], 
                    Style[
                    Column[{
                    Which[$CellContext`resol$$ >= 4, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"           \",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) ", 
                    Row[{Row[{
                    Simplify[Expand[$CellContext`s[
                    Part[$CellContext`sig, 1], 
                    Part[$CellContext`v1, 1]] Factor[$CellContext`s[
                    Part[$CellContext`sig, 4], 
                    
                    Part[$CellContext`v1, 
                    4]] $CellContext`var + $CellContext`s[
                    Part[$CellContext`sig, 5], 
                    Part[$CellContext`v1, 5]]]] + $CellContext`s[
                    Part[$CellContext`sig, 12], 1] ($CellContext`s[
                    Part[$CellContext`sig, 2], 
                    
                    Part[$CellContext`v1, 
                    2]] $CellContext`var + $CellContext`s[
                    Part[$CellContext`sig, 3], 
                    Part[$CellContext`v1, 3]])]}]/Row[{
                    Factor[$CellContext`s[
                    Part[$CellContext`sig, 4], 
                    
                    Part[$CellContext`v1, 
                    4]] $CellContext`var + $CellContext`s[
                    Part[$CellContext`sig, 5], 
                    Part[$CellContext`v1, 5]]]}], Null, " = 0"}]}]], 
                    Which[$CellContext`resol$$ >= 5, 
                    Row[{
                    "\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"           \",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) ", 
                    Row[{
                    Row[{
                    Simplify[Expand[$CellContext`s[
                    Part[$CellContext`sig, 1], 
                    Part[$CellContext`v1, 1]] Factor[$CellContext`s[
                    Part[$CellContext`sig, 4], 
                    
                    Part[$CellContext`v1, 
                    4]] $CellContext`var + $CellContext`s[
                    Part[$CellContext`sig, 5], 
                    Part[$CellContext`v1, 5]]]] + $CellContext`s[
                    Part[$CellContext`sig, 12], 1] ($CellContext`s[
                    Part[$CellContext`sig, 2], 
                    
                    Part[$CellContext`v1, 
                    2]] $CellContext`var + $CellContext`s[
                    Part[$CellContext`sig, 3], 
                    Part[$CellContext`v1, 3]])]}], Null, " = 0"}]}]], 
                    Which[$CellContext`resol$$ >= 6, 
                    If[
                    Solve[$CellContext`a == 0, $CellContext`var, Reals] == {}, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"           \",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) No hay soluci\[OAcute]n real"}], 
                    If[
                    Solve[$CellContext`a == 0, $CellContext`var, 
                    Reals] == {{}}, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"           \",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) La soluci\[OAcute]n es todos los \
n\[UAcute]meros reales"}], 
                    Flatten[
                    
                    Solve[$CellContext`a == 0, $CellContext`var, 
                    Reals]]]]]}], $CellContext`tam - 5]}}, 
                   ItemSize -> {{21, 22}, Automatic}, 
                   Alignment -> {Left, Top}], $CellContext`alt == 
                 2, $CellContext`a1 = $CellContext`s[
                    Part[$CellContext`sig, 1], 
                    
                    Part[$CellContext`v1, 
                    1]] $CellContext`var + $CellContext`s[
                    Part[$CellContext`sig, 2], 
                    Part[$CellContext`v1, 2]]; $CellContext`a2 = 
                  Factor[Part[$CellContext`v1, 
                    3] $CellContext`var + $CellContext`s[
                    Part[$CellContext`sig, 4], 
                    
                    Part[$CellContext`v1, 
                    4]]]; $CellContext`a3 = $CellContext`s[
                    Part[$CellContext`sig, 5], 
                    
                    Part[$CellContext`v1, 
                    5]] $CellContext`var + $CellContext`s[
                    Part[$CellContext`sig, 6], 
                    Part[$CellContext`v1, 6]]; $CellContext`a4 = 
                  Factor[Part[$CellContext`v1, 
                    7] $CellContext`var + $CellContext`s[
                    Part[$CellContext`sig, 8], 
                    Part[$CellContext`v1, 8]]]; $CellContext`a5 = 
                  PolynomialLCM[$CellContext`a2, $CellContext`a4]; \
$CellContext`a6 = Expand[(-$CellContext`s[
                    Part[$CellContext`sig, 9], 
                    
                    Part[$CellContext`v1, 
                    9]]) $CellContext`a5]; $CellContext`a = 
                  Expand[$CellContext`a1 
                    Simplify[$CellContext`a5/$CellContext`a2]] + \
$CellContext`s[
                    Part[$CellContext`sig, 12], 1] 
                    Expand[$CellContext`a3 
                    Simplify[$CellContext`a5/$CellContext`a4]] + \
$CellContext`a6; 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]]\) ", 
                    
                    Row[{Row[{$CellContext`a1}]/
                    Row[{$CellContext`a2}] + $CellContext`s[
                    Part[$CellContext`sig, 12], 1] (Row[{$CellContext`a3}]/
                    Row[{$CellContext`a4}]) - $CellContext`s[
                    Part[$CellContext`sig, 9], 
                    Part[$CellContext`v1, 9]], " = 0"}]}]], 
                    Which[$CellContext`resol$$ >= 2, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\) ", 
                    Row[{Row[{"(", $CellContext`a1, ") (", 
                    Simplify[$CellContext`a5/$CellContext`a2], 
                    ")"}]/$CellContext`a5, " ", 
                    $CellContext`s1[
                    Part[$CellContext`sig, 12], 
                    $CellContext`w[1]], " ", Row[{"(", $CellContext`a3, ") (", 
                    Simplify[$CellContext`a5/$CellContext`a4], 
                    ")"}]/$CellContext`a5, " + ", Row[{"(", -$CellContext`s[
                    Part[$CellContext`sig, 9], 
                    Part[$CellContext`v1, 9]], 
                    ") ", $CellContext`a5}]/$CellContext`a5, " = 0"}]}]], 
                    Which[$CellContext`resol$$ >= 3, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\) ", 
                    Row[{Row[{
                    Row[{"(", $CellContext`a1, ") (", 
                    Simplify[$CellContext`a5/$CellContext`a2], ")"}], " ", 
                    $CellContext`s1[
                    Part[$CellContext`sig, 12], 
                    $CellContext`w[1]], 
                    Row[{"(", $CellContext`a3, ") (", 
                    Simplify[$CellContext`a5/$CellContext`a4], ")"}], " + ", 
                    Row[{"(", -$CellContext`s[
                    Part[$CellContext`sig, 9], 
                    Part[$CellContext`v1, 9]], 
                    ") ", $CellContext`a5}]}]/$CellContext`a5, 
                    " = 0"}]}]]}]}], $CellContext`tam - 8]], 
                    Style[
                    Column[{
                    Which[$CellContext`resol$$ >= 4, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\) ", 
                    Row[{Row[{"(", 
                    
                    Expand[$CellContext`a1 
                    Simplify[$CellContext`a5/$CellContext`a2]], " ) ", 
                    $CellContext`s1[
                    Part[$CellContext`sig, 12], 
                    $CellContext`w[1]], " (", 
                    
                    Expand[$CellContext`a3 
                    Simplify[$CellContext`a5/$CellContext`a4]], ") + (", 
                    Row[{$CellContext`a6}], ")"}]/$CellContext`a5, 
                    " = 0"}]}]], 
                    Which[$CellContext`resol$$ >= 5, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\) ", 
                    
                    Row[{Row[{$CellContext`a}]/$CellContext`a5, Null, 
                    " = 0"}]}]], 
                    Which[$CellContext`resol$$ >= 6, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\) ", 
                    Row[{
                    Row[{$CellContext`a}], Null, " = 0"}]}]], 
                    Which[$CellContext`resol$$ >= 7, 
                    If[
                    Solve[$CellContext`a == 0, $CellContext`var, Reals] == {}, 
                    
                    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"}], 
                    If[
                    Solve[$CellContext`a == 0, $CellContext`var, 
                    Reals] == {{}}, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) La soluci\[OAcute]n \
es todos los n\[UAcute]meros reales"}], 
                    Flatten[
                    
                    Solve[$CellContext`a == 0, $CellContext`var, 
                    Reals]]]]]}], $CellContext`tam - 5]}}, 
                   ItemSize -> {{22, 22}, Automatic}, 
                   Alignment -> {Left, Top}], $CellContext`alt == 
                 3, $CellContext`a1 = $CellContext`s[
                    Part[$CellContext`sig, 1], 
                    
                    Part[$CellContext`v1, 
                    1]] $CellContext`var + $CellContext`s[
                    Part[$CellContext`sig, 2], 
                    Part[$CellContext`v1, 2]]; $CellContext`a2 = 
                  Factor[Part[$CellContext`v1, 
                    3] $CellContext`var + $CellContext`s[
                    Part[$CellContext`sig, 4], 
                    
                    Part[$CellContext`v1, 
                    4]]]; $CellContext`a3 = $CellContext`s[
                    Part[$CellContext`sig, 5], 
                    
                    Part[$CellContext`v1, 
                    5]] $CellContext`var + $CellContext`s[
                    Part[$CellContext`sig, 6], 
                    Part[$CellContext`v1, 6]]; $CellContext`a4 = 
                  Factor[Part[$CellContext`v1, 3]^2 $CellContext`var^2 - 
                    Part[$CellContext`v1, 4]^2]; $CellContext`a5 = 
                  PolynomialLCM[$CellContext`a2, $CellContext`a4]; \
$CellContext`a = Expand[$CellContext`a1 
                    Simplify[$CellContext`a5/$CellContext`a2]] + \
$CellContext`s[
                    Part[$CellContext`sig, 12], 1] 
                    Expand[$CellContext`a3 
                    Simplify[$CellContext`a5/$CellContext`a4]]; 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]]\) ", 
                    
                    Row[{Row[{$CellContext`a1}]/
                    Row[{$CellContext`a2}] + $CellContext`s[
                    Part[$CellContext`sig, 12], 1] (Row[{$CellContext`a3}]/
                    Row[{$CellContext`a4}]), " = 0"}]}]], 
                    Which[$CellContext`resol$$ >= 2, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\) ", 
                    Row[{Row[{"(", $CellContext`a1, ") (", 
                    Simplify[$CellContext`a5/$CellContext`a2], 
                    ")"}]/$CellContext`a5, " ", 
                    $CellContext`s1[
                    Part[$CellContext`sig, 12], 
                    $CellContext`w[1]], " ", Row[{"(", $CellContext`a3, ") (", 
                    Simplify[$CellContext`a5/$CellContext`a4], 
                    ")"}]/$CellContext`a5, " = 0"}]}]], 
                    Which[$CellContext`resol$$ >= 3, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\) ", 
                    Row[{Row[{
                    Row[{"(", $CellContext`a1, ") (", 
                    Simplify[$CellContext`a5/$CellContext`a2], ")"}], " ", 
                    $CellContext`s1[
                    Part[$CellContext`sig, 12], 
                    $CellContext`w[1]], 
                    Row[{"(", $CellContext`a3, ") (", 
                    Simplify[$CellContext`a5/$CellContext`a4], 
                    ")"}]}]/$CellContext`a5, 
                    " = 0"}]}]]}]}], $CellContext`tam - 8]], 
                    Style[
                    Column[{
                    Which[$CellContext`resol$$ >= 4, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\) ", 
                    Row[{Row[{"(", 
                    
                    Expand[$CellContext`a1 
                    Simplify[$CellContext`a5/$CellContext`a2]], " ) ", 
                    $CellContext`s1[
                    Part[$CellContext`sig, 12], 
                    $CellContext`w[1]], "(", 
                    
                    Expand[$CellContext`a3 
                    Simplify[$CellContext`a5/$CellContext`a4]], 
                    ")"}]/$CellContext`a5, " = 0"}]}]], 
                    Which[$CellContext`resol$$ >= 5, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\) ", 
                    
                    Row[{Row[{$CellContext`a}]/$CellContext`a5, Null, 
                    " = 0"}]}]], 
                    Which[$CellContext`resol$$ >= 6, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\) ", 
                    Row[{
                    Row[{$CellContext`a}], Null, " = 0"}]}]], 
                    Which[$CellContext`resol$$ >= 7, 
                    If[
                    Solve[$CellContext`a == 0, $CellContext`var, Reals] == {}, 
                    
                    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"}], 
                    If[
                    Solve[$CellContext`a == 0, $CellContext`var, 
                    Reals] == {{}}, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) La soluci\[OAcute]n \
es todos los n\[UAcute]meros reales"}], 
                    Flatten[
                    
                    Solve[$CellContext`a == 0, $CellContext`var, 
                    Reals]]]]]}], $CellContext`tam - 5]}}, 
                   ItemSize -> {{21, 22}, Automatic}, 
                   Alignment -> {Left, Top}], $CellContext`alt == 
                 4, $CellContext`a1 = $CellContext`s[
                    Part[$CellContext`sig, 1], 
                    
                    Part[$CellContext`v1, 
                    1]] $CellContext`var + $CellContext`s[
                    Part[$CellContext`sig, 2], 
                    Part[$CellContext`v1, 2]]; $CellContext`a2 = 
                  Factor[Part[$CellContext`v1, 
                    3] $CellContext`var + $CellContext`s[
                    Part[$CellContext`sig, 4], 
                    
                    Part[$CellContext`v1, 
                    4]]]; $CellContext`a3 = $CellContext`s[
                    Part[$CellContext`sig, 5], 
                    
                    Part[$CellContext`v1, 
                    5]] $CellContext`var + $CellContext`s[
                    Part[$CellContext`sig, 6], 
                    Part[$CellContext`v1, 6]]; $CellContext`a6 = 
                  Part[$CellContext`v1, 3] $CellContext`s[
                    Part[$CellContext`sig, 8], 
                    Part[$CellContext`v1, 8]] + 
                   Part[$CellContext`v1, 7] $CellContext`s[
                    Part[$CellContext`sig, 4], 
                    Part[$CellContext`v1, 4]]; $CellContext`a4 = 
                  Factor[Part[$CellContext`v1, 7] 
                    Part[$CellContext`v1, 
                    3] $CellContext`var^2 + $CellContext`a6 $CellContext`var + \
$CellContext`s[
                    Part[
                    $CellContext`p1[$CellContext`s[
                    Part[$CellContext`sig, 8], 
                    Part[$CellContext`v1, 8]] $CellContext`s[
                    Part[$CellContext`sig, 4], 
                    Part[$CellContext`v1, 4]]], 1, 1], 
                    Abs[$CellContext`s[
                    Part[$CellContext`sig, 8], 
                    Part[$CellContext`v1, 8]] $CellContext`s[
                    Part[$CellContext`sig, 4], 
                    Part[$CellContext`v1, 4]]]]]; $CellContext`a5 = 
                  PolynomialLCM[$CellContext`a2, $CellContext`a4]; \
$CellContext`a = Expand[$CellContext`a1 
                    Simplify[$CellContext`a5/$CellContext`a2]] + \
$CellContext`s[
                    Part[$CellContext`sig, 12], 1] 
                    Expand[$CellContext`a3 
                    Simplify[$CellContext`a5/$CellContext`a4]]; 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]]\) ", 
                    Row[{Row[{$CellContext`a1}]/Row[{$CellContext`a2}], 
                    $CellContext`s1[
                    Part[$CellContext`sig, 12], 
                    $CellContext`w[1]], Row[{$CellContext`a3}]/
                    Row[{$CellContext`a4}], " = 0"}]}]], 
                    Which[$CellContext`resol$$ >= 2, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\) ", 
                    Row[{Row[{"(", $CellContext`a1, ") (", 
                    Simplify[$CellContext`a5/$CellContext`a2], 
                    ")"}]/$CellContext`a5, " ", 
                    $CellContext`s1[
                    Part[$CellContext`sig, 12], 
                    $CellContext`w[1]], " ", Row[{"(", $CellContext`a3, ") (", 
                    Simplify[$CellContext`a5/$CellContext`a4], 
                    ")"}]/$CellContext`a5, " = 0"}]}]]}]}], $CellContext`tam - 
                    5]], 
                    Style[
                    Column[{
                    Which[$CellContext`resol$$ >= 3, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\) ", 
                    Row[{Row[{
                    Row[{"(", $CellContext`a1, ") (", 
                    Simplify[$CellContext`a5/$CellContext`a2], ")"}], " ", 
                    $CellContext`s1[
                    Part[$CellContext`sig, 12], 
                    $CellContext`w[1]], 
                    Row[{"(", $CellContext`a3, ") (", 
                    Simplify[$CellContext`a5/$CellContext`a4], 
                    ")"}]}]/$CellContext`a5, " = 0"}]}]], 
                    Which[$CellContext`resol$$ >= 4, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\) ", 
                    
                    Row[{Row[{$CellContext`a}]/$CellContext`a5, Null, 
                    " = 0"}]}]], 
                    Which[$CellContext`resol$$ >= 5, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\) ", 
                    Row[{
                    Row[{$CellContext`a}], Null, " = 0"}]}]], 
                    Which[$CellContext`resol$$ >= 6, 
                    If[
                    Solve[$CellContext`a == 0, $CellContext`var, Reals] == {}, 
                    
                    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"}], 
                    If[
                    Solve[$CellContext`a == 0, $CellContext`var, 
                    Reals] == {{}}, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) La soluci\[OAcute]n \
es todos los n\[UAcute]meros reales"}], 
                    Flatten[
                    
                    Solve[$CellContext`a == 0, $CellContext`var, 
                    Reals]]]]]}], $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[
                  Column[{
                    
                    Which[$CellContext`alt == 
                    1, $CellContext`sol = $CellContext`s[
                    Part[$CellContext`sig, 1], 
                    Part[$CellContext`v1, 1]] + $CellContext`s[
                    Part[$CellContext`sig, 12], 1] (($CellContext`s[
                    Part[$CellContext`sig, 2], 
                    
                    Part[$CellContext`v1, 
                    2]] $CellContext`var + $CellContext`s[
                    Part[$CellContext`sig, 3], 
                    Part[$CellContext`v1, 3]])/Factor[$CellContext`s[
                    Part[$CellContext`sig, 4], 
                    
                    Part[$CellContext`v1, 
                    4]] $CellContext`var + $CellContext`s[
                    Part[$CellContext`sig, 5], 
                    Part[$CellContext`v1, 5]]]); 
                    If[Solve[$CellContext`sol == 0, $CellContext`var, 
                    Reals] == {}, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"           \",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) No hay soluci\[OAcute]n real"}], 
                    If[
                    Solve[$CellContext`sol == 0, $CellContext`var, 
                    Reals] == {{}}, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"           \",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) La soluci\[OAcute]n es todos los \
n\[UAcute]meros reales"}], 
                    Flatten[
                    
                    Solve[$CellContext`sol == 0, $CellContext`var, 
                    Reals]]]], $CellContext`alt == 
                    2, $CellContext`a1 = $CellContext`s[
                    Part[$CellContext`sig, 1], 
                    
                    Part[$CellContext`v1, 
                    1]] $CellContext`var + $CellContext`s[
                    Part[$CellContext`sig, 2], 
                    Part[$CellContext`v1, 2]]; $CellContext`a2 = 
                    Factor[Part[$CellContext`v1, 
                    3] $CellContext`var + $CellContext`s[
                    Part[$CellContext`sig, 4], 
                    
                    Part[$CellContext`v1, 
                    4]]]; $CellContext`a3 = $CellContext`s[
                    Part[$CellContext`sig, 5], 
                    
                    Part[$CellContext`v1, 
                    5]] $CellContext`var + $CellContext`s[
                    Part[$CellContext`sig, 6], 
                    Part[$CellContext`v1, 6]]; $CellContext`a4 = 
                    Factor[Part[$CellContext`v1, 
                    7] $CellContext`var + $CellContext`s[
                    Part[$CellContext`sig, 8], 
                    Part[$CellContext`v1, 8]]]; $CellContext`a5 = 
                    PolynomialLCM[$CellContext`a2, $CellContext`a4]; \
$CellContext`a6 = Expand[(-$CellContext`s[
                    Part[$CellContext`sig, 9], 
                    
                    Part[$CellContext`v1, 
                    9]]) $CellContext`a5]; $CellContext`a = 
                    Expand[$CellContext`a1 
                    Simplify[$CellContext`a5/$CellContext`a2]] + \
$CellContext`s[
                    Part[$CellContext`sig, 12], 1] 
                    Expand[$CellContext`a3 
                    Simplify[$CellContext`a5/$CellContext`a4]] + \
$CellContext`a6; $CellContext`sol = $CellContext`a1/$CellContext`a2 + \
$CellContext`s[
                    Part[$CellContext`sig, 12], 
                    1] ($CellContext`a3/$CellContext`a4) - $CellContext`s[
                    Part[$CellContext`sig, 9], 
                    Part[$CellContext`v1, 9]]; 
                    If[Solve[$CellContext`sol == 0, $CellContext`var, 
                    Reals] == {}, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"           \",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) No hay soluci\[OAcute]n real"}], 
                    If[
                    Solve[$CellContext`sol == 0, $CellContext`var, 
                    Reals] == {{}}, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"           \",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) La soluci\[OAcute]n es todos los \
n\[UAcute]meros reales"}], 
                    Flatten[
                    
                    Solve[$CellContext`sol == 0, $CellContext`var, 
                    Reals]]]], $CellContext`alt == 3, 
                    If[
                    Solve[$CellContext`a == 0, $CellContext`var, Reals] == {}, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"           \",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) No hay soluci\[OAcute]n real"}], 
                    If[Solve[$CellContext`a == 0, $CellContext`var, 
                    Reals] == {{}}, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"           \",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) La soluci\[OAcute]n es todos los \
n\[UAcute]meros reales"}], 
                    Flatten[
                    
                    Solve[$CellContext`a == 0, $CellContext`var, 
                    Reals]]]], $CellContext`alt == 4, 
                    If[
                    Solve[$CellContext`a == 0, $CellContext`var, Reals] == {}, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"           \",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) No hay soluci\[OAcute]n real"}], 
                    If[
                    Solve[$CellContext`a == 0, $CellContext`var, 
                    Reals] == {{}}, 
                    
                    Row[{"\!\(\*\nStyleBox[\">\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"           \",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\) La soluci\[OAcute]n es todos los \
n\[UAcute]meros reales"}], 
                    Flatten[
                    
                    Solve[$CellContext`a == 0, $CellContext`var, 
                    Reals]]]]]}], $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->{831., {292., 302.}},
       SingleEvaluation->True],
      Deinitialization:>None,
      DynamicModuleValues:>{},
      Initialization:>({$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`sig = 
             Array[RandomChoice[{"+ ", "- "}]& , {12}]; $CellContext`var = 
             RandomChoice[{$CellContext`x, $CellContext`y, $CellContext`z, \
$CellContext`m, $CellContext`t, $CellContext`u}]}], $CellContext`alt = 
         1, $CellContext`v1 = {1, 1, 2, 3, 1, 3, 3, 1, 3, 2, 3, 
          3}, $CellContext`coef[
           Pattern[$CellContext`x, 
            Blank[]]] := Which[$CellContext`x == 1, 
           RandomInteger[{1, 3}], $CellContext`x == 2, 
           $CellContext`rati[
            RandomReal[{1, 5}, WorkingPrecision -> 2]]], $CellContext`rati[
           Pattern[$CellContext`x, 
            Blank[]]] := 
         Rationalize[$CellContext`x, 0.1], $CellContext`v2 = {
          19/4, 3, 10/3, 11/4, 2, 4/3, 3, 5/2, 5, 11/3, 5, 11/
           3}, $CellContext`sig = {
          "- ", "- ", "+ ", "- ", "- ", "- ", "- ", "- ", "- ", "+ ", "- ", 
           "- "}, $CellContext`var = $CellContext`z, $CellContext`tam = 
         20, $CellContext`ecu = Row[{-1, " ", 
            Row[{"- ", 
              Row[{""}]}], " ", Row[{-Row[{""}], " ", $CellContext`z, " ", 
               Row[{"+ ", 2}]}]/Row[{-3, " ", $CellContext`z, "  ", 
              Row[{"- ", 1}]}], " = 0"}], $CellContext`s[
           Pattern[$CellContext`s, 
            Blank[]], 
           Pattern[$CellContext`a, 
            Blank[]]] := 
         If[$CellContext`s == 
           "+ ", $CellContext`a, -$CellContext`a], $CellContext`a = -1 + 
          4 $CellContext`z, $CellContext`s1[
           Pattern[$CellContext`s, 
            Blank[]], 
           Pattern[$CellContext`a, 
            Blank[]]] := If[$CellContext`s == "+ ", 
           Row[{"+ ", $CellContext`a}], 
           Row[{"- ", $CellContext`a}]], $CellContext`w[
           Pattern[$CellContext`a, 
            Blank[]]] := If[$CellContext`a == 1, 
           Row[{""}], $CellContext`a], $CellContext`a6 = 0, $CellContext`p1[
           Pattern[$CellContext`a, 
            Blank[]]] := If[$CellContext`a > 0, 
           Row[{"+ ", 
             Abs[$CellContext`a]}], 
           Row[{"- ", 
             Abs[$CellContext`a]}]], $CellContext`pista01 = 
         "Analizar los denominadores para determinar las restricciones,", \
$CellContext`pista011 = 
         "de ser posible, factorizar los denominadores.", \
$CellContext`pista02 = 
         "Agrupar todos los t\[EAcute]rminos a un lado (igualar a cero).", \
$CellContext`pista03 = 
         "Identificar el denominador com\[UAcute]n de las fracciones y \
amplificarlas para que todas tengan el mismo denominador.", \
$CellContext`pista04 = 
         "Sumar o restar las fracciones, tener cuidado con el cambio de signo \
en las restas.", $CellContext`pista05 = 
         "Simplificar lo que m\[AAcute]s se pueda el denominador, operar t\
\[EAcute]rminos semejantes.", $CellContext`pista06 = 
         "Utilizar la propiedad: \!\(\*\nStyleBox[\"Si\",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \
\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\n\
StyleBox[FractionBox[\n  RowBox[{\"b\", \" \"}], \"c\"],\nFontSlant->\"Italic\
\",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\n\
StyleBox[\"=\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0, 0, \
1]]\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0, \
0, 1]]\)\!\(\*\nStyleBox[\"0\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\",\",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \
\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\
\"entonces\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\n\
StyleBox[\" \",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0, 0, \
1]]\)\!\(\*\nStyleBox[\"b\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0, \
0, 1]]\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"=\",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \
\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\
\"0\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0, 0, 1]]\).", \
$CellContext`pista07 = 
         "Resolver la ecuaci\[OAcute]n resultante, esta debe ser lineal o \
cuadr\[AAcute]tica.", $CellContext`pista08 = 
         "Verificar las soluciones y tener cuidado con que no sea alguna de \
las restricciones.", $CellContext`a1 = 0, $CellContext`a2 = 
         0, $CellContext`a3 = 0, $CellContext`a4 = 0, $CellContext`a5 = 
         0, $CellContext`sol = 0, $CellContext`anc = 750, $CellContext`alto = 
         400}; Typeset`initDone$$ = True),
      SynchronousInitialization->True,
      UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
      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, 709},
Visible->True,
ScrollingOptions->{"VerticalScrollRange"->Fit},
ShowCellBracket->Automatic,
Deployed->True,
CellContext->Notebook,
TrackCellChangeTimes->False,
FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (September 9, 2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "SlideShowHeader"->{
  Cell[1464, 33, 4250, 94, 46, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[6001, 141, 64, 1, 43, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[65946, 1329, 64, 1, 43, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"]},
 "imprimir"->{
  Cell[5717, 129, 90, 1, 219, "Title",
   CellTags->"imprimir"],
  Cell[5810, 132, 188, 7, 148, "Subtitle",
   CellTags->"imprimir"],
  Cell[6068, 144, 63, 1, 81, "Section",
   CellTags->"imprimir"],
  Cell[6134, 147, 59809, 1180, 615, "Output",
   CellTags->"imprimir"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"SlideShowHeader", 66463, 1348},
 {"imprimir", 66747, 1355}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[1464, 33, 4250, 94, 46, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[5717, 129, 90, 1, 219, "Title",
 CellTags->"imprimir"],
Cell[5810, 132, 188, 7, 148, "Subtitle",
 CellTags->"imprimir"],
Cell[6001, 141, 64, 1, 43, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[6068, 144, 63, 1, 81, "Section",
 CellTags->"imprimir"],
Cell[6134, 147, 59809, 1180, 615, "Output",
 CellTags->"imprimir"],
Cell[65946, 1329, 64, 1, 43, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature @uT7Dn0hAPj#wAKbuA376kzN *)
