(* 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[     34757,        771]
NotebookOptionsPosition[     34167,        732]
NotebookOutlinePosition[     35294,        773]
CellTagsIndexPosition[     35189,        767]
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->{Automatic, 34},
 TextAlignment->Center,
 CellTags->"SlideShowHeader"],

Cell["Funciones", "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["Concepto de funci\[OAcute]n", "Section",
 CellTags->"imprimir"],

Cell[BoxData[
 FormBox[
  TagBox[
   FormBox[
    StyleBox[
     DynamicModuleBox[{$CellContext`ab$$ = 0, $CellContext`resol$$ = 
      0, $CellContext`todo$$ = 0, Typeset`show$$ = True, 
      Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
      Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
      "\"untitled\"", Typeset`specs$$ = {{{
         Hold[$CellContext`ab$$], 0, "desizar para mover la abscisa"}, -7, 
        7}, {{
         Hold[$CellContext`resol$$], 0, 
         Row[{"desizar para mostrar respuesta"}]}, 0, 10, 1}, {{
         Hold[$CellContext`todo$$], 0, 
         Row[{"mostrar todas las respuestas"}]}, {0, 1}}, {
        Hold[
         Column[{
           Row[{
             Manipulate`Place[1]}], 
           Row[{
             Manipulate`Place[2], "               ", 
             Manipulate`Place[3]}]}]], Manipulate`Dump`ThisIsNotAControl}}, 
      Typeset`size$$ = {775., {266., 278.}}, Typeset`update$$ = 0, 
      Typeset`initDone$$, Typeset`skipInitDone$$ = 
      False, $CellContext`ab$32324$$ = 0, $CellContext`resol$32325$$ = 
      0, $CellContext`todo$32326$$ = False}, 
      DynamicBox[Manipulate`ManipulateBoxes[
       2, TraditionalForm, 
        "Variables" :> {$CellContext`ab$$ = 0, $CellContext`resol$$ = 
          0, $CellContext`todo$$ = 0}, "ControllerVariables" :> {
          Hold[$CellContext`ab$$, $CellContext`ab$32324$$, 0], 
          Hold[$CellContext`resol$$, $CellContext`resol$32325$$, 0], 
          Hold[$CellContext`todo$$, $CellContext`todo$32326$$, 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`graf = ($CellContext`datos = \
{{$CellContext`a3 - 1, 
               $CellContext`recta[$CellContext`a3 - 1]}, {$CellContext`a3, 
               Part[$CellContext`b, 3]}, {$CellContext`a1, 
               Part[$CellContext`b, 1]}, {$CellContext`a1, 
               Part[$CellContext`b, 9]}, {$CellContext`a5, 
               Part[$CellContext`b, 5]}, {$CellContext`a2, 
               Part[$CellContext`b, 2]}, {$CellContext`a6, 
               Part[$CellContext`b, 6]}, {$CellContext`a7, 
               Part[$CellContext`b, 7]}, {$CellContext`a8, 
               Part[$CellContext`b, 8]}}; $CellContext`minx = $CellContext`a3 - 
             1.5; $CellContext`maxx = $CellContext`a8 + 1; $CellContext`miny = 
            Min[
              Table[
               $CellContext`recta[$CellContext`i], {$CellContext`i, \
$CellContext`a3 - 1, $CellContext`a1}], 
              Table[
               $CellContext`curva1[$CellContext`i], {$CellContext`i, \
$CellContext`a1, $CellContext`a2}], 
              Table[
               $CellContext`curva2[$CellContext`i], {$CellContext`i, \
$CellContext`a6, $CellContext`a8, 0.2}]]; $CellContext`maxy = Max[
              Table[
               $CellContext`recta[$CellContext`i], {$CellContext`i, \
$CellContext`a3 - 1, $CellContext`a1}], 
              Table[
               $CellContext`curva1[$CellContext`i], {$CellContext`i, \
$CellContext`a1, $CellContext`a2, 0.2}], 
              Table[
               $CellContext`curva2[$CellContext`i], {$CellContext`i, \
$CellContext`a6, $CellContext`a8, 
                0.2}]]; $CellContext`distx = $CellContext`maxx - \
$CellContext`minx; $CellContext`disty = $CellContext`maxy - $CellContext`miny; 
           Show[
             $CellContext`plano[$CellContext`minx, $CellContext`maxx], 
             Plot[
              $CellContext`recta[$CellContext`x], {$CellContext`x, \
$CellContext`a3 - 1, $CellContext`a1}, PlotStyle -> Thick], 
             Plot[
              $CellContext`curva1[$CellContext`x], {$CellContext`x, \
$CellContext`a1, $CellContext`a2}, PlotStyle -> Thick], 
             Plot[
              $CellContext`curva2[$CellContext`x], {$CellContext`x, \
$CellContext`a6, $CellContext`a8}, PlotStyle -> Thick], 
             Map[$CellContext`punto1, $CellContext`datos], 
             $CellContext`segmento[$CellContext`ab$$], 
             If[Part[$CellContext`condi, 1] == 0, 
              $CellContext`punto2[
               Part[$CellContext`datos, 1]], $CellContext`punto3], 
             If[Part[$CellContext`condi, 2] == 0, 
              $CellContext`punto2[
               Part[$CellContext`datos, 2]], $CellContext`punto3], 
             If[Part[$CellContext`condi, 3] == 0, 
              If[Part[$CellContext`condi, 4] == 0, {
                $CellContext`punto2[
                 Part[$CellContext`datos, 3]], 
                $CellContext`punto2[
                 Part[$CellContext`datos, 4]]}, 
               If[Part[$CellContext`b, 1] != Part[$CellContext`b, 9], 
                $CellContext`punto2[
                 Part[$CellContext`datos, 3]], $CellContext`punto3]], 
              If[Part[$CellContext`condi, 4] == 0, 
               If[Part[$CellContext`b, 1] != Part[$CellContext`b, 9], 
                $CellContext`punto2[
                 Part[$CellContext`datos, 4]], $CellContext`punto3], 
               If[Part[$CellContext`b, 1] != Part[$CellContext`b, 9], 
                $CellContext`punto2[
                 Part[$CellContext`datos, 4]], $CellContext`punto3]]], 
             If[
              And[
              Part[$CellContext`condi, 3] == 1, Part[$CellContext`condi, 4] == 
               1, Part[$CellContext`b, 1] != Part[$CellContext`b, 9]], 
              $CellContext`punto2[
               Part[$CellContext`datos, 4]], $CellContext`punto3], 
             If[Part[$CellContext`condi, 5] == 0, 
              $CellContext`punto2[
               Part[$CellContext`datos, 5]], $CellContext`punto3], 
             If[Part[$CellContext`condi, 6] == 0, 
              If[Part[$CellContext`condi, 7] == 0, {
                $CellContext`punto2[
                 Part[$CellContext`datos, 6]], 
                $CellContext`punto2[
                 Part[$CellContext`datos, 7]]}, 
               If[$CellContext`a2 == $CellContext`a6, 
                $CellContext`punto2[
                 Part[$CellContext`datos, 6]], $CellContext`punto3]], 
              If[Part[$CellContext`condi, 7] == 0, 
               $CellContext`punto2[
                Part[$CellContext`datos, 7]], 
               If[$CellContext`a2 == $CellContext`a6, 
                $CellContext`punto2[
                 Part[$CellContext`datos, 7]], $CellContext`punto3]]], 
             If[Part[$CellContext`condi, 8] == 0, 
              $CellContext`punto2[
               Part[$CellContext`datos, 8]], $CellContext`punto3], 
             If[Part[$CellContext`condi, 9] == 0, 
              $CellContext`punto2[
               Part[$CellContext`datos, 9]], $CellContext`punto3], Ticks -> {
               Table[$CellContext`i, {$CellContext`i, 
                 Floor[$CellContext`minx], $CellContext`maxx, 1}], Automatic},
              GridLines -> Automatic, Axes -> {True, True}, AxesStyle -> 
             Directive[
               Thickness[0.003], 
               Arrowheads[0.03]], AxesOrigin -> {0, 0}, 
             AxesLabel -> {$CellContext`x, $CellContext`y}, 
             PlotRange -> {{$CellContext`minx, $CellContext`maxx}, \
{$CellContext`miny, $CellContext`maxy}}, AspectRatio -> 1, 
             ImageSize -> {355, 355}]); Column[{
            Text[
             Style[
              
              Row[{"Observe la siguiente gr\[AAcute]fica  de la \
funci\[OAcute]n \!\(\*\nStyleBox[\"f\",\nFontSlant->\"Italic\"]\)\!\(\*\n\
StyleBox[\" \",\nFontSlant->\"Italic\"]\)y responda las  preguntas", 
                "       ", $CellContext`botom}], $CellContext`tam]], 
            Pane[
             Grid[{{$CellContext`graf, 
                Style[
                 Text[
                  Column[{
                    Row[{
                    
                    Row[{"Cu\[AAcute]l es la imagen de ", $CellContext`a3 - 1,
                     "?"}], 
                    If[
                    Or[$CellContext`resol$$ == 1, $CellContext`todo$$ == 1], 
                    Row[{
                    If[Part[$CellContext`condi, 1] == 0, "no hay imagen", 
                    N[
                    $CellContext`imagen[$CellContext`a3 - 1], 2]]}, Frame -> 
                    True, Background -> LightBlue], 
                    
                    Row[{"                           "}, Frame -> True, 
                    Background -> LightRed]]}, "            ", 
                    ImageSize -> $CellContext`anchrow], 
                    Row[{
                    
                    Row[{"\!\(\*\nStyleBox[\"f\",\nFontSlant->\"Italic\"]\)\!\
\(\*\nStyleBox[\"(\",\nFontSlant->\"Italic\"]\)0\!\(\*\nStyleBox[\")\",\n\
FontSlant->\"Italic\"]\) es aproximadamente"}], 
                    If[
                    Or[$CellContext`resol$$ == 2, $CellContext`todo$$ == 1], 
                    Row[{
                    If[
                    
                    And[$CellContext`a5 == 0, Part[$CellContext`condi, 5] == 
                    0], "0 no tiene imagen", 
                    N[
                    $CellContext`imagen[0], 2]]}, Frame -> True, Background -> 
                    LightBlue], 
                    
                    Row[{"                           "}, Frame -> True, 
                    Background -> LightRed]]}, "            ", 
                    ImageSize -> $CellContext`anchrow], 
                    Row[{
                    
                    Row[{$CellContext`a1, 
                    " est\[AAcute] en el dominio de \!\(\*\nStyleBox[\"f\",\n\
FontSlant->\"Italic\"]\)?"}], 
                    If[
                    Or[$CellContext`resol$$ == 3, $CellContext`todo$$ == 1], 
                    Row[{
                    If[Part[$CellContext`condi, 3] == 0, 
                    Row[{$CellContext`a1, 
                    " no est\[AAcute] en el dominio de \!\(\*\n\
StyleBox[\"f\",\nFontSlant->\"Italic\"]\)"}], 
                    
                    Row[{$CellContext`a1, 
                    " si est\[AAcute] en el dominio de \!\(\*\n\
StyleBox[\"f\",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\",\",\nFontSlant->\
\"Italic\"]\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\"]\)", 
                    "f(", $CellContext`a1, ")= ", 
                    $CellContext`imagen[$CellContext`a1]}]]}, Frame -> True, 
                    Background -> LightBlue], 
                    
                    Row[{"                           "}, Frame -> True, 
                    Background -> LightRed]]}, "            ", 
                    ImageSize -> $CellContext`anchrow], 
                    Row[{
                    Row[{
                    Part[$CellContext`b, 5], 
                    " es preimagen de que valores?"}], 
                    If[
                    Or[$CellContext`resol$$ == 4, $CellContext`todo$$ == 1], 
                    Row[{
                    $CellContext`solve[
                    Part[$CellContext`b, 5]]}, Frame -> True, Background -> 
                    LightBlue], 
                    
                    Row[{"                           "}, Frame -> True, 
                    Background -> LightRed]]}, "   ", 
                    ImageSize -> $CellContext`anchrow], 
                    Row[{
                    
                    Row[{"\!\(\*\nStyleBox[\"f\",\nFontSlant->\"Italic\"]\)\!\
\(\*\nStyleBox[\"(\",\nFontSlant->\"Italic\"]\)", $CellContext`a2, 
                    "\!\(\*\nStyleBox[\")\",\nFontSlant->\"Italic\"]\) es \
aproximadamente"}], 
                    If[
                    Or[$CellContext`resol$$ == 5, $CellContext`todo$$ == 1], 
                    Row[{
                    If[
                    And[
                    Part[$CellContext`condi, 6] == 0, 
                    Part[$CellContext`condi, 7] == 0], 
                    Row[{$CellContext`a2, " no tiene imagen"}], 
                    N[
                    $CellContext`imagen[$CellContext`a2], 2]]}, Frame -> True,
                     Background -> LightBlue], 
                    Row[{"                           "}, Frame -> True, 
                    Background -> LightRed]]}, "            ", 
                    ImageSize -> $CellContext`anchrow], 
                    Row[{
                    
                    Row[{"para que valor(es) de \!\(\*\nStyleBox[\"x\",\n\
FontSlant->\"Italic\"]\) se tiene que \!\(\*\nStyleBox[\"f\",\n\
FontSlant->\"Italic\"]\)(x)= ", 
                    Part[$CellContext`b, 7], "?"}], 
                    If[
                    Or[$CellContext`resol$$ == 6, $CellContext`todo$$ == 1], 
                    Row[{
                    $CellContext`solve[
                    Part[$CellContext`b, 7]]}, Frame -> True, Background -> 
                    LightBlue], 
                    
                    Row[{"                           "}, Frame -> True, 
                    Background -> LightRed]]}, "            ", 
                    ImageSize -> $CellContext`anchrow], 
                    Row[{
                    
                    Row[{"Identifique los cortes eje \!\(\*\nStyleBox[\"x\",\n\
FontSlant->\"Italic\"]\)"}], 
                    If[
                    Or[$CellContext`resol$$ == 7, $CellContext`todo$$ == 1], 
                    Row[{
                    $CellContext`solve[0]}, Frame -> True, Background -> 
                    LightBlue], 
                    
                    Row[{"                           "}, Frame -> True, 
                    Background -> LightRed]]}, "            ", 
                    ImageSize -> $CellContext`anchrow], 
                    Row[{
                    
                    Row[{"Identifique el corte eje \!\(\*\nStyleBox[\"y\",\n\
FontSlant->\"Italic\"]\)"}], 
                    If[
                    Or[$CellContext`resol$$ == 8, $CellContext`todo$$ == 1], 
                    Row[{
                    If[
                    
                    And[$CellContext`a5 == 0, Part[$CellContext`condi, 5] == 
                    0], "no hay corte", 
                    N[
                    $CellContext`imagen[0], 2]]}, Frame -> True, Background -> 
                    LightBlue], 
                    
                    Row[{"                           "}, Frame -> True, 
                    Background -> LightRed]]}, "            ", 
                    ImageSize -> $CellContext`anchrow], 
                    Row[{
                    
                    Row[{"Cu\[AAcute]l es el dominio de \!\(\*\n\
StyleBox[\"f\",\nFontSlant->\"Italic\"]\)?"}], 
                    If[
                    Or[$CellContext`resol$$ == 9, $CellContext`todo$$ == 1], 
                    
                    Row[{$CellContext`dominio}, Frame -> True, Background -> 
                    LightBlue], 
                    
                    Row[{"                           "}, Frame -> True, 
                    Background -> LightRed]]}, "            ", 
                    ImageSize -> $CellContext`anchrow], 
                    If[$CellContext`a2 != $CellContext`a6, 
                    Row[{
                    Row[{"Cu\[AAcute]l es la imagen de ", 
                    N[($CellContext`a2 + $CellContext`a6)/2, 2], "?"}], 
                    If[
                    Or[$CellContext`resol$$ == 10, $CellContext`todo$$ == 1], 
                    Row[{
                    N[($CellContext`a2 + $CellContext`a6)/2, 2], 
                    " no tiene imagen"}, Frame -> True, Background -> 
                    LightBlue], 
                    
                    Row[{"                           "}, Frame -> True, 
                    Background -> LightRed]]}, "            ", 
                    ImageSize -> $CellContext`anchrow], 
                    Row[{}]]}, Frame -> All]], $CellContext`tam - 3]}}, 
              ItemSize -> All, Alignment -> {Left, Top}, Frame -> All], 
             ImageSize -> {$CellContext`anc, $CellContext`alto}]}]), 
        "Specifications" :> {{{$CellContext`ab$$, 0, 
            "desizar para mover la abscisa"}, -7, 7, ControlPlacement -> 
           1}, {{$CellContext`resol$$, 0, 
            Row[{"desizar para mostrar respuesta"}]}, 0, 10, 1, 
           ControlPlacement -> 2}, {{$CellContext`todo$$, 0, 
            Row[{"mostrar todas las respuestas"}]}, {0, 1}, ControlPlacement -> 
           3}, 
          Column[{
            Row[{
              Manipulate`Place[1]}], 
            Row[{
              Manipulate`Place[2], "               ", 
              Manipulate`Place[3]}]}]}, "Options" :> {Deployed -> True}, 
        "DefaultOptions" :> {}],
       ImageSizeCache->{830., {334., 344.}},
       SingleEvaluation->True],
      Deinitialization:>None,
      DynamicModuleValues:>{},
      Initialization:>({$CellContext`a3 := $CellContext`a1 - $CellContext`h1, \
$CellContext`a1 = -3, $CellContext`h1 = 2, $CellContext`recta[
           Pattern[$CellContext`x, 
            Blank[]]] := ($CellContext`data = {{$CellContext`a3, 
              Part[$CellContext`b, 3]}, {$CellContext`a1, 
              Part[$CellContext`b, 1]}}; 
          InterpolatingPolynomial[$CellContext`data, $CellContext`x]), \
$CellContext`b = {1, -4, 1, -1, -3, -2, 4, -1, 3, 
          3}, $CellContext`a5 := $CellContext`a1 + 2, $CellContext`a2 = 
         1, $CellContext`a6 := $CellContext`a2 + $CellContext`h2, \
$CellContext`h2 = 
         0, $CellContext`a7 := $CellContext`a2 + $CellContext`h2 + 
          1, $CellContext`a8 := $CellContext`a2 + $CellContext`h2 + 
          2, $CellContext`curva1[
           Pattern[$CellContext`x, 
            Blank[]]] := ($CellContext`data = {{$CellContext`a1, 
              Part[$CellContext`b, 9]}, {$CellContext`a5, 
              Part[$CellContext`b, 5]}, {$CellContext`a2, 
              Part[$CellContext`b, 2]}}; Which[Part[$CellContext`alt, 1] == 1, 
            InterpolatingPolynomial[$CellContext`data, $CellContext`x], 
            Part[$CellContext`alt, 1] == 2, 
            Which[$CellContext`a1 <= $CellContext`x <= $CellContext`a5, 
             InterpolatingPolynomial[{{$CellContext`a1, 
                Part[$CellContext`b, 9]}, {$CellContext`a5, 
                
                Part[$CellContext`b, 
                 5]}}, $CellContext`x], $CellContext`a5 <= $CellContext`x <= \
$CellContext`a2, 
             InterpolatingPolynomial[{{$CellContext`a5, 
                Part[$CellContext`b, 5]}, {$CellContext`a2, 
                Part[$CellContext`b, 
                 2]}}, $CellContext`x]]]), $CellContext`alt = {1, 
          2}, $CellContext`curva2[
           Pattern[$CellContext`x, 
            Blank[]]] := ($CellContext`data = {{$CellContext`a6, 
              Part[$CellContext`b, 6]}, {$CellContext`a7, 
              Part[$CellContext`b, 7]}, {$CellContext`a8, 
              Part[$CellContext`b, 8]}}; Which[Part[$CellContext`alt, 2] == 1, 
            InterpolatingPolynomial[$CellContext`data, $CellContext`x], 
            Part[$CellContext`alt, 2] == 2, 
            Which[$CellContext`a6 <= $CellContext`x <= $CellContext`a7, 
             InterpolatingPolynomial[{{$CellContext`a6, 
                Part[$CellContext`b, 6]}, {$CellContext`a7, 
                
                Part[$CellContext`b, 
                 7]}}, $CellContext`x], $CellContext`a7 <= $CellContext`x <= \
$CellContext`a8, 
             InterpolatingPolynomial[{{$CellContext`a7, 
                Part[$CellContext`b, 7]}, {$CellContext`a8, 
                
                Part[$CellContext`b, 
                 8]}}, $CellContext`x]]]), $CellContext`plano[
           Pattern[$CellContext`min, 
            Blank[]], 
           Pattern[$CellContext`max, 
            Blank[]]] := 
         Plot[0, {$CellContext`x, $CellContext`min - 
            0.05 ($CellContext`max - $CellContext`min), $CellContext`max + 
            0.05 ($CellContext`max - $CellContext`min)}, PlotStyle -> 
           White], $CellContext`punto1[
           Pattern[$CellContext`x, 
            Blank[]]] := Graphics[{Thick, 
            AbsolutePointSize[7], Blue, 
            Point[$CellContext`x]}], $CellContext`segmento[
           Pattern[$CellContext`x, 
            Blank[]]] := Graphics[{Red, Dashed, 
            Line[{{$CellContext`x, 0}, {$CellContext`x, 
               $CellContext`imagen[$CellContext`x]}, {0, 
               $CellContext`imagen[$CellContext`x]}}], Thick, 
            AbsolutePointSize[7], 
            Point[{$CellContext`x, 
              $CellContext`imagen[$CellContext`x]}]}], $CellContext`imagen[
           Pattern[$CellContext`x, 
            Blank[]]] := Which[$CellContext`x < $CellContext`a3 - 1, 0, 
           
           Inequality[$CellContext`a3 - 1, LessEqual, $CellContext`x, 
            Less, $CellContext`a1], 
           $CellContext`recta[$CellContext`x], $CellContext`x == \
$CellContext`a1, 
           If[Part[$CellContext`condi, 3] == 1, 
            $CellContext`recta[$CellContext`x], 
            If[Part[$CellContext`condi, 4] == 1, 
             $CellContext`curva1[$CellContext`x], 
             0]], $CellContext`a1 < $CellContext`x < $CellContext`a2, 
           $CellContext`curva1[$CellContext`x], 
           
           And[$CellContext`a2 != $CellContext`a6, $CellContext`x == \
$CellContext`a2], 
           $CellContext`curva1[$CellContext`x], 
           
           And[$CellContext`a2 == $CellContext`a6, $CellContext`x == \
$CellContext`a2], 
           If[
            And[
            Part[$CellContext`condi, 6] == 0, Part[$CellContext`condi, 7] == 
             0], 0, 
            If[Part[$CellContext`condi, 6] == 1, 
             $CellContext`curva1[$CellContext`x], 
             $CellContext`curva2[$CellContext`x]]], 
           
           And[$CellContext`a2 != $CellContext`a6, $CellContext`a2 < \
$CellContext`x < $CellContext`a6], 
           0, $CellContext`a6 <= $CellContext`x <= $CellContext`a8, 
           $CellContext`curva2[$CellContext`x], True, 
           0], $CellContext`condi = {0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 
          0}, $CellContext`punto2[
           Pattern[$CellContext`x, 
            Blank[]]] := Graphics[{Thick, 
            AbsolutePointSize[4], White, 
            Point[$CellContext`x]}], $CellContext`punto3 = Graphics[{
            AbsolutePointSize[0.1], 
            GrayLevel[0], 
            Point[{0, 0}]}], $CellContext`botom = Button[
           Text[
            Style[
            "nueva gr\[AAcute]fica", $CellContext`tam]], {$CellContext`a1 = 
             RandomInteger[{-2, -4}]; $CellContext`a2 = 
             RandomInteger[{1, 3}]; $CellContext`h1 = 
             RandomInteger[{1, 2}]; $CellContext`h2 = 
             RandomInteger[{0, 1}]; $CellContext`b = 
             Array[RandomInteger[{-5, 5}]& , {10}]; $CellContext`alt = 
             Array[RandomInteger[{1, 2}]& , {2}]; $CellContext`condi = 
             Array[RandomChoice[{0, 1}]& , {12}]; $CellContext`sig = 
             Array[RandomChoice[{"+ ", "- "}]& , {12}]; 
            Null}], $CellContext`tam = 
         20, $CellContext`sig = {
          "+ ", "+ ", "- ", "- ", "- ", "+ ", "- ", "+ ", "- ", "- ", "- ", 
           "- "}, $CellContext`anchrow = 356, $CellContext`solve[
           Pattern[$CellContext`y, 
            Blank[]]] := Or[
           N[
            Reduce[
             
             And[$CellContext`recta[$CellContext`x] == $CellContext`y, \
$CellContext`a3 - 1 <= $CellContext`x <= $CellContext`a1, 
              If[
              Part[$CellContext`condi, 1] == 
               0, $CellContext`x != $CellContext`a3 - 1, True], 
              If[
              Part[$CellContext`condi, 2] == 
               0, $CellContext`x != $CellContext`a3, True], 
              If[
              Part[$CellContext`condi, 3] == 
               0, $CellContext`x != $CellContext`a1, True]], $CellContext`x], 
            2], 
           N[
            Reduce[
             
             And[$CellContext`curva1[$CellContext`x] == $CellContext`y, \
$CellContext`a1 <= $CellContext`x <= $CellContext`a2, 
              If[
              Part[$CellContext`condi, 4] == 
               0, $CellContext`x != $CellContext`a1, True], 
              If[
              Part[$CellContext`condi, 5] == 
               0, $CellContext`x != $CellContext`a5, True], 
              If[
              Part[$CellContext`condi, 6] == 
               0, $CellContext`x != $CellContext`a2, True]], $CellContext`x], 
            2], 
           N[
            Reduce[
             
             And[$CellContext`curva2[$CellContext`x] == $CellContext`y, \
$CellContext`a6 <= $CellContext`x <= $CellContext`a8, 
              If[
              Part[$CellContext`condi, 7] == 
               0, $CellContext`x != $CellContext`a6, True], 
              If[
              Part[$CellContext`condi, 8] == 
               0, $CellContext`x != $CellContext`a7, True], 
              If[
              Part[$CellContext`condi, 9] == 
               0, $CellContext`x != $CellContext`a8, True]], $CellContext`x], 
            2]], $CellContext`dominio := ($CellContext`domi = {}; \
$CellContext`domi1 = {}; 
          If[Part[$CellContext`condi, 2] == 0, 
            AppendTo[$CellContext`domi, $CellContext`a3]; 
            AppendTo[$CellContext`domi1, $CellContext`a3]]; If[
            And[
            Part[$CellContext`condi, 3] == 0, Part[$CellContext`condi, 4] == 
             0], AppendTo[$CellContext`domi, $CellContext`a1]; 
            AppendTo[$CellContext`domi1, $CellContext`a1]]; 
          If[Part[$CellContext`condi, 5] == 0, 
            AppendTo[$CellContext`domi, $CellContext`a5]; 
            AppendTo[$CellContext`domi1, $CellContext`a5]]; 
          If[$CellContext`a2 == $CellContext`a6, 
            If[
             And[
             Part[$CellContext`condi, 6] == 0, Part[$CellContext`condi, 7] == 
              0], 
             AppendTo[$CellContext`domi, $CellContext`a2]]]; If[
            
            And[$CellContext`a2 != $CellContext`a6, 
             Part[$CellContext`condi, 6] == 0], 
            AppendTo[$CellContext`domi, $CellContext`a2]]; If[
            
            And[$CellContext`a2 != $CellContext`a6, 
             Part[$CellContext`condi, 7] == 0], 
            AppendTo[$CellContext`domi, $CellContext`a6]]; 
          If[Part[$CellContext`condi, 8] == 0, 
            AppendTo[$CellContext`domi, $CellContext`a7]; 
            AppendTo[$CellContext`domi1, $CellContext`a7]]; 
          If[$CellContext`a2 == $CellContext`a6, 
            Row[{
              If[
              Part[$CellContext`condi, 1] == 0, "( ", "[ "], $CellContext`a3 - 
              1, " , ", $CellContext`a8, 
              If[Part[$CellContext`condi, 9] == 0, " )", " ]"], 
              If[$CellContext`domi =!= {}, 
               Row[{" - ", $CellContext`domi}], 
               Row[{}]]}], 
            Row[{
              If[
              Part[$CellContext`condi, 1] == 0, "( ", "[ "], $CellContext`a3 - 
              1, " , ", $CellContext`a2, 
              If[Part[$CellContext`condi, 6] == 0, " )", " ]"], "\[Union]", 
              If[
              Part[$CellContext`condi, 8] == 0, "( ", "[ "], $CellContext`a6, 
              " , ", $CellContext`a8, 
              If[Part[$CellContext`condi, 9] == 0, " )", " ]"], 
              If[
               And[$CellContext`domi =!= {}, $CellContext`domi1 =!= {}], 
               Row[{" - ", $CellContext`domi1}], 
               
               Row[{}]]}]]), $CellContext`domi = {}, $CellContext`domi1 = {}, \
$CellContext`anc = 775, $CellContext`alto = 500}; 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[5960, 141, 64, 1, 43, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[34099, 729, 64, 1, 43, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"]},
 "imprimir"->{
  Cell[5717, 129, 49, 1, 100, "Title",
   CellTags->"imprimir"],
  Cell[5769, 132, 188, 7, 127, "Subtitle",
   CellTags->"imprimir"],
  Cell[6027, 144, 69, 1, 71, "Section",
   CellTags->"imprimir"],
  Cell[6099, 147, 27997, 580, 699, "Output",
   CellTags->"imprimir"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"SlideShowHeader", 34611, 748},
 {"imprimir", 34894, 755}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[1464, 33, 4250, 94, 46, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[5717, 129, 49, 1, 100, "Title",
 CellTags->"imprimir"],
Cell[5769, 132, 188, 7, 127, "Subtitle",
 CellTags->"imprimir"],
Cell[5960, 141, 64, 1, 43, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[6027, 144, 69, 1, 71, "Section",
 CellTags->"imprimir"],
Cell[6099, 147, 27997, 580, 699, "Output",
 CellTags->"imprimir"],
Cell[34099, 729, 64, 1, 43, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature gupNNpdgQaiy5C1cGRE3UJOh *)
