(* 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[      3658,        126]
NotebookOptionsPosition[      3152,        106]
NotebookOutlinePosition[      3531,        122]
CellTagsIndexPosition[      3488,        119]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["\<\

Zave\:010fte funkce g[x_]:=2x-1 a f[x_]:=Cos[x]-x;
Pomoc\[IAcute] Plot vytisknout a popsat osy.\
\>", "Text",
 CellChangeTimes->{
  3.503029936123602*^9, {3.503029971184016*^9, 3.50303004623193*^9}}],

Cell["\<\

Pomoc\[IAcute] FindRoot nalezn\:011bte ko\:0159en f[t]==g[2*t]\
\>", "Text",
 CellChangeTimes->{{3.503030050478035*^9, 3.5030301064985886`*^9}}],

Cell[TextData[{
 "\nVy\:0159e\[SHacek]te soustavu rovnic ",
 Cell[BoxData[
  FormBox[
   RowBox[{"soustava", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"2", "x"}], "+", "4"}], "\[Equal]", 
       RowBox[{"x", "+", "y"}]}], ",", 
      RowBox[{
       RowBox[{"2", "y"}], "\[Equal]", 
       RowBox[{
        RowBox[{"7", "x"}], "+", "5"}]}]}]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "}. \nV\[YAcute]sledek dosa\:010fte do v\[YAcute]razu ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    SuperscriptBox["y", "2"]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " a zobrazte jako desetinn\[EAcute] \[CHacek]islo."
}], "Text",
 CellChangeTimes->{{3.5030301126774735`*^9, 3.5030301892075186`*^9}, {
  3.503030230677149*^9, 3.5030303506396465`*^9}, {3.5030303951035824`*^9, 
  3.5030304111166077`*^9}}],

Cell[TextData[{
 "\nV\[YAcute]raz ",
 Cell[BoxData[
  FormBox[
   RowBox[{"u", "=", 
    RowBox[{"a", "+", 
     RowBox[{"b", "*", 
      SuperscriptBox["E", 
       FractionBox[
        RowBox[{"-", "t"}], "tau"]]}]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " zobrazte pomoc\[IAcute] manipulate a Plot. Tisk je p\:0159es \
prom\:011bnnou t\[Element]<0,1>, Manipulate nech\:0165 oln\[AAcute]d\[AAcute] \
 a\[Element]<-1,1>,  b\[Element]<-1,1>, tau\[Element]<0,1,1>. PlotRange volte \
{Automatic,{-2,2}}."
}], "Text",
 CellChangeTimes->{{3.5030304178362703`*^9, 3.5030306260656896`*^9}}],

Cell["\<\

Nap\:011bt\[IAcute] na kondenz\[AAcute]toru je uc[t_]:=10+0.5*Sin[2*314*t], \
c=0.0001F. Zobrazte proud i[t]=c*uc'[t] pro t\[Element]<0,0.02>. \
Popi\[SHacek]te osy, tlust\:011b, \[CHacek]erven\:011b\
\>", "Text",
 CellChangeTimes->{
  3.503030634718131*^9, {3.503030685741499*^9, 3.5030308198743725`*^9}}],

Cell["\<\

V Simulinku vy\:0159e\[SHacek]te (t+1)y''[t]+3y[t]==0.5+Sin[2t+0.6], \
y[0]==1,y'[0]==0.\
\>", "Text",
 CellChangeTimes->{{3.503030822578261*^9, 3.5030308881725807`*^9}}],

Cell["\<\

V Simulinku vy\:0159e\[SHacek]te soustavu rovnic:
y[t]==x1[t]+x2[t]
x1'[t]==-x1[t]-0.5x2[t]+Sin[t]
x2'[t]==-x2[t]-0.5x1[t]-Sin[t]\
\>", "Text",
 CellChangeTimes->{{3.50303089160752*^9, 3.5030310003739185`*^9}}]
},
WindowSize->{616, 535},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification->1.5000001192092896`,
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 210, 6, 91, "Text"],
Cell[758, 28, 155, 4, 66, "Text"],
Cell[916, 34, 898, 27, 142, "Text"],
Cell[1817, 63, 603, 16, 127, "Text"],
Cell[2423, 81, 317, 7, 115, "Text"],
Cell[2743, 90, 181, 5, 91, "Text"],
Cell[2927, 97, 221, 7, 140, "Text"]
}
]
*)

(* End of internal cache information *)
