(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    100843,       2722]
NotebookOptionsPosition[     78266,       2173]
NotebookOutlinePosition[     91021,       2452]
CellTagsIndexPosition[     90707,       2441]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Zad\[AAcute]n\[IAcute] p\[RHacek]\[IAcute]klad\[URing]", "Section",
 CellChangeTimes->{{3.572062462421875*^9, 3.572062470796875*^9}},
 CounterAssignments->{{"Chapter", 4}, {"ExerciseNumber", 0}},
 CellTags->"Exercises"],

Cell[TextData[StyleBox["\[CapitalRHacek]e\[SHacek]en\[IAcute] rovnic", \
"Subsection"]], "ExerciseHeading",
 CellChangeTimes->{{3.57206247509375*^9, 3.57206248725*^9}},
 CellTags->{"Exercises", "Solving Equations Ex"}],

Cell[TextData[{
 "Ur\[CHacek]et hodnoty ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 " jako \[RHacek]e\[SHacek]en\[IAcute] rovnice ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"a", " ", 
      SuperscriptBox["x", "2"]}], "+", 
     RowBox[{"b", " ", "x"}], "+", "c"}], "=", "0"}], TraditionalForm]]],
 "."
}], "Exercise",
 CellChangeTimes->{{3.5720624973125*^9, 3.572062513765625*^9}},
 CellTags->{"Exercises", "Solving Equations Ex"}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"a", ",", "b", ",", "c"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.578303900109375*^9, 3.57830391171875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"a", " ", 
      RowBox[{"x", "^", "2"}]}], "+", 
     RowBox[{"b", " ", "x"}], " ", "+", " ", "c"}], "\[Equal]", "0"}], ",", 
   "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.57830385671875*^9, 3.578303881875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{"-", "b"}], "-", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["b", "2"], "-", 
         RowBox[{"4", " ", "a", " ", "c"}]}]]}], 
      RowBox[{"2", " ", "a"}]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{"-", "b"}], "+", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["b", "2"], "-", 
         RowBox[{"4", " ", "a", " ", "c"}]}]]}], 
      RowBox[{"2", " ", "a"}]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.57830388596875*^9, 3.578303913625*^9}}]
}, Open  ]],

Cell[TextData[{
 "\n\[CapitalRHacek]e\[SHacek]te nasleduj\[IAcute]c\[IAcute] soustavu rovnice \
pro ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 " a ",
 Cell[BoxData[
  FormBox["y", TraditionalForm]]],
 " a uka\[ZHacek]te, \[ZHacek]e \[RHacek]e\[SHacek]en\[IAcute] vyhovuje \
rovnic\[IAcute]m. Mo\[ZHacek]n\[EAcute] \[RHacek]e\[SHacek]en\[IAcute] je \
substituce pomoc\[IAcute] substitu\[CHacek]n\[IAcute]ho pravidla do \
p\[URing]vodn\[IAcute]ch rovnic a uk\[AAcute]zat, \[ZHacek]e v\[YAcute]sledek \
je True. "
}], "Exercise",
 CellChangeTimes->{{3.5720625848125*^9, 3.572062677203125*^9}},
 CellTags->{"Exercises", "Solving Equations Ex"}],

Cell[BoxData[
 RowBox[{
  RowBox[{"equations", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"x", "^", "2"}], "+", "y"}], "\[Equal]", "b"}], ",", 
     RowBox[{
      RowBox[{"x", "+", "y"}], "\[Equal]", "b"}]}], "}"}]}], ";"}]], "Input",
 CellTags->{"Exercises", "Solving Equations Ex"}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sol", " ", "=", " ", 
  RowBox[{"Solve", "[", 
   RowBox[{"equations", ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.57830392875*^9, 3.5783039443125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", "0"}], ",", 
     RowBox[{"y", "\[Rule]", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", "1"}], ",", 
     RowBox[{"y", "\[Rule]", "0"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.57830394534375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"equations", "/.", "sol"}]], "Input",
 CellChangeTimes->{{3.578303955375*^9, 3.578303963328125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"True", ",", "True"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", "True"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.57830396434375*^9}]
}, Open  ]],

Cell[BoxData[""], "NonPrintButton",
 CellChangeTimes->{3.572062682109375*^9}],

Cell[TextData[StyleBox["Pr\[AAcute]ce s racion\[AAcute]ln\[IAcute]mi \
funkcemi", "Subsection"]], "ExerciseHeading",
 CellChangeTimes->{{3.57206271459375*^9, 3.57206272684375*^9}},
 CellTags->{"Exercises", "Rational Functions"}],

Cell["\<\
Vyhodno\[THacek]te n\[AAcute]sleduj\[IAcute]c\[IAcute] vstup, kter\[YAcute] \
definuje jednoduchou racion\[AAcute]ln\[IAcute] funkci. Racion\[AAcute]ln\
\[IAcute] funkce je takov\[AAcute], kter\[AAcute] v \[CHacek]itateli a \
jmenovateli obsahuje polynom. P\[RHacek]eve\[DHacek]te funkci na \
v\[YAcute]raz se spole\[CHacek]n\[YAcute]m jmenovatelem.\
\>", "Exercise",
 CellChangeTimes->{{3.572062763234375*^9, 3.572062837375*^9}, {
   3.578304024828125*^9, 3.578304024859375*^9}, 3.57830413159375*^9, {
   3.5783042635*^9, 3.578304283*^9}},
 CellTags->{"Exercises", "Rational Functions"}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"expr", "=", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{"k", "+", "x"}], ")"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"k", ",", "5"}], "}"}]}], "]"}]}]], "Input",
 CellTags->{"Exercises", "Rational Functions"}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"1", "+", "x"}]], "+", 
  FractionBox["1", 
   RowBox[{"2", "+", "x"}]], "+", 
  FractionBox["1", 
   RowBox[{"3", "+", "x"}]], "+", 
  FractionBox["1", 
   RowBox[{"4", "+", "x"}]], "+", 
  FractionBox["1", 
   RowBox[{"5", "+", "x"}]]}]], "Output",
 CellChangeTimes->{3.578303820453125*^9},
 CellTags->{"Exercises", "Rational Functions"}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"newexpr", " ", "=", " ", 
  RowBox[{"Together", "[", "expr", "]"}]}]], "Input",
 CellChangeTimes->{{3.578304335484375*^9, 3.578304346078125*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"274", "+", 
   RowBox[{"450", " ", "x"}], "+", 
   RowBox[{"255", " ", 
    SuperscriptBox["x", "2"]}], "+", 
   RowBox[{"60", " ", 
    SuperscriptBox["x", "3"]}], "+", 
   RowBox[{"5", " ", 
    SuperscriptBox["x", "4"]}]}], 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", "x"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"2", "+", "x"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"3", "+", "x"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"4", "+", "x"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"5", "+", "x"}], ")"}]}]]], "Output",
 CellChangeTimes->{3.5783043469375*^9}]
}, Open  ]],

Cell["", "Exercise",
 CellChangeTimes->{3.57206286546875*^9},
 CellTags->{"Exercises", "Rational Functions"}],

Cell[TextData[{
 StyleBox["P\[RHacek]eve\[DHacek]te v\[YAcute]sledek zp\[EHacek]t do \
p\[URing]vodn\[IAcute] formy. Operace konverze v\[YAcute]raz\[URing] do p\
\[URing]vodn\[IAcute] formy se naz\[YAcute]v\[AAcute] ", "Exercise"],
 StyleBox["\[CHacek]\[AAcute]ste\[CHacek]n\[AAcute] dekompozice zlomku.", 
  "Exercise",
  FontSlant->"Italic"],
 StyleBox[".", "Exercise"]
}], "Exercise",
 CellChangeTimes->{{3.572062878828125*^9, 3.5720629435625*^9}, {
   3.572062985046875*^9, 3.572062992515625*^9}, 3.5783041246875*^9, {
   3.578304367234375*^9, 3.578304372890625*^9}},
 CellTags->{"Exercises", "Rational Functions"}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Apart", "[", "newexpr", "]"}]], "Input",
 CellChangeTimes->{{3.578304064*^9, 3.57830409740625*^9}, {3.5783043255625*^9,
   3.578304329859375*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"1", "+", "x"}]], "+", 
  FractionBox["1", 
   RowBox[{"2", "+", "x"}]], "+", 
  FractionBox["1", 
   RowBox[{"3", "+", "x"}]], "+", 
  FractionBox["1", 
   RowBox[{"4", "+", "x"}]], "+", 
  FractionBox["1", 
   RowBox[{"5", "+", "x"}]]}]], "Output",
 CellChangeTimes->{{3.57830407075*^9, 3.5783040984375*^9}, 
   3.578304351078125*^9}]
}, Open  ]],

Cell[BoxData[""], "NonPrintButton",
 CellChangeTimes->{3.57206294946875*^9}],

Cell[TextData[StyleBox["Pou\[ZHacek]it\[IAcute] p\[RHacek]edpoklad\[URing]", \
"Subsection"]], "ExerciseHeading",
 CellChangeTimes->{{3.572064820171875*^9, 3.572064833046875*^9}},
 CellTags->{"Exercises", "Using Assumptions"}],

Cell[TextData[{
 "Pou\[ZHacek]ij funkci ",
 Cell[BoxData[
  ButtonBox["Simplify",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Simplify"]], "InlineFormula"],
 " z odpov\[IAcute]daj\[IAcute]c\[IAcute]mi p\[RHacek]edpoklady a \
uka\[ZHacek]te, \[ZHacek]e n\[AAcute]sleduj\[IAcute]c\[IAcute] v\[YAcute]raz \
je 0 pokud ",
 StyleBox["x", "MR"],
 " je kladn\[EAcute] a ",
 StyleBox["n", "MR"],
 " je cel\[EAcute] \[CHacek]\[IAcute]slo (integer)."
}], "Exercise",
 CellChangeTimes->{{3.572064344109375*^9, 3.572064428046875*^9}},
 CellTags->{"Exercises", "Using Assumptions"}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Sqrt", "[", 
   RowBox[{"x", "^", "2"}], "]"}], "-", 
  RowBox[{"x", " ", 
   RowBox[{"Cos", "[", 
    RowBox[{"2", "n", " ", "Pi"}], "]"}]}]}]], "Input",
 CellTags->{"Exercises", "Using Assumptions"}],

Cell[BoxData[
 RowBox[{
  SqrtBox[
   SuperscriptBox["x", "2"]], "-", 
  RowBox[{"x", " ", 
   RowBox[{"Cos", "[", 
    RowBox[{"2", " ", "n", " ", "\[Pi]"}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.578303820484375*^9},
 CellTags->{"Exercises", "Using Assumptions"}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"Sqrt", "[", 
    RowBox[{"x", "^", "2"}], "]"}], "-", 
   RowBox[{"x", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{"2", "n", " ", "Pi"}], "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.578304409375*^9, 3.5783044219375*^9}}],

Cell[BoxData[
 RowBox[{
  SqrtBox[
   SuperscriptBox["x", "2"]], "-", 
  RowBox[{"x", " ", 
   RowBox[{"Cos", "[", 
    RowBox[{"2", " ", "n", " ", "\[Pi]"}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.578304423078125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Sqrt", "[", 
     RowBox[{"x", "^", "2"}], "]"}], "-", 
    RowBox[{"x", " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"2", "n", " ", "Pi"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"Element", "[", 
     RowBox[{"n", ",", "Integers"}], "]"}], "&&", 
    RowBox[{"x", ">", "0"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.578304436359375*^9, 3.578304494875*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.57830447634375*^9, 3.578304496265625*^9}}]
}, Open  ]],

Cell[BoxData[""], "NonPrintButton",
 CellChangeTimes->{{3.57206444328125*^9, 3.572064444296875*^9}}],

Cell[TextData[{
 "Nastavte hodnoty ",
 Cell[BoxData[
  ButtonBox["Assumptions",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Assumptions"]], "InlineFormula"],
 " parametru v integr\[AAcute]lu tak, \[ZHacek]e v\[YAcute]sledek je vr\
\[AAcute]cen bez pou\[ZHacek]it\[IAcute] ",
 Cell[BoxData[
  ButtonBox["If",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/If"]], "InlineFormula"],
 " v\[YAcute]razu. "
}], "Exercise",
 CellChangeTimes->{{3.57206447234375*^9, 3.57206455078125*^9}},
 CellTags->{"Exercises", "Using Assumptions"}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", "b"}], " ", "x"}], "]"}], "/", 
    RowBox[{"(", 
     RowBox[{"x", "+", "c"}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]], "Input",
 CellTags->{"Exercises", "Using Assumptions"}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["\[ExponentialE]", "4"]}], " ", 
  RowBox[{"ExpIntegralEi", "[", 
   RowBox[{"-", "4"}], "]"}]}]], "Output",
 CellChangeTimes->{3.57830382396875*^9},
 CellTags->{"Exercises", "Using Assumptions"}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", "b"}], " ", "x"}], "]"}], "/", 
    RowBox[{"(", 
     RowBox[{"x", "+", "c"}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "Infinity"}], "}"}], ",", 
   RowBox[{"Assumptions", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"b", ">", "0"}], ",", 
      RowBox[{"c", ">", "0"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5783046265*^9, 3.578304639828125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"b", " ", "c"}]]}], " ", 
  RowBox[{"ExpIntegralEi", "[", 
   RowBox[{
    RowBox[{"-", "b"}], " ", "c"}], "]"}]}]], "Output",
 CellChangeTimes->{3.578304643203125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Assuming", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"b", ">", "0"}], ",", 
     RowBox[{"c", ">", "0"}]}], "}"}], ",", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "b"}], " ", "x"}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"x", "+", "c"}], ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.57830472115625*^9, 3.578304756515625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"b", " ", "c"}]]}], " ", 
  RowBox[{"ExpIntegralEi", "[", 
   RowBox[{
    RowBox[{"-", "b"}], " ", "c"}], "]"}]}]], "Output",
 CellChangeTimes->{3.578304758859375*^9}]
}, Open  ]],

Cell[BoxData[""], "NonPrintButton",
 CellChangeTimes->{{3.572064810390625*^9, 3.572064811421875*^9}}],

Cell[TextData[StyleBox["Kontrola v\[YAcute]sledk\[URing] symbolick\[YAcute]ch \
v\[YAcute]po\[CHacek]t\[URing] \[CHacek]\[IAcute]seln\[EHacek]", \
"Subsection"]], "ExerciseHeading",
 CellChangeTimes->{{3.572064842265625*^9, 3.5720648681875*^9}},
 CellTags->{"Exercises", "Checking Symbolic Results"}],

Cell["\<\
Jedn\[IAcute]m ze zp\[URing]sob\[URing] kontroly symbolick\[YAcute]ch v\
\[YAcute]po\[CHacek]t\[URing] je substituce symbolick\[YAcute]ch \
v\[YAcute]raz\[URing] \[CHacek]\[IAcute]seln\[YAcute]mi hodnotami a proveden\
\[IAcute] stejn\[EAcute]ho v\[YAcute]po\[CHacek]tu \[CHacek]\[IAcute]seln\
\[EHacek].\
\>", "Text",
 CellChangeTimes->{{3.57206488784375*^9, 3.57206495646875*^9}, {
  3.578304773875*^9, 3.578304774265625*^9}},
 CellTags->{"Exercises", "Checking Symbolic Results"}],

Cell[TextData[{
 "Nap\[RHacek]\[IAcute]klad, vyhodno\[THacek]te n\[AAcute]sleduj\[IAcute]c\
\[IAcute] vstup, aby jste obdr\[ZHacek]eli v\[YAcute]sledek integrace z\
\[AAcute]visl\[YAcute] na parametru ",
 StyleBox["b", "MR"],
 "."
}], "Exercise",
 CellChangeTimes->{{3.572064958484375*^9, 3.572065005828125*^9}},
 CellTags->{"Exercises", "Checking Symbolic Results"}],

