(* 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[ 25734, 594] NotebookOptionsPosition[ 25272, 577] NotebookOutlinePosition[ 25646, 593] CellTagsIndexPosition[ 25603, 590] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"rozsah", "=", "3"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"--", RowBox[{"-", "funkce"}]}], " ", RowBox[{"f", "--"}]}], "-"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}], "^", "2"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"y", "-", "1"}], ")"}], "^", "2"}]}], "]"}], "+", RowBox[{"1.5", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}], "^", "2"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"y", "+", "0.3"}], ")"}], "^", "2"}]}], "]"}]}], "+", RowBox[{"0.8", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "0.3"}], ")"}], "^", "2"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"y", "+", "1.5"}], ")"}], "^", "2"}]}], "]"}]}]}]}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", "x"}], "-", "y"}], ")"}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}], "^", "2"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"y", "-", "1"}], ")"}], "^", "2"}]}], "]"}]}], "+", RowBox[{"2", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}], "^", "2"}]}], "-", RowBox[{"y", "^", "2"}]}], "]"}]}], "+", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "0.5"}], ")"}], "^", "2"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"y", "+", "1.5"}], ")"}], "^", "2"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"rozlozeni", "=", RowBox[{"DensityPlot", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "rozsah"}], ",", "rozsah"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "rozsah"}], ",", "rozsah"}], "}"}], ",", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"ColorData", "[", "\"\\"", "]"}]}], ",", RowBox[{"ColorFunctionScaling", "\[Rule]", "True"}], ",", RowBox[{"PlotPoints", "\[Rule]", "40"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"PlotLegends", "->", "Automatic"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"--", RowBox[{"--", RowBox[{"-", " ", "GRAFICK\[CapitalYAcute]"}]}]}], " ", RowBox[{ RowBox[{"V\[CapitalYAcute]STUP", " ", "--"}], "--"}]}], "-"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "v", ",", "u", ",", "g", ",", "sder", ",", "tecna"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"--", RowBox[{"-", " ", "bod"}]}], " ", RowBox[{"a", " ", "--"}]}], "-"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", RowBox[{"{", RowBox[{"ax", ",", "ay"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"--", RowBox[{"-", " ", "vektor"}]}], " ", RowBox[{"v", " ", "--"}]}], "-"}], "*)"}], "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{"L", "*", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "\[Theta]", "]"}], ",", RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"--", RowBox[{"-", " ", "normalizace"}]}], " ", RowBox[{"v", " ", "--"}]}], "-"}], "*)"}], "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"Normalize", "[", "v", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"--", RowBox[{"-", " ", "pr\[URing]\[RHacek]ezov\[AAcute]"}]}], " ", RowBox[{"funkce", " ", "--"}]}], "-"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "[", "t_", "]"}], ":=", RowBox[{"Apply", "[", RowBox[{"f", ",", RowBox[{"a", "+", RowBox[{"t", "*", "v"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"--", RowBox[{"-", " ", "sm\[EHacek]rov\[AAcute]"}]}], " ", "derivace", " ", "f", " ", "v", " ", "bod\[EHacek]", " ", "a", " ", "podle", " ", "vektoru", " ", RowBox[{"v", " ", "--"}]}], "-"}], "*)"}], "\[IndentingNewLine]", RowBox[{"sder", "=", RowBox[{ RowBox[{"g", "'"}], "[", "0", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"--", RowBox[{"-", " ", "te\[CHacek]na"}]}], " ", "ke", " ", "grafu", " ", "pr\[URing]\[RHacek]ezov\[EAcute]", " ", "funkce", " ", "v", " ", "bod\[EHacek]", " ", RowBox[{ RowBox[{"(", RowBox[{"0", ",", RowBox[{"g", RowBox[{"(", "0", ")"}]}]}], ")"}], " ", "--"}]}], "-"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tecna", "[", "t_", "]"}], ":=", RowBox[{ RowBox[{"g", "[", "0", "]"}], "+", RowBox[{"t", "*", "sder"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"--", RowBox[{"-", " ", "Vytvo\[RHacek]en\[IAcute]"}]}], " ", "seskupen\[IAcute]", " ", RowBox[{"obr\[AAcute]zk\[URing]", " ", "--"}]}], "-"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"--", RowBox[{"-", " ", "lev\[YAcute]"}]}], " ", RowBox[{"obr\[AAcute]zek", " ", "--"}]}], "-"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{"rozlozeni", ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"-", " ", "vykreslen\[IAcute]"}], " ", "bodu", " ", "a"}], " ", "-"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Black", ",", RowBox[{"AbsolutePointSize", "[", "12", "]"}], ",", RowBox[{"Point", "[", "a", "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"-", " ", "vykreslen\[IAcute]"}], " ", "vektoru", " ", "v"}], " ", "-"}], "*)"}], "\[IndentingNewLine]", "Thick", ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", "v"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"-", " ", "vykreslen\[IAcute]"}], " ", "p\[RHacek]\[IAcute]mky", " ", "\[RHacek]ezu"}], " ", "-"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"3", "*", "u"}]}], ",", RowBox[{"a", "+", RowBox[{"3", "*", "u"}]}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"--", RowBox[{"-", " ", "prav\[YAcute]"}]}], " ", RowBox[{"obr\[AAcute]zek", " ", "--"}]}], "-"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"g", "[", "t", "]"}], ",", RowBox[{"tecna", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"{", RowBox[{"Red", ",", "Dashed", ",", "Thick"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", "\[IndentingNewLine]", RowBox[{"ImagePadding", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Automatic", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"Automatic", ",", "50"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotLabel", "\[Rule]", "\[IndentingNewLine]", RowBox[{"Framed", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Style", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "@", RowBox[{"RowBox", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"SubscriptBox", "[", RowBox[{"\"\<\[Del]\>\"", ",", "\"\\""}], "]"}], ",", "\"\< \>\"", ",", "\"\\"", ",", "\"\< = \>\"", ",", RowBox[{"ToString", "@", RowBox[{"NumberForm", "[", RowBox[{"sder", ",", RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ",", "\[IndentingNewLine]", "Bold", ",", "15"}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"FrameStyle", "\[Rule]", RowBox[{"GrayLevel", "[", "0.3", "]"}]}], ",", RowBox[{"Background", "\[Rule]", RowBox[{"Lighter", "[", RowBox[{"Yellow", ",", "0.9"}], "]"}]}], ",", RowBox[{"RoundingRadius", "\[Rule]", "3"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"AbsolutePointSize", "[", "12", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"0", ",", RowBox[{"g", "[", "0", "]"}]}], "}"}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"Alignment", "\[Rule]", "Center"}]}], "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"--", RowBox[{"-", " ", "ovl\[AAcute]dac\[IAcute]"}]}], " ", RowBox[{"prvky", " ", "--"}]}], "-"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Column", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Control", "@", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "\"\\""}], "}"}], ",", "0", ",", RowBox[{"2", " ", "Pi"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Control", "@", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "1", ",", "\"\\""}], "}"}], ",", "0.2", ",", "2"}], "}"}]}]}], "\[IndentingNewLine]", "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Spacer", "[", "50", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Column", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Control", "@", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"ax", ",", "0.2", ",", "\"\\""}], "}"}], ",", RowBox[{"-", "2.5"}], ",", "2.5"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Control", "@", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"ay", ",", "0.3", ",", "\"\\""}], "}"}], ",", RowBox[{"-", "2.5"}], ",", "2.5"}], "}"}]}]}], "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ControlPlacement", "\[Rule]", "Top"}], ",", "\[IndentingNewLine]", RowBox[{"ContinuousAction", "\[Rule]", "False"}]}], "\[IndentingNewLine]", "]"}]}], "Input", CellChangeTimes->{{3.981820327697871*^9, 3.9818204064164534`*^9}, { 3.98182354071148*^9, 3.9818235414802136`*^9}, {3.981824258301704*^9, 3.9818242587304764`*^9}, {3.981824294263675*^9, 3.981824448093239*^9}, { 3.9818244939419985`*^9, 3.981824524438923*^9}, {3.98182457355165*^9, 3.9818246324795275`*^9}, {3.981824670277729*^9, 3.9818248679210515`*^9}, { 3.9818249545722237`*^9, 3.9818251927834806`*^9}, {3.981825246172228*^9, 3.981825292679451*^9}, {3.9818253238018093`*^9, 3.981825329319846*^9}, { 3.9818253604599175`*^9, 3.981825370410322*^9}, {3.981825432042233*^9, 3.9818254473514814`*^9}, {3.9818255407507267`*^9, 3.9818255753791056`*^9}, {3.981825622814782*^9, 3.9818256909910355`*^9}, 3.9818257251755257`*^9, {3.9818257602443447`*^9, 3.9818257906623793`*^9}, { 3.9818258254427156`*^9, 3.9818262159610996`*^9}, {3.981826247327094*^9, 3.9818263052408047`*^9}, {3.9818263548536205`*^9, 3.9818263746873956`*^9}, {3.9818264905009885`*^9, 3.9818264953278723`*^9}, {3.9818281700137806`*^9, 3.9818281717235274`*^9}, {3.9818282740737147`*^9, 3.981828277181568*^9}, { 3.981856862261135*^9, 3.9818568636116*^9}, {3.981856952181136*^9, 3.9818569788469286`*^9}, {3.981857083194004*^9, 3.9818570841907406`*^9}, { 3.981857138135171*^9, 3.981857169869186*^9}, {3.981857272977911*^9, 3.981857285620773*^9}, {3.981857339571827*^9, 3.9818573573615065`*^9}, { 3.9818574804525967`*^9, 3.981857525654889*^9}, {3.9818576473136578`*^9, 3.981857687182446*^9}, {3.9818577212463937`*^9, 3.981857755691826*^9}, { 3.9818578132644987`*^9, 3.98185792049069*^9}, {3.9818582359363146`*^9, 3.981858279356451*^9}, {3.9818583435302963`*^9, 3.9818583787520423`*^9}, { 3.9818584669806213`*^9, 3.9818584911141043`*^9}, {3.981858559904671*^9, 3.9818585934286475`*^9}, {3.981858649224018*^9, 3.9818586695732837`*^9}, { 3.981858706724115*^9, 3.9818587220876155`*^9}, {3.9818587549149237`*^9, 3.9818587803957787`*^9}, {3.98185883069215*^9, 3.981858831678293*^9}, { 3.981859215748371*^9, 3.9818592174647465`*^9}, {3.981859617695195*^9, 3.981859721957786*^9}, 3.9818597696304636`*^9, {3.981859813695324*^9, 3.9818598140559464`*^9}, {3.981859860867793*^9, 3.9818598912076564`*^9}, { 3.9818600162486925`*^9, 3.9818600241199903`*^9}, {3.98186020740739*^9, 3.981860211288051*^9}, {3.9818602574677525`*^9, 3.981860267846959*^9}, { 3.981866316636425*^9, 3.9818663172766867`*^9}, 3.9818682849786*^9, { 3.9818683262281837`*^9, 3.9818683347350574`*^9}, {3.9818683870043063`*^9, 3.98186842241665*^9}, {3.981868484811677*^9, 3.9818685632457743`*^9}, { 3.981869612202876*^9, 3.9818696127565727`*^9}, {3.981869675968506*^9, 3.9818696945846806`*^9}, {3.9818702132229033`*^9, 3.9818702483242483`*^9}, {3.9818704239388685`*^9, 3.9818704331233244`*^9}, 3.9818705412215376`*^9, {3.981870717406782*^9, 3.981870748150524*^9}, { 3.981870960363903*^9, 3.9818709875870256`*^9}, {3.9818710207891254`*^9, 3.9818710844477305`*^9}, 3.981871127512745*^9, {3.981871211325472*^9, 3.9818712115339556`*^9}, {3.981871281005141*^9, 3.981871284502422*^9}, { 3.9818714753993425`*^9, 3.9818714959371367`*^9}, {3.9818858860581517`*^9, 3.981885898289935*^9}, {3.981886109077052*^9, 3.9818861472004843`*^9}, { 3.9818881250469046`*^9, 3.981888162614234*^9}, {3.981888418201764*^9, 3.9818884291250143`*^9}, {3.9819015157335825`*^9, 3.981901521482381*^9}, { 3.9819015915582576`*^9, 3.981901593854948*^9}}, CellLabel-> "In[483]:=",ExpressionUUID->"e9332dc6-b3b7-477f-ad6e-8a606c3a168b"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`ax$$ = 0.2, $CellContext`ay$$ = 0.3, $CellContext`L$$ = 1, $CellContext`\[Theta]$$ = 0, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`\[Theta]$$], 0, "sm\[EHacek]r"}, 0, 2 Pi}, {{ Hold[$CellContext`L$$], 1, "d\[EAcute]lka"}, 0.2, 2}, {{ Hold[$CellContext`ax$$], 0.2, "x"}, -2.5, 2.5}, {{ Hold[$CellContext`ay$$], 0.3, "y"}, -2.5, 2.5}, { Hold[ Row[{ Column[{ Manipulate`Place[1], Manipulate`Place[2]}], Spacer[50], Column[{ Manipulate`Place[3], Manipulate`Place[4]}]}]], Manipulate`Dump`ThisIsNotAControl}}, Typeset`size$$ = {803., {189., 194.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`\[Theta]$168280$$ = 0, $CellContext`L$168281$$ = 0, $CellContext`ax$168282$$ = 0, $CellContext`ay$168283$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 2, StandardForm, "Variables" :> {$CellContext`ax$$ = 0.2, $CellContext`ay$$ = 0.3, $CellContext`L$$ = 1, $CellContext`\[Theta]$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`\[Theta]$$, $CellContext`\[Theta]$168280$$, 0], Hold[$CellContext`L$$, $CellContext`L$168281$$, 0], Hold[$CellContext`ax$$, $CellContext`ax$168282$$, 0], Hold[$CellContext`ay$$, $CellContext`ay$168283$$, 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" :> Module[{$CellContext`a$, $CellContext`v$, $CellContext`u$, \ $CellContext`g$, $CellContext`sder$, $CellContext`tecna$}, $CellContext`a$ = \ {$CellContext`ax$$, $CellContext`ay$$}; $CellContext`v$ = $CellContext`L$$ { Cos[$CellContext`\[Theta]$$], Sin[$CellContext`\[Theta]$$]}; $CellContext`u$ = Normalize[$CellContext`v$]; $CellContext`g$[ Pattern[$CellContext`t$, Blank[]]] := Apply[$CellContext`f, $CellContext`a$ + $CellContext`t$ \ $CellContext`v$]; $CellContext`sder$ = Derivative[1][$CellContext`g$][0]; $CellContext`tecna$[ Pattern[$CellContext`t$, Blank[]]] := $CellContext`g$[ 0] + $CellContext`t$ $CellContext`sder$; Grid[{{ Show[$CellContext`rozlozeni, Graphics[{Black, AbsolutePointSize[12], Point[$CellContext`a$], Thick, Arrow[{$CellContext`a$, $CellContext`a$ + $CellContext`v$}], Line[{$CellContext`a$ - 3 $CellContext`u$, $CellContext`a$ + 3 $CellContext`u$}]}]], Plot[{ $CellContext`g$[$CellContext`t], $CellContext`tecna$[$CellContext`t]}, {$CellContext`t, -3, 3}, PlotRange -> All, PlotStyle -> {Blue, {Red, Dashed, Thick}}, ImageSize -> 500, ImagePadding -> {{Automatic, Automatic}, {Automatic, 50}}, AxesLabel -> {"t", "f(a + t v)"}, PlotLabel -> Framed[ Style[ DisplayForm[ RowBox[{ SubscriptBox["\[Del]", "v"], " ", "f(a)", " = ", ToString[ NumberForm[$CellContext`sder$, {5, 3}]]}]], Bold, 15], FrameStyle -> GrayLevel[0.3], Background -> Lighter[Yellow, 0.9], RoundingRadius -> 3], Epilog -> {Red, AbsolutePointSize[12], Point[{0, $CellContext`g$[0]}]}]}}, Alignment -> Center]], "Specifications" :> {{{$CellContext`\[Theta]$$, 0, "sm\[EHacek]r"}, 0, 2 Pi, ControlPlacement -> 1}, {{$CellContext`L$$, 1, "d\[EAcute]lka"}, 0.2, 2, ControlPlacement -> 2}, {{$CellContext`ax$$, 0.2, "x"}, -2.5, 2.5, ControlPlacement -> 3}, {{$CellContext`ay$$, 0.3, "y"}, -2.5, 2.5, ControlPlacement -> 4}, Row[{ Column[{ Manipulate`Place[1], Manipulate`Place[2]}], Spacer[50], Column[{ Manipulate`Place[3], Manipulate`Place[4]}]}]}, "Options" :> {ControlPlacement -> Top, ContinuousAction -> False}, "DefaultOptions" :> {}], ImageSizeCache->{844., {238., 243.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.981825851842337*^9, 3.9818258842867837`*^9}, 3.981826331078122*^9, 3.981826376570668*^9, 3.9818264822990837`*^9, 3.9818281765470943`*^9, 3.9818282786557655`*^9, 3.9818571396866302`*^9, 3.981857170514969*^9, 3.981857287090851*^9, 3.981857542463026*^9, 3.9818577775097685`*^9, 3.9818578166573753`*^9, {3.981858271838282*^9, 3.9818582801450696`*^9}, {3.9818583607952147`*^9, 3.981858379287037*^9}, 3.9818584928244452`*^9, {3.9818585712726545`*^9, 3.9818585940406623`*^9}, 3.981858723147972*^9, {3.9818587564262977`*^9, 3.9818587808764105`*^9}, 3.9818588321650496`*^9, 3.9818592182103496`*^9, 3.981859628851403*^9, { 3.9818596601045575`*^9, 3.981859722907443*^9}, 3.9818597710175924`*^9, 3.9818598922013645`*^9, 3.9818602120315437`*^9, {3.981860259152156*^9, 3.981860268757963*^9}, 3.981866270058709*^9, {3.981866319018856*^9, 3.981866330772583*^9}, 3.981866361060219*^9, 3.981868337609921*^9, 3.9818683928852777`*^9, 3.9818684243674984`*^9, 3.9818685669514766`*^9, 3.9818696141568184`*^9, 3.981869697233005*^9, {3.981871108814493*^9, 3.9818711322913933`*^9}, 3.9818861607053957`*^9, 3.981888166168871*^9, 3.981888439904771*^9, 3.9818890844771338`*^9, {3.9819015001066875`*^9, 3.981901522221423*^9}, 3.9819015946445055`*^9}, CellLabel-> "Out[487]=",ExpressionUUID->"a7b24207-931e-418d-9ad7-11fcd74479c9"] }, Open ]] }, WindowSize->{1536, 773}, WindowMargins->{{-8, Automatic}, {Automatic, -8}}, Magnification:>0.75 Inherited, 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[CellGroupData[{ Cell[580, 22, 18214, 425, 1163, "Input",ExpressionUUID->"e9332dc6-b3b7-477f-ad6e-8a606c3a168b"], Cell[18797, 449, 6459, 125, 529, "Output",ExpressionUUID->"a7b24207-931e-418d-9ad7-11fcd74479c9"] }, Open ]] } ] *)