(* 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[     26792,        609]
NotebookOptionsPosition[     26202,        570]
NotebookOutlinePosition[     27329,        611]
CellTagsIndexPosition[     27224,        605]
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["Funci\[OAcute]n 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["Funci\[OAcute]n cuadr\[AAcute]tica (par\[AAcute]bolas)", "Section",
 CellTags->"imprimir"],

Cell[BoxData[
 FormBox[
  TagBox[
   FormBox[
    StyleBox[
     DynamicModuleBox[{$CellContext`cortx$$ = 0, $CellContext`corty$$ = 
      0, $CellContext`funf$$ = 0, $CellContext`resol$$ = 
      0, $CellContext`sime$$ = 0, $CellContext`verti$$ = 0, Typeset`show$$ = 
      True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
      Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
      "\"untitled\"", Typeset`specs$$ = {{{
         Hold[$CellContext`resol$$], 0, 
         Style[
          Row[{"pasos para graficar la funci\[OAcute]n"}], 17, 
          GrayLevel[0]]}, 0, 7, 1}, {{
         Hold[$CellContext`cortx$$], 0, 
         Style[
          
          Row[{"mostrar los cortes eje \!\(\*\nStyleBox[\"x\",\n\
FontSlant->\"Italic\"]\)"}], 17, 
          RGBColor[0, 0, 1]]}, {0, 1}}, {{
         Hold[$CellContext`corty$$], 0, 
         Style[
          
          Row[{"mostrar los cortes eje \!\(\*\nStyleBox[\"y\",\n\
FontSlant->\"Italic\"]\)"}], 17, 
          RGBColor[0.14, 0.5, 0.1]]}, {0, 1}}, {{
         Hold[$CellContext`verti$$], 0, 
         Style[
          Row[{"mostrar el v\[EAcute]rtice"}], 17, 
          RGBColor[1, 0, 0]]}, {0, 1}}, {{
         Hold[$CellContext`sime$$], 0, 
         Style[
          Row[{"mostrar el eje de simetr\[IAcute]a"}], 17, 
          RGBColor[1, 0, 0]]}, {0, 1}}, {{
         Hold[$CellContext`funf$$], 0, 
         Style[
          
          Row[{"mostrar la gr\[AAcute]fica de \!\(\*\nStyleBox[\"f\",\n\
FontSlant->\"Italic\"]\)"}], 17, 
          RGBColor[0, 0.5, 0.75]]}, {0, 1}}, {
        Hold[
         Column[{
           Row[{
             Manipulate`Place[1], 
             Row[{}]}, 
            Spacer[300]], 
           Row[{
             Column[{
               Manipulate`Place[2], 
               Manipulate`Place[3]}], 
             Column[{
               Manipulate`Place[4], 
               Manipulate`Place[5]}]}, 
            Spacer[100]], 
           Manipulate`Place[6]}, Frame -> All]], 
        Manipulate`Dump`ThisIsNotAControl}}, Typeset`size$$ = {
      775., {282.5, 294.5}}, Typeset`update$$ = 0, Typeset`initDone$$, 
      Typeset`skipInitDone$$ = False, $CellContext`resol$37111$$ = 
      0, $CellContext`cortx$37112$$ = False, $CellContext`corty$37113$$ = 
      False, $CellContext`verti$37114$$ = False, $CellContext`sime$37115$$ = 
      False, $CellContext`funf$37116$$ = False}, 
      DynamicBox[Manipulate`ManipulateBoxes[
       2, TraditionalForm, 
        "Variables" :> {$CellContext`cortx$$ = 0, $CellContext`corty$$ = 
          0, $CellContext`funf$$ = 0, $CellContext`resol$$ = 
          0, $CellContext`sime$$ = 0, $CellContext`verti$$ = 0}, 
        "ControllerVariables" :> {
          Hold[$CellContext`resol$$, $CellContext`resol$37111$$, 0], 
          Hold[$CellContext`cortx$$, $CellContext`cortx$37112$$, False], 
          Hold[$CellContext`corty$$, $CellContext`corty$37113$$, False], 
          Hold[$CellContext`verti$$, $CellContext`verti$37114$$, False], 
          Hold[$CellContext`sime$$, $CellContext`sime$37115$$, False], 
          Hold[$CellContext`funf$$, $CellContext`funf$37116$$, 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`a = $CellContext`a1; $CellContext`b = (-2) \
$CellContext`a1 $CellContext`a2; $CellContext`c = \
$CellContext`s[$CellContext`sig, $CellContext`a1] $CellContext`a2^2 + \
$CellContext`a3; $CellContext`temp = 
          Solve[$CellContext`parabola[$CellContext`x] == 0, $CellContext`x, 
            Reals]; $CellContext`cortesx = If[Part[
              Dimensions[$CellContext`temp], 1] != 0, 
            Union[
             ReplaceAll[$CellContext`x, $CellContext`temp]], 
            0]; $CellContext`vert = {
            Rationalize[-($CellContext`b/(2 $CellContext`a))], 
            Rationalize[
             $CellContext`parabola[-($CellContext`b/(2 $CellContext`a))]]}; If[
           And[Part[
              Dimensions[$CellContext`temp], 1] != 0, Part[
              Dimensions[$CellContext`cortesx], 1] == 2], $CellContext`dist = 
            Part[$CellContext`cortesx, 2] - 
             Part[$CellContext`cortesx, 1]; $CellContext`minx = 
            Min[-0.5, Part[$CellContext`cortesx, 1] - 
              0.5 $CellContext`dist]; $CellContext`maxx = 
            Max[0.5, Part[$CellContext`cortesx, 2] + 0.5 $CellContext`dist], 
           
           If[-($CellContext`b/(2 $CellContext`a)) != 
            0, $CellContext`minx = 
             Min[-0.5, -($CellContext`b/(2 $CellContext`a)) - 
               3]; $CellContext`maxx = 
             Max[0.5, -($CellContext`b/(2 $CellContext`a)) + 
               3], $CellContext`minx = -3; $CellContext`maxx = 3]]; 
         If[$CellContext`s[$CellContext`sig, $CellContext`a1] > 
           0, $CellContext`miny = 
            Min[$CellContext`parabola[0] - 
              0.5, -0.5, $CellContext`parabola[-$CellContext`b/(
                2 $CellContext`a)] - 0.5 Abs[
                $CellContext`parabola[-$CellContext`b/(
                 2 $CellContext`a)]]]; $CellContext`maxy = 
            Max[$CellContext`parabola[0] + 0.5, 
              0.5, $CellContext`parabola[-($CellContext`b/(
                 2 $CellContext`a))] + 1.5 Abs[
                 $CellContext`parabola[-($CellContext`b/(
                   2 $CellContext`a))]]], $CellContext`maxy = 
            Max[$CellContext`parabola[0] + 0.5, 
              0.5, $CellContext`parabola[-($CellContext`b/(
                 2 $CellContext`a))] + 0.5 Abs[
                 $CellContext`parabola[-($CellContext`b/(
                   2 $CellContext`a))]]]; $CellContext`miny = 
            Min[$CellContext`parabola[0] - 
              0.5, -0.5, $CellContext`parabola[-($CellContext`b/(
                 2 $CellContext`a))] - 1.5 Abs[
                $CellContext`parabola[-($CellContext`b/(
                  2 $CellContext`a))]]]]; $CellContext`graf = Show[
            If[$CellContext`funf$$ == 1, 
             Plot[
              $CellContext`parabola[$CellContext`x], {$CellContext`x, \
$CellContext`minx - 10, $CellContext`maxx + 10}, PlotStyle -> 
              Directive[Thick, $CellContext`color1]], $CellContext`punto3], 
            If[$CellContext`cortx$$ == 1, 
             If[Part[
                Dimensions[$CellContext`temp], 1] != 0, 
              Map[$CellContext`punto1, 
               Transpose[{$CellContext`cortesx, 
                 $CellContext`parabola[$CellContext`cortesx]}]], \
$CellContext`punto3], $CellContext`punto3], 
            If[$CellContext`corty$$ == 1, 
             $CellContext`punto4[{0, 
               $CellContext`parabola[0]}], $CellContext`punto3], 
            If[$CellContext`verti$$ == 1, 
             $CellContext`punto2[$CellContext`vert], $CellContext`punto3], 
            If[$CellContext`sime$$ == 1, 
             Graphics[{Red, Dashed, 
               
               Line[{{-($CellContext`b/(2 $CellContext`a)), $CellContext`maxy + 
                  0.5}, {-($CellContext`b/(
                   2 $CellContext`a)), $CellContext`miny - 
                  0.5}}]}], $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`maxx}, \
{$CellContext`miny, $CellContext`maxy}}, AspectRatio -> 1, 
            ImageSize -> {355, 355}]; Column[{
            Text[
             Style[
              Row[{
                Column[{
                  
                  Row[{"Determine los \!\(\*\nStyleBox[\"ceros\",\n\
FontColor->RGBColor[0, 0, 1]]\), \!\(\*\nStyleBox[\"corte\",\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[\"y\",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0, 0.67, 0]]\) y \!\(\*\n\
StyleBox[\"v\[EAcute]rtice\",\nFontColor->RGBColor[1, 0, 0]]\) de la par\
\[AAcute]bola cuya funci\[OAcute]n es"}], 
                  Style[
                   Row[{
                    Spacer[250], 
                    "\!\(\*\nStyleBox[\"f\",\nFontSlant->\"Italic\"]\)(\!\(\*\
\nStyleBox[\"x\",\nFontSlant->\"Italic\"]\))= ", 
                    
                    TraditionalForm[$CellContext`a $CellContext`x^2 + \
$CellContext`b $CellContext`x + $CellContext`c]}], 
                   Italic, $CellContext`color1, Bold]}], Null, 
                Spacer[50], $CellContext`botom}], $CellContext`tam]], 
            Pane[
             Grid[{{$CellContext`graf, 
                Style[
                 Text[
                  Column[{
                    Row[{
                    
                    Row[{"\!\(\*\nStyleBox[\">>\",\nFontColor->RGBColor[1, 0, \
0]]\) identificar coeficientes \!\(\*\nStyleBox[\"a\",\n\
FontSlant->\"Italic\"]\), \!\(\*\nStyleBox[\"b\",\nFontSlant->\"Italic\"]\) y \
\!\(\*\nStyleBox[\"c\",\nFontSlant->\"Italic\"]\):"}], 
                    If[$CellContext`resol$$ < 1, 
                    Row[{}], 
                    
                    Row[{"\!\(\*\nStyleBox[\"a\",\nFontSlant->\"Italic\"]\) = \
", $CellContext`a, 
                    ", \!\(\*\nStyleBox[\"b\",\nFontSlant->\"Italic\"]\) = ", \
$CellContext`b, 
                    " y \!\(\*\nStyleBox[\"c\",\nFontSlant->\"Italic\"]\) = \
", $CellContext`c}, Frame -> True, Background -> LightBlue]]}, "   ", 
                    ImageSize -> $CellContext`anchrow], 
                    Row[{
                    
                    Row[{"\!\(\*\nStyleBox[\">>\",\nFontColor->RGBColor[1, 0, \
0]]\) complear cuadrados:"}], 
                    If[$CellContext`resol$$ < 2, 
                    Row[{}], 
                    
                    Row[{"\!\(\*\nStyleBox[\"f\",\n\
FontSlant->\"Italic\"]\)(\!\(\*\nStyleBox[\"x\",\nFontSlant->\"Italic\"]\)) = \
", 
                    $CellContext`s[$CellContext`sig, 
                    $CellContext`w[$CellContext`a1]], ($CellContext`x - \
$CellContext`a2)^2 + $CellContext`a3}, Frame -> True, Background -> 
                    LightBlue]]}, "            ", 
                    ImageSize -> $CellContext`anchrow], 
                    Row[{
                    
                    Row[{"\!\(\*\nStyleBox[\">>\",\nFontColor->RGBColor[1, 0, \
0]]\) ceros de \!\(\*\nStyleBox[\"f\",\nFontSlant->\"Italic\"]\):"}], 
                    If[$CellContext`resol$$ < 3, 
                    
                    Row[{"resolver la ecuaci\[OAcute]n \!\(\*\n\
StyleBox[\"f\",\nFontSlant->\"Italic\"]\)(\!\(\*\nStyleBox[\"x\",\n\
FontSlant->\"Italic\"]\))=0"}, Frame -> True, Background -> LightRed], 
                    Row[{
                    Column[{
                    Row[{
                    
                    TraditionalForm[$CellContext`a $CellContext`x^2 + \
$CellContext`b $CellContext`x + $CellContext`c], " = 0"}], 
                    If[$CellContext`resol$$ >= 4, 
                    If[Part[
                    Dimensions[$CellContext`temp], 1] == 0, 
                    Row[{"no hay soluci\[OAcute]n real"}], 
                    Row[{"soluci\[OAcute]n: ", 
                    Union[
                    N[
                    ReplaceAll[$CellContext`x, $CellContext`temp]]]}]], 
                    Row[{}]]}]}, Frame -> True, Background -> LightBlue]]}, 
                    "            ", ImageSize -> $CellContext`anchrow], 
                    Row[{
                    
                    Row[{"\!\(\*\nStyleBox[\">>\",\nFontColor->RGBColor[1, 0, \
0]]\) corte eje \!\(\*\nStyleBox[\"y\",\nFontSlant->\"Italic\"]\):"}], 
                    If[$CellContext`resol$$ < 5, 
                    
                    Row[{"encontrar la imagen de 0, \!\(\*\nStyleBox[\"f\",\n\
FontSlant->\"Italic\"]\)(0)"}, Frame -> True, Background -> LightRed], 
                    
                    Row[{"\!\(\*\nStyleBox[\"f\",\n\
FontSlant->\"Italic\"]\)(0) = ", $CellContext`c}, Frame -> True, Background -> 
                    LightBlue]]}, "       ", 
                    ImageSize -> $CellContext`anchrow], 
                    Row[{
                    
                    Row[{"\!\(\*\nStyleBox[\">>\",\nFontColor->RGBColor[1, 0, \
0]]\) v\[EAcute]rtice"}], 
                    If[$CellContext`resol$$ < 6, 
                    
                    Row[{"hallar \!\(\*\nStyleBox[\"-\",\nFontSlant->\"Italic\
\"]\)\!\(\*\nStyleBox[FractionBox[\"b\", \n  RowBox[{\"2\", \"a\"}]],\n\
FontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\"]\)y\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\"]\)\!\(\*Cell[TextData[Cell[BoxData[\nFormBox[\n\n  \
RowBox[{\"f\", \"(\", \n\n   RowBox[{\"-\", \nFractionBox[\"b\", \n\
RowBox[{\"2\", \"a\"}]]}], \")\"}], \n  TraditionalForm]]]]]\)"}, Frame -> 
                    True, Background -> LightRed], 
                    Row[{
                    Column[{
                    
                    Row[{"\!\(\*\nStyleBox[\"-\",\nFontSlant->\"Italic\"]\)\!\
\(\*\nStyleBox[FractionBox[\"b\", \n  RowBox[{\"2\", \"a\"}]],\n\
FontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \",\nFontSlant->\"Italic\"]\)\!\(\
\*\nStyleBox[\"=\",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\" \",\n\
FontSlant->\"Italic\"]\)", 
                    Rationalize[-($CellContext`b/(2 $CellContext`a))]}], 
                    
                    Row[{"\!\(\*Cell[TextData[Cell[BoxData[\nFormBox[\n\n  \
RowBox[{\"f\", \"(\", \n\n   RowBox[{\"-\", \nFractionBox[\"b\", \n\
RowBox[{\"2\", \"a\"}]]}], \")\"}], \n  TraditionalForm]]]]]\)= ", 
                    Rationalize[
                    $CellContext`parabola[-($CellContext`b/(
                    2 $CellContext`a))]]}]}]}, Frame -> True, Background -> 
                    LightBlue]]}, "                  ", 
                    ImageSize -> $CellContext`anchrow], 
                    Row[{
                    
                    Row[{"\!\(\*\nStyleBox[\">>\",\nFontColor->RGBColor[1, 0, \
0]]\) eje de simetr\[IAcute]a"}], 
                    If[$CellContext`resol$$ < 7, 
                    
                    Row[{"recta vertical que pasa por el v\[EAcute]rtice"}, 
                    Frame -> True, Background -> LightRed], 
                    Row[{
                    "\!\(\*\nStyleBox[\"x\",\nFontSlant->\"Italic\"]\) = ", 
                    Rationalize[-($CellContext`b/(2 $CellContext`a))]}, Frame -> 
                    True, Background -> LightBlue]]}, "  ", 
                    ImageSize -> $CellContext`anchrow]}, Frame -> 
                   All]], $CellContext`tam - 4]}}, ItemSize -> All, 
              Alignment -> {Left, Top}, Frame -> All], 
             ImageSize -> {$CellContext`anc, $CellContext`alto}]}]), 
        "Specifications" :> {{{$CellContext`resol$$, 0, 
            Style[
             Row[{"pasos para graficar la funci\[OAcute]n"}], 17, 
             GrayLevel[0]]}, 0, 7, 1, ControlPlacement -> 
           1}, {{$CellContext`cortx$$, 0, 
            Style[
             
             Row[{"mostrar los cortes eje \!\(\*\nStyleBox[\"x\",\n\
FontSlant->\"Italic\"]\)"}], 17, 
             RGBColor[0, 0, 1]]}, {0, 1}, ControlType -> Checkbox, 
           ControlPlacement -> 2}, {{$CellContext`corty$$, 0, 
            Style[
             
             Row[{"mostrar los cortes eje \!\(\*\nStyleBox[\"y\",\n\
FontSlant->\"Italic\"]\)"}], 17, 
             RGBColor[0.14, 0.5, 0.1]]}, {0, 1}, ControlType -> Checkbox, 
           ControlPlacement -> 3}, {{$CellContext`verti$$, 0, 
            Style[
             Row[{"mostrar el v\[EAcute]rtice"}], 17, 
             RGBColor[1, 0, 0]]}, {0, 1}, ControlType -> Checkbox, 
           ControlPlacement -> 4}, {{$CellContext`sime$$, 0, 
            Style[
             Row[{"mostrar el eje de simetr\[IAcute]a"}], 17, 
             RGBColor[1, 0, 0]]}, {0, 1}, ControlType -> Checkbox, 
           ControlPlacement -> 5}, {{$CellContext`funf$$, 0, 
            Style[
             
             Row[{"mostrar la gr\[AAcute]fica de \!\(\*\nStyleBox[\"f\",\n\
FontSlant->\"Italic\"]\)"}], 17, 
             RGBColor[0, 0.5, 0.75]]}, {0, 1}, ControlType -> Checkbox, 
           ControlPlacement -> 6}, 
          Column[{
            Row[{
              Manipulate`Place[1], 
              Row[{}]}, 
             Spacer[300]], 
            Row[{
              Column[{
                Manipulate`Place[2], 
                Manipulate`Place[3]}], 
              Column[{
                Manipulate`Place[4], 
                Manipulate`Place[5]}]}, 
             Spacer[100]], 
            Manipulate`Place[6]}, Frame -> All]}, 
        "Options" :> {Deployed -> True}, "DefaultOptions" :> {}],
       ImageSizeCache->{830., {374., 384.}},
       SingleEvaluation->True],
      Deinitialization:>None,
      DynamicModuleValues:>{},
      Initialization:>({$CellContext`a1 = 3/2, $CellContext`a2 = 
         1, $CellContext`s[
           Pattern[$CellContext`s, 
            Blank[]], 
           Pattern[$CellContext`a, 
            Blank[]]] := 
         If[$CellContext`s == 
           "+ ", $CellContext`a, -$CellContext`a], $CellContext`sig = 
         "+ ", $CellContext`a3 = (-3)/2, $CellContext`parabola[
           Pattern[$CellContext`x, 
            
            Blank[]]] := $CellContext`s[$CellContext`sig, $CellContext`a1] \
($CellContext`x - $CellContext`a2)^2 + $CellContext`a3, $CellContext`color1 = 
         RGBColor[0, 0.5, 0.75], $CellContext`punto3 = Graphics[{
            AbsolutePointSize[0.1], 
            GrayLevel[0], 
            Point[{0, 0}]}], $CellContext`punto1[
           Pattern[$CellContext`x, 
            Blank[]]] := Graphics[{Thick, 
            AbsolutePointSize[7], Blue, 
            Point[$CellContext`x]}], $CellContext`punto4[
           Pattern[$CellContext`x, 
            Blank[]]] := Graphics[{Thick, 
            AbsolutePointSize[7], Green, 
            Point[$CellContext`x]}], $CellContext`punto2[
           Pattern[$CellContext`x, 
            Blank[]]] := Graphics[{Thick, 
            AbsolutePointSize[7], Red, 
            Point[$CellContext`x]}], $CellContext`botom = Button[
           Text[
            Style[
            "nueva funci\[OAcute]n", $CellContext`tam]], {$CellContext`a1 = 
             RandomChoice[
               Table[
                
                Rationalize[$CellContext`i], {$CellContext`i, 0.5, 2, 
                 0.5}]]; $CellContext`a2 = RandomChoice[
               Table[
                
                Rationalize[$CellContext`i], {$CellContext`i, -2, 2, 
                 0.5}]]; $CellContext`a3 = RandomChoice[
               Table[
                
                Rationalize[$CellContext`i], {$CellContext`i, -2, 2, 
                 0.5}]]; $CellContext`sig = 
             RandomChoice[{
               "+ ", "- "}]; $CellContext`resol$$ = ($CellContext`cortx$$ = \
($CellContext`corty$$ = ($CellContext`verti$$ = ($CellContext`sime$$ = \
($CellContext`funf$$ = 0))))); Null}], $CellContext`tam = 
         20, $CellContext`anchrow = 356, $CellContext`w[
           Pattern[$CellContext`a, 
            Blank[]]] := If[$CellContext`a == 1, 
           Row[{""}], $CellContext`a], $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[5985, 141, 64, 1, 43, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[26134, 567, 64, 1, 43, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"]},
 "imprimir"->{
  Cell[5717, 129, 74, 1, 100, "Title",
   CellTags->"imprimir"],
  Cell[5794, 132, 188, 7, 127, "Subtitle",
   CellTags->"imprimir"],
  Cell[6052, 144, 96, 1, 71, "Section",
   CellTags->"imprimir"],
  Cell[6151, 147, 19980, 418, 779, "Output",
   CellTags->"imprimir"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"SlideShowHeader", 26646, 586},
 {"imprimir", 26929, 593}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[1464, 33, 4250, 94, 46, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[5717, 129, 74, 1, 100, "Title",
 CellTags->"imprimir"],
Cell[5794, 132, 188, 7, 127, "Subtitle",
 CellTags->"imprimir"],
Cell[5985, 141, 64, 1, 43, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[6052, 144, 96, 1, 71, "Section",
 CellTags->"imprimir"],
Cell[6151, 147, 19980, 418, 779, "Output",
 CellTags->"imprimir"],
Cell[26134, 567, 64, 1, 43, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature fwpbYY21ISkACBwsSrNWaRZX *)
