(* 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[      4066,        135]
NotebookOptionsPosition[      3605,        116]
NotebookOutlinePosition[      4006,        133]
CellTagsIndexPosition[      3963,        130]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "Vy\:0159e\[SHacek]te soustavu rovnic soustava={E*x+Pi*y==",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SqrtBox["2"], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"Pi", "*", "x"}], "-", 
      RowBox[{"E", "*", "y"}]}], "\[Equal]", 
     SqrtBox["3"]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "}. V\[YAcute]sledek zobrazte jako destinn\[EAcute] \[CHacek]\[IAcute]slo. V\
\[YAcute]sledek dosa\:010fte do v\[YAcute]razu ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Pi]", "2"], "-", 
     SuperscriptBox["\[ExponentialE]", "2"]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ")*(x+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}}],

Cell[TextData[{
 "\nZave\:010fte funkce ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"g", 
     RowBox[{"(", "x", ")"}]}], "=", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"Cos", "(", "x", ")"}], ")"}], "2"]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "a ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"f", 
      RowBox[{"(", "x", ")"}]}], "=", 
     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]],
  FormatType->"TraditionalForm"],
 "pro x",
 "\[Element]<0,1.5>."
}], "Text",
 CellChangeTimes->{{3.503680347390625*^9, 3.50368050140625*^9}, {
  3.503680578875*^9, 3.5036806078125*^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["\<\
Pomoc\[IAcute] Table vytvo\:0159te  list dvojic {Cos[3fi],Sin[5fi]}, fi se \
pohybuje od 0 do 2*Pi s krokem Pi/120.
V\[YAcute]sledek zobrazte pomoc\[IAcute] ListPlot.\
\>", "Text",
 CellChangeTimes->{{3.503680951171875*^9, 3.503681060625*^9}, 
   3.503681126984375*^9}],

Cell["\<\
Pomoc\[IAcute] Table vytvo\:0159te  list dvojic {Cos[i* fi], Sin[j* fi]}, fi \
se pohybuje od 0 do 2*Pi s krokem Pi/n.
Pomoc\[IAcute] Manipulate a ListPlot zobrazte v\[YAcute]sledek pro lich\
\[AAcute] i,j <13 a n sud\[EAcute] mezi 20 a 100.

\
\>", "Text",
 CellChangeTimes->{{3.5036811750625*^9, 3.503681285640625*^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, 998, 26, 119, "Text"],
Cell[1546, 48, 900, 31, 111, "Text"],
Cell[2449, 81, 536, 15, 111, "Text"],
Cell[2988, 98, 279, 6, 111, "Text"],
Cell[3270, 106, 331, 8, 172, "Text"]
}
]
*)

(* End of internal cache information *)