Cell[BoxData[
 RowBox[{"Clear", "[", "b", "]"}]], "Input",
 CellChangeTimes->{{3.5783049461875*^9, 3.578304955953125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"int", "=", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{"-", "x"}], "]"}], "/", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"b", " ", "x"}]}], ")"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "Infinity"}], "}"}], ",", 
    RowBox[{"Assumptions", "\[Rule]", 
     RowBox[{"b", ">", "0"}]}]}], "]"}]}]], "Input",
 CellTags->{"Exercises", "Checking Symbolic Results"}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     FractionBox["1", "b"]], " ", 
    RowBox[{"ExpIntegralEi", "[", 
     RowBox[{"-", 
      FractionBox["1", "b"]}], "]"}]}], "b"]}]], "Output",
 CellChangeTimes->{3.578303825875*^9, 3.578304963296875*^9},
 CellTags->{"Exercises", "Checking Symbolic Results"}]
}, Open  ]],

Cell[TextData[{
 "Tento integr\[AAcute]l m\[URing]\[ZHacek]e b\[YAcute]t vypo\[CHacek]ten \
\[CHacek]\[IAcute]seln\[EHacek] pomoc\[IAcute] funkce ",
 Cell[BoxData[
  ButtonBox["NIntegrate",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/NIntegrate"]], "InlineFormula"],
 " pokud je symbolick\[YAcute] parametr zad\[AAcute]n jako \
\[CHacek]\[IAcute]seln\[AAcute] hodnota. Sp\[IAcute]\[SHacek]e ne\[ZHacek] \
zad\[AAcute]vat jednu hodnotu argumentu na vstup je vhodn\[EHacek]j\[SHacek]\
\[IAcute] pou\[ZHacek]\[IAcute]t p\[RHacek]\[IAcute]stup, p\[RHacek]i kter\
\[EAcute]m je mo\[ZHacek]n\[EAcute] zadat v\[IAcute]ce hodnot parametru \
najednou. "
}], "Text",
 CellChangeTimes->{{3.572065025203125*^9, 3.572065165171875*^9}, {
  3.5783047841875*^9, 3.5783047894375*^9}},
 CellTags->{"Exercises", "Checking Symbolic Results"}],

Cell[TextData[{
 "Vyhodno\[THacek]te n\[AAcute]sleduj\[IAcute]c\[IAcute] vstup a \
obdr\[ZHacek]\[IAcute]te hodnotu integr\[AAcute]lu pro hodnotu ",
 StyleBox["b", "MR"],
 " rovnou 3. Hodnota parametru ",
 StyleBox["b", "MR"],
 " je zad\[AAcute]na pomoc\[IAcute]  ",
 Cell[BoxData[
  ButtonBox["Block",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Block"]], "InlineFormula"],
 "."
}], "Exercise",
 CellChangeTimes->{{3.572065168640625*^9, 3.57206523221875*^9}},
 CellTags->{"Exercises", "Checking Symbolic Results"}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"b", "=", "3"}], "}"}], ",", 
   RowBox[{"NIntegrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{"-", "x"}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"b", " ", "x"}]}], ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]}], 
  "]"}]], "Input",
 CellTags->{"Exercises", "Checking Symbolic Results"}],

Cell[BoxData["0.3856020121393501`"], "Output",
 CellChangeTimes->{3.578303825953125*^9, 3.57830497259375*^9},
 CellTags->{"Exercises", "Checking Symbolic Results"}]
}, Open  ]],

Cell[TextData[{
 "Vyhodno\[THacek]te n\[AAcute]sleduj\[IAcute]c\[IAcute] vstup a \
ur\[CHacek]ete \[CHacek]\[IAcute]selnou aproximaci symbolick\[EAcute]ho v\
\[YAcute]sledku pro stejnou hodnotu ",
 StyleBox["b", "MR"],
 ". Srovnejte v\[YAcute]sledek s v\[YAcute]stupem \[CHacek]\[IAcute]seln\
\[EAcute] integrace z p\[RHacek]edch\[AAcute]zej\[IAcute]c\[IAcute]ho. "
}], "Exercise",
 CellChangeTimes->{{3.572065494171875*^9, 3.572065609296875*^9}},
 CellTags->{"Exercises", "Checking Symbolic Results"}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"b", "=", "3"}], "}"}], ",", 
   RowBox[{"N", "[", "int", "]"}]}], "]"}]], "Input",
 CellTags->{"Exercises", "Checking Symbolic Results"}],

Cell[BoxData["0.3856020121366941`"], "Output",
 CellChangeTimes->{3.578303825984375*^9, 3.578304975953125*^9},
 CellTags->{"Exercises", "Checking Symbolic Results"}]
}, Open  ]],

Cell[BoxData[""], "NonPrintButton",
 CellChangeTimes->{3.572065613078125*^9}],

Cell[TextData[{
 "Tyto dva v\[YAcute]po\[CHacek]ty (\[CHacek]\[IAcute]seln\[AAcute] integrace \
pomoc\[IAcute] ",
 Cell[BoxData[
  ButtonBox["NIntegrate",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/NIntegrate"]], "InlineFormula"],
 " a \[CAcute]\[IAcute]seln\[AAcute] aproximace v\[YAcute]sledk funkce ",
 Cell[BoxData[
  ButtonBox["Integrate",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Integrate"]], "InlineFormula"],
 ") m\[URing]\[ZHacek]eme zkombinovat do jednoho v\[YAcute]sledku, kter\
\[YAcute] vr\[AAcute]t\[IAcute] ob\[EHacek] \[RHacek]e\[SHacek]en\[IAcute]."
}], "Text",
 CellChangeTimes->{{3.5720656166875*^9, 3.57206570675*^9}},
 CellTags->{"Exercises", "Checking Symbolic Results"}],

Cell[TextData[{
 "Vyhodnott\[EAcute] n\[AAcute]sleduj\[IAcute]c\[IAcute] vstup a srovnejte v\
\[YAcute]stup z funkce ",
 Cell[BoxData[
  ButtonBox["Integrate",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Integrate"]], "InlineFormula"],
 " v\[YAcute]stup z funkce ",
 Cell[BoxData[
  ButtonBox["NIntegrate",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/NIntegrate"]], "InlineFormula"],
 ". "
}], "Exercise",
 CellChangeTimes->{{3.5720657113125*^9, 3.572065748375*^9}},
 CellTags->{"Exercises", "Checking Symbolic Results"}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"b", "=", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"N", "[", "int", "]"}], ",", 
     RowBox[{"NIntegrate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{"-", "x"}], "]"}], "/", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"b", " ", "x"}]}], ")"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]}], "}"}]}], 
  "]"}]], "Input",
 CellTags->{"Exercises", "Checking Symbolic Results"}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.3856020121366941`", ",", "0.3856020121393501`"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.57830382603125*^9, 3.5783049820625*^9},
 CellTags->{"Exercises", "Checking Symbolic Results"}]
}, Open  ]],

Cell[TextData[{
 "Pou\[ZHacek]ijte popsanou strategii ke kontrole n\[AAcute]sleduj\[IAcute]c\
\[IAcute]ho v\[YAcute]stupu funkce ",
 Cell[BoxData[
  ButtonBox["Integrate",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Integrate"]], "InlineFormula"],
 ". V\[SHacek]imn\[EHacek]te si, \[ZHacek]e v\[YAcute]stup obsahuje dva \
symbolick\[EAcute] parametry ",
 StyleBox["b", "MR"],
 " a ",
 StyleBox["x1", "MR"],
 "."
}], "Exercise",
 CellChangeTimes->{{3.572065779296875*^9, 3.572065856078125*^9}},
 CellTags->{"Exercises", "Checking Symbolic Results"}],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"b", ",", "x1"}], "]"}]], "Input",
 CellChangeTimes->{{3.5783049939375*^9, 3.578304997828125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"int", "=", " ", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", "2"}], " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"x", "+", "b"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "x1"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.578305008390625*^9, 3.578305010375*^9}},
 CellTags->{"Exercises", "Checking Symbolic Results"}],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", "x1", " ", 
   RowBox[{"Cos", "[", 
    RowBox[{"b", "+", "x1"}], "]"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"Sin", "[", "b", "]"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "2"}], "+", 
     SuperscriptBox["x1", "2"]}], ")"}], " ", 
   RowBox[{"Sin", "[", 
    RowBox[{"b", "+", "x1"}], "]"}]}]}]], "Output",
 CellChangeTimes->{
  3.578303826453125*^9, {3.578305004671875*^9, 3.5783050141875*^9}},
 CellTags->{"Exercises", "Checking Symbolic Results"}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"b", "=", "3"}], ",", 
     RowBox[{"x1", "=", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"N", "[", "int", "]"}], ",", 
     RowBox[{"NIntegrate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", "2"}], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"x", "+", "b"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "x1"}], "}"}]}], "]"}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.5783050509375*^9, 3.57830509965625*^9}, {
  3.57830514909375*^9, 3.57830515103125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.5009597913536374`"}], ",", 
   RowBox[{"-", "0.5009597913536372`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.57830510946875*^9, 3.57830515721875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"b", "=", "A"}], ",", 
       RowBox[{"x1", "=", "B"}]}], "}"}], ",", 
     RowBox[{
      RowBox[{"N", "[", "int", "]"}], "==", 
      RowBox[{"NIntegrate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", "2"}], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"x", "+", "b"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "0", ",", "x1"}], "}"}]}], "]"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"A", ",", "1", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"B", ",", "1", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.578305172953125*^9, 3.57830527584375*^9}, {
  3.578305306078125*^9, 3.578305308609375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", 
     ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", 
     ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", 
     ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", 
     ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", 
     ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", 
     ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", 
     ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", 
     ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", 
     ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", 
     ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.5783051979375*^9, 3.578305211140625*^9}, {
   3.578305259078125*^9, 3.578305278609375*^9}, 3.57830531053125*^9}]
}, Open  ]],

Cell["\<\
Pou\[ZHacek]ijte funkci Manipulate pro nastaven\[IAcute] \
r\[URing]zn\[YAcute]ch hodnot parametr\[URing] b a x1.
\
\>", "Text",
 CellChangeTimes->{3.578305346515625*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"b", "=", "A"}], ",", 
       RowBox[{"x1", "=", "B"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"N", "[", "int", "]"}], ",", 
       RowBox[{"NIntegrate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"x", "^", "2"}], " ", 
          RowBox[{"Cos", "[", 
           RowBox[{"x", "+", "b"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "x1"}], "}"}]}], "]"}]}], "}"}]}], 
    "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"A", ",", "1", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"B", ",", "1", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.578305353953125*^9, 3.57830536059375*^9}, {
  3.578305481125*^9, 3.578305507953125*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`A$$ = 2.35, $CellContext`B$$ = 5.26, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`A$$], 1, 10}, {
      Hold[$CellContext`B$$], 1, 10}}, Typeset`size$$ = {218., {5., 17.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`A$144905$$ = 0, $CellContext`B$144906$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`A$$ = 1, $CellContext`B$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`A$$, $CellContext`A$144905$$, 0], 
        Hold[$CellContext`B$$, $CellContext`B$144906$$, 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" :> 
      Block[{$CellContext`b = $CellContext`A$$, $CellContext`x1 = \
