(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 61852, 1791] NotebookOptionsPosition[ 56789, 1639] NotebookOutlinePosition[ 57592, 1667] CellTagsIndexPosition[ 57513, 1662] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[TextData[{ "\nO volb\[AAcute]ch ColorFunction a Mesh, \n", StyleBox["v\[CHacek]etn\:011b pou\:017eit\[IAcute] p\:0159i kreslen\[IAcute] \ graf\:016f, k\:0159ivek a ploch", FontSize->48] }], "Title", CellChangeTimes->{{3.440000808*^9, 3.440000821890625*^9}, 3.440179672703125*^9, 3.44022051090625*^9, 3.440220549484375*^9, 3.440220760140625*^9, 3.44022082925*^9, {3.44480429778125*^9, 3.44480431740625*^9}, {3.444922591203125*^9, 3.44492261878125*^9}, { 3.444922685203125*^9, 3.44492268709375*^9}}, TextAlignment->Center], Cell[TextData[{ "\nAnton\[IAcute]n Slav\[IAcute]k, MFF UK\n", StyleBox["slavik@karlin.mff.cuni.cz", FontFamily->"Courier New"] }], "Subtitle", CellChangeTimes->{{3.440179682015625*^9, 3.440179688375*^9}, { 3.44022083796875*^9, 3.44022084571875*^9}, 3.444922632921875*^9}, TextAlignment->Center, FontColor->GrayLevel[0]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["ColorFunction", "Section", CellChangeTimes->{{3.43988196128125*^9, 3.43988197603125*^9}, { 3.439884632796875*^9, 3.439884632921875*^9}, {3.439988280046875*^9, 3.4399882845625*^9}, {3.444804443515625*^9, 3.444804450765625*^9}}], Cell[CellGroupData[{ Cell["Obarvovac\[IAcute] funkce", "Subsection", CellChangeTimes->{{3.4449120814375*^9, 3.444912092078125*^9}, { 3.444922216109375*^9, 3.444922220046875*^9}}], Cell["\<\ Definice pomocn\[EAcute] funkce pro testov\[AAcute]n\[IAcute] obarvovac\ \[IAcute]ch funkc\[IAcute]:\ \>", "Text", CellChangeTimes->{{3.444921918390625*^9, 3.444921947484375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"testColors", "[", RowBox[{"f_", ",", RowBox[{"min_:", "0"}], ",", RowBox[{"max_:", "1"}], ",", RowBox[{"dx_:", "0.005"}]}], "]"}], ":=", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "i", "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"i", "+", "dx"}], ",", "1"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "min", ",", "max", ",", "dx"}], "}"}]}], "]"}], ",", RowBox[{"Axes", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "600"}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "6"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.444892234890625*^9, 3.444892297046875*^9}, { 3.44489236115625*^9, 3.444892386203125*^9}}], Cell[TextData[{ Cell[BoxData["Hue"]], " vrac\[IAcute] barevn\[EAcute] odst\[IAcute]ny, je periodick\[AAcute] s \ periodou 1." }], "Text", CellChangeTimes->{{3.444921737953125*^9, 3.4449217676875*^9}}], Cell[BoxData[ RowBox[{"testColors", "[", RowBox[{"Hue", ",", "0", ",", "3"}], "]"}]], "Input", CellChangeTimes->{{3.4448923061875*^9, 3.44489231221875*^9}}], Cell["\<\ Funkce, kter\[AAcute] na intervalu [0,1] p\:0159ech\[AAcute]z\[IAcute] od \ modr\[EAcute] k \[CHacek]erven\[EAcute]:\ \>", "Text", CellChangeTimes->{{3.44492178546875*^9, 3.44492188325*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"blueToRed", "[", "t_", "]"}], ":=", RowBox[{"Hue", "[", RowBox[{"0.5", "+", RowBox[{"0.5", "*", "t"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.4448922205*^9, 3.4448922306875*^9}}], Cell[BoxData[ RowBox[{"testColors", "[", "blueToRed", "]"}]], "Input", CellChangeTimes->{{3.444892328703125*^9, 3.44489233609375*^9}, 3.444979386671875*^9}], Cell[TextData[{ "Dal\[SHacek]\[IAcute] obarvovac\[IAcute] funkce jsou p\:0159\[IAcute]stupn\ \[EAcute] pomoc\[IAcute] ", Cell[BoxData["ColorData"]], " (v\[SHacek]echny jsou definov\[AAcute]ny na [0,1]):" }], "Text", CellChangeTimes->{{3.444921969984375*^9, 3.444922036328125*^9}}], Cell[BoxData[ RowBox[{"ColorData", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.444892459828125*^9, 3.44489246284375*^9}, { 3.444892721671875*^9, 3.444892734234375*^9}}], Cell[BoxData[ RowBox[{"testColors", "[", RowBox[{"ColorData", "[", "\"\\"", "]"}], "]"}]], "Input", CellChangeTimes->{{3.444892593453125*^9, 3.44489262215625*^9}, 3.444892707625*^9, {3.4448927384375*^9, 3.4448928433125*^9}, 3.44497940475*^9}], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"testColors", "[", RowBox[{"ColorData", "[", "col", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"col", ",", RowBox[{"ColorData", "[", "\"\\"", "]"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.444892855703125*^9, 3.444892885921875*^9}, { 3.444912142140625*^9, 3.44491215225*^9}, {3.444979414078125*^9, 3.44497941878125*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Barven\[IAcute] graf\:016f, k\:0159ivek a ploch", "Subsection", CellChangeTimes->{{3.44482215609375*^9, 3.444822169625*^9}, { 3.444912607828125*^9, 3.444912612984375*^9}, {3.444912985765625*^9, 3.44491301571875*^9}, {3.4449226951875*^9, 3.444922711421875*^9}}], Cell[TextData[{ "Grafy, k\:0159ivky a plochy lze barvit pomoc\[IAcute] libovoln\[EAcute] \ obarvovac\[IAcute] funkce. Pou\:017eijeme volbu ", Cell[BoxData["ColorFunction"]], " s funkc\[IAcute], kter\[AAcute] specifikuje barvu bodu v dan\[EAcute]m m\ \[IAcute]st\:011b nebo \[CHacek]ase." }], "Text", CellChangeTimes->{{3.444912769171875*^9, 3.4449127840625*^9}, { 3.4449129165*^9, 3.4449129434375*^9}, 3.444921644390625*^9, { 3.44492206134375*^9, 3.4449221940625*^9}, {3.4449915685*^9, 3.44499157090625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Sin", "[", "x", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"ColorFunction", " ", "\[Rule]", " ", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", RowBox[{"Hue", "[", "y", "]"}]}], "]"}]}], ",", " ", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", " ", RowBox[{"ImageSize", "\[Rule]", "700"}]}], "]"}], " "}]], "Input", CellChangeTimes->{ 3.381703018114489*^9, {3.381703108846261*^9, 3.381703118710783*^9}, { 3.381703182702997*^9, 3.3817031899632063`*^9}, {3.381703258968841*^9, 3.38170328276888*^9}, {3.381703910104314*^9, 3.38170391861526*^9}, { 3.38177292485599*^9, 3.3817729418602133`*^9}, {3.38582926775504*^9, 3.385829294252182*^9}, 3.387545707790351*^9, {3.42627876690757*^9, 3.426278767945003*^9}, {3.44482212034375*^9, 3.444822139359375*^9}, { 3.4449127308125*^9, 3.444912736640625*^9}, {3.4449915805625*^9, 3.44499162515625*^9}, {3.44499168821875*^9, 3.444991713625*^9}}], Cell[TextData[{ "Hodnoty p\:0159ed\[AAcute]van\[EAcute] obarvovac\[IAcute] funkci jsou p\ \:0159i v\[YAcute]choz\[IAcute]m nastaven\[IAcute] line\[AAcute]rn\:011b \ transformov\[AAcute]ny do intervalu [0,1]; tuto vlastnost lze vypnout pomoc\ \[IAcute] ", Cell[BoxData[ RowBox[{"ColorFunctionScaling", "\[Rule]", "False"}]]], "." }], "Text", CellChangeTimes->{{3.444913147859375*^9, 3.444913242828125*^9}, { 3.444921660390625*^9, 3.444921688421875*^9}}], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"x", "+", "y"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", RowBox[{"Hue", "[", "z", "]"}]}], "]"}]}], ",", " ", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\!\(\* StyleBox[\"x\", FontSlant->\"Italic\"]\)\>\"", ",", "\"\<\!\(\* StyleBox[\"y\", FontSlant->\"Italic\"]\)\>\"", ",", "\"\<\!\(\* StyleBox[\"z\", FontSlant->\"Italic\"]\)\>\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.444913305953125*^9, 3.4449133305*^9}}, CellID->361746181], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"x", "+", "y"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", RowBox[{"Hue", "[", "z", "]"}]}], "]"}]}], ",", " ", RowBox[{"ColorFunctionScaling", "\[Rule]", "False"}], ",", " ", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\!\(\* StyleBox[\"x\", FontSlant->\"Italic\"]\)\>\"", ",", "\"\<\!\(\* StyleBox[\"y\", FontSlant->\"Italic\"]\)\>\"", ",", "\"\<\!\(\* StyleBox[\"z\", FontSlant->\"Italic\"]\)\>\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.44491325821875*^9, 3.44491326484375*^9}, { 3.444979496828125*^9, 3.444979497375*^9}}, CellID->205987087], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"c", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "t", "]"}], "+", RowBox[{"0.2", " ", RowBox[{"Cos", "[", RowBox[{"26", " ", "t"}], "]"}]}], "+", RowBox[{"0.4", " ", RowBox[{"Cos", "[", RowBox[{"28", " ", "t"}], "]"}]}], "+", RowBox[{"0.8", RowBox[{"Sin", "[", RowBox[{"10", " ", "t"}], "]"}]}], "-", RowBox[{"0.4", " ", RowBox[{"Sin", "[", RowBox[{"17", " ", "t"}], "]"}]}], "-", RowBox[{"0.2", " ", RowBox[{"Sin", "[", RowBox[{"37", " ", "t"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "0.8"}], " ", RowBox[{"Cos", "[", RowBox[{"10", " ", "t"}], "]"}]}], "-", RowBox[{"0.4", " ", RowBox[{"Cos", "[", RowBox[{"17", " ", "t"}], "]"}]}], "+", RowBox[{"0.2", RowBox[{"Cos", "[", RowBox[{"37", " ", "t"}], "]"}]}], "+", RowBox[{"Sin", "[", "t", "]"}], "-", RowBox[{"0.2", " ", RowBox[{"Sin", "[", RowBox[{"26", " ", "t"}], "]"}]}], "+", RowBox[{"0.4", " ", RowBox[{"Sin", "[", RowBox[{"28", " ", "t"}], "]"}]}]}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.44482230865625*^9, 3.444822338*^9}}], Cell[BoxData[ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"c", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}]], "Input", CellChangeTimes->{{3.444822340078125*^9, 3.44482236421875*^9}}], Cell[BoxData[ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"c", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", " ", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "t"}], "}"}], ",", RowBox[{"Hue", "[", "t", "]"}]}], "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.444822340078125*^9, 3.444822398203125*^9}}], Cell[BoxData[ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"c", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", " ", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "t"}], "}"}], ",", RowBox[{"Hue", "[", "x", "]"}]}], "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.444822340078125*^9, 3.444822398203125*^9}, { 3.44491262878125*^9, 3.444912628875*^9}}], Cell[TextData[{ "Pou\:017eit\[IAcute] p\:0159eddefinovan\[YAcute]ch barevn\[YAcute]ch sch\ \[EAcute]mat (obarven\[IAcute] podle sou\:0159adnice ", StyleBox["z", FontSlant->"Italic"], "):" }], "Text", CellChangeTimes->{{3.444912487296875*^9, 3.444912509875*^9}, { 3.444922287703125*^9, 3.444922294921875*^9}}], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{"3", " ", SuperscriptBox["y", "2"]}]}], ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1", "-", SuperscriptBox["x", "2"], "-", SuperscriptBox["y", "2"]}]]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2.5"}], ",", "2.5"}], "}"}], ",", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", RowBox[{ RowBox[{"ColorData", "[", "\"\\"", "]"}], "[", "z", "]"}]}], "]"}]}], ",", " ", RowBox[{"BoxRatios", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellChangeTimes->{{3.3911936439015503`*^9, 3.3911936615970573`*^9}, { 3.4266780514517937`*^9, 3.426678054059931*^9}, {3.4448942568125*^9, 3.4448942760625*^9}, {3.444912282921875*^9, 3.44491230696875*^9}, { 3.4449124126875*^9, 3.444912457046875*^9}, 3.444914112109375*^9}], Cell[TextData[{ "Zkr\[AAcute]cen\[YAcute] z\[AAcute]pis (viz dokumentaci ke ", Cell[BoxData["ColorFunction"]], ")." }], "Text", CellChangeTimes->{{3.44491251796875*^9, 3.44491255609375*^9}}], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{"3", " ", SuperscriptBox["y", "2"]}]}], ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1", "-", SuperscriptBox["x", "2"], "-", SuperscriptBox["y", "2"]}]]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2.5"}], ",", "2.5"}], "}"}], ",", RowBox[{"ColorFunction", "->", "\"\\""}], ",", " ", RowBox[{"BoxRatios", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellChangeTimes->{{3.3911936439015503`*^9, 3.3911936615970573`*^9}, { 3.4266780514517937`*^9, 3.426678054059931*^9}, {3.4448942568125*^9, 3.4448942760625*^9}, {3.444912282921875*^9, 3.44491230696875*^9}, 3.444914107875*^9}], Cell[BoxData[ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{"3", " ", SuperscriptBox["y", "2"]}]}], ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1", "-", SuperscriptBox["x", "2"], "-", SuperscriptBox["y", "2"]}]]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2.5"}], ",", "2.5"}], "}"}], ",", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"ColorData", "[", "\"\\"", "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.38766503023111*^9, 3.387665032216999*^9}, { 3.4266734988337727`*^9, 3.426673503522663*^9}, {3.444913568*^9, 3.44491357653125*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Obarven\[IAcute] parametrizovan\[EAcute] k\:0159ivky podle rychlosti\ \>", "Subsection", CellChangeTimes->{{3.4448211304375*^9, 3.444821156984375*^9}}], Cell["\<\ P\:0159\[IAcute]klad k ilustraci Keplerov\[YAcute]ch pohybov\[YAcute]ch z\ \[AAcute]kon\:016f:\ \>", "Text", CellChangeTimes->{{3.4449796305*^9, 3.444979652921875*^9}}], Cell[BoxData[ RowBox[{"soln", "=", RowBox[{ RowBox[{"X", "[", "t", "]"}], "/.", RowBox[{"First", "@", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["X", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{"-", FractionBox[ RowBox[{"X", "[", "t", "]"}], SuperscriptBox[ RowBox[{"Norm", "[", RowBox[{"X", "[", "t", "]"}], "]"}], "3"]]}]}], ",", RowBox[{ RowBox[{"X", "[", "0", "]"}], "\[Equal]", RowBox[{"{", RowBox[{"0.5", ",", "0"}], "}"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["X", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "\[Equal]", RowBox[{"{", RowBox[{"0", ",", SqrtBox[ FractionBox["1.5", "0.5"]]}], "}"}]}]}], "}"}], ",", RowBox[{"X", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"2", " ", "\[Pi]"}]}], "}"}]}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.4178070243268642`*^9, 3.4178070440873613`*^9}, { 3.417807096191167*^9, 3.417807118497518*^9}, {3.42724011330054*^9, 3.427240116521133*^9}, 3.443466552671673*^9, {3.443467221488243*^9, 3.443467233959928*^9}, {3.443467305864616*^9, 3.443467309757519*^9}, { 3.4434675376068296`*^9, 3.443467547123567*^9}, 3.443766249125*^9, { 3.44482069178125*^9, 3.444820693625*^9}, 3.4448210725*^9, { 3.44492243584375*^9, 3.4449224705625*^9}}], Cell[BoxData[ RowBox[{"ParametricPlot", "[", RowBox[{"soln", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}]], "Input", CellChangeTimes->{{3.4178070243268642`*^9, 3.4178070440873613`*^9}, { 3.417807096191167*^9, 3.417807118497518*^9}, {3.42724011330054*^9, 3.427240116521133*^9}, 3.443466552671673*^9, {3.443467221488243*^9, 3.443467224760179*^9}, 3.443467524659586*^9}], Cell[BoxData[ RowBox[{ RowBox[{"speed", "[", "t_", "]"}], "=", RowBox[{"Norm", "[", RowBox[{"D", "[", RowBox[{"soln", ",", "t"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.444820565015625*^9, 3.4448205896875*^9}}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"speed", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}]], "Input", CellChangeTimes->{{3.4448205958125*^9, 3.444820606515625*^9}, 3.4448212136875*^9}], Cell[BoxData[ RowBox[{"max", "=", RowBox[{ RowBox[{"Maximize", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"speed", "[", "t", "]"}], ",", RowBox[{"0", "\[LessEqual]", "t", "\[LessEqual]", RowBox[{"2", "Pi"}]}]}], "}"}], ",", "t"}], "]"}], "//", "First"}]}]], "Input", CellChangeTimes->{{3.44482071940625*^9, 3.444820762359375*^9}, { 3.444820793578125*^9, 3.44482081746875*^9}}], Cell[BoxData[ RowBox[{"min", "=", RowBox[{ RowBox[{"Minimize", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"speed", "[", "t", "]"}], ",", RowBox[{"0", "\[LessEqual]", "t", "\[LessEqual]", RowBox[{"2", "Pi"}]}]}], "}"}], ",", "t"}], "]"}], "//", "First"}]}]], "Input", CellChangeTimes->{{3.44482071940625*^9, 3.44482078828125*^9}, { 3.444820820640625*^9, 3.44482082315625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"normalizedSpeed", "[", "t_", "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"speed", "[", "t", "]"}], "-", "min"}], ")"}], "/", RowBox[{"(", RowBox[{"max", "-", "min"}], ")"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.444820831765625*^9, 3.444820870734375*^9}}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"normalizedSpeed", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}]], "Input", CellChangeTimes->{{3.44482087303125*^9, 3.4448208846875*^9}, 3.444821217171875*^9}], Cell[BoxData[ RowBox[{"ParametricPlot", "[", RowBox[{"soln", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", " ", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "t"}], "}"}], ",", RowBox[{"blueToRed", "[", RowBox[{"normalizedSpeed", "[", "t", "]"}], "]"}]}], "]"}]}], ",", " ", RowBox[{"ColorFunctionScaling", "\[Rule]", "False"}]}], "]"}]], "Input", CellChangeTimes->{{3.4178070243268642`*^9, 3.4178070440873613`*^9}, { 3.417807096191167*^9, 3.417807118497518*^9}, {3.42724011330054*^9, 3.427240116521133*^9}, 3.443466552671673*^9, {3.443467221488243*^9, 3.443467224760179*^9}, 3.443467524659586*^9, {3.444820906296875*^9, 3.44482092053125*^9}, {3.4448209693125*^9, 3.4448210358125*^9}, { 3.444979718625*^9, 3.4449797295625*^9}, {3.4449797745625*^9, 3.44497980865625*^9}, {3.444979873078125*^9, 3.444979885875*^9}}] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Mesh", "Section", CellChangeTimes->{{3.439987175546875*^9, 3.439987190046875*^9}, { 3.444804453796875*^9, 3.444804454390625*^9}}], Cell[CellGroupData[{ Cell["Pou\:017eit\[IAcute] Mesh v 3D grafice", "Subsection", CellChangeTimes->{{3.444893042625*^9, 3.444893094640625*^9}}], Cell[BoxData[ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"4", "+", RowBox[{"v", " ", RowBox[{"Cos", "[", FractionBox["u", "2"], "]"}]}]}], ")"}], " ", RowBox[{"Cos", "[", "u", "]"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"4", "+", RowBox[{"v", " ", RowBox[{"Cos", "[", FractionBox["u", "2"], "]"}]}]}], ")"}], " ", RowBox[{"Sin", "[", "u", "]"}]}], ",", RowBox[{"v", " ", RowBox[{"Sin", "[", FractionBox["u", "2"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]], "Input", CellChangeTimes->{{3.444893198921875*^9, 3.444893207109375*^9}, 3.44491387321875*^9}], Cell[BoxData[ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"4", "+", RowBox[{"v", " ", RowBox[{"Cos", "[", FractionBox["u", "2"], "]"}]}]}], ")"}], " ", RowBox[{"Cos", "[", "u", "]"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"4", "+", RowBox[{"v", " ", RowBox[{"Cos", "[", FractionBox["u", "2"], "]"}]}]}], ")"}], " ", RowBox[{"Sin", "[", "u", "]"}]}], ",", RowBox[{"v", " ", RowBox[{"Sin", "[", FractionBox["u", "2"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", " ", RowBox[{"Mesh", "\[Rule]", "None"}]}], "]"}]], "Input", CellChangeTimes->{{3.444893198921875*^9, 3.44489322609375*^9}, 3.4449138344375*^9}], Cell[BoxData[ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"4", "+", RowBox[{"v", " ", RowBox[{"Cos", "[", FractionBox["u", "2"], "]"}]}]}], ")"}], " ", RowBox[{"Cos", "[", "u", "]"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"4", "+", RowBox[{"v", " ", RowBox[{"Cos", "[", FractionBox["u", "2"], "]"}]}]}], ")"}], " ", RowBox[{"Sin", "[", "u", "]"}]}], ",", RowBox[{"v", " ", RowBox[{"Sin", "[", FractionBox["u", "2"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", " ", RowBox[{"Mesh", "\[Rule]", RowBox[{"{", RowBox[{"60", ",", "2"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.444893198921875*^9, 3.444893238015625*^9}, { 3.4449138044375*^9, 3.44491382090625*^9}}], Cell[BoxData[ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"4", "+", RowBox[{"v", " ", RowBox[{"Cos", "[", FractionBox["u", "2"], "]"}]}]}], ")"}], " ", RowBox[{"Cos", "[", "u", "]"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"4", "+", RowBox[{"v", " ", RowBox[{"Cos", "[", FractionBox["u", "2"], "]"}]}]}], ")"}], " ", RowBox[{"Sin", "[", "u", "]"}]}], ",", RowBox[{"v", " ", RowBox[{"Sin", "[", FractionBox["u", "2"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", " ", RowBox[{"Mesh", "\[Rule]", RowBox[{"{", RowBox[{"60", ",", "2"}], "}"}]}], ",", " ", RowBox[{"MeshStyle", "\[Rule]", "Thick"}]}], "]"}]], "Input", CellChangeTimes->{{3.444893198921875*^9, 3.444893238015625*^9}, { 3.444893479328125*^9, 3.44489348415625*^9}, 3.444913843125*^9}] }, Closed]], Cell[CellGroupData[{ Cell["Mesh ve dvourozm\:011brn\[EAcute]m p\:0159\[IAcute]pad\:011b", \ "Subsection", CellChangeTimes->{{3.4448933860625*^9, 3.44489341028125*^9}}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"4", "Pi"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "True"}], ",", RowBox[{"MeshStyle", "\[Rule]", RowBox[{"PointSize", "[", "0.02", "]"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Thick", ",", "Red"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.381698869178849*^9, 3.381698872232576*^9}, { 3.44489330990625*^9, 3.444893310375*^9}, {3.44489342434375*^9, 3.4448934535625*^9}, {3.44489387253125*^9, 3.444893877984375*^9}}], Cell[TextData[{ Cell[BoxData["Mesh"]], " v tomto p\:0159\[IAcute]pad\:011b vyzna\[CHacek]\[IAcute] body grafu, kter\ \[EAcute] odpov\[IAcute]daj\[IAcute] d\:011blen\[IAcute] defini\[CHacek]n\ \[IAcute]ho oboru na stejn\:011b dlouh\[EAcute] intervaly." }], "Text", CellChangeTimes->{{3.4449137065625*^9, 3.4449137599375*^9}, 3.44491390115625*^9}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"4", "Pi"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "7"}], ",", RowBox[{"MeshStyle", "\[Rule]", RowBox[{"PointSize", "[", "0.02", "]"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Thick", ",", "Red"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.381698869178849*^9, 3.381698872232576*^9}, { 3.44489330990625*^9, 3.444893310375*^9}, {3.44489342434375*^9, 3.4448934535625*^9}, {3.444893515*^9, 3.444893524734375*^9}, { 3.444893576359375*^9, 3.4448935764375*^9}, {3.44489362771875*^9, 3.444893692875*^9}, {3.44491376625*^9, 3.44491376815625*^9}}], Cell[TextData[{ "Jinou variantou je p\:0159\[IAcute]mo uv\[EAcute]st ", Cell[BoxData[ FormBox["x", TraditionalForm]], FormatType->"TraditionalForm"], "-ov\[EAcute] sou\:0159adnice bod\:016f, kter\[EAcute] chceme \ vyzna\[CHacek]it." }], "Text", CellChangeTimes->{{3.444914174765625*^9, 3.444914232*^9}}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"4", "Pi"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "}"}]}], ",", RowBox[{"MeshStyle", "\[Rule]", RowBox[{"PointSize", "[", "0.02", "]"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Thick", ",", "Red"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.381698869178849*^9, 3.381698872232576*^9}, { 3.44489330990625*^9, 3.444893310375*^9}, {3.44489342434375*^9, 3.4448934535625*^9}, {3.444893515*^9, 3.444893524734375*^9}, { 3.444893576359375*^9, 3.4448935764375*^9}, {3.44489362771875*^9, 3.444893692875*^9}, {3.44491376625*^9, 3.44491376815625*^9}, { 3.44491398940625*^9, 3.44491399946875*^9}}], Cell[TextData[{ "Zaj\[IAcute]mav\:011bj\[SHacek]\[IAcute]ch v\[YAcute]sledk\:016fm lze dos\ \[AAcute]hnout spojen\[IAcute]m ", Cell[BoxData["Mesh"]], " s volbou ", Cell[BoxData["MeshFunctions"]], ". Na grafu pak budou vyzna\[CHacek]eny body, ve kter\[YAcute]ch funkce \ zadan\[AAcute] v ", Cell[BoxData["MeshFunctions"]], " nab\[YAcute]v\[AAcute] hodnot specifikovan\[YAcute]ch v ", Cell[BoxData["Mesh"]], "." }], "Text", CellChangeTimes->{{3.44491429734375*^9, 3.44491444290625*^9}}], Cell[TextData[{ "V\[YAcute]choz\[IAcute] nastaven\[IAcute] ", Cell[BoxData["MeshFunctions"]], " pro ", Cell[BoxData["Plot"]], " je ", Cell[BoxData[ RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "x"}], "]"}]]], ":" }], "Text", CellChangeTimes->{{3.44491453775*^9, 3.44491457059375*^9}}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"4", "Pi"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "}"}]}], ",", RowBox[{"MeshStyle", "\[Rule]", RowBox[{"PointSize", "[", "0.02", "]"}]}], ",", RowBox[{"MeshFunctions", "\[Rule]", RowBox[{"{", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "x"}], "]"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Thick", ",", "Red"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.381698869178849*^9, 3.381698872232576*^9}, { 3.44489330990625*^9, 3.444893310375*^9}, {3.44489342434375*^9, 3.4448934535625*^9}, {3.444893515*^9, 3.444893524734375*^9}, { 3.444893576359375*^9, 3.4448935764375*^9}, {3.44489362771875*^9, 3.444893692875*^9}, {3.44491376625*^9, 3.44491376815625*^9}, { 3.44491398940625*^9, 3.44491399946875*^9}, {3.444914465625*^9, 3.44491452034375*^9}}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"4", "Pi"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "2"}], ",", RowBox[{"1", "/", "2"}]}], "}"}], "}"}]}], ",", RowBox[{"MeshStyle", "\[Rule]", RowBox[{"PointSize", "[", "0.02", "]"}]}], ",", RowBox[{"MeshFunctions", "\[Rule]", RowBox[{"{", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "y"}], "]"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Thick", ",", "Red"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.381698869178849*^9, 3.381698872232576*^9}, { 3.44489330990625*^9, 3.444893310375*^9}, {3.44489342434375*^9, 3.4448934535625*^9}, {3.444893515*^9, 3.444893524734375*^9}, { 3.444893576359375*^9, 3.4448935764375*^9}, {3.44489362771875*^9, 3.444893692875*^9}, {3.44491376625*^9, 3.44491376815625*^9}, { 3.44491398940625*^9, 3.44491399946875*^9}, {3.444914465625*^9, 3.44491452034375*^9}, {3.4449145879375*^9, 3.444914600734375*^9}}], Cell["\<\ Vyzna\[CHacek]en\[IAcute] v\[SHacek]ech nulov\[YAcute]ch bod\:016f funkce:\ \>", "Text", CellChangeTimes->{{3.444914736140625*^9, 3.4449147465625*^9}, { 3.444914970375*^9, 3.444914981671875*^9}}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"-", "12"}], "-", RowBox[{"58", " ", "x"}], "+", SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "3"]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"MeshFunctions", "\[Rule]", RowBox[{"{", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "y"}], "]"}], "}"}]}], ",", RowBox[{"Mesh", "\[Rule]", RowBox[{"{", RowBox[{"{", "0", "}"}], "}"}]}], ",", RowBox[{"MeshStyle", "\[Rule]", RowBox[{"PointSize", "[", "Large", "]"}]}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}]], "Input", CellChangeTimes->{{3.44491467559375*^9, 3.444914719890625*^9}}, CellID->650222190], Cell["\<\ Vyzna\[CHacek]en\[IAcute] pr\:016fse\[CHacek]\[IAcute]k\:016f dvou funkc\ \[IAcute]:\ \>", "Text", CellChangeTimes->{{3.44491494540625*^9, 3.444914967328125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"27", " ", "x"}], "+", "130"}]}], ";", " ", RowBox[{ RowBox[{"g", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"-", "12"}], "-", RowBox[{"58", " ", "x"}], "+", SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "3"]}]}], ";"}]], "Input", CellChangeTimes->{{3.44491482421875*^9, 3.444914844921875*^9}}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"g", "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"MeshFunctions", "\[Rule]", RowBox[{"{", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", RowBox[{ RowBox[{"f", "[", "x", "]"}], "-", RowBox[{"g", "[", "x", "]"}]}]}], "]"}], "}"}]}], ",", RowBox[{"Mesh", "\[Rule]", RowBox[{"{", RowBox[{"{", "0", "}"}], "}"}]}], ",", RowBox[{"MeshStyle", "\[Rule]", RowBox[{"PointSize", "[", "Large", "]"}]}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}]], "Input", CellChangeTimes->{{3.444914790296875*^9, 3.44491479953125*^9}, { 3.4449148733125*^9, 3.444914909609375*^9}}, CellID->99010487], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"f", ",", "g"}], "]"}]], "Input", CellChangeTimes->{{3.444914854296875*^9, 3.444914857640625*^9}}], Cell[TextData[{ StyleBox["Varov\[AAcute]n\[IAcute]:", FontWeight->"Bold"], " Algoritmus obvykle nevyzna\[CHacek]\[IAcute] body na kraj\[IAcute]ch \ defini\[CHacek]n\[IAcute]ho oboru a body, ve kter\[YAcute]ch se nab\[YAcute]v\ \[AAcute] lok\[AAcute]ln\[IAcute]ch extr\[EAcute]m\:016f:" }], "Text", CellChangeTimes->{{3.44491506284375*^9, 3.444915084625*^9}, { 3.444915121984375*^9, 3.44491515453125*^9}, 3.44491518634375*^9, { 3.444915320109375*^9, 3.44491532371875*^9}, {3.444980152359375*^9, 3.444980158609375*^9}}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"4", "Pi"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", RowBox[{"{", RowBox[{"{", "0", "}"}], "}"}]}], ",", RowBox[{"MeshStyle", "\[Rule]", RowBox[{"PointSize", "[", "0.02", "]"}]}], ",", RowBox[{"MeshFunctions", "\[Rule]", RowBox[{"{", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "y"}], "]"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Thick", ",", "Red"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.381698869178849*^9, 3.381698872232576*^9}, { 3.44489330990625*^9, 3.444893310375*^9}, {3.44489342434375*^9, 3.4448934535625*^9}, {3.444893515*^9, 3.444893524734375*^9}, { 3.444893576359375*^9, 3.4448935764375*^9}, {3.44489362771875*^9, 3.444893692875*^9}, {3.44491376625*^9, 3.44491376815625*^9}, { 3.44491398940625*^9, 3.44491399946875*^9}, {3.444914465625*^9, 3.44491452034375*^9}, {3.4449145879375*^9, 3.444914600734375*^9}, { 3.444915020125*^9, 3.444915055703125*^9}, {3.44491509475*^9, 3.444915118375*^9}, {3.444915335265625*^9, 3.444915337*^9}}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"3", RowBox[{"Cos", "[", "x", "]"}]}], "+", RowBox[{"x", "^", "2"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2.5"}], ",", "2.5"}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", RowBox[{"{", RowBox[{"{", "3", "}"}], "}"}]}], ",", RowBox[{"MeshStyle", "\[Rule]", RowBox[{"PointSize", "[", "0.02", "]"}]}], ",", RowBox[{"MeshFunctions", "\[Rule]", RowBox[{"{", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "y"}], "]"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Thick", ",", "Red"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.381698869178849*^9, 3.381698872232576*^9}, { 3.44489330990625*^9, 3.444893310375*^9}, {3.44489342434375*^9, 3.4448934535625*^9}, {3.444893515*^9, 3.444893524734375*^9}, { 3.444893576359375*^9, 3.4448935764375*^9}, {3.44489362771875*^9, 3.444893692875*^9}, {3.44491376625*^9, 3.44491376815625*^9}, { 3.44491398940625*^9, 3.44491399946875*^9}, {3.444914465625*^9, 3.44491452034375*^9}, {3.4449145879375*^9, 3.444914600734375*^9}, { 3.444915020125*^9, 3.444915055703125*^9}, {3.44491509475*^9, 3.444915118375*^9}, {3.44491522578125*^9, 3.444915309796875*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Zn\[AAcute]zorn\:011bn\[IAcute] vrstevnic na grafu funkce dvou prom\:011bnn\ \[YAcute]ch\ \>", "Subsection", CellChangeTimes->{{3.4449154284375*^9, 3.44491546178125*^9}}], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{"3", " ", SuperscriptBox["y", "2"]}]}], ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1", "-", SuperscriptBox["x", "2"], "-", SuperscriptBox["y", "2"]}]]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2.5"}], ",", "2.5"}], "}"}], ",", " ", RowBox[{"BoxRatios", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellChangeTimes->{{3.3911936439015503`*^9, 3.3911936615970573`*^9}, { 3.4266780514517937`*^9, 3.426678054059931*^9}, {3.4448942568125*^9, 3.4448942760625*^9}, {3.4449140841875*^9, 3.444914085625*^9}}], Cell["\<\ Vyzna\[CHacek]en\[IAcute] vrstevnic odpov\[IAcute]daj\[IAcute]c\[IAcute]ch \ hodnot\[AAcute]m 0.25, 0.50, 0.75, ..., 2.75:\ \>", "Text", CellChangeTimes->{{3.44491608278125*^9, 3.44491613921875*^9}}], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{"3", " ", SuperscriptBox["y", "2"]}]}], ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1", "-", SuperscriptBox["x", "2"], "-", SuperscriptBox["y", "2"]}]]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2.5"}], ",", "2.5"}], "}"}], ",", " ", RowBox[{"BoxRatios", "\[Rule]", "Automatic"}], ",", " ", RowBox[{"MeshFunctions", "\[Rule]", RowBox[{"{", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", "z"}], "]"}], "}"}]}], ",", RowBox[{"Mesh", "\[Rule]", RowBox[{"{", RowBox[{"Range", "[", RowBox[{"0.25", ",", "2.75", ",", "0.25"}], "]"}], "}"}]}], ",", " ", RowBox[{"MeshStyle", "\[Rule]", "Thick"}]}], "]"}]], "Input", CellChangeTimes->{{3.3911936439015503`*^9, 3.3911936615970573`*^9}, { 3.4266780514517937`*^9, 3.426678054059931*^9}, {3.4448942568125*^9, 3.4448942760625*^9}, {3.4449140841875*^9, 3.444914085625*^9}, { 3.44491564296875*^9, 3.444915703125*^9}, {3.4449157865*^9, 3.444915829859375*^9}, {3.44491587284375*^9, 3.4449160054375*^9}, { 3.444916103421875*^9, 3.444916116046875*^9}}], Cell["St\:0159\[IAcute]d\[AAcute]n\[IAcute] barev vrstevnic:", "Text", CellChangeTimes->{{3.4449160665625*^9, 3.444916072609375*^9}, { 3.444920638859375*^9, 3.444920660046875*^9}}], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{"3", " ", SuperscriptBox["y", "2"]}]}], ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1", "-", SuperscriptBox["x", "2"], "-", SuperscriptBox["y", "2"]}]]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2.5"}], ",", "2.5"}], "}"}], ",", " ", RowBox[{"BoxRatios", "\[Rule]", "Automatic"}], ",", " ", RowBox[{"MeshFunctions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", "z"}], "]"}], ",", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", "z"}], "]"}]}], "}"}]}], ",", RowBox[{"Mesh", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", RowBox[{"0.25", ",", "2.75", ",", "0.5"}], "]"}], ",", RowBox[{"Range", "[", RowBox[{"0.5", ",", "2.5", ",", "0.5"}], "]"}]}], "}"}]}], ",", " ", RowBox[{"MeshStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Thick", ",", "Red"}], "}"}], ",", RowBox[{"{", RowBox[{"Thick", ",", "Green"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.3911936439015503`*^9, 3.3911936615970573`*^9}, { 3.4266780514517937`*^9, 3.426678054059931*^9}, {3.4448942568125*^9, 3.4448942760625*^9}, {3.4449140841875*^9, 3.444914085625*^9}, { 3.44491564296875*^9, 3.444915703125*^9}, {3.4449157865*^9, 3.444915829859375*^9}, {3.44491587284375*^9, 3.4449160054375*^9}, { 3.444916103421875*^9, 3.444916116046875*^9}, {3.4449205475625*^9, 3.444920610390625*^9}, {3.444980205109375*^9, 3.44498020578125*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Volba MeshShading", "Subsection", CellChangeTimes->{{3.444916205609375*^9, 3.444916214265625*^9}, { 3.44492072959375*^9, 3.4449207341875*^9}}], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["y", "2"], "2"], "-", FractionBox[ SuperscriptBox["x", "2"], "2"], "+", FractionBox[ SuperscriptBox["x", "3"], "3"]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]], "Input", CellChangeTimes->{{3.443013235859375*^9, 3.44301324940625*^9}, { 3.44370359571875*^9, 3.44370361*^9}, 3.44492075459375*^9}, ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["y", "2"], "2"], "-", FractionBox[ SuperscriptBox["x", "2"], "2"], "+", FractionBox[ SuperscriptBox["x", "3"], "3"]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"ContourStyle", "\[Rule]", "Thick"}], ",", RowBox[{"Contours", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "0.5"}], ",", RowBox[{"-", "0.3"}], ",", RowBox[{"-", "0.1"}], ",", "0", ",", "0.1", ",", "0.3", ",", "0.5", ",", "1", ",", "2"}], "}"}]}], ",", " ", RowBox[{"PlotRangePadding", "\[Rule]", "None"}]}], "]"}]], "Input", CellChangeTimes->{ 3.44301322859375*^9, {3.443704124125*^9, 3.443704162078125*^9}, { 3.443791277086605*^9, 3.4437913080067673`*^9}, {3.443791343354064*^9, 3.443791347990924*^9}, {3.44379525153125*^9, 3.443795253140625*^9}, 3.444491573875*^9, {3.444491637609375*^9, 3.444491644*^9}, { 3.4449207636875*^9, 3.44492078340625*^9}, 3.444921093578125*^9}, ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["y", "2"], "2"], "-", FractionBox[ SuperscriptBox["x", "2"], "2"], "+", FractionBox[ SuperscriptBox["x", "3"], "3"]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", " ", RowBox[{"Mesh", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "0.5"}], ",", RowBox[{"-", "0.3"}], ",", RowBox[{"-", "0.1"}], ",", "0", ",", "0.1", ",", "0.3", ",", "0.5", ",", "1", ",", "2"}], "}"}], "}"}]}], ",", " ", RowBox[{"MeshFunctions", "\[Rule]", RowBox[{"{", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", "z"}], "]"}], "}"}]}], ",", " ", RowBox[{"MeshStyle", "\[Rule]", "Thick"}], ",", " ", RowBox[{"PlotPoints", "\[Rule]", "60"}]}], "]"}]], "Input", CellChangeTimes->{{3.443013235859375*^9, 3.44301324940625*^9}, { 3.44370359571875*^9, 3.44370372275*^9}, {3.443703764765625*^9, 3.44370376515625*^9}, {3.44370379953125*^9, 3.443703803640625*^9}, { 3.4437038620625*^9, 3.443703863109375*^9}, {3.443704244796875*^9, 3.443704245953125*^9}, 3.44370427753125*^9, {3.4437049266875*^9, 3.443704926828125*^9}, {3.444920802*^9, 3.444920839203125*^9}, { 3.44492087028125*^9, 3.444920879203125*^9}, {3.444920912734375*^9, 3.444920917953125*^9}, {3.444921048328125*^9, 3.4449210494375*^9}}, ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ Cell[BoxData["MeshShading"]], " je seznam barev, kter\[EAcute] se pou\:017eij\[IAcute] v oblastech mezi k\ \:0159ivkami ur\[CHacek]en\[YAcute]mi ", Cell[BoxData["Mesh"]], " a ", Cell[BoxData["MeshFunctions"]], ":" }], "Text", CellChangeTimes->{{3.444920923578125*^9, 3.444921019390625*^9}}], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["y", "2"], "2"], "-", FractionBox[ SuperscriptBox["x", "2"], "2"], "+", FractionBox[ SuperscriptBox["x", "3"], "3"]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", " ", RowBox[{"Mesh", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "0.5"}], ",", RowBox[{"-", "0.3"}], ",", RowBox[{"-", "0.1"}], ",", "0", ",", "0.1", ",", "0.3", ",", "0.5", ",", "1", ",", "2"}], "}"}], "}"}]}], ",", " ", RowBox[{"MeshFunctions", "\[Rule]", RowBox[{"{", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", "z"}], "]"}], "}"}]}], ",", " ", RowBox[{"MeshStyle", "\[Rule]", "Thick"}], ",", " ", RowBox[{"MeshShading", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Darker", "@", "Blue"}], ",", "LightBlue"}], "}"}]}], ",", " ", RowBox[{"PlotPoints", "\[Rule]", "60"}]}], "]"}]], "Input", CellChangeTimes->{{3.443013235859375*^9, 3.44301324940625*^9}, { 3.44370359571875*^9, 3.44370372275*^9}, {3.443703764765625*^9, 3.44370376515625*^9}, {3.44370379953125*^9, 3.443703803640625*^9}, { 3.4437038620625*^9, 3.443703863109375*^9}, {3.443704244796875*^9, 3.443704245953125*^9}, 3.44370427753125*^9, {3.4437049266875*^9, 3.443704926828125*^9}, {3.444920802*^9, 3.444920839203125*^9}, { 3.44492087028125*^9, 3.444920879203125*^9}, {3.444920912734375*^9, 3.444920917953125*^9}, {3.44498025075*^9, 3.44498025971875*^9}}, ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ Cell[BoxData["MeshShading"]], " ve 2D:" }], "Text", CellChangeTimes->{{3.444921490875*^9, 3.444921510109375*^9}}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"-", "12"}], "-", RowBox[{"58", " ", "x"}], "+", SuperscriptBox["x", "2"], "+", SuperscriptBox["x", "3"]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"MeshFunctions", "\[Rule]", RowBox[{"{", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "y"}], "]"}], "}"}]}], ",", RowBox[{"Mesh", "\[Rule]", RowBox[{"{", RowBox[{"{", "0", "}"}], "}"}]}], ",", RowBox[{"MeshStyle", "\[Rule]", RowBox[{"PointSize", "[", "Large", "]"}]}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", " ", RowBox[{"MeshShading", "->", RowBox[{"{", RowBox[{"Red", ",", " ", "Blue"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.44491467559375*^9, 3.444914719890625*^9}, { 3.444921184234375*^9, 3.444921195265625*^9}, {3.444921456421875*^9, 3.444921456890625*^9}}, CellID->86606245] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Pou\:017eit\[IAcute] Mesh k nalezen\[IAcute] kontroln\[IAcute]ch bod\:016f \ algoritmu adaptivn\[IAcute]ho vykreslov\[AAcute]n\[IAcute]\ \>", "Subsection", CellChangeTimes->{{3.444893774890625*^9, 3.444893803375*^9}, { 3.4449144453125*^9, 3.44491444915625*^9}}], Cell[TextData[{ "Graf funkce je ve skute\[CHacek]nosti lomenou \[CHacek]arou \ spojuj\[IAcute]c\[IAcute] velk\[EAcute] mno\:017estv\[IAcute] bod\:016f. Tyto \ body jsou ur\[CHacek]ov\[AAcute]ny adaptivn\[IAcute]m algoritmem (v \ m\[IAcute]stech s velkou k\:0159ivost\[IAcute] jsou p\:0159id\[AAcute]v\ \[AAcute]ny dal\[SHacek]\[IAcute] a dal\[SHacek]\[IAcute] body). Pomoc\ \[IAcute] ", Cell[BoxData[ RowBox[{"Mesh", "\[Rule]", "All"}]]], " lze tyto body zobrazit:" }], "Text", Evaluatable->False, CellChangeTimes->{{3.3811806246946373`*^9, 3.381180634665291*^9}, { 3.381620312072666*^9, 3.3816203450898247`*^9}, 3.38162083023571*^9, { 3.382461984846037*^9, 3.382462041974244*^9}, 3.392672658918535*^9, { 3.4169614667563*^9, 3.416961466968998*^9}, {3.444893978*^9, 3.44489410690625*^9}, {3.444982555640625*^9, 3.4449825650625*^9}, { 3.44498268084375*^9, 3.444982719359375*^9}}, AspectRatioFixed->True], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"4", "Pi"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "All"}], ",", RowBox[{"MeshStyle", "\[Rule]", RowBox[{"PointSize", "[", "0.02", "]"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Thick", ",", "Red"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.381698869178849*^9, 3.381698872232576*^9}, { 3.444893856671875*^9, 3.444893885125*^9}}], Cell[TextData[{ "Graf stejn\[EAcute] funkce p\:0159i pou\:017eit\[IAcute] 10 bod\:016f (", Cell[BoxData[ RowBox[{"PlotPoints", "\[Rule]", "10"}]]], ") a z\[AAcute]kazu zjem\:0148ov\[AAcute]n\[IAcute] (", Cell[BoxData[ RowBox[{"MaxRecursion", "\[Rule]", "0"}]]], "):" }], "Text", CellChangeTimes->{{3.381688220847953*^9, 3.3816883473855677`*^9}, { 3.381698884581983*^9, 3.381698891002494*^9}, {3.392672666800001*^9, 3.392672669023864*^9}, {3.44489413021875*^9, 3.444894190609375*^9}, { 3.4449827404375*^9, 3.44498277509375*^9}}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"4", "Pi"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "All"}], ",", RowBox[{"MeshStyle", "\[Rule]", RowBox[{"PointSize", "[", "0.02", "]"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Thick", ",", "Red"}], "}"}]}], ",", RowBox[{"PlotPoints", "\[Rule]", "10"}], ",", RowBox[{"MaxRecursion", "\[Rule]", "0"}]}], "]"}]], "Input", CellChangeTimes->{{3.381688192328147*^9, 3.381688208750268*^9}, { 3.381698898240986*^9, 3.3816988986157227`*^9}, 3.382001143522656*^9, { 3.444893905609375*^9, 3.444893914359375*^9}}], Cell["\<\ Tot\[EAcute]\:017e funguje nap\:0159. u funkc\[IAcute] dvou prom\:011bnn\ \[YAcute]ch:\ \>", "Text", CellChangeTimes->{{3.444894437921875*^9, 3.444894459203125*^9}}], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{"3", " ", SuperscriptBox["y", "2"]}]}], ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1", "-", SuperscriptBox["x", "2"], "-", SuperscriptBox["y", "2"]}]]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2.5"}], ",", "2.5"}], "}"}], ",", " ", RowBox[{"BoxRatios", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellChangeTimes->{{3.3911936439015503`*^9, 3.3911936615970573`*^9}, { 3.4266780514517937`*^9, 3.426678054059931*^9}, {3.4448942568125*^9, 3.4448942760625*^9}, {3.4449140841875*^9, 3.444914085625*^9}}], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{"3", " ", SuperscriptBox["y", "2"]}]}], ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1", "-", SuperscriptBox["x", "2"], "-", SuperscriptBox["y", "2"]}]]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2.5"}], ",", "2.5"}], "}"}], ",", " ", RowBox[{"Mesh", "\[Rule]", "All"}], ",", " ", RowBox[{"BoxRatios", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellChangeTimes->{{3.3911936439015503`*^9, 3.3911936615970573`*^9}, { 3.4266780514517937`*^9, 3.426678054059931*^9}, {3.4448942568125*^9, 3.444894302671875*^9}, 3.4449140930625*^9}], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{"3", " ", SuperscriptBox["y", "2"]}]}], ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1", "-", SuperscriptBox["x", "2"], "-", SuperscriptBox["y", "2"]}]]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2.5"}], ",", "2.5"}], "}"}], ",", " ", RowBox[{"Mesh", "\[Rule]", "All"}], ",", " ", RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", " ", RowBox[{"PlotPoints", "\[Rule]", "10"}], ",", " ", RowBox[{"BoxRatios", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellChangeTimes->{{3.3911936439015503`*^9, 3.3911936615970573`*^9}, { 3.4266780514517937`*^9, 3.426678054059931*^9}, {3.4448942568125*^9, 3.444894302671875*^9}, {3.444894347125*^9, 3.44489438315625*^9}, 3.444914097109375*^9}] }, Closed]] }, Open ]] }, Open ]] }, ScreenStyleEnvironment->"SlideShow", WindowSize->{1144, 764}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, ShowSelection->True, FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)", StyleDefinitions->FrontEnd`FileName[{"Creative"}, "PastelColor.nb", CharacterEncoding -> "WindowsEastEurope"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "SlideShowHeader"->{ Cell[567, 22, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[1549, 51, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[21798, 639, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"]} } *) (*CellTagsIndex CellTagsIndex->{ {"SlideShowHeader", 57230, 1652} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[634, 25, 546, 11, 277, "Title"], Cell[1183, 38, 329, 8, 140, "Subtitle"] }, Open ]], Cell[CellGroupData[{ Cell[1549, 51, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[1638, 56, 238, 3, 130, "Section"], Cell[CellGroupData[{ Cell[1901, 63, 160, 2, 63, "Subsection"], Cell[2064, 67, 190, 4, 47, "Text"], Cell[2257, 73, 1070, 31, 120, "Input"], Cell[3330, 106, 203, 5, 48, "Text"], Cell[3536, 113, 161, 3, 61, "Input"], Cell[3700, 118, 201, 4, 47, "Text"], Cell[3904, 124, 229, 6, 61, "Input"], Cell[4136, 132, 162, 3, 61, "Input"], Cell[4301, 137, 284, 6, 80, "Text"], Cell[4588, 145, 192, 3, 61, "Input"], Cell[4783, 150, 270, 5, 61, "Input"], Cell[5056, 157, 432, 11, 61, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[5525, 173, 272, 3, 49, "Subsection"], Cell[5800, 178, 522, 10, 80, "Text"], Cell[6325, 190, 1235, 26, 120, "Input"], Cell[7563, 218, 460, 10, 80, "Text"], Cell[8026, 230, 805, 24, 91, "Input", CellID->361746181], Cell[8834, 256, 922, 26, 91, "Input", CellID->205987087], Cell[9759, 284, 1359, 41, 120, "Input"], Cell[11121, 327, 322, 8, 61, "Input"], Cell[11446, 337, 542, 14, 91, "Input"], Cell[11991, 353, 587, 15, 91, "Input"], Cell[12581, 370, 316, 8, 48, "Text"], Cell[12900, 380, 1171, 31, 149, "Input"], Cell[14074, 413, 194, 5, 48, "Text"], Cell[14271, 420, 910, 24, 119, "Input"], Cell[15184, 446, 821, 24, 119, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[16042, 475, 162, 3, 49, "Subsection"], Cell[16207, 480, 179, 4, 47, "Text"], Cell[16389, 486, 1623, 41, 184, "Input"], Cell[18015, 529, 502, 10, 61, "Input"], Cell[18520, 541, 234, 6, 61, "Input"], Cell[18757, 549, 339, 9, 61, "Input"], Cell[19099, 560, 432, 12, 61, "Input"], Cell[19534, 574, 431, 12, 61, "Input"], Cell[19968, 588, 345, 10, 61, "Input"], Cell[20316, 600, 350, 9, 61, "Input"], Cell[20669, 611, 1068, 21, 120, "Input"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[21798, 639, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[21887, 644, 138, 2, 130, "Section"], Cell[CellGroupData[{ Cell[22050, 650, 123, 1, 63, "Subsection"], Cell[22176, 653, 975, 30, 127, "Input"], Cell[23154, 685, 1024, 31, 127, "Input"], Cell[24181, 718, 1096, 33, 127, "Input"], Cell[25280, 753, 1175, 34, 127, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[26492, 792, 147, 2, 49, "Subsection"], Cell[26642, 796, 634, 15, 91, "Input"], Cell[27279, 813, 352, 7, 80, "Text"], Cell[27634, 822, 759, 17, 91, "Input"], Cell[28396, 841, 311, 8, 48, "Text"], Cell[28710, 851, 894, 21, 91, "Input"], Cell[29607, 874, 494, 13, 114, "Text"], Cell[30104, 889, 347, 13, 48, "Text"], Cell[30454, 904, 1138, 28, 91, "Input"], Cell[31595, 934, 1252, 31, 91, "Input"], Cell[32850, 967, 208, 4, 47, "Text"], Cell[33061, 973, 830, 24, 98, "Input", CellID->650222190], Cell[33894, 999, 173, 4, 47, "Text"], Cell[34070, 1005, 427, 13, 63, "Input"], Cell[34500, 1020, 940, 27, 91, "Input", CellID->99010487], Cell[35443, 1049, 147, 3, 61, "Input"], Cell[35593, 1054, 533, 10, 81, "Text"], Cell[36129, 1066, 1273, 29, 91, "Input"], Cell[37405, 1097, 1352, 32, 91, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[38794, 1134, 181, 4, 49, "Subsection"], Cell[38978, 1140, 815, 22, 76, "Input"], Cell[39796, 1164, 210, 4, 47, "Text"], Cell[40009, 1170, 1420, 37, 149, "Input"], Cell[41432, 1209, 183, 2, 47, "Text"], Cell[41618, 1213, 1958, 52, 178, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[43613, 1270, 151, 2, 49, "Subsection"], Cell[43767, 1274, 644, 19, 92, "Input"], Cell[44414, 1295, 1274, 33, 167, "Input"], Cell[45691, 1330, 1751, 44, 167, "Input"], Cell[47445, 1376, 313, 9, 81, "Text"], Cell[47761, 1387, 1897, 48, 196, "Input"], Cell[49661, 1437, 132, 4, 48, "Text"], Cell[49796, 1443, 1038, 29, 127, "Input", CellID->86606245] }, Closed]], Cell[CellGroupData[{ Cell[50871, 1477, 274, 5, 92, "Subsection"], Cell[51148, 1484, 925, 18, 112, "Text", Evaluatable->False], Cell[52076, 1504, 543, 14, 91, "Input"], Cell[52622, 1520, 544, 12, 81, "Text"], Cell[53169, 1534, 722, 17, 91, "Input"], Cell[53894, 1553, 176, 4, 47, "Text"], Cell[54073, 1559, 815, 22, 76, "Input"], Cell[54891, 1583, 848, 23, 119, "Input"], Cell[55742, 1608, 1007, 26, 119, "Input"] }, Closed]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)