(* 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[     22956,        535]
NotebookOptionsPosition[     22366,        496]
NotebookOutlinePosition[     23493,        537]
CellTagsIndexPosition[     23388,        531]
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 lineal", "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 lineal (rectas)", "Section",
 CellTags->"imprimir"],

Cell[BoxData[
 FormBox[
  TagBox[
   FormBox[
    StyleBox[
     DynamicModuleBox[{$CellContext`ecuf$$ = 0, $CellContext`funf$$ = 
      0, $CellContext`grid$$ = Open, $CellContext`penf$$ = 
      0, $CellContext`u$$ = {-1, -1}, $CellContext`v$$ = {1, 
      1}, $CellContext`zoom$$ = 1, Typeset`show$$ = True, 
      Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
      Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
      "\"untitled\"", Typeset`specs$$ = {{{
         Hold[$CellContext`funf$$], 0, 
         Style[
          Row[{"mostrar la recta"}], 17, 
          RGBColor[0, 0.5, 0.75]]}, {0, 1}}, {{
         Hold[$CellContext`penf$$], 0, 
         Style[
          Row[{"pasos para hallar la pendiente"}], 17, 
          RGBColor[0.14, 0.5, 0.1]]}, {0, 1}}, {{
         Hold[$CellContext`ecuf$$], 0, 
         Style[
          Row[{"pasos para hallar la ecuaci\[OAcute]n"}], 17, 
          GrayLevel[0]]}, 0, 4, 1}, {{
         Hold[$CellContext`zoom$$], 1, "zoom"}, {
        0.25 -> "-", 0.5 -> "-", 1 -> "\[CenterDot]", 2 -> "+", 3 -> "+"}}, {{
         Hold[$CellContext`grid$$], Open, "puntos"}, {
        Open -> "reales", Integer -> "enteros"}}, {
        Hold[
         Column[{
           Row[{
             Column[{
               Manipulate`Place[1], Null, 
               Manipulate`Place[2], Null, 
               Manipulate`Place[3]}], 
             Column[{
               Manipulate`Place[4], 
               Manipulate`Place[5]}]}, 
            Spacer[200]]}, Frame -> All]], 
        Manipulate`Dump`ThisIsNotAControl}, {{
         Hold[$CellContext`u$$], {-1, -1}}, Automatic}, {{
         Hold[$CellContext`v$$], {1, 1}}, Automatic}}, Typeset`size$$ = {
      775., {210., 222.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
      Typeset`skipInitDone$$ = False, $CellContext`funf$35827$$ = 
      False, $CellContext`penf$35828$$ = False, $CellContext`ecuf$35829$$ = 
      0, $CellContext`zoom$35830$$ = False, $CellContext`grid$35831$$ = 
      False}, 
      DynamicBox[Manipulate`ManipulateBoxes[
       2, TraditionalForm, 
        "Variables" :> {$CellContext`ecuf$$ = 0, $CellContext`funf$$ = 
          0, $CellContext`grid$$ = Open, $CellContext`penf$$ = 
          0, $CellContext`u$$ = {-1, -1}, $CellContext`v$$ = {1, 
           1}, $CellContext`zoom$$ = 1}, "ControllerVariables" :> {
          Hold[$CellContext`funf$$, $CellContext`funf$35827$$, False], 
          Hold[$CellContext`penf$$, $CellContext`penf$35828$$, False], 
          Hold[$CellContext`ecuf$$, $CellContext`ecuf$35829$$, 0], 
          Hold[$CellContext`zoom$$, $CellContext`zoom$35830$$, False], 
          Hold[$CellContext`grid$$, $CellContext`grid$35831$$, 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`u1 = N[
             Round[10 Part[$CellContext`u$$, 1]]]/10; $CellContext`v1 = N[
             Round[10 Part[$CellContext`u$$, 2]]]/10; $CellContext`u2 = N[
             Round[10 Part[$CellContext`v$$, 1]]]/10; $CellContext`v2 = N[
             Round[10 Part[$CellContext`v$$, 2]]]/
           10; $CellContext`temp1 = {$CellContext`u$$, $CellContext`v$$}; 
         If[$CellContext`grid$$ === 
           Integer, {$CellContext`u$$, $CellContext`v$$} = 
           Round[$CellContext`temp1]]; $CellContext`m = 
          Which[$CellContext`u2 != $CellContext`u1, 
            
            Rationalize[($CellContext`v2 - $CellContext`v1)/($CellContext`u2 - \
$CellContext`u1)], True, 0]; $CellContext`recta = 
          If[$CellContext`u1 != $CellContext`u2, 
            
            InterpolatingPolynomial[{{$CellContext`u1, $CellContext`v1}, \
{$CellContext`u2, $CellContext`v2}}, $CellContext`x], 0]; $CellContext`graf = 
          Show[
            If[$CellContext`funf$$ == 1, 
             If[$CellContext`u1 != $CellContext`u2, 
              
              Plot[$CellContext`recta, {$CellContext`x, $CellContext`minx \
$CellContext`zoom$$, $CellContext`maxx $CellContext`zoom$$}, PlotStyle -> 
               Directive[Thick, $CellContext`color1]], 
              Graphics[{$CellContext`color2, Thick, 
                
                Line[{{$CellContext`u1, $CellContext`minx \
$CellContext`zoom$$}, {$CellContext`u2, $CellContext`maxx \
$CellContext`zoom$$}}]}]], $CellContext`punto3], 
            If[$CellContext`u1 != $CellContext`u2, {
              $CellContext`punto1[$CellContext`u$$], 
              $CellContext`punto1[$CellContext`v$$]}, {
              $CellContext`punto2[$CellContext`u$$], 
              $CellContext`punto2[$CellContext`v$$]}], 
            Graphics[{Blue, 
              Style[
               Text[
               "\!\(\*\nStyleBox[\"A\",\nFontSlant->\"Italic\"]\)", {-0.2, \
-0.2} + $CellContext`u$$, {1, 1}], 15]}], 
            Graphics[{Blue, 
              Style[
               Text[
               "\!\(\*\nStyleBox[\"B\",\nFontSlant->\"Italic\"]\)", {-0.2, \
-0.2} + $CellContext`v$$, {-1, 1}], 15]}], 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 puntos \!\(\*\nStyleBox[\"A\",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0, 0, 1]]\) y \!\(\*\n\
StyleBox[\"B\",\nFontSlant->\"Italic\",\nFontColor->RGBColor[0, 0, 1]]\) en \
el plano y encuentra la ecuaci\[OAcute]n de la recta"}], $CellContext`tam]], 
            Pane[
             Grid[{{$CellContext`graf, 
                Style[
                 Column[{
                   
                   Row[{"Los puntos son: \!\(\*\nStyleBox[\"A\",\nFontSlant->\
\"Italic\",\nFontColor->RGBColor[0, 0, 1]]\)(", $CellContext`u1, 
                    ",", $CellContext`v1, 
                    ") y \!\(\*\nStyleBox[\"B\",\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[0, 0, 1]]\)(", $CellContext`u2, ",", $CellContext`v2, 
                    ")"}], 
                   If[$CellContext`penf$$ == 1, 
                    Column[{
                    Style[
                    Row[{"pendiente: "}], $CellContext`color2], 
                    If[$CellContext`u1 != $CellContext`u2, 
                    Column[{
                    Row[{"reemplazando los puntos se tiene que"}], 
                    
                    Row[{"\!\(\*\nStyleBox[\"m\",\nFontSlant->\"Italic\"]\) = \
", 
                    Row[{Row[{
                    $CellContext`p[
                    Part[
                    $CellContext`p1[$CellContext`v2], 1, 1], 
                    Part[
                    $CellContext`p1[$CellContext`v2], 1, 2]], "- ", 
                    $CellContext`p[
                    Part[
                    $CellContext`p1[$CellContext`v1], 1, 1], 
                    Part[
                    $CellContext`p1[$CellContext`v1], 1, 2]]}]/Row[{
                    $CellContext`p[
                    Part[
                    $CellContext`p1[$CellContext`u2], 1, 1], 
                    Part[
                    $CellContext`p1[$CellContext`u2], 1, 2]], " -", 
                    $CellContext`p[
                    Part[
                    $CellContext`p1[$CellContext`u1], 1, 1], 
                    Part[
                    $CellContext`p1[$CellContext`u1], 1, 2]]}]}], 
                    " = ", $CellContext`m}]}], 
                    Column[{
                    Row[{}], 
                    
                    Row[{"La recta es vertical, \!\(\*\nStyleBox[\"no\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"tiene\",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"pendiente\",\n\
FontColor->RGBColor[1, 0, 0]]\)"}], 
                    Row[{}]}]]}], 
                    Column[{
                    Row[{}], 
                    Row[{}], 
                    Row[{}]}]], 
                   Which[$CellContext`ecuf$$ >= 1, 
                    Row[{"ecuaci\[OAcute]n: "}]], 
                   If[$CellContext`u1 != $CellContext`u2, 
                    Column[{
                    Which[$CellContext`ecuf$$ >= 2, 
                    
                    Row[{"con un \!\(\*\nStyleBox[\"punto\",\n\
FontColor->RGBColor[0, 0, 1]]\) y la \!\(\*\nStyleBox[\"pendiente\",\n\
FontColor->RGBColor[0, 0.67, 0]]\) se reemplaza en"}]], 
                    Which[$CellContext`ecuf$$ >= 3, 
                    
                    Row[{"\!\(\*\nStyleBox[\"y\",\nFontSlant->\"Italic\"]\) - \
\!\(\*\nStyleBox[SubscriptBox[\"y\", \"1\"],\nFontSlant->\"Italic\",\n\
FontColor->RGBColor[0, 0, 1]]\) = \!\(\*\nStyleBox[\"m\",\n\
FontSlant->\"Italic\",\nFontColor->RGBColor[0, 0.67, 0]]\) (\!\(\*\nStyleBox[\
\"x\",\nFontSlant->\"Italic\"]\) - \!\(\*\nStyleBox[SubscriptBox[\"x\", \
\"1\"],\nFontSlant->\"Italic\",\nFontColor->RGBColor[0, 0, 1]]\))"}]], Null, 
                    Which[$CellContext`ecuf$$ >= 4, 
                    
                    Row[{"\!\(\*\nStyleBox[\"y\",\nFontSlant->\"Italic\"]\) - \
", 
                    $CellContext`p[
                    Part[
                    $CellContext`p1[$CellContext`v2], 1, 1], 
                    Part[
                    $CellContext`p1[$CellContext`v2], 1, 2]], 
                    " = ", $CellContext`m, 
                    "(\!\(\*\nStyleBox[\"x\",\nFontSlant->\"Italic\"]\) -", 
                    $CellContext`p[
                    Part[
                    $CellContext`p1[$CellContext`u2], 1, 1], 
                    Part[
                    $CellContext`p1[$CellContext`u2], 1, 2]], ")"}]], 
                    Which[$CellContext`ecuf$$ >= 4, 
                    Row[{
                    
                    Row[{$CellContext`y - Rationalize[$CellContext`v2], 
                    " = ", $CellContext`m ($CellContext`x - 
                    Rationalize[$CellContext`u2])}]}]], 
                    Which[$CellContext`ecuf$$ >= 4, 
                    Row[{$CellContext`y, " = ", 
                    
                    If[$CellContext`m $CellContext`u2 == $CellContext`v2, \
$CellContext`m $CellContext`x, 
                    Rationalize[
                    
                    Expand[$CellContext`m ($CellContext`x - $CellContext`u2) + \
$CellContext`v2]]]}]]}], 
                    Which[$CellContext`ecuf$$ >= 2, 
                    Column[{
                    Row[{}], 
                    Row[{"La ecuaci\[OAcute]n de la recta vertical es"}], 
                    
                    Row[{"\!\(\*\nStyleBox[\"x\",\nFontSlant->\"Italic\"]\) = \
", $CellContext`u2}]}]]]}], $CellContext`tam]}}, ItemSize -> All, 
              Alignment -> {Left, Top}, Frame -> All], 
             ImageSize -> {$CellContext`anc, $CellContext`alto}]}]), 
        "Specifications" :> {{{$CellContext`funf$$, 0, 
            Style[
             Row[{"mostrar la recta"}], 17, 
             RGBColor[0, 0.5, 0.75]]}, {0, 1}, ControlType -> Checkbox, 
           ControlPlacement -> 1}, {{$CellContext`penf$$, 0, 
            Style[
             Row[{"pasos para hallar la pendiente"}], 17, 
             RGBColor[0.14, 0.5, 0.1]]}, {0, 1}, ControlType -> Checkbox, 
           ControlPlacement -> 2}, {{$CellContext`ecuf$$, 0, 
            Style[
             Row[{"pasos para hallar la ecuaci\[OAcute]n"}], 17, 
             GrayLevel[0]]}, 0, 4, 1, ControlPlacement -> 
           3}, {{$CellContext`zoom$$, 1, "zoom"}, {
           0.25 -> "-", 0.5 -> "-", 1 -> "\[CenterDot]", 2 -> "+", 3 -> "+"}, 
           ControlPlacement -> 4}, {{$CellContext`grid$$, Open, "puntos"}, {
           Open -> "reales", Integer -> "enteros"}, ControlPlacement -> 5}, 
          Column[{
            Row[{
              Column[{
                Manipulate`Place[1], Null, 
                Manipulate`Place[2], Null, 
                Manipulate`Place[3]}], 
              Column[{
                Manipulate`Place[4], 
                Manipulate`Place[5]}]}, 
             Spacer[200]]}, Frame -> All], {{$CellContext`u$$, {-1, -1}}, 
           Automatic, ControlType -> Locator}, {{$CellContext`v$$, {1, 1}}, 
           Automatic, ControlType -> Locator}}, 
        "Options" :> {Deployed -> True}, "DefaultOptions" :> {}],
       ImageSizeCache->{836., {305., 315.}},
       SingleEvaluation->True],
      Deinitialization:>None,
      DynamicModuleValues:>{},
      Initialization:>({$CellContext`u1 = -1., $CellContext`v1 = -1., \
$CellContext`u2 = 1., $CellContext`v2 = 
         1., $CellContext`temp1 = {{-1, -1}, {1, 1}}, $CellContext`m = 
         1, $CellContext`recta = -1. + 
          1. (1. + $CellContext`x), $CellContext`graf = Graphics[{{
             AbsolutePointSize[0.1], 
             GrayLevel[0], 
             Point[{0, 0}]}, {
             Thickness[Large], 
             AbsolutePointSize[8], 
             RGBColor[0, 0, 1], 
             Point[{-1, -1}]}, {
             Thickness[Large], 
             AbsolutePointSize[8], 
             RGBColor[0, 0, 1], 
             Point[{1, 1}]}, {
             RGBColor[0, 0, 1], 
             Style[
              Text[
              "\!\(\*\nStyleBox[\"A\",\nFontSlant->\"Italic\"]\)", {-1.2, \
-1.2}, {1, 1}], 15]}, {
             RGBColor[0, 0, 1], 
             Style[
              Text[
              "\!\(\*\nStyleBox[\"B\",\nFontSlant->\"Italic\"]\)", {0.8, 
               0.8}, {-1, 1}], 15]}}, {
           Ticks -> Automatic, GridLines -> Automatic, Axes -> {True, True}, 
            AxesStyle -> Directive[
              Thickness[0.003], 
              Arrowheads[0.03]], AxesOrigin -> {0, 0}, 
            AxesLabel -> {$CellContext`x, $CellContext`y}, 
            PlotRange -> {{-5.5, 5.5}, {-5.5, 5.5}}, AspectRatio -> 1, 
            ImageSize -> {355, 
             355}}], $CellContext`minx = -5.5, $CellContext`maxx = 
         5.5, $CellContext`color1 = 
         RGBColor[0, 0.5, 0.75], $CellContext`color2 = 
         RGBColor[0.14, 0.5, 0.1], $CellContext`punto3 = Graphics[{
            AbsolutePointSize[0.1], 
            GrayLevel[0], 
            Point[{0, 0}]}], $CellContext`punto1[
           Pattern[$CellContext`x, 
            Blank[]]] := Graphics[{Thick, 
            AbsolutePointSize[8], Blue, 
            Point[$CellContext`x]}], $CellContext`punto2[
           Pattern[$CellContext`x, 
            Blank[]]] := Graphics[{Thick, 
            AbsolutePointSize[8], Red, 
            
            Point[$CellContext`x]}], $CellContext`miny = -5.5, \
$CellContext`maxy = 5.5, $CellContext`tam = 20, $CellContext`p[
           Pattern[$CellContext`s, 
            Blank[]], 
           Pattern[$CellContext`a, 
            Blank[]]] := If[$CellContext`s == "+ ", $CellContext`a, 
           Row[{"(", -$CellContext`a, ")"}]], $CellContext`s[
           Pattern[$CellContext`s, 
            Blank[]], 
           Pattern[$CellContext`a, 
            Blank[]]] := 
         If[$CellContext`s == 
           "+ ", $CellContext`a, -$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[5973, 141, 64, 1, 43, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[22298, 493, 64, 1, 43, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"]},
 "imprimir"->{
  Cell[5717, 129, 62, 1, 100, "Title",
   CellTags->"imprimir"],
  Cell[5782, 132, 188, 7, 127, "Subtitle",
   CellTags->"imprimir"],
  Cell[6040, 144, 73, 1, 71, "Section",
   CellTags->"imprimir"],
  Cell[6116, 147, 16179, 344, 641, "Output",
   CellTags->"imprimir"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"SlideShowHeader", 22810, 512},
 {"imprimir", 23093, 519}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[1464, 33, 4250, 94, 46, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[5717, 129, 62, 1, 100, "Title",
 CellTags->"imprimir"],
Cell[5782, 132, 188, 7, 127, "Subtitle",
 CellTags->"imprimir"],
Cell[5973, 141, 64, 1, 43, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[6040, 144, 73, 1, 71, "Section",
 CellTags->"imprimir"],
Cell[6116, 147, 16179, 344, 641, "Output",
 CellTags->"imprimir"],
Cell[22298, 493, 64, 1, 43, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature FwTX@E3#TSLFbAwsvVtAFh8S *)