$CellContext`B$$}, {
         N[$CellContext`int], 
         NIntegrate[$CellContext`x^2 
          Cos[$CellContext`x + $CellContext`b], {$CellContext`x, 
           0, $CellContext`x1}]}], 
      "Specifications" :> {{$CellContext`A$$, 1, 10}, {$CellContext`B$$, 1, 
         10}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{505., {135., 146.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.57830549221875*^9, 3.5783055090625*^9}}]
}, Open  ]],

Cell[TextData[{
 "\n",
 StyleBox["\[CapitalRHacek]e\[SHacek]en\[IAcute] line\[AAcute]rn\[IAcute]ch \
rovnic", "Subsection"]
}], "ExerciseHeading",
 CellChangeTimes->{{3.5720659655*^9, 3.572066022078125*^9}, 
   3.578305336203125*^9},
 CellTags->{"Exercises", "Solving Linear Equations"}],

Cell[TextData[{
 "Vyhodno\[THacek]te n\[AAcute]sleduj\[IAcute]c\[IAcute] dva vstupy a \
zkonstruujte mno\[ZHacek]inu line\[AAcute]rn\[IAcute]ch rovnic \
prom\[EHacek]nn\[YAcute]ch ",
 StyleBox["x1", "MR"],
 ", ",
 StyleBox["x2", "MR"],
 ", ",
 StyleBox["x3", "MR"],
 ", a ",
 StyleBox["x4", "MR"],
 ". Prvn\[IAcute] v\[YAcute]raz zkonstruuje matici koeficient\[URing] ",
 StyleBox["m", "MR"],
 ", a druh\[YAcute] v\[YAcute]raz pou\[ZHacek]ijte tyto koeficienty ke \
konstrukci rovnic."
}], "Exercise",
 CellChangeTimes->{{3.5720660510625*^9, 3.57206616559375*^9}, 
   3.578305538890625*^9},
 CellTags->{"Exercises", "Solving Linear Equations"}],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"x1", ",", "x2", ",", "x3", ",", "x4"}], "]"}]], "Input",
 CellChangeTimes->{{3.578305653078125*^9, 3.57830566025*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"m", "=", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"b", " ", 
     RowBox[{"IdentityMatrix", "[", "4", "]"}]}], "-", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
   ")"}]}]], "Input",
 CellTags->{"Exercises", "Solving Linear Equations"}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"b", ",", 
     RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "b", ",", 
     RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "b", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "b"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.578303826484375*^9, 3.578305583765625*^9},
 CellTags->{"Exercises", "Solving Linear Equations"}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eq", "=", 
  RowBox[{
   RowBox[{"m", ".", 
    RowBox[{"{", 
     RowBox[{"x1", ",", "x2", ",", "x3", ",", "x4"}], "}"}]}], "\[Equal]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]}]}]], "Input",
 CellTags->{"Exercises", "Solving Linear Equations"}],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"b", " ", "x1"}], "-", "x2"}], ",", 
    RowBox[{
     RowBox[{"b", " ", "x2"}], "-", "x3"}], ",", 
    RowBox[{
     RowBox[{"b", " ", "x3"}], "-", "x4"}], ",", 
    RowBox[{
     RowBox[{"-", "x1"}], "+", 
     RowBox[{"b", " ", "x4"}]}]}], "}"}], "\[Equal]", 
  RowBox[{"{", 
   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]}]], "Output",
 CellChangeTimes->{3.578303826515625*^9, 3.578305624046875*^9, 
  3.578305663875*^9},
 CellTags->{"Exercises", "Solving Linear Equations"}]
}, Open  ]],

Cell[TextData[{
 "Uka\[ZHacek]te \[RHacek]e\[SHacek]en\[IAcute] t\[EHacek]chto rovnic s pou\
\[ZHacek]it\[IAcute]m funkce ",
 Cell[BoxData[
  ButtonBox["Solve",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Solve"]], "InlineFormula"],
 "."
}], "Exercise",
 CellChangeTimes->{{3.572066249671875*^9, 3.572066275953125*^9}},
 CellTags->{"Exercises", "Solving Linear Equations"}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{"eq", ",", 
   RowBox[{"{", 
    RowBox[{"x1", ",", "x2", ",", "x3", ",", "x4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.578305673984375*^9, 3.578305691671875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x1", "\[Rule]", 
     FractionBox[
      SuperscriptBox["b", "3"], 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["b", "4"]}]]}], ",", 
    RowBox[{"x2", "\[Rule]", 
     RowBox[{"-", 
      FractionBox["1", 
       RowBox[{"1", "-", 
        SuperscriptBox["b", "4"]}]]}]}], ",", 
    RowBox[{"x3", "\[Rule]", 
     FractionBox["b", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["b", "4"]}]]}], ",", 
    RowBox[{"x4", "\[Rule]", 
     FractionBox[
      SuperscriptBox["b", "2"], 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["b", "4"]}]]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.57830569321875*^9}]
}, Open  ]],

Cell[TextData[{
 "Nyn\[IAcute] \[RHacek]e\[SHacek]te stejnou soustavu rovnic pomoc\[IAcute] \
funkce ",
 Cell[BoxData[
  ButtonBox["LinearSolve",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/LinearSolve"]], "InlineFormula"],
 ". na rozd\[IAcute]l od funkce ",
 Cell[BoxData[
  ButtonBox["Solve",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Solve"]], "InlineFormula"],
 ", ve kter\[EAcute] jsou argumenty rovnice, argumenty funkce ",
 Cell[BoxData[
  ButtonBox["LinearSolve",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/LinearSolve"]], "InlineFormula"],
 " jsou koeficienty rovnice.. V\[YAcute]sledek je tak\[EAcute] vr\[AAcute]cen \
v odli\[SHacek]n\[EAcute] form\[EHacek]. "
}], "Exercise",
 CellChangeTimes->{{3.572066366265625*^9, 3.572066474078125*^9}},
 CellTags->{"Exercises", "Solving Linear Equations"}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LinearSolve", "[", 
  RowBox[{"m", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.578305775984375*^9, 3.57830578784375*^9}, {
  3.578305842828125*^9, 3.5783058550625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox[
    SuperscriptBox["b", "3"], 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SuperscriptBox["b", "4"]}]], ",", 
   FractionBox["1", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SuperscriptBox["b", "4"]}]], ",", 
   FractionBox["b", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SuperscriptBox["b", "4"]}]], ",", 
   FractionBox[
    SuperscriptBox["b", "2"], 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SuperscriptBox["b", "4"]}]]}], "}"}]], "Output",
 CellChangeTimes->{3.578305789*^9, 3.578305856203125*^9}]
}, Open  ]],

Cell[BoxData[""], "NonPrintButton",
 CellChangeTimes->{3.572066488359375*^9}],

Cell[TextData[StyleBox["Pr\[AAcute]ce s \[RHacek]adami rozvoje \
funkc\[IAcute]", "Subsection"]], "ExerciseHeading",
 CellChangeTimes->{{3.57206649325*^9, 3.5720665470625*^9}},
 CellTags->{"Exercises", "Series Expansions"}],

Cell[TextData[{
 "Vyhodno\[THacek]te n\[AAcute]sleduj\[IAcute]c\[IAcute] t\[RHacek]i vstupy, \
kter\[EAcute] generuj\[IAcute] rozvoj funkce ",
 Cell[BoxData[
  RowBox[{"Cos", "[", "x", "]"}]]],
 " do stupn\[EHacek] to 10 v okol\[IAcute] 0 a nakresl\[IAcute] graf, kter\
\[YAcute] srovn\[AAcute]v\[AAcute] tento polynomi\[AAcute]ln\[IAcute] rozvoj \
a vlastn\[IAcute] funkci ",
 Cell[BoxData[
  RowBox[{"Cos", "[", "x", "]"}]]],
 ". Jak\[YAcute] efekt m\[AAcute] pou\[ZHacek]it\[IAcute] funkce ",
 Cell[BoxData[
  ButtonBox["Normal",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Normal"]], "InlineFormula"],
 " ve v\[YAcute]po\[CHacek]tu? Co se stane, pokud aplikaci funkce ",
 Cell[BoxData[
  ButtonBox["Normal",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Normal"]], "InlineFormula"],
 " vynech\[AAcute]me? Pro\[CHacek]?"
}], "Exercise",
 CellChangeTimes->{{3.572066548859375*^9, 3.5720666995*^9}, {
  3.578305925046875*^9, 3.578305948796875*^9}},
 CellTags->{"Exercises", "Series Expansions"}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ser", "=", 
  RowBox[{"Series", "[", 
   RowBox[{
    RowBox[{"Cos", "[", "x", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]}]], "Input",
 CellTags->{"Exercises", "Series Expansions"}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "-", 
   FractionBox[
    SuperscriptBox["x", "2"], "2"], "+", 
   FractionBox[
    SuperscriptBox["x", "4"], "24"], "-", 
   FractionBox[
    SuperscriptBox["x", "6"], "720"], "+", 
   FractionBox[
    SuperscriptBox["x", "8"], "40320"], "-", 
   FractionBox[
    SuperscriptBox["x", "10"], "3628800"], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "x", "]"}], "11"],
    SeriesData[$CellContext`x, 0, {}, 0, 11, 1],
    Editable->False]}],
  SeriesData[$CellContext`x, 0, {1, 0, 
    Rational[-1, 2], 0, 
    Rational[1, 24], 0, 
    Rational[-1, 720], 0, 
    Rational[1, 40320], 0, 
    Rational[-1, 3628800]}, 0, 11, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.578303826578125*^9},
 CellTags->{"Exercises", "Series Expansions"}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"poly", "=", 
  RowBox[{"Normal", "[", "ser", "]"}]}]], "Input",
 CellTags->{"Exercises", "Series Expansions"}],

Cell[BoxData[
 RowBox[{"1", "-", 
  FractionBox[
   SuperscriptBox["x", "2"], "2"], "+", 
  FractionBox[
   SuperscriptBox["x", "4"], "24"], "-", 
  FractionBox[
   SuperscriptBox["x", "6"], "720"], "+", 
  FractionBox[
   SuperscriptBox["x", "8"], "40320"], "-", 
  FractionBox[
   SuperscriptBox["x", "10"], "3628800"]}]], "Output",
 CellChangeTimes->{3.578303826609375*^9},
 CellTags->{"Exercises", "Series Expansions"}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Cos", "[", "x", "]"}], ",", "poly"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "8"}], "}"}]}], "]"}]], "Input",
 CellTags->{"Exercises", "Series Expansions"}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVmHk4VV8Xx83uNRPugK6EnyRJppL2EoWoSJKMaVCaoyJjhQyhQahIIUWE
QpFsZEihMhWZysy992RKSnnPe/+5z+d5ztl7r+/6rrPX3ss8T+48yMfDw0Pw
8vD8/3/rwdFPlWPhGyMX//8jkIAZ81Qf4wDyZ7zLnyd5bVpyynOGL4rmvY2H
SR5UVL14Xj0YBen4rq4n2brp87NURhhazTy8eIdk1atKDxdZUej6qojVniQv
bN2ftE89DmW0DWJFksfD2mr2JV5HR33TCt79I5DjgbnXNxgJaPRYB+8xkmvM
mC/epCQiUUb+cx6SdZabFMywbqP7zfZ1kX8JlMLnka2WcReZ9U6vEyCZ8v1S
+m71e2j7zTcSPgsEKutvaXqz6z7CaxfM2/8Q6JTtga0uiQ+QOk93tybJPauv
mMUyMpETf4ZuwTyBEtLolWrOD5FuGmuy7xeBtkrmbKhIyUL9Oidk+Eku4Tbq
E6xs9KHie/DynwQ65ub27Mq+HLT8R+075VkCqTQT2soZT5DGxdkL0jMEisuT
0bBTf4rWDo1TmyYJtFkpM3PMKx89fnlrLOkHgYLr7khV7SpAO9m7V+8mCKRn
oBXrlFiIXNWViFw2ge7L7YiIZhShVLm27W+GCRTQlFSzu6wI7bbRPLFiiEC7
w/v5ljsXIxV/xq9LAwQSmz0d8iqlBIW4em6X6ieQX1uCH5tVigzapOkJXwhk
f7Wn5GVlKWoOCE271UEgbXP12bB9ZWjmsGVSdBuZz+cvTitlvELZp1S+bv9I
ILubXd7b1SuQlnLDe6gnkJb18mxmfQXyXZnN6akh9eY/NjLshZHWTF/EiWoC
uZf+K8S7KtHvQO3l3q8JJLfimvaexCrkdvA46/0zAl2kPP8vilGDljreounf
JZCmxfXIZ6dq0PGh0oO1SQRqCT859rW+BjFt7otbJJD+4dd6on2uFj1dr3d6
aSyB6v5mare11KGgjpASpWAy3ulEfdbVBrTbV/GtuyuBitecTbQcaEBarkmX
hZwI5HbKfu70+nfIz5VdfG8XgfI5kqU1o++Ql67jlQxrAu0cjdzgvbkRJcuL
0heNCJTcc8Gs+F8zEpH52LMoRSBTRafMXocP6NfeGhEsSvp1r6EgJe8DOqVz
uOWkEIGWsv335636iDoN7xln/eGik0cM1Hi6PyJ3YcfyQ0NcJHMg//FDoxYk
vO1IlVEJF+1xepD/Y7INeYQzovS2cRHxdZdIOrMdKScIi2du4aIIN8pBe7N2
pH7/lr0wcNHz/SeZJQntyIhtsTZbl4skTpiEBxh2oNe35aL20rio9lLnXqGg
z4ipybt4tpeDdHOlhRQpXah8MuVO5n4OatCu9WjS6UJLh28tXnfmII9Cv1fB
Tl3os55hhI89B8WW9J36ltOFWqqSBZeYcdBoZd7XrG1fkVEXe0XNMg66125V
uOZmN3oQoMk71c1GoosXXSyW9iGBSKOHCVvZKPmIo5vWlj7kf/sLd4MpG6m2
aXlIn+hD4ok9Jl2GbLQx+/P+r6/70H/8hb+nVdmoNDux+IV2P3LtyNqd+W8C
cezZ5dbN/Wji2b/eP/kTyOFx0nsf8e/Iz/KMxQORCaRmxx19EzOI2qfsnj25
P4aYIRbrvR4MIreIjPSCm2NIKu9+jMiLQXTZUutbdsQY+k2x17b7Poi6s155
+B8bQx8rX/j0Gg2hVK1h6VjDMXRB5+K/X0ND6I6Ad9zV96OoWVJWVhtGkLiO
5w3axAg637wOJc+Mob2XxcPfU4cRrUi6l5eXQH8lXeZiln5HJd/NGj9smELa
Iawe9fIuVO2dquDEnkG5O8XO/878iGbVTSTzjs+hKpGpx88MXyG++SdSCmq/
0d8dzdOGqwuwwaJHif3TBdQ1bhq/579G3Bim11ynuYi8eIM6y65/xqxrE/PZ
XB7YvTZvlURKP56Y6+tt1+EDL4stnZcKBnGJV3z1VgM+SJDLSVetGsShnzdm
YWM+eCS7sab80yCWf5F6PHsLH2x/x5j8MDWIN51zXgh04YO4tTeZF/WG8J2Z
DoZqJB+cWbOMn1IyhC0nm3ad6eODPR7urT6Fwzhz/NU7iTh+2HN4/WWdyFF8
ImnHcu+b/CCkr6nOuTWKDc0HAmqT+aHSWfHNvYxR/C5VZFVgBj98PxvU0l8x
iidtneLHXvKDqMTFlL6ZUbzxxU/7mgF+aM8+mFztNoY7L6/p8V8nAFmz2lKz
K8Zxuk6tfvtGAYibCT652WAcH+vZE6djLgBFB1QlojeNYx7DUDSyXQB2bvad
JvaOY/Xx5ge7DgjA5Pip2lUx49jX9tih1fECMDaR3HJsbBxLKD0iBgcFQEes
ltqWMoFh9+WegTEBkHBNlhjNmsBn4t3ff+cKgItj59bJggncwUt/1P9LAK7U
8+wdqJnA94Yj3brFBGFgndOhzewJrF3g3dSqJwi0wuf9f43YeJuZ9pPqMEGw
HzgSqf6OjYMDRW5XRQmCcreSUVcLGxcUD0dUxglCnKxFzqWvbCyrkeZZkSwI
jyDwbSGbjbvFpJhluYJA91uIi5Tg4GMdk5GFbYKgvk7VS86Wg68eKT50X1UI
/pTlmiW+4+BxyIsU1RSCWttHFP8WDragP8w5t1oI/PrtWNu7OJivPoFrs14I
pPpd134Y42B/Vd9z8zuEYEF7000tChcf6tON2BkgBG1y57TtNnFxTYnm49eh
QkAMiR93tOJilTiVdxoRQhBV2VS3w5aLezbISCxeEwLrp7xY3o2Ld92ZvPUk
SwgUn5p7//XjYlOHgocCLUJwqTuGd2UuF9/Telx/8rMQBCdyQ+2ecfEC//2x
rm4hYPfbThx5ycUvn8WvKhwRgjLTibOnarhYW+pksetfIaiGN3JtX7lY8f2q
2hINYXCOeLx6WpjAF9LVRpZpC8PQm0wlQ3ECf/ZXosauFQaBTE7jMRkC39AQ
37Z/ozA8iug+mKdIYGoEu01ylzCY9/ShyzoE/glPBg+HCMPGyMi0EAcCl2dO
3D0fJgyypWXnE5wIfImiZR8RJQxuj0++TXElsMTH3KqMm8JQ7T/TeOUggdXd
n97rfSQMM6nhBvW+BGZXcx04ucJw5GRd1nk/Aj9TXy2+UCgMfq1rLisEEngj
Nz+AUU6uJ+vVBZPLBN4dVLhn10dhkAtRNBm/RmDFb5OS+9uFYSmWHNFPIPB3
c936013CkESnTfkmEfiE2HP9+EFhWH/XQL0plcARd4tk3v0Shjn1jIGhbAIX
l75oRMsoECDOfPICk/oo/bq8XZ0Ceqty242qCQwXjYxdV1JgfRd3e14NgRst
S7Mv6FPAasO9FacaCDz4uSyi2IoCnH9HD7q2EDjH+I9JzXYKpI6oTfi1EfhU
mvFsiz0FZpU3v7zSQeCFQ+X7f7hSgP/MCbWQLgLL/nwNK89QwKz3oX77NwJ3
Of2bW3eeAjTK/f7oAQLff70x3zKQAgoP5xvXDhFYKxwrHYog3xdc4eU+SuCp
0cU23xgKfPYuW/J9jMAvbeDq5WsUMIxWWXScILC5bNXv+3cooGujfk2JS2AR
P95n+WkU2OyUpXecIPDHr6ZHKjIpYDFbK1fwg8AuGdWfvz6lQFnDYIzkNIFV
hPnjx59TwNx4kqU1Q+BRb7Mt8y8psOPpC67xLIF9dWuK5N9QwFm7dr3+HIEP
6Snfv/6WjD8vOmvNLwLvMQiMEWumgIdCnzRrnsBbjb6cu9JKgQEJ+8C/JBuv
1/Pk66RA8YrgocbfZHwbrm0L6qXAD9qiTewfAi/dyDb6NUCB/dcCnm1cILAU
WKr6jFGgdNd9uW8k823KlORyKZC5Ztk5378EnjHj+XN4hgK8iy9bf5E8tNll
eGCeAj/TVmif+EfgDouXn9wWKSDNvyG8jeS3VrKvOwWo4KFS+WXlIoHLrE89
3iVChRj+WA1fknO3Nd78IEmFby9CffNIvrdDI2SrHBVOu4SWfyY53i7Mu5ZJ
BXGmH880yaH2/Q6gTIW9as5A9vf4jMMG01dqVGitWB64QPIBx2Qtg5VUaNZt
fT5O8m6nGVqhDhXOd54eaSDZ0tmWX8uACi3ykjSyv8frXHO5WcZUyN9btcmZ
ZE13StcyUyo8UM7yFidZcd+B2pQtVJgivsUVkPFI7K8soNlQIc75fr45yTwH
FVNu2FFhmle2qYHUY+qQ3xVxRyrIx54bQSQPHG47E+lCBctnlMUsUs82bx03
fk8qMHVlZBdJ/euOXbUK9qLC+i/f1C1Jzjllrux7hgoNC2ss8sj8pZy5L0qc
p0KdpY9DA5nvWN+Fn0eCyHgdFjw7SD+c8itqco+kwpnKoqA3pF88L0iVdsVS
IdGkJyaD9NOuwGOZDjepEFCG7pI7EDYMVQ2wvkcFPecpPEb6UeNS6KG6DCrY
jvl0xJJ+ZYZ125lmU0HH+sYPFdLP/64kaBgWUcH5lYOuMun3mniBDpV3VFix
fSeP1yCBS657VKV+oML7jYMWN78T+PHN8lx6Ozm+subtgn4CxyT5Xpbop8L1
Uk+Xim4C70wb1Pk9SwXzfcKh6mT9mj8AxbN/yHgarqz++onA+hkpwj94RCDp
ZsKP0A8Epj/a1TskKgKTJTVP0t4RuO9pTcynZSIw4LDsP81Ksr44Amzd/0Qg
2dfksu9rAldqbbZJ0BKBcRvxsIIysr5zasUcDUXgzL0Pfn+LSH2y6mK7bUSg
0zHYfuIxuZ4hIa7JThH45ZIzX/2QwGaqFtvTHEUgJsd0x9V0Aqum10t4eopA
l2CUxMxdAg+nvo0fOS8CV51qhelxpN+7KT8sg0SgcPiwfVA0gesVrGxzLomA
wpOmvW0RpB63G6SOx4rA5ujQDMcQAnvfend9Kl0ESkMCbZ6fJDDnauPNv00i
8F+Iz/XKbQTufS8249YqAnX/jR/fZEXgZpFtuyq/iID2pozlJeYEfhrZJHt5
QATqXygt9zEm8x/WfIsyLwKHlT3yzDTI+gz4mLREVRT+Kp/sgUUu/uPddnfF
BVHoN5I4Vp5O7ocGrte1Q0TBcsPj5LEULs7lHY5YGyYKz5lrX4okcbFb8txp
kzhRSE1z69SI4eKqWqalXbooeMaxh9rOcPEV5X0zfu9EQdxkP9ntc/GSDo7N
W6YYGE9FSRp9IvuBB+c2NbHEQFKt7eRoAwfXHFs0bFEVA6mzLPnYag4+xy+9
vFtbDB6k2sPz5xzcqaM3T2wSg4feR119bnFwWsyFh7SjYkDP0Heu3c3BK02F
/x16JQb3DhY4130k+5OcJ/99qRSDrLh5I8t6NtaTtbWzqhOD38MyteWv2XjD
SHLmyk9iMM/w+hOUw8bbYzWtfwyLQfPRGtd9l9n4TOe2ZH8ZcRD40fszX5eN
S08n6F49Ig52q2Ifxl6ZwBbpy7wKaRJgPW3W5SU6jvWSJdTrFCXgjfbexJuL
Y1g57s9g1zIJ+CuQ1V40PYZ/+7d7CmhJgCtBnfz8dQzn2UW5OYIEvH+/VOXB
kzG8hHfS4e9hCaiPUioysxrDfe6V5lZlEuR+PvOQHTiKzyu5q3xzkYQnlnv9
p+uGsRbbQfTzNilwq3rAdhEYwEskf1BqfkvB2rM58nGfu7EAvpu/PEUawt+3
xGeHteKjeq86qdYyMBRY8ywTV+EnVp73K37KwElvcWtF01Q0O8GUGk5cAvkX
sr4WRNejYnsL/gRzWRA0eWsQYtSBQizD04qGZeEXO1W7x6sPLevZ+iUjXA5k
fQ4GCLcOoOhq43yHSDlwKIhUIAYG0NQjrQjhGDlofPi2qGlmAFWfkdA7ek0O
vqjyF52UH0QHKC3xunflwHwnRWqL0yB6vNbJoqpADtg3tR/o9wwi7Wivkt6v
clDm363E7hlC6w3DEhi68jBRpZ+tWjWCOjwZBql68mBkUCt4p3kE+cQ9/axs
KA+GHlG/BbtHUO7QF6bGBnlofxuUVPVzBC1NWPXAYIs8zN+KEq1fOYr4Jjvy
7PfKg5MOzUYoYRS9z1lRH3tJHrKXwzld1zF0uKPisHS4PFC807tPHRlDAny7
RG5dkQeH32NGD8+OoY1OwdtSrsrDcMIAJmLHUIFwa2tOojxMj/hfFK0YQwkH
Avvrc8jxMpQLnBTHkcvSD/O8rfLAFnI5r/NpHEkwzhS/aifjcYhokOwZR1VL
5E6f/SIPedOf0r+PjiN1qvPoaI88aBX3tHnyTCBierjjw6g8nBoOvdeoPYEu
Nfx7nvqPfP4dh24aNYEe+2qfWKdJg+kawitKj432nvy0YlqLBqofTI5/2MhG
4t6+Q7mraSC49ZQDxYqNzriXuSjr08Cx7uqrna5sZLx1i7Uw0CBG19TZKpyN
mlluGu0ONHjDn/6ttIWNZt/Ffj91kQZRIYa0KPK83S3afnjhMg26bR46Xz/K
QdU2isSVCBqoG6q/iPXhoGvNOX/uxdBgY9v5LM/LHKTZUi/bdIsGrG5B8aB0
DnLr5LVYkUODkeMy6DR5njdnWjUV5dJAKXhvQOkQB610vmYP+TR4ydyUOsvm
oF/dSz0ci2hwtdokwuoPB93oN/YPr6CBzFpmijuNi+pGzj751kID6jbNfZu2
cVGuxus1x9tpQNN7mV5vz0U3jwi8/PWZBrb6e1JhLxd5TNyokeyhwbX9e56L
e3HRb25+j8kIDRrM9ZmyoVy0+ueY5J0/5PP299M/5HNRsoCb705VOjAOhrIm
BQn0bz9N/5M6HU7L1PF+FCHQgTcfZ3esoMMn6bEP6ZIE0rlkdn6bNh26vlpp
qDII9HZR44KlER3uT0sn3lpJoLnf0yEbbegwwJboWrOdQC578+D1djqIaULG
9p0Eqi49xLvBjg6HGUEb3HcTKM6v89K63XSo0n3/xdmNQOo/K8L1POjwhXUn
tvo4gXZPRsVo+tJBbS7nnnk0gcptzWyyz9FB1V2nODWWQCoFC2Ia/nSof5oX
RvbriHviZJxaMB2U2aet3JMIFM7edV05kg6NXCeL4gwCjVtL7EyLpsOcfglf
bhaBbJ/UyyyNpYPVta3HE7MJpOi9PkHhBh2exSZab8knUNEIK0k+hQ7a6WoS
MmUEYlp0Ot66R4e7P6JVs8oJFJp1gy77gFzvyrvfVmEC2RwUvCOdRYdKqU/W
9BoCDX4fTxEroMP5ozp1e5oItHVTpmvMMzrscDwyF/WBQAUPXJeKFNOh5Op0
/dNPBAr0+JgmXEaHgHM5Zq3tBFrSW5zOV0OHB3Hn4q/0kHqJBQW9qKODtecp
g8A+AokYm+851kAHE3/uZs9vBOJLbhHvaKaDMUXgLt/Q/+8nb49Gf6JDWuhU
b/kwgX7PeLxBbXSoNlkSeXiUQFN2hF92Jx2SpQaEEiYIdCK0xN6tmw4dGUu/
LuGQej0N0l7SR4eY8w+lw7kE+iYqNhg4SAcR37l040kyv+tbK9aM0GFlethC
6BSBvhy+c3t4jA4UxW/FL6YJ9LFWY4ctQQf5jPbN87OkPjPECsEpOkRtOagg
MEf6R+WFQNkMHZ57Pt/O84tA5nbBfSfm6PDjok0fh2Qcsrls+W869H9709g4
T6D1T8VufVkg4/F5Lp/6m0Al3a0nYxfpwP36qtztD4F0Re9u3cTHAHefsArp
BQI9XeepNifAgEtbXimUkKx5eAVPrjADBOXl2qz/Eigr8UeXhwgDundvG2kh
WaX2RbGcOANcdNUdrP8RKHU6+No7SQbsiTisVEwyXWXL0RAZBmwYGkBSiwRK
sBXfoifHAJXEE+UuJEuFtCmP0RgwkjB04//351fz7v5JZTLA8IbWG7L/RpRu
z46dSgxImV61jezPUZiIZqGwMgOutnbpkP074lk3GVOuwgAv3pUn/n9/H+D1
8tBpNQaE8SoJzpD881aIqboGA1aKl8x2knymZoviV00GJMrwQSHJ3CnxufhV
DJgoWjLoT7L3svZP5joM8nwm8H0tycM7UnLndRmwdWh6XR8Zj2fw/itP9RnQ
a0plB5Dcm6vpud+IAdu+nP5FJdnp6+QGujEDbrfuc48i9WmjltKaTBiwfYns
st+knrZGoVMXgQFHVr4zcSG58ZBFk4EZGe+BxuJ8Mh+WtyQeT2xmgH7ZkagZ
Ml81b9ov3bdkALdn7qUmyTCV4upgzYAPa1vNd5L5Ndyxcgm2ZYBptIDPWdIf
z4KmOD72DLjbrid/+ieBtHNL32rsJucfPURzI/2kTrUMvuHMAIMnzfpipN/S
DSWdLNwYUGoiu+v/9/VLD3WsXfBgQJFzQEvIDwLJvzkwdvAQqUcWbeol6W/B
oIu71p0mx1v3rTlghKz3SfY89mFAXJNX+BBZPwcO7Unbco4BScyoy5sGyfXv
WD1uH8AA2GHi1NFP5k+lJ+REOAMC/psKOthJIL0kS7XZKwyw5ysMO/KZrH/R
oncB0aTeZp++eJD1bD4bLRcVT/rvmv+xFWS9C7w1epJxmwF1465OKm/J+Tdk
2mqmMECSPv+9spacv1DyZ8E9Bqw6zFO18w05/51hqMhggHWvUbBtBYEuH0/o
+JLHgE3DhYyi52T9L/nBK1HNAGaT41vFFFK/K86PEmoYsHqZCH0ymcz3Qp2N
Qj0DEmyFm1/eIr/HQ6lJGo0MUFsqckYlnkCXXlqvMutgwLVH+7DbRQLxuj3a
4zfOgMCmbdmB+8nvVYvMv39sBuC5V3yR7gTysAjOCCcYoDno1BnhTKBKHQfu
jRnyedNYAXd78vvIzx+W94/Ut7s61H8T6e9st/zvMkzYm292bc9SAtWxP59I
k2NCs3REvAG5n1zVsdN2oTNh1C/2n6AsgWgvzfLalZgQ/DFH359K5r9e48lb
DSY8ONW5rXCai1yGprKebmRCQ94yb+9aLlJZcezQUVMmxOcbJXtgLho9NqSm
Yc6EnZnqHpalXOQz8znzgRUTysp/vWXnclE0/+v0hF1MuECh2Ebd5KLSZVfu
XfBmgmnviY4lblwUfJDHzfA4E7wPqAurOXKReba/0sxJJhRVh/Fp2HLRR51j
KcfPMiGy2/4Q/yZyPmR3xyOUCb1bQpGUGhfJuykkbklkgv3lKcPwUQ46cyc/
VqaaCfuetNyePcBBLxbuXKmuYUKX0+nkky4ctOAWcfFMPRNo+zbt7rbnoCvL
Xc+2NDJh1ZK/S+M2cVBKrojrjc9M2OD7dKc9i4NqKw5qyXCYsHB6R61XBxvR
BxTeS9MVoCWyhdWxno1cNwvXVjEVoDvrwFy+DhulP5qqOK2kACcPnpMLUmcj
rWMNzz6pKABxNdJwUpqNTGfP3bm+SgGuVJTcMh2dQN7CLUekzRRgz+YjfRE3
JtDrlZEU6RMK8KFd/Xct2d8ZtNGabpxSgCy+5MSvLeOoIPDRdVkfBfg015Y9
XD+O0pvqmHQ/BVi6jbO5p3AcRZ4UXMW6pAD5KorNNuHjaOfzS3arEhVgx3Xx
X0aa42hkfdAdqwoFqPC223Xw2BiS3npG65KEIqzke2tJbx1B96skRddLK0JB
4bstcTUjSGdd3tjkEkXIfji5db54BG3XGM3ax1CEU7wPQp8mj6BoIbdlpqqK
sOm6rXui6wgSeGMlz7NeEWQyX4zuGxpGP42X8QQfVIQFxVBVBmcIda/62Opf
rgjp7Lu5ab0DqOAeUh10U4LQFOVCObs+5JpvIK30Twl0NJIsb1p3oNDwBxe7
c5ZCc5O57sKHepQ3qnRXwoYF9QJSi4e976HI1HCP3u0s0H5AS+HcuYsO7OSo
PbVjQdPma7cOvE9GiuXlBdscWaD86OvK1Vo3UXS8c91VTxY0dParni8OQYcN
bk+K+LNgQHvrf7bLYrFKmKylcBYLgh6KpppV5+F/RoHinx+zoPlHE/3yinzc
yRloyXrCAtcjcUlOlgX4muNz1y2FLLBJrNM9nV+IFzV3+oSXs2Afa1+DXlAR
7v4Uf4+/lQVCiU3jWL4Mv4yY29/azgKBIjWirKEMJxi7r8j4woKutK0vHge+
wtYPtYs29bLA5OKBNc7fy3GZX1PDxTEWuDFNlsvkYZy4Sj/ejs0C1M9oblxd
iU9/T9m1jGBB0nrTGEpUJdawOdZXOcOCKe+Njl7GVViAty3z2hwLcu5Pi0cn
VOH+YmNvj98sqHi7RC6TU4XLvTNW6/wl16dyG4q3VOMklujs4iI5nvWlA6/T
qvH/AA2rQKA=
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVl3lcjN8Xx9vUTPu+IdIiSZKSrZ5LfaVVKSXaJEmiRSlESSpLFG2ISqFN
+0ZyBjNt2vfSpk3rPKFNRb/7m3/m9X49557z+Zx77nNnZJ08jp5hY2Fh6WRl
Yfn/t+GZsSba+G2d8NX/f0iCQ1fas1/KmbgiVZPzB/POxPiEAikf4i7rExjF
PLxO/qaf4g3iuprP9krMRnUd+c+lQojt0q6rTzHL31//anXDHSJqW+h2J8wr
hqfjTik+IFJah2Ed5omQVvqp2CjivE9ibs0/krB2Xih/JBVNjLm3s7pjputK
l3xJiCV4pHIKWDCryWnnzm54QiTVW1SE/yWJBDbHdIWUZ4Ru3+89HJgpg8Ev
rRRfEKaPv/BfWiGJ9wPNdV8skwjYuaLXtkwSnmbOhraxyYQiS0+PMube7WG6
EVKphA17inruH5KITpSkKZx8RagnbvjZv0gShgIZ+z8mvCYG1C4Ks2MuZtZq
khvSiYaPgzfk5knC3d4+P+xUBiE3w6jZOEcSm+pJ1Y0pmYTSzbmrQrMk8eCt
sJK5Yjaxc2SCWveTJP5bn5o6fjaHSCuNGY+bIYkbFU8FP1nmEkenrLZbkSSh
sUslwiY2j7BTXE9mTZFEktiR0LtShcRzsVbTL6Mkca0ujm71vpCwMla+uGWE
JKxuD7DJnSwiNl2RWgweIgneOa/AsoRiItDOyVRwgCT8W6P9pza8I3a1CklG
d5KExf3e4lLaO6L+WlBiTDtJqOopzoWcek/Muh6Ou9uK97OgxGt9ShmR7rnp
m2kjSZg/7nYzVfxIqGys/ooqSULFSC5duvIj4bM1fbqXjvvN7v5j9CwQKrP9
oRc/k4TDu395YEkjlgJU5dzKSUJsS6Tq8dhPhP2ZCxu+5pPETUrB5jtSdELG
OkZC8xlJKOtHhed70okLI+/OMOJIovm2x/i3SjohbZzEpx+N54ddJVP1MoPI
3qvhJRNBEhV/U1VbmyuI6+2BxetvYL+/YzU33K8mrHzWVTnYkUTRDt/Yw0PV
hIpd3C1OG5Kw97RY8NpbQ/jbTRW9sCSJnGmBd/SxGuKsunVYihFJHB0L3+/2
Xy0RJ84jubqbJOJ7r+oW/asnqMKNvauCJHFgnU1q37EGYuEEnRt48Lye0FpD
edtAeKi5NntwkoTM1JXTb7c1Ep1aL/a9XmYSHud2KbD0NBK2XNYfXEaYhLBz
Ttqr3c0Em8m5T7uLmcRxm+ScmZ+thO5tqTsaJkyC/GbJ/VK6jWCN5uJLPcQk
Qu0pZyx02wiOpBgLLsQkCk57SBdHtxGCU/o709WZBP9F7dvXtNqJkCdid05I
MAlGcNcJzusdRMYW1lXfvmlCPUuIcx2lm9g3k/A09fQ0Ua3KcKxT6yYCh2NW
o05OE455/mU3bLoJqZ1aoZcspomI4n7P7xndRAPErxHRnSbGaG+/vTb5RkR0
TG2hy04TL9oM8nY87iG4/JRZf/VMETyrN231ZfoJzWu7X0UbThHx56ztVQ71
EwP3Opn7D0wR8q0qjkIX+4kXYb3a3VpThE56x+lv5f3E2K/cpd/yU8S79Nii
EtUBovPTa6vUf5PEtMXUB6P6ASL50b++5ZxJ4lha3NdLfIOE/oqXfjL3JKFg
zhz7cm+YkL1nlp+ZNE5IB+rvPZs8TNzkffky9/E4Ifg26R53yTCRVqb8PT10
nFiiWKiaDw4Tdj/fOV5xHycaaSWX+naPECrSw0IRWuPEVbWb/xZHRoj+VZcH
97+OEfUCoqKq6Adx5d/JRxKTPwi/+j1E/Ow40WA5H/KVOkpIFAr1sbKShDjE
z9+TGSSKB3VrG/b/Iv4y3JoVP3QTn92er7WZmiV4jgUTS6mNxJyitsDbCwsE
qTdrlKNVRrD9yRRcq7BEcL42vqy3PRd2rToWW2SvEJUVqkHnN9dCbYhGfYXy
KrFd9K93a1QHbIic/JPOZEHbcmYL1RIGYHKhv69NjQ3JrNFUbs0dhuKzDz8b
7mJDA2oNkn6fhiGoQ+c17GND2VaOpwWbh0G85PmF9ENs6O1iybTC72E4ePnk
SoAtGxrbd4m1R2MEns62S8mHs6Hiw2qhF4pH4PDPOkvvfjb01NWV8itvFFIn
ymr4H7Cj3KJ7lj/Dx+Bi3BE5t8fsSGV/gldu7Bho6Q1dY8Szo+1M2Ujn1DGo
ec69LSCFHcXMWbzLhDH4aWbzcLyUHXU4jYgUzY2BTsm8BX2IHX2SOl2S7TAO
Xbd29F7Zw4FCLnbtEds6AS/VGJptOhxorGRO5ZzWBLj3Hn+gpseBrjjXnsvT
nQAWrSDihykH2my8NlPGdgIUJ+qTLZ050PjN2OLz9yfAx8zdZftDDpS4g8fq
68QE8K9/Qw4PcyDdXcNc119MArK61Ts0jvMvttfHpE2C90OHr4NMDqRyLacr
JX8S2lkl3wwscqDLE8OZiRWT8GI03L6Hdw26kS/bJcacBNVct7oWjTVIYWfS
2j97p8BEVzXzc8galL62zjK4dgpuBHA/+XRnDfK3okTvb5uC3KLRUNqDNeha
xdnXk71TIKqU6PQxfg3KNc/VUiKnoIdXUPp91hr0d3JvgbTQNLi3/wzPa12D
9F3NLQePTsP9c0UuSfKc6NjB1XM/6qZhAr0N51HmRIoUg7GWtmnQl3yVcXk7
J6pRNG/O750GtspopvFeTuQ+gnr0p6fhirzP5T9HOJGCfML5eh4muPSrhx69
xokG8wqzDQ8xgV6snFYexIkO6p10sTVhwqYHm2qUQjlR//RFa0dLJvTuF+Zf
jeREEtH7unWcmGD59GdM5mtOJLg3RNjqOhMOHMt9xdHMiUoH80YmcpnwQiWt
0qODExlGlYzIlDBhhT1pvLuHEzU5Nf/WK2dCaf7DbXk/OFHt1XNqZ6uZoCro
UWT3lxN9CEj4wf6dCeu+bmMUK3GhcwdfGiTwkXD1pcIPWVUuxHKoVWhGmISO
K+upETu58NUz8kVTkoRHSnwmp3W4UK5rfG/sJhKooVOtApZc6MIX59ycXSTM
o8xh10AudFqPqrnXloQPqZPP/EK4EM9DI0dHRxKCKSoWoXe40MeRVpWrziTw
N2Z9SnnMhVriMlPD3UlQdMh+0feGC8U4q04LBpAw9Zl5bDqLC0UMHWJpDSQh
X3E730oeFwpOk8i8e4sEHWbONakPXKi3PPRL810SrK7nHbds5EK8DraDdfEk
rPv+U+B0Gxe6eakxZlsCCYN66pVe3VzIe8O3zqBEEi7yFmg+HMb6wgW52V6T
EPqsULhmkQuZttJZPPJJKHpXUkvIUtDwrxeRv6pwf9Yv3jJVpKDGx4d77n4l
Ad3cvc9uKwWJOz3NFK8nofbwu/SrmhTUz8vVQmkhYbjjfWiRAQWtO8uqZd1D
Qsa+ZW26KQXt0aFF3esjwTNx31yzBQVxmJ9yLxggYcXlw+kZOwqytu5I7B0m
QXS+HG31pqDgfWXzz6ZI6Lb5t7DHj4KOj9zVd2eSkFSuk3M4gIKWQn+Kqc2Q
oHIb1ruEUlCfZoPyo98k/BpbbfW5R0FfFpY81eZIKDVG929FYj/rN2t8nidB
T/TTUtJTCjIa27qD9ocEbn/W/JxECrLbPe6mskxC47cD5z6mUlCavqfs/RUS
bFM+d3zLpqDqbT84FFdJ2MTF/nCigILeMeck1VhmYMxN99CfUgp6y/JrugKz
jzq9UPwLBX07F9HynXUGXDQ2JkVVUVBQz5FXnmwzcHxXwD3eegpilq7KLGI2
3N15OayFglw3lyN/9hnYt1fDia2LggJvZnH/xKyyP9Lkeh8FHbSYD3DimAEZ
nandi0MU5G9bGVeLme1gqgCTSUHUDZWVd9fMwKwuy7LrLAUpuTj39mEe+c92
dOgP7g+bS8JWzhlo1y9tsl+loJwavjVemKsMRMu7OKjIpz5ZIgfzeyPPNEtu
Knp+0r11BHOWSe3jBgEqcvpbtk+MawZeHFEKNBSjIpUbQybamB+ah7gxpKko
dWwPjz3mIIuBY2gjFanfkfbxw+x9bP+BMgUqYiWHw+9gdraOV9m1lYoCplcM
ojFb2cxK5KlRkcfzmpI4zIdPmrGr7KKiE/bvmx9j3mOXxXy9j4qSO/Y/C8es
7EDplj1AReSfCqHLmNedcmYkHKKisyzNu2wx85+m5UoYU9Go1zfufZhZzqxL
eGRORfabzjwQxvzLxT+Mz5qKFnbOfRrE/oZcW73DbakoXFL8dSbmVjc1e3Yn
XO+R1b4LmCvc7xvcOEtF7CUGwZsxl14c0/jjTkXN06HXunF/Mzz1Nvp4U1H1
7/TNoZgTvJN4SD8qKv92NEwZc4TPyvy561QUL6D4rBLv143LxweHg6mow7z2
tB1mT//COodwKqr8+Ov7JN5vp6uC77ojqKigzlD8EmbLAPfUY4+p6PTRu6y/
8bxoBclfM3pBRfu/Z6324PlSCg5yqUihor3uQqL6mKVDeswPpFORgpfjYDqe
x39h0UpahVR0Hg06FPwjgf6Qo31TDRXx3b9kTF8koTjK8dPzBio6Yu54UH6B
hLTHH7Ik26hoS0PLO198fu7F+dziH6CisJcNGtM/STiaOKy2NEdFA8cio1Qn
8HlKRut8l6mo/c1EtfQYCZopCVwzLNzoqmjh48UREiTfWPaN8HCjgOodw+Hf
SejPpt9rkuVGcizrS1Y68Hmb5phS38yN8niDk2+2kUBT+c84WoUbaVdJFC42
4/OeweC11uJGwpE8J8vrSHB6XRHRY8yNrsW5/Er6jPWMcDK1j3KjslJXxxIg
QVde3zTRmhuNvh+k0j6QIP+ykt/JiRs90guWSismYfR51cMfftzorrmCb0s6
Ce09lJnD17lR/f5TlAD8Pqxca2CWEcyNom5cmRJPwf14Ui14IYIbiXA9zpfD
71O3mJqoXy+5kYJVTNiTCBKm79c+/lvHjUrE7ZcWL5DQ95V31r4Fx29YZqk6
R0I9t4klrRP78U2/c+cMCdnhdaK3hriR7UqR6jC+LzxD6mMof7hRoFn35kVD
EmavNcaJyPMg+3GXuefyJCy7tT7bcpUH6VzWYSzX4ftxl12UaiAP4hafkwmr
YkIW62jozhAedNSIqcj1hQn28Qte2g940N9D6mYj+H78xJA+bP6SB51p+M9D
OpkJYRtPzfrX8KDIB85q572YINI+bVwlzYuM4y7nfaYywT358sG6DbzoLZ3l
1CQbvr/dV7Wa5XmR/9/jiLoyDZfZheR6VHmRuGdAkjxzGrrUNP6QB3mR2S07
l+6maUi8d/WVxHle1D96S+ZQ3DRsPcD1z6WMF0UFz55H0tOQm5G5uZPGi5je
/nyu+PeIhqiZuUEFL7r6yrDgFmUa9v+IT93axIvKJYM2x81PgWmEstHMKC8q
ub7iu715Cry7TOKvCPOhgKyUya1hU/DOK1r9/jk+1Ggl4xQ+Ngn6L2XP5knw
o4mwXPrjuxOgEc+vWLGOH5U+zR/4GDgBGx8sD3fL8qMnU5KW330mYOlKmxOH
Cj/KjXBy5HWYgLfmd+ytET9a1uaYWlafABHWn8f+uvKjQ16ybfpd49DvQNMz
eM+PBiPyp2s3jIPfeodN320FkAVv1MqV2B+gMnWMp8NEENH1oNbKZBhEBGYo
9CVBdI3zgOrRwAHggGc5cglCaMBbocnrRxd079c73P9CCLlu2bF8q7oLct5P
DTxNFkKihUufkzK74ESxtrDwGyGUapQxs+TRBXlv+31Y8oVQ2t8zalp/OsE+
QW5vb6UQunu1a+cyXyeUXsmkx/4WQuusGvWkD7bDgwULu6PzQui1Z3LvoEI7
nPZdmeP7I4TGdOMefaC2A7+Xyebb/4TQB/lt21Kb2uCMK3nnElUY6YQEaBo6
tYGw9c4jZhuEkcrA4PtNYa1wXqOsi2okjKZWVU4+GWgGWmNbVqmJMPLJ5g87
X9kMYhdmAs+aCSN3nqLtx7KbAV4pKDKOCaOVgVMDHgHNICIR6R3kKIx272VV
rpZqhrI/zjwLvsLIUSTGgbBpAh7g1x5OEkYsdNUnNV0N4Hhyi+DjFGHkKVdU
qJXdAEULukMHXgsj/042xaHgBnBQu3InMRM//+gjvKDSAAXJQ20nioVROCPw
rGxIPZwMKb3Y9FUYoXpbpVmdOsg0cEr6OC+Mcg92fzSaqAENFVkd4g/O970+
s6e6Bj7yD3yDZaxvfKgkP70GGlvsJD6xiCAlhXVr1NxqYNbO5sEXbhG0GPj3
YgCzGnS8zQKqZESQ6w+1JAZHNVRaCkgbyIogdPbeo4GxKjDTqi+plhNBG6Pb
th+uqwKnFaPfNUoiyN+HarsaWwVhofpudeoiSE3LevNa1SpofKpzvPmQCHJc
lv3P73wl2Fz/O3fUQARV7XqyEGdZCYMOHx63GGE9sRP6fDqVMCu/t6HVTAQF
CQTULQhVglSO5qGOEyJoRn2ppbu8Al5GzQ5Z24mgRr7Jruz0ClDxKbjZ6SCC
POteJX6LqQCdPTvKu5xFUGdB7q0DHhXg9EVFo+ci1vvJ2M9EsQImX0022XqJ
IDOj3APzohXgE57h0XtJBAkW11JX2CsgzEQps89fBNHaX77fOMSArA65Td+D
cTy/bm3vKwZovh+EU7dFUKR1dfb1OAZ8TEi2GwwTQUkKtPEbdxjQeGrDk6H7
mN1EEt9cZMDcpLTgaCzOJzHzLFmbAdHPf1QmPMHrqXF09x0M2HmkMNAiAcd7
VZTmKDDAK9+EpCXjfrVojycKMEDQWfqNX6oIYomaemK6hgE5Yj/sVd/g/kb9
+ue3TIdp/6D6Z1mYkxXatcfpcF/ZJPRoDq43Lfj52wAdtvZI6VDzcf6DTccW
OulQEzE6B4UiKFdv/khUEx3OEQVvL5dgPZXlHhk1dKD8DDyz7T3ul5+ory6d
Dm9eGq8f/oD7fzN2o91HOhyylGp7CpgPRu5cLKXDyJrR++afRdDA+D8PsUI6
hJTk61EYeP2WqPiiHDrInQtc+ViJ56f/jWdXJh0+SxsX+tZgPXSrDzfT6HCq
VtJdpQ7rX3sG5byiA8uNEbmhBpzPyvSzUwodErfnf3vSjPU2HqQ8T6aDzvcb
j83a8H5cUuqyT6JD7yMjI65OzB7PVtIS6RCgJ8n+sRvPwxBzbwDmtfPD7316
sb/YbXZdmN+/yfPeOoDrp0hv+4TX29jcUB4cxH52qPtqvKTDIrfRYPwIjpfN
YNFIpUPcB4mnR8Ywf/F+RntNh10Xh805J/H6B1rC39Lp0LYhj1o+jbnVQT3k
LR18mq5/ujSD8/kK1HzIo4PILcMryr+xvieb024X0yFfQ2LH9zncn7P6Cf1l
dDAfHRqLW8TxZbWXv36iw0xcbpLpMp7voVaKYRUdHhpcP77mH/ZvoS1v20CH
uizxKm92URTJ53ZQp58O7vZDgVs4RVHui9wpgTE68Ajmag1QRJHjDTsP/590
MLhk8MaEXxQlJVocE+JkwJi8uAOHEGaGtouuEAPC2gfFy0REUWNQU4bAegYw
9gSEKknh9ZvK1a/uYoDz5GGd/rWiyOzM1BZpPQawPxebj5ERRTPXfD9YH2XA
AZacM+zyWE/xhFyOJwMG8q6tf68oigQnVvJrghgQePpwm+cWnD+62DwsigHl
Fd/1+lRFEQu75r4fhQyw9c9eid4hijylwg7dr2TA8pZrhUYaWF9fwmBbNwP2
RIjKv9uDn09KWp/A57PIQp89Wg/7XWuhcMC2AsKNSm+v08f5lmoTw7wrwFZ3
C+WVAY5/rp93+k4FsO3k4Ss2xX4u+DzsL60AU+EG8c7jWH/VssSyTCXgn25P
HE/ifMhWgX0vfv+w5q0dt8N+pforXh+rhGc/H21cchJFQY92NH15UAljjVbK
6y5g7lP3caNUQVlVZVaqhygaaCUeOitVwQPa7u3bvHH93+fPsBhUgUautIaO
H64neuT0xvtVcPNhn7bjTeyv90KWhHQ1SJu6mKfG4Hq541Mxx2pg+r+OFpV4
UaR20WacO6gGaNqHrYqeYn6l66WaWQMu25RPViTieMG1niHsX6GAl+k8li6K
aLqr5259+ArGX339VT5ivy3Pc++Y1cGGL6NLhTSsx4Cn1yi0Dn69t76u/QX3
i7i5tuZDHTzJ2BNsWoX3iyFo+G9rPYze+XvPs1kUIan5RTuRBgg8fDuxcBT7
488rd7zVCM32rrZq4zj+of2B3JRGkPc1ksqaxPoWj/91pDdCTbLQ45QZXE89
sOsHZxOILj8PfbSE99/Q0iousgnS3hZf8OQXQ2aSXnsHipth6csT5SlBMTRQ
cH7Zr7cZTLoDfpwVEUMsb0/w+XO0wC9O3VMOkjjeJ2Eh36IF9js2WJpuwvwU
0TcutECj8Ng+lV2YJ87f0DvaBpu2fF18s1sMOXoaj8cHtoEvkV0kt08M0f7b
Imv3tg2k3X22r0ViCBnPD+/ibgdnBosctyGO/1Z3RLu6HRb9pLjH7PDz6qNp
7HadINtr2JlyWwwFifN6rfR9g7uf9+UcC8fxn/ZquW7sgV9vVEK57omhjWuP
VLk59cBnb36N85G43oUgitZYDzhTmh+qP8P+3m06urrUC2k7bfQ/5Yoh1/UF
nXMyAyAoZShzqUAMJUWmtt3TG4Ar//bOyReLIf/r+zu93QbAsHpdSngZjg9d
OKVZMgCT9gP/jlSIoXjI/hJr+R1U754t7vuGn/tRaesTByHW43hEZB/WbzJl
PVM9CKuWBs4Hv4shyd64Sam5QWjcsFX49agYauThi7xkPAReRcwLF36KoaqH
Xa+MVoegcMBXYYVTHB0+8Hpx1HcE9mqFREupi6OBTmfj5+lj0O4kteu5hjjq
tBofOt8zBpceZHds1BJH8f/x34wSGIeskU5ppf3iaHeyys6hy+MgE70tedch
cVR6xO14hsEEsP1sf2txQhxt/JNULMEyBV8ztlRGBIujIJmKd6v5JLi2f3QV
ui2OHMu2fnbC/8842Cy5Y8LEkeetC2aikjOgY3PDJOG+OJpx8N/tYT0DuVwt
LRmxOB8vmX2jcwainQMGKjPEEe24T63a8E+wlWn4w9oijnKlU9OPyM0Cv5R3
UVkbjp88XXfAeBY+iYh5+XaKI6WQYIav7ywoUk+OjfXieP4U09SqWSB/j7Y3
jOH6/7nGyHnPQXD1v4Ln/3A/9DhtJprmIc1H9eIeZQkkGSQ8mVzxB054NG35
rSKBZmY4he0W/wCfm89I1nYJ5LhkcPG08hJ4O7y33agpgSKvX11j8XAJ9hke
MuJCEkiQa9G3wnYZ6jfYK7Udk0Asx3dH/cf5F+ZqIgY9b0ogy1/mK/OGLLQe
njbXlVsSSK/Mj7XHhYX22XgdGRaK81lqnhkNZqFF1mcsv7gngVJdhLrPl7HQ
lJsrReticH2JU9e0VVlp9l2s+lsyJFDADWOxdWvZaBU/fDO/N+P1M80iTcIc
tCyl8h0X2iTQhw2cTRk7OWiPz3GULnZIoE5Nx5JsSw6a4+QjukAvzmeYlKwZ
x0FbYub0av/AfuseOunJrKFtnx8XeLosgQ47hJfd0eCkxXPY+xyVl0T+6T2m
PcEU2r/TEppNipJobHL30t00Cs35S+PckS2SKOn3uOHZegpNLVjXz0RVEnl2
7AhNl6bSqlaVrh7eLYmOh3oL2RRRaQtLvwN1jCVR6Qs1m7u/uWmya0okE9wl
kcOvvTsFxPho/wPvlrK5
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{{0, 8}, {-3.635282898174679, 0.9999999999999867}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.57830382665625*^9},
 CellTags->{"Exercises", "Series Expansions"}]
}, Open  ]],

Cell[BoxData[""], "NonPrintButton",
 CellChangeTimes->{3.572066758203125*^9}],

Cell[TextData[{
 "Vyhodno\[THacek]te n\[AAcute]sleduj\[IAcute]c\[IAcute] vstup. kter\[YAcute] \
vy\[CHacek]\[IAcute]sl\[IAcute] rozd\[IAcute]l mezi funkc\[IAcute] ",
 Cell[BoxData[
  RowBox[{"Cos", "[", "x", "]"}]]],
 " a jej\[IAcute]m rozvojem 10. stupn\[EHacek] v okol\[IAcute] 0. \
Jak\[YAcute] je v\[YAcute]znam pou\[ZHacek]it\[IAcute] ",
 Cell[BoxData[
  ButtonBox["Normal",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Normal"]], "InlineFormula"],
 " v tomto vstupu? Co se stane, pokud funkci  ",
 Cell[BoxData[
  ButtonBox["Normal",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Normal"]], "InlineFormula"],
 " vynech\[AAcute]me? Pro\[CHacek]?"
}], "Exercise",
 CellChangeTimes->{{3.57206676084375*^9, 3.57206687940625*^9}},
 CellTags->{"Exercises", "Series Expansions"}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Normal", "[", 
   RowBox[{"Series", "[", 
    RowBox[{
     RowBox[{"Cos", "[", "x", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}], "]"}], "-", 
  RowBox[{"Cos", "[", "x", "]"}]}]], "Input",
 CellChangeTimes->{{3.5720672576875*^9, 3.5720672689375*^9}},
 CellTags->{"Exercises", "Series Expansions"}],

Cell[BoxData[
 RowBox[{"1", "-", 
  FractionBox[
   SuperscriptBox["x", "2"], "2"], "+", 
  FractionBox[
   SuperscriptBox["x", "4"], "24"], "-", 
  FractionBox[
   SuperscriptBox["x", "6"], "720"], "+", 
  FractionBox[
   SuperscriptBox["x", "8"], "40320"], "-", 
  FractionBox[
   SuperscriptBox["x", "10"], "3628800"], "-", 
  RowBox[{"Cos", "[", "x", "]"}]}]], "Output",
 CellChangeTimes->{3.578303826671875*^9},
 CellTags->{"Exercises", "Series Expansions"}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Series", "[", 
   RowBox[{
    RowBox[{"Cos", "[", "x", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}], "-", 
  RowBox[{"Cos", "[", "x", "]"}]}]], "Input",
 CellChangeTimes->{{3.5783060149375*^9, 3.578306019796875*^9}}],

Cell[BoxData[
 InterpretationBox[
  SuperscriptBox[
   RowBox[{"O", "[", "x", "]"}], "11"],
  SeriesData[$CellContext`x, 0, {}, 11, 11, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.578306021515625*^9}]
}, Open  ]],

