(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     62587,       1466]
NotebookOptionsPosition[     58512,       1320]
NotebookOutlinePosition[     59795,       1364]
CellTagsIndexPosition[     59752,       1361]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["8", "BookChapterNumber",
 CellFrameColor->RGBColor[0.5, 0, 0.5],
 CellChangeTimes->{{3.527499210787204*^9, 3.527499211005948*^9}, {
   3.527576538769125*^9, 3.527576540769068*^9}, {3.527578893731497*^9, 
   3.5275788941064653`*^9}, {3.527912288953125*^9, 3.527912289421875*^9}, {
   3.527914382453125*^9, 3.52791438275*^9}, {3.561186782390625*^9, 
   3.5611867830625*^9}, {3.561186835921875*^9, 3.561186838703125*^9}, {
   3.5626631118389673`*^9, 3.562663112807649*^9}, 3.5626631646643205`*^9, {
   3.562663791744486*^9, 3.5626637924788327`*^9}, {3.5762099047133904`*^9, 
   3.5762099061352563`*^9}, 3.5838292304127493`*^9},
 FontColor->RGBColor[0.5, 0, 0.5],
 Background->RGBColor[
  0.6509803921568628, 0.7411764705882353, 0.3686274509803922]],

Cell[TextData[{
 "ANIMACI\[CapitalOAcute]N DE GR\[CapitalAAcute]FICAS",
 StyleBox["\n",
  FontFamily->"Calibri",
  FontSize->11]
}], "BookChapterTitle",
 CellChangeTimes->{
  3.527499233036634*^9, 3.527576556001298*^9, {3.5275790637486*^9, 
   3.527579077653693*^9}, 3.527584703415389*^9, 3.5275847837419558`*^9, {
   3.5275860214138193`*^9, 3.52758602372441*^9}, {3.5279142859375*^9, 
   3.52791430165625*^9}, 3.52791433896875*^9, 3.561186833140625*^9, {
   3.561186876875*^9, 3.561186886703125*^9}, {3.561187378140625*^9, 
   3.5611873818125*^9}, {3.5618867223147993`*^9, 3.561886727940159*^9}, {
   3.562654644192951*^9, 3.5626546450679398`*^9}, {3.5626631395249825`*^9, 
   3.562663151555617*^9}, {3.5830485513125*^9, 3.58304857503125*^9}, {
   3.583050297740769*^9, 3.583050299133645*^9}},
 FontFamily->"Albertus Medium",
 FontSize->28,
 FontColor->RGBColor[
  0.47843137254901963`, 0.12156862745098039`, 0.596078431372549]],

