(* 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[ 48168, 1096] NotebookOptionsPosition[ 44780, 979] NotebookOutlinePosition[ 46451, 1033] CellTagsIndexPosition[ 46408, 1030] 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[{ "8. PRAKTIKA: GRAFIKOEN ANIMAZIOA", 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}, { 3.5852198567928*^9, 3.5852198717064*^9}, {3.6026655462796974`*^9, 3.602665546679698*^9}}, FontFamily->"Albertus Medium", FontSize->28, FontColor->RGBColor[ 0.47843137254901963`, 0.12156862745098039`, 0.596078431372549]], Cell[CellGroupData[{ Cell["Proposatutako Ariketa 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}, {3.585219889506*^9, 3.5852198923764*^9}}, FontFamily->"Arial", FontSize->16, FontColor->RGBColor[ 0.7490196078431373, 0.4549019607843137, 0.12549019607843137`]], Cell["\<\ a, b eta c parametroen menpeko ax^2+bx+c parabola familia grafikoki bistaratu.\ \>", "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}, { 3.585219903936*^9, 3.5852199238104*^9}, 3.6026655546097093`*^9}, FontFamily->"Calibri", FontSize->16, FontWeight->"Bold", FontColor->RGBColor[ 0.3137254901960784, 0.2901960784313726, 0.5764705882352941]] }, Open ]], Cell[CellGroupData[{ Cell["Soluzioa 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}, { 3.5852199262595997`*^9, 3.5852199276168003`*^9}}, FontFamily->"Arial", FontSize->16, FontColor->RGBColor[ 0.7490196078431373, 0.4549019607843137, 0.12549019607843137`]], Cell[CellGroupData[{ Cell["Planoa", "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, 3.5852199290052*^9}, FontFamily->"Candara", FontSize->16, FontColor->RGBColor[ 0.5764705882352941, 0.30980392156862746`, 0.6745098039215687]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Clear", "[", "\"\\"", "]"}], "\[IndentingNewLine]", 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}, {3.603610572364111*^9, 3.6036105741441135`*^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$43662$$ = 0, $CellContext`b$43663$$ = 0, $CellContext`c$43664$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = -10, $CellContext`b$$ = -10, \ $CellContext`c$$ = -10}, "ControllerVariables" :> { Hold[$CellContext`a$$, $CellContext`a$43662$$, 0], Hold[$CellContext`b$$, $CellContext`b$43663$$, 0], Hold[$CellContext`c$$, $CellContext`c$43664$$, 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->{405., {176., 181.}}, 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}, 3.603610580094122*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Proposatutako Ariketa 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}, {3.5852199363684*^9, 3.58521993966*^9}}, FontFamily->"Arial", FontSize->16, FontColor->RGBColor[ 0.7490196078431373, 0.4549019607843137, 0.12549019607843137`]], Cell["\<\ a parametroaren menpeko sin(a+x) , sin(a*x) eta a*sinx sinusoide familia \ grafikoki bistaratu Manipulate agindua erabilita.\ \>", "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}, {3.5852199640428*^9, 3.5852199958824*^9}, 3.602665563611723*^9}, FontFamily->"Calibri", FontSize->16, FontWeight->"Bold", FontColor->RGBColor[ 0.3137254901960784, 0.2901960784313726, 0.5764705882352941]] }, Open ]], Cell[CellGroupData[{ Cell["Soluzioa 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}, {3.585219998316*^9, 3.585219999408*^9}}, FontFamily->"Arial", FontSize->16, FontColor->RGBColor[ 0.7490196078431373, 0.4549019607843137, 0.12549019607843137`]], Cell[CellGroupData[{ Cell["Manipulate erabilita", "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, {3.585220001748*^9, 3.5852200048056*^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$$ = -5, 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$$ = { 259.2, {77., 78.50717796211455}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`a$43710$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = -5}, "ControllerVariables" :> { Hold[$CellContext`a$$, $CellContext`a$43710$$, 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->{296., {109.61, 113.39}}, 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, 3.603610580276125*^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$$ = 1, 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$$ = { 259.2, {77., 78.50718845056522}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`a$43747$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`a$$, $CellContext`a$43747$$, 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->{296., {109.61, 113.39}}, 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, 3.603610580376125*^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$$ = { 259.2, {77., 78.50716122825378}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`a$43784$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 0.5}, "ControllerVariables" :> { Hold[$CellContext`a$$, $CellContext`a$43784$$, 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->{296., {109.61, 113.39}}, 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, 3.603610580496125*^9}, ImageSize->{254, 199}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Proposatutako Ariketa 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}, { 3.5852200130112*^9, 3.5852200160220003`*^9}}, FontFamily->"Arial", FontSize->16, FontColor->RGBColor[ 0.7490196078431373, 0.4549019607843137, 0.12549019607843137`]], Cell["\<\ a parametroaren menpeko cos(a+x) , cos(a*x) eta a*cosx sinusoide familia \ grafikoki bistaratu Animate agindua erabilita.\ \>", "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, { 3.585220036302*^9, 3.5852200559424*^9}, 3.6026655757017403`*^9}, FontFamily->"Calibri", FontSize->16, FontWeight->"Bold", FontColor->RGBColor[ 0.3137254901960784, 0.2901960784313726, 0.5764705882352941]] }, Open ]], Cell[CellGroupData[{ Cell["Soluzioa 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}, {3.5852200580016003`*^9, 3.585220059156*^9}}, FontFamily->"Arial", FontSize->16, FontColor->RGBColor[ 0.7490196078431373, 0.4549019607843137, 0.12549019607843137`]], Cell[CellGroupData[{ Cell["Animate erabilita", "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, {3.5852200610903997`*^9, 3.5852200642728*^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$$ = 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$$ = { 259.2, {81., 83.3271812120145}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`a$43821$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 0.5}, "ControllerVariables" :> { Hold[$CellContext`a$$, $CellContext`a$43821$$, 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->{395., {141.11, 144.89}}, 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}, 3.6036105806081266`*^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$$ = 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$$ = { 259.2, {81., 83.32718121201404}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`a$43858$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 0.5}, "ControllerVariables" :> { Hold[$CellContext`a$$, $CellContext`a$43858$$, 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->{395., {141.11, 144.89}}, 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, 3.6036105806981263`*^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$$ = { 259.2, {81., 83.3271812120145}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`a$43895$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 0.5}, "ControllerVariables" :> { Hold[$CellContext`a$$, $CellContext`a$43895$$, 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->{395., {141.11, 144.89}}, 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, 3.6036105807781267`*^9}, ImageSize->{386, 183}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowToolbars->"EditBar", WindowSize->{1074, 773}, WindowMargins->{{99, Automatic}, {Automatic, -2}}, PrintingCopies->1, PrintingStartingPageNumber->1, PrintingPageRange->{32000, 32000}, 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}}]}, { Cell[ TextData[{"8", " ", "Praktika", "-", " ", "Grafikoen", " ", "animazioa"}], "Header", CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, Cell[ TextData[ StyleBox[ CounterBox["Page"], "PageNumber"]], "Header", CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}}, PageFooters->{{None, None, None}, {None, None, None}}, PageHeaderLines->{False, True}, PageFooterLines->{False, False}, PrintingOptions->{"FacingPages"->False, "FirstPageFace"->Right, "FirstPageFooter"->True, "FirstPageHeader"->True, "Magnification"->1., "PaperOrientation"->"Portrait", "PaperSize"->{595.1999999999999, 841.98}, "PrintCellBrackets"->False, "PrintMultipleHorizontalPages"->False, "PrintRegistrationMarks"->False, "PrintingMargins"->{{54, 54}, {72, 72}}}, ShowSelection->True, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)", 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, 156, "BookChapterNumber"], Cell[1384, 37, 963, 20, 146, "BookChapterTitle"], Cell[CellGroupData[{ Cell[2372, 61, 983, 17, 45, "Subsection"], Cell[3358, 80, 2936, 45, 35, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[6331, 130, 902, 15, 37, "Subsection"], Cell[CellGroupData[{ Cell[7258, 149, 616, 11, 25, "Subsubsection"], Cell[CellGroupData[{ Cell[7899, 164, 2126, 53, 92, "Input"], Cell[10028, 219, 2869, 53, 374, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[12958, 279, 1032, 17, 45, "Subsection"], Cell[13993, 298, 3028, 47, 35, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[17058, 350, 942, 16, 37, "Subsection"], Cell[CellGroupData[{ Cell[18025, 370, 705, 12, 25, "Subsubsection"], Cell[CellGroupData[{ Cell[18755, 386, 1217, 30, 52, "Input"], Cell[19975, 418, 1846, 39, 322, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[21858, 462, 1277, 30, 52, "Input"], Cell[23138, 494, 1994, 41, 322, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[25169, 540, 1043, 28, 52, "Input", CellID->240249627], Cell[26215, 570, 1925, 41, 322, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[28201, 618, 1088, 18, 45, "Subsection"], Cell[29292, 638, 3050, 47, 35, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[32379, 690, 999, 16, 37, "Subsection"], Cell[CellGroupData[{ Cell[33403, 710, 707, 12, 25, "Subsubsection"], Cell[CellGroupData[{ Cell[34135, 726, 1168, 30, 52, "Input", CellID->250043689], Cell[35306, 758, 2398, 48, 320, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37741, 811, 1114, 29, 52, "Input", CellID->99990635], Cell[38858, 842, 2326, 48, 320, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41221, 895, 1170, 30, 52, "Input", CellID->243961840], Cell[42394, 927, 2334, 46, 352, "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)