Cell[BoxData[""], "NonPrintButton",
 CellChangeTimes->{3.572066931421875*^9}],

Cell[TextData[{
 "Vyhodno\[THacek]te n\[AAcute]sleduj\[IAcute]c\[IAcute] vstup a definujte \
funkci ",
 Cell[BoxData[
  RowBox[{"f", "[", 
   RowBox[{"n", ",", "x"}], "]"}]]],
 ", kter\[AAcute] vrac\[IAcute] rozd\[IAcute]l mezi ",
 Cell[BoxData[
  RowBox[{"Cos", "[", "x", "]"}]]],
 "a rozvojem  ",
 Cell[BoxData[
  RowBox[{"Cos", "[", "x", "]"}]]],
 " n-t\[EAcute]ho stupn\[EHacek] v okol\[IAcute] ",
 StyleBox["x", "MR"],
 "."
}], "Exercise",
 CellChangeTimes->{{3.5720669454375*^9, 3.572067017171875*^9}},
 CellTags->{"Exercises", "Series Expansions"}],

Cell[BoxData[
 RowBox[{"Clear", "[", "f", "]"}]], "Input",
 CellChangeTimes->{{3.57830624971875*^9, 3.578306251875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"n_", ",", "x_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "t", "}"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"Normal", "[", 
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{"Cos", "[", "t", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}], "-", 
      RowBox[{"Cos", "[", "x", "]"}]}], "/.", 
     RowBox[{"t", "\[Rule]", "x"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.572067169203125*^9, 3.57206717128125*^9}, {
  3.57206720503125*^9, 3.572067206578125*^9}, {3.572067523234375*^9, 
  3.5720675516875*^9}},
 CellTags->{"Exercises", "Series Expansions"}],

