(* 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[     10796,        343]
NotebookOptionsPosition[      9556,        302]
NotebookOutlinePosition[      9915,        318]
CellTagsIndexPosition[      9872,        315]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"list", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"e", ",", "f"}], "}"}], ",", 
    RowBox[{"{", "g", "}"}], ",", 
    RowBox[{"{", "h", "}"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.557453768589177*^9, 3.557453771783585*^9}, {
  3.5574538029421587`*^9, 3.557453809373457*^9}, {3.5574538510309467`*^9, 
  3.5574538541827917`*^9}, {3.5574539036078033`*^9, 3.557453927346075*^9}, {
  3.557454062699729*^9, 3.557454083012439*^9}, {3.55745975921917*^9, 
  3.557459761827984*^9}}],

Cell[BoxData[
 RowBox[{"list", "//", "Flatten"}]], "Input",
 CellChangeTimes->{{3.557454215698079*^9, 3.557454254978198*^9}}],

Cell[BoxData[
 RowBox[{"list", "[", 
  RowBox[{"[", 
   RowBox[{"All", ",", "1"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.557454007092463*^9, 3.557454008220985*^9}, 
   3.55745415942839*^9}],

Cell[BoxData[
 RowBox[{"Plus", "@@", 
  RowBox[{"list", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "1"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5574539595082397`*^9, 3.5574539953578663`*^9}, {
  3.557454069896343*^9, 3.557454079004344*^9}, {3.557454112548072*^9, 
  3.557454199626657*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Map", "[", 
   RowBox[{"f", ",", 
    RowBox[{"{", 
     RowBox[{"a", ",", "c", ",", "d"}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"f", "/@", 
  RowBox[{"{", 
   RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Apply", "[", 
   RowBox[{"f", ",", 
    RowBox[{"{", 
     RowBox[{"a", ",", "c", ",", "d"}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"f", "@@", 
  RowBox[{"{", 
   RowBox[{"a", ",", "b", ",", "c"}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.557454286590118*^9, 3.557454312588785*^9}, {
  3.557454381315939*^9, 3.557454400818318*^9}}],

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.557454447396379*^9, 3.557454480075338*^9}, {
  3.557454582919724*^9, 3.557454599003049*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"rce", ",", "rce2"}], "}"}]], "Input",
 CellChangeTimes->{{3.557454622241729*^9, 3.557454626150724*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"vysledek", "=", 
   RowBox[{"Solve", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["x", "2"], "+", "1"}], "\[Equal]", "y"}], ",", 
       RowBox[{
        RowBox[{"y", "+", "x"}], "\[Equal]", "3"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y"}], "}"}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.557454483557108*^9, 3.557454593704879*^9}, {
  3.557454653421155*^9, 3.5574546828623867`*^9}, {3.5574548331950817`*^9, 
  3.5574548344480667`*^9}, {3.557454868749333*^9, 3.5574548729803467`*^9}}],

Cell[BoxData[{"vysledek", "\[IndentingNewLine]", 
 RowBox[{"vysledek", "//", "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.5574548745894623`*^9, 3.557454879293227*^9}, {
  3.557454909769677*^9, 3.557454914695302*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"pravidlo", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"c", "\[Rule]", "3"}], ",", 
       RowBox[{"x", "\[Rule]", "4"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"vyraz", "=", 
    RowBox[{
     SuperscriptBox["x", "2"], "+", "c"}]}]}]}]], "Input",
 CellChangeTimes->{{3.557454966303668*^9, 3.557454982830326*^9}, {
  3.5574550214334*^9, 3.557455035173069*^9}, {3.557455129588686*^9, 
  3.557455138487482*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ReplaceAll", "[", 
   RowBox[{"vyraz", ",", "pravidlo"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"vyraz", "/.", "pravidlo"}]}], "Input",
 CellChangeTimes->{{3.557455040333178*^9, 3.557455169594857*^9}}],

Cell["\<\
{{x, y}, {x2, y2}}
{x, y}
x\
\>", "Text",
 CellChangeTimes->{{3.557455287778713*^9, 3.5574553126438093`*^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",
 CellChangeTimes->{{3.5574553459115753`*^9, 3.557455359456087*^9}, {
  3.557455572393017*^9, 3.5574555783296957`*^9}, {3.5574557753670187`*^9, 
  3.557455775527896*^9}}],

Cell[CellGroupData[{

Cell["Definice funkce", "Title",
 CellChangeTimes->{{3.557455852069579*^9, 3.5574558720097733`*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox[
      RowBox[{
       RowBox[{"Sin", "[", "x", "]"}], 
       RowBox[{"Cos", "[", "x", "]"}]}], "2"], ")"}], "2"], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{
      RowBox[{"-", "2"}], "\[Pi]"}], ",", 
     RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5574558146964006`*^9, 3.557455832331812*^9}, {
  3.557455883351987*^9, 3.557455899176119*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "=", "\[Pi]"}], ";"}]], "Input",
 CellChangeTimes->{{3.5574561556479797`*^9, 3.557456164464191*^9}}],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"x", ",", "mojefce1"}], "]"}]], "Input",
 CellChangeTimes->{{3.557456450005587*^9, 3.557456467193747*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"mojefce1", "[", "x_", "]"}], "=", 
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox[
      RowBox[{
       RowBox[{"Sin", "[", "x", "]"}], 
       RowBox[{"Cos", "[", "x", "]"}]}], "2"], ")"}], "2"]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"mojefce2", "[", "x_", "]"}], ":=", 
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox[
      RowBox[{
       RowBox[{"Sin", "[", "x", "]"}], 
       RowBox[{"Cos", "[", "x", "]"}]}], "2"], ")"}], "2"]}], ";"}]}], "Input",\

 CellChangeTimes->{{3.5574559158720217`*^9, 3.5574560366246157`*^9}, {
  3.557456072613324*^9, 3.5574560768016253`*^9}, {3.557456116274848*^9, 
  3.557456126350236*^9}, {3.557456179943647*^9, 3.557456180666904*^9}, {
  3.5574564314579887`*^9, 3.5574564407160797`*^9}}],

Cell[BoxData[{
 RowBox[{"?", "mojefce1"}], "\[IndentingNewLine]", 
 RowBox[{"?", "mojefce2"}]}], "Input",
 CellChangeTimes->{{3.557456281552615*^9, 3.557456294943552*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"mojefce1", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{
      RowBox[{"-", "2"}], "\[Pi]"}], ",", 
     RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5574563889107513`*^9, 3.557456404760474*^9}, 
   3.557456455505974*^9}],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "mojefce3", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"mojefce3", "[", 
    RowBox[{"{", 
     RowBox[{"x_", ",", "y_"}], "}"}], "]"}], ":=", 
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox[
      RowBox[{
       RowBox[{"Sin", "[", "x", "]"}], 
       RowBox[{"Cos", "[", "y", "]"}]}], "2"], ")"}], "2"]}], ";"}]}], "Input",\

 CellChangeTimes->{{3.557456545313014*^9, 3.5574566107648773`*^9}}],

Cell[BoxData[
 RowBox[{"mojefce3", "[", 
  RowBox[{"{", 
   RowBox[{"a", ",", "b"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.557456564427431*^9, 3.557456571527884*^9}, {
  3.557456640407279*^9, 3.55745665734929*^9}}],

Cell[BoxData[
 RowBox[{"For", "[", "]"}]], "Input",
 CellChangeTimes->{{3.557456735504465*^9, 3.5574567373317738`*^9}}],

Cell[BoxData[
 RowBox[{"mojefce2", "/@", 
  RowBox[{"Range", "[", 
   RowBox[{"0", ",", 
    RowBox[{"2", "\[Pi]"}], ",", 
    FractionBox["\[Pi]", "4"]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.557456765675562*^9, 3.557456826397334*^9}, {
   3.55745687036211*^9, 3.5574568718137903`*^9}, 3.557456937569068*^9}],

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"mojefce2", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", 
     RowBox[{"2", "\[Pi]"}], ",", 
     FractionBox["\[Pi]", "4"]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.557456888517686*^9, 3.55745693053654*^9}}],

Cell[BoxData[
 SuperscriptBox[
  RowBox[{"(", 
   SqrtBox[GridBox[{
      {"\[Placeholder]", "\[Placeholder]", "\[Placeholder]", "\[Placeholder]"},
      {"\[Placeholder]", "\[Placeholder]", "\[Placeholder]", "\[Placeholder]"},
      {"\[Placeholder]", "\[Placeholder]", "\[Placeholder]", 
       "\[Placeholder]"}
     }]], ")"}], "\[Placeholder]"]], "Input",
 CellChangeTimes->{{3.557457061286673*^9, 3.557457074668209*^9}}]
}, Open  ]]
},
WindowSize->{740, 867},
WindowMargins->{{113, Automatic}, {Automatic, 24}},
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[557, 20, 596, 14, 30, "Input"],
Cell[1156, 36, 125, 2, 30, "Input"],
Cell[1284, 40, 197, 5, 30, "Input"],
Cell[1484, 47, 303, 7, 30, "Input"],
Cell[1790, 56, 660, 20, 88, "Input"],
Cell[2453, 78, 399, 12, 50, "Input"],
Cell[2855, 92, 143, 3, 30, "Input"],
Cell[3001, 97, 664, 17, 77, "Input"],
Cell[3668, 116, 220, 3, 50, "Input"],
Cell[3891, 121, 517, 14, 69, "Input"],
Cell[4411, 137, 246, 5, 50, "Input"],
Cell[4660, 144, 119, 5, 68, "Text"],
Cell[4782, 151, 632, 16, 88, "Input"],
Cell[CellGroupData[{
Cell[5439, 171, 100, 1, 88, "Title"],
Cell[5542, 174, 494, 15, 48, "Input"],
Cell[6039, 191, 139, 3, 30, "Input"],
Cell[6181, 196, 154, 3, 30, "Input"],
Cell[6338, 201, 818, 24, 87, "Input"],
Cell[7159, 227, 171, 3, 50, "Input"],
Cell[7333, 232, 341, 10, 30, "Input"],
Cell[7677, 244, 464, 14, 68, "Input"],
Cell[8144, 260, 222, 5, 30, "Input"],
Cell[8369, 267, 119, 2, 30, "Input"],
Cell[8491, 271, 313, 7, 45, "Input"],
Cell[8807, 280, 304, 8, 45, "Input"],
Cell[9114, 290, 426, 9, 71, "Input"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)