(* 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[     41136,        880]
NotebookOptionsPosition[     40546,        841]
NotebookOutlinePosition[     41673,        882]
CellTagsIndexPosition[     41568,        876]
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["Transformaciones de 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["Transformaciones de funciones", "Section",
 CellTags->"imprimir"],

Cell[BoxData[
 FormBox[
  TagBox[
   FormBox[
    StyleBox[
     DynamicModuleBox[{$CellContext`a$$ = 0, $CellContext`b$$ = 
      0, $CellContext`c$$ = 1, $CellContext`d$$ = 1, $CellContext`e$$ = 
      1, $CellContext`f$$ = 1, $CellContext`fun$$ = 1, $CellContext`funf$$ = 
      1, $CellContext`fung$$ = 1, $CellContext`punf$$ = 
      1, $CellContext`pung$$ = 1, $CellContext`zoom$$ = 1, Typeset`show$$ = 
      True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
      Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
      "\"untitled\"", Typeset`specs$$ = {{{
         Hold[$CellContext`fun$$], 1, 
         Style["tipo de funci\[OAcute]n", 
          RGBColor[0, 0.5, 0.75], 20]}, {
        1 -> "funci\[OAcute]n lineal: \!\(\*\nStyleBox[\"y\",\n\
FontSlant->\"Italic\"]\) = \!\(\*\nStyleBox[\"x\",\nFontSlant->\"Italic\"]\)",
          2 -> "funci\[OAcute]n cuadr\[AAcute]tica: \!\(\*\nStyleBox[\"y\",\n\
FontSlant->\"Italic\"]\) = \!\(\*\nStyleBox[SuperscriptBox[\n  \
StyleBox[\"x\",\nFontSlant->\"Italic\"], \"2\"],\nFontSlant->\"Italic\"]\)", 
         3 -> "funci\[OAcute]n ra\[IAcute]z: \!\(\*\nStyleBox[\"y\",\n\
FontSlant->\"Italic\"]\) = \!\(\*\nStyleBox[SqrtBox[\n  StyleBox[\"x\",\n\
FontSlant->\"Italic\"]],\nFontSlant->\"Italic\"]\)", 4 -> 
         "funci\[OAcute]n a trozos"}}, {{
         Hold[$CellContext`funf$$], 1, 
         Style[
          
          Row[{"funci\[OAcute]n \!\(\*\nStyleBox[\"f\",\n\
FontSlant->\"Italic\"]\)"}], 
          RGBColor[0, 0.5, 0.75]]}, {0, 1}}, {{
         Hold[$CellContext`punf$$], 1, 
         Style[
          Row[{"puntos"}], 
          RGBColor[0, 0.5, 0.75]]}, {0, 1}}, {{
         Hold[$CellContext`fung$$], 1, 
         Style[
          
          Row[{"funci\[OAcute]n \!\(\*\nStyleBox[\"g\",\n\
FontSlant->\"Italic\"]\)"}], 
          RGBColor[0.14, 0.5, 0.1]]}, {0, 1}}, {{
         Hold[$CellContext`pung$$], 1, 
         Style[
          Row[{"puntos"}], 
          RGBColor[0.14, 0.5, 0.1]]}, {0, 1}}, {{
         Hold[$CellContext`zoom$$], 1, "zoom"}, {
        0.25 -> "-", 0.5 -> "-", 1 -> "\[CenterDot]", 2 -> "+", 3 -> "+"}}, {{
         Hold[$CellContext`a$$], 0, ""}, -5, 5, 1}, {{
         Hold[$CellContext`b$$], 0, ""}, -5, 5, 1}, {{
         Hold[$CellContext`e$$], 1, 
         Row[{
          "\!\(\*\nStyleBox[\"reflexi\[OAcute]n\",\nFontColor->RGBColor[0, \
0.67, 0]]\)\!\(\*\nStyleBox[\" \",\nFontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\n\
StyleBox[\"eje\",\nFontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\nStyleBox[\"x\",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0, 0.67, 0]]\)", 
           Spacer[20], 
           Style[
           "\!\(\*\nStyleBox[\"-\",\nFontColor->RGBColor[1, 0, 0]]\)\!\(\*\n\
StyleBox[\"f\",\nFontSlant->\"Italic\"]\)(\!\(\*\nStyleBox[\"x\",\n\
FontSlant->\"Italic\"]\))", 
            RGBColor[0, 0.5, 0.75], 20]}]}, {1, -1}}, {{
         Hold[$CellContext`f$$], 1, 
         Row[{
          "\!\(\*\nStyleBox[\"reflexi\[OAcute]n\",\nFontColor->RGBColor[0.5, \
0, 0.5]]\)\!\(\*\nStyleBox[\" \",\nFontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\n\
StyleBox[\"eje\",\nFontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\" \",\
\nFontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\"y\",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\)", 
           Spacer[20], 
           Style[
           "\!\(\*\nStyleBox[\"f\",\nFontSlant->\"Italic\"]\)(\!\(\*\n\
StyleBox[\"-\",\nFontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"x\",\n\
FontSlant->\"Italic\"]\))", 
            RGBColor[0, 0.5, 0.75], 20]}]}, {1, -1}}, {{
         Hold[$CellContext`c$$], 1, ""}, {
        Rational[1, 3] -> " \!\(\*FractionBox[\(1\), \(3\)]\) ", 
         Rational[1, 2] -> " \!\(\*FractionBox[\(1\), \(2\)]\) ", 1 -> " 1 ", 
         2 -> " 2 ", 3 -> " 3 "}}, {{
         Hold[$CellContext`d$$], 1, ""}, {
        Rational[1, 3] -> " \!\(\*FractionBox[\(1\), \(3\)]\) ", 
         Rational[1, 2] -> " \!\(\*FractionBox[\(1\), \(2\)]\) ", 1 -> " 1 ", 
         2 -> " 2 ", 3 -> " 3 "}}, {
        Hold[
         Column[{
           Row[{
             Manipulate`Place[1], 
             Row[{
               Column[{
                 Manipulate`Place[2], 
                 Manipulate`Place[3]}], 
               Column[{
                 Manipulate`Place[4], 
                 Manipulate`Place[5]}]}, 
              Spacer[10]], 
             Manipulate`Place[6]}, 
            Spacer[80]], 
           Row[{
             Column[{
               
               Row[{"\!\(\*\nStyleBox[\"desplazamiento\",\n\
FontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\nStyleBox[\"horizontal\",\n\
FontColor->RGBColor[0, 0.67, 0]]\)", 
                 Spacer[20], 
                 Style[
                 "\!\(\*\nStyleBox[\"f\",\nFontSlant->\"Italic\"]\)(\!\(\*\n\
StyleBox[\"x\",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \",\nFontSlant->\
\"Italic\"]\)\!\(\*\nStyleBox[\"-\",\nFontSlant->\"Italic\"]\)\!\(\*\n\
StyleBox[\" \",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\"a\",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\))", 
                  RGBColor[0, 0.5, 0.75], 20]}], 
               Manipulate`Place[7]}], 
             Column[{
               
               Row[{"\!\(\*\nStyleBox[\"desplazamiento\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\"vertical\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)", 
                 Spacer[20], 
                 Style[
                 "\!\(\*\nStyleBox[\"f\",\nFontSlant->\"Italic\"]\)(\!\(\*\n\
StyleBox[\"x\",\nFontSlant->\"Italic\"]\)) + \!\(\*\nStyleBox[\"b\",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\)", 
                  RGBColor[0, 0.5, 0.75], 20]}], 
               Manipulate`Place[8]}]}, 
            Spacer[100]], 
           Row[{
             Manipulate`Place[9], 
             Manipulate`Place[10]}, 
            Spacer[270]], 
           Row[{
             Column[{
               
               Row[{"\!\(\*\nStyleBox[\"Expansi\[OAcute]n\",\n\
FontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\nStyleBox[\"y\",\n\
FontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\nStyleBox[\"contracci\[OAcute]n\",\n\
FontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\nStyleBox[\"eje\",\n\
FontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\nStyleBox[\"x\",\n\
FontColor->RGBColor[0, 0.67, 0]]\)", 
                 Spacer[20], 
                 Style[
                 "\!\(\*\nStyleBox[\"f\",\nFontSlant->\"Italic\"]\)(\!\(\*\n\
StyleBox[\"c\",\nFontColor->RGBColor[1, 0, 0]]\)\[CenterDot]\!\(\*\nStyleBox[\
\"x\",\nFontSlant->\"Italic\"]\))", 
                  RGBColor[0, 0.5, 0.75], 20]}], 
               Manipulate`Place[11]}], 
             Column[{
               
               Row[{"\!\(\*\nStyleBox[\"Expansi\[OAcute]n\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\"y\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\"contracci\[OAcute]n\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\"eje\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\"y\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)", 
                 Spacer[20], 
                 Style[
                 "\!\(\*\nStyleBox[\"d\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"\[CenterDot]\",\n\
FontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\"f\",\n\
FontSlant->\"Italic\"]\)(\!\(\*\nStyleBox[\"x\",\nFontSlant->\"Italic\"]\))", 
                  RGBColor[0, 0.5, 0.75], 20]}], 
               Manipulate`Place[12]}]}, 
            Spacer[200]]}, Frame -> All]], 
        Manipulate`Dump`ThisIsNotAControl}}, Typeset`size$$ = {
      775., {210., 220.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
      Typeset`skipInitDone$$ = False, $CellContext`fun$34078$$ = 
      False, $CellContext`funf$34079$$ = False, $CellContext`punf$34080$$ = 
      False, $CellContext`fung$34081$$ = False, $CellContext`pung$34082$$ = 
      False, $CellContext`zoom$34083$$ = False, $CellContext`a$34084$$ = 
      0, $CellContext`b$34085$$ = 0, $CellContext`e$34086$$ = 
      False, $CellContext`f$34087$$ = False, $CellContext`c$34088$$ = 
      False, $CellContext`d$34089$$ = False}, 
      DynamicBox[Manipulate`ManipulateBoxes[
       2, TraditionalForm, 
        "Variables" :> {$CellContext`a$$ = 0, $CellContext`b$$ = 
          0, $CellContext`c$$ = 1, $CellContext`d$$ = 1, $CellContext`e$$ = 
          1, $CellContext`f$$ = 1, $CellContext`fun$$ = 
          1, $CellContext`funf$$ = 1, $CellContext`fung$$ = 
          1, $CellContext`punf$$ = 1, $CellContext`pung$$ = 
          1, $CellContext`zoom$$ = 1}, "ControllerVariables" :> {
          Hold[$CellContext`fun$$, $CellContext`fun$34078$$, False], 
          Hold[$CellContext`funf$$, $CellContext`funf$34079$$, False], 
          Hold[$CellContext`punf$$, $CellContext`punf$34080$$, False], 
          Hold[$CellContext`fung$$, $CellContext`fung$34081$$, False], 
          Hold[$CellContext`pung$$, $CellContext`pung$34082$$, False], 
          Hold[$CellContext`zoom$$, $CellContext`zoom$34083$$, False], 
          Hold[$CellContext`a$$, $CellContext`a$34084$$, 0], 
          Hold[$CellContext`b$$, $CellContext`b$34085$$, 0], 
          Hold[$CellContext`e$$, $CellContext`e$34086$$, False], 
          Hold[$CellContext`f$$, $CellContext`f$34087$$, False], 
          Hold[$CellContext`c$$, $CellContext`c$34088$$, False], 
          Hold[$CellContext`d$$, $CellContext`d$34089$$, 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`puntos1 = Which[
            
            Or[$CellContext`fun$$ == 1, $CellContext`fun$$ == 
             2], $CellContext`datax = {-1, 0, 1}; Graphics[{Blue, 
               PointSize[0.02], 
               Map[Point, 
                Transpose[{$CellContext`datax, 
                  Map[$CellContext`img1, $CellContext`datax]}]], 
               Text["A", {
                 Part[$CellContext`datax, 1], 
                 $CellContext`img1[
                  Part[$CellContext`datax, 1]]}, {-1, 1}], 
               Text["B", {
                 Part[$CellContext`datax, 2], 
                 $CellContext`img1[
                  Part[$CellContext`datax, 2]]}, {-1, 1}], 
               Text["C", {
                 Part[$CellContext`datax, 3], 
                 $CellContext`img1[
                  Part[$CellContext`datax, 3]]}, {-1, 
                1}]}], $CellContext`fun$$ == 3, $CellContext`datax = {0, 1}; 
            Graphics[{Blue, 
               PointSize[0.02], 
               Map[Point, 
                Transpose[{$CellContext`datax, 
                  Map[$CellContext`img1, $CellContext`datax]}]], 
               Text["A", {
                 Part[$CellContext`datax, 1], 
                 $CellContext`img1[
                  Part[$CellContext`datax, 1]]}, {-1, 1}], 
               Point[{
                 Part[$CellContext`datax, 2], 
                 $CellContext`img1[
                  Part[$CellContext`datax, 2]]}], 
               Text["B", {
                 Part[$CellContext`datax, 2], 
                 $CellContext`img1[
                  Part[$CellContext`datax, 2]]}, {-1, 
                1}]}], $CellContext`fun$$ == 
            4, $CellContext`datax = {$CellContext`a6, $CellContext`a7, \
$CellContext`a8, $CellContext`a9, $CellContext`a10}; Graphics[{Blue, 
               PointSize[0.02], 
               Map[Point, 
                Transpose[{$CellContext`datax, 
                  Map[$CellContext`img1, $CellContext`datax]}]], 
               Text["A", {$CellContext`a6, 
                 $CellContext`trozos[$CellContext`a6]}, {-1, 1}], 
               Text["B", {$CellContext`a7, 
                 $CellContext`trozos[$CellContext`a7]}, {-1, 1}], 
               Text["C", {$CellContext`a8, 
                 $CellContext`trozos[$CellContext`a8]}, {-1, 1}], 
               Text["D", {$CellContext`a9, 
                 $CellContext`trozos[$CellContext`a9]}, {-1, 1}], 
               Text["E", {$CellContext`a10, 
                 $CellContext`trozos[$CellContext`a10]}, {-1, 
                1}]}]]; $CellContext`puntos2 = Which[
            
            Or[$CellContext`fun$$ == 1, $CellContext`fun$$ == 
             2], $CellContext`datax = {-1, 0, 1}; $CellContext`datax2 = 
             Map[$CellContext`x2, $CellContext`datax]; Graphics[{Red, 
               PointSize[0.02], 
               Map[Point, 
                Transpose[{$CellContext`datax2, 
                  Map[$CellContext`img2, $CellContext`datax2]}]], 
               Text["A", {
                 Part[$CellContext`datax2, 1], 
                 $CellContext`img2[
                  Part[$CellContext`datax2, 1]]}, {-1, 1}], 
               Text["B", {
                 Part[$CellContext`datax2, 2], 
                 $CellContext`img2[
                  Part[$CellContext`datax2, 2]]}, {-1, 1}], 
               Text["C", {
                 Part[$CellContext`datax2, 3], 
                 $CellContext`img2[
                  Part[$CellContext`datax2, 3]]}, {-1, 
                1}]}], $CellContext`fun$$ == 
            3, $CellContext`datax = {0, 1}; $CellContext`datax2 = 
             Map[$CellContext`x2, $CellContext`datax]; Graphics[{Red, 
               PointSize[0.02], 
               Map[Point, 
                Transpose[{$CellContext`datax2, 
                  Map[$CellContext`img2, $CellContext`datax2]}]], 
               Text["A", {
                 Part[$CellContext`datax2, 1], 
                 $CellContext`img2[
                  Part[$CellContext`datax2, 1]]}, {-1, 1}], 
               Text["B", {
                 Part[$CellContext`datax2, 2], 
                 $CellContext`img2[
                  Part[$CellContext`datax2, 2]]}, {-1, 
                1}]}], $CellContext`fun$$ == 
            4, $CellContext`datax = {$CellContext`a6, $CellContext`a7, \
$CellContext`a8, $CellContext`a9, $CellContext`a10}; $CellContext`datax2 = 
             Map[$CellContext`x2, $CellContext`datax]; Graphics[{Red, 
               PointSize[0.02], 
               Map[Point, 
                Transpose[{$CellContext`datax2, 
                  Map[$CellContext`img2, $CellContext`datax2]}]], 
               Text["A", {
                 Part[$CellContext`datax2, 1], 
                 $CellContext`img2[
                  Part[$CellContext`datax2, 1]]}, {-1, 1}], 
               Text["B", {
                 Part[$CellContext`datax2, 2], 
                 $CellContext`img2[
                  Part[$CellContext`datax2, 2]]}, {-1, 1}], 
               Text["C", {
                 Part[$CellContext`datax2, 3], 
                 $CellContext`img2[
                  Part[$CellContext`datax2, 3]]}, {-1, 1}], 
               Text["D", {
                 Part[$CellContext`datax2, 4], 
                 $CellContext`img2[
                  Part[$CellContext`datax2, 4]]}, {-1, 1}], 
               Text["E", {
                 Part[$CellContext`datax2, 5], 
                 $CellContext`img2[
                  Part[$CellContext`datax2, 5]]}, {-1, 
                1}]}]]; $CellContext`imagen = 
          Which[$CellContext`fun$$ == 1, $CellContext`x, $CellContext`fun$$ == 
            2, $CellContext`x^2, $CellContext`fun$$ == 3, $CellContext`x^
            Rational[1, 2], $CellContext`fun$$ == 4, 
            $CellContext`trozos[$CellContext`x]]; $CellContext`g = 
          Which[$CellContext`fun$$ == 
            1, $CellContext`e$$ $CellContext`d$$ ($CellContext`f$$ \
$CellContext`c$$ ($CellContext`x - $CellContext`a$$)) + $CellContext`b$$, \
$CellContext`fun$$ == 
            2, $CellContext`e$$ $CellContext`d$$ ($CellContext`f$$ \
$CellContext`c$$ ($CellContext`x - $CellContext`a$$))^2 + $CellContext`b$$, \
$CellContext`fun$$ == 
            3, $CellContext`e$$ $CellContext`d$$ ($CellContext`f$$ \
$CellContext`c$$ ($CellContext`x - $CellContext`a$$))^
              Rational[1, 2] + $CellContext`b$$, $CellContext`fun$$ == 
            4, $CellContext`e$$ $CellContext`d$$ \
$CellContext`trozos[$CellContext`f$$ $CellContext`c$$ ($CellContext`x - \
$CellContext`a$$)] + $CellContext`b$$]; $CellContext`funcion := 
          Which[$CellContext`fun$$ == 1, $CellContext`x, $CellContext`fun$$ == 
            2, $CellContext`x^2, $CellContext`fun$$ == 3, $CellContext`x^
            Rational[1, 2], $CellContext`fun$$ == 4, 
            Row[{"funci\[OAcute]n a trozos"}]]; $CellContext`graf = Show[
            If[$CellContext`fung$$ == 1, 
             
             Plot[$CellContext`g, {$CellContext`x, $CellContext`minx \
$CellContext`zoom$$, $CellContext`maxx $CellContext`zoom$$}, PlotStyle -> 
              Directive[Thick, $CellContext`color2]], $CellContext`punto3], 
            If[$CellContext`funf$$ == 1, 
             
             Plot[$CellContext`imagen, {$CellContext`x, $CellContext`minx \
$CellContext`zoom$$, $CellContext`maxx $CellContext`zoom$$}, PlotStyle -> 
              Directive[Thick, $CellContext`color1]], $CellContext`punto3], 
            
            If[$CellContext`pung$$ == 
             1, $CellContext`puntos2, $CellContext`punto3], 
            
            If[$CellContext`punf$$ == 
             1, $CellContext`puntos1, $CellContext`punto3], Ticks -> 
            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`zoom$$, \
$CellContext`maxx $CellContext`zoom$$}, {$CellContext`miny \
$CellContext`zoom$$, $CellContext`maxy $CellContext`zoom$$}}, AspectRatio -> 
            1, ImageSize -> {355, 355}]; Column[{
            Text[
             Style[
              
              Row[{"Interactua con los controles para transformar la funci\
\[OAcute]n \!\(\*\nStyleBox[\"f\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[0., 0.5019607843137255, 0.7529411764705882]]\) en la \
funci\[OAcute]n \!\(\*\nStyleBox[\"g\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[0, 0.67, 0]]\)", "       ", 
                If[$CellContext`fun$$ == 4, $CellContext`botom, 
                 Row[{}]]}], $CellContext`tam]], 
            Pane[
             Grid[{{$CellContext`graf, 
                Column[{
                  Style[
                   Row[{
                    
                    Sum[$CellContext`a6, $CellContext`a9, $CellContext`b6, \
$CellContext`b7, $CellContext`b8, $CellContext`b9, $CellContext`b10]}], 
                   White], 
                  Style[
                   
                   Row[{"\!\(\*\nStyleBox[\"f\",\nFontSlant->\"Italic\"]\)(\!\
\(\*\nStyleBox[\"x\",\nFontSlant->\"Italic\"]\)) = ", $CellContext`funcion}], \
$CellContext`color1], Null, 
                  Row[{
                    Style[
                    
                    Row[{"g(\!\(\*\nStyleBox[\"x\",\n\
FontSlant->\"Italic\"]\)) = "}], $CellContext`color2], 
                    Style[
                    
                    Row[{$CellContext`e$$ $CellContext`w[$CellContext`d$$], 
                    " \!\(\*\nStyleBox[\"f\",\nFontSlant->\"Italic\"]\)(", \
$CellContext`f$$ $CellContext`w[$CellContext`c$$], 
                    
                    If[$CellContext`f$$ $CellContext`c$$ != 1, "(", 
                    ""], $CellContext`x - $CellContext`a$$, 
                    If[$CellContext`f$$ $CellContext`c$$ != 1, "))", ")"], 
                    If[$CellContext`b$$ == 0, "", 
                    $CellContext`p1[$CellContext`b$$]]}], \
$CellContext`color1]}], 
                  If[$CellContext`fun$$ != 4, 
                   Column[{
                    Row[{
                    Style[
                    
                    Row[{"g(\!\(\*\nStyleBox[\"x\",\n\
FontSlant->\"Italic\"]\)) = ", 
                    $CellContext`img2[$CellContext`x]}], \
$CellContext`color2]}]}], 
                   Row[{}]]}]}}, ItemSize -> All, Alignment -> {Left, Top}, 
              Frame -> All], 
             ImageSize -> {$CellContext`anc, $CellContext`alto}]}]), 
        "Specifications" :> {{{$CellContext`fun$$, 1, 
            Style["tipo de funci\[OAcute]n", 
             RGBColor[0, 0.5, 0.75], 20]}, {
           1 -> "funci\[OAcute]n lineal: \!\(\*\nStyleBox[\"y\",\nFontSlant->\
\"Italic\"]\) = \!\(\*\nStyleBox[\"x\",\nFontSlant->\"Italic\"]\)", 2 -> 
            "funci\[OAcute]n cuadr\[AAcute]tica: \!\(\*\nStyleBox[\"y\",\n\
FontSlant->\"Italic\"]\) = \!\(\*\nStyleBox[SuperscriptBox[\n  \
StyleBox[\"x\",\nFontSlant->\"Italic\"], \"2\"],\nFontSlant->\"Italic\"]\)", 
            3 -> "funci\[OAcute]n ra\[IAcute]z: \!\(\*\nStyleBox[\"y\",\n\
FontSlant->\"Italic\"]\) = \!\(\*\nStyleBox[SqrtBox[\n  StyleBox[\"x\",\n\
FontSlant->\"Italic\"]],\nFontSlant->\"Italic\"]\)", 4 -> 
            "funci\[OAcute]n a trozos"}, ControlType -> PopupMenu, 
           ControlPlacement -> 1}, {{$CellContext`funf$$, 1, 
            Style[
             
             Row[{"funci\[OAcute]n \!\(\*\nStyleBox[\"f\",\n\
FontSlant->\"Italic\"]\)"}], 
             RGBColor[0, 0.5, 0.75]]}, {0, 1}, ControlType -> Checkbox, 
           ControlPlacement -> 2}, {{$CellContext`punf$$, 1, 
            Style[
             Row[{"puntos"}], 
             RGBColor[0, 0.5, 0.75]]}, {0, 1}, ControlType -> Checkbox, 
           ControlPlacement -> 3}, {{$CellContext`fung$$, 1, 
            Style[
             
             Row[{"funci\[OAcute]n \!\(\*\nStyleBox[\"g\",\n\
FontSlant->\"Italic\"]\)"}], 
             RGBColor[0.14, 0.5, 0.1]]}, {0, 1}, ControlType -> Checkbox, 
           ControlPlacement -> 4}, {{$CellContext`pung$$, 1, 
            Style[
             Row[{"puntos"}], 
             RGBColor[0.14, 0.5, 0.1]]}, {0, 1}, ControlType -> Checkbox, 
           ControlPlacement -> 5}, {{$CellContext`zoom$$, 1, "zoom"}, {
           0.25 -> "-", 0.5 -> "-", 1 -> "\[CenterDot]", 2 -> "+", 3 -> "+"}, 
           ControlPlacement -> 6}, {{$CellContext`a$$, 0, ""}, -5, 5, 1, 
           ControlPlacement -> 7}, {{$CellContext`b$$, 0, ""}, -5, 5, 1, 
           ControlPlacement -> 8}, {{$CellContext`e$$, 1, 
            
            Row[{"\!\(\*\nStyleBox[\"reflexi\[OAcute]n\",\n\
FontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\nStyleBox[\"eje\",\n\
FontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\nStyleBox[\"x\",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0, 0.67, 0]]\)", 
              Spacer[20], 
              Style[
              "\!\(\*\nStyleBox[\"-\",\nFontColor->RGBColor[1, 0, 0]]\)\!\(\*\
\nStyleBox[\"f\",\nFontSlant->\"Italic\"]\)(\!\(\*\nStyleBox[\"x\",\n\
FontSlant->\"Italic\"]\))", 
               RGBColor[0, 0.5, 0.75], 20]}]}, {1, -1}, ControlType -> 
           Checkbox, ControlPlacement -> 9}, {{$CellContext`f$$, 1, 
            
            Row[{"\!\(\*\nStyleBox[\"reflexi\[OAcute]n\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\"eje\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\"y\",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0.5, 0, 0.5]]\)", 
              Spacer[20], 
              Style[
              "\!\(\*\nStyleBox[\"f\",\nFontSlant->\"Italic\"]\)(\!\(\*\n\
StyleBox[\"-\",\nFontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"x\",\n\
FontSlant->\"Italic\"]\))", 
               RGBColor[0, 0.5, 0.75], 20]}]}, {1, -1}, ControlType -> 
           Checkbox, ControlPlacement -> 10}, {{$CellContext`c$$, 1, ""}, {
           Rational[1, 3] -> " \!\(\*FractionBox[\(1\), \(3\)]\) ", 
            Rational[1, 2] -> " \!\(\*FractionBox[\(1\), \(2\)]\) ", 1 -> 
            " 1 ", 2 -> " 2 ", 3 -> " 3 "}, ControlPlacement -> 
           11}, {{$CellContext`d$$, 1, ""}, {
           Rational[1, 3] -> " \!\(\*FractionBox[\(1\), \(3\)]\) ", 
            Rational[1, 2] -> " \!\(\*FractionBox[\(1\), \(2\)]\) ", 1 -> 
            " 1 ", 2 -> " 2 ", 3 -> " 3 "}, ControlPlacement -> 12}, 
          Column[{
            Row[{
              Manipulate`Place[1], 
              Row[{
                Column[{
                  Manipulate`Place[2], 
                  Manipulate`Place[3]}], 
                Column[{
                  Manipulate`Place[4], 
                  Manipulate`Place[5]}]}, 
               Spacer[10]], 
              Manipulate`Place[6]}, 
             Spacer[80]], 
            Row[{
              Column[{
                
                Row[{"\!\(\*\nStyleBox[\"desplazamiento\",\n\
FontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\nStyleBox[\"horizontal\",\n\
FontColor->RGBColor[0, 0.67, 0]]\)", 
                  Spacer[20], 
                  Style[
                  "\!\(\*\nStyleBox[\"f\",\nFontSlant->\"Italic\"]\)(\!\(\*\n\
StyleBox[\"x\",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \",\nFontSlant->\
\"Italic\"]\)\!\(\*\nStyleBox[\"-\",\nFontSlant->\"Italic\"]\)\!\(\*\n\
StyleBox[\" \",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\"a\",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\))", 
                   RGBColor[0, 0.5, 0.75], 20]}], 
                Manipulate`Place[7]}], 
              Column[{
                
                Row[{"\!\(\*\nStyleBox[\"desplazamiento\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\"vertical\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)", 
                  Spacer[20], 
                  Style[
                  "\!\(\*\nStyleBox[\"f\",\nFontSlant->\"Italic\"]\)(\!\(\*\n\
StyleBox[\"x\",\nFontSlant->\"Italic\"]\)) + \!\(\*\nStyleBox[\"b\",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[1, 0, 0]]\)", 
                   RGBColor[0, 0.5, 0.75], 20]}], 
                Manipulate`Place[8]}]}, 
             Spacer[100]], 
            Row[{
              Manipulate`Place[9], 
              Manipulate`Place[10]}, 
             Spacer[270]], 
            Row[{
              Column[{
                
                Row[{"\!\(\*\nStyleBox[\"Expansi\[OAcute]n\",\n\
FontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\nStyleBox[\"y\",\n\
FontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\nStyleBox[\"contracci\[OAcute]n\",\n\
FontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\nStyleBox[\"eje\",\n\
FontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0.67, 0]]\)\!\(\*\nStyleBox[\"x\",\n\
FontColor->RGBColor[0, 0.67, 0]]\)", 
                  Spacer[20], 
                  Style[
                  "\!\(\*\nStyleBox[\"f\",\nFontSlant->\"Italic\"]\)(\!\(\*\n\
StyleBox[\"c\",\nFontColor->RGBColor[1, 0, 0]]\)\[CenterDot]\!\(\*\nStyleBox[\
\"x\",\nFontSlant->\"Italic\"]\))", 
                   RGBColor[0, 0.5, 0.75], 20]}], 
                Manipulate`Place[11]}], 
              Column[{
                
                Row[{"\!\(\*\nStyleBox[\"Expansi\[OAcute]n\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\"y\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\"contracci\[OAcute]n\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\"eje\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)\!\(\*\nStyleBox[\"y\",\n\
FontColor->RGBColor[0.5, 0, 0.5]]\)", 
                  Spacer[20], 
                  Style[
                  "\!\(\*\nStyleBox[\"d\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"\[CenterDot]\",\n\
FontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\"f\",\n\
FontSlant->\"Italic\"]\)(\!\(\*\nStyleBox[\"x\",\nFontSlant->\"Italic\"]\))", 
                   RGBColor[0, 0.5, 0.75], 20]}], 
                Manipulate`Place[12]}]}, 
             Spacer[200]]}, Frame -> All]}, "Options" :> {Deployed -> True}, 
        "DefaultOptions" :> {}],
       ImageSizeCache->{830., {340., 350.}},
       SingleEvaluation->True],
      Deinitialization:>None,
      DynamicModuleValues:>{},
      Initialization:>({$CellContext`datax = 0, $CellContext`img1[
           Pattern[$CellContext`x$, 
            Blank[]]] := 
         Which[$CellContext`fun$$ == 1, $CellContext`x$, $CellContext`fun$$ == 
           2, $CellContext`x$^2, $CellContext`fun$$ == 3, 
           Sqrt[$CellContext`x$], $CellContext`fun$$ == 4, 
           $CellContext`trozos[$CellContext`x$]], $CellContext`trozos[
           Pattern[$CellContext`x, 
            Blank[]]] := 
         Which[$CellContext`a6 <= $CellContext`x <= $CellContext`a7, \
$CellContext`data = {{$CellContext`a6, $CellContext`b6}, {$CellContext`a7, \
$CellContext`b7}}; InterpolatingPolynomial[$CellContext`data, $CellContext`x], 
           
           Inequality[$CellContext`a7, Less, $CellContext`x, 
            LessEqual, $CellContext`a9], 
           Which[$CellContext`alt == 
            1, $CellContext`data = {{$CellContext`a7, $CellContext`b7}, \
{$CellContext`a8, $CellContext`b8}, {$CellContext`a9, $CellContext`b9}}; 
            InterpolatingPolynomial[$CellContext`data, $CellContext`x], \
$CellContext`alt == 2, 
            Which[$CellContext`a7 <= $CellContext`x <= $CellContext`a8, 
             
             InterpolatingPolynomial[{{$CellContext`a7, $CellContext`b7}, \
{$CellContext`a8, $CellContext`b8}}, $CellContext`x], $CellContext`a8 <= \
$CellContext`x <= $CellContext`a9, 
             
             InterpolatingPolynomial[{{$CellContext`a8, $CellContext`b8}, \
{$CellContext`a9, $CellContext`b9}}, $CellContext`x]]], 
           
           Inequality[$CellContext`a9, Less, $CellContext`x, 
            LessEqual, $CellContext`a10], $CellContext`data = \
{{$CellContext`a9, $CellContext`b9}, {$CellContext`a10, $CellContext`b10}}; 
           InterpolatingPolynomial[$CellContext`data, $CellContext`x]], \
$CellContext`a6 = -5, $CellContext`a7 := $CellContext`a6 + 
          Part[$CellContext`h1, 2], $CellContext`h1 = {2, 2, 2, 
          1}, $CellContext`data = 
         0, $CellContext`b6 = -5, $CellContext`b7 = -2, $CellContext`a9 = 
         2, $CellContext`alt = 
         2, $CellContext`a8 := $CellContext`a6 + Part[$CellContext`h1, 2] + 
          Part[$CellContext`h1, 3], $CellContext`b8 = 0, $CellContext`b9 = 
         1, $CellContext`a10 := $CellContext`a9 + 
          Part[$CellContext`h1, 
            4], $CellContext`b10 = -3, $CellContext`datax2 = 
         0, $CellContext`x2[
           Pattern[$CellContext`x$, 
            Blank[]]] := (
            1/($CellContext`c$$ $CellContext`f$$)) $CellContext`x$ + \
$CellContext`a$$, $CellContext`img2[
           Pattern[$CellContext`x$, 
            Blank[]]] := 
         Which[$CellContext`fun$$ == 
           1, $CellContext`e$$ $CellContext`d$$ ($CellContext`f$$ \
$CellContext`c$$ ($CellContext`x$ - $CellContext`a$$)) + $CellContext`b$$, \
$CellContext`fun$$ == 
           2, $CellContext`e$$ $CellContext`d$$ ($CellContext`f$$ \
$CellContext`c$$ ($CellContext`x$ - $CellContext`a$$))^2 + $CellContext`b$$, \
$CellContext`fun$$ == 
           3, $CellContext`e$$ $CellContext`d$$ 
            Sqrt[$CellContext`f$$ $CellContext`c$$ ($CellContext`x$ - \
$CellContext`a$$)] + $CellContext`b$$, $CellContext`fun$$ == 
           4, $CellContext`e$$ $CellContext`d$$ \
$CellContext`trozos[$CellContext`f$$ $CellContext`c$$ ($CellContext`x$ - \
$CellContext`a$$)] + $CellContext`b$$], $CellContext`minx = -5.5, \
$CellContext`maxx = 5.5, $CellContext`color2 = 
         RGBColor[0.14, 0.5, 0.1], $CellContext`punto3 = Graphics[{
            AbsolutePointSize[0.1], 
            GrayLevel[0], 
            Point[{0, 0}]}], $CellContext`color1 = 
         RGBColor[0, 0.5, 0.75], $CellContext`miny = -5.5, $CellContext`maxy = 
         5.5, $CellContext`botom = Button[
           Text[
            Style[
            "nueva gr\[AAcute]fica", $CellContext`tam]], {$CellContext`h1 = 
             Array[RandomInteger[{1, 2}]& , {4}]; $CellContext`a6 = 
             RandomInteger[{-5, -4}]; $CellContext`b6 = 
             RandomInteger[{-5, 5}]; $CellContext`b7 = 
             RandomInteger[{-5, 5}]; $CellContext`b8 = 
             RandomInteger[{-5, 5}]; $CellContext`a9 = 
             RandomInteger[{1, 2}]; $CellContext`b9 = 
             RandomInteger[{-5, 5}]; $CellContext`b10 = 
             RandomInteger[{-5, 5}]; $CellContext`alt = RandomInteger[{1, 2}]; 
            Null}], $CellContext`tam = 20, $CellContext`w[
           Pattern[$CellContext`a, 
            Blank[]]] := If[$CellContext`a == 1, 
           Row[{""}], $CellContext`a], $CellContext`p1[
           Pattern[$CellContext`a, 
            Blank[]]] := If[$CellContext`a > 0, 
           Row[{"+ ", 
             Abs[$CellContext`a]}], 
           Row[{"- ", 
             Abs[$CellContext`a]}]], $CellContext`anc = 
         775, $CellContext`alto = 400}; 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[5980, 141, 64, 1, 43, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[40478, 838, 64, 1, 43, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"]},
 "imprimir"->{
  Cell[5717, 129, 69, 1, 183, "Title",
   CellTags->"imprimir"],
  Cell[5789, 132, 188, 7, 127, "Subtitle",
   CellTags->"imprimir"],
  Cell[6047, 144, 71, 1, 71, "Section",
   CellTags->"imprimir"],
  Cell[6121, 147, 34354, 689, 711, "Output",
   CellTags->"imprimir"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"SlideShowHeader", 40990, 857},
 {"imprimir", 41273, 864}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[1464, 33, 4250, 94, 46, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[5717, 129, 69, 1, 183, "Title",
 CellTags->"imprimir"],
Cell[5789, 132, 188, 7, 127, "Subtitle",
 CellTags->"imprimir"],
Cell[5980, 141, 64, 1, 43, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[6047, 144, 71, 1, 71, "Section",
 CellTags->"imprimir"],
Cell[6121, 147, 34354, 689, 711, "Output",
 CellTags->"imprimir"],
Cell[40478, 838, 64, 1, 43, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature ywDxllGQ@ZGD6A16n07bqtKU *)