Cell[CellGroupData[{

Cell["8.1. Manipulate", "Section",
 CellChangeTimes->{{3.4313329231929345`*^9, 3.4313329249482875`*^9}, {
   3.4313353671204767`*^9, 3.4313353757939053`*^9}, {3.4313357634571123`*^9, 
   3.4313357785223117`*^9}, {3.4319377203764677`*^9, 
   3.4319377623246098`*^9}, {3.431937978063343*^9, 3.4319380352715735`*^9}, {
   3.4319382100658255`*^9, 3.4319382119550714`*^9}, {3.431938997838375*^9, 
   3.431939001212057*^9}, {3.450696361760416*^9, 3.450696393053886*^9}, {
   3.4506974160675697`*^9, 3.450697428394354*^9}, {3.450698157002572*^9, 
   3.450698159471054*^9}, {3.450698755656182*^9, 3.450698760124446*^9}, {
   3.4651223091203804`*^9, 3.465122312541708*^9}, {3.48402127115625*^9, 
   3.484021275171875*^9}, {3.484022931078125*^9, 3.484022939859375*^9}, {
   3.493978188015625*^9, 3.49397819315625*^9}, {3.494138252*^9, 
   3.494138253640625*^9}, {3.4942264307785916`*^9, 3.4942264317160916`*^9}, {
   3.495192715796875*^9, 3.495192719640625*^9}, {3.5275768854433246`*^9, 
   3.5275768876150885`*^9}, {3.527578901637089*^9, 3.5275789023401556`*^9}, {
   3.527579091683776*^9, 3.527579113010126*^9}, {3.5275845905877523`*^9, 
   3.5275846046190023`*^9}, 3.5275847297120957`*^9, 3.5275848318338585`*^9, {
   3.52758488258191*^9, 3.527584895940772*^9}, {3.5275850623564725`*^9, 
   3.5275850754187217`*^9}, 3.52791201546875*^9, {3.527912321359375*^9, 
   3.52791232221875*^9}, {3.527912492421875*^9, 3.527912494125*^9}, {
   3.52791390090625*^9, 3.52791390846875*^9}, {3.5279142131875*^9, 
   3.527914245078125*^9}, {3.527914878859375*^9, 3.527914882828125*^9}, {
   3.56118689234375*^9, 3.56118689615625*^9}, 3.5618862648585835`*^9, 
   3.5626579572136917`*^9, {3.5626632472382174`*^9, 3.5626632583314*^9}, {
   3.5626637958537035`*^9, 3.562663796634923*^9}, {3.5762099098852324`*^9, 
   3.576209910932101*^9}, 3.583829233240838*^9},
 FontFamily->"ELEGANCE",
 FontSize->24,
 FontColor->RGBColor[
  0.1411764705882353, 0.3058823529411765, 0.8588235294117647]],

Cell[CellGroupData[{

Cell[TextData[{
 "Comando b\[AAcute]sico:",
 StyleBox[" ",
  FontFamily->"Tahoma",
  FontSize->11],
 "Manipulate[expresi\[OAcute]n,",
 StyleBox[" {u, umin, um\[AAcute]x}] ,  ]",
  FontFamily->"Candara",
  FontSize->16]
}], "Subsection",
 CellDingbat->"\[FilledDownTriangle]",
 CellChangeTimes->{{3.431939004991831*^9, 3.4319390119734793`*^9}, {
   3.431939707731423*^9, 3.431939714551507*^9}, {3.4319404108577547`*^9, 
   3.431940417342752*^9}, {3.484044221640625*^9, 3.48404425075*^9}, {
   3.49518768259375*^9, 3.49518770175*^9}, {3.495275795296875*^9, 
   3.49527580059375*^9}, {3.495535696296875*^9, 3.495535711984375*^9}, 
   3.496042214015625*^9, 3.496043789625*^9, 3.496044397359375*^9, 
   3.527577738020625*^9, {3.527913944140625*^9, 3.527913946390625*^9}, {
   3.5626488379132605`*^9, 3.5626488489428167`*^9}, 3.5626514295393505`*^9, {
   3.5643155333966503`*^9, 3.5643155518806705`*^9}, {3.5830486013125*^9, 
   3.583048641046875*^9}, {3.5830491729461536`*^9, 3.5830492078749137`*^9}, 
   3.5830492596990376`*^9, 3.5835662667979045`*^9},
 FontFamily->"Comic Sans MS",
 FontSize->18,
 FontColor->RGBColor[
  0.7490196078431373, 0.4549019607843137, 0.12549019607843137`]],

Cell[TextData[StyleBox["Este comando permite crear animaciones de \
gr\[AAcute]ficas haciendo variar un par\[AAcute]metro que podemos controlar \
de forma interactiva. En general se puede visualizar una expresi\[OAcute]n \
que depende de un par\[AAcute]metro de forma din\[AAcute]mica",
 FontFamily->"Calibri"]], "Text",
 CellChangeTimes->{{3.4506944331890173`*^9, 3.450694465872961*^9}, {
   3.4506945380369835`*^9, 3.450694556081895*^9}, {3.450694884483661*^9, 
   3.4506949393058205`*^9}, {3.450695115646008*^9, 3.4506951303631563`*^9}, {
   3.4506953719931145`*^9, 3.450695417816253*^9}, {3.4506981457381735`*^9, 
   3.4506981928892927`*^9}, {3.450698573988449*^9, 3.45069857683189*^9}, {
   3.4512056260529013`*^9, 3.4512056609745255`*^9}, {3.451205694740425*^9, 
   3.4512057160744767`*^9}, {3.4512058195272408`*^9, 
   3.4512058234784937`*^9}, {3.5275864793288226`*^9, 3.527586492076456*^9}, {
   3.5275865296944733`*^9, 3.527586550612465*^9}, {3.527586673293522*^9, 
   3.5275867055708466`*^9}, {3.561886745347523*^9, 3.561886774458761*^9}, 
   3.561886818039675*^9, {3.562648295519267*^9, 3.562648297034*^9}, 
   3.562657957198067*^9, 3.583048666609375*^9, {3.583048700109375*^9, 
   3.5830489309924746`*^9}, {3.583049010062405*^9, 3.5830490606072054`*^9}, {
   3.5835662235001984`*^9, 3.583566239891138*^9}},
 FontFamily->"Calibri",
 FontSize->16],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Manipulando un par\[AAcute]metro",
 FontFamily->"Candara",
 FontSize->16]], "Subsubsection",
 CellDingbat->"\[FivePointedStar]",
 CellChangeTimes->{{3.431939722869825*^9, 3.4319397235877285`*^9}, {
   3.450695420862797*^9, 3.4506954623582816`*^9}, {3.450695605061504*^9, 
   3.4506956082799034`*^9}, {3.450695766137727*^9, 3.4506957755585766`*^9}, {
   3.450698088510025*^9, 3.45069811286675*^9}, {3.4506981944516225`*^9, 
   3.450698229416568*^9}, {3.4506985842373343`*^9, 3.4506985986732635`*^9}, {
   3.4651226213443584`*^9, 3.465122637708026*^9}, {3.494138820078125*^9, 
   3.494138840515625*^9}, {3.52757775713*^9, 3.527577757739375*^9}, {
   3.527578168483534*^9, 3.527578169702276*^9}, 3.5626579572136917`*^9, {
   3.564315558974284*^9, 3.5643155640210624`*^9}, {3.5830492653483343`*^9, 
   3.583049274919456*^9}},
 FontFamily->"Calibri",
 FontSize->12,
 FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{"n", ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", "100"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.53044209531179*^9, 3.5304421548102665`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`n$$ = 1., Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`n$$], 1, 100}}, Typeset`size$$ = {14., {0., 8.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`n$30490$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`n$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`n$$, $CellContext`n$30490$$, 0]}, 
      "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`n$$, 
      "Specifications" :> {{$CellContext`n$$, 1, 100}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{251., {50., 55.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.53044214629486*^9, 3.530442155185257*^9}, {
   3.5304431644094205`*^9, 3.5304432709691925`*^9}, {3.5304433097494497`*^9, 
   3.530443314139962*^9}, 3.5304446553341618`*^9, {3.5304447351275473`*^9, 
   3.5304447449240465`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"x", "+", "n"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", 
     RowBox[{"-", "6"}], ",", "6"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.53044209531179*^9, 3.5304421548102665`*^9}, {
  3.5304426656721883`*^9, 3.5304426806718044`*^9}, {3.5304427169833746`*^9, 
  3.530442773310058*^9}, {3.530443118441847*^9, 3.5304431260510273`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`n$$ = -6., Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`n$$], -6, 6}}, Typeset`size$$ = {360., {109., 113.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`n$30566$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`n$$ = -6}, 
      "ControllerVariables" :> {
        Hold[$CellContext`n$$, $CellContext`n$30566$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[$CellContext`x + $CellContext`n$$, {$CellContext`x, -10, 10}], 
      "Specifications" :> {{$CellContext`n$$, -6, 6}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{407., {154., 159.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.5304426704064426`*^9, 3.5304426775000105`*^9}, {
   3.5304427461388783`*^9, 3.530442773778796*^9}, 3.5304431264416423`*^9, {
   3.530443339623685*^9, 3.5304433594356775`*^9}, 3.530444785922472*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Se puede manipular m\[AAcute]s de un \
par\[AAcute]metro",
 FontFamily->"Candara",
 FontSize->16]], "Subsubsection",
 CellDingbat->"\[FivePointedStar]",
 CellChangeTimes->{{3.431939722869825*^9, 3.4319397235877285`*^9}, {
   3.450695420862797*^9, 3.4506954623582816`*^9}, {3.450695605061504*^9, 
   3.4506956082799034`*^9}, {3.450695766137727*^9, 3.4506957755585766`*^9}, {
   3.450698088510025*^9, 3.45069811286675*^9}, {3.4506981944516225`*^9, 
   3.450698229416568*^9}, {3.4506985842373343`*^9, 3.4506985986732635`*^9}, {
   3.4651226213443584`*^9, 3.465122637708026*^9}, {3.494138820078125*^9, 
   3.494138840515625*^9}, {3.52757775713*^9, 3.527577757739375*^9}, {
   3.527578168483534*^9, 3.527578169702276*^9}, 3.5626579572136917`*^9, {
   3.564315558974284*^9, 3.5643155640210624`*^9}, {3.583049074483461*^9, 
   3.583049086659952*^9}, {3.583049130699292*^9, 3.5830491491803627`*^9}},
 FontFamily->"Calibri",
 FontSize->12,
 FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"n", ",", "m"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", "100"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"m", ",", "100", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.53044209531179*^9, 3.5304421548102665`*^9}, {
  3.53044261757967*^9, 3.5304426323917904`*^9}, {3.5304439104942455`*^9, 
  3.530443934146559*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`m$$ = 100, $CellContext`n$$ = 1., 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`n$$], 1, 100}, {
      Hold[$CellContext`m$$], 100, 1}}, Typeset`size$$ = {60., {2., 8.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`n$30538$$ = 0, $CellContext`m$30539$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`m$$ = 100, $CellContext`n$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`n$$, $CellContext`n$30538$$, 0], 
        Hold[$CellContext`m$$, $CellContext`m$30539$$, 0]}, 
      "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`n$$, $CellContext`m$$}, 
      "Specifications" :> {{$CellContext`n$$, 1, 100}, {$CellContext`m$$, 100,
          1}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{253., {64., 69.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.5304439351307697`*^9, 3.5304439934960566`*^9}, {
  3.530444770844926*^9, 3.5304447834225683`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"a", "*", "x"}], "+", "b"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "7"}], ",", "7"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "20"}], ",", "20"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", 
     RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"b", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.53044209531179*^9, 3.5304421548102665`*^9}, {
  3.5304426656721883`*^9, 3.5304426806718044`*^9}, {3.5304427169833746`*^9, 
  3.530442773310058*^9}, {3.5304430793959723`*^9, 3.5304430957705526`*^9}, {
  3.530443135425788*^9, 3.5304431392850637`*^9}, {3.562652814481907*^9, 
  3.562652873914462*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = -4., $CellContext`b$$ = -10., 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`a$$], -4, 4}, {
      Hold[$CellContext`b$$], -10, 10}}, Typeset`size$$ = {
    360., {115., 120.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`a$7714$$ = 
    0, $CellContext`b$7715$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = -4, $CellContext`b$$ = -10}, 
      "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$7714$$, 0], 
        Hold[$CellContext`b$$, $CellContext`b$7715$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[$CellContext`a$$ $CellContext`x + $CellContext`b$$, \
{$CellContext`x, -10, 10}, PlotRange -> {{-7, 7}, {-20, 20}}], 
      "Specifications" :> {{$CellContext`a$$, -4, 4}, {$CellContext`b$$, -10, 
         10}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{407., {174., 179.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.5304430966611547`*^9, 3.5304431395975556`*^9, {3.5304433674823465`*^9, 
   3.5304434093875237`*^9}, 3.5304447900473137`*^9, {3.56265281702857*^9, 
   3.5626528747581415`*^9}}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Algunas Opciones de Manipulate[ ]", "Subsection",
 CellDingbat->"\[FilledDownTriangle]",
 CellChangeTimes->{{3.431939004991831*^9, 3.4319390119734793`*^9}, {
   3.431939707731423*^9, 3.431939714551507*^9}, {3.4319404108577547`*^9, 
   3.431940417342752*^9}, {3.484044221640625*^9, 3.48404425075*^9}, {
   3.49518768259375*^9, 3.49518770175*^9}, {3.495275795296875*^9, 
   3.49527580059375*^9}, {3.495535696296875*^9, 3.495535711984375*^9}, 
   3.496042214015625*^9, 3.496043789625*^9, 3.496044397359375*^9, 
   3.527577738020625*^9, {3.527913944140625*^9, 3.527913946390625*^9}, {
   3.5626488379132605`*^9, 3.5626488489428167`*^9}, 3.5626514295393505`*^9, {
   3.5643155333966503`*^9, 3.5643155518806705`*^9}, {3.564315584301923*^9, 
   3.56431558864559*^9}, {3.5830494143777065`*^9, 3.5830494408655925`*^9}},
 FontFamily->"Comic Sans MS",
 FontSize->18,
 FontColor->RGBColor[
  0.7490196078431373, 0.4549019607843137, 0.12549019607843137`]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Barras de control",
 FontSize->16]], "Subsubsection",
 CellDingbat->"\[FivePointedStar]",
 CellChangeTimes->{{3.431939722869825*^9, 3.4319397235877285`*^9}, {
   3.450695420862797*^9, 3.4506954623582816`*^9}, {3.450695605061504*^9, 
   3.4506956082799034`*^9}, {3.450695766137727*^9, 3.4506957755585766`*^9}, {
   3.450698088510025*^9, 3.45069811286675*^9}, {3.4506981944516225`*^9, 
   3.450698229416568*^9}, {3.4506985842373343`*^9, 3.4506985986732635`*^9}, {
   3.4651226213443584`*^9, 3.465122637708026*^9}, {3.494138820078125*^9, 
   3.494138840515625*^9}, {3.52757775713*^9, 3.527577757739375*^9}, {
   3.527578168483534*^9, 3.527578169702276*^9}, 3.5626579572136917`*^9, {
   3.564315558974284*^9, 3.5643155640210624`*^9}, {3.583049074483461*^9, 
   3.583049086659952*^9}, {3.583049130699292*^9, 3.5830491491803627`*^9}, 
   3.5830494030479884`*^9},
 FontFamily->"Calibri",
 FontSize->12,
 FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Sin", "[", "x", "]"}], ",", 
       RowBox[{"Sin", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}]}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", 
       RowBox[{"2", " ", "Pi"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Blue", ",", 
          RowBox[{"Dashing", "[", "0.02", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Purple", ",", 
          RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}], "}"}]}]}], 
    "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"b", ",", "1", ",", "\"\<Frecuencia\>\""}], "}"}], ",", "1", 
     ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "0", ",", "\"\<Fase\>\""}], "}"}], ",", "0", ",", 
     RowBox[{"2", "Pi"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5643153296349373`*^9, 3.5643154122583513`*^9}, {
  3.564315667300329*^9, 3.564315736752121*^9}, {3.56431577092334*^9, 
  3.564315846062522*^9}},
 CellID->704639800],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 0., $CellContext`b$$ = 1., 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`b$$], 1, "Frecuencia"}, 1, 10}, {{
       Hold[$CellContext`a$$], 0, "Fase"}, 0, 2 Pi}}, Typeset`size$$ = {
    360., {106., 110.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`b$6406$$ = 
    0, $CellContext`a$6407$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = 0, $CellContext`b$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`b$$, $CellContext`b$6406$$, 0], 
        Hold[$CellContext`a$$, $CellContext`a$6407$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[{
         Sin[$CellContext`x], 
         Sin[$CellContext`a$$ + $CellContext`b$$ $CellContext`x]}, \
{$CellContext`x, 0, 2 Pi}, PlotStyle -> {{Blue, 
           Dashing[0.02]}, {Purple, 
           Thickness[0.01]}}], 
      "Specifications" :> {{{$CellContext`b$$, 1, "Frecuencia"}, 1, 
         10}, {{$CellContext`a$$, 0, "Fase"}, 0, 2 Pi}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{407., {165., 170.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.5643157920635586`*^9, {3.5643158230160894`*^9, 3.5643158474218707`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Se pueden manipular las opciones de un Plot[]: \
etiquetas, dominio",
 FontSize->16]], "Subsubsection",
 CellDingbat->"\[FivePointedStar]",
 CellChangeTimes->{{3.431939722869825*^9, 3.4319397235877285`*^9}, {
   3.450695420862797*^9, 3.4506954623582816`*^9}, {3.450695605061504*^9, 
   3.4506956082799034`*^9}, {3.450695766137727*^9, 3.4506957755585766`*^9}, {
   3.450698088510025*^9, 3.45069811286675*^9}, {3.4506981944516225`*^9, 
   3.450698229416568*^9}, {3.4506985842373343`*^9, 3.4506985986732635`*^9}, {
   3.4651226213443584`*^9, 3.465122637708026*^9}, {3.494138820078125*^9, 
   3.494138840515625*^9}, {3.52757775713*^9, 3.527577757739375*^9}, {
   3.527578168483534*^9, 3.527578169702276*^9}, 3.5626579572136917`*^9, {
   3.564315558974284*^9, 3.5643155640210624`*^9}, {3.583049074483461*^9, 
   3.583049086659952*^9}, {3.583049130699292*^9, 3.5830491491803627`*^9}, 
   3.5830494030479884`*^9, {3.583049581221016*^9, 3.583049626281325*^9}, {
   3.583049687365504*^9, 3.5830496882548523`*^9}},
 FontFamily->"Calibri",
 FontSize->12,
 FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Sin", "[", "x", "]"}], ",", 
       RowBox[{"Sin", "[", 
        RowBox[{"a", " ", "x"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "6.28"}], "}"}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"a", "\"\<= a  \>\""}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "0.5", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.508150596318096*^9, 3.5081506040366488`*^9}, {
  3.5081506350983534`*^9, 3.5081506654882007`*^9}, {3.508150695909297*^9, 
  3.5081507047528205`*^9}, {3.508150757688965*^9, 3.5081507713917394`*^9}, {
  3.508153010243387*^9, 3.5081530128370705`*^9}},
 CellID->728820331],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 1.476, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`a$$], 0.5, 2}}, Typeset`size$$ = {360., {114., 117.}},
     Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`a$49678$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`a$$ = 0.5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$49678$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[{
         Sin[$CellContext`x], 
         Sin[$CellContext`a$$ $CellContext`x]}, {$CellContext`x, 0, 6.28}, 
        PlotLabel -> $CellContext`a$$ "= a  "], 
      "Specifications" :> {{$CellContext`a$$, 0.5, 2}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{407., {158., 163.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.508150617145688*^9, 3.508150666222557*^9}, {
   3.5081506996279516`*^9, 3.508150706049662*^9}, 3.508150773063572*^9, 
   3.508153015602625*^9},
 ImageSize->{254, 199},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Se puede manipular el dominio de una gr\[AAcute]fica \
en coordenadas param\[EAcute]tricas con el fin de ver como se dibuja",
 FontSize->16]], "Subsubsection",
 CellDingbat->"\[FivePointedStar]",
 CellChangeTimes->{{3.431939722869825*^9, 3.4319397235877285`*^9}, {
   3.450695420862797*^9, 3.4506954623582816`*^9}, {3.450695605061504*^9, 
   3.4506956082799034`*^9}, {3.450695766137727*^9, 3.4506957755585766`*^9}, {
   3.450698088510025*^9, 3.45069811286675*^9}, {3.4506981944516225`*^9, 
   3.450698229416568*^9}, {3.4506985842373343`*^9, 3.4506985986732635`*^9}, {
   3.4651226213443584`*^9, 3.465122637708026*^9}, {3.494138820078125*^9, 
   3.494138840515625*^9}, {3.52757775713*^9, 3.527577757739375*^9}, {
   3.527578168483534*^9, 3.527578169702276*^9}, 3.5626579572136917`*^9, {
   3.564315558974284*^9, 3.5643155640210624`*^9}, {3.583049074483461*^9, 
   3.583049086659952*^9}, {3.583049130699292*^9, 3.5830491491803627`*^9}, 
   3.5830494030479884`*^9, {3.583049581221016*^9, 3.583049626281325*^9}, {
   3.583049687365504*^9, 3.5830496882548523`*^9}, {3.5830497457972407`*^9, 
   3.5830497729457645`*^9}, {3.583566317377001*^9, 3.583566326877183*^9}},
 FontFamily->"Calibri",
 FontSize->12,
 FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"ParametricPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       FractionBox["t", 
        RowBox[{"1", "+", 
         SuperscriptBox["t", "3"]}]], ",", 
       FractionBox[
        SuperscriptBox["t", "2"], 
        RowBox[{"1", "+", 
         SuperscriptBox["t", "3"]}]]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"-", "10"}], ",", "a"}], "}"}], ",", 
     RowBox[{"ExclusionsStyle", "\[Rule]", "Dashed"}], ",", 
     RowBox[{"Exclusions", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"1", "+", 
         SuperscriptBox["t", "3"]}], "\[Equal]", "0"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RGBColor", "[", 
         RowBox[{"0.2", ",", "0.8", ",", "0.4"}], "]"}], ",", 
        RowBox[{"Thickness", "[", "0.008", "]"}]}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", 
     RowBox[{"-", "3.4"}], ",", "10", ",", "0.05"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5106382888449993`*^9, 3.510638346226609*^9}, {
   3.5106383861218295`*^9, 3.510638527596451*^9}, {3.510638686510189*^9, 
   3.5106387301173315`*^9}, {3.510638790987713*^9, 3.5106388109855375`*^9}, {
   3.5106388473097095`*^9, 3.5106388542620783`*^9}, {3.5106392132270126`*^9, 
   3.5106393910980797`*^9}, {3.5106394295727386`*^9, 
   3.5106395202375107`*^9}, {3.5106395559555745`*^9, 3.510639557018054*^9}, 
   3.5106395931736097`*^9, {3.510640041695697*^9, 3.5106400802237415`*^9}, {
   3.51064051896144*^9, 3.51064053836769*^9}, {3.51064059993019*^9, 
   3.51064063968019*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 8.25, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`a$$], -3.4, 10, 0.05}}, Typeset`size$$ = {
    360., {176., 180.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`a$19480$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`a$$ = -3.4}, 
      "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$19480$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      ParametricPlot[{$CellContext`t/(
         1 + $CellContext`t^3), $CellContext`t^2/(
         1 + $CellContext`t^3)}, {$CellContext`t, -10, $CellContext`a$$}, 
        ExclusionsStyle -> Dashed, Exclusions -> {1 + $CellContext`t^3 == 0}, 
        PlotStyle -> {
          RGBColor[0.2, 0.8, 0.4], 
          Thickness[0.008]}, PlotRange -> {{-1, 1}, {-1, 1}}], 
      "Specifications" :> {{$CellContext`a$$, -3.4, 10, 0.05}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{407., {221., 226.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.510638702009395*^9, 3.510638747163333*^9}, {
   3.510639265719449*^9, 3.510639291676561*^9}, 3.510639336230278*^9, {
   3.5106393922701344`*^9, 3.5106394136327906`*^9}, {3.5106394525606437`*^9, 
   3.5106395212218666`*^9}, {3.5106395580961585`*^9, 
   3.5106395715490255`*^9}, {3.510640069005924*^9, 3.5106400953004894`*^9}, 
   3.510640540289565*^9, {3.51064060227394*^9, 3.510640640758315*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Se pueden visualizar varias gr\[AAcute]ficas \
utilizando los botones de control",
 FontSize->16]], "Subsubsection",
 CellDingbat->"\[FivePointedStar]",
 CellChangeTimes->{{3.431939722869825*^9, 3.4319397235877285`*^9}, {
   3.450695420862797*^9, 3.4506954623582816`*^9}, {3.450695605061504*^9, 
   3.4506956082799034`*^9}, {3.450695766137727*^9, 3.4506957755585766`*^9}, {
   3.450698088510025*^9, 3.45069811286675*^9}, {3.4506981944516225`*^9, 
   3.450698229416568*^9}, {3.4506985842373343`*^9, 3.4506985986732635`*^9}, {
   3.4651226213443584`*^9, 3.465122637708026*^9}, {3.494138820078125*^9, 
   3.494138840515625*^9}, {3.52757775713*^9, 3.527577757739375*^9}, {
   3.527578168483534*^9, 3.527578169702276*^9}, 3.5626579572136917`*^9, {
   3.564315558974284*^9, 3.5643155640210624`*^9}, {3.583049074483461*^9, 
   3.583049086659952*^9}, {3.583049130699292*^9, 3.5830491491803627`*^9}, 
   3.5830494030479884`*^9, {3.583049581221016*^9, 3.583049626281325*^9}, {
   3.583049687365504*^9, 3.5830496882548523`*^9}, {3.5830497457972407`*^9, 
   3.5830497729457645`*^9}, {3.583050168590211*^9, 3.58305018759523*^9}, {
   3.583566336455492*^9, 3.5835663370023775`*^9}},
 FontFamily->"Calibri",
 FontSize->12,
 FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", 
       RowBox[{"2", "Pi"}]}], "}"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"f", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Sin", "\[Rule]", "\"\<seno\>\""}], ",", 
       RowBox[{"Cos", "\[Rule]", "\"\<coseno\>\""}], ",", 
       RowBox[{"Tan", "\[Rule]", "\"\<tangente\>\""}]}], "}"}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.564315242995976*^9, 3.5643152548863726`*^9}},
 CellID->417443953],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`f$$ = Sin, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`f$$], {
      Sin -> "seno", Cos -> "coseno", Tan -> "tangente"}}}, Typeset`size$$ = {
    360., {106., 110.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`f$2647$$ = False}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`f$$ = Sin -> "seno"}, 
      "ControllerVariables" :> {
        Hold[$CellContext`f$$, $CellContext`f$2647$$, 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" :> Plot[
        $CellContext`f$$[$CellContext`x], {$CellContext`x, 0, 2 Pi}], 
      "Specifications" :> {{$CellContext`f$$, {
         Sin -> "seno", Cos -> "coseno", Tan -> "tangente"}}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{407., {149., 154.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.564315256448843*^9, 3.5643152699329586`*^9}},
 ImageSize->{231, 193},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Animaci\[OAcute]n de gr\[AAcute]ficas en 3D",
 FontSize->16]], "Subsubsection",
 CellDingbat->"\[FivePointedStar]",
 CellChangeTimes->{{3.431939722869825*^9, 3.4319397235877285`*^9}, {
   3.450695420862797*^9, 3.4506954623582816`*^9}, {3.450695605061504*^9, 
   3.4506956082799034`*^9}, {3.450695766137727*^9, 3.4506957755585766`*^9}, {
   3.450698088510025*^9, 3.45069811286675*^9}, {3.4506981944516225`*^9, 
   3.450698229416568*^9}, {3.4506985842373343`*^9, 3.4506985986732635`*^9}, {
   3.4651226213443584`*^9, 3.465122637708026*^9}, {3.494138820078125*^9, 
   3.494138840515625*^9}, {3.52757775713*^9, 3.527577757739375*^9}, {
   3.527578168483534*^9, 3.527578169702276*^9}, 3.5626579572136917`*^9, {
   3.564315558974284*^9, 3.5643155640210624`*^9}, {3.5830492653483343`*^9, 
   3.583049274919456*^9}, {3.58305132942176*^9, 3.58305134335256*^9}, {
   3.583566376362508*^9, 3.583566379440692*^9}},
 FontFamily->"Calibri",
 FontSize->12,
 FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"ContourPlot3D", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"a", "*", 
        RowBox[{"x", "^", "2"}]}], "+", 
       RowBox[{"b", "*", 
        RowBox[{"y", "^", "2"}]}], "+", 
       RowBox[{"c", "*", 
        RowBox[{"z", "^", "2"}]}]}], "\[Equal]", "1"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", 
       RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"z", ",", 
       RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
     RowBox[{"BoxRatios", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{"1", ",", "1", ",", "2"}], "}"}]}], ",", 
     RowBox[{"Mesh", "\[Rule]", "None"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "0.5", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"b", ",", "0.5", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"c", ",", "0.5", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.583052537220483*^9, 3.5830527054069347`*^9}},
 CellID->549557794],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 0.5, $CellContext`b$$ = 
    0.885, $CellContext`c$$ = 0.63, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`a$$], 0.5, 4}, {
      Hold[$CellContext`b$$], 0.5, 4}, {
      Hold[$CellContext`c$$], 0.5, 4}}, Typeset`size$$ = {269., {214., 218.}},
     Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`a$9362$$ = 0, $CellContext`b$9363$$ = 
    0, $CellContext`c$9364$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = 0.5, $CellContext`b$$ = 
        0.5, $CellContext`c$$ = 0.5}, "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$9362$$, 0], 
        Hold[$CellContext`b$$, $CellContext`b$9363$$, 0], 
        Hold[$CellContext`c$$, $CellContext`c$9364$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      ContourPlot3D[$CellContext`a$$ $CellContext`x^2 + $CellContext`b$$ \
$CellContext`y^2 + $CellContext`c$$ $CellContext`z^2 == 
        1, {$CellContext`x, -1.5, 1.5}, {$CellContext`y, -1.5, 
         1.5}, {$CellContext`z, -2, 2}, BoxRatios -> {1, 1, 2}, Mesh -> None],
       "Specifications" :> {{$CellContext`a$$, 0.5, 4}, {$CellContext`b$$, 
         0.5, 4}, {$CellContext`c$$, 0.5, 4}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{316., {286., 291.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.583052616783329*^9, {3.583052649839481*^9, 3.583052668054733*^9}, 
   3.583052706703561*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["8.2. Animate", "Section",
 CellChangeTimes->{{3.4313329231929345`*^9, 3.4313329249482875`*^9}, {
   3.4313353671204767`*^9, 3.4313353757939053`*^9}, {3.4313357634571123`*^9, 
   3.4313357785223117`*^9}, {3.4319377203764677`*^9, 
   3.4319377623246098`*^9}, {3.431937978063343*^9, 3.4319380352715735`*^9}, {
   3.4319382100658255`*^9, 3.4319382119550714`*^9}, {3.431938997838375*^9, 
   3.431939001212057*^9}, {3.450696361760416*^9, 3.450696393053886*^9}, {
   3.4506974160675697`*^9, 3.450697428394354*^9}, {3.450698157002572*^9, 
   3.450698159471054*^9}, {3.450698755656182*^9, 3.450698760124446*^9}, {
   3.4651223091203804`*^9, 3.465122312541708*^9}, {3.48402127115625*^9, 
   3.484021275171875*^9}, {3.484022931078125*^9, 3.484022939859375*^9}, {
   3.493978188015625*^9, 3.49397819315625*^9}, {3.494138252*^9, 
   3.494138253640625*^9}, {3.4942264307785916`*^9, 3.4942264317160916`*^9}, {
   3.495192715796875*^9, 3.495192719640625*^9}, {3.5275768854433246`*^9, 
   3.5275768876150885`*^9}, {3.527578901637089*^9, 3.5275789023401556`*^9}, {
   3.527579091683776*^9, 3.527579113010126*^9}, {3.5275845905877523`*^9, 
   3.5275846046190023`*^9}, 3.5275847297120957`*^9, 3.5275848318338585`*^9, {
   3.52758488258191*^9, 3.527584895940772*^9}, {3.5275850623564725`*^9, 
   3.5275850754187217`*^9}, 3.52791201546875*^9, {3.527912321359375*^9, 
   3.52791232221875*^9}, {3.527912492421875*^9, 3.527912494125*^9}, {
   3.52791390090625*^9, 3.52791390846875*^9}, {3.5279142131875*^9, 
   3.527914245078125*^9}, {3.527914878859375*^9, 3.527914882828125*^9}, {
   3.56118689234375*^9, 3.56118689615625*^9}, 3.5618862648585835`*^9, 
   3.5626579572136917`*^9, {3.5626632472382174`*^9, 3.5626632583314*^9}, {
   3.5626637958537035`*^9, 3.562663796634923*^9}, {3.5762099098852324`*^9, 
   3.576209910932101*^9}, {3.5830498171048517`*^9, 3.5830498209622507`*^9}, {
   3.5830501962465377`*^9, 3.5830501977477484`*^9}, {3.5838292565061655`*^9, 
   3.5838292579905214`*^9}},
 FontFamily->"ELEGANCE",
 FontSize->24,
 FontColor->RGBColor[
  0.1411764705882353, 0.3058823529411765, 0.8588235294117647]],

Cell[CellGroupData[{

Cell[TextData[{
 "Comando b\[AAcute]sico:",
 StyleBox[" ",
  FontFamily->"Tahoma",
  FontSize->11],
 "A",
 "nimate[expresi\[OAcute]n,",
 StyleBox[" {u, umin, um\[AAcute]x}] ,  ]",
  FontFamily->"Candara",
  FontSize->16]
}], "Subsection",
 CellDingbat->"\[FilledDownTriangle]",
 CellChangeTimes->{{3.431939004991831*^9, 3.4319390119734793`*^9}, {
   3.431939707731423*^9, 3.431939714551507*^9}, {3.4319404108577547`*^9, 
   3.431940417342752*^9}, {3.484044221640625*^9, 3.48404425075*^9}, {
   3.49518768259375*^9, 3.49518770175*^9}, {3.495275795296875*^9, 
   3.49527580059375*^9}, {3.495535696296875*^9, 3.495535711984375*^9}, 
   3.496042214015625*^9, 3.496043789625*^9, 3.496044397359375*^9, 
   3.527577738020625*^9, {3.527913944140625*^9, 3.527913946390625*^9}, {
   3.5626488379132605`*^9, 3.5626488489428167`*^9}, 3.5626514295393505`*^9, {
   3.5643155333966503`*^9, 3.5643155518806705`*^9}, {3.5830486013125*^9, 
   3.583048641046875*^9}, {3.5830491729461536`*^9, 3.5830492078749137`*^9}, 
   3.5830492596990376`*^9, {3.5838292852557974`*^9, 3.583829295724414*^9}},
 FontFamily->"Comic Sans MS",
 FontSize->18,
 FontColor->RGBColor[
  0.7490196078431373, 0.4549019607843137, 0.12549019607843137`]],

Cell[TextData[StyleBox["Este comando permite crear animaciones de \
gr\[AAcute]ficas haciendo variar un par\[AAcute]metro que podemos controlar \
de forma interactiva. Funcione de forma similar al Manipulate. Por defecto, \
la animaci\[OAcute]n comienza en cuanto se evalua",
 FontFamily->"Calibri"]], "Text",
 CellChangeTimes->{{3.4506944331890173`*^9, 3.450694465872961*^9}, {
   3.4506945380369835`*^9, 3.450694556081895*^9}, {3.450694884483661*^9, 
   3.4506949393058205`*^9}, {3.450695115646008*^9, 3.4506951303631563`*^9}, {
   3.4506953719931145`*^9, 3.450695417816253*^9}, {3.4506981457381735`*^9, 
   3.4506981928892927`*^9}, {3.450698573988449*^9, 3.45069857683189*^9}, {
   3.4512056260529013`*^9, 3.4512056609745255`*^9}, {3.451205694740425*^9, 
   3.4512057160744767`*^9}, {3.4512058195272408`*^9, 
   3.4512058234784937`*^9}, {3.5275864793288226`*^9, 3.527586492076456*^9}, {
   3.5275865296944733`*^9, 3.527586550612465*^9}, {3.527586673293522*^9, 
   3.5275867055708466`*^9}, {3.561886745347523*^9, 3.561886774458761*^9}, 
   3.561886818039675*^9, {3.562648295519267*^9, 3.562648297034*^9}, 
   3.562657957198067*^9, 3.583048666609375*^9, {3.583048700109375*^9, 
   3.5830489309924746`*^9}, {3.583049010062405*^9, 3.5830490606072054`*^9}, {
   3.583050328972144*^9, 3.5830503416782684`*^9}, {3.583050632882276*^9, 
   3.5830506370392523`*^9}, {3.58305066996811*^9, 3.5830506895167804`*^9}, 
   3.583566459832861*^9, {3.5838293934875727`*^9, 3.583829437283326*^9}, {
   3.5838297266805277`*^9, 3.5838297269773912`*^9}},
 FontFamily->"Calibri",
 FontSize->16],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Sin", "[", 
      RowBox[{"a", "*", "x"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "6.3"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Purple", ",", 
        RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "1", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.53044209531179*^9, 3.5304421548102665`*^9}, {
  3.5304426656721883`*^9, 3.5304426806718044`*^9}, {3.5304427169833746`*^9, 
  3.5304429183219705`*^9}, {3.530443018741275*^9, 3.530443039053255*^9}, {
  3.5304435646517377`*^9, 3.530443675653838*^9}, {3.562651492477656*^9, 
  3.5626516297865562`*^9}, {3.5830505041872687`*^9, 3.583050543888729*^9}, {
  3.5830522188140783`*^9, 3.583052224064112*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 9.293446063995361, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`a$$], 1, 10}}, Typeset`size$$ = {360., {106., 110.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`a$7253$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`a$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$7253$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[
        Sin[$CellContext`a$$ $CellContext`x], {$CellContext`x, 0, 6.3}, 
        PlotStyle -> {Purple, 
          Thickness[0.01]}], 
      "Specifications" :> {{$CellContext`a$$, 1, 10, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> 
        "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> 
        True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}],
     ImageSizeCache->{407., {143., 148.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Animate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.5304436763879175`*^9, 3.5304437051888*^9}, 
   3.5304447995157003`*^9, 3.562651520665517*^9, {3.562651557649163*^9, 
   3.562651630505274*^9}, {3.583050509107136*^9, 3.5830505454145107`*^9}, 
   3.5830522244078646`*^9, {3.5835664247384367`*^9, 3.5835664273791122`*^9}, 
   3.583567807783063*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Algunas Opciones de Animate[ ]", "Subsection",
 CellDingbat->"\[FilledDownTriangle]",
 CellChangeTimes->{{3.431939004991831*^9, 3.4319390119734793`*^9}, {
   3.431939707731423*^9, 3.431939714551507*^9}, {3.4319404108577547`*^9, 
   3.431940417342752*^9}, {3.484044221640625*^9, 3.48404425075*^9}, {
   3.49518768259375*^9, 3.49518770175*^9}, {3.495275795296875*^9, 
   3.49527580059375*^9}, {3.495535696296875*^9, 3.495535711984375*^9}, 
   3.496042214015625*^9, 3.496043789625*^9, 3.496044397359375*^9, 
   3.527577738020625*^9, {3.527913944140625*^9, 3.527913946390625*^9}, {
   3.5626488379132605`*^9, 3.5626488489428167`*^9}, 3.5626514295393505`*^9, {
   3.5643155333966503`*^9, 3.5643155518806705`*^9}, {3.5830486013125*^9, 
   3.583048641046875*^9}, {3.5830491729461536`*^9, 3.5830492078749137`*^9}, 
   3.5830492596990376`*^9, {3.5830523723775616`*^9, 3.5830523925651903`*^9}},
 FontFamily->"Comic Sans MS",
 FontSize->18,
 FontColor->RGBColor[
  0.7490196078431373, 0.4549019607843137, 0.12549019607843137`]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["AnimationRunning",
  FontSize->16],
 "\[RightArrow]",
 StyleBox[" False: con esta opci\[OAcute]n la animaci\[OAcute]n comienza en \
pausa",
  FontSize->16]
}], "Subsubsection",
 CellDingbat->"\[FivePointedStar]",
 CellChangeTimes->{{3.431939722869825*^9, 3.4319397235877285`*^9}, {
   3.450695420862797*^9, 3.4506954623582816`*^9}, {3.450695605061504*^9, 
   3.4506956082799034`*^9}, {3.450695766137727*^9, 3.4506957755585766`*^9}, {
   3.450698088510025*^9, 3.45069811286675*^9}, {3.4506981944516225`*^9, 
   3.450698229416568*^9}, {3.4506985842373343`*^9, 3.4506985986732635`*^9}, {
   3.4651226213443584`*^9, 3.465122637708026*^9}, {3.494138820078125*^9, 
   3.494138840515625*^9}, {3.52757775713*^9, 3.527577757739375*^9}, {
   3.527578168483534*^9, 3.527578169702276*^9}, 3.5626579572136917`*^9, {
   3.564315558974284*^9, 3.5643155640210624`*^9}, {3.583049074483461*^9, 
   3.583049086659952*^9}, {3.583049130699292*^9, 3.5830491491803627`*^9}, {
   3.5830507116099205`*^9, 3.5830507321740155`*^9}, {3.5830507728029256`*^9, 
   3.5830508193295803`*^9}, {3.583566502395256*^9, 3.5835665047858505`*^9}},
 FontFamily->"Calibri",
 FontSize->12,
 FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Sin", "[", 
      RowBox[{"a", "*", "x"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "6.3"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Purple", ",", 
        RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "0.5", ",", "5"}], "}"}], ",", 
   RowBox[{"AnimationRunning", "\[Rule]", "False"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.583052148126478*^9, 3.583052208876515*^9}},
 CellID->250043689],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 2.333, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`a$$], 0.5, 5}}, Typeset`size$$ = {360., {106., 110.}},
     Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`a$3595$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`a$$ = 0.5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$3595$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[
        Sin[$CellContext`a$$ $CellContext`x], {$CellContext`x, 0, 6.3}, 
        PlotStyle -> {Purple, 
          Thickness[0.01]}], 
      "Specifications" :> {{$CellContext`a$$, 0.5, 5, AnimationRunning -> 
         False, AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, 
        SynchronousUpdating -> True, ShrinkingDelay -> 10.}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{407., {143., 148.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.5830521765794334`*^9, 3.5830522092671423`*^9}, {
  3.583567835501119*^9, 3.583567845500863*^9}},
 ImageSize->{337, 185},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Enplazamiento de los controles: Left, Right, Top, \
Bottom",
 FontFamily->"Candara",
 FontSize->16]], "Subsubsection",
 CellDingbat->"\[FivePointedStar]",
 CellChangeTimes->{{3.431939722869825*^9, 3.4319397235877285`*^9}, {
   3.450695420862797*^9, 3.4506954623582816`*^9}, {3.450695605061504*^9, 
   3.4506956082799034`*^9}, {3.450695766137727*^9, 3.4506957755585766`*^9}, {
   3.450698088510025*^9, 3.45069811286675*^9}, {3.4506981944516225`*^9, 
   3.450698229416568*^9}, {3.4506985842373343`*^9, 3.4506985986732635`*^9}, {
   3.4651226213443584`*^9, 3.465122637708026*^9}, {3.494138820078125*^9, 
   3.494138840515625*^9}, {3.52757775713*^9, 3.527577757739375*^9}, {
   3.527578168483534*^9, 3.527578169702276*^9}, 3.5626579572136917`*^9, {
   3.564315558974284*^9, 3.5643155640210624`*^9}, {3.5830492653483343`*^9, 
   3.583049274919456*^9}, {3.58305132942176*^9, 3.58305134335256*^9}, {
   3.583052399627736*^9, 3.583052444018645*^9}},
 FontFamily->"Calibri",
 FontSize->12,
 FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Sin", "[", 
      RowBox[{"a", "*", "x"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "6.3"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Purple", ",", 
        RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "0.5", ",", "5"}], "}"}], ",", 
   RowBox[{"AnimationRunning", "\[Rule]", "False"}], ",", 
   RowBox[{"ControlPlacement", "\[Rule]", "Bottom"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.583052148126478*^9, 3.583052208876515*^9}, {
  3.583052303892748*^9, 3.5830523486117845`*^9}},
 CellID->635172797],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 0.5, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`a$$], 0.5, 5}}, Typeset`size$$ = {360., {112., 116.}},
     Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`a$8721$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`a$$ = 0.5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$8721$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[
        Sin[$CellContext`a$$ $CellContext`x], {$CellContext`x, 0, 6.3}, 
        PlotStyle -> {Purple, 
          Thickness[0.01]}], 
      "Specifications" :> {{$CellContext`a$$, 0.5, 5, AnimationRunning -> 
         False, AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlPlacement -> Bottom, ControlType -> Animator, 
        AppearanceElements -> None, DefaultBaseStyle -> "Animate", 
        DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> True, 
        ShrinkingDelay -> 10.}, "DefaultOptions" :> {}],
     ImageSizeCache->{407., {149., 154.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Animate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.583052332127304*^9, 3.583052349361789*^9}}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{1016, 651},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
