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

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

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     11376,        337]
NotebookOptionsPosition[     10326,        296]
NotebookOutlinePosition[     10685,        312]
CellTagsIndexPosition[     10642,        309]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Priklady k procviceni", "Title",
 CellChangeTimes->{{3.557459109066524*^9, 3.5574591210688057`*^9}, {
  3.5574594260066233`*^9, 3.557459436661005*^9}}],

Cell[CellGroupData[{

Cell["1) definovani funkce, graf", "Section",
 CellChangeTimes->{{3.557459137720277*^9, 3.557459166492176*^9}}],

Cell[CellGroupData[{

Cell[TextData[{
 "1) Zadefinujte funkci f takovou, \[ZHacek]e ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"f", "(", "x", ")"}], "=", 
    RowBox[{"sinh", "(", 
     SuperscriptBox["x", "2"]}]}], TraditionalForm]]],
 ") a vytiskn\[EHacek]te graf t\[EAcute]to funkce v argumentu  x=",
 Cell[BoxData[
  FormBox[
   SqrtBox[
    RowBox[{"t", "+", "1"}]], TraditionalForm]]],
 " pro -1\[LessEqual]t\[LessEqual]1, (libovoln\[EHacek]) popi\[SHacek]te osy \
a k\[RHacek]ivka nech\[THacek] je siln\[AAcute] a \[CHacek]erven\[AAcute]."
}], "Subsection",
 CellChangeTimes->{{3.4655755398414*^9, 3.465575568171*^9}, {
   3.465576011203*^9, 3.4655762454838*^9}, {3.465576435601*^9, 
   3.4655764712626*^9}, {3.466752489868451*^9, 3.4667525329848347`*^9}, {
   3.466752570326675*^9, 3.466752608995199*^9}, {3.466752746462904*^9, 
   3.466752756542671*^9}, {3.466752795256703*^9, 3.46675284041352*^9}, 
   3.466752883306172*^9, {3.466753020147187*^9, 3.466753022765506*^9}, {
   3.466831589875*^9, 3.466831596359375*^9}, {3.46683339471875*^9, 
   3.46683339765625*^9}, 3.49398947003125*^9, 3.5574591242032557`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], ":=", 
  RowBox[{"Sinh", "[", 
   SuperscriptBox["x", "2"], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"f", "[", 
    SqrtBox[
     RowBox[{"t", "+", "1"}]], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"t", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<t\>\"", ",", "\"\<Sinh(\!\(\*SqrtBox[\(t + 1\)]\))\>\""}], 
     "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "\[Pi]"}], ",", "0"}], "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "5"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
   
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", "Thick", ",", "Dotted"}], "}"}]}]}], 
  "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.5574573090939627`*^9, 3.55745737368048*^9}, {
  3.557457441950099*^9, 3.557457508562862*^9}, {3.557457556676466*^9, 
  3.5574576771466227`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["2) soustava rovnic", "Section",
 CellChangeTimes->{{3.557459137720277*^9, 3.557459166492176*^9}, {
  3.557459332143567*^9, 3.5574593389418077`*^9}}],

