(* 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[ 180889, 4436] NotebookOptionsPosition[ 176547, 4303] NotebookOutlinePosition[ 177181, 4325] CellTagsIndexPosition[ 177138, 4322] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ P\[RHacek]ehled vlastnost\[IAcute] z\[AAcute]kladn\[IAcute]ch funkc\[IAcute]\ \>", "Title", CellChangeTimes->{{3.5259556265836782`*^9, 3.5259556302073393`*^9}, { 3.525956641444928*^9, 3.5259566545992727`*^9}, {3.525967128133987*^9, 3.525967157828636*^9}, {3.5259673907907352`*^9, 3.525967396541971*^9}, { 3.526096245479437*^9, 3.526096249443789*^9}}, CharacterEncoding->"UTF8"], Cell["\<\ Tom\[AAcute]\[SHacek] Kalvoda, KAM FIT \[CapitalCHacek]VUT, 2013\ \>", "Subtitle", CellChangeTimes->{{3.52688267066544*^9, 3.526882692232547*^9}, { 3.556993236225698*^9, 3.556993236580286*^9}, {3.5899943421003513`*^9, 3.589994349150567*^9}}], Cell[CellGroupData[{ Cell["Polynomy", "Section", CellChangeTimes->{{3.525957792159616*^9, 3.525957794111597*^9}}], Cell[TextData[{ "Polynomem naz\[YAcute]v\[AAcute]me libovolnou funkci ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"f", ":", "\[DoubleStruckCapitalR]"}], "\[Rule]", "\[DoubleStruckCapitalR]"}], TraditionalForm]]], " tvaru" }], "Text", CellChangeTimes->{{3.525963522406886*^9, 3.5259635461832438`*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"f", RowBox[{"(", "x", ")"}]}], "=", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "n"], RowBox[{ SubscriptBox["a", "k"], SuperscriptBox["x", "k"]}]}]}], ",", RowBox[{"x", "\[Element]", "\[DoubleStruckCapitalR]"}], ","}], TraditionalForm]], "DisplayFormula", CellChangeTimes->{{3.525963549241287*^9, 3.525963606068931*^9}}], Cell[TextData[{ "kde ", Cell[BoxData[ FormBox[ RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalN]"}], TraditionalForm]]], " a ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["a", "k"], "\[Element]", "\[DoubleStruckCapitalR]"}], TraditionalForm]]], " pro ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"k", "=", "0"}], ",", "1", ",", "...", ",", RowBox[{"n", "."}]}], TraditionalForm]]], " Stupn\[EHacek]m polynomu naz\[YAcute]v\[AAcute]me nejvy\[SHacek]\[SHacek]\ \[IAcute] index ", Cell[BoxData[ FormBox["k", TraditionalForm]]], " pro n\[EHacek]j\[ZHacek] ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["a", "k"], "\[NotEqual]", "0"}], TraditionalForm]]], ". Jako p\[RHacek]\[IAcute]klad uve", "\[DHacek]me" }], "Text", CellChangeTimes->{{3.525963608512135*^9, 3.5259636454411697`*^9}, { 3.525963678795186*^9, 3.525963711491968*^9}, {3.526881320012059*^9, 3.526881332241193*^9}, {3.556993039933919*^9, 3.556993040099339*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"f", RowBox[{"(", "x", ")"}]}], "=", RowBox[{ RowBox[{"4", SuperscriptBox["x", "3"]}], "-", RowBox[{"2", "x"}], "+", "5."}]}], TraditionalForm]], "DisplayFormula", CellChangeTimes->{{3.526881339361826*^9, 3.526881365520166*^9}}], Cell[TextData[{ "zde ", Cell[BoxData[ FormBox[ RowBox[{"n", "=", "3"}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["a", "3"], "=", "4"}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["a", "2"], "=", "0"}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["a", "1"], "=", RowBox[{"-", "2"}]}], TraditionalForm]]], " a ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["a", "0"], "=", "5"}], TraditionalForm]]], ". Stupe\[NHacek] tohoto polynomu je ", Cell[BoxData[ FormBox["3", TraditionalForm]]], "." }], "Text", CellChangeTimes->{{3.526881367570736*^9, 3.526881426361878*^9}, { 3.5899943819882402`*^9, 3.5899943832885838`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ SuperscriptBox["x", "k"], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "8"}], ",", "8"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", "Thick"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", "14"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\<\!\(\*SuperscriptBox[\(x\), \(k\)]\)\>\"", ",", "Italic", ",", "14"}], "]"}]}], "}"}], Cell[""]}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}]}], "}"}], ",", "0", ",", "10", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.52596372538122*^9, 3.5259638629433804`*^9}, { 3.5259638946904383`*^9, 3.5259639395606403`*^9}, {3.52596397561619*^9, 3.5259640078255787`*^9}, {3.525964263497253*^9, 3.525964263804832*^9}, { 3.525966159990694*^9, 3.5259661602298183`*^9}, {3.589994484368224*^9, 3.589994489992065*^9}, {3.5899947198033457`*^9, 3.5899947418403788`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`k$$ = 1, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`k$$], 1, Style["k", Italic]}, 0, 10, 1}}, Typeset`size$$ = {500., {167., 174.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`k$3588$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`k$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`k$$, $CellContext`k$3588$$, 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`k$$, {$CellContext`x, -3, 3}, PlotRange -> {-8, 8}, PlotStyle -> {Blue, Thick}, PlotLabel -> "Grafy monom\[URing]", AxesLabel -> { Style["x", Italic, 14], Style["\!\(\*SuperscriptBox[\(x\), \(k\)]\)", Italic, 14]} TextCell[""], ImageSize -> 400], "Specifications" :> {{{$CellContext`k$$, 1, Style["k", Italic]}, 0, 10, 1, Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{557., {220., 227.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.525963864259338*^9, {3.5259639024841137`*^9, 3.525963940033828*^9}, { 3.525963976231529*^9, 3.5259640083744183`*^9}, 3.5259642643241577`*^9, 3.5259661607802153`*^9, 3.526096265336913*^9, 3.526881433126718*^9, 3.589994490929138*^9, 3.589994743961396*^9}] }, Open ]], Cell[TextData[{ "D\[URing]le\[ZHacek]it\[YAcute]m polynomem je polynom druh\[EAcute]ho stupn\ \[EHacek] ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"p", "(", "x", ")"}], "=", RowBox[{ RowBox[{"a", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"b", " ", "x"}], "+", "c"}]}], TraditionalForm]]], ". Jeho ko\[RHacek]eny (tj. hodnoty ", Cell[BoxData[ FormBox[ RowBox[{"x", "\[Element]", "\[DoubleStruckCapitalR]"}], TraditionalForm]]], " pro n\[EHacek]\[ZHacek] ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"p", "(", "x", ")"}], "=", "0"}], TraditionalForm]]], ") lze vyj\[AAcute]d\[RHacek]it pomoc\[IAcute] zn\[AAcute]m\[EAcute]ho \ vzorce. Pokud je diskriminant ", Cell[BoxData[ FormBox[ RowBox[{"D", "=", RowBox[{ SuperscriptBox["b", "2"], "-", RowBox[{"4", "a", " ", "c"}]}]}], TraditionalForm]]], " nez\[AAcute]porn\[YAcute], plat\[IAcute]" }], "Text", CellChangeTimes->{{3.5259640343064547`*^9, 3.5259641146748123`*^9}, { 3.525964177587496*^9, 3.5259642125364532`*^9}, {3.525965044449568*^9, 3.5259650480972652`*^9}}], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["x", RowBox[{"1", ",", "2"}]], "=", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "b"}], "\[PlusMinus]", SqrtBox["D"]}], RowBox[{"2", "a"}]], "."}]}], TraditionalForm]], "DisplayFormula", CellChangeTimes->{{3.525964119157104*^9, 3.525964162953546*^9}, { 3.5259642147228327`*^9, 3.52596421829599*^9}}, Background->GrayLevel[0.85]], Cell[TextData[{ "Vrchol paraboly je v bod\[EHacek] ", Cell[BoxData[ FormBox[ RowBox[{"-", FractionBox["b", RowBox[{"2", "a"}]]}], TraditionalForm]]], ". Tento je toti\[ZHacek] pr\[URing]m\[EHacek]rem ko\[RHacek]en\[URing] \ (existuj\[IAcute]-li):" }], "Text", CellChangeTimes->{{3.52596481152713*^9, 3.5259648484803133`*^9}, { 3.526881480966016*^9, 3.526881498115693*^9}}], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ SubscriptBox["x", "1"], "+", SubscriptBox["x", "2"]}], "2"], "=", RowBox[{ FractionBox[ RowBox[{"-", "b"}], RowBox[{"2", "a"}]], "."}]}], TraditionalForm]], "DisplayFormula", CellChangeTimes->{{3.526881503552113*^9, 3.526881524018709*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Column", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", RowBox[{"N", "[", RowBox[{ RowBox[{ SuperscriptBox["b", "2"], "-", RowBox[{"4", "a", " ", "c"}]}], ",", RowBox[{"{", RowBox[{"\[Infinity]", ",", "2"}], "}"}]}], "]"}], "]"}]}], ",", "14", ",", "Italic"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"a", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"b", " ", "x"}], " ", "+", " ", "c"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", "Blue"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", "14"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\<\!\(\*SuperscriptBox[\(ax\), \(2\)]\)+bx+c\>\"", ",", "Italic", ",", "14"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Switch", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["b", "2"], "-", RowBox[{"4", "a", " ", "c"}]}], "\[GreaterEqual]", "0"}], "&&", RowBox[{"a", "\[NotEqual]", "0"}]}], ",", "True", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", RowBox[{"2", "a"}]], RowBox[{"(", RowBox[{ RowBox[{"-", "b"}], "+", SqrtBox[ RowBox[{ SuperscriptBox["b", "2"], "-", RowBox[{"4", "a", " ", "c"}]}]]}], ")"}]}], ",", "0"}], "}"}], ",", ".2"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", RowBox[{"2", "a"}]], RowBox[{"(", RowBox[{ RowBox[{"-", "b"}], "-", SqrtBox[ RowBox[{ SuperscriptBox["b", "2"], "-", RowBox[{"4", "a", " ", "c"}]}]]}], ")"}]}], ",", "0"}], "}"}], ",", ".2"}], "]"}]}], "}"}], ",", "False", ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"Switch", "[", RowBox[{ RowBox[{"a", "\[NotEqual]", "0"}], ",", "True", ",", RowBox[{"{", RowBox[{"Gray", ",", "Dashed", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"-", "b"}], RowBox[{"2", "a"}]], ",", RowBox[{"-", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"-", "b"}], RowBox[{"2", "a"}]], ",", "10"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "False", ",", RowBox[{"{", "}"}]}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"-", "1"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}]}], "}"}], ",", RowBox[{"-", "10"}], ",", "10", ",", ".1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "3", ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}]}], "}"}], ",", RowBox[{"-", "10"}], ",", "10", ",", ".1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"c", ",", "4", ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}]}], "}"}], ",", RowBox[{"-", "10"}], ",", "10", ",", ".1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.525964234539007*^9, 3.525964419129801*^9}, { 3.525964482794695*^9, 3.525964679810855*^9}, {3.525964719068581*^9, 3.525964786177374*^9}, {3.525964883407555*^9, 3.525965007701462*^9}, { 3.526047470301756*^9, 3.5260475571595716`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`a$$ = -0.1999999999999993, $CellContext`b$$ \ = 0.7000000000000011, $CellContext`c$$ = 6.199999999999999, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`a$$], -1, Style["a", Italic]}, -10, 10, 0.1}, {{ Hold[$CellContext`b$$], 3, Style["b", Italic]}, -10, 10, 0.1}, {{ Hold[$CellContext`c$$], 4, Style["c", Italic]}, -10, 10, 0.1}}, Typeset`size$$ = { 500., {173.5, 180.5}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`a$4020$$ = 0, $CellContext`b$4021$$ = 0, $CellContext`c$4022$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = -1, $CellContext`b$$ = 3, $CellContext`c$$ = 4}, "ControllerVariables" :> { Hold[$CellContext`a$$, $CellContext`a$4020$$, 0], Hold[$CellContext`b$$, $CellContext`b$4021$$, 0], Hold[$CellContext`c$$, $CellContext`c$4022$$, 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" :> Column[{ Style[ StringJoin["D = ", ToString[ N[$CellContext`b$$^2 - 4 $CellContext`a$$ $CellContext`c$$, { Infinity, 2}]]], 14, Italic], Plot[$CellContext`a$$ $CellContext`x^2 + $CellContext`b$$ \ $CellContext`x + $CellContext`c$$, {$CellContext`x, -10, 10}, PlotRange -> {-10, 10}, PlotStyle -> Blue, ImageSize -> 400, AxesLabel -> { Style["x", Italic, 14], Style["\!\(\*SuperscriptBox[\(ax\), \(2\)]\)+bx+c", Italic, 14]}, Epilog -> { Switch[ And[$CellContext`b$$^2 - 4 $CellContext`a$$ $CellContext`c$$ >= 0, $CellContext`a$$ != 0], True, {Red, Disk[{(1/( 2 $CellContext`a$$)) (-$CellContext`b$$ + \ ($CellContext`b$$^2 - 4 $CellContext`a$$ $CellContext`c$$)^Rational[1, 2]), 0}, 0.2], Disk[{(1/( 2 $CellContext`a$$)) (-$CellContext`b$$ - \ ($CellContext`b$$^2 - 4 $CellContext`a$$ $CellContext`c$$)^Rational[1, 2]), 0}, 0.2]}, False, {}], Switch[$CellContext`a$$ != 0, True, {Gray, Dashed, Line[{{-$CellContext`b$$/( 2 $CellContext`a$$), -10}, {-$CellContext`b$$/( 2 $CellContext`a$$), 10}}]}, False, {}]}]}], "Specifications" :> {{{$CellContext`a$$, -1, Style["a", Italic]}, -10, 10, 0.1, Appearance -> "Labeled"}, {{$CellContext`b$$, 3, Style["b", Italic]}, -10, 10, 0.1, Appearance -> "Labeled"}, {{$CellContext`c$$, 4, Style["c", Italic]}, -10, 10, 0.1, Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{557., {257., 264.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.525964336522724*^9, 3.525964420043878*^9, {3.5259646027957773`*^9, 3.525964661164915*^9}, {3.525964736366725*^9, 3.5259647538661613`*^9}, 3.52596478894629*^9, {3.5259649671576777`*^9, 3.525965008303512*^9}, 3.5260474998985662`*^9, {3.52604755076672*^9, 3.526047557937872*^9}, 3.526096278875895*^9, 3.52688152714368*^9, 3.556993079822743*^9, 3.589995632448022*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Pozn\[AAcute]mka k hled\[AAcute]n\[IAcute] ko\[RHacek]en\[URing]", \ "Subsection", CellChangeTimes->{{3.526881736416555*^9, 3.526881743898156*^9}}], Cell[TextData[{ "Pro ko\[RHacek]eny polynom\[URing] stupn\[EHacek] ", Cell[BoxData[ FormBox[ RowBox[{"1", ",", "2", ",", "3", ",", "4"}], TraditionalForm]]], " existuj\[IAcute] explicitn\[IAcute] vzorce. Pro polynomy stupn\[EHacek] ", Cell[BoxData[ FormBox["5", TraditionalForm]]], " a v\[YAcute]\[SHacek]e u\[ZHacek] takov\[EAcute]to vzorce neexistuj\ \[IAcute]. P\[RHacek]esn\[EHacek]ji pomoc\[IAcute] teorie grup lze dok\ \[AAcute]zat, \[ZHacek]e vzorce pro ko\[RHacek]eny polynom\[URing] stupn\ \[EHacek] p\[AAcute]teho a vy\[SHacek]\[SHacek]\[IAcute]ho \ neexistuj\[IAcute]. Uv\[AAcute]d\[IAcute]me p\[RHacek]ehled vzorc\[URing] pro \ polynomy stupn\[EHacek] 1 a\[ZHacek] 4." }], "Text", CellChangeTimes->{{3.52688185943436*^9, 3.526881909618144*^9}, { 3.589995662465556*^9, 3.589995739272725*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"coeffs", "=", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"poly", "[", "n_", "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"coeffs", "[", RowBox[{"[", RowBox[{"k", "+", "1"}], "]"}], "]"}], SuperscriptBox["x", RowBox[{"n", "-", "k"}]]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"n", "=", "1"}], ",", RowBox[{"n", "\[LessEqual]", "4"}], ",", RowBox[{"n", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"TraditionalForm", "[", RowBox[{ RowBox[{"poly", "[", "n", "]"}], "\[Equal]", "0"}], "]"}], "//", "Print"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Grid", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"TraditionalForm", "[", "x", "]"}], "}"}], "/.", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"poly", "[", "n", "]"}], "\[Equal]", "0"}], ",", "x"}], "]"}]}], ",", RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}], "//", "Print"}]}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"poly", ",", "coeffs"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.526881751161866*^9, 3.5268818299903803`*^9}, { 3.526881933976853*^9, 3.5268822252883368`*^9}, {3.526882259617041*^9, 3.526882294294132*^9}, {3.5268823311876163`*^9, 3.52688244051574*^9}, { 3.526882513082039*^9, 3.52688251519125*^9}}], Cell[CellGroupData[{ Cell[BoxData[ TagBox[ FormBox[ RowBox[{ RowBox[{ RowBox[{"a", " ", "x"}], "+", "b"}], "\[LongEqual]", "0"}], TraditionalForm], TraditionalForm, Editable->True]], "Print", CellChangeTimes->{{3.526882206654983*^9, 3.526882225948572*^9}, { 3.526882264944825*^9, 3.526882274562323*^9}, {3.5268823761031713`*^9, 3.526882440911215*^9}, 3.526882515681985*^9, {3.589995715161022*^9, 3.589995741791822*^9}}], Cell[BoxData[ TagBox[GridBox[{ { TagBox[ FormBox[ RowBox[{"-", FractionBox["b", "a"]}], TraditionalForm], TraditionalForm, Editable->True]} }, AutoDelete->False, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Print", CellChangeTimes->{{3.526882206654983*^9, 3.526882225948572*^9}, { 3.526882264944825*^9, 3.526882274562323*^9}, {3.5268823761031713`*^9, 3.526882440911215*^9}, 3.526882515681985*^9, {3.589995715161022*^9, 3.5899957418208723`*^9}}], Cell[BoxData[ TagBox[ FormBox[ RowBox[{ RowBox[{ RowBox[{"a", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"b", " ", "x"}], "+", "c"}], "\[LongEqual]", "0"}], TraditionalForm], TraditionalForm, Editable->True]], "Print", CellChangeTimes->{{3.526882206654983*^9, 3.526882225948572*^9}, { 3.526882264944825*^9, 3.526882274562323*^9}, {3.5268823761031713`*^9, 3.526882440911215*^9}, 3.526882515681985*^9, {3.589995715161022*^9, 3.5899957418228607`*^9}}], Cell[BoxData[ TagBox[GridBox[{ { TagBox[ FormBox[ FractionBox[ RowBox[{ RowBox[{"-", SqrtBox[ RowBox[{ SuperscriptBox["b", "2"], "-", RowBox[{"4", " ", "a", " ", "c"}]}]]}], "-", "b"}], RowBox[{"2", " ", "a"}]], TraditionalForm], TraditionalForm, Editable->True]}, { TagBox[ FormBox[ FractionBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["b", "2"], "-", RowBox[{"4", " ", "a", " ", "c"}]}]], "-", "b"}], RowBox[{"2", " ", "a"}]], TraditionalForm], TraditionalForm, Editable->True]} }, AutoDelete->False, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Print", CellChangeTimes->{{3.526882206654983*^9, 3.526882225948572*^9}, { 3.526882264944825*^9, 3.526882274562323*^9}, {3.5268823761031713`*^9, 3.526882440911215*^9}, 3.526882515681985*^9, {3.589995715161022*^9, 3.589995741825835*^9}}], Cell[BoxData[ TagBox[ FormBox[ RowBox[{ RowBox[{ RowBox[{"a", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"b", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"c", " ", "x"}], "+", "d"}], "\[LongEqual]", "0"}], TraditionalForm], TraditionalForm, Editable->True]], "Print", CellChangeTimes->{{3.526882206654983*^9, 3.526882225948572*^9}, { 3.526882264944825*^9, 3.526882274562323*^9}, {3.5268823761031713`*^9, 3.526882440911215*^9}, 3.526882515681985*^9, {3.589995715161022*^9, 3.589995741828292*^9}}], Cell[BoxData[ TagBox[GridBox[{ { TagBox[ FormBox[ RowBox[{ FractionBox[ RadicalBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"27", " ", SuperscriptBox["a", "2"], " ", "d"}]}], "+", RowBox[{"9", " ", "a", " ", "b", " ", "c"}], "-", RowBox[{"2", " ", SuperscriptBox["b", "3"]}]}], ")"}], "2"], "+", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"3", " ", "a", " ", "c"}], "-", SuperscriptBox["b", "2"]}], ")"}], "3"]}]}]], "-", RowBox[{"27", " ", SuperscriptBox["a", "2"], " ", "d"}], "+", RowBox[{"9", " ", "a", " ", "b", " ", "c"}], "-", RowBox[{"2", " ", SuperscriptBox["b", "3"]}]}], "3"], RowBox[{"3", " ", RadicalBox["2", "3"], " ", "a"}]], "-", FractionBox[ RowBox[{ RadicalBox["2", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "a", " ", "c"}], "-", SuperscriptBox["b", "2"]}], ")"}]}], RowBox[{"3", " ", "a", " ", RadicalBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"27", " ", SuperscriptBox["a", "2"], " ", "d"}]}], "+", RowBox[{"9", " ", "a", " ", "b", " ", "c"}], "-", RowBox[{"2", " ", SuperscriptBox["b", "3"]}]}], ")"}], "2"], "+", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"3", " ", "a", " ", "c"}], "-", SuperscriptBox["b", "2"]}], ")"}], "3"]}]}]], "-", RowBox[{"27", " ", SuperscriptBox["a", "2"], " ", "d"}], "+", RowBox[{"9", " ", "a", " ", "b", " ", "c"}], "-", RowBox[{"2", " ", SuperscriptBox["b", "3"]}]}], "3"]}]], "-", FractionBox["b", RowBox[{"3", " ", "a"}]]}], TraditionalForm], TraditionalForm, Editable->True]}, { TagBox[ FormBox[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[ImaginaryI]", " ", SqrtBox["3"]}]}], ")"}], " ", RadicalBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"27", " ", SuperscriptBox["a", "2"], " ", "d"}]}], "+", RowBox[{"9", " ", "a", " ", "b", " ", "c"}], "-", RowBox[{"2", " ", SuperscriptBox["b", "3"]}]}], ")"}], "2"], "+", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"3", " ", "a", " ", "c"}], "-", SuperscriptBox["b", "2"]}], ")"}], "3"]}]}]], "-", RowBox[{"27", " ", SuperscriptBox["a", "2"], " ", "d"}], "+", RowBox[{"9", " ", "a", " ", "b", " ", "c"}], "-", RowBox[{"2", " ", SuperscriptBox["b", "3"]}]}], "3"]}], RowBox[{"6", " ", RadicalBox["2", "3"], " ", "a"}]]}], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"\[ImaginaryI]", " ", SqrtBox["3"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "a", " ", "c"}], "-", SuperscriptBox["b", "2"]}], ")"}]}], RowBox[{"3", " ", SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", "a", " ", RadicalBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"27", " ", SuperscriptBox["a", "2"], " ", "d"}]}], "+", RowBox[{"9", " ", "a", " ", "b", " ", "c"}], "-", RowBox[{"2", " ", SuperscriptBox["b", "3"]}]}], ")"}], "2"], "+", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"3", " ", "a", " ", "c"}], "-", SuperscriptBox["b", "2"]}], ")"}], "3"]}]}]], "-", RowBox[{"27", " ", SuperscriptBox["a", "2"], " ", "d"}], "+", RowBox[{"9", " ", "a", " ", "b", " ", "c"}], "-", RowBox[{"2", " ", SuperscriptBox["b", "3"]}]}], "3"]}]], "-", FractionBox["b", RowBox[{"3", " ", "a"}]]}], TraditionalForm], TraditionalForm, Editable->True]}, { TagBox[ FormBox[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"\[ImaginaryI]", " ", SqrtBox["3"]}]}], ")"}], " ", RadicalBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"27", " ", SuperscriptBox["a", "2"], " ", "d"}]}], "+", RowBox[{"9", " ", "a", " ", "b", " ", "c"}], "-", RowBox[{"2", " ", SuperscriptBox["b", "3"]}]}], ")"}], "2"], "+", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"3", " ", "a", " ", "c"}], "-", SuperscriptBox["b", "2"]}], ")"}], "3"]}]}]], "-", RowBox[{"27", " ", SuperscriptBox["a", "2"], " ", "d"}], "+", RowBox[{"9", " ", "a", " ", "b", " ", "c"}], "-", RowBox[{"2", " ", SuperscriptBox["b", "3"]}]}], "3"]}], RowBox[{"6", " ", RadicalBox["2", "3"], " ", "a"}]]}], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[ImaginaryI]", " ", SqrtBox["3"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "a", " ", "c"}], "-", SuperscriptBox["b", "2"]}], ")"}]}], RowBox[{"3", " ", SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", "a", " ", RadicalBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"27", " ", SuperscriptBox["a", "2"], " ", "d"}]}], "+", RowBox[{"9", " ", "a", " ", "b", " ", "c"}], "-", RowBox[{"2", " ", SuperscriptBox["b", "3"]}]}], ")"}], "2"], "+", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"3", " ", "a", " ", "c"}], "-", SuperscriptBox["b", "2"]}], ")"}], "3"]}]}]], "-", RowBox[{"27", " ", SuperscriptBox["a", "2"], " ", "d"}], "+", RowBox[{"9", " ", "a", " ", "b", " ", "c"}], "-", RowBox[{"2", " ", SuperscriptBox["b", "3"]}]}], "3"]}]], "-", FractionBox["b", RowBox[{"3", " ", "a"}]]}], TraditionalForm], TraditionalForm, Editable->True]} }, AutoDelete->False, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Print", CellChangeTimes->{{3.526882206654983*^9, 3.526882225948572*^9}, { 3.526882264944825*^9, 3.526882274562323*^9}, {3.5268823761031713`*^9, 3.526882440911215*^9}, 3.526882515681985*^9, {3.589995715161022*^9, 3.5899957419554377`*^9}}], Cell[BoxData[ TagBox[ FormBox[ RowBox[{ RowBox[{ RowBox[{"a", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"b", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"c", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"d", " ", "x"}], "+", "e"}], "\[LongEqual]", "0"}], TraditionalForm], TraditionalForm, Editable->True]], "Print", CellChangeTimes->{{3.526882206654983*^9, 3.526882225948572*^9}, { 3.526882264944825*^9, 3.526882274562323*^9}, {3.5268823761031713`*^9, 3.526882440911215*^9}, 3.526882515681985*^9, {3.589995715161022*^9, 3.589995741957223*^9}}], Cell[BoxData[ TagBox[GridBox[{ { TagBox[ FormBox[ RowBox[{ RowBox[{"-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox["b", "2"], RowBox[{"4", " ", SuperscriptBox["a", "2"]}]], "+", FractionBox[ RadicalBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}]}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], ")"}], "2"], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}], "3"]}]}]], "-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], "3"], RowBox[{"3", " ", RadicalBox["2", "3"], " ", "a"}]], "+", FractionBox[ RowBox[{ RadicalBox["2", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}]}], RowBox[{"3", " ", "a", " ", RadicalBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}]}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], ")"}], "2"], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}], "3"]}]}]], "-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], "3"]}]], "-", FractionBox[ RowBox[{"2", " ", "c"}], RowBox[{"3", " ", "a"}]]}], ")"}]}]}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox["b", "2"], RowBox[{"2", " ", SuperscriptBox["a", "2"]}]], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox["b", "3"], SuperscriptBox["a", "3"]]}], "+", FractionBox[ RowBox[{"4", " ", "b", " ", "c"}], SuperscriptBox["a", "2"]], "-", FractionBox[ RowBox[{"8", " ", "d"}], "a"]}], ")"}], "/", RowBox[{"(", RowBox[{"4", " ", RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox["b", "2"], RowBox[{"4", " ", SuperscriptBox["a", "2"]}]], "+", FractionBox[ RadicalBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}]}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], ")"}], "2"], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}], "3"]}]}]], "-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], "3"], RowBox[{"3", " ", RadicalBox["2", "3"], " ", "a"}]], "+", FractionBox[ RowBox[{ RadicalBox["2", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}]}], RowBox[{"3", " ", "a", " ", RadicalBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}]}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], ")"}], "2"], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}], "3"]}]}]], "-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], "3"]}]], "-", FractionBox[ RowBox[{"2", " ", "c"}], RowBox[{"3", " ", "a"}]]}], ")"}]}]}], ")"}]}], "-", FractionBox[ RadicalBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}]}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], ")"}], "2"], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}], "3"]}]}]], "-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], "3"], RowBox[{"3", " ", RadicalBox["2", "3"], " ", "a"}]], "-", FractionBox[ RowBox[{ RadicalBox["2", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}]}], RowBox[{"3", " ", "a", " ", RadicalBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}]}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], ")"}], "2"], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}], "3"]}]}]], "-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], "3"]}]], "-", FractionBox[ RowBox[{"4", " ", "c"}], RowBox[{"3", " ", "a"}]]}], ")"}]}]}], "-", FractionBox["b", RowBox[{"4", " ", "a"}]]}], TraditionalForm], TraditionalForm, Editable->True]}, { TagBox[ FormBox[ RowBox[{ RowBox[{"-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox["b", "2"], RowBox[{"4", " ", SuperscriptBox["a", "2"]}]], "+", FractionBox[ RadicalBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}]}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], ")"}], "2"], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}], "3"]}]}]], "-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], "3"], RowBox[{"3", " ", RadicalBox["2", "3"], " ", "a"}]], "+", FractionBox[ RowBox[{ RadicalBox["2", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}]}], RowBox[{"3", " ", "a", " ", RadicalBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}]}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], ")"}], "2"], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}], "3"]}]}]], "-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], "3"]}]], "-", FractionBox[ RowBox[{"2", " ", "c"}], RowBox[{"3", " ", "a"}]]}], ")"}]}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox["b", "2"], RowBox[{"2", " ", SuperscriptBox["a", "2"]}]], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox["b", "3"], SuperscriptBox["a", "3"]]}], "+", FractionBox[ RowBox[{"4", " ", "b", " ", "c"}], SuperscriptBox["a", "2"]], "-", FractionBox[ RowBox[{"8", " ", "d"}], "a"]}], ")"}], "/", RowBox[{"(", RowBox[{"4", " ", RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox["b", "2"], RowBox[{"4", " ", SuperscriptBox["a", "2"]}]], "+", FractionBox[ RadicalBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}]}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], ")"}], "2"], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}], "3"]}]}]], "-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], "3"], RowBox[{"3", " ", RadicalBox["2", "3"], " ", "a"}]], "+", FractionBox[ RowBox[{ RadicalBox["2", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}]}], RowBox[{"3", " ", "a", " ", RadicalBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}]}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], ")"}], "2"], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}], "3"]}]}]], "-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], "3"]}]], "-", FractionBox[ RowBox[{"2", " ", "c"}], RowBox[{"3", " ", "a"}]]}], ")"}]}]}], ")"}]}], "-", FractionBox[ RadicalBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}]}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], ")"}], "2"], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}], "3"]}]}]], "-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], "3"], RowBox[{"3", " ", RadicalBox["2", "3"], " ", "a"}]], "-", FractionBox[ RowBox[{ RadicalBox["2", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}]}], RowBox[{"3", " ", "a", " ", RadicalBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}]}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], ")"}], "2"], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}], "3"]}]}]], "-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], "3"]}]], "-", FractionBox[ RowBox[{"4", " ", "c"}], RowBox[{"3", " ", "a"}]]}], ")"}]}]}], "-", FractionBox["b", RowBox[{"4", " ", "a"}]]}], TraditionalForm], TraditionalForm, Editable->True]}, { TagBox[ FormBox[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox["b", "2"], RowBox[{"4", " ", SuperscriptBox["a", "2"]}]], "+", FractionBox[ RadicalBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}]}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], ")"}], "2"], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}], "3"]}]}]], "-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], "3"], RowBox[{"3", " ", RadicalBox["2", "3"], " ", "a"}]], "+", FractionBox[ RowBox[{ RadicalBox["2", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}]}], RowBox[{"3", " ", "a", " ", RadicalBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}]}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], ")"}], "2"], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}], "3"]}]}]], "-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], "3"]}]], "-", FractionBox[ RowBox[{"2", " ", "c"}], RowBox[{"3", " ", "a"}]]}], ")"}]}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox["b", "2"], RowBox[{"2", " ", SuperscriptBox["a", "2"]}]], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox["b", "3"], SuperscriptBox["a", "3"]]}], "+", FractionBox[ RowBox[{"4", " ", "b", " ", "c"}], SuperscriptBox["a", "2"]], "-", FractionBox[ RowBox[{"8", " ", "d"}], "a"]}], ")"}], "/", RowBox[{"(", RowBox[{"4", " ", RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox["b", "2"], RowBox[{"4", " ", SuperscriptBox["a", "2"]}]], "+", FractionBox[ RadicalBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}]}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], ")"}], "2"], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}], "3"]}]}]], "-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], "3"], RowBox[{"3", " ", RadicalBox["2", "3"], " ", "a"}]], "+", FractionBox[ RowBox[{ RadicalBox["2", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}]}], RowBox[{"3", " ", "a", " ", RadicalBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}]}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], ")"}], "2"], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}], "3"]}]}]], "-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], "3"]}]], "-", FractionBox[ RowBox[{"2", " ", "c"}], RowBox[{"3", " ", "a"}]]}], ")"}]}]}], ")"}]}], "-", FractionBox[ RadicalBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}]}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], ")"}], "2"], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}], "3"]}]}]], "-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], "3"], RowBox[{"3", " ", RadicalBox["2", "3"], " ", "a"}]], "-", FractionBox[ RowBox[{ RadicalBox["2", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}]}], RowBox[{"3", " ", "a", " ", RadicalBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}]}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], ")"}], "2"], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}], "3"]}]}]], "-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], "3"]}]], "-", FractionBox[ RowBox[{"4", " ", "c"}], RowBox[{"3", " ", "a"}]]}], ")"}]}]}], "-", FractionBox["b", RowBox[{"4", " ", "a"}]]}], TraditionalForm], TraditionalForm, Editable->True]}, { TagBox[ FormBox[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox["b", "2"], RowBox[{"4", " ", SuperscriptBox["a", "2"]}]], "+", FractionBox[ RadicalBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}]}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], ")"}], "2"], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}], "3"]}]}]], "-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], "3"], RowBox[{"3", " ", RadicalBox["2", "3"], " ", "a"}]], "+", FractionBox[ RowBox[{ RadicalBox["2", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}]}], RowBox[{"3", " ", "a", " ", RadicalBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}]}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], ")"}], "2"], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}], "3"]}]}]], "-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], "3"]}]], "-", FractionBox[ RowBox[{"2", " ", "c"}], RowBox[{"3", " ", "a"}]]}], ")"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox["b", "2"], RowBox[{"2", " ", SuperscriptBox["a", "2"]}]], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox["b", "3"], SuperscriptBox["a", "3"]]}], "+", FractionBox[ RowBox[{"4", " ", "b", " ", "c"}], SuperscriptBox["a", "2"]], "-", FractionBox[ RowBox[{"8", " ", "d"}], "a"]}], ")"}], "/", RowBox[{"(", RowBox[{"4", " ", RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox["b", "2"], RowBox[{"4", " ", SuperscriptBox["a", "2"]}]], "+", FractionBox[ RadicalBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}]}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], ")"}], "2"], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}], "3"]}]}]], "-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], "3"], RowBox[{"3", " ", RadicalBox["2", "3"], " ", "a"}]], "+", FractionBox[ RowBox[{ RadicalBox["2", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}]}], RowBox[{"3", " ", "a", " ", RadicalBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}]}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], ")"}], "2"], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}], "3"]}]}]], "-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], "3"]}]], "-", FractionBox[ RowBox[{"2", " ", "c"}], RowBox[{"3", " ", "a"}]]}], ")"}]}]}], ")"}]}], "-", FractionBox[ RadicalBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}]}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], ")"}], "2"], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}], "3"]}]}]], "-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], "3"], RowBox[{"3", " ", RadicalBox["2", "3"], " ", "a"}]], "-", FractionBox[ RowBox[{ RadicalBox["2", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}]}], RowBox[{"3", " ", "a", " ", RadicalBox[ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}]}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], ")"}], "2"], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"12", " ", "a", " ", "e"}], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", SuperscriptBox["c", "2"]}], ")"}], "3"]}]}]], "-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "3"]}]}], "3"]}]], "-", FractionBox[ RowBox[{"4", " ", "c"}], RowBox[{"3", " ", "a"}]]}], ")"}]}]}], "-", FractionBox["b", RowBox[{"4", " ", "a"}]]}], TraditionalForm], TraditionalForm, Editable->True]} }, AutoDelete->False, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Print", CellChangeTimes->{{3.526882206654983*^9, 3.526882225948572*^9}, { 3.526882264944825*^9, 3.526882274562323*^9}, {3.5268823761031713`*^9, 3.526882440911215*^9}, 3.526882515681985*^9, {3.589995715161022*^9, 3.589995742848257*^9}}] }, Open ]] }, Open ]], Cell[TextData[{ "Ov\[SHacek]em pro polynom stupn\[EHacek] 5 u\[ZHacek] ", StyleBox["Mathematica", FontSlant->"Italic"], " d\[AAcute]v\[AAcute] pouze p\[RHacek]eformulov\[AAcute]n\[IAcute] zad\ \[AAcute]n\[IAcute]:" }], "Text", CellChangeTimes->{{3.5268824468319397`*^9, 3.5268824487674007`*^9}, { 3.52688248246382*^9, 3.52688250512753*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", " ", SuperscriptBox["x", "5"]}], "+", RowBox[{"b", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"c", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"d", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"e", " ", "x"}], " ", "+", " ", "f"}], "\[Equal]", "0"}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.526882450290201*^9, 3.526882477064972*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"f", "+", RowBox[{"e", " ", "#1"}], "+", RowBox[{"d", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"c", " ", SuperscriptBox["#1", "3"]}], "+", RowBox[{"b", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"a", " ", SuperscriptBox["#1", "5"]}]}], "&"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"f", "+", RowBox[{"e", " ", "#1"}], "+", RowBox[{"d", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"c", " ", SuperscriptBox["#1", "3"]}], "+", RowBox[{"b", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"a", " ", SuperscriptBox["#1", "5"]}]}], "&"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"f", "+", RowBox[{"e", " ", "#1"}], "+", RowBox[{"d", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"c", " ", SuperscriptBox["#1", "3"]}], "+", RowBox[{"b", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"a", " ", SuperscriptBox["#1", "5"]}]}], "&"}], ",", "3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"f", "+", RowBox[{"e", " ", "#1"}], "+", RowBox[{"d", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"c", " ", SuperscriptBox["#1", "3"]}], "+", RowBox[{"b", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"a", " ", SuperscriptBox["#1", "5"]}]}], "&"}], ",", "4"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"f", "+", RowBox[{"e", " ", "#1"}], "+", RowBox[{"d", " ", SuperscriptBox["#1", "2"]}], "+", RowBox[{"c", " ", SuperscriptBox["#1", "3"]}], "+", RowBox[{"b", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"a", " ", SuperscriptBox["#1", "5"]}]}], "&"}], ",", "5"}], "]"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.526882471054743*^9, 3.526882477584776*^9}, 3.589995751574005*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.52688178726408*^9, 3.5268817877338657`*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Trigonometrick\[EAcute] funkce", "Section", CellChangeTimes->{{3.525956669263548*^9, 3.525956675742928*^9}}], Cell[TextData[{ "Shrneme definici a vlastnoti funkc\[IAcute] sinus, cosinus, tangens a \ kotangens (", Cell[BoxData[ FormBox["sin", TraditionalForm]]], ", ", Cell[BoxData[ FormBox["cos", TraditionalForm]]], ", ", Cell[BoxData[ FormBox["tg", TraditionalForm]]], " a ", Cell[BoxData[ FormBox["cotg", TraditionalForm]]], ")." }], "Text", CellChangeTimes->{{3.52595678500826*^9, 3.52595682932834*^9}, { 3.5259568610565968`*^9, 3.52595690346513*^9}}], Cell[CellGroupData[{ Cell["\<\ Sinus, kosinus a jednotkov\[AAcute] kru\[ZHacek]nice\ \>", "Subsection", CellChangeTimes->{{3.5259569107755547`*^9, 3.5259569269290113`*^9}, { 3.525960324802134*^9, 3.525960325089966*^9}}], Cell["\<\ Funkce sinus a kosinus lze snadno definovat pomoc\[IAcute] jednotkov\[EAcute] \ kru\[ZHacek]nice. V n\[AAcute]sleduj\[IAcute]c\[IAcute] interaktivn\[IAcute] \ demonstraci m\[URing]\[ZHacek]e u\[ZHacek]ivatel pohybovat bodem na jednotkov\ \[EAcute] kru\[ZHacek]nici a sledovat jak se m\[EHacek]n\[IAcute] hodnota \ funkce sinus nebo kosinus.\ \>", "Text", CellChangeTimes->{{3.5259627715142183`*^9, 3.52596279529049*^9}, { 3.526881615477797*^9, 3.526881622134441*^9}, {3.589995848780377*^9, 3.589995883930317*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"angle", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", RowBox[{"Which", "[", RowBox[{ RowBox[{"y", "\[GreaterEqual]", "0"}], ",", RowBox[{"Arg", "[", RowBox[{"x", "+", RowBox[{"\[ImaginaryI]", " ", "y"}]}], "]"}], ",", "True", ",", RowBox[{ RowBox[{"Arg", "[", RowBox[{"x", "+", RowBox[{"\[ImaginaryI]", " ", "y"}]}], "]"}], "+", RowBox[{"2", "\[Pi]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"LocatorPane", "[", RowBox[{ RowBox[{"Dynamic", "[", RowBox[{ RowBox[{"{", RowBox[{"xx", ",", "yy"}], "}"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"xx", ",", "yy"}], "}"}], "=", FractionBox["#", SqrtBox[ RowBox[{"#", ".", "#"}]]]}], ")"}], "&"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"(*", " ", "kruznice", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Dynamic", "[", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"jednotkova", " ", "kruznice", " ", "a", " ", "osy"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "1"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.2"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1.2", ",", "0"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1.2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1.2"}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", "trojuhelnik", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"xx", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"xx", ",", "yy"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], "]"}], "\[IndentingNewLine]", "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", "uhel", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", ".2", ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"angle", "[", RowBox[{"xx", ",", "yy"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<\[Alpha]\>\"", ",", "16"}], "]"}], ",", RowBox[{".3", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"angle", "[", RowBox[{"xx", ",", "yy"}], "]"}], "/", "2"}], "]"}], ",", RowBox[{"Sin", "[", RowBox[{ RowBox[{"angle", "[", RowBox[{"xx", ",", "yy"}], "]"}], "/", "2"}], "]"}]}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"zvyrazneni", " ", "odvesny"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Switch", "[", RowBox[{"func", ",", "\[IndentingNewLine]", RowBox[{"Sin", "[", "aa", "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"Blue", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"xx", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"xx", ",", "yy"}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cos", "[", "aa", "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"Green", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"xx", ",", "0"}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "250"}]}], "\[IndentingNewLine]", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", "graf", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Dynamic", "[", RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"func", "/.", RowBox[{"aa", "\[Rule]", "t"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<\[Alpha]\>\"", ",", "16"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ RowBox[{"func", "/.", RowBox[{"aa", "\[Rule]", "\[Alpha]"}]}], ",", "16"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", "\[IndentingNewLine]", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Pi]", "/", "2"}], ",", "\[Pi]", ",", RowBox[{"3", RowBox[{"\[Pi]", "/", "2"}]}], ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", "Automatic", ",", "None", ",", "None"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"GridLines", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"angle", "[", RowBox[{"xx", ",", "yy"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"func", "/.", RowBox[{"aa", "\[Rule]", RowBox[{"angle", "[", RowBox[{"xx", ",", "yy"}], "]"}]}]}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"GridLinesStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"{", "Dashed", "}"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Switch", "[", RowBox[{"func", ",", RowBox[{"Sin", "[", "aa", "]"}], ",", "Blue", ",", RowBox[{"Cos", "[", "aa", "]"}], ",", "Green"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"angle", "[", RowBox[{"xx", ",", "yy"}], "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"angle", "[", RowBox[{"xx", ",", "yy"}], "]"}], ",", RowBox[{"func", "/.", RowBox[{"aa", "\[Rule]", RowBox[{"angle", "[", RowBox[{"xx", ",", "yy"}], "]"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"vzhled", " ", "locatoru"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Appearance", "\[Rule]", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Disk", "[", "]"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "6"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"volba", " ", RowBox[{"sin", "/", "cos"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"func", ",", RowBox[{"Sin", "[", "aa", "]"}], ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Sin", "[", "aa", "]"}], "\[Rule]", RowBox[{"TraditionalForm", "[", RowBox[{"Sin", "[", "\[Alpha]", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Cos", "[", "aa", "]"}], "\[Rule]", RowBox[{"TraditionalForm", "[", RowBox[{"Cos", "[", "\[Alpha]", "]"}], "]"}]}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"xx", ",", RowBox[{ SqrtBox["2"], "/", "2"}]}], "}"}], ",", RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"yy", ",", RowBox[{ SqrtBox["2"], "/", "2"}]}], "}"}], ",", RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGCQAGIQ/eXCoclWrq8c3Wovgent1QarQLTL9+bVINqp4NB6 EJ07R3gDiP73LmEniE78vQZMeyT/2Q+iVXiaDoLomCKjCyDapn3GbRDdUsv9 FERnnY/+DtbX1fAbRGfYdnJaA+kFG//LguglxVH2IDp6U4oLiL4Sv9YVRK+p 0fEC0XLL3/iA6PUObCEg+k3Lr0gQvT1/ejyIXpFYngGid1h75ILoqY/8y0G0 apt+NYguEFkOplX6yxpBdI11VCeITppWOBdEH3d/shis7mbgShBtUnp/F4i2 +yVyCERbaP09Axav23sZRO8NfnMFRB/JaL8Fole5e/LaAOkX12eJg+hPUwN0 wXxhZUMQ/ejzTFMQPS8kyxJEL7CY5waiAVSUtO0= "]], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`func$$ = Sin[$CellContext`aa], $CellContext`xx$$ = 0.644386892780941, $CellContext`yy$$ = 0.7646996354204203, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`func$$], Sin[$CellContext`aa], "Trigonometrick\[AAcute] funkce:"}, { Sin[$CellContext`aa] -> TraditionalForm[ Sin[$CellContext`\[Alpha]]], Cos[$CellContext`aa] -> TraditionalForm[ Cos[$CellContext`\[Alpha]]]}}, {{ Hold[$CellContext`xx$$], 2^Rational[-1, 2]}}, {{ Hold[$CellContext`yy$$], 2^Rational[-1, 2]}}}, Typeset`size$$ = { 821., {165., 173.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`func$8757$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`func$$ = Sin[$CellContext`aa], $CellContext`xx$$ = 2^Rational[-1, 2], $CellContext`yy$$ = 2^Rational[-1, 2]}, "ControllerVariables" :> { Hold[$CellContext`func$$, $CellContext`func$8757$$, 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" :> LocatorPane[ Dynamic[{$CellContext`xx$$, $CellContext`yy$$}, ({$CellContext`xx$$, \ $CellContext`yy$$} = #/Dot[#, #]^Rational[1, 2])& ], Row[{ Dynamic[ Show[ Graphics[{ Circle[{0, 0}, 1], Arrow[{{-1.2, 0}, {1.2, 0}}], Arrow[{{0, -1.2}, {0, 1.2}}]}], Graphics[{ Line[{{0, 0}, {$CellContext`xx$$, 0}, {$CellContext`xx$$, $CellContext`yy$$}, {0, 0}}]}], Graphics[{Red, Circle[{0, 0}, 0.2, {0, $CellContext`angle[$CellContext`xx$$, $CellContext`yy$$]}], Text[ Style["\[Alpha]", 16], 0.3 { Cos[$CellContext`angle[$CellContext`xx$$, $CellContext`yy$$]/ 2], Sin[$CellContext`angle[$CellContext`xx$$, $CellContext`yy$$]/ 2]}]}], Switch[$CellContext`func$$, Sin[$CellContext`aa], Graphics[{Blue, Line[{{$CellContext`xx$$, 0}, {$CellContext`xx$$, $CellContext`yy$$}}]}], Cos[$CellContext`aa], Graphics[{Green, Line[{{0, 0}, {$CellContext`xx$$, 0}}]}]], ImageSize -> 250]], Dynamic[ Plot[ ReplaceAll[$CellContext`func$$, $CellContext`aa -> \ $CellContext`t], {$CellContext`t, 0, 2 Pi}, ImageSize -> 400, Frame -> True, FrameLabel -> { Style["\[Alpha]", 16], Style[ ReplaceAll[$CellContext`func$$, $CellContext`aa -> \ $CellContext`\[Alpha]], 16]}, PlotStyle -> Black, FrameTicks -> {{0, Pi/2, Pi, 3 (Pi/2), 2 Pi}, Automatic, None, None}, GridLines -> {{ $CellContext`angle[$CellContext`xx$$, $CellContext`yy$$]}, { ReplaceAll[$CellContext`func$$, $CellContext`aa -> \ $CellContext`angle[$CellContext`xx$$, $CellContext`yy$$]]}}, GridLinesStyle -> Directive[{Dashed}], Epilog -> { Switch[$CellContext`func$$, Sin[$CellContext`aa], Blue, Cos[$CellContext`aa], Green], Line[{{ $CellContext`angle[$CellContext`xx$$, $CellContext`yy$$], 0}, { $CellContext`angle[$CellContext`xx$$, $CellContext`yy$$], ReplaceAll[$CellContext`func$$, $CellContext`aa -> \ $CellContext`angle[$CellContext`xx$$, $CellContext`yy$$]]}}]}]]}], Appearance -> Graphics[{Red, Disk[]}, ImageSize -> 6]], "Specifications" :> {{{$CellContext`func$$, Sin[$CellContext`aa], "Trigonometrick\[AAcute] funkce:"}, { Sin[$CellContext`aa] -> TraditionalForm[ Sin[$CellContext`\[Alpha]]], Cos[$CellContext`aa] -> TraditionalForm[ Cos[$CellContext`\[Alpha]]]}}, {{$CellContext`xx$$, 2^ Rational[-1, 2]}, ControlType -> None}, {{$CellContext`yy$$, 2^Rational[-1, 2]}, ControlType -> None}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{878., {221., 228.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.525957335427926*^9, 3.525957341220311*^9}, 3.525957442718721*^9, 3.525957516499487*^9, 3.52595761598281*^9, { 3.525957662902671*^9, 3.5259577088157797`*^9}, 3.525957933565098*^9, 3.52595796690781*^9, {3.525958102470151*^9, 3.525958147048088*^9}, 3.525958190300722*^9, {3.5259582304728127`*^9, 3.5259582484767437`*^9}, 3.5259583214115753`*^9, 3.525958352448615*^9, 3.525958469519662*^9, 3.5259585873432493`*^9, {3.52595871009711*^9, 3.525958731338155*^9}, 3.525958910367284*^9, {3.525959098226699*^9, 3.525959127449727*^9}, 3.5259592766993933`*^9, 3.525959335949401*^9, {3.5259593887166357`*^9, 3.525959487930635*^9}, {3.525959536262033*^9, 3.5259595788528137`*^9}, 3.525959685033696*^9, 3.5259597560411377`*^9, 3.525959790827588*^9, { 3.5259599339731827`*^9, 3.5259599730914717`*^9}, {3.52596002269473*^9, 3.525960043059512*^9}, {3.525960096906701*^9, 3.5259601100247602`*^9}, { 3.525960150228435*^9, 3.525960206873047*^9}, 3.5259602457493343`*^9, 3.5260475793586283`*^9, 3.526096300712994*^9, 3.526838275302636*^9, 3.5268815598587847`*^9, 3.556993125848894*^9, 3.5899957699563637`*^9}] }, Open ]], Cell["\<\ V demonstraci v\[YAcute]\[SHacek]e je mo\[ZHacek]n\[EAcute] pohybovat bodem \ na kru\[ZHacek]nici prost\[YAcute]m ta\[ZHacek]en\[IAcute]m my\[SHacek]i.\ \>", "Text", CellChangeTimes->{{3.5569931439738283`*^9, 3.556993164152742*^9}}], Cell[TextData[{ "Sinus i kosinus jsou funkce s defini\[CHacek]n\[IAcute]mi obory ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["D", "sin"], "=", RowBox[{ SubscriptBox["D", "cos"], "=", "\[DoubleStruckCapitalR]"}]}], TraditionalForm]]], " a obory hodnot ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["H", "sin"], "=", RowBox[{ SubscriptBox["H", "cos"], "=", RowBox[{"\[LeftAngleBracket]", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "\[RightAngleBracket]"}]}]}], TraditionalForm]]], ". Ob\[EHacek] funkce jsou periodick\[EAcute] s periodou ", Cell[BoxData[ FormBox[ RowBox[{"T", "=", RowBox[{"2", "\[Pi]"}]}], TraditionalForm]]], ". Sinus je funkce lich\[AAcute] a kosinus funkce sud\[AAcute]," }], "Text", CellChangeTimes->{{3.525960315074052*^9, 3.525960447058814*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"sin", "(", RowBox[{"-", "x"}], ")"}], "=", RowBox[{"-", RowBox[{"sin", "(", "x", ")"}]}]}], ",", " ", RowBox[{ RowBox[{"cos", "(", RowBox[{"-", "x"}], ")"}], "=", RowBox[{"cos", "(", "x", ")"}]}], ",", " ", RowBox[{"x", "\[Element]", RowBox[{"\[DoubleStruckCapitalR]", "."}]}]}], TraditionalForm]], "DisplayFormula", CellChangeTimes->{{3.525960453333705*^9, 3.525960474112712*^9}}, Background->GrayLevel[0.85]], Cell["\<\ Vzhledem k definici pomoc\[IAcute] jednotkov\[EAcute] kru\[ZHacek]nice nen\ \[IAcute] p\[RHacek]ekvapen\[IAcute]m, \[ZHacek]e podle Pythagorovy \ v\[EHacek]ty plat\[IAcute]\ \>", "Text", CellChangeTimes->{{3.525961968524972*^9, 3.5259619887500057`*^9}, { 3.589995910916295*^9, 3.589995916144518*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["sin", "2"], "(", "x", ")"}], "+", RowBox[{ SuperscriptBox["cos", "2"], "(", "x", ")"}]}], "=", "1."}], TraditionalForm]], "DisplayFormula", CellChangeTimes->{{3.525961993343937*^9, 3.525962012241248*^9}}, Background->GrayLevel[0.85]], Cell["\<\ Vzorce pro dvojn\[AAcute]sobn\[YAcute] argument:\ \>", "Text", CellChangeTimes->{{3.525961598890568*^9, 3.52596163228235*^9}, { 3.5259618097238607`*^9, 3.525961842003971*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"sin", RowBox[{"(", RowBox[{"2", "x"}], ")"}]}], "=", RowBox[{"2", "sin", RowBox[{"(", "x", ")"}], RowBox[{"cos", "(", "x", ")"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"cos", "(", RowBox[{"2", "x"}], ")"}], "=", RowBox[{ SuperscriptBox[ RowBox[{"cos", "(", "x", ")"}], "2"], "-", SuperscriptBox[ RowBox[{"sin", "(", "x", ")"}], "2"]}]}], ",", " ", RowBox[{"x", "\[Element]", RowBox[{"\[DoubleStruckCapitalR]", "."}]}]}], TraditionalForm]], "DisplayFormula", CellChangeTimes->{{3.525961647750063*^9, 3.52596169683394*^9}, { 3.525961876091416*^9, 3.5259618811391153`*^9}}, Background->GrayLevel[0.85]], Cell["Sou\[CHacek]tov\[EAcute] vzorce:", "Text", CellChangeTimes->{{3.5259618544761343`*^9, 3.5259618620839252`*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"sin", "(", RowBox[{"x", "+", "y"}], ")"}], "=", RowBox[{ RowBox[{ RowBox[{"sin", "(", "x", ")"}], RowBox[{"cos", "(", "y", ")"}]}], "+", RowBox[{ RowBox[{"cos", "(", "x", ")"}], RowBox[{"sin", "(", "y", ")"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"cos", "(", RowBox[{"x", "+", "y"}], ")"}], "=", RowBox[{ RowBox[{ RowBox[{"cos", "(", "x", ")"}], RowBox[{"cos", "(", "y", ")"}]}], "-", RowBox[{ RowBox[{"sin", "(", "x", ")"}], RowBox[{"sin", "(", "y", ")"}]}]}]}], ",", " ", "x", ",", RowBox[{"y", "\[Element]", "\[DoubleStruckCapitalR]"}]}], TraditionalForm]], "DisplayFormula", CellChangeTimes->{{3.5259618697190647`*^9, 3.525961949493308*^9}}, Background->GrayLevel[0.85]], Cell["\<\ D\[AAcute]le p\[RHacek]ipome\[NHacek]me v\[YAcute]zna\[CHacek]n\[EAcute] funk\ \[CHacek]n\[IAcute] hodnoty.\ \>", "Text", CellChangeTimes->{{3.525962842546607*^9, 3.525962860210103*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"vals", "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Pi]", "/", "6"}], ",", RowBox[{"\[Pi]", "/", "4"}], ",", RowBox[{"\[Pi]", "/", "3"}], ",", RowBox[{"\[Pi]", "/", "2"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", "\"\< \>\"", "}"}], ",", "vals"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"TraditionalForm", "[", RowBox[{"Sin", "[", "x", "]"}], "]"}], "}"}], ",", RowBox[{"Sin", "/@", "vals"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"TraditionalForm", "[", RowBox[{"Cos", "[", "x", "]"}], "]"}], "}"}], ",", RowBox[{"Cos", "/@", "vals"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "All"}], ",", RowBox[{"Spacings", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "vals", "]"}]}], "Input", CellChangeTimes->{{3.5259628640664*^9, 3.525962867381363*^9}, { 3.525962913901237*^9, 3.525962985981408*^9}, {3.5259630429157887`*^9, 3.525963134249525*^9}, {3.525963171052383*^9, 3.5259632096157827`*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"\<\" \"\>", "0", FractionBox["\[Pi]", "6"], FractionBox["\[Pi]", "4"], FractionBox["\[Pi]", "3"], FractionBox["\[Pi]", "2"]}, { TagBox[ FormBox[ RowBox[{"sin", "(", "x", ")"}], TraditionalForm], TraditionalForm, Editable->True], "0", FractionBox["1", "2"], FractionBox["1", SqrtBox["2"]], FractionBox[ SqrtBox["3"], "2"], "1"}, { TagBox[ FormBox[ RowBox[{"cos", "(", "x", ")"}], TraditionalForm], TraditionalForm, Editable->True], "1", FractionBox[ SqrtBox["3"], "2"], FractionBox["1", SqrtBox["2"]], FractionBox["1", "2"], "0"} }, AutoDelete->False, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{2}}}], "Grid"]], "Output", CellChangeTimes->{{3.525963115019018*^9, 3.5259631346910877`*^9}, { 3.5259631961459093`*^9, 3.525963209892193*^9}, 3.526881643870825*^9, 3.526881684172427*^9, 3.556993174437389*^9, 3.589995931276078*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Tangens a kotangens", "Subsection", CellChangeTimes->{{3.5259620804539223`*^9, 3.5259620855175533`*^9}}], Cell["\<\ Funkce tangens a kotangens jsou definov\[AAcute]ny vztahy\ \>", "Text", CellChangeTimes->{{3.52596209036598*^9, 3.525962100629566*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"tg", RowBox[{"(", "x", ")"}]}], "=", FractionBox[ RowBox[{"sin", RowBox[{"(", "x", ")"}]}], RowBox[{"cos", RowBox[{"(", "x", ")"}]}]]}], ",", " ", RowBox[{ RowBox[{"cotg", "(", "x", ")"}], "=", RowBox[{ FractionBox[ RowBox[{"cos", RowBox[{"(", "x", ")"}]}], RowBox[{"sin", RowBox[{"(", "x", ")"}]}]], "."}]}]}], TraditionalForm]], "DisplayFormula", CellChangeTimes->{{3.525962105616157*^9, 3.525962129060636*^9}, 3.525963369921777*^9, 3.5268816563844976`*^9}], Cell[TextData[{ "Vzhledem k vlastnostem funkc\[IAcute] sinus a kosinus plat\[IAcute] ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["D", "tg"], "=", "\[DoubleStruckCapitalR]"}], "\[Dash]", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["\[Pi]", "2"], "+", RowBox[{"k", " ", "\[Pi]"}]}], "|", RowBox[{"k", "\[Element]", "\[DoubleStruckCapitalZ]"}]}], "}"}]}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["D", "cotg"], "=", RowBox[{"\[DoubleStruckCapitalR]", "-", RowBox[{"{", RowBox[{ RowBox[{"k", " ", "\[Pi]"}], "|", RowBox[{"k", "\[Element]", "\[DoubleStruckCapitalZ]"}]}], "}"}]}]}], TraditionalForm]]], " a ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["H", "tg"], "=", RowBox[{ SubscriptBox["H", "cotg"], "=", "\[DoubleStruckCapitalR]"}]}], TraditionalForm]]], "." }], "Text", CellChangeTimes->{{3.525962136022172*^9, 3.525962249458836*^9}, { 3.525962818053236*^9, 3.525962818404952*^9}, {3.526881663527335*^9, 3.5268816669296017`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Row", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Tan", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "3"}], RowBox[{"\[Pi]", "/", "2"}]}], ",", RowBox[{"3", RowBox[{"\[Pi]", "/", "2"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Exclusions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", RowBox[{"\[Pi]", "/", "2"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", "Blue"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "250"}], ",", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", "14"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", "14"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "3"}], RowBox[{"\[Pi]", "/", "2"}]}], ",", RowBox[{"-", "\[Pi]"}], ",", RowBox[{ RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", "0", ",", RowBox[{"\[Pi]", "/", "2"}], ",", "\[Pi]", ",", RowBox[{"3", RowBox[{"\[Pi]", "/", "2"}]}]}], "}"}], ",", "None", ",", "None", ",", "None"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"GridLinesStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"{", "Dashed", "}"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"GridLines", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "3"}], RowBox[{"\[Pi]", "/", "2"}]}], ",", RowBox[{"-", "\[Pi]"}], ",", RowBox[{ RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", RowBox[{"\[Pi]", "/", "2"}], ",", "\[Pi]", ",", RowBox[{"3", RowBox[{"\[Pi]", "/", "2"}]}]}], "}"}], ",", "None"}], "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Cot", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "3"}], RowBox[{"\[Pi]", "/", "2"}]}], ",", RowBox[{"3", RowBox[{"\[Pi]", "/", "2"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Exclusions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Pi]"}], ",", "0", ",", "\[Pi]"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "250"}], ",", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", "14"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", "14"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "3"}], RowBox[{"\[Pi]", "/", "2"}]}], ",", RowBox[{"-", "\[Pi]"}], ",", RowBox[{ RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", "0", ",", RowBox[{"\[Pi]", "/", "2"}], ",", "\[Pi]", ",", RowBox[{"3", RowBox[{"\[Pi]", "/", "2"}]}]}], "}"}], ",", "None", ",", "None", ",", "None"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"GridLinesStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"{", "Dashed", "}"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"GridLines", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "3"}], RowBox[{"\[Pi]", "/", "2"}]}], ",", RowBox[{"-", "\[Pi]"}], ",", RowBox[{ RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", RowBox[{"\[Pi]", "/", "2"}], ",", "\[Pi]", ",", RowBox[{"3", RowBox[{"\[Pi]", "/", "2"}]}]}], "}"}], ",", "None"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input", CellChangeTimes->{{3.525960540357113*^9, 3.525960541430457*^9}, { 3.525961847639113*^9, 3.5259618482858353`*^9}, {3.5259622671538467`*^9, 3.525962346468092*^9}, {3.525962406621743*^9, 3.525962724056428*^9}, 3.526881679381976*^9, {3.5899960116859818`*^9, 3.589996012908683*^9}}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{}, {}, { RGBColor[0, 0, 1], LineBox[CompressedData[" 1:eJwVVGk8lPsfncXYZ8wzlmzJ0opkqSTqechFdJUl0q1rSZdIUrnWdC03IqRF trRKElkiIb+vJYWESGSikJ0MWS4z4+//4nzOi/PmLJ/PUXHztT1JIZFIjav4 P6tVRkreNWZB0+ZHqs7v5OHp5rW9STgLJKyGK/eekofM/7YpZxixQLcwEUqH 5eBGo4nbYwMWTLC2BnK85CD0tOdQuR4LKmp8u3PCZMFvT8jmN9osENgQ4lbA kIW/GAleLVtZUL2OfjP2wRo4WFA8NbCJBQGnZ/hzHTKg+os/L67Igqnp2oZF Z2loGfkj9LMsC8xnDgQUUqQh9GsZ+YE0C45Ovoj2fSIFn+rPietLsCDqYUaS J1cSYlKHVFwpLJhcKUmoqWHBjoR92RorGJT2yXYIBbOgP+Ke5vwyBs97m067 rPo0PH1UP24OA6+M8jZOLgZTez8cKBnBoH/KkXuiiAnpehofL/3AIMFq3kM4 kAkWm2McLfsxeHSM7b0FZ8J9zMStrweDyvMeX60fSoD9YEmASAsGrte1/7YS ZwC5m8Vrb8JAvK5fNOAZHfKbfSMy32EQbcJ07bSmg/DLLfF6NRi0Lfkl9KeK Q8WVOw+Ol2BwMWPxFGEuBp5hS5s2F2HQ6bnhBmtBFKTOO+bN5GNwaLG+NemJ KJw5hpVFP8HgwR03W1emKKhu+7e5MB2DN93nbw5zhKFFrd82NAWDVtfPStV5 whAqi3eZ3cLAfir19YiXMHwi/9ffk7Ca526U2fKIEMR0nF6kRWDgp15qoTMr CDsaGi62hmEgmxhqG1omCP2vN1LTQzBwbBuKbA0TBMPsb3Rtfwziev2fBTAE YSrIXu2o52q/Q2m6ggY0sF9nZJ1vjUHs6Iw+tZQK0xcr9j23wkD5oHcnJ44K V9m7DQosMCCnZDsFuVGhLtVgfZHJ6h5hlpG/YVTYLqW/VLITg6eiKeQgfwpI i+g+fq2EwWHlyxsbD5OhyKMwvUoBg6W1uTN9emSwrtdOQrIY5Db52rixyHA5 cltoNQuDLD3PLY9aSTDP07R9I4iBfocEfcCGBJ0zm/jvp5hw8u79rD+a+Oic TfZs8zgT3PoC5y1v8BGjYOPohxEmuBgWDnb/wUdmPhs6WvuZQJYsVGqa4qHS YdWnHZ1MONBg7Z2vwEPJ7LUO7Com/NnnEm2WuIwc6yXzxxOYUOnZZvz1wyIK DvB5vhzHBFfOp11i2Ysoc/PbArErTNhhemv4+qVFNBQbXKwRyQRjVS/JpzqL 6MLB72XeAUyYOKryuD11AV3ryq8dd2bC7G+sl0JB86hxbH/3uDYTEi2WvmV7 /0JT6Q+/LG9lwnc3EeHvB34h7Hdej5gGE4b3SNjbaf1CR54X9GpsWPWfH+76 jTOLhs+vGfSWY0KDAVM7JmQWCfAGp8bJTBDTOLQrIGUGBSuRRLqyJGCb+o0/ 7/2aRrrvzK8H3pWAVif/b9nd02jUL1FBLlUCfjDDL7KrptGRN0paR69KQG1p UnXjlWm04/QeO/Y5Cci5qsjLVZlG06+C73zDJeDWb32H5Iqm0F+H53RGuxnQ GSLSLlY/jpRWjCqutDPgjlFzT2DqOPr0JMpUvZkBrWodS6o+48iUK+noDQyY ezWdoyE9jlQe6oZOPmaAnWFZ2rLHGGJP+9ZzzjMgZm5jP1V2FNldHTu6RF/V Z09N37wzhEZEAuqEhBmw6Wy/xXLQEAqLpmpJUxiQvqhZedlhCD2NUCRrz9NB 7P3kWTHmEKIEWWef7KVDbsYjVB31AxWdLJptzaeDtJH5y+sXBhETD76afZAO H9150Re9+9EHjkiVfZI4tMYYhMf//hV1lKrn98eKg/9UUbapxFf0JcQq82yU OBjFfTi4pY2NhmjxYVcDxGGxHdYGHWajFTkmXndcHEZkxWG9Sw/SNpEBPXVx kPt7wJS42I2uX1etYdWKQftECs25/RNy1DOsb/0lCrhem+OFwmb0uOxWxUdn EXi9O/mtwlQmur1jQ434kBCkvg1tdh+uxZMT6n08DwiCiu2ra1bPPuNdw68q z5gJwn6DsUtF/Z9xBeM8MX9CEH6nK77Xl+vC783eyAnfLggyy1KdmZe78KdH XH+kKQrC9FajgyNu3XiVKvdY8wQNutu3MctUevChUp0DuvE0cPRWVpso78U3 Mzek74qmQcfzR4Ydc7249ynZsb3hNCgj750b0u7DpxVWoq38acBe6GQkZPfh S/+8r3U/TgMXTn1JgNU3nGHlYXh7Kw3M9Dy99fDvuH5fhjq3WQCKlEyD2g0G 8JivpknK7wTgWnaazhunAfxLz8SCaY0AnLc7TbQHDeBhXUZv4ksFIPtefORv 5QN4XRvbed1dARhwjiqLNRrED9Up3jI5KwBePyv39Jj9wL1yMlZiWAJQe7Hf /+uFYbwy2/SvPHEBIMIPms6nDOP0xxPv2wQFQLJVS23n62G84IFRmvwyFVLC 1fI1BUfwhXT29mcDVDC+9OwfUtoIHpWg6NXyggo2Sm7XHzaM4pnnMzqkHamg FBmotfHABO7yqqu6/BAVTG0F6m8ETeCqK1LPnS2pILx/X71x9gSeFRt/JWcP FeLDXmJu1En82f2wvXvWU8HBXX6ioWoSr2hxeeLOoUDD9EIIx+Qn3qWxIbQ4 jgKW19zVk/dx8DQ/11NH/qWAT8PnDG1nDn7s5R0HXhgFuLyTn5eCOXifiYyO +TkKNI/rbFIp5uBDTkJDX45QYNOJ2KNvN8zgc9GjBykbKaAUNjkqJT2Lswbz 1GyADPY2Qn8aqszhRTwtjls5GWosBX8fNp7D7dYUVF14QYbgFz2d7W5z+E3L IqeUJ2TIS5eyO5c1h0sXlib2XSPDlo7d1L6t87hsGFr2cSUDp9FpyOHAAl52 m2i49AcZ9Gx8M8P9FnCnwurkpNWf3/TvgDcveQFPG6zVKdlPhnbdyrWT/Qu4 gtU7D64OGTQF78m0hi3iSrJt7bEUMvQprJPvePsfXqVjez+DSwLdCIuf+TP/ 4c5W7Wfy50lQonrNirN2Cb8X9knk4xgJROvWmhf7L+EqP7pxuXYSTHOmmcfV l/H1Rf252Q9JkPHxpuPPHC5e13Qi6NUdEvAVsqLWsbm4+49Bs6bbq3pW8J1O Bg/Pkh3+PhVHAgnNV4wBfx6+8dL4mp0XSHA/kB5WbsnHtxz4FVlnSgKPpkJW vzCJ2J0n0uWwlwTBlWY2jltIhCVjneaoPgly2cZ3dlqSiNOt+zvoGiRoWigx M4onEfn2d9c7YiRIIvLas2TJRFXJi8BRURK8dkkUyzMiEy0yje9DBEgwXGHR q+NKJr4Vjo4SP1eQw0fFSyiXTLiX34xtr1hBvbT16XvMKcS/oUh3MX8FvRvh SkT5UojHe8e+KD5YQZ7rWmpdUijESA2u8VfMCtKDlTXj4xTCp2msadF+BV35 YK6Vl0Yl/mYTdKUpPtp1dkP9A3kacTvTu8TkOx+Rdpbp7bamEWUuycc9Ovgo /ewm64IIGrE0OJ5XUM5H+xea4g9N0YhLk8nW+6L56MvZji7pNkHi3vPqeY9g PrrnOD93WFyIqPGbyLzqw0fe4WJjTy2ECIF545+f7PjojNHdsOI6ISKGP5Ho qcxHk9kVMbpNwkQOrNkVL8lH5TnV90WZIkRjhMm3QkE+WqCjBsJBhKALpWgv T/CQl+R2+9khEeK6xL62+Fc85G0UkQvyYkRxm09Q0TMemomvrPvkLUZ03EhR +XyXh6ZxPZf8KjFCRnbKT/kyD4l6v1YaOSVOpCunsopteciu2O+YUxed+KK5 dUzSjIcs1JjuyfoMQt6guvqCAQ+tGDVlY6kMIsVm9OxOZR5a8rpFlj0hQSRH GLS8muQiRwU6eymWSXxKaH4s/52LPgZuZnXVMQmpdNewkA4uolWEUg1IGHGj +MrWPRVctPcfmZ43IRhxbbA7DmK46LnZoD8vmkW0TvucUAnlohPs3us/WliE BI9sGOHLRfnzidLjcpJEgrT62D4HLvqZW2Ne9EKSaFapqn60n4smP4t/zaFJ EeJatqm0PVzk4aI0oO4kRcSZBVu8VeMizq0C+n5haaLRlqG8eQ0X+SekeGu4 SxOizg8WYkS5iN0ZI6JaK03EBDQ+tuQsoy5nssBMrAxx+Yk87UPVMpLRots7 mMsSb17ks7WKllHLfYUggWpZQqDa5EVi1jKyU0yo9cHliMhurxM2V5dRjYNm YJqVPHEsdLZC98oy+pJ1ZHvzGXnif8/9Z20= "]], LineBox[CompressedData[" 1:eJwVk3k4VXsfxQ86ZhkOylwqunK7GaKQ7xZRhldRSYmIEsmYIVRKrojw4laG BipDdUlSGn67MotmQ8h4Tsd0hn3O3oT09v6xnvWsZ/23Ps9a6RfqFiBKo9Fe /9b//e5wR0Dqawq1ry3V9WlRx/k6kzcPPacQ77hQ2/WsOt7pZ+RQ+C+FDAXe bhMCNbzidsxU9y0KoYd6R1RD1HD/dUvMXS9SKDRD8UXPieW4zQnH/rQEChW1 t2FfqWW4dnVWUlMohbIOELSt55fhPWZab7fs/Z1DrFe4l6nitXGHw+N2UKjF 1SQ5E1PFc56Xq9ZaUUjvFyfSvV8Fd9pq5mu4ikKXR9aJN2qp4C9dXCl1Homq /R0uEW8Y+L5NOl4bxkjUv+LjtHMcAyd0ua+29ZCoUnyI8WIDA9ebzcwIw0lk XDZ4KuW2Ep5xq3N1UxaJcOTbkFuqiOtlFKf1JZMoL9/4RVCgIo7HnODxYkmU e/ZQ76s/FXGh89LnGr4kOr3OR7/+uQLuNePiHm5EovAu9Yh3n+Vxaljracoa Eh0Mk66pDJfHs95OaxeqkYj158LHRgV5vOFmxkSTyO++bYwK2LMUX+fckaT5 UYiOnOuv96dk8bkbzlXNEUJk1LEfVqdJ47npmqoDR4QosSBlq5OtNL4+eiqe 2C9Ebk8zwlp/SuF+TpcctGyFCB3onCiJlsJbyfZvEQwhur7ko+BDtCTuN1Rg lyohRHBHX6JqsyS+0BZcUTQvQLXf58Ku/5TAN9yQiW4ZFaDPMZ0r81Il8CuO TnLajwSoNZQ2oVUhjhtv1Ig0KRMg/nm7iqYocfytzmTP9kIBasAvlThj4jiN TCuNTBagiXi3TV976Xjg9TbL1t0ClNnmlxOsSsfNhTuCokgCxY8rfzhSLYY/ DNk6kMYmUIJuyhPDZDHc8LvFzpt9BPI8LetZ4iGGr/i6zqzzFYFSOPPCbJoY Lo3Lia7NJJBOl5qW+H5RvD/9w9U+PQJ55KyWM1srgu+lt8kSagSKMUpKcVki gr8//fqMpByBQlJenhwcouGN4TUBGwV8ZHj86P7AAhr+wCPP6DLio1rRvdWt KjQ8aZVn69Z9fGTiUTz62HIRLRTusvJ04qOwLZE2siKLKFrV8d9Qaz469aJ2 jVLzTxQkZZlXuJqPyu5vXqq75yfazdX0pXg8lOjk3Tsbu4D0ng3Nll/kIfrD ZmWyfw7l3X6/Uzeai27LuDjQ6bOoyTA3r9mLi0b+kXhE9c0gqsbj63FbLkr7 9E/N9poZtO/1t8N1Clw05b7oJXl4BmkOTkU7V3LQllL1io4mCpUulyqKHppG /htk3LYWk+hRus14m+MUijfs7Sr/zYGpRF8fZjSFJiqWumwJECDVay0RKsun 0M7Tt1iy9gIUW+a64MOcRJtLnlodlBQgq8aD8uSZSbQ6nXK+d5lADYtxG3Vq J5BMEvn+YBkffQ5/mBSpM47OHnR4xZvjojPbLzq8lRhH3gsh2W/buchA55Dc Gh4b5XuRIdOFXHT2rdzVLpyNLhx/rzcPXPSn/rGqzX5sRG533mB0kYNS+nUG f5V+R7GxN1YF6E+jTQ4ZVpcMWGj4fbbk3swJNKrlL8pUYqGsHlHJxCMTKFNo 0bJlnoksHELOf7aeQGM32e7cdiaSOXRlRIk3jrIXbIPdQpiI1/zFCe0eRxPV c1eXV42h8kSvlcf12KhQM3CmdOMoUlxlUifFZiJJxazuXxqj6PLZ0VNRr5ko iv6kbr/oKPK5EaktWcREzhyJWIV3I6gz02NLmRsTLaC7s/GBI8gnKO4BQmPI 6/D3H24Fw8h1ntzAuTGKNCqOLNBEhlC6iJ9CUcIwMgltE62/0ovWjbKeiy3t Q+caerAv0I7OhPhs/6OyHXHM/z5ZYVqMhseT37HNitG/Gz3dsqoaQevnQIQ7 qxE0p6TC1Ou74EHwDcfyZ90wtOZ8ctF0Fxhel/Jwp7qhxGfhyoqV3bD8bFHr CqMeMPjEeaWX2g05L5xz9e/2gHn9J4bJ3h7Y1K/YzcvtBbfUojonohfi2iKH v8T0wcXVRr8SDAZgz6/LTdbeg+DsXcGgeQ/AYGuRmGXxIChcWbX2fPYAlDU8 MA/6Ngj5Mqq7Ls4OQKip+Vj1X0NQSszdymv6BrhycN949RAcOuS3ysNoCO5q DGTmPxuG+PWGzaEdw5D+PfqftaxRWGGeTzxhDYPIz2uGjlJj0AQ0bVHaCFSK 7snPNBwDhV2fo3KNR2DLvpBjSZFjcCcyQffpPyOQIdPUqybGhPdP3iaK+o0C Y8hWLewPFujZhpjmUWPwRl5psTmPDe1O3T7f5JnA9c5JVn3JhrDdNun6fzBh nQL3WD6LDc8CVEaeHmCCDcpKM9w0DjtTX1z+hjPB+12F9uuBcYjvkJvUT2eB TO7gwnKTSXjv8eBmvQ4bXMIVQ7VlODCvQHfeac6GW96mXYXmHNBrO0Ax/8OG dbHaHp7+HEi0knJSPM0G6ZN20ZdfcsBgpb/waD8bWodbApdEc+H8hJqDytVx sCiPWxiI5YFZ4oWpUKVJiP/z0F+GigT4mvXn0w0mQTiWcF/VkIBLXGObAptJ WB9n57vegYBR36G8prBJuJOz5t73RAKy7C1B690kyFnhujnTBIzL87Pb0qfA WE4mcFeXAApveZmvoXMg1mKP8pGPJIhb+zU/0eaAd/XY1ZUzJIT1HvVw3sSB u8mnlddrUrBNITImMpgDJvn6I9ZHKeAkXqx79YEDCvYcTX+RGbDxfGzuXcwF OVl5A8p+Fu4JnzXz67hQ5l6Q6x8+C6pZrzwufOBCVFCvpmXhLJw8zLLcK8qD sPCDEfqCWXC8xj+QuJH3e7cznX/d+QECCcnC9gIerG8Rr6jTnYeyL9L+eWU8 aLSr+jtj9zx4l8gZ+tTyAK7Vm0ylzEOLNeM50ckDxdo1TJfpeSg8qd2vJsqH 8Gn21Ul8AexHTTUDA/mgHlS2WiFlEearzMeMTvJh6bmBavRqEapOW9ybT+ID dS7+tf7iIqirY1aXC/hg9CzCdEPcL+DudPJ63MmHBfGUWgcrGnblpW/hko0E NHXe5+vtFMGyxr6WCDEC6GsC0x0jRLBU6d2VY84E3HqTLRjIFcFi99rXN/gT MHW2+szBPhHMk2PQk5xLwJPg2dAlJ0QxN+XSwagbv7mqqC1M/FcUc7TQ+u5/ j4BuxR+v99SLYhYp8pRdAwFG5pZlbyTFMHVtIYMuJCBwlZ+rxz0xTMkuRIP8 RcCxkrzS2i4xTDqIpcuUEcD4YyVWtcgSbK62x6hxlQC2DCYIczyXYF9dXrhe cBdAh4btrgBFOlaQmJJOrxHAvex6tuFtcSy35FcO+VIARL/JUFCfOHapNfYa s00Ay9JeSucoSWAJKsHljSMCCD51avDReQnM675r8wUlIZzxVrovESGJ7f7U 0nlSWwhWqWzajipJzPmHTVeAgRDmpy2uV3IlMattpsxtW4Ww2P/gBxkuhWkO LBcTjxCC/qUD3tcuSGPKYjnSVKIQssMCHQY7pDHZP2SUWBeFcKxGmZG9TAZb iPq5oummEHLfedcF/iuDDciOWKd8EEJQlUKYDSGLdRkfsI8eEMJmYXC7rYMc 1rnvs8uRcSGQocqBGsVy2MvSJi97ERK0tOjSabuWYsVWlafEjUjgv7EqcP4g j8Uuf+ZWb0VC3ztls2B1BcxN2GZwYjsJhdVzxftcFDDxexNfv/iQIFsPVj2P FbAQDQPL25kk+L/NLH9yVRGzn9nM8LxGwgO7nfGyXYrYik87JmXvkBD3ftMw h6GEfU47VhD1ggTerPjg9VwlzGqubN52ioTUtWI25ZUMTLXryaeZ3z+MU5re cZhiYLzqlspKMQpi/lqG7G2VsdJj7AMMDQpkz2ZbcUaVsdPbZk2a9SiwaThs xzZXwfatlJSNN6bAWK1NGJOpgsn26j8f2UFBn0wur9tWFWM9Ms/N30OBtWBo 6/QtVQzPcjju6EtBh6lZqS59GRa1/ajmw1gK6NvFk3I+LcP66u4kJN2lgDy5 PqamSA179N/HuzfWUJDdwGhn/T5LNI06/qaegq+395l2nFDH/gdL+0UO "]], LineBox[CompressedData[" 1:eJwVVXk01P0bnQVjmRnznWxDFGUrKlGU8nlE2ZeQ1xqh0jbWUikiS/VGJV4J KRFFFHpLi+83hVIS5ZWICiFMdmoWP78/7nnOvc89z7nnPH9c9YAQl90UEonU sID/T/0q1dGIOD56o1Og4fdKmRhxbVbrPMdHnIlJmyZvZULnt55u1T98VIRF lpV95hBB184ZpuTz0cjHUT+HnRziy+BWa/SYj3Kk9WZrwpUI5dSbLkr1fJSx QjFIhapEuBuSfcdb+OiWVHGgVaYi8e7k07CbQ3wUvXm7gV2jAkGwDbNpHAHS ui2ieLjLE4t1g6/0aArQ/XdfPF1+yxFHUW7Gw7UClLNDTsUpT45Yc5B2ca+9 AM3ZLHZ7NrmIuF7XmdAQK0D5dP01/Y/ZhKCTFZ93XoC+e2K1HuFswmNia2xU lgAFXya9/7KSTbCW3DumXSlAdZbjwtoCjDh1NIGb/EOA9vXlZjWWsIiu1OoD fpMC9O96U+lLYSzCpJAXbEwSIn/7092tJixirMUjcIAjRKk+28zUMmUJ/5X6 HlYOQuQumXyBT2IST80DdizxEiJuycAbrxsMQskj02V2jxCtRh7LRiwYxPsE skPRKSFy8e4t/usCnYDuNnNalRCFWim4BW6WIXKmpFEPIUT7i3fU+o5KE3PS sOlhkxCNSLtzxPKkiXvGd9bvHRCimNt1x9Ro0sTSSzErG5RFSKf6kNuqIUni RFGlTp62CJncTJjWLpQkPj0b1IwyEqFGzZ5mboAkcfGny1JtRxGSP+mz89lX GkGy1JZPjhOhIedjIQHDEoSPlw/bL1WEXDVXJzTckyAehV6SNc4WofGxTYvX RUkQobl8qYEqEXrlucKUQZMgvs40i7YNLuzTLvfMGIgTxO2jgxJO8+hraltZ WjmV8FNarinuPY+Sp1PTLyVSCVFS8y7q3nkkeJ1H1/WhEpuCtDrnY+aRbVqi gZwMlXik9rFprmwevSRKtOJDKMSn15meh2kk0FvMbzV1JhM6caNRkQwSKJ5p LvRdRSaiTCz+iVhEAvXtPR+H6WRCoYjXGraEBKym8HLLNyTCLWGrPdeYBE99 Lm4ptycRzWaTZnv3kqDxVJdk2nMRrjZj7bvnEAnWWhuWXj4rwrl3r0Xvjljw T764YeQiwumLbR8FxpKAvZsra9MvxG1/XzfwzyTBm/LvcSFsIV5f6bjcs4EE h7X8FeOT+HiNzh0pO20yrPXI3fOjfg4XbbRj6emTgZiL9luSN4cjhxEFhiEZ NF7s+Hk/ag4nwlYtbzYjgzal2q9bdw5//rjCzNWdDKrT9l1r0mbxl/ZPIrwT yeD1Oif7XtgM3hj69suBXjJQdzInWoOmcOnTh/rsh8hQP7xq36JtU7hdBnNY /xcZvKuLeOe1p/C31c5zv/6QQT8pXE9neBJvorSxI9kUCK7Z4jUcOYm/T/9i dcKcAvInLvsw0ibw/x7x7p/Po8DT3O4VF3hj+K3TfIPRQgoksCWjcz6M4Ucc JSscSing/v7Dh/8ejeGKfeoVzGoKmB9v9nh/egz3kN1RcbGVAlvouVsaVMbw jt1PKtLFqbBh7aTP9Vs8vIt9pjLnABVqNQtrVJ8M46Vf0g2FYVTgMl+kpaUO 4yeKb1T6HqWCi4tDkGXAML7Y7EmlWiIVtmpIrvaRHsZ99/Eqr1+jQueVQRMb 3594N+5WVdCywI20w5MZQ/i3g+oPSo3F4NtXGi/y8g+8NXDI7fpmMVi0b+RO T8gP/KXX/anLFmLQ6vw5IsT+B15sbW4U7SQGfxfMFwnEf+Dc5bsqbfaKQexD DZsXx/txfuf1+z/+EYP8Nwr2Ffv7cHm7pWVLZ8Sg1m9nVPOu77iN7pKi9Cpx iNeIsn2w8Qve+MmFoD0RhyT/VvNQQRdufyap4/hzcTCL77nhUdOFOw6Myux6 Jw5udj4Z5Vu6cLfCp6H6g+IQbRHvE+zQifure22sV5GAyL/23M7a34Ef4WQ0 zcZLwGf3ogutRBteICUz5bWdBmbfAxeh8034hltNrtk/JKF323SCekUurmfn nX/TXxosHGe6WHIvESbXbnfujwxwL1mtiGxoR+6rTSQSSXQoKdYvmxS2oxzb LCJWgg6nn3a8vGT0CWnFea87zKaDhLUSbWX+J7SR16Pmv4IOagXHznfGdKCA V4Pj67zo4JBb6JBg1okqTvzJ/FZNBy3zc3pXO7rRbKa3SxdOB8XIn3fz5XrQ psqn9PY6OlgUfOL859SD6odi4t620CFB7HIUXt+DPrtTDzwcosN++VVH3by/ IqoB3SyFw4BH2oNNeU7fkFu/ap/JMQYU1mXuOmXXi855NybJxzKAeBvITT7Q i4iWI7oTCQwoCHxBLfm7F+nVNHNLLjJg+vP5Eeu3vUgsM+63ajED6uW39ww4 9qFK634mtZ0BE3FNhjOe/YhdWrqhyYgJN8Me6OafHUDWGp5dtzcywVJFrK39 7gCKuSIemwRMWDpd3WHUOoB+Jux8ieyZEBj+NXWPyiCq9WU5VQQyQWRsaltV PojCZSODMtOYcLBa38/r6xBqCTe9sGuMCd/mPSu0d4+gf264ljybYUKb6sfl RNoI8nl/oIEjZMIhtfJTWcQIGtTPmW+RkoVxygoGW3UUiQYFIVuWycKD/a6v 13SMIj2/Gudl7rJg0hsa923nL3TGzpzd/0QW1C7iv9xdx5Hjcc9V5rWyYPuf vRYWMo7kbofZ5r6ShcCk9gv8c+MoTyI/fkebLOi9ykkMfDGO/n1OmazjyULV oiyvtPUTaELl+74PLBbcbt/gLqk9iZam3bStsmCBbYTOhdF10ygdpQyWbGOB i8oT9Vfu04g2eiTppg0L1rp0zfRGTSOelW1tmhMLrt6xYvQ+nkbPhGMbwrxZ 4PUu2ptjOYO89pnpropgQZMNbmYTNIveKeg0aB5hgd5K9oOys7PI/CW2W/UY Czq3Ni7bUz6LdJb0X6fHsiC6b9+HZv4smv34t9LwuYV7oac3VlyZQ+nQQSvO Z8FJ7cSTA72/kSSvtjCvkAW9CtkFDNk/KDq71CKzmAWly4pTcjb+QQEzsbFJ ZSyo5eZz+Wl/kEGp1mzQYxbEObcIeNZ89E4x8od6Kwue69ZUeL8RoC11vgmc NhYo/z5+iicUoAfhVhrYJxaMaW7iSxkIUU6T8k5SNwtyS+5f67uy0Nunn7d1 D7EgeORkcEiICNF+MeuyyRg0cdmey1RJUHu0bMkHMQz2zyfxezaTIIbieFxa EoPY9Z2rJP1IMC2fsvoYEwN1erhvQT4JejfJXHVXwcCVK8txWk2Ga/V3plLU MHit06hU4rrQC862TnXqGMTbd2YlHSVDS+BZMSMdDEpaAxMbXpABP0cLwdZh UHPBp7jOnwLH5YpeW5tgkPuM3Rx2lgLrr21bfsoUA+/g7rx/Kyhw935iB88c A6cjsTVKNCpkf6JavnXE4Bo/hlrykApRWiROcjAGHq75WzpMxWHtvbyImgML ee9XbpUMFQfeBvRumouBZb0GplwoDrsdYk4HHcbgL81FeSJMAlwjBaPm8RiQ 03NbE2YlgCnKtj6WiMGU48HxOEMaNCab3rx3BoMB2kRwVigNzLOPeyy5gMGt F917TXg0WF07VyvIxmAbik9eMycJP+2uqBrlYRB8huY6t1kKbrUZHz2Qj4H8 IDzRTJQC1aEj+p+LMdhLb6ruVpQGGdZ05sMHGCw/bP5Bw1kG6rPSJ3iPMMC4 GaJD+TIQv8zIQevpwr++HXJOnpGB3+sjKBm1GNSmDAYFFdBhwHf8YHgzBi6m nNRKJSbYv5DIuPoBg01NnMj8K0y4p7P4WW07BhV/F7lfXSwLRye3MRZ9xcDi Z0BPtRILujx81pn2YdCyz7ssYBcLoCbMN3AQA+NGq12nSlkgdTbnbuUYBiFj 2+GGLQZc3v22zikMBl0yJ0dzMWh1bRBSf2MQQXViWCzoV9UmHNzIbNj0Lut2 9R02rKyy4k1hbEBNc/SLlnJwkeOroKrAhhW48b26B3IwFRNutlWZDabRBnj7 Snl4apObmqHBhmuad1P6tBVgaXnFv8+02CB1qADPKVOABLlX3f0r2HDlpP+y MlNFcOiZWLXekA238gw4L/crQYWl5F87jdmwIcW0upPBAYU7qrFJpmxYtn/d +OFqDjzuVzTIQGz4XOhh1MRVhv8ByPy8Ww== "]]}, {}}, {{}, {}, {}}}, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> True, AxesOrigin -> {0, 0}, Frame -> True, FrameLabel -> {{ FormBox[ StyleBox["\"tg(x)\"", Italic, 14, StripOnInput -> False], TraditionalForm], None}, { FormBox[ StyleBox["\"x\"", Italic, 14, StripOnInput -> False], TraditionalForm], None}}, FrameTicks -> {{{ NCache[Rational[-3, 2] Pi, -4.71238898038469], FormBox[ RowBox[{"-", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "2"]}], TraditionalForm]}, { NCache[-Pi, -3.141592653589793], FormBox[ RowBox[{"-", "\[Pi]"}], TraditionalForm]}, { NCache[Rational[-1, 2] Pi, -1.5707963267948966`], FormBox[ RowBox[{"-", FractionBox["\[Pi]", "2"]}], TraditionalForm]}, {0, FormBox["0", TraditionalForm]}, { NCache[Rational[1, 2] Pi, 1.5707963267948966`], FormBox[ FractionBox["\[Pi]", "2"], TraditionalForm]}, { NCache[Pi, 3.141592653589793], FormBox["\[Pi]", TraditionalForm]}, { NCache[Rational[3, 2] Pi, 4.71238898038469], FormBox[ FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "2"], TraditionalForm]}}, None, None, None}, GridLines -> NCache[{{Rational[-3, 2] Pi, -Pi, Rational[-1, 2] Pi, Rational[1, 2] Pi, Pi, Rational[3, 2] Pi}, None}, {{-4.71238898038469, -3.141592653589793, -1.5707963267948966`, 1.5707963267948966`, 3.141592653589793, 4.71238898038469}, None}], GridLinesStyle -> Directive[{ Dashing[{Small, Small}]}], ImageSize -> 250, Method -> {}, PlotRange -> NCache[{{Rational[-3, 2] Pi, Rational[3, 2] Pi}, {-6.695675412435047, 6.60820466795982}}, {{-4.71238898038469, 4.71238898038469}, {-6.695675412435047, 6.60820466795982}}], PlotRangeClipping -> True, PlotRangePadding -> { Scaled[0.02], Scaled[0.02]}],"",GraphicsBox[{{{}, {}, { RGBColor[1, 0, 0], LineBox[CompressedData[" 1:eJwVx3s8lPkCx3Gkhud5ZuaZIduV7is6VqhWbrsuRYpULqt7SSvZRFKzRSvV mlAokthOhGiHIqXk9yWpJXO8ipZBh8I0ZFwjVHP2/PF5vV+f+XsObdqnoaam duSf/u9YybqQE81C2HYFlDTWx5R/OLe9+OxrIeIiT6h8JftJu0/w6MVXQhx2 CPW0kISTmonLopt1QrxL3LnXTXKOXLPtiJJWCCGQV6jYghRiXx2eNC9PiBj7 y2td7uaQ2Mas4iqRED2hfbddyX2yYOTrKDNHiJ+bBgS8kWdki4G1m8RNAO8i S+c7481k4OQjhwJXATShl3ZluYzEtq62LHQWQGpz3O5GgIxUpVouumsvgIBz 6dNcmYxY6K6auLdSAH87eWlFWQuZrm2W/VhfgBvOehcFMW3k9dC3X18oWVSE /P122/V2EuKRM1zXy6LxJ6/c5vJ2witcopC+ZzHeK9/+S1s7WRO0uKH+LYv1 Z0sutc/qICXyBXkNr1kY6bua9yd3kOTWuV6t5SwOnhzc0Z/0lnhX60h641n4 DJdGHc7sJKLwoILJ8yz8cnDnWVUnyTB8VkjHsHiycN59m+5O0i0WFRmfZvGb FuLES7vIEfeOB4HhLFZnya8W3ukiF5skT3p3suhOO/xK9Lyb1PS4NPeasjCZ rDuYKVQQZVqmbPJfLBQ6R2Ozv1cQwYYvLbQxC/I1urpxh4L4FBS+MV7MQt3g nd/DfAWRh37TGTiThYeVZtqttT1E80unsledxfOurQkXfu8lIn017aabfPTF RIx4mCmJ2fO1icf+4COG9rTI2aMkisMXZs9M5SMlfX+NU5KS+DzVN/GN5SNu Q2DSno9KsuKgzebWED7OBW1IsXjcTwZKRentdnz43Kr1oyUDJHdv5ZLfLPlw 9d+d/vD5ANnJpQrnm/NRLw2+lPxugEh3pVbuWcLHiuaH3L9nDpJ8zgN5J8NH vFjUKf59kPh7flyuaObBLFNLtP7QENFXWT+KecVDccqgqzBuiDTmRjsa1fHg 94PbRn7+EHH8rOMdCB7CIrs+3pEPkfmZZif6sv/5gcBrBXuHSevAoerBUB5m 3x6sXLt/hGyO7fGd4PJw/MykY27mKHmvHV7F0eLhps+48vSzURJxborJdA0e auJdXub3jpK8qDnqpqNczG0MLuu0GCMax91y9r3hwnjOjmuza8fI3X13h+sl XLzXG15zjzNOnN/Zbn+TywVncOXLbtNx8mZXbXXvDS7CV4faHvcdJ9S2ztRp KVyIf8lprpaMk92b9H6wjuRiMERcu3zbBGHtRLE57ly0D4XK/qqdJNll00aL XbiID/6Q8mpyklivTtpZ6cBFXY+0y3fZZ/Lzittmbau4CCo/09AT/5nA+E2T cB4X4+f0vnf3/UIOzbBfHDHAgCdrMdjEqIhmsjT+fA+D1kSXgC1OKnJVZ+un K50MnrZHb/wSoSLVvCO1RU0M/m3lKHYfURH9qdmHFWBw1Xzd9FuhapAOapdv SWCwvmqHWHVMHQ0lRpK3YgYhimN/hmSoQ/ara0ZwNIP0kls3A6vU0T01LiI2 nEHZhxd2kwINqGaydlXbGRw55pvQW6SBaf81/W6TNwMJntnI2zTAZHkYtG9k 0Ne3Lue01hTMMElSTTowcIprt5LsnAJTez2YGzEIN9A5aKuniZWcVYUVCxk8 GO1ZVeSkCesX3tfd5zJIiBb49oZpwtkr9VQgy+Ck9ay60iZN7D4w58fMURqc xLP5/rlTkZi4oFL4hEbxx46e/WEcXPF2uHu9jMbYU+/C5iIOMub43TApoVE6 HOl3bJiDvOybUetu0Xgq/U/KrqNaePLQ0CHqAg3L/EatvvPaqIl0MWdjaKjN ylI2NGij3vHAwowoGlkb5TxrAwqt0vwpD8NoWPT/+VfpAwojb02qBrfSoHzX WPWraEzkuBdHetIoClGvcvFioBYUnMV1p+Fl51KeLGHAHbsTvdSeRoY4RuG2 j4sl9Aqn3YY08jYZ3Pipj4dl9Z4r+ufTaLmUZ+PnyYfZ5aOLT86m4dxnV8AB H7YGD6am8mhsd08E3Fh4m1tV149QYNe/cFlpK8DBdFZ6Qknh6+oggcZJAaI4 3Y2G7ymUTngvOPtYgNstF7tOtVAodipv03AUosLJv29ZIwXqS8e3i8RCvC6w +tgkpaBLWy5yfymEWnS35vJKCkafRP7zA3QwXfmIaXtEQd1eNDR5XwdGPgm6 Mfco9MsaxtZo68JzmfWijlwKyf7XK3OKdJHXkOCQcIFCx6tU263GeiC2+11t YijIDcV5YQl6aMi13qyIohChY5j23aQeVCfke348SmHAMIz2kH0DXXnZgb5D FHbJaNnSjTNg5JEYkhpAYVWaTtyZmhnYstgmanAbBWfTP6a31s1EwAWhON2L wq+XrwUGe8+CSWnQ51OeFNb7L/qaFjwL/wNwrcMU "]], LineBox[CompressedData[" 1:eJwVlXk81Pkfx82NMOM+W0eh1FZKzsb3m7QRCamscZWjU3Q5OhatKKGSclSO VqdqJbl5f8ousu5cjXMYwzgHuRm/fn+8Hq/H8/F6PP9+aR73d/QhioiI1P7M /zu7wC42dYKGLm1d1Le5o4Lf8zZlssZpSKJtVpnjp4L/4A9l/RikIaTA72Nz lHFn/0SVOA4NHSUfKzvGUsY1rvyYQ800tF7aXrXeTQmPWH3m61JHQ1ptAxaa PEV8KMKhZbqSho6QRjJbLyji2Xff5+gU09CH6LsvriQp4HLybpool4YsiEqP lrYp4MEpa+79/p6GWKD0glQrj+PPT/rFZNDQuqzInB9S8nhDkdaGqSgaSr+f KyqWJ4vLyCkEzYfT0CrzZfT9M7L4YT+xCuFVGvJQ7320ZZ0szlYXeK0JoKGy A7tt7JJkcG5Eadp6ZxpiFCwcW06UxnW6s8f1HGno2dzezjmWNH7KKJOpb/tz V3e4f1FTGh/nR3cw8Z9+IysoJ5uBz9s5Kx7dQEOHsL+xylI6bvrKxtdNi4by 4w+mcFzo+HUC9slLjYaUj+teMF6Uwom52ocCGDS0g3dU0g6TwiWUp+Nuz1PR 86aTwg0cCVyjP5ZaUkVFDc+qE/0CxfHju8IPf/lCRfzvlaTPW8Xx5w8vZVaV UFGPoQc6PSyG61mxLFqyqWhE711vspcYbvBuwx/jSVTkP1o0fcJbFA+kqtX+ iKci6+h8k7O6onihB11tKYaKzPbt0AkfoeHmMrOFtHAqUh3X64ZAGm4VVD6j cYqKkozPb/uWRMWjG/Isdb2oKNVNQvmpFxWv3fjmwa9uVBTb8e7Nnq1U3LHz nr6pAxW9FdbXMr5ScNfd7n6HTKioUpEtp0ql4OfXLHBvilHR6duXxyYzSPgX sQybNyQqorsb+yiFkHA5UeucuhUKUl6YCK63J+EF5ORQxSkKSot9NddHIOHC FWOV12wKcir/WG17mohHC4IP1mT9ZLZgpt2BgHeOa+QJnlNQW22KUuk2Av7r WJWafDoFDeW7VYkyCHgDX2nYLYGCDF6zKuvqRXDF/oKIiWsUpOcT1N1zSATP bJkvlLGjoO2S71XWfRdis9/SNYysKKibYYI2PxNi+5qsolgWFJR5m/u6/owQ G65Lcso0pCDtc5PXW0WEmH6V8cROdQrat/ataLr+ClZWFLz+dwEZORVHVjPe LmHtafNxafFkVHTnydiR2XksZcDgmmUMGTk3ELsGqucx103nT/FvkpFQq8m8 J20e68nj79kRQkatoZ5B4jbzGK+WPV/hQUZqDqqxci/msJmlkuPjm8loMkI+ KMNvFsvbvXDwgQ4Z/TW6q0PFahYLjtrJNNYgoyhpjTGe1iy2LPNe8YYsGcmd fqhz4fsMRtZLq5FfJCGmxpXHO/bPYDLO4YbMShLSYtkcOW3yA2t+WrquD5HQ vK7U8E2lH9ij/gVGVBEJ7W3U5vTNTWPK/hdGGt6R0GXTfxzc8qcxjUivdO8E EnqUr3zPzGQa25q7VzzmGAk5LG6v5O6bwmwZ4t3sJSKS38tLaLkjwEY33ska nSGizUm73rleFGCxeyRChBNENPTQZk6UJcDqAqXktLhEpH2I4luvJ8AOdsns P1VDRN6DZmx60gTm+EY1b+4JEQX/dpn+dOM45mz5a5ycOREZuRoxPa6MYPNu 71k6xkT0d5jjdwuHESw5aOtG4+1ElM6dcnXZMIKx3+j/w9IhorJINkerbRhj SRsuPpMiImOviQJxo2HMvdvcV7+HgF4fR+OfV4cwr2B7c7swAgpVPeJ44wMP u/TdJ743hIA0CDzidDQPizC9yrtwkYByaHEWd7152Ivl53GJvgT05YDMTSsl HjYUttTda0tAh86dIX0IH8DO3n4RelGZgILNLQZnWFzscsoySsoRQWFr4owu bOrD6CEOURVfV0Gy6+uL0L2dmN3NAXfd0lWQeNQ5xBTrxOLuhxjeyl6F3BjB Z+3aDkziTcaAdeIqPDDW8w443IGJd0zuqfVehamMoTruCTZGZsaLNK8Kgayl mTT0oB1bFPkWwtkphHPcjzLXKS0Y95bT2eWMZVik0xuTL9VgwqjPF59lL8DJ GemXJa0Z2HbM8d87obOQTJlTrrL8F7IGbE0GIqZBrWrrBf+zbaDjsfftUtA0 DMwhbZmXbZDezlSXOTMNmrSSrjZOGyT8t4WCOUxDUUuhRN3RdvjjA6Mxae00 pLAmL53f+x3srzeftM2bgtTgxNE53Q6YkXNN+jg4CUKrlM2HJXsgIM5pTTV7 Eibn30szD/TAMO3AH721k+Ce6HP9aGwPdC8yvSVzJ+G2Q4+cLK0XqnrVt50I m4SwrpXAtbd7IeVtf6WK8iTIheaPecVzALM8Mxe+XwB3Q047LRb3QzutNrmZ KYCnkpvKxHv6IeC/Lbt09QUgdBYtYhK5kOE4FVajKAB7T+6ghDUXqF+m5LZU T8AC9WG7SzsX4pakzJxXx8FgZ/8XKeEApJ7bF/X21Bh0dCRKDZ0cgvoZ8RoH +zHo7w3kqd4fApHrdYw5wzGQuNH0T1jhEBy/czhlN3kMSjyKq3vE+aDzyutd a+oovPKM6CRm8+E9J/SbSPMItKiezzxOHoFSpwL1w+bDcPDVYO5G9hic3HR3 4J3OMLjYEoxvUsdBjuibRaUPwyW9PX6/7BiH03/LGhX08EFT7U6hROw4KIj7 26mG88HGdN3s6J4J8Aft65zyIUhfqenY7iEATb0HbD/rQVD8uN9GZnYSakRO p1foD8KBvuXwfsYUBLfhvuoqg6BglpvB2TQFdRHjkw3DPPhww43te3wKrvRY ixnE8GA0YdXneeMUfEsQMV6sG4Cw+x/yrxVOw81Vv4eRTlyQ1a5PCvo4A4Lp h5c5plzoEh8IF22fAdeh0sO7NLmw4vK1gr88AwaNkgpTY/2wOO7h+GzfLHCf vXvkFtUPHoPLbnTOLFj+NpZoUNQHF0fb0uja85BtKh98N70PxDzDz1gdnAe1 rUzn4cg+GPFXixoKmYcfirFK6Yf64LtB/22fhnnI5G9OXjPGgSPl2v0RNxaA HHs2pU+dA/9kp2lJrixCQHjCFSaVA0ErQs/ULUvQebnEJWm0FyTPD9vney5B rruEql1hL1RvyVeJrlgC721vHxc69oJ2qFP0UtIyRL5sM9Fc0wPLw0cto1hC cL+nu9ja1g11kcDoeiQEw5CgopjMbkgfbKjkNwmBt1/RbJ7ZDWPy0QmGB1bh t/Eju+oDukDbwrIyQlsEUXa2ml9v7YDRMquMV0YE1FRiS0h50QEkN7dHD38n oFTL8vK8wA44MOTmMnmVgAydsq0ECh1gG/78pvAzAflejHb0OsqGaSHv7sdD RLR9SUQ+TJcNZRVeRS4hRCS8EdT2ZO47fGrT4EWkEVFivLdra+J3WGdUVOE3 RkRVH8x9rdvbIbo4ZfPgXRJKMPm0wfdVO6Tvyjy6VEhCnp83jdwIbocBgR0/ i0tCCw1KASVK7fCkXJctMCMjPcFUyNbf28CfvPND4BQZxWx5GSvPboEqekzL vj+pyDlvrf32Ny2Qv+UUYW0hFa03T5A5eKUFDNoNhtsnqKj0QHjiLZUW+MXK 6uZaTxoaP8vKWHJphhMiV2/F24qioh+NXkqbmiGe9pLnFC2KIq9Z6exc+gbX rAeP7vwqitRjdmade/wNCqyem53fL4bss+ifOB1NwPA5m1vDEkdqOyKDhFlN QLe7d/LyX+JoqGjZRPVaE5DsUj5Gjoqj8Gp+mZNaE5RWh1XS/1yDcvjlVZWu jfA6YU5AL5dAf5w3vcPd3Ai77H0T7BQl0f6F7AOElQY4VeP5yNVPEvWJpjaZ Pm0At8JEZ211KaRjLyhgFdfDDIObYf2YjrKzdQsD3eoh56LakZ4VOjKV9ii8 v1oH95m9DA99BrJrqi2s3FMHxPBAqdZkBgp0yiraUVMD6Q0kWb8r0kjkU1+R 3bkaCEpWva6ZJ42i5VWKTzFqYCaYV+I+LY1SW28Vpzn9B8/5BuSPF2TQv86+ JWu6voK/TWDP35GyyK7waYlO6Fd4e0Vg9KBBFrUrt5Ts1vwKn5PeWCWqyaFR 9p7SIJ8qkEsQ7/QqlkOBZldL42lVsGOd655jUvJI5ElO6bvXleCa8N8Jvpc8 knPTLOsfq4Dq3ORmBUUFlFrqXCa8WwFJn4ZfrF5SQBt+uVemvL0CXsxqpy+2 KKBdPcKyg4H/wg5hs0VVhiLyPtYJxcJyIN4pjmrwUf55yrKoNb0cBury+NYc ZRSsZYMmLcqhMTw5xO+YClrKsnQPMC4HW9/1wscBKuh/0HWvWg== "]], LineBox[CompressedData[" 1:eJwVVnk41Pv/nX1slWWsxbWlslyq2655v65uoRSyF65kq+9FuVKJaM9SlixZ spMicW2JfD6oSJJk38cY62AYW4Rfvz/Oc/45z3Oec57nPM9RcvQ87UwiEAg1 v/D/fLQuCbmq1SBv7eWdJ0Lk4Ka1ufYRixokqZdUK2IgBwJHQqpMi2rQQeeP AydqZSFSq9rMQeI9aisL/PTXCVl4TtK55v/tPXoSvC55zkEGdk26CIXqfEA2 rkLWG2ekoaL9WWJ82Afkv13N/uE9aWjKFa4qPfkR+QzftVUsk4IlyxHB2U+1 iKwdEHrgmCQE1HfuWtKpQ/YgJu83xgAas+HsWmwdclczD64MY4DE1oJXQi6f kL3gnYX8IQn4ne9rqkL6jOqqRxpqc8Wh2MXdd8eFz6j9/KqTl5M46Hb9na7d 9Bn1MFSrNRXEwbDqr/lDSQ0o7NX30quxYuAUtjHO/GAjGi1O8jiQLAoTJGL1 mdRGlCbElNdwFgUvH/64g8BXVJpbvRyjKQoBdh267m1fkW1FaJV+wCb4ImnK 0ytrQlGf/805Nb4Bwo3rKR+5TUiiOewRP3gDmAcdkTVU/IaismTr6rQ2QNfP PXrGD76h8aPjIqXXRWCULRd11qIZPTNkvCneLgy58lHZfQ+b0d27e8+MdQiB p9WGd+cqmpG2qWFkbbAQLNSvc1xVvqP9l9ZGT/IFgfzf0D7vme/II+pa0rY2 Afg4YWe0qNqC9IX910wiBSB4a7uDr3ULGs9OjfxoLACicZ+CArEWZH+jO8Oz kQ4KgXndoY9aUWHl5KfKThoMlm3jbapqRYPYez2jZBpk8lMoT+Za0VMJ98ss Zxpouj7RijvbhlKcFv5HW6DCwVPXAjJ3tCN5ER+pW0pUsNiip1L5oQNJdQ+B YgoZUrSkfE2WOtBd5tudMt5kGGeONw2qdyI7bZ7kGwMyBJ6LvEkP70T0vAtb BvgkeJk12GlypgsZ4O4XLpqSgLDzTjh7qhvpKYn/HaRGhON6ViNXlHrQStmd VScyEaLNNJgC5j3IWOXdbPEAAdR9vk9olvWgvGyTHXmJBLAoV9H3udOLom3k zpXKEuDl0ferAjL96OOV0pxiozU0b/nUPOF4P+r/MH9YVGINgds/OVr+/Wjz 3LyoZNcqag1m2Jwe7EeHeuUqRS+uIoLbrq6TlgMoRu2e042In0j91e09sYos 5BJrzi9YWUYB+1S4O4oH0W+vjgeaay2hl7zrMVjDICp7eD2+lraE2l40gcXQ IGJf980JG1hEmltuRgdKsFGRxz/FstGLqIPQyWy/zEaUfzOa+cRFtKv+ccTd 34dQjcjM1w9j84hju7y3/zkHfd15X1lkgo9EpUxZ3hgHbV7ptpf6wke6X5+H CLVzkH8WX9TqNR9F/mkxsIc2jMiOyYLXvfmIqZYfFOo0jO6RZa00iXz0dNq5 54DSCNrilZ9XpTKLTtz+disqfhTtJX9Lzw/ioRL5drHtRaPoopOJoJknDymW 9aSWfxlFKpaMGEULHpqbHqkaJIwh+62Pfx5U4qEkuzXiTtcxdOHy1KsKn2nE 269x+8vucXTjUIwBa3ISxUzfvU37MoGOeeb5WotOIEJIsHj88AQKT3KUjB0a R/9TC0/TInCR1YsGE9GycQR2CdXmu7nIeMjkx2vHcTRWX0BKj+OifqcDeMSb MaSb1XcbuUyio98dWsw8RhHLdv+da+tTiNFy6VD/Kgc1Z6tHWktPo81x8Rfr uzioem5L6n7tacQV2WTQWcpBaaFEbMl+GtGDBuMdvDjIsaJ++VrlNHqeU18k PDaEZh/9XlbB5CFJcf2IBz1s5D2J67xb5SHzRaYtu5OFruZyfqu8MYtmtxZa ijF70Exaj0qR2zw69mPeddGyEZmwXve6RC/96kvzgFlUKrqoI3vlRcgKUq6q +YP5bw12sda+OrtqDeFDn7t0rrVjgnuF1rO+rKGnYVanc/PaseyM4kOZnWto iX1F+BinHRu+JVKcOrOGrmTsTWo93YE56r59Hq+0jjrFj0x6aHdiNgWSj0Jv raPameL8zqkuLOPksMYbRQIstCSe3R3Uh81RdI+XqhEgcFuiutb7PuxIRYRb iSYBGkqCgkzX+7BB9cOZRfsJEAPl5Zt9+jFFgSiFAhMCuMmlH2XtGsASq/8U exlIAGU7uhxLjYU92fdsIeHX7mISFj2pymysxZC56jdMgO1e996u/8nGGLb9 ZHsuAcwi/z0j5cjGogKVxBSXCOCt5PkuLo2NxXzK1MjYRISSt87axK1DWNzZ PIdcJhG0WCG2MdocLDkAq69IJIJT4psIVfsRbCDC4duzNCLMOu02P3Z7BFPM IHbczCYCScFYOyxrBEupO8KBIiI0TlU2xE6PYGlidevvPxMB/6N9b/idUSwz vemPL8tESHjbmHCzcAzLqWUl9VqTwPzQ12fpe7mYX+SUAvNvEmAqVzNlnbiY kd1KUpIzCeTvbNreFMHFuLOM5L+9SDD4wa+AOMXFNBUMklkhJIhue7we+mIS y/POS+ZUkkB2TW5xXWsay1e6kTKpSobmu2afvA/MYIHcB4qnNMhgYTxgK2kx g5mURqXk7SRDfbVcE+fSDDZjlJfiySTDunFIl8yLGWzXNVbKjBUZlNNPlHdu nsUKG/VT54PJUFwxqOEozMdKbjDSVnlkKMMLquRk5rFsr54/ZxbIQC/szW7e P4/FXchgDf0kg+JhZcfPNvOYn9UfSg0CFLBYsB69nTiPHdltnhKvSIE+hTOB qlsXsKbxJ0n7TCigZVDXK/7XIlbNOsvUsKTAbNGlkpMXFrHCDpU+BVsKLP6X Nd/5eBGL+VgoT3OjgP8/WfcnuhYxu7TviS0BFGis0XSTurqEjdtIJFx+TYFv CQNLFfgPrMek+6BzMQVcd4cx8iZ+YF/007usyykgWm2qQ5dexvL37JaDWgoc kjutvOSxjF0VM4vb2E+Bt1ahDJrqCkb5FBmbs5EKsSdM+v0yfmIL2Jl9yQwq dLofftLQ9hMbKVFuj5SjQvcB3ni64CpWn/GflK8aFQyu/iXFv7SKRQQ2Rxsw qSB9ava2zbE1TGG/eBTHnQrCz8JPW9IJeMrI0VfW3lRIy/WXGdxGwJVir3/8 7EuF415S9zsMCLjqwsBSwQMqPDkVabExlICrF722u5n6y9/wqcmANBHPPc/2 mXlOhcbWpKtkXSKuJSEd7pRHhUKmGDHTgYjreN2sPl5OhT4x1VseOUR8j87J bdKtVOhl9E976JPwkv5ACO6mQpJD19kOTxK+P6zIZpVFBcchdZHOpyT84NTm UPYUFSy7ch7ncUk45I7zXgvQIFnWc5aRSMaNtj98a6BLgxuP7llFy1Pxxvby 7+V6NJDLPOTsbErFjR9Mc383pIFrPpqTvE/FTw9b/iZpSYMd4focnVkqbpWx 9S7LkwbMw/fmKG00vMPM5pm5Dw2CWf7hj8Xo+Bnyo5Jav1/6XYkPtE/RcVvH udFXQTR4WdC7paOejjsq1pz0TafBnjchrm+bBfChrwsuky9oUKjv5s6XFsSd A9QDHfJpIHQOF35sL4i79UX8d+wdDaTn8A8MniDukeggLdFOgyr3H/EVW4Vx 3okonfu9NCgtOsQ3uyqMX16pNfzBpgE9fXiksF4Y9z6j7dfP+/Vb5I7liFwV wa/LrA3kCNEhK0saUUc34Fxl/0GCGB1k+jiX+fobcXutn2wLaTpIZpvpbXu5 EdfTWx5eV6HDJVln95Irm3CRfxa4ZofpUHWw96lAjCh+0+fKVPYROkwl6Sg4 NonivMC56VVDOvDruqlHRcTw1ujZ2eeWdGhj72KMPhTDk7CppRVPOmwLXSGl xIrjovXuyyY+dBiINj6qOyCO32nhrmT60YEXiZbX1CVwt7HxNeMgOmic48nY 10rgXfwLhMwwOqTZ6bzZKcvAjdZGicvRdDjcu+IT787Ad0qMUDLS6EAOOX8+ T0ESz5B3of3IpoPLzu64lBuSuNR2Dv3UazpEEzvOlXRL4su6bKGlcjpYafrv W8yUwt+79Isatf7KJzNeoeUmg++9bC+e2k2Hxrk0tVC2DJ59o1digUWHj83n IqrOy+LZKcWk61N0MHJRXUu4JIf/H7JV7dQ= "]], LineBox[CompressedData[" 1:eJwVVHk4lfkftcX1vq/rva9EylJKxpVySdOl+X5GEipbKFKja72yVlosU1Fx MciWLaGUFtkKE6FkKkyyTtmylyXJcsnWz++P85w/znnO85w/ztnA8bZ0FhIQ EDi7gv9zauSnv22tMDizbV5zf4Qc4A3KzH+tMUiM9lkI58qBRsXbGm17DDTN XFeldq0Fy1xvhzQOBiXMF3o7D6+FlIiyhJPeGPj11LbV28pChf+J7c1+GMyq Bs1q9slAL1esjh2IQeD7Uzd/eMmAqtEhAYyHgUaPhkZV/Bo4sPNHim80Blpv eP4WW9eAt8qtHR8TMHCJzbbmvpWGYpFR95wsDAqe6jicx6XB4EVwq2H5ip5+ WaS6UAp4nf3Rv7/EgGbteMLGTQrezRqY6L3BQId3fXlJUQqOaIhVarZgIHlw mxArgQKP1Iic9WMYqOW3Fq1KYEBB8RhHZhID0dORgpgtA/iNB+WpOQxUzsGh KAUGXKKRsWIiOGQqjrZ25ZKQ4BcfMLkOBwWjwJGjpZLQHjOz4+sGHJRVxnuv WEuC0iObic9bVvz7LIRHpunwoE/WuUsLB8Zxa/11bDpUmN00fbMfh+eVk4Jq nQQM/XJ3Q3oADsfStLbU+mLA3CvWmXQZh84mUlSViYGPg1tiXCgO0jvUhDoH xWE+UQ3nxeHAqZkhFP8QB7pI3vTphzgMsLReUw40OKRI5nkV4KD/8r24kjIN kti+XG4JDjpE8Nvdn8Vgo69W9/FqHPKzmvP+OiUGOt0lr407cLg6MZ38Il4U An7IBhv04uAVcc0s7g9RqFrtr4c+45B9Vjfyd6YomOzXK9CeWuknx7gtX7MK jpdWpSjiBNgE1tkbCK2C0Ni3njNsAmhppt2m6cJQTjtLNgEBDQaYTICfMEz+ ubHosSEB/k9l23YeFIbjJwPmXC0JsC6w8rBZFgIdg60h7VwC5Ob0glpdhGBo JiapMomAjdcmCsNMBWG9x27dtHQCHt3rcffdKgiWfcNd5+8QwI3HM14QglDx Tl+ZlU9A/GfHgJh6AUi8N5175zUBWVbLSYXmAmBoe6Saxydg9GJ2qFjzMgps EHFxWSTALqInWTZtGRXuLaDtEZIAnojeh5fOy0iBhZkuSkjAY0225If5JcTH yj94bZYAed9U8+fMJZRdrjh+yEoCcmismBN3F5CI0mdZhUIJ8I+KERT8Podq TX9q+5dKwGUpHeHEmjkUEyRj0VYhAX3sGU5Cyhxa17GPF1UnAYp61Ufr984h VmLOj+WBFd2TTXzNmEUOhHv7Jxk6bDpCa73txkcqusF8XQU6FOtKq23cw0dj 3BQqaRMdxFli8lPyfHTuda2JuSYdHosJjYS2zKCoYGZZlQkdwhaqGo/unUHl c2OpmUF0sGp3aHiiPY2Ct6wqXQqhQ6XuqHeL1DQyspFvsQ2nw3rPTa47pqZQ c9FBgrpBh6eWFYUlhVNoxOtxYHA+HRpEuWuytaeQ7KD3Mcd+OkzFkefc90yi 042TCpuNJeHWtl2LEaETyE79H7vVZpIwOPyrnbT3BNIPTU4UXtnJQL9Ff7XN BCJ3A73PQRI8i/4sj1KZQI9y/lpKPy8JmSbaN25Ff0NDF1U7ZXMkYery6M0D G8bRVpm8A9eESVC3e9i/99QoyniVNBIkSoLccHaiuvEoWn0qOMxPnITrKTMq +5RG0WK99SsnSRIuWvLvSjeMoNrgRd0960hwUVVeom0bQS7jxkwBLRJyYksc W2e/oIyaAXF/Dgn+zULH/74/hOzNrjgVOJNQFW2Uqx4yhGQ+Kld+cSPB1a3o Up39EIoa45w57E2Co7lmLY8cQoFSvd3agSTcP2HTtnBhEB050VX0LYGE2GXO gIXVACKXWo85vyUhKXezxrByH7qk/brAfDsDws6U3r+t04menIwUuKDFgG+1 1tac+Q70JcvCLFOHAcnnz4WZVHQgc0bn2Hc9BjSWn85PMOxASuMTW+KMGXCs d7UXZtuOKu/JpbdyGKAjn/UTv/oBLct5hdut/Fy+4aW8GH4LChKUdnSaZwC1 PXlKxaYeWX6wqO5ZYkD06mvdu3rrkGpelPIxQQrIb4GbLnjUoRZ72oA1jYLr OfPJF0JqkXrpgtO+NRRopi9YehS9QZ1efS5qLAq2DXVFecrVIHZnnvsElwK7 Tz8inH6WIbJorNbDkwLFT4P3i+XL0BDvF+awDwUu7n2eLL1nKHbn7dHecxRc XdLjZF4oRcOxiR7NVykYKGOH6fCfoCTjIK/iTApSFtmVa0ceIi+lZ+9Y2RSw z/iNPFB7gAxm+Rp5ORSoKHaPO57MQRN3fL7dy6OAxSxr0v96BxkJOPkkP6dA af/hl00DqUjhv4z30i8oGDO7btnlmoSmc7u2x76iIPIZOU+MxqOMo4e/h9dR UCIe+jiyPwKdZcVbiDVQYKj732D4yBV0QLyxIKSJgie6tH8s+gPQxh4JSqBt Jb/pxi6f/pNottjkVOBHCn4b5Ba3vuf99j8Omju3 "]]}, {}}, {{}, {}, {}}}, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> True, AxesOrigin -> {0, 0}, Frame -> True, FrameLabel -> {{ FormBox[ StyleBox["\"cotg(x)\"", Italic, 14, StripOnInput -> False], TraditionalForm], None}, { FormBox[ StyleBox["\"x\"", Italic, 14, StripOnInput -> False], TraditionalForm], None}}, FrameTicks -> {{{ NCache[Rational[-3, 2] Pi, -4.71238898038469], FormBox[ RowBox[{"-", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "2"]}], TraditionalForm]}, { NCache[-Pi, -3.141592653589793], FormBox[ RowBox[{"-", "\[Pi]"}], TraditionalForm]}, { NCache[Rational[-1, 2] Pi, -1.5707963267948966`], FormBox[ RowBox[{"-", FractionBox["\[Pi]", "2"]}], TraditionalForm]}, {0, FormBox["0", TraditionalForm]}, { NCache[Rational[1, 2] Pi, 1.5707963267948966`], FormBox[ FractionBox["\[Pi]", "2"], TraditionalForm]}, { NCache[Pi, 3.141592653589793], FormBox["\[Pi]", TraditionalForm]}, { NCache[Rational[3, 2] Pi, 4.71238898038469], FormBox[ FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "2"], TraditionalForm]}}, None, None, None}, GridLines -> NCache[{{Rational[-3, 2] Pi, -Pi, Rational[-1, 2] Pi, Rational[1, 2] Pi, Pi, Rational[3, 2] Pi}, None}, {{-4.71238898038469, -3.141592653589793, -1.5707963267948966`, 1.5707963267948966`, 3.141592653589793, 4.71238898038469}, None}], GridLinesStyle -> Directive[{ Dashing[{Small, Small}]}], ImageSize -> 250, Method -> {}, PlotRange -> NCache[{{Rational[-3, 2] Pi, Rational[3, 2] Pi}, {-6.6099700650898505`, 6.636029034514525}}, {{-4.71238898038469, 4.71238898038469}, {-6.6099700650898505`, 6.636029034514525}}], PlotRangeClipping -> True, PlotRangePadding -> { Scaled[0.02], Scaled[0.02]}]}, "RowDefault"]], "Output", CellChangeTimes->{ 3.5259623472233343`*^9, {3.525962448592259*^9, 3.5259625126132603`*^9}, { 3.5259625439833317`*^9, 3.5259625787827883`*^9}, {3.525962617731917*^9, 3.525962632898546*^9}, {3.5259626795861177`*^9, 3.5259627248386383`*^9}, 3.5268816802350388`*^9, 3.5569931810018663`*^9, 3.5899960133879023`*^9}] }, Open ]], Cell["\<\ V\[YAcute]znamn\[EAcute] funk\[CHacek]n\[IAcute] hodnoty jsou snadno \ odvoditeln\[EAcute] z hodnot sinus a kosinus,\ \>", "Text", CellChangeTimes->{{3.525963401207108*^9, 3.525963425326756*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"vals", "=", RowBox[{"{", RowBox[{ RowBox[{"\[Pi]", "/", "6"}], ",", RowBox[{"\[Pi]", "/", "4"}], ",", RowBox[{"\[Pi]", "/", "3"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", "\"\< \>\"", "}"}], ",", "vals"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"TraditionalForm", "[", RowBox[{"Tan", "[", "x", "]"}], "]"}], "}"}], ",", RowBox[{"Tan", "/@", "vals"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"TraditionalForm", "[", RowBox[{"Cot", "[", "x", "]"}], "]"}], "}"}], ",", RowBox[{"Cot", "/@", "vals"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "All"}], ",", RowBox[{"Spacings", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "vals", "]"}]}], "Input", CellChangeTimes->{{3.525963430836624*^9, 3.525963455260929*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"\<\" \"\>", FractionBox["\[Pi]", "6"], FractionBox["\[Pi]", "4"], FractionBox["\[Pi]", "3"]}, { TagBox[ FormBox[ RowBox[{"tan", "(", "x", ")"}], TraditionalForm], TraditionalForm, Editable->True], FractionBox["1", SqrtBox["3"]], "1", SqrtBox["3"]}, { TagBox[ FormBox[ RowBox[{"cot", "(", "x", ")"}], TraditionalForm], TraditionalForm, Editable->True], SqrtBox["3"], "1", FractionBox["1", SqrtBox["3"]]} }, AutoDelete->False, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{2}}}], "Grid"]], "Output", CellChangeTimes->{{3.525963436867324*^9, 3.525963458552253*^9}, 3.5268816919827747`*^9, 3.556993186180382*^9, 3.589996022318305*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Exponenci\[AAcute]ln\[IAcute] funkce", "Section", CellChangeTimes->{{3.525957780863657*^9, 3.525957784631516*^9}}], Cell[TextData[{ "Funkci ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"f", "(", "x", ")"}], "=", SuperscriptBox["a", "x"]}], TraditionalForm]]], ", kde ", Cell[BoxData[ FormBox[ RowBox[{"a", ">", "0"}], TraditionalForm]]], " a ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"x", "\[Element]", SubscriptBox["D", "f"]}], "=", "\[DoubleStruckCapitalR]"}], TraditionalForm]]], " naz\[YAcute]v\[AAcute]me exponenci\[AAcute]ln\[IAcute] funkc\[IAcute] o z\ \[AAcute]kladu ", Cell[BoxData[ FormBox["a", TraditionalForm]]], ". Oborem hodnot je mno\[ZHacek]ina ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["H", "f"], "=", RowBox[{"(", RowBox[{"0", ",", RowBox[{"+", "\[Infinity]"}]}], ")"}]}], TraditionalForm]]], ". Funkce ", Cell[BoxData[ FormBox["f", TraditionalForm]]], " je rostouc\[IAcute] pro ", Cell[BoxData[ FormBox[ RowBox[{"a", ">", "1"}], TraditionalForm]]], " a klesaj\[IAcute]c\[IAcute] pro ", Cell[BoxData[ FormBox[ RowBox[{"a", "<", "1"}], TraditionalForm]]], ". Pokud ", Cell[BoxData[ FormBox[ RowBox[{"a", "=", "\[ExponentialE]"}], TraditionalForm]]], " (Eulerovo \[CHacek]\[IAcute]slo), mluv\[IAcute]me zkr\[AAcute]zen\[EHacek] \ o ", Cell[BoxData[ FormBox["f", TraditionalForm]]], " jako o exponenci\[AAcute]le." }], "Text", CellChangeTimes->{{3.5259653068981037`*^9, 3.52596546353685*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ SuperscriptBox["a", "x"], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", "14"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\<\!\(\*SuperscriptBox[\(a\), \(x\)]\)\>\"", ",", "Italic", ",", "14"}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "2", ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}]}], "}"}], ",", "0.05", ",", "4", ",", ".05", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.5259651226667747`*^9, 3.525965252913021*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`a$$ = 2.4, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`a$$], 2, Style["a", Italic]}, 0.05, 4, 0.05}}, Typeset`size$$ = { 500., {167., 174.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`a$11500$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 2}, "ControllerVariables" :> { Hold[$CellContext`a$$, $CellContext`a$11500$$, 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`x, -4, 4}, PlotRange -> {0, 5}, PlotStyle -> Red, ImageSize -> 400, AxesLabel -> { Style["x", Italic, 14], Style["\!\(\*SuperscriptBox[\(a\), \(x\)]\)", Italic, 14]}], "Specifications" :> {{{$CellContext`a$$, 2, Style["a", Italic]}, 0.05, 4, 0.05, Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{557., {220., 227.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.5260963712415123`*^9, 3.526838234464365*^9, 3.556993191538171*^9, 3.5899960349697847`*^9}] }, Open ]], Cell[TextData[{ "Pro ", Cell[BoxData[ FormBox[ RowBox[{"a", ">", "0"}], TraditionalForm]]], " plat\[IAcute]" }], "Text", CellChangeTimes->{{3.525965490723178*^9, 3.525965491899745*^9}, { 3.525965542003071*^9, 3.5259655469964647`*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["a", "x"], SuperscriptBox["a", "y"]}], "=", SuperscriptBox["a", RowBox[{"x", "+", "y"}]]}], ",", " ", RowBox[{ SuperscriptBox[ RowBox[{"(", SuperscriptBox["a", "x"], ")"}], "y"], "=", SuperscriptBox["a", RowBox[{"x", "\[CenterDot]", "y"}]]}], ",", " ", RowBox[{ FractionBox["1", SuperscriptBox["a", "x"]], "=", SuperscriptBox["a", RowBox[{"-", "x"}]]}], ",", " ", "x", ",", RowBox[{"y", "\[Element]", RowBox[{"\[DoubleStruckCapitalR]", ".", Cell[""]}]}]}], TraditionalForm]], "DisplayFormula", CellChangeTimes->{{3.525965495629243*^9, 3.5259655723311653`*^9}}, Background->GrayLevel[0.85]], Cell[TextData[{ "Pro ", Cell[BoxData[ FormBox[ RowBox[{"a", "\[NotEqual]", "1"}], TraditionalForm]]], " je exponenci\[AAcute]ln\[IAcute] funkce prost\[AAcute] a existuje tedy jej\ \[IAcute] inverzn\[IAcute] funkce, kterou naz\[YAcute]v\[AAcute]me logaritmem \ o z\[AAcute]kladu ", Cell[BoxData[ FormBox["a", TraditionalForm]]], " a zna\[CHacek]\[IAcute]me ", Cell[BoxData[ FormBox[ SubscriptBox["log", "a"], TraditionalForm]]], ". Defini\[CHacek]n\[IAcute]m oborem logaritmu je mno\[ZHacek]ina ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{"0", ",", RowBox[{"+", "\[Infinity]"}]}], ")"}], TraditionalForm]], FormatType->"TraditionalForm"], " a oborem hodnot je cel\[EAcute] ", Cell[BoxData[ FormBox["\[DoubleStruckCapitalR]", TraditionalForm]], FormatType->"TraditionalForm"], "." }], "Text", CellChangeTimes->{{3.525965856261421*^9, 3.525965906223284*^9}, { 3.589996114408052*^9, 3.5899961378387136`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Log", "[", RowBox[{"a", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "5"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", "Blue"}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", "14"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(log\), \(a\)]\)(x)\>\"", ",", "Italic", ",", "14"}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "10", ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}]}], "}"}], ",", ".05", ",", "14", ",", ".1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.525965623708522*^9, 3.5259658272206917`*^9}, { 3.525965948066578*^9, 3.525965954627943*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`a$$ = 1.6500000000000001`, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`a$$], 10, Style["b", Italic]}, 0.05, 14, 0.1}}, Typeset`size$$ = { 500., {153., 160.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`a$2347$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 10}, "ControllerVariables" :> { Hold[$CellContext`a$$, $CellContext`a$2347$$, 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[ Log[$CellContext`a$$, $CellContext`x], {$CellContext`x, 0, 5}, PlotRange -> {-5, 5}, ImageSize -> 400, PlotStyle -> Blue, AxesLabel -> { Style["x", Italic, 14], Style["\!\(\*SubscriptBox[\(log\), \(a\)]\)(x)", Italic, 14]}], "Specifications" :> {{{$CellContext`a$$, 10, Style["b", Italic]}, 0.05, 14, 0.1, Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{557., {206., 213.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.525965729320362*^9, 3.525965779298355*^9}, 3.525965828256192*^9, 3.525965957030876*^9, 3.526096393408578*^9, 3.556993204805735*^9}] }, Open ]], Cell["Analogicky plat\[IAcute] vzorce", "Text", CellChangeTimes->{{3.525965920573545*^9, 3.52596593269384*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["log", "a"], RowBox[{"(", RowBox[{"x", " ", "y"}], ")"}]}], "=", RowBox[{ RowBox[{ SubscriptBox["log", "a"], "(", "x", ")"}], "+", RowBox[{ SubscriptBox["log", "a"], "(", "y", ")"}]}]}], ",", " ", "x", ",", RowBox[{"y", ">", "0"}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{ SubscriptBox["log", "a"], "(", "a", ")"}], "=", "1"}], ",", " ", RowBox[{"a", ">", "0"}], ",", RowBox[{"a", "\[NotEqual]", "1"}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{ SubscriptBox["log", "a"], "(", SuperscriptBox["x", "y"], ")"}], "=", RowBox[{"y", " ", RowBox[{ SubscriptBox["log", "a"], "(", "x", ")"}]}]}], ",", " ", RowBox[{"x", ">", "0"}], ",", RowBox[{"y", "\[Element]", RowBox[{"\[DoubleStruckCapitalR]", "."}]}]}], TraditionalForm]], "DisplayFormula", CellChangeTimes->{{3.525965938576083*^9, 3.52596608107024*^9}}, Background->GrayLevel[0.85]], Cell[CellGroupData[{ Cell["Hypergeometrick\[EAcute] funkce", "Subsection", CellChangeTimes->{{3.5259662296808033`*^9, 3.525966241495901*^9}}], Cell[TextData[{ "S exponenci\[AAcute]lou ", Cell[BoxData[ FormBox[ SuperscriptBox["\[ExponentialE]", "x"], TraditionalForm]]], " \[UAcute]zce souvis\[IAcute] tzv. hypergeometrick\[EAcute] funkce. \ Definujem hypergeometrick\[YAcute] sinus a kosinus," }], "Text", CellChangeTimes->{{3.525966246400156*^9, 3.525966290080401*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"sinh", RowBox[{"(", "x", ")"}]}], "=", RowBox[{ FractionBox["1", "2"], RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], "-", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "x"}]]}], ")"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"cosh", "(", "x", ")"}], "=", RowBox[{ FractionBox["1", "2"], RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["e", "x"], "+", SuperscriptBox["e", RowBox[{"-", "x"}]]}], ")"}], "."}]}]}]}], TraditionalForm]], "DisplayFormula", CellChangeTimes->{{3.5259662962278137`*^9, 3.5259663309350653`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Sinh", "[", "x", "]"}], ",", RowBox[{"Cosh", "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "3"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Blue"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", "14"}], "]"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", "14", ",", "Red"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.5"}], ",", RowBox[{"-", "2"}]}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", "14", ",", "Blue"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.5"}], ",", "2"}], "}"}]}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.525966332163988*^9, 3.525966638546472*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[1, 0, 0], LineBox[CompressedData[" 1:eJwBEQLu/SFib1JlAgAAACAAAAACAAAAC+Y1IEUR/b8AAAAAAAAIwDsFf7Mr ZPy/OtYJc/ToBsCUQDc3QX36v8lQ9Hk3LgTAY5xY5eqf+L9VwKJeO8gBwM+n HgkBmva/qMwo0KLn/r8eDLAxv7b0v14T79A1Afu/CiDmz+mq8r/CGzfcXDP3 v2xUhZioqPC/rZHEYQjW879gw9/LHpLtvzKPigY8+/C/Ij3+UcWB6b9eoalg hkvsv6los+G7tuW/MhRpLT1r579q87Fci5rhv/yGVA9PgeK/Ln4FWQYj2789 TllnEfXbvxN51AuWm9O/qFK7N3vq07/XZGwqr+PGv9pvcdT2Ase/d3oqjsmV rr8uFX3icZquv6qPOECkMK0/9Jiyu7A0rT+OaYHWYILHPyViO6RFpMc/DfRM O6xR0z8oexqeH53TP+B0xjR2hNs/XDx06IVf3D/uuU3Cd8jhPwJAJc1utuI/ poehYGSJ5T+m3v+2JDPnPyX2qxN4m+k/KgSGN91t7D/esh+9O2jtPyA2QTLA 3PA/VZfgiOuQ8D9yXnmoTrDzP56ljL1MlvI/U2z26SAP9z8EW23tBXn0P5Jt LrDmiPo/zmCpp1KE9j+SvES2lrj+P7UNGl33bPg/BuLtQX2KAUAmmiHoB0z6 P7iFknDN6wNA+naE/atT/D/x6CKs+s8GQFm0mVvPEf0/AAAAAAAACECi+gqh "]]}, {RGBColor[0, 0, 1], LineBox[CompressedData[" 1:eJw11wk0V9v3AHBjJAnhGcqXCK+EZOoZNqFUSiTpkZkQMoVIRTKGyKwSmQmR MRxDmcqcDGWe+pLcr1mi33n/tf53rbvu+qx11r1n3bP3PvsIWtzSs6ahoqJa xPd/z0rdKS6n478R1f9djKoxqvLyar6/ULnKwGvDUnpVy2eG03MpG2gf/5t7 b+/TqnZm8e+mTlpDXkp8SYE21Kr8zEXHUdkKCjhYOxJo+QeYBGY6yblLyNdp VPijxG9w0H+UkJ1NoIGRqCqOu5tg1jj6kT96AdVSGI+S9dfhjPKG9bDfAlrQ nBk6r70OEuWsVM9cFtAp8b7wt+rr8DtXTYZHdwHdEt6zEi+9DgnRr57tZ11A uXEiAZms69BlfsORMeIHaohPaRtrXwM1qkWWpZB5VHHr2+8q7TU4pLyj+8GP jN6Mp2o8NVqFLjZl8URXMvpLetB1TH8V7s347HK0JCOOwDIH6YurMBS5WcWh SUb/xFvUTKmuwtOJFSErRjJKE6/I9hdZBbrg+VWayO/I0zXZOG1pBWZ6BhJV n80ieXdRvhsRK5BjWzL+rmwaLUhlu1b0LsNnixTS+cxpVOx1bqesfRmorodd H4qdRlzPud9XNS+Dga7l4Ib7NIo+8H29+90y0Pyzv1v2xDSKdHH6rJK+DP/u casrLJxCI0oOu9g8loGpQDrlVfYkWqM6Xff44DLIZvMPSydMoiAOzWeS3Mtg lsbE1xA0iRzKHvn3sy9DWdxE3JjNJGJ5KGYrx7gMFvejIw4enkSDmS3OUstL UHVpyTc+dQLtDXA8xdG2BPbLb4zDksaR4yhvQJTPEiTKURRvhI6jTL9vf5E9 lqDljhSfuvc4aq3QMtF0XYLDVIWDv66NIxs9u509dkswxpxvYM8zjq5uMt7s NliCKyKZl84mjCE5tfhlxRNL4FcsE8IiPorkz+b+DFqkwIhCyZmmPaPIsk0h w22eAkro+K578yPIyWRtznKWAmsfJR4u5I4gs/phkt4oBRymxXw//T2CZIzK 2a07KWDIfdAlVHQY3eOXVLQqooDEPfpru4S+ohx7rZa62xTgreqK/073FYVE HkJerhSgX0v+0jYzhKqv0DyVuUWBb47S+pG5Q+gO9WJHuS0FQq+b6nBLDyEO bdeHP4woMKtUqXlEbRBtqyWosahT4OUWDhPTfuRUmasnwUGBx/IKLlJq/YiB Ye2pGRsFPN1oi9iF+pHGn6ZncSwUuDifeKx/5gvSs/KnYdlNge2hJjEzpy/I +Y/W3iM7BPxbJUBy9e1DlgcOJXGRCdh/5/OeuORedMVld3hNPQEbfzbZFr17 UdTuq06yiICRQBK31r+9qOVGbN6bagKyY+yFf3H3ohm9M/Ll5QSoFFEpm8T1 oBgrN7+11wTYzYo7iUR1o9O1KvqayQRcdNJzv+/cjXTsA7NpEgmQWfX0HtDp Rn2+7RffxxGwQ9MYGMrSjc79oovUjyYghv9ays+wLiTLtKsjO4SAe3lMqY57 O9F2hlUr6Q4BZyuvvCZ96kBD+2h/CXoSwNH8srI7tAPV3+x0E7tNQM6EXI8s YwfyRlOqp1wI+MxjSbtD044u50xK59gRcCT4nXXERhv6szHLqGFEQL+Vw5HC ySYkmLGlnatGQO3wJfmyzCaELrqYXVAlINNAVqPGrgkJq84KragQ4K61c/3j 4gfU6plcqa1EAKv4k6jZrfeo5m7LX0fk8fyWSzZIHI1I8SWzaewxAqQcEuhF +xtQ0+U0HTdxArin77JLJDWgM6Ll8/pHCZj5oimuJNCA6vYbHRb6mwD/qn5T Q/F6pDidHj8vTMBt2vVwwZBaRMfUoC5+kACNVZQlua8WcXpndGocIIB9Nrhe ObYGLe43pjXnI6CgjXf1Wmo16u13N0/nwe+PUjGOrqxCvtHjSwZcBLx9yODx EqoQuE+XP+bE37vdFVnwoRJ9kJYTauIggHTNorGtuwLpDjP9UN9PgKFA4BHa uTKkadOsdpOVABF2HQ025zLUMeoqU7uPgBVabhPSWik6S+b5xIEdNZsTpUhT ilxr6smf9hLQVtC+4cZbgp5Keg3Z7iEg4WUcu//LYhQt9IsYYCLAJtpU/IlI Mao5Y5SnjU3rQTHNl36DvF8p7YHdBHh6H4lojS1AMd4y7joMOJ5+El8KM1+j XOWokZFdeD4W5aS48ny0gt40u2D3ndV4YzGYi5qSRznT6AnIr2H6pTWXg6Zz kDdgBxzvPiW5lY2ujTGajNERcILH5PPWgSx0LCogRRybKVz44MSxTBQ3ELnd T0vABNW8dYtKBjKZKB0MxI767rkeY/YK8SowMy/SEGBrrKLq45KGqOz4LLKx VbvoQsz9U5GwCK2cNfbILSFZY60UZHHr0FUyNQHhV4uaxOyfo+l1lfQibCVQ NlwNS0Yu9DtOPtjzIm3k+teJyHP7cvlZ7CSWqz4RnfFIi1HOlw/77NoksxEl FnGyJdURVDhfh51fiO6PQd8/ePi1Ymd92JZckYlGmfGNKAPb4HVofZ3BE8Rc 5eXzCJvpiGQmL+Uxei0U+dYW23ZTq7VEJgQR4VQ3dbCbWix+aHs9Qqy3m1+c xBZKuLtv5p0f4uMe1RHFpukUt97Z8UELXur3uLFrHM3ypALdkZwx5e+92BRu sckPvPbI7eyMHj12Vz7/qL6eAaKECmxSYdOZnxcIVleB1mMpB/5zjkSaJ3OV BcxSW9TQYCd6PV/t7XMG6iS7r4zYw4N2hakXveD5+XIPduxDinJ2t5rvA5vk hUgS9omLflH8Lx/CA5LEYSnsvns3nB4ZB8Fo1XUFDWzPwgvnf3CHAWE+1mKE zTt2QuxyXwScV3j3xQPbhDGcZlgrCgyFV8xjsQsFqFxYRZ+CfmeUfTk21Um3 UXX6WNDJSCa+YevqzlzwnIwDmT6eFXq8Hml216pz6xOg8RLnbWlsjSRIZLv3 DI7X5S3GYscWFzNoGr+AcWtj8idst2l2RaWDL2GqqtSMAcfH++1HObe2UkFD Lq4lEPtHCDILmUuDmMMnKz9ic3Jt/vVq8BWIGlSLcuD4s5FwCPxSngEKjq/u FWJHVGUoE5mZICnz9w0aHL/lp0dXdsdlgel2T7shNqOpnqWyew4oVIxwsuL4 z41UUE2Xeg071lxPs3G+0L1PqWaQKYCb2UpUgji/TDd2nbwpXwihin6hz7FD i+a4eVKK4IDKzFoaI673PJVsYxnFYK86Lj2K8/VmyY/OKNES8JZ6+9jrv/y+ IBChnlMCotUNdFzMBCz5BTFl5b+F86ayl67jepA5d4XWqaQM8rhJ1w7ietIb EFJPki2H9sbbOf3YVKSa+91l5cC8ZcsTx4b3q8vCv2WqKoD6JdmQhOvRvuql la26KnjLvGhkieuZV3jkTEhHLYg9M0l7g+tjhmhjuuIlBLkRFfQF/AT01K9Z LHQjoFZRelxAIoBrq+BWtn0dZEErbbUgAc6SXD/2ONXDcU3ndEYRAg4nTE31 uDfCiLzQvK0kzk/rnca80kZgJJ1Ny5IiQE+a+1XAWiPY98j6zR0n4MGn8+Zy Xu8hQqyo/K4MAUNUJcOJPh8gUOAua+9JvD52fl/M/Juhb3ckOqNJQPBH6tKp 2mZwSU9QKjyN6+8x/6e2W82wubhszKuF45Xif8nZvQXs2KeDt84RYHYnoO2+ TSvIWXyII18i4HhIUO2Lcx8hzKy1z/06AeLzDM8PBX0E/o76Qi5TXA8vBPtk Nn6EkssPpKvNcLyzhSgUKH2CysutJ9itcP4mhhbXSLTDt3JmqTl7vD9mh2d+ Y+8Eln1cNufw/trBxPLITKcTdh5Y/RLxIaDFIcJyKqwTDgzUKjP44nxJOMPq QdMF129q9vY8IOCysVa7r08X/GkI04wLxv9r6uyZcMducLaCnI4EAvauaCvm 6/ZCUVdLLiPuH1iHpC09XXthTW6KLaIW79913GGnnvbCs3bXkb9w/8H7eGpo 4HMvnBKMzVVoIkBM+K43veFnGDw2JljYRcAp/bxKE5M+WByYE3WeIcDj7W4F tpv98C6rKOcMJwXuJC2afgvrhyjzkwJG3BS4+6AvKCu/HwREW/e78VHgoXZq v/LPfjj5TuV2kSAFnkwpeNq7DICgTaiCuQQF8jhsyxo9B8FGr+VushYFxtyb ZDwCvgK9uDXfnQe4f2uh581O/wpqE2NtzAEUGDig+Wfw/VcQN2MnpwdRoOt9 Y6sy/Tf4JKF4eyKCAnUc9Sb0gd/AwNJiJvo5BVLevguOCRqGmbd5263vKGCy UvStOHQU1I+glvgtCvysvNDg2TIOzEzjX+aDcb+7u9ndp38cvNyZKnTDl8DY UFX0/sw4VPU0FryLWoK2NenHgXQTMGncNpactAQZJ7gNYlUnoLoixjU8H49/ PUEurpiAAebAo3LdePxLT7af2ZPwzKGDMwP385lBqWZWIdNACjT8LtOI+/k3 joX5idNQeazDg791GXi/ntxZyZmGEz0Zwns7lyFCoif5Uds0mB9NndocWgaP Ppr+zD0z0Kp+UJBteRlOC1ldIIfPAO9B2Xl5YXxeqRX5xyl6Fkrbm2lcQ1fg 8Frefq9kMiwu8r1Zs1kF7g+6h/JyySDRdSmk0nEVmGLWpUYqyXB0+7C8n/sq EMfVL2oMkIGc28VD8l+FasehYFbOOTgeqSoS+3wV9KcZd7Ij5mDE5mf5zb5V 8P9s/X3Qbx7Ca8q+tmutwUgxqUbRdgG8W2trG1TW4Ur8WPD8EwJchl/kN5hs wouMxzXacUsgv5AWssP6G+iMHBfo76zAafEu0qnfO9BhlpOlF7AG195vCGTq UquW7uW9vu6wASolEskeZ2hVRZIEvzNo/wIRxQDZHE96Va+O0llx6d/w/+fb /wGUN5P+ "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox[ StyleBox["\"x\"", Italic, 14, StripOnInput -> False], TraditionalForm]}, AxesOrigin->{0, 0}, Epilog->{ InsetBox[ FormBox[ StyleBox["\"sinh(x)\"", Italic, 14, RGBColor[1, 0, 0], StripOnInput -> False], TraditionalForm], {-2.5, -2}], InsetBox[ FormBox[ StyleBox["\"cosh(x)\"", Italic, 14, RGBColor[0, 0, 1], StripOnInput -> False], TraditionalForm], {-2.5, 2}]}, ImageSize->400, PlotRange->{{-3, 3}, {-3, 3}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}]], "Output", CellChangeTimes->{{3.525966434871234*^9, 3.525966558204077*^9}, 3.525966590924076*^9, 3.525966639295369*^9, 3.5569932196637297`*^9}] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1364, 747}, WindowMargins->{{0, Automatic}, {2, Automatic}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, PrintingOptions->{"PaperOrientation"->"Portrait", "PaperSize"->{Automatic, Automatic}, "PostScriptOutputFile"->"/home/kalvin/print.pdf"}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}}, Magnification->1.25, FrontEndVersion->"9.0 for Linux x86 (64-bit) (January 25, 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 396, 7, 114, "Title"], Cell[978, 31, 257, 5, 62, "Subtitle"], Cell[CellGroupData[{ Cell[1260, 40, 93, 1, 98, "Section"], Cell[1356, 43, 317, 9, 38, "Text"], Cell[1676, 54, 449, 14, 73, "DisplayFormula"], Cell[2128, 70, 989, 32, 39, "Text"], Cell[3120, 104, 299, 9, 35, "DisplayFormula"], Cell[3422, 115, 766, 32, 39, "Text"], Cell[CellGroupData[{ Cell[4213, 151, 1897, 43, 317, "Input"], Cell[6113, 196, 2143, 43, 467, "Output"] }, Open ]], Cell[8271, 242, 1102, 33, 68, "Text"], Cell[9376, 277, 419, 13, 89, "DisplayFormula"], Cell[9798, 292, 394, 11, 53, "Text"], Cell[10195, 305, 334, 11, 61, "DisplayFormula"], Cell[CellGroupData[{ Cell[10554, 320, 5609, 142, 628, "Input"], Cell[16166, 464, 4046, 84, 541, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[20249, 553, 154, 2, 54, "Subsection"], Cell[20406, 557, 818, 16, 88, "Text"], Cell[CellGroupData[{ Cell[21249, 577, 1827, 50, 215, "Input"], Cell[CellGroupData[{ Cell[23101, 631, 432, 12, 27, "Print"], Cell[23536, 645, 619, 18, 49, "Print"], Cell[24158, 665, 498, 14, 33, "Print"], Cell[24659, 681, 1124, 37, 106, "Print"], Cell[25786, 720, 560, 16, 33, "Print"], Cell[26349, 738, 8624, 236, 480, "Print"], Cell[34976, 976, 624, 18, 33, "Print"], Cell[35603, 996, 48945, 1128, 3314, "Print"] }, Open ]] }, Open ]], Cell[84575, 2128, 348, 8, 38, "Text"], Cell[CellGroupData[{ Cell[84948, 2140, 499, 15, 46, "Input"], Cell[85450, 2157, 2669, 84, 112, "Output"] }, Open ]], Cell[88134, 2244, 93, 1, 37, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[88276, 2251, 115, 1, 98, "Section"], Cell[88394, 2254, 465, 17, 39, "Text"], Cell[CellGroupData[{ Cell[88884, 2275, 201, 4, 55, "Subsection"], Cell[89088, 2281, 529, 9, 63, "Text"], Cell[CellGroupData[{ Cell[89642, 2294, 11453, 279, 1442, "Input"], Cell[101098, 2575, 6326, 130, 469, "Output"] }, Open ]], Cell[107439, 2708, 243, 4, 38, "Text"], Cell[107685, 2714, 855, 27, 64, "Text"], Cell[108543, 2743, 520, 16, 52, "DisplayFormula"], Cell[109066, 2761, 313, 6, 38, "Text"], Cell[109382, 2769, 329, 10, 55, "DisplayFormula"], Cell[109714, 2781, 188, 4, 38, "Text"], Cell[109905, 2787, 758, 23, 81, "DisplayFormula"], Cell[110666, 2812, 118, 1, 37, "Text"], Cell[110787, 2815, 861, 26, 79, "DisplayFormula"], Cell[111651, 2843, 197, 4, 38, "Text"], Cell[CellGroupData[{ Cell[111873, 2851, 1509, 38, 254, "Input"], Cell[113385, 2891, 1193, 39, 215, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[114627, 2936, 111, 1, 54, "Subsection"], Cell[114741, 2939, 146, 3, 38, "Text"], Cell[114890, 2944, 610, 21, 65, "DisplayFormula"], Cell[115503, 2967, 1115, 37, 53, "Text"], Cell[CellGroupData[{ Cell[116643, 3008, 5205, 127, 590, "Input"], Cell[121851, 3137, 31112, 542, 249, "Output"] }, Open ]], Cell[152978, 3682, 206, 4, 38, "Text"], Cell[CellGroupData[{ Cell[153209, 3690, 1313, 35, 254, "Input"], Cell[154525, 3727, 963, 33, 211, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[155549, 3767, 121, 1, 98, "Section"], Cell[155673, 3770, 1404, 51, 64, "Text"], Cell[CellGroupData[{ Cell[157102, 3825, 1356, 33, 262, "Input"], Cell[158461, 3860, 1902, 38, 467, "Output"] }, Open ]], Cell[160378, 3901, 245, 8, 38, "Text"], Cell[160626, 3911, 756, 24, 81, "DisplayFormula"], Cell[161385, 3937, 955, 28, 66, "Text"], Cell[CellGroupData[{ Cell[162365, 3969, 1466, 35, 255, "Input"], Cell[163834, 4006, 1978, 39, 439, "Output"] }, Open ]], Cell[165827, 4048, 112, 1, 38, "Text"], Cell[165942, 4051, 1047, 31, 112, "DisplayFormula"], Cell[CellGroupData[{ Cell[167014, 4086, 121, 1, 55, "Subsection"], Cell[167138, 4089, 336, 8, 38, "Text"], Cell[167477, 4099, 725, 24, 122, "DisplayFormula"], Cell[CellGroupData[{ Cell[168227, 4127, 1608, 44, 230, "Input"], Cell[169838, 4173, 6657, 124, 328, "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)