(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 356824, 9579] NotebookOptionsPosition[ 242202, 6819] NotebookOutlinePosition[ 302956, 8193] CellTagsIndexPosition[ 302036, 8166] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ TogglerBox[2, {1-> OverlayBox[{ TagBox[GridBox[{ { GraphicsBox[RasterBox[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBLECOU2VJahIzkCEFxAJADBL8//8/ Qfzo0SP2GzduCF29elXs/Pnz0sgYn747d+5wA9VoArE/EB8B4uPoGJu+Fy9e MF+4cEENKB8AxBeB+AMQ/wXif+gYi1tBdvoB8QUg/ghV9x8XRtb7/PlzFqje t1D7cOrDpv/ixYvqUHuJ0ousHxpWAVA3E6UXWT80nC8S8i82/Q8ePOAgx26Y /uvXrwsD2UdJ8Tey/kuXLolD0wNJbofpB6YVSUr0n4ek5QHTT6n7KQ0/SuOP 0vRDafqlRv6BxgPZ+Ret/HhHrBl4yi9QWHwiFB7Yyk+QO6B+CTxPYvmJjG/f vs17nozyG1f9cR6t7gBhAPeiQ4A= "], {{0, 26}, {16, 0}}, {0, 255}, ColorFunction->RGBColor], BaseStyle->"ImageGraphics", ImageSize->Magnification[1], ImageSizeRaw->{16, 26}, PlotRange->{{0, 16}, {0, 26}}], GraphicsBox[RasterBox[CompressedData[" 1:eJzt2d9OVFcUB2DSNmkfQRFEiRQ1gCK1vW4fwT6BJu1tE9uk8fUUERE9aECC qLGYEmKkErWxtont2mGdcDLVOpNgZijfJB9hzp+99j6zb9b5Hb3ww7nvP+rr 6/vxs/hz7vzPX1+8eP7St5/El28u/fTdhY/jn/6w8GlfXzlYVdWhDgyEwXT4 HQYbBho6qQMAAOxt/Q0HWxxo0TzX3xij7juGwpFwNAyHY2EkfB6OhxPhZBgL 42EinAqnw2SYSl+Es+HL9FWb6uvP5hj1eJNZ41TWHM85nMw5Hc85juSch3MN R3JNdf/UfGbtPqf6WdW6/XsDAADsV7vd/7b2vqPV2/veuuc9k6Za1Mfr3vVt feto9e+eVb9KL2tmz81M+n25dadZ9bU2zYXbYSmshNXwoOF+uJfn7obFcKfa /twMN8L1MNtBTQAAYO+ZSVfTdLqSLreoj0/n9eXe0jeUHmQ+3AoL1XZ/UfqR 5Wq77yg9yMPwS3gcfg0b4Ul4Gn4LW+F5eBl+D6/CH+F1+DP99Q71+dd5z6sc 42WOuZU1nmbNjZzD45zTw5zjSs55KdewkGuazzXONp5Xu8+pflb185rpgd8d AABgv/kQ/W/J4krGVvrIkruVDO5RWAvr1U7fuxmeVTt9b/Ei1d+38prNaqdv Xc+xHuXY97LWYtbWr9Jryj4sGXPJmkvmXD7l/UrZsyWTLu9dyj4u72Ca2fVq nivvY8renuug5ps2/b2L2q0JAADwX3azT/kQuv18AAAA2Pv0rOxn3djz3X6f BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAADsHW/a1I2aAAAAAAAAsJ91OyOEburGnr/W prlwOyyFlbAaHjTcD/fy3N2wGO5U25+b4Ua4HmY7qAkAAAAAAAC9aCZdTdPp Srrcoj4+ndeXe0tuVjK4+XCr2s7iSsa2XG3nbiWDexTWwnrYCE/CZngWtsLz 9CLV37fyms28ZyPHWMsxH2SN5ax5O+cwn3Oabayv3XXVa6vXN9MDvxN7W9mH JWMuWXPJnMunZNBlz5ZMumTTZR+XrLqZXa/muZJtl70910HNQx0YCIPp8DsM Ngw0dFIHAAAAAAAAel1/w8EWB1o0z/U3xqhzt6FwNAyHY2EkjIYT4WQYC+Nh IpwOk+FMmmpRH5/Mayfy3rEc60SOPZK1hrP2ULWT9zXX2O666rXVuv378P/S zJ6bmfT7cuuOsup/AFmW9vs= "], {{0, 26}, {2000, 0}}, {0, 255}, ColorFunction->RGBColor], BaseStyle->"ImageGraphics", ImageSize->Magnification[1], ImageSizeRaw->{2000, 26}, PlotRange->{{0, 2000}, {0, 26}}], GraphicsBox[RasterBox[CompressedData[" 1:eJy9lstOwkAUhhthQUJcuUBl5cr4GPoABvEJINGtCZoYng4Il4Z7gXAJYUHY QAi3GlYQPZ5/4pCm0pYC2uSDaXvmn5lzzpzpVfQl/HyiKMqrj3/CkffbWCwS f/TyzV387Snq4cYlc87gYbVaDbpB07SLRqMR6Pf7PiJSnOA+6h7kmBBz0+12 Tx30v/bgk9GZOvPAa7oejUYeC306AIz1wWjM/WAw8B9ZX4L1TDHGcDj02ulX KpUNbt79jKHBV1b66Fcul3fCYgzEJNTr9fxmfaldKpWoUChQPp8X/8ViUWB8 BhuLMRCPGvJqmz76QWOxWFCtVqNsNku5XE6AdqfToclkImxga7cGuT/M+uw/ ms/ntF6vqdlsUjKZFKCNC/pynTZxyLbb7bNt/sHcMpkMzWYzoVev1wW4xuOx WAdsbGIAH6ncJ7BNH/6FRjqdJl3XSV7T6VSsA76CDWxt9oSKOmLOH/RBLKEP LVVVN/qJRGKjDxsnfSZoN3/4CPNfrVa/5n+IvtH/iDHu9/G/2T/G/JT5A41U KiXm3Wq1xBhcx5zy0zK+Mj+Xy6XIf5n7EuQ/9sYh+Wneqy73r+3+2rX2OPh+ a31wqpHG5xbatvXtCDjW5wO1Z9UdzheXyPMRPrc6H49yvpvn/Y/fJ3/6ffUN AyH/6w== "], {{0, 26}, {24, 0}}, {0, 255}, ColorFunction->RGBColor], BaseStyle->"ImageGraphics", ImageSize->Magnification[1], ImageSizeRaw->{24, 26}, PlotRange->{{0, 24}, {0, 26}}]} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {Automatic, Scaled[0.6], Automatic}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], "Grid"], PaneBox[ StyleBox[ RowBox[{ "Background", " ", "images", " ", "and", " ", "text", " ", "colors", " ", "have", " ", "been", " ", "adjusted", " ", "for", " ", "editing", " ", RowBox[{"purposes", "."}]}], LineBreakWithin->False, FontFamily->"Helvetica", FontSize->12, FontColor->GrayLevel[0.4]], Alignment->Center, ImageSize->Scaled[0.5], ScrollPosition->{0., 0.}]}, Alignment->{Center, Center}], 2->""}, "1"]], "SlideShowNavigationBar", \ "FirstSlide", CellMargins->{{0, 0}, {0, 0}}, CellFrameLabelMargins->2, CellSize->{Inherited, 30}, CellChangeTimes->{3.5697492634375*^9}, TextAlignment->Center, CellTags->"SlideShowHeader"], Cell["Programov\[AAcute]n\[IAcute] I.", "Title", CellChangeTimes->{ 3.559948400406288*^9, {3.5697491738125*^9, 3.569749176609375*^9}, { 3.56983943325*^9, 3.56983944240625*^9}, {3.570792132171875*^9, 3.570792133296875*^9}}], Cell["", "Subtitle", CellChangeTimes->{3.56974917959375*^9}], Cell["", "Text", CellChangeTimes->{{3.570939036046875*^9, 3.57093905490625*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.57093911446875*^9, 3.57093912834375*^9}}], Cell["", "Text", CellChangeTimes->{{3.57089521159375*^9, 3.570895213640625*^9}}], Cell["", "Text", CellChangeTimes->{{3.570895133109375*^9, 3.570895144265625*^9}}], Cell["", "Text", CellChangeTimes->{{3.570895244765625*^9, 3.570895245828125*^9}}], Cell["", "Text", CellChangeTimes->{{3.5708952468125*^9, 3.570895248203125*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.57089521909375*^9, 3.570895241578125*^9}}], Cell["", "Text", CellChangeTimes->{{3.57089512978125*^9, 3.57089513153125*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[TextData[{ StyleBox["\n", FontSize->36, FontWeight->"Bold"], StyleBox["N\[EHacek]kolik z\[AAcute]sad k zopakov\[AAcute]n\[IAcute]\n\n", "Section", FontSize->36, FontWeight->"Bold"] }], "Text", CellChangeTimes->{{3.56983946953125*^9, 3.569839483203125*^9}, { 3.5698399935*^9, 3.56983999596875*^9}, {3.57079192821875*^9, 3.570792001453125*^9}}, TextAlignment->Center, TextJustification->0.], Cell[CellGroupData[{ Cell[TextData[{ "Pou\[ZHacek]\[IAcute]vejte mal\[AAcute] a velk\[AAcute] p\[IAcute]smena p\ \[RHacek]esn\[EHacek] podle vzoru p\[RHacek]\[IAcute]klad\[URing]. ", StyleBox["Mathematica ", FontSlant->"Italic"], "je velice \[OpenCurlyDoubleQuote]case sensitive\[CloseCurlyDoubleQuote]. \ Pokud je pou\[ZHacek]ita \[SHacek]patn\[AAcute] \ \[OpenCurlyDoubleQuote]kapitalizace\[CloseCurlyDoubleQuote], obdr\[ZHacek]en\ \[YAcute] v\[YAcute]sledek nebude odpov\[IAcute]dat \ po\[ZHacek]adovan\[EAcute]mu." }], "Item", CellChangeTimes->{{3.569839564953125*^9, 3.56983967178125*^9}}], Cell[TextData[{ "Pou\[ZHacek]\[IAcute]vejte p\[RHacek]esn\[EHacek] typ z\[AAcute]vorek, kter\ \[YAcute] je ve vzoru p\[RHacek]\[IAcute]kladu. Jsou pou\[ZHacek]ity 3 typy z\ \[AAcute]vorek: hranat\[EAcute] z\[AAcute]vorky [", StyleBox["square brackets", FontSlant->"Italic"], "], kulat\[EAcute] z\[AAcute]vorky (", StyleBox["parentheses", FontSlant->"Italic"], "), a slo\[ZHacek]en\[EAcute] z\[AAcute]vorky {", StyleBox["curly braces", FontSlant->"Italic"], "}. Ka\[ZHacek]dy typ m\[AAcute] v ", StyleBox["Mathematica", FontSlant->"Italic"], " sv\[URing]j p\[RHacek]esn\[YAcute] v\[YAcute]znam." }], "Item", CellChangeTimes->{{3.569839564953125*^9, 3.569839836375*^9}, { 3.570888452640625*^9, 3.57088845278125*^9}}], Cell[TextData[{ "Kdykoliv zad\[AAcute]v\[AAcute]me p\[RHacek]\[IAcute]kaz na v\[IAcute]ce ne\ \[ZHacek] jeden \[RHacek]\[AAcute]dek, realizujeme p\[RHacek]esun na dal\ \[SHacek]\[IAcute] \[RHacek]\[AAcute]dek pomoc\[IAcute] ", StyleBox["Return", FontWeight->"Bold"], " (Enter) kl\[AAcute]vesy. " }], "Item", CellChangeTimes->{{3.569839564953125*^9, 3.569839912046875*^9}}], Cell[TextData[{ "Pro vyhodnocen\[IAcute] (spu\[SHacek]t\[EHacek]n\[IAcute]) p\[RHacek]\ \[IAcute]kazu pou\[ZHacek]\[IAcute]v\[AAcute]me ", StyleBox["Shift-Return", FontWeight->"Bold"], " kl\[AAcute]vesy. " }], "Item", CellChangeTimes->{{3.569839564953125*^9, 3.569839980984375*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[TextData[StyleBox["Obsah", "Subsection"]], "Text", CellChangeTimes->{{3.5697500353125*^9, 3.569750039421875*^9}}], Cell[TextData[{ "Tato \[CHacek]\[AAcute]st objas\[NHacek]uje \[UAcute]vod do z\[AAcute]klad\ \[URing] princip\[URing] programovac\[IAcute]ch koncept\[URing] v ", StyleBox["Mathematica", FontSlant->"Italic"], ". Kapitola obsahuje:" }], "Text", CellChangeTimes->{{3.569750045171875*^9, 3.569750083375*^9}, { 3.569750156875*^9, 3.56975016634375*^9}, {3.569750390265625*^9, 3.569750406390625*^9}}, CellTags->"Overview"], Cell[CellGroupData[{ Cell["p\[RHacek]i\[RHacek]azen\[IAcute] a definice", "Item", CellChangeTimes->{{3.569748689890625*^9, 3.569748721046875*^9}, { 3.569750434953125*^9, 3.569750442125*^9}}, CellTags->"Overview"], Cell["procedur\[AAcute]ln\[IAcute] programov\[AAcute]n\[IAcute]", "Item", CellChangeTimes->{{3.56975045465625*^9, 3.569750457*^9}}, CellTags->"Overview"], Cell["funkcion\[AAcute]ln\[IAcute] programov\[AAcute]n\[IAcute]", "Item", CellChangeTimes->{{3.56975045465625*^9, 3.569750466015625*^9}}, CellTags->"Overview"], Cell["\<\ programov\[AAcute]n\[IAcute] zalo\[ZHacek]en\[EAcute] na pravidlech\ \>", "Item", CellChangeTimes->{{3.569750473171875*^9, 3.569750483828125*^9}}, CellTags->"Overview"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["P\[RHacek]i\[RHacek]azen\[IAcute] a definice", "Section", CellChangeTimes->{{3.569750495296875*^9, 3.56975050546875*^9}}, CellTags->"Assignments and Definitions"], Cell[TextData[StyleBox["\t Obsah", "Subsection"]], "OverviewSubsection", CellChangeTimes->{ 3.569749231859375*^9, {3.56974973140625*^9, 3.569749736703125*^9}, { 3.569750509734375*^9, 3.56975051178125*^9}}, CellTags->"Assignments and Definitions"], Cell["\<\ V t\[EAcute]to \[CHacek]\[AAcute]sti si uk\[AAcute]\[ZHacek]eme \ n\[AAcute]sleduj\[IAcute]c\[IAcute]:\ \>", "Text", CellChangeTimes->{{3.5697507860625*^9, 3.5697507995625*^9}}, CellTags->"Assignments and Definitions"], Cell[CellGroupData[{ Cell["\<\ definice (p\[RHacek]i\[RHacek]azen\[IAcute]) a maz\[AAcute]n\[IAcute] (uvoln\ \[EHacek]n\[IAcute]) symbol\[URing] (prom\[EHacek]nn\[YAcute]ch)\ \>", "Item", CellChangeTimes->{{3.569750803515625*^9, 3.5697508234375*^9}, { 3.569750966578125*^9, 3.569750970765625*^9}}, CellTags->"Assignments and Definitions"], Cell["definice funkce", "Item", CellChangeTimes->{{3.56975092840625*^9, 3.569750942546875*^9}}, CellTags->"Assignments and Definitions"], Cell["\<\ okam\[ZHacek]it\[EAcute] nebo odlo\[ZHacek]en\[EAcute] \ p\[RHacek]i\[RHacek]azen\[IAcute]\ \>", "Item", CellChangeTimes->{{3.569750945796875*^9, 3.56975096384375*^9}}, CellTags->"Assignments and Definitions"] }, Open ]], Cell[" ", "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["P\[RHacek]i\[RHacek]azen\[IAcute] a definice: ", "Color7", FontSlant->"Plain"], "Definice" }], "Subsection", CellChangeTimes->{{3.569750980671875*^9, 3.569750992234375*^9}}, CellTags->"Assignments and Definitions"], Cell["\<\ Nejjednodu\[SHacek]\[SHacek]\[IAcute] program je definice. Definice jsou \ realizov\[AAcute]ny p\[RHacek]i\[RHacek]azen\[IAcute]m.\ \>", "Text", CellChangeTimes->{{3.569750997765625*^9, 3.569751032484375*^9}}, CellTags->"Assignments and Definitions"], Cell[TextData[{ StyleBox["\t\tNap\[RHacek]\[IAcute]klad p\[RHacek]i\[RHacek]azen\[IAcute] ", "Text"], StyleBox[Cell[BoxData[ RowBox[{"x", "=", "3"}]], "Text"], "Text"], " ", StyleBox["p\[RHacek]i\[RHacek]ad\[IAcute] 3 jako hodnotu x.", "Text"] }], "MathCaption", CellChangeTimes->{{3.569751071203125*^9, 3.56975111890625*^9}, { 3.570787051046875*^9, 3.570787051625*^9}}, CellTags->"Assignments and Definitions"], Cell[BoxData[ RowBox[{"x", "=", "3"}]], "Input", CellTags->"Assignments and Definitions"], Cell[TextData[{ StyleBox["\t\tToto p\[RHacek]i\[RHacek]azen\[IAcute] p\[RHacek]ikazuje SW ", "Text"], StyleBox["Mathematica", "Text", FontSlant->"Italic"], " ", StyleBox["dosadit do x hodnotu 3 kdykoliv a kdekoliv je symbol x", "Text"], ".", StyleBox["vy\[CHacek]\[IAcute]slen b\[EHacek]hem evaluace", "Text"] }], "MathCaption", CellChangeTimes->{{3.569751129546875*^9, 3.569751141984375*^9}, { 3.56975117415625*^9, 3.569751298796875*^9}, {3.570787053265625*^9, 3.57078705375*^9}}, CellTags->"Assignments and Definitions"], Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"3", " ", "x"}], "+", "5"}]}], "}"}]], "Input", CellTags->"Assignments and Definitions"], Cell[TextData[StyleBox["\t\tJe u\[ZHacek]ite\[CHacek]n\[EAcute] (a tak\ \[EAcute] je to dobr\[YAcute]m zvykem) vy\[CHacek]istit (vymazat) hodnotu, \ pokud nepl\[AAcute]nujeme danou definici (p\[RHacek]i\[RHacek]azen\[IAcute]) \ d\[AAcute]le pou\[ZHacek]\[IAcute]vat. Zabr\[AAcute]n\[IAcute]me tak ne\ \[ZHacek]\[AAcute]douc\[IAcute]m interferenc\[IAcute]m v n\[AAcute]sledn\ \[YAcute]ch v\[YAcute]po\[CAcute]tech. Nezapom\[IAcute]nejte na to !!!! D\ \[EHacek]l\[AAcute] to pozd\[EHacek]ji nevysv\[EAcute]tliteln\[EAcute] chyby \ !!!!", "Text"]], "MathCaption", CellChangeTimes->{{3.569751331390625*^9, 3.569751516796875*^9}, { 3.570787055234375*^9, 3.570787058984375*^9}, {3.571030272265625*^9, 3.5710302730625*^9}}, CellTags->"Assignments and Definitions"], Cell["Clear[x]", "Input", CellTags->"Assignments and Definitions"], Cell[TextData[StyleBox["\t\tPo vy\[CHacek]i\[SHacek]t\[EHacek]n\[IAcute] \ definice se x vyhodnocuje jako x", "Text"]], "MathCaption", CellChangeTimes->{{3.56975154234375*^9, 3.5697515735625*^9}, { 3.570787060828125*^9, 3.57078706128125*^9}}, CellTags->"Assignments and Definitions"], Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"3", " ", "x"}], "+", "5"}]}], "}"}]], "Input", CellTags->"Assignments and Definitions"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.570895735390625*^9, 3.57089575415625*^9}, { 3.5708958566875*^9, 3.570895857625*^9}}], Cell["", "Text", CellChangeTimes->{{3.570895860515625*^9, 3.570895861625*^9}}], Cell["", "Text", CellChangeTimes->{{3.57089585846875*^9, 3.57089585971875*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.57089573378125*^9, 3.57089575415625*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.57089573159375*^9, 3.570895754171875*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.570895698625*^9, 3.5708957269375*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.5708956803125*^9, 3.570895683796875*^9}, { 3.5708957269375*^9, 3.570895726953125*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["P\[RHacek]i\[RHacek]azen\[IAcute] a definice: ", "Color7", FontSlant->"Plain"], "Definice funkc\[IAcute]" }], "Subsection", CellChangeTimes->{{3.5697516063125*^9, 3.569751619640625*^9}}, CellTags->"Assignments and Definitions"], Cell["\<\ P\[RHacek]i\[RHacek]azen\[IAcute] jsou pou\[ZHacek]ita tak\[EAcute] pro \ definici funkce\ \>", "Text", CellChangeTimes->{{3.569751623453125*^9, 3.56975164659375*^9}}, CellTags->"Assignments and Definitions"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], "=", RowBox[{"x", " ", RowBox[{"Sin", "[", "x", "]"}]}]}]], "Input", CellTags->"Assignments and Definitions"], Cell[TextData[StyleBox["\t\tDefinice je pou\[ZHacek]ita p\[RHacek]i \ vyhodnocen\[IAcute] funkce", "Text"]], "MathCaption", CellChangeTimes->{{3.569751686125*^9, 3.569751699796875*^9}, { 3.57078704159375*^9, 3.570787042140625*^9}}, CellTags->"Assignments and Definitions"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "3", "]"}], " ", "//", " ", "N"}]], "Input", CellChangeTimes->{{3.57093984053125*^9, 3.570939850078125*^9}, { 3.570939895390625*^9, 3.57093989721875*^9}, {3.570939931796875*^9, 3.570939951453125*^9}}, CellTags->"Assignments and Definitions"], Cell[TextData[{ "V\[YAcute]raz ", Cell[BoxData[ RowBox[{"f", "[", "x_", "]"}]]], " lev\[EAcute] stran\[EHacek] p\[RHacek]i\[RHacek]azen\[IAcute] je vzor (", StyleBox["pattern),", FontSlant->"Italic"], " kter\[YAcute] specifikuje t\[RHacek]\[IAcute]du v\[YAcute]raz\[URing] pro \ kter\[EAcute] by m\[EHacek]la b\[YAcute]t definice t\[EAcute]to funkce pou\ \[ZHacek]ita. Vzor ", Cell[BoxData[ RowBox[{"f", "[", "x_", "]"}]]], " vyhovuje ", Cell[BoxData[ RowBox[{"f", "[", StyleBox[ RowBox[{"jak\[YAcute]koliv", " ", "v\[YAcute]raz"}], "TI"], "]"}]]], "." }], "Text", CellChangeTimes->{{3.569751703171875*^9, 3.569751828890625*^9}}, CellTags->"Assignments and Definitions"], Cell[TextData[{ "Definice ", Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], "=", RowBox[{"x", " ", RowBox[{"Sin", "[", "x", "]"}]}]}]]], " bude aplikov\[AAcute]na kdykoliv v\[YAcute]raz odpov\[IAcute]daj\[IAcute]c\ \[IAcute] ", Cell[BoxData[ RowBox[{"f", "[", "x_", "]"}]]], " je vy\[CHacek]\[IAcute]slen b\[EHacek]hem vyhodnocen\[IAcute]." }], "Text", CellChangeTimes->{{3.569751833625*^9, 3.569751898234375*^9}}, CellTags->"Assignments and Definitions"], Cell[" ", "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["P\[RHacek]i\[RHacek]azen\[IAcute] a definice: ", "Color7", FontSlant->"Plain"], "Okam\[ZHacek]it\[EAcute] a odlo\[ZHacek]en\[EAcute] \ p\[RHacek]i\[RHacek]azen\[IAcute]" }], "Subsection", CellChangeTimes->{{3.569751938171875*^9, 3.569751953328125*^9}}, CellTags->"Assignments and Definitions"], Cell[TextData[{ "P\[RHacek]i\[RHacek]azen\[IAcute] m\[URing]\[ZHacek]e b\[YAcute]t ", StyleBox["okam\[ZHacek]it\[EAcute] ", FontSlant->"Italic"], "nebo ", StyleBox["odlo\[ZHacek]en\[EAcute]", FontSlant->"Italic"], "." }], "Text", CellChangeTimes->{{3.5697519590625*^9, 3.569751992296875*^9}}, CellTags->"Assignments and Definitions"], Cell[CellGroupData[{ Cell[TextData[{ "V okam\[ZHacek]it\[EAcute]m p\[RHacek]i\[RHacek]azen\[IAcute] (", Cell[BoxData[ FormBox[ StyleBox[ RowBox[{"lhs", "=", "rhs"}], FontSlant->"Italic"], TraditionalForm]]], "), prav\[AAcute] strana p\[RHacek]i\[RHacek]azen\[IAcute] je vyhodnocena ", StyleBox["p\[RHacek]ed", FontSlant->"Italic"], " t\[IAcute]m, ne\[ZHacek] je vytvo\[RHacek]ena definice, kter\[AAcute] je d\ \[AAcute]na symbolem na lev\[EAcute] stran\[EHacek], tj. je vyhodnocena v \ okam\[ZHacek]iku vytvo\[RHacek]en\[IAcute] definice a d\[AAcute]le se ji\ \[ZHacek] nem\[EHacek]n\[IAcute]." }], "Item", CellChangeTimes->{{3.56975202378125*^9, 3.56975211109375*^9}, { 3.5697521558125*^9, 3.569752206171875*^9}}, CellTags->"Assignments and Definitions"], Cell[TextData[{ "V odlo\[ZHacek]en\[EAcute]m p\[RHacek]i\[RHacek]azen\[IAcute] (", Cell[BoxData[ FormBox[ RowBox[{ StyleBox["lhs", FontSlant->"Italic"], StyleBox[":=", "MR"], StyleBox["rhs", FontSlant->"Italic"]}], TraditionalForm]]], "), prav\[AAcute] strana nen\[IAcute] vyhodnocena dokud nen\[IAcute] \ definice pou\[ZHacek]ita. Jde tedy o definici \ \[OpenCurlyDoubleQuote]dynamickou\[CloseCurlyDoubleQuote], kter\[AAcute] se m\ \[EHacek]n\[IAcute] v\[ZHacek]dy v okam\[ZHacek]iku pou\[ZHacek]it\[IAcute] \ na z\[AAcute]klad\[EHacek] vstupn\[IAcute]ch parametr\[URing]." }], "Item", CellChangeTimes->{{3.5697521163125*^9, 3.569752147890625*^9}, { 3.56975221978125*^9, 3.569752288140625*^9}}, CellTags->"Assignments and Definitions"] }, Open ]], Cell[TextData[StyleBox["\t\tNap\[RHacek]\[IAcute]klad: n\[AAcute]sleduj\ \[IAcute]c\[IAcute] dv\[EHacek] definice generuj\[IAcute] n\[AAcute]hodn\ \[EAcute] \[CHacek]\[IAcute]slo mezi 0 a 1 s pou\[ZHacek]it\[IAcute]m norm\ \[AAcute]ln\[IAcute] distribuce pravd\[EHacek]bodobnosti. Rozd\[IAcute]l mezi \ t\[EHacek]mito dv\[EHacek]mi definicemi je ve zp\[URing]sobu p\[RHacek]i\ \[RHacek]azen\[IAcute]. rand1 je definov\[AAcute]na s \ okam\[ZHacek]it\[YAcute]m p\[RHacek]i\[RHacek]azen\[IAcute]m. rand2 je \ definov\[AAcute]na s odlo\[ZHacek]en\[YAcute]m p\[RHacek]i\[RHacek]azen\ \[IAcute]m ", "Text"]], "MathCaption", CellChangeTimes->{{3.569752316625*^9, 3.569752339703125*^9}, { 3.56975246115625*^9, 3.56975253603125*^9}, {3.569752670109375*^9, 3.569752741171875*^9}, 3.569752950578125*^9, {3.570787019671875*^9, 3.570787025203125*^9}, {3.571030279328125*^9, 3.571030286703125*^9}}, CellTags->"Assignments and Definitions"], Cell[BoxData[ RowBox[{"rand1", "=", RowBox[{"RandomReal", "[", "]"}]}]], "Input", CellTags->"Assignments and Definitions"], Cell[BoxData[ RowBox[{"rand2", ":=", RowBox[{"RandomReal", "[", "]"}]}]], "Input", CellTags->"Assignments and Definitions"], Cell[TextData[StyleBox["\t\tV odlo\[ZHacek]en\[EAcute]m \ p\[RHacek]i\[RHacek]azen\[IAcute] je expanze prav\[EAcute] strany odlo\ \[ZHacek]ena a\[ZHacek] do doby pou\[ZHacek]it\[IAcute], zat\[IAcute]mco p\ \[RHacek]i okam\[ZHacek]it\[EAcute]m p\[RHacek]i\[RHacek]azen\[IAcute] je \ hodnota rand1 p\[RHacek]i\[RHacek]azena v okam\[ZHacek]iku \tdefinice a tuto \ hodnotu bude m\[IAcute]t prom\[EHacek]nn\[AAcute] rand1 po celou dobu nezm\ \[EHacek]n\[EHacek]nu. ", "Text"]], "MathCaption", CellChangeTimes->{{3.56975278071875*^9, 3.56975294740625*^9}, { 3.57078702878125*^9, 3.570787032421875*^9}, {3.5710302889375*^9, 3.571030292890625*^9}}, CellTags->"Assignments and Definitions"], Cell[BoxData[ RowBox[{"Table", "[", RowBox[{"rand1", ",", RowBox[{"{", "3", "}"}]}], "]"}]], "Input", CellTags->"Assignments and Definitions"], Cell[BoxData[ RowBox[{"Table", "[", RowBox[{"rand2", ",", RowBox[{"{", "3", "}"}]}], "]"}]], "Input", CellTags->"Assignments and Definitions"], Cell[TextData[StyleBox["\t\tP\[RHacek]ed dal\[SHacek]\[IAcute]mi v\[YAcute]po\ \[CAcute]ty je t\[RHacek]eba vy\[CHacek]istit v\[SHacek]echny pou\[ZHacek]it\ \[EAcute] symboly", "Text"]], "MathCaption", CellChangeTimes->{{3.56975296509375*^9, 3.569752982328125*^9}, { 3.570787035171875*^9, 3.570787035609375*^9}}, CellTags->"Assignments and Definitions"], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"rand1", ",", "rand2", ",", "f", ",", "x"}], "]"}]], "Input", CellTags->"Assignments and Definitions"], Cell[" ", "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["P\[RHacek]i\[RHacek]azen\[IAcute] a definice: ", "Color7", FontSlant->"Plain"], "Pou\[ZHacek]it\[IAcute] odlo\[ZHacek]en\[EAcute]ho p\[RHacek]i\[RHacek]azen\ \[IAcute]" }], "Subsection", CellChangeTimes->{{3.5697530015*^9, 3.5697530189375*^9}}, CellTags->"Assignments and Definitions"], Cell["\<\ P\[RHacek]i vytv\[AAcute]\[RHacek]en\[IAcute] p\[RHacek]i\[RHacek]azen\ \[IAcute] je t\[RHacek]eba rozhodnout jak\[YAcute] typ \ p\[RHacek]i\[RHacek]azen\[IAcute] pou\[ZHacek]\[IAcute]t a rozhodnout, zda m\ \[AAcute] b\[YAcute]t pravidlo na prav\[EAcute] stran\[EHacek] vyhodnoceno \ hned a nebo bude vyhodnoceno pozd\[EHacek]ji pop\[RHacek]. kdy a za jak\ \[YAcute]ch podm\[IAcute]nek.\ \>", "Text", CellChangeTimes->{{3.56975303575*^9, 3.56975313240625*^9}}, CellTags->"Assignments and Definitions"], Cell["\<\ P\[RHacek]i\[RHacek]azen\[IAcute] pro konstanty nebo jednoduch\[EAcute] \ funkce (bez vstupn\[IAcute]ch parametr\[URing]) je obvykle definov\[AAcute]no \ okam\[ZHacek]it\[YAcute]m p\[RHacek]i\[RHacek]azen\[IAcute]m. V \ takov\[YAcute]ch p\[RHacek]\[IAcute]padech nen\[IAcute] pot\[RHacek]eba pozd\ \[EHacek]j\[SHacek]\[IAcute] evaluace prav\[EAcute] strany.\ \>", "Text", CellChangeTimes->{{3.56975314196875*^9, 3.569753213859375*^9}, { 3.56975326828125*^9, 3.569753282671875*^9}}, CellTags->"Assignments and Definitions"], Cell["\<\ P\[RHacek]i\[RHacek]azen\[IAcute] (definice) pro netrivi\[AAcute]ln\[IAcute] \ programy je obvykle realizov\[AAcute]no s pou\[ZHacek]it\[IAcute]m odlo\ \[ZHacek]en\[EAcute]ho p\[RHacek]i\[RHacek]azen\[IAcute], nebo\[THacek] v\ \[EHacek]t\[SHacek]inu program\[URing] nen\[IAcute] mo\[ZHacek]n\[EAcute] pou\ \[ZHacek]\[IAcute]t (vyhodnotit, spustit) dokud nejsou zn\[AAcute]my hodnoty \ vstupn\[IAcute]ch argument\[URing].\ \>", "Text", CellChangeTimes->{{3.56975329696875*^9, 3.569753411859375*^9}}, CellTags->"Assignments and Definitions"], Cell[TextData[StyleBox["\t\tNap\[RHacek]\[IAcute]klad n\[AAcute]sleduj\ \[IAcute]c\[IAcute] p\[RHacek]i\[RHacek]azen\[IAcute] skon\[CHacek]\[IAcute] \ chybov\[YAcute]m hl\[AAcute]\:015ben\[IAcute]m, proto\[ZHacek]e prav\[AAcute] \ strana nem\[URing]\[ZHacek]e b\[YAcute]t vyhodnocena, dokud nebude \ zn\[AAcute]m\[AAcute] hodnota argumentu n (nebo pokud byla hodnota n ji\ \[ZHacek] nastavena v p\[RHacek]edch\[AAcute]zej\[IAcute]c\[IAcute]m p\ \[RHacek]i\[RHacek]azen\[IAcute], dojde k nespr\[AAcute]vn\[EAcute] (necht\ \[EAcute]n\[EAcute]) definici). ", "Text"]], "MathCaption", CellChangeTimes->{{3.569753438609375*^9, 3.5697535703125*^9}, { 3.57078707603125*^9, 3.570787079140625*^9}, {3.571030296765625*^9, 3.5710303054375*^9}}, CellTags->"Assignments and Definitions"], Cell[BoxData[ RowBox[{ RowBox[{"g", "[", "n_", "]"}], "=", RowBox[{"Table", "[", RowBox[{ SuperscriptBox["i", "2"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellTags->"Assignments and Definitions"], Cell[TextData[StyleBox["\t\tTuto definici je \ vhodn\[EHacek]j\[SHacek]\[IAcute] vytvo\[RHacek]it s pou\[ZHacek]it\[IAcute]m \ odlo\[ZHacek]en\[EAcute]ho p\[RHacek]i\[RHacek]azen\[IAcute].", "Text"]], \ "MathCaption", CellChangeTimes->{{3.5697536564375*^9, 3.5697536785625*^9}, { 3.57078708053125*^9, 3.570787081*^9}}, CellTags->"Assignments and Definitions"], Cell[BoxData[ RowBox[{ RowBox[{"g2", "[", "n_", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ SuperscriptBox["i", "2"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellTags->"Assignments and Definitions"], Cell[BoxData[ RowBox[{"g2", "[", "5", "]"}]], "Input", CellTags->"Assignments and Definitions"], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"g", ",", "g2"}], "]"}]], "Input", CellTags->"Assignments and Definitions"], Cell[TextData[{ StyleBox["Typ", FontWeight->"Bold", FontSlant->"Italic"], ": V\[SHacek]imn\[EHacek]te si zabarven\[IAcute] symbol\[URing] na vstupech. \ Um\[IAcute]st\[EHacek]te kurzor do jedn\[EAcute] z bun\[EHacek]k a vyberte ", StyleBox["Why the Coloring?", "Menu"], " z ", StyleBox["Help", "Menu"], " menu. Obdr\[ZHacek]\[IAcute]te informaci o zv\[YAcute]razn\[EHacek]n\ \[IAcute] syntaxe zabarven\[IAcute]m." }], "Text", CellChangeTimes->{{3.56975369234375*^9, 3.569753831453125*^9}}], Cell[TextData[{ StyleBox["Dal\[SHacek]\[IAcute] informace", FontWeight->"Bold", FontSlant->"Italic"], ": viz ", ButtonBox["Assignments guide page", BaseStyle->"Link", ButtonData->"paclet:guide/Assignments"], "." }], "Text", CellDingbat->"\[LightBulb]", CellChangeTimes->{{3.569753840609375*^9, 3.56975385340625*^9}}], Cell[" ", "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Procedur\[AAcute]ln\[IAcute] programov\[AAcute]n\[IAcute]", "Section", CellChangeTimes->{{3.56975388896875*^9, 3.56975389675*^9}}, CellTags->"Procedural Programming"], Cell[TextData[StyleBox["\tObsah", "Subsection"]], "OverviewSubsection", CellChangeTimes->{{3.569753903796875*^9, 3.56975390853125*^9}, { 3.570787086734375*^9, 3.570787094109375*^9}}, CellTags->"Procedural Programming"], Cell["\<\ Tato sekce se zab\[YAcute]v\[AAcute] principy procedur\[AAcute]ln\[IAcute]ho \ programov\[AAcute]n\[IAcute], v\[CHacek]etn\[EHacek]:\ \>", "Text", CellChangeTimes->{{3.56975395734375*^9, 3.569753982390625*^9}}, CellTags->"Procedural Programming"], Cell[CellGroupData[{ Cell["kr\[AAcute]tk\[AAcute] diskuse o procedur\[AAcute]ch", "Item", CellChangeTimes->{{3.5697540350625*^9, 3.569754040765625*^9}, { 3.5708884346875*^9, 3.570888435328125*^9}}, CellTags->"Procedural Programming"], Cell["funkce realizuj\[IAcute]c\[IAcute] predik\[AAcute]ty", "Item", CellChangeTimes->{{3.569754050375*^9, 3.5697540610625*^9}}, CellTags->"Procedural Programming"], Cell[TextData[{ "procedur\[AAcute]ln\[IAcute] konstrukty ", Cell[BoxData[ ButtonBox["If", BaseStyle->"Link", ButtonData->"paclet:ref/If"]], "InlineFormula"], " a ", Cell[BoxData[ ButtonBox["Do", BaseStyle->"Link", ButtonData->"paclet:ref/Do"]], "InlineFormula"] }], "Item", CellChangeTimes->{{3.569754065015625*^9, 3.56975407609375*^9}}, CellTags->"Procedural Programming"], Cell[TextData[{ "lokalizace prom\[EHacek]nn\[YAcute]ch s pou\[ZHacek]it\[IAcute]m ", Cell[BoxData[ ButtonBox["Module", BaseStyle->"Link", ButtonData->"paclet:ref/Module"]], "InlineFormula"] }], "Item", CellChangeTimes->{{3.569754078875*^9, 3.569754107390625*^9}}, CellTags->"Procedural Programming"] }, Open ]], Cell[" ", "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Procedur\[AAcute]ln\[IAcute] programov\[AAcute]n\[IAcute]: ", "Color7", FontSlant->"Plain"], "\[CapitalUAcute]vod" }], "Subsection", CellChangeTimes->{{3.569754115125*^9, 3.569754127140625*^9}}, CellTags->"Procedural Programming"], Cell["\<\ Procedur\[AAcute]ln\[IAcute] programov\[AAcute]n\[IAcute] znamen\[AAcute] \ programov\[AAcute]n\[IAcute] s pou\[ZHacek]it\[IAcute]m cykl\[URing], if-blok\ \[URing], a dal\[SHacek]\[IAcute]ch konstrukt\[URing], kter\[EAcute] \ kontroluj\[IAcute] pr\[URing]b\[EHacek]h a realizaci program\[URing].\ \>", "Text", CellChangeTimes->{{3.569754181125*^9, 3.56975425534375*^9}, { 3.569754293984375*^9, 3.56975429996875*^9}, 3.570888479359375*^9}, CellTags->"Procedural Programming"], Cell[TextData[StyleBox["\t\tNap\[RHacek]\[IAcute]klad slo\[ZHacek]en\[YAcute] \ v\[YAcute]raz (posloupnost p\[RHacek]\[IAcute]kaz\[URing], odd\[EAcute]len\ \[YAcute]ch st\[RHacek]edn\[IAcute]kem) je procedur\[AAcute]ln\[IAcute] \ program. Ve slo\[ZHacek]en\[EAcute]m v\[YAcute]razu je pr\[URing]b\[EHacek]h \ vykon\[AAcute]n\[IAcute] (vyhodnocen\[IAcute]) p\[RHacek]\[IAcute]kaz\[URing] \ ur\[CHacek]en dan\[YAcute]m po\[RHacek]ad\[IAcute]m p\[RHacek]\[IAcute]kaz\ \[URing] v definici.", "Text"]], "MathCaption", CellChangeTimes->{{3.56975430890625*^9, 3.569754504421875*^9}, { 3.570787098796875*^9, 3.570787103078125*^9}, {3.571030311875*^9, 3.571030312859375*^9}}, CellTags->"Procedural Programming"], Cell[BoxData[{ RowBox[{ RowBox[{"gene", "=", RowBox[{"GenomeData", "[", "\"\\"", "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"chars", "=", RowBox[{"Characters", "[", "gene", "]"}]}], ";"}], "\n", RowBox[{"Tally", "[", "chars", "]"}]}], "Input", CellTags->"Procedural Programming"], Cell[BoxData[ RowBox[{"gene", "=", RowBox[{"GenomeData", "[", "\"\\"", "]"}]}]], "Input", CellChangeTimes->{3.570940597390625*^9}], Cell[TextData[{ "Ve v\[EHacek]t\[SHacek]in\[EHacek] procedur\[AAcute]ln\[IAcute]ch program\ \[URing] aspo\[NHacek] \[CHacek]\[AAcute]st pr\[URing]b\[EHacek]hu vykon\ \[AAcute]n\[IAcute] p\[RHacek]\[IAcute]kaz\[URing] z\[AAcute]vis\[IAcute] na \ hodnot\[AAcute]ch prom\[EHacek]nn\[YAcute]ch nebo na v\[YAcute]sledku r\ \[URing]zn\[YAcute]ch test\[URing]. Jedn\[IAcute]m z nejb\[EHacek]\[ZHacek]n\ \[EHacek]j\[SHacek]\[IAcute]ch procedur\[AAcute]ln\[IAcute]ch konstrukt\ \[URing] je if kontroln\[IAcute] struktura. V SW ", StyleBox["Mathematica", FontSlant->"Italic"], ", ", Cell[BoxData[ ButtonBox["If", BaseStyle->"Link", ButtonData->"paclet:ref/If"]], "InlineFormula"], " funkce m\[AAcute] n\[AAcute]sleduj\[IAcute]c\[IAcute] syntax:" }], "Text", CellChangeTimes->{{3.56975454534375*^9, 3.569754727734375*^9}}, CellTags->"Procedural Programming"], Cell[BoxData[ RowBox[{"If", "[", RowBox[{ StyleBox["test", "TI"], ",", StyleBox["potom", "TI"], ",", StyleBox["jinak", "TI"]}], "]"}]], "Text", CellChangeTimes->{{3.56975473584375*^9, 3.569754770890625*^9}}, TextAlignment->-0.5], Cell[BoxData[ RowBox[{"Clear", "[", "f", "]"}]], "Input", CellChangeTimes->{{3.57094068821875*^9, 3.570940691296875*^9}}], Cell[TextData[{ StyleBox["\t\t N\[AAcute]sleduj\[IAcute]c\[IAcute] p\[RHacek]\[IAcute]klad \ ukazuje \[RHacek]\[IAcute]zen\[IAcute] pr\[URing]b\[EHacek]hu vykon\[AAcute]n\ \[IAcute] p\[RHacek]\[IAcute]kaz\[URing] v\[YAcute]sledkem testu ", "Text"], StyleBox[Cell[BoxData[ RowBox[{"x", ">", "\[Pi]"}]], "Text"], "Text"], "." }], "MathCaption", CellChangeTimes->{{3.569754792671875*^9, 3.569754836671875*^9}, { 3.57078710565625*^9, 3.570787106171875*^9}}, CellTags->"Procedural Programming"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"x", ">", "\[Pi]"}], ",", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"x", ",", "\"\< is larger than \[Pi]\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"x", ",", "\"\< is not larger than \[Pi]\>\""}], "]"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellTags->"Procedural Programming"], Cell[BoxData[ RowBox[{"f", "[", "E", "]"}]], "Input", CellTags->"Procedural Programming"], Cell[" ", "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Procedur\[AAcute]ln\[IAcute] programov\[AAcute]n\ \[IAcute]: Predik\[AAcute]tov\[EAcute] funkce", "Color7", FontSlant->"Plain"]], "Subsection", CellChangeTimes->{{3.569754858546875*^9, 3.56975488171875*^9}}, CellTags->"Procedural Programming"], Cell[TextData[{ "Vyrazy jako ", Cell[BoxData[ RowBox[{"Pi", ">", "E"}]]], " kter\[EAcute] jsou vyhdnoceny jako ", Cell[BoxData[ ButtonBox["True", BaseStyle->"Link", ButtonData->"paclet:ref/True"]], "InlineFormula"], " nebo ", Cell[BoxData[ ButtonBox["False", BaseStyle->"Link", ButtonData->"paclet:ref/False"]], "InlineFormula"], " jsou naz\[YAcute]v\[AAcute]ny ", StyleBox["predik\[AAcute]tov\[EAcute]", FontSlant->"Italic"], " funkce. Mnoho predik\[AAcute]tov\[YAcute]ch funkc\[IAcute] v ", StyleBox["Mathematica", FontSlant->"Italic"], " jsou podobn\[EAcute] predik\[AAcute]tov\[YAcute]m funkc\[IAcute]m v jin\ \[YAcute]ch programovac\[IAcute]ch jazyc\[IAcute]ch." }], "Text", CellChangeTimes->{{3.569754896265625*^9, 3.5697550248125*^9}, { 3.570888555546875*^9, 3.57088855715625*^9}}, CellTags->"Procedural Programming"], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ StyleBox["\<\"Predicate\"\>", "SR", StripOnInput->False, FontWeight->"Bold"], StripOnInput->False, FontWeight->"Bold"], StyleBox[ StyleBox["\<\"Examples\"\>", "SR", StripOnInput->False, FontWeight->"Bold"], StripOnInput->False, FontWeight->"Bold"]}, { StyleBox["\<\"Nerovnosti\"\>", "SR", StripOnInput->False], StyleBox[ InterpretationBox["\<\"\\!\\(StandardForm\\`\\!\\(\\*StyleBox[\\\"\\\\\\\ \"x\\\\\\\"\\\", \\\"TI\\\", Rule[StripOnInput, False]]\\) \[LongEqual] \ \\!\\(\\*StyleBox[\\\"\\\\\\\"y\\\\\\\"\\\", \\\"TI\\\", Rule[StripOnInput, \ False]]\\)\\), \ \\!\\(StandardForm\\`\\!\\(\\*StyleBox[\\\"\\\\\\\"x\\\\\\\"\\\", \\\"TI\\\", \ Rule[StripOnInput, False]]\\) > \\!\\(\\*StyleBox[\\\"\\\\\\\"y\\\\\\\"\\\", \ \\\"TI\\\", Rule[StripOnInput, False]]\\)\\), \ \\!\\(StandardForm\\`\\!\\(\\*StyleBox[\\\"\\\\\\\"x\\\\\\\"\\\", \\\"TI\\\", \ Rule[StripOnInput, False]]\\) < \\!\\(\\*StyleBox[\\\"\\\\\\\"y\\\\\\\"\\\", \ \\\"TI\\\", Rule[StripOnInput, False]]\\)\\), \ \\!\\(StandardForm\\`\\!\\(\\*StyleBox[\\\"\\\\\\\"x\\\\\\\"\\\", \\\"TI\\\", \ Rule[StripOnInput, False]]\\) \[LessEqual] \ \\!\\(\\*StyleBox[\\\"\\\\\\\"y\\\\\\\"\\\", \\\"TI\\\", Rule[StripOnInput, \ False]]\\)\\), \ \\!\\(StandardForm\\`\\!\\(\\*StyleBox[\\\"\\\\\\\"x\\\\\\\"\\\", \\\"TI\\\", \ Rule[StripOnInput, False]]\\) \[GreaterEqual] \\!\\(\\*StyleBox[\\\"\\\\\\\"y\ \\\\\\\"\\\", \\\"TI\\\", Rule[StripOnInput, False]]\\)\\),\[Ellipsis]\"\>", StringForm[ "\!\(StandardForm\``1` \[LongEqual] `2`\), \!\(StandardForm\``1` > \ `2`\), \!\(StandardForm\``1` < `2`\), \!\(StandardForm\``1` \[LessEqual] \ `2`\), \!\(StandardForm\``1` \[GreaterEqual] `2`\),\[Ellipsis]", Style["x", "TI"], Style["y", "TI"]], Editable->False], "TR", StripOnInput->False]}, { StyleBox[ RowBox[{ StyleBox[ RowBox[{ StyleBox["V", "SR", StripOnInput->False], "estav\[EHacek]n\[EAcute]"}]], " ", "predik\[AAcute]ty"}], "SR", StripOnInput->False], InterpretationBox["\<\"IntegerQ[\\!\\(\\*StyleBox[\\\"\\\\\\\"n\\\\\\\"\\\ \", \\\"TI\\\", Rule[StripOnInput, False]]\\)], Positive[\\!\\(\\*StyleBox[\\\ \"\\\\\\\"m\\\\\\\"\\\", \\\"TI\\\", Rule[StripOnInput, False]]\\)], NumberQ[\ \\!\\(\\*StyleBox[\\\"\\\\\\\"x\\\\\\\"\\\", \\\"TI\\\", Rule[StripOnInput, \ False]]\\)],\[Ellipsis]\"\>", StringForm["IntegerQ[`1`], Positive[`2`], NumberQ[`3`],\[Ellipsis]", Style["n", "TI"], Style["m", "TI"], Style["x", "TI"]], Editable->False]}, { StyleBox["\<\"Logick\[EAcute] spojky\"\>", "SR", StripOnInput->False], StyleBox[ InterpretationBox["\<\"\!\(\*FormBox[ RowBox[{SubscriptBox[ StyleBox[\\\"\\\\\\\"expr\\\\\\\"\\\", \\\"TI\\\", StripOnInput->False], \ StyleBox[\\\"\\\\\\\"1\\\\\\\"\\\", \\\"TR\\\", StripOnInput->False]], \\\"&&\ \\\", SubscriptBox[ StyleBox[\\\"\\\\\\\"expr\\\\\\\"\\\", \\\"TI\\\", \ StripOnInput->False], StyleBox[\\\"\\\\\\\"2\\\\\\\"\\\", \\\"TR\\\", \ StripOnInput->False]]}], StandardForm]\) (logical AND)\"\>", StringForm[ "\!\(StandardForm\`\*SubscriptBox[\(`1`\), \(`2`\)] && \*SubscriptBox[\ \(`1`\), \(`3`\)]\) (logical AND)", Style["expr", "TI"], Style["1", "TR"], Style["2", "TR"]], Editable->False], "TR", StripOnInput->False]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxBackground->{"Columns" -> {{ RGBColor[1, 1, 0.85]}}}, GridBoxDividers->{ "ColumnsIndexed" -> {1 -> GrayLevel[0.5]}, "RowsIndexed" -> {2 -> GrayLevel[0.5], 3 -> { Thickness[Tiny], GrayLevel[0.85]}, 4 -> { Thickness[Tiny], GrayLevel[0.85]}}}, GridBoxFrame->{"Columns" -> False, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{0.9}}}], "Grid"]], "DisplayFormula", CellChangeTimes->{{3.569755033421875*^9, 3.569755082671875*^9}, { 3.569836715453125*^9, 3.569836726484375*^9}}, ShowStringCharacters->False], Cell[TextData[{ StyleBox["\t\tNap\[RHacek]\[IAcute]klad ", "Text"], StyleBox[Cell[BoxData[ RowBox[{ RowBox[{"IntegerQ", "[", "n", "]"}], "&&", RowBox[{"n", "\[GreaterEqual]", "0"}]}]], "Text"], "Text"], " ", StyleBox["vrac\[IAcute] ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["True", BaseStyle->"Link", ButtonData->"paclet:ref/True"]], "Text"], "Text"], " ", StyleBox["jestli\[ZHacek]e n je integer a n je v\[EHacek]t\[SHacek]\[IAcute] \ nebo rovno nule", "Text"], "." }], "MathCaption", CellChangeTimes->{{3.569755102625*^9, 3.56975520378125*^9}, { 3.570787111625*^9, 3.570787112203125*^9}}, CellTags->"Procedural Programming"], Cell[BoxData[ RowBox[{ RowBox[{"IntegerQ", "[", "5", "]"}], "&&", RowBox[{"5", "\[GreaterEqual]", "0"}]}]], "Input", CellTags->"Procedural Programming"], Cell[BoxData[ RowBox[{ RowBox[{"IntegerQ", "[", RowBox[{"-", "7"}], "]"}], "&&", RowBox[{ RowBox[{"-", "7"}], "\[GreaterEqual]", "0"}]}]], "Input", CellTags->"Procedural Programming"], Cell[TextData[StyleBox["\t\tM\[URing]\[ZHacek]eme definovat tak\[EAcute] \ vlastn\[IAcute] predik\[AAcute]tov\[EAcute] funkce ", "Text"]], "MathCaption", CellChangeTimes->{{3.569755224140625*^9, 3.5697552436875*^9}, { 3.57078711446875*^9, 3.57078711496875*^9}}, CellTags->"Procedural Programming"], Cell[BoxData[ RowBox[{ RowBox[{"myFilterQ", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"Abs", "[", "x", "]"}], "\[LessEqual]", "1"}]}]], "Input", CellTags->"Procedural Programming"], Cell[BoxData[ RowBox[{"myFilterQ", "[", "1.5", "]"}]], "Input", CellTags->"Procedural Programming"], Cell["", "Spacer"], Cell[TextData[{ StyleBox["Dal\[SHacek]\[IAcute] informace ", FontWeight->"Bold", FontSlant->"Italic"], ": viz tutori\[AAcute]l ", ButtonBox["Putting Constraints on Patterns", BaseStyle->"Link", ButtonData->"paclet:tutorial/PuttingConstraintsOnPatterns"], " obsahuje \[UAcute]pln\[YAcute] seznam vestav\[EHacek]n\[YAcute]ch predik\ \[AAcute]tov\[YAcute]ch funkc\[IAcute]." }], "Text", CellDingbat->"\[LightBulb]", CellChangeTimes->{{3.569755347703125*^9, 3.569755412296875*^9}}], Cell[" ", "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Procedur\[AAcute]ln\[IAcute] programov\[AAcute]n\[IAcute]:", "Color7", FontSlant->"Plain"], StyleBox[" ", FontSlant->"Plain"], "Procedur\[AAcute]ln\[IAcute] programov\[AAcute]n\[IAcute] - funkce" }], "Subsection", CellChangeTimes->{{3.569755508640625*^9, 3.56975554434375*^9}}, CellTags->"Procedural Programming"], Cell["\<\ Z\[AAcute]kladn\[IAcute] elementy procedur\[AAcute]ln\[IAcute]ho programov\ \[AAcute]n\[IAcute] jsou funkce, pou\[ZHacek]it\[EAcute] pro:\ \>", "Text", CellChangeTimes->{{3.569755559890625*^9, 3.569755594703125*^9}}, CellTags->"Procedural Programming"], Cell[CellGroupData[{ Cell[TextData[{ "vyhodnocen\[IAcute] posloupnosti v\[YAcute]raz\[URing] (naz\[YAcute]van\ \[EAcute] ", StyleBox["slo\[ZHacek]en\[EAcute] v\[YAcute]razy", FontSlant->"Italic"], "):" }], "Item", CellChangeTimes->{{3.56975564328125*^9, 3.56975567659375*^9}}, CellTags->"Procedural Programming"], Cell[TextData[{ Cell[BoxData[ RowBox[{ SubscriptBox["expr", "1"], ";", SubscriptBox["expr", "2"], ";", SubscriptBox["expr", "3"], ";"}]]], "\[Ellipsis]" }], "Subitem", CellDingbat->None, CellTags->"Procedural Programming"], Cell["cykly:", "Item", CellChangeTimes->{{3.5697557135625*^9, 3.569755715984375*^9}}, CellTags->"Procedural Programming"], Cell[TextData[{ Cell[BoxData[ ButtonBox["Do", BaseStyle->"Link", ButtonData->"paclet:ref/Do"]], "InlineFormula"], ", ", Cell[BoxData[ ButtonBox["For", BaseStyle->"Link", ButtonData->"paclet:ref/For"]], "InlineFormula"], ", ", Cell[BoxData[ ButtonBox["While", BaseStyle->"Link", ButtonData->"paclet:ref/While"]], "InlineFormula"], ", ", Cell[BoxData[ ButtonBox["Table", BaseStyle->"Link", ButtonData->"paclet:ref/Table"]], "InlineFormula"], ", \[Ellipsis]" }], "Subitem", CellDingbat->None, CellTags->"Procedural Programming"], Cell["\<\ v\[EHacek]tven\[IAcute] (nebo skok), z\[AAcute]visej\[IAcute]c\[IAcute] na \ testech nebo podm\[IAcute]nk\[AAcute]ch:\ \>", "Item", CellChangeTimes->{{3.569755719796875*^9, 3.569755747484375*^9}}, CellTags->"Procedural Programming"], Cell[TextData[{ Cell[BoxData[ ButtonBox["If", BaseStyle->"Link", ButtonData->"paclet:ref/If"]], "InlineFormula"], ", ", Cell[BoxData[ ButtonBox["Which", BaseStyle->"Link", ButtonData->"paclet:ref/Which"]], "InlineFormula"], ", ", Cell[BoxData[ ButtonBox["Switch", BaseStyle->"Link", ButtonData->"paclet:ref/Switch"]], "InlineFormula"] }], "Subitem", CellDingbat->None, CellTags->"Procedural Programming"] }, Open ]], Cell[" ", "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Procedur\[AAcute]ln\[IAcute] programov\[AAcute]n\[IAcute]:", "Color7", FontSlant->"Plain"], StyleBox[" P\[RHacek]\[IAcute]klad", FontSlant->"Plain"], "\[LongDash]sou\[CHacek]et integer \[CHacek]\[IAcute]sel" }], "Subsection", CellChangeTimes->{{3.56975575771875*^9, 3.569755790140625*^9}}, CellTags->"Procedural Programming"], Cell[TextData[{ "N\[AAcute]sleduje procedur\[AAcute]ln\[IAcute] program, kter\[YAcute] po\ \[CHacek]\[IAcute]t\[AAcute] sumu integerov\[YAcute]ch \[CHacek]\[IAcute]sel \ od 1 do ", StyleBox["n", "MR"], ". Hodnota ", StyleBox["n", "MR"], " je p\[RHacek]i\[RHacek]azena v prvn\[IAcute] \[RHacek]\[AAcute]dce \ programu." }], "Text", CellChangeTimes->{{3.56975581253125*^9, 3.56975587084375*^9}}, CellTags->"Procedural Programming"], Cell[BoxData[{ RowBox[{ RowBox[{"n", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"result", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"result", "=", RowBox[{"result", "+", "k"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", "result"}], "Input", CellTags->"Procedural Programming"], Cell[BoxData[ RowBox[{"Clear", "[", "f", "]"}]], "Input", CellChangeTimes->{{3.57094105884375*^9, 3.570941062515625*^9}}], Cell[TextData[StyleBox["\t\tVlo\[ZHacek]en\[IAcute]m uveden\[EAcute]ho \ programu na pravou stranu p\[RHacek]i\[RHacek]azen\[IAcute] se tento k\ \[OAcute]d stane definic\[IAcute] funkce. Hodnota n je nastavena jako \ parametr funkce.", "Text"]], "MathCaption", CellChangeTimes->{{3.569755924953125*^9, 3.569756008421875*^9}, { 3.570787122171875*^9, 3.57078712265625*^9}}, CellTags->"Procedural Programming"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "n_", "]"}], ":=", RowBox[{"(", "\[IndentingNewLine]", RowBox[{ RowBox[{"result", "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"result", "=", RowBox[{"result", "+", "k"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "result"}], "\[IndentingNewLine]", ")"}]}]], "Input", CellTags->"Procedural Programming"], Cell[TextData[{ StyleBox["\t\tTento program spust\[IAcute]me vyhodnocen\[IAcute]m \ v\[YAcute]razu, kter\[YAcute] odpov\[IAcute]da vzoru ", "Text"], StyleBox[Cell[BoxData[ RowBox[{"f", "[", "n_", "]"}]], "Text"], "Text"], "." }], "MathCaption", CellChangeTimes->{{3.569756027859375*^9, 3.569756061171875*^9}, { 3.570787125546875*^9, 3.570787125921875*^9}}, CellTags->"Procedural Programming"], Cell[BoxData[ RowBox[{"f", "[", "10", "]"}]], "Input", CellTags->"Procedural Programming"], Cell[TextData[StyleBox["\t\tP\[RHacek]ed dal\[SHacek]\[IAcute]mi v\[YAcute]po\ \[CHacek]ty vy\[CHacek]ist\[EHacek]te pou\[ZHacek]it\[EAcute] prom\[EHacek]nn\ \[EAcute]", "Text"]], "MathCaption", CellChangeTimes->{{3.56975607090625*^9, 3.5697561054375*^9}, { 3.5707871273125*^9, 3.57078712765625*^9}}, CellTags->"Procedural Programming"], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"f", ",", "n", ",", "result"}], "]"}]], "Input", CellTags->"Procedural Programming"], Cell[" ", "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Procedur\[AAcute]ln\[IAcute] programov\[AAcute]n\[IAcute]:", "Color7", FontSlant->"Plain"], StyleBox[" P\[RHacek]\[IAcute]klad", FontSlant->"Plain"], "\[LongDash]kontrola argument\[URing]" }], "Subsection", CellChangeTimes->{{3.5697561151875*^9, 3.569756139515625*^9}}, CellTags->"Procedural Programming"], Cell["\<\ Jedn\[IAcute]m z \[CHacek]ast\[YAcute]ch vyu\[ZHacek]it\[IAcute] predik\ \[AAcute]tov\[YAcute]ch funkc\[IAcute] je kontrola argument\[URing] funkce.\ \>", "Text", CellChangeTimes->{{3.569756145453125*^9, 3.569756176265625*^9}}, CellTags->"Procedural Programming"], Cell[TextData[StyleBox["\t\tP\[RHacek]edchoz\[IAcute] definice f \ vrac\[IAcute] nespr\[AAcute]vn\[EAcute] v\[YAcute]sledky, jestli\[ZHacek]e \ argument nen\[IAcute] kladn\[EAcute] integer \[CHacek]\[IAcute]slo", \ "Text"]], "MathCaption", CellChangeTimes->{{3.569756185546875*^9, 3.5697562534375*^9}, { 3.570787132671875*^9, 3.570787133140625*^9}}, CellTags->"Procedural Programming"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "n_", "]"}], ":=", RowBox[{"(", "\[IndentingNewLine]", RowBox[{ RowBox[{"result", "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"result", "=", RowBox[{"result", "+", "k"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "result"}], "\[IndentingNewLine]", ")"}]}]], "Input", CellTags->"Procedural Programming"], Cell[TextData[StyleBox["\t\tN\[AAcute]sleduj\[IAcute]c\[IAcute] je modifikac\ \[IAcute] programu, kter\[AAcute] kontroluje, zda n je kladn\[EAcute] integer \ \[CHacek]\[IAcute]slo p\[RHacek]ed t\[IAcute]m, ne\[ZHacek] se vyhodnot\ \[IAcute] prav\[EAcute] strany", "Text"]], "MathCaption", CellChangeTimes->{{3.569756288765625*^9, 3.56975635571875*^9}, { 3.5707871353125*^9, 3.57078713571875*^9}}, CellTags->"Procedural Programming"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "n_", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"IntegerQ", "[", "n", "]"}], "&&", RowBox[{"n", ">", "0"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"result", "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"result", "=", RowBox[{"result", "+", "k"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "result"}], ",", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"n", ",", " ", "\"\< is not a positive integer.\>\""}], "]"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellTags->"Procedural Programming"], Cell[TextData[StyleBox["\t\tPokud vstupn\[IAcute] argument nen\[IAcute] kladn\ \[EAcute] integer \[CHacek]\[IAcute]slo, vyhodnot\[IAcute] se print \ p\[RHacek]\[IAcute]kaz v ELSE v\[EHacek]tvi a vytiskne se dan\[YAcute] text", \ "Text"]], "MathCaption", CellChangeTimes->{{3.56975636928125*^9, 3.5697564300625*^9}, { 3.570787138546875*^9, 3.57078713890625*^9}, {3.57088873784375*^9, 3.570888751921875*^9}}, CellTags->"Procedural Programming"], Cell[BoxData[ RowBox[{"f", "[", "Pi", "]"}]], "Input", CellTags->"Procedural Programming"], Cell[BoxData[ RowBox[{"f", "[", "9", "]"}]], "Input", CellTags->"Procedural Programming"], Cell[TextData[StyleBox["\t\tP\[RHacek]ed dal\:015b\[IAcute]m vy\[CHacek]ist\ \[EHacek]te pou\[ZHacek]it\[EAcute] symboly.", "Text"]], "MathCaption", CellChangeTimes->{{3.569756435140625*^9, 3.56975644934375*^9}, { 3.570787141234375*^9, 3.570787141609375*^9}}, CellTags->"Procedural Programming"], Cell[BoxData[ RowBox[{"Clear", "[", "f", "]"}]], "Input", CellTags->"Procedural Programming"], Cell[" ", "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Procedur\[AAcute]ln\[IAcute] programov\[AAcute]n\[IAcute]:", "Color7", FontSlant->"Plain"], StyleBox[" ", FontSlant->"Plain"], "Lok\[AAcute]ln\[IAcute] prom\[EHacek]nn\[EAcute]" }], "Subsection", CellChangeTimes->{{3.5697564658125*^9, 3.569756480578125*^9}}, CellTags->"Procedural Programming"], Cell[TextData[{ "Pokud pou\[ZHacek]\[IAcute]v\[AAcute]me p\[RHacek]i\[RHacek]azen\[IAcute] \ do\[CHacek]asn\[EAcute] prom\[EHacek]nn\[EAcute], pou\[ZHacek]\[IAcute]van\ \[EAcute] pro ulo\[ZHacek]en\[IAcute] meziv\[YAcute]sledk\[URing], je \ obvyklou prax\[IAcute] zejm\[EAcute]na ve v\[EHacek]t\[SHacek]\[IAcute]ch \ programech ", StyleBox["lokalizace t\[EHacek]chto", FontSlant->"Italic"], " prom\[EHacek]nn\[YAcute]ch tak, abychom se vyhnuli konflikt\[URing]m s \ ostatn\[IAcute]mi \[CHacek]\[AAcute]stmi programu." }], "Text", CellChangeTimes->{{3.569756556765625*^9, 3.569756673265625*^9}, { 3.569756738640625*^9, 3.569756767609375*^9}}, CellTags->"Procedural Programming"], Cell[TextData[StyleBox["\t\tNap\[RHacek]\[IAcute]klad: \ p\[RHacek]i\[RHacek]azen\[IAcute] do v\[YAcute]sledn\[EAcute] prom\[EHacek]nn\ \[EAcute] result v n\[AAcute]sleduj\[IAcute]c\[IAcute] definici f by mohlo v\ \[EAcute]st k probl\[EAcute]m\[URing]m, jestli\[ZHacek]e f je vol\[AAcute]na \ z programu, kter\[YAcute] tak\[EAcute] pou\[ZHacek]\[IAcute]v\[AAcute] \tprom\ \[EHacek]nou result", "Text"]], "MathCaption", CellChangeTimes->{{3.569756770390625*^9, 3.56975686853125*^9}, { 3.57078714621875*^9, 3.570787148484375*^9}, 3.571030327515625*^9}, CellTags->"Procedural Programming"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "n_", "]"}], ":=", RowBox[{"(", "\[IndentingNewLine]", RowBox[{ RowBox[{"result", "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"result", "=", RowBox[{"result", "+", "k"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "result"}], "\[IndentingNewLine]", ")"}]}]], "Input", CellTags->"Procedural Programming"], Cell[TextData[{ "Prom\[EHacek]nn\[EAcute] mohou b\[YAcute]t lokalizov\[AAcute]ny s pou\ \[ZHacek]it\[IAcute]m ", Cell[BoxData[ ButtonBox["Module", BaseStyle->"Link", ButtonData->"paclet:ref/Module"]], "InlineFormula"], " funkce. Prvn\[IAcute] argument v ", Cell[BoxData[ ButtonBox["Module", BaseStyle->"Link", ButtonData->"paclet:ref/Module"]], "InlineFormula"], " je seznam prom\[EHacek]nn\[YAcute]ch na lokalizaci, a druh\[YAcute] \ argument je v\[YAcute]raz (program) k vyhodnocen\[IAcute]." }], "Text", CellChangeTimes->{{3.56975691671875*^9, 3.56975701059375*^9}}, CellTags->"Procedural Programming"], Cell[BoxData[ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", StyleBox["prom\[EHacek]nn\[EAcute]", "TI"], "}"}], ",", "\[IndentingNewLine]", RowBox[{ StyleBox["t\[EHacek]lo_funkce", "TI"], "\[IndentingNewLine]", "\[Ellipsis]"}]}], "]"}]], "DisplayFormula", CellChangeTimes->{{3.569756890421875*^9, 3.569756912421875*^9}}], Cell[TextData[{ StyleBox["\t\tN\[AAcute]sleduj\[IAcute]c\[IAcute] je definice, ve kter\ \[EAcute] je prom\[EHacek]nn\[AAcute] result lokalizov\[AAcute]na za pou\ \[ZHacek]it\[IAcute] ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["Module", BaseStyle->"Link", ButtonData->"paclet:ref/Module"]], "Text"], "Text"], "." }], "MathCaption", CellChangeTimes->{{3.56975701815625*^9, 3.5697570545*^9}, { 3.57078715009375*^9, 3.570787150609375*^9}}, CellTags->"Procedural Programming"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "n_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "result", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"result", "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"result", "=", RowBox[{"result", "+", "k"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "result"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellTags->"Procedural Programming"], Cell[TextData[StyleBox["\t\tS pou\[ZHacek]it\[IAcute]m t\[EAcute]to definice \ jej\[IAcute] vyhodnocen\[IAcute] f nech\[AAcute] existuj\[IAcute]c\[IAcute] \ hodnoty prom\[EHacek]nn\[EAcute] result nezm\[EHacek]n\[EHacek]ny ", \ "Text"]], "MathCaption", CellChangeTimes->{{3.5697570618125*^9, 3.5697571854375*^9}, { 3.570787178390625*^9, 3.570787178859375*^9}}, CellTags->"Procedural Programming"], Cell[BoxData[ RowBox[{"result", "=", "99"}]], "Input", CellTags->"Procedural Programming"], Cell[BoxData[ RowBox[{"f", "[", "9", "]"}]], "Input", CellTags->"Procedural Programming"], Cell[BoxData["result"], "Input", CellTags->"Procedural Programming"], Cell[TextData[{ "Prom\[EHacek]nn\[EAcute], kter\[EAcute] nebyly lokalizov\[AAcute]ny jsou \ naz\[YAcute]v\[AAcute]ny ", StyleBox["glob\[AAcute]ln\[IAcute]", FontSlant->"Italic"], " prom\[EHacek]nn\[EAcute]." }], "Text", CellChangeTimes->{{3.569757188671875*^9, 3.5697572228125*^9}}, CellTags->"Procedural Programming"], Cell[TextData[{ Cell[BoxData[ ButtonBox["Module", BaseStyle->"Link", ButtonData->"paclet:ref/Module"]], "InlineFormula"], " funkce m\[URing]\[ZHacek]e b\[YAcute]t pou\[ZHacek]ita tak, aby glob\ \[AAcute]ln\[IAcute] definice (prom\[EHacek]nn\[EAcute]) z\[URing]staly nezm\ \[EHacek]n\[EHacek]ny." }], "Text", CellChangeTimes->{{3.569757225515625*^9, 3.569757285796875*^9}}, CellTags->"Procedural Programming"], Cell[TextData[StyleBox["\t\tVy\[CHacek]ist\[EHacek]te pou\[ZHacek]it\[EAcute] \ symboly", "Text"]], "MathCaption", CellChangeTimes->{{3.569757295984375*^9, 3.569757310171875*^9}, { 3.570787180625*^9, 3.570787181015625*^9}}, CellTags->"Procedural Programming"], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"f", ",", "result"}], "]"}]], "Input", CellTags->"Procedural Programming"], Cell["", "Spacer"], Cell[TextData[{ StyleBox["Dal\[SHacek]\[IAcute] informace", FontWeight->"Bold", FontSlant->"Italic"], ": viz ", ButtonBox["Procedural Programming guide page", BaseStyle->"Link", ButtonData->"paclet:guide/ProceduralProgramming"], "." }], "Text", CellDingbat->"\[LightBulb]", CellChangeTimes->{{3.569757318*^9, 3.56975732609375*^9}}], Cell[" ", "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Funkcion\[AAcute]ln\[IAcute] programov\[AAcute]n\[IAcute]", "Section", CellChangeTimes->{{3.56974987171875*^9, 3.56974987440625*^9}, { 3.5707872030625*^9, 3.570787209046875*^9}}, CellTags->"Functional Programming"], Cell[TextData[StyleBox["\tObsah", "Subsection"]], "OverviewSubsection", CellChangeTimes->{ 3.569759400984375*^9, {3.56983674696875*^9, 3.569836747671875*^9}}, CellTags->"Functional Programming"], Cell["\<\ N\[AAcute]sleduj\[IAcute]c\[IAcute] sekce objas\[NHacek]uje \ funkcion\[AAcute]ln\[IAcute] programov\[AAcute]n\[IAcute]:\ \>", "Text", CellChangeTimes->{{3.56975739334375*^9, 3.569757416203125*^9}}, CellTags->"Functional Programming"], Cell[CellGroupData[{ Cell["\<\ popis funkcion\[AAcute]ln\[IAcute]ho stylu programov\[AAcute]n\[IAcute]\ \>", "Item", CellChangeTimes->{{3.56975742425*^9, 3.56975743628125*^9}}, CellTags->"Functional Programming"], Cell[TextData[{ "funkcion\[AAcute]ln\[IAcute] konstrukty ", Cell[BoxData[ ButtonBox["Map", BaseStyle->"Link", ButtonData->"paclet:ref/Map"]]], ", ", Cell[BoxData[ ButtonBox["Apply", BaseStyle->"Link", ButtonData->"paclet:ref/Apply"]]], ", a ", Cell[BoxData[ ButtonBox["Nest", BaseStyle->"Link", ButtonData->"paclet:ref/Nest"]]] }], "Item", CellChangeTimes->{{3.569757440171875*^9, 3.56975746684375*^9}}, CellTags->"Functional Programming"], Cell["\<\ v\[YAcute]razy: atomick\[EAcute] a norm\[AAcute]ln\[IAcute] (nebo \ slo\[ZHacek]en\[EAcute])\ \>", "Item", CellChangeTimes->{{3.56975747003125*^9, 3.569757490296875*^9}}, CellTags->"Functional Programming"], Cell["srovn\[AAcute]n\[IAcute] programovac\[IAcute]ch styl\[URing]", "Item", CellChangeTimes->{{3.56975749325*^9, 3.56975750628125*^9}}, CellTags->"Functional Programming"] }, Open ]], Cell[" ", "Spacer"], Cell["", "Text", CellChangeTimes->{{3.570893391859375*^9, 3.570893393015625*^9}}], Cell["", "Text", CellChangeTimes->{{3.57089320215625*^9, 3.5708932125625*^9}}], Cell["", "Text", CellChangeTimes->{{3.57089319959375*^9, 3.570893201171875*^9}}], Cell["", "Text", CellChangeTimes->{{3.57089302540625*^9, 3.570893025984375*^9}, { 3.570893143765625*^9, 3.570893144421875*^9}}], Cell["", "Text", CellChangeTimes->{{3.570893023203125*^9, 3.570893024234375*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Funkcion\[AAcute]ln\[IAcute] programov\[AAcute]n\[IAcute]:", "Color7", FontSlant->"Plain"], StyleBox[" ", FontSlant->"Plain"], "\[CapitalUAcute]vod" }], "Subsection", CellChangeTimes->{{3.569757510703125*^9, 3.569757520953125*^9}, { 3.569759395515625*^9, 3.569759396671875*^9}}, CellTags->"Functional Programming"], Cell["\<\ Funkcion\[AAcute]ln\[IAcute] programov\[AAcute]n\[IAcute] m\[URing]\[ZHacek]e \ b\[YAcute]t uva\[ZHacek]ov\[AAcute]no jako programov\[AAcute]n\[IAcute], pou\ \[ZHacek]\[IAcute]vaj\[IAcute]c\[IAcute] funkce jako argumenty dal\[SHacek]\ \[IAcute]ch funkc\[IAcute]. V tomto paradigmatu je na v\[YAcute]po\[CHacek]et \ (b\[EHacek]h programu) nahl\[IAcute]\[ZHacek]eno jako na vyhodnocen\[IAcute] \ funkce.\ \>", "Text", CellChangeTimes->{{3.56975754134375*^9, 3.5697576814375*^9}, 3.570888858765625*^9}, CellTags->"Functional Programming"], Cell[TextData[StyleBox["\t\tJako p\[RHacek]\[IAcute]klad n\[AAcute]sleduje kr\ \[AAcute]tk\[YAcute] procedur\[AAcute]ln\[IAcute] program.", "Text"]], \ "MathCaption", CellChangeTimes->{{3.569757685359375*^9, 3.569757712546875*^9}, { 3.57078721584375*^9, 3.570787216234375*^9}}, CellTags->"Functional Programming"], Cell[BoxData[{ RowBox[{ RowBox[{"gene", "=", RowBox[{"GenomeData", "[", "\"\\"", "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"chars", "=", RowBox[{"Characters", "[", "gene", "]"}]}], ";"}], "\n", RowBox[{"Tally", "[", "chars", "]"}]}], "Input", CellTags->"Functional Programming"], Cell[TextData[StyleBox["\t\tN\[AAcute]sleduj\[IAcute]c\[IAcute] funkcion\ \[AAcute]ln\[IAcute] program provede ten sam\[YAcute] \ v\[YAcute]po\[CHacek]et", "Text"]], "MathCaption", CellChangeTimes->{{3.569757719234375*^9, 3.569757756640625*^9}, { 3.57078721821875*^9, 3.5707872185625*^9}}, CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{"Tally", "[", RowBox[{"Characters", "[", RowBox[{"GenomeData", "[", "\"\\"", "]"}], "]"}], "]"}]], "Input", CellTags->"Functional Programming"], Cell[" ", "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Funkcion\[AAcute]ln\[IAcute] programov\[AAcute]n\[IAcute]:", "Color7", FontSlant->"Plain"], StyleBox[" ", FontSlant->"Plain"], "Nov\[EAcute] funkce" }], "Subsection", CellChangeTimes->{{3.5697577638125*^9, 3.569757795796875*^9}, { 3.569759389140625*^9, 3.56975939003125*^9}}, CellTags->"Functional Programming"], Cell["\<\ V\[EHacek]t\:015bina netrivi\[AAcute]ln\[IAcute]ch funkcion\[AAcute]ln\ \[IAcute]ch program\[URing] vy\[ZHacek]aduje znalost nov\[YAcute]ch funkc\ \[IAcute].\ \>", "Text", CellChangeTimes->{{3.56975779778125*^9, 3.5697578569375*^9}}, CellTags->"Functional Programming"], Cell[TextData[StyleBox["\t\tNap\[RHacek]\[IAcute]klad uva\[ZHacek]ujme v\ \[YAcute]po\[CAcute]et budouc\[IAcute] hodnoty ze sou\[CHacek]asn\[EAcute] \ hodnoty s pou\[ZHacek]it\[IAcute]m formule pro v\[YAcute]po\[CHacek]et slo\ \[ZHacek]en\[EAcute]ho \[UAcute]roku. Uva\[ZHacek]ujme 5% \[UAcute]rokovou \ sazbu s \tp\[RHacek]ipisov\[AAcute]n\[IAcute]m \[UAcute]rok\[URing] \ m\[EHacek]s\[IAcute]\[CHacek]n\[EHacek]. Jestli\[ZHacek]e sou\[CHacek]asn\ \[AAcute] hodnota je $1000, n\[AAcute]sleduj\[IAcute]c\[IAcute] \ ur\[CHacek]uje hodnotu po jednom m\[EHacek]s\[IAcute]c\[IAcute].", "Text"]], \ "MathCaption", CellChangeTimes->{{3.569757960015625*^9, 3.569758026546875*^9}, { 3.5697582786875*^9, 3.569758364234375*^9}, {3.57078722375*^9, 3.570787226390625*^9}, 3.571030335046875*^9}, CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{ RowBox[{"value", "[", "p_", "]"}], ":=", RowBox[{"p", RowBox[{"(", RowBox[{"1", "+", FractionBox[".05", "12"]}], ")"}]}]}]], "Input", CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{"value", "[", "1000", "]"}]], "Input", CellTags->"Functional Programming"], Cell[TextData[StyleBox["\t\tN\[AAcute]sledujic\[IAcute] ur\[CHacek]\[IAcute] \ hodnotu po dvou m\[EAcute]s\[IAcute]c\[IAcute]ch.", "Text"]], "MathCaption", CellChangeTimes->{{3.56975848096875*^9, 3.569758495234375*^9}, { 3.57078722828125*^9, 3.57078722859375*^9}}, CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{"value", "[", RowBox[{"value", "[", "1000", "]"}], "]"}]], "Input", CellTags->"Functional Programming"], Cell[TextData[StyleBox["\t\ta po t\[RHacek]ech \ m\[EHacek]s\[IAcute]c\[IAcute]ch.", "Text"]], "MathCaption", CellChangeTimes->{{3.569758503015625*^9, 3.569758512890625*^9}, { 3.57078723*^9, 3.570787230375*^9}}, CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{"value", "[", RowBox[{"value", "[", RowBox[{"value", "[", "1000", "]"}], "]"}], "]"}]], "Input", CellTags->"Functional Programming"], Cell[TextData[{ StyleBox["\t\t", "Text"], StyleBox[Cell[BoxData[ ButtonBox["Nest", BaseStyle->"Link", ButtonData->"paclet:ref/Nest"]], "Text"], "Text"], " ", StyleBox["funkce je pou\[ZHacek]ita pro itera\[CHacek]n\[IAcute] vyhodnocen\ \[IAcute]. Funkce m\[AAcute] 3 argumenty: iterovan\[AAcute] funkce, \ inicializa\[CHacek]n\[IAcute] po\[CHacek]\[AAcute]te\[CHacek]n\[IAcute] \ hodnota pro prvn\[IAcute] iteraci, po\[CHacek]et po\[ZHacek]adovan\[YAcute]ch \ iterac\[IAcute].", "Text"] }], "MathCaption", CellChangeTimes->{{3.569758521015625*^9, 3.569758579359375*^9}, { 3.569758619109375*^9, 3.569758698484375*^9}, {3.570787232125*^9, 3.570787237578125*^9}, {3.57103033896875*^9, 3.571030339640625*^9}}, CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{"Nest", "[", RowBox[{"f", ",", SubscriptBox["x", "0"], ",", "3"}], "]"}]], "Input", CellTags->"Functional Programming"], Cell[TextData[{ StyleBox["\t\tN\[AAcute]sleduj\[IAcute]c\[IAcute] v\[YAcute]po\[CHacek]et \ budouc\[IAcute] hodnoty ukazuje pou\[ZHacek]it\[IAcute] funkce ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["Nest", BaseStyle->"Link", ButtonData->"paclet:ref/Nest"]], "Text"], "Text"], "." }], "MathCaption", CellChangeTimes->{{3.569758854375*^9, 3.569758888359375*^9}, { 3.570787239265625*^9, 3.570787239625*^9}}, CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{"Nest", "[", RowBox[{"value", ",", "1000", ",", "3"}], "]"}]], "Input", CellTags->"Functional Programming"], Cell[TextData[StyleBox["\t\tN\[AAcute]sleduj\[IAcute]c\[IAcute] ukazuje v\ \[SHacek]echny meziv\[YAcute]sledky prvn\[IAcute]ch 12 m\[EHacek]s\[IAcute]c\ \[URing].", "Text"]], "MathCaption", CellChangeTimes->{{3.569758737359375*^9, 3.569758763171875*^9}, { 3.570787241484375*^9, 3.5707872418125*^9}}, CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{"NestList", "[", RowBox[{"value", ",", "1000", ",", "12"}], "]"}]], "Input", CellTags->"Functional Programming"], Cell[TextData[{ "Z\[AAcute]kladn\[IAcute] struktura p\[RHacek]\[IAcute]kazu, kter\[AAcute] \ obsahuje pou\[ZHacek]itou funkci (jako ", StyleBox["value", "MR"], ") kter\[AAcute] realizuje \[UAcute]lohu a dal\[SHacek]\[IAcute] funkci \ (jako ", Cell[BoxData[ ButtonBox["Nest", BaseStyle->"Link", ButtonData->"paclet:ref/Nest"]], "InlineFormula"], ") kter\[AAcute] vol\[AAcute] prvn\[IAcute] funkci, je spole\[CHacek]n\ \[AAcute] jako z\[AAcute]kladn\[IAcute] princip v\[SHacek]em \ funkcion\[AAcute]ln\[IAcute]m program\[URing]m. N\[EHacek]kolik dal\[SHacek]\ \[IAcute]ch sekc\[IAcute] obhas\[NHacek]uje nejpou\[ZHacek]\[IAcute]van\ \[EHacek]j\[SHacek]\[IAcute] u\[ZHacek]it\[IAcute] funkcion\[AAcute]ln\ \[IAcute]ch konstrukt\[URing] s u\[ZHacek]it\[IAcute]m ", Cell[BoxData[ ButtonBox["Map", BaseStyle->"Link", ButtonData->"paclet:ref/Map"]], "InlineFormula"], " a ", Cell[BoxData[ ButtonBox["Apply", BaseStyle->"Link", ButtonData->"paclet:ref/Apply"]], "InlineFormula"], "." }], "Text", CellChangeTimes->{{3.569758906484375*^9, 3.569759182578125*^9}}, CellTags->"Functional Programming"], Cell[" ", "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Funkcion\[AAcute]ln\[IAcute] programov\[AAcute]n\[IAcute]:", "Color7", FontSlant->"Plain"], StyleBox[" ", FontSlant->"Plain"], "Map" }], "Subsection", CellChangeTimes->{{3.569759194265625*^9, 3.569759201375*^9}, { 3.56975938325*^9, 3.569759384375*^9}}, CellTags->"Functional Programming"], Cell[TextData[{ "Existuje mnoho funkcion\[AAcute]ln\[IAcute]ch konstrukt\[URing], jako ", Cell[BoxData[ ButtonBox["Nest", BaseStyle->"Link", ButtonData->"paclet:ref/Nest"]], "InlineFormula"], " v programovac\[IAcute]m jazyku ", StyleBox["Mathematica", FontSlant->"Italic"], ". Jedna z nejv\[IAcute]ce pou\[ZHacek]\[IAcute]van\[YAcute]ch \ funkc\[IAcute] je ", Cell[BoxData[ ButtonBox["Map", BaseStyle->"Link", ButtonData->"paclet:ref/Map"]], "InlineFormula"], "." }], "Text", CellChangeTimes->{{3.56975927090625*^9, 3.569759341484375*^9}}, CellTags->"Functional Programming"], Cell[TextData[{ StyleBox["\t\tN\[AAcute]sleduj\[IAcute]c\[IAcute] p\[RHacek]\[IAcute]klad \ ukazuje z\[AAcute]kladn\[IAcute] chov\[AAcute]n\[IAcute] funkce ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["Map", BaseStyle->"Link", ButtonData->"paclet:ref/Map"]], "Text"], "Text"], "." }], "MathCaption", CellChangeTimes->{{3.569759346015625*^9, 3.569759373453125*^9}, { 3.570787246671875*^9, 3.57078724703125*^9}}, CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{"Map", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", RowBox[{"-", "1"}], ",", "5", ",", RowBox[{"-", "2"}], ",", "1"}], "}"}]}], "]"}]], "Input", CellTags->"Functional Programming"], Cell[TextData[{ StyleBox["\t\tMapov\[AAcute]n\[IAcute] funkce f na obecn\[EHacek]j\[SHacek]\ \[IAcute] a slo\[ZHacek]it\[EHacek]j\[SHacek]\[IAcute] v\[YAcute]razy m\ \[URing]\[ZHacek]e objasnit zp\[URing]sob, kter\[YAcute]m je funkce f aplikov\ \[AAcute]na na ", "Text"], StyleBox["elementy", "Text", FontSlant->"Italic"], StyleBox[" ve v\[YAcute]razu na prav\[EAcute] stran\[EHacek]. ", "Text"] }], "MathCaption", CellChangeTimes->{{3.56983676496875*^9, 3.56983685384375*^9}, { 3.57078724828125*^9, 3.570787248578125*^9}}, CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{"Map", "[", RowBox[{"f", ",", RowBox[{"g", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}]}], "]"}]], "Input", CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{"Map", "[", RowBox[{"f", ",", RowBox[{"a", "+", "b", "+", "c"}]}], "]"}]], "Input", CellTags->"Functional Programming"], Cell[TextData[{ "Nyn\[IAcute] uva\[ZHacek]ujme n\[AAcute]sleduj\[IAcute]c\[IAcute] \ \[UAcute]kol. Pou\[ZHacek]ijeme funkci ", Cell[BoxData[ ButtonBox["Map", BaseStyle->"Link", ButtonData->"paclet:ref/Map"]], "InlineFormula"], " k z\[AAcute]m\[EHacek]n\[EHacek] v\[SHacek]ech m\[AAcute]l\[YAcute]ch \ \[CHacek]\[IAcute]sel (tj. \[CHacek]\[IAcute]sel bl\[IAcute]zko 0) v seznamu \ \[CHacek]\[IAcute]sel za jejich druhou mocninu." }], "Text", CellChangeTimes->{{3.569836904921875*^9, 3.569837000703125*^9}}, CellTags->"Functional Programming"], Cell[TextData[{ StyleBox["\t\tNejd\[RHacek]\[IAcute]ve definujeme funkci, kter\[AAcute] vrac\ \[IAcute] druhou mocninu \[CHacek]\[IAcute]sla pro ka\[ZHacek]d\[YAcute] \ vstupn\[IAcute] argument s hodnotou mezi ", "Text"], StyleBox[Cell[BoxData[ FormBox[ RowBox[{"-", "1"}], TraditionalForm]], "Text"], "Text"], StyleBox[" a 1.", "Text"] }], "MathCaption", CellChangeTimes->{{3.56983700771875*^9, 3.569837050953125*^9}, { 3.57078725009375*^9, 3.570787250515625*^9}}, CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "<", "x", "<", "1"}], ",", SuperscriptBox["x", "2"], ",", "x"}], "]"}]}]], "Input", CellTags->"Functional Programming"], Cell[TextData[StyleBox["\t\tD\[AAcute]le mapujeme funkci f na v\[SHacek]echny \ prvky dan\[EAcute]ho seznamu.", "Text"]], "MathCaption", CellChangeTimes->{{3.56983705553125*^9, 3.569837082421875*^9}, { 3.570787251765625*^9, 3.5707872520625*^9}}, CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{"Map", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{"3", ",", ".25", ",", RowBox[{"-", "4"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", ".9"}], ",", "0"}], "}"}]}], "]"}]], "Input", CellTags->"Functional Programming"], Cell[BoxData[""], "NonPrintButton", CellChangeTimes->{{3.569837102484375*^9, 3.569837103859375*^9}}], Cell[TextData[{ StyleBox["\t\tDal\[SHacek]\[IAcute] v\[YAcute]raz mapuje funkci ", "Text"], StyleBox[Cell[BoxData["StringLength"], "Text"], "Text"], " ", StyleBox["p\[RHacek]es seznam \[RHacek]et\[EHacek]zc\[URing] tj. tato funkce \ je aplikov\[AAcute]na na ka\[ZHacek]d\[YAcute] \[RHacek]et\[EHacek]zec v \ seznamu.", "Text"] }], "MathCaption", CellChangeTimes->{{3.569837134234375*^9, 3.56983719375*^9}, { 3.57078725346875*^9, 3.570787253890625*^9}}, CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{"Map", "[", RowBox[{"StringLength", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "]"}]], "Input", CellTags->"Functional Programming"], Cell[TextData[{ "Pro srozumiteln\[EHacek]j\[SHacek]\[IAcute] pops\[AAcute]n\[IAcute] \ \[CHacek]inosti ", Cell[BoxData[ ButtonBox["Map", BaseStyle->"Link", ButtonData->"paclet:ref/Map"]], "InlineFormula"], " a dal\[SHacek]\[IAcute]ch podobn\[YAcute]ch oper\[AAcute]tor\[URing] je u\ \[ZHacek]ite\[CHacek]n\[EAcute] roz\[SHacek]\[IAcute]\[RHacek]it si \ terminologii, pou\[ZHacek]itou v sw Mathematica." }], "Text", CellChangeTimes->{{3.569837217921875*^9, 3.569837301671875*^9}}, CellTags->"Functional Programming"], Cell[TextData[StyleBox["\t\tP\[RHacek]ed dal\[SHacek]\[IAcute]mi v\[YAcute]po\ \[CHacek]ty vy\[CHacek]\[IAcute]st\[IAcute]me f", "Text"]], "MathCaption", CellChangeTimes->{{3.56983730646875*^9, 3.569837337046875*^9}, { 3.570787257609375*^9, 3.570787257953125*^9}}, CellTags->"Functional Programming"], Cell["Clear[f]", "Input", CellTags->"Functional Programming"], Cell[" ", "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Funkcion\[AAcute]ln\[IAcute] programov\[AAcute]n\[IAcute]:", "Color7", FontSlant->"Plain"], StyleBox[" ", FontSlant->"Plain"], "Atomick\[YAcute] v\[YAcute]raz" }], "Subsection", CellChangeTimes->{{3.569759413328125*^9, 3.569759430390625*^9}}, CellTags->"Functional Programming"], Cell[TextData[{ "V\[SHacek]echny viditeln\[EAcute] informace v ", StyleBox["Mathematica", FontSlant->"Italic"], " jsou reprezentov\[AAcute]ny v\[YAcute]razy. V\[YAcute]razy jsou \ bu\[DHacek] ", StyleBox["atomick\[EAcute] v\[YAcute]razy ", FontSlant->"Italic"], "nebo", StyleBox[" norm\[AAcute]ln\[IAcute] v\[YAcute]razy", FontSlant->"Italic"], "." }], "Text", CellChangeTimes->{{3.569837354578125*^9, 3.5698374366875*^9}}, CellTags->"Functional Programming"], Cell["\<\ \[CapitalCHacek]\[IAcute]sla, symboly a \[RHacek]et\[EHacek]zce jsou v\ \[SHacek]echny atomick\[EAcute] v\[YAcute]razy. Jsou to z\[AAcute]kladn\ \[IAcute] stavebn\[IAcute] kameny v\[YAcute]raz\[URing].\ \>", "Text", CellChangeTimes->{{3.569837440265625*^9, 3.569837487765625*^9}}, CellTags->"Functional Programming"], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ StyleBox["\<\"Atom\"\>", "SR", StripOnInput->False, FontWeight->"Bold"], StripOnInput->False, FontWeight->"Bold"], StyleBox[ StyleBox["\<\"Example\"\>", "SR", StripOnInput->False, FontWeight->"Bold"], StripOnInput->False, FontWeight->"Bold"]}, {"\<\"Symbol\"\>", "\<\"Integrate\"\>"}, {"\<\"Integer\"\>", "\<\"28\"\>"}, {"\<\"Real\"\>", "\<\"4.5771\"\>"}, {"\<\"Rational\"\>", "\<\"\\!\\(\\*FractionBox[\\(2\\), \\(9\\)]\\)\"\>"}, {"\<\"Complex\"\>", RowBox[{"3", "+", RowBox[{"5", " ", "\[ImaginaryI]"}]}]}, {"\<\"String\"\>", StyleBox["\"\\"", "TR", StripOnInput->False, ShowStringCharacters->True]}, {"\<\"Graph\"\>", GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 0, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12}, { Null, {{1, 2}, {3, 1}, {4, 2}, {5, 1}, {6, 2}, {7, 1}, {8, 2}, {9, 1}, {10, 2}, {11, 1}, {12, 2}, {13, 1}}}]], Typeset`boxes, Typeset`boxes$s2d = GraphicsGroupBox[{{ Directive[ Hue[0.6, 0.2, 0.8], EdgeForm[ Directive[ GrayLevel[0], Opacity[0.7]]]], TagBox[ DiskBox[{2.449489742783178, 0.9797958971132712}, 0.0364873624842231], "DynamicName", BoxID -> "VertexID$1"], TagBox[ DiskBox[{0.9797958971132712, 0.4898979485566356}, 0.0364873624842231], "DynamicName", BoxID -> "VertexID$2"], TagBox[ DiskBox[{1.4696938456699067`, 0.4898979485566356}, 0.0364873624842231], "DynamicName", BoxID -> "VertexID$3"], TagBox[ DiskBox[{0., 0.}, 0.0364873624842231], "DynamicName", BoxID -> "VertexID$4"], TagBox[ DiskBox[{1.9595917942265424`, 0.4898979485566356}, 0.0364873624842231], "DynamicName", BoxID -> "VertexID$5"], TagBox[ DiskBox[{0.4898979485566356, 0.}, 0.0364873624842231], "DynamicName", BoxID -> "VertexID$6"], TagBox[ DiskBox[{2.449489742783178, 0.4898979485566356}, 0.0364873624842231], "DynamicName", BoxID -> "VertexID$7"], TagBox[ DiskBox[{0.9797958971132712, 0.}, 0.0364873624842231], "DynamicName", BoxID -> "VertexID$8"], TagBox[ DiskBox[{2.9393876913398134`, 0.4898979485566356}, 0.0364873624842231], "DynamicName", BoxID -> "VertexID$9"], TagBox[ DiskBox[{1.4696938456699067`, 0.}, 0.0364873624842231], "DynamicName", BoxID -> "VertexID$10"], TagBox[ DiskBox[{3.4292856398964493`, 0.4898979485566356}, 0.0364873624842231], "DynamicName", BoxID -> "VertexID$11"], TagBox[ DiskBox[{1.9595917942265424`, 0.}, 0.0364873624842231], "DynamicName", BoxID -> "VertexID$12"], TagBox[ DiskBox[{3.919183588453085, 0.4898979485566356}, 0.0364873624842231], "DynamicName", BoxID -> "VertexID$13"]}, { Directive[ Opacity[0.7], Hue[0.6, 0.7, 0.5]], LineBox[{{ DynamicLocation["VertexID$1", Automatic, Center], DynamicLocation["VertexID$2", Automatic, Center]}, { DynamicLocation["VertexID$1", Automatic, Center], DynamicLocation["VertexID$3", Automatic, Center]}, { DynamicLocation["VertexID$1", Automatic, Center], DynamicLocation["VertexID$5", Automatic, Center]}, { DynamicLocation["VertexID$1", Automatic, Center], DynamicLocation["VertexID$7", Automatic, Center]}, { DynamicLocation["VertexID$1", Automatic, Center], DynamicLocation["VertexID$9", Automatic, Center]}, { DynamicLocation["VertexID$1", Automatic, Center], DynamicLocation["VertexID$11", Automatic, Center]}, { DynamicLocation["VertexID$1", Automatic, Center], DynamicLocation["VertexID$13", Automatic, Center]}, { DynamicLocation["VertexID$2", Automatic, Center], DynamicLocation["VertexID$4", Automatic, Center]}, { DynamicLocation["VertexID$2", Automatic, Center], DynamicLocation["VertexID$6", Automatic, Center]}, { DynamicLocation["VertexID$2", Automatic, Center], DynamicLocation["VertexID$8", Automatic, Center]}, { DynamicLocation["VertexID$2", Automatic, Center], DynamicLocation["VertexID$10", Automatic, Center]}, { DynamicLocation["VertexID$2", Automatic, Center], DynamicLocation["VertexID$12", Automatic, Center]}}]}}], Typeset`data}, TagBox[ DynamicBox[GraphComputation`NetworkGraphicsBox[ 2, Typeset`graph, Typeset`boxes], { CachedValue :> Typeset`boxes, SingleEvaluation -> True, SynchronousUpdating -> False, TrackedSymbols :> {}}, ImageSizeCache->{{2.580000000000001, 176.42000000000002`}, {-25.563199999999988`, 21.752664125506755`}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False, UnsavedVariables:>{Typeset`data}]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FrameTicks->None]}, {"\<\"SparseArray\"\>", TagBox[ FormBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "0"}, {"0", "0", "0", "1"}, {"0", "1", "1", "0"}, {"0", "0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], TraditionalForm], TraditionalForm, Editable->True]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}}, GridBoxBackground->{"Columns" -> {{ RGBColor[1, 1, 0.85]}}}, GridBoxDividers->{ "ColumnsIndexed" -> {1 -> GrayLevel[0.5]}, "RowsIndexed" -> {2 -> GrayLevel[0.5], 3 -> { Thickness[Tiny], GrayLevel[0.85]}, 4 -> { Thickness[Tiny], GrayLevel[0.85]}, 5 -> { Thickness[Tiny], GrayLevel[0.85]}, 6 -> { Thickness[Tiny], GrayLevel[0.85]}, 7 -> { Thickness[Tiny], GrayLevel[0.85]}, 8 -> { Thickness[Tiny], GrayLevel[0.85]}, 9 -> { Thickness[Tiny], GrayLevel[0.85]}}}, GridBoxFrame->{"Columns" -> False, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{0.62}}}], "Grid"]], "DisplayFormula", GeneratedCell->True, CellAutoOverwrite->True, ShowStringCharacters->False], Cell[TextData[{ StyleBox["\t\tHlavou (head) atomick\[EAcute]ho v\[YAcute]razu je \ v\[ZHacek]dy typ objektu, kter\[YAcute] je t\[IAcute]mto atomick\[YAcute]m v\ \[YAcute]razem. Pou\[ZHacek]it\[IAcute] funkce ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["FullForm", BaseStyle->"Link", ButtonData->"paclet:ref/FullForm"]], "Text"], "Text"], " ", StyleBox["na atomick\[YAcute] v\[YAcute]raz vrac\[IAcute] v\[ZHacek]dy dan\ \[YAcute] \t\tatomick\[YAcute] v\[YAcute]raz.", "Text"] }], "MathCaption", CellChangeTimes->{{3.569837520703125*^9, 3.569837641015625*^9}, { 3.570787262171875*^9, 3.570787264890625*^9}}, CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Head", "[", "17", "]"}], ",", RowBox[{"FullForm", "[", "17", "]"}]}], "}"}]], "Input", CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Head", "[", "result", "]"}], ",", RowBox[{"FullForm", "[", "result", "]"}]}], "}"}]], "Input", CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Head", "[", "\"\\"", "]"}], ",", RowBox[{"FullForm", "[", "\"\\"", "]"}]}], "}"}]], "Input", CellTags->"Functional Programming"], Cell[" ", "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Funkcion\[AAcute]ln\[IAcute] programov\[AAcute]n\[IAcute]:", "Color7", FontSlant->"Plain"], StyleBox[" ", FontSlant->"Plain"], "Norm\[AAcute]ln\[IAcute] v\[YAcute]razy" }], "Subsection", CellChangeTimes->{{3.569837673734375*^9, 3.56983769140625*^9}}, CellTags->"Functional Programming"], Cell[TextData[{ "V\[SHacek]echny ostatn\[IAcute] v\[YAcute]razy lze sestavit z atomick\ \[YAcute]ch v\[YAcute]raz\[URing]. Tyto slo\[ZHacek]en\[EAcute] \ v\[YAcute]razy jsou obvykle naz\[YAcute]v\[AAcute]ny ", StyleBox["norm\[AAcute]n\[IAcute]mi v\[YAcute]razy ", FontSlant->"Italic"], "a sd\[IAcute]lej\[IAcute] v\[SHacek]echny stejnou strukturu, kterou maj\ \[IAcute] norm\[AAcute]ln\[IAcute] v\[YAcute]razy:", StyleBox["head", FontSlant->"Italic"], " (hlavu) a \[ZHacek]\[AAcute]dn\[YAcute] nebo v\[IAcute]ce ", StyleBox["element\[URing]", FontSlant->"Italic"], ". V\[SHacek]echny norm\[AAcute]ln\[IAcute] v\[YAcute]razy maj\[IAcute] n\ \[AAcute]sleduj\[IAcute]c\[IAcute] formu:" }], "Text", CellChangeTimes->{{3.569837700078125*^9, 3.569837743984375*^9}, { 3.56983778640625*^9, 3.569837888046875*^9}}, CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{ StyleBox["h", "TI"], "[", RowBox[{ SubscriptBox[ StyleBox["e", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["e", "TI"], StyleBox["2", "TR"]], ",", "\[Ellipsis]", ",", SubscriptBox[ StyleBox["e", "TI"], StyleBox["n", "TI"]]}], "]"}]], "DisplayFormula"], Cell[TextData[{ StyleBox["h", FontSlant->"Italic"], " je naz\[YAcute]v\[AAcute]na ", StyleBox["head", FontSlant->"Italic"], " v\[YAcute]razu ", Cell[BoxData[ FormBox[ SubscriptBox["e", "i"], TraditionalForm]]], " jsou ", StyleBox["elementy", FontSlant->"Italic"], ". Oboje tj. head i elementy norm\[AAcute]ln\[IAcute]ho v\[YAcute]razu mohou \ b\[YAcute]t bu\[DHacek] atomick\[EAcute] v\[YAcute]razy nebo norm\[AAcute]ln\ \[IAcute] v\[YAcute]razy." }], "Text", CellChangeTimes->{{3.56983789346875*^9, 3.5698379700625*^9}}, CellTags->"Functional Programming"], Cell[TextData[{ StyleBox["\t\tJako p\[RHacek]\[IAcute]klad je mo\[ZHacek]n\[EAcute] uv\ \[EAcute]st v\[YAcute]raz ", "Text"], StyleBox[Cell[BoxData[ RowBox[{"f", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}]], "Text"], "Text"], StyleBox[". Jedn\[AAcute] se o", "Text"], " ", StyleBox["norm\[AAcute]ln\[IAcute] v\[YAcute]raz s hlavou f a se 3 (atomick\ \[YAcute]mi) elementy. ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["Head", BaseStyle->"Link", ButtonData->"paclet:ref/Head"]], "Text"], "Text"], StyleBox[" funkce", "Text"], " ", StyleBox["vrac\[IAcute] head sv\[YAcute]ch \t\t\targument\[URing].", "Text"] }], "MathCaption", CellChangeTimes->{{3.56983803884375*^9, 3.56983814459375*^9}, { 3.570787271984375*^9, 3.57078727490625*^9}}, CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], "//", "Head"}]], "Input", CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], "//", "Length"}]], "Input", CellTags->"Functional Programming"], Cell[BoxData[""], "NonPrintButton", CellChangeTimes->{3.56983803603125*^9}], Cell[TextData[{ StyleBox["\t\tPomoc\[IAcute] funkce ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["Part", BaseStyle->"Link", ButtonData->"paclet:ref/Part"]], "Text"], "Text"], ", ", StyleBox["m\[URing]\[ZHacek]eme z\[IAcute]skat jak\[YAcute]koliv element v\ \[YAcute]razu.", "Text"] }], "MathCaption", CellChangeTimes->{{3.5698382465625*^9, 3.569838281875*^9}, {3.57078727625*^9, 3.570787276484375*^9}}], Cell[BoxData[ RowBox[{"Part", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], ",", "2"}], "]"}]], "Input"], Cell[TextData[StyleBox["\t\tTrochu komplikovan\[EHacek]j\[SHacek]\[IAcute] to \ m\[URing]\[ZHacek]e b\[YAcute]t v p\[RHacek]\[IAcute]pad\[EHacek] \ slo\[ZHacek]it\[EHacek]j\[SHacek]\[IAcute]ch v\[YAcute]raz\[URing]. Nap\ \[RHacek]\[IAcute]klad n\[AAcute]sleduj\[IAcute]c\[IAcute] seznam seznam\ \[URing] neboli matice.", "Text"]], "MathCaption", CellChangeTimes->{{3.569838294171875*^9, 3.569838348109375*^9}, { 3.570787277984375*^9, 3.570787278296875*^9}}, CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{ RowBox[{"mat", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"d", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"g", ",", "h"}], "}"}]}], "}"}]}], ";"}]], "Input", CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{"mat", " ", "//", " ", "MatrixForm"}]], "Input", CellChangeTimes->{{3.570942490078125*^9, 3.57094249609375*^9}}], Cell[TextData[{ StyleBox["\t\t ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["FullForm", BaseStyle->"Link", ButtonData->"paclet:ref/FullForm"]], "Text"], "Text"], " ", StyleBox["nebo ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["TreeForm", BaseStyle->"Link", ButtonData->"paclet:ref/TreeForm"]], "Text"], "Text"], " ", StyleBox["prom\[EHacek]nn\[EAcute] mat ukazuje jej\[IAcute] strukturu", "Text"], "." }], "MathCaption", CellChangeTimes->{{3.56983835725*^9, 3.5698383821875*^9}, { 3.570787279484375*^9, 3.57078727984375*^9}}, CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{"FullForm", "[", "mat", "]"}]], "Input", CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{"TreeForm", "[", "mat", "]"}]], "Input", CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{"Head", "[", "mat", "]"}]], "Input", CellTags->"Functional Programming"], Cell[TextData[StyleBox["\t\tKa\[ZHacek]d\[YAcute] element prom\[EHacek]nn\ \[EAcute] mat je seznam d\[EAcute]lky 2 a v prom\[EHacek]nn\[EAcute] jsou 3 \ takov\[EAcute]to seznamy.", "Text"]], "MathCaption", CellChangeTimes->{{3.569838428921875*^9, 3.569838454515625*^9}, { 3.570787292046875*^9, 3.5707872925625*^9}}, CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{"Length", "[", "mat", "]"}]], "Input", CellChangeTimes->{{3.569838462375*^9, 3.569838472828125*^9}}, CellTags->"Functional Programming"], Cell[TextData[{ StyleBox["\t\tFunkce ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["Part", BaseStyle->"Link", ButtonData->"paclet:ref/Part"]], "Text"], "Text"], StyleBox[" je op\[EHacek]t pou\[ZHacek]ita k z\[IAcute]sk\[AAcute]n\[IAcute] \ element\[URing] v\[YAcute]razu.", "Text"] }], "MathCaption", CellChangeTimes->{{3.56983847934375*^9, 3.56983850340625*^9}, { 3.5707872941875*^9, 3.57078729459375*^9}}], Cell[BoxData[ RowBox[{"Part", "[", RowBox[{"mat", ",", "2"}], "]"}]], "Input"], Cell[TextData[StyleBox["\t\tV\[YAcute]razy mohou m\[IAcute]t \ samoz\[RHacek]ejm\[EHacek] mnohem komplikovan\[EHacek]j\[SHacek]\[IAcute] \ strukturur.", "Text"]], "MathCaption", CellChangeTimes->{{3.569838519125*^9, 3.56983854165625*^9}, { 3.5707872960625*^9, 3.5707872965*^9}}, CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{"TreeForm", "[", RowBox[{"poly", "=", RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{"2", " ", "x", " ", "y"}], "+", SuperscriptBox["y", "2"], "-", RowBox[{"2", " ", "x", " ", "z"}], "-", RowBox[{"2", " ", "y", " ", "z"}], "+", SuperscriptBox["z", "2"]}]}], "]"}]], "Input", CellTags->"Functional Programming"], Cell[TextData[StyleBox["\t\tTakto z\[IAcute]sk\[AAcute]me 3. \[CHacek]\ \[AAcute]st tohoto v\[YAcute]razu.", "Text"]], "MathCaption", CellChangeTimes->{{3.569838546515625*^9, 3.56983856634375*^9}, { 3.57078729815625*^9, 3.57078729871875*^9}}, CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{"poly", "[", RowBox[{"[", "3", "]"}], "]"}]], "Input", CellTags->"Functional Programming"], Cell["\<\ Tato jednotn\[AAcute] struktura d\[EHacek]l\[AAcute] z funkcion\[AAcute]ln\ \[IAcute]ho programov\[AAcute]n\[IAcute] siln\[YAcute] a snadno \ pou\[ZHacek]iteln\[YAcute] n\[AAcute]stroj.\ \>", "Text", CellChangeTimes->{{3.5698385890625*^9, 3.5698386409375*^9}}, CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"mat", ",", "poly"}], "]"}]], "Input"], Cell[" ", "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Funkcion\[AAcute]ln\[IAcute] programov\[AAcute]n\[IAcute]:", "Color7", FontSlant->"Plain"], StyleBox[" ", FontSlant->"Plain"], "Apply" }], "Subsection", CellChangeTimes->{{3.56983867284375*^9, 3.5698386809375*^9}, { 3.5707877615625*^9, 3.570787766328125*^9}}, CellTags->"Functional Programming"], Cell[TextData[{ "Stejn\[EHacek] jako ", Cell[BoxData[ ButtonBox["Map", BaseStyle->"Link", ButtonData->"paclet:ref/Map"]], "InlineFormula"], ", je dal\[SHacek]\[IAcute] hojn\[EHacek] u\[ZHacek]\[IAcute]vanou funkc\ \[IAcute] ", Cell[BoxData[ ButtonBox["Apply", BaseStyle->"Link", ButtonData->"paclet:ref/Apply"]], "InlineFormula"], "." }], "Text", CellChangeTimes->{{3.569838686265625*^9, 3.56983870665625*^9}}, CellTags->"Functional Programming"], Cell[TextData[{ Cell[BoxData[ RowBox[{"Apply", "[", RowBox[{ StyleBox["f", "TI"], ",", StyleBox["expr", "TI"]}], "]"}]]], " nahrad\[IAcute] head ve v\[YAcute]razu ", StyleBox["expr", "IT"], " funkc\[IAcute] ", StyleBox["f", "IT"], "." }], "Text", CellChangeTimes->{{3.569838713796875*^9, 3.56983873678125*^9}}, CellTags->"Functional Programming"], Cell[TextData[{ "Jednodu\[SHacek]e: ", Cell[BoxData[ ButtonBox["Map", BaseStyle->"Link", ButtonData->"paclet:ref/Map"]], "InlineFormula"], " pou\[ZHacek]ijeme, kdy\[ZHacek] chceme aplikovat oper\[AAcute]tor (funkci) \ na elementy v\[YAcute]razu, a ", Cell[BoxData[ ButtonBox["Apply", BaseStyle->"Link", ButtonData->"paclet:ref/Apply"]], "InlineFormula"], " pou\[ZHacek]ijeme, kdy\[ZHacek] chceme zm\[EHacek]nit strukturu \ v\[YAcute]razu." }], "Text", CellChangeTimes->{{3.569838749859375*^9, 3.569838845921875*^9}}], Cell[TextData[{ StyleBox["\t\tP\[RHacek]\[IAcute]klad ukazuje z\[AAcute]kladn\[IAcute] chov\ \[AAcute]n\[IAcute] funkce ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["Apply", BaseStyle->"Link", ButtonData->"paclet:ref/Apply"]], "Text"], "Text"], "." }], "MathCaption", CellChangeTimes->{{3.56983886728125*^9, 3.56983888040625*^9}, { 3.57078730828125*^9, 3.570787308671875*^9}}, CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{"Apply", "[", RowBox[{"f", ",", RowBox[{"g", "[", RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "]"}]}], "]"}]], "Input", CellTags->"Functional Programming"], Cell[TextData[{ StyleBox["\t\tN\[AAcute]sleduj\[IAcute]c\[IAcute] vstup aplikuje funkci ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["Apply", BaseStyle->"Link", ButtonData->"paclet:ref/Apply"]], "Text"], "Text"], StyleBox[" k vyn\[AAcute]soben\[IAcute] v\[SHacek]ech prvk\[URing] seznamu. \ Nahrazen\[IAcute]m hlavy seznamu ", "Text"], StyleBox[Cell[BoxData[ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}]], "Text"], "Text"], " ", StyleBox["oper\[AAcute]torem ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["Times", BaseStyle->"Link", ButtonData->"paclet:ref/Times"]], "Text"], "Text"], StyleBox[" n\[AAcute]m d\[AAcute] \t\tv\[YAcute]raz ", "Text"], StyleBox[Cell[BoxData[ RowBox[{"Times", "[", RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "]"}]], "Text"], "Text"], " ", StyleBox["jako meziv\[YAcute]sledek, kter\[YAcute] je vyhodnocen jako sou\ \[CHacek]in element\[URing] v seznamu. ", "Text"] }], "MathCaption", CellChangeTimes->{{3.56983899575*^9, 3.56983911346875*^9}, { 3.57078731065625*^9, 3.570787312890625*^9}}, CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{ RowBox[{"Apply", "[", RowBox[{"Times", ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}]}], "]"}], "//", " ", "FullForm"}]], "Input", CellChangeTimes->{{3.5709429160625*^9, 3.570942921328125*^9}}, CellTags->"Functional Programming"], Cell[TextData[StyleBox["\t\tPou\[ZHacek]it\[IAcute] tohoto \ p\[RHacek]\[IAcute]stupu n\[AAcute]m nap\[RHacek]. umo\[ZHacek]n\[IAcute] ur\ \[CHacek]it faktori\[AAcute]l 10!.", "Text"]], "MathCaption", CellChangeTimes->{{3.569839124140625*^9, 3.569839162109375*^9}, { 3.569839193515625*^9, 3.56983920403125*^9}, {3.570787314625*^9, 3.570787315*^9}}, CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{"Apply", "[", RowBox[{"Times", ",", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10"}], "}"}]}], "]"}]], "Input", CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{"Range", "[", "10", "]"}]], "Input", CellChangeTimes->{3.570942973484375*^9}], Cell[TextData[StyleBox["\t\tPomoc\[IAcute] funkcion\[AAcute]ln\[IAcute] \ programov\[AAcute]n\[IAcute] je mo\[ZHacek]n\[EAcute] \[RHacek]e\[SHacek]it p\ \[RHacek]\[IAcute]klad z \[CHacek]\[AAcute]ti procedur\[AAcute]ln\[IAcute]ho \ programov\[AAcute]n\[IAcute], kter\[YAcute] se\[CHacek]te \ \[CHacek]\[IAcute]sla 1 a\[ZHacek] 10.", "Text"]], "MathCaption", CellChangeTimes->{{3.569839219453125*^9, 3.56983928496875*^9}, { 3.5707873164375*^9, 3.570787316828125*^9}}], Cell[BoxData[ RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"Range", "[", "10", "]"}]}], "]"}]], "Input"], Cell[TextData[{ StyleBox["\t\tJin\[YAcute] p\[RHacek]\[IAcute]stup \[RHacek]e\[SHacek]en\ \[IAcute] uveden\[EAcute]ho p\[RHacek]\[IAcute]kladu je pou\[ZHacek]it\ \[IAcute] funkce ", "Text"], StyleBox[Cell[BoxData[ RowBox[{ ButtonBox["Total", BaseStyle->"Link", ButtonData->"paclet:ref/Total"], "[", StyleBox["lis", "TI"], "]"}]], "Text"], "Text"], ",", StyleBox[" kter\[AAcute] se\[CHacek]te v\[SHacek]echny prvky seznamu ", "Text"], StyleBox["lis", "Text", FontSlant->"Italic"], StyleBox[".", "Text"] }], "MathCaption", CellChangeTimes->{{3.56983930921875*^9, 3.569839343890625*^9}, { 3.570787318390625*^9, 3.5707873190625*^9}}], Cell[BoxData[ RowBox[{"Total", "[", RowBox[{"Range", "[", "10", "]"}], "]"}]], "Input"], Cell[TextData[{ "Vizualizaci n\[EHacek]kter\[YAcute]ch funkcion\[AAcute]ln\[IAcute]ch \ konstrukt\[URing] lze nal\[EAcute]zt na ", StyleBox["Mathematica", FontSlant->"Italic"], " webu na ", ButtonBox["documents.wolfram.com/flash", BaseStyle->"Hyperlink", ButtonData->{ URL["http://documents.wolfram.com/flash/"], None}, ButtonNote->"http://documents.wolfram.com/flash/"], "." }], "Text", CellDingbat->"\[LightBulb]", CellChangeTimes->{{3.5698393499375*^9, 3.569839398078125*^9}, { 3.570892671078125*^9, 3.5708926770625*^9}}, TextJustification->0.], Cell[" ", "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Funkcion\[AAcute]ln\[IAcute] programov\[AAcute]n\[IAcute]:", "Color7", FontSlant->"Plain"], StyleBox[" ", FontSlant->"Plain"], "Programovac\[IAcute] styly" }], "Subsection", CellChangeTimes->{{3.569840049265625*^9, 3.569840067484375*^9}}, CellTags->"Functional Programming"], Cell["\<\ Mnoho jednoduch\[YAcute]ch v\[YAcute]po\[CAcute]t\[URing], kter\[EAcute] \ bychom \[RHacek]e\[SHacek]ili procedur\[AAcute]ln\[IAcute]m programem je mo\ \[ZHacek]n\[EAcute] napsat jednodu\[SHacek]eji a efektivn\[EHacek]ji pomoc\ \[IAcute] funkcion\[AAcute]ln\[IAcute]ho p\[RHacek]\[IAcute]stupu.\ \>", "Text", CellChangeTimes->{{3.56984007378125*^9, 3.56984015775*^9}}, CellTags->"Functional Programming"], Cell[TextData[StyleBox["\t\tN\[AAcute]sleduj\[IAcute]c\[IAcute] \[UAcute]loha \ m\[AAcute] nal\[EAcute]zt nejv\[EHacek]t\[SHacek]\[IAcute] prvek v \ ka\[ZHacek]d\[EAcute]m \[RHacek]\[AAcute]dku matice mat", "Text"]], \ "MathCaption", CellChangeTimes->{{3.5698402015625*^9, 3.56984025528125*^9}, { 3.570787324390625*^9, 3.570787324828125*^9}}, CellTags->"Functional Programming"], Cell[BoxData[{ RowBox[{ RowBox[{"mat", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "9", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3", ",", "1"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "mat", "]"}]}], "Input", CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{"Max", "[", RowBox[{"mat", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.570943168390625*^9, 3.57094320240625*^9}}], Cell[TextData[{ StyleBox["\t\tProcedur\[AAcute]ln\[IAcute] programov\[AAcute]n\[IAcute] to \ \[RHacek]e\[SHacek]\[IAcute] n\[AAcute]sleduj\[IAcute]c\[IAcute]m \ zp\[URing]sobem. Z\[AAcute]pis ", "Text", InitializationCell->True], StyleBox[Cell[BoxData[ RowBox[{"mat", "[", RowBox[{"[", "k", "]"}], "]"}]], "Text", InitializationCell->True], "Text"], StyleBox["ozna\[CHacek]uje funkci (operaci), kter\[AAcute] vrac\[IAcute] k-t\ \[YAcute] \[RHacek]\[AAcute]dek matice mat.", "Text"] }], "MathCaption", CellChangeTimes->{{3.56984024078125*^9, 3.569840354015625*^9}, { 3.57078732621875*^9, 3.57078732653125*^9}}, CellTags->"Functional Programming"], Cell[BoxData[{ RowBox[{ RowBox[{"result", "=", RowBox[{"{", "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"result", "=", RowBox[{"Append", "[", RowBox[{"result", ",", RowBox[{"Max", "[", RowBox[{"mat", "[", RowBox[{"[", "k", "]"}], "]"}], "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"k", ",", "1", ",", "3"}], "}"}]}], "]"}], ";"}], "\n", "result"}], "Input", CellTags->"Functional Programming"], Cell[TextData[{ StyleBox["\t\tStejn\[YAcute] p\[RHacek]\[IAcute]klad lze \[RHacek]e\:015bit \ funkcion\[AAcute]ln\[IAcute]m p\[RHacek]\[IAcute]stupem.", "Text"], "." }], "MathCaption", CellChangeTimes->{{3.569840360296875*^9, 3.569840378671875*^9}, { 3.5707873278125*^9, 3.57078732809375*^9}}, CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{"Map", "[", RowBox[{"Max", ",", "mat"}], "]"}]], "Input", CellTags->"Functional Programming"], Cell[BoxData[ RowBox[{"Map", "[", RowBox[{"g", ",", "mat"}], "]"}]], "Input", CellChangeTimes->{{3.569840518859375*^9, 3.569840528421875*^9}}], Cell[BoxData[""], "NonPrintButton", CellChangeTimes->{{3.569840188765625*^9, 3.56984019003125*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"mat", ",", "result"}], "]"}]], "Input", CellTags->"Functional Programming"], Cell[TextData[{ StyleBox["Dal\[SHacek]\[IAcute] informace", FontWeight->"Bold", FontSlant->"Italic"], ": viz ", ButtonBox["Functional Programming guide page", BaseStyle->"Link", ButtonData->"paclet:guide/FunctionalProgramming"], "." }], "Text", CellDingbat->"\[LightBulb]", CellChangeTimes->{{3.56984038409375*^9, 3.56984039146875*^9}}], Cell[" ", "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Programov\[AAcute]n\[IAcute] pomoc\[IAcute] pravidel", "Section", CellChangeTimes->{{3.569840571171875*^9, 3.5698405853125*^9}}, CellTags->"Programming with Rules"], Cell[TextData[{ "\t\t\t", StyleBox["Obsah", "Subsection"] }], "OverviewSubsection", CellChangeTimes->{{3.570787335640625*^9, 3.570787343328125*^9}, { 3.5707920596875*^9, 3.570792064734375*^9}}, CellTags->"Programming with Rules"], Cell["\<\ Tato \[CHacek]\[AAcute]st ukazuje programov\[AAcute]n\[IAcute] pomoc\[IAcute] \ pravidel:\ \>", "Text", CellChangeTimes->{{3.5698405889375*^9, 3.56984060890625*^9}}, CellTags->"Programming with Rules"], Cell[CellGroupData[{ Cell[TextData[{ "substitu\[CHacek]n\[IAcute] pravidlo s pou\[ZHacek]it\[IAcute]m ", Cell[BoxData[ ButtonBox["ReplaceAll", BaseStyle->"Link", ButtonData->"paclet:ref/ReplaceAll"]]] }], "Item", CellChangeTimes->{{3.569840613203125*^9, 3.569840624171875*^9}, { 3.56984284978125*^9, 3.569842854328125*^9}}, CellTags->"Programming with Rules"], Cell["\<\ v\[YAcute]b\[EHacek]r podle vzor\[URing] - pattern matching\ \>", "Item", CellChangeTimes->{{3.569840744546875*^9, 3.569840751125*^9}}, CellTags->"Programming with Rules"], Cell["\<\ vzory podm\[IAcute]nek - conditional patterns\ \>", "Item", CellChangeTimes->{{3.569840759296875*^9, 3.569840772421875*^9}}, CellTags->"Programming with Rules"] }, Open ]], Cell[" ", "Spacer"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.570892961578125*^9, 3.570892965203125*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Programov\[AAcute]n\[IAcute] s pravidly:", "Color7", FontSlant->"Plain"], StyleBox[" ", FontSlant->"Plain"], "\[CapitalUAcute]vod" }], "Subsection", CellChangeTimes->{{3.569840795265625*^9, 3.569840805265625*^9}}, CellTags->"Programming with Rules"], Cell["\<\ Transforma\[CHacek]n\[IAcute] pravidla umo\[ZHacek]\[NHacek]uj\[IAcute] prov\ \[AAcute]d\[EHacek]t v\[YAcute]po\[CHacek]ty nebo transformace v\[YAcute]raz\ \[URing] bez pou\[ZHacek]it\[IAcute] p\[RHacek]i\[RHacek]azen\[IAcute]. Nap\ \[RHacek]\[IAcute]klad je d\[AAcute]na matice, kter\[AAcute] obsahuje ne\ \[CHacek]\[IAcute]seln\[EAcute] hodnoty. Tuto matici m\[URing]\[ZHacek]eme \ transformovat bez pou\[ZHacek]it\[IAcute] p\[RHacek]i\[RHacek]azen\[IAcute] \ nebo pou\[ZHacek]it\[IAcute] funkc\[IAcute] pomoc\[IAcute] aplikace pravidel. \ \>", "Text", CellChangeTimes->{{3.56984085109375*^9, 3.569841006171875*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"mat", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.796495", ",", "\"\\"", ",", "0.070125", ",", RowBox[{"-", "0.323573"}], ",", "0.806554"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"-", "0.100365"}], ",", "0.992736", ",", RowBox[{"-", "0.320560"}], ",", RowBox[{"-", "0.0805351"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.473571", ",", "0.460741", ",", "0.030060", ",", RowBox[{"-", "0.412400"}], ",", "0.788522"}], "}"}], ",", RowBox[{"{", RowBox[{"0.614974", ",", RowBox[{"-", "0.503201"}], ",", "0.615744", ",", "0.966053", ",", RowBox[{"-", "0.011776"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.828415"}], ",", "0.035514", ",", "0.8911617", ",", "\"\\"", ",", RowBox[{"-", "0.453926"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "mat", "]"}]}], "Input"], Cell[TextData[StyleBox["\t\tToto nahrad\[IAcute] v\[SHacek]echny prvky matice \ - \[RHacek]et\[EHacek]zce \[OpenCurlyDoubleQuote]N/A\[CloseCurlyDoubleQuote] \ nulou.", "Text"]], "MathCaption", CellChangeTimes->{{3.56984102178125*^9, 3.569841058421875*^9}, { 3.5707873594375*^9, 3.57078735978125*^9}}], Cell[BoxData[ RowBox[{"mat", "/.", RowBox[{"\"\\"", "\[Rule]", "0"}]}]], "Input", CellChangeTimes->{3.570943436171875*^9}], Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"mat", "/.", RowBox[{"\"\\"", "\[Rule]", "0"}]}], "]"}]], "Input"], Cell["", "Text", CellChangeTimes->{3.569842499390625*^9}], Cell[" ", "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Programov\[AAcute]n\[IAcute] s pravidly:", "Color7", FontSlant->"Plain"], StyleBox[" Substitu\[CHacek]n\[IAcute] p", FontSlant->"Plain"], "ravidlo" }], "Subsection", CellChangeTimes->{{3.569842506890625*^9, 3.569842519359375*^9}, { 3.5698428341875*^9, 3.56984284071875*^9}}, CellTags->"Programming with Rules"], Cell["\<\ P\[RHacek]ipome\[NHacek]me si, \[ZHacek]e po proveden\[IAcute] p\[RHacek]\ \[IAcute]kazu p\[RHacek]i\[RHacek]azen\[IAcute] prav\[EAcute] strany do \ symbolu, je p\[RHacek]i\[RHacek]azen\[AAcute] hodnota automaticky \ vkl\[AAcute]d\[AAcute]na do jak\[EAcute]hokoliv v\[YAcute]razu, kter\[YAcute] \ obsahuje dan\[YAcute] symbol.\ \>", "Text", CellChangeTimes->{{3.5698425319375*^9, 3.569842611703125*^9}}, CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{"x", "=", "5"}]], "Input", CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{ RowBox[{"2", "x"}], "+", RowBox[{"x", " ", "y"}]}]], "Input", CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{"Clear", "[", "x", "]"}]], "Input", CellChangeTimes->{{3.5709435295*^9, 3.570943531984375*^9}}], Cell["\<\ Tento v\[YAcute]po\[CHacek]et je mo\[ZHacek]n\[EAcute] prov\[EAcute]st tak\ \[EAcute] bez p\[RHacek]edchoz\[IAcute] definice (p\[RHacek]i\[RHacek]azen\ \[IAcute]) symbolu x. Substitu\[CHacek]n\[IAcute] pravidlo umo\[ZHacek]n\ \[IAcute] nahradit po\[ZHacek]adovan\[YAcute] symbol v jak\[EAcute]mkoliv v\ \[YAcute]razu danou hodnotou.\ \>", "Text", CellChangeTimes->{{3.569842614328125*^9, 3.56984268*^9}, { 3.56984286884375*^9, 3.569842878390625*^9}}, CellTags->"Programming with Rules"], Cell[TextData[{ "Nap\[RHacek]\[IAcute]klad ", Cell[BoxData[ RowBox[{"x", "\[Rule]", "5"}]]], " reprezentuje pravidlo pro nahrazen\[IAcute] symbolu ", StyleBox["x", "MR"], " hodnotou ", StyleBox["5", "MR"], ". Oper\[AAcute]tor ", StyleBox["\[Rule]", "MR"], " je vytvo\[RHacek]en pomoc\[IAcute] kl\[AAcute]vesy ", StyleBox["-", "MR"], " n\[AAcute]sledovan\[EAcute] znakem ", StyleBox[">", "MR"], ". " }], "Text", CellChangeTimes->{{3.569842682484375*^9, 3.569842739796875*^9}}, CellTags->"Programming with Rules"], Cell[TextData[{ StyleBox["\t\tTento vstup pou\[ZHacek]\[IAcute]v\[AAcute] funkci ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["ReplaceAll", BaseStyle->"Link", ButtonData->"paclet:ref/ReplaceAll"]], "Text"], "Text"], " ", StyleBox["a pravidlo ", "Text"], StyleBox[Cell[BoxData[ RowBox[{"x", "\[Rule]", "5"}]], "Text"], "Text"], " ", StyleBox[" k realizaci substituce x ve v\[YAcute]razu ", "Text"], StyleBox[Cell[BoxData[ RowBox[{ RowBox[{"2", " ", "x"}], "+", RowBox[{"x", " ", "y"}]}]], "Text"], "Text"], "." }], "MathCaption", CellChangeTimes->{{3.569842780671875*^9, 3.569842831140625*^9}, { 3.569842896546875*^9, 3.569842903296875*^9}, {3.570787364578125*^9, 3.5707873650625*^9}}, CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{"Clear", "[", "x", "]"}]], "Input", CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{"ReplaceAll", "[", RowBox[{ RowBox[{ RowBox[{"2", "x"}], "+", RowBox[{"x", " ", "y"}]}], ",", RowBox[{"x", "\[Rule]", "5"}]}], "]"}]], "Input", CellTags->"Programming with Rules"], Cell[BoxData["x"], "Input", CellChangeTimes->{3.570943590375*^9}], Cell[BoxData[ RowBox[{"?", "x"}]], "Input", CellChangeTimes->{{3.57094359746875*^9, 3.57094359984375*^9}}], Cell[TextData[{ "Z\[AAcute]kladn\[IAcute] syntaxe funkce ", Cell[BoxData[ ButtonBox["ReplaceAll", BaseStyle->"Link", ButtonData->"paclet:ref/ReplaceAll"]], "InlineFormula"], " je:" }], "Text", CellChangeTimes->{{3.5698429128125*^9, 3.569842926890625*^9}}], Cell[BoxData[ RowBox[{"ReplaceAll", "[", RowBox[{"vyraz", ",", RowBox[{ StyleBox["vzor", "TI"], "\[Rule]", StyleBox["substituce", "TI"]}]}], "]"}]], "Text", CellChangeTimes->{{3.569842936078125*^9, 3.56984295753125*^9}}, TextAlignment->-0.5], Cell[TextData[{ StyleBox["\t\tN\[AAcute]sleduj\[IAcute]c\[IAcute] ukazuje stejn\[YAcute] \ vstup s pou\[ZHacek]it\[IAcute]m /. oper\[AAcute]toru pro ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["ReplaceAll", BaseStyle->"Link", ButtonData->"paclet:ref/ReplaceAll"]], "Text"], "Text"], "." }], "MathCaption", CellChangeTimes->{{3.569842976921875*^9, 3.56984301646875*^9}, { 3.570787367015625*^9, 3.57078736753125*^9}}, CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"2", "x"}], "+", RowBox[{"x", " ", "y"}]}], "/.", RowBox[{"x", "\[Rule]", "5"}]}]], "Input", CellTags->"Programming with Rules"], Cell["\<\ Z\[AAcute]kladn\[IAcute] syntaxe v t\[EAcute]to notaci je:\ \>", "Text", CellChangeTimes->{{3.569843020171875*^9, 3.569843035078125*^9}}], Cell[BoxData[ RowBox[{"vyraz", "/.", RowBox[{ StyleBox["vzor", "TI"], "\[Rule]", StyleBox["substituce", "TI"]}]}]], "Text", CellChangeTimes->{{3.569843037046875*^9, 3.5698430545625*^9}}, TextAlignment->-0.5], Cell[TextData[StyleBox["\t\tPou\[ZHacek]it\[IAcute] substituce nep\[RHacek]i\ \[RHacek]azuje symbolu x \[ZHacek]\[AAcute]dnou hodnotu.", "Text"]], \ "MathCaption", CellChangeTimes->{{3.569843070046875*^9, 3.5698430895*^9}, { 3.570787373484375*^9, 3.5707873745625*^9}}, CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{"?", "x"}]], "Input", CellTags->"Programming with Rules"], Cell[TextData[{ StyleBox["\t\tSubstitu\[CHacek]n\[IAcute] pravidla jsou \[CHacek]asto u\ \[ZHacek]\[IAcute]v\[AAcute]na pro nahrazen\[IAcute] prvk\[URing] v poli. \ Tento p\[RHacek]\[IAcute]klad vytvo\[RHacek]\[IAcute] pole ", "Text"], StyleBox[Cell[BoxData[ FormBox[ RowBox[{"4", "\[Cross]", "4"}], TraditionalForm]], "Text"], "Text"], StyleBox[" array z n\[AAcute]hodn\[YAcute]ch \[CHacek]\[IAcute]sel mezi 0 a \ 10.", "Text"] }], "MathCaption", CellChangeTimes->{{3.56984311153125*^9, 3.56984317496875*^9}, { 3.57078738015625*^9, 3.5707873806875*^9}}, CellTags->"Programming with Rules"], Cell[BoxData[{ RowBox[{ RowBox[{"SeedRandom", "[", "245", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"mat", "=", RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}]}], "]"}]}]}], "Input", CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{"mat", " ", "//", " ", "MatrixForm"}]], "Input", CellChangeTimes->{{3.57094377796875*^9, 3.570943783921875*^9}}], Cell[TextData[StyleBox["\t\ta n\[AAcute]sledn\[EHacek] nahrad\[IAcute] v\ \[SHacek]echny v\[YAcute]skyty \[CHacek]\[IAcute]sla 5 p\[IAcute]smenem \ \[Alpha] a \[CHacek]\[IAcute]slo 3 p\[IAcute]smenem \[Beta].", "Text"]], \ "MathCaption", CellChangeTimes->{{3.569843191328125*^9, 3.569843228109375*^9}, { 3.570787382171875*^9, 3.570787382609375*^9}}, CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{ RowBox[{"mat", "/.", RowBox[{"{", RowBox[{ RowBox[{"5", "\[Rule]", "\[Alpha]"}], ",", RowBox[{"3", "\[Rule]", "\[Beta]"}]}], "}"}]}], " ", "//", " ", "MatrixForm"}]], "Input", CellChangeTimes->{{3.570943826875*^9, 3.57094383025*^9}}, CellTags->"Programming with Rules"], Cell[TextData[StyleBox["\t\tN\[AAcute]sleduje p\[RHacek]\[IAcute]klad \ substituce \[RHacek]et\[EHacek]zc\[URing].", "Text"]], "MathCaption", CellChangeTimes->{{3.569843239734375*^9, 3.569843255671875*^9}, { 3.57078738409375*^9, 3.570787384734375*^9}}, CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{"StringReplace", "[", RowBox[{"\"\\"", ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellTags->"Programming with Rules"], Cell["\<\ Pro flexibiln\[EHacek]j\[SHacek]\[IAcute] pr\[AAcute]ci se substitu\[CHacek]n\ \[IAcute]mi pravidly je u\[ZHacek]ite\[CHacek]n\[EAcute] \ pou\[ZHacek]\[IAcute]vat vzory, kter\[EAcute] odpov\[IAcute]daj\[IAcute] po\ \[ZHacek]adovan\[EAcute] t\[RHacek]\[IAcute]d\[EHacek] v\[YAcute]raz\[URing]. \ N\[AAcute]sleduj\[IAcute]c\[IAcute] \[CHacek]\[AAcute]st ukazuje \ pr\[AAcute]ci se vzory, kter\[EAcute] roz\[SHacek]i\[RHacek]uj\[IAcute] mo\ \[ZHacek]nosti substitu\[CHacek]n\[IAcute]ch pravidel.\ \>", "Text", CellChangeTimes->{{3.56984328259375*^9, 3.569843396390625*^9}}, CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{"Clear", "[", "mat", "]"}]], "Input"], Cell[" ", "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Programov\[AAcute]n\[IAcute] s pravidly:", "Color7", FontSlant->"Plain"], StyleBox[" ", FontSlant->"Plain"], "Vzory" }], "Subsection", CellChangeTimes->{{3.569843404234375*^9, 3.569843411390625*^9}}, CellTags->"Programming with Rules"], Cell[TextData[{ "V\[YAcute]raz na lev\[EAcute] stran\[EHacek] pr\[AAcute]vidla nebo p\ \[RHacek]i\[RHacek]azen\[IAcute] je vzor (", StyleBox["pattern", FontSlant->"Italic"], "). Tento vzor ur\[CHacek]uje t\[RHacek]\[IAcute]du v\[YAcute]raz\[URing], \ na kter\[EAcute] je mo\[ZHacek]n\[EAcute] dan\[EAcute] pravidlo aplikovat." }], "Text", CellChangeTimes->{{3.569843416578125*^9, 3.569843478671875*^9}}, CellTags->"Programming with Rules"], Cell[TextData[{ StyleBox["\t\tNap\[RHacek]\[IAcute]klad vzor ", "Text"], StyleBox[Cell[BoxData[ RowBox[{"f", "[", "n_", "]"}]], "Text"], "Text"], " ", StyleBox["v n\[AAcute]sleduj\[IAcute]c\[IAcute]m p\[RHacek]i\[RHacek]azen\ \[IAcute] ur\[CHacek]uje, \[ZHacek]e p\[RHacek]i\[RHacek]azen\[IAcute] m\ \[URing]\[ZHacek]e b\[YAcute]t aplikov\[AAcute]no na cokoliv ", "Text"], StyleBox[Cell[BoxData[ RowBox[{"f", "[", StyleBox["cokoliv", "TI"], "]"}]], "Text"], "Text"], "." }], "MathCaption", CellChangeTimes->{{3.56984350778125*^9, 3.56984357178125*^9}, { 3.570787392734375*^9, 3.57078739334375*^9}}, CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "n_", "]"}], ":=", FractionBox["n", RowBox[{"n", "+", "1"}]]}]], "Input", CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{"f", "[", "5", "]"}]], "Input"], Cell[BoxData[ RowBox[{"f", "[", GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwlmXk4lN/7x61ZEjPPjJAU7SsppYXuUwlFSokWIWkhSURIKpWQZK9kS4X4 RHZJTpSikKiEopAsYx7rmJksv/O9fn+d63Vd82zv9/u+73Ou0bA/u/e4mIiI SJaoiMj/VnEsW9ux9upmXun/rwt7SjfNibSFu/mNw7PJKnyu5dAUcRbORecZ fCHrH/YpfkHEZbjytMwnmazNhtfLn0TcAbWrSdX7yPrVNmJxfEQirNs+w2J/ eCLsdVZpvheRBWux8JX37SwIH7LOjYnAsF7xqYGaH4ZNFTtlt7rXwY2SV9tl t9eBq4/Z0VzX71B44Y1OSVMjnCk6Hio2/xcsypjzyZjTCl+6d8ik2ndCZ1fT wQrpDgjW4okUHOwGDal00Z3MLji3vDL69RMOCNzfr83gd0Pn8c4rSQUcOOdZ NH+teA9YJok4X3nPgedXZqgVzeiBjYobtqIeDtTb6Sx6Oq8HxKaecvGKftja M3OLrmkPRNTfMsK5/WB/MpktmtADOd67Ba/KuGDW1Oihq9cLwmOnM3+6DEDG zO7au/Z9YMcc9irxHICSqcNzXzj1QUWpz7YHfgMQ4RBZ0+DWB2Eqwd8PhA5A kYnnplH/Plj8KU3sy7MBWGcWvKg7uQ8sNnZZfuAMQPaxhbdCfvdBJuPoVIHT IKjEWJwpP8gBdml3VbTbIKSUiVVNP8oB79OuUed9BsHkR7Oh2SkOGLy7vHR1 8CC4N4gnl3pyoOViwr5nTwfhTo7bE9NIDkj/bUl91D0IHw3k7WZ/5ID9K8s9 YSeGIGA/5vmt7YfVBcqUytkhcOPND3bX6wexrOaGhxeGwHveqmrbbf2QnGRj lRs4BJoP7SzmmvdD+7UTNt/Sh0A3OXzzRmei005P59n0ELxe71vzM4lwY3Rg 2oVhYJze2F8rzoXVdVY7ta8Mw5HOxpx8GS6IVanIFQcOQ6BDISdSgQvJxfF3 Pt4fhp7D4QXrVLnQHv8khvtyGA7k3TqvuJoL9g75j3VERuDXG9dV62y4cGzw y+vXgSPg6O/YJsjigp1PmFVR2Ai05sw+5pPHBWtxU27WvRHw1K3ZMVzEBUvF N6qJaSMQGle0qZb4aLwh2/NS5Qi0Gc2PXNLABc2rt1dslB4FmYnPGi4jXFgm u+ONNmMU1GKdLc7zubA4UuLQUuVReFu0tMltnAvqTy7eVF4yCrdB6esBCRpY VY7tPKNR2Bzme7GSRQOfYXgv9+YorMuIy1yrTcPIfVGtjDuj0PYxN+y1Dg2D 815VJN8dBX9RYf629TT06ugMh6eOQlHd/XergYafB+aZub4fBdFg/e5cUxrK kybFV0rxgMtRPr/lBA2lS4tjFyjwoMrjy4I9jjS8zPHQnq3Eg/6ygulWzjTk veXYTF/MA1py0GuXGw2p3c0vegx5cG9+TsmPSzSErCo8mxLAg8NaZ02uR9Lw YXVjl0coDwZ3JC+XiaFBeu3Yke0xPDDmiNwIuEfD9Q26pp1PyP1ZHUlO8TRc 3Fq4ZF4FD0avKJz5nkJDkUFj4mA1D/a2npim8ZQGnuHYzLIvPJghfYRtn0GD m4mupF0nD5pviIbUZNHgZFH4O158DN7tjGjZUURDmmXjgTPTx2BlzMbplsU0 dB0Y+6THGoNSkVMZh0poOHpEt7Rl3hjUR5zctOs1DQdOFMaqbB0DB92RkMb3 NBh5Fe6LvjIGOnPFo658Je/r0/jBIXAMlp/aGMNqJPr5jm3RCRuDwkg1scTv NGy+qruqIXEMnvu4Kia20LAuuFCOicfg9VJndYPfNJwPabz2690YPLmqciK2 nYac0DFhVu0YrIrOpXo6aFgZqdtj1joGnFLXxLNdNCyIK6wImRiDvHWVfhp9 NNgnNOpZS/LhWtPN4Y0cGpKSxnKXz+DDzIHuatN+GmY/0U3+MJsPOVtD/jtI 03Ao1UoldgEf1J3NcywGaLj39EKY4wo+bOx8pWo8SPKVWegnrceHptspysrD NOx53jjauI0PA5p5GSOEQ3PGnFNN+DA8ceth1QgNsoW6hw0P86FWUJdnzaPB +IVVveIxPkyf1fp51hgNAS8v7PjjRN5n9+iez4TFXhfqXvfhg/nX6POLBTSk z6BSJvz5ECLxe88XwnsPO7Mv3OLDz7RGHS8hDcK0d/4DkXwIrzRRZ/2j4RFP fdAxjg9aXCbrCWFTg4u2HY/5ELBEdIbmOMl/+Nca62d8yJcdnpFJ2GBlcPru Uj5MpJkviJyggePTqVz1jg9mGn4b+ISjKjff3PqJD+MvVuy3mKRBb+b90ZeN fLCK23YhlfCfY8PH1v7iwzrPjMRBwqHZu+ozu/kw5b27dvUU8XMqFS0Z5MMz GzXx04RbTcWyHgr40GAruTmWcECstZqqmACe6Av9XhPW7C64FSUrgDG9wYqf hL+tZQpnsASwbXE7NUTY79rpUzdVBZC+8/3xCcKLP1d8E1kggBHv+NIpwnVz 1Lf7rBBAtJyDmoCwl7NP7rCOADJaZ/v3EFYv/qJxRl8A43uqOXWEK6W0wrq2 C4Bn7H0ki7Dr/qBJWzMBZK1a+eU6YeVHHc5NlgJo4w3vMSf8ekC/Za8tYfkf DWzCjpvv7ag+KYBHrjzrT+T7qZChwu2uAnhxz5JzhXBxk+ki7CWAzYGU/1LC 9otTo9ZfFcCPt1vnVBF9ZT1ExXOCBFB+QKzMlnBO+eFzyyMEkFDv4tRP/DnE KGh7HCuAO9vTZrkRFrNhmM15JID5Oz5/7if+ZmQ4ldzNEICJQD7MjrCF4O0y Zp4AdvEC938g+Rg3nHs/uEQArxwc5y0nbNre4HGpRgDnX1ENn/kkD1qanbyv 5Ptv6BUqEY67FLjXtVUAyDf0kQXJY7+yvtYxWgCXDwdG544Sf3endBszhbDy ocsfySHib7yIVbmKEDLG7JkSpD5aew9VbJonhKM5F40EpJ60AhSSNdcIgdYx bqgk9VZX4nWYvV8ItSaqbuPdxB/ZhqrbR4SgLk2P5fwl/hxYuV7qhBC09K8H 25F6dh3+zRZ6CkHc4lxjEql35jKT2rZ7QtgdZala8JP0J6lEZmWSEPrOuGmh H0TvP0MWz9OEkBDpe7G8mQaHh7EtV4qEkBNeX5JF+k+Rcm+3xnchHD6qRa/4 TMNtnv4K2V9CYFgeqvH6RPz5En526K8QFsdEdJXU0DA9bAOvfEwI3KDWjys/ 0GAjFSTuoPQPOOd0XXLKaVjz54eh6dx/4JlOab8m/VD6zapgncX/oDYhcvW7 UuKn33eGpO4/aBnxHC4m/VSSt3hOiuU/kBos9THKoeG/znfru6P/QZHwuGJ/ Ig1Xy2f51sX/g89+mSKXSX+3THLBRU/+QY3shjUyD2gQsZ5pGJT/D8pPXHKd RubDvobj+5Z9/QcfB+SOPL5F+kGZhIszexySeOWhLh6k3yRufTQQMQ7vAuU2 bdlGw83Kup/+D8ahSNVjYRSZb+8GbZQVH5Pfb1+l3LqJhu0GF29vyB+HuVc7 ZlmR+bi1J/eCf+M4/LyenftzAan/NQtN2bMnICNoTHMzmber3kuN6j6ZgKsx HTkWJVw4OxCt9eHZBKDnN3qCC7mQqbLAybpgAt5aXd9dlMOFlc6o7cr7CZCR nZ/FTyPzneldVdUzAQW3t3cqRHNhweHe+MOak+CccdTx/mkuKNHVhpcLJ6Fc st13PsWFe+H4aA+ehNCrxko2clxQ1snx3Vc5CS9Tl9qHTSPsfTdncdMknO6o Uvgh7IdZ4vZz6oSTsFJLgq/Q0Q9zlMZG1TdPwWj78Nm+7H5YBBpPyt9OQYrX GPPSjn6IfV8sKu4ogg6zfy10t+PAwK/n3rSzCLJ/HpemSfZ/RsKUwRZXEXQi PfZghzkHRlZE/s7zEkEL1I7uWr+NA2YRp8tOBIogReekZ2ELOSB2ZPbVD6ki qLg+oH28uw9OD10SiegSQb6NIiJ1ZH+qp7ZlSt1BFNXdDDxYc6gXjK2/uNmf EkXf2950aZj3gsWDk12PnEXRIcEN0bNGvXBaJbRmkYcoavsX2zu0phdiFVse rAgQRZ+Kjn9/KNcL/Bke69eniSLfUsOohJIeyJtMO7ebI4puRhgGLlbqgeW/ GJ2XzouhQ7rDnWqFf+FZGnUq300cyfGkPrm2dYJv65GG5QES6Ofe40uvufyG c3rrTRKiJJFvnVHUGr8WECYa2PeFTUPNXaYPKzW/QJ1rrN2FZCmkJue9xO3L e9hgNG/y50Np9Pmb3IlJkedQtX1DGoqTQRvqbOZkhWTiJ9n3N7RnyKLPLHW9 JxcqseL8FU42T6cji8U5Cwz/NOB6UWl/lRI5JPEh8alOcwvOl3ZPqauagaK8 V+W/ifmNVygynOwr5NGKsEcHrF92YjqUx17zTQGtus3sWFT1F3MG5pSvbFZA holviqsa/uLevUZnl7QqoLf0vmcnWv/izpn3qtS6CI/f+R46/Bc3J2zwk+Yp oI0RppN31bqxvVXpMFeWgdSX2W+95dqNd50UPfJ2GQNti3do7GD24Pk3b2qd dWIg6SpL/4Ytvdjtm46fvTMDrSsQj325sxe/Xthevd+FgZa0njgXv68X27zV c9JzY6DwllZLs+O9OFZ06LGMDwOd7vtc5hDYiylf61mPgxjIyyzM0L6mF4ud 05ZsSmMgx6PjdeF7+7D569Z91ekMtDJI8c+zQ304SSEkGf/HQL4xel5v7Pvw 5swuSHnOQD+yJdktbn3Yp++Bj3sRAwX9ZXFeRvThoePTBmZUMlDdp+ILWz/3 4fZDLc1b/zKQ9vYtsy13cLCcvlWqXQ8DJbxq+aRnzsFr5za4+/UxEFdeIUb1 IAcHdnyQK6YZaJalm3nZKQ7Wci7erM1nIKfCaUbPbnKw76X7yXNlmCjdLtJE 8i0HKyZZOY0vY6K90iEaqev68Wb/hnWzVjJRycl6+RD9fnzKYbf4ei0mMlwS XH3KoB+XLDGKc1/DRHq9Sdkye/uxffa62t5NTPSmTru/27kfZ5Yrrm4yZSIN 9eSbqg/7sfGfBkG+CxN1zjfNNhDn4kvLQy9muTKRUUnU8EtpLs45ZzyR5sZE l8LVO5fLc7HqZIlInCcTvW8r+DCqzMXcmSlS/n5MNBmmE6StycVRxl6KZqFM VL9S+j8jKy7+lTFbu+sZE9UkKnD+POJixaFvOW1ZTLT6uWGgaxoX71wfrtOU zUSp579mDP/HxblvJddX5zNR5p/o6x35XBzwk7s55xUTLWeY2Di+J0dZhTJT vxomEuRWVcj1cLGX2/FTM/uZaF+yvW3GIhoHmnBPbqSZaEvVqmkRy2h8d8GF kzaDTHSSI/b6rCaNC74FnkgZZaLgPqNTjHU0Ht74n8O6SSbqcB917jKgsYv4 sJ2lAoVCHE2tO+1ofOnHRTsfJoUWjc3M2+RA45B8CbsEFoUM/x6VDz5J44yT M227lChE8bLfTXehcffHDUc81SnUb3JoxSMfGh+LunIwRptCDDmQ1IigsdsZ mYPFayjUc1dRpTuKxv6GEQda11Jo/8RFjZS7NE7iP7JatJFCkbnf5KTiadxq /X5/wVYKzQ9xXG+dSuP+tXv2NxtQKNF/b0vzUxqPyzdZTBpSaNPFj857/qOx alnvPkMTCp39lnBAPZvGBxbK7/22j0Ka7gVoXzGNT03GmAv3Uyg4hG8QVELj C41zzeccoNBSyXOrC0ppHBOkveeENYWWPw96N1JO44Z+CzOeA4UcZULKJT7S 2Kzgwc6ZnhTaqDp862wTud+w/ZSiF4W2yj3Yw2+m8bVVy/IUfSikN9qi7v2D xkXpRWqKfhRyM01vt2+j8bzErwOsAAotfOL++1snjfV+xD1hBRK9xOv4c7to bKXicIgVTCG7rePKR/8SvSOH3lChFHp5/4bbxx4a824q3GXGUIiFWf6IS2NG xTcT5j1y/ab7jTtoGi8XSxBhxhI/ah6vMRmgsZ3vCidGAoUeq+yeXDtEY58X w3MYSRTyMHR3njtM42hecYNCMmGnJb9ERmj8wXWHvkIKhRIcTjRmjNK48xlj SD6NQhZx1w958Gg81duYIp9O9A21aV83RmOd4ycY8pkUmm0eMPWQT/RJXlkx 4zl5vod3lImAxo5tI94zcihkJHRb2U844eC1DrkCCp181eSk/I/oE7PznlwR hYa3jMsnE25oYO6SK6YQO/9OwfxxGnMZTaJyJRRyKXA/Gk9Y2iypYHophdZ2 BikoTBA9b508Pf01hTa35L/2Iqxfqak+vZxC4ro/zzcTPiDJ+yL7lkKp4X+X 60yS/G19FST7jkIT10r/3CAccvn6ZtlKCkU82ZVM9ts4tcRkWOYDhf4L8T/K nKJxuYBKk6mm0N5a0/kmhH+sa7aWqaXQnsn4v76Eee4PmTJ1FNqQ5ZiZQpiZ feqddD2FzriRaUR4BVfrovQXCil9N97WTthw+ZiW9DcKrTm7izlC2O5UaafU dwqFVWT+JucPfPHJjftSzRSqPemUR84fOKbd1EzqB8nD78tB5PyBn89li0u1 kvosGbDrI/zBuqVw2i/yPP/XG78S/nM/2XlaO8lD8cjMQsIijY4a0zopVMWJ Gg0jPIut/U2yi1wfn/7NnrCOOT9YsptCt823FK8gvDsUg2Qvuf7WiSQu0cPp Y8CIBIfoU7s0KI3wdWmzpxJcCi2OjTt/iHDCdkUbiQEKMV3q7SUIv/D/QUkM Uehc5a99KUR/7riTrziPQqFifzfXE/8OHjBZKhij0Gl7kXgbwm9zl3/jCijU WFGyq4P4f9+Jo9U8QSGR+pjUr0IaS7yr/vFpiuRnzeiebYRdNJ4FVYiykIaM 166nJE8G3890PJdkIZ/3V5ANyV/WGrOwFCkWslhoqfuM5HPWHU39OBkWsmvn Xh0h+R3YTsfcnMFC01PVWM4k3w9yXXfaKBLOebVsapDG0xTMx/YpsdBBX+5b BmFXJ+3HO1RYaOynV94sUk+GGkMTOmos9OxiYJQSqb+hUPfs6QtZyLPA1zaf 1OeR3n02ootZ6D3XMiOom8aV23Wmjy1hoYTiGDNLUs/x4yMO7SvI9cKzcd9J /Rs7eSq/0GGhrBvyNldJf8itsKzIXMdC/Z23zyi30niOhq7b4/UsFOo18i2V 9JPhxrGPd/RYSH+ouSir6X/6e18+YcBChT0r3xxroLHMw4MrrA1ZqPujMOPV ZxqfH9/QZG7MQldEUwYV6mi8I1e4Wt+UhUxq10bHV9N4RN23i2XBQrNseMZH Kmhs62sdKWPJQnkeDgt83pB8NeqhKSui5x41uztlNE4Mnbjfe5iFdu02Fia/ ovHOcb9dZcdYaMmf7+9c8mn8sPFqnos7C8XMuqN9/xGNuypWtYV6sJAQFRRK PyT1kNcmk3WBhWaAwe6zCWQehenb0hdZ6AYnIF/jPo2rdwhkXK+z0AabBnfV UBrzX7ranosm9zfXdDzmSePN6XODw++ykFbNoWMG7qTf3qvNy75P/K1rvjjb lcbyHitkh+JZyCvo1PQcRxrP1+zOc0thoUt9pqVu1qQ/JdnKni9kIba4qLEJ onFUqPzaqBcs1GxWfzdBj8ZNvq9s816yUE3jccWe9TR2OKiaP4JZaCpzWsIx bRp7U422HpUsFLBaXZzWoPHj62b5nk0s1MWxZduJ0lh4St/O+x8L1dcER+S+ IPP95TLkMcFCb7LTryIyzx/MUFY/N8VCzmckOyqec7FezlDbKXE2avD7KlKc ysV+/1JtD0xnI84lzUqjaC4WD6VsdVXZ6FmWSYDQhYvlcv8eGd3IRmX/7V9Y MZuLrSW/6g/qsdG26jnJ9kpc/MyqXK1/MxvVUPxCPpOLzcbjfnZuZaPYiFV5 8lJcHLZ975EvO9koNcGD3T7Qj9nfS6xzD7FRd+XCtMVv+rHaRPjhcz6E/8aq rLcn+6P2XS/u+rJRe22ulsPhfnz+vYxSqR8bFQzUf7hp0Y8/hF+tl73GRvIN rHv5hv3Yc9G5HY9vsdHPa0XvMpb147rde3Qb49joqoS5vsQgB/sny7P0MRs1 FynuP3+Bg7uMbn2QllBE1rb9az6d7sP2JnbqC6cpois7fLSVjvXhn2ZrPbdI K6Jxwe9QK7Jf/bK/TcNHThF1aYm5lxn34fJja7z72IrojxJauHFhH46/3LK4 dqEiMh9xsSn70YstCpffiDRSRA/rDo+tN+zFbxZVw5xbiqjx2FsNe/Ee7CSd IqEhMxN5bpfdWWPbhQuTFui/CZ+JpF6tdCrR6MC1m/Qq9jKVUIBbccWbu22Y 7/Rgn12oEtIqtCh+H/kdV+5J3D9jpjKaaP3+Xj20Dttv0EtNjVJGcZ7WaWpx Zdixv2b0R4wyKpG001SzLMOuD20NqPvKqLrn42klRhm+LHPtt2+8MmJN22Q/ fu01jmuqUt2booyCz79dpNhYir95W4WNFyqjhu6ZntHuxXhnsZu3eYsyqndO mPErJRubu0hUBvxURhu/N7a0qWTjA/NiZpa0KaP51766N4c8xyeDX+Qu6lRG x/ypQ1f/ZOLrh0S4/zjK6L2P5kCGbzouFd62T5lURh5PoxdFPn2IKzLnZreI qCCe01lT9p0kXG2fPcUQV0EtYXnV6j0JuOXDl7iLUiros9H9+FG/WMyPVW3c w1BBv7clFm9LD8dTZs8WBlAqyGHRzk2M3lA8TRzOv2SroNXD9tF3Lgdj9ml7 5iIVFVT39e/JC+lXsercEdvDqipoAdU2r+KyD57XcCMzTE0FvUjxsI9MP4eX 3VSaqJirgtbHnblclH4Ua296avJPQwUt1L79v/+3Sv8Ph2LZdw== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, ImageSize->{143., Automatic}, PlotRange-> NCache[{{0, 2 Pi}, {-0.9999998592131705, 0.9999998782112116}}, {{ 0, 6.283185307179586}, {-0.9999998592131705, 0.9999998782112116}}], PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], "]"}]], "Input"], Cell[TextData[{ "Vzory mohou b\[YAcute]t sestaveny tak, aby odpov\[IAcute]daly libovoln\ \[EAcute] t\[RHacek]\[IAcute]d\[EHacek] v\[YAcute]raz\[URing]. Patterns can \ be constructed to match any class of expressions. V t\[EAcute]to \[CHacek]\ \[AAcute]sti pou\[ZHacek]ijeme funkci ", Cell[BoxData[ ButtonBox["Cases", BaseStyle->"Link", ButtonData->"paclet:ref/Cases"]], "InlineFormula"], ", kter\[AAcute] vrac\[IAcute] v\[SHacek]echny elementy ze seznamu, kter\ \[EAcute] odpov\[IAcute]daj\[IAcute] vzoru." }], "Text", CellChangeTimes->{{3.569843585453125*^9, 3.569843666234375*^9}}, CellTags->"Programming with Rules"], Cell[BoxData[ TagBox[GridBox[{ { StyleBox["Vzor", FontWeight->"Bold"], StyleBox[ RowBox[{"Odpov\[IAcute]daj\[IAcute]c\[IAcute]", " ", "vzor"}], FontWeight->"Bold"], StyleBox[ RowBox[{ StyleBox["\<\"\"\>", StripOnInput->False, FontWeight->"Bold"], "P\[RHacek]\[IAcute]klad"}], FontWeight->"Bold"]}, {"\<\"_\"\>", RowBox[{" ", RowBox[{ "libovoln\[YAcute]", " ", "vzor"}]}], "\<\"x, \\\"a string\\\", 45\"\>"}, {"\<\"_Real\"\>", RowBox[{" ", RowBox[{ "v\[YAcute]raz", " ", "s", " ", "head", " ", "Real"}]}], "\<\"1.3528\"\>"}, {"\<\"_?Negative\"\>", RowBox[{" ", RowBox[{"v\[YAcute]raz", ",", " ", RowBox[{ "kter\[YAcute]", " ", "vyhovuje", " ", "testu", " ", "na", " ", "z\[AAcute]porn\[EAcute]", " ", "\[CHacek]\[IAcute]slo"}]}]}], "\<\"-129\"\>"}, {"\<\"{p_,\[VeryThinSpace]\[VeryThinSpace]q_}\"\>", RowBox[{" ", RowBox[{ "seznam", " ", "dvou", " ", "v\[YAcute]raz\[URing]"}]}], "\<\"{Bob,-0.398}\"\>"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}}, GridBoxBackground->{"Columns" -> {{ RGBColor[1, 1, 0.85]}}}, GridBoxDividers->{ "ColumnsIndexed" -> {1 -> GrayLevel[0.5]}, "RowsIndexed" -> {2 -> GrayLevel[0.5], 3 -> { Thickness[Tiny], GrayLevel[0.85]}, 4 -> { Thickness[Tiny], GrayLevel[0.85]}, 5 -> { Thickness[Tiny], GrayLevel[0.85]}}}, GridBoxFrame->{"Columns" -> False, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{0.62}}}], "Grid"]], "DisplayFormula", CellChangeTimes->{{3.569843671984375*^9, 3.56984377953125*^9}, { 3.56984400740625*^9, 3.569844010875*^9}, {3.570785915140625*^9, 3.5707859233125*^9}, {3.570785991765625*^9, 3.570785992359375*^9}, { 3.570786046640625*^9, 3.57078604678125*^9}, {3.5707860778125*^9, 3.57078624484375*^9}}, ShowStringCharacters->False], Cell[BoxData[ RowBox[{"?", "Cases"}]], "Input", CellTags->"Programming with Rules"], Cell[TextData[{ "Vzor ", StyleBox["_", "MR"], " (podtr\[ZHacek]\[IAcute]tko) odpov\[IAcute]d\[AAcute] ", StyleBox["libovoln\[EAcute]mu", FontSlant->"Italic"], " v\[YAcute]razu." }], "Item", CellChangeTimes->{{3.569843790640625*^9, 3.56984381896875*^9}}, CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{"Cases", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", RowBox[{"g", "[", "z", "]"}], ",", "\[Pi]", ",", "3.4", ",", RowBox[{"-", "5"}], ",", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}]}], "}"}], ",", "_"}], "]"}]], "Input", CellTags->"Programming with Rules"], Cell[CellGroupData[{ Cell[TextData[{ "Vzory jmen symbol\[URing]: vzor ", StyleBox["x_", "MR"], " odpov\[IAcute]d\[AAcute] v\[YAcute]razu se jm\[EAcute]nem ", StyleBox["x", "MR"], ", tak\[ZHacek]e tento v\[YAcute]raz m\[URing]\[ZHacek]e b\[YAcute]t pou\ \[ZHacek]it kdekoliv v pravidle." }], "Item", CellChangeTimes->{{3.56984383065625*^9, 3.56984390340625*^9}}, CellTags->"Programming with Rules"], Cell[TextData[{ "Porovn\[AAcute]n\[IAcute] head: vzor ", StyleBox["_Real", "MR"], " odpov\[IAcute]d\[AAcute] jak\[EAcute]mukoliv \[CHacek]\[IAcute]slo s head ", Cell[BoxData[ ButtonBox["Real", BaseStyle->"Link", ButtonData->"paclet:ref/Real"]], "InlineFormula"], "." }], "Item", CellChangeTimes->{{3.56984391025*^9, 3.569843972890625*^9}}, CellTags->"Programming with Rules"] }, Open ]], Cell[BoxData[ RowBox[{"Cases", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", RowBox[{"g", "[", "z", "]"}], ",", "\[Pi]", ",", "3.4", ",", RowBox[{"-", "5"}], ",", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}]}], "}"}], ",", "_Real"}], "]"}]], "Input", CellTags->"Programming with Rules"], Cell[TextData[{ "Porovn\[AAcute]n\[IAcute] predik\[AAcute]ty: vzor ", Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{ StyleBox["x", "TI"], "_"}]], "/;", RowBox[{"Negative", "[", StyleBox["x", "TI"], "]"}]}]]], " odpov\[IAcute]d\[AAcute] jak\[EAcute]mukoliv z\[AAcute]porn\[EAcute]mu \ \[CHacek]\[IAcute]slu. M\[URing]\[ZHacek]e b\[YAcute]t \[CHacek]teno jako, \ \[OpenCurlyDoubleQuote]vzor pod jm\[EAcute]nem ", StyleBox["x", "IT"], " s podm\[IAcute]nkou, \[ZHacek]e ", StyleBox["x", "IT"], " vyhovuje testu ", Cell[BoxData[ ButtonBox["Negative", BaseStyle->"Link", ButtonData->"paclet:ref/Negative"]], "InlineFormula"], "\[CloseCurlyDoubleQuote]." }], "Item", CellChangeTimes->{{3.569843964984375*^9, 3.5698440646875*^9}}, CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{"Cases", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", RowBox[{"g", "[", "z", "]"}], ",", "\[Pi]", ",", "3.4", ",", RowBox[{"-", "5"}], ",", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}]}], "}"}], ",", RowBox[{"n_", "/;", RowBox[{"Negative", "[", "n", "]"}]}]}], "]"}]], "Input", CellTags->"Programming with Rules"], Cell["\<\ Pro tento konkr\[EAcute]tn\[IAcute] vzor je mo\[ZHacek]n\[EAcute] \ pou\[ZHacek]\[IAcute]t tak\[EAcute] zkr\[AAcute]cen\[YAcute] z\[AAcute]pis.\ \>", "Text", CellChangeTimes->{{3.56984407965625*^9, 3.569844118109375*^9}}], Cell[BoxData[ RowBox[{"Cases", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", RowBox[{"g", "[", "z", "]"}], ",", "\[Pi]", ",", "3.4", ",", RowBox[{"-", "5"}], ",", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}]}], "}"}], ",", RowBox[{"_", "?", "Negative"}]}], "]"}]], "Input", CellTags->"Programming with Rules"], Cell[TextData[{ "Porovn\[AAcute]n\[IAcute] p\[AAcute]ru: vzor ", Cell[BoxData[ RowBox[{"{", RowBox[{"p_", ",", "q_"}], "}"}]]], " odpov\[IAcute]d\[AAcute] libovoln\[EAcute]mu seznamu, kter\[YAcute] \ obsahuje dvojice v\[YAcute]raz\[URing]." }], "Item", CellChangeTimes->{{3.569844123421875*^9, 3.569844159609375*^9}}, CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{"Cases", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", RowBox[{"g", "[", "z", "]"}], ",", "\[Pi]", ",", "3.4", ",", RowBox[{"-", "5"}], ",", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"p_", ",", "q_"}], "}"}]}], "]"}]], "Input", CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"f", ",", "g"}], "]"}]], "Input"], Cell[" ", "Spacer"], Cell[TextData[{ "viz pr\[URing]vodce ", ButtonBox["Finding Expressions That Match a Pattern", BaseStyle->"Link", ButtonData->"paclet:tutorial/FindingExpressionsThatMatchAPattern"], " - detailn\[EHacek]j\[SHacek]\[IAcute] popis konstrukce vzor\[URing] \ constructions. " }], "Text", CellDingbat->"\[LightBulb]", CellChangeTimes->{{3.5698441736875*^9, 3.56984419828125*^9}}, CellTags->"Programming with Rules"], Cell[" ", "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Programov\[AAcute]n\[IAcute] s pravidly:", "Color7", FontSlant->"Plain"], StyleBox[" Pravidla a ", FontSlant->"Plain"], "v\[YAcute]b\[EHacek]r podle vzor\[URing] (pattern matching)" }], "Subsection", CellChangeTimes->{{3.569844214015625*^9, 3.56984424734375*^9}, { 3.569844693734375*^9, 3.569844694*^9}}, CellTags->"Programming with Rules"], Cell["\<\ Vzory je mo\[ZHacek]n\[EAcute] pou\[ZHacek]\[IAcute]t k nastaven\[IAcute] \ podm\[IAcute]nek, za kter\[YAcute]ch bude pravidlo pou\[ZHacek]ito. \ \[CapitalCHacek]asto jsou vzory pou\[ZHacek]ity pro kontrolu \ spr\[AAcute]vnosti argument\[URing] a\[THacek] u\[ZHacek] v pravidlech nebo \ ve funkc\[IAcute]ch. \ \>", "Text", CellChangeTimes->{{3.5698442535625*^9, 3.569844316765625*^9}}, CellTags->"Programming with Rules"], Cell[TextData[StyleBox["\t\tNejd\[RHacek]\[IAcute]ve se pod\[IAcute]vejme na \ d\[RHacek]\[IAcute]v\[EHacek]j\[SHacek]\[IAcute] \[RHacek]e\[SHacek]en\ \[IAcute] pomoc\[IAcute] procedur\[AAcute]ln\[IAcute]ho programov\[AAcute]n\ \[IAcute].", "Text"]], "MathCaption", CellChangeTimes->{{3.56984432840625*^9, 3.569844362265625*^9}, { 3.570787406734375*^9, 3.570787407109375*^9}}, CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "n_", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"IntegerQ", "[", "n", "]"}], "&&", RowBox[{"n", ">", "0"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"result", "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"result", "=", RowBox[{"result", "+", "k"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "result"}], ",", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"n", ",", " ", "\"\< is not a positive integer.\>\""}], "]"}]}], "\[IndentingNewLine]", "]"}]}]], "Input"], Cell[TextData[StyleBox["\t\tS pou\[ZHacek]it\[IAcute]m vzor\[URing] m\[URing]\ \[ZHacek]e b\[YAcute]t definice (p\[RHacek]i\[RHacek]azen\[IAcute]) \ vyhodnocena pouze, jestli\[ZHacek]e argument bude kladn\[EAcute] \[CHacek]\ \[IAcute]slo.", "Text"]], "MathCaption", CellChangeTimes->{{3.569844386171875*^9, 3.569844456265625*^9}, { 3.570787408859375*^9, 3.570787409390625*^9}}, CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{"Clear", "[", "f", "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", RowBox[{"n_Integer", "?", "Positive"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"result", "=", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"result", "=", RowBox[{"result", "+", "k"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "result"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellTags->"Programming with Rules"], Cell[TextData[{ StyleBox["\t\tN\[AAcute]sleduj\[IAcute]c\[IAcute] p\[RHacek]\[IAcute]kaz se \ vyhodnot\[IAcute] jak nerealizovan\[YAcute] a ", "Text"], StyleBox[Cell[BoxData[ RowBox[{"f", "[", "Pi", "]"}]], "Text"], "Text"], " ", StyleBox["pouze vyp\[IAcute]\[SHacek]e samo sebe proto\[ZHacek]e \ nen\[IAcute] definov\[AAcute]no p\[RHacek]i\[RHacek]azen\[IAcute] (funkce \ \[CHacek]i pravidlo), kter\[EAcute] je \t\t\tmo\[ZHacek]n\[EAcute] aplikovat \ na uveden\[YAcute] v\[YAcute]raz.", "Text"] }], "MathCaption", CellChangeTimes->{{3.569844482515625*^9, 3.56984460903125*^9}, { 3.57078741078125*^9, 3.5707874146875*^9}}, CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{"f", "[", "Pi", "]"}]], "Input", CellTags->"Programming with Rules"], Cell[TextData[StyleBox["\t\tArgument s hodnotou 100 je kladn\[YAcute] integer \ a proto je vr\[AAcute]cena suma v\[SHacek]ech men\[SHacek]\[IAcute]ch \ \[CHacek]\[IAcute]sel.", "Text"]], "MathCaption", CellChangeTimes->{{3.569844620140625*^9, 3.569844671234375*^9}, { 3.57078741646875*^9, 3.570787416921875*^9}}, CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{"f", "[", "100", "]"}]], "Input", CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{"?", "f"}]], "Input"], Cell["Clear[f]", "Input", CellTags->"Programming with Rules"], Cell[" ", "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Programov\[AAcute]n\[IAcute] s pravidly:", "Color7", FontSlant->"Plain"], StyleBox[" ", FontSlant->"Plain"], "P\[RHacek]\[IAcute]klady vzor\[URing]" }], "Subsection", CellChangeTimes->{{3.569844700859375*^9, 3.569844713453125*^9}}, CellTags->"Programming with Rules"], Cell["\<\ Jednim ze zp\[URing]sob\[URing] jak zjistit, kter\[YAcute] vzor \ odpov\[IAcute]d\[AAcute] po\[ZHacek]adovan\[EAcute]mu v\[YAcute]b\[EHacek]ru \ je pou\[ZHacek]it\[IAcute] vzoru v pravidle a aplikace tohoto pravidla. V t\ \[EAcute]to sekci nejd\[RHacek]\[IAcute]ve pou\[ZHacek]ijeme funkci Cases, \ kter\[AAcute] identifikuje prvky, odpov\[IAcute]daj\[IAcute]c\[IAcute] dan\ \[EAcute]mu vzoru.\ \>", "Text", CellChangeTimes->{{3.56984472440625*^9, 3.5698448180625*^9}}, CellTags->"Programming with Rules"], Cell[TextData[{ StyleBox["\t\tV tomto p\[RHacek]\[IAcute]klad\[EHacek] je ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["Cases", BaseStyle->"Link", ButtonData->"paclet:ref/Cases"]], "Text"], "Text"], " k", StyleBox[" v\[YAcute]b\[EAcute]ru v\[SHacek]e prvk\[URing] v seznamu, kter\ \[EAcute] odpov\[IAcute]daj\[IAcute] vzoru _Integer tj. vr\[AAcute]t\[IAcute] \ v\[SHacek]echny v\[YAcute]razy s head ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["Integer", BaseStyle->"Link", ButtonData->"paclet:ref/Integer"]], "Text"], "Text"], "." }], "MathCaption", CellChangeTimes->{{3.56984484453125*^9, 3.569844910375*^9}, { 3.570787425734375*^9, 3.57078742665625*^9}}, CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{"Cases", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "23"}], ",", RowBox[{"-", "3.5"}], ",", "4.1", ",", "7"}], "}"}], ",", "_Integer"}], "]"}]], "Input", CellTags->"Programming with Rules"], Cell[TextData[StyleBox["\t\tToto nahrad\[IAcute] v\[SHacek]echna integer \ \[CHacek]\[IAcute]sla v seznamu nulou.", "Text"]], "MathCaption", CellChangeTimes->{{3.56984492665625*^9, 3.569844958328125*^9}, { 3.57078742878125*^9, 3.57078742946875*^9}}, CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "23"}], ",", RowBox[{"-", "3.5"}], ",", "4.1", ",", "7"}], "}"}], "/.", "\[InvisibleSpace]", RowBox[{"_Integer", "\[Rule]", "0"}]}]], "Input", CellTags->"Programming with Rules"], Cell[TextData[{ StyleBox["\t\tV tomto p\[RHacek]\[IAcute]pad\[EHacek] \ nejd\[RHacek]\[IAcute]ve identifikujeme v\[SHacek]echny prvky v seznamu, kter\ \[EAcute] spln\[IAcute] test ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["Negative", BaseStyle->"Link", ButtonData->"paclet:ref/Negative"]], "Text"], "Text"], " .", StyleBox["tj. z\[AAcute]porn\[AAcute] \[CAcute]\[IAcute]sla", "Text"] }], "MathCaption", CellChangeTimes->{{3.569844974546875*^9, 3.5698450299375*^9}, { 3.570787432671875*^9, 3.570787433078125*^9}}, CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{"Cases", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "23"}], ",", RowBox[{"-", "3.5"}], ",", "4.1", ",", "7"}], "}"}], ",", RowBox[{"_", "?", "Negative"}]}], "]"}]], "Input", CellTags->"Programming with Rules"], Cell[TextData[StyleBox["\t\ta potom je touto substituc\[IAcute] nahrad\ \[IAcute]me nulou.", "Text"]], "MathCaption", CellChangeTimes->{{3.569845052140625*^9, 3.569845070765625*^9}, { 3.57078743446875*^9, 3.570787434875*^9}}, CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "23"}], ",", RowBox[{"-", "3.5"}], ",", "4.1", ",", "7"}], "}"}], "/.", "\[InvisibleSpace]", RowBox[{ RowBox[{"_", "?", "Negative"}], "\[Rule]", "0"}]}]], "Input", CellTags->"Programming with Rules"], Cell[TextData[StyleBox["\t\tV tomto p\[RHacek]\[IAcute]klad\[EHacek] jsou v\ \[YAcute]stupem v\[SHacek]echny v\[YAcute]razy v seznamu, kter\[EAcute] maj\ \[IAcute] strukturu seznamu o dvou prvc\[IAcute]ch.", "Text"]], "MathCaption", CellChangeTimes->{{3.569845088765625*^9, 3.5698451365*^9}, { 3.5707874361875*^9, 3.570787436578125*^9}}, CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{"Cases", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"p_", ",", "q_"}], "}"}]}], "]"}]], "Input", CellTags->"Programming with Rules"], Cell[TextData[StyleBox["\t\tTato substituce oto\[CHacek]\[IAcute] \ po\[RHacek]ad\[IAcute] ve v\[SHacek]ech elementech seznamu, kter\[EAcute] \ jsou seznamem o dvou prvc\[IAcute]ch.", "Text"]], "MathCaption", CellChangeTimes->{{3.56984514903125*^9, 3.56984519590625*^9}, { 3.5707874386875*^9, 3.570787439078125*^9}}, CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6"}], "}"}]}], "}"}], "/.", "\[InvisibleSpace]", RowBox[{ RowBox[{"{", RowBox[{"p_", ",", "q_"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"q", ",", "p"}], "}"}]}]}]], "Input", CellTags->"Programming with Rules"], Cell["\<\ Co by se stalo, pokud by seznam nalevo byl pouze seznamem dvou \[CHacek]\ \[IAcute]seln\[YAcute]ch prvk\[URing] ?\ \>", "Text", CellChangeTimes->{{3.569845209796875*^9, 3.569845252015625*^9}}, CellTags->"Programming with Rules"], Cell[" ", "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Programov\[AAcute]n\[IAcute] s pravidly:", "Color7", FontSlant->"Plain"], StyleBox[" ", FontSlant->"Plain"], "Podm\[IAcute]nky ve vzoru" }], "Subsection", CellChangeTimes->{{3.569845261625*^9, 3.569845275296875*^9}}, CellTags->"Programming with Rules"], Cell["\<\ Do vzor\[URing] je mo\[ZHacek]n\[EAcute] p\[RHacek]idat podm\[IAcute]nky tak, \ \[ZHacek]e v\[YAcute]b\[EHacek]r odpov\[IAcute]d\[AAcute] vzoru pouze, kdy\ \[ZHacek] je podm\[IAcute]nka spln\[EHacek]na.\ \>", "Text", CellChangeTimes->{{3.569845282*^9, 3.569845333625*^9}}, CellTags->"Programming with Rules"], Cell[TextData[StyleBox["\t\tTomuto vzoru odpov\[IAcute]d\[AAcute] pouze \ arguent, kter\[YAcute] je z\[AAcute]porn\[YAcute].", "Text"]], "MathCaption", CellChangeTimes->{{3.569845412046875*^9, 3.56984545309375*^9}, { 3.570787447171875*^9, 3.570787447515625*^9}}, CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", "/;", RowBox[{"x", "<", "0"}]}], "]"}], ":=", SuperscriptBox["x", "2"]}]], "Input", CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{"f", "[", "5", "]"}]], "Input", CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{"f", "[", RowBox[{"-", "5"}], "]"}]], "Input", CellTags->"Programming with Rules"], Cell[TextData[{ StyleBox["\t\tPodm\[IAcute]nky jsou u\[ZHacek]ite\[CHacek]n\[EAcute], kdy\ \[ZHacek] ur\[CHacek]ujeme krit\[EAcute]ria pro funkci jakou je ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["Cases", BaseStyle->"Link", ButtonData->"paclet:ref/Cases"]], "Text"], "Text"], ". ", StyleBox["N\[AAcute]sleduj\[IAcute] um\[EHacek]l\[AAcute] dat \[LongDash] \ seznam 25 n\[AAcute]hodn\[YAcute]ch integer \[CHacek]\[IAcute]sel mezi ", "Text"], StyleBox[Cell[BoxData[ FormBox[ RowBox[{"-", "10"}], TraditionalForm]], "Text"], "Text"], " ", StyleBox["a 10.", "Text"] }], "MathCaption", CellChangeTimes->{{3.569845481984375*^9, 3.569845546453125*^9}, { 3.570787448765625*^9, 3.570787449125*^9}}, CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{"data", "=", RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", "25"}], "]"}]}]], "Input", CellTags->"Programming with Rules"], Cell[TextData[{ StyleBox["\t\tToto vrac\[IAcute] v\[SHacek]echny prvky seznamu, \ kter\[EAcute] le\[ZHacek]\[IAcute] mezi ", "Text"], StyleBox[Cell[BoxData[ FormBox[ RowBox[{"-", "3"}], TraditionalForm]], "Text"], "Text"], " ", StyleBox["a 3", "Text"], "." }], "MathCaption", CellChangeTimes->{{3.569845554328125*^9, 3.56984558425*^9}, { 3.570787450625*^9, 3.5707874509375*^9}}, CellTags->"Programming with Rules"], Cell[BoxData[ RowBox[{"Cases", "[", RowBox[{"data", ",", RowBox[{"p_", "/;", RowBox[{ RowBox[{"-", "3"}], "\[LessEqual]", "p", "\[LessEqual]", "3"}]}]}], "]"}]], "Input", CellTags->"Programming with Rules"], Cell[TextData[StyleBox["\t\tTento p\[RHacek]\[IAcute]kaz vrac\[IAcute] \ seznam, ze kter\[EAcute]ho jsme odstranili v\[SHacek]echny prvky mezi -3 a 3. \ Obsah prom\[EHacek]nn\[EAcute] data se nem\[EHacek]n\[IAcute].", "Text"]], \ "MathCaption", CellChangeTimes->{{3.569845588671875*^9, 3.569845646609375*^9}, { 3.5707874521875*^9, 3.570787452515625*^9}}], Cell[BoxData[ RowBox[{"DeleteCases", "[", RowBox[{"data", ",", RowBox[{"p_", "/;", RowBox[{ RowBox[{"-", "3"}], "\[LessEqual]", "p", "\[LessEqual]", "3"}]}]}], "]"}]], "Input", CellTags->"Programming with Rules"], Cell[TextData[{ StyleBox["\t\tOstatn\[IAcute] podobn\[EAcute] funkce \ pou\[ZHacek]\[IAcute]vaj\[IAcute] stejnou syntaxi jako ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["Cases", BaseStyle->"Link", ButtonData->"paclet:ref/Cases"]], "Text"], "Text"], ",. ", StyleBox["Prvn\[IAcute] vrac\[IAcute] po\[RHacek]et prvk\[URing], kter\ \[EAcute] spl\[NHacek]uj\[IAcute] podm\[IAcute]nku a druh\[AAcute] \ vr\[AAcute]t\[IAcute] pozici prvk\[URing], kter\[EAcute] \t\t\t\ podm\[IAcute]nku spl\[NHacek]uj\[IAcute]. ", "Text"] }], "MathCaption", CellChangeTimes->{{3.569845667328125*^9, 3.569845740625*^9}, { 3.57078745371875*^9, 3.57078745659375*^9}}], Cell[BoxData[ RowBox[{"Count", "[", RowBox[{"data", ",", RowBox[{"p_", "/;", RowBox[{ RowBox[{"-", "3"}], "\[LessEqual]", "p", "\[LessEqual]", "3"}]}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Position", "[", RowBox[{"data", ",", RowBox[{"p_", "/;", RowBox[{ RowBox[{"-", "3"}], "\[LessEqual]", "p", "\[LessEqual]", "3"}]}]}], "]"}]], "Input"], Cell[TextData[StyleBox["\t\tFunkce Extract odstran\[IAcute] v\[SHacek]echny \ prvky z data, kter\[EAcute] le\[ZHacek]\[IAcute] na dan\[YAcute]ch pozic\ \[IAcute]ch. Je to podobn\[EAcute] jako DeleteCases.\n", "Text"]], \ "MathCaption", CellChangeTimes->{{3.569845756890625*^9, 3.56984581434375*^9}, { 3.5698459198125*^9, 3.569845921328125*^9}, {3.57078746121875*^9, 3.570787461578125*^9}}], Cell[BoxData[ RowBox[{"Extract", "[", RowBox[{"data", ",", RowBox[{"Position", "[", RowBox[{"data", ",", RowBox[{"p_", "/;", RowBox[{ RowBox[{"-", "3"}], "\[LessEqual]", "p", "\[LessEqual]", "3"}]}]}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"f", ",", "data"}], "]"}]], "Input", CellTags->"Programming with Rules"], Cell[" ", "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Srovn\[AAcute]n\[IAcute] programovac\[IAcute]ch styl\[URing]", "Section", CellChangeTimes->{{3.569845950671875*^9, 3.569845961609375*^9}}, CellTags->"Comparing Programming Styles"], Cell[TextData[StyleBox["\tObsah", "Subsection"]], "OverviewSubsection", CellChangeTimes->{3.5698459456875*^9, {3.570787469609375*^9, 3.570787475*^9}}, CellTags->"Comparing Programming Styles"], Cell["\<\ Tato \[CHacek]\[AAcute]st srovn\[AAcute]v\[AAcute] v\[SHacek]echny 3 \ programovac\[IAcute] styly - procedur\[AAcute]ln\[IAcute] programov\[AAcute]n\ \[IAcute], funkcion\[AAcute]ln\[IAcute] programov\[AAcute]n\[IAcute] a \ programov\[AAcute]n\[IAcute] s pravidly. Srovn\[AAcute]n\[IAcute] je \ provedeno uk\[AAcute]zkou \[RHacek]e\[SHacek]en\[IAcute] jednoho konkr\ \[EAcute]tn\[IAcute]ho p\[RHacek]\[IAcute]kladu v\[SHacek]emi 3 metodami.\ \>", "Text", CellChangeTimes->{{3.569845964109375*^9, 3.5698460444375*^9}}, CellTags->"Comparing Programming Styles"], Cell[" ", "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Srovn\[AAcute]n\[IAcute] programovac\[IAcute]ch styl\ \[URing]", "Color7", FontSlant->"Plain"]], "Subsection", CellChangeTimes->{{3.56984605221875*^9, 3.5698460653125*^9}}, CellTags->"Comparing Programming Styles"], Cell["\<\ Netrivi\[AAcute]ln\[IAcute] programy u\[ZHacek]\[IAcute]vaj\[IAcute] v\ \[SHacek]echny styly a kombinuj\[IAcute] je. Nelze \[RHacek]\[IAcute]ci, \ \[ZHacek]e jeden styl je lep\[SHacek]\[IAcute] ne\[ZHacek] druh\[YAcute]. M\ \[EHacek]li by jste si vybrat sv\[URing]j styl, kter\[YAcute] V\[AAcute]m \ nejl\[EAcute]pe vyhovuje a kter\[YAcute] je vhodn\[YAcute] na to, co chcete d\ \[EHacek]lat. Prvn\[IAcute]m krokem ke spr\[AAcute]vn\[EAcute] volb\[EHacek] \ je srovn\[AAcute]n\[IAcute] styl\[URing] na p\[RHacek]\[IAcute]kladech.\ \>", "Text", CellChangeTimes->{{3.56984609278125*^9, 3.5698462816875*^9}}, CellTags->"Comparing Programming Styles"], Cell["\<\ Srovn\[AAcute]n\[IAcute] si uk\[AAcute]\[ZHacek]eme na jednoduch\[EAcute]m p\ \[RHacek]\[IAcute]kladu. M\[AAcute]me d\[AAcute]n seznam dvojic \[CHacek]\ \[IAcute]sel a m\[EAcute]li bychom vr\[AAcute]tit seznam \ sou\[CHacek]t\[URing] jednotliv\[YAcute]ch p\[AAcute]r\[URing]..\ \>", "Text", CellChangeTimes->{{3.569846292640625*^9, 3.569846346265625*^9}}, CellTags->"Comparing Programming Styles"], Cell[TextData[StyleBox["\t\tProm\[EHacek]n\[AAcute] p\[AAcute]irs obsahuje \ seznam p\[AAcute]r\[URing] \[CHacek]\[IAcute]sel.", "Text"]], "MathCaption", CellChangeTimes->{{3.569846361953125*^9, 3.569846375359375*^9}, 3.56984646321875*^9, {3.570787489390625*^9, 3.570787489734375*^9}}, CellTags->"Comparing Programming Styles"], Cell[BoxData[ RowBox[{ RowBox[{"pairs", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"58", ",", "96"}], "}"}], ",", RowBox[{"{", RowBox[{"85", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"100", ",", "69"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "37"}], "}"}], ",", RowBox[{"{", RowBox[{"32", ",", "64"}], "}"}], ",", RowBox[{"{", RowBox[{"41", ",", "86"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"79", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5"}], "}"}]}], "}"}]}], ";"}]], "Input", CellTags->"Comparing Programming Styles"], Cell[TextData[StyleBox["\t\tProcedur\[AAcute]ln\[IAcute] \ p\[RHacek]\[IAcute]stup je podobn\[YAcute] tomu, co bychom vytv\[AAcute]\ \[RHacek]eli v klasick\[YAcute]ch prg. jaztyc\[IAcute]ch C nebo Fortran. \ Vytvo\[RHacek]\[IAcute]me pr\[AAcute]zdn\[EAcute] pole result stejn\[EAcute] \ velikosti \t\t\tjako je prom\[EHacek]n\[AAcute] pairs. Potom \ nahrad\[IAcute]me ka\[ZHacek]d\[YAcute] prvek v result sou\[CHacek]tem prvn\ \[IAcute]ho a druh\[EAcute]ho (posledn\[IAcute]ho) prvku v ka\[ZHacek]d\ \[EAcute]m p\[AAcute]ru. Na konec vr\[AAcute]t\[IAcute]me \t\t\t\ prom\[EHacek]nou result. ", "Text"]], "MathCaption", CellChangeTimes->{{3.569846384984375*^9, 3.56984655928125*^9}, { 3.570787491*^9, 3.57078749590625*^9}}, CellTags->"Comparing Programming Styles"], Cell[BoxData[{ RowBox[{ RowBox[{"result", "=", RowBox[{"Table", "[", RowBox[{"Null", ",", RowBox[{"{", RowBox[{"Length", "[", "pairs", "]"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"result", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{ RowBox[{"First", "[", RowBox[{"pairs", "[", RowBox[{"[", "k", "]"}], "]"}], "]"}], "+", RowBox[{"Last", "[", RowBox[{"pairs", "[", RowBox[{"[", "k", "]"}], "]"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"Length", "[", "pairs", "]"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", "result"}], "Input", CellTags->"Comparing Programming Styles"], Cell[TextData[{ StyleBox["\t\tMo\[ZHacek]n\[EAcute] je pou\[ZHacek]\[IAcute]t strukturovanou \ proceduru, kter\[AAcute] pracuje s funkc\[IAcute] ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["Table", BaseStyle->"Link", ButtonData->"paclet:ref/Table"]], "Text"], "Text"], "." }], "MathCaption", CellChangeTimes->{{3.5698466043125*^9, 3.569846635046875*^9}, { 3.570787497390625*^9, 3.57078749775*^9}}, CellTags->"Comparing Programming Styles"], Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"pairs", "[", RowBox[{"[", RowBox[{"k", ",", "1"}], "]"}], "]"}], "+", RowBox[{"pairs", "[", RowBox[{"[", RowBox[{"k", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"Length", "[", "pairs", "]"}]}], "}"}]}], "]"}]], "Input", CellTags->"Comparing Programming Styles"], Cell[TextData[StyleBox["\t\tStejn\[YAcute] p\[RHacek]\[IAcute]klad, \ \[RHacek]e\[SHacek]en\[YAcute] pomoc\[IAcute] funkcion\[AAcute]ln\[IAcute]ho \ p\[RHacek]\[IAcute]stupu.", "Text"]], "MathCaption", CellChangeTimes->{{3.569846647359375*^9, 3.5698466858125*^9}, { 3.57078750015625*^9, 3.570787500546875*^9}}, CellTags->"Comparing Programming Styles"], Cell[BoxData[ RowBox[{"Map", "[", RowBox[{"Total", ",", "pairs"}], "]"}]], "Input", CellTags->"Comparing Programming Styles"], Cell[TextData[{ StyleBox["\t\tMo\[ZHacek]n\[EAcute] je nahl\[EAcute]dnout na pairs jako \ matici, transponovat ji tj. vym\[EHacek]nit \[RHacek]\[AAcute]dky za sloupce \ a pot\[EAcute] pomoc\[IAcute] Total vr\[AAcute]tit sou\[CHacek]ty sloupc\ \[URing].", "Text"], StyleBox["\[LineSeparator]", "Input"] }], "MathCaption", CellChangeTimes->{{3.56984671040625*^9, 3.5698467906875*^9}, { 3.569846860765625*^9, 3.569846889125*^9}, {3.570787502375*^9, 3.57078750271875*^9}}, CellTags->"Comparing Programming Styles"], Cell[BoxData[ RowBox[{"Total", "[", RowBox[{"Transpose", "[", "pairs", "]"}], "]"}]], "Input", CellTags->"Comparing Programming Styles"], Cell[TextData[StyleBox["\t\tPosledn\[IAcute] uk\[AAcute]zka je \[RHacek]e\ \[SHacek]en\[IAcute] pomoc\[IAcute] p\[RHacek]\[IAcute]stupu programov\ \[AAcute]n\[IAcute] s pr\[AAcute]vidly. Vzoru odpov\[IAcute]d\[AAcute] jak\ \[YAcute]koliv seznam o dvou prvc\[IAcute]ch ze seznamu pairs. Tyto \t\t\t\t\ dvojprvkov\[EAcute] seznamy jsou nahrazeny sou\[CHacek]tem prvk\[URing] v p\ \[AAcute]ru.", "Text"]], "MathCaption", CellChangeTimes->{{3.569846951953125*^9, 3.5698470680625*^9}, { 3.570787507765625*^9, 3.570787510375*^9}}, CellTags->"Comparing Programming Styles"], Cell[BoxData[ RowBox[{"pairs", "/.", RowBox[{ RowBox[{"{", RowBox[{"p_", ",", "q_"}], "}"}], "\[Rule]", RowBox[{"p", "+", "q"}]}]}]], "Input", CellTags->"Comparing Programming Styles"], Cell[" ", "Spacer"], Cell[BoxData[ RowBox[{"Clear", "[", "pairs", "]"}]], "Input", CellChangeTimes->{{3.569846916390625*^9, 3.56984692525*^9}}], Cell["", "Text", CellChangeTimes->{{3.569846908640625*^9, 3.56984690921875*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Aplikace: Vy\[CHacek]i\[SHacek]t\[EHacek]n\[IAcute] dat", "Section", CellChangeTimes->{{3.569847080015625*^9, 3.56984709225*^9}}, CellTags->"Application"], Cell["\<\ V n\[AAcute]sleduj\[IAcute]c\[IAcute] netrivi\[AAcute]ln\[IAcute] aplikaci \ zkombinujeme n\[EHacek]kolik n\[AAcute]stroj\[URing], se kter\[YAcute]mi jsme \ pracovali v t\[EAcute]to kapitole. Vstupn\[IAcute] data obsahuj\[IAcute] n\ \[EHacek]kter\[EAcute] nenumerick\[EAcute] hodnoty. Prvn\[IAcute]m p\[RHacek]\ \[IAcute]kazem napln\[IAcute]me p\[EHacek]ticemi t\[EHacek]mito dat prom\ \[EHacek]nou mat. \ \>", "Text", CellChangeTimes->{{3.569847098046875*^9, 3.569847204859375*^9}, { 3.569847282359375*^9, 3.5698473341875*^9}}, CellTags->"Application"], Cell[BoxData[{ RowBox[{ RowBox[{"mat", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.796495", ",", "\"\\"", ",", "0.070125", ",", RowBox[{"-", "0.323573"}], ",", "0.806554"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"-", "0.100365"}], ",", "0.992736", ",", RowBox[{"-", "0.320560"}], ",", RowBox[{"-", "0.0805351"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.473571", ",", "0.460741", ",", "0.030060", ",", RowBox[{"-", "0.412400"}], ",", "0.788522"}], "}"}], ",", RowBox[{"{", RowBox[{"0.614974", ",", RowBox[{"-", "0.503201"}], ",", "0.615744", ",", "0.966053", ",", RowBox[{"-", "0.011776"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.828415"}], ",", "0.035514", ",", "0.8911617", ",", "\"\\"", ",", RowBox[{"-", "0.453926"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "mat", "]"}]}], "Input", CellTags->"Application"], Cell[TextData[{ "P\[RHacek]edpokl\[AAcute]d\[AAcute]me, \[ZHacek]e pro dal\[SHacek]\[IAcute] \ zpracov\[AAcute]n\[IAcute] pot\[RHacek]ebujeme tuto matici 5x5 v\[EHacek]t\ \[SHacek]inou \[CHacek]\[IAcute]seln\[YAcute]ch hodnot m\[IAcute]t napln\ \[EHacek]nu pouze \[CHacek]\[IAcute]sly. Jak tedy nalo\[ZHacek]it s hodnotami \ ", Cell[BoxData["\"\\""]], " ? V n\[AAcute]sleduj\[IAcute]c\[IAcute]m postupu nahrad\[IAcute]me ka\ \[ZHacek]d\[EAcute] ", Cell[BoxData["\"\\""]], " pr\[URing]m\[EHacek]rem z hodnot dan\[EAcute]ho sloupce. " }], "Text", CellChangeTimes->{{3.569847345046875*^9, 3.569847500484375*^9}}, CellTags->"Application"], Cell[TextData[StyleBox["\t\tNejd\[RHacek]\[IAcute]ve zkus\[IAcute]me postup \ na prvn\[IAcute]m sloupci matice a pot\[EAcute] \ roz\[SHacek]\[IAcute]\[RHacek]\[IAcute]me ozkou\[SHacek]en\[YAcute] postup na \ ostatn\[IAcute]ch sloupc\[IAcute]ch matice.", "Text"]], "MathCaption", CellChangeTimes->{{3.5698475213125*^9, 3.5698475661875*^9}, { 3.570787515375*^9, 3.570787515828125*^9}}, CellTags->"Application"], Cell[BoxData[{ RowBox[{ RowBox[{"col1", "=", RowBox[{"mat", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "col1", "]"}]}], "Input", CellTags->"Application"], Cell[TextData[StyleBox["\t\tP\[RHacek]\[IAcute]kaz vrac\[IAcute] pouze \ \[CHacek]\[IAcute]seln\[EAcute] hodnoty z prvn\[IAcute]ho sloupce.", \ "Text"]], "MathCaption", CellChangeTimes->{{3.569847579953125*^9, 3.56984760046875*^9}, { 3.57078751775*^9, 3.570787518078125*^9}}, CellTags->"Application"], Cell[BoxData[ RowBox[{"Cases", "[", RowBox[{"col1", ",", RowBox[{"_", "?", "NumberQ"}]}], "]"}]], "Input", CellTags->"Application"], Cell[TextData[StyleBox["\t\tTento p\[RHacek]\[IAcute]kaz z p\[RHacek]edchoz\ \[IAcute]ho v\[YAcute]sledku ur\[CHacek]\[IAcute] pr\[URing]m\[EHacek]r.", \ "Text"]], "MathCaption", CellChangeTimes->{{3.56984761059375*^9, 3.56984763865625*^9}, { 3.570787519515625*^9, 3.57078751984375*^9}}, CellTags->"Application"], Cell[BoxData[ RowBox[{"Mean", "[", RowBox[{"Cases", "[", RowBox[{"col1", ",", RowBox[{"_", "?", "NumberQ"}]}], "]"}], "]"}]], "Input", CellTags->"Application"], Cell[TextData[StyleBox["\t\tP\[RHacek]\[IAcute]kaz nahrad\[IAcute] \ v\[SHacek]echny hodnoty \[OpenCurlyDoubleQuote]N/A\[CloseCurlyDoubleQuote] v \ prvn\[IAcute]m sloupci vypo\[CHacek]ten\[YAcute]m pr\[URing]m\[EHacek]rem.", \ "Text"]], "MathCaption", CellChangeTimes->{{3.569847654140625*^9, 3.569847685625*^9}, { 3.570787521234375*^9, 3.5707875215625*^9}}, CellTags->"Application"], Cell[BoxData[ RowBox[{ RowBox[{"col1", "/.", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Mean", "[", RowBox[{"Cases", "[", RowBox[{"col1", ",", RowBox[{"_", "?", "NumberQ"}]}], "]"}], "]"}]}]}], "//", "MatrixForm"}]], "Input", CellTags->"Application"], Cell[TextData[{ StyleBox["\t\tDefinujeme funkci, kter\[AAcute] podle hodnoty \ vstupn\[IAcute]ho argumentu \[CHacek]\[IAcute]sla sloupce nahrad\[IAcute] v \ tomto sloupci hodnoty \[OpenCurlyDoubleQuote]N/A\[CloseCurlyDoubleQuote] pr\ \[URing]m\[EHacek]rem z ostatnich \[CHacek]\[IAcute]seln\[YAcute]ch \t\t\t\ hodnot ve sloupci. Pou\[ZHacek]ili jsme odlad\[EHacek]n\[YAcute] postup z p\ \[RHacek]edchoz\[IAcute]ch test\[URing].", "Text"], "." }], "MathCaption", CellChangeTimes->{{3.5698476975625*^9, 3.56984781953125*^9}, { 3.5707875268125*^9, 3.570787529*^9}}, CellTags->"Application"], Cell[BoxData[ RowBox[{ RowBox[{"fixcolumn", "[", "col_", "]"}], ":=", RowBox[{ RowBox[{"mat", "[", RowBox[{"[", RowBox[{"All", ",", "col"}], "]"}], "]"}], "/.", RowBox[{"\"\\"", "\[RuleDelayed]", RowBox[{"Mean", "[", RowBox[{"Cases", "[", RowBox[{ RowBox[{"mat", "[", RowBox[{"[", RowBox[{"All", ",", "col"}], "]"}], "]"}], ",", RowBox[{"_", "?", "NumberQ"}]}], "]"}], "]"}]}]}]}]], "Input", CellTags->"Application"], Cell[TextData[StyleBox["\t\tOtestujeme pou\[ZHacek]it\[IAcute] nov\[EHacek] \ definovan\[EAcute] funkce na prvn\[IAcute]m sloupci matice", "Text"]], \ "MathCaption", CellChangeTimes->{{3.5698478310625*^9, 3.5698478484375*^9}, { 3.570787530265625*^9, 3.5707875305625*^9}}, CellTags->"Application"], Cell[BoxData[ RowBox[{"fixcolumn", "[", "1", "]"}]], "Input", CellTags->"Application"], Cell[TextData[StyleBox["\t\tMapujeme pou\[ZHacek]itou funkci na seznam prvnk\ \[URing] od 1 do velikosti matice, kter\[YAcute] byl vytvo\[RHacek]en funkc\ \[IAcute] Range.\[LineSeparator]", "Text"]], "MathCaption", CellChangeTimes->{{3.569847866203125*^9, 3.569847906609375*^9}, { 3.570787531671875*^9, 3.570787531953125*^9}}, CellTags->"Application"], Cell[BoxData[ RowBox[{"Length", "[", "mat", "]"}]], "Input", CellChangeTimes->{{3.56984793775*^9, 3.569847943359375*^9}}], Cell[BoxData[ RowBox[{"Range", "[", RowBox[{"Length", "[", "mat", "]"}], "]"}]], "Input", CellChangeTimes->{{3.56984791771875*^9, 3.56984795603125*^9}}], Cell[BoxData[ RowBox[{"Map", "[", RowBox[{"fixcolumn", ",", RowBox[{"Range", "[", RowBox[{"Length", "[", "mat", "]"}], "]"}]}], "]"}]], "Input", CellTags->"Application"], Cell[TextData[StyleBox["\t\tV\[YAcute]sledek p\[RHacek]edchoz\[IAcute]ho v\ \[YAcute]po\[CHacek]tu je seznam sloupcov\[YAcute]ch vektor\[URing], tak\ \[ZHacek]e obdr\[ZHacek]\[IAcute]me transponovanou matici. Abychom dostali \ matici odpov\[IAcute]daj\[IAcute]c\[IAcute] p\[URing]vodn\[IAcute]m \t\tdat\ \[URing]m, mus\[IAcute]me v\[YAcute]sledek transponovat tj. zam\[EHacek]nit \ sloupce za \[RHacek]\[AAcute]dky a naopak.", "Text"]], "MathCaption", CellChangeTimes->{{3.569847985046875*^9, 3.569848004453125*^9}, { 3.569848087*^9, 3.569848156703125*^9}, {3.570787540296875*^9, 3.5707875429375*^9}}, CellTags->"Application"], Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"Transpose", "[", "%", "]"}], "]"}]], "Input", CellTags->"Application"], Cell[TextData[StyleBox["\t\tPopsan\[YAcute] a odlad\[EHacek]n\[YAcute] postup \ vlo\[ZHacek]\[IAcute]me do nov\[EHacek] vytvo\[RHacek]en\[EAcute] funkce \ FixMatrix, jej\[IAcute]\[ZHacek] vstupn\[IAcute]m argumentem je matice, \ kterou chceme zpracovat.", "Text"]], "MathCaption", CellChangeTimes->{{3.56984817575*^9, 3.569848270140625*^9}, {3.570787557*^9, 3.570787557296875*^9}}, CellTags->"Application"], Cell[BoxData[ RowBox[{ RowBox[{"FixMatrix", "[", "mat_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "fixcolumn", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fixcolumn", "[", "col_", "]"}], ":=", RowBox[{ RowBox[{"mat", "[", RowBox[{"[", RowBox[{"All", ",", "col"}], "]"}], "]"}], "/.", RowBox[{"\"\\"", "\[RuleDelayed]", RowBox[{"Mean", "[", RowBox[{"Cases", "[", RowBox[{ RowBox[{"mat", "[", RowBox[{"[", RowBox[{"All", ",", "col"}], "]"}], "]"}], ",", RowBox[{"_", "?", "NumberQ"}]}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Transpose", "[", RowBox[{"Map", "[", RowBox[{"fixcolumn", ",", RowBox[{"Range", "[", RowBox[{"Length", "[", "mat", "]"}], "]"}]}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellTags->"Application"], Cell[BoxData[ RowBox[{ RowBox[{"FixMatrix", "[", "mat", "]"}], "//", "MatrixForm"}]], "Input", CellTags->"Application"], Cell[TextData[{ StyleBox["M\[URing]\[ZHacek]e se st\[AAcute]t, \[ZHacek]e \ nenumerick\[EAcute] \[RHacek]et\[EHacek]zce mohou b\[YAcute]t \ ozna\[CHacek]eny jinak ne\[ZHacek] ", "Text"], StyleBox[Cell[BoxData["\"\\""], "Text"], "Text"], StyleBox[".", "Text"], ".", StyleBox[" N\[AAcute]sleduj\[IAcute]c\[IAcute] definice funkce FixMatrix \ \[RHacek]e\[SHacek]\[IAcute] tento probl\[EAcute]m p\[RHacek]id\[AAcute]n\ \[IAcute]m vstupn\[IAcute]ho argumentu typu String, kter\[YAcute] obsahuje \ hodnotu \[RHacek]et\[EHacek]zce, pou\[ZHacek]it\[EAcute]ho pro ne\[CAcute]\ \[IAcute]seln\[EAcute] hodnoty. ", "Text"] }], "MathCaption", CellChangeTimes->{{3.569848326484375*^9, 3.56984846384375*^9}}, CellTags->"Application"], Cell[BoxData[ RowBox[{ RowBox[{"FixMatrix", "[", RowBox[{"mat_", ",", "str_String"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "fixcolumn", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fixcolumn", "[", "col_", "]"}], ":=", RowBox[{ RowBox[{"mat", "[", RowBox[{"[", RowBox[{"All", ",", "col"}], "]"}], "]"}], "/.", RowBox[{"str", "\[RuleDelayed]", RowBox[{"Mean", "[", RowBox[{"Cases", "[", RowBox[{ RowBox[{"mat", "[", RowBox[{"[", RowBox[{"All", ",", "col"}], "]"}], "]"}], ",", RowBox[{"_", "?", "NumberQ"}]}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Transpose", "[", RowBox[{"Map", "[", RowBox[{"fixcolumn", ",", RowBox[{"Range", "[", RowBox[{"Length", "[", "mat", "]"}], "]"}]}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellTags->"Application"], Cell[BoxData[{ RowBox[{ RowBox[{"mat2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.796495", ",", "\"\\"", ",", "0.070125", ",", RowBox[{"-", "0.323573"}], ",", "0.806554"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"-", "0.100365"}], ",", "0.992736", ",", RowBox[{"-", "0.320560"}], ",", RowBox[{"-", "0.0805351"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.473571", ",", "0.460741", ",", "0.030060", ",", RowBox[{"-", "0.412400"}], ",", "0.788522"}], "}"}], ",", RowBox[{"{", RowBox[{"0.614974", ",", RowBox[{"-", "0.503201"}], ",", "0.615744", ",", "0.966053", ",", RowBox[{"-", "0.011776"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.828415"}], ",", "0.035514", ",", "0.8911617", ",", "\"\\"", ",", RowBox[{"-", "0.453926"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "mat2", "]"}]}], "Input", CellTags->"Application"], Cell[BoxData[ RowBox[{ RowBox[{"FixMatrix", "[", RowBox[{"mat2", ",", "\"\\""}], "]"}], "//", "MatrixForm"}]], "Input", CellTags->"Application"], Cell["", "MoreExamplesSection", CellChangeTimes->{3.569848472078125*^9}, CellTags->"Application"], Cell["\<\ Pokud chceme pracovat s v\[IAcute]ce r\[URing]zn\[YAcute]mi \[RHacek]et\ \[EHacek]zci, definuj\[IAcute]c\[IAcute]mi ne\[CAcute]\[IAcute]seln\[EAcute] \ hodnoty, pou\[ZHacek]ijeme odli\:015bnou konstrukci.\ \>", "Text", CellChangeTimes->{{3.569848474203125*^9, 3.56984851271875*^9}}, CellTags->"Application"], Cell[BoxData[ RowBox[{ RowBox[{"col", "=", RowBox[{"{", RowBox[{"0.796495", ",", "\"\\"", ",", "0.070125", ",", RowBox[{"-", "0.323573"}], ",", "\"\\""}], "}"}]}], ";"}]], "Input", CellTags->"Application"], Cell[BoxData[ RowBox[{ RowBox[{"col", "/.", RowBox[{ RowBox[{"\"\\"", "|", "\"\\""}], "\[Rule]", RowBox[{"Mean", "[", RowBox[{"Cases", "[", RowBox[{ RowBox[{"mat", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", RowBox[{"_", "?", "NumberQ"}]}], "]"}], "]"}]}]}], "//", "MatrixForm"}]], "Input", CellTags->"Application"], Cell[TextData[StyleBox["Pokud m\[AAcute]me seznam mo\[ZHacek]n\[YAcute]ch \ \[RHacek]et\[EHacek]zc\[URing], m\[URing]\[ZHacek]eme je pomoc\[IAcute] \ funkce Alternatives p\[RHacek]ev\[EAcute]st \[RHacek]et\[EHacek]zec vzoru se \ spojkami nebo", "Text"]], "MathCaption", CellChangeTimes->{{3.569848539*^9, 3.5698486130625*^9}}, CellTags->"Application"], Cell[BoxData[ RowBox[{"Apply", "[", RowBox[{"Alternatives", ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "]"}]], "Input", CellTags->"Application"], Cell[TextData[StyleBox["Popsan\[YAcute] postup \ pou\[ZHacek]\[IAcute]v\[AAcute] t\[RHacek]et\[IAcute] definice funkce \ FixMatrix, jej\[IAcute]\[ZHacek] vstupn\[IAcute]m argumentem je seznam p\ \[RHacek]\[IAcute]pustn\[YAcute]ch \[RHacek]et\[EHacek]zc\[URing].", \ "Text"]], "MathCaption", CellChangeTimes->{{3.56984864096875*^9, 3.56984870584375*^9}}, CellTags->"Application"], Cell[BoxData[ RowBox[{ RowBox[{"FixMatrix", "[", RowBox[{"mat_", ",", RowBox[{"{", "strings__", "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "fixcolumn", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fixcolumn", "[", "col_", "]"}], ":=", RowBox[{ RowBox[{"mat", "[", RowBox[{"[", RowBox[{"All", ",", "col"}], "]"}], "]"}], "/.", RowBox[{ RowBox[{"Apply", "[", RowBox[{"Alternatives", ",", RowBox[{"{", "strings", "}"}]}], "]"}], "\[Rule]", RowBox[{"Mean", "[", RowBox[{"Cases", "[", RowBox[{ RowBox[{"mat", "[", RowBox[{"[", RowBox[{"All", ",", "col"}], "]"}], "]"}], ",", RowBox[{"_", "?", "NumberQ"}]}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Transpose", "[", RowBox[{"Map", "[", RowBox[{"fixcolumn", ",", RowBox[{"Range", "[", RowBox[{"Length", "[", "mat", "]"}], "]"}]}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellTags->"Application"], Cell[BoxData[{ RowBox[{ RowBox[{"mat3", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.796495", ",", "\"\\"", ",", "0.070125", ",", "\"\\"", ",", "0.806554"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"-", "0.100365"}], ",", "0.992736", ",", RowBox[{"-", "0.320560"}], ",", RowBox[{"-", "0.0805351"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0.473571", ",", "0.460741", ",", "0.030060", ",", RowBox[{"-", "0.412400"}], ",", "0.788522"}], "}"}], ",", RowBox[{"{", RowBox[{"0.614974", ",", RowBox[{"-", "0.503201"}], ",", "0.615744", ",", "0.966053", ",", RowBox[{"-", "0.011776"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.828415"}], ",", "0.035514", ",", "0.8911617", ",", "\"\\"", ",", RowBox[{"-", "0.453926"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "mat3", "]"}]}], "Input", CellTags->"Application"], Cell[BoxData[ RowBox[{ RowBox[{"FixMatrix", "[", RowBox[{"mat3", ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "]"}], "//", "MatrixForm"}]], "Input", CellTags->"Application"], Cell[" ", "Spacer", CellTags->"Application"], Cell[BoxData[ RowBox[{"?", " ", "FixMatrix"}]], "Input", CellChangeTimes->{{3.569848741765625*^9, 3.569848779328125*^9}}], Cell["", "Text", CellChangeTimes->{{3.5698487316875*^9, 3.5698487335*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Cvi\[CHacek]en\[IAcute]", "Section"]], "Subsection", CellChangeTimes->{{3.570788455015625*^9, 3.5707884974375*^9}, { 3.570788540859375*^9, 3.570788566484375*^9}, 3.570788683921875*^9, { 3.5707887146875*^9, 3.57078872703125*^9}}], Cell[CellGroupData[{ Cell[TextData[StyleBox["Tvorba a pou\[ZHacek]it\[IAcute] funkc\[IAcute]", \ "Subsection"]], "Subsection", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.570788814875*^9, 3.570788820328125*^9}, 3.570789113*^9, 3.570790108578125*^9, 3.5707902158125*^9, 3.5707908943125*^9, { 3.5707910805*^9, 3.57079109875*^9}}], Cell[TextData[{ "Definujte funkci ", Cell[BoxData[ RowBox[{"f", "[", "x", "]"}]]], " vracej\[IAcute]c\[IAcute] ", Cell[BoxData[ RowBox[{"x", " ", RowBox[{"Sin", "[", "x", "]"}]}]]], ". Vyhodno\[THacek]te tuto funkci ", Cell[BoxData[ RowBox[{"f", "[", "x", "]"}]]], " pro r\[URing]zn\[EAcute] hodnoty ", StyleBox["x", "MR"], " a zkontrolujte, zda definice funkce funguje." }], "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.56984885509375*^9, 3.569848920515625*^9}, { 3.5707890856875*^9, 3.570789113*^9}, 3.570790108578125*^9, 3.570790215828125*^9}, CellTags->{"Exercises", "Creating Definitions"}], Cell[BoxData[""], "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.569848828546875*^9, {3.569848922375*^9, 3.5698489236875*^9}, { 3.5707890856875*^9, 3.570789113*^9}, 3.570790108578125*^9, 3.570790215828125*^9}], Cell[TextData[{ "Nakresli ", Cell[BoxData[ RowBox[{"f", "[", StyleBox["\[Theta]", "TR"], "]"}]]], " pro ", StyleBox["\[Theta]", "RM"], " mezi ", Cell[BoxData[ FormBox[ RowBox[{"-", "10"}], TraditionalForm]]], " a 10. Projev\[IAcute] se chov\[AAcute]n\[IAcute] funkce rozd\[IAcute]ln\ \[EHacek], pokud je hodnota na kreslen\[IAcute] ", StyleBox["\[Theta]", "RM"], " a ne ", StyleBox["x", "MR"], "?" }], "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.56984893225*^9, 3.569849000609375*^9}, { 3.5707890856875*^9, 3.570789113*^9}, 3.570790108578125*^9, 3.570790215828125*^9}, CellTags->{"Exercises", "Creating Definitions"}], Cell["", "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.56984900359375*^9, 3.56984900590625*^9}, { 3.5707890856875*^9, 3.570789113*^9}, 3.570790108578125*^9, 3.570790215828125*^9}], Cell[TextData[{ "P\[RHacek]ed dal\[SHacek]\[IAcute]mi v\[YAcute]po\[CAcute]ty vyma\[ZHacek] \ definici ", StyleBox["f.\n", "MR"] }], "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.56984901046875*^9, 3.569849051421875*^9}, { 3.5707890856875*^9, 3.570789113*^9}, 3.570790108578125*^9, 3.570790215828125*^9, {3.57079090865625*^9, 3.570790918578125*^9}}, CellTags->{"Exercises", "Creating Definitions"}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["\tTvorba seznam\[URing] pomoc\[IAcute] Table", \ "Subsection"]], "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{{3.493562530291525*^9, 3.493562530479971*^9}, { 3.569849090265625*^9, 3.56984913540625*^9}, {3.57078861746875*^9, 3.570788618234375*^9}, 3.57078913728125*^9, {3.570789633890625*^9, 3.570789634734375*^9}, {3.57078992871875*^9, 3.570789929875*^9}, { 3.570790108578125*^9, 3.57079013065625*^9}, 3.570790230171875*^9, { 3.57079026184375*^9, 3.5707903175625*^9}, {3.570790369296875*^9, 3.570790423859375*^9}, {3.570790577484375*^9, 3.570790582046875*^9}}, CellTags->{"Exercises", "Table I"}], Cell[TextData[{ "Obvykle cvi\[CHacek]en\[IAcute] ve cvi\[CHacek]ebnic\[IAcute]ch programov\ \[AAcute]n\[IAcute] je konstrukce seznamu (tabulek) integer \ \[CHacek]\[IAcute]sel a jejich druh\[YAcute]ch mocnin. V ", StyleBox["Mathematica ", FontSlant->"Italic"], "existuje cel\[AAcute] \[RHacek]ada mo\[ZHacek]n\[YAcute]ch postup\[URing]. \ Jednou z mo\[ZHacek]nost\[IAcute] je pou\[ZHacek]it\[IAcute] funkce ", Cell[BoxData[ ButtonBox["Do", BaseStyle->"Link", ButtonData->"paclet:ref/Do"]], "InlineFormula"], ", funkce ", Cell[BoxData[ ButtonBox["Print", BaseStyle->"Link", ButtonData->"paclet:ref/Print"]], "InlineFormula"], " a \[RHacek]et\[EHacek]zc\[URing] mezer, \ odd\[EAcute]luj\[IAcute]c\[IAcute]ch sloupce v tabulce." }], "Text", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{{3.569849140109375*^9, 3.569849277046875*^9}, 3.57078913728125*^9, 3.570790108578125*^9, 3.570790230171875*^9}, CellTags->{"Exercises", "Table I"}], Cell[TextData[StyleBox["\t\t\tVyhodno\[THacek]te n\[AAcute]sleduj\[IAcute]c\ \[IAcute] v\[YAcute]raz ", "Text"]], "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{{3.56984928721875*^9, 3.5698493161875*^9}, 3.57078913728125*^9, 3.570790108578125*^9, 3.570790230171875*^9}, CellTags->{"Exercises", "Table I"}], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\< \>\"", ",", RowBox[{"i", "^", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{3.57078913728125*^9, 3.570790108578125*^9, 3.570790230171875*^9}, CellTags->{"Exercises", "Table I"}], Cell[TextData[StyleBox["\t\t\tUpravte program tak, aby jste p\[RHacek]idali t\ \[RHacek]et\[IAcute] sloupec, kter\[YAcute] bude obsahovat t\[RHacek]et\ \[IAcute] mocniny integer \[CAcute]\[IAcute]sel", "Text"]], "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{{3.56984933403125*^9, 3.56984937903125*^9}, 3.57078913728125*^9, 3.570790108578125*^9, 3.570790230171875*^9}, CellTags->{"Exercises", "Table I"}], Cell["", "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{3.56984938596875*^9, 3.570790230171875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["\tTabulky a gridy", "Subsection"]], "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellChangeTimes->{{3.56984940290625*^9, 3.569849413328125*^9}, 3.5707891915*^9, 3.570790171890625*^9, {3.57079032271875*^9, 3.570790324625*^9}, 3.570790619859375*^9}, CellTags->{"Exercises", "Table II"}], Cell[TextData[{ "Jedn\[IAcute]m z probl\[EAcute]m\[URing] v\[YAcute]sledku p\[RHacek]edchoz\ \[IAcute]ho cvi\[CHacek]en\[IAcute] je, \[ZHacek]e sloupce nejsou \ spr\[AAcute]vn\[EHacek] zarovn\[AAcute]ny. \[CapitalRHacek]e\[SHacek]en\ \[IAcute]m je konstrukce tabulky a n\[AAcute]sledn\[EAcute] zarovn\[AAcute]n\ \[IAcute] pomoc\[IAcute] funkce ", Cell[BoxData[ ButtonBox["TableForm", BaseStyle->"Link", ButtonData->"paclet:ref/TableForm"]], "InlineFormula"], "." }], "Text", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellChangeTimes->{{3.569849429625*^9, 3.569849528890625*^9}, 3.5707891915*^9, 3.570790171890625*^9, 3.570790619859375*^9}, CellTags->{"Exercises", "Table II"}], Cell[TextData[StyleBox["\t\t\tVyhodno\[THacek]te n\[AAcute]sleduj\[IAcute]c\ \[IAcute] v\[YAcute]raz a vytvo\[RHacek]te tabulku.", "Text"]], "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellChangeTimes->{{3.569849539484375*^9, 3.56984955890625*^9}, { 3.56984960253125*^9, 3.569849617609375*^9}, 3.5707891915*^9, 3.570790171890625*^9, 3.570790619859375*^9}, CellTags->{"Exercises", "Table II"}], Cell[BoxData[ RowBox[{"mat", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{"i", "^", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}]}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellChangeTimes->{3.570789191515625*^9, 3.570790171890625*^9, 3.570790619859375*^9}, CellTags->{"Exercises", "Table II"}], Cell["\<\ N\[AAcute]sleduj\[IAcute]c\[IAcute] p\[RHacek]\[IAcute]kaz zformatuje vytvo\ \[RHacek]enou tabulku do po\[ZHacek]adovan\[EAcute]ho form\[AAcute]tu.\ \>", "Text", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellChangeTimes->{{3.569849633484375*^9, 3.569849668703125*^9}, 3.570789191515625*^9, 3.570790171890625*^9, 3.570790619859375*^9}, CellTags->{"Exercises", "Table II"}], Cell[BoxData[ RowBox[{"TableForm", "[", "mat", "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellChangeTimes->{3.570789191515625*^9, 3.570790171890625*^9, 3.570790619859375*^9}, CellTags->{"Exercises", "Table II"}], Cell[TextData[{ "Zarovn\[AAcute]n\[IAcute] dat v tabulce je mo\[ZHacek]n\[EAcute] \[RHacek]\ \[IAcute]dit pomoc\[IAcute] r\[URing]zn\[YAcute]ch parametr\[URing] funkce ", Cell[BoxData[ ButtonBox["Grid", BaseStyle->"Link", ButtonData->"paclet:ref/Grid"]], "InlineFormula"], "." }], "Text", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellChangeTimes->{{3.569849684890625*^9, 3.569849720375*^9}, 3.570789191515625*^9, 3.570790171890625*^9, 3.570790619875*^9}, CellTags->{"Exercises", "Table II"}], Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{"mat", ",", RowBox[{"Alignment", "\[Rule]", "Right"}]}], "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellChangeTimes->{3.570789191515625*^9, 3.570790171890625*^9, 3.570790619875*^9}, CellTags->{"Exercises", "Table II"}], Cell[TextData[StyleBox["\t\t\tUpravte tento program tak, aby jste \ p\[RHacek]idali dal\[SHacek]\[IAcute] sloupec, obsahuj\[IAcute]c\[IAcute] t\ \[RHacek]et\[IAcute] mocninu ka\[ZHacek]d\[EAcute]ho \[CHacek]\[IAcute]sla. \ ", "Text"]], "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellChangeTimes->{{3.569849759390625*^9, 3.569849810265625*^9}, 3.570789191515625*^9, 3.570790171890625*^9, 3.570790619875*^9}, CellTags->{"Exercises", "Table II"}], Cell["", "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellChangeTimes->{3.5698498125*^9, 3.570789191515625*^9, 3.570790171890625*^9, 3.570790619875*^9}], Cell[TextData[StyleBox["\t\t\tPou\[ZHacek]ijte substitu\[CHacek]n\[IAcute] \ pravidlo tak, aby jste upravili posledn\[IAcute] v\[YAcute]sledek \ p\[RHacek]id\[AAcute]n\[IAcute]m \[CHacek]tvrt\[EAcute]ho sloupce, kter\ \[YAcute] obsahuje sou\[CHacek]et druh\[EAcute] a t\[RHacek]et\[IAcute] \ mocniny v ka\[ZHacek]d\[EAcute] \t\t\t\t\[RHacek]\[AAcute]dce. ", "Text"]], \ "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellChangeTimes->{{3.569849823078125*^9, 3.5698498366875*^9}, { 3.56984997278125*^9, 3.569849979859375*^9}, {3.56985001190625*^9, 3.5698500135625*^9}, {3.569850302109375*^9, 3.569850361703125*^9}, 3.570789191515625*^9, 3.570790171890625*^9, 3.570790619875*^9}, CellTags->{"Exercises", "Table II"}], Cell["", "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellChangeTimes->{3.569850367609375*^9, 3.570789191515625*^9, 3.570790171890625*^9, 3.570790619875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["\tOperace s maticemi", "Subsection"]], \ "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellChangeTimes->{{3.569850383109375*^9, 3.569850392828125*^9}, 3.570789206421875*^9, 3.570790171890625*^9, 3.5707906308125*^9}, CellTags->{"Exercises", "Matrix Operations"}], Cell[TextData[{ "P\[RHacek]\[IAcute]kaz vytvo\[RHacek]\[IAcute] matici ", Cell[BoxData[ FormBox[ RowBox[{"6", "\[Cross]", "6"}], TraditionalForm]]], " se symbolick\[YAcute]mi prvky." }], "Text", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellChangeTimes->{{3.569850559484375*^9, 3.569850583625*^9}, 3.570789206421875*^9, 3.570790171890625*^9, 3.5707906308125*^9}, CellTags->{"Exercises", "Matrix Operations"}], Cell[BoxData[ RowBox[{"mat", "=", RowBox[{"Array", "[", RowBox[{"m", ",", RowBox[{"{", RowBox[{"6", ",", "6"}], "}"}]}], "]"}]}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellChangeTimes->{3.570789206421875*^9, 3.570790171890625*^9, 3.5707906308125*^9}, CellTags->{"Exercises", "Matrix Operations"}], Cell[TextData[{ "M\[URing]\[ZHacek]eme matici zobrazit v tradi\[CHacek]n\[IAcute] form\ \[EHacek] pou\[ZHacek]it\[IAcute]m funkce ", Cell[BoxData[ ButtonBox["MatrixForm", BaseStyle->"Link", ButtonData->"paclet:ref/MatrixForm"]], "InlineFormula"], "." }], "Text", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellChangeTimes->{{3.569850588234375*^9, 3.569850615765625*^9}, 3.570789206421875*^9, 3.570790171890625*^9, 3.5707906308125*^9}, CellTags->{"Exercises", "Matrix Operations"}], Cell[BoxData[ RowBox[{"MatrixForm", "[", "mat", "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellChangeTimes->{3.570789206421875*^9, 3.570790171890625*^9, 3.5707906308125*^9}, CellTags->{"Exercises", "Matrix Operations"}], Cell[TextData[{ StyleBox["\t\t\tPou\[ZHacek]ijte funkci ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["Part", BaseStyle->"Link", ButtonData->"paclet:ref/Part"]], "Text"], "Text"], ", ", StyleBox["aby jste z\[IAcute]skali p\[AAcute]t\[YAcute] \ \[RHacek]\[AAcute]dek matice.", "Text"], " " }], "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellChangeTimes->{{3.569850635890625*^9, 3.569850669734375*^9}, 3.570789206421875*^9, 3.570790171890625*^9, 3.5707906308125*^9}, CellTags->{"Exercises", "Matrix Operations"}], Cell[BoxData[""], "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellChangeTimes->{3.569850673203125*^9, 3.570789206421875*^9, 3.570790171890625*^9, 3.5707906308125*^9}], Cell[TextData[{ StyleBox["\t\t\tPou\[ZHacek]ijte funkci ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["Part", BaseStyle->"Link", ButtonData->"paclet:ref/Part"]], "Text"], "Text"], StyleBox[", aby jste z\[IAcute]skali", "Text"], " ", StyleBox["t\[RHacek]et\[IAcute] sloupec matice", "Text"] }], "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellChangeTimes->{{3.569850690703125*^9, 3.569850730828125*^9}, 3.570789206421875*^9, 3.570790171890625*^9, 3.5707906308125*^9}, CellTags->{"Exercises", "Matrix Operations"}], Cell[BoxData[""], "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellChangeTimes->{3.569850735359375*^9, 3.570789206421875*^9, 3.570790171890625*^9, 3.5707906308125*^9}], Cell[TextData[{ StyleBox["\t\t\tPou\[ZHacek]ijte funkci ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["Diagonal", BaseStyle->"Link", ButtonData->"paclet:ref/Diagonal"]], "Text"], "Text"], " , ", StyleBox["aby jste z\[IAcute]skali hlavn\[IAcute] diagon\[AAcute]lu matice.", "Text"] }], "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellChangeTimes->{{3.5698508086875*^9, 3.569850869890625*^9}, 3.570789206421875*^9, 3.57079017190625*^9, 3.5707906308125*^9}, CellTags->{"Exercises", "Matrix Operations"}], Cell[BoxData[""], "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellChangeTimes->{3.569850879546875*^9, 3.570789206421875*^9, 3.57079017190625*^9, 3.5707906308125*^9}], Cell[TextData[{ StyleBox["\t\t\tPou\[ZHacek]ij ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["Diagonal", BaseStyle->"Link", ButtonData->"paclet:ref/Diagonal"]], "Text"], "Text"], " ", StyleBox["s druh\[YAcute]m argumentem tak, aby jste z\[IAcute]skali t\ \[RHacek]et\[IAcute] diagon\[AAcute]lu pod hlavn\[IAcute] \ diagon\[AAcute]lou.", "Text"] }], "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellChangeTimes->{{3.56985097084375*^9, 3.569851031109375*^9}, { 3.569851076765625*^9, 3.56985108675*^9}, 3.570789206421875*^9, 3.57079017190625*^9, 3.5707906308125*^9}, CellTags->{"Exercises", "Matrix Operations"}], Cell[BoxData[""], "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellChangeTimes->{3.569851105234375*^9, 3.570789206421875*^9, 3.57079017190625*^9, 3.5707906308125*^9}], Cell[TextData[{ StyleBox["\t\t\tPou\[ZHacek]ijte ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["Diagonal", BaseStyle->"Link", ButtonData->"paclet:ref/Diagonal"]], "Text"], "Text"], StyleBox[" (a dal\[SHacek]\[IAcute] funkce), aby jste z\[IAcute]skali diagon\ \[AAcute]lu z prav\[EAcute]ho horn\[IAcute]ho rohu do lev\[EAcute]ho doln\ \[IAcute]ho rohu.", "Text"] }], "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellChangeTimes->{{3.569851115828125*^9, 3.569851176875*^9}, 3.570789206421875*^9, 3.57079017190625*^9, 3.5707906308125*^9}, CellTags->{"Exercises", "Matrix Operations"}], Cell[BoxData[""], "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellChangeTimes->{3.5698511804375*^9, 3.570789206421875*^9, 3.57079017190625*^9, 3.5707906308125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["\tUr\[CHacek]en\[IAcute] \ \[CHacek]\[AAcute]st\[IAcute] matice", "Subsection"]], "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellChangeTimes->{{3.56985119384375*^9, 3.5698512160625*^9}, { 3.570789222703125*^9, 3.57078924265625*^9}, 3.57079017190625*^9, 3.570790647046875*^9}, CellTags->{"Exercises", "Picking Parts"}], Cell["\<\ Vyhodno\[THacek]te n\[AAcute]sleduj\[IAcute]c\[IAcute] vstup a zkonstruujte \ pole integer \[CHacek]\[IAcute]sel a zobrazte je jako \ tradi\[CAcute]n\[IAcute] matici.\ \>", "Text", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellChangeTimes->{{3.5698512211875*^9, 3.56985126534375*^9}, { 3.570789222703125*^9, 3.57078924265625*^9}, 3.57079017190625*^9, 3.570790647046875*^9}, CellTags->{"Exercises", "Picking Parts"}], Cell[BoxData[{ RowBox[{ RowBox[{"SeedRandom", "[", "123", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"mat", "=", RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "6"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "mat", "]"}]}], "Input", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellChangeTimes->{{3.570789222703125*^9, 3.57078924265625*^9}, 3.57079017190625*^9, 3.570790647046875*^9}], Cell[TextData[{ "\nZopakujme si, \[ZHacek]e ", Cell[BoxData[ RowBox[{"mat", "[", RowBox[{"[", "k", "]"}], "]"}]]], " vrac\[IAcute] k-t\[YAcute] \[RHacek]\[AAcute]dek a ", Cell[BoxData[ RowBox[{"mat", "[", RowBox[{"[", RowBox[{"All", ",", "k"}], "]"}], "]"}]]], " vrac\[IAcute] k-t\[YAcute] sloupec matice. (V\[IAcute]ce p\[RHacek]\ \[IAcute]klad\[URing] a dokumentace k funkci ", Cell[BoxData[ ButtonBox["Part", BaseStyle->"Link", ButtonData->"paclet:ref/Part"]], "InlineFormula"], " najdeme v Documentation Center.) Nap\[RHacek]\[IAcute]klad vyhodnocen\ \[IAcute]m n\[AAcute]sleduj\[IAcute]c\[IAcute]ho vstupu \ z\[IAcute]sk\[AAcute]te druh\[YAcute] sloupec matice ", StyleBox["mat", "MR"], "." }], "Text", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellChangeTimes->{{3.56985127609375*^9, 3.569851398078125*^9}, { 3.57078922271875*^9, 3.57078924265625*^9}, 3.57079017190625*^9, 3.5707906470625*^9}, CellTags->{"Exercises", "Picking Parts"}], Cell[BoxData[ RowBox[{"mat", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellChangeTimes->{{3.57078922271875*^9, 3.57078924265625*^9}, 3.57079017190625*^9, 3.5707906470625*^9}, CellTags->{"Exercises", "Picking Parts"}], Cell[BoxData[ RowBox[{ RowBox[{"mat", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "//", "MatrixForm"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellChangeTimes->{{3.57078922271875*^9, 3.57078924265625*^9}, 3.57079017190625*^9, 3.5707906470625*^9}, CellTags->{"Exercises", "Picking Parts"}], Cell[TextData[{ "\[CapitalCHacek]asto je u\[ZHacek]ite\[CHacek]n\[EAcute] z\[IAcute]skat n\ \[EHacek]kolik prvk\[URing] ze seznamu nebo n\[EHacek]kolik \ \[RHacek]\[AAcute]dek \[CHacek]i sloupc\[URing] z matice. Toto je \ mo\[ZHacek]n\[EAcute] realizovat v\[YAcute]pisem pozic jednotliv\[YAcute]ch \ po\[ZHacek]adovan\[YAcute]ch prvk\[URing]. Nap\[RHacek]\[IAcute]klad vyhodno\ \[THacek]te n\[AAcute]sleduj\[IAcute]c\[IAcute] vstup k \ z\[IAcute]sk\[AAcute]n\[IAcute] seznamu obsahuj\[IAcute]c\[IAcute]ho prvn\ \[IAcute] a druh\[YAcute] \[RHacek]\[AAcute]dek z matice ", StyleBox["mat", "MR"], "." }], "Text", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellChangeTimes->{{3.569851416546875*^9, 3.56985159890625*^9}, { 3.57078922271875*^9, 3.57078924265625*^9}, 3.57079017190625*^9, 3.5707906470625*^9}, CellTags->{"Exercises", "Picking Parts"}], Cell[BoxData[ RowBox[{"mat", "[", RowBox[{"[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}], "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellChangeTimes->{{3.57078922271875*^9, 3.57078924265625*^9}, 3.57079017190625*^9, 3.5707906470625*^9}, CellTags->{"Exercises", "Picking Parts"}], Cell[TextData[{ "Vyhodno\[THacek]te n\[AAcute]sleduj\[IAcute]c\[IAcute] vstup, aby jsme obdr\ \[ZHacek]eli seznam, obsahuj\[IAcute]c\[IAcute] prvn\[IAcute] a druh\[YAcute] \ sloupec z matice ", StyleBox["mat", "MR"], "." }], "Text", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellChangeTimes->{{3.569851609234375*^9, 3.5698516665*^9}, { 3.57078922271875*^9, 3.57078924265625*^9}, 3.57079017190625*^9, 3.5707906470625*^9}, CellTags->{"Exercises", "Picking Parts"}], Cell[BoxData[ RowBox[{ RowBox[{"mat", "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], "//", "MatrixForm"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellChangeTimes->{{3.57078922271875*^9, 3.570789242671875*^9}, 3.57079017190625*^9, 3.5707906470625*^9}, CellTags->{"Exercises", "Picking Parts"}], Cell[TextData[StyleBox["\t\t\tPo\[CHacek]\[IAcute]naje prvn\[IAcute]m \ sloupcem vra\[THacek]te ka\[ZHacek]d\[YAcute] lich\[YAcute] (druh\[YAcute]) \ sloupec v matici. ", "Text"]], "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellChangeTimes->{{3.569851676125*^9, 3.56985172871875*^9}, { 3.57078922271875*^9, 3.570789242671875*^9}, 3.57079017190625*^9, 3.5707906470625*^9, {3.570967027421875*^9, 3.570967039421875*^9}, { 3.570967731765625*^9, 3.57096773515625*^9}}, CellTags->{"Exercises", "Picking Parts"}], Cell[BoxData[""], "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellChangeTimes->{ 3.569851685609375*^9, {3.57078922271875*^9, 3.570789242671875*^9}, 3.57079017190625*^9, 3.5707906470625*^9}], Cell[TextData[StyleBox["\t\t\tP\[RHacek]i\[RHacek]a\[DHacek] hodnotu 0 ka\ \[ZHacek]d\[EAcute]mu prvku v posledn\[IAcute]m sloupci matice.", "Text"]], \ "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellChangeTimes->{{3.569851739765625*^9, 3.569851774734375*^9}, { 3.57078922271875*^9, 3.570789242671875*^9}, 3.57079017190625*^9, 3.5707906470625*^9}, CellTags->{"Exercises", "Picking Parts"}], Cell[BoxData[""], "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellChangeTimes->{ 3.569851777515625*^9, {3.57078922271875*^9, 3.570789242671875*^9}, 3.57079017190625*^9, 3.5707906470625*^9}], Cell[TextData[StyleBox["\t\t\tP\[RHacek]i\[RHacek]a\[DHacek] hodnotu 0 ka\ \[ZHacek]d\[EAcute]mu prvku na \[OpenCurlyDoubleQuote]hranici\ \[CloseCurlyDoubleQuote] matice tj. prvk\[URing]m v prvn\[IAcute]m a posledn\ \[IAcute]m \[RHacek]\[AAcute]dku a v prvn\[IAcute]m a posledn\[IAcute]m \ sloupci.", "Text"]], "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellChangeTimes->{{3.5698517865625*^9, 3.569851855734375*^9}, { 3.57078922271875*^9, 3.570789242671875*^9}, 3.57079017190625*^9, 3.5707906470625*^9}, CellTags->{"Exercises", "Picking Parts"}], Cell[BoxData[""], "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellChangeTimes->{3.56985185921875*^9, 3.5707906470625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["\tOkam\[ZHacek]it\[EAcute] a odlo\[ZHacek]en\[EAcute] \ p\[RHacek]i\[RHacek]azen\[IAcute]", "Subsection"]], "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10005.}, CellChangeTimes->{{3.569851872875*^9, 3.569851892703125*^9}, 3.570789255734375*^9, 3.57079017190625*^9, 3.57079065328125*^9}, CellTags->{"Exercises", "Immediate and Delayed"}], Cell[TextData[{ "Uva\[ZHacek]ujme, \[ZHacek]e ", Cell[BoxData[ RowBox[{"f", "[", "x", "]"}]]], " je definov\[AAcute]na n\[AAcute]sleduj\[IAcute]c\[IAcute]m \ p\[RHacek]edpisem:" }], "Text", CellGroupingRules->{GroupTogetherGrouping, 10005.}, CellChangeTimes->{{3.569851903859375*^9, 3.569851931359375*^9}, 3.570789255734375*^9, 3.57079017190625*^9, 3.57079065328125*^9}, CellTags->{"Exercises", "Immediate and Delayed"}], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"3", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"2", " ", "x"}]}]}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10005.}, CellChangeTimes->{3.57078925575*^9, 3.57079017190625*^9, 3.57079065328125*^9}, CellTags->{"Exercises", "Immediate and Delayed"}], Cell[TextData[StyleBox["\t\t\tDefinuj derivaci funkce f jako funkci x. M\ \[URing]\[ZHacek]ete pou\[ZHacek]\[IAcute]t okam\[ZHacek]it\[EAcute] p\ \[RHacek]i\[RHacek]azen\[IAcute] (=) nebo odlo\[ZHacek]en\[EAcute] \ p\[RHacek]i\[RHacek]azen\[IAcute] (:=), ale pouze jedno funguje \ spr\[AAcute]vn\[EHacek]. Kter\[EAcute] z \t\t\t\tnich to je a pro\[CHacek] \ ?", "Text"]], "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10005.}, CellChangeTimes->{{3.569851940375*^9, 3.569852035875*^9}, 3.57078925575*^9, 3.57079017190625*^9, 3.57079065328125*^9}, CellTags->{"Exercises", "Immediate and Delayed"}], Cell[BoxData[""], "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10005.}, CellChangeTimes->{3.56985209275*^9, 3.57078925575*^9, 3.57079017190625*^9, 3.57079065328125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["\tLokalizace prom\[EHacek]n\[YAcute]ch", \ "Subsection"]], "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10006.}, CellChangeTimes->{ 3.569852105890625*^9, {3.569852208890625*^9, 3.569852215796875*^9}, 3.570789263015625*^9, 3.57079017190625*^9, 3.570790664953125*^9}, CellTags->{"Exercises", "Localizing Variables"}], Cell[TextData[{ StyleBox["\t\t\tV n\[AAcute]sleduj\[IAcute]c\[IAcute] definici idetifikujte \ dv\[EHacek] glob\[AAcute]ln\[IAcute] prom\[EHacek]n\[EAcute]. Zm\[EHacek]\ \[NHacek]te definici tak, aby jste tyto dv\[EHacek] prom\[EHacek]n\[EAcute] \ lokalizovali s pou\[ZHacek]it\[IAcute]m ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["Module", BaseStyle->"Link", ButtonData->"paclet:ref/Module"]], "Text"], "Text"], "." }], "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10006.}, CellChangeTimes->{{3.569852115625*^9, 3.5698521855*^9}, 3.570789263015625*^9, 3.57079017190625*^9, 3.570790664953125*^9}, CellTags->{"Exercises", "Localizing Variables"}], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", RowBox[{"p_", ",", "q_"}], "]"}], ":=", RowBox[{"(", "\[IndentingNewLine]", RowBox[{ RowBox[{"temp", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"p", "+", RowBox[{"q", " ", "x"}]}], "\[Equal]", "0"}], ",", "x"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"x", "/.", "temp"}]}], "\[IndentingNewLine]", ")"}]}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10006.}, CellChangeTimes->{3.570789263015625*^9, 3.57079017190625*^9, 3.570790664953125*^9}, CellTags->{"Exercises", "Localizing Variables"}], Cell[BoxData[""], "Solution", CellGroupingRules->{GroupTogetherGrouping, 10006.}, CellChangeTimes->{3.570789263015625*^9, 3.570790171921875*^9, 3.570790664953125*^9}, CellTags->{"Exercises", "Localizing Variables"}], Cell["", "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10006.}, CellChangeTimes->{3.5698521946875*^9, 3.570789263015625*^9, 3.570790171921875*^9, 3.570790664953125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["\tPou\[ZHacek]it\[IAcute] vzor\[URing] a pravidel v \ grafice", "Subsection"]], "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10007.}, CellChangeTimes->{{3.5698522039375*^9, 3.56985223359375*^9}, 3.570789273015625*^9, 3.570790171921875*^9, 3.570790670828125*^9}, CellTags->{"Exercises", "Using Patterns"}], Cell[TextData[{ StyleBox["\t\t\tVyhodno\[THacek]te n\[AAcute]sleduj\[IAcute]c\[IAcute] vstup \ tak, aby jste zkonstruovali a zobrazili ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["Graphics", BaseStyle->"Link", ButtonData->"paclet:ref/Graphics"]], "Text"], "Text"], " ", StyleBox["v\[YAcute]razy. Argumentem ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["Line", BaseStyle->"Link", ButtonData->"paclet:ref/Line"]], "Text"], "Text"], " ", StyleBox["primitivu v ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["Graphics", BaseStyle->"Link", ButtonData->"paclet:ref/Graphics"]], "Text"], "Text"], " ", StyleBox["v\[YAcute]razu je seznam p\[AAcute]ru \t\t\t\tre\[AAcute]ln\ \[YAcute]ch \[CAcute]\[IAcute]sel. Ka\[ZHacek]d\[YAcute] p\[AAcute]r \ \[CHacek]\[IAcute]sel ur\[CHacek]uje koordin\[AAcute]ty ve \ dvourozm\[EHacek]rn\[EAcute]m prostoru.", "Text"] }], "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10007.}, CellChangeTimes->{{3.56985228121875*^9, 3.569852453875*^9}, 3.570789273015625*^9, 3.570790171921875*^9, 3.570790670828125*^9}, CellTags->{"Exercises", "Using Patterns"}], Cell[BoxData[ RowBox[{"gr", "=", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.0", ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{"1.0", ",", "1.0"}], "}"}], ",", RowBox[{"{", RowBox[{"2.0", ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{"3.0", ",", "2.0"}], "}"}], ",", RowBox[{"{", RowBox[{"4.0", ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{"5.0", ",", "2.0"}], "}"}], ",", RowBox[{"{", RowBox[{"6.0", ",", "1.0"}], "}"}], ",", RowBox[{"{", RowBox[{"7.0", ",", "3.0"}], "}"}], ",", RowBox[{"{", RowBox[{"8.0", ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{"9.0", ",", "2.0"}], "}"}], ",", RowBox[{"{", RowBox[{"10.0", ",", "0.0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}]}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10007.}, CellChangeTimes->{3.570789273015625*^9, 3.570790171921875*^9, 3.570790670828125*^9}, CellTags->{"Exercises", "Using Patterns"}], Cell[TextData[{ StyleBox["\t\t\tAplikujte pravidlo na tento ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["Graphics", BaseStyle->"Link", ButtonData->"paclet:ref/Graphics"]], "Text"], "Text"], " ", StyleBox["v\[YAcute]raz tak, aby jste nahradili v\[SHacek]echny p\[AAcute]ry \ re\[AAcute]ln\[YAcute]ch \[CHacek]\[IAcute]sel", "Text"], StyleBox[Cell[BoxData[ RowBox[{"{", RowBox[{"p_Real", ",", "q_Real"}], "}"}]], "Text"], "Text"], " ", StyleBox["seznamem ", "Text"], StyleBox[Cell[BoxData[ RowBox[{"{", RowBox[{"q", ",", "p"}], "}"}]], "Text"], "Text"], " ", StyleBox["tak, \[ZHacek]e \t\t\t\t\tsou\[RHacek]adnice v ka\[ZHacek]d\ \[EAcute]m p\[AAcute]ru jsou reverzn\[EHacek] obr\[AAcute]ceny.Zobrazte v\ \[YAcute]sledek. Tato substituce odpov\[IAcute]d\[AAcute] \ z\[AAcute]m\[EHacek]n\[EHacek] vertik\[AAcute]ln\[IAcute] a \ horizont\[AAcute]ln\[IAcute] dimenze nebo stejn\[EAcute] \t\t\ttak otot\ \[CHacek]en\[IAcute] obr\[AAcute]zku podle diagon\[AAcute]ly. ", "Text"] }], "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10007.}, CellChangeTimes->{{3.569852492109375*^9, 3.569852683421875*^9}, 3.570789273015625*^9, 3.570790171921875*^9, 3.570790670828125*^9}, CellTags->{"Exercises", "Using Patterns"}], Cell["", "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10007.}, CellChangeTimes->{3.56985268534375*^9, 3.570790670828125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["\tV\[YAcute]b\[EHacek]r dle vzoru (Pattern \ Matching)", "Subsection"]], "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10008.}, CellChangeTimes->{{3.56985269525*^9, 3.569852708203125*^9}, 3.570789280078125*^9, 3.570790171921875*^9, 3.570790679765625*^9}, CellTags->{"Exercises", "Pattern Matching"}], Cell[TextData[{ StyleBox["\t\t\tDefinujte funkci abs[x], kter\[AAcute] vrac\[IAcute] ", "Text"], StyleBox[Cell[BoxData[ FormBox["x", TraditionalForm]], "Text"], "Text"], StyleBox[", pokud je kladn\[EAcute]", "Text"], " ", StyleBox["a ", "Text"], StyleBox[Cell[BoxData[ FormBox[ RowBox[{"-", "x"}], TraditionalForm]], "Text"], "Text"], " ", StyleBox["pokud je ", "Text"], StyleBox[Cell[BoxData[ FormBox["x", TraditionalForm]], "Text"], "Text"], StyleBox[" z\[AAcute]porn\[EAcute] \[CHacek]\[IAcute]slo; a vrac\[IAcute] ", "Text"], StyleBox[Cell[BoxData[ FormBox[ SqrtBox[ RowBox[{ SuperscriptBox["a", "2"], "+", SuperscriptBox["b", "2"]}]], TraditionalForm]], "Text"], "Text"], StyleBox["pokud je ", "Text"], StyleBox[Cell[BoxData[ FormBox["x", TraditionalForm]], "Text"], "Text"], " ", StyleBox["je komplexn\[IAcute] \[CHacek]\[IAcute]slo ve form\[EHacek] ", "Text"], StyleBox[Cell[BoxData[ FormBox[ RowBox[{"a", "+", RowBox[{"b", " ", "\[ImaginaryI]"}]}], TraditionalForm]], "Text"], "Text"], " ", StyleBox["(", "Text"], StyleBox["a", "Text", FontSlant->"Italic"], StyleBox[" a \t\t\t\t", "Text"], StyleBox["b", "Text", FontSlant->"Italic"], StyleBox[" jsou re\[AAcute]ln\[AAcute] \[CHacek]\[IAcute]sla).", "Text"] }], "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10008.}, CellChangeTimes->{{3.56985275603125*^9, 3.569852880203125*^9}, 3.570789280078125*^9, 3.570790171921875*^9, 3.570790679765625*^9}, CellTags->{"Exercises", "Pattern Matching"}], Cell["", "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10008.}, CellChangeTimes->{3.569852883375*^9, 3.570789280078125*^9, 3.570790171921875*^9, 3.570790679765625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["\tKonstrukce v\[YAcute]razu", "Subsection"]], \ "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellChangeTimes->{{3.56985289321875*^9, 3.56985290159375*^9}, 3.570789291953125*^9, 3.570790171921875*^9, 3.570790686015625*^9}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[TextData[{ "Jednou z u\[ZHacek]ite\[CHacek]n\[YAcute]ch technik testov\[AAcute]n\ \[IAcute] a trasov\[AAcute]n\[IAcute] program\[URing] v ", StyleBox["Mathematica", FontSlant->"Italic"], " je anal\[YAcute]za v\[YAcute]sledku po dosazen\[IAcute] n\[AAcute]hodn\ \[YAcute]ch \[CHacek]\[IAcute]seln\[YAcute]ch hodnot na m\[IAcute]sto jak\ \[YAcute]chkoliv symbolick\[YAcute]ch prom\[EHacek]nn\[YAcute]ch v programu." }], "Text", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellChangeTimes->{{3.569852915625*^9, 3.569852999578125*^9}, 3.570789291953125*^9, 3.570790171921875*^9, 3.570790686015625*^9}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[TextData[{ StyleBox["\t\t\tPou\[ZHacek]ijte n\[AAcute]sleduj\[IAcute]c\[IAcute] seznam \ prom\[EHacek]n\[YAcute]ch ke konstrukci seznamu pravidel, kter\[AAcute] \ nahrad\[IAcute] ka\[ZHacek]dou prom\[EHacek]nou v seznamu n\[AAcute]hodn\ \[YAcute]m \[CHacek]\[IAcute]slem \t\t\t\t\tvygenerovan\[YAcute]m s pou\ \[ZHacek]it\[IAcute]m ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["RandomReal", BaseStyle->"Link", ButtonData->"paclet:ref/RandomReal"]], "Text"], "Text"], "." }], "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellChangeTimes->{{3.569853009890625*^9, 3.569853095609375*^9}, 3.570789291953125*^9, 3.570790171921875*^9, 3.570790686015625*^9}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[BoxData[ RowBox[{ RowBox[{"vars", "=", RowBox[{"{", RowBox[{ "xxy", ",", "xxz", ",", "xyy", ",", "yxx", ",", "yzz", ",", "yzy"}], "}"}]}], ";"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellChangeTimes->{3.570789291953125*^9, 3.570790171921875*^9, 3.570790686015625*^9}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[BoxData[""], "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellChangeTimes->{3.56985312078125*^9, 3.570789291953125*^9, 3.570790171921875*^9, 3.570790686015625*^9}], Cell[TextData[StyleBox["\t\t\tPou\[ZHacek]ijte seznam pravidel z \ p\[RHacek]edch\[AAcute]zej\[IAcute]c\[IAcute]ho p\[RHacek]\[IAcute]kladu k \ nalezen\[IAcute] symbolick\[EAcute] prom\[EHacek]n\[EAcute] v \ n\[AAcute]sleduj\[IAcute]c\[IAcute]m v\[YAcute]razu, kter\[AAcute] nen\ \[IAcute] mezi \[SHacek]esti prom\[EAcute]n\[YAcute]mi v \t\t\t\t\ prom\[EHacek]n\[EAcute] vars. Po vlo\[ZHacek]en\[IAcute] \ \[CHacek]\[IAcute]seln\[YAcute]ch hodnot pro vypsan\[EAcute] prom\[EHacek]nn\ \[EAcute] se v\[YAcute]raz zjednodu\[SHacek]\[IAcute] na v\[YAcute]raz, ve \ kter\[EAcute]m bude hledan\[AAcute] prom\[EHacek]n\[AAcute] nevy\[CHacek]\ \[IAcute]slena. ", "Text"]], "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellChangeTimes->{{3.5698531314375*^9, 3.569853316984375*^9}, 3.570789291953125*^9, 3.570790171921875*^9, 3.570790686015625*^9}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[BoxData[ RowBox[{ RowBox[{"expr", "=", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"11", "+", RowBox[{"11", " ", "xxz"}], "+", RowBox[{"7", " ", "xyy"}], "+", RowBox[{"21", " ", "yzy"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"5", " ", "xxy"}], "+", RowBox[{"11", " ", "xxz"}], "+", RowBox[{"11", " ", "yxx"}]}], ")"}], "2"]]}], "+", FractionBox[ RowBox[{ RowBox[{"2", " ", "xxy"}], "+", RowBox[{"10", " ", "xxz"}], "+", RowBox[{"6", " ", "xyy"}], "+", RowBox[{"9", " ", "yzy"}], "+", RowBox[{"2", " ", "yzz"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"3", "+", RowBox[{"11", " ", "xxy"}], "+", RowBox[{"5", " ", "xxz"}], "+", RowBox[{"14", " ", "xyy"}], "+", RowBox[{"5", " ", "yzy"}]}], ")"}], "2"]], "+", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"5", "+", RowBox[{"10", " ", "xxy"}], "+", RowBox[{"7", " ", "xxz"}], "+", RowBox[{"11", " ", "xyy"}], "+", RowBox[{"8", " ", "yxx"}], "+", RowBox[{"4", " ", "yzz"}]}], ")"}], "2"], RowBox[{ RowBox[{"6", " ", "xxy"}], "+", RowBox[{"9", " ", "xxz"}], "+", RowBox[{"8", " ", "xyy"}], "+", RowBox[{"2", " ", "yxx"}], "+", RowBox[{"9", " ", "yzy"}]}]], "-", FractionBox[ RowBox[{"4", "+", RowBox[{"2", " ", "xxy"}], "+", RowBox[{"4", " ", "xxz"}], "+", RowBox[{"10", " ", "xyy"}], "+", RowBox[{"8", " ", "yxx"}], "+", RowBox[{"5", " ", "yzy"}], "+", RowBox[{"4", " ", "yzz"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"3", " ", "xxy"}], "+", RowBox[{"6", " ", "xxz"}], "+", RowBox[{"4", " ", "yxx"}], "+", RowBox[{"6", " ", "yzz"}]}], ")"}], "2"]], "+", FractionBox[ RowBox[{ RowBox[{"11", " ", "xxy"}], "+", RowBox[{"8", " ", "xxz"}], "+", RowBox[{"5", " ", "xyy"}], "+", RowBox[{"6", " ", "yxy"}], "+", "yzz"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "xxy"}], "+", RowBox[{"7", " ", "xxz"}], "+", RowBox[{"11", " ", "yxx"}], "+", RowBox[{"8", " ", "yzz"}]}], ")"}], "2"]], "+", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", " ", "xyy"}], "+", RowBox[{"9", " ", "yxx"}], "+", RowBox[{"3", " ", "yzy"}], "+", RowBox[{"6", " ", "yzz"}]}], ")"}], "2"], RowBox[{ RowBox[{"3", " ", "xxz"}], "+", RowBox[{"19", " ", "xyy"}], "+", RowBox[{"15", " ", "yzz"}]}]]}]}], ";"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellChangeTimes->{3.570789291953125*^9, 3.570790171921875*^9, 3.570790686015625*^9}, CellTags->{"Exercises", "Constructing an Expression"}], Cell["", "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellChangeTimes->{3.56985332478125*^9, 3.570789291953125*^9, 3.570790171921875*^9, 3.570790686015625*^9}] }, Open ]], Cell[BoxData[""], "NonPrintButton", CellChangeTimes->{3.5698533566875*^9, 3.570789291953125*^9, 3.570790171921875*^9}], Cell[CellGroupData[{ Cell[TextData[StyleBox["\tOdlo\[ZHacek]en\[AAcute] pravidla", "Subsection"]], \ "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.56985336596875*^9, 3.569853372296875*^9}, 3.570789304765625*^9, 3.570790171921875*^9, 3.570790695359375*^9}, CellTags->{"Exercises", "Delayed Rules"}], Cell["\<\ Zde je definice funkce pro v\[YAcute]po\[CHacek]et faktori\[AAcute]lu, kter\ \[AAcute] pou\[ZHacek]\[IAcute]v\[AAcute] dv\[EHacek] \[CHacek]\[AAcute]sti. \ Jedna o\[SHacek]et\[RHacek]uje z\[AAcute]kladn\[IAcute] \ p\[RHacek]\[IAcute]pad faktori\[AAcute]lu nuly neboli \ ukon\[CHacek]ov\[AAcute]c\[IAcute] podm\[IAcute]nku a druh\[AAcute] \[CHacek]\ \[AAcute]st definuje rekurzi. \ \>", "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.5699125436959214`*^9, 3.5699126356021714`*^9}, 3.570789304765625*^9, 3.570790171921875*^9, 3.570790695359375*^9}, CellTags->{"Exercises", "Delayed Rules"}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"fac", "[", "0", "]"}], "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fac", "[", "n_", "]"}], ":=", RowBox[{"n", " ", RowBox[{"fac", "[", RowBox[{"n", "-", "1"}], "]"}]}]}]}], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.570789304765625*^9, 3.570790171921875*^9, 3.570790695359375*^9}, CellTags->{"Exercises", "Delayed Rules"}], Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"fac", "[", "m", "]"}], ",", RowBox[{"{", RowBox[{"m", ",", "10"}], "}"}]}], "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.570789304765625*^9, 3.570790171921875*^9, 3.570790695359375*^9}, CellTags->{"Exercises", "Delayed Rules"}], Cell["", "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.5699128940084214`*^9, 3.5699128988990464`*^9}, 3.570789304765625*^9, 3.570790171921875*^9, 3.570790695359375*^9}], Cell["\<\ V\[SHacek]imn\[EHacek]me si, \[ZHacek]e prvn\[IAcute] \[CHacek]\[AAcute]st je \ definov\[AAcute]na jako okam\[ZHacek]it\[EAcute] p\[RHacek]i\[RHacek]azen\ \[IAcute], zatimci druh\[AAcute] \[CHacek]\[AAcute]st jako odlo\[ZHacek]en\ \[EAcute] p\[RHacek]i\[RHacek]azen\[IAcute].\ \>", "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.5699126445240464`*^9, 3.5699126824615464`*^9}, 3.570789304765625*^9, 3.570790171921875*^9, 3.570790695359375*^9}, CellTags->{"Exercises", "Delayed Rules"}], Cell[TextData[{ StyleBox["\t\t\tVytvo\[RHacek]te mno\[ZHacek]inu \ substitu\[CHacek]n\[IAcute]ch pravidel a aplikujte je na v\[YAcute]raz pro v\ \[YAcute]po\[CHacek]et 10!. M\[EHacek]li by jste pracovat s opakuj\[IAcute]c\ \[IAcute] se substituc\[IAcute] neboli opakuj\[IAcute]c\[IAcute]m se \t\t\t\t\ aplikov\[AAcute]n\[IAcute]m substitu\[CHacek]n\[IAcute]ch pravidel (", "Text"], StyleBox[Cell[BoxData[ ButtonBox["ReplaceRepeated", BaseStyle->"Link", ButtonData->"paclet:ref/ReplaceRepeated"]], "Text"], "Text"], ", ", StyleBox["s kr\[AAcute]tkou notac\[IAcute] //.) stejn\[EHacek] tak jako s \ odlo\[ZHacek]en\[YAcute]mi pravidly (", "Text"], StyleBox[Cell[BoxData[ ButtonBox["RuleDelayed", BaseStyle->"Link", ButtonData->"paclet:ref/RuleDelayed"]], "Text"], "Text"], ", ", StyleBox["s kr\[AAcute]tkou notac\[IAcute] ", "Text"], StyleBox[":>).", "Text"] }], "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.5699127100552964`*^9, 3.5699128547740464`*^9}, 3.570789304765625*^9, 3.570790171921875*^9, 3.570790695359375*^9}, CellTags->{"Exercises", "Delayed Rules"}], Cell[BoxData[""], "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.5699128817896714`*^9, 3.570789304765625*^9, 3.570790171921875*^9, 3.570790695359375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["\tForm\[AAcute]tov\[AAcute]n\[IAcute] \[CHacek]\ \[IAcute]sel v tabulce", "Subsection"]], "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{{3.5699128915084214`*^9, 3.5699129107740464`*^9}, 3.570789313109375*^9, 3.570790171921875*^9, 3.57079070321875*^9}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[TextData[{ StyleBox["\t\t\tVyhodno\[THacek]te n\[AAcute]sleduj\[IAcute]c\[IAcute] dva \ vstupy, \[RHacek]e\[SHacek]\[IAcute]c\[IAcute] diferenci\[AAcute]ln\[IAcute] \ rovnici a zobrazte tabulku v\[YAcute]sledk\[URing]. Druh\[YAcute] sloupec v \ tabulce je form\[AAcute]tov\[AAcute]n s pou\[ZHacek]it\[IAcute]m \t\t\t\t\t", "Text"], StyleBox[Cell[BoxData[ ButtonBox["PaddedForm", BaseStyle->"Link", ButtonData->"paclet:ref/PaddedForm"]], "Text"], "Text"], " , ", StyleBox["tak\[ZHacek]e ka\[ZHacek]d\[AAcute] polo\[ZHacek]ka ve sloupci m\ \[AAcute] 4 \[CHacek]\[IAcute]slice napravo od desetinn\[EAcute] \[CHacek]\ \[AAcute]rky. ", "Text"] }], "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{{3.5699129273365464`*^9, 3.5699129278209214`*^9}, { 3.56991303478125*^9, 3.569913163453125*^9}, 3.570789313109375*^9, 3.570790171921875*^9, 3.57079070321875*^9}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"f", ",", "t"}], "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{3.570789313109375*^9, 3.570790171921875*^9, 3.57079070321875*^9}], Cell[BoxData[ RowBox[{"sol", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"f", "''"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"2", RowBox[{"f", "[", "t", "]"}]}], "-", "25"}]}], ",", RowBox[{ RowBox[{"f", "[", "0", "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"f", "[", "5", "]"}], "\[Equal]", "250"}]}], "}"}], ",", "f", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "5"}], "}"}]}], "]"}]}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{3.570789313109375*^9, 3.570790171921875*^9, 3.57079070321875*^9}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[BoxData[ RowBox[{"TableForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", RowBox[{"PaddedForm", "[", RowBox[{ RowBox[{ RowBox[{"f", "[", "t", "]"}], "/.", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"7", ",", "4"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0.0", ",", "5", ",", "0.5"}], "}"}]}], "]"}], "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{3.570789313109375*^9, 3.570790171921875*^9, 3.57079070321875*^9}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[TextData[StyleBox["\t\t\tZm\[EHacek]\[NHacek]te tabulku tak, \[ZHacek]e \ data v prvn\[IAcute]m sloupci jsou form\[AAcute]tov\[AAcute]na s jednou \ \[CHacek]\[IAcute]slic\[IAcute] napravo od desetinn\[EAcute] \[CHacek]\ \[AAcute]rky. V\[YAcute]sledn\[AAcute] tabulka by m\[EHacek]la vypadat jako \t\ \t\t\tn\[AAcute]sleduj\[IAcute]c\[IAcute] uk\[AAcute]zka. ", "Text"]], \ "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{{3.569913178234375*^9, 3.569913247359375*^9}, 3.570789313109375*^9, 3.570790171921875*^9, 3.57079070321875*^9}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[BoxData[ TagBox[GridBox[{ { TagBox[ InterpretationBox["\<\" 0.0\"\>", 0., AutoDelete->True], PaddedForm[#, {2, 1}]& ], TagBox[ InterpretationBox["\<\" 1.0000\"\>", 1., AutoDelete->True], PaddedForm[#, {7, 4}]& ]}, { TagBox[ InterpretationBox["\<\" 0.5\"\>", 0.5, AutoDelete->True], PaddedForm[#, {2, 1}]& ], TagBox[ InterpretationBox["\<\" 7.1394\"\>", 7.139364644075419, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}, { TagBox[ InterpretationBox["\<\" 1.0\"\>", 1., AutoDelete->True], PaddedForm[#, {2, 1}]& ], TagBox[ InterpretationBox["\<\" 10.4849\"\>", 10.484853694263533`, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}, { TagBox[ InterpretationBox["\<\" 1.5\"\>", 1.5, AutoDelete->True], PaddedForm[#, {2, 1}]& ], TagBox[ InterpretationBox["\<\" 12.7801\"\>", 12.78008125731648, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}, { TagBox[ InterpretationBox["\<\" 2.0\"\>", 2., AutoDelete->True], PaddedForm[#, {2, 1}]& ], TagBox[ InterpretationBox["\<\" 15.2213\"\>", 15.22128262914195, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}, { TagBox[ InterpretationBox["\<\" 2.5\"\>", 2.5, AutoDelete->True], PaddedForm[#, {2, 1}]& ], TagBox[ InterpretationBox["\<\" 19.0808\"\>", 19.080772200534383`, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}, { TagBox[ InterpretationBox["\<\" 3.0\"\>", 3., AutoDelete->True], PaddedForm[#, {2, 1}]& ], TagBox[ InterpretationBox["\<\" 26.3701\"\>", 26.37005304300143, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}, { TagBox[ InterpretationBox["\<\" 3.5\"\>", 3.5, AutoDelete->True], PaddedForm[#, {2, 1}]& ], TagBox[ InterpretationBox["\<\" 40.8882\"\>", 40.88817954909075, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}, { TagBox[ InterpretationBox["\<\" 4.0\"\>", 4., AutoDelete->True], PaddedForm[#, {2, 1}]& ], TagBox[ InterpretationBox["\<\" 70.2018\"\>", 70.20176272683099, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}, { TagBox[ InterpretationBox["\<\" 4.5\"\>", 4.5, AutoDelete->True], PaddedForm[#, {2, 1}]& ], TagBox[ InterpretationBox["\<\" 129.5886\"\>", 129.58856457786374`, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}, { TagBox[ InterpretationBox["\<\" 5.0\"\>", 5., AutoDelete->True], PaddedForm[#, {2, 1}]& ], TagBox[ InterpretationBox["\<\" 250.0000\"\>", 250.00001770713203`, AutoDelete->True], PaddedForm[#, {7, 4}]& ]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellGroupingRules->{GroupTogetherGrouping, 10001.}, ShowCellLabel->False, CellChangeTimes->{3.570789313109375*^9, 3.570790171921875*^9, 3.57079070321875*^9}, CellTags->{"Exercises", "Formatting Numbers"}], Cell["", "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{3.56991325765625*^9, 3.570789313109375*^9, 3.5707901719375*^9, 3.57079070321875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["\tProgramovac\[IAcute] styl", "Subsection"]], \ "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellChangeTimes->{{3.569913278625*^9, 3.569913289078125*^9}, 3.5707893238125*^9, 3.5707901719375*^9, 3.570790710921875*^9}, CellTags->{"Exercises", "Programming Style"}], Cell[TextData[StyleBox["\t\t\tVyhodno\[THacek] n\[AAcute]slduj\[IAcute]c\ \[IAcute] vstup a definujte data v seznamu p\[AAcute]r\[URing] \ prvk\[URing].", "Text"]], "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellChangeTimes->{{3.569913299546875*^9, 3.56991330953125*^9}, { 3.569913448703125*^9, 3.56991347103125*^9}, 3.5707893238125*^9, 3.5707901719375*^9, 3.570790710921875*^9}, CellTags->{"Exercises", "Programming Style"}], Cell[BoxData[ RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "y2"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "y3"}], "}"}], ",", RowBox[{"{", RowBox[{"x4", ",", "y4"}], "}"}], ",", RowBox[{"{", RowBox[{"x5", ",", "y5"}], "}"}]}], "}"}]}], ";"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellChangeTimes->{3.5707893238125*^9, 3.5707901719375*^9, 3.570790710921875*^9}, CellTags->{"Exercises", "Programming Style"}], Cell[TextData[{ StyleBox["\t\t\tN\[AAcute]sleduj\[IAcute]c\[IAcute] procedur\[AAcute]ln\ \[IAcute] program obr\[AAcute]t\[IAcute] pop\[RHacek]ad\[IAcute] prvk\[URing] \ v ka\[ZHacek]d\[EAcute]m p\[AAcute]ru. Vyhodno\[THacek]te tento vstup. \ Program nejd\[RHacek]\[IAcute]ve inicializuje seznam, do kter\[EAcute]ho \t\t\ \t\tnam\[IAcute]sto prvk\[URing] vlo\[ZHacek]\[IAcute] ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["Null", BaseStyle->"Link", ButtonData->"paclet:ref/Null"]], "Text"], "Text"], " ", StyleBox["a potom m\[IAcute]sto ka\[ZHacek]d\[EAcute] dvojice p\[RHacek]i\ \[RHacek]ad\[IAcute] na odpov\[IAcute]daj\[IAcute]c\[IAcute] m\[IAcute]sto \ obr\[AAcute]cenou dvojici (Reverse) ", "Text"] }], "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellChangeTimes->{{3.56991533353125*^9, 3.569915467328125*^9}, { 3.5699155625625*^9, 3.569915582046875*^9}, 3.5707893238125*^9, 3.5707901719375*^9, 3.570790710921875*^9}, CellTags->{"Exercises", "Programming Style"}], Cell[BoxData[{ RowBox[{ RowBox[{"result", "=", RowBox[{"Table", "[", RowBox[{"Null", ",", RowBox[{"{", RowBox[{"Length", "[", "data", "]"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"result", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"Reverse", "[", RowBox[{"data", "[", RowBox[{"[", "k", "]"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"Length", "[", "data", "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", "result"}], "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellChangeTimes->{3.570789323828125*^9, 3.5707901719375*^9, 3.570790710921875*^9}, CellTags->{"Exercises", "Programming Style"}], Cell[TextData[StyleBox["\t\t\tStejnou operaci provede n\[AAcute]sleduj\ \[IAcute]c\[IAcute] funkcion\[AAcute]ln\[IAcute] program", "Text"]], \ "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellChangeTimes->{{3.569915597265625*^9, 3.5699156263125*^9}, 3.570789323828125*^9, 3.5707901719375*^9, 3.570790710921875*^9}, CellTags->{"Exercises", "Programming Style"}], Cell[BoxData[ RowBox[{"Map", "[", RowBox[{"Reverse", ",", "data"}], "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellChangeTimes->{3.570789323828125*^9, 3.5707901719375*^9, 3.570790710921875*^9}, CellTags->{"Exercises", "Programming Style"}], Cell[TextData[StyleBox["\t\t\tA nakonec tot\[EAcute]\[ZHacek] provede n\ \[AAcute]sleduj\[IAcute]c\[IAcute] substitu\[CHacek]n\[IAcute] pravidlo", \ "Text"]], "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellChangeTimes->{{3.56991563240625*^9, 3.56991565625*^9}, 3.570789323828125*^9, 3.5707901719375*^9, 3.5707907109375*^9}, CellTags->{"Exercises", "Programming Style"}], Cell[BoxData[ RowBox[{"data", "/.", RowBox[{ RowBox[{"{", RowBox[{"p_", ",", "q_"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"q", ",", "p"}], "}"}]}]}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellChangeTimes->{3.570789323828125*^9, 3.5707901719375*^9, 3.5707907109375*^9}, CellTags->{"Exercises", "Programming Style"}], Cell[TextData[{ StyleBox["\t\t\tUpravte tyto programy tak, aby v\[YAcute]sledkem byl seznam \ prvn\[IAcute]ch prvk\[URing] v ka\[ZHacek]d\[EAcute]m p\[AAcute]ru tj. seznam \ ", "Text"], StyleBox[Cell[BoxData[ RowBox[{"{", RowBox[{"x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5"}], "}"}]], "Text"], "Text"], "." }], "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellChangeTimes->{{3.56991566140625*^9, 3.56991571684375*^9}, 3.570789323828125*^9, 3.5707901719375*^9, 3.5707907109375*^9}, CellTags->{"Exercises", "Programming Style"}], Cell["", "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellChangeTimes->{3.56991571953125*^9, 3.570789323828125*^9, 3.5707901719375*^9, 3.5707907109375*^9}], Cell[TextData[StyleBox["\t\t\tNyn\[IAcute] upravte tyto programy tak, aby vr\ \[AAcute]tily seznam sou\[CHacek]tu prvk\[URing] v ka\[ZHacek]d\[EAcute]m p\ \[AAcute]ru. ", "Text"]], "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellChangeTimes->{{3.569915725484375*^9, 3.569915760109375*^9}, 3.570789323828125*^9, 3.5707901719375*^9, 3.5707907109375*^9}, CellTags->{"Exercises", "Programming Style"}], Cell["", "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellChangeTimes->{3.569915762390625*^9, 3.570789323828125*^9, 3.5707901719375*^9, 3.5707907109375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["\tTrasov\[AAcute]n\[IAcute] procedur\[AAcute]ln\ \[IAcute]ho programu", "Subsection"]], "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellChangeTimes->{{3.56991576915625*^9, 3.56991578284375*^9}, 3.570789335984375*^9, 3.5707901719375*^9, 3.570790719171875*^9}, CellTags->{"Exercises", "Debugging a Program"}], Cell[TextData[StyleBox["\t\t\tVyhodno\[THacek]te n\[AAcute]sleduj\[IAcute]c\ \[IAcute] vstup, kter\[YAcute] definuje funkci f s matic\[IAcute] jako vstupn\ \[IAcute]m argumentem. Funkce vr\[AAcute]t\[IAcute] \[RHacek]\[AAcute]dek \ matice, jeho\[ZHacek] prvn\[IAcute] prvek m\[AAcute] nejv\[EHacek]t\[SHacek]\ \[IAcute] \t\t\t\tabsolutn\[IAcute] hodnotu ze v\[SHacek]ech prvn\[IAcute]ch \ prvk\[URing] v \[RHacek]\[AAcute]dce.", "Text"]], "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellChangeTimes->{{3.569915791140625*^9, 3.56991591990625*^9}, 3.570787675328125*^9, 3.570789335984375*^9, 3.5707901719375*^9, 3.570790719171875*^9}, CellTags->{"Exercises", "Debugging a Program"}], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "m_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "result", "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"result", "=", RowBox[{"m", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"m", "[", RowBox[{"[", RowBox[{"k", ",", "1"}], "]"}], "]"}], "]"}], ">", RowBox[{"Abs", "[", RowBox[{"result", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"result", "=", RowBox[{"m", "[", RowBox[{"[", "k", "]"}], "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"k", ",", "2", ",", RowBox[{"Length", "[", "m", "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "result"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", WholeCellGroupOpener->True, CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellChangeTimes->{3.570789335984375*^9, 3.5707901719375*^9, 3.570790719171875*^9}, CellTags->{"Exercises", "Debugging a Program"}], Cell[TextData[{ StyleBox["\t\t\tVyhodno\[THacek]te n\[AAcute]sleduj\[IAcute]c\[IAcute] vstup \ a v\[SHacek]imn\[EHacek]te si, \[ZHacek]e program ned\[EHacek]l\[AAcute] p\ \[RHacek]esn\[EHacek] to, co m\[AAcute]. Vrac\[IAcute] sice po\[ZHacek]adovan\ \[YAcute] \[RHacek]\[AAcute]dek, ale ka\[ZHacek]d\[YAcute] prvek je vyn\ \[AAcute]soben ", "Text"], StyleBox[Cell[BoxData[ ButtonBox["Null", BaseStyle->"Link", ButtonData->"paclet:ref/Null"]], "Text"], "Text"], ", ", StyleBox["a \t\t\t\[RHacek]\[AAcute]dek uzav\[RHacek]en jako seznam.", "Text"] }], "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellChangeTimes->{{3.56991592828125*^9, 3.56991603978125*^9}, 3.570789335984375*^9, 3.5707901719375*^9, 3.570790719171875*^9}, CellTags->{"Exercises", "Debugging a Program"}], Cell[BoxData[ RowBox[{"f", "[", RowBox[{"(", GridBox[{ {"1", "4", "7"}, {"9", "1", "8"}, {"4", "6", "1"}, {"11", "5", "8"}, {"6", "1", "1"} }], ")"}], "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellChangeTimes->{3.570789335984375*^9, 3.5707901719375*^9, 3.570790719171875*^9}, CellTags->{"Exercises", "Debugging a Program"}], Cell[TextData[{ StyleBox["\t\t\tOpravte definici funkce tak, aby jste popsan\[EAcute] dv\ \[EHacek] chyby odstranili. V\[YAcute]sledek na pou\[ZHacek]it\[EAcute] \ matici by m\[EHacek]l b\[YAcute]t ", "Text"], StyleBox[Cell[BoxData[ RowBox[{"{", RowBox[{"11", ",", "5", ",", "8"}], "}"}]], "Text"], "Text"], "." }], "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellChangeTimes->{{3.569916113859375*^9, 3.569916156875*^9}, { 3.569916278453125*^9, 3.569916278984375*^9}, 3.570789335984375*^9, 3.5707901719375*^9, 3.570790719171875*^9}, CellTags->{"Exercises", "Debugging a Program"}] }, Open ]], Cell["", "NonPrintButton", CellChangeTimes->{3.56991611165625*^9, 3.570789335984375*^9, 3.5707901719375*^9}], Cell["", "Spacer", CellChangeTimes->{3.570789335984375*^9, 3.5707901719375*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->{"SlideShowHeader", "Exercises"}], Cell[TextData[StyleBox["\tZ\[AAcute]v\[EHacek]re\[CHacek]n\[YAcute] \ \[UAcute]klid", "Section"]], "NonPrintSection", CellChangeTimes->{{3.569916170640625*^9, 3.569916180125*^9}, { 3.57079186103125*^9, 3.570791883828125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", "\"\\"", "]"}], ";"}]], "Input", CellChangeTimes->{{3.569916216515625*^9, 3.569916236125*^9}}], Cell[BoxData[ RowBox[{"\t\t\t\t\t\t\t", StyleBox[ RowBox[{ RowBox[{"$Line", "=", "0"}], ";"}], "Input"]}]], "NonPrintInput", InitializationCell->True, CellChangeTimes->{ 3.56991609453125*^9, {3.569916247953125*^9, 3.569916271453125*^9}}] }, Open ]] }, ScreenStyleEnvironment->"SlideShow", ShowPageBreaks->False, WindowSize->{1912, 1058}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, ShowSelection->True, ShowGroupOpener->False, TaggingRules->{"SlideShow" -> True}, FrontEndVersion->"9.0 for Microsoft Windows (32-bit) (November 20, 2012)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"SlideShow"}, "Steel.nb", CharacterEncoding -> "WindowsEastEurope"]]], Cell[ BoxData[""], "Input", CellChangeTimes -> {{3.57089325865625*^9, 3.570893267890625*^9}}], Cell["", "Text", CellChangeTimes -> {{3.57089312309375*^9, 3.57089312521875*^9}}]}, Visible -> False, FrontEndVersion -> "9.0 for Microsoft Windows (32-bit) (November 20, 2012)", StyleDefinitions -> FrontEnd`FileName[{"SlideShow"}, "Steel.nb", CharacterEncoding -> "WindowsEastEurope"]] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "SlideShowHeader"->{ Cell[579, 22, 4290, 95, 0, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[5896, 155, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[8440, 231, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[9830, 274, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[11374, 324, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[15266, 438, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[17847, 523, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[22964, 658, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[27797, 788, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[29751, 852, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[34142, 972, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[41841, 1186, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[44577, 1294, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[47995, 1399, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[51907, 1509, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[58402, 1700, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[60807, 1784, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[63025, 1850, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[68950, 2015, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[75414, 2207, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[85517, 2473, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[93938, 2734, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[100599, 2945, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[104885, 3080, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[106516, 3139, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[109265, 3218, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[117801, 3477, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[136637, 3936, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[141134, 4063, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[146893, 4236, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[152459, 4412, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[153577, 4442, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[160700, 4632, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[177993, 5111, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[241464, 6796, 79, 1, 1, "SlideShowNavigationBar", CellTags->{"SlideShowHeader", "Exercises"}]}, "Overview"->{ Cell[8629, 237, 427, 10, 58, "Text", CellTags->"Overview"], Cell[9081, 251, 195, 3, 57, "Item", CellTags->"Overview"], Cell[9279, 256, 155, 2, 57, "Item", CellTags->"Overview"], Cell[9437, 260, 161, 2, 57, "Item", CellTags->"Overview"], Cell[9601, 264, 180, 4, 57, "Item", CellTags->"Overview"]}, "Assignments and Definitions"->{ Cell[9919, 279, 170, 2, 170, "Section", CellTags->"Assignments and Definitions"], Cell[10092, 283, 255, 4, 51, "OverviewSubsection", CellTags->"Assignments and Definitions"], Cell[10350, 289, 230, 5, 57, "Text", CellTags->"Assignments and Definitions"], Cell[10605, 298, 321, 6, 57, "Item", CellTags->"Assignments and Definitions"], Cell[10929, 306, 138, 2, 57, "Item", CellTags->"Assignments and Definitions"], Cell[11070, 310, 221, 5, 57, "Item", CellTags->"Assignments and Definitions"], Cell[11463, 329, 246, 6, 157, "Subsection", CellTags->"Assignments and Definitions"], Cell[11712, 337, 262, 5, 57, "Text", CellTags->"Assignments and Definitions"], Cell[11977, 344, 424, 10, 56, "MathCaption", CellTags->"Assignments and Definitions"], Cell[12404, 356, 91, 2, 45, "Input", CellTags->"Assignments and Definitions"], Cell[12498, 360, 540, 13, 56, "MathCaption", CellTags->"Assignments and Definitions"], Cell[13041, 375, 163, 5, 45, "Input", CellTags->"Assignments and Definitions"], Cell[13207, 382, 764, 11, 84, "MathCaption", CellTags->"Assignments and Definitions"], Cell[13974, 395, 67, 1, 45, "Input", CellTags->"Assignments and Definitions"], Cell[14044, 398, 287, 4, 55, "MathCaption", CellTags->"Assignments and Definitions"], Cell[14334, 404, 163, 5, 45, "Input", CellTags->"Assignments and Definitions"], Cell[15355, 443, 259, 6, 157, "Subsection", CellTags->"Assignments and Definitions"], Cell[15617, 451, 220, 5, 57, "Text", CellTags->"Assignments and Definitions"], Cell[15840, 458, 174, 5, 45, "Input", CellTags->"Assignments and Definitions"], Cell[16017, 465, 276, 4, 55, "MathCaption", CellTags->"Assignments and Definitions"], Cell[16296, 471, 292, 6, 45, "Input", CellTags->"Assignments and Definitions"], Cell[16591, 479, 697, 20, 89, "Text", CellTags->"Assignments and Definitions"], Cell[17291, 501, 485, 14, 58, "Text", CellTags->"Assignments and Definitions"], Cell[17936, 528, 325, 7, 157, "Subsection", CellTags->"Assignments and Definitions"], Cell[18264, 537, 344, 10, 58, "Text", CellTags->"Assignments and Definitions"], Cell[18633, 551, 758, 17, 87, "Item", CellTags->"Assignments and Definitions"], Cell[19394, 570, 772, 18, 86, "Item", CellTags->"Assignments and Definitions"], Cell[20181, 591, 938, 13, 84, "MathCaption", CellTags->"Assignments and Definitions"], Cell[21122, 606, 127, 3, 45, "Input", CellTags->"Assignments and Definitions"], Cell[21252, 611, 128, 3, 45, "Input", CellTags->"Assignments and Definitions"], Cell[21383, 616, 688, 10, 84, "MathCaption", CellTags->"Assignments and Definitions"], Cell[22074, 628, 151, 4, 45, "Input", CellTags->"Assignments and Definitions"], Cell[22228, 634, 151, 4, 45, "Input", CellTags->"Assignments and Definitions"], Cell[22382, 640, 357, 5, 55, "MathCaption", CellTags->"Assignments and Definitions"], Cell[22742, 647, 151, 3, 45, "Input", CellTags->"Assignments and Definitions"], Cell[23053, 663, 317, 7, 157, "Subsection", CellTags->"Assignments and Definitions"], Cell[23373, 672, 513, 9, 86, "Text", CellTags->"Assignments and Definitions"], Cell[23889, 683, 536, 9, 86, "Text", CellTags->"Assignments and Definitions"], Cell[24428, 694, 551, 9, 86, "Text", CellTags->"Assignments and Definitions"], Cell[24982, 705, 781, 11, 84, "MathCaption", CellTags->"Assignments and Definitions"], Cell[25766, 718, 263, 8, 50, "Input", CellTags->"Assignments and Definitions"], Cell[26032, 728, 363, 6, 55, "MathCaption", CellTags->"Assignments and Definitions"], Cell[26398, 736, 265, 8, 50, "Input", CellTags->"Assignments and Definitions"], Cell[26666, 746, 97, 2, 45, "Input", CellTags->"Assignments and Definitions"], Cell[26766, 750, 124, 3, 45, "Input", CellTags->"Assignments and Definitions"]}, "Procedural Programming"->{ Cell[27886, 793, 174, 2, 170, "Section", CellTags->"Procedural Programming"], Cell[28063, 797, 222, 3, 51, "OverviewSubsection", CellTags->"Procedural Programming"], Cell[28288, 802, 258, 5, 57, "Text", CellTags->"Procedural Programming"], Cell[28571, 811, 216, 3, 57, "Item", CellTags->"Procedural Programming"], Cell[28790, 816, 166, 2, 57, "Item", CellTags->"Procedural Programming"], Cell[28959, 820, 395, 13, 58, "Item", CellTags->"Procedural Programming"], Cell[29357, 835, 311, 8, 58, "Item", CellTags->"Procedural Programming"], Cell[29840, 857, 265, 7, 157, "Subsection", CellTags->"Procedural Programming"], Cell[30108, 866, 489, 8, 86, "Text", CellTags->"Procedural Programming"], Cell[30600, 876, 709, 10, 84, "MathCaption", CellTags->"Procedural Programming"], Cell[31312, 888, 304, 8, 104, "Input", CellTags->"Procedural Programming"], Cell[31768, 903, 865, 18, 117, "Text", CellTags->"Procedural Programming"], Cell[33010, 936, 498, 10, 56, "MathCaption", CellTags->"Procedural Programming"], Cell[33511, 948, 466, 12, 133, "Input", CellTags->"Procedural Programming"], Cell[33980, 962, 91, 2, 45, "Input", CellTags->"Procedural Programming"], Cell[34231, 977, 270, 4, 157, "Subsection", CellTags->"Procedural Programming"], Cell[34504, 983, 861, 25, 89, "Text", CellTags->"Procedural Programming"], Cell[39635, 1112, 658, 19, 56, "MathCaption", CellTags->"Procedural Programming"], Cell[40296, 1133, 159, 4, 45, "Input", CellTags->"Procedural Programming"], Cell[40458, 1139, 197, 6, 45, "Input", CellTags->"Procedural Programming"], Cell[40658, 1147, 301, 4, 55, "MathCaption", CellTags->"Procedural Programming"], Cell[40962, 1153, 189, 5, 45, "Input", CellTags->"Procedural Programming"], Cell[41154, 1160, 101, 2, 45, "Input", CellTags->"Procedural Programming"], Cell[41930, 1191, 351, 9, 157, "Subsection", CellTags->"Procedural Programming"], Cell[42284, 1202, 264, 5, 57, "Text", CellTags->"Procedural Programming"], Cell[42573, 1211, 298, 8, 58, "Item", CellTags->"Procedural Programming"], Cell[42874, 1221, 239, 9, 58, "Subitem", CellTags->"Procedural Programming"], Cell[43116, 1232, 123, 2, 57, "Item", CellTags->"Procedural Programming"], Cell[43242, 1236, 567, 23, 58, "Subitem", CellTags->"Procedural Programming"], Cell[43812, 1261, 244, 5, 57, "Item", CellTags->"Procedural Programming"], Cell[44059, 1268, 435, 17, 58, "Subitem", CellTags->"Procedural Programming"], Cell[44666, 1299, 363, 9, 157, "Subsection", CellTags->"Procedural Programming"], Cell[45032, 1310, 436, 11, 87, "Text", CellTags->"Procedural Programming"], Cell[45471, 1323, 436, 13, 133, "Input", CellTags->"Procedural Programming"], Cell[46036, 1342, 411, 6, 84, "MathCaption", CellTags->"Procedural Programming"], Cell[46450, 1350, 496, 14, 162, "Input", CellTags->"Procedural Programming"], Cell[46949, 1366, 401, 9, 56, "MathCaption", CellTags->"Procedural Programming"], Cell[47353, 1377, 92, 2, 45, "Input", CellTags->"Procedural Programming"], Cell[47448, 1381, 340, 5, 55, "MathCaption", CellTags->"Procedural Programming"], Cell[47791, 1388, 133, 3, 45, "Input", CellTags->"Procedural Programming"], Cell[48084, 1404, 343, 9, 157, "Subsection", CellTags->"Procedural Programming"], Cell[48430, 1415, 275, 5, 57, "Text", CellTags->"Procedural Programming"], Cell[48708, 1422, 389, 6, 55, "MathCaption", CellTags->"Procedural Programming"], Cell[49100, 1430, 496, 14, 162, "Input", CellTags->"Procedural Programming"], Cell[49599, 1446, 436, 6, 55, "MathCaption", CellTags->"Procedural Programming"], Cell[50038, 1454, 757, 20, 191, "Input", CellTags->"Procedural Programming"], Cell[50798, 1476, 449, 7, 55, "MathCaption", CellTags->"Procedural Programming"], Cell[51250, 1485, 92, 2, 45, "Input", CellTags->"Procedural Programming"], Cell[51345, 1489, 91, 2, 45, "Input", CellTags->"Procedural Programming"], Cell[51439, 1493, 299, 4, 55, "MathCaption", CellTags->"Procedural Programming"], Cell[51741, 1499, 95, 2, 45, "Input", CellTags->"Procedural Programming"], Cell[51996, 1514, 332, 9, 157, "Subsection", CellTags->"Procedural Programming"], Cell[52331, 1525, 686, 13, 87, "Text", CellTags->"Procedural Programming"], Cell[53020, 1540, 591, 8, 84, "MathCaption", CellTags->"Procedural Programming"], Cell[53614, 1550, 496, 14, 162, "Input", CellTags->"Procedural Programming"], Cell[54113, 1566, 628, 16, 87, "Text", CellTags->"Procedural Programming"], Cell[55095, 1595, 488, 12, 56, "MathCaption", CellTags->"Procedural Programming"], Cell[55586, 1609, 569, 16, 162, "Input", CellTags->"Procedural Programming"], Cell[56158, 1627, 400, 6, 55, "MathCaption", CellTags->"Procedural Programming"], Cell[56561, 1635, 92, 2, 45, "Input", CellTags->"Procedural Programming"], Cell[56656, 1639, 91, 2, 45, "Input", CellTags->"Procedural Programming"], Cell[56750, 1643, 69, 1, 45, "Input", CellTags->"Procedural Programming"], Cell[56822, 1646, 325, 8, 58, "Text", CellTags->"Procedural Programming"], Cell[57150, 1656, 420, 10, 58, "Text", CellTags->"Procedural Programming"], Cell[57573, 1668, 263, 4, 55, "MathCaption", CellTags->"Procedural Programming"], Cell[57839, 1674, 123, 3, 45, "Input", CellTags->"Procedural Programming"]}, "Functional Programming"->{ Cell[58491, 1705, 224, 3, 170, "Section", CellTags->"Functional Programming"], Cell[58718, 1710, 198, 3, 51, "OverviewSubsection", CellTags->"Functional Programming"], Cell[58919, 1715, 246, 5, 57, "Text", CellTags->"Functional Programming"], Cell[59190, 1724, 193, 4, 57, "Item", CellTags->"Functional Programming"], Cell[59386, 1730, 471, 18, 58, "Item", CellTags->"Functional Programming"], Cell[59860, 1750, 218, 5, 57, "Item", CellTags->"Functional Programming"], Cell[60081, 1757, 174, 2, 57, "Item", CellTags->"Functional Programming"], Cell[60896, 1789, 354, 10, 157, "Subsection", CellTags->"Functional Programming"], Cell[61253, 1801, 551, 10, 86, "Text", CellTags->"Functional Programming"], Cell[61807, 1813, 317, 5, 55, "MathCaption", CellTags->"Functional Programming"], Cell[62127, 1820, 304, 8, 104, "Input", CellTags->"Functional Programming"], Cell[62434, 1830, 329, 5, 55, "MathCaption", CellTags->"Functional Programming"], Cell[62766, 1837, 188, 5, 45, "Input", CellTags->"Functional Programming"], Cell[63114, 1855, 351, 10, 157, "Subsection", CellTags->"Functional Programming"], Cell[63468, 1867, 281, 6, 57, "Text", CellTags->"Functional Programming"], Cell[63752, 1875, 827, 12, 84, "MathCaption", CellTags->"Functional Programming"], Cell[64582, 1889, 214, 7, 71, "Input", CellTags->"Functional Programming"], Cell[64799, 1898, 98, 2, 45, "Input", CellTags->"Functional Programming"], Cell[64900, 1902, 304, 4, 55, "MathCaption", CellTags->"Functional Programming"], Cell[65207, 1908, 130, 3, 45, "Input", CellTags->"Functional Programming"], Cell[65340, 1913, 251, 4, 55, "MathCaption", CellTags->"Functional Programming"], Cell[65594, 1919, 163, 4, 45, "Input", CellTags->"Functional Programming"], Cell[65760, 1925, 759, 16, 85, "MathCaption", CellTags->"Functional Programming"], Cell[66522, 1943, 150, 4, 45, "Input", CellTags->"Functional Programming"], Cell[66675, 1949, 457, 11, 56, "MathCaption", CellTags->"Functional Programming"], Cell[67135, 1962, 134, 3, 45, "Input", CellTags->"Functional Programming"], Cell[67272, 1967, 339, 5, 55, "MathCaption", CellTags->"Functional Programming"], Cell[67614, 1974, 139, 3, 45, "Input", CellTags->"Functional Programming"], Cell[67756, 1979, 1123, 28, 117, "Text", CellTags->"Functional Programming"], Cell[69039, 2020, 328, 10, 160, "Subsection", CellTags->"Functional Programming"], Cell[69370, 2032, 602, 18, 59, "Text", CellTags->"Functional Programming"], Cell[69975, 2052, 461, 11, 56, "MathCaption", CellTags->"Functional Programming"], Cell[70439, 2065, 247, 7, 45, "Input", CellTags->"Functional Programming"], Cell[70689, 2074, 568, 11, 56, "MathCaption", CellTags->"Functional Programming"], Cell[71260, 2087, 180, 5, 45, "Input", CellTags->"Functional Programming"], Cell[71443, 2094, 150, 4, 45, "Input", CellTags->"Functional Programming"], Cell[71596, 2100, 556, 12, 87, "Text", CellTags->"Functional Programming"], Cell[72155, 2114, 513, 11, 55, "MathCaption", CellTags->"Functional Programming"], Cell[72671, 2127, 261, 8, 50, "Input", CellTags->"Functional Programming"], Cell[72935, 2137, 285, 4, 55, "MathCaption", CellTags->"Functional Programming"], Cell[73223, 2143, 271, 8, 45, "Input", CellTags->"Functional Programming"], Cell[73601, 2156, 496, 10, 56, "MathCaption", CellTags->"Functional Programming"], Cell[74100, 2168, 340, 8, 45, "Input", CellTags->"Functional Programming"], Cell[74443, 2178, 528, 12, 58, "Text", CellTags->"Functional Programming"], Cell[74974, 2192, 304, 4, 55, "MathCaption", CellTags->"Functional Programming"], Cell[75281, 2198, 62, 1, 45, "Input", CellTags->"Functional Programming"], Cell[75503, 2212, 316, 9, 160, "Subsection", CellTags->"Functional Programming"], Cell[75822, 2223, 474, 14, 58, "Text", CellTags->"Functional Programming"], Cell[76299, 2239, 328, 6, 57, "Text", CellTags->"Functional Programming"], Cell[84211, 2430, 659, 14, 85, "MathCaption", CellTags->"Functional Programming"], Cell[84873, 2446, 179, 5, 45, "Input", CellTags->"Functional Programming"], Cell[85055, 2453, 187, 5, 45, "Input", CellTags->"Functional Programming"], Cell[85245, 2460, 201, 5, 45, "Input", CellTags->"Functional Programming"], Cell[85606, 2478, 325, 9, 160, "Subsection", CellTags->"Functional Programming"], Cell[85934, 2489, 858, 18, 88, "Text", CellTags->"Functional Programming"], Cell[87128, 2523, 578, 18, 87, "Text", CellTags->"Functional Programming"], Cell[87709, 2543, 801, 20, 85, "MathCaption", CellTags->"Functional Programming"], Cell[88513, 2565, 152, 4, 45, "Input", CellTags->"Functional Programming"], Cell[88668, 2571, 154, 4, 45, "Input", CellTags->"Functional Programming"], Cell[89472, 2599, 497, 7, 55, "MathCaption", CellTags->"Functional Programming"], Cell[89972, 2608, 324, 11, 45, "Input", CellTags->"Functional Programming"], Cell[90438, 2625, 594, 19, 56, "MathCaption", CellTags->"Functional Programming"], Cell[91035, 2646, 100, 2, 45, "Input", CellTags->"Functional Programming"], Cell[91138, 2650, 100, 2, 45, "Input", CellTags->"Functional Programming"], Cell[91241, 2654, 96, 2, 45, "Input", CellTags->"Functional Programming"], Cell[91340, 2658, 355, 5, 55, "MathCaption", CellTags->"Functional Programming"], Cell[91698, 2665, 161, 3, 45, "Input", CellTags->"Functional Programming"], Cell[92370, 2686, 318, 5, 55, "MathCaption", CellTags->"Functional Programming"], Cell[92691, 2693, 371, 10, 50, "Input", CellTags->"Functional Programming"], Cell[93065, 2705, 282, 4, 55, "MathCaption", CellTags->"Functional Programming"], Cell[93350, 2711, 117, 3, 45, "Input", CellTags->"Functional Programming"], Cell[93470, 2716, 308, 6, 57, "Text", CellTags->"Functional Programming"], Cell[94027, 2739, 335, 10, 160, "Subsection", CellTags->"Functional Programming"], Cell[94365, 2751, 469, 15, 58, "Text", CellTags->"Functional Programming"], Cell[94837, 2768, 369, 13, 59, "Text", CellTags->"Functional Programming"], Cell[95750, 2800, 427, 11, 56, "MathCaption", CellTags->"Functional Programming"], Cell[96180, 2813, 205, 6, 45, "Input", CellTags->"Functional Programming"], Cell[96388, 2821, 1144, 30, 86, "MathCaption", CellTags->"Functional Programming"], Cell[97535, 2853, 307, 8, 45, "Input", CellTags->"Functional Programming"], Cell[97845, 2863, 391, 6, 55, "MathCaption", CellTags->"Functional Programming"], Cell[98239, 2871, 263, 7, 45, "Input", CellTags->"Functional Programming"], Cell[100688, 2950, 312, 9, 160, "Subsection", CellTags->"Functional Programming"], Cell[101003, 2961, 416, 7, 86, "Text", CellTags->"Functional Programming"], Cell[101422, 2970, 382, 6, 69, "MathCaption", CellTags->"Functional Programming"], Cell[101807, 2978, 425, 13, 75, "Input", CellTags->"Functional Programming"], Cell[102413, 2999, 662, 14, 70, "MathCaption", CellTags->"Functional Programming"], Cell[103078, 3015, 541, 17, 162, "Input", CellTags->"Functional Programming"], Cell[103622, 3034, 335, 7, 69, "MathCaption", CellTags->"Functional Programming"], Cell[103960, 3043, 120, 3, 45, "Input", CellTags->"Functional Programming"], Cell[104336, 3056, 125, 3, 45, "Input", CellTags->"Functional Programming"]}, "Programming with Rules"->{ Cell[104974, 3085, 172, 2, 173, "Section", CellTags->"Programming with Rules"], Cell[105149, 3089, 235, 6, 51, "OverviewSubsection", CellTags->"Programming with Rules"], Cell[105387, 3097, 213, 5, 57, "Text", CellTags->"Programming with Rules"], Cell[105625, 3106, 352, 9, 58, "Item", CellTags->"Programming with Rules"], Cell[105980, 3117, 183, 4, 57, "Item", CellTags->"Programming with Rules"], Cell[106166, 3123, 172, 4, 57, "Item", CellTags->"Programming with Rules"], Cell[106605, 3144, 284, 8, 160, "Subsection", CellTags->"Programming with Rules"], Cell[109354, 3223, 347, 9, 160, "Subsection", CellTags->"Programming with Rules"], Cell[109704, 3234, 451, 8, 86, "Text", CellTags->"Programming with Rules"], Cell[110158, 3244, 86, 2, 45, "Input", CellTags->"Programming with Rules"], Cell[110247, 3248, 127, 4, 45, "Input", CellTags->"Programming with Rules"], Cell[110499, 3258, 500, 9, 86, "Text", CellTags->"Programming with Rules"], Cell[111002, 3269, 528, 17, 88, "Text", CellTags->"Programming with Rules"], Cell[111533, 3288, 755, 21, 56, "MathCaption", CellTags->"Programming with Rules"], Cell[112291, 3311, 95, 2, 45, "Input", CellTags->"Programming with Rules"], Cell[112389, 3315, 222, 7, 45, "Input", CellTags->"Programming with Rules"], Cell[113327, 3350, 467, 11, 56, "MathCaption", CellTags->"Programming with Rules"], Cell[113797, 3363, 182, 6, 45, "Input", CellTags->"Programming with Rules"], Cell[114356, 3384, 308, 5, 55, "MathCaption", CellTags->"Programming with Rules"], Cell[114667, 3391, 81, 2, 45, "Input", CellTags->"Programming with Rules"], Cell[114751, 3395, 602, 12, 55, "MathCaption", CellTags->"Programming with Rules"], Cell[115356, 3409, 341, 10, 75, "Input", CellTags->"Programming with Rules"], Cell[115839, 3425, 389, 6, 55, "MathCaption", CellTags->"Programming with Rules"], Cell[116231, 3433, 320, 9, 45, "Input", CellTags->"Programming with Rules"], Cell[116554, 3444, 292, 4, 55, "MathCaption", CellTags->"Programming with Rules"], Cell[116849, 3450, 197, 4, 45, "Input", CellTags->"Programming with Rules"], Cell[117049, 3456, 618, 10, 86, "Text", CellTags->"Programming with Rules"], Cell[117890, 3482, 270, 8, 160, "Subsection", CellTags->"Programming with Rules"], Cell[118163, 3492, 446, 9, 58, "Text", CellTags->"Programming with Rules"], Cell[118612, 3503, 652, 15, 56, "MathCaption", CellTags->"Programming with Rules"], Cell[119267, 3520, 161, 5, 67, "Input", CellTags->"Programming with Rules"], Cell[128913, 3693, 632, 13, 87, "Text", CellTags->"Programming with Rules"], Cell[131684, 3768, 85, 2, 45, "Input", CellTags->"Programming with Rules"], Cell[131772, 3772, 298, 9, 59, "Item", CellTags->"Programming with Rules"], Cell[132073, 3783, 318, 9, 45, "Input", CellTags->"Programming with Rules"], Cell[132416, 3796, 383, 9, 58, "Item", CellTags->"Programming with Rules"], Cell[132802, 3807, 390, 11, 58, "Item", CellTags->"Programming with Rules"], Cell[133207, 3821, 322, 9, 45, "Input", CellTags->"Programming with Rules"], Cell[133532, 3832, 797, 23, 90, "Item", CellTags->"Programming with Rules"], Cell[134332, 3857, 381, 11, 45, "Input", CellTags->"Programming with Rules"], Cell[134951, 3876, 349, 10, 45, "Input", CellTags->"Programming with Rules"], Cell[135303, 3888, 364, 9, 58, "Item", CellTags->"Programming with Rules"], Cell[135670, 3899, 369, 11, 45, "Input", CellTags->"Programming with Rules"], Cell[136148, 3918, 418, 10, 57, "Text", CellTags->"Programming with Rules"], Cell[136726, 3941, 377, 9, 160, "Subsection", CellTags->"Programming with Rules"], Cell[137106, 3952, 433, 8, 86, "Text", CellTags->"Programming with Rules"], Cell[137542, 3962, 416, 6, 55, "MathCaption", CellTags->"Programming with Rules"], Cell[138684, 3991, 417, 6, 55, "MathCaption", CellTags->"Programming with Rules"], Cell[139165, 4002, 569, 17, 133, "Input", CellTags->"Programming with Rules"], Cell[139737, 4021, 668, 13, 85, "MathCaption", CellTags->"Programming with Rules"], Cell[140408, 4036, 92, 2, 45, "Input", CellTags->"Programming with Rules"], Cell[140503, 4040, 352, 5, 55, "MathCaption", CellTags->"Programming with Rules"], Cell[140858, 4047, 93, 2, 45, "Input", CellTags->"Programming with Rules"], Cell[141001, 4054, 62, 1, 45, "Input", CellTags->"Programming with Rules"], Cell[141223, 4068, 302, 8, 160, "Subsection", CellTags->"Programming with Rules"], Cell[141528, 4078, 517, 9, 86, "Text", CellTags->"Programming with Rules"], Cell[142048, 4089, 719, 18, 56, "MathCaption", CellTags->"Programming with Rules"], Cell[142770, 4109, 254, 8, 45, "Input", CellTags->"Programming with Rules"], Cell[143027, 4119, 289, 4, 55, "MathCaption", CellTags->"Programming with Rules"], Cell[143319, 4125, 269, 8, 45, "Input", CellTags->"Programming with Rules"], Cell[143591, 4135, 567, 13, 56, "MathCaption", CellTags->"Programming with Rules"], Cell[144161, 4150, 275, 8, 45, "Input", CellTags->"Programming with Rules"], Cell[144439, 4160, 265, 4, 55, "MathCaption", CellTags->"Programming with Rules"], Cell[144707, 4166, 293, 9, 45, "Input", CellTags->"Programming with Rules"], Cell[145003, 4177, 377, 5, 55, "MathCaption", CellTags->"Programming with Rules"], Cell[145383, 4184, 387, 13, 45, "Input", CellTags->"Programming with Rules"], Cell[145773, 4199, 356, 5, 55, "MathCaption", CellTags->"Programming with Rules"], Cell[146132, 4206, 447, 15, 45, "Input", CellTags->"Programming with Rules"], Cell[146582, 4223, 240, 5, 57, "Text", CellTags->"Programming with Rules"], Cell[146982, 4241, 287, 8, 160, "Subsection", CellTags->"Programming with Rules"], Cell[147272, 4251, 320, 6, 57, "Text", CellTags->"Programming with Rules"], Cell[147595, 4259, 302, 4, 55, "MathCaption", CellTags->"Programming with Rules"], Cell[147900, 4265, 190, 6, 47, "Input", CellTags->"Programming with Rules"], Cell[148093, 4273, 91, 2, 45, "Input", CellTags->"Programming with Rules"], Cell[148187, 4277, 109, 3, 45, "Input", CellTags->"Programming with Rules"], Cell[148299, 4282, 756, 19, 56, "MathCaption", CellTags->"Programming with Rules"], Cell[149058, 4303, 229, 7, 45, "Input", CellTags->"Programming with Rules"], Cell[149290, 4312, 428, 12, 55, "MathCaption", CellTags->"Programming with Rules"], Cell[149721, 4326, 228, 7, 45, "Input", CellTags->"Programming with Rules"], Cell[150312, 4342, 234, 7, 45, "Input", CellTags->"Programming with Rules"], Cell[152267, 4401, 121, 3, 45, "Input", CellTags->"Programming with Rules"]}, "Comparing Programming Styles"->{ Cell[152548, 4417, 188, 2, 173, "Section", CellTags->"Comparing Programming Styles"], Cell[152739, 4421, 194, 2, 51, "OverviewSubsection", CellTags->"Comparing Programming Styles"], Cell[152936, 4425, 570, 9, 86, "Text", CellTags->"Comparing Programming Styles"], Cell[153666, 4447, 241, 4, 160, "Subsection", CellTags->"Comparing Programming Styles"], Cell[153910, 4453, 659, 10, 86, "Text", CellTags->"Comparing Programming Styles"], Cell[154572, 4465, 409, 7, 57, "Text", CellTags->"Comparing Programming Styles"], Cell[154984, 4474, 333, 4, 55, "MathCaption", CellTags->"Comparing Programming Styles"], Cell[155320, 4480, 725, 23, 45, "Input", CellTags->"Comparing Programming Styles"], Cell[156048, 4505, 768, 11, 113, "MathCaption", CellTags->"Comparing Programming Styles"], Cell[156819, 4518, 792, 24, 133, "Input", CellTags->"Comparing Programming Styles"], Cell[157614, 4544, 455, 11, 56, "MathCaption", CellTags->"Comparing Programming Styles"], Cell[158072, 4557, 411, 13, 45, "Input", CellTags->"Comparing Programming Styles"], Cell[158486, 4572, 356, 5, 55, "MathCaption", CellTags->"Comparing Programming Styles"], Cell[158845, 4579, 130, 3, 45, "Input", CellTags->"Comparing Programming Styles"], Cell[158978, 4584, 519, 10, 79, "MathCaption", CellTags->"Comparing Programming Styles"], Cell[159500, 4596, 141, 3, 45, "Input", CellTags->"Comparing Programming Styles"], Cell[159644, 4601, 570, 8, 84, "MathCaption", CellTags->"Comparing Programming Styles"], Cell[160217, 4611, 201, 6, 45, "Input", CellTags->"Comparing Programming Styles"]}, "Application"->{ Cell[160789, 4637, 162, 2, 173, "Section", CellTags->"Application"], Cell[160954, 4641, 567, 10, 86, "Text", CellTags->"Application"], Cell[161524, 4653, 1061, 27, 133, "Input", CellTags->"Application"], Cell[162588, 4682, 653, 13, 87, "Text", CellTags->"Application"], Cell[163244, 4697, 412, 6, 55, "MathCaption", CellTags->"Application"], Cell[163659, 4705, 249, 7, 75, "Input", CellTags->"Application"], Cell[163911, 4714, 304, 5, 55, "MathCaption", CellTags->"Application"], Cell[164218, 4721, 140, 4, 45, "Input", CellTags->"Application"], Cell[164361, 4727, 316, 5, 55, "MathCaption", CellTags->"Application"], Cell[164680, 4734, 173, 5, 45, "Input", CellTags->"Application"], Cell[164856, 4741, 387, 6, 55, "MathCaption", CellTags->"Application"], Cell[165246, 4749, 287, 9, 45, "Input", CellTags->"Application"], Cell[165536, 4760, 593, 11, 84, "MathCaption", CellTags->"Application"], Cell[166132, 4773, 499, 15, 45, "Input", CellTags->"Application"], Cell[166634, 4790, 300, 5, 55, "MathCaption", CellTags->"Application"], Cell[166937, 4797, 88, 2, 45, "Input", CellTags->"Application"], Cell[167028, 4801, 355, 5, 84, "MathCaption", CellTags->"Application"], Cell[167672, 4817, 183, 5, 45, "Input", CellTags->"Application"], Cell[167858, 4824, 633, 9, 84, "MathCaption", CellTags->"Application"], Cell[168494, 4835, 125, 3, 45, "Input", CellTags->"Application"], Cell[168622, 4840, 411, 6, 55, "MathCaption", CellTags->"Application"], Cell[169036, 4848, 1000, 28, 133, "Input", CellTags->"Application"], Cell[170039, 4878, 123, 3, 45, "Input", CellTags->"Application"], Cell[170165, 4883, 731, 14, 85, "MathCaption", CellTags->"Application"], Cell[170899, 4899, 1025, 29, 133, "Input", CellTags->"Application"], Cell[171927, 4930, 1063, 27, 133, "Input", CellTags->"Application"], Cell[172993, 4959, 158, 4, 45, "Input", CellTags->"Application"], Cell[173154, 4965, 99, 2, 23, "MoreExamplesSection", CellTags->"Application"], Cell[173256, 4969, 319, 6, 57, "Text", CellTags->"Application"], Cell[173578, 4977, 236, 6, 45, "Input", CellTags->"Application"], Cell[173817, 4985, 414, 13, 45, "Input", CellTags->"Application"], Cell[174234, 5000, 353, 5, 55, "MathCaption", CellTags->"Application"], Cell[174590, 5007, 209, 6, 45, "Input", CellTags->"Application"], Cell[174802, 5015, 380, 6, 55, "MathCaption", CellTags->"Application"], Cell[175185, 5023, 1156, 33, 133, "Input", CellTags->"Application"], Cell[176344, 5058, 1103, 28, 162, "Input", CellTags->"Application"], Cell[177450, 5088, 242, 7, 45, "Input", CellTags->"Application"], Cell[177695, 5097, 45, 1, 23, "Spacer", CellTags->"Application"]}, "Exercises"->{ Cell[178713, 5130, 660, 19, 58, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Creating Definitions"}], Cell[179633, 5158, 686, 22, 58, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Creating Definitions"}], Cell[180548, 5188, 445, 9, 87, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Creating Definitions"}], Cell[181030, 5202, 688, 10, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Table I"}], Cell[181721, 5214, 987, 23, 117, "Text", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Table I"}], Cell[182711, 5239, 347, 5, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Table I"}], Cell[183061, 5246, 420, 11, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Table I"}], Cell[183484, 5259, 446, 6, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Table I"}], Cell[184112, 5274, 345, 5, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[184460, 5281, 704, 15, 87, "Text", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[185167, 5298, 422, 6, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[185592, 5306, 427, 12, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[186022, 5320, 398, 7, 57, "Text", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[186423, 5329, 244, 5, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[186670, 5336, 520, 12, 58, "Text", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[187193, 5350, 301, 7, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[187497, 5359, 471, 7, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[188156, 5373, 745, 11, 64, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[189128, 5394, 317, 5, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[189448, 5401, 433, 10, 57, "Text", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[189884, 5413, 345, 9, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[190232, 5424, 507, 12, 58, "Text", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[190742, 5438, 252, 5, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[190997, 5445, 550, 14, 36, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[191750, 5466, 552, 13, 36, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[192505, 5486, 541, 13, 36, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[193248, 5506, 649, 15, 36, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[194099, 5528, 617, 13, 36, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[194950, 5551, 379, 6, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[195332, 5559, 445, 9, 57, "Text", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[196341, 5586, 996, 26, 117, "Text", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[197340, 5614, 310, 7, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[197653, 5623, 345, 8, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[198001, 5633, 866, 16, 87, "Text", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[198870, 5651, 333, 8, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[199206, 5661, 485, 11, 58, "Text", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[199694, 5674, 402, 11, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[200099, 5687, 539, 8, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[200867, 5703, 420, 7, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[201516, 5718, 576, 9, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[202281, 5736, 385, 5, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10005.}, CellTags->{"Exercises", "Immediate and Delayed"}], Cell[202669, 5743, 432, 10, 58, "Text", CellGroupingRules->{GroupTogetherGrouping, 10005.}, CellTags->{"Exercises", "Immediate and Delayed"}], Cell[203104, 5755, 360, 9, 47, "Input", CellGroupingRules->{GroupTogetherGrouping, 10005.}, CellTags->{"Exercises", "Immediate and Delayed"}], Cell[203467, 5766, 612, 9, 64, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10005.}, CellTags->{"Exercises", "Immediate and Delayed"}], Cell[204308, 5785, 364, 6, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10006.}, CellTags->{"Exercises", "Localizing Variables"}], Cell[204675, 5793, 674, 14, 36, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10006.}, CellTags->{"Exercises", "Localizing Variables"}], Cell[205352, 5809, 629, 17, 133, "Input", CellGroupingRules->{GroupTogetherGrouping, 10006.}, CellTags->{"Exercises", "Localizing Variables"}], Cell[205984, 5828, 221, 4, 23, "Solution", CellGroupingRules->{GroupTogetherGrouping, 10006.}, CellTags->{"Exercises", "Localizing Variables"}], Cell[206433, 5842, 352, 5, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10007.}, CellTags->{"Exercises", "Using Patterns"}], Cell[206788, 5849, 1125, 28, 65, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10007.}, CellTags->{"Exercises", "Using Patterns"}], Cell[207916, 5879, 1180, 33, 104, "Input", CellGroupingRules->{GroupTogetherGrouping, 10007.}, CellTags->{"Exercises", "Using Patterns"}], Cell[209099, 5914, 1250, 28, 94, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10007.}, CellTags->{"Exercises", "Using Patterns"}], Cell[210531, 5951, 346, 5, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10008.}, CellTags->{"Exercises", "Pattern Matching"}], Cell[210880, 5958, 1541, 45, 81, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10008.}, CellTags->{"Exercises", "Pattern Matching"}], Cell[212648, 6013, 333, 5, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[212984, 6020, 677, 12, 87, "Text", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[213664, 6034, 747, 15, 65, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[214414, 6051, 379, 10, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[214997, 6068, 920, 13, 64, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[215920, 6083, 2994, 88, 152, "Input", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[219268, 6185, 329, 5, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}], Cell[219600, 6192, 639, 11, 86, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}], Cell[220242, 6205, 446, 12, 75, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}], Cell[220691, 6219, 347, 9, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}], Cell[221253, 6235, 535, 9, 57, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}], Cell[221791, 6246, 1136, 25, 65, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}], Cell[223168, 6281, 372, 5, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[223543, 6288, 963, 19, 65, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[224734, 6316, 751, 22, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[225488, 6340, 697, 20, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[226188, 6362, 625, 9, 64, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[226816, 6373, 3689, 140, 291, "Output", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[230731, 6523, 319, 5, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[231053, 6530, 456, 7, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[231512, 6539, 609, 18, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[232124, 6559, 1009, 19, 65, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[233136, 6580, 884, 24, 191, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[234023, 6606, 386, 6, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[234412, 6614, 275, 6, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[234690, 6622, 397, 6, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[235090, 6630, 367, 10, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[235460, 6642, 569, 13, 36, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[236220, 6662, 424, 6, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[236870, 6678, 364, 5, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[237237, 6685, 711, 10, 64, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[237951, 6697, 1430, 38, 278, "Input", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[239384, 6737, 807, 16, 65, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[240194, 6755, 389, 12, 141, "Input", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[240586, 6769, 619, 13, 36, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[241464, 6796, 79, 1, 1, "SlideShowNavigationBar", CellTags->{"SlideShowHeader", "Exercises"}]}, "Creating Definitions"->{ Cell[178713, 5130, 660, 19, 58, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Creating Definitions"}], Cell[179633, 5158, 686, 22, 58, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Creating Definitions"}], Cell[180548, 5188, 445, 9, 87, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Creating Definitions"}]}, "Table I"->{ Cell[181030, 5202, 688, 10, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Table I"}], Cell[181721, 5214, 987, 23, 117, "Text", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Table I"}], Cell[182711, 5239, 347, 5, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Table I"}], Cell[183061, 5246, 420, 11, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Table I"}], Cell[183484, 5259, 446, 6, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Table I"}]}, "Table II"->{ Cell[184112, 5274, 345, 5, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[184460, 5281, 704, 15, 87, "Text", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[185167, 5298, 422, 6, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[185592, 5306, 427, 12, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[186022, 5320, 398, 7, 57, "Text", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[186423, 5329, 244, 5, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[186670, 5336, 520, 12, 58, "Text", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[187193, 5350, 301, 7, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[187497, 5359, 471, 7, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[188156, 5373, 745, 11, 64, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}]}, "Matrix Operations"->{ Cell[189128, 5394, 317, 5, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[189448, 5401, 433, 10, 57, "Text", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[189884, 5413, 345, 9, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[190232, 5424, 507, 12, 58, "Text", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[190742, 5438, 252, 5, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[190997, 5445, 550, 14, 36, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[191750, 5466, 552, 13, 36, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[192505, 5486, 541, 13, 36, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[193248, 5506, 649, 15, 36, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[194099, 5528, 617, 13, 36, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}]}, "Picking Parts"->{ Cell[194950, 5551, 379, 6, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[195332, 5559, 445, 9, 57, "Text", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[196341, 5586, 996, 26, 117, "Text", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[197340, 5614, 310, 7, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[197653, 5623, 345, 8, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[198001, 5633, 866, 16, 87, "Text", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[198870, 5651, 333, 8, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[199206, 5661, 485, 11, 58, "Text", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[199694, 5674, 402, 11, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[200099, 5687, 539, 8, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[200867, 5703, 420, 7, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[201516, 5718, 576, 9, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}]}, "Immediate and Delayed"->{ Cell[202281, 5736, 385, 5, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10005.}, CellTags->{"Exercises", "Immediate and Delayed"}], Cell[202669, 5743, 432, 10, 58, "Text", CellGroupingRules->{GroupTogetherGrouping, 10005.}, CellTags->{"Exercises", "Immediate and Delayed"}], Cell[203104, 5755, 360, 9, 47, "Input", CellGroupingRules->{GroupTogetherGrouping, 10005.}, CellTags->{"Exercises", "Immediate and Delayed"}], Cell[203467, 5766, 612, 9, 64, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10005.}, CellTags->{"Exercises", "Immediate and Delayed"}]}, "Localizing Variables"->{ Cell[204308, 5785, 364, 6, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10006.}, CellTags->{"Exercises", "Localizing Variables"}], Cell[204675, 5793, 674, 14, 36, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10006.}, CellTags->{"Exercises", "Localizing Variables"}], Cell[205352, 5809, 629, 17, 133, "Input", CellGroupingRules->{GroupTogetherGrouping, 10006.}, CellTags->{"Exercises", "Localizing Variables"}], Cell[205984, 5828, 221, 4, 23, "Solution", CellGroupingRules->{GroupTogetherGrouping, 10006.}, CellTags->{"Exercises", "Localizing Variables"}]}, "Using Patterns"->{ Cell[206433, 5842, 352, 5, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10007.}, CellTags->{"Exercises", "Using Patterns"}], Cell[206788, 5849, 1125, 28, 65, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10007.}, CellTags->{"Exercises", "Using Patterns"}], Cell[207916, 5879, 1180, 33, 104, "Input", CellGroupingRules->{GroupTogetherGrouping, 10007.}, CellTags->{"Exercises", "Using Patterns"}], Cell[209099, 5914, 1250, 28, 94, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10007.}, CellTags->{"Exercises", "Using Patterns"}]}, "Pattern Matching"->{ Cell[210531, 5951, 346, 5, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10008.}, CellTags->{"Exercises", "Pattern Matching"}], Cell[210880, 5958, 1541, 45, 81, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10008.}, CellTags->{"Exercises", "Pattern Matching"}]}, "Constructing an Expression"->{ Cell[212648, 6013, 333, 5, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[212984, 6020, 677, 12, 87, "Text", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[213664, 6034, 747, 15, 65, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[214414, 6051, 379, 10, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[214997, 6068, 920, 13, 64, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[215920, 6083, 2994, 88, 152, "Input", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}]}, "Delayed Rules"->{ Cell[219268, 6185, 329, 5, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}], Cell[219600, 6192, 639, 11, 86, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}], Cell[220242, 6205, 446, 12, 75, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}], Cell[220691, 6219, 347, 9, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}], Cell[221253, 6235, 535, 9, 57, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}], Cell[221791, 6246, 1136, 25, 65, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}]}, "Formatting Numbers"->{ Cell[223168, 6281, 372, 5, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[223543, 6288, 963, 19, 65, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[224734, 6316, 751, 22, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[225488, 6340, 697, 20, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[226188, 6362, 625, 9, 64, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[226816, 6373, 3689, 140, 291, "Output", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}]}, "Programming Style"->{ Cell[230731, 6523, 319, 5, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[231053, 6530, 456, 7, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[231512, 6539, 609, 18, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[232124, 6559, 1009, 19, 65, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[233136, 6580, 884, 24, 191, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[234023, 6606, 386, 6, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[234412, 6614, 275, 6, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[234690, 6622, 397, 6, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[235090, 6630, 367, 10, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[235460, 6642, 569, 13, 36, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[236220, 6662, 424, 6, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}]}, "Debugging a Program"->{ Cell[236870, 6678, 364, 5, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[237237, 6685, 711, 10, 64, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[237951, 6697, 1430, 38, 278, "Input", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[239384, 6737, 807, 16, 65, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[240194, 6755, 389, 12, 141, "Input", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[240586, 6769, 619, 13, 36, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}]} } *) (*CellTagsIndex CellTagsIndex->{ {"SlideShowHeader", 243214, 6848}, {"Overview", 246359, 6919}, {"Assignments and Definitions", 246715, 6930}, {"Procedural Programming", 250663, 7021}, {"Functional Programming", 256173, 7154}, {"Programming with Rules", 263737, 7335}, {"Comparing Programming Styles", 270582, 7498}, {"Application", 272249, 7535}, {"Exercises", 275072, 7612}, {"Creating Definitions", 288452, 7882}, {"Table I", 288916, 7892}, {"Table II", 289636, 7908}, {"Matrix Operations", 291061, 7939}, {"Picking Parts", 292582, 7970}, {"Immediate and Delayed", 294347, 8007}, {"Localizing Variables", 294992, 8020}, {"Using Patterns", 295633, 8033}, {"Pattern Matching", 296256, 8046}, {"Constructing an Expression", 296597, 8053}, {"Delayed Rules", 297576, 8072}, {"Formatting Numbers", 298475, 8091}, {"Programming Style", 299412, 8110}, {"Debugging a Program", 301091, 8144} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 4290, 95, 0, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[4872, 119, 232, 4, 406, "Title"], Cell[5107, 125, 61, 1, 111, "Subtitle"], Cell[5171, 128, 81, 1, 57, "Text"], Cell[5255, 131, 90, 1, 45, "Input"], Cell[5348, 134, 81, 1, 57, "Text"], Cell[5432, 137, 82, 1, 57, "Text"], Cell[5517, 140, 82, 1, 57, "Text"], Cell[5602, 143, 80, 1, 57, "Text"], Cell[5685, 146, 91, 1, 45, "Input"], Cell[5779, 149, 80, 1, 57, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[5896, 155, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[5963, 158, 414, 13, 199, "Text"], Cell[CellGroupData[{ Cell[6402, 175, 579, 11, 87, "Item"], Cell[6984, 188, 734, 18, 117, "Item"], Cell[7721, 208, 378, 8, 88, "Item"], Cell[8102, 218, 289, 7, 59, "Item"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8440, 231, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[8507, 234, 119, 1, 73, "Text"], Cell[8629, 237, 427, 10, 58, "Text", CellTags->"Overview"], Cell[CellGroupData[{ Cell[9081, 251, 195, 3, 57, "Item", CellTags->"Overview"], Cell[9279, 256, 155, 2, 57, "Item", CellTags->"Overview"], Cell[9437, 260, 161, 2, 57, "Item", CellTags->"Overview"], Cell[9601, 264, 180, 4, 57, "Item", CellTags->"Overview"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[9830, 274, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[9919, 279, 170, 2, 170, "Section", CellTags->"Assignments and Definitions"], Cell[10092, 283, 255, 4, 51, "OverviewSubsection", CellTags->"Assignments and Definitions"], Cell[10350, 289, 230, 5, 57, "Text", CellTags->"Assignments and Definitions"], Cell[CellGroupData[{ Cell[10605, 298, 321, 6, 57, "Item", CellTags->"Assignments and Definitions"], Cell[10929, 306, 138, 2, 57, "Item", CellTags->"Assignments and Definitions"], Cell[11070, 310, 221, 5, 57, "Item", CellTags->"Assignments and Definitions"] }, Open ]], Cell[11306, 318, 19, 0, 23, "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[11374, 324, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[11463, 329, 246, 6, 157, "Subsection", CellTags->"Assignments and Definitions"], Cell[11712, 337, 262, 5, 57, "Text", CellTags->"Assignments and Definitions"], Cell[11977, 344, 424, 10, 56, "MathCaption", CellTags->"Assignments and Definitions"], Cell[12404, 356, 91, 2, 45, "Input", CellTags->"Assignments and Definitions"], Cell[12498, 360, 540, 13, 56, "MathCaption", CellTags->"Assignments and Definitions"], Cell[13041, 375, 163, 5, 45, "Input", CellTags->"Assignments and Definitions"], Cell[13207, 382, 764, 11, 84, "MathCaption", CellTags->"Assignments and Definitions"], Cell[13974, 395, 67, 1, 45, "Input", CellTags->"Assignments and Definitions"], Cell[14044, 398, 287, 4, 55, "MathCaption", CellTags->"Assignments and Definitions"], Cell[14334, 404, 163, 5, 45, "Input", CellTags->"Assignments and Definitions"], Cell[14500, 411, 135, 2, 45, "Input"], Cell[14638, 415, 79, 1, 57, "Text"], Cell[14720, 418, 80, 1, 57, "Text"], Cell[14803, 421, 90, 1, 45, "Input"], Cell[14896, 424, 91, 1, 45, "Input"], Cell[14990, 427, 87, 1, 45, "Input"], Cell[15080, 430, 137, 2, 45, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[15266, 438, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[15355, 443, 259, 6, 157, "Subsection", CellTags->"Assignments and Definitions"], Cell[15617, 451, 220, 5, 57, "Text", CellTags->"Assignments and Definitions"], Cell[15840, 458, 174, 5, 45, "Input", CellTags->"Assignments and Definitions"], Cell[16017, 465, 276, 4, 55, "MathCaption", CellTags->"Assignments and Definitions"], Cell[16296, 471, 292, 6, 45, "Input", CellTags->"Assignments and Definitions"], Cell[16591, 479, 697, 20, 89, "Text", CellTags->"Assignments and Definitions"], Cell[17291, 501, 485, 14, 58, "Text", CellTags->"Assignments and Definitions"], Cell[17779, 517, 19, 0, 23, "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17847, 523, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[17936, 528, 325, 7, 157, "Subsection", CellTags->"Assignments and Definitions"], Cell[18264, 537, 344, 10, 58, "Text", CellTags->"Assignments and Definitions"], Cell[CellGroupData[{ Cell[18633, 551, 758, 17, 87, "Item", CellTags->"Assignments and Definitions"], Cell[19394, 570, 772, 18, 86, "Item", CellTags->"Assignments and Definitions"] }, Open ]], Cell[20181, 591, 938, 13, 84, "MathCaption", CellTags->"Assignments and Definitions"], Cell[21122, 606, 127, 3, 45, "Input", CellTags->"Assignments and Definitions"], Cell[21252, 611, 128, 3, 45, "Input", CellTags->"Assignments and Definitions"], Cell[21383, 616, 688, 10, 84, "MathCaption", CellTags->"Assignments and Definitions"], Cell[22074, 628, 151, 4, 45, "Input", CellTags->"Assignments and Definitions"], Cell[22228, 634, 151, 4, 45, "Input", CellTags->"Assignments and Definitions"], Cell[22382, 640, 357, 5, 55, "MathCaption", CellTags->"Assignments and Definitions"], Cell[22742, 647, 151, 3, 45, "Input", CellTags->"Assignments and Definitions"], Cell[22896, 652, 19, 0, 23, "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[22964, 658, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[23053, 663, 317, 7, 157, "Subsection", CellTags->"Assignments and Definitions"], Cell[23373, 672, 513, 9, 86, "Text", CellTags->"Assignments and Definitions"], Cell[23889, 683, 536, 9, 86, "Text", CellTags->"Assignments and Definitions"], Cell[24428, 694, 551, 9, 86, "Text", CellTags->"Assignments and Definitions"], Cell[24982, 705, 781, 11, 84, "MathCaption", CellTags->"Assignments and Definitions"], Cell[25766, 718, 263, 8, 50, "Input", CellTags->"Assignments and Definitions"], Cell[26032, 728, 363, 6, 55, "MathCaption", CellTags->"Assignments and Definitions"], Cell[26398, 736, 265, 8, 50, "Input", CellTags->"Assignments and Definitions"], Cell[26666, 746, 97, 2, 45, "Input", CellTags->"Assignments and Definitions"], Cell[26766, 750, 124, 3, 45, "Input", CellTags->"Assignments and Definitions"], Cell[26893, 755, 500, 12, 89, "Text"], Cell[27396, 769, 330, 11, 58, "Text"], Cell[27729, 782, 19, 0, 23, "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[27797, 788, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[27886, 793, 174, 2, 170, "Section", CellTags->"Procedural Programming"], Cell[28063, 797, 222, 3, 51, "OverviewSubsection", CellTags->"Procedural Programming"], Cell[28288, 802, 258, 5, 57, "Text", CellTags->"Procedural Programming"], Cell[CellGroupData[{ Cell[28571, 811, 216, 3, 57, "Item", CellTags->"Procedural Programming"], Cell[28790, 816, 166, 2, 57, "Item", CellTags->"Procedural Programming"], Cell[28959, 820, 395, 13, 58, "Item", CellTags->"Procedural Programming"], Cell[29357, 835, 311, 8, 58, "Item", CellTags->"Procedural Programming"] }, Open ]], Cell[29683, 846, 19, 0, 23, "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[29751, 852, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[29840, 857, 265, 7, 157, "Subsection", CellTags->"Procedural Programming"], Cell[30108, 866, 489, 8, 86, "Text", CellTags->"Procedural Programming"], Cell[30600, 876, 709, 10, 84, "MathCaption", CellTags->"Procedural Programming"], Cell[31312, 888, 304, 8, 104, "Input", CellTags->"Procedural Programming"], Cell[31619, 898, 146, 3, 45, "Input"], Cell[31768, 903, 865, 18, 117, "Text", CellTags->"Procedural Programming"], Cell[32636, 923, 245, 7, 57, "Text"], Cell[32884, 932, 123, 2, 45, "Input"], Cell[33010, 936, 498, 10, 56, "MathCaption", CellTags->"Procedural Programming"], Cell[33511, 948, 466, 12, 133, "Input", CellTags->"Procedural Programming"], Cell[33980, 962, 91, 2, 45, "Input", CellTags->"Procedural Programming"], Cell[34074, 966, 19, 0, 23, "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[34142, 972, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[34231, 977, 270, 4, 157, "Subsection", CellTags->"Procedural Programming"], Cell[34504, 983, 861, 25, 89, "Text", CellTags->"Procedural Programming"], Cell[35368, 1010, 4264, 100, 212, "DisplayFormula"], Cell[39635, 1112, 658, 19, 56, "MathCaption", CellTags->"Procedural Programming"], Cell[40296, 1133, 159, 4, 45, "Input", CellTags->"Procedural Programming"], Cell[40458, 1139, 197, 6, 45, "Input", CellTags->"Procedural Programming"], Cell[40658, 1147, 301, 4, 55, "MathCaption", CellTags->"Procedural Programming"], Cell[40962, 1153, 189, 5, 45, "Input", CellTags->"Procedural Programming"], Cell[41154, 1160, 101, 2, 45, "Input", CellTags->"Procedural Programming"], Cell[41258, 1164, 18, 0, 23, "Spacer"], Cell[41279, 1166, 491, 12, 58, "Text"], Cell[41773, 1180, 19, 0, 23, "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[41841, 1186, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[41930, 1191, 351, 9, 157, "Subsection", CellTags->"Procedural Programming"], Cell[42284, 1202, 264, 5, 57, "Text", CellTags->"Procedural Programming"], Cell[CellGroupData[{ Cell[42573, 1211, 298, 8, 58, "Item", CellTags->"Procedural Programming"], Cell[42874, 1221, 239, 9, 58, "Subitem", CellTags->"Procedural Programming"], Cell[43116, 1232, 123, 2, 57, "Item", CellTags->"Procedural Programming"], Cell[43242, 1236, 567, 23, 58, "Subitem", CellTags->"Procedural Programming"], Cell[43812, 1261, 244, 5, 57, "Item", CellTags->"Procedural Programming"], Cell[44059, 1268, 435, 17, 58, "Subitem", CellTags->"Procedural Programming"] }, Open ]], Cell[44509, 1288, 19, 0, 23, "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[44577, 1294, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[44666, 1299, 363, 9, 157, "Subsection", CellTags->"Procedural Programming"], Cell[45032, 1310, 436, 11, 87, "Text", CellTags->"Procedural Programming"], Cell[45471, 1323, 436, 13, 133, "Input", CellTags->"Procedural Programming"], Cell[45910, 1338, 123, 2, 45, "Input"], Cell[46036, 1342, 411, 6, 84, "MathCaption", CellTags->"Procedural Programming"], Cell[46450, 1350, 496, 14, 162, "Input", CellTags->"Procedural Programming"], Cell[46949, 1366, 401, 9, 56, "MathCaption", CellTags->"Procedural Programming"], Cell[47353, 1377, 92, 2, 45, "Input", CellTags->"Procedural Programming"], Cell[47448, 1381, 340, 5, 55, "MathCaption", CellTags->"Procedural Programming"], Cell[47791, 1388, 133, 3, 45, "Input", CellTags->"Procedural Programming"], Cell[47927, 1393, 19, 0, 23, "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[47995, 1399, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[48084, 1404, 343, 9, 157, "Subsection", CellTags->"Procedural Programming"], Cell[48430, 1415, 275, 5, 57, "Text", CellTags->"Procedural Programming"], Cell[48708, 1422, 389, 6, 55, "MathCaption", CellTags->"Procedural Programming"], Cell[49100, 1430, 496, 14, 162, "Input", CellTags->"Procedural Programming"], Cell[49599, 1446, 436, 6, 55, "MathCaption", CellTags->"Procedural Programming"], Cell[50038, 1454, 757, 20, 191, "Input", CellTags->"Procedural Programming"], Cell[50798, 1476, 449, 7, 55, "MathCaption", CellTags->"Procedural Programming"], Cell[51250, 1485, 92, 2, 45, "Input", CellTags->"Procedural Programming"], Cell[51345, 1489, 91, 2, 45, "Input", CellTags->"Procedural Programming"], Cell[51439, 1493, 299, 4, 55, "MathCaption", CellTags->"Procedural Programming"], Cell[51741, 1499, 95, 2, 45, "Input", CellTags->"Procedural Programming"], Cell[51839, 1503, 19, 0, 23, "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[51907, 1509, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[51996, 1514, 332, 9, 157, "Subsection", CellTags->"Procedural Programming"], Cell[52331, 1525, 686, 13, 87, "Text", CellTags->"Procedural Programming"], Cell[53020, 1540, 591, 8, 84, "MathCaption", CellTags->"Procedural Programming"], Cell[53614, 1550, 496, 14, 162, "Input", CellTags->"Procedural Programming"], Cell[54113, 1566, 628, 16, 87, "Text", CellTags->"Procedural Programming"], Cell[54744, 1584, 348, 9, 126, "DisplayFormula"], Cell[55095, 1595, 488, 12, 56, "MathCaption", CellTags->"Procedural Programming"], Cell[55586, 1609, 569, 16, 162, "Input", CellTags->"Procedural Programming"], Cell[56158, 1627, 400, 6, 55, "MathCaption", CellTags->"Procedural Programming"], Cell[56561, 1635, 92, 2, 45, "Input", CellTags->"Procedural Programming"], Cell[56656, 1639, 91, 2, 45, "Input", CellTags->"Procedural Programming"], Cell[56750, 1643, 69, 1, 45, "Input", CellTags->"Procedural Programming"], Cell[56822, 1646, 325, 8, 58, "Text", CellTags->"Procedural Programming"], Cell[57150, 1656, 420, 10, 58, "Text", CellTags->"Procedural Programming"], Cell[57573, 1668, 263, 4, 55, "MathCaption", CellTags->"Procedural Programming"], Cell[57839, 1674, 123, 3, 45, "Input", CellTags->"Procedural Programming"], Cell[57965, 1679, 18, 0, 23, "Spacer"], Cell[57986, 1681, 345, 11, 58, "Text"], Cell[58334, 1694, 19, 0, 23, "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[58402, 1700, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[58491, 1705, 224, 3, 170, "Section", CellTags->"Functional Programming"], Cell[58718, 1710, 198, 3, 51, "OverviewSubsection", CellTags->"Functional Programming"], Cell[58919, 1715, 246, 5, 57, "Text", CellTags->"Functional Programming"], Cell[CellGroupData[{ Cell[59190, 1724, 193, 4, 57, "Item", CellTags->"Functional Programming"], Cell[59386, 1730, 471, 18, 58, "Item", CellTags->"Functional Programming"], Cell[59860, 1750, 218, 5, 57, "Item", CellTags->"Functional Programming"], Cell[60081, 1757, 174, 2, 57, "Item", CellTags->"Functional Programming"] }, Open ]], Cell[60270, 1762, 19, 0, 23, "Spacer"], Cell[60292, 1764, 82, 1, 57, "Text"], Cell[60377, 1767, 79, 1, 57, "Text"], Cell[60459, 1770, 81, 1, 57, "Text"], Cell[60543, 1773, 130, 2, 57, "Text"], Cell[60676, 1777, 82, 1, 57, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[60807, 1784, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[60896, 1789, 354, 10, 157, "Subsection", CellTags->"Functional Programming"], Cell[61253, 1801, 551, 10, 86, "Text", CellTags->"Functional Programming"], Cell[61807, 1813, 317, 5, 55, "MathCaption", CellTags->"Functional Programming"], Cell[62127, 1820, 304, 8, 104, "Input", CellTags->"Functional Programming"], Cell[62434, 1830, 329, 5, 55, "MathCaption", CellTags->"Functional Programming"], Cell[62766, 1837, 188, 5, 45, "Input", CellTags->"Functional Programming"], Cell[62957, 1844, 19, 0, 23, "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[63025, 1850, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[63114, 1855, 351, 10, 157, "Subsection", CellTags->"Functional Programming"], Cell[63468, 1867, 281, 6, 57, "Text", CellTags->"Functional Programming"], Cell[63752, 1875, 827, 12, 84, "MathCaption", CellTags->"Functional Programming"], Cell[64582, 1889, 214, 7, 71, "Input", CellTags->"Functional Programming"], Cell[64799, 1898, 98, 2, 45, "Input", CellTags->"Functional Programming"], Cell[64900, 1902, 304, 4, 55, "MathCaption", CellTags->"Functional Programming"], Cell[65207, 1908, 130, 3, 45, "Input", CellTags->"Functional Programming"], Cell[65340, 1913, 251, 4, 55, "MathCaption", CellTags->"Functional Programming"], Cell[65594, 1919, 163, 4, 45, "Input", CellTags->"Functional Programming"], Cell[65760, 1925, 759, 16, 85, "MathCaption", CellTags->"Functional Programming"], Cell[66522, 1943, 150, 4, 45, "Input", CellTags->"Functional Programming"], Cell[66675, 1949, 457, 11, 56, "MathCaption", CellTags->"Functional Programming"], Cell[67135, 1962, 134, 3, 45, "Input", CellTags->"Functional Programming"], Cell[67272, 1967, 339, 5, 55, "MathCaption", CellTags->"Functional Programming"], Cell[67614, 1974, 139, 3, 45, "Input", CellTags->"Functional Programming"], Cell[67756, 1979, 1123, 28, 117, "Text", CellTags->"Functional Programming"], Cell[68882, 2009, 19, 0, 23, "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[68950, 2015, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[69039, 2020, 328, 10, 160, "Subsection", CellTags->"Functional Programming"], Cell[69370, 2032, 602, 18, 59, "Text", CellTags->"Functional Programming"], Cell[69975, 2052, 461, 11, 56, "MathCaption", CellTags->"Functional Programming"], Cell[70439, 2065, 247, 7, 45, "Input", CellTags->"Functional Programming"], Cell[70689, 2074, 568, 11, 56, "MathCaption", CellTags->"Functional Programming"], Cell[71260, 2087, 180, 5, 45, "Input", CellTags->"Functional Programming"], Cell[71443, 2094, 150, 4, 45, "Input", CellTags->"Functional Programming"], Cell[71596, 2100, 556, 12, 87, "Text", CellTags->"Functional Programming"], Cell[72155, 2114, 513, 11, 55, "MathCaption", CellTags->"Functional Programming"], Cell[72671, 2127, 261, 8, 50, "Input", CellTags->"Functional Programming"], Cell[72935, 2137, 285, 4, 55, "MathCaption", CellTags->"Functional Programming"], Cell[73223, 2143, 271, 8, 45, "Input", CellTags->"Functional Programming"], Cell[73497, 2153, 101, 1, 23, "NonPrintButton"], Cell[73601, 2156, 496, 10, 56, "MathCaption", CellTags->"Functional Programming"], Cell[74100, 2168, 340, 8, 45, "Input", CellTags->"Functional Programming"], Cell[74443, 2178, 528, 12, 58, "Text", CellTags->"Functional Programming"], Cell[74974, 2192, 304, 4, 55, "MathCaption", CellTags->"Functional Programming"], Cell[75281, 2198, 62, 1, 45, "Input", CellTags->"Functional Programming"], Cell[75346, 2201, 19, 0, 23, "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[75414, 2207, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[75503, 2212, 316, 9, 160, "Subsection", CellTags->"Functional Programming"], Cell[75822, 2223, 474, 14, 58, "Text", CellTags->"Functional Programming"], Cell[76299, 2239, 328, 6, 57, "Text", CellTags->"Functional Programming"], Cell[76630, 2247, 7578, 181, 486, "DisplayFormula"], Cell[84211, 2430, 659, 14, 85, "MathCaption", CellTags->"Functional Programming"], Cell[84873, 2446, 179, 5, 45, "Input", CellTags->"Functional Programming"], Cell[85055, 2453, 187, 5, 45, "Input", CellTags->"Functional Programming"], Cell[85245, 2460, 201, 5, 45, "Input", CellTags->"Functional Programming"], Cell[85449, 2467, 19, 0, 23, "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[85517, 2473, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[85606, 2478, 325, 9, 160, "Subsection", CellTags->"Functional Programming"], Cell[85934, 2489, 858, 18, 88, "Text", CellTags->"Functional Programming"], Cell[86795, 2509, 330, 12, 57, "DisplayFormula"], Cell[87128, 2523, 578, 18, 87, "Text", CellTags->"Functional Programming"], Cell[87709, 2543, 801, 20, 85, "MathCaption", CellTags->"Functional Programming"], Cell[88513, 2565, 152, 4, 45, "Input", CellTags->"Functional Programming"], Cell[88668, 2571, 154, 4, 45, "Input", CellTags->"Functional Programming"], Cell[88825, 2577, 76, 1, 23, "NonPrintButton"], Cell[88904, 2580, 418, 11, 56, "MathCaption"], Cell[89325, 2593, 144, 4, 45, "Input"], Cell[89472, 2599, 497, 7, 55, "MathCaption", CellTags->"Functional Programming"], Cell[89972, 2608, 324, 11, 45, "Input", CellTags->"Functional Programming"], Cell[90299, 2621, 136, 2, 45, "Input"], Cell[90438, 2625, 594, 19, 56, "MathCaption", CellTags->"Functional Programming"], Cell[91035, 2646, 100, 2, 45, "Input", CellTags->"Functional Programming"], Cell[91138, 2650, 100, 2, 45, "Input", CellTags->"Functional Programming"], Cell[91241, 2654, 96, 2, 45, "Input", CellTags->"Functional Programming"], Cell[91340, 2658, 355, 5, 55, "MathCaption", CellTags->"Functional Programming"], Cell[91698, 2665, 161, 3, 45, "Input", CellTags->"Functional Programming"], Cell[91862, 2670, 420, 10, 56, "MathCaption"], Cell[92285, 2682, 82, 2, 45, "Input"], Cell[92370, 2686, 318, 5, 55, "MathCaption", CellTags->"Functional Programming"], Cell[92691, 2693, 371, 10, 50, "Input", CellTags->"Functional Programming"], Cell[93065, 2705, 282, 4, 55, "MathCaption", CellTags->"Functional Programming"], Cell[93350, 2711, 117, 3, 45, "Input", CellTags->"Functional Programming"], Cell[93470, 2716, 308, 6, 57, "Text", CellTags->"Functional Programming"], Cell[93781, 2724, 86, 2, 45, "Input"], Cell[93870, 2728, 19, 0, 23, "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[93938, 2734, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[94027, 2739, 335, 10, 160, "Subsection", CellTags->"Functional Programming"], Cell[94365, 2751, 469, 15, 58, "Text", CellTags->"Functional Programming"], Cell[94837, 2768, 369, 13, 59, "Text", CellTags->"Functional Programming"], Cell[95209, 2783, 538, 15, 87, "Text"], Cell[95750, 2800, 427, 11, 56, "MathCaption", CellTags->"Functional Programming"], Cell[96180, 2813, 205, 6, 45, "Input", CellTags->"Functional Programming"], Cell[96388, 2821, 1144, 30, 86, "MathCaption", CellTags->"Functional Programming"], Cell[97535, 2853, 307, 8, 45, "Input", CellTags->"Functional Programming"], Cell[97845, 2863, 391, 6, 55, "MathCaption", CellTags->"Functional Programming"], Cell[98239, 2871, 263, 7, 45, "Input", CellTags->"Functional Programming"], Cell[98505, 2880, 101, 2, 45, "Input"], Cell[98609, 2884, 469, 6, 55, "MathCaption"], Cell[99081, 2892, 118, 3, 45, "Input"], Cell[99202, 2897, 660, 18, 57, "MathCaption"], Cell[99865, 2917, 91, 2, 45, "Input"], Cell[99959, 2921, 569, 16, 58, "Text"], Cell[100531, 2939, 19, 0, 23, "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[100599, 2945, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[100688, 2950, 312, 9, 160, "Subsection", CellTags->"Functional Programming"], Cell[101003, 2961, 416, 7, 86, "Text", CellTags->"Functional Programming"], Cell[101422, 2970, 382, 6, 69, "MathCaption", CellTags->"Functional Programming"], Cell[101807, 2978, 425, 13, 75, "Input", CellTags->"Functional Programming"], Cell[102235, 2993, 175, 4, 45, "Input"], Cell[102413, 2999, 662, 14, 70, "MathCaption", CellTags->"Functional Programming"], Cell[103078, 3015, 541, 17, 162, "Input", CellTags->"Functional Programming"], Cell[103622, 3034, 335, 7, 69, "MathCaption", CellTags->"Functional Programming"], Cell[103960, 3043, 120, 3, 45, "Input", CellTags->"Functional Programming"], Cell[104083, 3048, 147, 3, 45, "Input"], Cell[104233, 3053, 100, 1, 23, "NonPrintButton"], Cell[104336, 3056, 125, 3, 45, "Input", CellTags->"Functional Programming"], Cell[104464, 3061, 350, 11, 58, "Text"], Cell[104817, 3074, 19, 0, 23, "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[104885, 3080, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[104974, 3085, 172, 2, 173, "Section", CellTags->"Programming with Rules"], Cell[105149, 3089, 235, 6, 51, "OverviewSubsection", CellTags->"Programming with Rules"], Cell[105387, 3097, 213, 5, 57, "Text", CellTags->"Programming with Rules"], Cell[CellGroupData[{ Cell[105625, 3106, 352, 9, 58, "Item", CellTags->"Programming with Rules"], Cell[105980, 3117, 183, 4, 57, "Item", CellTags->"Programming with Rules"], Cell[106166, 3123, 172, 4, 57, "Item", CellTags->"Programming with Rules"] }, Open ]], Cell[106353, 3130, 19, 0, 23, "Spacer"], Cell[106375, 3132, 92, 1, 45, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[106516, 3139, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[106605, 3144, 284, 8, 160, "Subsection", CellTags->"Programming with Rules"], Cell[106892, 3154, 629, 9, 86, "Text"], Cell[107524, 3165, 1035, 26, 133, "Input"], Cell[108562, 3193, 303, 4, 55, "MathCaption"], Cell[108868, 3199, 133, 3, 45, "Input"], Cell[109004, 3204, 129, 3, 45, "Input"], Cell[109136, 3209, 58, 1, 57, "Text"], Cell[109197, 3212, 19, 0, 23, "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[109265, 3218, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[109354, 3223, 347, 9, 160, "Subsection", CellTags->"Programming with Rules"], Cell[109704, 3234, 451, 8, 86, "Text", CellTags->"Programming with Rules"], Cell[110158, 3244, 86, 2, 45, "Input", CellTags->"Programming with Rules"], Cell[110247, 3248, 127, 4, 45, "Input", CellTags->"Programming with Rules"], Cell[110377, 3254, 119, 2, 45, "Input"], Cell[110499, 3258, 500, 9, 86, "Text", CellTags->"Programming with Rules"], Cell[111002, 3269, 528, 17, 88, "Text", CellTags->"Programming with Rules"], Cell[111533, 3288, 755, 21, 56, "MathCaption", CellTags->"Programming with Rules"], Cell[112291, 3311, 95, 2, 45, "Input", CellTags->"Programming with Rules"], Cell[112389, 3315, 222, 7, 45, "Input", CellTags->"Programming with Rules"], Cell[112614, 3324, 66, 1, 45, "Input"], Cell[112683, 3327, 108, 2, 45, "Input"], Cell[112794, 3331, 267, 8, 58, "Text"], Cell[113064, 3341, 260, 7, 57, "Text"], Cell[113327, 3350, 467, 11, 56, "MathCaption", CellTags->"Programming with Rules"], Cell[113797, 3363, 182, 6, 45, "Input", CellTags->"Programming with Rules"], Cell[113982, 3371, 148, 3, 57, "Text"], Cell[114133, 3376, 220, 6, 57, "Text"], Cell[114356, 3384, 308, 5, 55, "MathCaption", CellTags->"Programming with Rules"], Cell[114667, 3391, 81, 2, 45, "Input", CellTags->"Programming with Rules"], Cell[114751, 3395, 602, 12, 55, "MathCaption", CellTags->"Programming with Rules"], Cell[115356, 3409, 341, 10, 75, "Input", CellTags->"Programming with Rules"], Cell[115700, 3421, 136, 2, 45, "Input"], Cell[115839, 3425, 389, 6, 55, "MathCaption", CellTags->"Programming with Rules"], Cell[116231, 3433, 320, 9, 45, "Input", CellTags->"Programming with Rules"], Cell[116554, 3444, 292, 4, 55, "MathCaption", CellTags->"Programming with Rules"], Cell[116849, 3450, 197, 4, 45, "Input", CellTags->"Programming with Rules"], Cell[117049, 3456, 618, 10, 86, "Text", CellTags->"Programming with Rules"], Cell[117670, 3468, 60, 1, 45, "Input"], Cell[117733, 3471, 19, 0, 23, "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[117801, 3477, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[117890, 3482, 270, 8, 160, "Subsection", CellTags->"Programming with Rules"], Cell[118163, 3492, 446, 9, 58, "Text", CellTags->"Programming with Rules"], Cell[118612, 3503, 652, 15, 56, "MathCaption", CellTags->"Programming with Rules"], Cell[119267, 3520, 161, 5, 67, "Input", CellTags->"Programming with Rules"], Cell[119431, 3527, 54, 1, 45, "Input"], Cell[119488, 3530, 9422, 161, 109, "Input"], Cell[128913, 3693, 632, 13, 87, "Text", CellTags->"Programming with Rules"], Cell[129548, 3708, 2133, 58, 220, "DisplayFormula"], Cell[131684, 3768, 85, 2, 45, "Input", CellTags->"Programming with Rules"], Cell[131772, 3772, 298, 9, 59, "Item", CellTags->"Programming with Rules"], Cell[132073, 3783, 318, 9, 45, "Input", CellTags->"Programming with Rules"], Cell[CellGroupData[{ Cell[132416, 3796, 383, 9, 58, "Item", CellTags->"Programming with Rules"], Cell[132802, 3807, 390, 11, 58, "Item", CellTags->"Programming with Rules"] }, Open ]], Cell[133207, 3821, 322, 9, 45, "Input", CellTags->"Programming with Rules"], Cell[133532, 3832, 797, 23, 90, "Item", CellTags->"Programming with Rules"], Cell[134332, 3857, 381, 11, 45, "Input", CellTags->"Programming with Rules"], Cell[134716, 3870, 232, 4, 57, "Text"], Cell[134951, 3876, 349, 10, 45, "Input", CellTags->"Programming with Rules"], Cell[135303, 3888, 364, 9, 58, "Item", CellTags->"Programming with Rules"], Cell[135670, 3899, 369, 11, 45, "Input", CellTags->"Programming with Rules"], Cell[136042, 3912, 81, 2, 45, "Input"], Cell[136126, 3916, 19, 0, 23, "Spacer"], Cell[136148, 3918, 418, 10, 57, "Text", CellTags->"Programming with Rules"], Cell[136569, 3930, 19, 0, 23, "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[136637, 3936, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[136726, 3941, 377, 9, 160, "Subsection", CellTags->"Programming with Rules"], Cell[137106, 3952, 433, 8, 86, "Text", CellTags->"Programming with Rules"], Cell[137542, 3962, 416, 6, 55, "MathCaption", CellTags->"Programming with Rules"], Cell[137961, 3970, 720, 19, 191, "Input"], Cell[138684, 3991, 417, 6, 55, "MathCaption", CellTags->"Programming with Rules"], Cell[139104, 3999, 58, 1, 45, "Input"], Cell[139165, 4002, 569, 17, 133, "Input", CellTags->"Programming with Rules"], Cell[139737, 4021, 668, 13, 85, "MathCaption", CellTags->"Programming with Rules"], Cell[140408, 4036, 92, 2, 45, "Input", CellTags->"Programming with Rules"], Cell[140503, 4040, 352, 5, 55, "MathCaption", CellTags->"Programming with Rules"], Cell[140858, 4047, 93, 2, 45, "Input", CellTags->"Programming with Rules"], Cell[140954, 4051, 44, 1, 45, "Input"], Cell[141001, 4054, 62, 1, 45, "Input", CellTags->"Programming with Rules"], Cell[141066, 4057, 19, 0, 23, "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[141134, 4063, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[141223, 4068, 302, 8, 160, "Subsection", CellTags->"Programming with Rules"], Cell[141528, 4078, 517, 9, 86, "Text", CellTags->"Programming with Rules"], Cell[142048, 4089, 719, 18, 56, "MathCaption", CellTags->"Programming with Rules"], Cell[142770, 4109, 254, 8, 45, "Input", CellTags->"Programming with Rules"], Cell[143027, 4119, 289, 4, 55, "MathCaption", CellTags->"Programming with Rules"], Cell[143319, 4125, 269, 8, 45, "Input", CellTags->"Programming with Rules"], Cell[143591, 4135, 567, 13, 56, "MathCaption", CellTags->"Programming with Rules"], Cell[144161, 4150, 275, 8, 45, "Input", CellTags->"Programming with Rules"], Cell[144439, 4160, 265, 4, 55, "MathCaption", CellTags->"Programming with Rules"], Cell[144707, 4166, 293, 9, 45, "Input", CellTags->"Programming with Rules"], Cell[145003, 4177, 377, 5, 55, "MathCaption", CellTags->"Programming with Rules"], Cell[145383, 4184, 387, 13, 45, "Input", CellTags->"Programming with Rules"], Cell[145773, 4199, 356, 5, 55, "MathCaption", CellTags->"Programming with Rules"], Cell[146132, 4206, 447, 15, 45, "Input", CellTags->"Programming with Rules"], Cell[146582, 4223, 240, 5, 57, "Text", CellTags->"Programming with Rules"], Cell[146825, 4230, 19, 0, 23, "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[146893, 4236, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[146982, 4241, 287, 8, 160, "Subsection", CellTags->"Programming with Rules"], Cell[147272, 4251, 320, 6, 57, "Text", CellTags->"Programming with Rules"], Cell[147595, 4259, 302, 4, 55, "MathCaption", CellTags->"Programming with Rules"], Cell[147900, 4265, 190, 6, 47, "Input", CellTags->"Programming with Rules"], Cell[148093, 4273, 91, 2, 45, "Input", CellTags->"Programming with Rules"], Cell[148187, 4277, 109, 3, 45, "Input", CellTags->"Programming with Rules"], Cell[148299, 4282, 756, 19, 56, "MathCaption", CellTags->"Programming with Rules"], Cell[149058, 4303, 229, 7, 45, "Input", CellTags->"Programming with Rules"], Cell[149290, 4312, 428, 12, 55, "MathCaption", CellTags->"Programming with Rules"], Cell[149721, 4326, 228, 7, 45, "Input", CellTags->"Programming with Rules"], Cell[149952, 4335, 357, 5, 55, "MathCaption"], Cell[150312, 4342, 234, 7, 45, "Input", CellTags->"Programming with Rules"], Cell[150549, 4351, 658, 14, 85, "MathCaption"], Cell[151210, 4367, 191, 6, 45, "Input"], Cell[151404, 4375, 194, 6, 45, "Input"], Cell[151601, 4383, 395, 6, 92, "MathCaption"], Cell[151999, 4391, 265, 8, 45, "Input"], Cell[152267, 4401, 121, 3, 45, "Input", CellTags->"Programming with Rules"], Cell[152391, 4406, 19, 0, 23, "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[152459, 4412, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[152548, 4417, 188, 2, 173, "Section", CellTags->"Comparing Programming Styles"], Cell[152739, 4421, 194, 2, 51, "OverviewSubsection", CellTags->"Comparing Programming Styles"], Cell[152936, 4425, 570, 9, 86, "Text", CellTags->"Comparing Programming Styles"], Cell[153509, 4436, 19, 0, 23, "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[153577, 4442, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[153666, 4447, 241, 4, 160, "Subsection", CellTags->"Comparing Programming Styles"], Cell[153910, 4453, 659, 10, 86, "Text", CellTags->"Comparing Programming Styles"], Cell[154572, 4465, 409, 7, 57, "Text", CellTags->"Comparing Programming Styles"], Cell[154984, 4474, 333, 4, 55, "MathCaption", CellTags->"Comparing Programming Styles"], Cell[155320, 4480, 725, 23, 45, "Input", CellTags->"Comparing Programming Styles"], Cell[156048, 4505, 768, 11, 113, "MathCaption", CellTags->"Comparing Programming Styles"], Cell[156819, 4518, 792, 24, 133, "Input", CellTags->"Comparing Programming Styles"], Cell[157614, 4544, 455, 11, 56, "MathCaption", CellTags->"Comparing Programming Styles"], Cell[158072, 4557, 411, 13, 45, "Input", CellTags->"Comparing Programming Styles"], Cell[158486, 4572, 356, 5, 55, "MathCaption", CellTags->"Comparing Programming Styles"], Cell[158845, 4579, 130, 3, 45, "Input", CellTags->"Comparing Programming Styles"], Cell[158978, 4584, 519, 10, 79, "MathCaption", CellTags->"Comparing Programming Styles"], Cell[159500, 4596, 141, 3, 45, "Input", CellTags->"Comparing Programming Styles"], Cell[159644, 4601, 570, 8, 84, "MathCaption", CellTags->"Comparing Programming Styles"], Cell[160217, 4611, 201, 6, 45, "Input", CellTags->"Comparing Programming Styles"], Cell[160421, 4619, 19, 0, 23, "Spacer"], Cell[160443, 4621, 124, 2, 45, "Input"], Cell[160570, 4625, 81, 1, 57, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[160700, 4632, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[160789, 4637, 162, 2, 173, "Section", CellTags->"Application"], Cell[160954, 4641, 567, 10, 86, "Text", CellTags->"Application"], Cell[161524, 4653, 1061, 27, 133, "Input", CellTags->"Application"], Cell[162588, 4682, 653, 13, 87, "Text", CellTags->"Application"], Cell[163244, 4697, 412, 6, 55, "MathCaption", CellTags->"Application"], Cell[163659, 4705, 249, 7, 75, "Input", CellTags->"Application"], Cell[163911, 4714, 304, 5, 55, "MathCaption", CellTags->"Application"], Cell[164218, 4721, 140, 4, 45, "Input", CellTags->"Application"], Cell[164361, 4727, 316, 5, 55, "MathCaption", CellTags->"Application"], Cell[164680, 4734, 173, 5, 45, "Input", CellTags->"Application"], Cell[164856, 4741, 387, 6, 55, "MathCaption", CellTags->"Application"], Cell[165246, 4749, 287, 9, 45, "Input", CellTags->"Application"], Cell[165536, 4760, 593, 11, 84, "MathCaption", CellTags->"Application"], Cell[166132, 4773, 499, 15, 45, "Input", CellTags->"Application"], Cell[166634, 4790, 300, 5, 55, "MathCaption", CellTags->"Application"], Cell[166937, 4797, 88, 2, 45, "Input", CellTags->"Application"], Cell[167028, 4801, 355, 5, 84, "MathCaption", CellTags->"Application"], Cell[167386, 4808, 123, 2, 45, "Input"], Cell[167512, 4812, 157, 3, 45, "Input"], Cell[167672, 4817, 183, 5, 45, "Input", CellTags->"Application"], Cell[167858, 4824, 633, 9, 84, "MathCaption", CellTags->"Application"], Cell[168494, 4835, 125, 3, 45, "Input", CellTags->"Application"], Cell[168622, 4840, 411, 6, 55, "MathCaption", CellTags->"Application"], Cell[169036, 4848, 1000, 28, 133, "Input", CellTags->"Application"], Cell[170039, 4878, 123, 3, 45, "Input", CellTags->"Application"], Cell[170165, 4883, 731, 14, 85, "MathCaption", CellTags->"Application"], Cell[170899, 4899, 1025, 29, 133, "Input", CellTags->"Application"], Cell[171927, 4930, 1063, 27, 133, "Input", CellTags->"Application"], Cell[172993, 4959, 158, 4, 45, "Input", CellTags->"Application"], Cell[173154, 4965, 99, 2, 23, "MoreExamplesSection", CellTags->"Application"], Cell[173256, 4969, 319, 6, 57, "Text", CellTags->"Application"], Cell[173578, 4977, 236, 6, 45, "Input", CellTags->"Application"], Cell[173817, 4985, 414, 13, 45, "Input", CellTags->"Application"], Cell[174234, 5000, 353, 5, 55, "MathCaption", CellTags->"Application"], Cell[174590, 5007, 209, 6, 45, "Input", CellTags->"Application"], Cell[174802, 5015, 380, 6, 55, "MathCaption", CellTags->"Application"], Cell[175185, 5023, 1156, 33, 133, "Input", CellTags->"Application"], Cell[176344, 5058, 1103, 28, 162, "Input", CellTags->"Application"], Cell[177450, 5088, 242, 7, 45, "Input", CellTags->"Application"], Cell[177695, 5097, 45, 1, 23, "Spacer", CellTags->"Application"], Cell[177743, 5100, 123, 2, 45, "Input"], Cell[177869, 5104, 75, 1, 57, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[177993, 5111, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[178082, 5116, 259, 3, 173, "Subsection"], Cell[CellGroupData[{ Cell[178366, 5123, 344, 5, 160, "Subsection", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[178713, 5130, 660, 19, 58, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Creating Definitions"}], Cell[179376, 5151, 254, 5, 57, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[179633, 5158, 686, 22, 58, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Creating Definitions"}], Cell[180322, 5182, 223, 4, 57, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[180548, 5188, 445, 9, 87, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Creating Definitions"}] }, Open ]], Cell[CellGroupData[{ Cell[181030, 5202, 688, 10, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Table I"}], Cell[181721, 5214, 987, 23, 117, "Text", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Table I"}], Cell[182711, 5239, 347, 5, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Table I"}], Cell[183061, 5246, 420, 11, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Table I"}], Cell[183484, 5259, 446, 6, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Table I"}], Cell[183933, 5267, 142, 2, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10001.}] }, Open ]], Cell[CellGroupData[{ Cell[184112, 5274, 345, 5, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[184460, 5281, 704, 15, 87, "Text", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[185167, 5298, 422, 6, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[185592, 5306, 427, 12, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[186022, 5320, 398, 7, 57, "Text", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[186423, 5329, 244, 5, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[186670, 5336, 520, 12, 58, "Text", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[187193, 5350, 301, 7, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[187497, 5359, 471, 7, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[187971, 5368, 182, 3, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10002.}], Cell[188156, 5373, 745, 11, 64, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[188904, 5386, 187, 3, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10002.}] }, Open ]], Cell[CellGroupData[{ Cell[189128, 5394, 317, 5, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[189448, 5401, 433, 10, 57, "Text", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[189884, 5413, 345, 9, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[190232, 5424, 507, 12, 58, "Text", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[190742, 5438, 252, 5, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[190997, 5445, 550, 14, 36, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[191550, 5461, 197, 3, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10003.}], Cell[191750, 5466, 552, 13, 36, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[192305, 5481, 197, 3, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10003.}], Cell[192505, 5486, 541, 13, 36, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[193049, 5501, 196, 3, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10003.}], Cell[193248, 5506, 649, 15, 36, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[193900, 5523, 196, 3, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10003.}], Cell[194099, 5528, 617, 13, 36, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[194719, 5543, 194, 3, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10003.}] }, Open ]], Cell[CellGroupData[{ Cell[194950, 5551, 379, 6, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[195332, 5559, 445, 9, 57, "Text", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[195780, 5570, 558, 14, 104, "Input", CellGroupingRules->{GroupTogetherGrouping, 10004.}], Cell[196341, 5586, 996, 26, 117, "Text", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[197340, 5614, 310, 7, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[197653, 5623, 345, 8, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[198001, 5633, 866, 16, 87, "Text", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[198870, 5651, 333, 8, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[199206, 5661, 485, 11, 58, "Text", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[199694, 5674, 402, 11, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[200099, 5687, 539, 8, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[200641, 5697, 223, 4, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10004.}], Cell[200867, 5703, 420, 7, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[201290, 5712, 223, 4, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10004.}], Cell[201516, 5718, 576, 9, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[202095, 5729, 149, 2, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10004.}] }, Open ]], Cell[CellGroupData[{ Cell[202281, 5736, 385, 5, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10005.}, CellTags->{"Exercises", "Immediate and Delayed"}], Cell[202669, 5743, 432, 10, 58, "Text", CellGroupingRules->{GroupTogetherGrouping, 10005.}, CellTags->{"Exercises", "Immediate and Delayed"}], Cell[203104, 5755, 360, 9, 47, "Input", CellGroupingRules->{GroupTogetherGrouping, 10005.}, CellTags->{"Exercises", "Immediate and Delayed"}], Cell[203467, 5766, 612, 9, 64, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10005.}, CellTags->{"Exercises", "Immediate and Delayed"}], Cell[204082, 5777, 189, 3, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10005.}] }, Open ]], Cell[CellGroupData[{ Cell[204308, 5785, 364, 6, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10006.}, CellTags->{"Exercises", "Localizing Variables"}], Cell[204675, 5793, 674, 14, 36, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10006.}, CellTags->{"Exercises", "Localizing Variables"}], Cell[205352, 5809, 629, 17, 133, "Input", CellGroupingRules->{GroupTogetherGrouping, 10006.}, CellTags->{"Exercises", "Localizing Variables"}], Cell[205984, 5828, 221, 4, 23, "Solution", CellGroupingRules->{GroupTogetherGrouping, 10006.}, CellTags->{"Exercises", "Localizing Variables"}], Cell[206208, 5834, 188, 3, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10006.}] }, Open ]], Cell[CellGroupData[{ Cell[206433, 5842, 352, 5, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10007.}, CellTags->{"Exercises", "Using Patterns"}], Cell[206788, 5849, 1125, 28, 65, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10007.}, CellTags->{"Exercises", "Using Patterns"}], Cell[207916, 5879, 1180, 33, 104, "Input", CellGroupingRules->{GroupTogetherGrouping, 10007.}, CellTags->{"Exercises", "Using Patterns"}], Cell[209099, 5914, 1250, 28, 94, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10007.}, CellTags->{"Exercises", "Using Patterns"}], Cell[210352, 5944, 142, 2, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10007.}] }, Open ]], Cell[CellGroupData[{ Cell[210531, 5951, 346, 5, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10008.}, CellTags->{"Exercises", "Pattern Matching"}], Cell[210880, 5958, 1541, 45, 81, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10008.}, CellTags->{"Exercises", "Pattern Matching"}], Cell[212424, 6005, 187, 3, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10008.}] }, Open ]], Cell[CellGroupData[{ Cell[212648, 6013, 333, 5, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[212984, 6020, 677, 12, 87, "Text", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[213664, 6034, 747, 15, 65, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[214414, 6051, 379, 10, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[214796, 6063, 198, 3, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10009.}], Cell[214997, 6068, 920, 13, 64, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[215920, 6083, 2994, 88, 152, "Input", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[218917, 6173, 189, 3, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10009.}] }, Open ]], Cell[219121, 6179, 122, 2, 23, "NonPrintButton"], Cell[CellGroupData[{ Cell[219268, 6185, 329, 5, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}], Cell[219600, 6192, 639, 11, 86, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}], Cell[220242, 6205, 446, 12, 75, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}], Cell[220691, 6219, 347, 9, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}], Cell[221041, 6230, 209, 3, 57, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[221253, 6235, 535, 9, 57, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}], Cell[221791, 6246, 1136, 25, 65, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}], Cell[222930, 6273, 201, 3, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10000.}] }, Open ]], Cell[CellGroupData[{ Cell[223168, 6281, 372, 5, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[223543, 6288, 963, 19, 65, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[224509, 6309, 222, 5, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}], Cell[224734, 6316, 751, 22, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[225488, 6340, 697, 20, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[226188, 6362, 625, 9, 64, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[226816, 6373, 3689, 140, 291, "Output", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[230508, 6515, 186, 3, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10001.}] }, Open ]], Cell[CellGroupData[{ Cell[230731, 6523, 319, 5, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[231053, 6530, 456, 7, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[231512, 6539, 609, 18, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[232124, 6559, 1009, 19, 65, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[233136, 6580, 884, 24, 191, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[234023, 6606, 386, 6, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[234412, 6614, 275, 6, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[234690, 6622, 397, 6, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[235090, 6630, 367, 10, 45, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[235460, 6642, 569, 13, 36, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[236032, 6657, 185, 3, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10002.}], Cell[236220, 6662, 424, 6, 35, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[236647, 6670, 186, 3, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10002.}] }, Open ]], Cell[CellGroupData[{ Cell[236870, 6678, 364, 5, 51, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[237237, 6685, 711, 10, 64, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[237951, 6697, 1430, 38, 278, "Input", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[239384, 6737, 807, 16, 65, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[240194, 6755, 389, 12, 141, "Input", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[240586, 6769, 619, 13, 36, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}] }, Open ]], Cell[241220, 6785, 112, 2, 23, "NonPrintButton"], Cell[241335, 6789, 80, 1, 23, "Spacer"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[241464, 6796, 79, 1, 1, "SlideShowNavigationBar", CellTags->{"SlideShowHeader", "Exercises"}], Cell[241546, 6799, 228, 3, 64, "NonPrintSection"], Cell[241777, 6804, 154, 3, 45, "Input"], Cell[241934, 6809, 252, 7, 26, "NonPrintInput", InitializationCell->True] }, Open ]] } ] *) (* End of internal cache information *)