(* 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[ 64821, 1506] NotebookOptionsPosition[ 60371, 1350] NotebookOutlinePosition[ 62023, 1404] CellTagsIndexPosition[ 61980, 1401] 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[{ "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.5830485513125*^9, 3.58304857503125*^9}, { 3.583050297740769*^9, 3.583050299133645*^9}, {3.6000808568125*^9, 3.60008085925*^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[{ "Oinarrizko komandoa:", StyleBox[" ", FontFamily->"Tahoma", FontSize->11], "Manipulate[adierazpena,", StyleBox[" {u, umin, umax}] , ]", 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, {3.600080938*^9, 3.60008095721875*^9}}, FontFamily->"Comic Sans MS", FontSize->18, FontColor->RGBColor[ 0.7490196078431373, 0.4549019607843137, 0.12549019607843137`]], Cell[TextData[StyleBox["Komando honek grafikoen animazioak sortzea \ ahalbidetzen du, era interaktiboan kontrola daitekeen parametro baten balioa \ aldaraziz. Orokorrean, parametro baten menpeko adierazpen bat dinamikoki \ bistara daiteke.", 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}, {3.60008095975*^9, 3.600081022859375*^9}, {3.60008114275*^9, 3.600081143640625*^9}, { 3.602661569306523*^9, 3.602661577436534*^9}}, FontFamily->"Calibri", FontSize->16], Cell[CellGroupData[{ Cell[TextData[StyleBox["Parametroen erabilera", 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.60008116215625*^9, 3.60008116515625*^9}, 3.60008169740625*^9}, FontFamily->"Calibri", FontSize->12, FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Clear", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{"n", ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "100"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.53044209531179*^9, 3.5304421548102665`*^9}, { 3.6038002459966164`*^9, 3.6038002475966187`*^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$$ = {7., {0., 8.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`n$31535$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`n$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`n$$, $CellContext`n$31535$$, 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->{249., {49., 54.}}, 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}, 3.600081678*^9, 3.6026637873069696`*^9, 3.603800251036624*^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$31559$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`n$$ = -6}, "ControllerVariables" :> { Hold[$CellContext`n$$, $CellContext`n$31559$$, 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->{405., {153., 158.}}, 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, 3.602663789366973*^9, 3.6038002512166243`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Parametro bat baino gehiagoren erabilera", 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}, { 3.600081174171875*^9, 3.600081179125*^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$$ = { 39.11999999999999, {2., 6.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`n$31596$$ = 0, $CellContext`m$31597$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`m$$ = 100, $CellContext`n$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`n$$, $CellContext`n$31596$$, 0], Hold[$CellContext`m$$, $CellContext`m$31597$$, 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->{188., {46.11, 49.89}}, 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}, 3.6026637944369802`*^9, 3.603800251256624*^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$$ = { 259.2, {83., 84.48541298959273}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`a$31624$$ = 0, $CellContext`b$31625$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = -4, $CellContext`b$$ = -10}, "ControllerVariables" :> { Hold[$CellContext`a$$, $CellContext`a$31624$$, 0], Hold[$CellContext`b$$, $CellContext`b$31625$$, 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->{296., {125.11000000000001`, 128.89}}, 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}, 3.602663796936983*^9, 3.603800251346624*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Manipulate[ ] komandoaren zenbait aukera", "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}, { 3.600081188015625*^9, 3.6000811944375*^9}}, FontFamily->"Comic Sans MS", FontSize->18, FontColor->RGBColor[ 0.7490196078431373, 0.4549019607843137, 0.12549019607843137`]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Kontrol-barrak", 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.600081207390625*^9, 3.60008120984375*^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", ",", "\"\\""}], "}"}], ",", "1", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "0", ",", "\"\\""}], "}"}], ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5643153296349373`*^9, 3.5643154122583513`*^9}, { 3.564315667300329*^9, 3.564315736752121*^9}, {3.56431577092334*^9, 3.564315846062522*^9}, {3.600081224*^9, 3.600081242453125*^9}, 3.6026638062369967`*^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, "Maiztasuna"}, 1, 10}, {{ Hold[$CellContext`a$$], 0, "Fasea"}, 0, 2 Pi}}, Typeset`size$$ = { 259.2, {77., 78.50717695859953}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`b$31666$$ = 0, $CellContext`a$31667$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 0, $CellContext`b$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`b$$, $CellContext`b$31666$$, 0], Hold[$CellContext`a$$, $CellContext`a$31667$$, 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, "Maiztasuna"}, 1, 10}, {{$CellContext`a$$, 0, "Fasea"}, 0, 2 Pi}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{296., {119.11, 122.89}}, 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}, { 3.6026638019669905`*^9, 3.6026638075769987`*^9}, 3.6038002514666243`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Plot[] komandoaren aukeren erabilera: etiketak, \ eremua", 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.600081251921875*^9, 3.600081280015625*^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$$ = 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.32716122825377}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`a$31708$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 0.5}, "ControllerVariables" :> { Hold[$CellContext`a$$, $CellContext`a$31708$$, 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->{296., {114.11, 117.89}}, 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, 3.6026638127270055`*^9, 3.6038002515966244`*^9}, ImageSize->{254, 199}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Koordenatu parametrikoetan emandako grafiko baten \ eremuaren manipulazioa egin daiteke zelan marrazten den ikusteko", 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}, { 3.600081312203125*^9, 3.600081353875*^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$$ = -3.4, 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$$ = { 259.2, {127., 129.38}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`a$31748$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = -3.4}, "ControllerVariables" :> { Hold[$CellContext`a$$, $CellContext`a$31748$$, 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->{296., {160.11, 163.89}}, 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}, 3.60266381589701*^9, 3.6038002517066245`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Grafiko asko bistara daitezke kontrol-botoiak \ erabilita", 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}, {3.600081366390625*^9, 3.600081390234375*^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]", "\"\\""}], ",", RowBox[{"Cos", "\[Rule]", "\"\\""}], ",", RowBox[{"Tan", "\[Rule]", "\"\\""}]}], "}"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.564315242995976*^9, 3.5643152548863726`*^9}, { 3.600081395390625*^9, 3.60008140671875*^9}}, CellID->417443953], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`f$$ = Sin -> "sinua", Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`f$$], { Sin -> "sinua", Cos -> "kosinua", Tan -> "tangentea"}}}, Typeset`size$$ = {259.2, {77., 78.50715751130701}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`f$31783$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`f$$ = Sin -> "sinua"}, "ControllerVariables" :> { Hold[$CellContext`f$$, $CellContext`f$31783$$, 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 -> "sinua", Cos -> "kosinua", Tan -> "tangentea"}}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{296., {112.11, 115.89}}, 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}, 3.602663821797018*^9, 3.6038002518166246`*^9}, ImageSize->{231, 193}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["3D-ko grafikoen animazioa", 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}, {3.600081410578125*^9, 3.600081414859375*^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.5, $CellContext`c$$ = 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, 4}, { Hold[$CellContext`b$$], 0.5, 4}, { Hold[$CellContext`c$$], 0.5, 4}}, Typeset`size$$ = { 194.1239978948115, {155., 156.03999999999996`}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`a$31818$$ = 0, $CellContext`b$31819$$ = 0, $CellContext`c$31820$$ = 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$31818$$, 0], Hold[$CellContext`b$$, $CellContext`b$31819$$, 0], Hold[$CellContext`c$$, $CellContext`c$31820$$, 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->{231., {206.61, 210.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.583052616783329*^9, {3.583052649839481*^9, 3.583052668054733*^9}, 3.583052706703561*^9, 3.6026638262190256`*^9, 3.603800251916625*^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[{ "Oinarrizko komandoa:", StyleBox[" ", FontFamily->"Tahoma", FontSize->11], "Animate[adierazpena,", StyleBox[" {u, umin, umax}] , ]", 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}, { 3.6000814243125*^9, 3.60008143965625*^9}}, FontFamily->"Comic Sans MS", FontSize->18, FontColor->RGBColor[ 0.7490196078431373, 0.4549019607843137, 0.12549019607843137`]], Cell[TextData[StyleBox["Komando honek grafikoen animazioak sortzea \ ahalbidetzen du, era interaktiboan kontrola daitekeen parametro baten balioa \ aldaraziz. Manipulate komandoaren antzera funtzionatzen du. Kontrakorik esan \ ezean ebaluatzen denean hasten da animazioa.", 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}, {3.60008144196875*^9, 3.6000814795*^9}, {3.600081524578125*^9, 3.600081574890625*^9}, { 3.6026616285386252`*^9, 3.6026616402006426`*^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$$ = 2.0242759704589846`, 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$$ = { 259.2, {77., 78.5162048172237}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`a$31862$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`a$$, $CellContext`a$31862$$, 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->{395., {134.11, 137.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.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, 3.603800252076625*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Animate[ ] komandoaren zenbait aukera", "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}, { 3.600081584203125*^9, 3.6000815896875*^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: aukera honekin animazioa pausaz hasten da", 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}, { 3.60008159796875*^9, 3.600081627203125*^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$$ = 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$$ = { 259.2, {81., 81.64378562914769}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`a$31898$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 0.5}, "ControllerVariables" :> { Hold[$CellContext`a$$, $CellContext`a$31898$$, 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, DefaultBaseStyle -> "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{395., {139.11, 142.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.5830521765794334`*^9, 3.5830522092671423`*^9}, { 3.583567835501119*^9, 3.583567845500863*^9}, 3.6038002522266254`*^9}, ImageSize->{337, 185}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Kontrolen kokapena: 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}, {3.600081651453125*^9, 3.60008165603125*^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$$ = { 259.2, {81., 81.64378562914769}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`a$31933$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 0.5}, "ControllerVariables" :> { Hold[$CellContext`a$$, $CellContext`a$31933$$, 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->{395., {139.11, 142.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.583052332127304*^9, 3.583052349361789*^9}, 3.603800252296625*^9}] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowToolbars->"EditBar", WindowSize->{827, 671}, WindowMargins->{{68, Automatic}, {Automatic, 3}}, 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", "-", " ", "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, 751, 12, 156, "BookChapterNumber"], Cell[1333, 36, 941, 20, 146, "BookChapterTitle"], Cell[CellGroupData[{ Cell[2299, 60, 1961, 29, 67, "Section"], Cell[CellGroupData[{ Cell[4285, 93, 1206, 26, 43, "Subsection"], Cell[5494, 121, 1450, 22, 49, "Text"], Cell[CellGroupData[{ Cell[6969, 147, 1008, 17, 25, "Subsubsection"], Cell[CellGroupData[{ Cell[8002, 168, 343, 7, 52, "Input"], Cell[8348, 177, 1744, 35, 120, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10129, 217, 556, 14, 31, "Input"], Cell[10688, 233, 1764, 35, 328, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[12501, 274, 1051, 17, 25, "Subsubsection"], Cell[CellGroupData[{ Cell[13577, 295, 435, 11, 31, "Input"], Cell[14015, 308, 1867, 38, 148, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15919, 351, 1059, 29, 52, "Input"], Cell[16981, 382, 2044, 40, 368, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[19086, 429, 1003, 16, 43, "Subsection"], Cell[CellGroupData[{ Cell[20114, 449, 1027, 16, 25, "Subsubsection"], Cell[CellGroupData[{ Cell[21166, 469, 1314, 38, 72, "Input", CellID->704639800], Cell[22483, 509, 2126, 43, 350, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[24658, 558, 1173, 19, 25, "Subsubsection"], Cell[CellGroupData[{ Cell[25856, 581, 797, 20, 31, "Input", CellID->728820331], Cell[26656, 603, 1910, 40, 336, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[28615, 649, 1329, 20, 45, "Subsubsection"], Cell[CellGroupData[{ Cell[29969, 673, 1940, 49, 100, "Input"], Cell[31912, 724, 2283, 44, 462, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[34244, 774, 1324, 21, 25, "Subsubsection"], Cell[CellGroupData[{ Cell[35593, 799, 662, 19, 31, "Input", CellID->417443953], Cell[36258, 820, 1871, 39, 320, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[38178, 865, 1063, 17, 25, "Subsubsection"], Cell[CellGroupData[{ Cell[39266, 886, 1138, 33, 52, "Input", CellID->549557794], Cell[40407, 921, 2338, 46, 592, "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[42818, 975, 2094, 31, 67, "Section"], Cell[CellGroupData[{ Cell[44937, 1010, 1231, 26, 43, "Subsection"], Cell[46171, 1038, 1715, 25, 71, "Text"], Cell[CellGroupData[{ Cell[47911, 1067, 900, 20, 31, "Input"], Cell[48814, 1089, 2260, 44, 306, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[51123, 1139, 1077, 17, 43, "Subsection"], Cell[CellGroupData[{ Cell[52225, 1160, 1265, 23, 25, "Subsubsection"], Cell[CellGroupData[{ Cell[53515, 1187, 626, 17, 52, "Input", CellID->250043689], Cell[54144, 1206, 2174, 45, 318, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[56367, 1257, 1105, 18, 25, "Subsubsection"], Cell[CellGroupData[{ Cell[57497, 1279, 737, 19, 52, "Input", CellID->635172797], Cell[58237, 1300, 2070, 43, 350, "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)