(* 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[ 255389, 7158] NotebookOptionsPosition[ 189651, 5553] NotebookOutlinePosition[ 223860, 6287] CellTagsIndexPosition[ 223141, 6265] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ TogglerBox[1, {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}, TextAlignment->Center, CellTags->"SlideShowHeader"], 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[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"x", " ", RowBox[{"Sin", "[", "x", "]"}]}]}]], "Input", 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, {3.5709588230625*^9, 3.57095883453125*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", "Pi", "]"}]], "Input", CellChangeTimes->{{3.570958879125*^9, 3.570958883265625*^9}}], Cell[BoxData["0"], "Output", CellChangeTimes->{3.570958884625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", RowBox[{"Pi", "/", "2"}], "]"}]], "Input", CellChangeTimes->{{3.57095889271875*^9, 3.570958897390625*^9}}], Cell[BoxData[ FractionBox["\[Pi]", "2"]], "Output", CellChangeTimes->{3.570958898328125*^9}] }, Open ]], Cell[CellGroupData[{ 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[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", StyleBox["\[Theta]", "TR"], "]"}], ",", RowBox[{"{", RowBox[{ StyleBox["\[Theta]", "TR"], StyleBox[",", "TR"], RowBox[{ StyleBox["-", "TR"], "10"}], ",", "10"}], "}"}]}], "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.56984900359375*^9, 3.56984900590625*^9}, { 3.5707890856875*^9, 3.570789113*^9}, 3.570790108578125*^9, 3.570790215828125*^9, {3.570958972875*^9, 3.5709590016875*^9}}] }, Open ]], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJw1e3c8lt8f923PjHvY9zBSZiWRjHMaVglJSEYhlXwVUkZpGEnK3jMkq4xK qFzHLmREUpK9S/a88dy/5/U8f31eb+c6n/M+n3Xd79fLJelwzewiMw6Ha2bB 4f5n74yfnN/elkbpvG+q6mtIaMxPaKmXLo3SOCv/iwklIWOB/pV3a9KooXgi RceMhGga1zevLUgjrxCOqV2DRFQTGsU5MCaN7ieAk/abBMSp/J2CvkijidUW hak9eBRz4/yJe8nSiO/A+X23WXagAibPbJy6NLKmOg+/nt7ADp7OZ0/cL42S M9ivuY+uYw3Zg5f37ZVGvlmmFlr9a9iAvqmSg5w0yqioesDeuYIJPVUqqxWX RkcGS0Rq3i9gD8QmGoNx0kjoP67W7d3jmNV+22neJimkcbDNH6N+BWwX9VVE baVQbr1PZUYBE/xqt89y+qwUmvT86vlBlBmmWYnf/mghhWqarI8GPGSGakb/ 6i+YSqG8rQEBPgcW6Lw//mz+USkkEveWQsezwU9M4/c05aXQ7Nnb6+ccOWFY WnCb7Yok+nxtF+neOz5olXB9cc+iJAot/PwfWZQfykRZizLPSSKd3041+r78 8GOQsmPOlCTKaX2wmU4WgDOu3cszfZJoKsYnvbNXAJpqylLu1UmiKxPK578Y 4SGhp941M1ISOeim9FpvESFSeBYS+FQShfDHka/IkqDr3dvZzo8lkRwnuKdq TIINsvt/yQdJIrZX+GtMqSTo65Vx4rW3JNqRORt1VV0IDuH95OvsJRFrUcdT aC8Mw50t9HJsJJGzQeTvzQfCUKtyn0PIWUkULTPyyTNHGMZdmEg0Oi2JHj8c vBTyRxgeLz7D9U1PEl20OPz9pJcILD25d2JUSRKZ9D38j+gjCu2f8bB+kpdE k3qPbukkiELepTFq/i5J9GXf34vkd6LQOSXV0k1SEr1LtaCuLYhCsWnuxmWi JFr4/ueulIsYfBAy+pyDTkPu0koxBANxuOcXqp5cpaHOeLTPy0Ec/tqT0te8 RENh8cqdIbfFodp3M1LEPxq6Usr3sL5IHE7tRIEiwzTkaZidG4GXgGa1SY5y TTS0KiBrZPpZAsp0jfxubKAhnvMXL4UPSMDlEWVr51oaqp8inL2+IgET2WtN sz7Q0Bf3t1BYhgwHDKe1yUU0xGk8NbnkTYal1gcq3hfQUIKljg98QoYBV++q WufSkIz6s22FZ2Qo+4SgEP+Mhmp+nEwYbSTD/9o1RQRjaOjqn1NNAwIUqDMY FF0UQUOXoyZ/7pWiQIH5Nj7jJzQU+T3dWHI/Bb4hOLE9DqahA7O1CsOnKXDd Imye1YeGmL6wxk5GUGDLpe7/srxoqHTY46lmOgWmedMmD3vQ0LV5qUyllxR4 OOlNv/9VGhrXYOeeb6TAkL5fLau2NBQ9vaNiY5UCrWdkDeKtaUidJf6sMSsV Km5frz1gSUN9w0xCh/mpsI3GVulhSkNxNLDGLkOFGftMDgiepKHgz6eUfypR oceRxOIiQxqS/FmffFKdCoWclF78OUJDmiLTBiRDKpy4cUvqMaAhvj7mjCun qLAiqDpVTouGjkka2NmdpUKbF2dinA/QkDVP3gm5y1SoXJ7Oz6bCyJ8MTN52 o0Lc58nQLGUaqru+HnXTiwqzpu7cH9hFQzhDtU9696nwxkYj3V+GwX9TdU9G MBXq8eK9yZI01D5uEpn0mApFyDYL78k0xLslwK4WQYVTSjlu1mI0tC1NzfGI ocIPOrOTq0I0JOCr/dg0gQqfmBy6GE+goV0vjre3JVOh3fnAgQMCNHSXCiNn 06hwr3vruS5eGtK4vG+69BkVMj8Q+e7BRUO5lifoQtlU2BXlYCbITkP6Zp3D EjlUmJNV+KWImYaCAmVr6l5Q4czlv5EpW1QERSvK+fIYTkPvh/xYoSKB/0hT 6wysWki6KzRHReY6vT6P8qmw50ue1+kpKhL8WRVWycB+/7RdI4apKFs3xOAp A6dcUJ+AfVS0MHh7TICBP3TudZrrpqJrRbd8jzD89enKDzxrp6KHuW92SudS 4dY7aRuzJipKddbhfs3gR5Un9zDXUdGDu3+PzzP4wxQh89cfqWh84BLPYCYV XuATaHd8R0WNcrTrdzOo8ME9LiNiCQMznUn7ksrIxzzzp7p8KgpzE/jQnESF dU70o17ZVCS0a9esTzwVjnYvYTvTqGjHqLpDTzQVshv+0+yOpyLJN/mHxsOp cNf7iXfBkVRkB4ozcxj5MlAa2q/+mIqeShyuE3pIhaGC3xQS/Klo7/Wmfq47 VFgQ0PrCwJuKxlRi9z25RYUtS43Sa+5UJH/l6Z9qdyrk+1kpbn2RigI3ZSzg RSrcY/QmntueikBbmUOoHRWaVr0kvLeiogQvu5hgSyqMyszgkTCiojhOBYU4 Ayp8TUx62KJLRTxKxot5kJHP4GiWO4ARP9yD/OsHGfV9NXijT4WKWC8ZvBLe RYVJ+12n00WpiEWj+m8HjgrfP794yZRARSk+mYsPlinwl7D9MG4HFW1QVpMn pimQQj/VewHHiFes++uv3ygws069WXqcgs54Xr+/O4cCa9X26XcNUJAJbxVz UCIFjuTK1wb+pKDrZyvZEsIojHlCfj/6hYIEg+KeDrlTYN4ZloIXbyjofe1k jYAGBTY10mWtXlEQ+/KA4255CpzSWM7kzKWg3Zwd0atiFKhImUy6kkxBzRdn XtdukGHxWGuowgMKkmX/ncFbSYblt5JcikwoKIIYlp0rR4ZSTu7PewwoKGWl 0qaZSIZPTA0GmI5QUHS0UmL6tgR0kFs+Y65KQXDixV67LgnI03vq8JoIg/9o IwvwlYB2OlwiR4fIKMYT0KbficNP8gNmrr1kdOc34btFmjhUEX73JLaLjPrV Hd74BopDjlknlokGMtqhCJ7/MRGHxc/QTFgBGZn91ekNGhaDLGze9d03yChV irVkYVMUus0Z43BuZORwxEZQZEAU9vTt1JS7REaBDifnN6pFYWFZZ7HfWTJi MmSWZg0ShRaX96TQdMjov5/glzSnKMxtHvNw4SAjE2V+T34WEWgcdYa2lSiB ZK7588i1Md6XKvyG+tESKFh6KHE4nwRzvn5yjwiTQDE/c75cCybBLbxWrdRd CUQenVbZ1iLBl9FSzvpOEijX0diZM5cIeWP/FUQoS6BHT6zYNW4SYFP8I3Xp WnFUS7jF3LAsAPVTPxob/BFDM4GRnndPcsCcRp9uz3OiKO3K8qxUTTdIVLl5 NM9cFG3fjFQc5u0CYakexb9PiqIb+Yclf1p1AA/Pq6GGUBTtKQlOEp5sBNpU Wx3qTlE08OV2R+LHaNB1E+Y0zYigc1qYEO1fJ8Ysy3FT8oEIwpr+4GL8ZrCl CJZhCz8RRNjv8v36+3/YxMa2SdgNEdRzwYVIuTOLtXasyq04iyCt29esDSrn sMQ7U30tJ0RQmhfr7KTSIrb32xddb5IIkvrzX8nC6ipmFxhDassVRv80Ov5m cjGhVrDM4Z0pjApEEs4OHWdCYMNynZYijBoKWafbHzMhmod4v0e4MDogfe1U BS8zGrLPzBW6KYykB5335nKzIGfNYk27o4z1277qocusyG2++cLfPiGk5AHb t0I50e+XSuZx34WQtMjVUIVqTmRyJVwPdAihLjbXE6vLnGjvgJlCZJ0QqtY6 c+r6BS40/+XHomqBEPr8Wgy17eNGN/PGH972FkJje4n0dYwH+Z9necVDEEJ3 P7HkfAznQ8Vt+k+7eIWQ2qXBh+7lfGhIJ8wtlV0IOct0BmMDfEiPTNqzZ52E Tou82d69lx/x/ZQtNhskIbOU/RKKTfwo7fTx0sQiEvqv3/KOk5cAaq95GuWQ R0ImH0NfBwQLIGaVTg+FLBI6+flTsFu8AHIWsNn/MY6E/BI8P+aUCyDlL/+9 GbhDQi1V5NT0VQGE6UWW7TIioa/ql17nuAmi+bff4mZ1SUjZLPCl921BJLNT 7FYFICH/zbxrpFBBFMKSpX5iPwkJ2QgpFmULIlP0ptxNjIR4Dt5tdPguiB7s WUtQJ5KQq+QrEDosiN6kafvg+Egoe+i5ye1/gkjkToNGFBMJCcfqyCN2PBrQ 6Kl8O0FEVqkfoxpU8AifJ5HsP0RECVIvnhzRxqNjIhf89H8RUeBHf6FH+niU uzyp+aONiORVrXq8zuHR9dcbH+hlRNSdetml9R4eZUrB1PpiItoYN6akP8Kj rsjAO0/ziYj7ldrtQ1F4dPD6Dh1aGhGRqg+adGTiEU6Jih0NIqKQUz+k7lXj 0W2hw3ZB/kSk/W9QEn7Go5Vth82GW0Tk2Mn+vLodj2a+5mgedyGixT+/rnH1 49GVD59+PnYkohePsr+1jeLRyPMpny82RLQk8WbD8g8e9Xorl5uaEFEq//0v L1fxyMLB1DLKgIjUTdNS/bbw6OsJj+XOw0TkI1xzk4eVgD5RylQtVYkIY3eN decjoGOcPZ0JSkQU7hjCZkAgIGxuzeOnLBGFuXR3DggTUFmddomtKBEFyb2Y OEsjIJVX9qbpeCKq5hyyPyRDQC/j7/8b4CEi3Ycf4/p2EdDu+1lPpdiIyGnN 98VRBQLKdqlXctoioJ1PJV66KhMQzXy85fkKAekmOdVa7SOgZG0u1/FZAhoY 6GLnVCUw3sMKPHJTBNT+42WMrxoBRQmczHcZJqC8pb+hxQcJiG/dzbDwFwH5 9Zty5h8ioEfDERN/vxEQ+GCseEmLgFi/lD7c00ZA9EviwhPaBHSvrEvW/RMB lRQ/n1QEBLSRvlxfWk1Ai0/j6g9AArr5SOTiYiUB2dmYfmE+TEDzHodY1d4Q UDnHjHQMA/9nY5N16yUBLegd+TvJwBO6/kcqcghotqH7JOsRAnLakzG4nk5A gmenXYYZ6/0iNfe0EgnoFcXL5SEDWzOPUP2jCMi0lOw5yzive5oNwx4T0Dfj I4UUBj71bZcdUxABuS7Oa+MZ/FqqDDeP+BOQ7+M502YGf4PcqymBtwjIlq2E 7zjjfnWRTzQbrhOQtJ/5s6eM+wO/op8cLoz4Hn+1P5ERn0qnDh9DRwJKUQZz VxjxUzNeEHlsw8iLzQF2JkZ8S9VJ5S1nCMgk5mq6HSP+SpLqlnwmBLRy6PLU A0Z+ZBZ9YyMZvK3oUia03QSU0Zei2sk458wL0JjIyLd4Y1UnkeHnLr3v5U9G PeCTmPEJsgR0NSI89LUIAT0JkCn5QWXU1cuDIyeIDD39n56puCgBHdF64lnI T0DbIPRpGg+BoTddmRrZGPeUK1QaYNQl12b25fs4AlrGt7ZIMuq2tmmom3UD j/6MCvI8n8WjG9PPMy79w6OfjxMfFnzDo48pMkuZDNtZTys834ZH+zONk2UY tmX7RTuJ0Vease/Hb33CoyrPMtF7H/DoMIu7Skwlo3/PdRaYZ+FR+EfPwdwU PEqOtW7nSsWjv6MVnB9jGHq/bXCxKg6P7snU2meH4VHw0VltuVBGnx9hcfnr h0cuCjvaN6/jUU0BluFmhUeOF2MWS13wSPhS/qKkCR7ZpIuLXnZi8Pf/LpGv i0fGBHmHr5Z49EF6uFaDMX9UNvQWc3TwiJDM7G3DhUcbTfdETHnxaC3BRXCw SBAtsnJqszHmVvzPgM2NLEE0oxN+oXJbEK2xW5z6Fy+IBkpT82UWBFGVX5Lk +buCqC6pUmvtB+O5868F3Y0EGX27eD7zhSCiewvlB/cLIAnuy3mLRwTRrnNH 1kO6+ZFdVUuYlJYgMhLIV+B9zY+eeey7bnpAEDXwWt7SDedHsr3raoW7BFHj /TTJPj1+tKfwSZ0jL2NOM3XDN6V86Ijx6/6v3wTQf9vxAel3dqArUVukkssC 6Jch2dFzlBtdPSDP1ivBjzr0DLrCZNmQo/rv3NpaHhRDHCLOzM5hzrnqFnrv eBC6lnV6IG4OcxGNZPmcz4OYdnHkz2nNYdc3jtq1RvIgm+cpmV6PZrHbWB7h hz0PYn+6y0rbYAaL0ffyn9ngRs5KmUPPqiewBktec1FVboTHopovrfVinz9d ZErZxY0qf0xU7c/9ibVoYK8o4twouc9l96LlD+yruAeXDDM3OhpEFT1f2Y31 93+vUm7nQs+VTJ2OPu7AVi9lyR1z5UIsU3bnvO59xOS9D227ZXMiWtfl/PJd nwDqM5YfjuNEDRbxgtqvm4DFUcczlo84EeS6m5qg+QU84AsrAG6c6OWcQ72N ZAf4kd1nKXCQE2lzB7yaJ3aDkI57xSXNHOhnceCwaEE/oKjH9u6s4kBPmN5/ ZL06AN6k5LEnFXOg1v4HlQnbA2Dg0lebB7EcyFhw+w6/7BBQ35LmOm3PgdI+ jZQKXB4BY/KNFxbn2dGWttDRA9gEuB3RG3Z5lB2tsFWqtuhOAvzyv3e/vrOj calkU5fmSaBTLcJX/4EdDb2zcnnXOQViLV0qY4PZUVq74YRXzx9wLHAHQV2M HXl6lC60WM2CZ32n63wOs6GohfE4UusCUBlRWe9SZUNSvrLkoM0FUDcluHfv bjaUfC/hwG3FRTC20pY8xseGMoZ0NHCPFoE83sjz9C9WlJu8Vn5WawmU6h2T UrrFih43PKfJhy2DoyelrUJcWBHz1om5jdfLoOs089NhW1YUFxGVYta7DJbP o7XEY6xoRYtP6OnuFaDpp9XBjmdFF8YDmDQ/roC6ItV7A4UsiO31Xnm7tlVw poxQppnBguzeXCm+8W8VjH2Yn46LZkFK/uUq/PxrgLOp2PKkLwta+9Ozv91o DZwcUdxTqc+CSkTwjQ9q1sDvKZ6LJE0WlD68B1X8XgPX56aSriuzoKoxtHhj fQ1EbeWy7yKxILPr66e8966DbpGdv6OHmNEG9Od9G7cOLlFZif++MSMdcwdW gaJ1sLpz2PD4Z2Z0/pPB5L+GdSC2/9lbXDEzelhltaiztA7sTpKf/HeHGTmb v/tENtoA/07Taz5dZ0ZGx2K/ZZ3fAPese1elnZhR1QxhrujGBsi8lOj08zgz Cs2/x3YueQOM3ydp6Yswo9cv4G+m4Q3AfafoXzQ3MyrO8BKjLG0AZW/DrAE6 ExpmLWR5yU4HN93ucPsOMqHP7mOsMrvpIOmKcFVDJxNSdwou4z1IB1VOJe6E BiZ0Z9ba4Io+HbCfG+0pzGdCU0ZfrO460YG8xd2wtRQm1G9PC9DwoAPjU6JQ L5wJLefuGL18lw5i9U++6PdkQnHjedjuBDooPzJurejMhKRHe5Yqsujgl/Z9 Ph8rJnSFnvK7+hUdyKi+9cJrM6EfO+nW6rV0YLDHRM5+DxPygOEfn7fQgav8 5K8CSSZUKJx5PewbHUTsDIhYJTCh2mSBwek+OnhDIx/TZWdCByR67tSN0kGP +LuVyFUcKr9BLBf6Swd0oVMFv6dwyFBlk3l4gQ5o+Gk7hT4culA81Cm3TgdH dwThvdtwyFZZIXN6mw6cOakNddU4JN9nMr6bbROEslT4CL7BoYOjPyhDXJvg 1ZaZkl0ODrU52TcI822Cr2t/BvITcKjZ+Z5tk+AmWF4MjlkJxaHGjuGL68RN IDZLMzh2B4d6TFQdc4U3gc505UbENcZ+ZXJvl+gmcBgzL+q7gEM7NfTP3BPf BMGDMw7y5jgU8vDMuQKJTZD/K0Tolh4OKZ4Y8rYgb4LW71JNtQdxaCrCT/MB A89//XBHQAGHdm+mq+xhYKFWi322ZBz6cO/9P1vG/kOfZ0fy+HGomF2GnZ/h 364uNGGZCYeExYV4jjLOZ75rmBA8sY3NhZbErgttguNed7apX7Yxpc0lHTUG /8irJc4VJdvYUCD2bFlgE/RcGP1iFreNvVestdbasQloVqIH/vhuY7V+jzk5 GfG5bHwyJch+G/NZuHHCmnUTFB+7z0I9to05Pcyv38+I7+qhty7lu7cxUT4p 8dg1OgD7JjtO7djGGgoS5vwZ+QneRdaYntvCrqiFz879oYNW8qmMwO4tLCta r3qGkV877gq3d+lbWF3J86CQbjrIwf39Zhq4hencd+uSbaWDv8s07anLW9in dpWCU/V0cHs4hIessoVdFb1bYVJKB3U/PniUCW1hmtoxZ2Vy6YC3ffaHycYm phT/ziwklQ6SP1jlPqjbxG4eVdjP9JAOKmN3605YbGJpI7WHms3pgPPcuCOT 1ibmt64Ueo3RHxa0nAdikpvYJ82elUINOpjPl0ZG03TM7sJf4WUJOpBDFM2S u3QsuPsEufv3BrgZ1He2yYmOhYcTOaxaN0Dd8RTvYUM6Rr29g93n4wY4/020 jESkY4rzbZbJSRsgYYq4zzd3AwPkP+RbphtgrKjTJPrJBvY246Efh/YGUPWK civ02MDsM16qacttgLZt/sLfWhsYrkgPl4LbAOwknl1HO9YxcSvFSu2CdeAF mMi862vYm19iIi2za6CGFWnu7F/DnIduuJJ61oBAk7+1Tt0a5qQoEiiIrYFC c3r89adrGJdZl/fOsDUwcmUF/01qDSt438/FsMAs5i9n2olV7PAZK1axo6tg 7+SPxT2py9iN3WGRSWeWwY1ZJTnhwGVM6sjHG4rqy6B85b7tlssyxnxE8n6M yDI4zC7f0HJwGSumbclN/VwCZtK+8Ve6ljCV7Hdnq22XgJet2KEsniVsTPtu V4vNIqjssL4r5LuARfXsbWrRnQfHKnu5Ni1msTJh1VHa72nwKv+5RqPmLFYU 8qa1ImoaiCRfuxJJm8WiyjtLnfSnQfcKe9SJrn/YUsUB+krxFNjpZyGQuj6D 6fHFAMOgSVBzf4kX6v/F3NS8+dVVxwH96X724IFJjHWGTp9+NwTarzVeFMuf xFrk/CtNPYZAlum5+leek1jryT1tOKUhcBwfEPidfRIbBVVZhlmDIDH2K7Oc 0gRWEBROL4geAGop7tvNPmOYq77yvBp3H7ieV7QqSBjGDmQItZW7fAN7+dwC jgwMYYVt8mB5uwvMeSjyeb4cwqoSTk5xx3UBD6086S79Iezt8vzDmrpO4NWW aRx3exCzvUP/+1zxK1iYUjA80NKPdYbRT/KYtoIbb3Lt4pz7MdWgW7428V/A 8p2dN1Zw/djmbUXzlIEWsCpATa848BszEWUpX/ZuBnQ1/JJ2+i8s5C/2xLf6 E2APWM3Q8/iBHVb6GfrxTS14aORV9oL3B+ajc1Q6WaIWcArNN3O+6MFutszv Tg2uAdx508tNvd8xhTafK2IXqgF/228jE91uLKhF5F7s+SoQkXDOobj/G3bw +VWZQ6c/ArxDzy1B329YCrsEx5njHwBxqSOz81UXJhr0MIBZrxKIiNevWop0 YsZl3ZQmzzKQOHKYr6L0K2bT6UcpCn0LxF5VSYud/IoduHN0fl/OG0A+XG78 634HpskbQZWeLgVHWy0Mq7vbsAcK/ApnrYuA3gXTGwE8bdiy/Uj1wteXwGDR MF0XtmIql511d5wpBEZi2kuf81owG80ycq9XHrBwln729fZnbITb5HWefDYI dfcMiXr7CTOKln0gtpwJPt6uvWY204g9qo4LH2h6BmSiHXW+2jdgGuI6o2yS 6cAq7fXOqIR6TLxiUr2LORU8zmPZYdZRh2HpbhbeK0lgHsvq7ThSiwXGpZ2+ IhoPZJsXaiL9ajDJJK31T3qx4Gz30fxTb6oxgv8ZuvTDaID+DHt37ESY+u87 +X9hBJj4dwlJfazCzBYvevXceAJM2DnDM5U/Yj49E794noYCyn4DxUzBSsx0 ulvo5P4gEGQ4sS4ZUI5xJlYM3cAegD/2IZ+fLZZhHvd0J9g97oHTN3cnSDq/ xS7XkbMl4m6DyrBPzs++v8boO9upCrHeQDLr8gFJw1LMg3jrpdHgDRBSwcn6 rLIYY97XAaN93cHv9FPPD1u9wgRFH7+i1LiCly2RRw5rFmDirib/0uUuAb+1 jn5IycWs1Jid6hUcgKEs/g5keo61//G/Yxx5DgifNhODI8+w9be5wW9x5qB5 W+ba3aep2PavRvHPJ06Ay2ef5/mbx2Oyd/OxRabDgPX1zpE7YpFYU0hbATBQ AVDUSHsdBWG27LPzAdFkMJuQ6DSX6IH92xRzkc5Y0rnNHFOvd/AsCBa25Do1 UKujnOTYSFS7Cxy+8VgLuPOB36IlMzz8YeDPp+8Bckm7wen9PR+CD8eAQIvk xGvZGqDsh+WDh35JIAqQl1YndcEONC1dZ50BIohwpL3MFIDoguC6W1ngt4ir 1p1XlsDd+epkXUwOWJXhrervtQeZGgpG9SV5oOO+sePldCfQxTv9qr61EBS6 W16NnL4C2AfyBRumi8D4OV3DU1+vgZSzBw45BpaAq4feF9fLeYIDR2OvDuNf g2BzL1LEu5ugVXEpxfHZGzBE7Y2/GeULcLi3245V78BN5ft9z+Pvg8RJ4r4R owpgmPnnRMhqAFDpvOHg1FsJykzC2druBgOnHNV6p9WPQKv9U6QlUxjYDI9Z HgnGAF7Z5pX/xlPQrLUeXRqKQPtteGZqRyRwkrWuVxGtAQ9K7P9cuhQD9opz //YYqAGRca5H8/fGgU3+yuXSF7WA7H8neJg3AcStie7er1YP1Jd1TgttJYPG lh+h+09/AkK0i+WqFzLBZe+fjecUPoMrXBz3LhRkAU6ZXtZAliagcG5RKhj3 HBz3++Xf9boZ+BkFHUpofgFa5Po9vIht4DNbacH68Evg+q2/KPVPGxBz1WBl CSoCwfD6soNDO6BLrhTYJxSDXX+u7398qAMonxouEjIvBZePerzsnfoKNhpi Pgxyl4GDifPN/yw6wbnnZxdy2d4Bzn8eUyy1ncD4defNDLZykJfkuUsxuQtY j4fqc5EqwdTcjWe3T3QDyycapaLuVcA141YsufAHSLpa72fAWwe0llde7xP5 CYTOeoy9KakDvEbeX3UDf4KfvY0PAs/Wg5cr3vxuNr1A8GQySae4AcwY+z6q 4u0DF/1ws4U+n0G5f1VVkdoAkDJKl/rt3QYOKVWXmsYPgwS3iPlbgd3gQFd3 XNXnYfDRmM/aZq4b7PX746tIHwZHis+2cNt/B7KfhY9yXhgBot9e0D9o9QDC RbdOTH4U3Lh4s06d6Sf4kyK+qFw1Bt5698Y9KOwD6bw3D+wYnQQfbr2nV3wc Asw3Sb+cRGcBT1mB3eP908D6fP7XctVZsFkyPKl8dxqUHgefeU1nwVLaU6HR pmngQL1S9iZ4FrwhC2Xdd/gDaj59iGBdnAW0pZIrulF/QYC4k2526xwIizEb OTL/D7BWl74aDlgAVzz0eiin54FNgf5z9fQFUB8mOLnfex68if2V/LhyAXyO bEtVSZ0HTi7sj/bPLYCDJaenJsbmQT3B2jHAbhEkl65+kfBZAMHOTCLSGktA OSSwAItfBBy8pvcdZpaBkb1t1FjZMrDaZY3UuFaAE8jbndO9DPKPOG1zy6yA MKsyw33Ly8DYx/vO67Mr4PM1dc8c1RUQN5bhw1q/AgIMSq7Pv1oBstVz7jnJ q6Dn7lWtowmrwPvXRrFv2Soo6+ydMHqzCppW2GaNO1ZBi36BH6F9Fbgpi7mt sK8B7/6r1Z0MW5Z8xMXAYw2ELx6Y53BfA7o3ox2mDNbBXjNSga/6OoiLTH1W 5bgOiO2TUpPG62Ci8MVAlP86OGOeGMXuvA7Cht/bab5ZB/q+QpvHo9dBl+mI dRh1A0zgzYuGJteBrOtM4vlDGyDGQTKiZGsdeD9c7VE9swFsMk437SZsAIkq Xsu+0A2wKPSJf4fmBnBSOHBaeXkDPGuduxsXvAHK9EAUsyBDp/Xb1kcmbABO B8OObgU6cFCN5tmTvwEKE2xN7l6gA9J570CjFoYftuAT7QxdduxxdNcmDx3o SUaEZo/TAQw+WbcgRgcJWkmfvZk3AceHprwgOTrQ8nylL3lwEyS9Vbviq0sH AQPdRz2yNoHfzfXH0d508LvixH/eHzYBW4hf05MAOjgUjeL8v22CiulzBMWn dDCrmz8ZyrEF5LxOhphl0oERlUqIpG2Bu8PyiT8K6ODFarRWvMYWEJZl82d+ y9AHBXfCs65uARad7ET1Bsbv98D58rzALfD0oU7VEYY+INldGipK3QJSTkFR fxl68rr6L56ysi1g3WkYoc7Qky0Cpw58aNsC0zyhKrQROtg9VW9XM7EF3v30 XMqZYvCvPRTyiWkbnNtytmieZfC9KdPbtX8bvGWZ/Tu1QQdxJomsvUbbwEzS fOcobhPM7eZTHry4DXzzHOi+DD1pxBxgOe6/DWgL8csFDL2U27ty72/8NnCm FSfcYugp1reu+QvF2yDufN7lPobesn862Ln2eRucVG74+4uwCSovWWxuD22D vkfhxV4MvSZ0uFmWnb4NavZ8P/RCZBMc3EHbHcyNg8bNFcLuYptgzOenFpcw DtrtfNb5laH/YsZiToVJ46CoiR69maEPj5w2cebfi4P1n17TbBj6cRbj8ovS wsGwbP2O/+nLNMW6cJIhDuo+f5sOGNgo0T874QwOUs9yUaMY+9fYNCrEHXDw 8N7cYR+G/xyPhS9pbjgIwk8HLDP0pXn/yyFJPxx07ZOP5WDwYza6vJL9EAeZ wl+WFJIY+rBcind3DA6yKXz0GMUz9OnOPlpBBg6uGaV7lvBvAp6o+APKL3HQ IHPbVIB3E5RvnTpeUoGDVsNzuUycm8D5Kq+9agMOnvm0IBbEsgmIPQ2e777i YMbajH7SFh3UHLsfcqgfB1s3Dn2FDL15vUQz9eM0DpoIp9t6M/QmmbJcAldx MEbTPBz+pYOm0OKGWlYm+LmPnS9xjA68V1x69QSZIK6z5/79fjroau9nPSnP BDkm3s3i2unggXaSaLsaE2Tecjwa30gHe/PNlU8fZYI/x68f+lBFB48DPlue tWGCd1qNvhUz6vXgbIDrr8tMcDXx5a+7z+hgzEbnvr0XE5zRjTP5FUcHR9Re 5198ygTTEttNtO4x6j/zP2wiiQk69PYZgRt0kMa/u+vqCyb4y/dvTOslOlib SNl0Rwx/UfeXI07SQXFysKn/PIN/T+1kKoEOmgnB4/w4Zmhofb4+m5lx3uMg /2c7mOHPlxQNyTnGfLgdWFi3mxmeyZVs92H0d4jNA04ee2ZI0ogKzby9AbK6 7qenuDJD00+KY8aXNkCV0X01ZV9mWPdTccjtFGMeaN1zOhXLDGfPH5/ilGHo V7I/im9mht5dZ1gyataBX+wdS7kfzDBX75nYSC5j3u24M1M5xgyXZKuvJj1d By2bfhK/mVhgQJmoqq3VOjj428db5iALnFY/qXhwlKFH0732lmSzQD/pWzP7 RlaBgrBX45FSFngw9kTW0+pVoBd+w64LY4G3KulBNmmr4PZdz7CVnyxw5aT/ 6AmLVTBh7z6hLcgK7S5KcvpiKwDR/stousMKK9h8X0rfWga9Ca7qNo9ZYcJx AbWkE8tgWcC19W8CK/SWTTMIoC4DRaardIE3rDBmUb/8Zf0SSBi8bGU5xQoj OnRZr/AsgWuZTgIjFmzwv+s434LbC+CpT2LKU0c2KPI64NrQiQXwyrR1t8Z1 Nqj+NsvtmdgCmNlSP/z0ERtUCXgXW142D1zP8Xgc/MAGSefFjp2enAMuxNLO MEl2eK+KX9n/4CxwDt6OO/CHHY5qudKtmCdBsK2q9MAqO7xaIn6HEDgBclSv FIWyccDwKs/pJdYJMDr0tbGfwgGLYvUD1FjHGe+9nNVHpzjgf1miXLWrI8Bh 1cj6dxkHdPmi82C1cgDYuSSRH97nhKePjzSSi1vBxg+u1rknnNDnfhN3un0L SDD08bdJ4oQyp6Z/3eBtAh27rfr3veaEcIGYuN+uHhwbJz37NcIJc24ObCnU vwNyTpEyKgZc0MFlRTJ+7yts0TZEoY+PG7KUddT/4+vBHp26qbE/hQcKmM+0 E7tmMVZi7NjddT5YmjZn2V/IivAz/nx4Dn4oqIt39v7BiiQ/XVbLJvBD5jN4 zQ02NqRzWyv4kyI/XPod8/O9HRvyGRneKWjPD+1CR81E+NnRzBuVi5m1/LCt uV6uwoUD/ZGfcHfQE4Afrp075cnFjRaF+4IKjASgbRaBj6rCjTZYvyYumgnA TomB9GfW3Ii7/311sL0ArHL+PLW7gBvtig4XLPAWgIeJjWjPcR7ksKFWspAv AB8NlKim3OVF35uDZgP5BeExu6LJ6Vo+FKOTqntGSBBOrTq3HpjkQ2Ylb5J2 kgXhA8WuLxp8/Kg1bvhYg7wgfI3Jn/rPkh81XDicyKEnCAdTzNbcxvhR2Qr9 cOhtQbiuHlUo6SeAbrgQ460DBKH8K1c5t8cCSKVP4Y98qCDcyc1yOCpZAL2q sY5rjheECYMd/+zfC6CcJ+VTvK8Foa6VsxLnmgCKk74RHT4pCBPr7AOOuQoi 87jHE/azgpA5+T/eER9BhOfK0t67Igg57r6QsHgoiJ7OdIy3s+Lh0Pe2lOJn gii4Yo8WnoaH7s4OH9W6BNExRf3IIVk8fCwgQnEYEETM6XZjpUp42GDyLMf2 jyDyD3wScVoTD3dQP3LWseDRTZPpkRgLPPRNsKPp7cUj1RrmQxdt8dBFK7B5 6hAezauKhR9wwsMzjn/sbHXxyE3MUKPbHQ9Hn7zbXXAWj5xHc54IP8FDirZy 6+BdPJKxqhoaj8bDyYZs7ZkQPBpq+qZenoSH7zxEvBsi8ciumHXIKhcPowq4 j//IxKMzfg5qSbV4WJZ0/NL9GjyKSyWyr3zGw7189VFXPuNRN9bw7XQ7Hhq8 uhoo1Y5HFqwKXjv68JBPZmyJrY/xvGzfMZdhPBSYqCDuHcaj7wbhxMZJPCw+ +V5dfhKPrJ4svL63jIfv1fy/PFnEo4Si5wF9dDzc/MY3vLyGRz0dlqcPsRDg 3j7XI3u28eis0If5BX4CnBJ/JLeDi4CSDrrVmAoR4EzwlmXpDgL6aU2LeilB gAG6JWRZPAFZpwfuuyRHgLZu5dXeYoznq9WY6vYQYPh/dcctKQTUOzzRTlMj wP+c/BGLFAFJsCdn3NEiwFz5kLU7OwnIZvfJ6z+PEODl0xxf6ncTUMrxbaBu SICto8/xvQoE9Mu1hD/GhAC5idGZH5UJyLaEVHTShgAldr5hndpPQGmdjf75 DgTomDH2aL8aAf1e8jHmuEKA00bOmOFBAqKIKFKcrhFgXBX7PcVDBGR36Pdf 5EWAo4MyL3o1GfttIj6SbxPgibwXApbaBNTvf+SJ7wMCFKjAJabpEBDt2aLN 9xACxASVyKWAgM7X5iiqhhOgZMVb30hIQBmjVvSIWAJEF4rDtQ4T0CAHT8vf ZAL8K4AOvWZgKfmPycczCdC4lnRuiYEdjK5dfZHLWOd3b2c+QkCZbpKarEUE WP2Z5tfLWB+K6OS+8JYAy9NZtO7+b//roJ8f3xOg2vuQxb+M8xy/qeeL1RCg iG1x8C4Gzl6Z9Ln1iQCFfXi/KTD4jYimGHa1EmCZSXXNOuM+MlrGovu+EWAo e/D+GC0CcrLDTT7pJUA28JxnlRGP7Hul5VODBJhasLlHVoOARjOdQvQnCPBi FnMwRZ2AZOuFrLJnCHDHmw8LA6oE5Dz+aRfTEgHqqTTZ/6dCQDlcfiu2GwQY 8sm+pHYPAY0rKDVWMhHhIVbD9mFFAtpt3B8nzEmE2oMT2V/kCOjy9UjnG3xE 2Hz6kMh9WQLKjTqq1kEkwor2dsIWoz4m3iyxKYsT4Y6unvvHqAR0Ze3s8/Fd RPgl9d95JWECyhfn9TqmTIR7ZM7mtTHqb0q76tgzVSK0LZ3Ca/IRkMsDqRHr w0Q4jh/fcmUlIFeeaalWayI8YyJvpjmDR9M+law8F4jwPcfRL0cn8Mhl4tGY /iUijL62wS08hEeX6nfnV3sSoZS/XxL5Gx453HXe9zaMCPVtnbC8cjwa/HuA MB9FhIr/pJg4SvDovA3bknIiEY6ozBcq5zH6WyO7PPc5g69ehGRfAqOfFgZB ShURUl0d3731YvTbhRLJH3VEGP57l/9FV0Y/t99jEWomwmXHOb9+Bzwyf0lt DP9OhLPXzvCpmOCR6SVb44BZInw4tc/o1E480uvtsXGRIkHqXj2id6MgqjfM 1XmxmwRxxvG/myoZ86/8Fm1EmQRlmjr/jL8URIdjhUZsNUmQM+XR33vRgkjL xPzqKXMSrBuKPrnHRhCp1Lb5HAwmwdNPf6wFDQugkn3p57zCSLD/WpPs/U4B tDfDTbs0igQfzoxD/VoBpHRnB5NiOglW7Yq/rZopgHarnwihlpOgtRD7Yoyt AKIWNMSxT5Fgy5ji5mYMPzJPL69omiXBuMdvq0Sv8qPQ6PxfT1dIUGv/5+z3 kB8t+j2VEmYTgm0b1ImoKT7UZGTxahdNCI6Xv5iJO8iHbs6M1htYCMHPT4Xf qlfxoi/72JZCa4Tg2lXb1BMeXIhZdkXY5LMQnFkrHWrR4EIHxSYPEdqF4Pn2 yh/9OC6UyfzlXnKfEKxduYF9eMKJvDtjeAtXheA5O8lV+0wOJOMlI/NFWRji m6MXP75jQ37lR0/zJwtDp9/Moe/jmJCKTfus/TNhmJspVCphwYSmtm2eFr8Q hjN6pY+VSEzIWv/m51NvhKF9+dl756Nw6FB3Loj5IgxJTkUdB/Db2OrCDkVR nAj8/vG+TU37OnZzTw+r9EURKJHnNdI+Moddz3EtU9sjCq99/4gv6nwDeJnV HZRHxaDVEn8MZY4dVtxiOT02LQadyAsBQQYc0Plv29G0eTHoU+R+qzOdA6Ke yzv5cOJQ3KSPh2bMCT2Lkib+ionD6JcB5rZ5XPCnzZbbS1NxWON/2N7zLC/M fVfvp/hBHI4MyourtAjAM0pRriM14lBs/E+G3pIAZM6ys035LA7LTKuVtCmC 0Obpig7vd3GY7HlvX+s1Qch/UY75z5w4HJMtfX9dEA9v4p+EFOySgLuytLWA MQHq/mceKx8tAdda1XcZ5JPgjaj3uGuJEtD03decnS0kmP1OyvV1ugSMyfW3 /vmXBJmZ545oFUrA2TD9t417hSCKezJ7sl4CUmJm8nPeCMFDqOGE+4oEPGLs RxNjxPnKqNK7t5sS8HhV4BuNTmGYwB0rtc5ChhL6onS5eWG4Yu649kCADGO+ CQr67RGBbya3c2L+93+3u66bd70QgcoEDebyc2T46Pe3R7zhotD2YMZ/9Atk eCo/LpezQBSG2XL8gJfJMJZ7yaytQRROv/hW9PkGGU68f9BauSkKc7U8bHuf kGFXFSLirohBaeeC8i2MDKk6cvPzquLQ7DFe5mgDGepiKQquJ8Xhg2Kf8Ict ZBgk66Gaf1EcDqzrOwv8IEONoyVnPGPFYVr4CEFqngx/6sTb7J0XhyIV5Gu6 MhS4W3+vLU+GBNxyfCEuqECBDo9SQx3LJOAI375Pv/ZR4KYT079rLRKw2OmY 5A1Age/plz9nMeKkL3C1M9OasV9patL1OBkqvl+863aBAs+f7ps5Z0eGeGd/ xUOXKXA2eFCE7k6Gv99HBnV4UeB3hzAH4wQyvHmpXB0XSYHK3xRy9w6SoQ3+ yEhzPAXinxUVpDF4HvnYHBGfRoGNwVvLlSwUyEfon1QupEAO/jT2TQbvnCq2 FNtGCryTE5CT6kiBYVfCDeRaGefnLfnf8KBAD6Lo0mIXBdo+81lbvkeBOi6K xmFDFBiRtxi1mUKB30ince83KTD9CjvG2UGBlehXYTArlaFPtzhV+ygw46rz WTMeKtRyyX7EOUmBrtU+pZMiVHjCQo6ncJsCzVxZ7N9SqXBPzcPbvtxUeFD4 Cc99WSqcEI9hmyNSIet/GU4iqlTIk257/NtuKpwSlhccOUSF7e/O+x9RYdia 1x+LDlPhKHtGpYUmFaaINArpm1Ahm7W2vqcRFT6oNa3FW1DhwIdWYT9zKrzs 9vPabxsq7HFmm9vNsKp1fz95uVCh8vLP/2vFrt3yOuzO8NeLmRAZFifGJLXD mwrddHv+Wd6iwrG60NYefyqkMHdfg3eosOUa0S87iAphg0f8lwdUWCqWtut6 GBW+0HHfs/2QChPqd3VpRlOhjWQa0zfG3/2vl9zjSKJCRc2OHuNIKnQU11Tq zKBCfd+Ze66xVGjQUPcj7QUVViyNNSglMni5Gwe7vGLwmavwjkqhQqJEj4ra WyrsHfS6mJROhesNF/qZPjDufVHDVjeTcU/36cdfaqgQ6Krui86mwgYJr4OJ n6lw6XLu64AcKixs3BpxaqfC/i9T74RyqTDKIyRy73cqRLec8EZ5DH8theUh fVQohN+nIpJPhQ67OvoHhqmQ2k2+HMXATfeX2DWmqHAH7Uj0/77H2P9LVDly lgo3Ch9FR/zveww1nTOTy1Roq/nWkMjArJEOtw9vUqGG3Ll4XYb/Mq/ajhYm GtQWmLCTYZw/lXlmdJWVBkvt0wOKGfwo7eOrMpw0qLSYPDnJ4G+26cN7iocG ZV62e7Uz7hcsz0u7w0eDGjguPidG3N5bpu3PE6RB19DJhOxUKpwN3Kv/jUiD y2mzm5GMOMuU1lgzidAgW9fNnYrxVGjVb+6mJE6D8k+KVj0YeQnjHb9/lkKD cQF5F5zDGXHQ8IkNkqRBLiOTE+yPqXDRmSevRIYGw35eemYWzMhj9Z52LgUa zKHb6s36UWHETPXwAWUahN3i7odvUmGduPnKhX00eHVtB9K5ToVKN70pleo0 GHq0/7G2IyOeWdwqY4dosIEaO63DqL+49hRdvA4NysYqHfjDqM8t+WpXl2M0 yA0tzxzXpcLWfq73Yqdo8L9CYg5BigqZd6S06pnT4NGmYwqejD5SO6Q85GFJ g4qvpkz8+agwLcaMq9mWBuf4NBzj1yjwmmGypZ8LDQ5swzNdzRSYfVPp6ov/ aHCTru8ZgVFgTxbm33mdcT7pGHW1lALh1vBzhVs0KGfsLNeUQIECrxUXewNo sCWp18PnPAUeG6ji4HxIgzXvPjtHnaJA7x2nxFVDaTCV6b2A5REKHLjkdSQs ggb/cg0WDEtRYIlEVYRWKg3SX5Wo8QyQoVmwiVJqGQ0uPWO2zGDMu5yzs4YV FTRoVp0uPqhGhmuKkc7fPtBg3ZOgrx1SZJjR+TV9Ry0NBovT3GvXJOBfmgXe v40GC/cnCk1lScCQ9zYrdhM0eMtpZtZmUhz+erpJ8JumwXTfRpm8dnG4xyFt b/wMDe7taCC+eCcOuzkHrrQt0mBRmHZFeaA4lLZw/AWYJGFuy7n96uLisGr2 SjVNTBIuDK/m1mmIQXwd928tsiQcKwjVBhJi8GJ8wboVTRL6TTXtcdsShbw6 f/dHykpC5LM1P1ktCs8+vp7DtF8SmqcZhNrpisLFnbceD52QhJ5d5Y5XdUSg /LnAM9l3JOFaxdp6xToJnnUvw7Pel4St/q3Hx9pJMOThRJtjoCRcp4iV1eSQ 4Ohro+PSjyWh2GjQ+SenSDCDlwQyExjrN9Sab2QRIanq+e6M15JQflj11ehB AsRJNm4kT0pCXODHk+ZKArB7jCsz+owU9CTVNScVMcMG80cpFVZS8Fi4vhvL UWZYVsMZ339OCn6pO3VFpJsJxqVxhCk4SMHBg+edTmzg4BkLtpu1blLQkZpD GQ7YAl31uOMLD6VgDvfTWb0HK+Br9sqcWaUUbG91mPunMQRaHUYP46nSsPzg i9T+ikVskPXFaqyUNGw9d7Cc8GkJW8y5XCQqKw1bZoTsnbuXMdHpaQlJJWmo XCg8cHZhFXPynF/ZoykNL199dlhceRNbD9h+edJSGo7Rv//i+MqMZJ+Lij0K l4Y9Onq5I1o8SEO/t503WhrWZMa/TarhQUaTKQ8j4qRhrUCxlpwBL3JXoi3F p0rDxrXDTZ/MdqAPb2XbcwqkIbeFtv3gRX5k1rA/uK5RGlrU1R5cR4Lo4uUl LYNmaZi8005yHzMeeXO/W2hulYYGV/v/0zuKR6nGhy50fpOGTNxnMM56PJro hlpDw9LQ+aqdbFcDAa17My9cHJeGIXuS+cfYiWiHeF3e5JQ01OJr9W3TIyIV e33huTlpuCecy2VnAxHpMnG13liShmzDcgcj2EjIKqspcHVVGuYGe0m0HSMh F90wzdt0aWjumKU1GEBC/+/7ZPj/v0/+P7bElG0= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{0, 0}, Method->{}, PlotRange->{{-10, 10}, {-5.440207462062204, 7.916727353011095}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.570959004421875*^9}], Cell[TextData[{ "P\[RHacek]ed dal\[SHacek]\[IAcute]mi v\[YAcute]po\[CHacek]ty vyma\[ZHacek] \ definici ", StyleBox["f.", "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}, { 3.57095902275*^9, 3.570959062015625*^9}, {3.570959575265625*^9, 3.5709595796875*^9}}, CellTags->{"Exercises", "Creating Definitions"}], Cell[BoxData[ RowBox[{"Clear", "[", "f", "]"}]], "Input", CellChangeTimes->{{3.5709590465625*^9, 3.570959050671875*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], 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\[EHacek]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, { 3.570960128015625*^9, 3.57096013965625*^9}}, CellTags->{"Exercises", "Table I"}], Cell[TextData[StyleBox["\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, { 3.570959457015625*^9, 3.57095945978125*^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"}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1"}], SequenceForm[1, " ", 1], Editable->False]], "Print", CellChangeTimes->{3.570959080171875*^9}, CellTags->{"Exercises", "Table I"}], Cell[BoxData[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "4"}], SequenceForm[2, " ", 4], Editable->False]], "Print", CellChangeTimes->{3.5709590801875*^9}, CellTags->{"Exercises", "Table I"}], Cell[BoxData[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "9"}], SequenceForm[3, " ", 9], Editable->False]], "Print", CellChangeTimes->{3.570959080203125*^9}, CellTags->{"Exercises", "Table I"}], Cell[BoxData[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "16"}], SequenceForm[4, " ", 16], Editable->False]], "Print", CellChangeTimes->{3.570959080203125*^9}, CellTags->{"Exercises", "Table I"}], Cell[BoxData[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "25"}], SequenceForm[5, " ", 25], Editable->False]], "Print", CellChangeTimes->{3.57095908021875*^9}, CellTags->{"Exercises", "Table I"}], Cell[BoxData[ InterpretationBox[ RowBox[{"6", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "36"}], SequenceForm[6, " ", 36], Editable->False]], "Print", CellChangeTimes->{3.570959080234375*^9}, CellTags->{"Exercises", "Table I"}], Cell[BoxData[ InterpretationBox[ RowBox[{"7", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "49"}], SequenceForm[7, " ", 49], Editable->False]], "Print", CellChangeTimes->{3.570959080234375*^9}, CellTags->{"Exercises", "Table I"}], Cell[BoxData[ InterpretationBox[ RowBox[{"8", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "64"}], SequenceForm[8, " ", 64], Editable->False]], "Print", CellChangeTimes->{3.57095908025*^9}, CellTags->{"Exercises", "Table I"}], Cell[BoxData[ InterpretationBox[ RowBox[{"9", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "81"}], SequenceForm[9, " ", 81], Editable->False]], "Print", CellChangeTimes->{3.570959080265625*^9}, CellTags->{"Exercises", "Table I"}], Cell[BoxData[ InterpretationBox[ RowBox[{ "10", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "100"}], SequenceForm[10, " ", 100], Editable->False]], "Print", CellChangeTimes->{3.570959080265625*^9}, CellTags->{"Exercises", "Table I"}] }, Open ]], Cell[TextData[StyleBox["\tUpravte program tak, aby jste p\[RHacek]idali t\ \[RHacek]et\[IAcute] sloupec, kter\[YAcute] bude obsahovat t\[RHacek]et\ \[IAcute] mocniny integer \[CHacek]\[IAcute]sel", "Text"]], "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{{3.56984933403125*^9, 3.56984937903125*^9}, 3.57078913728125*^9, 3.570790108578125*^9, 3.570790230171875*^9, { 3.570959467640625*^9, 3.570959469671875*^9}, {3.570959811203125*^9, 3.57095981284375*^9}}, CellTags->{"Exercises", "Table I"}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\< \>\"", ",", RowBox[{"i", "^", "2"}], ",", "\"\< \>\"", ",", RowBox[{"i", "^", "3"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5709590961875*^9, 3.57095910603125*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{ "1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1"}], SequenceForm[1, " ", 1, " ", 1], Editable->False]], "Print", CellChangeTimes->{3.5709591089375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "2", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "8"}], SequenceForm[2, " ", 4, " ", 8], Editable->False]], "Print", CellChangeTimes->{3.5709591089375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "3", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "27"}], SequenceForm[3, " ", 9, " ", 27], Editable->False]], "Print", CellChangeTimes->{3.570959108953125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "4", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "64"}], SequenceForm[4, " ", 16, " ", 64], Editable->False]], "Print", CellChangeTimes->{3.57095910896875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "5", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "25", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "125"}], SequenceForm[5, " ", 25, " ", 125], Editable->False]], "Print", CellChangeTimes->{3.57095910896875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "6", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "36", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "216"}], SequenceForm[6, " ", 36, " ", 216], Editable->False]], "Print", CellChangeTimes->{3.570959108984375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "7", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "49", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "343"}], SequenceForm[7, " ", 49, " ", 343], Editable->False]], "Print", CellChangeTimes->{3.570959109*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "8", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "64", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "512"}], SequenceForm[8, " ", 64, " ", 512], Editable->False]], "Print", CellChangeTimes->{3.570959109*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "9", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "81", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "729"}], SequenceForm[9, " ", 81, " ", 729], Editable->False]], "Print", CellChangeTimes->{3.570959109015625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "10", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "100", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1000"}], SequenceForm[10, " ", 100, " ", 1000], Editable->False]], "Print", CellChangeTimes->{3.57095910903125*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], 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, {3.5709595094375*^9, 3.57095951071875*^9}}, CellTags->{"Exercises", "Table II"}], Cell[TextData[StyleBox["\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, {3.5709594766875*^9, 3.570959477046875*^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"}] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "36"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "49"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "64"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "81"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "100"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5709591411875*^9}, CellTags->{"Exercises", "Table II"}], Cell[CellGroupData[{ 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"}] }, Open ]], Cell[BoxData[ TagBox[GridBox[{ {"1", "1"}, {"2", "4"}, {"3", "9"}, {"4", "16"}, {"5", "25"}, {"6", "36"}, {"7", "49"}, {"8", "64"}, {"9", "81"}, {"10", "100"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.570959151859375*^9}, CellTags->{"Exercises", "Table II"}], Cell[CellGroupData[{ 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"}] }, Open ]], Cell[BoxData[ TagBox[GridBox[{ {"1", "1"}, {"2", "4"}, {"3", "9"}, {"4", "16"}, {"5", "25"}, {"6", "36"}, {"7", "49"}, {"8", "64"}, {"9", "81"}, {"10", "100"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Right}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", CellChangeTimes->{3.570959160375*^9}, CellTags->{"Exercises", "Table II"}], Cell[TextData[StyleBox["\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, { 3.570959486515625*^9, 3.57095948775*^9}}, CellTags->{"Exercises", "Table II"}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"mat1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{"i", "^", "2"}], ",", RowBox[{"i", "^", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.570959196875*^9, 3.570959206734375*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "9", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "16", ",", "64"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "25", ",", "125"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "36", ",", "216"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "49", ",", "343"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "64", ",", "512"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "81", ",", "729"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "100", ",", "1000"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.570959209765625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", "mat1", "]"}]], "Input", CellChangeTimes->{{3.57095924790625*^9, 3.570959254625*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"1", "1", "1"}, {"2", "4", "8"}, {"3", "9", "27"}, {"4", "16", "64"}, {"5", "25", "125"}, {"6", "36", "216"}, {"7", "49", "343"}, {"8", "64", "512"}, {"9", "81", "729"}, {"10", "100", "1000"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.570959255234375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{"mat1", ",", RowBox[{"Alignment", "\[Rule]", "Right"}]}], "]"}]], "Input", CellChangeTimes->{{3.5709592589375*^9, 3.570959277625*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"1", "1", "1"}, {"2", "4", "8"}, {"3", "9", "27"}, {"4", "16", "64"}, {"5", "25", "125"}, {"6", "36", "216"}, {"7", "49", "343"}, {"8", "64", "512"}, {"9", "81", "729"}, {"10", "100", "1000"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Right}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", CellChangeTimes->{3.5709592784375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "[", "Grid", "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Alignment", "\[Rule]", RowBox[{"{", RowBox[{"Center", ",", "Baseline"}], "}"}]}], ",", RowBox[{"AllowedDimensions", "\[Rule]", "Automatic"}], ",", RowBox[{"AllowScriptLevelChange", "\[Rule]", "True"}], ",", RowBox[{"AutoDelete", "\[Rule]", "False"}], ",", RowBox[{"Background", "\[Rule]", "None"}], ",", RowBox[{"BaselinePosition", "\[Rule]", "Automatic"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"DefaultBaseStyle", "\[Rule]", "\<\"Grid\"\>"}], ",", RowBox[{"DefaultElement", "\[Rule]", "\<\"\[Placeholder]\"\>"}], ",", RowBox[{"DeleteWithContents", "\[Rule]", "True"}], ",", RowBox[{"Dividers", "\[Rule]", "None"}], ",", RowBox[{"Editable", "\[Rule]", "Automatic"}], ",", RowBox[{"Frame", "\[Rule]", "None"}], ",", RowBox[{"FrameStyle", "\[Rule]", "Automatic"}], ",", RowBox[{"ItemSize", "\[Rule]", "Automatic"}], ",", RowBox[{"ItemStyle", "\[Rule]", "None"}], ",", RowBox[{"Selectable", "\[Rule]", "Automatic"}], ",", RowBox[{"Spacings", "\[Rule]", "Automatic"}]}], "}"}]], "Output", CellChangeTimes->{3.57095997228125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{"mat1", ",", RowBox[{"Alignment", "\[Rule]", "Right"}], ",", RowBox[{"Dividers", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], ",", RowBox[{"FrameStyle", "\[Rule]", "Blue"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Background", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", RowBox[{"{", RowBox[{"{", RowBox[{"LightGray", ",", "LightBlue"}], "}"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.570959981546875*^9, 3.570959985546875*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"1", "1", "1"}, {"2", "4", "8"}, {"3", "9", "27"}, {"4", "16", "64"}, {"5", "25", "125"}, {"6", "36", "216"}, {"7", "49", "343"}, {"8", "64", "512"}, {"9", "81", "729"}, {"10", "100", "1000"} }, AutoDelete->False, BaseStyle->{FontFamily -> "Helvetica", FontSize -> 12}, FrameStyle->RGBColor[0, 0, 1], GridBoxAlignment->{"Columns" -> {{Right}}}, GridBoxBackground->{"Columns" -> {{None}}, "Rows" -> {{ GrayLevel[0.85], RGBColor[0.87, 0.94, 1]}}}, GridBoxDividers->{"Columns" -> {{1}}, "Rows" -> {{1}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", CellChangeTimes->{3.570959987984375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Pou\[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] \[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, { 3.57095917359375*^9, 3.57095918221875*^9}, {3.570959492796875*^9, 3.570959496921875*^9}, 3.57095959534375*^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[BoxData[ RowBox[{"mat1", " ", "/.", " ", RowBox[{ RowBox[{"{", RowBox[{"a_", ",", "b_", ",", "c_"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", RowBox[{"b", "+", "c"}]}], "}"}]}]}]], "Input", CellChangeTimes->{{3.570959300296875*^9, 3.5709593315625*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "8", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "9", ",", "27", ",", "36"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "16", ",", "64", ",", "80"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "25", ",", "125", ",", "150"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "36", ",", "216", ",", "252"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "49", ",", "343", ",", "392"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "64", ",", "512", ",", "576"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "81", ",", "729", ",", "810"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "100", ",", "1000", ",", "1100"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.57095933759375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"mat1", " ", "/.", " ", RowBox[{ RowBox[{"{", RowBox[{"a_", ",", "b_", ",", "c_"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", RowBox[{"b", "+", "c"}]}], "}"}]}]}], " ", "//", " ", "TableForm"}]], "Input", CellChangeTimes->{{3.570959348125*^9, 3.5709593515625*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"1", "1", "1", "2"}, {"2", "4", "8", "12"}, {"3", "9", "27", "36"}, {"4", "16", "64", "80"}, {"5", "25", "125", "150"}, {"6", "36", "216", "252"}, {"7", "49", "343", "392"}, {"8", "64", "512", "576"}, {"9", "81", "729", "810"}, {"10", "100", "1000", "1100"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.570959352078125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{ RowBox[{"mat1", " ", "/.", " ", RowBox[{ RowBox[{"{", RowBox[{"a_", ",", "b_", ",", "c_"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", RowBox[{"b", "+", "c"}]}], "}"}]}]}], ",", RowBox[{"Alignment", "\[Rule]", "Right"}]}], "]"}]], "Input", CellChangeTimes->{{3.570959363984375*^9, 3.570959374375*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"1", "1", "1", "2"}, {"2", "4", "8", "12"}, {"3", "9", "27", "36"}, {"4", "16", "64", "80"}, {"5", "25", "125", "150"}, {"6", "36", "216", "252"}, {"7", "49", "343", "392"}, {"8", "64", "512", "576"}, {"9", "81", "729", "810"}, {"10", "100", "1000", "1100"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Right}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", CellChangeTimes->{3.570959375484375*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], 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"}] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"m", "[", RowBox[{"1", ",", "1"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"1", ",", "3"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"1", ",", "4"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"1", ",", "5"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"1", ",", "6"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"m", "[", RowBox[{"2", ",", "1"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"2", ",", "3"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"2", ",", "4"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"2", ",", "5"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"2", ",", "6"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"m", "[", RowBox[{"3", ",", "1"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"3", ",", "2"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"3", ",", "3"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"3", ",", "4"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"3", ",", "5"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"3", ",", "6"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"m", "[", RowBox[{"4", ",", "1"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"4", ",", "2"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"4", ",", "3"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"4", ",", "4"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"4", ",", "5"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"4", ",", "6"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"m", "[", RowBox[{"5", ",", "1"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"5", ",", "2"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"5", ",", "3"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"5", ",", "4"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"5", ",", "5"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"5", ",", "6"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"m", "[", RowBox[{"6", ",", "1"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"6", ",", "2"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"6", ",", "3"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"6", ",", "4"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"6", ",", "5"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"6", ",", "6"}], "]"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.570960792109375*^9}, CellTags->{"Exercises", "Matrix Operations"}], Cell[CellGroupData[{ 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"}] }, Open ]], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"m", "[", RowBox[{"1", ",", "1"}], "]"}], RowBox[{"m", "[", RowBox[{"1", ",", "2"}], "]"}], RowBox[{"m", "[", RowBox[{"1", ",", "3"}], "]"}], RowBox[{"m", "[", RowBox[{"1", ",", "4"}], "]"}], RowBox[{"m", "[", RowBox[{"1", ",", "5"}], "]"}], RowBox[{"m", "[", RowBox[{"1", ",", "6"}], "]"}]}, { RowBox[{"m", "[", RowBox[{"2", ",", "1"}], "]"}], RowBox[{"m", "[", RowBox[{"2", ",", "2"}], "]"}], RowBox[{"m", "[", RowBox[{"2", ",", "3"}], "]"}], RowBox[{"m", "[", RowBox[{"2", ",", "4"}], "]"}], RowBox[{"m", "[", RowBox[{"2", ",", "5"}], "]"}], RowBox[{"m", "[", RowBox[{"2", ",", "6"}], "]"}]}, { RowBox[{"m", "[", RowBox[{"3", ",", "1"}], "]"}], RowBox[{"m", "[", RowBox[{"3", ",", "2"}], "]"}], RowBox[{"m", "[", RowBox[{"3", ",", "3"}], "]"}], RowBox[{"m", "[", RowBox[{"3", ",", "4"}], "]"}], RowBox[{"m", "[", RowBox[{"3", ",", "5"}], "]"}], RowBox[{"m", "[", RowBox[{"3", ",", "6"}], "]"}]}, { RowBox[{"m", "[", RowBox[{"4", ",", "1"}], "]"}], RowBox[{"m", "[", RowBox[{"4", ",", "2"}], "]"}], RowBox[{"m", "[", RowBox[{"4", ",", "3"}], "]"}], RowBox[{"m", "[", RowBox[{"4", ",", "4"}], "]"}], RowBox[{"m", "[", RowBox[{"4", ",", "5"}], "]"}], RowBox[{"m", "[", RowBox[{"4", ",", "6"}], "]"}]}, { RowBox[{"m", "[", RowBox[{"5", ",", "1"}], "]"}], RowBox[{"m", "[", RowBox[{"5", ",", "2"}], "]"}], RowBox[{"m", "[", RowBox[{"5", ",", "3"}], "]"}], RowBox[{"m", "[", RowBox[{"5", ",", "4"}], "]"}], RowBox[{"m", "[", RowBox[{"5", ",", "5"}], "]"}], RowBox[{"m", "[", RowBox[{"5", ",", "6"}], "]"}]}, { RowBox[{"m", "[", RowBox[{"6", ",", "1"}], "]"}], RowBox[{"m", "[", RowBox[{"6", ",", "2"}], "]"}], RowBox[{"m", "[", RowBox[{"6", ",", "3"}], "]"}], RowBox[{"m", "[", RowBox[{"6", ",", "4"}], "]"}], RowBox[{"m", "[", RowBox[{"6", ",", "5"}], "]"}], RowBox[{"m", "[", RowBox[{"6", ",", "6"}], "]"}]} }, 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]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5709608004375*^9}, CellTags->{"Exercises", "Matrix Operations"}], Cell[CellGroupData[{ 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}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Part", "[", RowBox[{"mat", ",", "5"}], "]"}]], "Input", CellChangeTimes->{{3.570960806171875*^9, 3.57096081775*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"m", "[", RowBox[{"5", ",", "1"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"5", ",", "2"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"5", ",", "3"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"5", ",", "4"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"5", ",", "5"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"5", ",", "6"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.570960819109375*^9}] }, Open ]], Cell["Lze to i jinak", "Text", CellChangeTimes->{{3.570960839375*^9, 3.5709608431875*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"mat", "[", RowBox[{"[", "5", "]"}], "]"}]], "Input", CellChangeTimes->{{3.57096082790625*^9, 3.570960831453125*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"m", "[", RowBox[{"5", ",", "1"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"5", ",", "2"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"5", ",", "3"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"5", ",", "4"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"5", ",", "5"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"5", ",", "6"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.570960832125*^9}] }, Open ]], 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[CellGroupData[{ Cell[BoxData[ RowBox[{"Part", "[", RowBox[{"mat", ",", "All", ",", "3"}], "]"}]], "Input", CellChangeTimes->{{3.57096084821875*^9, 3.5709608934375*^9}, { 3.570960924421875*^9, 3.570960925921875*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"m", "[", RowBox[{"1", ",", "3"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"2", ",", "3"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"3", ",", "3"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"4", ",", "3"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"5", ",", "3"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"6", ",", "3"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.5709608943125*^9, 3.5709609268125*^9}] }, Open ]], Cell["jinak bez funkce Part", "Text", CellChangeTimes->{{3.570961003671875*^9, 3.570961005515625*^9}, { 3.570961061046875*^9, 3.570961065171875*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"mat", "[", RowBox[{"[", RowBox[{"All", ",", "3"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.5709609309375*^9, 3.570960968875*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"m", "[", RowBox[{"1", ",", "3"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"2", ",", "3"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"3", ",", "3"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"4", ",", "3"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"5", ",", "3"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"6", ",", "3"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.570960939875*^9, 3.57096097115625*^9}] }, Open ]], Cell["\<\ ... a je\[SHacek]t\[EHacek] jinak s pomoc\[IAcute] \[OpenCurlyDoubleQuote]oto\ \[CHacek]en\[IAcute]\[CloseCurlyDoubleQuote] matice\ \>", "Text", CellChangeTimes->{{3.570961009796875*^9, 3.570961018484375*^9}, { 3.570961068828125*^9, 3.570961082796875*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Part", "[", RowBox[{ RowBox[{"Transpose", "[", "mat", "]"}], ",", "3"}], "]"}]], "Input", CellChangeTimes->{{3.570960976421875*^9, 3.57096099484375*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"m", "[", RowBox[{"1", ",", "3"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"2", ",", "3"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"3", ",", "3"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"4", ",", "3"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"5", ",", "3"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"6", ",", "3"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.570961047921875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Transpose", "[", "mat", "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]], "Input", CellChangeTimes->{{3.570961026609375*^9, 3.570961041875*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"m", "[", RowBox[{"1", ",", "3"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"2", ",", "3"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"3", ",", "3"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"4", ",", "3"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"5", ",", "3"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"6", ",", "3"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{{3.57096098478125*^9, 3.57096099534375*^9}, 3.5709610434375*^9}] }, Open ]], Cell[CellGroupData[{ 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"}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Diagonal", "[", "mat", "]"}]], "Input", CellChangeTimes->{{3.57096108953125*^9, 3.570961102265625*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"m", "[", RowBox[{"1", ",", "1"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"3", ",", "3"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"4", ",", "4"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"5", ",", "5"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"6", ",", "6"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.57096110309375*^9}] }, Open ]], Cell[CellGroupData[{ 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"}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Diagonal", "[", RowBox[{"mat", ",", RowBox[{"-", "3"}]}], "]"}]], "Input", CellChangeTimes->{{3.5709611375625*^9, 3.570961143234375*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"m", "[", RowBox[{"4", ",", "1"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"5", ",", "2"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"6", ",", "3"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.570961144109375*^9}] }, Open ]], Cell[CellGroupData[{ 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"}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Diagonal", "[", RowBox[{"Map", "[", RowBox[{"Reverse", ",", "mat"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.57096121771875*^9, 3.570961306359375*^9}, { 3.570961336796875*^9, 3.57096134534375*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"m", "[", RowBox[{"1", ",", "6"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"2", ",", "5"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"3", ",", "4"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"4", ",", "3"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"5", ",", "2"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"6", ",", "1"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.570961435796875*^9}] }, Open ]], Cell["nebo jinak", "Text", CellChangeTimes->{{3.57096139253125*^9, 3.570961395484375*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Reverse", "[", RowBox[{"Diagonal", "[", RowBox[{"Reverse", "[", "mat", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{3.570961400046875*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"m", "[", RowBox[{"1", ",", "6"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"2", ",", "5"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"3", ",", "4"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"4", ",", "3"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"5", ",", "2"}], "]"}], ",", RowBox[{"m", "[", RowBox[{"6", ",", "1"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.570961401734375*^9}] }, Open ]], Cell[BoxData[""], "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellChangeTimes->{ 3.5698511804375*^9, 3.570789206421875*^9, 3.57079017190625*^9, 3.5707906308125*^9, {3.570961215109375*^9, 3.57096121628125*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], 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}] }, Open ]], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"8", "5", "1", "3", "7", "8"}, {"9", "4", "9", "6", "3", "7"}, {"3", "7", "3", "1", "5", "2"}, {"8", "7", "9", "4", "7", "7"}, {"5", "7", "6", "4", "6", "8"}, {"6", "4", "8", "2", "7", "5"} }, 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]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.570966676328125*^9, 3.570969759359375*^9}], Cell[CellGroupData[{ 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"}] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"5", ",", "4", ",", "7", ",", "7", ",", "7", ",", "4"}], "}"}]], "Output", CellChangeTimes->{3.57096669790625*^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[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"5"}, {"4"}, {"7"}, {"7"}, {"7"}, {"4"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5709667030625*^9}, CellTags->{"Exercises", "Picking Parts"}], Cell[CellGroupData[{ 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"}] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"8", ",", "5", ",", "1", ",", "3", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "4", ",", "9", ",", "6", ",", "3", ",", "7"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.570966718890625*^9}, CellTags->{"Exercises", "Picking Parts"}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"mat", "[", RowBox[{"[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}], "]"}], "//", " ", "MatrixForm"}]], "Input", CellChangeTimes->{{3.570966735015625*^9, 3.57096674446875*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"8", "5", "1", "3", "7", "8"}, {"9", "4", "9", "6", "3", "7"} }, 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]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.570966745328125*^9}] }, Open ]], Cell[CellGroupData[{ 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"}] }, Open ]], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"8", "5"}, {"9", "4"}, {"3", "7"}, {"8", "7"}, {"5", "7"}, {"6", "4"} }, 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]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.57096675975*^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.570967118*^9, 3.57096712315625*^9}, { 3.570967197078125*^9, 3.5709671999375*^9}}, CellTags->{"Exercises", "Picking Parts"}], Cell["\<\ Nejd\[RHacek]\[IAcute]ve vytvo\[RHacek]\[IAcute]me seznam s \ \[CHacek]\[IAcute]sly p\[RHacek]\[IAcute]slu\:015bn\[YAcute]ch sloupc\[URing]\ \>", "Text", CellChangeTimes->{{3.570967594*^9, 3.570967622828125*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "mat", "]"}], ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.570967127828125*^9, 3.57096716078125*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "3", ",", "5"}], "}"}]], "Output", CellChangeTimes->{{3.570967147515625*^9, 3.570967161890625*^9}}] }, Open ]], Cell["nebo", "Text", CellChangeTimes->{{3.57096764421875*^9, 3.570967644578125*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Range", "[", RowBox[{"1", ",", RowBox[{"Length", "[", "mat", "]"}], ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.570967168546875*^9, 3.57096717953125*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "3", ",", "5"}], "}"}]], "Output", CellChangeTimes->{3.57096717996875*^9}] }, Open ]], Cell["\<\ Pot\[EAcute] seznam pou\[ZHacek]ijeme jako ur\[CHacek]en\[IAcute] pozic \ sloupc\[URing] \ \>", "Text", CellChangeTimes->{{3.5709676653125*^9, 3.570967698078125*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"mat", "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{"Range", "[", RowBox[{"1", ",", RowBox[{"Length", "[", "mat", "]"}], ",", "2"}], "]"}]}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}]], "Input", CellChangeTimes->{{3.570967185125*^9, 3.570967186796875*^9}, { 3.570967351078125*^9, 3.570967359890625*^9}, {3.570967412609375*^9, 3.570967435296875*^9}, {3.570967532703125*^9, 3.57096753578125*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"8", "1", "7"}, {"9", "9", "3"}, {"3", "3", "5"}, {"8", "9", "7"}, {"5", "6", "6"}, {"6", "8", "7"} }, 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]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.57096753665625*^9}] }, Open ]], 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["\<\ Posledn\[IAcute] sloupec je mo\[ZHacek]n\[EAcute] ur\[CHacek]\[IAcute]t v\ \[IAcute]ce zp\[URing]soby\ \>", "Text", CellChangeTimes->{{3.570969861421875*^9, 3.570969885265625*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"mat", "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{"-", "1"}]}], "]"}], "]"}], "=", "0"}]], "Input", CellChangeTimes->{{3.57096974065625*^9, 3.57096974284375*^9}, { 3.57096978228125*^9, 3.57096981784375*^9}}], Cell[BoxData["0"], "Output", CellChangeTimes->{3.570969788203125*^9, 3.570969819546875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"mat", "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{"Length", "[", "mat", "]"}]}], "]"}], "]"}], "=", "0"}]], "Input", CellChangeTimes->{{3.570969822328125*^9, 3.570969836328125*^9}}], Cell[BoxData["0"], "Output", CellChangeTimes->{3.570969837859375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"mat", "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.570969841203125*^9, 3.570969845890625*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"8", "5", "1", "3", "7", "0"}, {"9", "4", "9", "6", "3", "0"}, {"3", "7", "3", "1", "5", "0"}, {"8", "7", "9", "4", "7", "0"}, {"5", "7", "6", "4", "6", "0"}, {"6", "4", "8", "2", "7", "0"} }, 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]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.57096984659375*^9}] }, Open ]], Cell[CellGroupData[{ 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"}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"mat", "=", RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "6"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "mat", "]"}]}], "Input", CellChangeTimes->{{3.57096990578125*^9, 3.570969905859375*^9}, { 3.5709699404375*^9, 3.5709699416875*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"9", "1", "9", "5", "1", "7"}, {"8", "7", "7", "8", "4", "5"}, {"7", "2", "8", "2", "8", "4"}, {"5", "5", "5", "1", "9", "3"}, {"9", "8", "2", "2", "9", "3"}, {"3", "1", "3", "8", "1", "6"} }, 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]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.57096994309375*^9, 3.57097002340625*^9, 3.570970083765625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"mat", "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}]}], "]"}], "]"}], "=", "0"}]], "Input", CellChangeTimes->{{3.57096995140625*^9, 3.570969964203125*^9}}], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.570969964984375*^9, {3.5709700736875*^9, 3.570970090171875*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"mat", "//", " ", "MatrixForm"}]], "Input", CellChangeTimes->{{3.57096996640625*^9, 3.57096997328125*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1", "9", "5", "1", "0"}, {"0", "7", "7", "8", "4", "0"}, {"0", "2", "8", "2", "8", "0"}, {"0", "5", "5", "1", "9", "0"}, {"0", "8", "2", "2", "9", "0"}, {"0", "1", "3", "8", "1", "0"} }, 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]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.570969974078125*^9, {3.570970078078125*^9, 3.570970092546875*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"mat", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}], ",", "All"}], "]"}], "]"}], "=", "0"}]], "Input", CellChangeTimes->{{3.57096998090625*^9, 3.570969993421875*^9}, { 3.570970056265625*^9, 3.57097005753125*^9}}], Cell[BoxData["0"], "Output", CellChangeTimes->{3.570969998*^9, 3.57097005946875*^9, 3.570970095828125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"mat", " ", "//", " ", "MatrixForm"}]], "Input", CellChangeTimes->{{3.57096999953125*^9, 3.570970003890625*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "0", "0", "0"}, {"0", "7", "7", "8", "4", "0"}, {"0", "2", "8", "2", "8", "0"}, {"0", "5", "5", "1", "9", "0"}, {"0", "8", "2", "2", "9", "0"}, {"0", "0", "0", "0", "0", "0"} }, 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]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5709700044375*^9, 3.5709700651875*^9, 3.57097009875*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], 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, { 3.57102636721875*^9, 3.5710263696875*^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["", "Text"]], "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10005.}, CellChangeTimes->{{3.569851940375*^9, 3.569852035875*^9}, 3.57078925575*^9, 3.57079017190625*^9, 3.57079065328125*^9, {3.57101973315625*^9, 3.57101973790625*^9}, {3.571026001046875*^9, 3.57102600140625*^9}, { 3.571026328734375*^9, 3.57102636459375*^9}, {3.5710265065625*^9, 3.57102652953125*^9}, {3.571026584703125*^9, 3.571026611078125*^9}}, CellTags->{"Exercises", "Immediate and Delayed"}] }, Open ]], Cell[TextData[StyleBox["Definuj 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 nich \tto je a pro\[CHacek] ?", \ "Text"]], "Text", CellChangeTimes->{{3.571026617453125*^9, 3.571026622234375*^9}}], Cell[BoxData[""], "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10005.}, CellChangeTimes->{3.56985209275*^9, 3.57078925575*^9, 3.57079017190625*^9, 3.57079065328125*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"g", "[", "x_", "]"}], "=", " ", RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}]}]], "Input", CellChangeTimes->{{3.57101976809375*^9, 3.57101979196875*^9}}], Cell[BoxData[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]], "Output", CellChangeTimes->{3.571019795953125*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"h", "[", "x_", "]"}], ":=", RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}]}]], "Input", CellChangeTimes->{{3.571019811015625*^9, 3.5710198228125*^9}, 3.5735391550625*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"g", "[", "2", "]"}]], "Input", CellChangeTimes->{{3.571019837609375*^9, 3.5710198678125*^9}}], Cell[BoxData["10"], "Output", CellChangeTimes->{{3.571019842*^9, 3.5710198689375*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h", "[", "2", "]"}]], "Input", CellChangeTimes->{{3.571019875546875*^9, 3.57101987746875*^9}}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"General", "::", "ivar"}], "MessageName"], ":", " ", "\<\"\[NoBreak]\\!\\(2\\)\[NoBreak] is not a valid variable. \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/ivar\\\", \ ButtonNote -> \\\"General::ivar\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.57101987903125*^9}], Cell[BoxData[ RowBox[{ SubscriptBox["\[PartialD]", "2"], "8"}]], "Output", CellChangeTimes->{3.571019879046875*^9}] }, Open ]], Cell[TextData[{ "Uveden\[EAcute] ukazuje, \[ZHacek]e vhodn\[EHacek]j\[SHacek]\[IAcute] je \ pou\[ZHacek]\[IAcute]t okam\[ZHacek]it\[EAcute] p\[RHacek]i\[RHacek]azen\ \[IAcute], kter\[EAcute] funkci g(x) p\[RHacek]i\[RHacek]ad\[IAcute] \ symbolick\[YAcute] z\[AAcute]pis derivace ", Cell[BoxData[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]], CellChangeTimes->{3.571019795953125*^9}], " a ten je p\[RHacek]i vol\[AAcute]n\[IAcute] funkce g(x) vyhodnocen jako " }], "Text", CellChangeTimes->{{3.571019895890625*^9, 3.571020005109375*^9}, { 3.57102637959375*^9, 3.57102638084375*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"6", " ", "x"}]}]], "Output", CellChangeTimes->{3.57102000940625*^9}] }, Open ]], Cell["\<\ P\[RHacek]i vol\[AAcute]n\[IAcute] funkce h(x) dojde k vyhodnocen\[IAcute] v\ \[YAcute]razu D[f[2],2], do kter\[EAcute]ho bylo za x dosazeno \[CHacek]\ \[IAcute]slo 2.\ \>", "Text", CellChangeTimes->{{3.571020047484375*^9, 3.571020115875*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", "2", "]"}], ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.571020117578125*^9, 3.571020131515625*^9}}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"General", "::", "ivar"}], "MessageName"], ":", " ", "\<\"\[NoBreak]\\!\\(2\\)\[NoBreak] is not a valid variable. \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/ivar\\\", \ ButtonNote -> \\\"General::ivar\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.5710201326875*^9}], Cell[BoxData[ RowBox[{ SubscriptBox["\[PartialD]", "2"], "8"}]], "Output", CellChangeTimes->{3.5710201326875*^9}] }, Open ]], Cell["\<\ A vol\[AAcute]n\[IAcute] funkce derivace D s t\[EHacek]mito parametry vede k \ chyb\[EHacek], proto\[ZHacek]e ta o\[CHacek]ek\[AAcute]v\[AAcute] prom\ \[EHacek]nou, dle kter\[EAcute] se derivuje.\ \>", "Text", CellChangeTimes->{{3.571020145890625*^9, 3.571020189109375*^9}}], Cell["\<\ Uveden\[EAcute] \[RHacek]e\[SHacek]en\[IAcute] s okam\[ZHacek]it\[YAcute]m p\ \[RHacek]i\[RHacek]azen\[IAcute]m nebude fungovat, pokud prom\[EHacek]n\ \[AAcute] x obsahuje jak\[EAcute]koliv hodnoty z p\[RHacek]edchoz\[IAcute]ch \ v\[YAcute]po\[CHacek]t\[URing]. N\[AAcute]sleduj\[IAcute]c\[IAcute] \ \[RHacek]e\[SHacek]en\[IAcute] tento probl\[EAcute]m odstra\[NHacek]uje. \ \>", "Text", CellChangeTimes->{{3.571020385578125*^9, 3.57102038634375*^9}, { 3.571020509859375*^9, 3.57102056453125*^9}, {3.571026386578125*^9, 3.5710263883125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"derivace", "[", "x_", "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"fn", ",", "var"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fn", "[", "var_", "]"}], "=", " ", RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", "var", "]"}], ",", "var"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fn", "[", "x", "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.571020569625*^9, 3.57102057259375*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"derivace", "[", "2", "]"}]], "Input", CellChangeTimes->{{3.571020581203125*^9, 3.57102058765625*^9}}], Cell[BoxData["10"], "Output", CellChangeTimes->{3.57102058909375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"derivace", "[", RowBox[{"3", "+", RowBox[{"2", "I"}]}], "]"}]], "Input", CellChangeTimes->{{3.5710205911875*^9, 3.571020598453125*^9}}], Cell[BoxData[ RowBox[{"16", "+", RowBox[{"12", " ", "\[ImaginaryI]"}]}]], "Output", CellChangeTimes->{3.57102059925*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], 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", "Text"]], "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10006.}, CellChangeTimes->{{3.569852115625*^9, 3.5698521855*^9}, 3.570789263015625*^9, 3.57079017190625*^9, 3.570790664953125*^9, 3.57102127178125*^9, { 3.571026011578125*^9, 3.571026013171875*^9}, 3.5710266926875*^9}, CellTags->{"Exercises", "Localizing Variables"}] }, Open ]], Cell[TextData[{ StyleBox[" V n\[AAcute]sleduj\[IAcute]c\[IAcute] definici idetifikujte dv\ \[EHacek] glob\[AAcute]ln\[IAcute] prom\[EHacek]nn\[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"], "." }], "Text", CellChangeTimes->{3.5710266970625*^9}], 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["\<\ Pozn. Funkce \[RHacek]e\[SHacek]\[IAcute] line\[AAcute]rn\[IAcute] rovnici s \ koeficienty q a p. \[CapitalRHacek]e\[SHacek]en\[IAcute] v podob\[EHacek] \ substitu\[CHacek]n\[IAcute]ho pravidla dosazuje do x, kter\[EAcute] je n\ \[AAcute]vratovou hodnotou funkce. \ \>", "Text", CellChangeTimes->{{3.57102098659375*^9, 3.571021082765625*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"res", " ", "=", " ", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"3", "+", RowBox[{"4", " ", "x"}]}], " ", "\[Equal]", " ", "0"}], ",", "x"}], "]"}]}]], "Input", CellChangeTimes->{{3.571021086125*^9, 3.5710211121875*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{"-", FractionBox["3", "4"]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.571021113375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "/.", "res"}]], "Input", CellChangeTimes->{{3.571021116109375*^9, 3.5710211286875*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"-", FractionBox["3", "4"]}], "}"}]], "Output", CellChangeTimes->{3.57102113015625*^9}] }, Open ]], Cell["\<\ N\[AAcute]sleduj\[IAcute]c\[IAcute] funkce frev lokalizuje dv\[EHacek] glob\ \[AAcute]ln\[IAcute] prom\[EHacek]nn\[EAcute] temp a x.\ \>", "Text", CellChangeTimes->{{3.5710212418125*^9, 3.571021276578125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"frev", "[", RowBox[{"p_", ",", "q_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"temp", ",", "x"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"temp", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"p", "+", RowBox[{"q", " ", "x"}]}], "\[Equal]", "0"}], ",", "x"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"x", "/.", "temp"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.571020850828125*^9, 3.571020905328125*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", RowBox[{"3", ",", "4"}], "]"}]], "Input", CellChangeTimes->{{3.571020922703125*^9, 3.571020925546875*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"-", FractionBox["3", "4"]}], "}"}]], "Output", CellChangeTimes->{3.57102092628125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"frev", "[", RowBox[{"3", ",", "4"}], "]"}]], "Input", CellChangeTimes->{{3.57102092834375*^9, 3.571020933046875*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"-", FractionBox["3", "4"]}], "}"}]], "Output", CellChangeTimes->{3.571020933953125*^9}] }, Open ]], Cell["\<\ Pokud bychom cht\[EHacek]li s t\[IAcute]mto v\[YAcute]sledkem d\[AAcute]le \ pracovat, mus\[IAcute]me na n\[EHacek]j pohl\[IAcute]\[ZHacek]et jako na \ seznam a p\[RHacek]istoupit k element\[URing]m seznamu pomoc\[IAcute] funkce \ Part nebo pomoc\[IAcute] indexace.\ \>", "Text", CellChangeTimes->{{3.571029401234375*^9, 3.57102945790625*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"f", "[", RowBox[{"3", ",", "4"}], "]"}], "*", "4"}]], "Input", CellChangeTimes->{{3.571029462140625*^9, 3.571029472734375*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"-", "3"}], "}"}]], "Output", CellChangeTimes->{{3.571029473546875*^9, 3.571029483578125*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"3", ",", "4"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "*", "4"}]], "Input", CellChangeTimes->{{3.571029500625*^9, 3.57102950928125*^9}}], Cell[BoxData[ RowBox[{"-", "3"}]], "Output", CellChangeTimes->{3.57102951040625*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["", "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10006.}, CellChangeTimes->{3.5698521946875*^9, 3.570789263015625*^9, 3.570790171921875*^9, 3.570790664953125*^9}], 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["\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 re\[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, { 3.571021289515625*^9, 3.571021311890625*^9}, 3.57102602196875*^9, { 3.57102640084375*^9, 3.5710264049375*^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, { 3.5710213174375*^9, 3.5710213198125*^9}}, CellTags->{"Exercises", "Using Patterns"}] }, Open ]], Cell[BoxData[ GraphicsBox[ LineBox[{{0., 0.}, {1., 1.}, {2., 0.}, {3., 2.}, {4., 0.}, {5., 2.}, {6., 1.}, {7., 3.}, {8., 0.}, {9., 2.}, {10., 0.}}], Axes->True]], "Output", CellChangeTimes->{3.571021324796875*^9}, CellTags->{"Exercises", "Using Patterns"}], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["\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 sou\[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] tak 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, { 3.57102130271875*^9, 3.571021308453125*^9}, 3.571026024703125*^9, { 3.571026409734375*^9, 3.57102641490625*^9}}, CellTags->{"Exercises", "Using Patterns"}], Cell["", "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10007.}, CellChangeTimes->{3.56985268534375*^9, 3.570790670828125*^9}] }, Open ]], Cell["\<\ Jde o z\[AAcute]m\[EHacek]nu sou\[RHacek]adnic v grafick\[EAcute]m primitivu \ Line\ \>", "Text", CellChangeTimes->{{3.57102142490625*^9, 3.571021445390625*^9}}], Cell[CellGroupData[{ Cell[BoxData[ 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[{ RowBox[{"{", RowBox[{"p_Real", ",", "q_Real"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"q", ",", "p"}], "}"}]}]}]], "Input", CellChangeTimes->{{3.571021449578125*^9, 3.571021470453125*^9}}], Cell[BoxData[ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.`", ",", "1.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "2.`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.`", ",", "3.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "4.`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.`", ",", "5.`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.`", ",", "6.`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.`", ",", "7.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "8.`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.`", ",", "9.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "10.`"}], "}"}]}], "}"}], "]"}]], "Output", CellChangeTimes->{3.571021471828125*^9}] }, Open ]], Cell["\<\ Aplikace pravidla na cel\[YAcute] p\[RHacek]\[IAcute]kaz Graphics zobraz\ \[IAcute] v\[YAcute]sledek oto\[CHacek]en\[YAcute] o 90 \ stup\[NHacek]\[URing]. \ \>", "Text", CellChangeTimes->{{3.571021511078125*^9, 3.57102156425*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"gr", "/.", " ", RowBox[{ RowBox[{"{", RowBox[{"p_Real", ",", "q_Real"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"q", ",", "p"}], "}"}]}]}]], "Input", CellChangeTimes->{{3.571021345390625*^9, 3.571021371171875*^9}}], Cell[BoxData[ GraphicsBox[ LineBox[{{0., 0.}, {1., 1.}, {0., 2.}, {2., 3.}, {0., 4.}, {2., 5.}, {1., 6.}, {3., 7.}, {0., 8.}, {2., 9.}, {0., 10.}}], Axes->True]], "Output", CellChangeTimes->{3.571021377515625*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], 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["\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 ", "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, { 3.571021582078125*^9, 3.5710215860625*^9}, 3.571026029890625*^9, { 3.571026423203125*^9, 3.57102642503125*^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[BoxData[ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", "?", "Negative"}], "]"}], ":=", RowBox[{"-", "x"}]}]], "Input", CellChangeTimes->{{3.571022209578125*^9, 3.57102222309375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", "?", "NonNegative"}], "]"}], ":=", "x"}]], "Input", CellChangeTimes->{{3.57102222565625*^9, 3.57102223403125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_Complex", "]"}], ":=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"Re", "[", "x", "]"}], "^", "2"}], "+", RowBox[{ RowBox[{"Im", "[", "x", "]"}], "^", "2"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.571022236125*^9, 3.57102226246875*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "f"}]], "Input", CellChangeTimes->{{3.571022264953125*^9, 3.571022267625*^9}}], Cell[CellGroupData[{ Cell["Global`f", "Print", "PrintUsage", CellChangeTimes->{3.5710229658125*^9}, CellTags->"Info3571026565-2048584"], Cell[BoxData[ InterpretationBox[GridBox[{ {GridBox[{ { RowBox[{ RowBox[{"f", "[", RowBox[{"x_", "?", "Negative"}], "]"}], ":=", RowBox[{"-", "x"}]}]}, {" "}, { RowBox[{ RowBox[{"f", "[", RowBox[{"x_", "?", "NonNegative"}], "]"}], ":=", "x"}]}, {" "}, { RowBox[{ RowBox[{"f", "[", "x_Complex", "]"}], ":=", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"Re", "[", "x", "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Im", "[", "x", "]"}], "2"]}]]}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{"Columns" -> {{ Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Definition[$CellContext`f], Editable->False]], "Print", CellChangeTimes->{3.571022965828125*^9}, CellTags->"Info3571026565-2048584"] }, Open ]] }, Open ]], Cell["\<\ nebo je mo\[ZHacek]n\[EAcute] pou\[ZHacek]\[IAcute]t \ n\[AAcute]sleduj\[IAcute]c\[IAcute] definici\ \>", "Text", CellChangeTimes->{{3.5710222855*^9, 3.571022297796875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"abs", "[", RowBox[{"x_", "/;", RowBox[{"x", "\[GreaterEqual]", "0"}]}], "]"}], ":=", "x"}]], "Input", CellChangeTimes->{{3.57102230209375*^9, 3.571022323296875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"abs", "[", RowBox[{"x_", "/;", RowBox[{"x", "<", "0"}]}], "]"}], ":=", RowBox[{"-", "x"}]}]], "Input", CellChangeTimes->{{3.5710223249375*^9, 3.57102233353125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"abs", "[", RowBox[{"x_", "/;", RowBox[{"x", " ", "\[NotElement]", "Reals"}]}], "]"}], ":=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"Re", "[", "x", "]"}], "^", "2"}], "+", RowBox[{ RowBox[{"Im", "[", "x", "]"}], "^", "2"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.571022354875*^9, 3.571022375953125*^9}, { 3.571022914078125*^9, 3.571022931703125*^9}, {3.571026142546875*^9, 3.5710261515625*^9}, 3.571026224703125*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "abs"}]], "Input", CellChangeTimes->{{3.571022939953125*^9, 3.57102294190625*^9}}], Cell[CellGroupData[{ Cell["Global`abs", "Print", "PrintUsage", CellChangeTimes->{3.57102627390625*^9}, CellTags->"Info3571029873-2287455"], Cell[BoxData[ InterpretationBox[GridBox[{ {GridBox[{ { RowBox[{ RowBox[{"abs", "[", RowBox[{"x_", "/;", RowBox[{"x", "\[GreaterEqual]", "0"}]}], "]"}], ":=", "x"}]}, {" "}, { RowBox[{ RowBox[{"abs", "[", RowBox[{"x_", "/;", RowBox[{"x", "<", "0"}]}], "]"}], ":=", RowBox[{"-", "x"}]}]}, {" "}, { RowBox[{ RowBox[{"abs", "[", RowBox[{"x_", "/;", RowBox[{"x", "\[NotElement]", "Reals"}]}], "]"}], ":=", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"Re", "[", "x", "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Im", "[", "x", "]"}], "2"]}]]}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{"Columns" -> {{ Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Definition[$CellContext`abs], Editable->False]], "Print", CellChangeTimes->{3.5710262739375*^9}, CellTags->"Info3571029873-2287455"] }, Open ]] }, Open ]], Cell["Ov\[EHacek]\[RHacek]en\[IAcute]:", "Text", CellChangeTimes->{{3.5710229829375*^9, 3.571022985953125*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Map", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{"3", ",", RowBox[{"-", "5"}], ",", "0", ",", RowBox[{"3", "+", RowBox[{"4", "I"}]}], ",", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"3", "I"}]}], ",", RowBox[{"-", "1.5"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.571022989515625*^9, 3.571023022890625*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"3", ",", "5", ",", "0", ",", "5", ",", SqrtBox["13"], ",", "1.5`"}], "}"}]], "Output", CellChangeTimes->{3.571023025359375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Map", "[", RowBox[{"abs", ",", RowBox[{"{", RowBox[{"3", ",", RowBox[{"-", "5"}], ",", "0", ",", RowBox[{"3", "+", RowBox[{"4", "I"}]}], ",", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"3", "I"}]}], ",", RowBox[{"-", "1.5"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.571023042671875*^9, 3.571023043359375*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"3", ",", "5", ",", "0", ",", "5", ",", SqrtBox["13"], ",", "1.5`"}], "}"}]], "Output", CellChangeTimes->{3.57102304440625*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], 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["\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 vygenerovan\[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, { 3.5710318561875*^9, 3.571031864421875*^9}, 3.571031915015625*^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"}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"vars", " ", "/.", " ", RowBox[{"{", RowBox[{ RowBox[{"xxy", "\[Rule]", RowBox[{"RandomReal", "[", "]"}]}], ",", RowBox[{"xxz", "\[Rule]", RowBox[{"RandomReal", "[", "]"}]}], ",", RowBox[{"xyy", "\[Rule]", RowBox[{"RandomReal", "[", "]"}]}], ",", RowBox[{"yxx", "\[Rule]", RowBox[{"RandomReal", "[", "]"}]}], ",", RowBox[{"yzz", "\[Rule]", RowBox[{"RandomReal", "[", "]"}]}], ",", RowBox[{"yzy", "\[Rule]", RowBox[{"RandomReal", "[", "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.571032223453125*^9, 3.57103225246875*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2677048782918965`", ",", "0.26924678223530507`", ",", "0.29702681908086603`", ",", "0.6464267879530048`", ",", "0.7277433814127574`", ",", "0.09653690784379787`"}], "}"}]], "Output", CellChangeTimes->{{3.5710322565*^9, 3.571032266953125*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[""], "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellChangeTimes->{ 3.56985312078125*^9, 3.570789291953125*^9, 3.570790171921875*^9, 3.570790686015625*^9, {3.571032220890625*^9, 3.571032222078125*^9}}], Cell[TextData[StyleBox["\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 \tprom\[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, { 3.571031898796875*^9, 3.5710319124375*^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"}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"expr", " ", "/.", " ", RowBox[{"{", RowBox[{ RowBox[{"xxy", "\[Rule]", RowBox[{"RandomReal", "[", "]"}]}], ",", RowBox[{"xxz", "\[Rule]", RowBox[{"RandomReal", "[", "]"}]}], ",", RowBox[{"xyy", "\[Rule]", RowBox[{"RandomReal", "[", "]"}]}], ",", RowBox[{"yxx", "\[Rule]", RowBox[{"RandomReal", "[", "]"}]}], ",", RowBox[{"yzz", "\[Rule]", RowBox[{"RandomReal", "[", "]"}]}], ",", RowBox[{"yzy", "\[Rule]", RowBox[{"RandomReal", "[", "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.571032298703125*^9, 3.571032301953125*^9}}], Cell[BoxData[ RowBox[{"47.68064930783788`", "\[VeryThinSpace]", "+", RowBox[{"0.0025974269237733468`", " ", RowBox[{"(", RowBox[{"13.12859169929262`", "\[VeryThinSpace]", "+", RowBox[{"6", " ", "yxy"}]}], ")"}]}]}]], "Output", CellChangeTimes->{{3.5710323035625*^9, 3.5710323093125*^9}}] }, Open ]], Cell["\<\ Nevy\[CHacek]\[IAcute]slenou prom\[EHacek]nou je symbol yxy\ \>", "Text", CellChangeTimes->{{3.571032330703125*^9, 3.571032343703125*^9}}], Cell["\<\ Alternativn\[IAcute] mmo\[ZHacek]nosti \[RHacek]e\[SHacek]en\[IAcute] k vytvo\ \[RHacek]en\[IAcute] seznamu pravidel\ \>", "Text", CellChangeTimes->{{3.571032369421875*^9, 3.5710323844375*^9}, { 3.571032585390625*^9, 3.57103259475*^9}, 3.571033104578125*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"rules", "=", RowBox[{"Thread", "[", RowBox[{"vars", "\[Rule]", RowBox[{"RandomReal", "[", RowBox[{"1", ",", RowBox[{"{", RowBox[{"Length", "[", "vars", "]"}], "}"}]}], "]"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"xxy", "\[Rule]", "0.12935700849845233`"}], ",", RowBox[{"xxz", "\[Rule]", "0.278294698474322`"}], ",", RowBox[{"xyy", "\[Rule]", "0.14822595102017888`"}], ",", RowBox[{"yxx", "\[Rule]", "0.6250286556525608`"}], ",", RowBox[{"yzz", "\[Rule]", "0.5379250730618932`"}], ",", RowBox[{"yzy", "\[Rule]", "0.4141285213055961`"}]}], "}"}]], "Output", CellChangeTimes->{3.571032551625*^9}] }, Open ]], Cell["\<\ Detailn\[IAcute] popis \[CHacek]innosti p\[RHacek]i\[RHacek]azen\[IAcute] \ symbolu vars.\ \>", "Text", CellChangeTimes->{{3.571032995171875*^9, 3.57103304165625*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomReal", "[", RowBox[{"1", ",", RowBox[{"{", RowBox[{"Length", "[", "vars", "]"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.5767662150667618`", ",", "0.39880416451915623`", ",", "0.3503897125635289`", ",", "0.23197914704935907`", ",", "0.24621482640601688`", ",", "0.8116701203208687`"}], "}"}]], "Output", CellChangeTimes->{3.571032787140625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["vars"], "Input", CellChangeTimes->{{3.57103279003125*^9, 3.5710327905*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"xxy", ",", "xxz", ",", "xyy", ",", "yxx", ",", "yzz", ",", "yzy"}], "}"}]], "Output", CellChangeTimes->{3.571032791265625*^9}] }, Open ]], Cell["\<\ Funkce Thread aplikuje funkci ReplaceAll na dva seznamy - vars a seznam n\ \[AAcute]hodn\[YAcute]ch re\[AAcute]ln\[YAcute]ch \[CHacek]\[IAcute]sel tj. \ aplikuje substitu\[CHacek]n\[IAcute] pravidlo prvek po prvku z ka\[ZHacek]d\ \[EAcute]ho seznamu. \ \>", "Text", CellChangeTimes->{{3.57103281828125*^9, 3.57103291221875*^9}, { 3.57104619125*^9, 3.571046191765625*^9}}], Cell["", "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellChangeTimes->{3.56985332478125*^9, 3.570789291953125*^9, 3.570790171921875*^9, 3.570790686015625*^9}], Cell["Dal\[SHacek]\[IAcute] mo\[ZHacek]nosti \ \[RHacek]e\[SHacek]en\[IAcute].", "Text", CellChangeTimes->{{3.57103311184375*^9, 3.57103313896875*^9}}], Cell["\<\ Nejd\[RHacek]\[IAcute]ve pomoc\[IAcute] funkce Cases vyp\[IAcute]\[SHacek]eme \ v\[SHacek]echny symboly (prom\[EHacek]nn\[EAcute]) z v\[YAcute]razu expr ze v\ \[SHacek]ech \[UAcute]rovn\[IAcute] (proto Infinity)\ \>", "Text", CellChangeTimes->{{3.571033151765625*^9, 3.571033178359375*^9}, { 3.57104621865625*^9, 3.57104623078125*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cases", "[", RowBox[{"expr", ",", "_Symbol", ",", "Infinity"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "xxy", ",", "xxz", ",", "yxx", ",", "xxz", ",", "xyy", ",", "yzy", ",", "xxy", ",", "xxz", ",", "xyy", ",", "yzy", ",", "xxy", ",", "xxz", ",", "xyy", ",", "yzy", ",", "yzz", ",", "xxy", ",", "xxz", ",", "xyy", ",", "yxx", ",", "yzy", ",", "xxy", ",", "xxz", ",", "xyy", ",", "yxx", ",", "yzz", ",", "xxy", ",", "xxz", ",", "xyy", ",", "yxx", ",", "yzy", ",", "yzz", ",", "xxy", ",", "xxz", ",", "yxx", ",", "yzz", ",", "xxy", ",", "xxz", ",", "xyy", ",", "yxy", ",", "yzz", ",", "xxy", ",", "xxz", ",", "yxx", ",", "yzz", ",", "xyy", ",", "yxx", ",", "yzy", ",", "yzz", ",", "xxz", ",", "xyy", ",", "yzz"}], "}"}]], "Output", CellChangeTimes->{3.57103312815625*^9}] }, Open ]], Cell["Vyma\[ZHacek]eme duplicitn\[IAcute] symboly", "Text", CellChangeTimes->{{3.571033217078125*^9, 3.57103322459375*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"promenne", " ", "=", " ", RowBox[{"DeleteDuplicates", "[", RowBox[{"Cases", "[", RowBox[{"expr", ",", "_Symbol", ",", "Infinity"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.57103330475*^9, 3.571033312546875*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "xxy", ",", "xxz", ",", "yxx", ",", "xyy", ",", "yzy", ",", "yzz", ",", "yxy"}], "}"}]], "Output", CellChangeTimes->{ 3.571033207703125*^9, {3.571033309140625*^9, 3.571033313125*^9}}] }, Open ]], Cell["\<\ Nakonec srovn\[AAcute]me v\[YAcute]sledn\[YAcute] seznam v\[SHacek]ech prom\ \[EHacek]nn\[YAcute]ch z v\[YAcute]razu epxr s prom\[EHacek]nn\[YAcute]mi ze \ seznamu vars a pomoc\[IAcute] funkce Complement z\[IAcute]sk\[AAcute]me rozd\ \[IAcute]l obou seznam\[URing] tj. prom\[EHacek]nn\[EAcute], kter\[EAcute] \ jsou v seznamu promenn\[EAcute] nav\[IAcute]c.\ \>", "Text", CellChangeTimes->{{3.5710333523125*^9, 3.571033432703125*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Complement", "[", RowBox[{"promenne", ",", "vars"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", "yxy", "}"}]], "Output", CellChangeTimes->{3.571033457109375*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], 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"}] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "6", ",", "24", ",", "120", ",", "720", ",", "5040", ",", "40320", ",", "362880", ",", "3628800"}], "}"}]], "Output", CellChangeTimes->{3.571031732265625*^9}, CellTags->{"Exercises", "Delayed Rules"}], Cell[CellGroupData[{ 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["\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 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"] }], "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.5699127100552964`*^9, 3.5699128547740464`*^9}, 3.570789304765625*^9, 3.570790171921875*^9, 3.570790695359375*^9, { 3.571031359828125*^9, 3.571031360875*^9}, {3.57103141459375*^9, 3.571031415046875*^9}, {3.571033510484375*^9, 3.57103351096875*^9}}, CellTags->{"Exercises", "Delayed Rules"}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"faktorial", "[", "10", "]"}], " ", "//.", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"faktorial", "[", "0", "]"}], "\[Rule]", " ", "1"}], ",", RowBox[{ RowBox[{"faktorial", "[", "n_", "]"}], "\[RuleDelayed]", RowBox[{"n", "*", RowBox[{"faktorial", "[", RowBox[{"n", "-", "1"}], "]"}]}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.571031545390625*^9, 3.571031612515625*^9}, { 3.5710316433125*^9, 3.571031707734375*^9}, {3.571032043609375*^9, 3.57103205646875*^9}}], Cell[BoxData["3628800"], "Output", CellChangeTimes->{3.57103167325*^9, 3.5710317089375*^9}] }, Open ]], Cell[BoxData[""], "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.5699128817896714`*^9, 3.570789304765625*^9, 3.570790171921875*^9, 3.570790695359375*^9}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], 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["\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 ", "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, {3.57103138625*^9, 3.57103140325*^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"}] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"f", "\[Rule]", TagBox[ RowBox[{"InterpolatingFunction", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"0.`", ",", "5.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], "]"}], False, Editable->False]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.5710462896875*^9}, CellTags->{"Exercises", "Formatting Numbers"}], Cell["\<\ sol[[1]] je substitu\[CHacek]n\[IAcute]m pravidlem, kter\[EAcute] po dopln\ \[EHacek]n\[IAcute] do f vr\[AAcute]t\[IAcute] vlastn\[IAcute] interpola\ \[CHacek]n\[IAcute] funkci f, jako \[RHacek]e\[SHacek]en\[IAcute] diferenci\ \[AAcute]ln\[IAcute] rovnice\ \>", "Text", CellChangeTimes->{{3.571046542546875*^9, 3.57104660896875*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", " ", "/.", " ", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.5710464889375*^9, 3.571046509453125*^9}}], Cell[BoxData[ TagBox[ RowBox[{"InterpolatingFunction", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"0.`", ",", "5.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], "]"}], False, Editable->False]], "Output", CellChangeTimes->{{3.571046477078125*^9, 3.57104649309375*^9}, 3.571046529703125*^9}] }, Open ]], Cell["\<\ N\[AAcute]sleduj\[IAcute]c\[IAcute] p\[RHacek]\[IAcute]kaz vytvo\[RHacek]\ \[IAcute] dvojice {t,f(t)}, kde t nab\[YAcute]v\[AAcute] hodnot od 0 do 5 po \ 0.5 tj. 10 dvojic.\ \>", "Text", CellChangeTimes->{{3.5710463624375*^9, 3.57104643934375*^9}}], Cell[CellGroupData[{ Cell[BoxData[ 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"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.`", ",", TagBox[ InterpretationBox["\<\" 1.0000\"\>", 1., AutoDelete->True], PaddedForm[#, {7, 4}]& ]}], "}"}], ",", RowBox[{"{", RowBox[{"0.5`", ",", TagBox[ InterpretationBox["\<\" 7.1394\"\>", 7.139364644251077, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}], "}"}], ",", RowBox[{"{", RowBox[{"1.`", ",", TagBox[ InterpretationBox["\<\" 10.4849\"\>", 10.484853674317712`, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}], "}"}], ",", RowBox[{"{", RowBox[{"1.5`", ",", TagBox[ InterpretationBox["\<\" 12.7801\"\>", 12.78008121991146, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}], "}"}], ",", RowBox[{"{", RowBox[{"2.`", ",", TagBox[ InterpretationBox["\<\" 15.2213\"\>", 15.221282548030628`, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}], "}"}], ",", RowBox[{"{", RowBox[{"2.5`", ",", TagBox[ InterpretationBox["\<\" 19.0808\"\>", 19.080771951935212`, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}], "}"}], ",", RowBox[{"{", RowBox[{"3.`", ",", TagBox[ InterpretationBox["\<\" 26.3701\"\>", 26.370052265344906`, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}], "}"}], ",", RowBox[{"{", RowBox[{"3.5`", ",", TagBox[ InterpretationBox["\<\" 40.8882\"\>", 40.888177372675884`, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}], "}"}], ",", RowBox[{"{", RowBox[{"4.`", ",", TagBox[ InterpretationBox["\<\" 70.2018\"\>", 70.20175716394388, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}], "}"}], ",", RowBox[{"{", RowBox[{"4.5`", ",", TagBox[ InterpretationBox["\<\" 129.5886\"\>", 129.5885517686286, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}], "}"}], ",", RowBox[{"{", RowBox[{"5.`", ",", TagBox[ InterpretationBox["\<\" 250.0000\"\>", 249.99998869839462`, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.57104635725*^9}] }, Open ]], Cell["\<\ Posledn\[IAcute] p\[RHacek]\[IAcute]kaz v\[YAcute]lsedn\[YAcute] seznam \ dvojic zformatuje\ \>", "Text", CellChangeTimes->{{3.571046634484375*^9, 3.57104665678125*^9}}], 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[BoxData[ TagBox[GridBox[{ {"0.`", TagBox[ InterpretationBox["\<\" 1.0000\"\>", 1., AutoDelete->True], PaddedForm[#, {7, 4}]& ]}, {"0.5`", TagBox[ InterpretationBox["\<\" 7.1394\"\>", 7.139364644251077, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}, {"1.`", TagBox[ InterpretationBox["\<\" 10.4849\"\>", 10.484853674317712`, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}, {"1.5`", TagBox[ InterpretationBox["\<\" 12.7801\"\>", 12.78008121991146, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}, {"2.`", TagBox[ InterpretationBox["\<\" 15.2213\"\>", 15.221282548030628`, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}, {"2.5`", TagBox[ InterpretationBox["\<\" 19.0808\"\>", 19.080771951935212`, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}, {"3.`", TagBox[ InterpretationBox["\<\" 26.3701\"\>", 26.370052265344906`, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}, {"3.5`", TagBox[ InterpretationBox["\<\" 40.8882\"\>", 40.888177372675884`, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}, {"4.`", TagBox[ InterpretationBox["\<\" 70.2018\"\>", 70.20175716394388, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}, {"4.5`", TagBox[ InterpretationBox["\<\" 129.5886\"\>", 129.5885517686286, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}, {"5.`", TagBox[ InterpretationBox["\<\" 250.0000\"\>", 249.99998869839462`, AutoDelete->True], PaddedForm[#, {7, 4}]& ]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.571046659421875*^9}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"g", "=", RowBox[{"f", "/.", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.57104674328125*^9, 3.571046750859375*^9}}], Cell[BoxData[ TagBox[ RowBox[{"InterpolatingFunction", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"0.`", ",", "5.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], "]"}], False, Editable->False]], "Output", CellChangeTimes->{3.571046752015625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"g", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "5"}], "}"}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.571046664125*^9, 3.571046715859375*^9}, { 3.57104675553125*^9, 3.57104675846875*^9}, {3.571046830953125*^9, 3.571046873359375*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVxX081HcAB/DjiJDw68kUh+N0nq1CxfeDHq7Iax5btHTnMfegLK/loZRR WXlMUpJdpq28PGRq08MlInmsLCmKeZgmt07yfLHtj/frbciL8g5VpNFou/7z /wXHeItsQ+Kdlfz0WhVoMvKog+Gxm7GHvDeLtLt6QEYWGiTfMxgHyECkP12t Q0YKatIMlBmxhPtdb5BN8RgROMUIpwxSSXbN24LubeOkYy4iR2ZwkRQ63+A0 Jk4Sle5+ltTgOrnPT45+2Sgn4qbCQ+8NqsnlxI/tJEgJZeWp3QKrJvJW4stl qWghnDy7OBrdQbYOs86+aVwG0dDagaqyV6Qoln5svn8V1AyTWb0OfaTu9kB7 ZstqpGs1s8X7Bwg1lDtWrsgAr9v3Ab3lL8LNkqo6ZxjiUH0yL4o1QiJuLvfR HzHCzYMaPqt2SInVL/51WZpMiOP5Iza7ZcRXYZtYYGOCpEK516fRMXLHQEui Ym4KWkcf7sWNk/mepbEvdVgwPRx2xJc9QZj5Q+JPdDMMTlzwV78/SRw2z7bX 95ph51Dk0exD0yTEPrsutnUtPAczzfX1Zwmtt2HDnrtsjNTxjjeWzpFa032C LrE5rLQ717gFfSYfSpySk29YQI1McHvG50mli6tLVJUltksDpoz8aMi/ctLa 54MVumpDFAIsFCCRmiy2NrbBrdOP9jEmFFAxaV1R8cIGYcoxfW1tirAaPrg9 odwWwdHxtzQu0bFte63J6/N2sA43b/PgKkGBFn0v8fyXaNexUI9xVMaNNyt6 B5+tw92ypHwL+iLIrsuM/zTegHgF9lctbxYht37wSk6jPdR64jiiKhVIldZV /lrsiKFrhjmFCargmf1QTYo3IcdMV6nabzF2B3t2OjCdkXkp7DGXoQap7wBH JxIIyPmmTWNYDV1JXusfjrpgekvxTKFEHVNN00L/p24YGHI9UntKA/06nJLW rq246mSr18pdgubs1Q3JIRyUpsRoh1tqImNp0F65sTtO+QW70yc08TlZkBq4 2RPre8TXT7Uuxd1UtSRnTS/krc0vbXXXAuPVtROqJj5IrEnLc6/WAtO/5uCm Oj/s0vMrbmJq48OLp93fPvgaLqLHgdqp2qiuKDFlTQaicDWP2TKhjfoG5pZG eRCYdT/negbqIEJY7JbB5iHTspb9XKIDV0NFw7HLIQgbV3r2hE3B6PLDSs/S cPBufmSkZlCwpSu5Z81GQpDkI9+ZReH+72HLuWp8xPhUvdQ4RyFavv/Wxi/4 OD0Rk56ZS6FPmpeuvpGPMseZuQsFFLz1/LyZcXzMPFzovFZCIdDsbJq9nI/M 5xppjx5TKMviLNNWFeJSkTDi5BMK70rsfmPpClF0uM2N00xB13LxHIctxO0V mbPNbRSkqz4mlngI0RNARXS8oPB07yuHsSwhWAO6bv0DFNrj27am6ItgUxWn /9MQhaPB87o7bETYmNI9EzpM4Yx31+xKVxE8WAUVf49Q+MdzyXxnqAjRfIb+ 2BiFJguFltelIiRsPjFTOU6hcvRdw9QDEVKW9P9xeIKC40WZMuO5CHnlRWem pylwRgWC7EkRrh5XCr8zS2HLynFxj2oUSrxCXRPkFPSc7tnb6UWhyqhhjfM8 hfQVPevOWUZBMm46s7BAQVIX+eMCicK/sykwOw== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{0, 0}, Method->{}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.571046684796875*^9, 3.571046717859375*^9, 3.57104676196875*^9, { 3.571046864828125*^9, 3.571046874359375*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["\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\ n\[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, { 3.571031393828125*^9, 3.57103139690625*^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[BoxData[ RowBox[{"TableForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"PaddedForm", "[", RowBox[{"t", ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"PaddedForm", "[", RowBox[{ RowBox[{ RowBox[{"f", "[", "t", "]"}], "/.", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"7", ",", "4"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0.0", ",", "5", ",", "0.5"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.571046945484375*^9, 3.57104706259375*^9}}], 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.139364644251077, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}, { TagBox[ InterpretationBox["\<\" 1.0\"\>", 1., AutoDelete->True], PaddedForm[#, {2, 1}]& ], TagBox[ InterpretationBox["\<\" 10.4849\"\>", 10.484853674317712`, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}, { TagBox[ InterpretationBox["\<\" 1.5\"\>", 1.5, AutoDelete->True], PaddedForm[#, {2, 1}]& ], TagBox[ InterpretationBox["\<\" 12.7801\"\>", 12.78008121991146, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}, { TagBox[ InterpretationBox["\<\" 2.0\"\>", 2., AutoDelete->True], PaddedForm[#, {2, 1}]& ], TagBox[ InterpretationBox["\<\" 15.2213\"\>", 15.221282548030628`, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}, { TagBox[ InterpretationBox["\<\" 2.5\"\>", 2.5, AutoDelete->True], PaddedForm[#, {2, 1}]& ], TagBox[ InterpretationBox["\<\" 19.0808\"\>", 19.080771951935212`, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}, { TagBox[ InterpretationBox["\<\" 3.0\"\>", 3., AutoDelete->True], PaddedForm[#, {2, 1}]& ], TagBox[ InterpretationBox["\<\" 26.3701\"\>", 26.370052265344906`, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}, { TagBox[ InterpretationBox["\<\" 3.5\"\>", 3.5, AutoDelete->True], PaddedForm[#, {2, 1}]& ], TagBox[ InterpretationBox["\<\" 40.8882\"\>", 40.888177372675884`, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}, { TagBox[ InterpretationBox["\<\" 4.0\"\>", 4., AutoDelete->True], PaddedForm[#, {2, 1}]& ], TagBox[ InterpretationBox["\<\" 70.2018\"\>", 70.20175716394388, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}, { TagBox[ InterpretationBox["\<\" 4.5\"\>", 4.5, AutoDelete->True], PaddedForm[#, {2, 1}]& ], TagBox[ InterpretationBox["\<\" 129.5886\"\>", 129.5885517686286, AutoDelete->True], PaddedForm[#, {7, 4}]& ]}, { TagBox[ InterpretationBox["\<\" 5.0\"\>", 5., AutoDelete->True], PaddedForm[#, {2, 1}]& ], TagBox[ InterpretationBox["\<\" 250.0000\"\>", 249.99998869839462`, AutoDelete->True], PaddedForm[#, {7, 4}]& ]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.571046961859375*^9, 3.571047063390625*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], 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["\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, {3.571047219265625*^9, 3.57104721975*^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["\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 \ nam\[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, {3.571047206171875*^9, 3.571047210296875*^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"}] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"y1", ",", "x1"}], "}"}], ",", RowBox[{"{", RowBox[{"y2", ",", "x2"}], "}"}], ",", RowBox[{"{", RowBox[{"y3", ",", "x3"}], "}"}], ",", RowBox[{"{", RowBox[{"y4", ",", "x4"}], "}"}], ",", RowBox[{"{", RowBox[{"y5", ",", "x5"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.571047239046875*^9}, CellTags->{"Exercises", "Programming Style"}], Cell[CellGroupData[{ Cell[TextData[StyleBox["\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, { 3.5710472586875*^9, 3.571047259375*^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"}] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"y1", ",", "x1"}], "}"}], ",", RowBox[{"{", RowBox[{"y2", ",", "x2"}], "}"}], ",", RowBox[{"{", RowBox[{"y3", ",", "x3"}], "}"}], ",", RowBox[{"{", RowBox[{"y4", ",", "x4"}], "}"}], ",", RowBox[{"{", RowBox[{"y5", ",", "x5"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.57104726396875*^9}, CellTags->{"Exercises", "Programming Style"}], Cell[CellGroupData[{ Cell[TextData[StyleBox["\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, { 3.571047267703125*^9, 3.57104726803125*^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"}] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"y1", ",", "x1"}], "}"}], ",", RowBox[{"{", RowBox[{"y2", ",", "x2"}], "}"}], ",", RowBox[{"{", RowBox[{"y3", ",", "x3"}], "}"}], ",", RowBox[{"{", RowBox[{"y4", ",", "x4"}], "}"}], ",", RowBox[{"{", RowBox[{"y5", ",", "x5"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5710472730625*^9}, CellTags->{"Exercises", "Programming Style"}], Cell[TextData[{ StyleBox["\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, { 3.5710472763125*^9, 3.571047277125*^9}}, CellTags->{"Exercises", "Programming Style"}], Cell[CellGroupData[{ 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[{"First", "[", RowBox[{"data", "[", RowBox[{"[", "k", "]"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"Length", "[", "data", "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", "result"}], "Input", CellChangeTimes->{{3.571047305359375*^9, 3.571047309140625*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5"}], "}"}]], "Output", CellChangeTimes->{3.571047314375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Map", "[", RowBox[{"First", ",", "data"}], "]"}]], "Input", CellChangeTimes->{{3.57104733240625*^9, 3.571047335125*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5"}], "}"}]], "Output", CellChangeTimes->{3.57104733671875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data", "/.", RowBox[{ RowBox[{"{", RowBox[{"p_", ",", "q_"}], "}"}], "\[Rule]", "p"}]}]], "Input", CellChangeTimes->{{3.57104734896875*^9, 3.571047356203125*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5"}], "}"}]], "Output", CellChangeTimes->{{3.57104735078125*^9, 3.5710473571875*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["", "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellChangeTimes->{3.56991571953125*^9, 3.570789323828125*^9, 3.5707901719375*^9, 3.5707907109375*^9}], Cell[TextData[StyleBox["\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, { 3.571047282703125*^9, 3.571047283015625*^9}}, CellTags->{"Exercises", "Programming Style"}] }, Open ]], Cell[CellGroupData[{ 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[{"Total", "[", RowBox[{"data", "[", RowBox[{"[", "k", "]"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"Length", "[", "data", "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", "result"}], "Input", CellChangeTimes->{{3.571047376578125*^9, 3.571047379*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"x1", "+", "y1"}], ",", RowBox[{"x2", "+", "y2"}], ",", RowBox[{"x3", "+", "y3"}], ",", RowBox[{"x4", "+", "y4"}], ",", RowBox[{"x5", "+", "y5"}]}], "}"}]], "Output", CellChangeTimes->{3.571047383875*^9}] }, Open ]], Cell["Jinak", "Text", CellChangeTimes->{{3.57104748775*^9, 3.571047489828125*^9}}], Cell[CellGroupData[{ 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[{ RowBox[{"First", "[", RowBox[{"data", "[", RowBox[{"[", "k", "]"}], "]"}], "]"}], "+", RowBox[{"Last", "[", RowBox[{"data", "[", RowBox[{"[", "k", "]"}], "]"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"Length", "[", "data", "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", "result"}], "Input", CellChangeTimes->{{3.57104752384375*^9, 3.571047539265625*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"x1", "+", "y1"}], ",", RowBox[{"x2", "+", "y2"}], ",", RowBox[{"x3", "+", "y3"}], ",", RowBox[{"x4", "+", "y4"}], ",", RowBox[{"x5", "+", "y5"}]}], "}"}]], "Output", CellChangeTimes->{3.571047544109375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Map", "[", RowBox[{"Total", ",", "data"}], "]"}]], "Input", CellChangeTimes->{{3.57104740615625*^9, 3.5710474089375*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"x1", "+", "y1"}], ",", RowBox[{"x2", "+", "y2"}], ",", RowBox[{"x3", "+", "y3"}], ",", RowBox[{"x4", "+", "y4"}], ",", RowBox[{"x5", "+", "y5"}]}], "}"}]], "Output", CellChangeTimes->{3.5710474108125*^9}] }, Open ]], Cell["Jin\[YAcute]m zp\[URing]sobem", "Text", CellChangeTimes->{{3.571047475828125*^9, 3.5710474798125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"soucet", "[", RowBox[{"{", RowBox[{"x_", ",", "y_"}], "}"}], "]"}], ":=", RowBox[{"x", "+", "y"}]}]], "Input", CellChangeTimes->{{3.571047430265625*^9, 3.571047449640625*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Map", "[", RowBox[{"soucet", ",", "data"}], "]"}]], "Input", CellChangeTimes->{{3.57104745371875*^9, 3.571047458734375*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"x1", "+", "y1"}], ",", RowBox[{"x2", "+", "y2"}], ",", RowBox[{"x3", "+", "y3"}], ",", RowBox[{"x4", "+", "y4"}], ",", RowBox[{"x5", "+", "y5"}]}], "}"}]], "Output", CellChangeTimes->{3.571047459828125*^9}] }, Open ]], Cell["\<\ Pomoc\[IAcute] lambda (anonymn\[IAcute]) funkce. (viz Programov\[AAcute]n\ \[IAcute] - 2. \[CHacek]\[AAcute]st)\ \>", "Text", CellChangeTimes->{{3.571047770484375*^9, 3.57104779903125*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"First", "[", "#1", "]"}], "+", RowBox[{"Last", "[", "#1", "]"}]}], "&"}], ",", "data"}], "]"}]], "Input", CellChangeTimes->{{3.571047658234375*^9, 3.571047755734375*^9}, { 3.57104781259375*^9, 3.5710478433125*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"x1", "+", "y1"}], ",", RowBox[{"x2", "+", "y2"}], ",", RowBox[{"x3", "+", "y3"}], ",", RowBox[{"x4", "+", "y4"}], ",", RowBox[{"x5", "+", "y5"}]}], "}"}]], "Output", CellChangeTimes->{{3.571047688328125*^9, 3.57104771496875*^9}, 3.57104775821875*^9, {3.571047825015625*^9, 3.571047844453125*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data", "/.", RowBox[{ RowBox[{"{", RowBox[{"p_", ",", "q_"}], "}"}], "\[Rule]", RowBox[{"p", "+", "q"}]}]}]], "Input", CellChangeTimes->{{3.5710475703125*^9, 3.571047570625*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"x1", "+", "y1"}], ",", RowBox[{"x2", "+", "y2"}], ",", RowBox[{"x3", "+", "y3"}], ",", RowBox[{"x4", "+", "y4"}], ",", RowBox[{"x5", "+", "y5"}]}], "}"}]], "Output", CellChangeTimes->{3.571047571609375*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], 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["\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] absolutn\[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, {3.571047862515625*^9, 3.5710478928125*^9}, { 3.57104826103125*^9, 3.571048269015625*^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["\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 \[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, { 3.57104827715625*^9, 3.5710482815625*^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"}] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"11", " ", "Null"}], ",", RowBox[{"5", " ", "Null"}], ",", RowBox[{"8", " ", "Null"}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.571048350421875*^9}, CellTags->{"Exercises", "Debugging a Program"}], Cell[TextData[{ StyleBox["\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, {3.571048287296875*^9, 3.571048289296875*^9}}, CellTags->{"Exercises", "Debugging a Program"}], Cell["\<\ Nejd\[RHacek]\[IAcute]ve odstran\[IAcute]me slo\[ZHacek]en\[EAcute] \ z\[AAcute]vorky, kter\[EAcute] ohrani\[CHacek]uj\[IAcute] posloupnost p\ \[RHacek]\[IAcute]kaz\[URing] ve druh\[EAcute]m argumentu funkce Module \ \>", "Text", CellChangeTimes->{{3.571048172125*^9, 3.571048206078125*^9}, { 3.571049205734375*^9, 3.571049222859375*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", "f", "]"}]], "Input", CellChangeTimes->{{3.571048442484375*^9, 3.571048450328125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "m_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "result", "}"}], ",", "\[IndentingNewLine]", 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, { 3.5710484198125*^9, 3.571048423421875*^9}}, CellTags->{"Exercises", "Debugging a Program"}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", RowBox[{"(", GridBox[{ {"1", "4", "7"}, {"9", "1", "8"}, {"4", "6", "1"}, {"11", "5", "8"}, {"6", "1", "1"} }], ")"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"11", " ", "Null"}], ",", RowBox[{"5", " ", "Null"}], ",", RowBox[{"8", " ", "Null"}]}], "}"}]], "Output", CellChangeTimes->{3.571048488953125*^9}] }, Open ]], Cell["\<\ Nakonec p\[RHacek]ed v\[YAcute]sledn\[EAcute] result um\[IAcute]st\[IAcute]me \ st\[RHacek]edn\[IAcute]k, abychom potla\[CHacek]ili v\[YAcute]stup funkce Do. \ Pokud tam st\[RHacek]edn\[IAcute]k nen\[IAcute], v\[YAcute]sledkem funkce Do \ je v\[ZHacek]dy Null a cel\[YAcute] v\[YAcute]raz spolu s prom\[EHacek]nou \ result se chov\[AAcute] jako sou\[CHacek]in Do[...] * result tj. Null*result \ tj. ka\[ZHacek]d\[YAcute] prvek v\[YAcute]sledn\[EAcute]ho seznamu je n\ \[AAcute]soben Null a cel\[YAcute] seznam je vr\[AAcute]cen jako \ v\[YAcute]sledek\ \>", "Text", CellChangeTimes->{{3.5710486533125*^9, 3.571048864421875*^9}, { 3.5710490590625*^9, 3.571049073109375*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", "f", "]"}]], "Input", CellChangeTimes->{{3.571048529109375*^9, 3.57104853171875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "m_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "result", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"result", "=", RowBox[{"m", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 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", CellChangeTimes->{3.5710485221875*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", RowBox[{"(", GridBox[{ {"1", "4", "7"}, {"9", "1", "8"}, {"4", "6", "1"}, {"11", "5", "8"}, {"6", "1", "1"} }], ")"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"11", ",", "5", ",", "8"}], "}"}]], "Output", CellChangeTimes->{3.571048632296875*^9}] }, Open ]] }, Open ]] }, ScreenStyleEnvironment->"Working", ShowPageBreaks->False, WindowSize->{1912, 1058}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, TaggingRules->{"SlideShow" -> True}, FrontEndVersion->"9.0 for Microsoft Windows (32-bit) (November 20, 2012)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "SlideShowHeader"->{ Cell[579, 22, 4250, 94, 79, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[29494, 594, 64, 1, 78, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[38710, 863, 64, 1, 78, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[55158, 1372, 64, 1, 78, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[74570, 2007, 64, 1, 78, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[94304, 2617, 64, 1, 78, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[102330, 2856, 64, 1, 78, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[107965, 3044, 64, 1, 78, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[115796, 3277, 64, 1, 78, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[124561, 3569, 64, 1, 78, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[138504, 3961, 64, 1, 78, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[143511, 4095, 64, 1, 78, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[165518, 4831, 64, 1, 78, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[180042, 5285, 64, 1, 78, "SlideShowNavigationBar", CellTags->"SlideShowHeader"]}, "Exercises"->{ Cell[5201, 127, 660, 19, 31, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Creating Definitions"}], Cell[6808, 184, 686, 22, 31, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Creating Definitions"}], Cell[28795, 574, 537, 11, 31, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Creating Definitions"}], Cell[29583, 599, 688, 10, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Table I"}], Cell[30274, 611, 1036, 24, 31, "Text", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Table I"}], Cell[31313, 637, 392, 6, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Table I"}], Cell[31708, 645, 420, 11, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Table I"}], Cell[32165, 661, 250, 6, 23, "Print", CellTags->{"Exercises", "Table I"}], Cell[32418, 669, 248, 6, 23, "Print", CellTags->{"Exercises", "Table I"}], Cell[32669, 677, 250, 6, 23, "Print", CellTags->{"Exercises", "Table I"}], Cell[32922, 685, 252, 6, 23, "Print", CellTags->{"Exercises", "Table I"}], Cell[33177, 693, 251, 6, 23, "Print", CellTags->{"Exercises", "Table I"}], Cell[33431, 701, 252, 6, 23, "Print", CellTags->{"Exercises", "Table I"}], Cell[33686, 709, 252, 6, 23, "Print", CellTags->{"Exercises", "Table I"}], Cell[33941, 717, 248, 6, 23, "Print", CellTags->{"Exercises", "Table I"}], Cell[34192, 725, 252, 6, 23, "Print", CellTags->{"Exercises", "Table I"}], Cell[34447, 733, 259, 7, 23, "Print", CellTags->{"Exercises", "Table I"}], Cell[34721, 743, 541, 8, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Table I"}], Cell[38799, 868, 345, 5, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[39147, 875, 751, 16, 31, "Text", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[39901, 893, 466, 7, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[40370, 902, 427, 12, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[40812, 917, 730, 24, 31, "Output", CellTags->{"Exercises", "Table II"}], Cell[41567, 945, 398, 7, 30, "Text", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[41968, 954, 244, 5, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[42227, 962, 751, 26, 162, "Output", CellTags->{"Exercises", "Table II"}], Cell[43003, 992, 520, 12, 31, "Text", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[43526, 1006, 301, 7, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[43842, 1016, 449, 18, 162, "Output", CellTags->{"Exercises", "Table II"}], Cell[44294, 1036, 513, 8, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[50540, 1233, 848, 12, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[55247, 1377, 317, 5, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[55567, 1384, 433, 10, 30, "Text", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[56003, 1396, 345, 9, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[56363, 1408, 2824, 88, 52, "Output", CellTags->{"Exercises", "Matrix Operations"}], Cell[59212, 1500, 507, 12, 31, "Text", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[59722, 1514, 252, 5, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[59989, 1522, 3020, 95, 102, "Output", CellTags->{"Exercises", "Matrix Operations"}], Cell[63034, 1621, 550, 14, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[65216, 1696, 552, 13, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[69312, 1834, 541, 13, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[70735, 1881, 649, 15, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[72116, 1926, 617, 13, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[74659, 2012, 379, 6, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[75041, 2020, 445, 9, 30, "Text", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[76924, 2074, 996, 26, 50, "Text", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[77923, 2102, 310, 7, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[78248, 2112, 200, 5, 31, "Output", CellTags->{"Exercises", "Picking Parts"}], Cell[78451, 2119, 345, 8, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[78799, 2129, 762, 25, 102, "Output", CellTags->{"Exercises", "Picking Parts"}], Cell[79586, 2158, 866, 16, 31, "Text", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[80455, 2176, 333, 8, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[80803, 2187, 343, 10, 31, "Output", CellTags->{"Exercises", "Picking Parts"}], Cell[82115, 2233, 485, 11, 31, "Text", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[82603, 2246, 402, 11, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[83020, 2260, 734, 23, 102, "Output", CellTags->{"Exercises", "Picking Parts"}], Cell[83757, 2285, 531, 8, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[86818, 2380, 420, 7, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[89402, 2463, 576, 9, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[94393, 2622, 385, 5, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10005.}, CellTags->{"Exercises", "Immediate and Delayed"}], Cell[94781, 2629, 479, 11, 31, "Text", CellGroupingRules->{GroupTogetherGrouping, 10005.}, CellTags->{"Exercises", "Immediate and Delayed"}], Cell[95263, 2642, 360, 9, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10005.}, CellTags->{"Exercises", "Immediate and Delayed"}], Cell[95626, 2653, 511, 7, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10005.}, CellTags->{"Exercises", "Immediate and Delayed"}], Cell[102419, 2861, 364, 6, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10006.}, CellTags->{"Exercises", "Localizing Variables"}], Cell[102786, 2869, 371, 5, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10006.}, CellTags->{"Exercises", "Localizing Variables"}], Cell[103651, 2890, 629, 17, 92, "Input", CellGroupingRules->{GroupTogetherGrouping, 10006.}, CellTags->{"Exercises", "Localizing Variables"}], Cell[108245, 3054, 352, 5, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10007.}, CellTags->{"Exercises", "Using Patterns"}], Cell[108600, 3061, 1231, 30, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10007.}, CellTags->{"Exercises", "Using Patterns"}], Cell[109834, 3093, 1226, 34, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10007.}, CellTags->{"Exercises", "Using Patterns"}], Cell[111075, 3130, 267, 6, 139, "Output", CellTags->{"Exercises", "Using Patterns"}], Cell[111367, 3140, 1350, 30, 44, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10007.}, CellTags->{"Exercises", "Using Patterns"}], Cell[115885, 3282, 346, 5, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10008.}, CellTags->{"Exercises", "Pattern Matching"}], Cell[116234, 3289, 1645, 46, 34, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10008.}, CellTags->{"Exercises", "Pattern Matching"}], Cell[124650, 3574, 333, 5, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[124986, 3581, 677, 12, 30, "Text", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[125666, 3595, 804, 16, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[126473, 3613, 379, 10, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[128099, 3663, 956, 13, 43, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[129058, 3678, 2994, 88, 52, "Input", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[138718, 3970, 329, 5, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}], Cell[139050, 3977, 639, 11, 30, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}], Cell[139692, 3990, 446, 12, 52, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}], Cell[140141, 4004, 347, 9, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}], Cell[140503, 4016, 268, 6, 31, "Output", CellTags->{"Exercises", "Delayed Rules"}], Cell[140796, 4026, 535, 9, 30, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}], Cell[141334, 4037, 1239, 25, 44, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}], Cell[143600, 4100, 372, 5, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[143975, 4107, 988, 19, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[145191, 4135, 751, 22, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[145957, 4160, 416, 13, 31, "Output", CellTags->{"Exercises", "Formatting Numbers"}], Cell[150484, 4318, 697, 20, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[151184, 4340, 2310, 82, 177, "Output", CellTags->{"Exercises", "Formatting Numbers"}], Cell[156623, 4505, 662, 9, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[157288, 4516, 3689, 140, 177, "Output", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[165607, 4836, 319, 5, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[165929, 4843, 498, 8, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[166430, 4853, 609, 18, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[167042, 4873, 1047, 20, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[168092, 4895, 884, 24, 132, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[168991, 4922, 447, 14, 31, "Output", CellTags->{"Exercises", "Programming Style"}], Cell[169463, 4940, 425, 6, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[169891, 4948, 275, 6, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[170181, 4957, 446, 14, 31, "Output", CellTags->{"Exercises", "Programming Style"}], Cell[170652, 4975, 442, 7, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[171097, 4984, 367, 10, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[171479, 4997, 445, 14, 31, "Output", CellTags->{"Exercises", "Programming Style"}], Cell[171927, 5013, 611, 14, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[174445, 5095, 470, 7, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[180131, 5290, 364, 5, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[180498, 5297, 792, 11, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[181293, 5310, 1430, 38, 192, "Input", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[182726, 5350, 844, 17, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[183573, 5369, 389, 12, 87, "Input", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[183977, 5384, 283, 8, 31, "Output", CellTags->{"Exercises", "Debugging a Program"}], Cell[184263, 5394, 665, 14, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[185412, 5422, 1425, 38, 192, "Input", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}]}, "Creating Definitions"->{ Cell[5201, 127, 660, 19, 31, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Creating Definitions"}], Cell[6808, 184, 686, 22, 31, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Creating Definitions"}], Cell[28795, 574, 537, 11, 31, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Creating Definitions"}]}, "Table I"->{ Cell[29583, 599, 688, 10, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Table I"}], Cell[30274, 611, 1036, 24, 31, "Text", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Table I"}], Cell[31313, 637, 392, 6, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Table I"}], Cell[31708, 645, 420, 11, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Table I"}], Cell[32165, 661, 250, 6, 23, "Print", CellTags->{"Exercises", "Table I"}], Cell[32418, 669, 248, 6, 23, "Print", CellTags->{"Exercises", "Table I"}], Cell[32669, 677, 250, 6, 23, "Print", CellTags->{"Exercises", "Table I"}], Cell[32922, 685, 252, 6, 23, "Print", CellTags->{"Exercises", "Table I"}], Cell[33177, 693, 251, 6, 23, "Print", CellTags->{"Exercises", "Table I"}], Cell[33431, 701, 252, 6, 23, "Print", CellTags->{"Exercises", "Table I"}], Cell[33686, 709, 252, 6, 23, "Print", CellTags->{"Exercises", "Table I"}], Cell[33941, 717, 248, 6, 23, "Print", CellTags->{"Exercises", "Table I"}], Cell[34192, 725, 252, 6, 23, "Print", CellTags->{"Exercises", "Table I"}], Cell[34447, 733, 259, 7, 23, "Print", CellTags->{"Exercises", "Table I"}], Cell[34721, 743, 541, 8, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Table I"}]}, "Table II"->{ Cell[38799, 868, 345, 5, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[39147, 875, 751, 16, 31, "Text", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[39901, 893, 466, 7, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[40370, 902, 427, 12, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[40812, 917, 730, 24, 31, "Output", CellTags->{"Exercises", "Table II"}], Cell[41567, 945, 398, 7, 30, "Text", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[41968, 954, 244, 5, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[42227, 962, 751, 26, 162, "Output", CellTags->{"Exercises", "Table II"}], Cell[43003, 992, 520, 12, 31, "Text", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[43526, 1006, 301, 7, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[43842, 1016, 449, 18, 162, "Output", CellTags->{"Exercises", "Table II"}], Cell[44294, 1036, 513, 8, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[50540, 1233, 848, 12, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}]}, "Matrix Operations"->{ Cell[55247, 1377, 317, 5, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[55567, 1384, 433, 10, 30, "Text", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[56003, 1396, 345, 9, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[56363, 1408, 2824, 88, 52, "Output", CellTags->{"Exercises", "Matrix Operations"}], Cell[59212, 1500, 507, 12, 31, "Text", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[59722, 1514, 252, 5, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[59989, 1522, 3020, 95, 102, "Output", CellTags->{"Exercises", "Matrix Operations"}], Cell[63034, 1621, 550, 14, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[65216, 1696, 552, 13, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[69312, 1834, 541, 13, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[70735, 1881, 649, 15, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[72116, 1926, 617, 13, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}]}, "Picking Parts"->{ Cell[74659, 2012, 379, 6, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[75041, 2020, 445, 9, 30, "Text", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[76924, 2074, 996, 26, 50, "Text", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[77923, 2102, 310, 7, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[78248, 2112, 200, 5, 31, "Output", CellTags->{"Exercises", "Picking Parts"}], Cell[78451, 2119, 345, 8, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[78799, 2129, 762, 25, 102, "Output", CellTags->{"Exercises", "Picking Parts"}], Cell[79586, 2158, 866, 16, 31, "Text", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[80455, 2176, 333, 8, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[80803, 2187, 343, 10, 31, "Output", CellTags->{"Exercises", "Picking Parts"}], Cell[82115, 2233, 485, 11, 31, "Text", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[82603, 2246, 402, 11, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[83020, 2260, 734, 23, 102, "Output", CellTags->{"Exercises", "Picking Parts"}], Cell[83757, 2285, 531, 8, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[86818, 2380, 420, 7, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[89402, 2463, 576, 9, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}]}, "Immediate and Delayed"->{ Cell[94393, 2622, 385, 5, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10005.}, CellTags->{"Exercises", "Immediate and Delayed"}], Cell[94781, 2629, 479, 11, 31, "Text", CellGroupingRules->{GroupTogetherGrouping, 10005.}, CellTags->{"Exercises", "Immediate and Delayed"}], Cell[95263, 2642, 360, 9, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10005.}, CellTags->{"Exercises", "Immediate and Delayed"}], Cell[95626, 2653, 511, 7, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10005.}, CellTags->{"Exercises", "Immediate and Delayed"}]}, "Localizing Variables"->{ Cell[102419, 2861, 364, 6, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10006.}, CellTags->{"Exercises", "Localizing Variables"}], Cell[102786, 2869, 371, 5, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10006.}, CellTags->{"Exercises", "Localizing Variables"}], Cell[103651, 2890, 629, 17, 92, "Input", CellGroupingRules->{GroupTogetherGrouping, 10006.}, CellTags->{"Exercises", "Localizing Variables"}]}, "Using Patterns"->{ Cell[108245, 3054, 352, 5, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10007.}, CellTags->{"Exercises", "Using Patterns"}], Cell[108600, 3061, 1231, 30, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10007.}, CellTags->{"Exercises", "Using Patterns"}], Cell[109834, 3093, 1226, 34, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10007.}, CellTags->{"Exercises", "Using Patterns"}], Cell[111075, 3130, 267, 6, 139, "Output", CellTags->{"Exercises", "Using Patterns"}], Cell[111367, 3140, 1350, 30, 44, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10007.}, CellTags->{"Exercises", "Using Patterns"}]}, "Pattern Matching"->{ Cell[115885, 3282, 346, 5, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10008.}, CellTags->{"Exercises", "Pattern Matching"}], Cell[116234, 3289, 1645, 46, 34, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10008.}, CellTags->{"Exercises", "Pattern Matching"}]}, "Info3571026565-2048584"->{ Cell[118934, 3375, 116, 2, 42, "Print", CellTags->"Info3571026565-2048584"], Cell[119053, 3379, 1272, 39, 97, "Print", CellTags->"Info3571026565-2048584"]}, "Info3571029873-2287455"->{ Cell[121632, 3466, 119, 2, 42, "Print", CellTags->"Info3571029873-2287455"], Cell[121754, 3470, 1414, 43, 97, "Print", CellTags->"Info3571029873-2287455"]}, "Constructing an Expression"->{ Cell[124650, 3574, 333, 5, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[124986, 3581, 677, 12, 30, "Text", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[125666, 3595, 804, 16, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[126473, 3613, 379, 10, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[128099, 3663, 956, 13, 43, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[129058, 3678, 2994, 88, 52, "Input", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}]}, "Delayed Rules"->{ Cell[138718, 3970, 329, 5, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}], Cell[139050, 3977, 639, 11, 30, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}], Cell[139692, 3990, 446, 12, 52, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}], Cell[140141, 4004, 347, 9, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}], Cell[140503, 4016, 268, 6, 31, "Output", CellTags->{"Exercises", "Delayed Rules"}], Cell[140796, 4026, 535, 9, 30, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}], Cell[141334, 4037, 1239, 25, 44, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}]}, "Formatting Numbers"->{ Cell[143600, 4100, 372, 5, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[143975, 4107, 988, 19, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[145191, 4135, 751, 22, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[145957, 4160, 416, 13, 31, "Output", CellTags->{"Exercises", "Formatting Numbers"}], Cell[150484, 4318, 697, 20, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[151184, 4340, 2310, 82, 177, "Output", CellTags->{"Exercises", "Formatting Numbers"}], Cell[156623, 4505, 662, 9, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[157288, 4516, 3689, 140, 177, "Output", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}]}, "Programming Style"->{ Cell[165607, 4836, 319, 5, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[165929, 4843, 498, 8, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[166430, 4853, 609, 18, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[167042, 4873, 1047, 20, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[168092, 4895, 884, 24, 132, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[168991, 4922, 447, 14, 31, "Output", CellTags->{"Exercises", "Programming Style"}], Cell[169463, 4940, 425, 6, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[169891, 4948, 275, 6, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[170181, 4957, 446, 14, 31, "Output", CellTags->{"Exercises", "Programming Style"}], Cell[170652, 4975, 442, 7, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[171097, 4984, 367, 10, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[171479, 4997, 445, 14, 31, "Output", CellTags->{"Exercises", "Programming Style"}], Cell[171927, 5013, 611, 14, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[174445, 5095, 470, 7, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}]}, "Debugging a Program"->{ Cell[180131, 5290, 364, 5, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[180498, 5297, 792, 11, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[181293, 5310, 1430, 38, 192, "Input", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[182726, 5350, 844, 17, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[183573, 5369, 389, 12, 87, "Input", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[183977, 5384, 283, 8, 31, "Output", CellTags->{"Exercises", "Debugging a Program"}], Cell[184263, 5394, 665, 14, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[185412, 5422, 1425, 38, 192, "Input", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}]} } *) (*CellTagsIndex CellTagsIndex->{ {"SlideShowHeader", 190048, 5566}, {"Exercises", 191330, 5595}, {"Creating Definitions", 206885, 5917}, {"Table I", 207342, 5927}, {"Table II", 208852, 5963}, {"Matrix Operations", 210512, 6000}, {"Picking Parts", 212212, 6035}, {"Immediate and Delayed", 214321, 6080}, {"Localizing Variables", 214962, 6093}, {"Using Patterns", 215448, 6103}, {"Pattern Matching", 216161, 6118}, {"Info3571026565-2048584", 216498, 6125}, {"Info3571029873-2287455", 216694, 6130}, {"Constructing an Expression", 216894, 6135}, {"Delayed Rules", 217872, 6154}, {"Formatting Numbers", 218860, 6175}, {"Programming Style", 219989, 6198}, {"Debugging a Program", 221950, 6238} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 4250, 94, 79, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[4854, 120, 344, 5, 43, "Subsection", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[5201, 127, 660, 19, 31, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Creating Definitions"}], Cell[5864, 148, 405, 9, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}] }, Open ]], Cell[CellGroupData[{ Cell[6306, 162, 118, 2, 31, "Input"], Cell[6427, 166, 67, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6531, 172, 143, 3, 31, "Input"], Cell[6677, 177, 94, 2, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6808, 184, 686, 22, 31, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Creating Definitions"}], Cell[7497, 208, 541, 14, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}] }, Open ]], Cell[8053, 225, 20739, 347, 240, "Output"], Cell[28795, 574, 537, 11, 31, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Creating Definitions"}], Cell[29335, 587, 122, 2, 31, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[29494, 594, 64, 1, 78, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[29583, 599, 688, 10, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Table I"}], Cell[30274, 611, 1036, 24, 31, "Text", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Table I"}], Cell[31313, 637, 392, 6, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Table I"}], Cell[31708, 645, 420, 11, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Table I"}] }, Open ]], Cell[CellGroupData[{ Cell[32165, 661, 250, 6, 23, "Print", CellTags->{"Exercises", "Table I"}], Cell[32418, 669, 248, 6, 23, "Print", CellTags->{"Exercises", "Table I"}], Cell[32669, 677, 250, 6, 23, "Print", CellTags->{"Exercises", "Table I"}], Cell[32922, 685, 252, 6, 23, "Print", CellTags->{"Exercises", "Table I"}], Cell[33177, 693, 251, 6, 23, "Print", CellTags->{"Exercises", "Table I"}], Cell[33431, 701, 252, 6, 23, "Print", CellTags->{"Exercises", "Table I"}], Cell[33686, 709, 252, 6, 23, "Print", CellTags->{"Exercises", "Table I"}], Cell[33941, 717, 248, 6, 23, "Print", CellTags->{"Exercises", "Table I"}], Cell[34192, 725, 252, 6, 23, "Print", CellTags->{"Exercises", "Table I"}], Cell[34447, 733, 259, 7, 23, "Print", CellTags->{"Exercises", "Table I"}] }, Open ]], Cell[34721, 743, 541, 8, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Table I"}], Cell[CellGroupData[{ Cell[35287, 755, 361, 9, 31, "Input"], Cell[CellGroupData[{ Cell[35673, 768, 290, 7, 23, "Print"], Cell[35966, 777, 290, 7, 23, "Print"], Cell[36259, 786, 294, 7, 23, "Print"], Cell[36556, 795, 295, 7, 23, "Print"], Cell[36854, 804, 297, 7, 23, "Print"], Cell[37154, 813, 298, 7, 23, "Print"], Cell[37455, 822, 292, 7, 23, "Print"], Cell[37750, 831, 292, 7, 23, "Print"], Cell[38045, 840, 298, 7, 23, "Print"], Cell[38346, 849, 303, 7, 23, "Print"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[38710, 863, 64, 1, 78, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[38799, 868, 345, 5, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[39147, 875, 751, 16, 31, "Text", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[39901, 893, 466, 7, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[40370, 902, 427, 12, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}] }, Open ]], Cell[40812, 917, 730, 24, 31, "Output", CellTags->{"Exercises", "Table II"}], Cell[CellGroupData[{ Cell[41567, 945, 398, 7, 30, "Text", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[41968, 954, 244, 5, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}] }, Open ]], Cell[42227, 962, 751, 26, 162, "Output", CellTags->{"Exercises", "Table II"}], Cell[CellGroupData[{ Cell[43003, 992, 520, 12, 31, "Text", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[43526, 1006, 301, 7, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}] }, Open ]], Cell[43842, 1016, 449, 18, 162, "Output", CellTags->{"Exercises", "Table II"}], Cell[44294, 1036, 513, 8, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[CellGroupData[{ Cell[44832, 1048, 348, 10, 31, "Input"], Cell[45183, 1060, 809, 23, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[46029, 1088, 127, 2, 31, "Input"], Cell[46159, 1092, 778, 25, 162, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[46974, 1122, 186, 4, 31, "Input"], Cell[47163, 1128, 477, 17, 162, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[47677, 1150, 63, 1, 31, "Input"], Cell[47743, 1153, 1196, 24, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[48976, 1182, 772, 21, 52, "Input"], Cell[49751, 1205, 752, 23, 188, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[50540, 1233, 848, 12, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Table II"}], Cell[51391, 1247, 187, 3, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10002.}] }, Open ]], Cell[CellGroupData[{ Cell[51615, 1255, 313, 8, 31, "Input"], Cell[51931, 1265, 927, 24, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[52895, 1294, 361, 10, 31, "Input"], Cell[53259, 1306, 844, 25, 162, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[54140, 1336, 421, 11, 31, "Input"], Cell[54564, 1349, 545, 17, 162, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[55158, 1372, 64, 1, 78, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[55247, 1377, 317, 5, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[55567, 1384, 433, 10, 30, "Text", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[56003, 1396, 345, 9, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}] }, Open ]], Cell[56363, 1408, 2824, 88, 52, "Output", CellTags->{"Exercises", "Matrix Operations"}], Cell[CellGroupData[{ Cell[59212, 1500, 507, 12, 31, "Text", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[59722, 1514, 252, 5, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}] }, Open ]], Cell[59989, 1522, 3020, 95, 102, "Output", CellTags->{"Exercises", "Matrix Operations"}], Cell[CellGroupData[{ Cell[63034, 1621, 550, 14, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[63587, 1637, 197, 3, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10003.}] }, Open ]], Cell[CellGroupData[{ Cell[63821, 1645, 144, 3, 31, "Input"], Cell[63968, 1650, 479, 15, 31, "Output"] }, Open ]], Cell[64462, 1668, 91, 1, 30, "Text"], Cell[CellGroupData[{ Cell[64578, 1673, 144, 3, 31, "Input"], Cell[64725, 1678, 476, 15, 31, "Output"] }, Open ]], Cell[65216, 1696, 552, 13, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}], Cell[CellGroupData[{ Cell[65793, 1713, 206, 4, 31, "Input"], Cell[66002, 1719, 497, 15, 31, "Output"] }, Open ]], Cell[66514, 1737, 152, 2, 30, "Text"], Cell[CellGroupData[{ Cell[66691, 1743, 166, 4, 31, "Input"], Cell[66860, 1749, 497, 15, 31, "Output"] }, Open ]], Cell[67372, 1767, 269, 5, 30, "Text"], Cell[CellGroupData[{ Cell[67666, 1776, 184, 4, 31, "Input"], Cell[67853, 1782, 479, 15, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[68369, 1802, 178, 4, 31, "Input"], Cell[68550, 1808, 525, 16, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[69112, 1829, 197, 3, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10003.}], Cell[69312, 1834, 541, 13, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}] }, Open ]], Cell[CellGroupData[{ Cell[69890, 1852, 128, 2, 31, "Input"], Cell[70021, 1856, 478, 15, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[70536, 1876, 196, 3, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10003.}], Cell[70735, 1881, 649, 15, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}] }, Open ]], Cell[CellGroupData[{ Cell[71421, 1901, 169, 4, 31, "Input"], Cell[71593, 1907, 287, 9, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[71917, 1921, 196, 3, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10003.}], Cell[72116, 1926, 617, 13, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Matrix Operations"}] }, Open ]], Cell[CellGroupData[{ Cell[72770, 1944, 236, 5, 31, "Input"], Cell[73009, 1951, 479, 15, 31, "Output"] }, Open ]], Cell[73503, 1969, 91, 1, 30, "Text"], Cell[CellGroupData[{ Cell[73619, 1974, 174, 4, 31, "Input"], Cell[73796, 1980, 479, 15, 31, "Output"] }, Open ]], Cell[74290, 1998, 243, 4, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10003.}] }, Open ]], Cell[CellGroupData[{ Cell[74570, 2007, 64, 1, 78, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[74659, 2012, 379, 6, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[75041, 2020, 445, 9, 30, "Text", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[75489, 2031, 558, 14, 72, "Input", CellGroupingRules->{GroupTogetherGrouping, 10004.}] }, Open ]], Cell[76062, 2048, 837, 22, 102, "Output"], Cell[CellGroupData[{ Cell[76924, 2074, 996, 26, 50, "Text", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[77923, 2102, 310, 7, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}] }, Open ]], Cell[78248, 2112, 200, 5, 31, "Output", CellTags->{"Exercises", "Picking Parts"}], Cell[78451, 2119, 345, 8, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[78799, 2129, 762, 25, 102, "Output", CellTags->{"Exercises", "Picking Parts"}], Cell[CellGroupData[{ Cell[79586, 2158, 866, 16, 31, "Text", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[80455, 2176, 333, 8, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}] }, Open ]], Cell[80803, 2187, 343, 10, 31, "Output", CellTags->{"Exercises", "Picking Parts"}], Cell[CellGroupData[{ Cell[81171, 2201, 237, 7, 31, "Input"], Cell[81411, 2210, 667, 18, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[82115, 2233, 485, 11, 31, "Text", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[82603, 2246, 402, 11, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}] }, Open ]], Cell[83020, 2260, 734, 23, 102, "Output", CellTags->{"Exercises", "Picking Parts"}], Cell[83757, 2285, 531, 8, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[84291, 2295, 223, 4, 30, "Text"], Cell[CellGroupData[{ Cell[84539, 2303, 253, 6, 31, "Input"], Cell[84795, 2311, 149, 3, 31, "Output"] }, Open ]], Cell[84959, 2317, 85, 1, 30, "Text"], Cell[CellGroupData[{ Cell[85069, 2322, 192, 4, 31, "Input"], Cell[85264, 2328, 124, 3, 31, "Output"] }, Open ]], Cell[85403, 2334, 177, 4, 30, "Text"], Cell[CellGroupData[{ Cell[85605, 2342, 471, 11, 31, "Input"], Cell[86079, 2355, 724, 22, 102, "Output"] }, Open ]], Cell[86818, 2380, 420, 7, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}], Cell[87241, 2389, 191, 4, 30, "Text"], Cell[CellGroupData[{ Cell[87457, 2397, 262, 7, 31, "Input"], Cell[87722, 2406, 92, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[87851, 2412, 234, 6, 31, "Input"], Cell[88088, 2420, 70, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[88195, 2426, 127, 2, 31, "Input"], Cell[88325, 2430, 814, 22, 102, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[89176, 2457, 223, 4, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10004.}], Cell[89402, 2463, 576, 9, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10004.}, CellTags->{"Exercises", "Picking Parts"}] }, Open ]], Cell[CellGroupData[{ Cell[90015, 2477, 419, 11, 52, "Input"], Cell[90437, 2490, 860, 23, 102, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[91334, 2518, 271, 8, 31, "Input"], Cell[91608, 2528, 117, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[91762, 2535, 130, 2, 31, "Input"], Cell[91895, 2539, 864, 23, 102, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[92796, 2567, 322, 10, 31, "Input"], Cell[93121, 2579, 107, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[93265, 2585, 136, 2, 31, "Input"], Cell[93404, 2589, 851, 22, 102, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[94304, 2617, 64, 1, 78, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[94393, 2622, 385, 5, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10005.}, CellTags->{"Exercises", "Immediate and Delayed"}], Cell[94781, 2629, 479, 11, 31, "Text", CellGroupingRules->{GroupTogetherGrouping, 10005.}, CellTags->{"Exercises", "Immediate and Delayed"}], Cell[95263, 2642, 360, 9, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10005.}, CellTags->{"Exercises", "Immediate and Delayed"}], Cell[95626, 2653, 511, 7, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10005.}, CellTags->{"Exercises", "Immediate and Delayed"}] }, Open ]], Cell[96152, 2663, 434, 6, 30, "Text"], Cell[96589, 2671, 189, 3, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10005.}], Cell[CellGroupData[{ Cell[96803, 2678, 229, 6, 31, "Input"], Cell[97035, 2686, 156, 4, 31, "Output"] }, Open ]], Cell[97206, 2693, 249, 7, 31, "Input"], Cell[CellGroupData[{ Cell[97480, 2704, 118, 2, 31, "Input"], Cell[97601, 2708, 87, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[97725, 2714, 119, 2, 31, "Input"], Cell[97847, 2718, 421, 8, 21, "Message"], Cell[98271, 2728, 119, 3, 31, "Output"] }, Open ]], Cell[98405, 2734, 637, 13, 31, "Text"], Cell[CellGroupData[{ Cell[99067, 2751, 113, 3, 31, "Input"], Cell[99183, 2756, 132, 4, 31, "Output"] }, Open ]], Cell[99330, 2763, 254, 5, 30, "Text"], Cell[CellGroupData[{ Cell[99609, 2772, 172, 4, 31, "Input"], Cell[99784, 2778, 420, 8, 21, "Message"], Cell[100207, 2788, 117, 3, 31, "Output"] }, Open ]], Cell[100339, 2794, 285, 5, 30, "Text"], Cell[100627, 2801, 557, 9, 30, "Text"], Cell[101187, 2812, 538, 15, 72, "Input"], Cell[CellGroupData[{ Cell[101750, 2831, 126, 2, 31, "Input"], Cell[101879, 2835, 70, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[101986, 2841, 167, 4, 31, "Input"], Cell[102156, 2847, 125, 3, 31, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[102330, 2856, 64, 1, 78, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[102419, 2861, 364, 6, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10006.}, CellTags->{"Exercises", "Localizing Variables"}], Cell[102786, 2869, 371, 5, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10006.}, CellTags->{"Exercises", "Localizing Variables"}] }, Open ]], Cell[103172, 2877, 476, 11, 31, "Text"], Cell[103651, 2890, 629, 17, 92, "Input", CellGroupingRules->{GroupTogetherGrouping, 10006.}, CellTags->{"Exercises", "Localizing Variables"}], Cell[104283, 2909, 353, 6, 30, "Text"], Cell[CellGroupData[{ Cell[104661, 2919, 277, 8, 31, "Input"], Cell[104941, 2929, 186, 6, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[105164, 2940, 116, 2, 31, "Input"], Cell[105283, 2944, 131, 4, 46, "Output"] }, Open ]], Cell[105429, 2951, 220, 4, 30, "Text"], Cell[105652, 2957, 604, 17, 92, "Input"], Cell[CellGroupData[{ Cell[106281, 2978, 143, 3, 31, "Input"], Cell[106427, 2983, 131, 4, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[106595, 2992, 145, 3, 31, "Input"], Cell[106743, 2997, 132, 4, 46, "Output"] }, Open ]], Cell[106890, 3004, 354, 6, 30, "Text"], Cell[CellGroupData[{ Cell[107269, 3014, 167, 4, 31, "Input"], Cell[107439, 3020, 134, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[107610, 3028, 217, 6, 31, "Input"], Cell[107830, 3036, 86, 2, 31, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[107965, 3044, 64, 1, 78, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[108032, 3047, 188, 3, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10006.}], Cell[CellGroupData[{ Cell[108245, 3054, 352, 5, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10007.}, CellTags->{"Exercises", "Using Patterns"}], Cell[108600, 3061, 1231, 30, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10007.}, CellTags->{"Exercises", "Using Patterns"}], Cell[109834, 3093, 1226, 34, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10007.}, CellTags->{"Exercises", "Using Patterns"}] }, Open ]], Cell[111075, 3130, 267, 6, 139, "Output", CellTags->{"Exercises", "Using Patterns"}], Cell[CellGroupData[{ Cell[111367, 3140, 1350, 30, 44, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10007.}, CellTags->{"Exercises", "Using Patterns"}], Cell[112720, 3172, 142, 2, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10007.}] }, Open ]], Cell[112877, 3177, 172, 4, 30, "Text"], Cell[CellGroupData[{ Cell[113074, 3185, 1061, 32, 31, "Input"], Cell[114138, 3219, 843, 26, 31, "Output"] }, Open ]], Cell[114996, 3248, 241, 5, 30, "Text"], Cell[CellGroupData[{ Cell[115262, 3257, 259, 7, 31, "Input"], Cell[115524, 3266, 223, 5, 447, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[115796, 3277, 64, 1, 78, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[115885, 3282, 346, 5, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10008.}, CellTags->{"Exercises", "Pattern Matching"}], Cell[116234, 3289, 1645, 46, 34, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10008.}, CellTags->{"Exercises", "Pattern Matching"}], Cell[117882, 3337, 187, 3, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10008.}] }, Open ]], Cell[118084, 3343, 193, 5, 31, "Input"], Cell[118280, 3350, 177, 4, 31, "Input"], Cell[118460, 3356, 317, 9, 31, "Input"], Cell[CellGroupData[{ Cell[118802, 3369, 107, 2, 31, "Input"], Cell[CellGroupData[{ Cell[118934, 3375, 116, 2, 42, "Print", CellTags->"Info3571026565-2048584"], Cell[119053, 3379, 1272, 39, 97, "Print", CellTags->"Info3571026565-2048584"] }, Open ]] }, Open ]], Cell[120352, 3422, 184, 4, 30, "Text"], Cell[120539, 3428, 210, 5, 31, "Input"], Cell[120752, 3435, 212, 6, 31, "Input"], Cell[120967, 3443, 504, 13, 31, "Input"], Cell[CellGroupData[{ Cell[121496, 3460, 111, 2, 31, "Input"], Cell[CellGroupData[{ Cell[121632, 3466, 119, 2, 42, "Print", CellTags->"Info3571029873-2287455"], Cell[121754, 3470, 1414, 43, 97, "Print", CellTags->"Info3571029873-2287455"] }, Open ]] }, Open ]], Cell[123195, 3517, 112, 1, 30, "Text"], Cell[CellGroupData[{ Cell[123332, 3522, 396, 12, 31, "Input"], Cell[123731, 3536, 172, 4, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[123940, 3545, 398, 12, 31, "Input"], Cell[124341, 3559, 171, 4, 36, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[124561, 3569, 64, 1, 78, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[124650, 3574, 333, 5, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[124986, 3581, 677, 12, 30, "Text", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[125666, 3595, 804, 16, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[126473, 3613, 379, 10, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}] }, Open ]], Cell[CellGroupData[{ Cell[126889, 3628, 623, 16, 31, "Input"], Cell[127515, 3646, 296, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[127848, 3657, 248, 4, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10009.}], Cell[128099, 3663, 956, 13, 43, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}], Cell[129058, 3678, 2994, 88, 52, "Input", CellGroupingRules->{GroupTogetherGrouping, 10009.}, CellTags->{"Exercises", "Constructing an Expression"}] }, Open ]], Cell[CellGroupData[{ Cell[132089, 3771, 624, 16, 31, "Input"], Cell[132716, 3789, 307, 6, 31, "Output"] }, Open ]], Cell[133038, 3798, 149, 3, 30, "Text"], Cell[133190, 3803, 272, 5, 30, "Text"], Cell[CellGroupData[{ Cell[133487, 3812, 256, 8, 31, "Input"], Cell[133746, 3822, 453, 9, 31, "Output"] }, Open ]], Cell[134214, 3834, 178, 4, 30, "Text"], Cell[CellGroupData[{ Cell[134417, 3842, 148, 4, 31, "Input"], Cell[134568, 3848, 277, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[134882, 3859, 90, 1, 31, "Input"], Cell[134975, 3862, 170, 4, 31, "Output"] }, Open ]], Cell[135160, 3869, 385, 7, 30, "Text"], Cell[135548, 3878, 189, 3, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10009.}], Cell[135740, 3883, 152, 2, 30, "Text"], Cell[135895, 3887, 348, 6, 30, "Text"], Cell[CellGroupData[{ Cell[136268, 3897, 107, 2, 31, "Input"], Cell[136378, 3901, 741, 12, 52, "Output"] }, Open ]], Cell[137134, 3916, 124, 1, 30, "Text"], Cell[CellGroupData[{ Cell[137283, 3921, 259, 6, 31, "Input"], Cell[137545, 3929, 232, 6, 31, "Output"] }, Open ]], Cell[137792, 3938, 445, 7, 30, "Text"], Cell[CellGroupData[{ Cell[138262, 3949, 96, 2, 31, "Input"], Cell[138361, 3953, 94, 2, 31, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[138504, 3961, 64, 1, 78, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[138571, 3964, 122, 2, 23, "NonPrintButton"], Cell[CellGroupData[{ Cell[138718, 3970, 329, 5, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}], Cell[139050, 3977, 639, 11, 30, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}], Cell[139692, 3990, 446, 12, 52, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}], Cell[140141, 4004, 347, 9, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}] }, Open ]], Cell[140503, 4016, 268, 6, 31, "Output", CellTags->{"Exercises", "Delayed Rules"}], Cell[CellGroupData[{ Cell[140796, 4026, 535, 9, 30, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}], Cell[141334, 4037, 1239, 25, 44, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->{"Exercises", "Delayed Rules"}] }, Open ]], Cell[CellGroupData[{ Cell[142610, 4067, 553, 14, 31, "Input"], Cell[143166, 4083, 92, 1, 31, "Output"] }, Open ]], Cell[143273, 4087, 201, 3, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10000.}] }, Open ]], Cell[CellGroupData[{ Cell[143511, 4095, 64, 1, 78, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[143600, 4100, 372, 5, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[143975, 4107, 988, 19, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[144966, 4128, 222, 5, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}], Cell[145191, 4135, 751, 22, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}] }, Open ]], Cell[145957, 4160, 416, 13, 31, "Output", CellTags->{"Exercises", "Formatting Numbers"}], Cell[146376, 4175, 344, 6, 30, "Text"], Cell[CellGroupData[{ Cell[146745, 4185, 178, 4, 31, "Input"], Cell[146926, 4191, 320, 10, 31, "Output"] }, Open ]], Cell[147261, 4204, 259, 5, 30, "Text"], Cell[CellGroupData[{ Cell[147545, 4213, 456, 14, 31, "Input"], Cell[148004, 4229, 2282, 80, 31, "Output"] }, Open ]], Cell[150301, 4312, 180, 4, 30, "Text"], Cell[150484, 4318, 697, 20, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[151184, 4340, 2310, 82, 177, "Output", CellTags->{"Exercises", "Formatting Numbers"}], Cell[CellGroupData[{ Cell[153519, 4426, 194, 5, 31, "Input"], Cell[153716, 4433, 271, 9, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[154024, 4447, 387, 9, 31, "Input"], Cell[154414, 4458, 2172, 42, 239, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[156623, 4505, 662, 9, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[157288, 4516, 3689, 140, 177, "Output", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->{"Exercises", "Formatting Numbers"}], Cell[160980, 4658, 186, 3, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10001.}] }, Open ]], Cell[CellGroupData[{ Cell[161203, 4666, 701, 21, 31, "Input"], Cell[161907, 4689, 3562, 136, 177, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[165518, 4831, 64, 1, 78, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[165607, 4836, 319, 5, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[165929, 4843, 498, 8, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[166430, 4853, 609, 18, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[167042, 4873, 1047, 20, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[168092, 4895, 884, 24, 132, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}] }, Open ]], Cell[168991, 4922, 447, 14, 31, "Output", CellTags->{"Exercises", "Programming Style"}], Cell[CellGroupData[{ Cell[169463, 4940, 425, 6, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[169891, 4948, 275, 6, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}] }, Open ]], Cell[170181, 4957, 446, 14, 31, "Output", CellTags->{"Exercises", "Programming Style"}], Cell[CellGroupData[{ Cell[170652, 4975, 442, 7, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[171097, 4984, 367, 10, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}] }, Open ]], Cell[171479, 4997, 445, 14, 31, "Output", CellTags->{"Exercises", "Programming Style"}], Cell[171927, 5013, 611, 14, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}], Cell[CellGroupData[{ Cell[172563, 5031, 761, 21, 132, "Input"], Cell[173327, 5054, 147, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[173511, 5062, 148, 3, 31, "Input"], Cell[173662, 5067, 149, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[173848, 5075, 198, 5, 31, "Input"], Cell[174049, 5082, 171, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[174257, 5090, 185, 3, 23, "NonPrintButton", CellGroupingRules->{GroupTogetherGrouping, 10002.}], Cell[174445, 5095, 470, 7, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->{"Exercises", "Programming Style"}] }, Open ]], Cell[CellGroupData[{ Cell[174952, 5107, 755, 21, 132, "Input"], Cell[175710, 5130, 272, 8, 31, "Output"] }, Open ]], Cell[175997, 5141, 83, 1, 30, "Text"], Cell[CellGroupData[{ Cell[176105, 5146, 889, 25, 132, "Input"], Cell[176997, 5173, 275, 8, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[177309, 5186, 149, 3, 31, "Input"], Cell[177461, 5191, 273, 8, 31, "Output"] }, Open ]], Cell[177749, 5202, 109, 1, 30, "Text"], Cell[177861, 5205, 223, 6, 31, "Input"], Cell[CellGroupData[{ Cell[178109, 5215, 152, 3, 31, "Input"], Cell[178264, 5220, 275, 8, 31, "Output"] }, Open ]], Cell[178554, 5231, 200, 4, 30, "Text"], Cell[CellGroupData[{ Cell[178779, 5239, 309, 8, 31, "Input"], Cell[179091, 5249, 369, 9, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[179497, 5263, 218, 6, 31, "Input"], Cell[179718, 5271, 275, 8, 31, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[180042, 5285, 64, 1, 78, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[180131, 5290, 364, 5, 31, "ExerciseHeading", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[180498, 5297, 792, 11, 24, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[181293, 5310, 1430, 38, 192, "Input", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[182726, 5350, 844, 17, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[183573, 5369, 389, 12, 87, "Input", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}] }, Open ]], Cell[183977, 5384, 283, 8, 31, "Output", CellTags->{"Exercises", "Debugging a Program"}], Cell[184263, 5394, 665, 14, 25, "Exercise", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[184931, 5410, 351, 6, 30, "Text"], Cell[185285, 5418, 124, 2, 31, "Input"], Cell[185412, 5422, 1425, 38, 192, "Input", CellGroupingRules->{GroupTogetherGrouping, 10003.}, CellTags->{"Exercises", "Debugging a Program"}], Cell[CellGroupData[{ Cell[186862, 5464, 200, 8, 87, "Input"], Cell[187065, 5474, 207, 6, 31, "Output"] }, Open ]], Cell[187287, 5483, 686, 11, 49, "Text"], Cell[187976, 5496, 123, 2, 31, "Input"], Cell[188102, 5500, 1167, 32, 192, "Input"], Cell[CellGroupData[{ Cell[189294, 5536, 200, 8, 87, "Input"], Cell[189497, 5546, 126, 3, 31, "Output"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)