(* 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[ 44630, 1239] NotebookOptionsPosition[ 42416, 1166] NotebookOutlinePosition[ 42829, 1182] CellTagsIndexPosition[ 42786, 1179] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Limita funkce", "Title", CellChangeTimes->{{3.5268384034612103`*^9, 3.526838406412621*^9}}], Cell["\<\ Tom\[AAcute]\[SHacek] Kalvoda, FIT CVUT, BI-ZMA 2013/2014\ \>", "Subtitle", CellChangeTimes->{{3.5268827352631493`*^9, 3.526882744960114*^9}, { 3.526882980562233*^9, 3.52688299671408*^9}, {3.591673988190483*^9, 3.5916739903301363`*^9}}], Cell["\<\ Demonstrujme definice limity funkce, nejprve ale p\[RHacek]ipome\[NHacek]me \ samotnou definici:\ \>", "Text", CellChangeTimes->{{3.526883092459058*^9, 3.5268831842427053`*^9}, { 3.526883219715543*^9, 3.526883224520434*^9}, {3.5268832549174223`*^9, 3.526883437166541*^9}}], Cell[TextData[{ "Je-li ", Cell[BoxData[ FormBox["f", TraditionalForm]]], " re\[AAcute]ln\[AAcute] funkce re\[AAcute]ln\[EAcute] prom\[EHacek]nn\ \[EAcute] definovan\[AAcute] na okol\[IAcute] bodu ", Cell[BoxData[ FormBox[ RowBox[{"a", "\[Element]", OverscriptBox["\[DoubleStruckCapitalR]", "_"]}], TraditionalForm]]], " s mo\[ZHacek]nou vyj\[IAcute]mkou bodu ", Cell[BoxData[ FormBox["a", TraditionalForm]]], " samotn\[EAcute]ho. \[CapitalRHacek]ekneme, \[ZHacek]e", StyleBox[" ", FontWeight->"Bold"], Cell[BoxData[ FormBox["f", TraditionalForm]], FontWeight->"Bold"], StyleBox[" m\[AAcute] limitu v bod\[EHacek] ", FontWeight->"Bold"], Cell[BoxData[ FormBox["a", TraditionalForm]], FontWeight->"Bold"], StyleBox[" rovnu ", FontWeight->"Bold"], Cell[BoxData[ FormBox[ RowBox[{"c", "\[Element]", OverscriptBox["\[DoubleStruckCapitalR]", "_"]}], TraditionalForm]], FontWeight->"Bold"], ", pr\[AAcute]v\[EHacek] kdy\[ZHacek] pro ka\[ZHacek]d\[EAcute] \ okol\[IAcute] ", Cell[BoxData[ FormBox[ SubscriptBox["H", "c"], TraditionalForm]]], " bodu ", Cell[BoxData[ FormBox["c", TraditionalForm]]], " existuje okol\[IAcute] ", Cell[BoxData[ FormBox[ SubscriptBox["H", "a"], TraditionalForm]]], " bodu ", Cell[BoxData[ FormBox["a", TraditionalForm]]], " takov\[EAcute], \[ZHacek]e pokud ", Cell[BoxData[ FormBox[ RowBox[{"x", "\[Element]", RowBox[{ SubscriptBox["H", "a"], "-", RowBox[{"{", "a", "}"}]}]}], TraditionalForm]]], " plat\[IAcute] ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"f", "(", "x", ")"}], "\[Element]", SubscriptBox["H", "c"]}], TraditionalForm]]], "." }], "Text", CellChangeTimes->{3.526883428993145*^9}], Cell[TextData[{ "P\[RHacek]ipome\[NHacek]me tak\[EAcute] definici okol\[IAcute] bod\[URing] \ z roz\[SHacek]\[IAcute]\[RHacek]en\[EAcute] re\[AAcute]ln\[EAcute] osy ", Cell[BoxData[ FormBox[ OverscriptBox["\[DoubleStruckCapitalR]", "_"], TraditionalForm]]], ". Pokud ", Cell[BoxData[ FormBox[ RowBox[{"a", "\[Element]", "\[DoubleStruckCapitalR]"}], TraditionalForm]]], ", pak velikost okol\[IAcute] je ud\[AAcute]na kladn\[YAcute]m re\[AAcute]ln\ \[YAcute]m parametrem ", Cell[BoxData[ FormBox["\[Epsilon]", TraditionalForm]]], "," }], "Text", CellChangeTimes->{{3.526883463611837*^9, 3.5268835438455067`*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["H", "a"], "(", "\[Epsilon]", ")"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "-", "\[Epsilon]"}], ",", RowBox[{"a", "+", "\[Epsilon]"}]}], ")"}], "."}]}], TraditionalForm]], "DisplayFormula", CellChangeTimes->{{3.526883527858261*^9, 3.526883562684268*^9}}], Cell[TextData[{ "Pokud ", Cell[BoxData[ FormBox[ RowBox[{"a", "=", RowBox[{"+", "\[Infinity]"}]}], TraditionalForm]]], ", pak pro ", Cell[BoxData[ FormBox[ RowBox[{"\[Alpha]", "\[Element]", "\[DoubleStruckCapitalR]"}], TraditionalForm]]], " klademe" }], "Text", CellChangeTimes->{{3.52688354909302*^9, 3.526883574668984*^9}, { 3.559056025071393*^9, 3.559056028881257*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["H", RowBox[{"+", "\[Infinity]"}]], RowBox[{"(", "\[Alpha]", ")"}]}], "=", RowBox[{ RowBox[{"(", RowBox[{"\[Alpha]", ",", RowBox[{"+", "\[Infinity]"}]}], ")"}], "."}]}], TraditionalForm]], "DisplayFormula", CellChangeTimes->{{3.526883578130588*^9, 3.526883597611878*^9}, 3.5268836319548407`*^9}], Cell[TextData[{ "Podobn\[EHacek] v p\[RHacek]\[IAcute]pad\[EHacek] ", Cell[BoxData[ FormBox[ RowBox[{"a", "=", RowBox[{"-", "\[Infinity]"}]}], TraditionalForm]]], " m\[AAcute]me pro ", Cell[BoxData[ FormBox[ RowBox[{"\[Alpha]", "\[Element]", "\[DoubleStruckCapitalR]"}], TraditionalForm]]] }], "Text", CellChangeTimes->{{3.526883601117367*^9, 3.526883613631506*^9}, { 3.559056032520769*^9, 3.559056037154397*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["H", RowBox[{"-", "\[Infinity]"}]], RowBox[{"(", "\[Alpha]", ")"}]}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "\[Alpha]"}]}], ")"}], "."}]}], TraditionalForm]], "DisplayFormula", CellChangeTimes->{{3.526883619737928*^9, 3.52688363731538*^9}}], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"a", ",", RowBox[{"c", "\[Element]", "\[DoubleStruckCapitalR]"}]}], TraditionalForm]]]], "Section", CellChangeTimes->{{3.5268397701661*^9, 3.526839778251561*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"sin", RowBox[{"(", "x", ")"}]}], "\[Rule]", RowBox[{ RowBox[{"sin", RowBox[{"(", "1", ")"}], " ", "kdy\[ZHacek]", " ", "x"}], "\[Rule]", "1."}]}], TraditionalForm]], "DisplayFormula", CellChangeTimes->{{3.526865908845908*^9, 3.526865924320076*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"a", "=", ".8"}], ";", "\[IndentingNewLine]", RowBox[{"c", "=", RowBox[{"Sin", "[", ".8", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", "\[Pi]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", "Thick"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", "14"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", "14"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "2"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", "\[IndentingNewLine]", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", "0", ",", "\[Pi]", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"TicksStyle", "\[Rule]", "14"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "c"}], "}"}], ",", ".03"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "0"}], "}"}], ",", ".03"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Gray", ",", "Dashed", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Pi]", ",", "c"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Opacity", "[", ".2", "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", RowBox[{"c", "-", "\[Epsilon]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Pi]", ",", RowBox[{"c", "+", "\[Epsilon]"}]}], "}"}]}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Thickness", "[", ".01", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"c", "-", "\[Epsilon]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"c", "+", "\[Epsilon]"}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", "14"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".1"}], ",", RowBox[{"c", "-", ".1"}]}], "}"}]}], "]"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"a", "-", "\[Delta]"}], ",", RowBox[{"a", "+", "\[Delta]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", ".2", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", "\[Delta]"}], ",", RowBox[{"-", "1.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", "\[Delta]"}], ",", "2"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", ".01", "]"}], ",", "Red", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", "\[Delta]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", "\[Delta]"}], ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Gray", ",", "Dashed", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"-", "1.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "2"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", "14"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", ".1"}], ",", RowBox[{"-", ".1"}]}], "}"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Epsilon]", ",", ".5", ",", RowBox[{"Style", "[", RowBox[{"\"\<\[Epsilon]\>\"", ",", "Italic"}], "]"}]}], "}"}], ",", ".05", ",", ".5", ",", ".01", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Delta]", ",", "1", ",", RowBox[{"Style", "[", RowBox[{"\"\<\[Delta]\>\"", ",", "Italic"}], "]"}]}], "}"}], ",", ".05", ",", "1", ",", ".01", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.526838517740492*^9, 3.526839008877782*^9}, { 3.526839075366619*^9, 3.5268394927481947`*^9}, {3.52683952399192*^9, 3.526839736241151*^9}, {3.5268402179233713`*^9, 3.526840282255666*^9}, { 3.526866481062253*^9, 3.526866506825677*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`\[Delta]$$ = 1, $CellContext`\[Epsilon]$$ = 0.5, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`\[Epsilon]$$], 0.5, Style["\[Epsilon]", Italic]}, 0.05, 0.5, 0.01}, {{ Hold[$CellContext`\[Delta]$$], 1, Style["\[Delta]", Italic]}, 0.05, 1, 0.01}}, Typeset`size$$ = { 400., {127., 132.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`\[Epsilon]$11682$$ = 0, $CellContext`\[Delta]$11683$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`\[Delta]$$ = 1, $CellContext`\[Epsilon]$$ = 0.5}, "ControllerVariables" :> { Hold[$CellContext`\[Epsilon]$$, $CellContext`\[Epsilon]$11682$$, 0], Hold[$CellContext`\[Delta]$$, $CellContext`\[Delta]$11683$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ($CellContext`a = 0.8; $CellContext`c = Sin[0.8]; Show[ Plot[ Sin[$CellContext`x], {$CellContext`x, (-Pi)/2, Pi}, PlotStyle -> {Blue, Thick}, AxesLabel -> { Style["x", Italic, 14], Style["sin(x)", Italic, 14]}, PlotRange -> {-1.5, 2}, ImageSize -> 400, Ticks -> {{(-Pi)/2, 0, Pi, 2 Pi}, {-1, 0, 1}}, TicksStyle -> 14], Graphics[{Black, Disk[{0, $CellContext`c}, 0.03], Disk[{$CellContext`a, 0}, 0.03]}], Graphics[{Gray, Dashed, Line[{{(-Pi)/2, $CellContext`c}, {Pi, $CellContext`c}}]}], Graphics[{Green, Opacity[0.2], Rectangle[{(-Pi)/2, $CellContext`c - $CellContext`\[Epsilon]$$}, { Pi, $CellContext`c + $CellContext`\[Epsilon]$$}]}], Graphics[{Green, Thickness[0.01], Line[{{0, $CellContext`c - $CellContext`\[Epsilon]$$}, { 0, $CellContext`c + $CellContext`\[Epsilon]$$}}]}], Graphics[{ Text[ Style["c", Italic, 14], {-0.1, $CellContext`c - 0.1}]}], Plot[ Sin[$CellContext`x], {$CellContext`x, $CellContext`a - \ $CellContext`\[Delta]$$, $CellContext`a + $CellContext`\[Delta]$$}, PlotStyle -> {Red, Thick}], Graphics[{ Opacity[0.2], Lighter[Red], Rectangle[{$CellContext`a - $CellContext`\[Delta]$$, -1.5}, \ {$CellContext`a + $CellContext`\[Delta]$$, 2}]}], Graphics[{ Thickness[0.01], Red, Line[{{$CellContext`a - $CellContext`\[Delta]$$, 0}, {$CellContext`a + $CellContext`\[Delta]$$, 0}}]}], Graphics[{Gray, Dashed, Line[{{$CellContext`a, -1.5}, {$CellContext`a, 2}}]}], Graphics[ Text[ Style["a", Italic, 14], {$CellContext`a + 0.1, -0.1}]]]), "Specifications" :> {{{$CellContext`\[Epsilon]$$, 0.5, Style["\[Epsilon]", Italic]}, 0.05, 0.5, 0.01, Appearance -> "Labeled"}, {{$CellContext`\[Delta]$$, 1, Style["\[Delta]", Italic]}, 0.05, 1, 0.01, Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{447., {184., 191.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.526839326649168*^9, {3.5268393970778646`*^9, 3.526839493416955*^9}, { 3.526839564996933*^9, 3.526839684465119*^9}, {3.5268397297211323`*^9, 3.526839736677596*^9}, {3.52684026631*^9, 3.526840282682784*^9}, 3.526866327821064*^9, 3.526866507358733*^9, 3.526866974501048*^9}] }, Open ]], Cell[TextData[{ "Tuto limitu si m\[URing]\[ZHacek]eme nechat ov\[EHacek]\[RHacek]it ", StyleBox["Mathematicou", FontSlant->"Italic"], ":" }], "Text", CellChangeTimes->{{3.5268837365922613`*^9, 3.526883748022584*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Limit", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", RowBox[{"x", "\[Rule]", "1"}]}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"N", "[", RowBox[{"Sin", "[", "1", "]"}], "]"}], "}"}]}], "}"}], "//", "Grid"}]], "Input", CellChangeTimes->{{3.526883723842412*^9, 3.526883724399333*^9}, { 3.526883759553011*^9, 3.52688380451038*^9}, {3.526883872511064*^9, 3.526883897160367*^9}, {3.526883935067341*^9, 3.526883946534219*^9}}], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{"Sin", "[", "1", "]"}]}, {"0.8414709848078965`"} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", CellChangeTimes->{{3.526883875965211*^9, 3.526883897629043*^9}, { 3.526883947143756*^9, 3.526883961855455*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{"a", "\[Element]", "\[DoubleStruckCapitalR]"}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{"c", "=", RowBox[{"+", "\[Infinity]"}]}], TraditionalForm]]] }], "Section", CellChangeTimes->{{3.526839811741159*^9, 3.526839851418562*^9}, { 3.526865853117564*^9, 3.5268658714999247`*^9}}], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", RowBox[{"|", "x", "|"}]], "\[Rule]", RowBox[{ RowBox[{ RowBox[{"+", "\[Infinity]"}], " ", "kdy\[ZHacek]", " ", "x"}], "\[Rule]", "0."}]}], TraditionalForm]], "DisplayFormula", CellChangeTimes->{{3.526865881227459*^9, 3.526865900316712*^9}, 3.5268830190533743`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"a", "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ FractionBox["1", RowBox[{"Abs", "[", "x", "]"}]], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Exclusions", "\[Rule]", RowBox[{"{", "0", "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", "Thick"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", "14"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\<1/|x|\>\"", ",", "Italic", ",", "14"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "20"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", "\[IndentingNewLine]", RowBox[{"TicksStyle", "\[Rule]", "14"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", ".2", "]"}], ",", "Green", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "\[Alpha]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "20"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Thickness", "[", ".01", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "\[Alpha]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "20"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ FractionBox["1", RowBox[{"Abs", "[", "x", "]"}]], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"a", "-", "\[Delta]"}], ",", RowBox[{"a", "+", "\[Delta]"}]}], "}"}], ",", RowBox[{"Exclusions", "\[Rule]", RowBox[{"{", "0", "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "20"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", ".2", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", "\[Delta]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", "\[Delta]"}], ",", "20"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", ".01", "]"}], ",", "Red", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", "\[Delta]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", "\[Delta]"}], ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Delta]", ",", ".8", ",", RowBox[{"Style", "[", RowBox[{"\"\<\[Delta]\>\"", ",", "Italic"}], "]"}]}], "}"}], ",", ".05", ",", ".8", ",", ".01", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]", ",", "5", ",", RowBox[{"Style", "[", RowBox[{"\"\<\[Alpha]\>\"", ",", "Italic"}], "]"}]}], "}"}], ",", "5", ",", "19", ",", ".01", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.526838517740492*^9, 3.526839008877782*^9}, { 3.526839075366619*^9, 3.5268394927481947`*^9}, {3.52683952399192*^9, 3.526839736241151*^9}, {3.5268398609156437`*^9, 3.526840194468532*^9}, { 3.526840311423781*^9, 3.526840332407958*^9}, {3.526866362167852*^9, 3.526866465576996*^9}, 3.5268830192001047`*^9, {3.591763882831806*^9, 3.5917638834355783`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`\[Alpha]$$ = 5, $CellContext`\[Delta]$$ = 0.8, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`\[Delta]$$], 0.8, Style["\[Delta]", Italic]}, 0.05, 0.8, 0.01}, {{ Hold[$CellContext`\[Alpha]$$], 5, Style["\[Alpha]", Italic]}, 5, 19, 0.01}}, Typeset`size$$ = { 400., {137., 141.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`\[Delta]$1154$$ = 0, $CellContext`\[Alpha]$1155$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`\[Alpha]$$ = 5, $CellContext`\[Delta]$$ = 0.8}, "ControllerVariables" :> { Hold[$CellContext`\[Delta]$$, $CellContext`\[Delta]$1154$$, 0], Hold[$CellContext`\[Alpha]$$, $CellContext`\[Alpha]$1155$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ($CellContext`a = 0; Show[ Plot[ 1/Abs[$CellContext`x], {$CellContext`x, -1, 1}, Exclusions -> {0}, PlotStyle -> {Blue, Thick}, AxesLabel -> { Style["x", Italic, 14], Style["1/|x|", Italic, 14]}, PlotRange -> {0, 20}, ImageSize -> 400, TicksStyle -> 14], Graphics[{ Opacity[0.2], Green, Rectangle[{-1, $CellContext`\[Alpha]$$}, {1, 20}]}], Graphics[{Green, Thickness[0.01], Line[{{0, $CellContext`\[Alpha]$$}, {0, 20}}]}], Plot[ 1/Abs[$CellContext`x], {$CellContext`x, $CellContext`a - \ $CellContext`\[Delta]$$, $CellContext`a + $CellContext`\[Delta]$$}, Exclusions -> {0}, PlotStyle -> {Red, Thick}, PlotRange -> {0, 20}], Graphics[{ Opacity[0.2], Lighter[Red], Rectangle[{$CellContext`a - $CellContext`\[Delta]$$, 0}, {$CellContext`a + $CellContext`\[Delta]$$, 20}]}], Graphics[{ Thickness[0.01], Red, Line[{{$CellContext`a - $CellContext`\[Delta]$$, 0}, {$CellContext`a + $CellContext`\[Delta]$$, 0}}]}]]), "Specifications" :> {{{$CellContext`\[Delta]$$, 0.8, Style["\[Delta]", Italic]}, 0.05, 0.8, 0.01, Appearance -> "Labeled"}, {{$CellContext`\[Alpha]$$, 5, Style["\[Alpha]", Italic]}, 5, 19, 0.01, Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{447., {193., 200.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.526883040350026*^9, 3.591763884470708*^9}] }, Open ]], Cell["Ov\[EHacek]\[RHacek]en\[IAcute]:", "Text", CellChangeTimes->{{3.526883813990799*^9, 3.52688381812624*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ FractionBox["1", RowBox[{"Abs", "[", "x", "]"}]], ",", RowBox[{"x", "\[Rule]", "0"}]}], "]"}]], "Input", CellChangeTimes->{{3.526883819123747*^9, 3.526883830884925*^9}, { 3.526883865064267*^9, 3.5268838662371473`*^9}}], Cell[BoxData["\[Infinity]"], "Output", CellChangeTimes->{3.526883866621809*^9}] }, Open ]], Cell[TextData[{ "Upozor\[NHacek]ujeme, \[ZHacek]e ", StyleBox["Mathematica", FontSlant->"Italic"], " po\[CHacek]\[IAcute]t\[AAcute] v komplexn\[IAcute]m oboru, tak\[ZHacek]e z \ pohledu re\[AAcute]ln\[EAcute] anal\[YAcute]zy vrac\[IAcute] nespr\[AAcute]vn\ \[EHacek] tuto limitu:" }], "Text", CellChangeTimes->{{3.591763897261444*^9, 3.59176393289223*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ FractionBox["1", "x"], ",", RowBox[{"x", "\[Rule]", "0"}]}], "]"}]], "Input", CellChangeTimes->{{3.5917639348750753`*^9, 3.591763942645996*^9}}], Cell[BoxData["\[Infinity]"], "Output", CellChangeTimes->{3.591763943359045*^9}] }, Open ]], Cell[TextData[{ "Toto je pravda pokud se na funkci ", Cell[BoxData[ FormBox[ RowBox[{"1", "/", "x"}], TraditionalForm]], FormatType->"TraditionalForm"], " d\[IAcute]v\[AAcute]me jako\[ZHacek]to na funkci ", Cell[BoxData[ FormBox[ RowBox[{"\[DoubleStruckCapitalC]", "\[Rule]", "\[DoubleStruckCapitalC]"}], TraditionalForm]], FormatType->"TraditionalForm"], ". V komplexn\[IAcute] rovin\[EHacek] je toti\[ZHacek] okol\[IAcute] bodu \ nula d\[AAcute]no jako disk se st\[RHacek]edem v nule a polom\[EHacek]rem ", Cell[BoxData[ FormBox["\[Epsilon]", TraditionalForm]], FormatType->"TraditionalForm"] }], "Text", CellChangeTimes->{{3.59176395238465*^9, 3.591764007124853*^9}, 3.591764144417226*^9}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["H", "0"], "(", "\[Epsilon]", ")"}], "=", RowBox[{"{", RowBox[{"z", "\[Element]", RowBox[{"\[DoubleStruckCapitalC]", ":", RowBox[{"|", "z", "|", RowBox[{"<", "\[Epsilon]"}]}]}]}], "}"}]}], TraditionalForm]], "DisplayFormula", CellChangeTimes->{{3.591764026540303*^9, 3.591764056311627*^9}}], Cell[TextData[{ "a okol\[IAcute] bodu ", Cell[BoxData[ FormBox["\[Infinity]", TraditionalForm]], FormatType->"TraditionalForm"], " (v ", Cell[BoxData[ FormBox["\[DoubleStruckCapitalC]", TraditionalForm]], FormatType->"TraditionalForm"], " nerozli\[SHacek]ujeme ", Cell[BoxData[ FormBox[ RowBox[{"+", "\[Infinity]"}], TraditionalForm]], FormatType->"TraditionalForm"], " a ", Cell[BoxData[ FormBox[ RowBox[{"\[Dash]", "\[Infinity]"}], TraditionalForm]], FormatType->"TraditionalForm"], ", m\[AAcute]me pouze jedno) je dopln\[EHacek]k disku o dan\[EAcute]m polom\ \[EHacek]ru ", Cell[BoxData[ FormBox[ RowBox[{"c", ">", "0"}], TraditionalForm]], FormatType->"TraditionalForm"], "," }], "Text", CellChangeTimes->{{3.591764058925274*^9, 3.5917641413176203`*^9}, { 3.5917641715289373`*^9, 3.591764173707429*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["H", "\[Infinity]"], "(", "c", ")"}], "=", RowBox[{ RowBox[{"{", RowBox[{"z", "\[Element]", RowBox[{"\[DoubleStruckCapitalC]", ":", " ", RowBox[{"|", "z", "|", RowBox[{">", "c"}]}]}]}], "}"}], "."}]}], TraditionalForm]], "DisplayFormula", CellChangeTimes->{{3.591764158678563*^9, 3.591764189999365*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{"a", "=", RowBox[{"+", "\[Infinity]"}]}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{"c", "\[Element]", "\[DoubleStruckCapitalR]"}], TraditionalForm]]] }], "Section", CellChangeTimes->{{3.526866555602581*^9, 3.526866568613076*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"1", "+", RowBox[{ SubscriptBox["J", "0"], "(", "x", ")"}]}], "\[Rule]", "1"}], ",", " ", RowBox[{ RowBox[{"kdy\[ZHacek]", " ", "x"}], "\[Rule]", RowBox[{"+", "\[Infinity]"}]}]}], TraditionalForm]], "DisplayFormula", CellChangeTimes->{{3.526883671610814*^9, 3.526883686637162*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"c", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"BesselJ", "[", RowBox[{"0", ",", "x"}], "]"}], "+", "1"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "50"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", "Thick"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", "14"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\<1+\!\(\*SubscriptBox[\(J\), \(0\)]\)(x)\>\"", ",", "Italic", ",", "14"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", "2.5"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", "\[IndentingNewLine]", RowBox[{"TicksStyle", "\[Rule]", "14"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Gray", ",", "Dashed", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "1"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", ".2", "]"}], ",", "Green", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"c", "-", "\[Epsilon]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", RowBox[{"c", "+", "\[Epsilon]"}]}], "}"}]}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Thickness", "[", ".01", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"c", "-", "\[Epsilon]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"c", "+", "\[Epsilon]"}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"BesselJ", "[", RowBox[{"0", ",", "x"}], "]"}], "+", "1"}], ",", RowBox[{"{", RowBox[{"x", ",", "\[Alpha]", ",", "50"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", "2.5"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", ".2", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]", ",", RowBox[{"-", "0.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "2.5"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Thick", ",", "Red", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]", ",", ".1", ",", RowBox[{"Style", "[", RowBox[{"\"\<\[Alpha]\>\"", ",", "Italic"}], "]"}]}], "}"}], ",", ".1", ",", "40", ",", ".01", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Epsilon]", ",", ".5", ",", RowBox[{"Style", "[", RowBox[{"\"\<\[Epsilon]\>\"", ",", "Italic"}], "]"}]}], "}"}], ",", ".05", ",", ".9", ",", ".01", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.526838517740492*^9, 3.526839008877782*^9}, { 3.526839075366619*^9, 3.5268394927481947`*^9}, {3.52683952399192*^9, 3.526839736241151*^9}, {3.5268398609156437`*^9, 3.526840194468532*^9}, { 3.526840311423781*^9, 3.526840332407958*^9}, {3.526865943750181*^9, 3.5268659830817347`*^9}, {3.526866023610682*^9, 3.526866071588975*^9}, { 3.5268661024774437`*^9, 3.52686628429181*^9}, {3.526866536076664*^9, 3.526866536397904*^9}, {3.526866587038093*^9, 3.526866664742015*^9}, { 3.526866702497815*^9, 3.526866708796033*^9}, {3.526866739421973*^9, 3.526866811425222*^9}, {3.5268668455842037`*^9, 3.526866901771397*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`\[Alpha]$$ = 0.1, $CellContext`\[Epsilon]$$ = 0.5, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`\[Alpha]$$], 0.1, Style["\[Alpha]", Italic]}, 0.1, 40, 0.01}, {{ Hold[$CellContext`\[Epsilon]$$], 0.5, Style["\[Epsilon]", Italic]}, 0.05, 0.9, 0.01}}, Typeset`size$$ = { 400., {124., 130.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`\[Alpha]$11422$$ = 0, $CellContext`\[Epsilon]$11423$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`\[Alpha]$$ = 0.1, $CellContext`\[Epsilon]$$ = 0.5}, "ControllerVariables" :> { Hold[$CellContext`\[Alpha]$$, $CellContext`\[Alpha]$11422$$, 0], Hold[$CellContext`\[Epsilon]$$, $CellContext`\[Epsilon]$11423$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ($CellContext`c = 1; Show[ Plot[ BesselJ[0, $CellContext`x] + 1, {$CellContext`x, 0, 50}, PlotStyle -> {Blue, Thick}, AxesLabel -> { Style["x", Italic, 14], Style["1+\!\(\*SubscriptBox[\(J\), \(0\)]\)(x)", Italic, 14]}, PlotRange -> {-0.5, 2.5}, ImageSize -> 400, TicksStyle -> 14], Graphics[{Gray, Dashed, Line[{{0, 1}, {50, 1}}]}], Graphics[{ Opacity[0.2], Green, Rectangle[{0, $CellContext`c - $CellContext`\[Epsilon]$$}, { 50, $CellContext`c + $CellContext`\[Epsilon]$$}]}], Graphics[{Green, Thickness[0.01], Line[{{0, $CellContext`c - $CellContext`\[Epsilon]$$}, { 0, $CellContext`c + $CellContext`\[Epsilon]$$}}]}], Plot[ BesselJ[0, $CellContext`x] + 1, {$CellContext`x, $CellContext`\[Alpha]$$, 50}, PlotStyle -> {Red, Thick}, PlotRange -> {-0.5, 2.5}], Graphics[{ Opacity[0.2], Lighter[Red], Rectangle[{$CellContext`\[Alpha]$$, -0.5}, {50, 2.5}]}], Graphics[{Thick, Red, Line[{{$CellContext`\[Alpha]$$, 0}, {50, 0}}]}]]), "Specifications" :> {{{$CellContext`\[Alpha]$$, 0.1, Style["\[Alpha]", Italic]}, 0.1, 40, 0.01, Appearance -> "Labeled"}, {{$CellContext`\[Epsilon]$$, 0.5, Style["\[Epsilon]", Italic]}, 0.05, 0.9, 0.01, Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{447., {181., 188.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.526866045954055*^9, 3.5268660720103197`*^9}, 3.526866102995618*^9, 3.526866285583501*^9, {3.526866528588382*^9, 3.526866537104487*^9}, 3.526866588232094*^9, {3.5268666380830727`*^9, 3.526866664967182*^9}, 3.5268667100249243`*^9, {3.526866755823575*^9, 3.526866813386866*^9}, {3.526866846402092*^9, 3.526866860537396*^9}, 3.526866902948842*^9, 3.526866967582656*^9}] }, Open ]], Cell["Ov\[EHacek]\[RHacek]en\[IAcute]:", "Text", CellChangeTimes->{{3.52688369914223*^9, 3.526883714509354*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{"1", "+", RowBox[{"BesselJ", "[", RowBox[{"0", ",", "x"}], "]"}]}], ",", RowBox[{"x", "\[Rule]", "\[Infinity]"}]}], "]"}]], "Input", CellChangeTimes->{{3.526883846868505*^9, 3.5268838573294287`*^9}}], Cell[BoxData["1"], "Output", CellChangeTimes->{3.526883858909441*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1364, 747}, WindowMargins->{{0, Automatic}, {2, Automatic}}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}}, 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, 98, 1, 92, "Title"], Cell[680, 25, 252, 5, 50, "Subtitle"], Cell[935, 32, 288, 6, 31, "Text"], Cell[1226, 40, 1731, 61, 54, "Text"], Cell[2960, 103, 634, 17, 31, "Text"], Cell[3597, 122, 360, 11, 26, "DisplayFormula"], Cell[3960, 135, 399, 14, 30, "Text"], Cell[4362, 151, 399, 13, 26, "DisplayFormula"], Cell[4764, 166, 439, 13, 31, "Text"], Cell[5206, 181, 392, 13, 26, "DisplayFormula"], Cell[CellGroupData[{ Cell[5623, 198, 218, 5, 80, "Section"], Cell[5844, 205, 320, 9, 26, "DisplayFormula"], Cell[CellGroupData[{ Cell[6189, 218, 7465, 196, 583, "Input"], Cell[13657, 416, 4284, 91, 392, "Output"] }, Open ]], Cell[17956, 510, 222, 6, 30, "Text"], Cell[CellGroupData[{ Cell[18203, 520, 558, 15, 32, "Input"], Cell[18764, 537, 344, 10, 47, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[19157, 553, 366, 12, 80, "Section"], Cell[19526, 567, 347, 10, 56, "DisplayFormula"], Cell[CellGroupData[{ Cell[19898, 581, 5042, 126, 562, "Input"], Cell[24943, 709, 3260, 67, 410, "Output"] }, Open ]], Cell[28218, 779, 113, 1, 30, "Text"], Cell[CellGroupData[{ Cell[28356, 784, 282, 7, 59, "Input"], Cell[28641, 793, 80, 1, 32, "Output"] }, Open ]], Cell[28736, 797, 362, 8, 31, "Text"], Cell[CellGroupData[{ Cell[29123, 809, 201, 5, 56, "Input"], Cell[29327, 816, 80, 1, 32, "Output"] }, Open ]], Cell[29422, 820, 725, 19, 32, "Text"], Cell[30150, 841, 388, 11, 28, "DisplayFormula"], Cell[30541, 854, 850, 28, 31, "Text"], Cell[31394, 884, 409, 12, 28, "DisplayFormula"] }, Open ]], Cell[CellGroupData[{ Cell[31840, 901, 311, 10, 80, "Section"], Cell[32154, 913, 366, 10, 26, "DisplayFormula"], Cell[CellGroupData[{ Cell[32545, 927, 5644, 140, 495, "Input"], Cell[38192, 1069, 3683, 74, 386, "Output"] }, Open ]], Cell[41890, 1146, 113, 1, 30, "Text"], Cell[CellGroupData[{ Cell[42028, 1151, 275, 7, 32, "Input"], Cell[42306, 1160, 70, 1, 32, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)