(* 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[ 104427, 2542] NotebookOptionsPosition[ 101294, 2437] NotebookOutlinePosition[ 101660, 2453] CellTagsIndexPosition[ 101617, 2450] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Riemann\[URing]v integr\[AAcute]l", "Title", CellChangeTimes->{{3.595081057859907*^9, 3.595081069043797*^9}}], Cell["\<\ Tom\[AAcute]\[SHacek] Kalvoda, KAM FIT \[CapitalCHacek]VUT, 2013\ \>", "Subtitle", CellChangeTimes->{{3.595081087484576*^9, 3.595081100884157*^9}, { 3.595081142508316*^9, 3.5950811476762753`*^9}}], Cell[TextData[{ "V tomto notebooku si uk\[AAcute]\[ZHacek]eme na p\[RHacek]\[IAcute]kladu \ funkce ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"f", "(", "x", ")"}], "=", RowBox[{"2", "+", RowBox[{ FractionBox["1", "5"], SuperscriptBox["x", "2"]}], "-", "x"}]}], TraditionalForm]], FormatType->"TraditionalForm"], " na intervalu ", Cell[BoxData[ FormBox[ RowBox[{"\[LeftAngleBracket]", RowBox[{"0", ",", "6"}], "\[RightAngleBracket]"}], TraditionalForm]], FormatType->"TraditionalForm"], ". Zv\[IAcute]dav\[YAcute] \[CHacek]ten\[AAcute]\[RHacek] \ m\[URing]\[ZHacek]e snadno experimentovat s jin\[YAcute]mi volbami." }], "Text", CellChangeTimes->{{3.5950815684639177`*^9, 3.595081580349468*^9}, { 3.595085664799582*^9, 3.595085696830702*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], "=", RowBox[{"2", "+", RowBox[{ FractionBox["1", "5"], SuperscriptBox["x", "2"]}], "-", "x"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", "6"}], ";"}]}], "Input", CellChangeTimes->{{3.5950815871472178`*^9, 3.595081618010655*^9}, { 3.595082047991118*^9, 3.59508204941492*^9}, {3.595082343777707*^9, 3.5950823547374363`*^9}}], Cell[TextData[{ "Graf t\[EAcute]to funkce je uveden na n\[AAcute]sleduj\[IAcute]c\[IAcute]m \ obr\[AAcute]zku. Riemann\[URing]v (ur\[CHacek]it\[YAcute]) integr\[AAcute]l \ funkce ", Cell[BoxData[ FormBox["f", TraditionalForm]]], " nad intervalem ", Cell[BoxData[ FormBox[ RowBox[{"\[LeftAngleBracket]", RowBox[{"a", ",", "b"}], "\[RightAngleBracket]"}], TraditionalForm]]], " pak p\[RHacek]edstavuje obsah plochy pod grafem funkce ", Cell[BoxData[ FormBox["f", TraditionalForm]]], "." }], "Text", CellChangeTimes->{{3.5950816219201927`*^9, 3.5950816682565813`*^9}, { 3.595081920090382*^9, 3.595082016251132*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "a", ",", "b"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Thick", ",", "Blue"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", ".5"}], ",", "3.5"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Filling", "\[Rule]", "Axis"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14", ",", "Italic"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14", ",", "Italic"}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.5950820180453787`*^9, 3.595082124808298*^9}, { 3.595082195578685*^9, 3.595082306226091*^9}, {3.595082361196858*^9, 3.595082365491666*^9}}], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJw1WHk41N/3n5n3rFrsRkhKhkikTZJzQtHyiRZEJXsqoZIQJVEppBQt2imV j0poUVKfshSSKBWSpPcMIXu2+d2e5/edf+Y5z73Pveec+3q9zmtmskfAam8W g8GQZzIYf78HlvtfsA+ItHjvOvmrVCqF53Fx+f+ICiD6naSzX28UONydPPHW t/DqqPOaEathWLrfPSbX8SPUzHRiW6UMwoNQ7/r0dw2wwz0sPU7wBz65bDPa uec7XLat2BWwqx/kbeJ9nuNPMBv8dm6GXB/IVXtnz1vfCkZmVd3KN3tAW8vv ZoxHB+h/L5MWeHSDaf32N4tO/gbpDWO9Z0u74Plg5Irq890QNUnVJsnkN/g+ KykpiOoFX7cbi9oXd8JZzxtqym790PA6/Es13Q6G6771jXr/gZEDel+i1/6C hm67Clw6BCG3YHuUTBt0fZ1grOIwAp0/7xrb1Uog8XbYZicnKXg/THb/+FUM Iln+PyHnGej1omfnLZEY8gIjbydcYuKD4y6YmkhDtU4Sb9VJFmoeKAs0n03D 1IPv9TaepbBxZ87WiWwa5tt/nX3pPBsL8/55t1tAQ31gjEV8HAe7QjvWbF9I Q/Z853GvTnCRq2uqxrpJg4pj8aeMGB7aDlyRnlwoBmhinHgRxMcg73Ynh2Ex nFXxHScKEaBSutml0hEJRF3ccnjOVhlsvLRdYffENrhQcaYoIXAMRnolsdqP /III/6TOiTvH4nBG9oDClA5odddTdfYYh+dOzSuftbkTjo1I2A0+49HM3Umt w/c3PG6z6RjvIost3vWFO3d0wQcd0yazqXJY6Xp8h+GxbvCd5mmUlC6HbmO+ BklreuC54/q9izTlUVSxdsGCKX0wa53kptIVefSfmPZFNa0f/A4u+bhQXQHN w7qj4qf+gSM+/EFmkgLmpMQWq+cMwtOJ7lKJkiIGcYU5tfuG4dHoIUo/QRG9 9OuKii1HoeK+lSReXgn33VuZbqbNwFdaPkVxJ5XQv/6leYQhE6MfOFz5JqOM s7uy3p+eycINU+pc18cr47ryWaOe6ygcyjNSN+Cp4GfjSW8u7WFjOCUuO71P BfmeMfeDUzmoMnW+uw5DiK7CX8nFLVzc4+/YIxMqRLzHuVgj4uM9p5J+qVSI A+tTos6eFWDA5eBSO1EWbFqOuWnyUqDFs/cb2A1DwbzQstytrfB88es3cx1H Ifn9Nr+LDhLYk+3BOEnydjWqXn0tQgztYB1+cCITcwVv5/JraFj8JvZThyoL o8fHjrm9gYbwtbNUPypT6Dj1itI2ZRqytnyasU+NjalXBoyWMGg45pY9X0WJ g16WV72KJtJg69ChM02Wi0eDlGrj/WhotknszhvDw9rDB/bt/UWDvoZX7pwR HjbmUV2uKWLwC59tF9THR7n6hm0RwRJI+Oz72vC3AGcv6TzYcrgVlDxlg2Oe CNFkUZBZYAMf3xQv+7FGdBFa3PdHaByRwnf/F6K5ZUNQkGm+oeNhK3xW6Iq4 XjMCF1zdUpxPSwD4WjkL30rBTc65x+FfMRzVvd4cUcfAeQUGcSbDNIxOjLGE OiamGd9ZPWs3DXoLv8sqVbNw9Yj/Cm1tGrYEf7j96xOFgdurfyeSej1qbR98 /shGpZ8hdrMUaFDwNDP5Us5BSy1LzTVraHhTGMQoqOBieO9z/ptSGrQenbYJ eM7DU4/cbyluEYPjHbXA87l8nDvvT/3LeRI4FUK33swRYOK+DXVbFrVCEW0y p+ScEJs2F6nMjOJjhVuuKGYTA92U+RHP7MWwel2TYqwrExvTGnYa3KMhLiQh 8LIDC9dNo7dSNjRUbjuodc6JQuM+j1LFMTT0bKi7N349G91kJ+sspGjIodWf rLLnYFZJqZzRdBoibNIm7LHnYlmwz4GJsTSMVNxuuWPLQ42G4L2KSmLwqG/N s2wQotlCWUHSAgFGqXRrbBAlwHFqan7jf6SvM2PD8o8OQbRZcs4/31rB5w/H yfX0CERoL1TZnicB2rk8flmSFKLeRL4zLxLDOvWPqkP5DFyX51HOlheDSzGr v+UpE4+b5uQci6Jh38z8Yyb3WdhQOua5lQENRcNrt6Y/orCH9uxvZ9KwUkmp 78kjNh6NPVgfOo6GAfEm09n/cnDDR73zvaR+i5GWQ4vucvGFQ/JlwSMazh/O kou7xkP/E97MwdVieF0SzzA6zcfKXQN/rk2QQLJNxvDmZAHKrY0wtpjUChdv vzwljhWiqS//h89aPl4VxCUdW8TA/YI9CR99xKC1QtGWa8FEh39uTrn7ggZ6 8lgd23kstO/ZLNq7igaR2/rUh3MplAgDV72XpWHVd5fAIjM2rliVucuZ5H95 6s/BWSYc1MMPvMtTCZ4qSidVGnGxbX/5+G1hNASO0dw+S5+H+8KU47YyxLDg coSKVznBg5rX9B9jBXg1iJeQMsjEvj3L1ZJ8aaiyHXOqt4eFYep9Cl/UaRjb 6fRrziCFqxlcF4rgNTg1ImSgl40b3hrqXhXSYFinND2qnYMZaxfUx2yiIWzP 7bS9IRTOeBYaPp1HQ/KHjd2Oe9nY8MXR+jeHhpJM+4gAfw52fgnfv4vMk6Nq Lk6TO4RonbG7MnSrADvvW8X5ifbB6FmnzuZvUrh00m/q6JYhmN/XaF3e2wqZ bcetzHaPwEsdtr11sQSesNIG7XdLIX/I8Fp3FZknpzuyH91m4Dfny7OeqouB n7ro3eMsJpqbrekNJ3i8aXCj9PlVFuplHJZPN6KhF04tPXCTQo2xa7XbWDRY Z4cqZ91iY0XWXX13gvet/+7MbyQ6amogV5lsSUOIutYy6goXrRMNr7TfpaG2 3Wz3uVM8HM1ONTC2FUO0Q3HJQDQfGck5bk0yElA14nNsDgtQa/sR9vbxrSAT H28ddkCI168ZTU1ZyMexrv2lCSZEPz7YDIp2ioFXZND0kug+v9S48Pkb0r++ ZVJ1PaKfTi8Vhx3J+7vYfLYRUfhaK80gmuhFpOic3VV9NmY4qb3MJe+T/GKF mo42B9vtomM1JtNQc6Luavgkwsfhnjfuu2i4Nc3JuFeNh2Pfy5d+6aMh48CS op6XRP9fKiVf6+Wj/dIlvttameijv3RmmT/hr2X/u+hmFsrJrtTzmkSD2ayU MnkJhSrKc1SNyX1+Zt9TxC1sbNxyfny1EsHjJd07Mxo4yH1q+WGVMw3pO1Ka ZHwpdKmPVecQf/BqwoUqk21srHpP6UYQ/1CwLC/VbRMHB9y2nTczpqFvaAov u0WIGYJtdtLVAjzzSPlYaSmFPoLmFh2C93XBWR/elLBxYEmR+Bnhw5B3gOs0 GwrzBJxD6wh/p1xWPyFZxsYjCVkWM8l71meqjneRYeN0I5sHMiRfu4hnPm1H KLx73qQtluDRN0lTae8xNkbpqkWcJXjVnH/iRmK/EPkTjOJYUQIsb2/eGi/y h9S82MSOTilYWLmGXnIeApt340STGW1g11I9X897BBoqIpb/91YCIifZmWt9 iD7Rr5s3fRKDSdWQ9Mw1Bkbn6poaThbDJq57wdQbTIz8HPuJG0/q17vgG3uO hSt77aXimUR/v82aH3CFQpl5yVb7iL5aHJieLrrGxsC576q8ZYj/kh0ezjtF 8Phey3cIaDh964mB11kuagSmJXRl0rBnyoEbk+N5OP2EN6POUgxN6s2Z9eF8 VChZtOw0JYHaKaaxefsFaJ4+9qwytxUKR3akWkYIUb/y5dnZJny05Bt6yxkw 0PxE35Gve8QwyDI1StNhYqHcRjfXShra3ba2xWix8GiGc0U5eV8fp4WhspoU mh9c2tCpSIOwZD4kTmHjjKDzwXtIvxNPSG9eUOdg1Yofb7YR/CR0ezevFnLR /pGO3u8AGoofdss7KvKwbVF+tU4XDa5d+ppPC4VYkdGuxZfw8cZ9b4ea70yU 0b7DGNxB5iP+ClxRx8LPPjED5gTfVdVzn0i/UVj5MJnpQu7bLEjW9fjKxqnT 66h9JB9n5r1O9gcO2gZ4Vi4n/HnsH3+gahOF/ssu3OWQfm7IN3+h5clGvS1p Vz+Qfj+asGX6JycOhp9p0zeaQUOmH29TWJMQpy/96WVjI0Cj9blhD55T+Lgz t/UgweOaxe4+1s/Z2NYabJoyngY5T++RTgsKw3Z8m3acxI8X5UfWWrIxZPOz mgKyP2jlwxEbFtHv46YxDJKvV1guJyeSQtXxETvXcmmQzi6gthxko3nosvoC Elff3C1d1y1Ej0PDPubBAnS92OOcdI/wr+uXYDPBNx09uCnHhI3cFbtVmeT8 ayf667S7KMSoO3MU//Y/6IqVVSCF7Vl6Mgp8GmaEjDRZ72Kjlx1kGxP8M1SD z395R+GASTtd/dd/je69Mrya8KEoNOsuOX/JmFBNPwU2dn6d2TmZrPuWZNqV DAnRwm0clsUL8JCXrt5bkStYf+Kz9gxIIUH9o3bgqiFQ12zRsOe0gZZn/+xJ G0fA17DxMq9aAuuZi8tqXKUg1/N6wbk6MWR2Hrh+5BIDy2JezZBoEz+V35nj fI2JEV0XNSoTaFiqq2q6PZmFHrvOHJafRfifTc30uUBhbdXSuWXkvZ7QnF8e l0i+/Vab24i+MAoLJ15N5GChT+L9bAvCl66jqadOc/Hu3VuNA7dIPeZp6B3L w9Q1uWpzUQxy+7s0K0P4xO+cyuyWiuGhhv3y9r0CNPZrN2xntoLGXK8S0V4h il7L3oqezscN9cUmq3QZKDm4n1sYJoagyQU1SZOZqORUnnavigY1lcGmxxos pFUvDputp+G3w0Pb7gnEb4yR2mYSfWw6I5h3WJONJUf8TTaSfo7/U/v7k5CD h2xD/k3RpGFbmj7HQpGLKk7pNQuJ/joyXkQdkuUh4/XnOW87CD71Jy67UiBE /9Ev+Qua+Vjl27tcppGJZj/Xzz9N9P2ChS8a17LQUkLtnDGFhovp3Jy+egpZ 8p9rd5H7mgMDAi5+YeMhma8WH8n8mJu9W77zHZkXvC9l5WuJX9/OX5W3nuC3 NnbsMcIPvbixj4WbCD/MeFZHSL/nHrAMUl7Lwch7svcNDWngpf856tooxKtl Oq/8Fglw0CBmZ9ZTwo+t9yofEDxWZpplRT5l4/X8mVo8wofz7o1l1WYU1oWb xBsR/T6kcCzkrQUbrV0+HzxK9uOkI70WoxRmv/pv5V9+dIQY16SEU1ihySn+ y4fXnIShTfuJHur1BjiS2Khps8HC30IsvPz9pkugAPUDXq46+i+Fw+Gvem8Q /OY4vHa6PYOND+38yj+R8/w9iqvV2ilMKFXhapFYbZeGoq4fhStHPZpiCT8G bcs/LwhgY6Rs0fIaMp/K6MVJVeUUKqSOKx4i+x3fLj/bvZKNvhkPHQLI+Qp1 tiqe40k+nG/ZSmT9P8alvZl/hKhQZNvTQub+iv4tNmdFxE947h8+Rda57M0v +S0UfvCS8bP6y/+jP6IKX1HYFbbDdg2pPyOC5qzislFzo9fIX79VW6j7Y3of 8VMgvS4g8Wyb69eaa4heVMSsuEfiMLObot0qZP4XzA8wIfHYxMfazSNCPPQz PCA7SYD/+7+D8f+f//3e+1/8fwFIpnE= "], {{{}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[PolygonBox[CompressedData[" 1:eJwl0mWUEGUAhtHdJRaklhLp7lQQkC7p7k6lGwSku6W7u7sblEYFDFKURkFp CSXvnP1xzzPfnDN/5v3StuxSs3NYSEhIKPFDIxsRGvn8ied4ek7Ddan+wFv6 MpcjPKcB3ZjCXu5Tkuq0ZQxbuMXH5CE3uchJDrKTjaxkITOZyEgG0pOOtKQh NalISQpKUI02jGYzN0lOcarSmlFs4gbJKEYVvmQkG7lOUurTlcns4R+KUpkv GMEGrvER9ejCJHbzN0XoxUwO8YRKtGI467lKEr5mDod5Rl06M5Fd3KMwXzGD gzymIvM5xktaMox1/MGHLOF73tCHn4hi19n6Hf9Sh1+I5v1CPcH/dOI0wQWZ IDF0p96lEHGdf9Xoukhj6Ul9RU9iO58JPtfpGlMP6CMqEMf5Z42q8/QDPaov aMGPvGMoa/mdxCzmFK/pzVnCfDtLv+UptVnAcf6jI9+wg7/4jB5MYz8PKU9z hrCGKySiFh0Yz3b+pCDdmco+HlCOZgxmNb+RkJq0ZxzbuEMBytKUQaziMgmo QTvGspXb5OdzmjCQlVwiPp9ShsYMYAUXiSAfpWlEf5ZzgXjBfsEGwU7BdsH/ DzYKdiY82DW4E8E+RAn+MXkpRUP6sYzzvAfXUIHz "]]]}, {}, {}}, {{}, {}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData[" 1:eJwl1GW0FWUAhtFz6UZSSrpTpFGkpJTuRi4i3aUo0ikgadDd3R3S0t3dnQIK iHvgxz7P+matmR/zzjppwttVbRsWCoXi+gl6ghn8QF1KkIcIRCQSkYlCVKIR nRjEJBaxiRM8k5PM5EfqUZK8fMApZtGD+nxBPuJxmtn8RANKkZ/rLGcILahC fM4wh540pDQFuMEKfqYlVUnAWebSi0aU4QEbGE1HCnKTlQylFdVIyDnm0Zuv KctDNjKGThTiFqsYRmv+YReTqM5TtvJ78I4NcEi78Zq/mEoizjOfPrxlP415 wY7g/bt3QrCPHgk20HL6iE3BRs5jNUwPBjtpZ33FnmA75ynBrnos2E8L621W Bzs7Dw+F3n0kB6QN/7KbycE34fpRrcEz/uQPIrp+WL/jDXuZRmIusIC+hPOS nUzkSx6zmV/pwqfcYQ2/0Jaa/M02xvE9H3KRhfSjCV/xhC38Rlc+4y5rGUE7 apGESyyiP99QniLcYx0jaU9tknKZxQygKRX4nGRcYQkD+ZaKFCU5V1nKIJpR iWKk4CNSkorUpCEt6UhPBjKSicxkISvZyE4OcpKLj8nNNZYxmOZUpjj3Wc8o OlCH52xnPN35j31MJ6pdj4fe/298ov8DQqmBzA== "]]}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox[ StyleBox["\"x\"", 14, Italic, StripOnInput -> False], TraditionalForm], FormBox[ StyleBox["\"y\"", 14, Italic, StripOnInput -> False], TraditionalForm]}, AxesOrigin->{0, 0}, Method->{"AxesInFront" -> True}, PlotRange->{{0, 6}, {-0.5, 3.5}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}]], "Output", CellChangeTimes->{{3.595082042263102*^9, 3.595082099842927*^9}, { 3.595082199387413*^9, 3.595082249753648*^9}, {3.5950822993539124`*^9, 3.5950823065091677`*^9}, {3.595082345460916*^9, 3.59508236579764*^9}, 3.595306317642014*^9, 3.5953097867835083`*^9}] }, Open ]], Cell[TextData[{ "Pozor, plocha je ch\[AAcute]p\[AAcute]na jako orientovan\[AAcute]. Tedy nad \ osou ", Cell[BoxData[ FormBox["x", TraditionalForm]]], " s kladn\[YAcute]m znam\[IAcute]nkem a pod osou ", Cell[BoxData[ FormBox["x", TraditionalForm]]], " se z\[AAcute]porn\[YAcute]m znam\[EAcute]nkem. Nap\[RHacek]\[IAcute]klad \ integr\[AAcute]l z funkce ", Cell[BoxData[ FormBox["sin", TraditionalForm]]], " na intervalu ", Cell[BoxData[ FormBox[ RowBox[{"\[LeftAngleBracket]", RowBox[{ RowBox[{ RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", RowBox[{"\[Pi]", "/", "2"}]}], "\[RightAngleBracket]"}], TraditionalForm]]], " je nulov\[YAcute]. Pod\[IAcute]vejte se na obr\[AAcute]zek a \ v\[YAcute]sledek integrace:" }], "Text", CellChangeTimes->{{3.595082380949832*^9, 3.595082450678094*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", RowBox[{"\[Pi]", "/", "2"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Thick", ",", "Blue"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "1.2"}], ",", "1.2"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Filling", "\[Rule]", "Axis"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14", ",", "Italic"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14", ",", "Italic"}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", RowBox[{"\[Pi]", "/", "2"}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.595082452293388*^9, 3.595082528544154*^9}, { 3.595084219573121*^9, 3.595084223393165*^9}, 3.595306338558305*^9}], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJxdl3k0Vt/3xw0lRWUqJfEJDSLpQ5NkE2Xoo0GTVIYmNCmJigYKJUNCUUKU oaJJKLRLpKQMSdJkyJDhnsfjeZ57HqTf/az1+f7zu2vddddZ55y117nv137v faZt93LYJSUhIcHj3n+/drbjLAenibH3z78PwbPLs5J2T6c4KeFu334ewUN1 A0oxyizWvH/45mARwYptap0/lUWYx6rM09xL8Pez2/dNJgtx742gfwaHGGx9 2Be9drQAI5Qe2/J2MLjghkxdhFw/nv1eVK6f14umWrUGF2gfps8tUiENPaju P+5EeBcPH/359MfxRzdWJ85z3P2N4EKZTSNjGruwyuNRx/zCXjw61nXHsdRf mK5bs2hNcTcq6HQuermzEw2vVh/0fvML/VYVtldP6MBphksbJ97pwG0bUl9E Rrdh19PlI2UetOHLy2XF+xR/4pS9hW5+4a2o7TJJu9+pBYcrlG7xDjXjzBO5 6sNXmvAwyK/3ZL8jw5xReFj2DQuM3j0XPm7EY6G2Znp9n/Ge4qv7qsX1eC00 e+4uy3o8bJIgbeZVi591mYMWBrVoEuxi07mnEi32nsmwm1uJxGMo6tS5UpQ0 LE0aPFSKZ0qvmQDNR4NMfb4Nycf6QtPS29IpuMHYMv2PVAq66K/4vT46CUxc nP31LiZBs43jhgNJBZDn/DmxILYABPfg3qQlpfDHasz+qOml0HhL40BfdSUU pQ8/eHOpEvwPFNpsSK6FNn6As+PWWnBMmbspMaIeTLuvtDROrIfdoW+kflQ3 Qnb9pS8loxvh5Vk9vfC33+Gj3GBXfdI3cFZsK1HZ3AwMacvND2qCfpNys2bf VmjJaltrbtsC97zGircfbAPzZZ2zur+3wohT7YHbYzvAP0X1zsvTbRCYoG2r GvsLZhq4NBTz2mHliFO6pee74cOKqg8rLDshx3Z/A5PVC8laXQs14n/BoqtY 9v4WASW3hgcGRV2Qs73WfGI7D77qlaYLG7th91/r9SwEfXD75NaLCz/2wMPW UY9X8PhQmnJqCt7oBTuVkTMuSApA2SlLfpwLA752xgtuSwhB+Y/cnDgeA28y +Q5lA0JounXJ1suNgIfPwEbNMSyodLhJ/nlC4Npy44F1oyiE8//OOt1D4L98 gP/yAdzLv/Dup1G0eQgwZYjggHxtQ0Aii6Pvu4X9biSokRD2uzBGhKlSkZsL rhDcGbm9MuqyEO8pfedVLCTIW7Rq2opoAT46Fri4IpdB+dlDD73C+jG1ua4W FRgc9g/p7TzaDwbhkiOyRzDgek89Ry1QAGd0BMtS7jCQciymNP+EEPjWyzY9 1ScQHyla7x0kgg2S5uozLhGQ2nYl88k5FnwjLEN0PhHwtr6RlBFLwTY3sUJz kICjrHByfQvFfZkv3spw+Q1ZxYV9TSzOc2Kffm4n+Dpv2bmMDyLkhw+tULxD UNXXzMnkoxBnDWjY73IgKPIf8jD/KEBRhbKR+DODRxnf1KY3/bin9d7D5UsY bJhrXXPFuB8qs3axy+t64WOzQpeDhQDyxEfu2oYwINey47chCMEiUJuJHU/g /jXBh2tmIkil8TfbjhN43Pn61D5bFmaG7z8f9oZAyKs9lb/tKfwq6GkeJSTg G1JSfmEnxRU2wtClLMG8g+3CUY4stu+TWdxYSdDHv9a7ep0Iu9MMFrgHEbyf HmLWtkmINpfcc9dOIdgdMMu75bkAXkV+PDm+igFjxZcXzIqE8FZkf0fahsDp QPrR5pUInJ9EjJubQWBVza4amdcsbK8e1qpsIeD8+tPBtV8oeHl59pQPE6jJ DMzxkOL88l30wxfc/9zuZzRHX5qiqt3J5p5ugollSfbX+0VoZf/cWiKX099T /0aUQIipY4J3DzsTPH79Q/hSVoBBy0xGPO9mMGeNsVrCr36k+vyo+tUMlp2f aeml1A+LTB7YrSjsBYXBMbJe0wQQrei3qdObAfOJlQm9mkIw7MxaskaCgGnq 4Zj76iLIcK5TPXSAQGSOW3eZLgsTild3SpUQUAhZ3Zo5m4K7l80MpT4CzIzV WzXOUvTI77nZJSbYYLbVfdlxFr07E/KM6wjahhksenVYhBnbJzxdFUEw7KpP sImfEJ/3yapU6BKccVnr4nCKABhzTV5sMQN7luvNGkwUwnKflKSrJgTkz/nF bbspAoljaUl9iQRmXRk2dc1kYdCq5O6CbwQ6Q4tCh/IppPzs+2zxm0CTu0ew 5UuKxuvcV1X9Jqj+xdou/xmL81esjTNuJvhVy1BF2ZOF88usyuOqCQzJhDx2 OMTxcaX6tRsl8LttvpHYiuKaqWV8ZQHHg9y7XdkdLOid0fzws4NAnWz/5vRh Ct+Wxg084PJ5nLiczlMS43B21D4ep99hZ2aXrQpFRcmn2Zzpocy7fwzjpVk8 4fDUyaaA4LcdaVYmI0TYUHa1YeougqYGqGEqK8Rp2rs0vAQMvpZU3nhE3I9/ xZtt5G9msChPdchJsh+wwzAxJqcXskfJqp5QFIDO4Y6VYzwZ2GIo0blSQQgz tXUDAikDQdON+p/KiSCgyO6jpAcBf0WDG/zJLPi7ZforPCNQ3/biwPAkCnkL E75/ZQjM9otL74jh6nPUcJDSIMFf01VTXC6wOOJu/qY7nwjmRn9Ve3FGhJGD 0rYxlwj6xXbPagsR4r7RRr6fDQm+TNVMlo8WgKEz05CVy0Cwi4vv5gghZPlJ uTwxIuAgt1DoHiOC+pTyxOtXCEwYqOCHx7OQfUbNYGkjgewOA2WHdAqfPFat tRoioF6QUyX/gaLa+lvJx4cJGpRInamrYlEr6PjuyT85fwkeegObWXBbHJKn +Y7Ai93UPNOFgt/g2LWvRQRMFgScKFlPMSb59soCIUG3AwlTGj+xMNJg6gSP NgIJHrvaBnsoGFA3nzWcfrGOS3Ym8yn+89Wo9jCn38oZ3zatM6WwMCDqxF/9 BB7Wyypt8KHoOHd2eholqD3Lbij9DQUfFYcdk7j8vamqteT4I4oz9+Y0jOB4 W5ihPPt3EAX+dgvrOjGB8Vmn369REMPA1vCTPVw8/Wnd1yeqiXHFvClThrh4 QzUrpRrUKdptanPdQggWVafdiJNjMf6LOMT1KcG6JufL4+VFqK7uYaPlwfmB KNe9UEGI48ouxjyhDG50kvLZISnAX078MUJnBhe+i2qopnw46jY/bk5mLwxF hGicHS0APbO/+ON3MuCxVG28v6wQjr6aIBMlYGBGh5K2ubQIbKw1adFOAvxl KkOySiyEKQwkyxURKJjgb6yrQMF5zMEbj3oJ2CQXrKy8RtFXdk/ZVY4X7wQf UyaGxbzuSX8cPxP0jDMKf3ZBhLZ7PF7oxhE8oJhx/GmkEC8mtfI2GBNU0k1K Vz4vgDkhS77Nus/ApX3Hrp8LFkL80aKYpYYEhJUTp/eGiUCtn13ZHksgXO+B fdpFFvoMpmNuA4GLqp0NAdcpTNZN7c3j6pFJU41PXyPFYZ7r1VKOl7z5rpo7 GlgMrg3862QbQbP8Fp2Na1m4/dleevNbTq/LD2Q+bKRgOM2G9nD1wNE5WStj K8Wtj/zfnRRx/pV8ypdXxcJqV08pjZ8EAuI17sz4SeGQUpyCIqffw9POo88O ULStnp2RxOlnsPHy1JNGFJz+1jLU4BOoHtbLXxxAUcspcvRKzg9lHKVLap5T +Pzl2vADzp9KYHmTcyHF6JRxdD/Hi9qnSjLzOIVFUWs6NDle+A2LY/1HiaHn 5zf1Oi4er/rmOvsxYmyxdxV85eJV5B+xn3mPgsVWX2E5ly/DURdmz3pLsaI2 5cusf8+/6K5mjZDj732Ragi339dwEj7toujjnG9kwe03pxcXBNRSuLNZOOoI x6/+sXLZGZPFULYwQXOQW7/kcQBPVkOMeedLZP7t359fOL5GcxpFkffVd20c n5cdVjvFjmcx3CvqlmchwdXJpjAwXoRBk3Oyb3gSrGycKz+oIkRLw5uhXwYY TJQZCHIaKUAPv+kJh90Y9Gl4++qCgA/hIbG72Zu9oF2zPDV0pADed77iRbkx QCwzUi+NEML18KaRMXwGaLlUodQfITg7iExUd3B+sSVUV2UcC5uXStvKFBK4 nb3pyjM5Cg+Mc7ZO4fh0NLJLepZMkX/Zc/ALx+eCdWlh8+NZPN9n7aHP9VdW qj+siqNE2LImYrT3Zc7vqs5q37okxFO/rFwVFxBcvG/bbNVgAdh7NZxpy2Zg 8mGZeSmBQmgPjW8NMCDwKlum+F6ICGhuz+rQGALWVjr+OeEsTPrYfa2X65cC 75UuUUqgMPvVqNh9HJ+2PjvKW79TDMxbered0+c4idx/+yvXb0x4rDiH65cG qjY4uNmzsOq2HnpXEIgziPT0cKBw9sPrm/4cn+58wyMJrhRzXdK1f3B8xhTw 0wbfstBds1zet5XAfsPBsUU/KJSVnc/r5fQsUeFt8R2mWNisMIOrT6jJeJ9W nkvhTX3x9gSuXv+4VDxa/zTF1YXm1dc4PlnyQ8e9iIK8taWOP8dnzYf6v9ci xaSD2xKTOT7lvLIcio9QKOn6Pr6Eq4+tByeyCtJiyFhWaVnK8fJn54J0rgii 2uK7WR1cvKLVDveLblP4eGrDllCOz7E6U0+oVVEcGqrIc+DOn1l9Lmh3H4Xa Io2T+7j9waVZitkMxabY6QFbuP1/X9yfoPieglJ3Rq81dx4NxZt7C1XEYLRp 5ight35qxOaVOhPFOElnzFKWWx8mscwmupOr32nnBuZx82k9lXnRIop3nzTN D+PmJSy2zWuXE0MEeR3czM03mSpLbpERo2bM3X+qufmylKqiJQNc/i0xsbj+ L//NXbcuThVDRWhz+TA35q60Mj8rI55J/Pf87377/8bwv/H/AaQedDw= "], {{ {Hue[0.67, 0.6, 0.6], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{238, 239, 1, 189, 147, 231, 112, 224, 182, 235, 84, 217, 175, 233, 140, 228, 186, 63, 210, 168, 133, 226, 184, 105, 221, 179, 144, 51, 201, 159, 124, 96, 219, 177, 142, 75, 214, 172, 137, 109, 2, 190, 148, 113, 85, 64, 211, 169, 134, 106, 52, 202, 160, 125, 97, 76, 3, 191, 149, 114, 86, 65, 53, 203, 161, 126, 98, 77, 4, 192, 150, 115, 87, 66, 54, 204, 162, 127, 99, 78, 5, 193, 151, 116, 88, 67, 55, 6, 194, 152, 117, 89, 68, 56, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25}}]]}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{238, 240, 50, 237, 188, 230, 146, 234, 181, 223, 111, 236, 185, 227, 139, 232, 174, 216, 83, 187, 229, 143, 178, 220, 104, 183, 225, 132, 167, 209, 62, 145, 180, 222, 108, 136, 171, 213, 74, 141, 176, 218, 95, 123, 158, 200, 49, 110, 138, 173, 215, 82, 103, 131, 166, 208, 61, 107, 135, 170, 212, 73, 94, 122, 157, 199, 48, 81, 102, 130, 165, 207, 60, 72, 93, 121, 156, 198, 47, 80, 101, 129, 164, 206, 59, 71, 92, 120, 155, 197, 46, 79, 100, 128, 163, 205, 58, 70, 91, 119, 154, 196, 45, 57, 69, 90, 118, 153, 195, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27, 26}}]]}, {}, {}}, {{}, {}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[{1, 189, 147, 231, 112, 224, 182, 235, 84, 217, 175, 233, 140, 228, 186, 63, 210, 168, 133, 226, 184, 105, 221, 179, 144, 51, 201, 159, 124, 96, 219, 177, 142, 75, 214, 172, 137, 109, 2, 190, 148, 113, 85, 64, 211, 169, 134, 106, 52, 202, 160, 125, 97, 76, 3, 191, 149, 114, 86, 65, 53, 203, 161, 126, 98, 77, 4, 192, 150, 115, 87, 66, 54, 204, 162, 127, 99, 78, 5, 193, 151, 116, 88, 67, 55, 6, 194, 152, 117, 89, 68, 56, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 238, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 195, 153, 118, 90, 69, 57, 45, 196, 154, 119, 91, 70, 58, 205, 163, 128, 100, 79, 46, 197, 155, 120, 92, 71, 59, 206, 164, 129, 101, 80, 47, 198, 156, 121, 93, 72, 60, 207, 165, 130, 102, 81, 48, 199, 157, 122, 94, 73, 212, 170, 135, 107, 61, 208, 166, 131, 103, 82, 215, 173, 138, 110, 49, 200, 158, 123, 95, 218, 176, 141, 74, 213, 171, 136, 108, 222, 180, 145, 62, 209, 167, 132, 225, 183, 104, 220, 178, 143, 229, 187, 83, 216, 174, 232, 139, 227, 185, 236, 111, 223, 181, 234, 146, 230, 188, 237, 50}]}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox[ StyleBox["\"x\"", 14, Italic, StripOnInput -> False], TraditionalForm], FormBox[ StyleBox["\"y\"", 14, Italic, StripOnInput -> False], TraditionalForm]}, AxesOrigin->{0, 0}, Method->{"AxesInFront" -> True}, PlotRange-> NCache[{{Rational[-1, 2] Pi, Rational[1, 2] Pi}, {-1.2, 1.2}}, {{-1.5707963267948966`, 1.5707963267948966`}, {-1.2, 1.2}}], PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}]], "Output", CellChangeTimes->{{3.595082502361021*^9, 3.59508252909759*^9}, { 3.5953063204404593`*^9, 3.5953063392211723`*^9}}], Cell[BoxData["0"], "Output", CellChangeTimes->{{3.595082502361021*^9, 3.59508252909759*^9}, { 3.5953063204404593`*^9, 3.5953063392297688`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Doln\[IAcute] a horn\[IAcute] sou\[CHacek]ty", "Section", CellChangeTimes->{{3.5950811619641657`*^9, 3.5950811766122704`*^9}, { 3.5953063633753853`*^9, 3.595306366578808*^9}}], Cell[TextData[{ "Uva\[ZHacek]me rozd\[EHacek]len\[IAcute] intervalu ", Cell[BoxData[ FormBox[ RowBox[{"\[LeftAngleBracket]", RowBox[{"a", ",", "b"}], "\[RightAngleBracket]"}], TraditionalForm]], FormatType->"TraditionalForm"], " na ", Cell[BoxData[ FormBox[ RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalN]"}], TraditionalForm]], FormatType->"TraditionalForm"], " ekvidistantn\[IAcute]ch (stejn\[EHacek] dlouh\[YAcute]ch) d\[IAcute]lk\ \[URing]. Ka\[ZHacek]d\[YAcute] d\[IAcute]lek m\[AAcute] tedy d\[EAcute]lku \ ", Cell[BoxData[ FormBox[ RowBox[{"\[CapitalDelta]", "=", FractionBox[ RowBox[{"b", "-", "a"}], "2"]}], TraditionalForm]], FormatType->"TraditionalForm"], ". Rozd\[EHacek]len\[IAcute] zna\[CHacek]\[IAcute]nem \[RHacek]eck\[YAcute]m \ p\[IAcute]smenkem ", Cell[BoxData[ FormBox["\[Sigma]", TraditionalForm]], FormatType->"TraditionalForm"], "." }], "Text", CellChangeTimes->{{3.5950826123517*^9, 3.59508265402365*^9}, { 3.595082691224009*^9, 3.595082711192292*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"n", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"delta", "=", RowBox[{ RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}], "/", "n"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sigma", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"a", "+", RowBox[{ RowBox[{"(", RowBox[{"i", "-", "1"}], ")"}], "delta"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.595082655300865*^9, 3.595082756501657*^9}}], Cell["\<\ P\[RHacek]\[IAcute]slu\[SHacek]n\[YAcute]m horn\[IAcute]m a doln\[IAcute]m \ sou\[CHacek]tem jsou \[CHacek]\[IAcute]sla:\ \>", "Text", CellChangeTimes->{{3.59508276436909*^9, 3.5950828049701157`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"minima", "=", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"NMinValue", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{ RowBox[{ "sigma", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "<", "x", "<", RowBox[{"sigma", "\[LeftDoubleBracket]", RowBox[{"i", "+", "1"}], "\[RightDoubleBracket]"}]}]}], "}"}], ",", "x"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "sigma", "]"}], "-", "1"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dolni", "=", RowBox[{"Sum", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"m", "*", "delta"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"m", ",", "minima"}], "}"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"maxima", "=", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"NMaxValue", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{ RowBox[{ "sigma", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "<", "x", "<", RowBox[{"sigma", "\[LeftDoubleBracket]", RowBox[{"i", "+", "1"}], "\[RightDoubleBracket]"}]}]}], "}"}], ",", "x"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "sigma", "]"}], "-", "1"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"horni", "=", RowBox[{"Sum", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"m", "*", "delta"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"m", ",", "maxima"}], "}"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.59508280754939*^9, 3.595082874455297*^9}, { 3.595082905119433*^9, 3.595082924696412*^9}, {3.595083022227648*^9, 3.595083064059435*^9}, {3.595083126378667*^9, 3.595083134994672*^9}, { 3.595083264835142*^9, 3.595083266658002*^9}, 3.5950833816531563`*^9, { 3.595083429926024*^9, 3.5950835904498167`*^9}}], Cell["\<\ A jejich grafick\[EAcute] reprezentace.\ \>", "Text", CellChangeTimes->{{3.595083611583712*^9, 3.595083617999476*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "horni"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "a", ",", "b"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Thick", ",", "Blue"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", ".5"}], ",", "3.5"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Prolog", "\[Rule]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"Opacity", "[", ".5", "]"}], ",", RowBox[{"EdgeForm", "[", "Dashed", "]"}]}], "}"}], "~", "Join", "~", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "+", RowBox[{ RowBox[{"(", RowBox[{"i", "-", "1"}], ")"}], "*", "delta"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", RowBox[{"i", "*", "delta"}]}], ",", RowBox[{ "maxima", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "maxima", "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14", ",", "Italic"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14", ",", "Italic"}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}], "//", "Print"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "dolni"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "a", ",", "b"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Thick", ",", "Blue"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", ".5"}], ",", "3.5"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Prolog", "\[Rule]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"Opacity", "[", ".5", "]"}], ",", RowBox[{"EdgeForm", "[", "Dashed", "]"}]}], "}"}], "~", "Join", "~", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "+", RowBox[{ RowBox[{"(", RowBox[{"i", "-", "1"}], ")"}], "*", "delta"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", RowBox[{"i", "*", "delta"}]}], ",", RowBox[{ "minima", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "minima", "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14", ",", "Italic"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14", ",", "Italic"}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}], "//", "Print"}]}], "Input", CellChangeTimes->{{3.5950838284764214`*^9, 3.595084025684102*^9}, { 3.595084062266869*^9, 3.595084151443521*^9}, {3.595084229890685*^9, 3.5950842344044027`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Horn\[IAcute] sou\[CHacek]et: \"\>", "\[InvisibleSpace]", "9.5808`"}], SequenceForm["Horn\[IAcute] sou\[CHacek]et: ", 9.5808], Editable->False]], "Print", CellChangeTimes->{{3.595084121658759*^9, 3.5950841528052883`*^9}, 3.595084234904669*^9, 3.595306355504088*^9, 3.595309806169745*^9}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData[" 1:eJwV13k4VG0bAPCZObNqsRshaTFEIm2S3HdUtLyhQlSypwiVhCiJipBStGin VF6V0KKkvrIUkihlSSqdGUL2bPM9719z/a7zXGee5V6eM9U9YJ0Xi8FgyDIZ jP9+B1f7X7QNiDT/4DL1q1QqhSOeOrrvRC6w7DOftW9QChUdP3YkiPwhLT82 qbNLCl0PLOP9RAdg7Jxj149vUohS6dHYLEqEE9SMgub/SeFtyaqf60WXoNXt YITGMSkEXAkusxFlw9bVmJcuL4UX8fEF/4gKIfq9pGtAdww43N088Y538DrO af2o5QisPOgWk+fwCWrnOLItU4fgYahXY8b7JtjlFpYRL/gLn519DXfv+w5X rCv3BOwZAHmrBO8X+AtMh76dny3XD3I1XjkLN7WBoWl1j/KtXpiu5Xcrxr0T 9L6XSwvde8Ckcefbpaf+gPSmke7zld3wYihyTc2FHoiaomqVbPwHfJ6XlhZG 9YGP682lHcu74JzHTTVl1wFoehNeX0N3gMHGb/1jXn9h9JBuffSG39DUY1OJ K4ch5DbsjJJph0T1T9MD7YZBXbNVw5bTDuaWLqGXnYbB6v0E0VRGO1w+5Tdj bPswLOpvXlbR1wauc2LDCuKGIdo0Jfefb23w3f+laEH5MBRmmW3ufNQGtHje QX2bEShcGFqet6MNur9OMlKxH4WuX/eMbOokoOUxMG/KllHwMWi+wquRgE1r zSJdr1FoqoxY/b93EshqP2FpuncUXmmzbZeVSMD7L8fR5cwoRExforIzXwJf FLojbtSOwkUX11SnMxJ4sfzN2wUOY5Dywdfvkr0Eku6EbXN0lILXoxS3T1/F sIm5vLzWRQpyvW8Wn28Qg8hRds4GbxIH9JsfWz+L4Skrfch2rxQKhg2u91SL gXaqSFiVTJ6/jXxvViwG4GvlLnknBVc5p177f8WwL8edcWo6A10Ma9ZdjxDD 5sYSYzsdBkoOH+QWhYnBgm/gJafPQLOT/ce+7hPDeJeBskRjBi78aDUk2i2G a4L45ONLGXhQsC/xk7cYKl3zRDFbGeiqzI94bkvmJ8v/J+QCAz1f9u6+LRJD VtehG8cuM7A85vVsyXQxGFcPS89eZ2B0no6JwVQyvzOdOY/vMPCb05W5z9TF sFH9k+pwAQM35rtXsOXFEKdz40dEA/n/Qv144xEaOmBZ+OHJTMwTvFvAr6Uh aGphbfJUJio5VqTfr6ZhiGVimK7NxCK5La4uVTTwivVbXhkwkV9mVPTiLQ1a axStueZMtP/n1rR7L2lYt7FFMdaFic3pTbv179OQHxh5J/EyEx+ecMa0JBri Crpyna4zMaL7kkZVIg1buW6FM24yMfJL7GduAg38tKXvn2Qz0cx0fV94LA3O JayB1mdMPGGSm3s8ioaxyTEW0MDEdKO76+bupaHap2+1TDMTTX9tWnRmDw03 H3jZ135nosz0u4yhXTTYrlzh49vGRG+9lXPK/Wm4FsRLTB1iYv++1WrJPjQs fxv7uVOVhdETY8fd2UyDmspQyxMNFtKql0ZMN5H9cd3RHqPFwrhMp8oKJxpS +ldJ1XXJeMdXiiMONNBTx2tbL2Shbe820X47GuJDEgOv2LNw40x6B2VFQ412 Ms/uFAs1D5UHms2jYaWOqsnOFBa67zl7VH4uDYW6F31iz7NwbZ+tVDyHhlv6 N8teXGOhbuZR+QxDGg7MKThu/ICFTWXjXljq06C75LusUg0L1436r5k+nYaL 5j5oVMdCCwm1e/Y0GhTwd+CaBhZ+8Y4ZNJtKw6jFwPvoHyyUk12r6zmF7Jf1 uNN9vSwMU+9XqFenIXzDXNVPyhQ6zLiq5KtMwx/7R9Y9kyjsHSe1zlKiwdtx SaisJoVmh1c2dSnSYOds9cVKROEbrXT9aAUaRK6b0h4toFAiDLT7IEvDBbfm 8hpTChvCjRMMieU8vEa7zCkM2/Vt5omJNAx7BbjMtKIwX8A5snECDVW+h7XO O1Jo1O9epjiOnMdOvl3+JjK+Lnb8cRkanvgnHKreSqH/qov3OMQZu1JbZHwo dG6MVecIyHnt0VDU8aNw7Zh7SyyfhqSgq5aWgRR2ZOvKKBCH7buTvj+EwtnP Q8Nn8WjoDDGqTQ2nsFKTU1LIpcEzLI+TG0mh6sSI3RuIbSKee7cfo/DeBeP2 WA4NMw5/0N1yjsLm3bk7JrNp2JhDzfG+SGFd9coF5RQ5729zFwVcpVBmYYrl AeI+OL3y0C0KNcZvmN7OokEv4JVd3L8UjoS/7rtJ7HKp1yn5PoUq3b8F24iL RzbsyHhM9pv2GOhgknzTj9md/YzCJzvuVz0kNtyUF/bwBXFXXtthYs+4n1FF rynsDttlvZ747GPl42VlFHoLfrRqE5fTy5OrKyhUSJtQMsyggaEafKH+PYWD xh10DfE8qxvXf9SS9VbGrLlPvD34453fnykM3FnzJ4n4UgY3t7+RQpb8l7o9 xNU1C55Kv1FY9SiF6UzMZW97xW+l8KOnjJ8lsenc1HJ5CVmP8nxVI2J/95Ia tQ4KE8tUuFrE108ONEzvphCj7s5XJK4r0vk5q5+cB0hvCIjHdzn+nj9E4ToG 15kixinH+szHKMx5/b+1DOKgtY9GrVhsXHPCJOY/Z0bQHDsuGzW3eI7+N74x S3WiswwbZxlaPZQhVmiwVvGYyMZAzrccJeIV40I1/RTY2PV1TtdU4jDTW6K9 KmzMLFwUYEycvf3z7ANqbEy7Omi4grjlrGDhUU02lh7zN95CLCxdBEnT2Dg7 6ELwPuI1A9utzonYWOlxcOQ0caTovM01PfI+R7VXecS59m8c78xm4yMbv4rP xHT00NZcYzZy1+xVZZLzsfvuHFhsStZjl7XHifiIwvGQd+ZsXOb85XAc8ZOl BZF1FmwM2fa8tpB42hX1k5JVbDyWmG0+h8SLw7vV53rWstEn85F9APHxsf1X R9axMao4NPsece/mhvsTN7HRVXaq9hISj7rx458It7JR15RneYx4c4HZSy0P 4u3p1z4Sv550sdrYl43VHyidCBLfQ9YVXxYHsDFStnh1LfHskNGWZXvY6GkD OUYkH1I+bulx2M/GpnqHZX+I33ASh7ceJPut2xfgQPJHOq+Q2n6YjWahqxr/ yy+fZE2l/cfJ/HTUIs6R/Ftk+3Xe5QtsLMr/5/1ekr9Pac5v98vk+YDltnZi 80OzMkTXyfsWvK/2Ivm+LCdUOfs22e/se3pupD6sVVLqf/qYjXGxhxtD/6sf WabZkc/YeKNgjhaP1Jf1y928l71gY3tbsEkq8cbg7I9vS9k4uKJY/JzUI/c6 64dfPrFR6VeIzVxSv34EBgRcqmfjEZmv5p+ItwlSdNy/snHGrAbqAKl3fqbf U8WtbGzefmFiDamHwWkRIYN9bNz8zkDnmpDsv2vOIhUlDnpaXPMsnkzDxL91 fz4LOXjEOuTfVE1Sj05Kb11U52D1mp9vfUn9TXm5Rk17Ogc7bKJjNUh9vjLj 19BcYw7q4kfelRkkfmj1p3a2HMwuLZMznEXDgkMWQcobOBh5X/aBgQENjydt n/XZkYPhZ9v1DGeT/rEqP811KwcHXX0vmBrRUJplGxHgz8Gu+vCDe0i/aQyM MU+I52B3aOf6nUtIPSgqmnwtiYNF3kkPcsxJfZMdGck/zUGTD1o+w0DDjn93 FzSnEevLVaVY0DAo3moy718Obv6ke6GP9DMFD1Pj+goOWmhZaK5fT+aXs1e+ 6z1ZD6++vGIDDU7M+13sjxy0DvCoWk3645XLOndnN3GQ+8ziox3pnwYNSrOi OjiYuWFxY8xWGqztO7VnynIxLkipLsGPBt90PY65IhdVHDNql5B+ndjj9WOd kIu2j7V1/wTQUHuy4Vr4FC6Wj/S+dSP93r2ybEqVIRfbD1ZM9A2jIcIqfdI+ W/I82PvQZHJ/yFnkNOH1SS5ydUzUWLfIervj0k6f4eK9e7ebB2/TcOb2U33P c1zUCExP7M6iIURdaxV1lYvLkgyudtwj8TjaemTpPS6+tE+5InhMw9uiIEZh JRfD+17w35aR+LFK6skfx8O6o4cO7P9N8pPxMuqILA8Zb77Mf9dJQ8mjHnkH RR62Ly2o0e6m4fZMR6M+NR6O/yBfVt9PQ+A4zZ1z9Xh4IEw5fgdDDKOVd1rv WvNQoyl4v6KSGFQcSj5nxvDQevCq9NQSMawwS0evWB6mrc9TW4Dk/jnt0M2p CTycddKL0WAhhroO073nT/NwLCdN38haDBeOZsvFX+eh/0kv5tA6MWg9PmMV 8IKHpx+73VbcLgY9Dc+8+aM8bM6nul1Syf2xhXHyZRAfg7w6HO1HxCB3sFuz KoRP7jOns3qkYmhR/5HVGM5HhdKlq85QEoi2LykdjOYjIyXXtUVGAm9KExiG Z/hYtWfw7/VJEnC4qxZ4IY+PCxb+bXy1UAJ+4fNsgvr5KNfY5BsRLIFzKj4T RCECVMowvVw2KoFHGrarO/YL0Mivw6CD2QZ100xi8w8K0Cxj/DllbhuoGvI5 VkcFqLXzGHvnxDZIscoc2ZYiQLkNEUbmU9rgdAjdditXgEkHNjdsX9oGiV98 3hj8EeC8FV2HW4+2QdSl7Ufn75DB5ss7FfZOboeLlWeLEwPHYaRnMqvj2G+I 8E/umrx7PI5k5gwqTOuENjddVSf3CXj+9MKKudu64PiohN3kPRFN3RzVOn3+ wJN2q86JzrLY6tVYtHtXN3zUNmkxnSGHVS4ndhkc7wGfmR6GyRly6Drua5C0 thdeOGzav1RTHkWVGxYvntYPczdKbildlUf/yen1qukD4Hd4xacl6gpoFtYT lTDjLxzz5g8xkxUwNzW2RD13CJ5NdpNKlBQxiCvMrTswAo/HjlB6iYroqddQ XGIxBpUPLCUJ8kp44P7aDFPyXfJay7s4/pQS+je+Mosg9/boh/ZXv8ko47zu 7A9n5rBw87QGl00JyrixYu6Yx0YKh/MN1fV5KvjFaMrby/vYGE6Jy88cUEG+ R8yDYFIXVGYsctNmCNFF+DulpJWL+/wdemVChYj3OZdqRXzUWOBZKtovRNEb 2dvRs/hYNLorzSJCiHpVr87NM+ajTELCsrBDQrxx3XBG6hI+Xrrz6rQ4Vogm Pvyf3hv4WEwbzy89L8SWbcUqc6L4qOQhGxzzVIjGS4NMA5v4+Fhv8qqrhUL0 H6svWPyDjy7deprPioRYmdmhxZfwMfPQiuLeV0IcfKWUcr2Pj4uvRKh4VpD3 qXnO+jlegO6NbfkWTUI0XSIrSF4sQF7G3ziXZiFeK9d+7bdUgFl+vK1hLUKc tfKXp5WVAPuHp/FyWoWYKfC1ka4TYJyas+PUTiEuy9xbFbpDgIYt2/SX/BFi 0ZXvt5wDBVhza690Y48Q3Y+MeJsFC1Bz0cmbSQNC5E8yjGdFCfB/jMv7s/4K UaHYureVxLFPaZZN6bAQzV0nYHmCAMcnPZn+Y1SIR36FB+QkC/C+Y+mAVErW syk16tw5Af4fpGadiA== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox[ StyleBox["\"x\"", 14, Italic, StripOnInput -> False], TraditionalForm], FormBox[ StyleBox["\"y\"", 14, Italic, StripOnInput -> False], TraditionalForm]}, AxesOrigin->{0, 0}, Method->{}, PlotRange->{{0, 6}, {-0.5, 3.5}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}, Prolog->{ RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.5], EdgeForm[ Dashing[{Small, Small}]], RectangleBox[{0, 0}, NCache[{ Rational[3, 5], 2.}, {0.6, 2.}]], RectangleBox[ NCache[{ Rational[3, 5], 0}, {0.6, 0}], NCache[{ Rational[6, 5], 1.472}, {1.2, 1.472}]], RectangleBox[ NCache[{ Rational[6, 5], 0}, {1.2, 0}], NCache[{ Rational[9, 5], 1.088}, {1.8, 1.088}]], RectangleBox[ NCache[{ Rational[9, 5], 0}, {1.8, 0}], NCache[{ Rational[12, 5], 0.8480000000000001}, {2.4, 0.8480000000000001}]], RectangleBox[ NCache[{ Rational[12, 5], 0}, {2.4, 0}], {3, 0.8}], RectangleBox[{3, 0}, NCache[{ Rational[18, 5], 0.9920000000000004}, {3.6, 0.9920000000000004}]], RectangleBox[ NCache[{ Rational[18, 5], 0}, {3.6, 0}], NCache[{ Rational[21, 5], 1.3280000000000003`}, {4.2, 1.3280000000000003`}]], RectangleBox[ NCache[{ Rational[21, 5], 0}, {4.2, 0}], NCache[{ Rational[24, 5], 1.8079999999999998`}, {4.8, 1.8079999999999998`}]], RectangleBox[ NCache[{ Rational[24, 5], 0}, {4.8, 0}], NCache[{ Rational[27, 5], 2.4320000000000004`}, {5.4, 2.4320000000000004`}]], RectangleBox[ NCache[{ Rational[27, 5], 0}, {5.4, 0}], {6, 3.2}]}]], "Print", CellChangeTimes->{{3.595084121658759*^9, 3.5950841528052883`*^9}, 3.595084234904669*^9, 3.595306355504088*^9, 3.5953098062539797`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Doln\[IAcute] sou\[CHacek]et: \"\>", "\[InvisibleSpace]", "7.362`"}], SequenceForm["Doln\[IAcute] sou\[CHacek]et: ", 7.362], Editable->False]], "Print", CellChangeTimes->{{3.595084121658759*^9, 3.5950841528052883`*^9}, 3.595084234904669*^9, 3.595306355504088*^9, 3.5953098062554483`*^9}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData[" 1:eJwV13k4VG0bAPCZObNqsRshaTFEIm2S3HdUtLyhQlSypwiVhCiJipBStGin VF6V0KKkvrIUkihlSSqdGUL2bPM9719z/a7zXGee5V6eM9U9YJ0Xi8FgyDIZ jP9+B1f7X7QNiDT/4DL1q1QqhSOeOrrvRC6w7DOftW9QChUdP3YkiPwhLT82 qbNLCl0PLOP9RAdg7Jxj149vUohS6dHYLEqEE9SMgub/SeFtyaqf60WXoNXt YITGMSkEXAkusxFlw9bVmJcuL4UX8fEF/4gKIfq9pGtAdww43N088Y538DrO af2o5QisPOgWk+fwCWrnOLItU4fgYahXY8b7JtjlFpYRL/gLn519DXfv+w5X rCv3BOwZAHmrBO8X+AtMh76dny3XD3I1XjkLN7WBoWl1j/KtXpiu5Xcrxr0T 9L6XSwvde8Ckcefbpaf+gPSmke7zld3wYihyTc2FHoiaomqVbPwHfJ6XlhZG 9YGP682lHcu74JzHTTVl1wFoehNeX0N3gMHGb/1jXn9h9JBuffSG39DUY1OJ K4ch5DbsjJJph0T1T9MD7YZBXbNVw5bTDuaWLqGXnYbB6v0E0VRGO1w+5Tdj bPswLOpvXlbR1wauc2LDCuKGIdo0Jfefb23w3f+laEH5MBRmmW3ufNQGtHje QX2bEShcGFqet6MNur9OMlKxH4WuX/eMbOokoOUxMG/KllHwMWi+wquRgE1r zSJdr1FoqoxY/b93EshqP2FpuncUXmmzbZeVSMD7L8fR5cwoRExforIzXwJf FLojbtSOwkUX11SnMxJ4sfzN2wUOY5Dywdfvkr0Eku6EbXN0lILXoxS3T1/F sIm5vLzWRQpyvW8Wn28Qg8hRds4GbxIH9JsfWz+L4Skrfch2rxQKhg2u91SL gXaqSFiVTJ6/jXxvViwG4GvlLnknBVc5p177f8WwL8edcWo6A10Ma9ZdjxDD 5sYSYzsdBkoOH+QWhYnBgm/gJafPQLOT/ce+7hPDeJeBskRjBi78aDUk2i2G a4L45ONLGXhQsC/xk7cYKl3zRDFbGeiqzI94bkvmJ8v/J+QCAz1f9u6+LRJD VtehG8cuM7A85vVsyXQxGFcPS89eZ2B0no6JwVQyvzOdOY/vMPCb05W5z9TF sFH9k+pwAQM35rtXsOXFEKdz40dEA/n/Qv144xEaOmBZ+OHJTMwTvFvAr6Uh aGphbfJUJio5VqTfr6ZhiGVimK7NxCK5La4uVTTwivVbXhkwkV9mVPTiLQ1a axStueZMtP/n1rR7L2lYt7FFMdaFic3pTbv179OQHxh5J/EyEx+ecMa0JBri Crpyna4zMaL7kkZVIg1buW6FM24yMfJL7GduAg38tKXvn2Qz0cx0fV94LA3O JayB1mdMPGGSm3s8ioaxyTEW0MDEdKO76+bupaHap2+1TDMTTX9tWnRmDw03 H3jZ135nosz0u4yhXTTYrlzh49vGRG+9lXPK/Wm4FsRLTB1iYv++1WrJPjQs fxv7uVOVhdETY8fd2UyDmspQyxMNFtKql0ZMN5H9cd3RHqPFwrhMp8oKJxpS +ldJ1XXJeMdXiiMONNBTx2tbL2Shbe820X47GuJDEgOv2LNw40x6B2VFQ412 Ms/uFAs1D5UHms2jYaWOqsnOFBa67zl7VH4uDYW6F31iz7NwbZ+tVDyHhlv6 N8teXGOhbuZR+QxDGg7MKThu/ICFTWXjXljq06C75LusUg0L1436r5k+nYaL 5j5oVMdCCwm1e/Y0GhTwd+CaBhZ+8Y4ZNJtKw6jFwPvoHyyUk12r6zmF7Jf1 uNN9vSwMU+9XqFenIXzDXNVPyhQ6zLiq5KtMwx/7R9Y9kyjsHSe1zlKiwdtx SaisJoVmh1c2dSnSYOds9cVKROEbrXT9aAUaRK6b0h4toFAiDLT7IEvDBbfm 8hpTChvCjRMMieU8vEa7zCkM2/Vt5omJNAx7BbjMtKIwX8A5snECDVW+h7XO O1Jo1O9epjiOnMdOvl3+JjK+Lnb8cRkanvgnHKreSqH/qov3OMQZu1JbZHwo dG6MVecIyHnt0VDU8aNw7Zh7SyyfhqSgq5aWgRR2ZOvKKBCH7buTvj+EwtnP Q8Nn8WjoDDGqTQ2nsFKTU1LIpcEzLI+TG0mh6sSI3RuIbSKee7cfo/DeBeP2 WA4NMw5/0N1yjsLm3bk7JrNp2JhDzfG+SGFd9coF5RQ5729zFwVcpVBmYYrl AeI+OL3y0C0KNcZvmN7OokEv4JVd3L8UjoS/7rtJ7HKp1yn5PoUq3b8F24iL RzbsyHhM9pv2GOhgknzTj9md/YzCJzvuVz0kNtyUF/bwBXFXXtthYs+4n1FF rynsDttlvZ747GPl42VlFHoLfrRqE5fTy5OrKyhUSJtQMsyggaEafKH+PYWD xh10DfE8qxvXf9SS9VbGrLlPvD34453fnykM3FnzJ4n4UgY3t7+RQpb8l7o9 xNU1C55Kv1FY9SiF6UzMZW97xW+l8KOnjJ8lsenc1HJ5CVmP8nxVI2J/95Ia tQ4KE8tUuFrE108ONEzvphCj7s5XJK4r0vk5q5+cB0hvCIjHdzn+nj9E4ToG 15kixinH+szHKMx5/b+1DOKgtY9GrVhsXHPCJOY/Z0bQHDsuGzW3eI7+N74x S3WiswwbZxlaPZQhVmiwVvGYyMZAzrccJeIV40I1/RTY2PV1TtdU4jDTW6K9 KmzMLFwUYEycvf3z7ANqbEy7Omi4grjlrGDhUU02lh7zN95CLCxdBEnT2Dg7 6ELwPuI1A9utzonYWOlxcOQ0caTovM01PfI+R7VXecS59m8c78xm4yMbv4rP xHT00NZcYzZy1+xVZZLzsfvuHFhsStZjl7XHifiIwvGQd+ZsXOb85XAc8ZOl BZF1FmwM2fa8tpB42hX1k5JVbDyWmG0+h8SLw7vV53rWstEn85F9APHxsf1X R9axMao4NPsece/mhvsTN7HRVXaq9hISj7rx458It7JR15RneYx4c4HZSy0P 4u3p1z4Sv550sdrYl43VHyidCBLfQ9YVXxYHsDFStnh1LfHskNGWZXvY6GkD OUYkH1I+bulx2M/GpnqHZX+I33ASh7ceJPut2xfgQPJHOq+Q2n6YjWahqxr/ yy+fZE2l/cfJ/HTUIs6R/Ftk+3Xe5QtsLMr/5/1ekr9Pac5v98vk+YDltnZi 80OzMkTXyfsWvK/2Ivm+LCdUOfs22e/se3pupD6sVVLqf/qYjXGxhxtD/6sf WabZkc/YeKNgjhaP1Jf1y928l71gY3tbsEkq8cbg7I9vS9k4uKJY/JzUI/c6 64dfPrFR6VeIzVxSv34EBgRcqmfjEZmv5p+ItwlSdNy/snHGrAbqAKl3fqbf U8WtbGzefmFiDamHwWkRIYN9bNz8zkDnmpDsv2vOIhUlDnpaXPMsnkzDxL91 fz4LOXjEOuTfVE1Sj05Kb11U52D1mp9vfUn9TXm5Rk17Ogc7bKJjNUh9vjLj 19BcYw7q4kfelRkkfmj1p3a2HMwuLZMznEXDgkMWQcobOBh5X/aBgQENjydt n/XZkYPhZ9v1DGeT/rEqP811KwcHXX0vmBrRUJplGxHgz8Gu+vCDe0i/aQyM MU+I52B3aOf6nUtIPSgqmnwtiYNF3kkPcsxJfZMdGck/zUGTD1o+w0DDjn93 FzSnEevLVaVY0DAo3moy718Obv6ke6GP9DMFD1Pj+goOWmhZaK5fT+aXs1e+ 6z1ZD6++vGIDDU7M+13sjxy0DvCoWk3645XLOndnN3GQ+8ziox3pnwYNSrOi OjiYuWFxY8xWGqztO7VnynIxLkipLsGPBt90PY65IhdVHDNql5B+ndjj9WOd kIu2j7V1/wTQUHuy4Vr4FC6Wj/S+dSP93r2ybEqVIRfbD1ZM9A2jIcIqfdI+ W/I82PvQZHJ/yFnkNOH1SS5ydUzUWLfIervj0k6f4eK9e7ebB2/TcOb2U33P c1zUCExP7M6iIURdaxV1lYvLkgyudtwj8TjaemTpPS6+tE+5InhMw9uiIEZh JRfD+17w35aR+LFK6skfx8O6o4cO7P9N8pPxMuqILA8Zb77Mf9dJQ8mjHnkH RR62Ly2o0e6m4fZMR6M+NR6O/yBfVt9PQ+A4zZ1z9Xh4IEw5fgdDDKOVd1rv WvNQoyl4v6KSGFQcSj5nxvDQevCq9NQSMawwS0evWB6mrc9TW4Dk/jnt0M2p CTycddKL0WAhhroO073nT/NwLCdN38haDBeOZsvFX+eh/0kv5tA6MWg9PmMV 8IKHpx+73VbcLgY9Dc+8+aM8bM6nul1Syf2xhXHyZRAfg7w6HO1HxCB3sFuz KoRP7jOns3qkYmhR/5HVGM5HhdKlq85QEoi2LykdjOYjIyXXtUVGAm9KExiG Z/hYtWfw7/VJEnC4qxZ4IY+PCxb+bXy1UAJ+4fNsgvr5KNfY5BsRLIFzKj4T RCECVMowvVw2KoFHGrarO/YL0Mivw6CD2QZ100xi8w8K0Cxj/DllbhuoGvI5 VkcFqLXzGHvnxDZIscoc2ZYiQLkNEUbmU9rgdAjdditXgEkHNjdsX9oGiV98 3hj8EeC8FV2HW4+2QdSl7Ufn75DB5ss7FfZOboeLlWeLEwPHYaRnMqvj2G+I 8E/umrx7PI5k5gwqTOuENjddVSf3CXj+9MKKudu64PiohN3kPRFN3RzVOn3+ wJN2q86JzrLY6tVYtHtXN3zUNmkxnSGHVS4ndhkc7wGfmR6GyRly6Drua5C0 thdeOGzav1RTHkWVGxYvntYPczdKbildlUf/yen1qukD4Hd4xacl6gpoFtYT lTDjLxzz5g8xkxUwNzW2RD13CJ5NdpNKlBQxiCvMrTswAo/HjlB6iYroqddQ XGIxBpUPLCUJ8kp44P7aDFPyXfJay7s4/pQS+je+Mosg9/boh/ZXv8ko47zu 7A9n5rBw87QGl00JyrixYu6Yx0YKh/MN1fV5KvjFaMrby/vYGE6Jy88cUEG+ R8yDYFIXVGYsctNmCNFF+DulpJWL+/wdemVChYj3OZdqRXzUWOBZKtovRNEb 2dvRs/hYNLorzSJCiHpVr87NM+ajTELCsrBDQrxx3XBG6hI+Xrrz6rQ4Vogm Pvyf3hv4WEwbzy89L8SWbcUqc6L4qOQhGxzzVIjGS4NMA5v4+Fhv8qqrhUL0 H6svWPyDjy7deprPioRYmdmhxZfwMfPQiuLeV0IcfKWUcr2Pj4uvRKh4VpD3 qXnO+jlegO6NbfkWTUI0XSIrSF4sQF7G3ziXZiFeK9d+7bdUgFl+vK1hLUKc tfKXp5WVAPuHp/FyWoWYKfC1ka4TYJyas+PUTiEuy9xbFbpDgIYt2/SX/BFi 0ZXvt5wDBVhza690Y48Q3Y+MeJsFC1Bz0cmbSQNC5E8yjGdFCfB/jMv7s/4K UaHYureVxLFPaZZN6bAQzV0nYHmCAMcnPZn+Y1SIR36FB+QkC/C+Y+mAVErW syk16tw5Af4fpGadiA== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox[ StyleBox["\"x\"", 14, Italic, StripOnInput -> False], TraditionalForm], FormBox[ StyleBox["\"y\"", 14, Italic, StripOnInput -> False], TraditionalForm]}, AxesOrigin->{0, 0}, Method->{}, PlotRange->{{0, 6}, {-0.5, 3.5}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}, Prolog->{ RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.5], EdgeForm[ Dashing[{Small, Small}]], RectangleBox[{0, 0}, NCache[{ Rational[3, 5], 1.472}, {0.6, 1.472}]], RectangleBox[ NCache[{ Rational[3, 5], 0}, {0.6, 0}], NCache[{ Rational[6, 5], 1.088}, {1.2, 1.088}]], RectangleBox[ NCache[{ Rational[6, 5], 0}, {1.2, 0}], NCache[{ Rational[9, 5], 0.8480000000000001}, {1.8, 0.8480000000000001}]], RectangleBox[ NCache[{ Rational[9, 5], 0}, {1.8, 0}], NCache[{ Rational[12, 5], 0.752}, {2.4, 0.752}]], RectangleBox[ NCache[{ Rational[12, 5], 0}, {2.4, 0}], {3, 0.75}], RectangleBox[{3, 0}, NCache[{ Rational[18, 5], 0.8}, {3.6, 0.8}]], RectangleBox[ NCache[{ Rational[18, 5], 0}, {3.6, 0}], NCache[{ Rational[21, 5], 0.9920000000000004}, {4.2, 0.9920000000000004}]], RectangleBox[ NCache[{ Rational[21, 5], 0}, {4.2, 0}], NCache[{ Rational[24, 5], 1.3280000000000003`}, {4.8, 1.3280000000000003`}]], RectangleBox[ NCache[{ Rational[24, 5], 0}, {4.8, 0}], NCache[{ Rational[27, 5], 1.8079999999999998`}, {5.4, 1.8079999999999998`}]], RectangleBox[ NCache[{ Rational[27, 5], 0}, {5.4, 0}], {6, 2.4320000000000004`}]}]], "Print", CellChangeTimes->{{3.595084121658759*^9, 3.5950841528052883`*^9}, 3.595084234904669*^9, 3.595306355504088*^9, 3.595309806311915*^9}] }, Open ]] }, Open ]], Cell["\<\ Na z\[AAcute]v\[EHacek]r se zbavme nepot\[RHacek]ebn\[YAcute]ch \ prom\[EHacek]nn\[YAcute]ch (n\[IAcute]\[ZHacek]e by mohlo doj\[IAcute]t ke \ kolizi).\ \>", "Text", CellChangeTimes->{{3.595083643719922*^9, 3.59508366011967*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{ "n", ",", "delta", ",", "sigma", ",", "minima", ",", "dolni", ",", "maxima", ",", "horni"}], "]"}]], "Input", CellChangeTimes->{{3.595083625772105*^9, 3.595083639483356*^9}}], Cell["\<\ Na z\[AAcute]v\[EHacek]r je\[SHacek]t\[EHacek] interaktivn\[IAcute] \ manipulace (nezapome\[NHacek]te pro jistotu na Clear).\ \>", "Text", CellChangeTimes->{{3.5950842788771048`*^9, 3.595084297884974*^9}, { 3.595084345940846*^9, 3.5950843473808613`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"delta", "=", RowBox[{ RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}], "/", "n"}]}], ";", "\[IndentingNewLine]", RowBox[{"sigma", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"a", "+", RowBox[{ RowBox[{"(", RowBox[{"i", "-", "1"}], ")"}], "delta"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"extremy", "=", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"func", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{ RowBox[{ "sigma", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "<", "x", "<", RowBox[{"sigma", "\[LeftDoubleBracket]", RowBox[{"i", "+", "1"}], "\[RightDoubleBracket]"}]}]}], "}"}], ",", "x"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "sigma", "]"}], "-", "1"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"soucet", "=", RowBox[{"delta", "*", RowBox[{"Plus", "@@", "extremy"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Column", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"\"\\"", "~~", RowBox[{"ToString", "[", "soucet", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "a", ",", "b"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Thick", ",", "Blue"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", ".5"}], ",", "3.5"}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"500", ",", "400"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Prolog", "\[Rule]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"Opacity", "[", ".5", "]"}], ",", RowBox[{"EdgeForm", "[", "Dashed", "]"}]}], "}"}], "~", "Join", "~", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "+", RowBox[{ RowBox[{"(", RowBox[{"i", "-", "1"}], ")"}], "*", "delta"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", RowBox[{"i", "*", "delta"}]}], ",", RowBox[{ "extremy", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "extremy", "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14", ",", "Italic"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14", ",", "Italic"}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], "}"}], ",", RowBox[{"Alignment", "\[Rule]", "Center"}]}], "\[IndentingNewLine]", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n", ",", "4", ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}]}], "}"}], ",", "2", ",", "30", ",", "1", ",", RowBox[{"ContinuousAction", "\[Rule]", "False"}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"func", ",", "NMinValue", ",", "\"\<\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ "NMinValue", "\[Rule]", "\"\\""}], ",", RowBox[{ "NMaxValue", "\[Rule]", "\"\\""}]}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.595084299657167*^9, 3.5950843753012943`*^9}, 3.59508440996447*^9, {3.595084504612259*^9, 3.5950845900556192`*^9}, { 3.595084623004159*^9, 3.5950846240071697`*^9}, {3.5950846593299227`*^9, 3.595084670010173*^9}, {3.595084708231098*^9, 3.595084777288715*^9}, { 3.595084840908045*^9, 3.5950849713379707`*^9}, {3.595085414793035*^9, 3.595085580472041*^9}, {3.5950858447881317`*^9, 3.595085850165758*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`func$$ = NMaxValue, $CellContext`n$$ = 30, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`n$$], 4, Style["n", Italic]}, 2, 30, 1}, {{ Hold[$CellContext`func$$], NMinValue, ""}, { NMinValue -> "Doln\[IAcute] sou\[CHacek]ty", NMaxValue -> "Horn\[IAcute] sou\[CHacek]ty"}}}, Typeset`size$$ = { 625., {258., 265.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`n$11822$$ = 0, $CellContext`func$11823$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`func$$ = NMinValue, $CellContext`n$$ = 4}, "ControllerVariables" :> { Hold[$CellContext`n$$, $CellContext`n$11822$$, 0], Hold[$CellContext`func$$, $CellContext`func$11823$$, False]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ($CellContext`delta = ($CellContext`b - \ $CellContext`a)/$CellContext`n$$; $CellContext`sigma = Table[$CellContext`a + ($CellContext`i - 1) $CellContext`delta, {$CellContext`i, 1, $CellContext`n$$ + 1}]; $CellContext`extremy = Table[ $CellContext`func$$[{ $CellContext`f[$CellContext`x], Part[$CellContext`sigma, $CellContext`i] < $CellContext`x < Part[$CellContext`sigma, $CellContext`i + 1]}, $CellContext`x], {$CellContext`i, 1, Length[$CellContext`sigma] - 1}]; $CellContext`soucet = $CellContext`delta Apply[Plus, $CellContext`extremy]; Column[{ StringExpression["Hodnota sou\[CHacek]tu: ", ToString[$CellContext`soucet]], Plot[ $CellContext`f[$CellContext`x], {$CellContext`x, $CellContext`a, \ $CellContext`b}, PlotStyle -> {Thick, Blue}, PlotRange -> {-0.5, 3.5}, ImageSize -> {500, 400}, Prolog -> Join[{ Lighter[Blue], Opacity[0.5], EdgeForm[Dashed]}, Table[ Rectangle[{$CellContext`a + ($CellContext`i - 1) $CellContext`delta, 0}, {$CellContext`a + $CellContext`i $CellContext`delta, Part[$CellContext`extremy, $CellContext`i]}], {$CellContext`i, 1, Length[$CellContext`extremy]}]], AxesLabel -> { Style["x", 14, Italic], Style["y", 14, Italic]}]}, Alignment -> Center]), "Specifications" :> {{{$CellContext`n$$, 4, Style["n", Italic]}, 2, 30, 1, ContinuousAction -> False, Appearance -> "Labeled"}, {{$CellContext`func$$, NMinValue, ""}, { NMinValue -> "Doln\[IAcute] sou\[CHacek]ty", NMaxValue -> "Horn\[IAcute] sou\[CHacek]ty"}}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{682., {342., 349.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.5950851290314207`*^9, {3.595085421679347*^9, 3.595085499808403*^9}, { 3.5950855678676033`*^9, 3.5950855885145493`*^9}, {3.5950858459041157`*^9, 3.5950858583185787`*^9}, {3.5950858968727007`*^9, 3.595085897137896*^9}, 3.5953063774496727`*^9, 3.595309818517614*^9}] }, Open ]], Cell[TextData[{ "Primitivn\[IAcute] funkc\[IAcute] k funkci ", Cell[BoxData[ FormBox["f", TraditionalForm]], FormatType->"TraditionalForm"], " je funkce ", Cell[BoxData[ FormBox["F", TraditionalForm]], FormatType->"TraditionalForm"], ", kterou snadno zjit\[IAcute]me (i ru\[CHacek]n\[EHacek])." }], "Text", CellChangeTimes->{{3.5950857074067993`*^9, 3.595085772975214*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"F", "[", "x_", "]"}], "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}]}]], "Input", CellChangeTimes->{{3.595085774975339*^9, 3.5950857950990753`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"2", " ", "x"}], "-", FractionBox[ SuperscriptBox["x", "2"], "2"], "+", FractionBox[ SuperscriptBox["x", "3"], "15"]}]], "Output", CellChangeTimes->{3.595085795454865*^9, 3.595306383326083*^9}] }, Open ]], Cell["\<\ Tud\[IAcute]\[ZHacek] plocha vypo\[CHacek]\[IAcute]t\[AAcute]van\[AAcute] na \ obr\[AAcute]zku v\[YAcute]\[SHacek]e je p\[RHacek]esn\[EHacek]:\ \>", "Text", CellChangeTimes->{{3.59508579954395*^9, 3.595085821743774*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"F", "[", "b", "]"}], "-", RowBox[{"F", "[", "a", "]"}]}], ",", "10"}], "]"}]], "Input", CellChangeTimes->{{3.595085824125642*^9, 3.595085837203704*^9}}], Cell[BoxData["8.4`10."], "Output", CellChangeTimes->{{3.595085827806755*^9, 3.595085837575191*^9}, 3.595306384876895*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Integr\[AAcute]ln\[IAcute] sou\[CHacek]et", "Section", CellChangeTimes->{{3.595081210900755*^9, 3.595081241692951*^9}}], Cell["\<\ Jak v\[IAcute]me z p\[RHacek]edn\[AAcute]\[SHacek]ek, \ p\[RHacek]ibli\[ZHacek]nou hodnotu ur\[CHacek]it\[EAcute]ho integr\[AAcute]lu \ nemus\[IAcute]me po\[CHacek]\[IAcute]tat pomoc\[IAcute] maxim a minim, kter\ \[AAcute] je slo\[ZHacek]it\[AAcute] hledat, ale m\[URing]\[ZHacek]eme n\ \[AAcute]hodn\[EHacek] volit hodnotu funkce v bod\[EHacek] d\[EHacek]l\ \[IAcute]c\[IAcute]ho intervalu. Pro jednoduchost volme t\[RHacek]eba jeho st\ \[RHacek]ed.\ \>", "Text", CellChangeTimes->{{3.595085974040416*^9, 3.595086042569077*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"delta", "=", RowBox[{ RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}], "/", "n"}]}], ";", "\[IndentingNewLine]", RowBox[{"sigma", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"a", "+", RowBox[{ RowBox[{"(", RowBox[{"i", "-", "1"}], ")"}], "delta"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"hodnoty", "=", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"vyber", "\[Equal]", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{"f", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"sigma", "\[LeftDoubleBracket]", RowBox[{"i", "+", "1"}], "\[RightDoubleBracket]"}], "+", RowBox[{ "sigma", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}], ")"}], "/", "2"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"f", "[", RowBox[{"RandomReal", "[", RowBox[{"{", RowBox[{ RowBox[{ "sigma", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], ",", RowBox[{"sigma", "\[LeftDoubleBracket]", RowBox[{"i", "+", "1"}], "\[RightDoubleBracket]"}]}], "}"}], "]"}], "]"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "sigma", "]"}], "-", "1"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"soucet", "=", RowBox[{"delta", "*", RowBox[{"Plus", "@@", "hodnoty"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Column", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ "\"\\"", "~~", RowBox[{"ToString", "[", RowBox[{"N", "[", "soucet", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "a", ",", "b"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Thick", ",", "Blue"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", ".5"}], ",", "3.5"}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"500", ",", "400"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Prolog", "\[Rule]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"Opacity", "[", ".5", "]"}], ",", RowBox[{"EdgeForm", "[", "Dashed", "]"}]}], "}"}], "~", "Join", "~", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "+", RowBox[{ RowBox[{"(", RowBox[{"i", "-", "1"}], ")"}], "*", "delta"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", RowBox[{"i", "*", "delta"}]}], ",", RowBox[{ "hodnoty", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "hodnoty", "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14", ",", "Italic"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14", ",", "Italic"}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], "}"}], ",", RowBox[{"Alignment", "\[Rule]", "Center"}]}], "\[IndentingNewLine]", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n", ",", "4", ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}]}], "}"}], ",", "2", ",", "30", ",", "1", ",", RowBox[{"ContinuousAction", "\[Rule]", "False"}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"vyber", ",", "\"\\"", ",", "\"\<\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ "\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{ "\"\\"", "\[Rule]", "\"\\""}]}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.595084299657167*^9, 3.5950843753012943`*^9}, 3.59508440996447*^9, {3.595084504612259*^9, 3.5950845900556192`*^9}, { 3.595084623004159*^9, 3.5950846240071697`*^9}, {3.5950846593299227`*^9, 3.595084670010173*^9}, {3.595084708231098*^9, 3.595084777288715*^9}, { 3.595084840908045*^9, 3.5950849713379707`*^9}, {3.595085414793035*^9, 3.595085580472041*^9}, {3.5950858447881317`*^9, 3.595085850165758*^9}, { 3.595086097451741*^9, 3.595086125669383*^9}, {3.595086160036948*^9, 3.5950862694588423`*^9}, {3.595086398592434*^9, 3.5950864032632723`*^9}, { 3.595086939552721*^9, 3.595087020333385*^9}, {3.595087225785657*^9, 3.595087272841744*^9}, 3.595087369993252*^9, {3.595087413815329*^9, 3.5950874147219877`*^9}, {3.595087860211574*^9, 3.5950878745074472`*^9}, { 3.5950882928395653`*^9, 3.5950883155050297`*^9}, {3.595306395646729*^9, 3.5953064068878098`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`n$$ = 10, $CellContext`vyber$$ = "prumery", Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`n$$], 4, Style["n", Italic]}, 2, 30, 1}, {{ Hold[$CellContext`vyber$$], "prumery", ""}, { "nahodne" -> "N\[AAcute]hodn\[EHacek]", "prumery" -> "Pr\[URing]m\[EHacek]ry (st\[RHacek]edy)"}}}, Typeset`size$$ = { 625., {258., 265.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`n$20477$$ = 0, $CellContext`vyber$20478$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`n$$ = 4, $CellContext`vyber$$ = "prumery"}, "ControllerVariables" :> { Hold[$CellContext`n$$, $CellContext`n$20477$$, 0], Hold[$CellContext`vyber$$, $CellContext`vyber$20478$$, False]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ($CellContext`delta = ($CellContext`b - \ $CellContext`a)/$CellContext`n$$; $CellContext`sigma = Table[$CellContext`a + ($CellContext`i - 1) $CellContext`delta, {$CellContext`i, 1, $CellContext`n$$ + 1}]; $CellContext`hodnoty = Table[ If[$CellContext`vyber$$ == "prumery", $CellContext`f[(Part[$CellContext`sigma, $CellContext`i + 1] + Part[$CellContext`sigma, $CellContext`i])/2], $CellContext`f[ RandomReal[{ Part[$CellContext`sigma, $CellContext`i], Part[$CellContext`sigma, $CellContext`i + 1]}]]], {$CellContext`i, 1, Length[$CellContext`sigma] - 1}]; $CellContext`soucet = $CellContext`delta Apply[Plus, $CellContext`hodnoty]; Column[{ StringExpression[ "Hodnota integr\[AAcute]ln\[IAcute]ho sou\[CHacek]tu: ", ToString[ N[$CellContext`soucet]]], Plot[ $CellContext`f[$CellContext`x], {$CellContext`x, $CellContext`a, \ $CellContext`b}, PlotStyle -> {Thick, Blue}, PlotRange -> {-0.5, 3.5}, ImageSize -> {500, 400}, Prolog -> Join[{ Lighter[Blue], Opacity[0.5], EdgeForm[Dashed]}, Table[ Rectangle[{$CellContext`a + ($CellContext`i - 1) $CellContext`delta, 0}, {$CellContext`a + $CellContext`i $CellContext`delta, Part[$CellContext`hodnoty, $CellContext`i]}], {$CellContext`i, 1, Length[$CellContext`hodnoty]}]], AxesLabel -> { Style["x", 14, Italic], Style["y", 14, Italic]}]}, Alignment -> Center]), "Specifications" :> {{{$CellContext`n$$, 4, Style["n", Italic]}, 2, 30, 1, ContinuousAction -> False, Appearance -> "Labeled"}, {{$CellContext`vyber$$, "prumery", ""}, { "nahodne" -> "N\[AAcute]hodn\[EHacek]", "prumery" -> "Pr\[URing]m\[EHacek]ry (st\[RHacek]edy)"}}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{682., {342., 349.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.5950874173410788`*^9, {3.5950875014939213`*^9, 3.595087504883403*^9}, { 3.59508784182885*^9, 3.5950878935700817`*^9}, {3.595088304999936*^9, 3.5950883159941673`*^9}, {3.595090255987599*^9, 3.595090259153812*^9}, { 3.595306389092348*^9, 3.595306407437016*^9}, 3.595309974479958*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Lichob\[EHacek]\[ZHacek]n\[IAcute]kov\[EAcute] pravidlo", "Section", CellChangeTimes->{{3.595081325109336*^9, 3.5950813295575333`*^9}}], Cell[TextData[{ "V p\[RHacek]\[IAcute]pad\[EHacek] bran\[IAcute] pr\[URing]m\[EHacek]rn\ \[EAcute] hodnoty ale nejde o nic jin\[EAcute]ho ne\[ZHacek] o s\[CHacek]\ \[IAcute]t\[AAcute]n\[IAcute] obsah\[URing] \ lichob\[EHacek]\[ZHacek]n\[IAcute]k\[URing]. Pokud si p\[RHacek]edstav\ \[IAcute]te lichob\[EHacek]\[ZHacek]n\[IAcute]k s podstavou ", Cell[BoxData[ FormBox["\[CapitalDelta]", TraditionalForm]], FormatType->"TraditionalForm"], " a svisl\[YAcute]mi stranami dlouh\[YAcute]mi ", Cell[BoxData[ FormBox["a", TraditionalForm]], FormatType->"TraditionalForm"], " a ", Cell[BoxData[ FormBox["b", TraditionalForm]], FormatType->"TraditionalForm"], ", ", Cell[BoxData[ FormBox[ RowBox[{"a", "<", "b"}], TraditionalForm]], FormatType->"TraditionalForm"], ", pak jeho obsah je" }], "Text", CellChangeTimes->{{3.59508853068303*^9, 3.595088605451833*^9}}], Cell[BoxData[ FormBox[ RowBox[{"S", "=", RowBox[{ RowBox[{ RowBox[{"a", "\[CenterDot]", "\[CapitalDelta]"}], "+", RowBox[{ FractionBox["1", "2"], RowBox[{ RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}], "\[CenterDot]", "\[CapitalDelta]"}]}]}], "=", RowBox[{ RowBox[{"\[CapitalDelta]", "\[CenterDot]", FractionBox["1", "2"]}], RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}]}]}]}], TraditionalForm]], "DisplayFormula", CellChangeTimes->{{3.5950886100219097`*^9, 3.5950886534645987`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"EdgeForm", "[", "Dashed", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2.5"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", "16"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.2"}], ",", "1.25"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", "16"}], "]"}], ",", RowBox[{"{", RowBox[{"1.2", ",", "1.5"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<\[CapitalDelta]\>\"", ",", "Italic", ",", "16"}], "]"}], ",", RowBox[{"{", RowBox[{"0.5", ",", RowBox[{"-", ".2"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.595088657854498*^9, 3.5950886723920603`*^9}, { 3.595088719000229*^9, 3.595088832126471*^9}}], Cell[BoxData[ GraphicsBox[ {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], EdgeForm[ Dashing[{Small, Small}]], PolygonBox[{{0, 0}, {1, 0}, {1, 3}, {0, 2.5}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"a\"\>", StripOnInput->False, FontSize->16, FontSlant->Italic], {-0.2, 1.25}], InsetBox[ StyleBox["\<\"b\"\>", StripOnInput->False, FontSize->16, FontSlant->Italic], {1.2, 1.5}], InsetBox[ StyleBox["\<\"\[CapitalDelta]\"\>", StripOnInput->False, FontSize->16, FontSlant->Italic], {0.5, -0.2}]}}]], "Output", CellChangeTimes->{{3.595088731299769*^9, 3.595088744180574*^9}, { 3.595088778117241*^9, 3.595088832488011*^9}, 3.595306452912044*^9, 3.595310090857759*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"delta", "=", RowBox[{ RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}], "/", "n"}]}], ";", "\[IndentingNewLine]", RowBox[{"sigma", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"a", "+", RowBox[{ RowBox[{"(", RowBox[{"i", "-", "1"}], ")"}], "delta"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"hodnoty", "=", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"sigma", "\[LeftDoubleBracket]", RowBox[{"i", "+", "1"}], "\[RightDoubleBracket]"}], "+", RowBox[{ "sigma", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}], ")"}], "/", "2"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "sigma", "]"}], "-", "1"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"soucet", "=", RowBox[{"delta", "*", RowBox[{"Plus", "@@", "hodnoty"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Column", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ "\"\\"", "~~", RowBox[{"ToString", "[", RowBox[{"N", "[", "soucet", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "a", ",", "b"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Thick", ",", "Blue"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", ".5"}], ",", "3.5"}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"500", ",", "400"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Prolog", "\[Rule]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"Opacity", "[", ".5", "]"}], ",", RowBox[{"EdgeForm", "[", "Dashed", "]"}]}], "}"}], "~", "Join", "~", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "+", RowBox[{ RowBox[{"(", RowBox[{"i", "-", "1"}], ")"}], "*", "delta"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", RowBox[{"i", "*", "delta"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", RowBox[{"i", "*", "delta"}]}], ",", RowBox[{"f", "[", RowBox[{"sigma", "\[LeftDoubleBracket]", RowBox[{"i", "+", "1"}], "\[RightDoubleBracket]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", RowBox[{ RowBox[{"(", RowBox[{"i", "-", "1"}], ")"}], "*", "delta"}]}], ",", RowBox[{"f", "[", RowBox[{ "sigma", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "sigma", "]"}], "-", "1"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14", ",", "Italic"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14", ",", "Italic"}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], "}"}], ",", RowBox[{"Alignment", "\[Rule]", "Center"}]}], "\[IndentingNewLine]", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n", ",", "4", ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}]}], "}"}], ",", "2", ",", "30", ",", "1", ",", RowBox[{"ContinuousAction", "\[Rule]", "False"}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.5950881681833553`*^9, 3.595088213239725*^9}, { 3.595088328672594*^9, 3.595088459789474*^9}, {3.595088501059369*^9, 3.5950885042995443`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`n$$ = 10, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`n$$], 4, Style["n", Italic]}, 2, 30, 1}}, Typeset`size$$ = {625., {258., 265.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`n$21642$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`n$$ = 4}, "ControllerVariables" :> { Hold[$CellContext`n$$, $CellContext`n$21642$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ($CellContext`delta = ($CellContext`b - \ $CellContext`a)/$CellContext`n$$; $CellContext`sigma = Table[$CellContext`a + ($CellContext`i - 1) $CellContext`delta, {$CellContext`i, 1, $CellContext`n$$ + 1}]; $CellContext`hodnoty = Table[ $CellContext`f[(Part[$CellContext`sigma, $CellContext`i + 1] + Part[$CellContext`sigma, $CellContext`i])/2], {$CellContext`i, 1, Length[$CellContext`sigma] - 1}]; $CellContext`soucet = $CellContext`delta Apply[Plus, $CellContext`hodnoty]; Column[{ StringExpression[ "Hodnota integr\[AAcute]ln\[IAcute]ho sou\[CHacek]tu: ", ToString[ N[$CellContext`soucet]]], Plot[ $CellContext`f[$CellContext`x], {$CellContext`x, $CellContext`a, \ $CellContext`b}, PlotStyle -> {Thick, Blue}, PlotRange -> {-0.5, 3.5}, ImageSize -> {500, 400}, Prolog -> Join[{ Lighter[Blue], Opacity[0.5], EdgeForm[Dashed]}, Table[ Polygon[{{$CellContext`a + ($CellContext`i - 1) $CellContext`delta, 0}, {$CellContext`a + $CellContext`i $CellContext`delta, 0}, {$CellContext`a + $CellContext`i $CellContext`delta, $CellContext`f[ Part[$CellContext`sigma, $CellContext`i + 1]]}, {$CellContext`a + ($CellContext`i - 1) $CellContext`delta, $CellContext`f[ Part[$CellContext`sigma, $CellContext`i]]}}], \ {$CellContext`i, 1, Length[$CellContext`sigma] - 1}]], AxesLabel -> { Style["x", 14, Italic], Style["y", 14, Italic]}]}, Alignment -> Center]), "Specifications" :> {{{$CellContext`n$$, 4, Style["n", Italic]}, 2, 30, 1, ContinuousAction -> False, Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{682., {325., 332.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.595088462372527*^9, {3.595088504831016*^9, 3.595088519869894*^9}, { 3.595090244494629*^9, 3.595090252051179*^9}, 3.595306456941409*^9, 3.5953101271902437`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Simpsonovo pravidlo", "Section", CellChangeTimes->{{3.595081344949885*^9, 3.5950813475574627`*^9}}], Cell[TextData[{ "Na d\[EHacek]l\[IAcute]c\[IAcute]m intervalu ", Cell[BoxData[ FormBox[ RowBox[{"\[LeftAngleBracket]", RowBox[{"c", ",", "d"}], "\[RightAngleBracket]"}], TraditionalForm]], FormatType->"TraditionalForm"], " nahra\[DHacek]me integrand kvadratickou funkc\[IAcute] (ne p\[RHacek]\ \[IAcute]mkou jako v\[YAcute]\[SHacek]e) proch\[AAcute]zej\[IAcute]c\[IAcute] \ body ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{"c", ",", RowBox[{"f", "(", "c", ")"}]}], ")"}], TraditionalForm]], FormatType->"TraditionalForm"], ", ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{"d", ",", RowBox[{"f", "(", "d", ")"}]}], ")"}], TraditionalForm]], FormatType->"TraditionalForm"], " a pr\[URing]m\[EHacek]rem ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{"m", ",", RowBox[{"f", "(", "m", ")"}]}], ")"}], TraditionalForm]], FormatType->"TraditionalForm"], ", kde ", Cell[BoxData[ FormBox[ RowBox[{"m", "=", FractionBox[ RowBox[{"c", "+", "d"}], "2"]}], TraditionalForm]], FormatType->"TraditionalForm"], ". N\[AAcute]sleduje odvozen\[IAcute] vzorce." }], "Text", CellChangeTimes->{{3.595088911431259*^9, 3.5950890073431253`*^9}, { 3.595090227000066*^9, 3.5950902331522017`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"inter", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"aa", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"bb", " ", "x"}], "+", "cc"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"solution", "=", RowBox[{ RowBox[{"Solve", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"inter", "[", "c", "]"}], "\[Equal]", RowBox[{"ff", "[", "c", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"inter", "[", RowBox[{ RowBox[{"(", RowBox[{"c", "+", "d"}], ")"}], "/", "2"}], "]"}], "\[Equal]", RowBox[{"ff", "[", RowBox[{ RowBox[{"(", RowBox[{"c", "+", "d"}], ")"}], "/", "2"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"inter", "[", "d", "]"}], "\[Equal]", RowBox[{"ff", "[", "d", "]"}]}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc"}], "}"}]}], "\[IndentingNewLine]", "]"}], "//", "First"}]}]}], "Input", CellChangeTimes->{{3.595089017739921*^9, 3.595089132390594*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"aa", "\[Rule]", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"ff", "[", "c", "]"}], "+", RowBox[{"ff", "[", "d", "]"}], "-", RowBox[{"2", " ", RowBox[{"ff", "[", FractionBox[ RowBox[{"c", "+", "d"}], "2"], "]"}]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"c", "-", "d"}], ")"}], "2"]]}], ",", RowBox[{"bb", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"c", " ", RowBox[{"ff", "[", "c", "]"}]}], "+", RowBox[{"3", " ", "d", " ", RowBox[{"ff", "[", "c", "]"}]}], "+", RowBox[{"3", " ", "c", " ", RowBox[{"ff", "[", "d", "]"}]}], "+", RowBox[{"d", " ", RowBox[{"ff", "[", "d", "]"}]}], "-", RowBox[{"4", " ", "c", " ", RowBox[{"ff", "[", FractionBox[ RowBox[{"c", "+", "d"}], "2"], "]"}]}], "-", RowBox[{"4", " ", "d", " ", RowBox[{"ff", "[", FractionBox[ RowBox[{"c", "+", "d"}], "2"], "]"}]}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"c", "-", "d"}], ")"}], "2"]]}]}], ",", RowBox[{"cc", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "c"}], " ", "d", " ", RowBox[{"ff", "[", "c", "]"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"ff", "[", "c", "]"}]}], "-", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"ff", "[", "d", "]"}]}], "-", RowBox[{"c", " ", "d", " ", RowBox[{"ff", "[", "d", "]"}]}], "+", RowBox[{"4", " ", "c", " ", "d", " ", RowBox[{"ff", "[", FractionBox[ RowBox[{"c", "+", "d"}], "2"], "]"}]}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"c", "-", "d"}], ")"}], "2"]]}]}]}], "}"}]], "Output", CellChangeTimes->{{3.595089108655056*^9, 3.5950891328078527`*^9}, 3.595306465723271*^9, 3.595310361336569*^9}] }, Open ]], Cell[TextData[{ "Integrujme tuto funkce na ", Cell[BoxData[ FormBox[ RowBox[{"\[LeftAngleBracket]", RowBox[{"c", ",", "d"}], "\[RightAngleBracket]"}], TraditionalForm]], FormatType->"TraditionalForm"], ", dost\[AAcute]v\[AAcute]me:" }], "Text", CellChangeTimes->{{3.59508914297626*^9, 3.595089163719719*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"inter", "[", "x", "]"}], "/.", "solution"}], ",", RowBox[{"{", RowBox[{"x", ",", "c", ",", "d"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5950891656101913`*^9, 3.595089175364143*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox["1", "6"]}], " ", RowBox[{"(", RowBox[{"c", "-", "d"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"ff", "[", "c", "]"}], "+", RowBox[{"ff", "[", "d", "]"}], "+", RowBox[{"4", " ", RowBox[{"ff", "[", FractionBox[ RowBox[{"c", "+", "d"}], "2"], "]"}]}]}], ")"}]}]], "Output", CellChangeTimes->{3.595089176092873*^9}] }, Open ]], Cell[TextData[{ "Dost\[AAcute]v\[AAcute]me tak Simpsonovo pravidlo, kter\[EAcute] spo\ \[CHacek]\[IAcute]v\[AAcute] v nahrazen\[IAcute] integr\[AAcute]lu nad \ intervalem ", Cell[BoxData[ FormBox[ RowBox[{"\[LeftAngleBracket]", RowBox[{"c", ",", "d"}], "\[RightAngleBracket]"}], TraditionalForm]], FormatType->"TraditionalForm"], " integr\[AAcute]lem z tohoto kvadratick\[EAcute]ho interpolantu. Konkr\ \[EAcute]tn\[EHacek]" }], "Text", CellChangeTimes->{{3.595089199552381*^9, 3.595089255728652*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "c", "d"], RowBox[{ RowBox[{"f", "(", "x", ")"}], RowBox[{"\[DifferentialD]", "x"}]}]}], "\[TildeTilde]", RowBox[{ FractionBox["1", "6"], RowBox[{"(", RowBox[{"d", "-", "c"}], ")"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"f", "(", "c", ")"}], "+", RowBox[{"f", "(", "d", ")"}], "+", RowBox[{"4", RowBox[{"f", "(", FractionBox[ RowBox[{"c", "+", "d"}], "2"], ")"}]}]}], ")"}], "."}]}]}], TraditionalForm]], "DisplayFormula", CellChangeTimes->{{3.5950892709158382`*^9, 3.595089323302862*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], "=", RowBox[{"2", "+", RowBox[{"Sin", "[", RowBox[{"4", "x"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"goal", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "a", ",", "b"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"delta", "=", RowBox[{ RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}], "/", "n"}]}], ";", "\[IndentingNewLine]", RowBox[{"sigma", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"a", "+", RowBox[{ RowBox[{"(", RowBox[{"i", "-", "1"}], ")"}], "delta"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"simpson", "=", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ FractionBox["1", "6"], "delta", RowBox[{"(", RowBox[{ RowBox[{"f", "[", RowBox[{ "sigma", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "]"}], "+", RowBox[{"f", "[", RowBox[{"sigma", "\[LeftDoubleBracket]", RowBox[{"i", "+", "1"}], "\[RightDoubleBracket]"}], "]"}], "+", RowBox[{"4", RowBox[{"f", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ "sigma", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "+", RowBox[{"sigma", "\[LeftDoubleBracket]", RowBox[{"i", "+", "1"}], "\[RightDoubleBracket]"}]}], ")"}], "/", "2"}], "]"}]}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "sigma", "]"}], "-", "1"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"soucet", "=", RowBox[{"Plus", "@@", "simpson"}]}], ";", "\[IndentingNewLine]", RowBox[{"Column", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"\"\\"", "~~", RowBox[{"ToString", "[", RowBox[{"N", "[", "soucet", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "~~", RowBox[{"ToString", "[", RowBox[{"N", "[", "goal", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "a", ",", "b"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Thick", ",", "Blue"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", ".5"}], ",", "3.5"}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"500", ",", "400"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14", ",", "Italic"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14", ",", "Italic"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Prolog", "\[Rule]", RowBox[{ RowBox[{"{", RowBox[{"Gray", ",", "Dashed"}], "}"}], "~", "Join", "~", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "sigma", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ "sigma", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], ",", RowBox[{"f", "[", RowBox[{ "sigma", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "sigma", "]"}]}], "}"}]}], "]"}]}]}]}], "\[IndentingNewLine]", "]"}]}], "}"}], ",", RowBox[{"Alignment", "\[Rule]", "Center"}]}], "\[IndentingNewLine]", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n", ",", "4", ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}]}], "}"}], ",", "2", ",", "30", ",", "1", ",", RowBox[{"ContinuousAction", "\[Rule]", "False"}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], "Input", CellChangeTimes->{{3.595084299657167*^9, 3.5950843753012943`*^9}, 3.59508440996447*^9, {3.595084504612259*^9, 3.5950845900556192`*^9}, { 3.595084623004159*^9, 3.5950846240071697`*^9}, {3.5950846593299227`*^9, 3.595084670010173*^9}, {3.595084708231098*^9, 3.595084777288715*^9}, { 3.595084840908045*^9, 3.5950849713379707`*^9}, {3.595085414793035*^9, 3.595085580472041*^9}, {3.5950858447881317`*^9, 3.595085850165758*^9}, { 3.595089376032089*^9, 3.5950894799420433`*^9}, {3.595089735024391*^9, 3.595089759082129*^9}, {3.5950897991041193`*^9, 3.595089932530629*^9}, { 3.595090077645521*^9, 3.595090176864285*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`n$$ = 10, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`n$$], 4, Style["n", Italic]}, 2, 30, 1}}, Typeset`size$$ = { 625., {269.5, 276.5}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`n$21890$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`n$$ = 4}, "ControllerVariables" :> { Hold[$CellContext`n$$, $CellContext`n$21890$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ($CellContext`delta = ($CellContext`b - \ $CellContext`a)/$CellContext`n$$; $CellContext`sigma = Table[$CellContext`a + ($CellContext`i - 1) $CellContext`delta, {$CellContext`i, 1, $CellContext`n$$ + 1}]; $CellContext`simpson = Table[(1/6) $CellContext`delta ($CellContext`f[ Part[$CellContext`sigma, $CellContext`i]] + $CellContext`f[ Part[$CellContext`sigma, $CellContext`i + 1]] + 4 $CellContext`f[(Part[$CellContext`sigma, $CellContext`i] + Part[$CellContext`sigma, $CellContext`i + 1])/ 2]), {$CellContext`i, 1, Length[$CellContext`sigma] - 1}]; $CellContext`soucet = Apply[Plus, $CellContext`simpson]; Column[{ StringExpression["Hodnota sou\[CHacek]tu podle Simpsona: ", ToString[ N[$CellContext`soucet]]], StringExpression["Skute\[CHacek]n\[AAcute] hodnota: ", ToString[ N[$CellContext`goal]]], Plot[ $CellContext`f[$CellContext`x], {$CellContext`x, $CellContext`a, \ $CellContext`b}, PlotStyle -> {Thick, Blue}, PlotRange -> {-0.5, 3.5}, ImageSize -> {500, 400}, AxesLabel -> { Style["x", 14, Italic], Style["y", 14, Italic]}, Prolog -> Join[{Gray, Dashed}, Table[ Line[{{ Part[$CellContext`sigma, $CellContext`i], 0}, { Part[$CellContext`sigma, $CellContext`i], $CellContext`f[ Part[$CellContext`sigma, $CellContext`i]]}}], \ {$CellContext`i, 1, Length[$CellContext`sigma]}]]]}, Alignment -> Center]), "Specifications" :> {{{$CellContext`n$$, 4, Style["n", Italic]}, 2, 30, 1, ContinuousAction -> False, Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{682., {337., 344.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.595089447524706*^9, 3.595089483080749*^9}, { 3.595089759822237*^9, 3.595089786820726*^9}, {3.595089832368204*^9, 3.5950898895311003`*^9}, {3.595089932950436*^9, 3.595089941061489*^9}, { 3.595090160938409*^9, 3.595090181832114*^9}, {3.595090213663417*^9, 3.595090213950295*^9}, 3.59531042946765*^9}] }, Open ]], Cell["\<\ Nen\[IAcute] jednoduch\[EAcute] napo\[CHacek]\[IAcute]t\[AAcute]vat \ kvadratick\[EAcute] interpolace, proto zobrazujeme jenom \[SHacek]\[IAcute]\ \[RHacek]ky sloupc\[URing] pro ilustraci.\ \>", "Text", CellChangeTimes->{{3.595090189335655*^9, 3.595090210271635*^9}}] }, Open ]] }, Open ]] }, WindowSize->{1022, 747}, WindowMargins->{{0, Automatic}, {2, Automatic}}, Magnification:>1.25 Inherited, FrontEndVersion->"9.0 for Linux x86 (64-bit) (January 25, 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 116, 1, 114, "Title"], Cell[698, 25, 209, 4, 62, "Subtitle"], Cell[910, 31, 795, 22, 77, "Text"], Cell[1708, 55, 507, 14, 117, "Input"], Cell[2218, 71, 636, 17, 64, "Text"], Cell[CellGroupData[{ Cell[2879, 92, 987, 25, 139, "Input"], Cell[3869, 119, 7977, 139, 311, "Output"] }, Open ]], Cell[11861, 261, 829, 24, 89, "Text"], Cell[CellGroupData[{ Cell[12715, 289, 1300, 34, 164, "Input"], Cell[14018, 325, 8438, 139, 313, "Output"], Cell[22459, 466, 146, 2, 38, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[22642, 473, 184, 2, 98, "Section"], Cell[22829, 477, 1033, 29, 79, "Text"], Cell[23865, 508, 616, 20, 89, "Input"], Cell[24484, 530, 211, 4, 38, "Text"], Cell[24698, 536, 2428, 63, 414, "Input"], Cell[27129, 601, 129, 3, 38, "Text"], Cell[CellGroupData[{ Cell[27283, 608, 4189, 109, 514, "Input"], Cell[CellGroupData[{ Cell[31497, 721, 349, 7, 28, "Print"], Cell[31849, 730, 7749, 161, 303, "Print"], Cell[39601, 893, 349, 7, 28, "Print"], Cell[39953, 902, 7738, 161, 303, "Print"] }, Open ]] }, Open ]], Cell[47718, 1067, 240, 5, 38, "Text"], Cell[47961, 1074, 230, 5, 38, "Input"], Cell[48194, 1081, 267, 5, 38, "Text"], Cell[CellGroupData[{ Cell[48486, 1090, 5413, 135, 639, "Input"], Cell[53902, 1227, 3929, 78, 711, "Output"] }, Open ]], Cell[57846, 1308, 387, 11, 38, "Text"], Cell[CellGroupData[{ Cell[58258, 1323, 236, 6, 38, "Input"], Cell[58497, 1331, 240, 7, 60, "Output"] }, Open ]], Cell[58752, 1341, 231, 4, 38, "Text"], Cell[CellGroupData[{ Cell[59008, 1349, 228, 6, 38, "Input"], Cell[59239, 1357, 126, 2, 38, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[59414, 1365, 126, 1, 98, "Section"], Cell[59543, 1368, 540, 9, 88, "Text"], Cell[CellGroupData[{ Cell[60108, 1381, 6694, 158, 739, "Input"], Cell[66805, 1541, 4156, 83, 711, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[71010, 1630, 142, 1, 98, "Section"], Cell[71155, 1633, 881, 24, 63, "Text"], Cell[72039, 1659, 572, 18, 61, "DisplayFormula"], Cell[CellGroupData[{ Cell[72636, 1681, 1588, 43, 239, "Input"], Cell[74227, 1726, 823, 23, 558, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[75087, 1754, 5479, 137, 614, "Input"], Cell[80569, 1893, 3569, 73, 677, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[84187, 1972, 106, 1, 98, "Section"], Cell[84296, 1975, 1270, 40, 103, "Text"], Cell[CellGroupData[{ Cell[85591, 2019, 1222, 34, 217, "Input"], Cell[86816, 2055, 2100, 63, 205, "Output"] }, Open ]], Cell[88931, 2121, 324, 9, 39, "Text"], Cell[CellGroupData[{ Cell[89280, 2134, 278, 7, 38, "Input"], Cell[89561, 2143, 418, 14, 58, "Output"] }, Open ]], Cell[89994, 2160, 517, 12, 64, "Text"], Cell[90514, 2174, 683, 22, 61, "DisplayFormula"], Cell[CellGroupData[{ Cell[91222, 2200, 6150, 152, 730, "Input"], Cell[97375, 2354, 3598, 71, 701, "Output"] }, Open ]], Cell[100988, 2428, 278, 5, 62, "Text"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)