Cell[TextData[{
 "\nJak\[YAcute] je d\[URing]vod pou\[ZHacek]it\[IAcute] prom\[EHacek]nn\
\[EAcute] ",
 StyleBox["t", "MR"],
 " v definici funkce ",
 Cell[BoxData[
  RowBox[{"f", "[", 
   RowBox[{"n", ",", "x"}], "]"}]]],
 "? Bude tato definice funk\[CHacek]n\[IAcute], pokud argument ",
 StyleBox["x", "MR"],
 " v ",
 Cell[BoxData[
  RowBox[{"f", "[", 
   RowBox[{"n", ",", "x"}], "]"}]]],
 " je \[CHacek]\[IAcute]slo?"
}], "Exercise",
 CellChangeTimes->{{3.5720670470625*^9, 3.5720671254375*^9}, 
   3.57206728459375*^9},
 CellTags->{"Exercises", "Series Expansions"}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"N", "[", 
    RowBox[{"f", "[", 
     RowBox[{"10", ",", "x"}], "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5783060993125*^9, 3.5783061415625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1295.9563429330049`"}], ",", 
   RowBox[{"-", "396.5636688452582`"}], ",", 
   RowBox[{"-", "104.06959696795505`"}], ",", 
   RowBox[{"-", "22.480015294466764`"}], ",", 
   RowBox[{"-", "3.7658845723646515`"}], ",", 
   RowBox[{"-", "0.4464088234702809`"}], ",", 
   RowBox[{"-", "0.032141211587887186`"}], ",", 
   RowBox[{"-", "0.0010566105424116845`"}], ",", 
   RowBox[{"-", "8.366274727056311`*^-6"}], ",", 
   RowBox[{"-", "2.0762526142803495`*^-9"}], ",", "0.`", ",", 
   RowBox[{"-", "2.0762526142803495`*^-9"}], ",", 
   RowBox[{"-", "8.366274727056311`*^-6"}], ",", 
   RowBox[{"-", "0.0010566105424116845`"}], ",", 
   RowBox[{"-", "0.032141211587887186`"}], ",", 
   RowBox[{"-", "0.4464088234702809`"}], ",", 
   RowBox[{"-", "3.7658845723646515`"}], ",", 
   RowBox[{"-", "22.480015294466764`"}], ",", 
   RowBox[{"-", "104.06959696795505`"}], ",", 
   RowBox[{"-", "396.5636688452582`"}], ",", 
   RowBox[{"-", "1295.9563429330049`"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.57830611734375*^9, 3.578306142921875*^9}, 
   3.578306256375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "[", 
  RowBox[{"10", ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.57830627284375*^9, 3.578306276859375*^9}}],

Cell[BoxData[
 RowBox[{"1", "-", 
  FractionBox[
   SuperscriptBox["x", "2"], "2"], "+", 
  FractionBox[
   SuperscriptBox["x", "4"], "24"], "-", 
  FractionBox[
   SuperscriptBox["x", "6"], "720"], "+", 
  FractionBox[
   SuperscriptBox["x", "8"], "40320"], "-", 
  FractionBox[
   SuperscriptBox["x", "10"], "3628800"], "-", 
  RowBox[{"Cos", "[", "x", "]"}]}]], "Output",
 CellChangeTimes->{3.578306278375*^9}]
}, Open  ]],