Cell[CellGroupData[{

Cell[TextData[{
 "1) Vyreste soustavu rovnic\n",
 Cell[BoxData[{
  RowBox[{
   RowBox[{"rce", "=", 
    RowBox[{
     RowBox[{
      SuperscriptBox["x", "2"], "+", "1"}], "\[Equal]", "y"}]}], 
   ";"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"rce2", "=", 
    RowBox[{
     RowBox[{"y", "+", "x"}], "\[Equal]", "3"}]}], ";"}]}], "Input",
  CellChangeTimes->{{3.557459405097342*^9, 3.55745941668442*^9}}],
 "\nzobrzte vysledky:\n{{x1, y1}, {x2, y2}}\n{x1, y1}\nx1"
}], "Subsection",
 CellChangeTimes->{{3.4655755398414*^9, 3.465575568171*^9}, {
   3.465576011203*^9, 3.4655762454838*^9}, {3.465576435601*^9, 
   3.4655764712626*^9}, {3.466752489868451*^9, 3.4667525329848347`*^9}, {
   3.466752570326675*^9, 3.466752608995199*^9}, {3.466752746462904*^9, 
   3.466752756542671*^9}, {3.466752795256703*^9, 3.46675284041352*^9}, 
   3.466752883306172*^9, {3.466753020147187*^9, 3.466753022765506*^9}, {
   3.466831589875*^9, 3.466831596359375*^9}, {3.46683339471875*^9, 
   3.46683339765625*^9}, 3.49398947003125*^9, 3.5574591242032557`*^9, {
   3.55745948043452*^9, 3.55745952550966*^9}, {3.557459625358573*^9, 
   3.557459638287497*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"rce", "=", 
   RowBox[{
    RowBox[{
     SuperscriptBox["x", "2"], "+", "1"}], "\[Equal]", "y"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rce2", "=", 
   RowBox[{
    RowBox[{"y", "+", "x"}], "\[Equal]", "3"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"vysledek", "=", 
  RowBox[{"Solve", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"rce", ",", "rce2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y"}], "}"}]}], "\[IndentingNewLine]", 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.557459405097342*^9, 3.55745941668442*^9}, {
  3.557459531805088*^9, 3.5574595687277*^9}}],

Cell[BoxData[{
 RowBox[{"cisla", "=", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "y"}], "}"}], " ", "/.", " ", 
   "vysledek"}]}], "\[IndentingNewLine]", 
 RowBox[{"cisla", "[", 
  RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"cisla", "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"x", " ", "/.", " ", 
  RowBox[{"vysledek", "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]}], "Input"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
*) bonusovy ukol - reseni diferencialnich rovnic\
\>", "Section",
 CellChangeTimes->{{3.557459137720277*^9, 3.5574591731238337`*^9}, {
  3.5574592683855762`*^9, 3.557459310568701*^9}}],

Cell[BoxData[""], "Input"],

Cell[TextData[{
 "3) Vy\[RHacek]e\[SHacek]te soustavu difrovnic pro soustavu po\[CHacek]\
\[AAcute]te\[CHacek]n\[IAcute]ch podm\[IAcute]nek, pro 0 < t < 50; vytiskn\
\[EHacek]te graf f[t] a g[t] a pomoc\[IAcute] p\[RHacek]\[IAcute]kazu ",
 StyleBox["ParametricPlot", "Program",
  FontWeight->"Bold"],
 " tak\[EAcute] graf g[f]."
}], "Text",
 CellChangeTimes->{
  3.4663303168125*^9, {3.466330720171875*^9, 3.4663307500625*^9}, 
   3.4939896311875*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ClearAll", "[", 
   RowBox[{"f", ",", "g"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"soustavaRovnic", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"f", "'"}], "[", "t", "]"}], "+", 
       RowBox[{"g", "[", "t", "]"}]}], "\[Equal]", 
      RowBox[{
       FractionBox[
        RowBox[{"-", "1"}], "2"], "*", 
       RowBox[{"f", "[", "t", "]"}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"f", "[", "t", "]"}], "-", 
       RowBox[{
        RowBox[{"g", "'"}], "[", "t", "]"}]}], "\[Equal]", "1"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"soustavaPodminek", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"f", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
     RowBox[{
      RowBox[{"g", "[", "0", "]"}], "\[Equal]", "1"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{"rovnice", "=", 
  RowBox[{"Join", "[", 
   RowBox[{"soustavaRovnic", ",", "soustavaPodminek"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"funkce", "=", 
  RowBox[{"{", 
   RowBox[{"f", ",", "g"}], "}"}]}]}], "Input",
 CellChangeTimes->{
  3.466330436828125*^9, {3.46633056603125*^9, 3.466330641015625*^9}, {
   3.466330957515625*^9, 3.46633100534375*^9}, {3.466331074578125*^9, 
   3.466331086734375*^9}, {3.466331127265625*^9, 3.46633113184375*^9}, 
   3.466331172375*^9, {3.466331629890625*^9, 3.466331653234375*^9}, {
   3.466331834953125*^9, 3.46633184378125*^9}, {3.466332573953125*^9, 
   3.46633258553125*^9}, {3.466333140171875*^9, 3.4663331808125*^9}, {
   3.46633328915625*^9, 3.466333306921875*^9}, {3.466337174640625*^9, 
   3.46633717746875*^9}, {3.466337213015625*^9, 3.466337213890625*^9}, {
   3.4668675280357676`*^9, 3.4668675351763926`*^9}, {3.4668677716763926`*^9, 
   3.4668677760513926`*^9}, {3.4668679153795176`*^9, 
   3.4668679723795176`*^9}, {3.4668680189420176`*^9, 
   3.4668680750357676`*^9}, {3.4668681133951426`*^9, 
   3.4668681410982676`*^9}, {3.557458686759561*^9, 3.5574586947788153`*^9}, {
   3.557458725923407*^9, 3.557458737898713*^9}}],

Cell[BoxData[
 RowBox[{"?", "NDSolve"}]], "Input",
 CellChangeTimes->{{3.5574595948742228`*^9, 3.557459604562085*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"reseni", "=", 
   RowBox[{"NDSolve", "[", "\[IndentingNewLine]", 
    RowBox[{
    "rovnice", ",", "\[IndentingNewLine]", "funkce", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "50"}], "}"}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5574585859417887`*^9, 3.557458603764913*^9}, {
  3.5574586345006037`*^9, 3.5574587148110228`*^9}, {3.557458783647324*^9, 
  3.557458788032933*^9}, {3.557459314223365*^9, 3.5574593186730843`*^9}, {
  3.5574595903699427`*^9, 3.557459601088953*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", "t", "]"}], "/.", "reseni"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "50"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.557458769636002*^9, 3.55745883481327*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"f", "[", "t", "]"}], "/.", "reseni"}], ",", 
     RowBox[{
      RowBox[{"g", "[", "t", "]"}], "/.", "reseni"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "50"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.557458841728368*^9, 3.557458855131352*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{740, 867},
WindowMargins->{{Automatic, 315}, {Automatic, 57}},
ShowSelection->True,
FrontEndVersion->"8.0 for Linux x86 (64-bit) (February 23, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 157, 2, 88, "Title"],
Cell[CellGroupData[{
Cell[761, 28, 111, 1, 74, "Section"],
Cell[CellGroupData[{
Cell[897, 33, 1108, 23, 86, "Subsection"],
Cell[2008, 58, 1341, 36, 220, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[3398, 100, 154, 2, 74, "Section"],
Cell[CellGroupData[{
Cell[3577, 106, 1142, 25, 159, "Subsection"],
Cell[4722, 133, 669, 21, 107, "Input"],
Cell[5394, 156, 462, 13, 88, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[5905, 175, 194, 4, 74, "Section"],
Cell[6102, 181, 26, 0, 30, "Input"],
Cell[6131, 183, 451, 10, 49, "Text"],
Cell[6585, 195, 2095, 52, 124, "Input"],
Cell[8683, 249, 118, 2, 30, "Input"],
Cell[8804, 253, 594, 13, 107, "Input"],
Cell[9401, 268, 388, 9, 88, "Input"],
Cell[9792, 279, 506, 13, 88, "Input"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)