(* 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[ 46993, 1074] NotebookOptionsPosition[ 43987, 967] NotebookOutlinePosition[ 45278, 1011] CellTagsIndexPosition[ 45235, 1008] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["P8", "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.5830528208011274`*^9, {3.583849455014761*^9, 3.583849455405371*^9}}, FontColor->RGBColor[0.5, 0, 0.5], Background->RGBColor[ 0.6509803921568628, 0.7411764705882353, 0.3686274509803922]], Cell[TextData[{ "PR\[CapitalAAcute]CTICA: 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.5830528250187435`*^9, 3.583052868632017*^9}}, FontFamily->"Albertus Medium", FontSize->28, FontColor->RGBColor[ 0.47843137254901963`, 0.12156862745098039`, 0.596078431372549]], Cell[CellGroupData[{ Cell["Ejercicio Propuesto P- 8.1", "Subsection", CellFrame->{{0, 0}, {0, 0.5}}, 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.49604461340625*^9, 3.49604461553125*^9}, { 3.496051865875*^9, 3.4960518679375*^9}, 3.49611763465625*^9, { 3.5818482009813223`*^9, 3.58184820734029*^9}, {3.5828742026768103`*^9, 3.5828742038170705`*^9}, {3.583052874130539*^9, 3.5830528763018303`*^9}, { 3.5838494587333684`*^9, 3.583849466295578*^9}}, FontFamily->"Arial", FontSize->16, FontColor->RGBColor[ 0.7490196078431373, 0.4549019607843137, 0.12549019607843137`]], Cell["\<\ Visualizar gr\[AAcute]ficamente en funci\[OAcute]nde los par\[AAcute]metros \ a, b y c el comportamiento de la familia de par\[AAcute]bolas: ax^2+bx+c\ \>", "Text", CellFrame->{{0, 0}, {0.5, 0}}, 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.450696365400645*^9}, { 3.450764702375*^9, 3.450764714859375*^9}, {3.45076482775*^9, 3.450764837625*^9}, {3.451125671779282*^9, 3.451125690427771*^9}, { 3.4511258957895513`*^9, 3.4511258960863276`*^9}, {3.451126186321278*^9, 3.451126198192706*^9}, {3.451887234200457*^9, 3.4518872522471285`*^9}, { 3.451887393914075*^9, 3.4518873954075947`*^9}, {3.4518874459850273`*^9, 3.4518875471087775`*^9}, {3.4518875844719687`*^9, 3.4518876828031807`*^9}, {3.451887713692567*^9, 3.4518877310903754`*^9}, { 3.451887816979745*^9, 3.4518878871549807`*^9}, {3.4518880824819202`*^9, 3.4518881153236303`*^9}, {3.451888181631714*^9, 3.451888285731969*^9}, { 3.4518883812285147`*^9, 3.4518883871487975`*^9}, {3.4518905280459385`*^9, 3.4518905335296817`*^9}, {3.451891865972966*^9, 3.4518918962301035`*^9}, { 3.4942385994973416`*^9, 3.494238600887966*^9}, {3.494238634012966*^9, 3.4942386391223416`*^9}, 3.494238678169216*^9, {3.494323789546875*^9, 3.49432386484375*^9}, {3.4943239079375*^9, 3.494324186046875*^9}, { 3.495185901890625*^9, 3.495185914859375*^9}, {3.49518678575*^9, 3.495186827015625*^9}, {3.49518690053125*^9, 3.495186906375*^9}, { 3.49518723434375*^9, 3.495187276890625*^9}, {3.495187631015625*^9, 3.495187643296875*^9}, {3.49518771071875*^9, 3.495187712859375*^9}, { 3.49518794925*^9, 3.49518803509375*^9}, {3.495275792984375*^9, 3.495275804921875*^9}, 3.49553569403125*^9, {3.49604221665625*^9, 3.496042218015625*^9}, {3.49604354209375*^9, 3.496043543609375*^9}, { 3.496043808640625*^9, 3.496043826765625*^9}, {3.496043932375*^9, 3.4960439356875*^9}, 3.4960444944375*^9, 3.49604458484375*^9, { 3.58184822468293*^9, 3.581848311583618*^9}, {3.581848348065658*^9, 3.581848382672818*^9}, {3.5828709341344366`*^9, 3.5828709715344625`*^9}, { 3.5828710812193327`*^9, 3.5828711729184775`*^9}, {3.582874074920681*^9, 3.5828740790600076`*^9}, {3.5828741555512705`*^9, 3.5828741680316505`*^9}, {3.5828762081109056`*^9, 3.58287621289087*^9}, { 3.5831339293667984`*^9, 3.583133968126469*^9}, {3.5831340779521823`*^9, 3.583134087247391*^9}, {3.58384947002981*^9, 3.5838494763108187`*^9}}, FontFamily->"Calibri", FontSize->16, FontWeight->"Bold", FontColor->RGBColor[ 0.3137254901960784, 0.2901960784313726, 0.5764705882352941]] }, Open ]], Cell[CellGroupData[{ Cell["Soluci\[OAcute]n P- 8.1", "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.496051173921875*^9, 3.49605119421875*^9}, { 3.496051916671875*^9, 3.49605191746875*^9}, 3.5818482181677217`*^9, { 3.5828712811715364`*^9, 3.5828712821406527`*^9}, {3.583052880035201*^9, 3.5830528823470793`*^9}, {3.583849490513398*^9, 3.583849492466448*^9}}, FontFamily->"Arial", FontSize->16, FontColor->RGBColor[ 0.7490196078431373, 0.4549019607843137, 0.12549019607843137`]], Cell[CellGroupData[{ Cell["Plano", "Subsubsection", CellDingbat->"\[FivePointedStar]", CellChangeTimes->{{3.450760798474702*^9, 3.4507608116530457`*^9}, 3.4507636890625*^9, {3.4511154219843235`*^9, 3.4511154228434286`*^9}, { 3.49413622215625*^9, 3.4941362250625*^9}, 3.49413625565625*^9, 3.494136320671875*^9, 3.4960514895*^9, {3.49605192371875*^9, 3.49605192903125*^9}, {3.5818486578494854`*^9, 3.5818486678298984`*^9}, 3.5828710330086064`*^9, 3.5838494806231527`*^9}, FontFamily->"Candara", FontSize->16, FontColor->RGBColor[ 0.5764705882352941, 0.30980392156862746`, 0.6745098039215687]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "^", "2"}], ",", RowBox[{ RowBox[{"a", "*", RowBox[{"x", "^", "2"}]}], "+", RowBox[{"b", "*", "x"}], "+", "c"}]}], "}"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Thickness", "[", "0.010", "]"}], ",", RowBox[{"Dashing", "[", "0.015", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Magenta", ",", RowBox[{"Thickness", "[", "0.008", "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "50"}], ",", "50"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"-", "10"}], ",", "10", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"-", "10"}], ",", "10", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"-", "10"}], ",", "10", ",", "1"}], "}"}]}], "]"}]], "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.5626520015156837`*^9, 3.5626521733314776`*^9}, {3.562652292025379*^9, 3.5626522934627595`*^9}, {3.562652354785782*^9, 3.5626523674253554`*^9}, { 3.5626524326543026`*^9, 3.562652475072648*^9}, {3.562652518803385*^9, 3.5626526829772243`*^9}, {3.5626527528620343`*^9, 3.562652783875079*^9}, { 3.583048163140625*^9, 3.5830484216875*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`a$$ = -10, $CellContext`b$$ = -10, \ $CellContext`c$$ = -10, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`a$$], -10, 10, 3}, { Hold[$CellContext`b$$], -10, 10, 1}, { Hold[$CellContext`c$$], -10, 10, 1}}, Typeset`size$$ = { 360., {105., 110.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`a$1649$$ = 0, $CellContext`b$1650$$ = 0, $CellContext`c$1651$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = -10, $CellContext`b$$ = -10, \ $CellContext`c$$ = -10}, "ControllerVariables" :> { Hold[$CellContext`a$$, $CellContext`a$1649$$, 0], Hold[$CellContext`b$$, $CellContext`b$1650$$, 0], Hold[$CellContext`c$$, $CellContext`c$1651$$, 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^2, $CellContext`a$$ $CellContext`x^2 + \ $CellContext`b$$ $CellContext`x + $CellContext`c$$}, {$CellContext`x, -10, 10}, PlotStyle -> {{Blue, Thickness[0.01], Dashing[0.015]}, {Magenta, Thickness[0.008]}}, PlotRange -> {{-10, 10}, {-50, 50}}], "Specifications" :> {{$CellContext`a$$, -10, 10, 3}, {$CellContext`b$$, -10, 10, 1}, {$CellContext`c$$, -10, 10, 1}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{407., {177., 182.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.530442798434415*^9, 3.5304428754480677`*^9}, 3.530442919056327*^9, 3.5304430401469765`*^9, {3.530443421793456*^9, 3.530443428199542*^9}, 3.5304447938284187`*^9, 3.562652033404063*^9, { 3.5626521472084837`*^9, 3.5626521743626485`*^9}, 3.5626522964937572`*^9, 3.5626523686127567`*^9, {3.5626524338885756`*^9, 3.562652477509946*^9}, 3.56265256362778*^9, {3.5626525997966456`*^9, 3.562652630590958*^9}, { 3.562652670322027*^9, 3.5626526837896566`*^9}, {3.5626527558305373`*^9, 3.5626527850468564`*^9}, 3.5830481905*^9, {3.58304824171875*^9, 3.58304833340625*^9}, {3.58304836428125*^9, 3.583048423375*^9}}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Ejercicio Propuesto P- 8.2", "Subsection", CellFrame->{{0, 0}, {0, 0.5}}, 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.49604461340625*^9, 3.49604461553125*^9}, { 3.496051865875*^9, 3.4960518679375*^9}, 3.49611763465625*^9, { 3.5818482009813223`*^9, 3.58184820734029*^9}, {3.5828742026768103`*^9, 3.5828742038170705`*^9}, {3.583052874130539*^9, 3.5830528763018303`*^9}, { 3.5831341101026697`*^9, 3.5831341155391955`*^9}, {3.583849500278648*^9, 3.5838495022941957`*^9}}, FontFamily->"Arial", FontSize->16, FontColor->RGBColor[ 0.7490196078431373, 0.4549019607843137, 0.12549019607843137`]], Cell["\<\ Visualizar gr\[AAcute]ficamente gr\[AAcute]ficamente en funci\[OAcute]n del \ parametro \[OpenCurlyDoubleQuote]a\[CloseCurlyDoubleQuote] el compotamiento \ de la familia de sinusoides: sin(a+x) , sin(a*x) y a*sinx con Manipulate\ \>", "Text", CellFrame->{{0, 0}, {0.5, 0}}, 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.450696365400645*^9}, { 3.450764702375*^9, 3.450764714859375*^9}, {3.45076482775*^9, 3.450764837625*^9}, {3.451125671779282*^9, 3.451125690427771*^9}, { 3.4511258957895513`*^9, 3.4511258960863276`*^9}, {3.451126186321278*^9, 3.451126198192706*^9}, {3.451887234200457*^9, 3.4518872522471285`*^9}, { 3.451887393914075*^9, 3.4518873954075947`*^9}, {3.4518874459850273`*^9, 3.4518875471087775`*^9}, {3.4518875844719687`*^9, 3.4518876828031807`*^9}, {3.451887713692567*^9, 3.4518877310903754`*^9}, { 3.451887816979745*^9, 3.4518878871549807`*^9}, {3.4518880824819202`*^9, 3.4518881153236303`*^9}, {3.451888181631714*^9, 3.451888285731969*^9}, { 3.4518883812285147`*^9, 3.4518883871487975`*^9}, {3.4518905280459385`*^9, 3.4518905335296817`*^9}, {3.451891865972966*^9, 3.4518918962301035`*^9}, { 3.4942385994973416`*^9, 3.494238600887966*^9}, {3.494238634012966*^9, 3.4942386391223416`*^9}, 3.494238678169216*^9, {3.494323789546875*^9, 3.49432386484375*^9}, {3.4943239079375*^9, 3.494324186046875*^9}, { 3.495185901890625*^9, 3.495185914859375*^9}, {3.49518678575*^9, 3.495186827015625*^9}, {3.49518690053125*^9, 3.495186906375*^9}, { 3.49518723434375*^9, 3.495187276890625*^9}, {3.495187631015625*^9, 3.495187643296875*^9}, {3.49518771071875*^9, 3.495187712859375*^9}, { 3.49518794925*^9, 3.49518803509375*^9}, {3.495275792984375*^9, 3.495275804921875*^9}, 3.49553569403125*^9, {3.49604221665625*^9, 3.496042218015625*^9}, {3.49604354209375*^9, 3.496043543609375*^9}, { 3.496043808640625*^9, 3.496043826765625*^9}, {3.496043932375*^9, 3.4960439356875*^9}, 3.4960444944375*^9, 3.49604458484375*^9, { 3.58184822468293*^9, 3.581848311583618*^9}, {3.581848348065658*^9, 3.581848382672818*^9}, {3.5828709341344366`*^9, 3.5828709715344625`*^9}, { 3.5828710812193327`*^9, 3.5828711729184775`*^9}, {3.582874074920681*^9, 3.5828740790600076`*^9}, {3.5828741555512705`*^9, 3.5828741680316505`*^9}, {3.5828762081109056`*^9, 3.58287621289087*^9}, { 3.583133995591*^9, 3.583134060955229*^9}, {3.583134098651597*^9, 3.583134104962966*^9}, {3.5831343015712023`*^9, 3.5831343176330853`*^9}, { 3.5831348391403103`*^9, 3.58313484395204*^9}}, FontFamily->"Calibri", FontSize->16, FontWeight->"Bold", FontColor->RGBColor[ 0.3137254901960784, 0.2901960784313726, 0.5764705882352941]] }, Open ]], Cell[CellGroupData[{ Cell["Soluci\[OAcute]n P- 8.2", "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.496051173921875*^9, 3.49605119421875*^9}, { 3.496051916671875*^9, 3.49605191746875*^9}, 3.5818482181677217`*^9, { 3.5828712811715364`*^9, 3.5828712821406527`*^9}, {3.583052880035201*^9, 3.5830528823470793`*^9}, {3.583134117507593*^9, 3.583134120725766*^9}, { 3.583849511450094*^9, 3.583849511965699*^9}}, FontFamily->"Arial", FontSize->16, FontColor->RGBColor[ 0.7490196078431373, 0.4549019607843137, 0.12549019607843137`]], Cell[CellGroupData[{ Cell["Con Manipulate", "Subsubsection", CellDingbat->"\[FivePointedStar]", CellChangeTimes->{{3.450760798474702*^9, 3.4507608116530457`*^9}, 3.4507636890625*^9, {3.4511154219843235`*^9, 3.4511154228434286`*^9}, { 3.49413622215625*^9, 3.4941362250625*^9}, 3.49413625565625*^9, 3.494136320671875*^9, 3.4960514895*^9, {3.49605192371875*^9, 3.49605192903125*^9}, {3.5818486578494854`*^9, 3.5818486678298984`*^9}, 3.5828710330086064`*^9, {3.5831342165900908`*^9, 3.5831342268240724`*^9}, 3.5838495146687202`*^9}, FontFamily->"Candara", FontSize->16, FontColor->RGBColor[ 0.5764705882352941, 0.30980392156862746`, 0.6745098039215687]], 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.2"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Dashing", "[", "0.02", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]], "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.530443727164311*^9, 3.5304437304442377`*^9}, {3.5643151217951784`*^9, 3.5643151403885713`*^9}, 3.564315171372351*^9, {3.583134185825647*^9, 3.5831341907942057`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`a$$ = 2.0200000000000005`, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`a$$], -5, 5}}, Typeset`size$$ = {360., {106., 110.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`a$1156$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = -5}, "ControllerVariables" :> { Hold[$CellContext`a$$, $CellContext`a$1156$$, 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.2}, PlotStyle -> {{Blue, Dashing[0.02]}, {Purple, Thickness[0.01]}}], "Specifications" :> {{$CellContext`a$$, -5, 5}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{407., {151., 156.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.5304437318655396`*^9, 3.5304437433765216`*^9}, 3.5304448027655754`*^9, 3.564315142372908*^9, 3.5643151723879566`*^9, 3.583134191403558*^9}] }, Open ]], 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.2"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Dashing", "[", "0.02", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"a", ",", "1", ",", "10", ",", "1"}], "}"}]}], "]"}]], "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.562651700017784*^9, 3.562651806075533*^9}, { 3.562651856104046*^9, 3.562651871368596*^9}, {3.5626519031007376`*^9, 3.5626519043037777`*^9}, {3.5831341678735657`*^9, 3.5831341754666696`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`a$$ = 4, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`a$$], 1, 10, 1}}, Typeset`size$$ = { 360., {106., 110.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`a$1115$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`a$$, $CellContext`a$1115$$, 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.2}, PlotStyle -> {{Blue, Dashing[0.02]}, {Purple, Thickness[0.01]}}], "Specifications" :> {{$CellContext`a$$, 1, 10, 1}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{407., {151., 156.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", 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.562651769717787*^9, 3.562651807169234*^9}, { 3.5626518662439575`*^9, 3.562651872274783*^9}, 3.5626519059442873`*^9, 3.5831341763260117`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", RowBox[{"a", " ", RowBox[{"Sin", "[", "x", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "6.28"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Dashing", "[", "0.02", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}], "}"}]}]}], "]"}], ",", 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.5081508385306454`*^9, 3.5081509063726587`*^9}, { 3.5831342872905006`*^9, 3.583134293868373*^9}}, CellID->240249627], 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, 2}}, Typeset`size$$ = {360., {106., 110.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`a$1321$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 0.5}, "ControllerVariables" :> { Hold[$CellContext`a$$, $CellContext`a$1321$$, 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], $CellContext`a$$ Sin[$CellContext`x]}, {$CellContext`x, 0, 6.28}, PlotStyle -> {{Blue, Dashing[0.02]}, {Purple, Thickness[0.01]}}], "Specifications" :> {{$CellContext`a$$, 0.5, 2}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{407., {151., 156.}}, 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.508150908341358*^9, 3.583134294899583*^9}, ImageSize->{254, 199}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Ejercicio Propuesto P- 8.3", "Subsection", CellFrame->{{0, 0}, {0, 0.5}}, 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.49604461340625*^9, 3.49604461553125*^9}, { 3.496051865875*^9, 3.4960518679375*^9}, 3.49611763465625*^9, { 3.5818482009813223`*^9, 3.58184820734029*^9}, {3.5828742026768103`*^9, 3.5828742038170705`*^9}, {3.583052874130539*^9, 3.5830528763018303`*^9}, { 3.5831341101026697`*^9, 3.5831341155391955`*^9}, {3.5831348575904827`*^9, 3.583134858418475*^9}, {3.583849525871415*^9, 3.583849526449518*^9}}, FontFamily->"Arial", FontSize->16, FontColor->RGBColor[ 0.7490196078431373, 0.4549019607843137, 0.12549019607843137`]], Cell["\<\ Visualizar gr\[AAcute]ficamente en funci\[OAcute]n del parametro \ \[OpenCurlyDoubleQuote]a\[CloseCurlyDoubleQuote] el compotamiento de la \ familia de sinusoides: cos(a+x) , cos(a*x) y a*cosx con Animate\ \>", "Text", CellFrame->{{0, 0}, {0.5, 0}}, 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.450696365400645*^9}, { 3.450764702375*^9, 3.450764714859375*^9}, {3.45076482775*^9, 3.450764837625*^9}, {3.451125671779282*^9, 3.451125690427771*^9}, { 3.4511258957895513`*^9, 3.4511258960863276`*^9}, {3.451126186321278*^9, 3.451126198192706*^9}, {3.451887234200457*^9, 3.4518872522471285`*^9}, { 3.451887393914075*^9, 3.4518873954075947`*^9}, {3.4518874459850273`*^9, 3.4518875471087775`*^9}, {3.4518875844719687`*^9, 3.4518876828031807`*^9}, {3.451887713692567*^9, 3.4518877310903754`*^9}, { 3.451887816979745*^9, 3.4518878871549807`*^9}, {3.4518880824819202`*^9, 3.4518881153236303`*^9}, {3.451888181631714*^9, 3.451888285731969*^9}, { 3.4518883812285147`*^9, 3.4518883871487975`*^9}, {3.4518905280459385`*^9, 3.4518905335296817`*^9}, {3.451891865972966*^9, 3.4518918962301035`*^9}, { 3.4942385994973416`*^9, 3.494238600887966*^9}, {3.494238634012966*^9, 3.4942386391223416`*^9}, 3.494238678169216*^9, {3.494323789546875*^9, 3.49432386484375*^9}, {3.4943239079375*^9, 3.494324186046875*^9}, { 3.495185901890625*^9, 3.495185914859375*^9}, {3.49518678575*^9, 3.495186827015625*^9}, {3.49518690053125*^9, 3.495186906375*^9}, { 3.49518723434375*^9, 3.495187276890625*^9}, {3.495187631015625*^9, 3.495187643296875*^9}, {3.49518771071875*^9, 3.495187712859375*^9}, { 3.49518794925*^9, 3.49518803509375*^9}, {3.495275792984375*^9, 3.495275804921875*^9}, 3.49553569403125*^9, {3.49604221665625*^9, 3.496042218015625*^9}, {3.49604354209375*^9, 3.496043543609375*^9}, { 3.496043808640625*^9, 3.496043826765625*^9}, {3.496043932375*^9, 3.4960439356875*^9}, 3.4960444944375*^9, 3.49604458484375*^9, { 3.58184822468293*^9, 3.581848311583618*^9}, {3.581848348065658*^9, 3.581848382672818*^9}, {3.5828709341344366`*^9, 3.5828709715344625`*^9}, { 3.5828710812193327`*^9, 3.5828711729184775`*^9}, {3.582874074920681*^9, 3.5828740790600076`*^9}, {3.5828741555512705`*^9, 3.5828741680316505`*^9}, {3.5828762081109056`*^9, 3.58287621289087*^9}, { 3.583133995591*^9, 3.583134060955229*^9}, {3.583134098651597*^9, 3.583134104962966*^9}, {3.5831343015712023`*^9, 3.5831343176330853`*^9}, { 3.5831348391403103`*^9, 3.5831348875544376`*^9}, 3.58384953057436*^9}, FontFamily->"Calibri", FontSize->16, FontWeight->"Bold", FontColor->RGBColor[ 0.3137254901960784, 0.2901960784313726, 0.5764705882352941]] }, Open ]], Cell[CellGroupData[{ Cell["Soluci\[OAcute]n P- 8.3", "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.496051173921875*^9, 3.49605119421875*^9}, { 3.496051916671875*^9, 3.49605191746875*^9}, 3.5818482181677217`*^9, { 3.5828712811715364`*^9, 3.5828712821406527`*^9}, {3.583052880035201*^9, 3.5830528823470793`*^9}, {3.583134117507593*^9, 3.583134120725766*^9}, { 3.5831348606837378`*^9, 3.5831348611836576`*^9}, {3.5838495355429187`*^9, 3.583849536074148*^9}}, FontFamily->"Arial", FontSize->16, FontColor->RGBColor[ 0.7490196078431373, 0.4549019607843137, 0.12549019607843137`]], Cell[CellGroupData[{ Cell["Con Animate", "Subsubsection", CellDingbat->"\[FivePointedStar]", CellChangeTimes->{{3.450760798474702*^9, 3.4507608116530457`*^9}, 3.4507636890625*^9, {3.4511154219843235`*^9, 3.4511154228434286`*^9}, { 3.49413622215625*^9, 3.4941362250625*^9}, 3.49413625565625*^9, 3.494136320671875*^9, 3.4960514895*^9, {3.49605192371875*^9, 3.49605192903125*^9}, {3.5818486578494854`*^9, 3.5818486678298984`*^9}, 3.5828710330086064`*^9, {3.5831342165900908`*^9, 3.5831342408079104`*^9}, 3.5838495393396482`*^9}, FontFamily->"Candara", FontSize->16, FontColor->RGBColor[ 0.5764705882352941, 0.30980392156862746`, 0.6745098039215687]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Animate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "x", "]"}], ",", RowBox[{"Cos", "[", RowBox[{"a", "+", "x"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "6.28"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Dashing", "[", "0.02", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", "a"}]}], "]"}], ",", RowBox[{"{", RowBox[{"a", ",", "0.5", ",", "2"}], "}"}], ",", RowBox[{"AnimationRunning", "\[Rule]", "False"}]}], "]"}]], "Input", CellChangeTimes->{ 3.508152657689913*^9, {3.5081529066210403`*^9, 3.508152979369178*^9}, { 3.5081530411332216`*^9, 3.508153061601447*^9}, {3.5831341478615274`*^9, 3.583134149861169*^9}, {3.5831343764277024`*^9, 3.583134377068303*^9}, { 3.583134891038255*^9, 3.5831349006773376`*^9}}, CellID->250043689], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`a$$ = 1.546, 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$821$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 0.5}, "ControllerVariables" :> { Hold[$CellContext`a$$, $CellContext`a$821$$, 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[{ Cos[$CellContext`x], Cos[$CellContext`a$$ + $CellContext`x]}, {$CellContext`x, 0, 6.28}, PlotStyle -> {{Blue, Dashing[0.02]}, {Purple, Thickness[0.01]}}, PlotLabel -> $CellContext`a$$], "Specifications" :> {{$CellContext`a$$, 0.5, 2, AnimationRunning -> False, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{407., {150., 155.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Animate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.508152671689554*^9, 3.508152688532873*^9}, { 3.5081529336672225`*^9, 3.508152998649934*^9}, 3.5831341525794315`*^9, 3.583134377740152*^9, 3.583134902270833*^9, {3.5838495559483852`*^9, 3.5838495721196394`*^9}}, ImageSize->{386, 183}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Animate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "x", "]"}], ",", RowBox[{"Cos", "[", RowBox[{"a", " ", "x"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "6.28"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Dashing", "[", "0.02", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", "a"}]}], "]"}], ",", RowBox[{"{", RowBox[{"a", ",", "0.5", ",", "2"}], "}"}], ",", RowBox[{"AnimationRunning", "\[Rule]", "False"}]}], "]"}]], "Input", CellChangeTimes->{ 3.508152657689913*^9, {3.5081529066210403`*^9, 3.508152979369178*^9}, { 3.5081530411332216`*^9, 3.508153061601447*^9}, {3.5831341478615274`*^9, 3.583134149861169*^9}, {3.58313490781682*^9, 3.5831349158780303`*^9}}, CellID->99990635], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`a$$ = 1.366, 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$877$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 0.5}, "ControllerVariables" :> { Hold[$CellContext`a$$, $CellContext`a$877$$, 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[{ Cos[$CellContext`x], Cos[$CellContext`a$$ $CellContext`x]}, {$CellContext`x, 0, 6.28}, PlotStyle -> {{Blue, Dashing[0.02]}, {Purple, Thickness[0.01]}}, PlotLabel -> $CellContext`a$$], "Specifications" :> {{$CellContext`a$$, 0.5, 2, AnimationRunning -> False, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{407., {150., 155.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Animate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.508152671689554*^9, 3.508152688532873*^9}, { 3.5081529336672225`*^9, 3.508152998649934*^9}, 3.5831341525794315`*^9, 3.583134931203703*^9}, ImageSize->{386, 183}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Animate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "x", "]"}], ",", RowBox[{"a", "*", RowBox[{"Cos", "[", " ", "x", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "6.28"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Dashing", "[", "0.02", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", "a"}]}], "]"}], ",", RowBox[{"{", RowBox[{"a", ",", "0.5", ",", "2"}], "}"}], ",", RowBox[{"AnimationRunning", "\[Rule]", "False"}]}], "]"}]], "Input", CellChangeTimes->{ 3.508152657689913*^9, {3.5081529066210403`*^9, 3.508152979369178*^9}, { 3.5081530411332216`*^9, 3.508153061601447*^9}, {3.5831341478615274`*^9, 3.583134149861169*^9}, {3.583134385052371*^9, 3.5831343876772704`*^9}, { 3.58313491950245*^9, 3.583134926423218*^9}}, CellID->243961840], 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, 2}}, Typeset`size$$ = {360., {114., 117.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`a$851$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 0.5}, "ControllerVariables" :> { Hold[$CellContext`a$$, $CellContext`a$851$$, 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[{ Cos[$CellContext`x], $CellContext`a$$ Cos[$CellContext`x]}, {$CellContext`x, 0, 6.28}, PlotStyle -> {{Blue, Dashing[0.02]}, {Purple, Thickness[0.01]}}, PlotLabel -> $CellContext`a$$], "Specifications" :> {{$CellContext`a$$, 0.5, 2, AnimationRunning -> False, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{407., {150., 155.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Animate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.508152671689554*^9, 3.508152688532873*^9}, { 3.5081529336672225`*^9, 3.508152998649934*^9}, 3.5831341525794315`*^9, 3.5831343882709975`*^9, 3.58313492850101*^9}, ImageSize->{386, 183}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowToolbars->"EditBar", WindowSize->{1272, 907}, 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}}]}, { "PRACTICA8-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, 802, 13, 146, "BookChapterNumber"], Cell[1384, 37, 911, 19, 146, "BookChapterTitle"], Cell[CellGroupData[{ Cell[2320, 60, 936, 16, 45, "Subsection"], Cell[3259, 78, 2939, 45, 35, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[6235, 128, 856, 14, 37, "Subsection"], Cell[CellGroupData[{ Cell[7116, 146, 595, 11, 25, "Subsubsection"], Cell[CellGroupData[{ Cell[7736, 161, 1999, 51, 72, "Input"], Cell[9738, 214, 2837, 52, 376, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[12636, 273, 990, 17, 45, "Subsection"], Cell[13629, 292, 3064, 47, 57, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[16730, 344, 906, 15, 37, "Subsection"], Cell[CellGroupData[{ Cell[17661, 363, 658, 12, 25, "Subsubsection"], Cell[CellGroupData[{ Cell[18344, 379, 1217, 30, 52, "Input"], Cell[19564, 411, 1817, 38, 324, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[21418, 454, 1277, 30, 52, "Input"], Cell[22698, 486, 1948, 40, 324, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24683, 531, 1043, 28, 52, "Input", CellID->240249627], Cell[25729, 561, 1879, 40, 324, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[27669, 608, 1036, 17, 45, "Subsection"], Cell[28708, 627, 3064, 47, 57, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[31809, 679, 962, 16, 37, "Subsection"], Cell[CellGroupData[{ Cell[32796, 699, 655, 12, 25, "Subsubsection"], Cell[CellGroupData[{ Cell[33476, 715, 1168, 30, 52, "Input", CellID->250043689], Cell[34647, 747, 2356, 48, 322, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37040, 800, 1114, 29, 52, "Input", CellID->99990635], Cell[38157, 831, 2278, 47, 322, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[40472, 883, 1170, 30, 52, "Input", CellID->243961840], Cell[41645, 915, 2290, 46, 322, "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)