Cell[BoxData[""], "NonPrintButton",
 CellChangeTimes->{3.572067156*^9}],

Cell[TextData[{
 "N\[AAcute]sleduje dal\[SHacek]\[IAcute] funkce ",
 Cell[BoxData[
  RowBox[{"g", "[", 
   RowBox[{"n", ",", "x"}], "]"}]]],
 ", kter\[AAcute] vrac\[IAcute] rozd\[IAcute]l mezi ",
 Cell[BoxData[
  RowBox[{"Cos", "[", "x", "]"}]]],
 " a rozvoj ",
 StyleBox["n", "MR"],
 " -t\[EAcute]ho stupn\[EHacek] funkce ",
 Cell[BoxData[
  RowBox[{"Cos", "[", "x", "]"}]]],
 " v okol\[IAcute] ",
 StyleBox["x", "MR"],
 ". Tato definice je podobn\[AAcute] definici funkce ",
 Cell[BoxData[
  RowBox[{"f", "[", 
   RowBox[{"n", ",", "x"}], "]"}]]],
 " s t\[IAcute]m, \[ZHacek]e prom\[EHacek]nn\[AAcute] ",
 StyleBox["t", "MR"],
 " nen\[IAcute] pou\[ZHacek]ita. Bude tato funkce pracovat, pokud argument ",
 StyleBox["x", "MR"],
 " v ",
 Cell[BoxData[
  RowBox[{"g", "[", 
   RowBox[{"n", ",", "x"}], "]"}]]],
 " bude \[CAcute]\[IAcute]slo?"
}], "Exercise",
 CellChangeTimes->{{3.572067288296875*^9, 3.572067467671875*^9}},
 CellTags->{"Exercises", "Series Expansions"}],

Cell[BoxData[
 RowBox[{"Clear", "[", "g", "]"}]], "Input",
 CellChangeTimes->{{3.578306379625*^9, 3.578306382625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "[", 
   RowBox[{"n_", ",", "x_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"Normal", "[", 
    RowBox[{"Series", "[", 
     RowBox[{
      RowBox[{"Cos", "[", "x", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}], "-", 
   RowBox[{"Cos", "[", "x", "]"}]}]}]], "Input",
 CellTags->{"Exercises", "Series Expansions"}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"g", "[", 
  RowBox[{"10", ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.578306408546875*^9, 3.57830641096875*^9}}],

Cell[BoxData[
 RowBox[{"1", "-", 
  FractionBox[
   SuperscriptBox["x", "2"], "2"], "+", 
  FractionBox[
   SuperscriptBox["x", "4"], "24"], "-", 
  FractionBox[
   SuperscriptBox["x", "6"], "720"], "+", 
  FractionBox[
   SuperscriptBox["x", "8"], "40320"], "-", 
  FractionBox[
   SuperscriptBox["x", "10"], "3628800"], "-", 
  RowBox[{"Cos", "[", "x", "]"}]}]], "Output",
 CellChangeTimes->{3.578306412234375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"g", "[", 
  RowBox[{"10", ",", "5"}], "]"}]], "Input",
 CellChangeTimes->{{3.578306413875*^9, 3.578306416890625*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "ivar"}], "MessageName"], ":", 
  " ", "\<\"\[NoBreak]\\!\\(5\\)\[NoBreak] is not a valid variable. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/ivar\\\", \
ButtonNote -> \\\"General::ivar\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.57830641753125*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "ivar"}], "MessageName"], ":", 
  " ", "\<\"\[NoBreak]\\!\\(5\\)\[NoBreak] is not a valid variable. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/ivar\\\", \
ButtonNote -> \\\"General::ivar\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5783064175625*^9}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.5783064175625*^9}]
}, Open  ]],

Cell[BoxData[""], "NonPrintButton",
 CellChangeTimes->{3.572067488828125*^9}],