PageHeaders->{{
   Cell[
    TextData[
     StyleBox[
      CounterBox["Page"], "PageNumber"]], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, 
   Cell[
    TextData[
     StyleBox[
      ValueBox["FileName"], "Header"]], "Header", 
    CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}, {
  "8-Animacion de graficas", None, 
   Cell[
    TextData[
     StyleBox[
      CounterBox["Page"], "PageNumber"]], "Header", 
    CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}},
PageHeaderLines->{False, True},
PrintingOptions->{"FacingPages"->False,
"FirstPageHeader"->True,
"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->{{54, 54}, {72, 72}}},
ShowSelection->True,
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->FrontEnd`FileName[{"Book"}, "Textbook.nb", 
  CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 751, 12, 146, "BookChapterNumber"],
Cell[1333, 36, 929, 19, 146, "BookChapterTitle"],
Cell[CellGroupData[{
Cell[2287, 59, 1961, 29, 67, "Section"],
Cell[CellGroupData[{
Cell[4273, 92, 1180, 25, 43, "Subsection"],
Cell[5456, 119, 1357, 20, 49, "Text"],
Cell[CellGroupData[{
Cell[6838, 143, 950, 16, 25, "Subsubsection"],
Cell[CellGroupData[{
Cell[7813, 163, 214, 5, 31, "Input"],
Cell[8030, 170, 1680, 34, 122, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9747, 209, 556, 14, 31, "Input"],
Cell[10306, 225, 1715, 34, 330, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[12070, 265, 1020, 17, 25, "Subsubsection"],
Cell[CellGroupData[{
Cell[13115, 286, 435, 11, 31, "Input"],
Cell[13553, 299, 1794, 36, 150, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15384, 340, 1059, 29, 31, "Input"],
Cell[16446, 371, 1968, 40, 370, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18475, 418, 948, 15, 43, "Subsection"],
Cell[CellGroupData[{
Cell[19448, 437, 985, 16, 25, "Subsubsection"],
Cell[CellGroupData[{
Cell[20458, 457, 1243, 37, 52, "Input",
 CellID->704639800],
Cell[21704, 496, 2027, 42, 352, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[23780, 544, 1133, 18, 25, "Subsubsection"],
Cell[CellGroupData[{
Cell[24938, 566, 797, 20, 31, "Input",
 CellID->728820331],
Cell[25738, 588, 1842, 39, 338, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[27629, 633, 1289, 19, 25, "Subsubsection"],
Cell[CellGroupData[{
Cell[28943, 656, 1940, 49, 78, "Input"],
Cell[30886, 707, 2227, 43, 464, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[33162, 756, 1297, 20, 25, "Subsubsection"],
Cell[CellGroupData[{
Cell[34484, 780, 611, 18, 31, "Input",
 CellID->417443953],
Cell[35098, 800, 1779, 37, 320, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[36926, 843, 1031, 16, 25, "Subsubsection"],
Cell[CellGroupData[{
Cell[37982, 863, 1138, 33, 52, "Input",
 CellID->549557794],
Cell[39123, 898, 2252, 45, 594, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[41448, 951, 2094, 31, 67, "Section"],
Cell[CellGroupData[{
Cell[43567, 986, 1206, 26, 43, "Subsection"],
Cell[44776, 1014, 1573, 23, 49, "Text"],
Cell[CellGroupData[{
Cell[46374, 1041, 900, 20, 31, "Input"],
Cell[47277, 1063, 2218, 44, 308, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[49544, 1113, 1022, 16, 43, "Subsection"],
Cell[CellGroupData[{
Cell[50591, 1133, 1239, 23, 25, "Subsubsection"],
Cell[CellGroupData[{
Cell[51855, 1160, 626, 17, 31, "Input",
 CellID->250043689],
Cell[52484, 1179, 2060, 44, 308, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[54593, 1229, 1070, 18, 25, "Subsubsection"],
Cell[CellGroupData[{
Cell[55688, 1251, 737, 19, 52, "Input",
 CellID->635172797],
Cell[56428, 1272, 2020, 41, 320, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)