(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 8.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 93253, 2160] NotebookOptionsPosition[ 89244, 2026] NotebookOutlinePosition[ 89709, 2044] CellTagsIndexPosition[ 89666, 2041] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Probl\[EAcute]m s funkc\[IAcute] arccotg x", "Subsubsection", CellChangeTimes->{{3.509987096828125*^9, 3.509987127*^9}}], Cell["\<\ P\[RHacek]i prob\[IAcute]r\[AAcute]n\[IAcute] cyklometrick\[YAcute]ch funkc\ \[IAcute] v matematice jsme narazili na probl\[EAcute]m. Program Mathematica \ zobrazuje graf funkce y = arccotg x takto :\ \>", "Text", CellChangeTimes->{{3.5105484026274724`*^9, 3.5105484781743474`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"ArcCot", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", " ", RowBox[{"-", "8"}], ",", "8"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.509866703375*^9, 3.50986670575*^9}, { 3.50986733834375*^9, 3.50986734496875*^9}, {3.5098684575*^9, 3.5098685355625*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVlHk0FfgDxW3Jlj1L2SoRWaJG0WSPhiSalJpUmigtSpbKLj+k0mQQpTKJ SBEqS033S5ZneZaHh2dfnt2T/ZFl+v1xzz3nfv6759y7ydnd/jwXBwdHzE/9 37WMpEZWVxXJnZdG7wubAPeFLRELi4qk6TxVMJMBvM/VUZmeVSQUhcKJl12A 7jYb54FRRZLuFHbk0TCwWyyUUd2sSN4ttj0PWgaM+yYrE7IUSYz+16lGcQL7 cGrGztOK5McJMbW4vQQ+taFXXL8qkImtB+IePCRobBQcKTorT7QurWcU2BVB nrhL7paTIwY/vhVnSxfj46WSNSIdG4je19mU+NFinLmv8701RJZ0eEUcPjb0 Dexo3wgYyZAizxQXrvESJAt3ysb3SBHbOKN0YdUyJFrpeDTcXU/Mr3w0mA0q R8jlszfVfpMkD5vP1VwdpcCX+42Px7g4uX74wvWwtEqcDapVpqeJkXPiQl+4 7lQj9l9mfKKbKHlUVJgb87gGhV3bhN5uFiZazv46p5/Wwe9XzndPZISJydd3 FplJddiX0GpzV1iYXF/VzuRIrQOxj3zosriOSG11Csp6X4fy0lHxTbR1ZMOt hPBfyurQmJEpGxe8jjgWRHQxJ+vA8tmlGtQtRHyMK91Z1vXYImps+vtzQeL9 hYQ4C9IQtaPnttvfgoRb+oukqjgN7MMhuUERgiR3s2vCdxkaqh+VKL/zECRn OacfRqvQ4Cnx21peS0ES0HavXNyUhjIp++q8CQHiH/JGhf82DW7yfzpsNBEg qu70K7PjNOSoR7j19vERTjkrM5XBBijWnynY3spH+r61tmhPNOC+jz6fVw0f Ea8Mzzeab8D5kpGUtQV8xNS/ycNjbSNknGx6NKL4yJXLL54pb2uE/yPx4z57 +MjngxamxW6NOMBO3C/0YC3J/pBXIjPbiK7SbCU9PV7iczM3QkCJDr8jC+Z7 NHgJX3pt1141OmR6jC8abOYlv20NjvLUpePwUm22oTAvcUs6J7lkTgfRZZla Dqwhh9yls/90oyPphfr543FryDm1rbXJn+hwvpWcfnuOh7gxcEz2aDNWeEep fmM8ZJ0fH8vidDOexOhOBfTyEFrJJJf/xWbQsooM7tTwkJhV/XqugGaYDXRV 3UvlIfTHPIrer5uhfESOlejAQ5bnFt7xLDWDqRGri0/cREwzxUX4bQvUA1JY QxncpOnzJ1uH/BZcrf34RvwfbpJckcRIL2kB+zp9s8s9bjKTmiLp2dECgTxp iXVnuEmrErUpTqQVO0yeTJ/g5yZnpA0oW7xb4Xv0xYe5k1wEGeyNDQcZIKlZ 15TsuIi4rldK1gkGeNjQsLLgIpRrQksJFxiIetL96tkOLqJZv3QqPpSBpK5N seZruMiUzIkNhv8yUHbxlVd0Jifp9YkRM9Jpg1hAup4WJycp/F+YWYZyO8I+ baOIznOQjMrJsD92tmOR9dpxeoyDkIiHKnKm7eg9neqX38JB8ppiKGWn25Fj klxs+p6DHMzXL6562g77Nc8OHTvNQYTt561TpTqgKruJyuG7inKRrmpdmU6I Rip+L3VZxZkfDbPN2zrBXpSXuGe/im1WZlpR+p2gtG9wXK++iizqO02tk524 kCTJVGtdQcvn/aJGLzrxRpVv2X73ChiTlN2F6l3Q0JvQSJleglVyWN6Aajdc tAIDCzqWQLrkA7V0u/FCRYRGLV9CcZKDUciv3RCX1vaZe7qE/d4LMzZ23Zif v1pkaf6TRzy0vunbjeIC1tGRmB/4YH2iWo3WjeP7WAHaeosYqlrO/+tuD6J/ Cag3U1oEVWf724DYHlRpCisfF1iEerbmbt9/emCooFUR1LmAGKMMj6SCHmxZ vSJBC1vAD8OTG56P9IBFxl97NrOx3uHGfV/bXtwxH68ruDkP2Vv+dR5b+1B8 YMx217l5VG9/ZrhlZx84bEZrMm3m0c4Y7e437oPf0eHq5M3zcKLXaif+0Qdv FyblQfUcmuJNODpj+nAhooOcVZpDeMxFy3K+fhyspr7np8ygInjKhmO1H5F1 1dqhOTNIW+Z/KSLCBKWxKnMlcQZW1NjRnYpM7O+oeDt9fQYeXP/0fjZiwpBV mtaxcQZ1Ut+5qMFM7BD9mpTtPg3XupY0MYEBrP898y9H6SlMyOfEy2oMIkfl XuF+7ilQQqX3lOwbxOEF136diUlkuVQOhdoOIvL5pj0C5ZNoVZucP3BjECtD MV2F3pPwanqj0vV5EAP+vlpy9O/ouR5JdbIbwlXbR/H/qk3AgcfjUFjUMNJm rMZiOSeQmaZpqZ08jN4EHuOrrSyoi+XqT+UNw6HfZ1DhLgtXDCQiy3qGYXTL SS9oaBx/B8davtUbgWjy9kbT12NICV/xD2eOIGeuVISi/DMvyq+wOz6GqDcv iw0XhjFQO6gW6DGGS06BXh+pw7B4nOpbe38MymV72l56D8PfIsavtWgMcbEZ qf6UIbzy//gkTnMct3c92rfz8iD08/mX6gRZMPX449Lz3H7wi0kf4u2fQEob 88FwaCfi5oKZ53/2xPCTevFsZyeOGQzKLEtMQVjB8r1dbwciLn2Mf6U8Be8z abQCow7kx7KtlS2mYMF0k45cbMOIkCsn8+4UhlgTSerXWkGr9LlxSnIa6lyL uZdONsIZa1P+3jUDp2T1UkWBRrgq6B8VsZxBtPlJekP+z98OV7ga7ziDxbAv 7L1SDTgi0GlNC5hBlWDgPqH6emzaXJLeXTGDFnW+KMcHNdjRPyu833kWp+zk PrSdKwH/dOaziSdzGJue1fcq+QYTibqRs5lz8IurhfDWbyg8fye8rWgOiW0h VSYDRRAKtW/pG5rDhypaqW39VwQ83cAw3T2PrJnLW4YYH+BY8UOAv2keNfpK 2hsTc6FRIaRFH5oHK6DB4NCpHOzaNy7+emkex8U9X11AFsoN8nSPKLNxZK8w F2dFCjKkvXVqbrARXeop62qdDFLOV50TzkadbdsOKjUJZidWzBKesvGUchi6 KY/hFpVAd/vGhkyHPGslPRpTs3u9j/7c5fa+Jv24U/dw463ZsvEoGypC1x5r uQaDqbqkqbnKhv4a7dfdTE9UqwUGrl+3gP8ArwUrSw== "]], LineBox[CompressedData[" 1:eJwVymlcDPoCh/HG0KqUFirNVK4olcJBafz+hSLEIemKSdpQSEqlQ7QipxKS Srs9FaIQM22klGqUoX1VSdM+05jqui+ez/Pmq3X45G7XWWJiYnf+9P+bzFlx v63bB590g4KUZSfRMBycIi/wx+1LffuoUpMY2rl05KR3OBjphv0q4wIEXres 8Fgdg2UNDySWtwswfT4gMWXFTVTvURxElQAXjmV5cvQS4PJMrXHvKwFKNC9H 3JFPh8sDG1bYNQFC47S91kZlInqHs3HqOQEs5xba18rch61iU0rhUQHK+YO6 cySyUHLc1k1kLoC7u57by+lnqBnpYSSP8LFF229/CCMP5ocj1n1u4WNZc4nN rn9eoMJCW3F2JR/9uw+u7Z/MR5Paub1nM/jw3BAjSRsvhEvYrLMptny8kg6s L/YtQcZ5rVPT+RNINVDm5GiXomA8V6MjfQLhu3Jqkj6XQvPA9OXqfydgG9dZ eUb3PQ5Em+YUO09gSGt7sV5zORYfMnWiy09Ax0QjJ3ZTNR6uzj7XfmwcH587 bnp6+Que9l65oqQ3BrMy/ZKlbV+g119lHaIyhtyGSfPkNfX4xldIpFDHEDd5 HZGd9XDXc4gwaBqFC8pNXRlfkddfkWAZPYqZCiNj1eFvkE1f1ZEgGMFfHRTa RftWpH2OZoZyh2H4et+w0cNW2Ofo3rYqH4ZO7JPStslWhEUaKKgXDEMmLeuv 1B1tiLSa2zhyaxiiXfZNM4NtGFpES3OzH0Zzbo4uy7gDYRqrg5ybhpDixSxl 5Hehn8LJ9W/nIemAVPbN1i7cjPRerl7GQ/yWvFu/JLqxWS9yR8sDHmI0pT3u 2HejenrZ3vdePFyoeaEwNdmNKTuLXvVZPDgZyToWmv3AzH2Zqmq9QSweejNp WtyH0rSqg2XXB/BP1cbQsV994BNRrk3AABoeVcplq/Yj57Pd9t/MAVxxbVys daofrDja57d6Axj6LtwhofkT62J7VbtKfuJdmUk659wAzH2Put0U9WN/Yr61 pwkP5nlZbwPD+5Dnj/olrjxsL/tr8D9efZCz++DYGsOD65PHUQP/7UOR/Fef 3b08MC6u+afBoA9KGwN3Jm0bgqG/0nX5r70ILEgICBYOwTbAlyo07MXWjG9V NvYjeBVxdG7EaA+GwrLdyo6PYGIBJ1aivQfxR0Jm1oeM4HvM6YTU6h70GhgY 62aPwJoXkqj+qAeXCi7coM4eReHAzpPGh3tQXrXUoSBnFJvucxe/beiGlcC3 V0tiHD3LGXmHa7ow+N36Yvyicaysue+Zw+5C3Fu62ryV4/Dd28uUf9qFnuCP 20QHxjFi9dxbLrYL4bIaOQ3PxqG1xukX37YL77VLfSOZE8gLWnfctaUTm3fM p46/4KMr7LZv83QHopykhic/8tHhsL7g4EgHuL5irdPNfOzyCjox0N2BY8mD ryXFBfhZL2hbXfXH8yq8F9kJwDDpu3Yy6Y+/FtKxcUIAmmag/lnGH98wVhS7 RogHYT71+y+343n/z5xb1kI47zTKCT7fDtF0x50kphAreE7RL0+3I2ppbcC9 cCFuUFdqWDD/eP8nxq8bhAhT773Ss+qPV3NLaz/zG4o1R37ubW9DtOPXC0b5 Ioz9LpvP3NSG8AEz9HwS4Uzniww10zacD0ifSuwQoZNWIda5og0nrh8/KyE3 BZ5efEOcehtsPlB9WlymoOnzfEzhRyvkVhi5X50/jXG394/nbWtF1PSlHb3H ZzC5/NFWvnYLwiMHZZJDZqCuIwzUUmjB+YW2FXtuz6Bmi5qB40wzTqykW7FK Z/C42PKWUlMzlj7fr1kpK0YKtQfdXOKaIfFjSDXdRYzYLZD2DZJrxgcbDdld 8ynE5c0qoz6ZJigZtqt4L6KQpEZayr6pRhySvat5Q4dCFopmG30ZbISwUn81 15RCXDNfevBrG6G/1czhkDOFVFbSGF3xjYjZ6PDQK49CQuUvb7DSbcT+dbc3 X7ObRWIy9JgFe77jl5by+boEKuFc87KorORiXWDaqaJMKnGz+73Sn81F8BcD 19xsKsk4vWzE8AUXKhGW26OKqWQx2z3rVTIXGwb81Kz7qSRc9miphTcX0S+/ vywymU3e67sfUFXnwnhbKi+XO5tQrpqdu3L6K3x9ljtFq4iTwsRrjywYDVCR 5hXaaYkTxRdWUlarGlCQ8mwhTV+cUFfLTe/RbYCowqQmy1yckNdXgiKUGxCs tQUVnuLkSZ3Muz2D9YiqdtGYUyJOOlqkzPzT6nFvWfK3sycliLr/JX6WbD2+ NsnvdiuXJGM7//Ws/c2BdaQr16dOktgdio4xG+Og0OQ1M6RJknD/Nd34ZICD 1Dhnj9QhSaJ0mMpIaebgyK6Xod8XShFrMWZrKYsDYYlDvs1RKWJpympTCONg 0eN7i9ZKS5Nfss0eVxU5OBRg9kNiuwzJVGxe+GNDHfRcyusH7WQI4+S9G9R1 dRi1sS2td5Ih/FWLaEuM6xD+H8+0DD8ZMr8paJPf4jpkfU50QIYM8Xbv27pP sg6TS35/PiOUIQdD592lcGoRW/eqoPvBXPJMd9ivyaMWJcvXXimZI0cSswND 7j2qgY5UYW/mFnlSTWeOTnyphkahx+Y5lxTIoYRQnTsvP0FMOOuhd8d80lnA lkrMrwD/77fMsiVKJOo2XVpV5SMaVzuqLwlVJmzhEWfxiA/w2ievoN2kQhZ4 pAZv0H8P1Rtd9rM1FpKWit3OSdJlyHZIvT/qr0q0sj4pj/FKsI8RtKX8rRop Odk97EYpwVPmcW1TkTpB12WGqn4xBNIbqa/2apDDW5gZ7+yLsLt2/RqNeBpp 1lOgz81kQ3q9TFHhHRp5G1R4RjyNjaLM79sOZNBIy920bkoyG0b+AU6J2TTy gVIkLrrFhhw9/6pqGY1cjRGznIpk46Pnyk7lERqJGTVfu8qHDSKpGyO3nU4m ZkZ4RzazITglUMv+m06StN8ohlmwkdP44e6OfXTiJ8kySwcbtBy3N1cP04ma t21Sqwkbor2ZPdIBdBI6VhzsZshGfgadIXGPTi6+sTmTuYCNE7K8D/ce00kE wyC7RokNHb93uy2f0kl3XGPHlAIbN6wPHgkrpJOsC7eJw1w2vIcTrlM5dOL2 dStLi8KGnsMxWgaXTt75Pkh+LGKhvdTkoUULncyirslV5rOwK5777mIfnehY vMjg/WRBctaDrVo8OrkTdzfEsYcFloffF/YYnXiPy/xd28bCmXpLx0NCOpnn 3ie9uZEFQ6j0z8zQSUg6cl/Xs/A/PI3QIA== "]]}, {}}, {{}, {}, {}}}, Axes->True, AxesLabel->{ FormBox["x", TraditionalForm], FormBox["y", TraditionalForm]}, AxesOrigin->{0, 0}, PlotRange->{{-8, 8}, {-1.5656943302479815`, 1.5656943302479815`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.50986848046875*^9, 3.509868536546875*^9}, 3.509877671546875*^9, 3.509879972421875*^9, 3.50998549771875*^9, 3.510634329*^9, 3.510634492328125*^9}] }, Open ]], Cell["\<\ Dopln\[IAcute]me do grafu asymptotu y = \[Pi] :\ \>", "Text", CellChangeTimes->{{3.5105485032055974`*^9, 3.5105485382212224`*^9}, 3.5110135377362003`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ArcCot", "[", "x", "]"}], ",", "\[Pi]"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", " ", RowBox[{"-", "8"}], ",", "8"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.509866703375*^9, 3.50986670575*^9}, { 3.50986733834375*^9, 3.50986734496875*^9}, {3.5098684575*^9, 3.50986857025*^9}, 3.5098686103125*^9, 3.50988024496875*^9}], Cell[BoxData[ GraphicsBox[{{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVlHk0FfgDxW3Jlj1L2SoRWaJG0WSPhiSalJpUmigtSpbKLj+k0mQQpTKJ SBEqS033S5ZneZaHh2dfnt2T/ZFl+v1xzz3nfv6759y7ydnd/jwXBwdHzE/9 37WMpEZWVxXJnZdG7wubAPeFLRELi4qk6TxVMJMBvM/VUZmeVSQUhcKJl12A 7jYb54FRRZLuFHbk0TCwWyyUUd2sSN4ttj0PWgaM+yYrE7IUSYz+16lGcQL7 cGrGztOK5McJMbW4vQQ+taFXXL8qkImtB+IePCRobBQcKTorT7QurWcU2BVB nrhL7paTIwY/vhVnSxfj46WSNSIdG4je19mU+NFinLmv8701RJZ0eEUcPjb0 Dexo3wgYyZAizxQXrvESJAt3ysb3SBHbOKN0YdUyJFrpeDTcXU/Mr3w0mA0q R8jlszfVfpMkD5vP1VwdpcCX+42Px7g4uX74wvWwtEqcDapVpqeJkXPiQl+4 7lQj9l9mfKKbKHlUVJgb87gGhV3bhN5uFiZazv46p5/Wwe9XzndPZISJydd3 FplJddiX0GpzV1iYXF/VzuRIrQOxj3zosriOSG11Csp6X4fy0lHxTbR1ZMOt hPBfyurQmJEpGxe8jjgWRHQxJ+vA8tmlGtQtRHyMK91Z1vXYImps+vtzQeL9 hYQ4C9IQtaPnttvfgoRb+oukqjgN7MMhuUERgiR3s2vCdxkaqh+VKL/zECRn OacfRqvQ4Cnx21peS0ES0HavXNyUhjIp++q8CQHiH/JGhf82DW7yfzpsNBEg qu70K7PjNOSoR7j19vERTjkrM5XBBijWnynY3spH+r61tmhPNOC+jz6fVw0f Ea8Mzzeab8D5kpGUtQV8xNS/ycNjbSNknGx6NKL4yJXLL54pb2uE/yPx4z57 +MjngxamxW6NOMBO3C/0YC3J/pBXIjPbiK7SbCU9PV7iczM3QkCJDr8jC+Z7 NHgJX3pt1141OmR6jC8abOYlv20NjvLUpePwUm22oTAvcUs6J7lkTgfRZZla Dqwhh9yls/90oyPphfr543FryDm1rbXJn+hwvpWcfnuOh7gxcEz2aDNWeEep fmM8ZJ0fH8vidDOexOhOBfTyEFrJJJf/xWbQsooM7tTwkJhV/XqugGaYDXRV 3UvlIfTHPIrer5uhfESOlejAQ5bnFt7xLDWDqRGri0/cREwzxUX4bQvUA1JY QxncpOnzJ1uH/BZcrf34RvwfbpJckcRIL2kB+zp9s8s9bjKTmiLp2dECgTxp iXVnuEmrErUpTqQVO0yeTJ/g5yZnpA0oW7xb4Xv0xYe5k1wEGeyNDQcZIKlZ 15TsuIi4rldK1gkGeNjQsLLgIpRrQksJFxiIetL96tkOLqJZv3QqPpSBpK5N seZruMiUzIkNhv8yUHbxlVd0Jifp9YkRM9Jpg1hAup4WJycp/F+YWYZyO8I+ baOIznOQjMrJsD92tmOR9dpxeoyDkIiHKnKm7eg9neqX38JB8ppiKGWn25Fj klxs+p6DHMzXL6562g77Nc8OHTvNQYTt561TpTqgKruJyuG7inKRrmpdmU6I Rip+L3VZxZkfDbPN2zrBXpSXuGe/im1WZlpR+p2gtG9wXK++iizqO02tk524 kCTJVGtdQcvn/aJGLzrxRpVv2X73ChiTlN2F6l3Q0JvQSJleglVyWN6Aajdc tAIDCzqWQLrkA7V0u/FCRYRGLV9CcZKDUciv3RCX1vaZe7qE/d4LMzZ23Zif v1pkaf6TRzy0vunbjeIC1tGRmB/4YH2iWo3WjeP7WAHaeosYqlrO/+tuD6J/ Cag3U1oEVWf724DYHlRpCisfF1iEerbmbt9/emCooFUR1LmAGKMMj6SCHmxZ vSJBC1vAD8OTG56P9IBFxl97NrOx3uHGfV/bXtwxH68ruDkP2Vv+dR5b+1B8 YMx217l5VG9/ZrhlZx84bEZrMm3m0c4Y7e437oPf0eHq5M3zcKLXaif+0Qdv FyblQfUcmuJNODpj+nAhooOcVZpDeMxFy3K+fhyspr7np8ygInjKhmO1H5F1 1dqhOTNIW+Z/KSLCBKWxKnMlcQZW1NjRnYpM7O+oeDt9fQYeXP/0fjZiwpBV mtaxcQZ1Ut+5qMFM7BD9mpTtPg3XupY0MYEBrP898y9H6SlMyOfEy2oMIkfl XuF+7ilQQqX3lOwbxOEF136diUlkuVQOhdoOIvL5pj0C5ZNoVZucP3BjECtD MV2F3pPwanqj0vV5EAP+vlpy9O/ouR5JdbIbwlXbR/H/qk3AgcfjUFjUMNJm rMZiOSeQmaZpqZ08jN4EHuOrrSyoi+XqT+UNw6HfZ1DhLgtXDCQiy3qGYXTL SS9oaBx/B8davtUbgWjy9kbT12NICV/xD2eOIGeuVISi/DMvyq+wOz6GqDcv iw0XhjFQO6gW6DGGS06BXh+pw7B4nOpbe38MymV72l56D8PfIsavtWgMcbEZ qf6UIbzy//gkTnMct3c92rfz8iD08/mX6gRZMPX449Lz3H7wi0kf4u2fQEob 88FwaCfi5oKZ53/2xPCTevFsZyeOGQzKLEtMQVjB8r1dbwciLn2Mf6U8Be8z abQCow7kx7KtlS2mYMF0k45cbMOIkCsn8+4UhlgTSerXWkGr9LlxSnIa6lyL uZdONsIZa1P+3jUDp2T1UkWBRrgq6B8VsZxBtPlJekP+z98OV7ga7ziDxbAv 7L1SDTgi0GlNC5hBlWDgPqH6emzaXJLeXTGDFnW+KMcHNdjRPyu833kWp+zk PrSdKwH/dOaziSdzGJue1fcq+QYTibqRs5lz8IurhfDWbyg8fye8rWgOiW0h VSYDRRAKtW/pG5rDhypaqW39VwQ83cAw3T2PrJnLW4YYH+BY8UOAv2keNfpK 2hsTc6FRIaRFH5oHK6DB4NCpHOzaNy7+emkex8U9X11AFsoN8nSPKLNxZK8w F2dFCjKkvXVqbrARXeop62qdDFLOV50TzkadbdsOKjUJZidWzBKesvGUchi6 KY/hFpVAd/vGhkyHPGslPRpTs3u9j/7c5fa+Jv24U/dw463ZsvEoGypC1x5r uQaDqbqkqbnKhv4a7dfdTE9UqwUGrl+3gP8ArwUrSw== "]], LineBox[CompressedData[" 1:eJwVymlcDPoCh/HG0KqUFirNVK4olcJBafz+hSLEIemKSdpQSEqlQ7QipxKS Srs9FaIQM22klGqUoX1VSdM+05jqui+ez/Pmq3X45G7XWWJiYnf+9P+bzFlx v63bB590g4KUZSfRMBycIi/wx+1LffuoUpMY2rl05KR3OBjphv0q4wIEXres 8Fgdg2UNDySWtwswfT4gMWXFTVTvURxElQAXjmV5cvQS4PJMrXHvKwFKNC9H 3JFPh8sDG1bYNQFC47S91kZlInqHs3HqOQEs5xba18rch61iU0rhUQHK+YO6 cySyUHLc1k1kLoC7u57by+lnqBnpYSSP8LFF229/CCMP5ocj1n1u4WNZc4nN rn9eoMJCW3F2JR/9uw+u7Z/MR5Paub1nM/jw3BAjSRsvhEvYrLMptny8kg6s L/YtQcZ5rVPT+RNINVDm5GiXomA8V6MjfQLhu3Jqkj6XQvPA9OXqfydgG9dZ eUb3PQ5Em+YUO09gSGt7sV5zORYfMnWiy09Ax0QjJ3ZTNR6uzj7XfmwcH587 bnp6+Que9l65oqQ3BrMy/ZKlbV+g119lHaIyhtyGSfPkNfX4xldIpFDHEDd5 HZGd9XDXc4gwaBqFC8pNXRlfkddfkWAZPYqZCiNj1eFvkE1f1ZEgGMFfHRTa RftWpH2OZoZyh2H4et+w0cNW2Ofo3rYqH4ZO7JPStslWhEUaKKgXDEMmLeuv 1B1tiLSa2zhyaxiiXfZNM4NtGFpES3OzH0Zzbo4uy7gDYRqrg5ybhpDixSxl 5Hehn8LJ9W/nIemAVPbN1i7cjPRerl7GQ/yWvFu/JLqxWS9yR8sDHmI0pT3u 2HejenrZ3vdePFyoeaEwNdmNKTuLXvVZPDgZyToWmv3AzH2Zqmq9QSweejNp WtyH0rSqg2XXB/BP1cbQsV994BNRrk3AABoeVcplq/Yj57Pd9t/MAVxxbVys daofrDja57d6Axj6LtwhofkT62J7VbtKfuJdmUk659wAzH2Put0U9WN/Yr61 pwkP5nlZbwPD+5Dnj/olrjxsL/tr8D9efZCz++DYGsOD65PHUQP/7UOR/Fef 3b08MC6u+afBoA9KGwN3Jm0bgqG/0nX5r70ILEgICBYOwTbAlyo07MXWjG9V NvYjeBVxdG7EaA+GwrLdyo6PYGIBJ1aivQfxR0Jm1oeM4HvM6YTU6h70GhgY 62aPwJoXkqj+qAeXCi7coM4eReHAzpPGh3tQXrXUoSBnFJvucxe/beiGlcC3 V0tiHD3LGXmHa7ow+N36Yvyicaysue+Zw+5C3Fu62ryV4/Dd28uUf9qFnuCP 20QHxjFi9dxbLrYL4bIaOQ3PxqG1xukX37YL77VLfSOZE8gLWnfctaUTm3fM p46/4KMr7LZv83QHopykhic/8tHhsL7g4EgHuL5irdPNfOzyCjox0N2BY8mD ryXFBfhZL2hbXfXH8yq8F9kJwDDpu3Yy6Y+/FtKxcUIAmmag/lnGH98wVhS7 RogHYT71+y+343n/z5xb1kI47zTKCT7fDtF0x50kphAreE7RL0+3I2ppbcC9 cCFuUFdqWDD/eP8nxq8bhAhT773Ss+qPV3NLaz/zG4o1R37ubW9DtOPXC0b5 Ioz9LpvP3NSG8AEz9HwS4Uzniww10zacD0ifSuwQoZNWIda5og0nrh8/KyE3 BZ5efEOcehtsPlB9WlymoOnzfEzhRyvkVhi5X50/jXG394/nbWtF1PSlHb3H ZzC5/NFWvnYLwiMHZZJDZqCuIwzUUmjB+YW2FXtuz6Bmi5qB40wzTqykW7FK Z/C42PKWUlMzlj7fr1kpK0YKtQfdXOKaIfFjSDXdRYzYLZD2DZJrxgcbDdld 8ynE5c0qoz6ZJigZtqt4L6KQpEZayr6pRhySvat5Q4dCFopmG30ZbISwUn81 15RCXDNfevBrG6G/1czhkDOFVFbSGF3xjYjZ6PDQK49CQuUvb7DSbcT+dbc3 X7ObRWIy9JgFe77jl5by+boEKuFc87KorORiXWDaqaJMKnGz+73Sn81F8BcD 19xsKsk4vWzE8AUXKhGW26OKqWQx2z3rVTIXGwb81Kz7qSRc9miphTcX0S+/ vywymU3e67sfUFXnwnhbKi+XO5tQrpqdu3L6K3x9ljtFq4iTwsRrjywYDVCR 5hXaaYkTxRdWUlarGlCQ8mwhTV+cUFfLTe/RbYCowqQmy1yckNdXgiKUGxCs tQUVnuLkSZ3Muz2D9YiqdtGYUyJOOlqkzPzT6nFvWfK3sycliLr/JX6WbD2+ NsnvdiuXJGM7//Ws/c2BdaQr16dOktgdio4xG+Og0OQ1M6RJknD/Nd34ZICD 1Dhnj9QhSaJ0mMpIaebgyK6Xod8XShFrMWZrKYsDYYlDvs1RKWJpympTCONg 0eN7i9ZKS5Nfss0eVxU5OBRg9kNiuwzJVGxe+GNDHfRcyusH7WQI4+S9G9R1 dRi1sS2td5Ih/FWLaEuM6xD+H8+0DD8ZMr8paJPf4jpkfU50QIYM8Xbv27pP sg6TS35/PiOUIQdD592lcGoRW/eqoPvBXPJMd9ivyaMWJcvXXimZI0cSswND 7j2qgY5UYW/mFnlSTWeOTnyphkahx+Y5lxTIoYRQnTsvP0FMOOuhd8d80lnA lkrMrwD/77fMsiVKJOo2XVpV5SMaVzuqLwlVJmzhEWfxiA/w2ievoN2kQhZ4 pAZv0H8P1Rtd9rM1FpKWit3OSdJlyHZIvT/qr0q0sj4pj/FKsI8RtKX8rRop Odk97EYpwVPmcW1TkTpB12WGqn4xBNIbqa/2apDDW5gZ7+yLsLt2/RqNeBpp 1lOgz81kQ3q9TFHhHRp5G1R4RjyNjaLM79sOZNBIy920bkoyG0b+AU6J2TTy gVIkLrrFhhw9/6pqGY1cjRGznIpk46Pnyk7lERqJGTVfu8qHDSKpGyO3nU4m ZkZ4RzazITglUMv+m06StN8ohlmwkdP44e6OfXTiJ8kySwcbtBy3N1cP04ma t21Sqwkbor2ZPdIBdBI6VhzsZshGfgadIXGPTi6+sTmTuYCNE7K8D/ce00kE wyC7RokNHb93uy2f0kl3XGPHlAIbN6wPHgkrpJOsC7eJw1w2vIcTrlM5dOL2 dStLi8KGnsMxWgaXTt75Pkh+LGKhvdTkoUULncyirslV5rOwK5777mIfnehY vMjg/WRBctaDrVo8OrkTdzfEsYcFloffF/YYnXiPy/xd28bCmXpLx0NCOpnn 3ie9uZEFQ6j0z8zQSUg6cl/Xs/A/PI3QIA== "]]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQrWcv9ur/f/kDErouIb8VOR2C2s+uNo5H8MvPt+Sm 75OD869c4X51MFEWzpc9kC9iLiMD52/NPsLKf1cKzk/oMfxws0kSzv8xqbpj v70EnL+Y757kjIdicP4cL8Oiy52icH5TTmKFpqcInF/NvKq86K0QnJ/YcF7l 2gpBOH/q3qcz5mQJwPm77mvwrFHig/OVBRycQuZxw/mbtDqyHj3mgPPvH92o YGbGBuc/1ZlqtH8bM5wvWLfSTI+REc7XMXuvs/Tzn/0wfrPL2ws7K77D+aIh 6yZEin+C8zd9O8p/QuUVnL/09tPely334PzYQJktt5OPwPk7uaqvHio9bA/j mz5ilGuMuA/nK3/Y/dPq0Es433PxzbN+EZ/gfFdfIeavW7/D+f3x1xsMtv+B 84/7yfIGCDE6wPhvFUXrLs1ihvNLS7QT+8XY4PzrdwSC0k5wwPkJlTbP2X24 4fzD2uZdh1n54Hw1zj0vlngIwPmye7JdWTsE4XyGX0wrix4JwfnfA/fGHVUV gfNvm8RLq7aIwvkF4QKCSnfE4HzJKU8iWGQl4Px10QuWf66QhPPDbes9TuyV gvM3xuUqWf2RhvN/cDkz7wyVhfODLlqbyc6Qg/MdODQn8PnIw/nQ/ALnAwAp 0jIm "]]}, {}}, {{}, {}, {}, {}}}, Axes->True, AxesLabel->{ FormBox["x", TraditionalForm], FormBox["y", TraditionalForm]}, AxesOrigin->{0, 0}, PlotRange->{{-8, 8}, {-1.5656943302479815`, 3.141592653589793}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.50986857159375*^9, 3.509868611765625*^9, 3.50987767215625*^9, 3.509879973078125*^9, 3.509880247203125*^9, 3.509985498359375*^9, 3.510634330734375*^9, 3.51063449278125*^9}] }, Open ]], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"Je", " ", "vid\[EHacek]t"}], ",", " ", RowBox[{ "\[ZHacek]e", " ", "Wolfram", " ", "Mathematica", " ", "na", " ", "rozd\[IAcute]l", " ", "od", " ", "matematiky", " ", "klasick\[EAcute]", " ", "pou\[ZHacek]\[IAcute]v\[AAcute]", " ", "u", " ", "funkce", " ", "cotg", " ", "x", " ", "interval", " ", RowBox[{"\[LeftAngleBracket]", RowBox[{ RowBox[{"-", FractionBox["\[Pi]", "2"]}], ",", FractionBox["\[Pi]", "2"]}], "\[RightAngleBracket]"}]}], ",", " ", RowBox[{ RowBox[{ "co\[ZHacek]", " ", "m\[EHacek]n\[IAcute]", " ", "i", " ", "inverzn\[IAcute]", " ", "funkci"}], " ", "-", " ", RowBox[{"arccotg", " ", RowBox[{"x", ".", " ", "Pro"}], " ", "z\[AAcute]porn\[AAcute]", " ", "x", " ", "je", " ", "proto", " ", "pot\[RHacek]eba", " ", "posunout", " ", "hodnoty", " ", "o", " ", "\[Pi]", " ", "v", " ", "kladn\[EAcute]m", " ", "sm\[EHacek]ru", " ", "osy", " ", RowBox[{"y", "."}]}]}]}], FontFamily->"Times New Roman"]], "Text", CellChangeTimes->{{3.5105486854243474`*^9, 3.5105487764555974`*^9}, { 3.5105488954868474`*^9, 3.5105489318305974`*^9}, {3.510633139171875*^9, 3.5106332909375*^9}, {3.51063344903125*^9, 3.51063345090625*^9}}], Cell["\<\ Moji \[ZHacek]\[AAcute]ci dostali za \[UAcute]kol p\[RHacek]edefinovat funkci \ arccotg x tak, aby odpov\[IAcute]dala funkci b\[EHacek]\[ZHacek]n\[EHacek] \ pou\[ZHacek]\[IAcute]van\[EAcute]. Mnoz\[IAcute] nejprve sestrojili jej\ \[IAcute] graf:\ \>", "Text", CellChangeTimes->{{3.51063383178125*^9, 3.510633920890625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"g1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"ArcCot", "[", "x", "]"}], "+", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "8"}], ",", "0"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "8"}], ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6"}], ",", "6"}], "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.509871052578125*^9, 3.509871119296875*^9}, { 3.5098711765625*^9, 3.509871201*^9}, {3.509871276859375*^9, 3.50987129940625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"g2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"ArcCot", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "8"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.50987112240625*^9, 3.50987113884375*^9}, 3.50987121065625*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"g1", ",", "g2"}], "]"}]], "Input", CellChangeTimes->{{3.509871141546875*^9, 3.5098711485*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVx3881HccwPGLu/t+HQ1X3V3CLatOkkJcob5vrKyIsbZKmmh1hfKjEjXn V2L18KNIaWcZXekqNCOV9fnIj3K79cMS/XAk5EdF8qPv+TX74/V4PZ7zA0N9 dmkxGIyN0/3/s0Ld4akpIX4cI4jd+BUJFeOGNT9PCHHSFpvSVdNufi7IpDVC HGLh1LFw2kZZi6w/DQuxpNV49aQZCTLSZV9XnxBzSyfri6ad9zGqU9UkxMYR F730p62o7mrMKRbilG/CWA+/JKFScq/c1l+IjzzVG3Q2JSGolzXcVmKKOQKs lS4gQb9NfGLeF6Z4YEjC15pFwku79oTk/SbYzN43/oeZJFjXCT6HVBnjTfcm dHvZJMTUr65pFRrjjKiIADmDBB+iX08VNg/TT/Jvp9AEeMkFt3pqjLDR7Kjy FYMEuJQvr8xaYITVou9e6vQRgGY0Ot6KnIs9JTqytnYCbLCEG/xUgIPaU7Na XhCgUkd4eNoJcHRJsE9uAwEDYo721RQ+tr+gV21VTwCHmWFw5i0PpzAurO5E BBRx8s9/XsnDpYs/FEIZAdHhlimpqXOwJ2db1hIFAQ7uclXx+9l4aDLmhvgC AUn+ilR3mI3PtV8Rnz9NQF1Xrvzgb7Pw49eWsdzjBJwqNHHg93Nx5E27juzD BCQq59j0uXAxtNSZ++0hINh/PM4j3xCHlJVmibYS0GIV6iEaMsBWMOgc6UbA 2vDH+9O9DXDS0WRRsR0BV0Sberx/0sel7zb1DZgR8PK18MNhzhf4xwYz7xE9 AjTxD/Iq7uvhVS6XP90cYYPl2V883u3VxX8tTfKNfsWGayGOKIHLwSZUYAVg Nsw1V7baNpDYchEp31fAhpwt4XRTJIG5ZvlOnHg2sEOHcbYNG/sX8g6nb2dD 1dogr4ohJiZDaztMxWzIODX6TPWrNubxuy7JSTa4VwfojW/VwnWzSvQNmlkw N6jDwXSCgf9+PuF5RcaCwvfJVuX7p1BZVcL5G9tZUJlsfmi4fxzFNlnZZ/JZ MKKruW7kqEG7NTDqjJmg45fkcujPUfTKOqSPCGSCa7ZzfdnoEFoQxouf2acN Rt6tLXfcBhH7Tp1FYoA2ZBXvk3042Y9ir+m/aVVqgfMpaYC1cS/qWjNgmMvR gjyOtlpNdqJjray29+IZ4JC0IZKv34YyD7oq0tYzAArfdop9GtEBvPjhErdJ qq3XRWYprUP3r/VcPtI7Ru318ui3XVCHFOeYiRmtY9Rg6fcujspaNLJGoCx4 OkYxY/Z0r+fVIqrWr+re3THKXD9thaSoGuHuym1vTo9RYbbPVb+rMeKLaPlN hzFqalStWSotRxayeeLBFA1lUPUxz0lZhuIGoxMexGgosxNMN3deGWq67XYk N0JDrTO2yNxTVIpuL3uW4+qnodLg0JICdQk6c+DfmvhlGsqJy69YLr2EVCds 4FEjTe246MT05MnRco9s/zNKmjpmH/htcFEB2h7T3OyLaErle71brs5Dn3K0 WR2FNFW+LtnGXpqN2I8mowaO0tRkUIMyrCgTvTjpKvsjjKbWpZvsvKrOQFEB qvCDu2hKUSwROUuPo3/qdXaMetKUw+eJzeXqOGRZ/DGtwpWmTsebG26WRiJ4 lCiLXklTOxcqOhKku1HX168yHZbS1IZd3U9wT9LdyiJ+3Nh8mvoPs1ZVRw== "]]}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVxXk41HkcAOAZ7FI0DJpxTd+mlVUUW9aR2s9nCRW1jlS7plgVUlS2Vufj yPS4kieSkg5Hm51QGT1bZvf3a0iK3Eo1DTGUW2VMKmZ3/3iflx+613+nBoPB 8PjP/6/VXXkkfpMMotK4GU+PvQdddYLAa14XmGky2J6Kd7DQb/RtdZoCmM02 gVzGOMQ2ukDuxABUBPDmrD84DFwxW85kjsGYjajoaOEA3Olxb2ha+R4mxfJz W3XfgDQy3/zn4Qng+2pMcxQKUFqt0i+NUgEnPFsZa9sLGlMiA/OFn+B3ZhTz 5ZnX4KgOuRNQ9gVOSgJZZ9Z0Q0OSQ2PtYjWYqUd5F36RA8kcmioZZaBJBp2d BzIYUnXJO+w1sGyBbexPSS+gaLDqMStDE1mnWLPCX3QCi/fHmEKhhQatxZRO +DNI31UZdsXya0y5XOGyyv4pTKJIERGnjTqyu5YRjA44sKxGzKnWwYGA/uJ2 dRt0ldWktfBno7/V5AtfzTb4HNmet+iILrr7mPr08lvB5kftmbAqPUwt09xu 92sLeBXww29xWZi7qyBm0dVmiOUFL3gt0EdL12rpoKoJbIcDdZ+tN8Do1u3n TtQ3gpH+uE7NJwPUG/H+aJv/BLSovPJvLrKxM0UarshpgN0OVc9neRvihvuh MYYZ9SBaG3rln0lDTBDlLW/PewzKITOD/hwjtPa+neVU9wgqA7w0s1cbo7Ly vGBkvA7i1ggvi/uNMfHB2eUWDnXAf7Wus1A4F/cGa2yJEj6EFU5J2abLOCjY VApZrbUgmNc0xWzj4MaR3bdHHWpB+fhUz74ELj7M1d+yNusB5GptO+BvaYIN rO4LQVoPwEheWaBRY4KVtSkltnE18NXxhI0u+03xqFuhYEBZDYySbeU9hmbo OupgbXysGmIulJ8ylJphr6TeK2xGCn/bJOuwo80xs8L5u8/JUmCvi7FNZFng D70fwiLnS0G2pLntsMQCq0LyJRzxfbh5CSwV23gY19fluTPgPmwtd2TzZng4 QY50xn+kIV54NUH25zx87yHRnz5PQ+lbXh7Lh+COPb6DER40JOcLQ+QbCHpG CF9OutOww39kYZkfwcx0M5bQjQYLieTm+s0E+6LnOxUADamng2rTQwkGNd7N 6XKhIcLx/LvZhwlO2tkfD1tKw4Ik4zXa1whaJdXvK+LSMON8bM6z6wTFiaZR Kzg0PB/pbb0mIrj6g+h6szENmZsrtnreInjPWfBqmk2DerH/b0IJwVIVzzVI jwZZy+lLmm0Enw933OUzafjrpGp7WwfBzW8OecSqKch2DV5U2ElwMLImS/SF Au/ipWI3OcE4OrB4roqCe4eePEoYIBieKssdG6IgZ8n3p/2GCcbLud7fDlCw v+fiRv4YwcCrzYeC+ymw9tnTRU8QFNErPFu6KdBithdlqghuCL7RN1tOQXel a2TIJ4KycXOGx0sKJJGFdvbTBG/c2nU2rpOCc0RXqVYTnHh7sPheBwX/Aonq Cw0= "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{-8, 8}, {-6, 6}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.509871239703125*^9, {3.509871286140625*^9, 3.5098713026875*^9}, 3.5098776724375*^9, 3.50987997340625*^9, 3.509985498890625*^9, 3.5106343334375*^9, 3.510634492984375*^9}] }, Open ]], Cell["\<\ T\[IAcute]m v\[SHacek]ak nen\[IAcute] vy\[RHacek]e\[SHacek]en v\[YAcute]po\ \[CHacek]et funk\[CHacek]n\[IAcute]ch hodnot. Definujme funkci myArcCot x, \ kter\[AAcute] ji\[ZHacek] bude podm\[IAcute]nku \"spr\[AAcute]vn\[EAcute]\" \ arkuskotangenty spl\[NHacek]ovat. Vyu\[ZHacek]ijeme p\[RHacek]itom \ mo\[ZHacek]nost definovat funkci \[OpenCurlyDoubleQuote]po \ \[CHacek]\[AAcute]stech\[CloseCurlyDoubleQuote]:\ \>", "Text", CellChangeTimes->{{3.509871230921875*^9, 3.50987124428125*^9}, { 3.510633942046875*^9, 3.510633968765625*^9}, {3.51063406128125*^9, 3.510634140734375*^9}, {3.511013621399*^9, 3.511013649791*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"myArcCot", "[", "x_", "]"}], ":=", RowBox[{"Piecewise", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Pi]", "+", RowBox[{"ArcCot", "[", "x", "]"}]}], ",", RowBox[{"x", "<", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"ArcCot", "[", "x", "]"}], ",", RowBox[{"x", "\[GreaterEqual]", "0"}]}], "}"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.509872766546875*^9, 3.50987279896875*^9}, { 3.509872952875*^9, 3.509873000625*^9}, {3.50987305309375*^9, 3.509873085109375*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"myArcCot", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", " ", RowBox[{"-", "8"}], ",", "8"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.509873096125*^9, 3.50987311796875*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVkXk01fkfxq/7vd/vvfYtS2XP2LIrFJM3SVJKSkP2ipSG8stSloSTrWjj h2yTrKFFyzC/8fmQNVuWURhEMei6iCw3MX5/POc5r/Oc8zx/PIqn/O296DQa LXJD/3dtM8mp9XV5zNCtjbDdxgL/lW1xK1x5PFkz9umnDX5aoacy/00eK7k0 mK4psUBfzfbU+Bd5vI1b2Fy+wUaiMf2t7+XxXlvbI8IbDJ/m3qY/kcfXDkiT 7QossI9te2zgLo99pCrmzOVYENwR8+vZajlcWTJ8lb6ZBT09/FM1nrLYq/fh q2EBFshi/01GMjL4zLSUcSSNBS9960jhwS14Z+fnZvN5Jnjc1Jvti9qMq/JN hgM/MWH5bmgcMpPGrX/1aW3vZkKe0NDmtBFJXGHw9FwCYkKmjV5Ad7wEtuxN o7GLmRB1wTNE/cAmnDPjetbyHhNCiZLggGkxLFqkNR0QzATPyA7l3iJR/NU3 Wq3FiQkpf46lZZ4XweuRLN4oYyZUDasJlCoJ4a7ITX7JQkwIM+Upy5AWwnaB foljgkz4Ob3PNl5ICGtoRewx2WBsn5DszRXEgT7GZ8b4mdBY/0VMsUsQf/th l7eDlwk9j8s3p14XxNMSx9KqCSZwgneoRn4UwLxjNjfClynYJgIWx7P5cbwE m0j+SEGS7sjV8/f4sXFJ6aVXwxQs20VVRMbx41prKfPBIQpa79QplwXwY3br Prr6IAWXxQ8wqf38uOiZ/fff+yhokLRvfT3Dh5v+9tOp6qLgvOyZE1vN+bCB e3yBaR0FzzXizo9+YuG0yf5EyXwK5Ds9Krf3sXDmgpqTxCMKbgbvYgW2s3Cv gYGreB4FXnVT+cxKFr4YPkkK/kaBtJvtiGYSCyeY3caLmRSE3xFzDDZm4eun v/Pn3afAejlzn8AtJo4yLDNxjKZguP6ZgqEhhXmrtQiuKwVhx1YsjTUpvGRk 86HbZaNvBM7tVqKwP+tybakzBXarHc/2CFGYv/J1p7MTBVifY7F/nMTaZorV 5ccpyM3R8HJMJTE71r1f5SAFp67kFV9dZOAWvUPqjkYUrFFf2sLYDJwqGx0k ZkhBxn39rxGjDByxMFbRsoOCric1u6PbGVhlWoa7W5+CvePDLYkFDCybcfq2 gBYFysdkOJknGNiYE1N9VYmCMc0UffSKwEGx/rFXBCjQiMjnTDwmcJaDbcIs HwV+HS9LxH4j8GfxWWlv3o2/LvUqeScSeHfIk85DFAV8r6XEBT0I/CMu4QqL RoGuecb8SV4Ca06ZDhjOkxDqkPNi0ZmOc6XqZz0+kIALnlxUOErHvTdS3PN7 SWAsI00bKzpez67dNNFDQlLGx0dZunT89W6MtU8nCbnDiimWJB1zJ5dvH3tL QsO5R4F3y3mwTLZoQPcfJIhGFBtq8/BgT5fuL15ZJNx4pdYkskTDb+a93iQ/ IIHLKXSaZ9MwzTSg43U6CaPuBWG/f6Bhz7t6ofRUEp6b59VaPKVhocXVgetJ JNiTWYd/cafhXov6BJVrJKhuVmyjha4j+YNF3AU3EkQS5GfrvddRaVm8w0cX Epa5suKJ9uuo+01oUvNJEpr+3uIkobGOTv0nKSnlBAk+uZvG1PvWUFagSYD4 YRJKVFk/7I3W0KDQQcFHpiRoGs5o5s+vIquYUwU80iR4a1+7Vjm4itRehr3w lyAhR0W4q61xFU3E+NX1i5EgJqUTvPhgFcV2kO8LBUlYWvKr2W+5kdt4mMsS JNRWchym7n9H2zO0Ri5OM8DxZ06EjiEXyVUxVP6LGHB3Z0TnXgUuyvfYVfzg fwxo0RJSduTjonYcciOzkgF75LSbI4dWkIFrutG9CgZsW/9VvOvGCnJyLWs7 VsgADp4uvPx+Gd37RfWSTBIDoi2n31WGLKGuduXcbEcG1Fqzj+w4vYR+Gs2M 0XdgAM32S3u57RLyNOSVqT3KgDCHydY8pSUUaWRn3WPDgCDvsaZbrYvoU4NB zxtTBvjEDWJPhUW02HguqlmeAYda257yNi2ggpuNYDJKQMK7Vp2Y5wuovKzG 12iIgKaelvK1zAXUUOnmpN1PwL7B5tL5SwsojP3AWaCLgD2c+qLBrQvojGqc eFwNAboi1bnP/OfR2rLgVFAOARLHy287SX1FmflSnIUTBDxXSazaR3xF4wf3 WCXYE2C3cvaz3swcunBPdMuWwxv72YrGfI1z6OHofkn1fQSsTdwfrgqaQ38E pycQBgSMh4dqy/TOotzbI7l5ggT4HbmT9qf6DKKXFmKnajoULdiwU3hmELs2 JEqnkg6j6Qzw6+Ogdp/39WsVdDjxOfgfuXgOCndDz+KL6WB2xc0wcmIaVbS6 Wdjdp4NI3vYei0I20kmsu5zuQ4fni/XCTcpTqGf1r5FxfjoklTys3bMyieR2 vY13Jung63Yt8GXbJLKKPRnYuMYDyg3GAw+DJtGVrfLfYuZ4IDXlcUF40wR6 0pZaltLLA1d33PnZ4MI/iA+ZSzBzeMAiwMU3u+Iz6vWpxitqPJA/MHZrMmYI telFe1or0KA/TDIny2AIsZPfNa5K0UBIbv/To6OD6HjwJLNYmAZBHkVdlWaD KKQu2aXrx7qZ1dh5qQTuALKyVSwUrVo3m+DM5Gpc7ENuySI703XWzTTo3Apf 5x7UnhFJnBZeM3M9KvNi4HQdUj3bx8cs/m5mQuoUfhy7jM7o8qqPGK6Y/QuN 8sZ5 "]], LineBox[CompressedData[" 1:eJwVynk8FHgDx3HTtM6IQrlmjDYtYam2jUzfXypKpbZDntQgR7U6JOd6NuUs WqRWQnKlS0aboqIZV8QSJkxu4wjJuI9p8PT88Xl9/nkzTpw/4LpIQkIi6nv/ /yvZgIZi7xKkX2JcmM+bQoqhCo+tU4r8yRwtQdoUwvaza5M+lEL72Py1mr+m cCiuu8pH7x2ORZuxi52nMMLYU6zfVoFVjmZOdMUp6JpqsWO31+DRhuw/u36f xPvnDtufXfuIZ/0REcr6EzAvMyhZ0/kR+oPV1sGqE8hpnN2avLEBn6aVEinU CcTN3kRkdwNO6tuHG7aOwwUVZq7MJuQOViZYRo9jodLYRG30E+TT1gsSZsbw i4BCu2LXgdQP0awQ/iiMXh8ZNX7UATu23h2rilHoxj4t7ZztQGikoZJG/ijk UrN+SdnbiUirJS1jt0ch3m/XujDciRFNWqqb3Sjacth6HBMBQrU2BDq3juCe B6uUmdeDQQovx69LiKRjMtl/d/Tg70jPtRplQsTvzL39VaoXO/Qj97Y/FCJG W9b9rl0vauZ/OvzOQ4jLtS+U5mZ7MWdr0a+xSAgnY3mHAvPPWHggV12jP4xV I29mzYoHUJpafbzs5hD+W70tZOLrAKaJOMfGfwiNj6sUstUGwf5gu+cbawgR ri2rGBcGwYmjfSjUH8JIs2ivlPYXbIrtV+sp+YK3ZaZpvD+HsNX7tNvf4kEc TcyzPmMqxNbcrMKAsAHk+qFhtasQe8p+Gf7RYwAKtuUOHTFCuD59EjX0nwEU KTZ5HegXgnll438bDQegvC1gX9LuERj5Kd9UbOpHQH6Cf5BoBIf8vakio37s Sv9UbWM3hlfhp5eEj/dhJDTbrezsGKZW8GKluvoQfyp4YXPwGJpjLiak1PSh 39DQRC97DNbC4ESNx324mn/5FnXxOAqG9p03OdGHiuo19vnscWx/wF9V2NgL qxnvfobUJPrWMnNP1PZguNn6SrzmJNbVPjjD5vYgrpCuvnTdJLwP97MUn/Wg L+j9bvGxSYxZPfdUiO1BmLwWu/GfSTA2On2dPtSDdzql3pGsKeQGbjrr2t6N HXuXUSdfTKMn9I5327wAUU4yo7PvpyGw35x/fEwAvrdEx3zbNPZ7BJ4b6hXg 9+Th19KSM/jSMNO5ofq7F1Z6atrOgGk6cON80nd/I1iwbWoGNO0Agz+Y333j RFHsRhEehno1HL3WheeDX9i3rUVw3mfMDrrUBfG84G4SS4SfhU7RLy92IWpN nX9mmAi3qOu0LFjfvd9Tk9eNIoRq9Ef0rf/u1d1Su3y+YXntqS+HuzoR7dB0 2ThPjIlvZctY2zsRNmSOvn/F8Ol+ka5u1olL/mlziQIxummVEt0/d+LczbN/ SCnMQagf3xin0QmbcqpXu8sctL2eTyh97oDCz8Ynry+bx6TbuydLd3cgav7q 3v6zC5hd+3jXtE47wiKH5ZKDF6ChKwpgKLXj0spDlQfvLKB2p7qhw0Ibzq2j W3FKF/Ck2PK2cmsb1jw/ql0lL0EKdIbdXOLaIPV5RC3NRYLYrpD1DlRoQ7mN lvz+ZRTi8ma98YBcK5SNulQ9NSkkqYV278hcCxzl72vf0qWQleLFxh+HWyCq MtjAN6MQ14yX7tN1LTDYZW7v6EwhVVU0Zk98C2K22T/yyKWQEMVrW6z0WnB0 050dN2wXkZh0fVb+wWZ8Zahcqk+gEt4ND4uqKj42BaReKMqgEjfbb+v8uHwE fTR0zcmmkvSLP40ZveBDNdxyT1Qxlazinsx6lczHliFfdetBKgmTP11q4clH 9Mvml0Wmi8k7g5PH1DT4MNmdIszhLyaU6+Z/RlxsgrfXWqdoVUlSkHjjsQWz EaqywgJbhiRZ/sJKxmp9I/Lv/bOSZiBJqBsU5g/qNUJcaVqbtVWSkNcRgeEq jQhi7ETlGUnytF7u7cHhBkTVuGj9UCJJBO0y5n6pDcj8KfnTH+eliIbf1eks +QY0tSoecKuQJhP7/jpT940H60hXvle9NLF1jI4xn+ChwPQ1K7hVmvD/Mtv2 dIiHlDhn95QRaaJ8gsq818bDqf0vQ5pXyhBrCVZHKYcHUYl9ns1pGWJpxulU CuVB80mm5q+ysuSrfJv79eU8OPqbf5baI0cylret/LylHvouFQ3DtnKEeT7z FnVTPcZtDpU2OMmR6fWatNUm9Qj78Uxquq8cWdYauN13VT2yPiTaI12OeJ4c 2HVEuh6zq7998BHJkeMhS+9TeHWIrX+V3/twCflHb9S31b0OJWt/jSj5QYEk ZgcEZz6uha5MQX/GTkVSQ2eNT32sgVaB+44frioRx4QQ3bsv/4WEaNEjT8Ey 0p3PlUnMq8T0b4WsstXKJOoOXVZN9T1aNjhorA5RIVzRKWfJ8HJ4HFFU0mlV JSvcU4K2GLyD2q0eu8VaK0l75QHnJNkyZNunPBj3UyOMrH9VJoQlOMIM3FlR qE5KzveOulFK8Ix1VsdMrEHQc42pZlCMGdlt1FeHtciJnaz0t3ZFOFC3eaNW PI206SvRl2RwIbtZrqjgLo0UBhb4SKZyUZTRvPtYOo2030/tpSRzYezn75SY TSPllCJJ8W0uFOh519XKaOR6jITlXCQX78+s61YZo5GY8a2/rvfigkjrxSjs oZOphTHhqR1czFyYUc/+jU6SdN4sD7Xggt1Sfn/vETrxleaYp4ELGtvtzfUT dKLueSipw5QL8eGMPll/OgmZKA5yM+IiL53OlMqkkytvbHwyVnBxTl5YnvmE TsKZhtm1ylzo+r49YPmMTnrjWgRzSlzcsj5+KrSATrIu3yH2S7jwHE24SeXR iVvTLg6DwoW+/e+0dD6dvPV+mPxEzEFXqekji3Y6WUTdmKMyzcH+eP7bKwN0 omvxIl34hQPpRQ93MYR0cjfufrBDHwccd9+P3Ak68ZyU+62ukwOfBksHRxGd LD05ILujhQMjqA4uLNBJcBpyXjdw8D+m8VpL "]]}, {}}, {{}, {}, {}}}, Axes->True, AxesLabel->{ FormBox["x", TraditionalForm], FormBox["y", TraditionalForm]}, AxesOrigin->{0, 0}, PlotRange->{{-8, 8}, {0., 3.0172376540194836`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.50987311953125*^9, 3.50987767278125*^9, 3.50987997396875*^9, 3.509985499640625*^9, 3.51063433415625*^9, 3.51063449321875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Pi]", ",", RowBox[{"myArcCot", "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", " ", RowBox[{"-", "8"}], ",", "8"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", RowBox[{"{", RowBox[{"0", ",", FractionBox["\[Pi]", "2"], ",", "\[Pi]"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.509873130421875*^9, 3.509873266921875*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwBWIQrWcv9ur/f/kDErouIb8VOR2C2s+uNo5H8MvPt+Sm 75OD869c4X51MFEWzpc9kC9iLiMD52/NPsLKf1cKzk/oMfxws0kSzv8xqbpj v70EnL+Y757kjIdicP4cL8Oiy52icH5TTmKFpqcInF/NvKq86K0QnJ/YcF7l 2gpBOH/q3qcz5mQJwPm77mvwrFHig/OVBRycQuZxw/mbtDqyHj3mgPPvH92o YGbGBuc/1ZlqtH8bM5wvWLfSTI+REc7XMXuvs/Tzn/0wfrPL2ws7K77D+aIh 6yZEin+C8zd9O8p/QuUVnL/09tPely334PzYQJktt5OPwPmruna/Uk58ZA3j 7+Sqvnqo9LA9jG/6iFGuMeI+nK/8YfdPq0Mv4XzPxTfP+kV8gvNdfYWYv279 Duf3x19vMNj+B84/7ifLGyDE6ADjv1UUrbs0ixnOLy3RTuwXY4Pzr98RCEo7 wQHnJ1TaPGf34YbzD2ubdx1m5YPz1Tj3vFjiIQDny+7JdmXtEITzGX4xrSx6 JATnfw/cG3dUVQTOv20SL63aIgrnF4QLCCrdEYPzJac8iWCRlYDz10UvWP65 QhLOD7et9zixVwrO3xiXq2T1RxrO/8HlzLwzVBbOD7pobSY7Qw7Od+DQnMDn Iw/nQ/MPnA8At+U44w== "]]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVkXk01fkfxq/7vd/vvfYtS2XP2LIrFJM3SVJKSkP2ipSG8stSloSTrWjj h2yTrKFFyzC/8fmQNVuWURhEMei6iCw3MX5/POc5r/Oc8zx/PIqn/O296DQa LXJD/3dtM8mp9XV5zNCtjbDdxgL/lW1xK1x5PFkz9umnDX5aoacy/00eK7k0 mK4psUBfzfbU+Bd5vI1b2Fy+wUaiMf2t7+XxXlvbI8IbDJ/m3qY/kcfXDkiT 7QossI9te2zgLo99pCrmzOVYENwR8+vZajlcWTJ8lb6ZBT09/FM1nrLYq/fh q2EBFshi/01GMjL4zLSUcSSNBS9960jhwS14Z+fnZvN5Jnjc1Jvti9qMq/JN hgM/MWH5bmgcMpPGrX/1aW3vZkKe0NDmtBFJXGHw9FwCYkKmjV5Ad7wEtuxN o7GLmRB1wTNE/cAmnDPjetbyHhNCiZLggGkxLFqkNR0QzATPyA7l3iJR/NU3 Wq3FiQkpf46lZZ4XweuRLN4oYyZUDasJlCoJ4a7ITX7JQkwIM+Upy5AWwnaB foljgkz4Ob3PNl5ICGtoRewx2WBsn5DszRXEgT7GZ8b4mdBY/0VMsUsQf/th l7eDlwk9j8s3p14XxNMSx9KqCSZwgneoRn4UwLxjNjfClynYJgIWx7P5cbwE m0j+SEGS7sjV8/f4sXFJ6aVXwxQs20VVRMbx41prKfPBIQpa79QplwXwY3br Prr6IAWXxQ8wqf38uOiZ/fff+yhokLRvfT3Dh5v+9tOp6qLgvOyZE1vN+bCB e3yBaR0FzzXizo9+YuG0yf5EyXwK5Ds9Krf3sXDmgpqTxCMKbgbvYgW2s3Cv gYGreB4FXnVT+cxKFr4YPkkK/kaBtJvtiGYSCyeY3caLmRSE3xFzDDZm4eun v/Pn3afAejlzn8AtJo4yLDNxjKZguP6ZgqEhhXmrtQiuKwVhx1YsjTUpvGRk 86HbZaNvBM7tVqKwP+tybakzBXarHc/2CFGYv/J1p7MTBVifY7F/nMTaZorV 5ccpyM3R8HJMJTE71r1f5SAFp67kFV9dZOAWvUPqjkYUrFFf2sLYDJwqGx0k ZkhBxn39rxGjDByxMFbRsoOCric1u6PbGVhlWoa7W5+CvePDLYkFDCybcfq2 gBYFysdkOJknGNiYE1N9VYmCMc0UffSKwEGx/rFXBCjQiMjnTDwmcJaDbcIs HwV+HS9LxH4j8GfxWWlv3o2/LvUqeScSeHfIk85DFAV8r6XEBT0I/CMu4QqL RoGuecb8SV4Ca06ZDhjOkxDqkPNi0ZmOc6XqZz0+kIALnlxUOErHvTdS3PN7 SWAsI00bKzpez67dNNFDQlLGx0dZunT89W6MtU8nCbnDiimWJB1zJ5dvH3tL QsO5R4F3y3mwTLZoQPcfJIhGFBtq8/BgT5fuL15ZJNx4pdYkskTDb+a93iQ/ IIHLKXSaZ9MwzTSg43U6CaPuBWG/f6Bhz7t6ofRUEp6b59VaPKVhocXVgetJ JNiTWYd/cafhXov6BJVrJKhuVmyjha4j+YNF3AU3EkQS5GfrvddRaVm8w0cX Epa5suKJ9uuo+01oUvNJEpr+3uIkobGOTv0nKSnlBAk+uZvG1PvWUFagSYD4 YRJKVFk/7I3W0KDQQcFHpiRoGs5o5s+vIquYUwU80iR4a1+7Vjm4itRehr3w lyAhR0W4q61xFU3E+NX1i5EgJqUTvPhgFcV2kO8LBUlYWvKr2W+5kdt4mMsS JNRWchym7n9H2zO0Ri5OM8DxZ06EjiEXyVUxVP6LGHB3Z0TnXgUuyvfYVfzg fwxo0RJSduTjonYcciOzkgF75LSbI4dWkIFrutG9CgZsW/9VvOvGCnJyLWs7 VsgADp4uvPx+Gd37RfWSTBIDoi2n31WGLKGuduXcbEcG1Fqzj+w4vYR+Gs2M 0XdgAM32S3u57RLyNOSVqT3KgDCHydY8pSUUaWRn3WPDgCDvsaZbrYvoU4NB zxtTBvjEDWJPhUW02HguqlmeAYda257yNi2ggpuNYDJKQMK7Vp2Y5wuovKzG 12iIgKaelvK1zAXUUOnmpN1PwL7B5tL5SwsojP3AWaCLgD2c+qLBrQvojGqc eFwNAboi1bnP/OfR2rLgVFAOARLHy287SX1FmflSnIUTBDxXSazaR3xF4wf3 WCXYE2C3cvaz3swcunBPdMuWwxv72YrGfI1z6OHofkn1fQSsTdwfrgqaQ38E pycQBgSMh4dqy/TOotzbI7l5ggT4HbmT9qf6DKKXFmKnajoULdiwU3hmELs2 JEqnkg6j6Qzw6+Ogdp/39WsVdDjxOfgfuXgOCndDz+KL6WB2xc0wcmIaVbS6 Wdjdp4NI3vYei0I20kmsu5zuQ4fni/XCTcpTqGf1r5FxfjoklTys3bMyieR2 vY13Jung63Yt8GXbJLKKPRnYuMYDyg3GAw+DJtGVrfLfYuZ4IDXlcUF40wR6 0pZaltLLA1d33PnZ4MI/iA+ZSzBzeMAiwMU3u+Iz6vWpxitqPJA/MHZrMmYI telFe1or0KA/TDIny2AIsZPfNa5K0UBIbv/To6OD6HjwJLNYmAZBHkVdlWaD KKQu2aXrx7qZ1dh5qQTuALKyVSwUrVo3m+DM5Gpc7ENuySI703XWzTTo3Apf 5x7UnhFJnBZeM3M9KvNi4HQdUj3bx8cs/m5mQuoUfhy7jM7o8qqPGK6Y/QuN 8sZ5 "]], LineBox[CompressedData[" 1:eJwVynk8FHgDx3HTtM6IQrlmjDYtYam2jUzfXypKpbZDntQgR7U6JOd6NuUs WqRWQnKlS0aboqIZV8QSJkxu4wjJuI9p8PT88Xl9/nkzTpw/4LpIQkIi6nv/ /yvZgIZi7xKkX2JcmM+bQoqhCo+tU4r8yRwtQdoUwvaza5M+lEL72Py1mr+m cCiuu8pH7x2ORZuxi52nMMLYU6zfVoFVjmZOdMUp6JpqsWO31+DRhuw/u36f xPvnDtufXfuIZ/0REcr6EzAvMyhZ0/kR+oPV1sGqE8hpnN2avLEBn6aVEinU CcTN3kRkdwNO6tuHG7aOwwUVZq7MJuQOViZYRo9jodLYRG30E+TT1gsSZsbw i4BCu2LXgdQP0awQ/iiMXh8ZNX7UATu23h2rilHoxj4t7ZztQGikoZJG/ijk UrN+SdnbiUirJS1jt0ch3m/XujDciRFNWqqb3Sjacth6HBMBQrU2BDq3juCe B6uUmdeDQQovx69LiKRjMtl/d/Tg70jPtRplQsTvzL39VaoXO/Qj97Y/FCJG W9b9rl0vauZ/OvzOQ4jLtS+U5mZ7MWdr0a+xSAgnY3mHAvPPWHggV12jP4xV I29mzYoHUJpafbzs5hD+W70tZOLrAKaJOMfGfwiNj6sUstUGwf5gu+cbawgR ri2rGBcGwYmjfSjUH8JIs2ivlPYXbIrtV+sp+YK3ZaZpvD+HsNX7tNvf4kEc TcyzPmMqxNbcrMKAsAHk+qFhtasQe8p+Gf7RYwAKtuUOHTFCuD59EjX0nwEU KTZ5HegXgnll438bDQegvC1gX9LuERj5Kd9UbOpHQH6Cf5BoBIf8vakio37s Sv9UbWM3hlfhp5eEj/dhJDTbrezsGKZW8GKluvoQfyp4YXPwGJpjLiak1PSh 39DQRC97DNbC4ESNx324mn/5FnXxOAqG9p03OdGHiuo19vnscWx/wF9V2NgL qxnvfobUJPrWMnNP1PZguNn6SrzmJNbVPjjD5vYgrpCuvnTdJLwP97MUn/Wg L+j9bvGxSYxZPfdUiO1BmLwWu/GfSTA2On2dPtSDdzql3pGsKeQGbjrr2t6N HXuXUSdfTKMn9I5327wAUU4yo7PvpyGw35x/fEwAvrdEx3zbNPZ7BJ4b6hXg 9+Th19KSM/jSMNO5ofq7F1Z6atrOgGk6cON80nd/I1iwbWoGNO0Agz+Y333j RFHsRhEehno1HL3WheeDX9i3rUVw3mfMDrrUBfG84G4SS4SfhU7RLy92IWpN nX9mmAi3qOu0LFjfvd9Tk9eNIoRq9Ef0rf/u1d1Su3y+YXntqS+HuzoR7dB0 2ThPjIlvZctY2zsRNmSOvn/F8Ol+ka5u1olL/mlziQIxummVEt0/d+LczbN/ SCnMQagf3xin0QmbcqpXu8sctL2eTyh97oDCz8Ynry+bx6TbuydLd3cgav7q 3v6zC5hd+3jXtE47wiKH5ZKDF6ChKwpgKLXj0spDlQfvLKB2p7qhw0Ibzq2j W3FKF/Ck2PK2cmsb1jw/ql0lL0EKdIbdXOLaIPV5RC3NRYLYrpD1DlRoQ7mN lvz+ZRTi8ma98YBcK5SNulQ9NSkkqYV278hcCxzl72vf0qWQleLFxh+HWyCq MtjAN6MQ14yX7tN1LTDYZW7v6EwhVVU0Zk98C2K22T/yyKWQEMVrW6z0WnB0 050dN2wXkZh0fVb+wWZ8Zahcqk+gEt4ND4uqKj42BaReKMqgEjfbb+v8uHwE fTR0zcmmkvSLP40ZveBDNdxyT1Qxlazinsx6lczHliFfdetBKgmTP11q4clH 9Mvml0Wmi8k7g5PH1DT4MNmdIszhLyaU6+Z/RlxsgrfXWqdoVUlSkHjjsQWz EaqywgJbhiRZ/sJKxmp9I/Lv/bOSZiBJqBsU5g/qNUJcaVqbtVWSkNcRgeEq jQhi7ETlGUnytF7u7cHhBkTVuGj9UCJJBO0y5n6pDcj8KfnTH+eliIbf1eks +QY0tSoecKuQJhP7/jpT940H60hXvle9NLF1jI4xn+ChwPQ1K7hVmvD/Mtv2 dIiHlDhn95QRaaJ8gsq818bDqf0vQ5pXyhBrCVZHKYcHUYl9ns1pGWJpxulU CuVB80mm5q+ysuSrfJv79eU8OPqbf5baI0cylret/LylHvouFQ3DtnKEeT7z FnVTPcZtDpU2OMmR6fWatNUm9Qj78Uxquq8cWdYauN13VT2yPiTaI12OeJ4c 2HVEuh6zq7998BHJkeMhS+9TeHWIrX+V3/twCflHb9S31b0OJWt/jSj5QYEk ZgcEZz6uha5MQX/GTkVSQ2eNT32sgVaB+44frioRx4QQ3bsv/4WEaNEjT8Ey 0p3PlUnMq8T0b4WsstXKJOoOXVZN9T1aNjhorA5RIVzRKWfJ8HJ4HFFU0mlV JSvcU4K2GLyD2q0eu8VaK0l75QHnJNkyZNunPBj3UyOMrH9VJoQlOMIM3FlR qE5KzveOulFK8Ix1VsdMrEHQc42pZlCMGdlt1FeHtciJnaz0t3ZFOFC3eaNW PI206SvRl2RwIbtZrqjgLo0UBhb4SKZyUZTRvPtYOo2030/tpSRzYezn75SY TSPllCJJ8W0uFOh519XKaOR6jITlXCQX78+s61YZo5GY8a2/rvfigkjrxSjs oZOphTHhqR1czFyYUc/+jU6SdN4sD7Xggt1Sfn/vETrxleaYp4ELGtvtzfUT dKLueSipw5QL8eGMPll/OgmZKA5yM+IiL53OlMqkkytvbHwyVnBxTl5YnvmE TsKZhtm1ylzo+r49YPmMTnrjWgRzSlzcsj5+KrSATrIu3yH2S7jwHE24SeXR iVvTLg6DwoW+/e+0dD6dvPV+mPxEzEFXqekji3Y6WUTdmKMyzcH+eP7bKwN0 omvxIl34hQPpRQ93MYR0cjfufrBDHwccd9+P3Ak68ZyU+62ukwOfBksHRxGd LD05ILujhQMjqA4uLNBJcBpyXjdw8D+m8VpL "]]}, {}}, {{}, {}, {}, {}}}, Axes->True, AxesLabel->{ FormBox["x", TraditionalForm], FormBox["y", TraditionalForm]}, AxesOrigin->{0, 0}, PlotRange->{{-8, 8}, {0., 3.141592653589793}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, Ticks->{Automatic, {{0, FormBox["0", TraditionalForm]}, { NCache[Rational[1, 2] Pi, 1.5707963267948966`], FormBox[ FractionBox["\[Pi]", "2"], TraditionalForm]}, { NCache[Pi, 3.141592653589793], FormBox["\[Pi]", TraditionalForm]}}}]], "Output", CellChangeTimes->{{3.50987316890625*^9, 3.50987318321875*^9}, 3.5098732683125*^9, 3.509877673203125*^9, 3.509879974328125*^9, 3.50998549996875*^9, 3.510634334609375*^9, 3.5106344934375*^9}] }, Open ]], Cell["\<\ Takto definovan\[AAcute] funkce po\[CHacek]\[IAcute]t\[AAcute] spr\[AAcute]vn\ \[EHacek] i funk\[CHacek]n\[IAcute] hodnoty :\ \>", "Text", CellChangeTimes->{{3.510634528859375*^9, 3.510634538921875*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"myArcCot", "[", "1", "]"}], "\[IndentingNewLine]", RowBox[{"myArcCot", "[", RowBox[{"-", SqrtBox["3"]}], "]"}]}], "Input", CellChangeTimes->{{3.50987755303125*^9, 3.5098776243125*^9}, { 3.509877678046875*^9, 3.50987774115625*^9}, {3.509879113078125*^9, 3.509879115828125*^9}, {3.51063421040625*^9, 3.5106342235*^9}, { 3.510634281421875*^9, 3.510634287265625*^9}}], Cell[BoxData[ FractionBox["\[Pi]", "4"]], "Output", CellChangeTimes->{{3.50987760915625*^9, 3.509877625203125*^9}, { 3.509877673359375*^9, 3.5098777418125*^9}, 3.50987997446875*^9, 3.509985500265625*^9, 3.5106342894375*^9, 3.510634335296875*^9, 3.510634493671875*^9}], Cell[BoxData[ FractionBox[ RowBox[{"5", " ", "\[Pi]"}], "6"]], "Output", CellChangeTimes->{{3.50987760915625*^9, 3.509877625203125*^9}, { 3.509877673359375*^9, 3.5098777418125*^9}, 3.50987997446875*^9, 3.509985500265625*^9, 3.5106342894375*^9, 3.510634335296875*^9, 3.510634493671875*^9}] }, Open ]], Cell["\<\ Funkce Cot x programu Mathematica um\[IAcute] po\[CHacek]\[IAcute]tat i v\ \[IAcute]ce funk\[CHacek]n\[IAcute]ch hodnot najednou, zad\[AAcute]me-li m\ \[IAcute]sto jednoho argumentu list \[CHacek]\[IAcute]sel :\ \>", "Text", CellChangeTimes->{{3.510634564796875*^9, 3.510634648234375*^9}, { 3.5110136729258003`*^9, 3.5110136747665997`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cot", "[", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["\[Pi]", "4"]}], ",", FractionBox["\[Pi]", "3"]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.5098794215625*^9, 3.50987944603125*^9}, 3.50988002175*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", FractionBox["1", SqrtBox["3"]]}], "}"}]], "Output", CellChangeTimes->{3.5098794466875*^9, 3.509879974546875*^9, 3.50988002309375*^9, 3.509985500359375*^9, 3.51063433540625*^9, 3.51063449375*^9}] }, Open ]], Cell["\<\ To nov\[EHacek] definovan\[AAcute] funkce zat\[IAcute]m nezvl\[AAcute]dne :\ \>", "Text", CellChangeTimes->{{3.5106347226875*^9, 3.510634748515625*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"myArcCot", "[", RowBox[{"{", RowBox[{"1", ",", FractionBox["1", SqrtBox["3"]]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.509879924328125*^9, 3.5098799316875*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"5", " ", "\[Pi]"}], "4"], ",", FractionBox[ RowBox[{"4", " ", "\[Pi]"}], "3"]}], "}"}], RowBox[{ RowBox[{"{", RowBox[{"1", ",", FractionBox["1", SqrtBox["3"]]}], "}"}], "<", "0"}]}, { RowBox[{"{", RowBox[{ FractionBox["\[Pi]", "4"], ",", FractionBox["\[Pi]", "3"]}], "}"}], RowBox[{ RowBox[{"{", RowBox[{"1", ",", FractionBox["1", SqrtBox["3"]]}], "}"}], "\[GreaterEqual]", "0"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.509879933890625*^9, 3.509879974703125*^9, 3.5099855004375*^9, 3.510634335484375*^9, 3.51063449384375*^9}] }, Open ]], Cell["\<\ Dopl\[NHacek]me jej\[IAcute] definici o atribut \"Listable\", kter\[YAcute] v\ \[YAcute]\[SHacek]e uvedenou mo\[ZHacek]nost funkci d\[AAcute]\ \>", "Text", CellChangeTimes->{{3.510634759765625*^9, 3.51063476828125*^9}, { 3.51063480665625*^9, 3.510634853578125*^9}, {3.5110136864354*^9, 3.511013687309*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Attributes", "[", "myArcCot", "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{3.509985500515625*^9, 3.510634335578125*^9, 3.510634493921875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Attributes", "[", "myArcCot", "]"}], "=", "Listable"}]], "Input", CellChangeTimes->{{3.509879119078125*^9, 3.509879122875*^9}, { 3.509879154078125*^9, 3.50987919903125*^9}}], Cell[BoxData["Listable"], "Output", CellChangeTimes->{3.5098791695*^9, 3.50987919978125*^9, 3.50987997509375*^9, 3.509968176984375*^9, 3.509985500578125*^9, 3.51063433565625*^9, 3.510634494*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Attributes", "[", "myArcCot", "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", "Listable", "}"}]], "Output", CellChangeTimes->{3.509880066125*^9, 3.50998550065625*^9, 3.510634335734375*^9, 3.510634494078125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"myArcCot", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", FractionBox[ SqrtBox["3"], "3"]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.509879203171875*^9, 3.509879217796875*^9}, 3.509880050875*^9, {3.509880273515625*^9, 3.5098802816875*^9}, 3.509968161125*^9, {3.509968205375*^9, 3.5099682084375*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "4"], ",", FractionBox["\[Pi]", "3"]}], "}"}]], "Output", CellChangeTimes->{ 3.509879218453125*^9, 3.509879975171875*^9, 3.509880053234375*^9, { 3.50988027490625*^9, 3.50988028253125*^9}, 3.509968180390625*^9, 3.509968210484375*^9, 3.509985500734375*^9, 3.510634335984375*^9, 3.510634494171875*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[CapitalRHacek]e\[SHacek]te", " ", "rovnici", " ", SuperscriptBox["x", "6"]}], "+", SuperscriptBox["x", "5"], "+", SuperscriptBox["x", "4"], "+", SuperscriptBox["x", "3"], "+", SuperscriptBox["x", "2"], "+", "x", "+", "1"}], "=", RowBox[{"0", " ", "v", " ", "mno\[ZHacek]in\[EHacek]", " ", RowBox[{"C", "."}]}]}]], "Subsubsection", CellChangeTimes->{{3.509987457453125*^9, 3.509987500140625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ "V", " ", "b\[EHacek]\[ZHacek]n\[EAcute]", " ", "matematice", " ", "tuto", " ", "rovnici", " ", "um\[IAcute]me", " ", "vy\[RHacek]e\[SHacek]it"}], ",", " ", RowBox[{ RowBox[{"je", " ", "to", " ", "vlastn\[EHacek]", " ", "rovnice", " ", FractionBox[ RowBox[{ SuperscriptBox["x", "7"], "-", "1"}], RowBox[{"x", "-", "1"}]]}], "=", RowBox[{ "0.", " ", "\[CapitalRHacek]e\[SHacek]ili", " ", "bychom", " ", "ji", " ", "jako", " ", "rovnici", " ", "binomickou", " ", "s", " ", "t\[IAcute]m"}]}], ",", " ", RowBox[{ RowBox[{"\[ZHacek]e", " ", "ko\[RHacek]en", " ", "x"}], "=", RowBox[{ "0", " ", "bychom", " ", "z", " ", "mno\[ZHacek]iny", " ", "\[RHacek]e\[SHacek]en\[IAcute]", " ", "n\[AAcute]sledn\[EHacek]", " ", RowBox[{"vylou\[CHacek]ili", ".", " ", "V"}], " ", "syst\[EAcute]mu", " ", "Mathematica", " ", "m\[URing]\[ZHacek]eme", " ", "danou", " ", "rovnici", " ", "\[RHacek]e\[SHacek]it", " ", RowBox[{"p\[RHacek]\[IAcute]mo", "."}]}]}]}]], "Text", CellChangeTimes->{{3.5110143221918*^9, 3.511014550571*^9}, { 3.5110147431102*^9, 3.5110148731518*^9}, {3.5110159936628*^9, 3.5110159977188*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"rov", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x", "6"], "+", SuperscriptBox["x", "5"], "+", SuperscriptBox["x", "4"], "+", SuperscriptBox["x", "3"], "+", SuperscriptBox["x", "2"], "+", "x", "+", "1"}], "\[Equal]", "0"}], ",", "x"}], "]"}]}]], "Input", CellChangeTimes->{{3.509968262203125*^9, 3.50996828728125*^9}, { 3.509968337234375*^9, 3.509968360828125*^9}, {3.509969029515625*^9, 3.509969031140625*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "/", "7"}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"2", "/", "7"}]]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"3", "/", "7"}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"4", "/", "7"}]]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"5", "/", "7"}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"6", "/", "7"}]]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.509968288328125*^9, {3.509968341703125*^9, 3.50996836215625*^9}, 3.509969032671875*^9, 3.5099855010625*^9, 3.5106343365625*^9, 3.510634494453125*^9}] }, Open ]], Cell["\<\ Ko\[RHacek]eny rovnice d\[AAcute]le uprav\[IAcute]me do obvykl\[EAcute]ho \ tvaru a graficky zobraz\[IAcute]me :\ \>", "Text", CellChangeTimes->{{3.5110148880966*^9, 3.511014925755*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"koreny", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "x", "]"}], ",", RowBox[{"Im", "[", "x", "]"}]}], "}"}], " ", "/.", RowBox[{"rov", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "6"}], "}"}]}], "]"}], " "}]], "Input", CellChangeTimes->{{3.509969036375*^9, 3.509969104671875*^9}, { 3.5099694784375*^9, 3.50996956065625*^9}, {3.509970035515625*^9, 3.509970054125*^9}, {3.509970333875*^9, 3.5099703424375*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", FractionBox["\[Pi]", "7"], "]"}]}], ",", RowBox[{"-", RowBox[{"Sin", "[", FractionBox["\[Pi]", "7"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "14"], "]"}], ",", RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "14"], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", FractionBox["\[Pi]", "14"], "]"}]}], ",", RowBox[{"-", RowBox[{"Cos", "[", FractionBox["\[Pi]", "14"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", FractionBox["\[Pi]", "14"], "]"}]}], ",", RowBox[{"Cos", "[", FractionBox["\[Pi]", "14"], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "14"], "]"}], ",", RowBox[{"-", RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "14"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", FractionBox["\[Pi]", "7"], "]"}]}], ",", RowBox[{"Sin", "[", FractionBox["\[Pi]", "7"], "]"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.509969105515625*^9, 3.50996948653125*^9, {3.509969523703125*^9, 3.5099695618125*^9}, 3.509970055515625*^9, {3.509970336375*^9, 3.509970344453125*^9}, 3.50998550134375*^9, 3.5106343366875*^9, 3.510634494546875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"gr3", "=", RowBox[{"ListPlot", "[", RowBox[{"koreny", ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"PointSize", "[", "0.03", "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}]}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.509970074625*^9, 3.50997013603125*^9}, { 3.5099701838125*^9, 3.509970191*^9}, {3.509970521390625*^9, 3.50997052871875*^9}, {3.509970667328125*^9, 3.509970713234375*^9}, { 3.509987298515625*^9, 3.509987332375*^9}}], Cell[BoxData[ GraphicsBox[{{}, {Hue[0.67, 0.6, 0.6], PointSize[0.03], PointBox[{{-0.9009688679024191, -0.4338837391175581}, {0.6234898018587335, 0.7818314824680298}, {-0.2225209339563144, -0.9749279121818236}, \ {-0.2225209339563144, 0.9749279121818236}, { 0.6234898018587335, -0.7818314824680298}, {-0.9009688679024191, 0.4338837391175581}}]}, {}}, Axes->True, AxesLabel->{ FormBox["x", TraditionalForm], FormBox["y", TraditionalForm]}, AxesOrigin->{0, 0}, PlotRange->{{-1.1, 1.1}, {-1.1, 1.1}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.509970083953125*^9, 3.50997011190625*^9}, 3.50997019290625*^9, 3.50997052965625*^9, 3.509970715234375*^9, 3.509985501796875*^9, {3.50998731996875*^9, 3.50998733371875*^9}, 3.510634336890625*^9, 3.510634494875*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"gr4", "=", RowBox[{"Graphics", "[", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"Abs", "[", RowBox[{ RowBox[{"koreny", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"\[ImaginaryI]", "*", RowBox[{"koreny", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.509970452453125*^9, 3.50997056590625*^9}, { 3.5099706006875*^9, 3.50997060759375*^9}, 3.50997065378125*^9, { 3.509971117859375*^9, 3.5099711684375*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"gr3", ",", "gr4"}], "]"}]], "Input", CellChangeTimes->{{3.5099705393125*^9, 3.50997054571875*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {Hue[0.67, 0.6, 0.6], PointSize[0.03], PointBox[{{-0.9009688679024191, -0.4338837391175581}, { 0.6234898018587335, 0.7818314824680298}, {-0.2225209339563144, -0.9749279121818236}, \ {-0.2225209339563144, 0.9749279121818236}, { 0.6234898018587335, -0.7818314824680298}, {-0.9009688679024191, 0.4338837391175581}}]}, {}}, CircleBox[{0, 0}]}, Axes->True, AxesLabel->{ FormBox["x", TraditionalForm], FormBox["y", TraditionalForm]}, AxesOrigin->{0, 0}, PlotRange->{{-1.1, 1.1}, {-1.1, 1.1}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.509970546921875*^9, 3.509970613515625*^9, 3.50997071865625*^9, 3.509971172421875*^9, 3.509985502328125*^9, 3.50998734453125*^9, 3.510634337265625*^9, 3.510634494953125*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Ur\[CHacek]ete pr\[URing]se\[CHacek]\[IAcute]k p\[RHacek]\[IAcute]mky ", Cell[BoxData[ FormBox[ RowBox[{"y", "=", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "x"}], "+", "3"}]}], TraditionalForm]], FormatType->"TraditionalForm"], " s parabolou", Cell[BoxData[ FormBox[ RowBox[{" ", RowBox[{"y", "=", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "5"}], ")"}], RowBox[{"(", RowBox[{"x", "+", "2"}], ")"}]}]}]}], TraditionalForm]], FormatType->"TraditionalForm"], ", vypo\[CHacek]t\[EHacek]te obsah obrazce, kter\[YAcute] tyto \ k\[RHacek]ivky vymezuj\[IAcute]." }], "Subsubsection", CellChangeTimes->{{3.50998739446875*^9, 3.509987429921875*^9}, { 3.5110159755668*^9, 3.5110159825556*^9}}], Cell["Sestrojme nejprve grafy :", "Text", CellChangeTimes->{{3.511016009528*^9, 3.511016031914*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"parabola", "=", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "5"}], ")"}], "*", RowBox[{"(", RowBox[{"x", "+", "2"}], ")"}]}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"primka", "=", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "x"}], "+", "3"}]}], ";"}], "\n", RowBox[{"p1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"parabola", ",", "primka"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "6"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "1"}], "]"}]}], "}"}]}]}], "]"}]}]}], "Input"], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[1, 0, 0], LineBox[CompressedData[" 1:eJwl2Hk4Vdv/B3AOKlNEOebZ2VuDBnEjrCXpypA5w0UZmuRGMjQgU1IJJVHS gChDg4pKOivpoJKLMmeWeR7OYDi/9X1+f+3n9cd+1v581lrvtfdW8fK3O0Lh 4eER4uXh+d81wGJyisuVRPpvBOu4XEMYXpZ+/dqSJJJjbLRgzBnCq5v2bKSy JVF8prZp4rAhzBZO9daakUR8D5eKVRsNYdM3/Sa3fkl0efZksHuuITS0jCt7 Vy2Jqn7SU2WtDKGQlULcmRuSSCHSYO+rDAOYfcBCblBVEsmcv+LsYbgb2qsO 2ehoSyD/FqtmE9ddUOqnSOcR+3XIRLf2RugnHSgmxLTnhIojnpaf64KstKGQ yt78UUkxRPlXvvvrx21QbuTpP3lOoihFxnYuYXgzpDncUNseIoy4vD623zVJ mMngK4/OFERnbolmmZaqQf35SwJ3+lcj67mVuK5YJVhfecUnfNUqtPnRputp /1DhdZvMQJoZP3q6pVW9S0UcvunfbZd2k4KEeTVXj/+iwBYZN7OmUh5ku/3C 9Gn3fgClpNtfsZfpPe+0lld+jtK/6F+wc9Lj0Pmr9T2Ob+ZDqgFzflevLtCJ 1xH6rtZr0VeF6wP75Gbp1whfOSumJKqVtZMCnyfod3z1HwdUSqO7I9UKfHWD dEOXgK7Ydnlka7TvIte0m07Ntk0MOaWMAo91WemierrD2rfMNC1V5JERVZR+ 6zk9d5VrgvUDNZQ83ddhJMgAmopAbw9bHQ1JGpuuPscA4k2Rav3L6gjq3i+q G2KAt9TvPDEUDTR93jnicHUVMNt18VapsAay469Vir5cA45POCkvKWigDdQS ry8CteCpVmPNjLEGslLcO6fB2wC2cKe8b1/WQA0mUucLl1vA7u6a1yWCNDR1 RvJ16M5WsE3n0VyUKA2J5YhP7DnZCrZSe0zN19GQJb+wV2tLKzgQfVe+QZqG qiq5+1e9bgOi87N3PxI09MF0WOawbwdItDRuFzKlody/P7yTbO4CWZ9NfQPC aai3rOPc5KpuMPFOq/l3JA3N2LdLOap2A1PDSEezWBoSj22xUXbpButH3eLW X6OhA/0NlSWMbrCzb+ntlXQaqs6pKux71ANCTJs9B4tpqFzjZZihcx8QaZj/ 5D+Ax8/+e9dCcB94tdRT8mkIW6Vz9llKHxBzObVLfAxbQfikcl0fGM491pM1 Q0PvNxxx4dvXD5TTOr7e59LQWwEZ3RrtAfCgpm5xSppAxQORkw5ig6AtpP3X ihm2N7VAdMsg0G2p9ei1wO4pOsowHwRmJw8HVRwg0Mvfbb//ihsECbSjpmcd CPTi187vssuDIH16NuL9IQIVfRl60j0yBOit0jZ3ggn05LGNlx9jBFjPXPZF 9wn0h1hoIHtHQP0TyXvCjwiklp9hMrA8Ar78cfhun02g+8/+qHvojAIKm0m2 5xEopTRs0DpnFDSEoIYvLwgUUfPETzt6DHxrdh0SqiCQ/ThPKMdwAtC2vpFz 6CVQsn/uYInLBOhtnFYD/QT6MW3hfCZ4Akjw9G8k/hDIbOG23ljhBGBMDO2c GCaQEXfz0m+5SXBJI1jPeZpA5DqXqE/sSeDOus1/j0ugi3dbTCvbpkCQNk92 rwyJbh8IFf0+PAWupceHJsqRqJAi9auRNQXUz/lW6iqQqM3X3qdPahr8LtSv ClMmke7uH9EU+2lwolPkdCeNRGPtn+nw2zQYP3HWkbWDRHzJXpfN2qYBeTn9 +cmdJJLdy2ttMzwNBpQkott1SGRWaNR5aPUMGPi8LvnFLhJlh71bijCZAbxN e2y2GZHIVeG5XnnZDMhR9fOMMyPR6Xor3i9fZwCFpWb8aT+J4i+NVX9vnQF9 Zjp3WOYkKhnXdO5gzoBN7j7FblYkWvcxJ2RRexY0Wc/Fc2xJVO1x95Ve4SxI c29nJLiSqEtC74Jx2SyQHd24OekfEi0wmvfs/zoLFOcaBRPdSKS2dUOD89As eHZ2h1aUB4kiuElToepzYMhCRc7Qi0Q6Dy9tKbk3B2pkGZeET5BozVJaSWjB HFAvUKipx+5wygd67+dABl/k41u+JIoWq7P90DwHOkSOaIr7kei/COmQCol5 kBf5wr3zFIly2jZyY1TmQZetx4kr/iQK1TWMN902D3aMSq3dHkAixQnPu9VW 82BTyBPVkNMk8nMv+Pgjfh4cG7c823yGRPBd+d/JafPgAtfG8lgQiSQ3/Pef be48yG899G4W+/33ud6fn+eB259MD0oIiRLJ1X63G+ZBp3Tt7Vhsz1iZeace fL/k6uN8obgeA6PV7SvzQNAz49cCdkeaTfI90QXAfjV/+uRZEj2f9ZLxkF8A AnWueR3YBwsub+rRWwCn3E1/vz6H65Gttx4MWgAJ7RnBBhdIdDakr+VJzAJw 8bdsS8W2aJj39L25AIy/rW4ZxZ65Ihs0/nwBeLffv389jESMgc3Lzz4ugMyk 88dase8Yg7iA2gUwK+xZoxKO62V7p8+OLIAZtwPOT7DXO4aovGEvgLvbHS/9 wR58EZ8fsoYJPH4ctVCJwPWLZGjvojKBkXZMvjN24vGiD2wNJtA7nJ+VgO1V STct28kENo4d2uXYOsoNP8JMmCBaQsZjBHtNWL+TkR0T/Jd2WGX9RdyP5oVu 7mF8/0BxuD72C21B30/+TPCRI3bGHTsmSW42OgKP3xLKG459cHRL2N7rTCAb MULewd74NxRYdY8JpkePDb/EXsmyS6zKZ4J+lak9Vdj1Kz7UK++YYEYpRqcV O8c19KF5NRPI/1H+NIh9tuSKpkgzE3gF1QzMYFtK3CuuHWCCz1/DsjnYSqee 7U6aYwIwrM9ZwZ6pQZU2fCzQXMc3wsVmaDRaSUiwwLWI5sBl7DtRA02Nyizg Ov/mFhPb7zfzUOpWFti784H1BDbUExo+aMQCFrtTsnuwJVPlA6WtWMBP6GZy PfaqMyW/2l1ZoHzIM4qOzbKx0XtwnAW438PC8rFHtEbueYWwgHZpb9TN//VP JJaHFssCTnkpN0Kxf4wo+AzfYIF/M5MKXLA/VZdWFT5ggaA7TXW7sHNjRxO1 y1jAMdv0rwk8H+lel2YWqllg28t/z1diX4VKB983scBiZXdVGrb/kp2C8QwL HF3Ji9L53/y2jUXy87DBKvWlcS5eHw5v4/qrRNngtnWGTxX2rqD3BQc02eDa 2/cBVtgb7RzEJP5ig8l5/VUi2PLbJgJ/7WUDU71VuVV4PfKOqei7HWaDz/Xh /LrYczVlmUqn2GCMtvHzEF7Pf/Icefsu4PGiVRLSsb96X6k+kcYGa82nDSbP k+iDsdrmLY/ZYKmkRv029jOl8qSpYjZo1xyX0sdOaZ86GPqDDfxUNsiew/vJ zd55IFaAAzqdhjMa8X48sH3GzEySAxznZJq8sKFYQqGwCgeU306VncT7WeMb /cxNAw7wGv+3YiWYRBN7CMrDMxzA6cm6zsF50a386Yh3FAcsFm2SDcRuXHGt oSVxwPhF7os/gSR6+z4xuSifAx7rxC8zcN5E7VhQLOvhAJ8hBQkfnE9B4snR EZMcMNG3MvUZ59fRCc0/xssc4DuwsU0Z2zzfvahaehHocLy/1eO8W6/6ZXeT 9SKQPemqKY7zMHfdLefp8kWg4OvcuOJNouTecxad3xdBf673MwXsC68OGX1r XwQ0N6e1ejhvbRw3qT9mLwLFbSy3I4dJxEmvmHTWWQK/w5V0buG8PqA8HYcK l0DKC/56cwc8n9NN54rKlgA1OI2z3R7necUHv7tfl4BUscTTDXZ4fXrH2wUN LYGrqRW3GqxJlJWnpEiqLwMjypo8VQt8HmgdeJOUsQy6AzVL5Yxxv7jaT8Ly l4EK3WTrN0Cib//JZJx4tww6Y/ZtDsXn1cPAgUiT5mXwPUTgTeVuXH9JmCVT YgWEUk7w6uqS6L5hQZ/H1RXA/5Jx6fRGEplarpHQOscFPCc7DCzF8fM/CO6S v8wFWiaPduWvJZHzTG+hcCoXRN8b3CQgSiLf9PK/h19wQUYDi/VSEPerPzA8 Z4gLblpu2TJIIdG/H08FiW7mgWmhncv0OQKVHmztisnggZynnnBTE4EMeJL3 Xcjigd25BzeTPwmEnu4rCnzKA8fVa8VUGwj0denVec9SHngux6hc5AeBOrIS N4BGHuj4Uru4/AuBKJMmFhwhXqhOOcqf+JpAlpeflQSc54XSkaP7h5II9Jxf aWVvFC9MfI12J18nkER0kqlMPC80njhkonONQC1hAT8/pfJC79NLKSFxBPIJ 3DEj8ZIXXi8p0m8KI1CYe8mWN4O8MMZgOlPwBIEKtD/msB0ocFp3qQwCAq19 qTVW+w8F0iQljl0zIFCA1gPtLC8KzJibJhr1CKSrGVlhHkCBBlVioy47CVSh uKc74xoFHi/4HLJXk0Btggw5owoKPOQvknNdgkBC3bU3o7fywboBlYNTvTQ0 fLD/0aguH3TKUs2724XfV2s5LxyM+KC6Y+wV4w4aiisj6mhWfDA205dy6RcN UdKihL/58sGj7yoqe6toaNFKJ1Yylw++VXh0jV1AQ2Nl94Jz5Pnh1XQp1Vun aehH2klnhqAAnDzYfzp8RgN9qPvi8EJcAC5Yb5O/NaGBClYr296lCkC+bY9q 8kY0UHzoz/2nNATgtsfTWxi9GmiPk+FuKWMB2ORtJd/VoIFKpMQUj54VgPY7 ppKiijVQZmpxn8CgABRe39cQ76+B/FLYp0wrV8FzI+FVD7vVkfiEgP9C9ho8 P4y19Cg1lJRAQb3eQvAOq/iH52pVlKUaBFbLiUA1DeuxHh9l9J7q88SdKQrR itO9443yqMhmr9fkKzH4OfzEGP2DNLIPqo9u/SoOeRylz9zowd+VBmUnnUrX wYJD/HZp7qLou4bC8kyKBBQtY+W1D1AQBRjFEDGSUNn8ku/tXyN0jfPNL895 rYcZv4lXnk0DQGJ7AfOY4QZ4yozsDFKmwGiq0Y7JjVLw9NXJ4/tcxGGX0v4N t9ZQ4WJboexyPBUmvi2tPC1ChZ50F/r4Uyo0sKUFWYtToaLiut8DX6kwPZqv UUiaCt+aP4gZE5GGdgPlyVEEFV48rBduf0MaVubvEPHfR4VL4T6q8Rky8ImO PJ95LBVyI2/vTHgjBw/+uFpM4HE8Xt7knGyWg/zH2J4CCVQo73ZHz54tBz3T mxBKocIKZYbqLkN5KLuYHPFXNhXGHc189M8XeZiABDjqFVS4tn+PrWCzAtR3 CXpKYVDhv+//5B1mK8Ch6V7n7hoq3CKcGkqXU4Smaqg0o54Kf8qti045rAhX Lp0PluihwrvsOJPUEUVYqDisPtVPhZysCC9SVAm6ljr9rB2iwneMSE7FViVY OrRT+8oU7kd4TuraYCV4NCq79+gcFZqLM9LpaUpwvazEzb0sKryiMLP+7Hsl WFEcaay6RIWaj0mhXb+V4P//j8DOO3GWy1WC/wf29yqK "]]}, {RGBColor[0, 0, 1], LineBox[CompressedData[" 1:eJwt1GlQ1HUcx3FcWIRlyV3+wI87fsvl2qSCoUGy/6/JEskhQiNk5oyg0oyM EJHmpnIYKBsox5Kk7owjhXgfTGIy9P9GC5IFDGrcCnKMSMqNCIJE/Xrwmdej 99MPjU2M3CkyMjIKW9i/JoUMj8zPc8hUwsHK4txvZzlkKkH71vvLyDSHTCWU WBTFLR/jkKmE5j/8m7f2cchUQkBoVuXPdRwylSAJc876Ip9D5kIfHuL4RLHQ /6cSohQDEb6rrJC5FGwfSB/tjJIj0wuWSKaiZvbJkOkJEhp44W9uCWbKFH9N ZnuA4+D5T85FW+Ibkw8u37/oDp4f5bt577VA7kJdvl2lG+hrjasy9OYY3pu+ 7dcGBfhPZoq/71uM+pnqjNAxCk2G7B0HTU3xs57AGypjCrkR+mTPYBMMKgv3 49xd4ae+9yJPFIiQ6QKt9luDmyuMkOkEYGvXUT49J7ha5Dxvm3WAGv+vI6P9 ZoRYfcD5i072oEiaSNBqXwjydzWr1WoCd51z+4Mcx4X+Y7XJJbk2UO8Qacv/ NiSUZ+lqGq9xcHKwztm48YlQ6p98B8flsEkVlDqv7hZ0x5u6UuUySI7vCluN TUJn275CyyQpbDuVfrlYd1XokCbU/DBrBnmjvZ0q81q+IT3OvVUlhnvrbTWX 5lp5aaLmsQ4XQZXH9QMBMb38+vbww9XnZvmyHyNiE2oH+ZgtV/WFfpN86slW taF9hDf5Tj8wpHvG+57JfPvm6Qk+5vW9wnCHDp4rckq2C3vJY6DHEaegEqFU rosZrXrFr8w9Y9AOPxTUoWZWy/fP89beNPhW33Mh9MiVm0maRbDS+XZ79dNJ QdJdX5CxwhiWpq0JkfwyKzSc2B1Tay6G0ytaruVwIkwonN6jNphCq+f4Q+1R McqGxIkvSszAtdPi0bMPzPF4jgh74iTgYi9Oq7kjxbOKFH6xoxSYMrxNdpR9 OmUJTDlejgiMHS5fAkwOo1KaMtruyqB04Ky4vMgG7ddW7o6ukIPPV3tbruwh +KeH89xYoRUUh/jP9HvZo4hXHfY6zIHJoQOmG00d0UPTcn1/rDVsmLgSN25w Qivvi1PxATbgHrt5uFHjghlE5TO8zBaYrtj15oc2OjMCTIrHblUYPpcSYFJc u8kzZaOMAJNicYbxfYkdASbFyP6qvHQvAkyKhgs+0sQgAkyKZb5Oxhu+IcCk uLlBe8PrKAEmRZP46e3iHAJMituLmxELCTApOrzKO7SmhACTYg6KZ9yrCTAp +n+ccl5US4BJcWC0J6b7dwJMimo3rDjVRIBJ8XWm5kurxwSYFC+5PHUf6SPA pLilIvpB/QABJsWKgXdWZY8QYFLclV7Ss2uCAJOitYNVQeBLAkyK1TfS1ilm CTDp/79FgEnxH2HgOtg= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{-5, 6}, {-12.249999344792668`, 29.999997081632706`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.3880452338548994`*^9, 3.3880452378406305`*^9}, 3.388045272270138*^9, 3.4565954088962*^9, 3.50998550259375*^9, 3.510634337421875*^9, 3.510634495046875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"reseni", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{"primka", "\[Equal]", "parabola"}], ",", "x"}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", SqrtBox["53"]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", SqrtBox["53"]}], ")"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.3880452728710012`*^9, 3.4565954089274*^9, 3.509985502796875*^9, 3.510634337515625*^9, 3.51063449509375*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"dosadzax1", "=", RowBox[{"reseni", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dosadzax2", "=", RowBox[{"reseni", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";"}]}], "Input"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"prusecik1", "=", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "primka"}], "}"}], " ", "/.", "dosadzax1"}]}], " "}], "\[IndentingNewLine]", RowBox[{"prusecik2", "=", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "primka"}], "}"}], " ", "/.", "dosadzax2", " "}]}]}], "Input", CellChangeTimes->{{3.50998578103125*^9, 3.50998578203125*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", SqrtBox["53"]}], ")"}]}], ",", RowBox[{"2", "+", SqrtBox["53"]}]}], "}"}]], "Output", CellChangeTimes->{ 3.3880452729411025`*^9, 3.4565954089898*^9, 3.509985502890625*^9, { 3.50998578403125*^9, 3.50998578846875*^9}, 3.510634337765625*^9, 3.5106344951875*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", SqrtBox["53"]}], ")"}]}], ",", RowBox[{"2", "-", SqrtBox["53"]}]}], "}"}]], "Output", CellChangeTimes->{ 3.3880452729411025`*^9, 3.4565954089898*^9, 3.509985502890625*^9, { 3.50998578403125*^9, 3.50998578846875*^9}, 3.510634337765625*^9, 3.5106344951875*^9}] }, Open ]], Cell["A graficky zn\[AAcute]zorn\[IAcute]me :", "Text", CellChangeTimes->{{3.3886653096849823`*^9, 3.388665319979786*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"ordinala1", "=", RowBox[{"Graphics", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "prusecik1", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", "0"}], "}"}], ",", "prusecik1"}], "}"}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{3.388045790745669*^9}], Cell[BoxData[ RowBox[{ RowBox[{"bod1", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "[", "prusecik1", "]"}]}], "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{3.3880452503686447`*^9, 3.3880457948615875`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"ordinala2", "=", RowBox[{"Graphics", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "prusecik2", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", "0"}], "}"}], ",", "prusecik2"}], "}"}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{3.3880457976956625`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"bod2", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "0.02", "]"}], ",", RowBox[{"Point", "[", "prusecik2", "]"}]}], "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{3.3880458019017105`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"p2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"primka", ",", "parabola"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"prusecik1", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"prusecik2", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"Filling", "\[Rule]", RowBox[{"{", RowBox[{"1", "\[Rule]", RowBox[{"{", "2", "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.50998551628125*^9, 3.5099855190625*^9}, { 3.509985551578125*^9, 3.509985579125*^9}, {3.509985635921875*^9, 3.509985686859375*^9}, {3.509985733734375*^9, 3.509985740859375*^9}, { 3.50998582609375*^9, 3.5099858325*^9}, 3.50998606953125*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ "p1", ",", "p2", ",", "ordinala1", ",", "bod1", ",", "bod2", ",", "ordinala2"}], "]"}]], "Input", CellChangeTimes->{{3.509985748421875*^9, 3.509985749875*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {RGBColor[1, 0, 0], LineBox[CompressedData[" 1:eJwl2Hk4Vdv/B3AOKlNEOebZ2VuDBnEjrCXpypA5w0UZmuRGMjQgU1IJJVHS gChDg4pKOivpoJKLMmeWeR7OYDi/9X1+f+3n9cd+1v581lrvtfdW8fK3O0Lh 4eER4uXh+d81wGJyisuVRPpvBOu4XEMYXpZ+/dqSJJJjbLRgzBnCq5v2bKSy JVF8prZp4rAhzBZO9daakUR8D5eKVRsNYdM3/Sa3fkl0efZksHuuITS0jCt7 Vy2Jqn7SU2WtDKGQlULcmRuSSCHSYO+rDAOYfcBCblBVEsmcv+LsYbgb2qsO 2ehoSyD/FqtmE9ddUOqnSOcR+3XIRLf2RugnHSgmxLTnhIojnpaf64KstKGQ yt78UUkxRPlXvvvrx21QbuTpP3lOoihFxnYuYXgzpDncUNseIoy4vD623zVJ mMngK4/OFERnbolmmZaqQf35SwJ3+lcj67mVuK5YJVhfecUnfNUqtPnRputp /1DhdZvMQJoZP3q6pVW9S0UcvunfbZd2k4KEeTVXj/+iwBYZN7OmUh5ku/3C 9Gn3fgClpNtfsZfpPe+0lld+jtK/6F+wc9Lj0Pmr9T2Ob+ZDqgFzflevLtCJ 1xH6rtZr0VeF6wP75Gbp1whfOSumJKqVtZMCnyfod3z1HwdUSqO7I9UKfHWD dEOXgK7Ydnlka7TvIte0m07Ntk0MOaWMAo91WemierrD2rfMNC1V5JERVZR+ 6zk9d5VrgvUDNZQ83ddhJMgAmopAbw9bHQ1JGpuuPscA4k2Rav3L6gjq3i+q G2KAt9TvPDEUDTR93jnicHUVMNt18VapsAay469Vir5cA45POCkvKWigDdQS ry8CteCpVmPNjLEGslLcO6fB2wC2cKe8b1/WQA0mUucLl1vA7u6a1yWCNDR1 RvJ16M5WsE3n0VyUKA2J5YhP7DnZCrZSe0zN19GQJb+wV2tLKzgQfVe+QZqG qiq5+1e9bgOi87N3PxI09MF0WOawbwdItDRuFzKlody/P7yTbO4CWZ9NfQPC aai3rOPc5KpuMPFOq/l3JA3N2LdLOap2A1PDSEezWBoSj22xUXbpButH3eLW X6OhA/0NlSWMbrCzb+ntlXQaqs6pKux71ANCTJs9B4tpqFzjZZihcx8QaZj/ 5D+Ax8/+e9dCcB94tdRT8mkIW6Vz9llKHxBzObVLfAxbQfikcl0fGM491pM1 Q0PvNxxx4dvXD5TTOr7e59LQWwEZ3RrtAfCgpm5xSppAxQORkw5ig6AtpP3X ihm2N7VAdMsg0G2p9ei1wO4pOsowHwRmJw8HVRwg0Mvfbb//ihsECbSjpmcd CPTi187vssuDIH16NuL9IQIVfRl60j0yBOit0jZ3ggn05LGNlx9jBFjPXPZF 9wn0h1hoIHtHQP0TyXvCjwiklp9hMrA8Ar78cfhun02g+8/+qHvojAIKm0m2 5xEopTRs0DpnFDSEoIYvLwgUUfPETzt6DHxrdh0SqiCQ/ThPKMdwAtC2vpFz 6CVQsn/uYInLBOhtnFYD/QT6MW3hfCZ4Akjw9G8k/hDIbOG23ljhBGBMDO2c GCaQEXfz0m+5SXBJI1jPeZpA5DqXqE/sSeDOus1/j0ugi3dbTCvbpkCQNk92 rwyJbh8IFf0+PAWupceHJsqRqJAi9auRNQXUz/lW6iqQqM3X3qdPahr8LtSv ClMmke7uH9EU+2lwolPkdCeNRGPtn+nw2zQYP3HWkbWDRHzJXpfN2qYBeTn9 +cmdJJLdy2ttMzwNBpQkott1SGRWaNR5aPUMGPi8LvnFLhJlh71bijCZAbxN e2y2GZHIVeG5XnnZDMhR9fOMMyPR6Xor3i9fZwCFpWb8aT+J4i+NVX9vnQF9 Zjp3WOYkKhnXdO5gzoBN7j7FblYkWvcxJ2RRexY0Wc/Fc2xJVO1x95Ve4SxI c29nJLiSqEtC74Jx2SyQHd24OekfEi0wmvfs/zoLFOcaBRPdSKS2dUOD89As eHZ2h1aUB4kiuElToepzYMhCRc7Qi0Q6Dy9tKbk3B2pkGZeET5BozVJaSWjB HFAvUKipx+5wygd67+dABl/k41u+JIoWq7P90DwHOkSOaIr7kei/COmQCol5 kBf5wr3zFIly2jZyY1TmQZetx4kr/iQK1TWMN902D3aMSq3dHkAixQnPu9VW 82BTyBPVkNMk8nMv+Pgjfh4cG7c823yGRPBd+d/JafPgAtfG8lgQiSQ3/Pef be48yG899G4W+/33ud6fn+eB259MD0oIiRLJ1X63G+ZBp3Tt7Vhsz1iZeace fL/k6uN8obgeA6PV7SvzQNAz49cCdkeaTfI90QXAfjV/+uRZEj2f9ZLxkF8A AnWueR3YBwsub+rRWwCn3E1/vz6H65Gttx4MWgAJ7RnBBhdIdDakr+VJzAJw 8bdsS8W2aJj39L25AIy/rW4ZxZ65Ihs0/nwBeLffv389jESMgc3Lzz4ugMyk 88dase8Yg7iA2gUwK+xZoxKO62V7p8+OLIAZtwPOT7DXO4aovGEvgLvbHS/9 wR58EZ8fsoYJPH4ctVCJwPWLZGjvojKBkXZMvjN24vGiD2wNJtA7nJ+VgO1V STct28kENo4d2uXYOsoNP8JMmCBaQsZjBHtNWL+TkR0T/Jd2WGX9RdyP5oVu 7mF8/0BxuD72C21B30/+TPCRI3bGHTsmSW42OgKP3xLKG459cHRL2N7rTCAb MULewd74NxRYdY8JpkePDb/EXsmyS6zKZ4J+lak9Vdj1Kz7UK++YYEYpRqcV O8c19KF5NRPI/1H+NIh9tuSKpkgzE3gF1QzMYFtK3CuuHWCCz1/DsjnYSqee 7U6aYwIwrM9ZwZ6pQZU2fCzQXMc3wsVmaDRaSUiwwLWI5sBl7DtRA02Nyizg Ov/mFhPb7zfzUOpWFti784H1BDbUExo+aMQCFrtTsnuwJVPlA6WtWMBP6GZy PfaqMyW/2l1ZoHzIM4qOzbKx0XtwnAW438PC8rFHtEbueYWwgHZpb9TN//VP JJaHFssCTnkpN0Kxf4wo+AzfYIF/M5MKXLA/VZdWFT5ggaA7TXW7sHNjRxO1 y1jAMdv0rwk8H+lel2YWqllg28t/z1diX4VKB983scBiZXdVGrb/kp2C8QwL HF3Ji9L53/y2jUXy87DBKvWlcS5eHw5v4/qrRNngtnWGTxX2rqD3BQc02eDa 2/cBVtgb7RzEJP5ig8l5/VUi2PLbJgJ/7WUDU71VuVV4PfKOqei7HWaDz/Xh /LrYczVlmUqn2GCMtvHzEF7Pf/Icefsu4PGiVRLSsb96X6k+kcYGa82nDSbP k+iDsdrmLY/ZYKmkRv029jOl8qSpYjZo1xyX0sdOaZ86GPqDDfxUNsiew/vJ zd55IFaAAzqdhjMa8X48sH3GzEySAxznZJq8sKFYQqGwCgeU306VncT7WeMb /cxNAw7wGv+3YiWYRBN7CMrDMxzA6cm6zsF50a386Yh3FAcsFm2SDcRuXHGt oSVxwPhF7os/gSR6+z4xuSifAx7rxC8zcN5E7VhQLOvhAJ8hBQkfnE9B4snR EZMcMNG3MvUZ59fRCc0/xssc4DuwsU0Z2zzfvahaehHocLy/1eO8W6/6ZXeT 9SKQPemqKY7zMHfdLefp8kWg4OvcuOJNouTecxad3xdBf673MwXsC68OGX1r XwQ0N6e1ejhvbRw3qT9mLwLFbSy3I4dJxEmvmHTWWQK/w5V0buG8PqA8HYcK l0DKC/56cwc8n9NN54rKlgA1OI2z3R7necUHv7tfl4BUscTTDXZ4fXrH2wUN LYGrqRW3GqxJlJWnpEiqLwMjypo8VQt8HmgdeJOUsQy6AzVL5Yxxv7jaT8Ly l4EK3WTrN0Cib//JZJx4tww6Y/ZtDsXn1cPAgUiT5mXwPUTgTeVuXH9JmCVT YgWEUk7w6uqS6L5hQZ/H1RXA/5Jx6fRGEplarpHQOscFPCc7DCzF8fM/CO6S v8wFWiaPduWvJZHzTG+hcCoXRN8b3CQgSiLf9PK/h19wQUYDi/VSEPerPzA8 Z4gLblpu2TJIIdG/H08FiW7mgWmhncv0OQKVHmztisnggZynnnBTE4EMeJL3 Xcjigd25BzeTPwmEnu4rCnzKA8fVa8VUGwj0denVec9SHngux6hc5AeBOrIS N4BGHuj4Uru4/AuBKJMmFhwhXqhOOcqf+JpAlpeflQSc54XSkaP7h5II9Jxf aWVvFC9MfI12J18nkER0kqlMPC80njhkonONQC1hAT8/pfJC79NLKSFxBPIJ 3DEj8ZIXXi8p0m8KI1CYe8mWN4O8MMZgOlPwBIEKtD/msB0ocFp3qQwCAq19 qTVW+w8F0iQljl0zIFCA1gPtLC8KzJibJhr1CKSrGVlhHkCBBlVioy47CVSh uKc74xoFHi/4HLJXk0Btggw5owoKPOQvknNdgkBC3bU3o7fywboBlYNTvTQ0 fLD/0aguH3TKUs2724XfV2s5LxyM+KC6Y+wV4w4aiisj6mhWfDA205dy6RcN UdKihL/58sGj7yoqe6toaNFKJ1Yylw++VXh0jV1AQ2Nl94Jz5Pnh1XQp1Vun aehH2klnhqAAnDzYfzp8RgN9qPvi8EJcAC5Yb5O/NaGBClYr296lCkC+bY9q 8kY0UHzoz/2nNATgtsfTWxi9GmiPk+FuKWMB2ORtJd/VoIFKpMQUj54VgPY7 ppKiijVQZmpxn8CgABRe39cQ76+B/FLYp0wrV8FzI+FVD7vVkfiEgP9C9ho8 P4y19Cg1lJRAQb3eQvAOq/iH52pVlKUaBFbLiUA1DeuxHh9l9J7q88SdKQrR itO9443yqMhmr9fkKzH4OfzEGP2DNLIPqo9u/SoOeRylz9zowd+VBmUnnUrX wYJD/HZp7qLou4bC8kyKBBQtY+W1D1AQBRjFEDGSUNn8ku/tXyN0jfPNL895 rYcZv4lXnk0DQGJ7AfOY4QZ4yozsDFKmwGiq0Y7JjVLw9NXJ4/tcxGGX0v4N t9ZQ4WJboexyPBUmvi2tPC1ChZ50F/r4Uyo0sKUFWYtToaLiut8DX6kwPZqv UUiaCt+aP4gZE5GGdgPlyVEEFV48rBduf0MaVubvEPHfR4VL4T6q8Rky8ImO PJ95LBVyI2/vTHgjBw/+uFpM4HE8Xt7knGyWg/zH2J4CCVQo73ZHz54tBz3T mxBKocIKZYbqLkN5KLuYHPFXNhXGHc189M8XeZiABDjqFVS4tn+PrWCzAtR3 CXpKYVDhv+//5B1mK8Ch6V7n7hoq3CKcGkqXU4Smaqg0o54Kf8qti045rAhX Lp0PluihwrvsOJPUEUVYqDisPtVPhZysCC9SVAm6ljr9rB2iwneMSE7FViVY OrRT+8oU7kd4TuraYCV4NCq79+gcFZqLM9LpaUpwvazEzb0sKryiMLP+7Hsl WFEcaay6RIWaj0mhXb+V4P//j8DOO3GWy1WC/wf29yqK "]]}, {RGBColor[0, 0, 1], LineBox[CompressedData[" 1:eJwt1GlQ1HUcx3FcWIRlyV3+wI87fsvl2qSCoUGy/6/JEskhQiNk5oyg0oyM EJHmpnIYKBsox5Kk7owjhXgfTGIy9P9GC5IFDGrcCnKMSMqNCIJE/Xrwmdej 99MPjU2M3CkyMjIKW9i/JoUMj8zPc8hUwsHK4txvZzlkKkH71vvLyDSHTCWU WBTFLR/jkKmE5j/8m7f2cchUQkBoVuXPdRwylSAJc876Ip9D5kIfHuL4RLHQ /6cSohQDEb6rrJC5FGwfSB/tjJIj0wuWSKaiZvbJkOkJEhp44W9uCWbKFH9N ZnuA4+D5T85FW+Ibkw8u37/oDp4f5bt577VA7kJdvl2lG+hrjasy9OYY3pu+ 7dcGBfhPZoq/71uM+pnqjNAxCk2G7B0HTU3xs57AGypjCrkR+mTPYBMMKgv3 49xd4ae+9yJPFIiQ6QKt9luDmyuMkOkEYGvXUT49J7ha5Dxvm3WAGv+vI6P9 ZoRYfcD5i072oEiaSNBqXwjydzWr1WoCd51z+4Mcx4X+Y7XJJbk2UO8Qacv/ NiSUZ+lqGq9xcHKwztm48YlQ6p98B8flsEkVlDqv7hZ0x5u6UuUySI7vCluN TUJn275CyyQpbDuVfrlYd1XokCbU/DBrBnmjvZ0q81q+IT3OvVUlhnvrbTWX 5lp5aaLmsQ4XQZXH9QMBMb38+vbww9XnZvmyHyNiE2oH+ZgtV/WFfpN86slW taF9hDf5Tj8wpHvG+57JfPvm6Qk+5vW9wnCHDp4rckq2C3vJY6DHEaegEqFU rosZrXrFr8w9Y9AOPxTUoWZWy/fP89beNPhW33Mh9MiVm0maRbDS+XZ79dNJ QdJdX5CxwhiWpq0JkfwyKzSc2B1Tay6G0ytaruVwIkwonN6jNphCq+f4Q+1R McqGxIkvSszAtdPi0bMPzPF4jgh74iTgYi9Oq7kjxbOKFH6xoxSYMrxNdpR9 OmUJTDlejgiMHS5fAkwOo1KaMtruyqB04Ky4vMgG7ddW7o6ukIPPV3tbruwh +KeH89xYoRUUh/jP9HvZo4hXHfY6zIHJoQOmG00d0UPTcn1/rDVsmLgSN25w Qivvi1PxATbgHrt5uFHjghlE5TO8zBaYrtj15oc2OjMCTIrHblUYPpcSYFJc u8kzZaOMAJNicYbxfYkdASbFyP6qvHQvAkyKhgs+0sQgAkyKZb5Oxhu+IcCk uLlBe8PrKAEmRZP46e3iHAJMituLmxELCTApOrzKO7SmhACTYg6KZ9yrCTAp +n+ccl5US4BJcWC0J6b7dwJMimo3rDjVRIBJ8XWm5kurxwSYFC+5PHUf6SPA pLilIvpB/QABJsWKgXdWZY8QYFLclV7Ss2uCAJOitYNVQeBLAkyK1TfS1ilm CTDp/79FgEnxH2HgOtg= "]]}}, GraphicsComplexBox[CompressedData[" 1:eJxNmHk81N0Xx8duLBnM2NJiwnx5pMVSlO63JEu2smXNo+xEtuxblmxFSUJp UamkyF6Z+yiSbClbRaKilDBmsf++fj3j9/vrvM7rLt87n3vO+54zci5+h105 cTicLQcOt2KJ/ElC3evxUIBbN8nrHBkV39a8pDLHB1OljsdILMqhKSPuYqNP eeGLKbWUQCc59PDriJw72Tzw7led1xYtG9E224XGHQHc8JvK0vBarY0o9eR7 CeUdXPCP3YByU1X6yKKc8I9dj9Zf/FgX1YWDf6wsaqM4nWWutkxVEZ81KL68 Fu1NEz9XPr5A/dmYot8fLIPqck+29wXMUcmcoe4+WtKo5WjFb0F5FvVe4Hsm j5gU2ipp4T44RKd+S7ur5jcpgW61L5EL9qFRczf3ZGpXkVAt/MRTKfIUtYD7 lJNQFhF1yO7W4DD5RZV0DTZBLcRRYllcoYjvGFXPZ2hUd60YKnFzqWXH5xFq UzF12oRFQD8FjzA7vw5QQwdYOkFhIqiCufeAa9k7Kv6d3SlbFWF0x8/6fEn/ RmrywCkaZ6kA2qMhs2PkVgbVR/1E08Fd/KiNee7mGS8I6HTj8OvTPKh1z/Hd Yuu6gFfLN/8noVzor377wRCHDyAR72kwjHCgtLchYg81h4GwSsov81eLQOqi 4dY8uVEw5lXV4TrIArTYg+neNeNAOKYiMFt/BkTc9N72/sgkIAYc0r5UMAFI Wn16n15Ng5K1hWPxfV+A4HGHsF4CHRR/ktXYH9YLSJEKXoIpTADnroUoPHsA wpV4w7f3zoJrl1yuUQLbqKEpwmp10gtgSEGzdcxtiJraY3s3KmMJIHbutxga P6gRH5025Hnj0J8nI6I8Sqeou/Y/NhC/y4H+JLSRTYoY1LshFziS3nCiRe9N eKUOzFOPcfKJKM1woel42d1FncvUO9zr5j238KCmeG3GWydOePlNfUiRFS+6 /WbUL4P73JBE4noTmc2HKivz3phF+OBA2fuYxDZ+tO5Y5bJAPh5aSO+pT57C o7e3R0aKjAhCC6buB4qqIHp7IrnKzGENxF3rTv7HSgj9Ywlw/vrcmbRTwugf KwpjZBo8aGVr0D9WDD5yJPVZ9oqgf6w4xP83Dwio2H/zggSzZe/wxKXzQ6Oz b+PRA2TUv18xLFWHgA6Vm0wTI4jQ8rwE/n43P1Q2TEvo9iKj8i9yA/KIBNTg zLav6kpE+HSiIibcjYCGDnguz7QSobpJuwA6xw/zFN15NkaR0ejaQ35kHAFd CLg5uB9HhBJffCM5DxNQleYPLO4iInSZnY+fDiegL6aZPF/pRFikfC8tVQgP D5O69fSSyKi1h8OH1nGRf604fO7UEt6kT0CTnmXT088RoUjQkbgqfwK6fuwR p+9nIqyKLkxQTSSgPot78I4CJOggLdX6kISHpUJC33pTySjXSE1/5meRf604 lClghRXvI6DqO6do5olE6FaWFJvrTUBbXYQ5tvUSodDTttOEWAIqFZrPJ4cj Qee9JxONUwkojB8WuEwkwRqCmc8+GTx0OEPRlMsgo3YbR/sCPor8a8VhY925 MGmUgKYGb6BtjyVC0c51sXhPAkq+tgsn3kWE1e+Pn46LIqAnKl/xcs0ToaAz f+KzZAIqAQkCESIkWEF+n/ghnYB66FUIVkuTIJtnTz4y//5/nvWa7b/c+nXD Ks8YaoGH0r1lVnn2nDbrlxtOWuXZz3VhgWtaCas8c7hSkc3ZxrfKsy2aC+KW HEuAzbMkK8NyQ4dRwOaZmnMBzwHtHiqbZ77OwobujBkqm2elF7uMok9xQjbP VGI4ch5fwEM2z7y5PiiWyRIgm2fZzrntqSnikM0z1+qCTXsyJSCbZx0bR9bm FEtDNs8+6bKoofGykM0z1brCYmvcBsjmWVNta2BNw0bI5hlhr7JUX78cZPOs wlRUx2WSDNk84xw5u674+ybI5plyTqTUpafykM2zMVN6WFWKAmTzjNnR1C2h pgjZPLujjHvg8kIRsnnGmYy8bzSiQDbPeF+sd3Uqp0A2z3gyK3MHBBDI5tnz oI6MUkMEsnkWoOs+/PIENv4vz2RtdwZmxSCQzbNBsQAvrTAEsnl235Z721En BLJ5ZiH7unODMgLZPPPfmnn74QgFsnmmHpJ+qySGAtk8E5lsGBQVokA2z86Q xCVHExUhm2cJ/CLkNQMKqzzzKnqBy1ZSWOXZm/v9f2mZya/yrGU0dPSx86ZV noVtTy+94UNe5Zk7WiwSaiy3yjNH85A7R5Q2rvJMgJltHD6xbpVnm6LcVD5T 1q7yjHPtx4T9rlKrPKuxlrX6f56tLSnbkbZHDk1Sd74uX/IF7Ajnk8sToEDe NKNBTt/v4CY/KqQeR4Ezx7KYIhoTIDj0cmHlZwo0mLj+xCFrChz3USLs3YzA TNO8o/a/aCC+tW+pC9OXMAlPThkzQNFpkYNa4Qhs7iJNr3/EAjXNg/eEsfsJ 60+xDmHNgb00U0477P44HqlN5FssgksSvup79REIXwrOHClfBpzy9xoT8Qi0 J+ArrAU40Oza65n/VFBggOOmW8Y6nKjreYXuDAMKZPNY5gexM7dZYpXHAxO/ Eiy+yaG7E8b7PU+OgKY850EwpghFCEbJpvpjIN/Z/sQtNwoMCpj45xnjJ+if Sv7R0UKBw81JIWvpk6By513xdlkEdunWHr5iTwNPI7lqvlkicM29s8FfSulg 2Px1vW4wAk/cWad6UZYFLtOFr86uxB+Hgcc79zlgGpC4yTcIgU8LrhHuVy0A PpG8wkwLBCp0lJuOb1gGF6i1JuEyCPRmPPZk1eHQC+06IYutFNhjPs7YQuNA 10VKDTcfp0D2e/KxdM/NrFxJuMBzUKP6/A+wNqbn8ck8Cgy2Ut/sEvgb9NlY JIgwKbBU/Bnu6uZpQPxL86zmbgSa2kb4SMfMAOJxM5dAdwSKadJ8l34wQPUH teTiKATKLQlXFevOgvCue5fbIrF8KXu9XyplHlRebOfFYfMPPG96nT65COz9 o377ayFQ1bnc+BgZh143LNi5D/se+32ra3UStKOTVt83j61hcpXaZFRKZVuI 0Lth0JadfDOuRxFmd72yD6oYBRx1gs8/HaHAilnZO9k2P0Gv2eD15noKVNWc fTt3exIsdi0m8hARGFRvYFwvRgNNZlYbgswQKJQczBw4SgexelfyNAMQ2JAl Z9zZxQRJ8JjQ5Ir+JMrJ0xvmgNvSfvJCCAJlxHuvb/dYAOKpyVyILQL7DvNG VvQsgTaN4d8hZAQGeqbsN7yAQ79qEBqT+yjwjFFHoVw7Byprw/nANYAC2e8z 1+SeLotlSRjX3IIfWP4OxAS6lxYysPN/dBHTejcB1jhyCGX/pMD52C1OUZ+m gIP2UvS4OgJ/vxVw09acAYd+L5cYH0OgqPj738x8BuC6r/BYDtM7aEz03cgs CzS68ShKRWP6N94zeYnOg4O4vk/dXggs0lp0IN5YBGqXN29OQbH421/TdG5+ GdxfaviUgUNW64Vot/G/XI5KwG2vlGwji2jg1ny/Da8dAkXa7tB+LNLBZdcp 09+nELj2mTTBzo0FLFmaSOmKXr88jio8mgOXTqidSD+JwJLB8QDWyxnwSvnl en1vBBJthX5ya2P1Ikn7ZRt2vnZxgVzfjFnQK9jBoxqBrNYnnbJ+J2JTSav1 yU5pbRMeVzLKi7N84Zg4DEBJLYhuU4Q9j/EH+LxHwZrzxtYDhyjQUqdCGsf/ EyD6HMOFNRT4zqc8/kfMJFAyMYmIEkHgiwjCK9OJacB75EFlvjEC0+keNXY7 6cBUl+tkmj8CfyZt+vDrAcZ/tXrn1yu/pzCHbjc/C3J6Ny/KhyLQ0DTAi4Eu ABM+4vUOewSWER+JSZcvAd786D4rRQQyyTNlJ2Nw6IvYcC5kkAJd9PcG5T3h QOWdLoyIh1Egu77SH5O2d9suBV/cFZjxq/oOxuZ2C99Mxs6/cS6hKGECzFPM 1beNUuCN6jEh35opwO+XrEbehkA0q2u4RXQG3Lfg05D5G+NlXNujoCAGUMrJ L9PC9Ls6IH6Mo5sF8HtcUq6s3L+ZTNdV2XlQ1/yVcsMH409QrkJf+CKw8M3f MaWLwFEeF8eZnmVgcnrQiMiDrNZ7omnpDySzJWB80lS3UCwNTJfhR2NtEHh2 V36Few8diNsdrb2F5cP+8rWFp/aywL4rYgmDK3qd6htZSJsD7tTSZd5ABC7m P/595uYM2Kpzu9DdE4EXXi6XxIkxQRaz2lYfOx+LX4iS5jELgkgP/Pmx+GXX l6k2gT58kAQzpOI1/06mA14jjaOvsP1yCzY8K2cygT2HUsgy9r3zRd9UI54z gFrDA7MpbL0RTUSvaf0s+LGvOTYK41GmU8X2EwoMEBQYF7MRe7+nX0rG7U5j gTe8Eake2PrsH1J/nfmbCXQ16zp2YX7Ren68efksuFVJsN2DvTfs+jZJ9rBo o+X/6tubR8O0NcLJ6IKnqzev0zC44KQdSWtWhKeKlJ6YHxgF4whF29IU4+2n 5S6NoXHwtWLrrvhKCkT4RexcfCZBnNVSwlZhBPrYBfFJfpwG3ZsSaykHEdha Mix1WZ4OJE5bVZX4ITA2ruhGZD4TPDTbIVa2ou/x9uoD32cB80zCP2VYPA6N U02PbF4AfZVULxlH7P7p3E6vC5eAcl9pgA6CwNqYu2OJwTh0adxvbGKIAtv1 wgetyzlQwTEyzSWSAtn1ubXM4PyHg1LQNU/ZszbrO6Csv696IgE7f4PenvcO EyA55mJcyBcKpB/W+/KlaApcs+wuUN+CwDE/TbkLyzSQ3Fa1bfYoAjt36os+ dmaAglZ66lNMP7W+bOXMBhaYSXfY17cSj8TD2akCWDxOtd+I9UWgl9g3vLb7 Ijj0snpHgR4C332rKr79YhkomJveNuNDVvuF/W8ftziVSkBlVytity8NNFua uGtaY/yYJpJuN9DB1ouVzUzs/ewvKXDj3cICOAvj2okVvXYTbo+FzYHcEtPC p1j83A6XVD2UNQPEzv4j5e+B5UN0mDBcYgBbJYnFOSxe0rkyJqStZ0HKovsD Xyye2P3JG+VW/er3JNjaMZ9TGEgHockpeC5sv82XriXs/coEp73iPeew73XZ O5+rfcgA5gz82XRs/adfmUJWQrPAa/BGRBu2fydJ9UKJKAPsLumnpWL3l9SQ a/A6lAUU8Rc5zmLr310/n9ZkwgTVrjJ9fJivJZ3SOVg4Cw79uN9bg+nJ7o8c Kp8fvOtHgjbpN8SPQiY4ztXmNITNx4+czw8YZYG5D79jHDG9H1Xn9Y5ZsIDT O+elZmzckpBkrKvIBE4HpK9kYONcN67SNwmwgHCizfaVfHJsy6l9cIUFjkyN NeiszFcrbDEMZgLXZOlST8xn92Omh2Wob7X+14/ZVk8qdiSQUdb6iXo7o2Hg ep3Yc79JETYX1AbT1UYBYflGeYYxBQo9uvXQvHUcGIyJSEw9psAuq2d6V10m QZTK5TY+IaxeM7ytON81DYrn8195G2H5cWaDYY0MHWwLTBLZheVDy9Jx3v3n maClp+nndew8cwd+5O4emgX9AR5aDEzPkrpvaMqmBSD13fTsMywfiG4PTxfl LAGnMGC4RQmLJ1Vu7kx/HCr62E7IfJgCuRtzxCsfcKCXTiyc4o+mQHY/2Ttk NZJ1RApWna/b5BTzHcTUTTa+icfOf2Fchm4wATrvxPRIYPX91Wu0jo35U0An b8/FXaoI3H3UAz3FoAHnSK16Nywf/IkJe7usGUC4Rrk0Aru/aCursza1LLDr Qck12gr/GL7BsRzzwFdygf4LywfNz0ILXo6L4KB5TIjfAYxnNn+3xzxZBmq1 0Y7e/Mhqf/tB3tE/6okEjLZMVqs9TgPrpfI0zllh9WP7Ib3GGjpgxI8lXcXy QV7ZsaVNgQXKFJ92z6zotV4ledB/Drio9yaQsHpyztPQROPMDPBDwo9NY/VZ gF2VzqcZBggRM0nswuK1J9bk8GfjWeDmlWtyFYtndj89vfesscAYCfrc3/my 3pMOvEJ2XbwSsJLff4/xf2SCH5KcX+nY9wJ2XKH23WKAS0PUERtsvbL3IX9Z rlmwID8STsP295/yev6ajwH6cjO+6GD31wlsS877sQCZi15/FVsfFNXx5Ksu ExSbdJ0fx/RKyDFUv50zC8KiWqVmMD3Z/fy+LWKxElEkeAN/7JRiNRPcuvIu pWclfp0tlrUGWcBNpEY1Gls/p26/65ERC6g/MfB+h43PjDdEusgywdfSzD3e 2LjphqO24zgWyNUzW1rJh2Ijm3XB2SwQtgQ7LVbmr/k45+HNBA0TovErPvv/ g5xFVUFTfRLU5P6yp7IIi8/nKSP12PjZLR85wU4WSAqvNxjF/GHpoY3hE0xg WfPl8iLm79br+8IVzwLOApKTEZiv3mRlf8cG089R7BIZ84VEhh9eesUEdsfv fBrDfDft94FyjixQP2an8xTza+QHsxzEsX6IuldsZT/2/xflMsTN1iok+B80 /15I "], {{{}, {}, {}, {}, {}, {}, {}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[PolygonBox[CompressedData[" 1:eJwl1He0z2UcB/B77b33uq5VqYyUlK1QZF07kWSVMpKy92qYZYYSKkILpZQQ lZURpTJDKG0zo9fn3D9e9/1+Pr9zvt97nuc53+QufVJ6p0lISEikvT9NZUn5 h9zCG0xmJM1oTgtSaEkrWtOGtrSL5/AgHXiIjnTiYTrzCF14lK50ozs9SPbu P+WXvMkURtGTUn77S37FW0xlNBXMr8pvWcU8HqO0+d/ya5YyjTFUNL8m97Ga +TxOGfN/5FaWMZ2xVDK/LvezhgX0oqz5v3Ibb/MS1cwyckj/jHFUTkzd4O/E h7xKDeusHNM38gTlrM/J7SynjnVOTuovc5eeicP6eu7V83JGH89teiLf6x9R T8/NKf01aurZ+Fl/QBZlk95A5qc1v8U5yxI8qd8gz8eZyx3yflmINqywritz 0ZJfrJvIYrRjhvXdMjMpHLFuLIvQls+t68t8tOJX66ayOBP0KjINB/RGsjBr 9XtkHk7rC6mlZ+e4/gUN9QKc1Xtzo35B7mQlM6luloWj+gYmcrt1Wn7QP+Z1 +nCT2UX5De8wi+e4wzwdP+qfsIi+lDe7JHfxLrN5nqrm6flJX8di+nGz2WW5 m/eYwws8xS1++0/u4X3m8iL9eZoBPMOzDGQQgxnCUIYxnFs954rcywe8wiTu NM/AQf1TllDbOgcn9M3cpxfkd725TEpM/VaMiDsXZx53KO5U3Nk40zjn2ON4 VtzTOL94V9yHOK84w7hLseexL3G3437GnY33UZlKVKRC/P+xF7FXsb9xJnGu cT8pR1nKUJpSJFOSJEpQnGIUpQiFKURBCpCffOQlD7nJRU5ykJ1sZCULmclE RjKQnnSkJb6nVeJ+UI0a1KVhQup39n88BZGP "]]]}, {}, {}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData[" 1:eJwl0WV0FnQYxuENpFO6YUqX0qE0SI8xWICE0rnRiHR3CkiDEko3KiVg0N2N 0g1K97XDh2u/+/+852zn7A1qFh0aFRgQEJDYj2DNpvf1bxYxjgHUIYS6hFKP +oQRTgSRNKAhX9KIxjShKV/xNc1oTgta0orWBPnbD3QnPzGegbThI5891F38 zAQGUdD9tR5jHbNoy8fu/+luFjORwXzi/kaPs57ZtCO7+/+6hyVMYgifur/V E2xgDu3J4f5I97KU7yjpFo8L9laGUijmn8tJ+YW5fO6diH/tHXQgp/dj3ccy ynsn45o9mVJ2fC7av1PZTsktexiF7UBO2b9S0f6QG/Y8ygS+/44v27U0I3/Y X2hqwrgT8z1rFjraufRJzHeu+7W6piOc5d4VNDn1uO5dWzMRyRTv0pqAUC55 19QMRLDNu4qmoj63vYM1M8PtIhqL03YNTc9vdiVNwU37B8raSbhi/0lVOw13 7Shy20/1ACuYymduCfnH3s4IinrH5oy9kR+JJo/bMz3ISr5nJMXcP+CsvYn5 dCKv23M9xCqmMYri7nE4Z29mAZ3J5/ZCD7Oa6YymC/l99lKPsIYZjKEr3ehO D3ryDb34lt70oS/9KOD3vNKjrGUmYynhHpfz9hYWUs47KVftv6hmp+WeHaJZ aUB/73cQHIWF "]]}}}], LineBox[NCache[{{Rational[1, 2] (1 - 53^Rational[1, 2]), 0}, { Rational[1, 2] (1 - 53^Rational[1, 2]), 2 + 53^Rational[1, 2]}}, {{-3.140054944640259, 0}, {-3.140054944640259, 9.280109889280517}}]], {PointSize[0.02], PointBox[NCache[{ Rational[1, 2] (1 - 53^Rational[1, 2]), 2 + 53^Rational[1, 2]}, {-3.140054944640259, 9.280109889280517}]]}, {PointSize[0.02], PointBox[NCache[{ Rational[1, 2] (1 + 53^Rational[1, 2]), 2 - 53^Rational[1, 2]}, { 4.140054944640259, -5.280109889280518}]]}, LineBox[NCache[{{Rational[1, 2] (1 + 53^Rational[1, 2]), 0}, { Rational[1, 2] (1 + 53^Rational[1, 2]), 2 - 53^Rational[1, 2]}}, {{ 4.140054944640259, 0}, {4.140054944640259, -5.280109889280518}}]]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{-5, 6}, {-12.249999344792668`, 29.999997081632706`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{ 3.3880452731714334`*^9, 3.3880458053666925`*^9, 3.456595409099*^9, 3.50998550309375*^9, {3.509985584515625*^9, 3.509985598796875*^9}, 3.509985750515625*^9, 3.50998583859375*^9, 3.510634341296875*^9, 3.510634495484375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"plocha", "=", RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"prusecik1", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"prusecik2", "[", RowBox[{"[", "1", "]"}], "]"}]], RowBox[{ RowBox[{"(", RowBox[{"primka", "-", "parabola"}], ")"}], RowBox[{"\[DifferentialD]", "x", " "}]}]}]}]], "Input", CellChangeTimes->{{3.509986090140625*^9, 3.50998620259375*^9}, { 3.509986271328125*^9, 3.509986272046875*^9}}], Cell[BoxData[ FractionBox[ RowBox[{"53", " ", SqrtBox["53"]}], "6"]], "Output", CellChangeTimes->{{3.50998618515625*^9, 3.509986203640625*^9}, 3.50998627328125*^9, 3.510634343609375*^9, 3.510634496234375*^9}] }, Open ]] }, Open ]] }, WindowSize->{961, 741}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, ShowSelection->True, Magnification:>FEPrivate`If[ FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.25, 1.25 Inherited], FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (February 23, 2011)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 127, 1, 32, "Subsubsection"], Cell[709, 25, 293, 5, 55, "Text"], Cell[CellGroupData[{ Cell[1027, 34, 504, 13, 35, "Input"], Cell[1534, 49, 7114, 124, 130, "Output"] }, Open ]], Cell[8663, 176, 169, 4, 34, "Text"], Cell[CellGroupData[{ Cell[8857, 184, 600, 15, 35, "Input"], Cell[9460, 201, 7895, 138, 169, "Output"] }, Open ]], Cell[17370, 342, 1294, 27, 75, "Text"], Cell[18667, 371, 334, 6, 34, "Text"], Cell[19004, 379, 711, 22, 35, "Input"], Cell[19718, 403, 313, 9, 35, "Input"], Cell[CellGroupData[{ Cell[20056, 416, 143, 3, 35, "Input"], Cell[20202, 421, 3834, 70, 311, "Output"] }, Open ]], Cell[24051, 494, 635, 10, 55, "Text"], Cell[24689, 506, 616, 18, 35, "Input"], Cell[CellGroupData[{ Cell[25330, 528, 420, 11, 35, "Input"], Cell[25753, 541, 6362, 113, 140, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32152, 659, 685, 20, 81, "Input"], Cell[32840, 681, 7456, 134, 143, "Output"] }, Open ]], Cell[40311, 818, 214, 4, 34, "Text"], Cell[CellGroupData[{ Cell[40550, 826, 405, 8, 62, "Input"], Cell[40958, 836, 280, 5, 50, "Output"], Cell[41241, 843, 303, 6, 53, "Output"] }, Open ]], Cell[41559, 852, 353, 6, 34, "Text"], Cell[CellGroupData[{ Cell[41937, 862, 263, 8, 50, "Input"], Cell[42203, 872, 278, 8, 59, "Output"] }, Open ]], Cell[42496, 883, 163, 3, 34, "Text"], Cell[CellGroupData[{ Cell[42684, 890, 210, 6, 59, "Input"], Cell[42897, 898, 2224, 66, 101, "Output"] }, Open ]], Cell[45136, 967, 322, 6, 34, "Text"], Cell[CellGroupData[{ Cell[45483, 977, 70, 1, 35, "Input"], Cell[45556, 980, 134, 3, 35, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[45727, 988, 211, 4, 35, "Input"], Cell[45941, 994, 201, 3, 35, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[46179, 1002, 70, 1, 35, "Input"], Cell[46252, 1005, 164, 3, 35, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[46453, 1013, 363, 9, 59, "Input"], Cell[46819, 1024, 405, 10, 53, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[47273, 1040, 473, 11, 36, "Subsubsection"], Cell[47749, 1053, 1232, 27, 122, "Text"], Cell[CellGroupData[{ Cell[49006, 1084, 523, 14, 39, "Input"], Cell[49532, 1100, 1324, 45, 38, "Output"] }, Open ]], Cell[50871, 1148, 197, 4, 34, "Text"], Cell[CellGroupData[{ Cell[51093, 1156, 584, 15, 35, "Input"], Cell[51680, 1173, 1683, 54, 92, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[53400, 1232, 874, 22, 58, "Input"], Cell[54277, 1256, 871, 19, 474, "Output"] }, Open ]], Cell[55163, 1278, 711, 20, 35, "Input"], Cell[CellGroupData[{ Cell[55899, 1302, 147, 3, 35, "Input"], Cell[56049, 1307, 856, 19, 474, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[56954, 1332, 771, 24, 32, "Subsubsection"], Cell[57728, 1358, 101, 1, 34, "Text"], Cell[57832, 1361, 200, 7, 35, "Input"], Cell[CellGroupData[{ Cell[58057, 1372, 643, 21, 58, "Input"], Cell[58703, 1395, 7569, 131, 298, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[66309, 1531, 154, 4, 35, "Input"], Cell[66466, 1537, 565, 18, 53, "Output"] }, Open ]], Cell[67046, 1558, 271, 8, 58, "Input"], Cell[CellGroupData[{ Cell[67342, 1570, 406, 12, 58, "Input"], Cell[67751, 1584, 410, 13, 53, "Output"], Cell[68164, 1599, 410, 13, 53, "Output"] }, Open ]], Cell[68589, 1615, 124, 1, 34, "Text"], Cell[68716, 1618, 409, 13, 35, "Input"], Cell[69128, 1633, 315, 9, 35, "Input"], Cell[69446, 1644, 411, 13, 35, "Input"], Cell[69860, 1659, 291, 9, 35, "Input"], Cell[70154, 1670, 802, 20, 35, "Input"], Cell[CellGroupData[{ Cell[70981, 1694, 214, 5, 35, "Input"], Cell[71198, 1701, 17279, 296, 298, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[88514, 2002, 479, 13, 57, "Input"], Cell[88996, 2017, 220, 5, 59, "Output"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)