(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 11703, 301] NotebookOptionsPosition[ 11312, 287] NotebookOutlinePosition[ 11653, 302] CellTagsIndexPosition[ 11610, 299] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Jednotn\[AAcute]", " ", "velikost", " ", "obr\[AAcute]zk\[URing]"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"imgSize", "=", "400"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Obecn\[AAcute]", " ", "funkce", " ", "pro", " ", "2", "D", " ", "animaci", " ", "k\[RHacek]ivky"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"animate2D", "[", RowBox[{"f_", ",", RowBox[{"{", RowBox[{"t_", ",", "tmin_", ",", "tmax_"}], "}"}], ",", "plotRange_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Animate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ParametricPlot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "tmin", ",", "s"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0.64", ",", "0.95"}], "]"}], ",", "Thick"}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "plotRange"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "Large", "]"}], ",", RowBox[{"Point", "[", RowBox[{"f", "[", "s", "]"}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"s", ",", RowBox[{"tmin", "+", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "12"}], ")"}]}]}], ",", "tmax"}], "}"}], ",", RowBox[{"AnimationRunning", "\[Rule]", "False"}], ",", RowBox[{"AnimationRepetitions", "\[Rule]", "1"}], ",", RowBox[{"AnimationRate", "\[Rule]", ".2"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Obecn\[AAcute]", " ", "funkce", " ", "pro", " ", "3", "D", " ", "animaci", " ", "k\[RHacek]ivky"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"animate3D", "[", RowBox[{"f_", ",", RowBox[{"{", RowBox[{"t_", ",", "tmin_", ",", "tmax_"}], "}"}], ",", "plotRange_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Animate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ParametricPlot3D", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "tmin", ",", "s"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0.64", ",", "0.95"}], "]"}], ",", "Thick"}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "plotRange"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", RowBox[{"BoxRatios", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"AbsolutePointSize", "[", "8", "]"}], ",", RowBox[{"Point", "[", RowBox[{"f", "[", "s", "]"}], "]"}]}], "}"}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"s", ",", RowBox[{"tmin", "+", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "12"}], ")"}]}]}], ",", "tmax"}], "}"}], ",", RowBox[{"AnimationRunning", "\[Rule]", "False"}], ",", RowBox[{"AnimationRepetitions", "\[Rule]", "1"}], ",", RowBox[{"AnimationRate", "\[Rule]", ".2"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Konkr\[EAcute]tn\[IAcute]", " ", "vektorov\[EAcute]", " ", "funkce"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{"t", ",", RowBox[{"t", "^", "2"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"g", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"3", " ", "t"}], "]"}], ",", RowBox[{"Sin", "[", RowBox[{"5", " ", "t"}], "]"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"h", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"3.5", " ", RowBox[{"Cos", "[", "t", "]"}]}], "-", RowBox[{"1.5", " ", RowBox[{"Cos", "[", RowBox[{"7", " ", "t"}], "]"}]}]}], ",", RowBox[{ RowBox[{"3.5", " ", RowBox[{"Sin", "[", "t", "]"}]}], "-", RowBox[{"1.5", " ", RowBox[{"Sin", "[", RowBox[{"7", " ", "t"}], "]"}]}]}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "t", "]"}], ",", RowBox[{"Sin", "[", "t", "]"}], ",", "t"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Seznam", " ", "animac\[IAcute]"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"plots", "=", RowBox[{"{", RowBox[{ RowBox[{"animate2D", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}]}], "}"}]}], "]"}], ",", RowBox[{"animate2D", "[", RowBox[{"g", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"2", " ", "Pi"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}]}], "}"}]}], "]"}], ",", RowBox[{"animate2D", "[", RowBox[{"h", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"2", " ", "Pi"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "}"}]}], "]"}], ",", RowBox[{"animate3D", "[", RowBox[{"w", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"8", "Pi"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"8", "Pi"}]}], "}"}]}], "}"}]}], "]"}]}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.980998862740178*^9, 3.9809988627450514`*^9}, 3.980998943187643*^9, {3.9809990003186865`*^9, 3.980999049399807*^9}, { 3.980999108637947*^9, 3.98099911375426*^9}, {3.9810009760440235`*^9, 3.98100098072917*^9}, {3.981001020017912*^9, 3.981001050779608*^9}, { 3.981001194428099*^9, 3.9810012013275385`*^9}, {3.9810013666285295`*^9, 3.98100137485915*^9}, {3.9810015287486925`*^9, 3.981001541902745*^9}, { 3.981001902857335*^9, 3.9810019518130293`*^9}, 3.9810023234111204`*^9, 3.9810024708549175`*^9, 3.9810025486667585`*^9, 3.981002620975754*^9, { 3.9810027932168074`*^9, 3.9810028179904375`*^9}, {3.981003374324135*^9, 3.981003395043545*^9}, {3.9810115766273317`*^9, 3.9810115823050413`*^9}, { 3.981011642312003*^9, 3.9810116451841946`*^9}, {3.9810117708745317`*^9, 3.9810117714627113`*^9}, {3.9810118549886494`*^9, 3.981011857606697*^9}, { 3.9810118887630696`*^9, 3.9810118913967447`*^9}, {3.9810119483917713`*^9, 3.981011958776305*^9}, {3.9810119972557163`*^9, 3.9810119978880997`*^9}, 3.981013044544469*^9, {3.9810130939128246`*^9, 3.981013111015704*^9}, { 3.9810131677128057`*^9, 3.9810131750487323`*^9}, {3.981013256419551*^9, 3.981013260564731*^9}, {3.9810133276550817`*^9, 3.981013329849242*^9}, { 3.9810135804093456`*^9, 3.9810136039820347`*^9}, 3.9810136485307283`*^9, { 3.9810136843945904`*^9, 3.9810137285095553`*^9}, {3.9810137678459663`*^9, 3.9810138086838474`*^9}, {3.9810138460152426`*^9, 3.981013886816042*^9}, { 3.9810139171386414`*^9, 3.981013918196866*^9}, 3.981014030259143*^9, { 3.981014113180277*^9, 3.981014135616858*^9}, {3.981014473339342*^9, 3.981014476112652*^9}, {3.9810145337277203`*^9, 3.9810145542358522`*^9}, { 3.981014584836537*^9, 3.981014617456503*^9}, {3.981014671302188*^9, 3.981014717595264*^9}, {3.9810148713174276`*^9, 3.9810148776599975`*^9}, { 3.9810149766898108`*^9, 3.981014977252818*^9}, 3.98101501658002*^9, { 3.9810150467907157`*^9, 3.9810150537566648`*^9}, {3.981015195906045*^9, 3.981015207002635*^9}, {3.981015259003173*^9, 3.981015463923598*^9}, { 3.981015499655423*^9, 3.9810155074830694`*^9}, {3.9810187392949963`*^9, 3.981018787018567*^9}, {3.9810188192103*^9, 3.981018856505704*^9}}, CellLabel->"In[18]:=",ExpressionUUID->"ec878c2b-ee7f-401f-8d80-9708dcf29bcd"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"V\[YAcute]b\[EHacek]r", " ", "animace"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"plots", "[", RowBox[{"[", "4", "]"}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.980999393684107*^9, 3.980999393684107*^9}, { 3.9810015706756706`*^9, 3.9810015709542212`*^9}, {3.981002556626974*^9, 3.981002577855811*^9}, {3.9810116498304815`*^9, 3.9810116502790093`*^9}, { 3.9810147224040194`*^9, 3.9810147265690284`*^9}, {3.981018860006494*^9, 3.9810189161133037`*^9}, {3.981018956378281*^9, 3.9810189573700843`*^9}},ExpressionUUID->"90cbcd0b-d311-450e-a8f7-\ af93cf301dac"] }, WindowSize->{1518, 755}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 10078, 249, 618, "Input",ExpressionUUID->"ec878c2b-ee7f-401f-8d80-9708dcf29bcd"], Cell[10639, 271, 669, 14, 67, "Input",ExpressionUUID->"90cbcd0b-d311-450e-a8f7-af93cf301dac"] } ] *)