Cell[TextData[{
 "Pou\[ZHacek]ijte funkci ",
 Cell[BoxData[
  RowBox[{"f", "[", 
   RowBox[{"n", ",", "x"}], "]"}]]],
 " (postupem pokus-omyl nebo pomoc\[IAcute] Table a ListPlot) k nalezen\
\[IAcute] nejmen\[SHacek]\[IAcute] hodnoty ",
 StyleBox["n", "MR"],
 " (v\[EHacek]t\[SHacek]\[IAcute] ne\[ZHacek]t 1) pro kterou je absolutn\
\[IAcute] hodnota ",
 Cell[BoxData[
  RowBox[{"f", "[", 
   RowBox[{"n", ",", "20"}], "]"}]]],
 " men\[SHacek]\[IAcute] ne\[ZHacek] 1."
}], "Exercise",
 CellChangeTimes->{{3.57206757959375*^9, 3.572067654703125*^9}, {
  3.572067899359375*^9, 3.57206791278125*^9}},
 CellTags->{"Exercises", "Series Expansions"}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"n", ",", 
      RowBox[{"N", "[", 
       RowBox[{"Abs", "[", 
        RowBox[{"f", "[", 
         RowBox[{"n", ",", "20"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "2", ",", "100"}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.578369164703125*^9, 3.578369205640625*^9}, {
  3.57836928175*^9, 3.578369282296875*^9}, {3.578369318125*^9, 
  3.57836936365625*^9}, {3.578369397390625*^9, 3.578369448546875*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.24720000000000017`, 0.24, 0.6], PointBox[CompressedData["
1:eJxd0WtIk2EYxvG7QaVRGKQmNkilLDqYzkOWTu95PqzSpU6NjcjNUrB1MKMv
8STsUyBBSS4QCvpUBGYQSUKDKQodQag+mK0sCiRw4IKEpOlzT+h6YYwf//d6
n3cs9ZTH5jYQUVvks/wtFzcMGw1xv86wZgx4MyeN+0wlpSPieHAS/wiNJLRu
XxAbwSkcs8VhaJ9OsWingXfw9YSQ2VFnEaeDd3PnhY5a72+7eA94H/+8k7ip
6dNpcQY4k/+8npy9On9enAU2sXn9zOLLbZfE2eAc3rkQPzG4dFGcC87jdufa
DvcBj/ggOJ9f9D8qCbe5xIfAh7m7rWvIMdwkLgAXck5FwNM4US42g4vY2Zfo
fZNrEheDmX1dD72ByWRtBSYLO3uzptIur5EOphJ2Zc7d2mr/pv9PBaZSvvk+
uKu7elw6mMp4Q8bi/lep96WDqZzvWX32cM016WCq4MBIQfpc8gnpYKrk8MeW
s3t7sqWDqYqDo6a/1iex0sFUzVe+j+X21X8u1h1MNVw1H9Of9+CxdDDVctBv
GSxTvdLBZGVa98H1JdYmHUxHmAbGAhs7U6SD6SiTmn33NjRXpDuYjkV+R35w
yfpUOpjqIj45Y3imtBmslh05ZKBS2w+m+mWrr+442YPVisn9fMqs92Cyrfhc
z21tBitt8rTKHkzHtdkoe7AS03Sh3oOpQXxXm8Eq6hujeg+mRrFcDFZRR/dg
aoI9WIH9YLJHnyfvD1arlvPB1Ax7sGr+/34/mFpW7/8HOh5UPQ==
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0.},
  Method->{},
  PlotRange->{{0, 100.}, {-5.551115123125783*^-17, 7.1364271828669915`*^6}},
  PlotRangeClipping->True,
  PlotRangePadding->{{2., 2.}, {142728.54365733985`, 
   142728.54365733985`}}]], "Output",
 CellChangeTimes->{{3.578369189671875*^9, 3.5783692063125*^9}, 
   3.578369283125*^9, {3.578369319875*^9, 3.578369334640625*^9}, 
   3.5783693666875*^9, {3.578369399*^9, 3.578369450421875*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"n", ",", 
      RowBox[{"N", "[", 
       RowBox[{"Abs", "[", 
        RowBox[{"f", "[", 
         RowBox[{"n", ",", "20"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "2", ",", "5"}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.578369470328125*^9, 3.5783694711875*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.24720000000000017`, 0.24, 0.6], 
    PointBox[{{2., 199.4080820618134}, {3., 199.4080820618134}, {4., 
     6467.258584604853}, {5., 6467.258584604853}}]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{2., 0},
  Method->{},
  PlotRange->{{2., 5.}, {0, 6467.258584604853}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.06, 0.06}, {129.34517169209707`, 
   129.34517169209707`}}]], "Output",
 CellChangeTimes->{3.578369472640625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"n", ",", 
        RowBox[{"N", "[", 
         RowBox[{"Abs", "[", 
          RowBox[{"f", "[", 
           RowBox[{"n", ",", "20"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n", ",", "k", ",", 
        RowBox[{"k", "+", "20"}]}], "}"}]}], "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", "40", ",", "60", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.578369493453125*^9, 3.578369593890625*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`k$$ = 45, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`k$$], 40, 60, 1}}, Typeset`size$$ = {
    720., {222., 242.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`k$8677$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`k$$ = 40}, 
      "ControllerVariables" :> {
        Hold[$CellContext`k$$, $CellContext`k$8677$$, 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" :> ListPlot[
        Table[{$CellContext`n, 
          N[
           Abs[
            $CellContext`f[$CellContext`n, 
             20]]]}, {$CellContext`n, $CellContext`k$$, $CellContext`k$$ + 
          20}]], "Specifications" :> {{$CellContext`k$$, 40, 60, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{808., {319., 330.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.5783694976875*^9, 3.57836951340625*^9}, {
  3.578369571546875*^9, 3.57836959503125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"n", ",", 
      RowBox[{"N", "[", 
       RowBox[{"Abs", "[", 
        RowBox[{"f", "[", 
         RowBox[{"n", ",", "20"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "48", ",", "51"}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.578369636921875*^9, 3.57836965153125*^9}, {
  3.578369711046875*^9, 3.578369726875*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.24720000000000017`, 0.24, 0.6], 
    PointBox[{{48., 3.212549188719649}, {49., 3.212549188719649}, {50., 
     0.4893527531708837}, {51., 0.4893527531708837}}]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{48., 0},
  Method->{},
  PlotRange->{{48., 51.}, {0, 3.212549188719649}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.06, 0.06}, {0.06425098377439298, 
   0.06425098377439298}}]], "Output",
 CellChangeTimes->{
  3.5783696523125*^9, {3.57836971365625*^9, 3.57836972778125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"n", ",", 
     RowBox[{"N", "[", 
      RowBox[{"Abs", "[", 
       RowBox[{"f", "[", 
        RowBox[{"n", ",", "20"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "48", ",", "51"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.578369758296875*^9, 3.578369760609375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"48", ",", "3.212549188719649`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"49", ",", "3.212549188719649`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"50", ",", "0.4893527531708837`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51", ",", "0.4893527531708837`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.578369688109375*^9, 3.578369761359375*^9}]
}, Open  ]],

Cell["\<\
Nejmen\[SHacek]\[IAcute] n, pro kter\[EAcute] je f[n,x]<1 je 50.\
\>", "Text",
 CellChangeTimes->{{3.578369775984375*^9, 3.57836981928125*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.57836925296875*^9, 3.578369270765625*^9}}],

Cell["", "Spacer"]
}, Open  ]]
},
WindowSize->{1912, 1058},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification->2.,
FrontEndVersion->"9.0 for Microsoft Windows (32-bit) (November 20, 2012)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Exercises"->{
  Cell[579, 22, 225, 3, 159, "Section",
   CounterAssignments->{{"Chapter", 4}, {"ExerciseNumber", 0}},
   CellTags->"Exercises"],
  Cell[807, 27, 218, 3, 61, "ExerciseHeading",
   CellTags->{"Exercises", "Solving Equations Ex"}],
  Cell[1028, 32, 466, 15, 43, "Exercise",
   CellTags->{"Exercises", "Solving Equations Ex"}],
  Cell[2698, 94, 651, 15, 72, "Exercise",
   CellTags->{"Exercises", "Solving Equations Ex"}],
  Cell[3352, 111, 322, 10, 60, "Input",
   CellTags->{"Exercises", "Solving Equations Ex"}],
  Cell[4760, 166, 228, 3, 61, "ExerciseHeading",
   CellTags->{"Exercises", "Rational Functions"}],
  Cell[4991, 171, 598, 10, 72, "Exercise",
   CellTags->{"Exercises", "Rational Functions"}],
  Cell[5614, 185, 283, 9, 60, "Input",
   CellTags->{"Exercises", "Rational Functions"}],
  Cell[5900, 196, 395, 13, 81, "Output",
   CellTags->{"Exercises", "Rational Functions"}],
  Cell[7139, 243, 109, 2, 43, "Exercise",
   CellTags->{"Exercises", "Rational Functions"}],
  Cell[7251, 247, 619, 12, 43, "Exercise",
   CellTags->{"Exercises", "Rational Functions"}],
  Cell[8553, 287, 226, 3, 61, "ExerciseHeading",
   CellTags->{"Exercises", "Using Assumptions"}],
  Cell[8782, 292, 574, 15, 44, "Exercise",
   CellTags->{"Exercises", "Using Assumptions"}],
  Cell[9381, 311, 236, 7, 60, "Input",
   CellTags->{"Exercises", "Using Assumptions"}],
  Cell[9620, 320, 269, 8, 75, "Output",
   CellTags->{"Exercises", "Using Assumptions"}],
  Cell[11132, 377, 534, 15, 44, "Exercise",
   CellTags->{"Exercises", "Using Assumptions"}],
  Cell[11691, 396, 353, 11, 60, "Input",
   CellTags->{"Exercises", "Using Assumptions"}],
  Cell[12047, 409, 254, 7, 59, "Output",
   CellTags->{"Exercises", "Using Assumptions"}],
  Cell[14090, 486, 300, 4, 61, "ExerciseHeading",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[14393, 492, 492, 9, 98, "Text",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[14888, 503, 367, 8, 44, "Exercise",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[15405, 519, 472, 14, 60, "Input",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[15880, 535, 358, 10, 101, "Output",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[16253, 548, 827, 16, 100, "Text",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[17083, 566, 520, 14, 44, "Exercise",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[17628, 584, 488, 16, 60, "Input",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[18119, 602, 164, 2, 59, "Output",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[18298, 607, 502, 9, 44, "Exercise",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[18825, 620, 216, 6, 60, "Input",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[19044, 628, 165, 2, 59, "Output",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[19304, 636, 708, 16, 100, "Text",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[20015, 654, 531, 15, 44, "Exercise",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[20571, 673, 590, 19, 60, "Input",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[21164, 694, 228, 5, 59, "Output",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[21407, 702, 553, 15, 44, "Exercise",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[22134, 726, 407, 11, 60, "Input",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[22544, 739, 527, 16, 64, "Output",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[29863, 946, 287, 7, 90, "ExerciseHeading",
   CellTags->{"Exercises", "Solving Linear Equations"}],
  Cell[30153, 955, 644, 18, 73, "Exercise",
   CellTags->{"Exercises", "Solving Linear Equations"}],
  Cell[30992, 982, 594, 17, 60, "Input",
   CellTags->{"Exercises", "Solving Linear Equations"}],
  Cell[31589, 1001, 574, 17, 59, "Output",
   CellTags->{"Exercises", "Solving Linear Equations"}],
  Cell[32200, 1023, 302, 8, 60, "Input",
   CellTags->{"Exercises", "Solving Linear Equations"}],
  Cell[32505, 1033, 564, 17, 59, "Output",
   CellTags->{"Exercises", "Solving Linear Equations"}],
  Cell[33084, 1053, 378, 10, 44, "Exercise",
   CellTags->{"Exercises", "Solving Linear Equations"}],
  Cell[34481, 1103, 825, 21, 73, "Exercise",
   CellTags->{"Exercises", "Solving Linear Equations"}],
  Cell[36280, 1163, 223, 3, 61, "ExerciseHeading",
   CellTags->{"Exercises", "Series Expansions"}],
  Cell[36506, 1168, 1004, 24, 74, "Exercise",
   CellTags->{"Exercises", "Series Expansions"}],
  Cell[37535, 1196, 249, 7, 60, "Input",
   CellTags->{"Exercises", "Series Expansions"}],
  Cell[37787, 1205, 819, 26, 85, "Output",
   CellTags->{"Exercises", "Series Expansions"}],
  Cell[38643, 1236, 134, 3, 60, "Input",
   CellTags->{"Exercises", "Series Expansions"}],
  Cell[38780, 1241, 423, 13, 85, "Output",
   CellTags->{"Exercises", "Series Expansions"}],
  Cell[39240, 1259, 271, 8, 60, "Input",
   CellTags->{"Exercises", "Series Expansions"}],
  Cell[39514, 1269, 20610, 347, 468, "Output",
   CellTags->{"Exercises", "Series Expansions"}],
  Cell[60219, 1622, 785, 19, 74, "Exercise",
   CellTags->{"Exercises", "Series Expansions"}],
  Cell[61029, 1645, 377, 10, 60, "Input",
   CellTags->{"Exercises", "Series Expansions"}],
  Cell[61409, 1657, 463, 14, 85, "Output",
   CellTags->{"Exercises", "Series Expansions"}],
  Cell[62513, 1698, 555, 17, 44, "Exercise",
   CellTags->{"Exercises", "Series Expansions"}],
  Cell[63194, 1721, 723, 20, 60, "Input",
   CellTags->{"Exercises", "Series Expansions"}],
  Cell[63920, 1743, 570, 18, 73, "Exercise",
   CellTags->{"Exercises", "Series Expansions"}],
  Cell[66629, 1829, 970, 30, 74, "Exercise",
   CellTags->{"Exercises", "Series Expansions"}],
  Cell[67723, 1865, 399, 12, 60, "Input",
   CellTags->{"Exercises", "Series Expansions"}],
  Cell[69900, 1936, 644, 17, 44, "Exercise",
   CellTags->{"Exercises", "Series Expansions"}]},
 "Solving Equations Ex"->{
  Cell[807, 27, 218, 3, 61, "ExerciseHeading",
   CellTags->{"Exercises", "Solving Equations Ex"}],
  Cell[1028, 32, 466, 15, 43, "Exercise",
   CellTags->{"Exercises", "Solving Equations Ex"}],
  Cell[2698, 94, 651, 15, 72, "Exercise",
   CellTags->{"Exercises", "Solving Equations Ex"}],
  Cell[3352, 111, 322, 10, 60, "Input",
   CellTags->{"Exercises", "Solving Equations Ex"}]},
 "Rational Functions"->{
  Cell[4760, 166, 228, 3, 61, "ExerciseHeading",
   CellTags->{"Exercises", "Rational Functions"}],
  Cell[4991, 171, 598, 10, 72, "Exercise",
   CellTags->{"Exercises", "Rational Functions"}],
  Cell[5614, 185, 283, 9, 60, "Input",
   CellTags->{"Exercises", "Rational Functions"}],
  Cell[5900, 196, 395, 13, 81, "Output",
   CellTags->{"Exercises", "Rational Functions"}],
  Cell[7139, 243, 109, 2, 43, "Exercise",
   CellTags->{"Exercises", "Rational Functions"}],
  Cell[7251, 247, 619, 12, 43, "Exercise",
   CellTags->{"Exercises", "Rational Functions"}]},
 "Using Assumptions"->{
  Cell[8553, 287, 226, 3, 61, "ExerciseHeading",
   CellTags->{"Exercises", "Using Assumptions"}],
  Cell[8782, 292, 574, 15, 44, "Exercise",
   CellTags->{"Exercises", "Using Assumptions"}],
  Cell[9381, 311, 236, 7, 60, "Input",
   CellTags->{"Exercises", "Using Assumptions"}],
  Cell[9620, 320, 269, 8, 75, "Output",
   CellTags->{"Exercises", "Using Assumptions"}],
  Cell[11132, 377, 534, 15, 44, "Exercise",
   CellTags->{"Exercises", "Using Assumptions"}],
  Cell[11691, 396, 353, 11, 60, "Input",
   CellTags->{"Exercises", "Using Assumptions"}],
  Cell[12047, 409, 254, 7, 59, "Output",
   CellTags->{"Exercises", "Using Assumptions"}]},
 "Checking Symbolic Results"->{
  Cell[14090, 486, 300, 4, 61, "ExerciseHeading",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[14393, 492, 492, 9, 98, "Text",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[14888, 503, 367, 8, 44, "Exercise",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[15405, 519, 472, 14, 60, "Input",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[15880, 535, 358, 10, 101, "Output",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[16253, 548, 827, 16, 100, "Text",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[17083, 566, 520, 14, 44, "Exercise",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[17628, 584, 488, 16, 60, "Input",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[18119, 602, 164, 2, 59, "Output",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[18298, 607, 502, 9, 44, "Exercise",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[18825, 620, 216, 6, 60, "Input",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[19044, 628, 165, 2, 59, "Output",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[19304, 636, 708, 16, 100, "Text",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[20015, 654, 531, 15, 44, "Exercise",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[20571, 673, 590, 19, 60, "Input",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[21164, 694, 228, 5, 59, "Output",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[21407, 702, 553, 15, 44, "Exercise",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[22134, 726, 407, 11, 60, "Input",
   CellTags->{"Exercises", "Checking Symbolic Results"}],
  Cell[22544, 739, 527, 16, 64, "Output",
   CellTags->{"Exercises", "Checking Symbolic Results"}]},
 "Solving Linear Equations"->{
  Cell[29863, 946, 287, 7, 90, "ExerciseHeading",
   CellTags->{"Exercises", "Solving Linear Equations"}],
  Cell[30153, 955, 644, 18, 73, "Exercise",
   CellTags->{"Exercises", "Solving Linear Equations"}],
  Cell[30992, 982, 594, 17, 60, "Input",
   CellTags->{"Exercises", "Solving Linear Equations"}],
  Cell[31589, 1001, 574, 17, 59, "Output",
   CellTags->{"Exercises", "Solving Linear Equations"}],
  Cell[32200, 1023, 302, 8, 60, "Input",
   CellTags->{"Exercises", "Solving Linear Equations"}],
  Cell[32505, 1033, 564, 17, 59, "Output",
   CellTags->{"Exercises", "Solving Linear Equations"}],
  Cell[33084, 1053, 378, 10, 44, "Exercise",
   CellTags->{"Exercises", "Solving Linear Equations"}],
  Cell[34481, 1103, 825, 21, 73, "Exercise",
   CellTags->{"Exercises", "Solving Linear Equations"}]},
 "Series Expansions"->{
  Cell[36280, 1163, 223, 3, 61, "ExerciseHeading",
   CellTags->{"Exercises", "Series Expansions"}],
  Cell[36506, 1168, 1004, 24, 74, "Exercise",
   CellTags->{"Exercises", "Series Expansions"}],
  Cell[37535, 1196, 249, 7, 60, "Input",
   CellTags->{"Exercises", "Series Expansions"}],
  Cell[37787, 1205, 819, 26, 85, "Output",
   CellTags->{"Exercises", "Series Expansions"}],
  Cell[38643, 1236, 134, 3, 60, "Input",
   CellTags->{"Exercises", "Series Expansions"}],
  Cell[38780, 1241, 423, 13, 85, "Output",
   CellTags->{"Exercises", "Series Expansions"}],
  Cell[39240, 1259, 271, 8, 60, "Input",
   CellTags->{"Exercises", "Series Expansions"}],
  Cell[39514, 1269, 20610, 347, 468, "Output",
   CellTags->{"Exercises", "Series Expansions"}],
  Cell[60219, 1622, 785, 19, 74, "Exercise",
   CellTags->{"Exercises", "Series Expansions"}],
  Cell[61029, 1645, 377, 10, 60, "Input",
   CellTags->{"Exercises", "Series Expansions"}],
  Cell[61409, 1657, 463, 14, 85, "Output",
   CellTags->{"Exercises", "Series Expansions"}],
  Cell[62513, 1698, 555, 17, 44, "Exercise",
   CellTags->{"Exercises", "Series Expansions"}],
  Cell[63194, 1721, 723, 20, 60, "Input",
   CellTags->{"Exercises", "Series Expansions"}],
  Cell[63920, 1743, 570, 18, 73, "Exercise",
   CellTags->{"Exercises", "Series Expansions"}],
  Cell[66629, 1829, 970, 30, 74, "Exercise",
   CellTags->{"Exercises", "Series Expansions"}],
  Cell[67723, 1865, 399, 12, 60, "Input",
   CellTags->{"Exercises", "Series Expansions"}],
  Cell[69900, 1936, 644, 17, 44, "Exercise",
   CellTags->{"Exercises", "Series Expansions"}]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Exercises", 78581, 2184},
 {"Solving Equations Ex", 84641, 2310},
 {"Rational Functions", 85050, 2319},
 {"Using Assumptions", 85638, 2332},
 {"Checking Symbolic Results", 86318, 2347},
 {"Solving Linear Equations", 88253, 2386},
 {"Series Expansions", 89086, 2403}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 225, 3, 159, "Section",
 CounterAssignments->{{"Chapter", 4}, {"ExerciseNumber", 0}},
 CellTags->"Exercises"],
Cell[807, 27, 218, 3, 61, "ExerciseHeading",
 CellTags->{"Exercises", "Solving Equations Ex"}],
Cell[1028, 32, 466, 15, 43, "Exercise",
 CellTags->{"Exercises", "Solving Equations Ex"}],
Cell[1497, 49, 175, 4, 60, "Input"],
Cell[CellGroupData[{
Cell[1697, 57, 302, 9, 60, "Input"],
Cell[2002, 68, 681, 23, 91, "Output"]
}, Open  ]],
Cell[2698, 94, 651, 15, 72, "Exercise",
 CellTags->{"Exercises", "Solving Equations Ex"}],
Cell[3352, 111, 322, 10, 60, "Input",
 CellTags->{"Exercises", "Solving Equations Ex"}],
Cell[CellGroupData[{
Cell[3699, 125, 236, 6, 60, "Input"],
Cell[3938, 133, 340, 11, 59, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4315, 149, 123, 2, 60, "Input"],
Cell[4441, 153, 224, 7, 59, "Output"]
}, Open  ]],
Cell[4680, 163, 77, 1, 43, "NonPrintButton"],
Cell[4760, 166, 228, 3, 61, "ExerciseHeading",
 CellTags->{"Exercises", "Rational Functions"}],
Cell[4991, 171, 598, 10, 72, "Exercise",
 CellTags->{"Exercises", "Rational Functions"}],
Cell[CellGroupData[{
Cell[5614, 185, 283, 9, 60, "Input",
 CellTags->{"Exercises", "Rational Functions"}],
Cell[5900, 196, 395, 13, 81, "Output",
 CellTags->{"Exercises", "Rational Functions"}]
}, Open  ]],
Cell[CellGroupData[{
Cell[6332, 214, 169, 3, 60, "Input"],
Cell[6504, 219, 620, 21, 90, "Output"]
}, Open  ]],
Cell[7139, 243, 109, 2, 43, "Exercise",
 CellTags->{"Exercises", "Rational Functions"}],
Cell[7251, 247, 619, 12, 43, "Exercise",
 CellTags->{"Exercises", "Rational Functions"}],
Cell[CellGroupData[{
Cell[7895, 263, 170, 3, 60, "Input"],
Cell[8068, 268, 391, 13, 81, "Output"]
}, Open  ]],
Cell[8474, 284, 76, 1, 43, "NonPrintButton"],
Cell[8553, 287, 226, 3, 61, "ExerciseHeading",
 CellTags->{"Exercises", "Using Assumptions"}],
Cell[8782, 292, 574, 15, 44, "Exercise",
 CellTags->{"Exercises", "Using Assumptions"}],
Cell[CellGroupData[{
Cell[9381, 311, 236, 7, 60, "Input",
 CellTags->{"Exercises", "Using Assumptions"}],
Cell[9620, 320, 269, 8, 75, "Output",
 CellTags->{"Exercises", "Using Assumptions"}]
}, Open  ]],
Cell[CellGroupData[{
Cell[9926, 333, 290, 8, 60, "Input"],
Cell[10219, 343, 222, 7, 75, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10478, 355, 440, 13, 60, "Input"],
Cell[10921, 370, 93, 1, 59, "Output"]
}, Open  ]],
Cell[11029, 374, 100, 1, 43, "NonPrintButton"],
Cell[11132, 377, 534, 15, 44, "Exercise",
 CellTags->{"Exercises", "Using Assumptions"}],
Cell[CellGroupData[{
Cell[11691, 396, 353, 11, 60, "Input",
 CellTags->{"Exercises", "Using Assumptions"}],
Cell[12047, 409, 254, 7, 59, "Output",
 CellTags->{"Exercises", "Using Assumptions"}]
}, Open  ]],
Cell[CellGroupData[{
Cell[12338, 421, 522, 16, 60, "Input"],
Cell[12863, 439, 258, 8, 59, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13158, 452, 552, 18, 60, "Input"],
Cell[13713, 472, 258, 8, 59, "Output"]
}, Open  ]],
Cell[13986, 483, 101, 1, 43, "NonPrintButton"],
Cell[14090, 486, 300, 4, 61, "ExerciseHeading",
 CellTags->{"Exercises", "Checking Symbolic Results"}],
Cell[14393, 492, 492, 9, 98, "Text",
 CellTags->{"Exercises", "Checking Symbolic Results"}],
Cell[14888, 503, 367, 8, 44, "Exercise",
 CellTags->{"Exercises", "Checking Symbolic Results"}],
Cell[15258, 513, 122, 2, 60, "Input"],
Cell[CellGroupData[{
Cell[15405, 519, 472, 14, 60, "Input",
 CellTags->{"Exercises", "Checking Symbolic Results"}],
Cell[15880, 535, 358, 10, 101, "Output",
 CellTags->{"Exercises", "Checking Symbolic Results"}]
}, Open  ]],
Cell[16253, 548, 827, 16, 100, "Text",
 CellTags->{"Exercises", "Checking Symbolic Results"}],
Cell[17083, 566, 520, 14, 44, "Exercise",
 CellTags->{"Exercises", "Checking Symbolic Results"}],
Cell[CellGroupData[{
Cell[17628, 584, 488, 16, 60, "Input",
 CellTags->{"Exercises", "Checking Symbolic Results"}],
Cell[18119, 602, 164, 2, 59, "Output",
 CellTags->{"Exercises", "Checking Symbolic Results"}]
}, Open  ]],
Cell[18298, 607, 502, 9, 44, "Exercise",
 CellTags->{"Exercises", "Checking Symbolic Results"}],
Cell[CellGroupData[{
Cell[18825, 620, 216, 6, 60, "Input",
 CellTags->{"Exercises", "Checking Symbolic Results"}],
Cell[19044, 628, 165, 2, 59, "Output",
 CellTags->{"Exercises", "Checking Symbolic Results"}]
}, Open  ]],
Cell[19224, 633, 77, 1, 43, "NonPrintButton"],
Cell[19304, 636, 708, 16, 100, "Text",
 CellTags->{"Exercises", "Checking Symbolic Results"}],
Cell[20015, 654, 531, 15, 44, "Exercise",
 CellTags->{"Exercises", "Checking Symbolic Results"}],
Cell[CellGroupData[{
Cell[20571, 673, 590, 19, 60, "Input",
 CellTags->{"Exercises", "Checking Symbolic Results"}],
Cell[21164, 694, 228, 5, 59, "Output",
 CellTags->{"Exercises", "Checking Symbolic Results"}]
}, Open  ]],
Cell[21407, 702, 553, 15, 44, "Exercise",
 CellTags->{"Exercises", "Checking Symbolic Results"}],
Cell[21963, 719, 146, 3, 60, "Input"],
Cell[CellGroupData[{
Cell[22134, 726, 407, 11, 60, "Input",
 CellTags->{"Exercises", "Checking Symbolic Results"}],
Cell[22544, 739, 527, 16, 64, "Output",
 CellTags->{"Exercises", "Checking Symbolic Results"}]
}, Open  ]],
Cell[CellGroupData[{
Cell[23108, 760, 636, 20, 60, "Input"],
Cell[23747, 782, 209, 5, 59, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23993, 792, 820, 24, 60, "Input"],
Cell[24816, 818, 1991, 45, 393, "Output"]
}, Open  ]],
Cell[26822, 866, 180, 5, 98, "Text"],
Cell[CellGroupData[{
Cell[27027, 875, 862, 26, 99, "Input"],
Cell[27892, 903, 1956, 40, 313, "Output"]
}, Open  ]],
Cell[29863, 946, 287, 7, 90, "ExerciseHeading",
 CellTags->{"Exercises", "Solving Linear Equations"}],
Cell[30153, 955, 644, 18, 73, "Exercise",
 CellTags->{"Exercises", "Solving Linear Equations"}],
Cell[30800, 975, 167, 3, 60, "Input"],
Cell[CellGroupData[{
Cell[30992, 982, 594, 17, 60, "Input",
 CellTags->{"Exercises", "Solving Linear Equations"}],
Cell[31589, 1001, 574, 17, 59, "Output",
 CellTags->{"Exercises", "Solving Linear Equations"}]
}, Open  ]],
Cell[CellGroupData[{
Cell[32200, 1023, 302, 8, 60, "Input",
 CellTags->{"Exercises", "Solving Linear Equations"}],
Cell[32505, 1033, 564, 17, 59, "Output",
 CellTags->{"Exercises", "Solving Linear Equations"}]
}, Open  ]],
Cell[33084, 1053, 378, 10, 44, "Exercise",
 CellTags->{"Exercises", "Solving Linear Equations"}],
Cell[CellGroupData[{
Cell[33487, 1067, 221, 5, 60, "Input"],
Cell[33711, 1074, 755, 26, 86, "Output"]
}, Open  ]],
Cell[34481, 1103, 825, 21, 73, "Exercise",
 CellTags->{"Exercises", "Solving Linear Equations"}],
Cell[CellGroupData[{
Cell[35331, 1128, 268, 6, 60, "Input"],
Cell[35602, 1136, 583, 21, 86, "Output"]
}, Open  ]],
Cell[36200, 1160, 77, 1, 43, "NonPrintButton"],
Cell[36280, 1163, 223, 3, 61, "ExerciseHeading",
 CellTags->{"Exercises", "Series Expansions"}],
Cell[36506, 1168, 1004, 24, 74, "Exercise",
 CellTags->{"Exercises", "Series Expansions"}],
Cell[CellGroupData[{
Cell[37535, 1196, 249, 7, 60, "Input",
 CellTags->{"Exercises", "Series Expansions"}],
Cell[37787, 1205, 819, 26, 85, "Output",
 CellTags->{"Exercises", "Series Expansions"}]
}, Open  ]],
Cell[CellGroupData[{
Cell[38643, 1236, 134, 3, 60, "Input",
 CellTags->{"Exercises", "Series Expansions"}],
Cell[38780, 1241, 423, 13, 85, "Output",
 CellTags->{"Exercises", "Series Expansions"}]
}, Open  ]],
Cell[CellGroupData[{
Cell[39240, 1259, 271, 8, 60, "Input",
 CellTags->{"Exercises", "Series Expansions"}],
Cell[39514, 1269, 20610, 347, 468, "Output",
 CellTags->{"Exercises", "Series Expansions"}]
}, Open  ]],
Cell[60139, 1619, 77, 1, 43, "NonPrintButton"],
Cell[60219, 1622, 785, 19, 74, "Exercise",
 CellTags->{"Exercises", "Series Expansions"}],
Cell[CellGroupData[{
Cell[61029, 1645, 377, 10, 60, "Input",
 CellTags->{"Exercises", "Series Expansions"}],
Cell[61409, 1657, 463, 14, 85, "Output",
 CellTags->{"Exercises", "Series Expansions"}]
}, Open  ]],
Cell[CellGroupData[{
Cell[61909, 1676, 294, 8, 60, "Input"],
Cell[62206, 1686, 212, 6, 59, "Output"]
}, Open  ]],
Cell[62433, 1695, 77, 1, 43, "NonPrintButton"],
Cell[62513, 1698, 555, 17, 44, "Exercise",
 CellTags->{"Exercises", "Series Expansions"}],
Cell[63071, 1717, 120, 2, 60, "Input"],
Cell[63194, 1721, 723, 20, 60, "Input",
 CellTags->{"Exercises", "Series Expansions"}],
Cell[63920, 1743, 570, 18, 73, "Exercise",
 CellTags->{"Exercises", "Series Expansions"}],
Cell[CellGroupData[{
Cell[64515, 1765, 311, 9, 60, "Input"],
Cell[64829, 1776, 1115, 24, 142, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[65981, 1805, 143, 3, 60, "Input"],
Cell[66127, 1810, 413, 13, 85, "Output"]
}, Open  ]],
Cell[66555, 1826, 71, 1, 43, "NonPrintButton"],
Cell[66629, 1829, 970, 30, 74, "Exercise",
 CellTags->{"Exercises", "Series Expansions"}],
Cell[67602, 1861, 118, 2, 60, "Input"],
Cell[67723, 1865, 399, 12, 60, "Input",
 CellTags->{"Exercises", "Series Expansions"}],
Cell[CellGroupData[{
Cell[68147, 1881, 143, 3, 60, "Input"],
Cell[68293, 1886, 416, 13, 85, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[68746, 1904, 141, 3, 60, "Input"],
Cell[68890, 1909, 421, 8, 43, "Message"],
Cell[69314, 1919, 420, 8, 43, "Message"],
Cell[69737, 1929, 68, 1, 59, "Output"]
}, Open  ]],
Cell[69820, 1933, 77, 1, 43, "NonPrintButton"],
Cell[69900, 1936, 644, 17, 44, "Exercise",
 CellTags->{"Exercises", "Series Expansions"}],
Cell[CellGroupData[{
Cell[70569, 1957, 565, 14, 60, "Input"],
Cell[71137, 1973, 1437, 28, 487, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[72611, 2006, 425, 12, 60, "Input"],
Cell[73039, 2020, 561, 14, 500, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[73637, 2039, 609, 17, 60, "Input"],
Cell[74249, 2058, 1737, 37, 706, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[76023, 2100, 474, 13, 60, "Input"],
Cell[76500, 2115, 615, 15, 507, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[77152, 2135, 385, 11, 60, "Input"],
Cell[77540, 2148, 427, 11, 84, "Output"]
}, Open  ]],
Cell[77982, 2162, 153, 3, 60, "Text"],
Cell[78138, 2167, 91, 1, 60, "Input"],
Cell[78232, 2170, 18, 0, 43, "Spacer"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)