(* 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[ 72213, 1847]
NotebookOptionsPosition[ 61251, 1699]
NotebookOutlinePosition[ 62284, 1732]
CellTagsIndexPosition[ 62241, 1729]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["8. Anonymn\[IAcute] funkce, funkcion\[AAcute]ln\[IAcute] programov\
\[AAcute]n\[IAcute]", "Title",
CellChangeTimes->{{3.4375701178125*^9, 3.43757012165625*^9}, {
3.46820812253125*^9, 3.46820813040625*^9},
3.48074496534375*^9},ExpressionUUID->"5dcffc4e-6fcc-4ae1-b6a4-\
4e5ea1da5181"],
Cell[CellGroupData[{
Cell["T\[RHacek]i u\[ZHacek]ite\[CHacek]n\[EAcute] funkce pro pr\[AAcute]ci \
se seznamy", "Section",
CellChangeTimes->{{3.46820907028125*^9, 3.468209080140625*^9},
3.480745206390625*^9, {3.500014026890625*^9, 3.500014031734375*^9}, {
3.7189577142101192`*^9,
3.718957717283325*^9}},ExpressionUUID->"c2b6dd83-cf32-44e9-9665-\
80d567658e23"],
Cell["\<\
Na \[UAcute]vod zm\[IAcute]n\[IAcute]me je\[SHacek]t\[EHacek] t\[RHacek]i \
funkce pro pr\[AAcute]ci se seznamy, kter\[EAcute] se n\[AAcute]m budou hodit.\
\>", "Text",
CellChangeTimes->{{3.795159571887833*^9,
3.795159614589908*^9}},ExpressionUUID->"f66dfbdd-c34a-4d14-9c88-\
0de7d8247f8a"],
Cell[BoxData[
RowBox[{
RowBox[{"Rest", "[",
RowBox[{"{",
RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}], " ",
RowBox[{"(*", " ",
RowBox[{
"odstran\[IAcute]", " ", "prvn\[IAcute]", " ", "prvek", " ", "seznamu",
" ", "a", " ", "vr\[AAcute]t\[IAcute]", " ", "zbytek"}], " ",
"*)"}]}]], "Input",
CellChangeTimes->{{3.4173435194375*^9, 3.417343524140625*^9}, {
3.7951596165243115`*^9,
3.795159631172737*^9}},ExpressionUUID->"6d59dfb4-b8d1-4ab9-9926-\
43dd3299b7f4"],
Cell[BoxData[
RowBox[{
RowBox[{"Most", "[",
RowBox[{"{",
RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}], " ",
RowBox[{"(*", " ",
RowBox[{
"vr\[AAcute]t\[IAcute]", " ", "v\[SHacek]echny", " ", "prvky", " ",
"seznamu", " ", "krom\[EHacek]", " ", "posledn\[IAcute]ho"}], " ",
"*)"}]}]], "Input",
CellChangeTimes->{{3.4492874845*^9, 3.449287487640625*^9}, {
3.7951596329043407`*^9,
3.7951596492687693`*^9}},ExpressionUUID->"cba56358-ec7b-400a-bcca-\
c96d0e32702e"],
Cell[BoxData[
RowBox[{
RowBox[{"Flatten", "[",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",",
RowBox[{"{",
RowBox[{"4", ",", "5"}], "}"}]}], "}"}], "]"}], " ",
RowBox[{"(*", " ",
RowBox[{
RowBox[{
"odstran\[IAcute]", " ", "v\[SHacek]echny", " ",
"vnit\[RHacek]n\[IAcute]", " ", "slo\[ZHacek]en\[EAcute]", " ",
"z\[AAcute]vorky", " ", "v", " ", "seznamu"}], ",", " ",
RowBox[{"jeho\[ZHacek]", " ", "prvky", " ", "jsou", " ", "seznamy"}]}],
" ", "*)"}]}]], "Input",
CellChangeTimes->{{3.417343525921875*^9, 3.417343536375*^9}, {
3.417344423921875*^9, 3.41734443721875*^9}, {3.795159651000372*^9,
3.795159690250041*^9}},ExpressionUUID->"bc29ea3a-e86d-496d-9658-\
f0790245dda8"]
}, Open ]],
Cell[CellGroupData[{
Cell["Anonymn\[IAcute] funkce (pure functions)", "Section",
CellChangeTimes->{{3.468208135515625*^9, 3.46820813784375*^9}, {
3.468208281015625*^9,
3.468208287578125*^9}},ExpressionUUID->"e6120ded-30e2-4483-9967-\
8b8e91910528"],
Cell["\<\
V b\[EHacek]\[ZHacek]n\[EAcute]m matematick\[EAcute]m z\[AAcute]pisu rozli\
\[SHacek]ujeme mezi funkcemi a jejich hodnotami:\
\>", "Text",
CellChangeTimes->{{3.7951598657477493`*^9, 3.7951598821745777`*^9}, {
3.79517577472036*^9,
3.795175776561163*^9}},ExpressionUUID->"a94e5f37-0f55-456f-b609-\
79947d306146"],
Cell[TextData[Cell[BoxData[GridBox[{
{
StyleBox["Funkce",
FontWeight->"Bold"],
StyleBox["Hodnota",
FontWeight->"Bold"]},
{Cell[TextData[Cell[BoxData[
FormBox["f", TraditionalForm]],ExpressionUUID->
"46816db6-74b9-40c7-a802-d919eccf0a4f"]],ExpressionUUID->
"820cbf18-b624-4af8-a5ed-8757b2ed230e"], Cell[TextData[Cell[BoxData[
FormBox[
RowBox[{"f", "(", "x", ")"}], TraditionalForm]],ExpressionUUID->
"fe31e347-fcbe-47e6-9aae-c9f96f68c80b"]],ExpressionUUID->
"4fe3c901-46ed-4ccf-8b8e-fd3f92c47746"]},
{Cell["sin",ExpressionUUID->"48a25ec3-86eb-4e93-bcfa-7bf59ee6d9a0"], Cell[
TextData[{
"sin ",
Cell[BoxData[
FormBox["x", TraditionalForm]],ExpressionUUID->
"0b274964-0cba-4e32-83bb-290c57fa36b6"]
}],ExpressionUUID->"20c6977a-745b-4d4d-98ac-a1dc4efea0f3"]},
{Cell[TextData[Cell[BoxData[
FormBox[
RowBox[{"x", "\[RightTeeArrow]",
SuperscriptBox["x", "2"]}], TraditionalForm]],ExpressionUUID->
"66690575-8a9c-4558-bbf0-1e7b38281e59"]],ExpressionUUID->
"ed9a15d5-3f90-4f0c-87be-2475a3e77b14"], Cell[TextData[Cell[BoxData[
FormBox[
SuperscriptBox["x", "2"], TraditionalForm]],ExpressionUUID->
"6dce9eef-558b-47fb-9c8b-20d296ff54f6"]],ExpressionUUID->
"dbdce294-2fd9-4cdb-8dc3-c0e99e3f5530"]}
},
GridBoxDividers->{
"Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}},
"RowsIndexed" -> {}}]],
FontFamily->
"Times",ExpressionUUID->"62e2489c-c702-4308-a7e9-c070e4c7c57e"]], "Text",
CellChangeTimes->{{3.468208475578125*^9, 3.4682085140625*^9}, {
3.468208586453125*^9, 3.4682086625*^9}, {3.468208961375*^9,
3.468208977765625*^9}, {3.480745144625*^9, 3.480745152828125*^9}, {
3.532232877982857*^9, 3.532232877982857*^9}, 3.7951598900837917`*^9, {
3.795159928335059*^9, 3.795159929988662*^9}},
TextAlignment->Center,
FontFamily->"Arial",ExpressionUUID->"9d162281-bbd6-44c8-9f60-b388375f2516"],
Cell[TextData[{
"Funkce \[OpenCurlyDoubleQuote]umoc\[NHacek]ov\[AAcute]n\[IAcute] na druhou\
\[CloseCurlyDoubleQuote] nem\[AAcute] \[ZHacek]\[AAcute]dn\[EAcute] standardn\
\[IAcute] ozna\[CHacek]en\[IAcute]. Chceme-li se odkazovat na \
takov\[EAcute]to funkce, obvykle p\[IAcute]\[SHacek]eme ",
Cell[BoxData[
FormBox[
RowBox[{"prom\[EHacek]nn\[AAcute]", "\[RightTeeArrow]",
RowBox[{"p\[RHacek]edpis", " ", "funkce"}]}], TraditionalForm]],
ExpressionUUID->"247fac9c-675d-4ca3-92b0-3f8fd8bee1e6"],
" (na rozd\[IAcute]l od samotn\[EAcute]ho p\[RHacek]edpisu, co\[ZHacek] je \
funk\[CHacek]n\[IAcute] hodnota)."
}], "Text",
CellChangeTimes->{{3.795159896916604*^9, 3.7951600257572303`*^9}, {
3.795175790959988*^9,
3.795175813174427*^9}},ExpressionUUID->"9bcd2192-8a7a-48d0-994c-\
eab289e3cac4"],
Cell["\<\
Tak\[EAcute] Mathematica rozli\[SHacek]uje mezi funkcemi a funk\[CHacek]n\
\[IAcute]mi hodnotami. Zde je p\[RHacek]edchoz\[IAcute] tabulka p\[RHacek]elo\
\[ZHacek]en\[AAcute] do syntaxe Mathematiky:\
\>", "Text",
CellChangeTimes->{{3.46820829946875*^9, 3.468208315296875*^9}, {
3.46820867446875*^9, 3.468208693390625*^9}, {3.795160035164047*^9,
3.7951600725573125`*^9}},ExpressionUUID->"56a3d4ed-a1cc-445b-bc6d-\
8c8c2ba35c16"],
Cell[TextData[Cell[BoxData[GridBox[{
{
StyleBox["Funkce",
FontWeight->"Bold"],
StyleBox["Hodnota",
FontWeight->"Bold"]},
{Cell[BoxData["f"],ExpressionUUID->"9ab137d9-69f4-44f6-9966-32e7420691a5"],
Cell[BoxData[
RowBox[{"f", "[", "x", "]"}]],ExpressionUUID->
"15d609d0-f930-4547-a863-3f7354dc658b"]},
{Cell[BoxData[
"Sin"],ExpressionUUID->"7c4aa376-5843-46ad-a52c-e20b4dcaa92d"], Cell[
BoxData[
RowBox[{"Sin", "[", "x", "]"}]],ExpressionUUID->
"acb490cc-570a-4c56-b160-de0b6b32f597"]},
{Cell[BoxData[{
RowBox[{"x", "\[Function]",
RowBox[{"x", "^", "2"}]}], "\[IndentingNewLine]",
RowBox[{"Function", "[",
RowBox[{"x", ",",
SuperscriptBox["x", "2"]}], "]"}], "\[LineSeparator]",
RowBox[{"Function", "[",
RowBox[{"#", "^", "2"}], "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"#", "^", "2"}], "&"}]}],ExpressionUUID->
"fe8351bc-564a-4b85-a2c3-688d0dbcb41a"], Cell[BoxData[
RowBox[{"x", "^", "2"}]],ExpressionUUID->
"76c6a6a0-d45f-41a2-a092-af3891463f76"]}
},
GridBoxDividers->{
"Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}},
"RowsIndexed" -> {}}]],
FontFamily->
"Times",ExpressionUUID->"7d72a0f8-9960-4a4e-b61a-d60a6334c9df"]], "Text",
CellChangeTimes->{{3.468208475578125*^9, 3.4682085140625*^9}, {
3.468208586453125*^9, 3.4682086625*^9}, {3.468208961375*^9,
3.468208977765625*^9}, {3.480745144625*^9, 3.480745152828125*^9}, {
3.532232877982857*^9, 3.532232877982857*^9}, {3.7951599329682674`*^9,
3.7951599329682674`*^9}, 3.7951600523240767`*^9, {3.8287709271798573`*^9,
3.8287709420007052`*^9}, {3.8287715562438383`*^9, 3.828771560441078*^9}},
TextAlignment->Center,
FontFamily->"Arial",ExpressionUUID->"afdf66f9-168b-4b79-ad4b-d650bec6d076"],
Cell["\<\
Posledn\[IAcute] \[RHacek]\[AAcute]dek tabulky ukazuje, jak se lze odvol\
\[AAcute]vat na funkce, kter\[EAcute] nejsou pojmenovan\[EAcute] \[Dash] jsou \
to tzv. anonymn\[IAcute] funkce. Existuj\[IAcute] \[CHacek]ty\[RHacek]i \
ekvivalentn\[IAcute] varianty z\[AAcute]pisu:\
\>", "Text",
CellChangeTimes->{{3.7951601054889708`*^9, 3.7951601825999055`*^9}, {
3.7951602154847636`*^9, 3.79516021905717*^9}, {3.7951757089476438`*^9,
3.7951757089476438`*^9}, {3.8287829251223636`*^9,
3.8287829369710417`*^9}},ExpressionUUID->"9f385a59-1fdd-44c9-bd59-\
86c9f9c12601"],
Cell["\<\
prom\[EHacek]nn\[AAcute]\[Function]p\[RHacek]edpis (symbol \[Function] lze \
vlo\[ZHacek]it jako trojici znak\[URing] |-> nebo pomoc\[IAcute] \
kl\[AAcute]vesov\[EAcute] zkratky \[EscapeKey]fn\[EscapeKey])\
\>", "Item",
CellChangeTimes->{{3.795160177342696*^9, 3.795160232441993*^9}, {
3.828770960721776*^9, 3.8287710109986515`*^9}, {3.8287710414193916`*^9,
3.82877104803377*^9}},ExpressionUUID->"e0108372-a033-40fd-84f0-\
2c7962ce67f4"],
Cell["Function[prom\[EHacek]nn\[AAcute],p\[RHacek]edpis]", "Item",
CellChangeTimes->{{3.795160177342696*^9, 3.795160186250312*^9}, {
3.7951605701085863`*^9,
3.7951605701085863`*^9}},ExpressionUUID->"cb9415b7-6c35-47f3-b942-\
c8c4eed03bcc"],
Cell["Function[p\[RHacek]edpis, kde m\[IAcute]sto n\[AAcute]zvu \
prom\[EHacek]nn\[EAcute] p\[IAcute]\[SHacek]eme #]", "Item",
CellChangeTimes->{{3.795160177342696*^9,
3.7951602211475735`*^9}},ExpressionUUID->"32ec608a-5ea1-452f-acf5-\
f11d6d3af81c"],
Cell["(p\[RHacek]edpis, kde m\[IAcute]sto n\[AAcute]zvu prom\[EHacek]nn\
\[EAcute] p\[IAcute]\[SHacek]eme #)&", "Item",
CellChangeTimes->{{3.795160177342696*^9, 3.795160232441993*^9}, {
3.8287709596767163`*^9,
3.8287709596787167`*^9}},ExpressionUUID->"febe088c-14d4-4558-9cc6-\
1d3e38959a01"],
Cell[TextData[{
"V minul\[EAcute] lekci jsme \[RHacek]e\[SHacek]ili \
n\[AAcute]sleduj\[IAcute]c\[IAcute] \[UAcute]lohu: Vyberte ze seznamu {1, \
..., 100} v\[SHacek]echna prvo\[CHacek]\[IAcute]sla tvaru ",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{"4", "k"}], "+", "1"}], TraditionalForm]],ExpressionUUID->
"e14660ea-fb9b-43bb-a071-acb983f63a8a"],
"."
}], "Text",
CellChangeTimes->{{3.7951602643440495`*^9,
3.7951603201327477`*^9}},ExpressionUUID->"a070b52e-70fb-4e87-add1-\
226443b5da8e"],
Cell[TextData[{
"\[CapitalRHacek]e\[SHacek]en\[IAcute] pomoc\[IAcute] ",
Cell[BoxData[
"Select"],ExpressionUUID->"f2b795c2-3589-498a-90e7-f3de926bc115"],
" z minul\[EAcute] lekce:"
}], "Text",
CellChangeTimes->{{3.468208855875*^9, 3.468208884515625*^9}, {
3.480744971828125*^9, 3.4807449739375*^9}, 3.795160288071691*^9, {
3.7951603247971554`*^9,
3.795160332331969*^9}},ExpressionUUID->"1eb0d95b-1490-44b0-8315-\
dcad3c5e493e"],
Cell[BoxData[
RowBox[{
RowBox[{"p", "[", "n_", "]"}], ":=",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"Mod", "[",
RowBox[{"n", ",", "4"}], "]"}], "\[Equal]", "1"}], " ", "&&", " ",
RowBox[{"PrimeQ", "[", "n", "]"}]}], ")"}]}]], "Input",
CellChangeTimes->{{3.4165569305*^9, 3.41655698809375*^9}, {
3.480146005734375*^9,
3.480146005828125*^9}},ExpressionUUID->"cfc3e542-c479-4041-ae9f-\
ddca1ea6db48"],
Cell[BoxData[
RowBox[{"Select", "[",
RowBox[{
RowBox[{"Range", "[", "100", "]"}], ",", "p"}], "]"}]], "Input",
CellChangeTimes->{{3.417342795171875*^9, 3.417342808734375*^9},
3.417342897984375*^9, 3.4807449968125*^9,
3.4807645979375*^9},ExpressionUUID->"f5a7e506-ace0-4957-aad4-59e715996249"],
Cell[BoxData[
RowBox[{"Clear", "[", "p", "]"}]], "Input",
CellChangeTimes->{{3.41734282984375*^9, 3.417342833453125*^9}, {
3.480764603046875*^9,
3.480764603125*^9}},ExpressionUUID->"ed1645b5-27d0-479e-83b0-962180c0fd2f"],
Cell[TextData[{
Cell[BoxData[
"Select"],ExpressionUUID->"0ef03091-e1ba-4048-bfdb-d01898057d65"],
" o\[CHacek]ek\[AAcute]v\[AAcute] ve druh\[EAcute]m argumentu funkci \
(nikoliv p\[RHacek]edpis, co\[ZHacek] je funk\[CHacek]n\[IAcute] hodnota), \
proto jsme definovali pomocn\[YAcute] predik\[AAcute]t p. Tomu se m\[URing]\
\[ZHacek]eme vyhnout pomoc\[IAcute] anonymn\[IAcute] funkce."
}], "Text",
CellChangeTimes->{{3.7951603491331987`*^9,
3.7951604324071445`*^9}},ExpressionUUID->"075b2d3e-c111-43c3-9e52-\
e765dcadc68c"],
Cell["4 varianty z\[AAcute]pisu:", "Text",
CellChangeTimes->{{3.468208904546875*^9, 3.468208933140625*^9},
3.7951604367283525`*^9, {3.828771533802554*^9,
3.8287715349906225`*^9}},ExpressionUUID->"75da9219-f735-4310-82c0-\
0962017972c1"],
Cell[BoxData[
RowBox[{"Select", "[",
RowBox[{
RowBox[{"Range", "[", "100", "]"}], ",",
RowBox[{"n", "\[Function]",
RowBox[{
RowBox[{"PrimeQ", "[", "n", "]"}], "&&",
RowBox[{
RowBox[{"Mod", "[",
RowBox[{"n", ",", "4"}], "]"}], "\[Equal]", "1"}]}]}]}],
"]"}]], "Input",
CellChangeTimes->{{3.8287715860705442`*^9,
3.8287715902377825`*^9}},ExpressionUUID->"37c2d968-55f5-4eb8-b34e-\
258ee5e4c280"],
Cell[BoxData[
RowBox[{"Select", "[",
RowBox[{
RowBox[{"Range", "[", "100", "]"}], ",",
RowBox[{"Function", "[",
RowBox[{"n", ",",
RowBox[{
RowBox[{"PrimeQ", "[", "n", "]"}], "&&",
RowBox[{
RowBox[{"Mod", "[",
RowBox[{"n", ",", "4"}], "]"}], "\[Equal]", "1"}]}]}], "]"}]}],
"]"}]], "Input",
CellChangeTimes->{{3.417342907421875*^9, 3.417342910921875*^9}, {
3.41734297846875*^9, 3.41734299334375*^9}, {3.4807450090625*^9,
3.4807450210625*^9}},ExpressionUUID->"3fe38793-8f51-4429-952b-f3707167a694"],
Cell[BoxData[
RowBox[{"Select", "[",
RowBox[{
RowBox[{"Range", "[", "100", "]"}], ",",
RowBox[{"Function", "[",
RowBox[{
RowBox[{"PrimeQ", "[", "#", "]"}], "&&",
RowBox[{
RowBox[{"Mod", "[",
RowBox[{"#", ",", "4"}], "]"}], "\[Equal]", "1"}]}], "]"}]}],
"]"}]], "Input",
CellChangeTimes->{{3.417342907421875*^9, 3.417342910921875*^9}, {
3.41734297846875*^9, 3.41734299334375*^9}, {3.417343426484375*^9,
3.4173434293125*^9}, {3.48074502778125*^9,
3.480745036609375*^9}},ExpressionUUID->"2e8b0b06-ac53-4748-b570-\
3dbff9c48033"],
Cell[BoxData[
RowBox[{"Select", "[",
RowBox[{
RowBox[{"Range", "[", "100", "]"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"PrimeQ", "[", "#", "]"}], "&&",
RowBox[{
RowBox[{"Mod", "[",
RowBox[{"#", ",", "4"}], "]"}], "\[Equal]", "1"}]}], ")"}], "&"}]}],
"]"}]], "Input",
CellChangeTimes->{{3.417342907421875*^9, 3.417342910921875*^9}, {
3.41734297846875*^9, 3.41734299334375*^9}, {3.417343426484375*^9,
3.417343445*^9}, {3.4807450415*^9,
3.480745052046875*^9}},ExpressionUUID->"dd20854d-022a-4297-ac37-\
ffbfe32e28eb"],
Cell["\<\
Existuj\[IAcute] t\[EAcute]\[ZHacek] anonymn\[IAcute] funkce v\[IAcute]ce \
prom\[EHacek]nn\[YAcute]ch, op\[EHacek]t lze vyb\[IAcute]rat ze \[CHacek]ty\
\[RHacek] ekvivalentn\[IAcute]ch variant z\[AAcute]pisu:\
\>", "Text",
CellChangeTimes->{{3.795160479004427*^9, 3.7951605144008884`*^9}, {
3.82877160873184*^9,
3.8287716091218624`*^9}},ExpressionUUID->"614cb9dc-efa0-4a4d-9557-\
5359c3827735"],
Cell["seznam prom\[EHacek]nn\[YAcute]ch\[Function]p\[RHacek]edpis", "Item",
CellChangeTimes->{{3.795160177342696*^9, 3.795160232441993*^9},
3.7951759391602488`*^9, {3.8287711071891537`*^9,
3.8287711155586324`*^9}},ExpressionUUID->"fd9272ab-81eb-4fac-a60f-\
9fbb9903268c"],
Cell["Function[seznam prom\[EHacek]nn\[YAcute]ch, p\[RHacek]edpis]", "Item",
CellChangeTimes->{{3.795160177342696*^9, 3.795160186250312*^9}, {
3.7951759226710196`*^9,
3.795175927491428*^9}},ExpressionUUID->"eecdb896-9360-4b59-bbab-\
b618cb562266"],
Cell["\<\
Function[p\[RHacek]edpis, kde m\[IAcute]sto n\[AAcute]zv\[URing] \
prom\[EHacek]nn\[YAcute]ch p\[IAcute]\[SHacek]eme #1, #2, atd.]\
\>", "Item",
CellChangeTimes->{{3.795160177342696*^9, 3.7951602211475735`*^9}, {
3.7951759056981897`*^9,
3.795175916696209*^9}},ExpressionUUID->"a390f353-06e8-4e33-b799-\
f8858d75e963"],
Cell["(p\[RHacek]edpis, kde m\[IAcute]sto n\[AAcute]zv\[URing] \
prom\[EHacek]nn\[YAcute]ch p\[IAcute]\[SHacek]eme #1, #2, atd.)&", "Item",
CellChangeTimes->{{3.795160177342696*^9, 3.795160232441993*^9},
3.7951759391602488`*^9, {3.828771105711069*^9,
3.828771105711069*^9}},ExpressionUUID->"25a1f7e2-6c0d-4544-817a-\
958e16dce6f8"],
Cell["Trivi\[AAcute]ln\[IAcute] p\[RHacek]\[IAcute]klad:", "Text",
CellChangeTimes->{{3.468209008*^9, 3.468209021234375*^9}, {
3.48074510284375*^9, 3.4807451269375*^9}, 3.79516048664844*^9, {
3.795173499471162*^9,
3.795173506974775*^9}},ExpressionUUID->"48c468b8-416a-4d45-a732-\
08eef2dcc87b"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"#1", "+", "#2"}], ")"}], "&"}], "[",
RowBox[{"3", ",", "5"}], "]"}]], "Input",
CellChangeTimes->{{3.437570337375*^9, 3.43757035215625*^9}, {
3.437570397546875*^9, 3.437570399734375*^9}, {3.7951735108435817`*^9,
3.795173513698386*^9}, {3.7951735615748706`*^9,
3.7951735629788733`*^9}},ExpressionUUID->"bc4c907d-2e2f-45df-8a5e-\
abca484b700f"],
Cell["\<\
Vysv\[EHacek]tlen\[IAcute]: (#1+#2)& je anonymn\[IAcute] funkce dvou prom\
\[EHacek]nn\[YAcute]ch, kter\[AAcute] vrac\[IAcute] jejich sou\[CHacek]et. \
Pokud ji zavol\[AAcute]me s argumenty 3, 5, dostaneme sou\[CHacek]et 3+5.\
\>", "Text",
CellChangeTimes->{{3.7951735189711957`*^9,
3.795173581932906*^9}},ExpressionUUID->"e00249d6-73b8-43e5-b340-\
0d2ea38ee2d7"]
}, Open ]],
Cell[CellGroupData[{
Cell["Funkcion\[AAcute]ln\[IAcute] programov\[AAcute]n\[IAcute]", "Section",
CellChangeTimes->{{3.437570141296875*^9,
3.437570147203125*^9}},ExpressionUUID->"b0e388dd-2421-4abd-bee1-\
850869b0fd9c"],
Cell["\<\
V Mathematice m\[AAcute]me na v\[YAcute]b\[EHacek]r z r\[URing]zn\[YAcute]ch \
program\[AAcute]torsk\[YAcute]ch styl\[URing]:\
\>", "Text",
CellChangeTimes->{{3.468209151015625*^9, 3.46820916578125*^9}, {
3.7951736116041584`*^9,
3.7951736255037827`*^9}},ExpressionUUID->"8a9f8fd6-43fd-438b-ab72-\
313807da1bfe"],
Cell["p\[RHacek]episovac\[IAcute] pravidla a rekurze (u\[ZHacek] \
zn\[AAcute]me)", "Item",
CellChangeTimes->{{3.468209173125*^9, 3.468209179203125*^9}, {
3.7951736275317864`*^9, 3.79517364104141*^9}, {3.795175971390905*^9,
3.7951759733097086`*^9}},ExpressionUUID->"d4b475f9-06b1-4b5e-a697-\
6c9d2f15d53c"],
Cell["funkcion\[AAcute]ln\[IAcute] programov\[AAcute]n\[IAcute] (viz dne\
\[SHacek]n\[IAcute] lekce)", "Item",
CellChangeTimes->{{3.468209182140625*^9, 3.4682091891875*^9}, {
3.795173655674236*^9, 3.7951736589034414`*^9}, {3.7951759773189154`*^9,
3.79517597976812*^9}},ExpressionUUID->"7188a0bb-18c5-4325-a0e3-\
1077c8483392"],
Cell["procedur\[AAcute]ln\[IAcute] programov\[AAcute]n\[IAcute] (probereme v \
budoucnosti)", "Item",
CellChangeTimes->{{3.468209190609375*^9, 3.468209195640625*^9}, {
3.7951736434438143`*^9,
3.795173653568232*^9}},ExpressionUUID->"2a104c7d-445f-4224-be60-\
b6c9286fb435"],
Cell["\<\
Pro funkcion\[AAcute]ln\[IAcute] programov\[AAcute]n\[IAcute] je typick\
\[AAcute] pr\[AAcute]ce s anonymn\[IAcute]mi funkcemi, seznamy a \
n\[AAcute]sleduj\[IAcute]c\[IAcute]mi funkcemi:\
\>", "Text",
CellChangeTimes->{{3.468209203328125*^9,
3.46820924590625*^9}},ExpressionUUID->"d4f7d891-a966-48b3-b280-\
3630d62c5a4f"],
Cell[CellGroupData[{
Cell[TextData[{
Cell[BoxData["Map"],ExpressionUUID->"d868e46c-2e98-4741-b375-8dce4c7c9654"],
" a ",
Cell[BoxData[
"MapThread"],ExpressionUUID->"6673e49d-6b74-4cfe-95d1-b44ace85e2a1"]
}], "Subsection",
CellChangeTimes->{{3.48076463834375*^9,
3.4807646489375*^9}},ExpressionUUID->"41b4ed6e-0fd1-4854-8352-f57426040ffa"],
Cell["\<\
Map zavol\[AAcute] funkci jedn\[EAcute] prom\[EHacek]nn\[EAcute] na \
v\[SHacek]echny prvky dan\[EAcute]ho seznamu, v\[YAcute]sledkem je seznam \
funk\[CHacek]n\[IAcute]ch hodnot.\
\>", "Text",
CellChangeTimes->{{3.7951736848150873`*^9,
3.795173709603531*^9}},ExpressionUUID->"5b0cd056-f6ff-4913-b29d-\
45cf6cbac277"],
Cell[BoxData[
RowBox[{"Map", "[",
RowBox[{"f", ",",
RowBox[{"{",
RowBox[{"x1", ",", "x2", ",", "x3"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.48076410653125*^9,
3.480764115578125*^9}},ExpressionUUID->"a3f305b1-1e0b-4e7c-b4cc-\
75dc4a0b7f8a"],
Cell["Ekvivalentn\[IAcute] z\[AAcute]pis:", "Text",
CellChangeTimes->{{3.4807641446875*^9,
3.480764150875*^9}},ExpressionUUID->"419f7f02-0f03-4d09-9cda-cf9571211482"],
Cell[BoxData[
RowBox[{"f", "/@",
RowBox[{"{",
RowBox[{"x1", ",", "x2", ",", "x3"}], "}"}]}]], "Input",
CellChangeTimes->{{3.79517372080435*^9,
3.79517372643596*^9}},ExpressionUUID->"fdc3fea3-59a0-466d-8ee6-\
8923a7d4fe3c"],
Cell["P\[RHacek]\[IAcute]klad:", "Text",
CellChangeTimes->{{3.7951737392279825`*^9,
3.795173745265193*^9}},ExpressionUUID->"0dc31802-6a2d-4ccb-99f8-\
1ebbe94bdf3d"],
Cell[BoxData[
RowBox[{"Map", "[",
RowBox[{"Sqrt", ",",
RowBox[{"{",
RowBox[{"2", ",", "3", ",", "5"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.417344626015625*^9, 3.417344631875*^9}, {
3.417344676796875*^9, 3.417344678484375*^9}, {3.4492874924375*^9,
3.449287494125*^9}},ExpressionUUID->"7d1f36cd-5a74-4ad8-a253-0b75cec06a66"],
Cell[TextData[{
"Pou\[ZHacek]it\[IAcute] ",
Cell[BoxData["Map"],ExpressionUUID->"010785f7-b980-4e88-9b58-b00418b24d70"],
" je v tomto p\[RHacek]\[IAcute]pad\[EHacek] zbyte\[CHacek]n\[EAcute], nebo\
\[THacek] ",
Cell[BoxData["Sqrt"],ExpressionUUID->"e710ff6a-2211-4f98-a12a-c864e67d7038"],
" m\[AAcute] atribut ",
Cell[BoxData[
"Listable"],ExpressionUUID->"1f087b67-3187-453b-95df-46818f60f429"],
":"
}], "Text",
CellChangeTimes->{{3.468209264625*^9, 3.468209283515625*^9}, {
3.480764160515625*^9, 3.480764193390625*^9}, {3.795173879444029*^9,
3.7951738827668347`*^9}},ExpressionUUID->"04621c51-4dc1-4b3d-9c6b-\
b98fe9f282f6"],
Cell[BoxData[
RowBox[{"Sqrt", "[",
RowBox[{"{",
RowBox[{"2", ",", "3", ",", "5"}], "}"}], "]"}]], "Input",
CellChangeTimes->{{3.417344636578125*^9, 3.417344641703125*^9}, {
3.417344682984375*^9, 3.417344684734375*^9}, {3.449287502328125*^9,
3.449287503921875*^9}},ExpressionUUID->"2972f970-3ae6-4773-8657-\
e6241cc4d8ad"],
Cell[TextData[{
"V\[EHacek]t\[SHacek]ina funkc\[IAcute] pro pr\[AAcute]ci se seznamy nem\
\[AAcute] atribut ",
Cell[BoxData[
"Listable"],ExpressionUUID->"67641ab3-12e4-4761-b9bd-cdba4cd14f8f"],
". Dokl\[AAcute]daj\[IAcute] to n\[AAcute]sleduj\[IAcute]c\[IAcute] p\
\[RHacek]\[IAcute]klady (rozmyslete si, jak funguj\[IAcute]):"
}], "Text",
CellChangeTimes->{{3.46820930140625*^9, 3.46820931559375*^9}, {
3.7951738545151854`*^9,
3.7951738971968603`*^9}},ExpressionUUID->"4bfe525f-2a93-40f2-9542-\
29a2eb572914"],
Cell[BoxData[
RowBox[{"Map", "[",
RowBox[{"Reverse", ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"a", ",", "b"}], "}"}], ",",
RowBox[{"{",
RowBox[{"c", ",", "d"}], "}"}]}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.4173447415*^9,
3.4173447566875*^9}},ExpressionUUID->"97674c86-fdde-41eb-8d22-dc2811c7508a"],
Cell[BoxData[
RowBox[{"Reverse", "[",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"a", ",", "b"}], "}"}], ",",
RowBox[{"{",
RowBox[{"c", ",", "d"}], "}"}]}], "}"}], "]"}]], "Input",
CellChangeTimes->{{3.41734476090625*^9,
3.4173447698125*^9}},ExpressionUUID->"63d5e4f8-b814-49c4-8382-861df40aecd6"],
Cell[BoxData[
RowBox[{"Map", "[",
RowBox[{"Last", ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"a", ",", "b"}], "}"}], ",",
RowBox[{"{",
RowBox[{"c", ",", "d"}], "}"}]}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.4807498160625*^9,
3.480749816546875*^9}},ExpressionUUID->"3e54b871-19cb-47ce-998a-\
907790834b0e"],
Cell[BoxData[
RowBox[{"Last", "[",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"a", ",", "b"}], "}"}], ",",
RowBox[{"{",
RowBox[{"c", ",", "d"}], "}"}]}], "}"}], "]"}]], "Input",
CellChangeTimes->{{3.48074982028125*^9,
3.480749826125*^9}},ExpressionUUID->"df9feb50-e0ba-44c4-9ba3-8d5006f047ac"],
Cell[TextData[{
Cell[BoxData["Map"],ExpressionUUID->"7afe8e29-b3fd-4301-8d59-2fff18e3d04b"],
" se \[CHacek]asto pou\[ZHacek]\[IAcute]v\[AAcute] ve spojen\[IAcute] s \
anonymn\[IAcute]mi funkcemi. \nTypick\[EAcute] pou\[ZHacek]it\[IAcute]: M\
\[AAcute]me data ulo\[ZHacek]en\[AAcute] v seznamu. S ka\[ZHacek]d\[YAcute]m \
prvkem seznamu chceme prov\[EAcute]st n\[EHacek]jakou operaci, pro kterou v \
Mathematice nen\[IAcute] k\[NonBreakingSpace]dispozici zabudovan\[AAcute] \
funkce. V tom p\[RHacek]\[IAcute]pad\[EHacek] m\[URing]\[ZHacek]eme operaci \
specifikovat jako anonymn\[IAcute] funkci v prvn\[IAcute]m argumentu Map."
}], "Text",
CellChangeTimes->{{3.468210640921875*^9, 3.468210661703125*^9}, {
3.480749845390625*^9, 3.480749848171875*^9}, {3.795173910082483*^9,
3.7951740456477213`*^9}, {3.7951760344940157`*^9,
3.7951760375516214`*^9}},ExpressionUUID->"ae5aa477-a5ce-4537-b5fa-\
61175d231cfa"],
Cell[TextData[{
"P\[RHacek]\[IAcute]klad: Numerick\[EAcute] \[RHacek]e\[SHacek]en\[IAcute] \
diferenci\[AAcute]ln\[IAcute] rovnice ",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{
RowBox[{"x", "'"}],
RowBox[{"(", "t", ")"}]}], "=",
RowBox[{
RowBox[{"-",
RowBox[{"x", "(", "t", ")"}]}], "+", "t"}]}], TraditionalForm]],
ExpressionUUID->"d0a5738f-7601-4265-bcfb-0d2d28b26215"],
" pro v\[IAcute]ce po\[CHacek]\[AAcute]te\[CHacek]n\[IAcute]ch \
podm\[IAcute]nek: ",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{"x", "(", "0", ")"}], "\[Element]",
RowBox[{"{",
RowBox[{"0", ",", "1", ",", "2", ",", "3", ",", "4"}], "}"}]}],
TraditionalForm]],ExpressionUUID->"5bdbd839-aab7-4d4e-84ae-378b835949a8"],
"."
}], "Text",
CellChangeTimes->{{3.4682106705*^9, 3.468210705765625*^9}, {
3.468211532125*^9, 3.468211557796875*^9}, {3.468211668359375*^9,
3.46821169753125*^9}, {3.795174074102171*^9,
3.795174091792602*^9}},ExpressionUUID->"451bad71-aa54-47b8-bd98-\
bc6de962f1e2"],
Cell[BoxData[
RowBox[{"reseni", "=",
RowBox[{"Map", "[",
RowBox[{
RowBox[{
RowBox[{"NDSolveValue", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"x", "'"}], "[", "t", "]"}], "\[Equal]",
RowBox[{
RowBox[{"-",
RowBox[{"x", "[", "t", "]"}]}], "+", "t"}]}], ",",
RowBox[{
RowBox[{"x", "[", "0", "]"}], "\[Equal]", "#"}]}], "}"}], ",",
RowBox[{"x", "[", "t", "]"}], ",",
RowBox[{"{",
RowBox[{"t", ",", "0", ",", "5"}], "}"}]}], "]"}], "&"}], ",",
RowBox[{"Range", "[",
RowBox[{"0", ",", "4"}], "]"}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.46821142765625*^9, 3.468211472421875*^9}, {
3.468211504375*^9, 3.468211511265625*^9}, {3.468211589171875*^9,
3.4682115995625*^9}, 3.46821165365625*^9, 3.46821229640625*^9, {
3.480764297515625*^9, 3.480764303796875*^9}, {3.638115298382373*^9,
3.6381153042323837`*^9}},ExpressionUUID->"d4129291-a0b3-46d6-a2a8-\
5b68e7d68545"],
Cell[BoxData[
RowBox[{"Plot", "[",
RowBox[{"reseni", ",",
RowBox[{"{",
RowBox[{"t", ",", "0", ",", "5"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.4682111248125*^9, 3.468211145859375*^9}, {
3.468211305359375*^9, 3.4682113073125*^9}, {3.46821151784375*^9,
3.468211518578125*^9}, {3.46821160321875*^9, 3.468211609046875*^9}, {
3.638115320222411*^9,
3.638115321080413*^9}},ExpressionUUID->"fd84dd86-7670-4460-a0e4-\
2dea96a60c27"],
Cell[BoxData[
RowBox[{"Clear", "[", "reseni", "]"}]], "Input",
CellChangeTimes->{{3.480750333703125*^9,
3.4807503393125*^9}},ExpressionUUID->"fe2ce87f-9fe7-451e-8aa2-4aec0061970b"],
Cell[TextData[{
Cell[BoxData[
"MapThread"],ExpressionUUID->"bfc2969a-53b6-485b-a4db-b77702df72b9"],
" je analogi\[IAcute] ",
Cell[BoxData["Map"],ExpressionUUID->"3565fb11-cd9f-400a-99ac-4406c16bb92e"],
" pro funkce v\[IAcute]ce prom\[EHacek]nn\[YAcute]ch. Prvn\[IAcute]m \
argumentem je funkce ",
Cell[BoxData[
FormBox["n", TraditionalForm]],ExpressionUUID->
"14b36bd7-9f77-486c-91bf-0edfb341f4f9"],
" prom\[EHacek]nn\[YAcute]ch, druh\[YAcute]m argumentem seznam ",
Cell[BoxData[
FormBox["n", TraditionalForm]],ExpressionUUID->
"e96cb7ab-69af-4225-b5c5-b357f3e2d271"],
" stejn\[EHacek] dlouh\[YAcute]ch seznam\[URing]. ",
Cell[BoxData[
"MapThread"],ExpressionUUID->"9dae05cf-d68a-409c-8f7d-fb83a41c5671"],
" postupn\[EHacek] vol\[AAcute] zadanou funkci na prvn\[IAcute] prvky, druh\
\[EAcute] prvky, atd."
}], "Text",
CellChangeTimes->{{3.46820934196875*^9, 3.4682093540625*^9}, {
3.46820940896875*^9, 3.4682094115*^9}, {3.7951741107622356`*^9,
3.795174231225647*^9}},ExpressionUUID->"6bf8a382-61a1-4d9c-bf11-\
efa5326790b2"],
Cell[BoxData[
RowBox[{"MapThread", "[",
RowBox[{"f", ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"x1", ",", "x2", ",", "x3"}], "}"}], ",",
RowBox[{"{",
RowBox[{"y1", ",", "y2", ",", "y3"}], "}"}]}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.480764011359375*^9,
3.480764030234375*^9}},ExpressionUUID->"7627fc15-e979-45a0-90f8-\
91fe1b659235"],
Cell[BoxData[
RowBox[{"MapThread", "[",
RowBox[{"Max", ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",",
RowBox[{"{",
RowBox[{"3", ",", "2", ",", "1"}], "}"}]}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.417345101421875*^9, 3.417345104796875*^9}, {
3.4173451465625*^9,
3.417345162640625*^9}},ExpressionUUID->"e785be73-fa62-4344-98bb-\
04b40425ca81"],
Cell[TextData[{
"P\[RHacek]\[IAcute]klad: Ve 4. lekci jsme si uk\[AAcute]zali, jak \
naprogramovat p\[RHacek]ipojen\[IAcute] vektoru jako nov\[EAcute]ho sloupce k \
zadan\[EAcute] matici. Zde je elegantn\[EHacek]j\[SHacek]\[IAcute] \[RHacek]e\
\[SHacek]en\[IAcute] vyu\[ZHacek]\[IAcute]vaj\[IAcute]c\[IAcute] ",
Cell[BoxData[
"MapThread"],ExpressionUUID->"959c254b-08ff-485f-8ca1-55993ac4e7d7"],
" (rozmyslete si, pro\[CHacek] funguje)."
}], "Text",
CellChangeTimes->{{3.500014064984375*^9, 3.500014092*^9}, {
3.795174247855276*^9,
3.7951743067609797`*^9}},ExpressionUUID->"32a8f677-6ee3-406e-9aa3-\
a57eb5d7f736"],
Cell[BoxData[
RowBox[{
RowBox[{"pridejSloupec", "[",
RowBox[{"M_", ",", "v_"}], "]"}], ":=",
RowBox[{"MapThread", "[",
RowBox[{"Append", ",",
RowBox[{"{",
RowBox[{"M", ",", "v"}], "}"}]}], "]"}]}]], "Input",
CellChangeTimes->{
3.500014130328125*^9},ExpressionUUID->"df213a13-7931-4355-9883-\
9f899e1ebb8d"],
Cell[BoxData[
RowBox[{"pridejSloupec", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"1", ",", "2"}], "}"}], ",",
RowBox[{"{",
RowBox[{"3", ",", "4"}], "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"5", ",", "6"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.500014134796875*^9,
3.500014152671875*^9}},ExpressionUUID->"7c29aa3a-2b35-4218-a3c0-\
3bba2488cd58"],
Cell[TextData[{
"P\[RHacek]\[IAcute]klad: Nech\[THacek] ",
Cell[BoxData[
FormBox[
RowBox[{"a", ",",
RowBox[{"b", ">", "0"}]}], TraditionalForm]],ExpressionUUID->
"b51bf9ff-b821-4ed8-8078-a346e1ce8f73"],
". Cassiniho ov\[AAcute]l je mno\[ZHacek]ina v\[SHacek]ech bod\[URing] v \
rovin\[EHacek], pro kter\[EAcute] je sou\[CHacek]in vzd\[AAcute]lenost\
\[IAcute] od bod\[URing] ",
Cell[BoxData[
FormBox[
RowBox[{"[",
RowBox[{
RowBox[{"-", "a"}], ",", "0"}], "]"}], TraditionalForm]],ExpressionUUID->
"26831b5d-49b2-4065-9c9e-b586ba20f135"],
" a ",
Cell[BoxData[
FormBox[
RowBox[{"[",
RowBox[{"a", ",", "0"}], "]"}], TraditionalForm]],ExpressionUUID->
"c79be578-35c6-4c93-b3a5-2eb9ad8bb39e"],
" roven ",
Cell[BoxData[
FormBox[
SuperscriptBox["b", "2"], TraditionalForm]],ExpressionUUID->
"845d8742-99e1-484e-8a88-fbd4825ba3c1"],
" (tj. je konstantn\[IAcute]). \nRovnice: ",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{
SqrtBox[
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"x", "-", "a"}], ")"}], "2"], "+",
SuperscriptBox["y", "2"]}]],
SqrtBox[
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"x", "+", "a"}], ")"}], "2"], "+",
SuperscriptBox["y", "2"]}]]}], "=",
SuperscriptBox["b", "2"]}], TraditionalForm]],ExpressionUUID->
"899c80a2-e56b-4ae9-989e-f01de72d8d72"],
", neboli ",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"x", "-", "a"}], ")"}], "2"], "+",
SuperscriptBox["y", "2"]}], ")"}],
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"x", "+", "a"}], ")"}], "2"], "+",
SuperscriptBox["y", "2"]}], ")"}]}], "=",
SuperscriptBox["b", "4"]}], TraditionalForm]],ExpressionUUID->
"cfbde7d3-2b54-413c-bf60-9559bd00b8cb"],
"\nTvar Cassiniho ov\[AAcute]lu z\[AAcute]vis\[IAcute] na tom, zda ",
Cell[BoxData[
FormBox[
RowBox[{"a", "<", "b"}], TraditionalForm]],ExpressionUUID->
"28d90055-2602-4774-8eac-fb0c97835a20"],
", ",
Cell[BoxData[
FormBox[
RowBox[{"a", "=", "b"}], TraditionalForm]],ExpressionUUID->
"fd0b3392-5d88-4f4e-b08a-3f4964695d5e"],
" nebo ",
Cell[BoxData[
FormBox[
RowBox[{"a", ">", "b"}], TraditionalForm]],ExpressionUUID->
"03dbe4ef-8260-42ce-b132-6dca78f4412c"],
". Chceme vykreslit ov\[AAcute]ly pro ",
Cell[BoxData[
FormBox[
RowBox[{"a", "=", "1"}], TraditionalForm]],ExpressionUUID->
"5bb85d5c-bb49-46a7-bb61-020dc018afe3"],
" a ",
Cell[BoxData[
FormBox[
RowBox[{"b", "\[Element]",
RowBox[{"{",
RowBox[{"0.95", ",", " ", "1", ",", " ", "1.05"}], "}"}]}],
TraditionalForm]],ExpressionUUID->"f226b0f3-8efd-4829-8603-9a27f5ffc881"],
". Krom\[EHacek] toho chceme, aby ka\[ZHacek]d\[YAcute] ze t\[RHacek]\
\[IAcute] obr\[AAcute]zk\[URing] m\[EHacek]l vhodn\[YAcute] popis (volba \
PlotLabel)."
}], "Text",
CellChangeTimes->{{3.4682106705*^9, 3.468210705765625*^9}, {
3.468211532125*^9, 3.468211557796875*^9}, {3.468211668359375*^9,
3.46821169753125*^9}, {3.48076377825*^9, 3.48076393546875*^9}, {
3.575088620371604*^9, 3.575088739977014*^9}, {3.7951743215820055`*^9,
3.795174376620902*^9}, {3.7951761222753696`*^9,
3.7951761230709715`*^9}},ExpressionUUID->"b20f06cf-a122-4d0d-989d-\
fd6e5df094be"],
Cell["Zdlouhav\[EAcute] \[RHacek]e\[SHacek]en\[IAcute]:", "Text",
CellChangeTimes->{{3.79517438662052*^9,
3.79517439233013*^9}},ExpressionUUID->"14f43721-5cd0-4b07-92c4-\
85e01111b1f4"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"ContourPlot", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"x", "-", "1"}], ")"}], "^", "2"}], "+",
RowBox[{"y", "^", "2"}]}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"x", "+", "1"}], ")"}], "^", "2"}], "+",
RowBox[{"y", "^", "2"}]}], ")"}]}], "\[Equal]",
RowBox[{"0.95", "^", "4"}]}], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "2"}], ",", "2"}], "}"}], ",",
RowBox[{"{",
RowBox[{"y", ",",
RowBox[{"-", "1"}], ",", "1"}], "}"}], ",",
RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",",
RowBox[{"ContourStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"Red", ",", "Thick"}], "}"}]}], ",",
RowBox[{"PlotLabel", "\[Rule]", "\"\\""}]}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"ContourPlot", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"x", "-", "1"}], ")"}], "^", "2"}], "+",
RowBox[{"y", "^", "2"}]}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"x", "+", "1"}], ")"}], "^", "2"}], "+",
RowBox[{"y", "^", "2"}]}], ")"}]}], "\[Equal]",
RowBox[{"1", "^", "4"}]}], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "2"}], ",", "2"}], "}"}], ",",
RowBox[{"{",
RowBox[{"y", ",",
RowBox[{"-", "1"}], ",", "1"}], "}"}], ",",
RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",",
RowBox[{"ContourStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"Red", ",", "Thick"}], "}"}]}], ",",
RowBox[{"PlotLabel", "\[Rule]", "\"\\""}]}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"ContourPlot", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"x", "-", "1"}], ")"}], "^", "2"}], "+",
RowBox[{"y", "^", "2"}]}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"x", "+", "1"}], ")"}], "^", "2"}], "+",
RowBox[{"y", "^", "2"}]}], ")"}]}], "\[Equal]",
RowBox[{"1.05", "^", "4"}]}], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "2"}], ",", "2"}], "}"}], ",",
RowBox[{"{",
RowBox[{"y", ",",
RowBox[{"-", "1"}], ",", "1"}], "}"}], ",",
RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",",
RowBox[{"ContourStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"Red", ",", "Thick"}], "}"}]}], ",",
RowBox[{"PlotLabel", "\[Rule]", "\"\b\>\""}]}], "]"}]}],
"}"}]], "Input",
CellChangeTimes->{{3.5322329565553513`*^9,
3.532233010403431*^9}},ExpressionUUID->"ee81257d-f66a-4569-93fa-\
cda741785866"],
Cell[TextData[{
"Tot\[EAcute]\[ZHacek] elegantn\[EHacek]ji pomoc\[IAcute] ",
Cell[BoxData[
"MapThread"],ExpressionUUID->"482aa1ae-269a-4b55-b57b-febd01430182"],
":"
}], "Text",
CellChangeTimes->{{3.532233157222829*^9,
3.5322331714226413`*^9}},ExpressionUUID->"f617cc06-663e-4444-bd1a-\
8d56f9fecd81"],
Cell[BoxData[
RowBox[{"MapThread", "[",
RowBox[{
RowBox[{
RowBox[{"ContourPlot", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"x", "-", "1"}], ")"}], "^", "2"}], "+",
RowBox[{"y", "^", "2"}]}], ")"}],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"x", "+", "1"}], ")"}], "^", "2"}], "+",
RowBox[{"y", "^", "2"}]}], ")"}]}], "\[Equal]",
RowBox[{"#1", "^", "4"}]}], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "2"}], ",", "2"}], "}"}], ",",
RowBox[{"{",
RowBox[{"y", ",",
RowBox[{"-", "1"}], ",", "1"}], "}"}], ",",
RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",",
RowBox[{"ContourStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"Red", ",", "Thick"}], "}"}]}], ",",
RowBox[{"PlotLabel", "\[Rule]", "#2"}]}], "]"}], "&"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0.95", ",", "1", ",", "1.05"}], "}"}], ",",
RowBox[{"{",
RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\b\>\""}],
"}"}]}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.480763271984375*^9, 3.48076327284375*^9}, {
3.480763307046875*^9, 3.48076347640625*^9}, {3.4807635114375*^9,
3.480763556765625*^9}, {3.480763610234375*^9, 3.480763610625*^9}, {
3.4807636903125*^9, 3.48076372203125*^9}, {3.480764385765625*^9,
3.480764423890625*^9}, {3.5322330236741905`*^9,
3.5322330376409893`*^9}},ExpressionUUID->"29ac0c15-cd5f-487a-b295-\
c6f980ecfb37"]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
Cell[BoxData["Nest"],ExpressionUUID->"4df79b9c-f1ab-4de4-a9ef-23d7be566822"],
" a ",
Cell[BoxData[
"NestList"],ExpressionUUID->"d79eaa93-1396-4a46-b358-3a31696b6ea9"]
}], "Subsection",
CellChangeTimes->{{3.480764662578125*^9,
3.480764670328125*^9}},ExpressionUUID->"006c2b52-7bd2-434f-a5fb-\
53955cda5b6c"],
Cell[TextData[{
"M\[AAcute]me-li funkci ",
Cell[BoxData[
FormBox["f", TraditionalForm]],ExpressionUUID->
"29f8ff7a-759e-4b9b-a71e-a679634800ee"],
" jedn\[EAcute] prom\[EHacek]nn\[EAcute], pak jej\[IAcute]m skl\[AAcute]d\
\[AAcute]n\[IAcute]m se sebou samou vznikaj\[IAcute] tzv. iterace. Prvn\
\[IAcute] iterace je ",
Cell[BoxData[
FormBox["f", TraditionalForm]],ExpressionUUID->
"ce946bce-b27f-401b-95d6-fd6256e2151a"],
", druh\[AAcute] iterace je ",
Cell[BoxData[
FormBox[
RowBox[{"f", "\[SmallCircle]", "f"}], TraditionalForm]],ExpressionUUID->
"38ff0b4d-4ae0-4bd1-8b3b-28139553bbfe"],
", t\[RHacek]et\[IAcute] iterace je ",
Cell[BoxData[
FormBox[
RowBox[{"f", "\[SmallCircle]", "f", "\[SmallCircle]", "f"}],
TraditionalForm]],ExpressionUUID->"86f87611-f60c-45dd-bce7-306d04ffce37"],
", atd."
}], "Text",
CellChangeTimes->{{3.7951744924727063`*^9,
3.795174593577484*^9}},ExpressionUUID->"05bd1ab3-029a-4b39-b8cd-\
44afd3d8955c"],
Cell[TextData[{
Cell[BoxData["Nest"],ExpressionUUID->"11683dbb-d0c8-4a49-8968-6b81279f4adf"],
" po\[CHacek]\[IAcute]t\[AAcute] iterace zadan\[EAcute] funkce:"
}], "Text",
CellChangeTimes->{{3.468209608*^9,
3.4682096231875*^9}},ExpressionUUID->"a1305472-cb8a-40aa-a079-b52d761e2699"],
Cell[BoxData[
RowBox[{
RowBox[{"Nest", "[",
RowBox[{"f", ",", "x", ",", "3"}], "]"}], " ",
RowBox[{"(*", " ",
RowBox[{
"hodnota", " ", "t\[RHacek]et\[IAcute]", " ", "iterace", " ", "f", " ",
"v", " ", "bod\[EHacek]", " ", "x"}], " ", "*)"}]}]], "Input",
CellChangeTimes->{{3.417345683046875*^9, 3.41734571203125*^9}, {
3.41734576653125*^9, 3.4173457666875*^9}, {3.480745733328125*^9,
3.480745744203125*^9}, {3.795174599287094*^9,
3.7951746172895255`*^9}},ExpressionUUID->"7b56748c-f030-4294-b696-\
6e0881ee1373"],
Cell[BoxData[
RowBox[{"Nest", "[",
RowBox[{"Cos", ",", "1", ",", "3"}], "]"}]], "Input",
CellChangeTimes->{{3.417345683046875*^9, 3.41734571203125*^9}, {
3.480745749546875*^9,
3.480745749734375*^9}},ExpressionUUID->"d9343b1a-582c-45e0-aeab-\
a66784cc73d6"],
Cell[TextData[{
"Pou\[ZHacek]it\[IAcute]: ",
Cell[BoxData["Nest"],ExpressionUUID->"5412b2ae-bd93-45fd-93c8-0e4cf4dcc5ed"],
" se hod\[IAcute] pro po\[CHacek]\[IAcute]t\[AAcute]n\[IAcute] \[CHacek]len\
\[URing] posloupnost\[IAcute] definovan\[YAcute]ch rekurentn\[IAcute]m \
vzorcem typu ",
Cell[BoxData[
FormBox[
RowBox[{
SubscriptBox["a",
RowBox[{"n", "+", "1"}]], "=",
RowBox[{"f", "(",
SubscriptBox["a", "n"], ")"}]}], TraditionalForm]],ExpressionUUID->
"1d07fd6a-c6d1-4553-8689-edd9791eeb60"],
". Zn\[AAcute]me-li ",
Cell[BoxData[
FormBox[
SubscriptBox["a", "0"], TraditionalForm]],ExpressionUUID->
"eeed7bf0-44fc-410d-a88f-45c575b454bb"],
", pak ",
Cell[BoxData[
FormBox[
RowBox[{
SubscriptBox["a", "1"], "=",
RowBox[{"f", "(",
SubscriptBox["a", "0"], ")"}]}], TraditionalForm]],ExpressionUUID->
"4b098283-587b-4bbc-93de-2146a86e27c8"],
", ",
Cell[BoxData[
FormBox[
RowBox[{
SubscriptBox["a", "2"], "=",
RowBox[{
RowBox[{"f", "(",
SubscriptBox["a", "1"], ")"}], "=",
RowBox[{"f", "(",
RowBox[{"f", "(",
SubscriptBox["a", "0"], ")"}], ")"}]}]}], TraditionalForm]],
ExpressionUUID->"e5d66a22-3175-4a66-b3bf-c7a5560e69ed"],
", atd.; obecn\[EHacek] plat\[IAcute], \[ZHacek]e ",
Cell[BoxData[
FormBox[
SubscriptBox["a", "n"], TraditionalForm]],ExpressionUUID->
"55313982-9536-43f4-ac60-375d5eaa8b67"],
" je hodnota ",
Cell[BoxData[
FormBox["n", TraditionalForm]],ExpressionUUID->
"be3c14c5-848d-42e8-a7f7-0adbd879e9c6"],
"-t\[EAcute] iterace ",
Cell[BoxData[
FormBox["f", TraditionalForm]],ExpressionUUID->
"5ddb273e-be54-4c90-b0d3-54277ff3e864"],
" v bod\[EHacek] ",
Cell[BoxData[
FormBox[
SubscriptBox["a", "0"], TraditionalForm]],ExpressionUUID->
"5c57ed7f-af85-4185-b1ba-ba6873384216"],
"."
}], "Text",
CellChangeTimes->{{3.468209661109375*^9, 3.46820971734375*^9}, {
3.468209785*^9, 3.468209794609375*^9}, {3.795174627242343*^9,
3.795174745864951*^9}, {3.7951761774058666`*^9,
3.795176181477474*^9}},ExpressionUUID->"124f2216-6a7f-4155-9618-\
2dc0fadd29d6"],
Cell["\<\
P\[RHacek]\[IAcute]klad: Spo\[RHacek]\[IAcute]c\[IAcute] \
\[UAcute]\[CHacek]et, \[UAcute]rok 3 % ro\[CHacek]n\[EHacek] p\[RHacek]ipisov\
\[AAcute]n m\[EHacek]s\[IAcute]\[CHacek]n\[EHacek], poplatky 30 K\[CHacek] m\
\[EHacek]s\[IAcute]\[CHacek]n\[EHacek]. Vklad 20 000 K\[CHacek], \
vypo\[CHacek]\[IAcute]tejte z\[URing]statek po 12 m\[EHacek]s\[IAcute]c\
\[IAcute]ch.\
\>", "Text",
CellChangeTimes->{{3.449287542359375*^9, 3.449287607421875*^9}, {
3.480765134171875*^9, 3.480765161375*^9}, {3.7951748458455267`*^9,
3.795174857732748*^9}, {3.79517620202271*^9,
3.795176234969968*^9}},ExpressionUUID->"7526ebe3-775f-471a-a2e9-\
ec0cf35ac338"],
Cell[TextData[{
"Jestli\[ZHacek]e ",
Cell[BoxData[
FormBox[
SubscriptBox["a", "n"], TraditionalForm]],ExpressionUUID->
"59e63baf-6ded-4b6d-8973-3139c1ff22cb"],
" je z\[URing]statek po ",
Cell[BoxData[
FormBox["n", TraditionalForm]],ExpressionUUID->
"55a532e6-039a-4b40-b0bf-732985647d16"],
" m\[EHacek]s\[IAcute]c\[IAcute]ch, pak ",
Cell[BoxData[
FormBox[
RowBox[{
SubscriptBox["a", "0"], "=", "20000"}], TraditionalForm]],ExpressionUUID->
"84ad19c2-bd4a-45bc-b723-20e38fb53218"],
" a ",
Cell[BoxData[
FormBox[
RowBox[{
SubscriptBox["a",
RowBox[{"n", "+", "1"}]], "=",
RowBox[{"f", "(",
SubscriptBox["a", "n"], ")"}]}], TraditionalForm]],ExpressionUUID->
"57b9c4c7-af38-42c5-bc8b-13e79a4588d1"],
", kde ",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{"f", "(", "x", ")"}], "=",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
FractionBox["0.03", "12"]}], ")"}], "x"}], "-", "30"}]}],
TraditionalForm]],ExpressionUUID->"346d9097-b708-4956-a7b3-345c675706ab"],
"."
}], "Text",
CellChangeTimes->{{3.7951747616989794`*^9, 3.795174837905113*^9}, {
3.7951762483859916`*^9,
3.795176250647996*^9}},ExpressionUUID->"a26a31dd-4b7b-43e3-816e-\
3bbe2f97805b"],
Cell["\[CapitalRHacek]e\[SHacek]en\[IAcute] pomoc\[IAcute] p\[RHacek]episovac\
\[IAcute]ch pravidel:", "Text",
CellChangeTimes->{{3.468209513265625*^9, 3.468209524109375*^9}, {
3.468209826328125*^9,
3.468209830953125*^9}},ExpressionUUID->"9367208f-e438-414b-9773-\
c307f6ed8ad1"],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"a", "[", "0", "]"}], ":=", "20000"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"a", "[", "n_", "]"}], ":=",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"0.03", "/", "12"}]}], ")"}], "*",
RowBox[{"a", "[",
RowBox[{"n", "-", "1"}], "]"}]}], "-", "30"}], ")"}]}]}], "Input",
CellChangeTimes->{{3.46820952615625*^9,
3.468209556296875*^9}},ExpressionUUID->"5656d60c-ddd8-445b-b6a5-\
379d4ae30278"],
Cell[BoxData[
RowBox[{"a", "[", "12", "]"}]], "Input",
CellChangeTimes->{{3.4682095588125*^9,
3.46820956928125*^9}},ExpressionUUID->"a59ed749-17ec-4240-a0eb-\
16c250fa3f3a"],
Cell[BoxData[
RowBox[{"Clear", "[", "a", "]"}]], "Input",
CellChangeTimes->{{3.46820957290625*^9,
3.46820957425*^9}},ExpressionUUID->"17bcdff4-2f3c-41d6-8ed2-fadba04b8d79"],
Cell[TextData[{
"Ekvivalentn\[EHacek] pomoc\[IAcute] ",
Cell[BoxData["Nest"],ExpressionUUID->"56727a6e-6af2-458a-95dd-bcfc0310fbcb"],
" a anonymn\[IAcute] funkce:"
}], "Text",
CellChangeTimes->{{3.46820983815625*^9, 3.468209848359375*^9}, {
3.468209884109375*^9,
3.468209888*^9}},ExpressionUUID->"4f3629d9-d183-40d3-a672-cc9ebf1865cc"],
Cell[BoxData[
RowBox[{"Nest", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"0.03", "/", "12"}]}], ")"}], "*", "#"}], "-", "30"}], ")"}],
"&"}], ",", "20000", ",", "12"}], "]"}]], "Input",
CellChangeTimes->{{3.4492859069375*^9, 3.44928590703125*^9}, {
3.44928593978125*^9, 3.44928594203125*^9}, {3.4492859935625*^9,
3.449285998421875*^9}, {3.449286072515625*^9, 3.4492861495*^9}, {
3.44928622634375*^9, 3.44928622653125*^9}, {3.44928698053125*^9,
3.449286981109375*^9}},ExpressionUUID->"1018664b-b580-4b28-92d0-\
3ac3a4c52c48"],
Cell[TextData[{
Cell[BoxData[
RowBox[{"NestList", "[",
RowBox[{"f", ",", "x", ",", "n"}], "]"}]],ExpressionUUID->
"ac4f4639-0f07-489b-bb67-849e99059dad"],
" vrac\[IAcute] seznam v\[SHacek]ech iterac\[IAcute] od nult\[EAcute] po ",
Cell[BoxData[
FormBox["n", TraditionalForm]],ExpressionUUID->
"37466af5-8167-40e1-8aec-b87d0f2a6683"],
"-tou."
}], "Text",
CellChangeTimes->{{3.480745826890625*^9,
3.480745881*^9}},ExpressionUUID->"485d8d8a-4a4b-4ff2-a370-1e0584a757ae"],
Cell[BoxData[
RowBox[{"NestList", "[",
RowBox[{"f", ",", "x", ",", "3"}], "]"}]], "Input",
CellChangeTimes->{{3.48074586103125*^9,
3.4807458699375*^9}},ExpressionUUID->"d0a47bd9-f1bd-4a53-953e-ce4849471db5"],
Cell[BoxData[
RowBox[{
RowBox[{"NestList", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"0.03", "/", "12"}]}], ")"}], "*", "#"}], "-", "30"}],
")"}], "&"}], ",", "20000", ",", "12"}], "]"}],
RowBox[{"(*", " ",
RowBox[{
"v\[YAcute]voj", " ", "z\[URing]statk\[URing]", " ", "b\[EHacek]hem", " ",
"prvn\[IAcute]ch", " ", "12", " ", "m\[EHacek]s\[IAcute]c\[URing]"}], " ",
"*)"}]}]], "Input",
CellChangeTimes->{{3.4492859069375*^9, 3.44928590703125*^9}, {
3.44928593978125*^9, 3.44928594203125*^9}, {3.4492859935625*^9,
3.449285998421875*^9}, {3.449286072515625*^9, 3.4492861495*^9}, {
3.44928622634375*^9, 3.44928622653125*^9}, {3.795174876405981*^9,
3.7951748955784144`*^9}},ExpressionUUID->"4e27a7fd-7ede-4ab6-bc54-\
93cbf061956d"],
Cell["Grafick\[EAcute] zn\[AAcute]zorn\[EHacek]n\[IAcute]:", "Text",
CellChangeTimes->{{3.5322334940230927`*^9,
3.532233500071439*^9}},ExpressionUUID->"7a03d094-8b47-4ba6-81c7-\
02e8e1d3e0dc"],
Cell[BoxData[
RowBox[{"ListPlot", "[",
RowBox[{
RowBox[{"NestList", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"0.03", "/", "12"}]}], ")"}], "*", "#"}], "-", "30"}],
")"}], "&"}], ",", "20000", ",",
RowBox[{"12", "*", "3"}]}], "]"}], ",",
RowBox[{"Filling", "\[Rule]", "Axis"}], ",",
RowBox[{"AxesLabel", "\[Rule]",
RowBox[{"{",
RowBox[{
"\"\\"", ",", "\"\<\[CHacek]\[AAcute]stka\>\""}],
"}"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.5322332110139055`*^9, 3.5322332260317645`*^9}, {
3.5322334106893263`*^9, 3.532233459776134*^9}, {3.5322335138002243`*^9,
3.5322335534564924`*^9}},ExpressionUUID->"0fe64c37-2c4f-4ac5-9c62-\
467ce6325942"],
Cell["\<\
Pomoc\[IAcute] Manipulate (budeme prob\[IAcute]rat pozd\[EHacek]ji) lze \
interaktivn\[EHacek] m\[EHacek]nit parametry:\
\>", "Text",
CellChangeTimes->{{3.532234674078588*^9, 3.5322347070314727`*^9}, {
3.7951749104452405`*^9,
3.7951749401164923`*^9}},ExpressionUUID->"8adb41b5-d1c6-4bea-9ff2-\
49d3b20f59a3"],
Cell[BoxData[
RowBox[{"Manipulate", "[",
RowBox[{
RowBox[{"ListPlot", "[",
RowBox[{
RowBox[{"NestList", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"urok", "/", "12"}]}], ")"}], "*", "#"}], "-",
"poplatek"}], ")"}], "&"}], ",", "20000", ",", "pocet"}], "]"}],
",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"10000", ",", "37000"}], "}"}]}], ",",
RowBox[{"Filling", "\[Rule]", "Axis"}], ",",
RowBox[{"AxesLabel", "\[Rule]",
RowBox[{"{",
RowBox[{
"\"\\"", ",",
"\"\<\[CHacek]\[AAcute]stka\>\""}], "}"}]}]}], "]"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"urok", ",", "0.03", ",", "\"\<\[UAcute]rok p.a.\>\""}], "}"}],
",", "0", ",", "0.1", ",",
RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"poplatek", ",", "30"}], "}"}], ",", "0", ",", "100", ",",
RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"pocet", ",",
RowBox[{"3", "*", "12"}], ",",
"\"\\""}], "}"}], ",",
"12", ",",
RowBox[{"6", "*", "12"}], ",", "1", ",",
RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}]}],
"]"}]], "Input",
CellChangeTimes->{{3.532233635400179*^9, 3.5322337896820035`*^9}, {
3.5322338313773885`*^9, 3.5322338944979987`*^9}, 3.532233947835049*^9, {
3.5322339855862083`*^9, 3.532234044233563*^9}, {3.532234082850772*^9,
3.532234118785827*^9}},ExpressionUUID->"695f4fc5-75b7-4308-82d7-\
238eb9027483"],
Cell["\<\
P\[RHacek]\[IAcute]klad: Ve cvi\[CHacek]en\[IAcute] k 6. lekci bylo \
\[UAcute]kolem naprogramovat n\[AAcute]hodnou proch\[AAcute]zku v rovin\
\[EHacek]. Zde je elegantn\[IAcute] \[RHacek]e\[SHacek]en\[IAcute] pomoc\
\[IAcute] NestList.\
\>", "Text",
CellChangeTimes->{{3.5949036294071045`*^9, 3.5949036554591503`*^9}, {
3.5949040328862133`*^9, 3.5949040394382243`*^9}, {3.7951749780089593`*^9,
3.795175007493011*^9}},ExpressionUUID->"939391ef-cbd7-4a4e-9724-\
0152dffe7e8a"],
Cell[BoxData[
RowBox[{
RowBox[{"walk", "=",
RowBox[{"NestList", "[",
RowBox[{
RowBox[{
RowBox[{"#", "+",
RowBox[{"RandomReal", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "2"}], "]"}]}], "&"}],
",",
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}], ",", "1000"}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{
3.594903499801077*^9, {3.5949035520299683`*^9, 3.5949035639795895`*^9}, {
3.594903971858906*^9, 3.594904003199361*^9}, {3.594904070061078*^9,
3.5949040940539207`*^9}},ExpressionUUID->"ce4aa43a-759b-420c-b29a-\
d0dd3ec623d8"],
Cell[BoxData[
RowBox[{"ListLinePlot", "[",
RowBox[{"walk", ",",
RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]], "Input",
CellChangeTimes->{{3.5949033242851686`*^9, 3.594903422549741*^9}, {
3.5949035572091775`*^9, 3.5949035577395782`*^9},
3.5949040114673758`*^9},ExpressionUUID->"1c41b3ea-4f27-42a3-b388-\
061c2de32a3f"]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
Cell[BoxData["Fold"],ExpressionUUID->"d47110cc-3804-4286-abd4-4f639ef4feec"],
" a ",
Cell[BoxData[
"FoldList"],ExpressionUUID->"f4e87840-a55e-42c8-a26a-7eac5742f055"]
}], "Subsection",
CellChangeTimes->{{3.4807646785*^9,
3.4807646854375*^9}},ExpressionUUID->"d1b12af6-845d-417e-83b1-c1cae02f2b55"],
Cell[TextData[{
Cell[BoxData["Fold"],ExpressionUUID->"b6f375c5-6b5e-46e9-9faa-15d1ed85bd4e"],
" a ",
Cell[BoxData[
"FoldList"],ExpressionUUID->"d47f59e8-6717-4bc9-8e16-dd615f4dc2e1"],
" jsou varianty ",
Cell[BoxData["Nest"],ExpressionUUID->"eeaf33cb-1534-43e7-a9d8-e302360b15ea"],
" a ",
Cell[BoxData[
"NestList"],ExpressionUUID->"7652e696-33ca-4a46-8a00-298e22f4b584"],
" pro funkce dvou prom\[EHacek]nn\[YAcute]ch. Opakovan\[EHacek] volaj\
\[IAcute] zadanou funkci ",
Cell[BoxData[
FormBox["f", TraditionalForm]],ExpressionUUID->
"2367d893-c879-4046-a5ae-db00f81f8d65"],
", do kter\[EAcute] dosazuj\[IAcute] v\[ZHacek]dy v\[YAcute]sledek \
p\[RHacek]edchoz\[IAcute]ho kroku (nebo po\[CHacek]\[AAcute]te\[CHacek]n\
\[IAcute] hodnotu) a prvky zadan\[EAcute]ho seznamu. V\[YAcute]po\[CHacek]et \
m\[AAcute] tolik krok\[URing], kolik je d\[EAcute]lka zadan\[EAcute]ho \
seznamu."
}], "Text",
CellChangeTimes->{{3.79517510888859*^9,
3.7951752769788847`*^9}},ExpressionUUID->"c115f714-929e-4386-96cf-\
cf29b33cf31e"],
Cell[BoxData[
RowBox[{
RowBox[{"FoldList", "[",
RowBox[{"f", ",", "x", ",",
RowBox[{"{",
RowBox[{"b1", ",", "b2", ",", "b3"}], "}"}]}], "]"}], " ",
RowBox[{"(*", " ",
RowBox[{
"FoldList", " ", "vrac\[IAcute]", " ", "kompletn\[IAcute]", " ",
"pr\[URing]b\[EHacek]h", " ", "v\[YAcute]po\[CHacek]tu"}], " ",
"*)"}]}]], "Input",
CellChangeTimes->{{3.480745980046875*^9, 3.480746059046875*^9}, {
3.795175535178939*^9,
3.795175550076965*^9}},ExpressionUUID->"3a3a1298-eb6c-41b8-bc63-\
7d867c6bc32f"],
Cell[BoxData[
RowBox[{
RowBox[{"Fold", "[",
RowBox[{"f", ",", "x", ",",
RowBox[{"{",
RowBox[{"b1", ",", "b2", ",", "b3"}], "}"}]}], "]"}], " ",
RowBox[{"(*", " ",
RowBox[{
"Fold", " ", "vrac\[IAcute]", " ", "pouze", " ", "v\[YAcute]sledek"}], " ",
"*)"}]}]], "Input",
CellChangeTimes->{{3.480746096140625*^9, 3.480746096703125*^9}, {
3.795175552697769*^9,
3.795175562837787*^9}},ExpressionUUID->"dff704b5-28c9-4a48-8c2a-\
b40463f7ceaf"],
Cell[TextData[{
"Pou\[ZHacek]it\[IAcute]: Po\[CHacek]\[IAcute]t\[AAcute]n\[IAcute] \
\[CHacek]len\[URing] posloupnosti definovan\[EAcute] rekurentn\[IAcute]m \
vzorcem typu ",
Cell[BoxData[
FormBox[
RowBox[{
SubscriptBox["a",
RowBox[{"n", "+", "1"}]], "=",
RowBox[{"f", "(",
RowBox[{
SubscriptBox["a", "n"], ",",
SubscriptBox["b", "n"]}], ")"}]}], TraditionalForm]],ExpressionUUID->
"f8eb97e4-d12a-4129-a100-896445b341e7"],
", kde ",
Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{
SubscriptBox["b", "1"], ",",
SubscriptBox["b", "2"], ",", " ",
SubscriptBox["b", "3"], ",", " ", "\[Ellipsis]"}], "}"}],
TraditionalForm]],ExpressionUUID->"f8f3b1f5-2173-4fb7-b297-e5e6a23f2501"],
" jsou zadan\[EAcute] parametry."
}], "Text",
CellChangeTimes->{{3.468209969859375*^9, 3.46821004353125*^9}, {
3.795175585645027*^9,
3.7951756087486677`*^9}},ExpressionUUID->"2d103692-3eda-4856-a68f-\
d4da8a02b9d6"],
Cell["\<\
P\[RHacek]\[IAcute]klad: Spo\[RHacek]\[IAcute]c\[IAcute] \[UAcute]\[CHacek]et \
s variabiln\[IAcute] \[UAcute]rokovou m\[IAcute]rou 0.03, 0.03, 0.02, 0.02 b\
\[EHacek]hem prvn\[IAcute]ch 4 m\[EHacek]s\[IAcute]c\[URing], po\[CHacek]\
\[AAcute]te\[CHacek]n\[IAcute] vklad 20 000 K\[CHacek], m\[EHacek]s\[IAcute]\
\[CHacek]n\[IAcute] poplatek 30 K\[CHacek].\
\>", "Text",
CellChangeTimes->{{3.449287620828125*^9, 3.4492876455*^9}, {
3.48076517884375*^9, 3.48076519365625*^9}, {3.795175622585892*^9,
3.795175651664343*^9}},ExpressionUUID->"97a9109a-7aa3-43c6-839b-\
ffd415114be6"],
Cell[BoxData[
RowBox[{"Fold", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"#2", "/", "12"}]}], ")"}], "*", "#1"}], "-", "30"}], ")"}],
"&"}], ",", "20000", ",",
RowBox[{"{",
RowBox[{"0.03", ",", "0.03", ",", "0.02", ",", "0.02"}], "}"}]}],
"]"}]], "Input",
CellChangeTimes->{{3.4492859069375*^9, 3.44928590703125*^9}, {
3.44928593978125*^9, 3.44928594203125*^9}, {3.4492859935625*^9,
3.449285998421875*^9}, {3.449286072515625*^9, 3.4492861495*^9}, {
3.44928622634375*^9, 3.44928622653125*^9}, {3.449286495921875*^9,
3.4492866568125*^9}, {3.44928678471875*^9, 3.449286785328125*^9}, {
3.480746263*^9,
3.480746264703125*^9}},ExpressionUUID->"078e2b56-b27a-4b4c-9612-\
891d825c7036"],
Cell[BoxData[
RowBox[{"FoldList", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"#2", "/", "12"}]}], ")"}], "*", "#1"}], "-", "30"}], ")"}],
"&"}], ",", "20000", ",",
RowBox[{"{",
RowBox[{"0.03", ",", "0.03", ",", "0.02", ",", "0.02"}], "}"}]}],
"]"}]], "Input",
CellChangeTimes->{{3.4492859069375*^9, 3.44928590703125*^9}, {
3.44928593978125*^9, 3.44928594203125*^9}, {3.4492859935625*^9,
3.449285998421875*^9}, {3.449286072515625*^9, 3.4492861495*^9}, {
3.44928622634375*^9, 3.44928622653125*^9}, {3.449286495921875*^9,
3.4492866568125*^9}, {3.480746267234375*^9,
3.4807462689375*^9}},ExpressionUUID->"6e170bb2-78bd-4dab-ad7e-0017003bd867"]
}, Open ]]
}, Open ]]
}, Open ]]
},
WindowSize->{
Scaled[1],
Scaled[1]},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
ShowSelection->True,
Magnification:>FEPrivate`If[
FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.25, 1.25 Inherited],
FrontEndVersion->"12.2 for Microsoft Windows (64-bit) (December 12, 2020)",
StyleDefinitions->Notebook[{
Cell[
StyleData[StyleDefinitions -> "Default.nb"]],
Cell[
StyleData["Section"], FontColor -> RGBColor[1, 0.5, 0], Background ->
RGBColor[1., 1., 0.6509803921568628]],
Cell[
StyleData["Title"], FontColor -> RGBColor[0., 0.5019607843137255, 1.]]},
Visible -> False, FrontEndVersion ->
"12.2 for Microsoft Windows (64-bit) (December 12, 2020)", StyleDefinitions ->
"PrivateStylesheetFormatting.nb"],
ExpressionUUID->"b36664cd-2176-4b72-9dd1-6fe4669a81db"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 297, 5, 121, "Title",ExpressionUUID->"5dcffc4e-6fcc-4ae1-b6a4-4e5ea1da5181"],
Cell[CellGroupData[{
Cell[889, 31, 351, 6, 88, "Section",ExpressionUUID->"c2b6dd83-cf32-44e9-9665-80d567658e23"],
Cell[1243, 39, 304, 6, 43, "Text",ExpressionUUID->"f66dfbdd-c34a-4d14-9c88-0de7d8247f8a"],
Cell[1550, 47, 498, 13, 35, "Input",ExpressionUUID->"6d59dfb4-b8d1-4ab9-9926-43dd3299b7f4"],
Cell[2051, 62, 498, 13, 35, "Input",ExpressionUUID->"cba56358-ec7b-400a-bcca-c96d0e32702e"],
Cell[2552, 77, 788, 20, 35, "Input",ExpressionUUID->"bc29ea3a-e86d-496d-9658-f0790245dda8"]
}, Open ]],
Cell[CellGroupData[{
Cell[3377, 102, 233, 4, 88, "Section",ExpressionUUID->"e6120ded-30e2-4483-9967-8b8e91910528"],
Cell[3613, 108, 326, 7, 43, "Text",ExpressionUUID->"a94e5f37-0f55-456f-b609-79947d306146"],
Cell[3942, 117, 1971, 43, 141, "Text",ExpressionUUID->"9d162281-bbd6-44c8-9f60-b388375f2516"],
Cell[5916, 162, 811, 16, 71, "Text",ExpressionUUID->"9bcd2192-8a7a-48d0-994c-eab289e3cac4"],
Cell[6730, 180, 443, 8, 43, "Text",ExpressionUUID->"56a3d4ed-a1cc-445b-bc6d-8c8c2ba35c16"],
Cell[7176, 190, 1835, 41, 227, "Text",ExpressionUUID->"afdf66f9-168b-4b79-ad4b-d650bec6d076"],
Cell[9014, 233, 580, 10, 71, "Text",ExpressionUUID->"9f385a59-1fdd-44c9-bd59-86c9f9c12601"],
Cell[9597, 245, 453, 8, 39, "Item",ExpressionUUID->"e0108372-a033-40fd-84f0-2c7962ce67f4"],
Cell[10053, 255, 245, 4, 39, "Item",ExpressionUUID->"cb9415b7-6c35-47f3-b942-c8c4eed03bcc"],
Cell[10301, 261, 254, 4, 39, "Item",ExpressionUUID->"32ec608a-5ea1-452f-acf5-f11d6d3af81c"],
Cell[10558, 267, 298, 5, 39, "Item",ExpressionUUID->"febe088c-14d4-4558-9cc6-1d3e38959a01"],
Cell[10859, 274, 506, 13, 43, "Text",ExpressionUUID->"a070b52e-70fb-4e87-add1-226443b5da8e"],
Cell[11368, 289, 442, 10, 43, "Text",ExpressionUUID->"1eb0d95b-1490-44b0-8315-dcad3c5e493e"],
Cell[11813, 301, 433, 12, 35, "Input",ExpressionUUID->"cfc3e542-c479-4041-ae9f-ddca1ea6db48"],
Cell[12249, 315, 308, 6, 35, "Input",ExpressionUUID->"f5a7e506-ace0-4957-aad4-59e715996249"],
Cell[12560, 323, 227, 4, 35, "Input",ExpressionUUID->"ed1645b5-27d0-479e-83b0-962180c0fd2f"],
Cell[12790, 329, 529, 10, 71, "Text",ExpressionUUID->"075b2d3e-c111-43c3-9e52-e765dcadc68c"],
Cell[13322, 341, 245, 4, 43, "Text",ExpressionUUID->"75da9219-f735-4310-82c0-0962017972c1"],
Cell[13570, 347, 441, 13, 35, "Input",ExpressionUUID->"37c2d968-55f5-4eb8-b34e-258ee5e4c280"],
Cell[14014, 362, 556, 14, 35, "Input",ExpressionUUID->"3fe38793-8f51-4429-952b-f3707167a694"],
Cell[14573, 378, 578, 15, 35, "Input",ExpressionUUID->"2e8b0b06-ac53-4748-b570-3dbff9c48033"],
Cell[15154, 395, 583, 16, 35, "Input",ExpressionUUID->"dd20854d-022a-4297-ac37-ffbfe32e28eb"],
Cell[15740, 413, 411, 8, 43, "Text",ExpressionUUID->"614cb9dc-efa0-4a4d-9557-5359c3827735"],
Cell[16154, 423, 280, 4, 39, "Item",ExpressionUUID->"fd9272ab-81eb-4fac-a60f-9fbb9903268c"],
Cell[16437, 429, 253, 4, 39, "Item",ExpressionUUID->"eecdb896-9360-4b59-bbab-b618cb562266"],
Cell[16693, 435, 333, 7, 39, "Item",ExpressionUUID->"a390f353-06e8-4e33-b799-f8858d75e963"],
Cell[17029, 444, 340, 5, 39, "Item",ExpressionUUID->"25a1f7e2-6c0d-4544-817a-958e16dce6f8"],
Cell[17372, 451, 305, 5, 43, "Text",ExpressionUUID->"48c468b8-416a-4d45-a732-08eef2dcc87b"],
Cell[17680, 458, 418, 10, 35, "Input",ExpressionUUID->"bc4c907d-2e2f-45df-8a5e-abca484b700f"],
Cell[18101, 470, 377, 7, 43, "Text",ExpressionUUID->"e00249d6-73b8-43e5-b340-0d2ea38ee2d7"]
}, Open ]],
Cell[CellGroupData[{
Cell[18515, 482, 202, 3, 88, "Section",ExpressionUUID->"b0e388dd-2421-4abd-bee1-850869b0fd9c"],
Cell[18720, 487, 327, 7, 43, "Text",ExpressionUUID->"8a9f8fd6-43fd-438b-ab72-313807da1bfe"],
Cell[19050, 496, 312, 5, 39, "Item",ExpressionUUID->"d4b475f9-06b1-4b5e-a697-6c9d2f15d53c"],
Cell[19365, 503, 332, 5, 39, "Item",ExpressionUUID->"7188a0bb-18c5-4325-a0e3-1077c8483392"],
Cell[19700, 510, 278, 5, 39, "Item",ExpressionUUID->"2a104c7d-445f-4224-be60-b6c9286fb435"],
Cell[19981, 517, 336, 7, 43, "Text",ExpressionUUID->"d4f7d891-a966-48b3-b280-3630d62c5a4f"],
Cell[CellGroupData[{
Cell[20342, 528, 325, 7, 67, "Subsection",ExpressionUUID->"41b4ed6e-0fd1-4854-8352-f57426040ffa"],
Cell[20670, 537, 331, 7, 43, "Text",ExpressionUUID->"5b0cd056-f6ff-4913-b29d-45cf6cbac277"],
Cell[21004, 546, 266, 7, 35, "Input",ExpressionUUID->"a3f305b1-1e0b-4e7c-b4cc-75dc4a0b7f8a"],
Cell[21273, 555, 170, 2, 43, "Text",ExpressionUUID->"419f7f02-0f03-4d09-9cda-cf9571211482"],
Cell[21446, 559, 234, 6, 35, "Input",ExpressionUUID->"fdc3fea3-59a0-466d-8ee6-8923a7d4fe3c"],
Cell[21683, 567, 168, 3, 43, "Text",ExpressionUUID->"0dc31802-6a2d-4ccb-99f8-1ebbe94bdf3d"],
Cell[21854, 572, 352, 7, 35, "Input",ExpressionUUID->"7d1f36cd-5a74-4ad8-a253-0b75cec06a66"],
Cell[22209, 581, 639, 14, 43, "Text",ExpressionUUID->"04621c51-4dc1-4b3d-9c6b-b98fe9f282f6"],
Cell[22851, 597, 335, 7, 35, "Input",ExpressionUUID->"2972f970-3ae6-4773-8657-e6241cc4d8ad"],
Cell[23189, 606, 520, 11, 43, "Text",ExpressionUUID->"4bfe525f-2a93-40f2-9542-29a2eb572914"],
Cell[23712, 619, 357, 10, 35, "Input",ExpressionUUID->"97674c86-fdde-41eb-8d22-dc2811c7508a"],
Cell[24072, 631, 330, 9, 35, "Input",ExpressionUUID->"63d5e4f8-b814-49c4-8382-861df40aecd6"],
Cell[24405, 642, 361, 11, 35, "Input",ExpressionUUID->"3e54b871-19cb-47ce-998a-907790834b0e"],
Cell[24769, 655, 326, 9, 35, "Input",ExpressionUUID->"df9feb50-e0ba-44c4-9ba3-8d5006f047ac"],
Cell[25098, 666, 917, 14, 99, "Text",ExpressionUUID->"ae5aa477-a5ce-4537-b5fa-61175d231cfa"],
Cell[26018, 682, 1029, 28, 43, "Text",ExpressionUUID->"451bad71-aa54-47b8-bd98-bc6de962f1e2"],
Cell[27050, 712, 1054, 27, 35, "Input",ExpressionUUID->"d4129291-a0b3-46d6-a2a8-5b68e7d68545"],
Cell[28107, 741, 457, 10, 35, "Input",ExpressionUUID->"fd84dd86-7670-4460-a0e4-2dea96a60c27"],
Cell[28567, 753, 185, 3, 35, "Input",ExpressionUUID->"fe2ce87f-9fe7-451e-8aa2-4aec0061970b"],
Cell[28755, 758, 1051, 23, 71, "Text",ExpressionUUID->"6bf8a382-61a1-4d9c-bf11-efa5326790b2"],
Cell[29809, 783, 392, 11, 35, "Input",ExpressionUUID->"7627fc15-e979-45a0-90f8-91fe1b659235"],
Cell[30204, 796, 435, 12, 35, "Input",ExpressionUUID->"e785be73-fa62-4344-98bb-04b40425ca81"],
Cell[30642, 810, 624, 12, 71, "Text",ExpressionUUID->"32a8f677-6ee3-406e-9aa3-a57eb5d7f736"],
Cell[31269, 824, 334, 10, 35, "Input",ExpressionUUID->"df213a13-7931-4355-9883-9f899e1ebb8d"],
Cell[31606, 836, 419, 13, 35, "Input",ExpressionUUID->"7c29aa3a-2b35-4218-a3c0-3bba2488cd58"],
Cell[32028, 851, 3418, 102, 134, "Text",ExpressionUUID->"b20f06cf-a122-4d0d-989d-fd6e5df094be"],
Cell[35449, 955, 189, 3, 43, "Text",ExpressionUUID->"14f43721-5cd0-4b07-92c4-85e01111b1f4"],
Cell[35641, 960, 3039, 92, 156, "Input",ExpressionUUID->"ee81257d-f66a-4569-93fa-cda741785866"],
Cell[38683, 1054, 308, 8, 43, "Text",ExpressionUUID->"f617cc06-663e-4444-bd1a-8d56f9fecd81"],
Cell[38994, 1064, 1672, 45, 60, "Input",ExpressionUUID->"29ac0c15-cd5f-487a-b295-c6f980ecfb37"]
}, Open ]],
Cell[CellGroupData[{
Cell[40703, 1114, 330, 8, 67, "Subsection",ExpressionUUID->"006c2b52-7bd2-434f-a5fb-53955cda5b6c"],
Cell[41036, 1124, 968, 25, 71, "Text",ExpressionUUID->"05bd1ab3-029a-4b39-b8cd-44afd3d8955c"],
Cell[42007, 1151, 288, 5, 43, "Text",ExpressionUUID->"a1305472-cb8a-40aa-a079-b52d761e2699"],
Cell[42298, 1158, 543, 12, 35, "Input",ExpressionUUID->"7b56748c-f030-4294-b696-6e0881ee1373"],
Cell[42844, 1172, 266, 6, 35, "Input",ExpressionUUID->"d9343b1a-582c-45e0-aeab-a66784cc73d6"],
Cell[43113, 1180, 2117, 63, 71, "Text",ExpressionUUID->"124f2216-6a7f-4155-9618-2dc0fadd29d6"],
Cell[45233, 1245, 660, 12, 43, "Text",ExpressionUUID->"7526ebe3-775f-471a-a2e9-ec0cf35ac338"],
Cell[45896, 1259, 1256, 41, 48, "Text",ExpressionUUID->"a26a31dd-4b7b-43e3-816e-3bbe2f97805b"],
Cell[47155, 1302, 285, 5, 43, "Text",ExpressionUUID->"9367208f-e438-414b-9773-c307f6ed8ad1"],
Cell[47443, 1309, 527, 17, 60, "Input",ExpressionUUID->"5656d60c-ddd8-445b-b6a5-379d4ae30278"],
Cell[47973, 1328, 178, 4, 35, "Input",ExpressionUUID->"a59ed749-17ec-4240-a0eb-16c250fa3f3a"],
Cell[48154, 1334, 177, 3, 35, "Input",ExpressionUUID->"17bcdff4-2f3c-41d6-8ed2-fadba04b8d79"],
Cell[48334, 1339, 344, 7, 43, "Text",ExpressionUUID->"4f3629d9-d183-40d3-a672-cc9ebf1865cc"],
Cell[48681, 1348, 639, 16, 35, "Input",ExpressionUUID->"1018664b-b580-4b28-92d0-3ac3a4c52c48"],
Cell[49323, 1366, 487, 12, 43, "Text",ExpressionUUID->"485d8d8a-4a4b-4ff2-a370-1e0584a757ae"],
Cell[49813, 1380, 215, 4, 35, "Input",ExpressionUUID->"d0a47bd9-f1bd-4a53-953e-ce4849471db5"],
Cell[50031, 1386, 874, 22, 35, "Input",ExpressionUUID->"4e27a7fd-7ede-4ab6-bc54-93cbf061956d"],
Cell[50908, 1410, 196, 3, 43, "Text",ExpressionUUID->"7a03d094-8b47-4ba6-81c7-02e8e1d3e0dc"],
Cell[51107, 1415, 835, 23, 35, "Input",ExpressionUUID->"0fe64c37-2c4f-4ac5-9c62-467ce6325942"],
Cell[51945, 1440, 324, 7, 43, "Text",ExpressionUUID->"8adb41b5-d1c6-4bea-9ff2-49d3b20f59a3"],
Cell[52272, 1449, 1863, 50, 84, "Input",ExpressionUUID->"695f4fc5-75b7-4308-82d7-238eb9027483"],
Cell[54138, 1501, 491, 9, 43, "Text",ExpressionUUID->"939391ef-cbd7-4a4e-9724-0152dffe7e8a"],
Cell[54632, 1512, 664, 19, 35, "Input",ExpressionUUID->"ce4aa43a-759b-420c-b29a-d0dd3ec623d8"],
Cell[55299, 1533, 346, 7, 35, "Input",ExpressionUUID->"1c41b3ea-4f27-42a3-b388-061c2de32a3f"]
}, Open ]],
Cell[CellGroupData[{
Cell[55682, 1545, 321, 7, 67, "Subsection",ExpressionUUID->"d1b12af6-845d-417e-83b1-c1cae02f2b55"],
Cell[56006, 1554, 1032, 23, 71, "Text",ExpressionUUID->"c115f714-929e-4386-96cf-cf29b33cf31e"],
Cell[57041, 1579, 536, 14, 35, "Input",ExpressionUUID->"3a3a1298-eb6c-41b8-bc63-7d867c6bc32f"],
Cell[57580, 1595, 474, 13, 35, "Input",ExpressionUUID->"dff704b5-28c9-4a48-8c2a-b40463f7ceaf"],
Cell[58057, 1610, 973, 28, 43, "Text",ExpressionUUID->"2d103692-3eda-4856-a68f-d4da8a02b9d6"],
Cell[59033, 1640, 592, 10, 43, "Text",ExpressionUUID->"97a9109a-7aa3-43c6-839b-ffd415114be6"],
Cell[59628, 1652, 811, 21, 35, "Input",ExpressionUUID->"078e2b56-b27a-4b4c-9612-891d825c7036"],
Cell[60442, 1675, 769, 19, 35, "Input",ExpressionUUID->"6e170bb2-78bd-4dab-ad7e-0017003bd867"]
}, Open ]]
}, Open ]]
}, Open ]]
}
]
*)