(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      4366,        140]
NotebookOptionsPosition[      3903,        121]
NotebookOutlinePosition[      4304,        138]
CellTagsIndexPosition[      4261,        135]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["\<\
Vy\:0159e\[SHacek]te soustavu rovnic soustava={2x+3y==13,3x-2y==17}. V\
\[YAcute]sledek zobrazte jako destinn\[EAcute] \[CHacek]\[IAcute]slo. V\
\[YAcute]sledek dosa\:010fte do v\[YAcute]razu (x+y)/y, nikoli jako desetinn\
\[EAcute] \[CHacek]\[IAcute]slo a pomoc\[IAcute] Simplify v\[YAcute]sledek \
zjednodu\[SHacek]te.\
\>", "Text",
 CellChangeTimes->{{3.503679822984375*^9, 3.5036799835*^9}, {
  3.50368008259375*^9, 3.503680167015625*^9}, {3.5036802193125*^9, 
  3.503680237984375*^9}, {3.503680291640625*^9, 3.503680309328125*^9}, {
  3.50397933934375*^9, 3.50397938796875*^9}}],

Cell[TextData[{
 "\nZave\:010fte funkce ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"g", 
     RowBox[{"(", "x", ")"}]}], "=", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"Sin", "(", "x", ")"}], ")"}], "2"]}], TraditionalForm]]],
 "a ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"f", "(", "x", ")"}], "=", 
     RowBox[{"1", "-", 
      RowBox[{"0.5", "*", 
       RowBox[{
        SuperscriptBox["x", "2"], ".", " ", "Funkce"}], " ", "zobrazte"}]}]}],
     ",", " ", 
    RowBox[{"popi\[SHacek]te", " ", "osy"}], ",", " ", 
    RowBox[{
    "tlust\:011b", " ", "a", " ", "barevn\:011b", " ", 
     "odli\[SHacek]en\:011b", " "}]}], TraditionalForm]]],
 "pro x",
 "\[Element]<0,1.5>."
}], "Text",
 CellChangeTimes->{{3.503680347390625*^9, 3.50368050140625*^9}, {
  3.503680578875*^9, 3.5036806078125*^9}, {3.503979437046875*^9, 
  3.503979443671875*^9}}],

Cell[TextData[{
 "\nPomoc\[IAcute] FindRoot najd\:011bte \:0159e\[SHacek]en\[IAcute] rovnice \
f[x]==g[x] a v\[YAcute]sledek dosa\:010fte do v\[YAcute]razu ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["10", "9"], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"f", "[", "x", "]"}], "-", 
      RowBox[{"g", "[", "x", "]"}]}], ")"}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "."
}], "Text",
 CellChangeTimes->{{3.503680704890625*^9, 3.503680769984375*^9}, {
  3.5036808216875*^9, 3.50368085978125*^9}}],

Cell[TextData[{
 "Pomoc\[IAcute] Table vytvo\:0159te  list dvojic ",
 Cell[BoxData[
  FormBox[
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"Cos", "[", 
       RowBox[{"2", " ", "fi"}], "]"}], "^", "3"}], ",", 
     SuperscriptBox[
      RowBox[{"Sin", "[", 
       RowBox[{"3", "fi"}], "]"}], "3"]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "}, fi se pohybuje od 0 do 2*Pi s krokem Pi/180.\nV\[YAcute]sledek zobrazte \
pomoc\[IAcute] ListPlot."
}], "Text",
 CellChangeTimes->{{3.503680951171875*^9, 3.503681060625*^9}, 
   3.503681126984375*^9, {3.503979533203125*^9, 3.50397954296875*^9}, {
   3.50397962890625*^9, 3.5039796345*^9}}],

Cell[TextData[{
 "Pomoc\[IAcute] Table vytvo\:0159te  list dvojic { Sin[j* ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"fi", "]"}], "3"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ",Cos[i* ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"fi", "]"}], "3"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "}, fi se pohybuje od 0 do 2*Pi s krokem Pi/(2n).\nPomoc\[IAcute] Manipulate \
a ListPlot zobrazte v\[YAcute]sledek pro lich\[AAcute] i,j <13 a n sud\
\[EAcute] mezi 40 a 100.\n\n"
}], "Text",
 CellChangeTimes->{{3.5036811750625*^9, 3.503681285640625*^9}, {
  3.50397958809375*^9, 3.503979625703125*^9}}]
},
WindowSize->{1026, 631},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
ShowSelection->True,
Magnification->1.8000001907348633`,
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 593, 10, 111, "Text"],
Cell[1141, 32, 895, 30, 111, "Text"],
Cell[2039, 64, 536, 15, 111, "Text"],
Cell[2578, 81, 664, 18, 115, "Text"],
Cell[3245, 101, 654, 18, 172, "Text"]
}
]
*)

(* End of internal cache information *)
