(* 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[ 75129, 1848] NotebookOptionsPosition[ 72355, 1760] NotebookOutlinePosition[ 72773, 1776] CellTagsIndexPosition[ 72730, 1773] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Splines (Neline\[AAcute]rn\[IAcute] interpolace)\ \>", "Title", CellChangeTimes->{{3.5325017305927067`*^9, 3.532501744294155*^9}}], Cell["\<\ Tom\[AAcute]\[SHacek] Kalvoda, KAM FIT, BI-ZMA 2013/2014\ \>", "Subsubtitle", CellChangeTimes->{{3.5325017524320707`*^9, 3.532501769300679*^9}, { 3.5932757547345324`*^9, 3.593275768543029*^9}}], Cell["\<\ Motto: Jak spojit mno\[ZHacek]inu zadan\[YAcute]ch bod\[URing] ,,hezkou\ \[CloseCurlyQuote]\[CloseCurlyQuote] k\[RHacek]ivkou?\ \>", "Text", CellChangeTimes->{{3.53250178158109*^9, 3.53250182790903*^9}}], Cell[CellGroupData[{ Cell["\<\ Propojen\[IAcute] bod\[URing] p\[RHacek]\[IAcute]mkami (lin\[AAcute]rn\ \[IAcute] interpolace)\ \>", "Section", CellChangeTimes->{{3.5325018414821672`*^9, 3.53250185895818*^9}}], Cell[TextData[{ "Jsou-li d\[AAcute]ny body ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{"a", ",", "b"}], ")"}], TraditionalForm]]], " a ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{"c", ",", "d"}], ")"}], TraditionalForm]]], " v rovin\[EHacek] takov\[EAcute], \[ZHacek]e ", Cell[BoxData[ FormBox[ RowBox[{"a", "\[NotEqual]", "c"}], TraditionalForm]]], ", pak p\[RHacek]\[IAcute]mka proch\[AAcute]zej\[IAcute]c\[IAcute] \ t\[EHacek]mito body je pops\[AAcute]na rovnic\[IAcute]" }], "Text", CellChangeTimes->{{3.532501897636986*^9, 3.532501953074912*^9}}], Cell[BoxData[ FormBox[ RowBox[{"y", "=", RowBox[{ RowBox[{ FractionBox[ RowBox[{"d", "-", "b"}], RowBox[{"c", "-", "a"}]], RowBox[{"(", RowBox[{"x", "-", "a"}], ")"}]}], "+", RowBox[{"b", "."}]}]}], TraditionalForm]], "DisplayFormula", CellChangeTimes->{{3.532501959012535*^9, 3.5325020081720057`*^9}}], Cell[CellGroupData[{ Cell["P\[RHacek]\[IAcute]klad", "Subsection", CellChangeTimes->{{3.532505886838872*^9, 3.5325058910883427`*^9}}], Cell["Nech\[THacek] jsou zad\[AAcute]ny body:", "Text", CellChangeTimes->{{3.53250212972841*^9, 3.532502168077159*^9}, { 3.532502212202393*^9, 3.532502244686042*^9}, {3.532505892866414*^9, 3.532505895348793*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"points", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", RowBox[{"-", "2"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.532502170716297*^9, 3.532502207819313*^9}}], Cell["\<\ Pak rovnice p\[RHacek]\[IAcute]mek a jejich grafy lze \ napo\[CHacek]\[IAcute]st takto:\ \>", "Text", CellChangeTimes->{{3.5325022318132563`*^9, 3.532502240597362*^9}, { 3.533021619187714*^9, 3.533021621588188*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"lineq", "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"B", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "-", RowBox[{"A", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], RowBox[{ RowBox[{"B", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", RowBox[{"A", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}]], RowBox[{"(", RowBox[{"x", "-", RowBox[{"A", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ")"}]}], "+", RowBox[{"A", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lines", "=", RowBox[{"lineq", "@@@", RowBox[{"Partition", "[", RowBox[{"points", ",", "2", ",", "1"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"doms", "=", RowBox[{"Partition", "[", RowBox[{ RowBox[{ RowBox[{"points", "//", "Transpose"}], "//", "First"}], ",", "2", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"range", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Min", "[", "#1", "]"}], "-", ".2"}], ",", RowBox[{ RowBox[{"Max", "[", "#1", "]"}], "+", ".2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Min", "[", "#2", "]"}], "-", ".2"}], ",", RowBox[{ RowBox[{"Max", "[", "#2", "]"}], "+", ".2"}]}], "}"}]}], "}"}], "&"}], "@@", RowBox[{"Transpose", "[", "points", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"plots", "=", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{ "lines", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"doms", "\[LeftDoubleBracket]", RowBox[{"i", ",", "1"}], "\[RightDoubleBracket]"}], ",", RowBox[{"doms", "\[LeftDoubleBracket]", RowBox[{"i", ",", "2"}], "\[RightDoubleBracket]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", "range"}], ",", "\[IndentingNewLine]", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "lines", "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"{", RowBox[{"plots", ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{ RowBox[{ RowBox[{"Disk", "[", RowBox[{"#", ",", ".03"}], "]"}], "&"}], "/@", "points"}]}], "}"}], "]"}]}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.532502369367844*^9, 3.532502382376656*^9}, { 3.5325024178115463`*^9, 3.5325024210833063`*^9}, 3.532502496363831*^9, { 3.532502531121986*^9, 3.5325025966180677`*^9}, {3.532502720322042*^9, 3.532502764159514*^9}, {3.5325028056141787`*^9, 3.532502826308586*^9}, { 3.532502870912435*^9, 3.532502925523754*^9}, {3.5325029598158293`*^9, 3.532503106063105*^9}, {3.5325031547208443`*^9, 3.53250336906317*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVlGs01Hkcxoe2C8eiqUlEoojVRUUubb5Mmi4npdS6rIZVdLNpotaibTSm prSZY9VahF0TIRzKdlnHj1Lu0dbGyFIaMnbM/8/czM1vpxfPed485/PiOed5 HGISDsQaUyiUIIM+u8eZlLkUCglHa/gExhgERqrbAUYkLNbaOG/RYVj8S+Jm jjEJLYw7kednMMjq44/Nm0vC6qHH7RISQ52W2W5mSsKE2ccS4QcM7le2/Wy9 mIQzJz3D7j/D4FZoRtvkQsJFp4GmuCsYHLsKV8UFk5CXvzK72xxDp+kFblYZ CUXDvIT9JrOgthD5Ts+QQOsN2edK08Oi0Rt+DTunoDU4JLDTSQfjBTLOrqIp 2OnqlLTSUQv0ZR/sLMkp8K2OLO1Zr4HQNJ76tx3ToL0Wt2ijqxrCqxJXZt6e BoVKcJO5egbeCz79Xj85DdELd9kMb1aB40VaTEmgDPIuISFtoxLE9l3nO27K YHtxfn6xnwIK+C+EYaMyWLP33lnFPjmYilJ+qtgih5GQrAxKkAz0+oc/eF6X g8m8/tyob6ehUlNdx/koB2wh+5R0aAoYreItPj4KWFdB33PwIAmxEVXWLlcV 8McHItaiXQr+vV/5DAwrgL0c3x1pkkCR2Yaq5+5KYDwQkoffTcATt6mYJJ4S BOqw6u3d49Bso4i7NqSElKiAW81tYxDUm46E61Swcbni0uiYCHKOt4VLuCrg XQ8aPTc4AtGtv+707lNBUwhrT7X8PSxVVnD/czb0cF73l2LNEGTOT/4i5sIM pN2J6jhmPwCc4e6+hS9nYJAbPuIa+ha88v6VZDipIf55wWjL1r+hb9WG4KhU NfRnHk21TOgC3bkvFyR2qiGabPDzmmyBwfISo92OGmhyDq61z34MAYKn+yIS NVB8zNjKsVEA2aedJK+eaoA9SbVl2WWjwmX0DjNrLRSvjZXE1j1A67M+6dgn tBAdX19vJWpGqaMM1qMmLbA5dwp3L+xAe4zX+7pSdcBf5vFEKuxFpkTEfqMY HSR7bOu1yH2DOI3+FQWPdLBCukAbWtaP0g/WhLJM9GCp9LINZg0i3+4+hsl3 eojsMS/3YrxHw7TAjAUP9eDNybXetHsEmTj5LAmYPwveQ99wL7uJkHTJuPhr 5izkXD2T+r3nGArrsaeerZkFy8HG+Hu246gmNJ9njmdhqblgU6hGjJqf9vqf PoSBxxdl3KRIUJj8RtD8UgyWT8JfuYkm0YuXdPeEMsPO+vkO+ZJJ5FGupPbd xeCtamWZKiaRBZPZX1qJIcxjM1U8V4petK49wqg15KupIaWrpcgzvyuZ24DB v6TzzYpTUkSlmwrmvMYQf31rP21aiti2jZdPvcFAqUxy4WqkSKpknXj9D4ac 9spkuTGB2iuF60r6MTyaZ2P9ehGB2LTyx/QhQz5dGc73JBAxvqMnXYwh91zN O9MfCRT5TFsrnsDgkjPmlpJOoI7bNTn7JRga6uzSxFcJVHrAKsKBwCAiMm3b 8gjEbBgTNckxeJw8fpjbQKCuW3mtLkoMbbyiKnkLgXxZeyv4KgyRZW/1R7oJ RHP+MyFag4EtCiykDxHoEuXkgTYtBrM5adLaMQKRA3ae7noMxQ73/RwIA7/+ lVXurIHvP3GDrzLws7iaz7/VxnQYxphA/wMJGp1v "]]}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwt1Hs01FkcAPDfzJj5FXmEXkKoNr2TQnrc79qSEmETu8mrkoMepjZTbS3t lEnatck2W+poR+1IXmdtkscdE81sB8kgTFkMk0czV9GDHvbXnv3jnu/9nO+9 3+/3/nPtIw8E7GFTFOXDrM/Ryq3ic4BlaOrA+DjBjYnv67MYHxydLRodIzjl 71VXvmRRUPin0xfDrwke+/aO849s5ryjT6R2kOC2EwW7eVwK3CYL22ufECy+ f/3BJEMKQPPy4W8FBE/ZeiZlhiUFwcl1uc5hBJtFbTV3dqQg8ZFw395KPd59 ulKu+JqCziajgaoIHR6j+TZHv2fqyw5Yulq/wMn8jbNCsylQxlZzTZ8N4Pj6 0arsRxQIUp2G2k7142vnh0wmvKPALP24CKM+7Liu+kPtbBbITDpmiLu0WNpS +kuNL+PNTnzV2V4c2zjc0H6EBdK4CMH8TT34HDYs8v+dMedWAl/XjfWmUat7 H7IgLfHRnBZpF97opYm7/YoFyopecWZMJ/4UvxY127DBrtNx0m2HDvz2k7rM ypMNaWbgse2aGvueCGqrimfyC0Ux3ZpWfEUzcjUzkw1+D4rsXFxa8IK8lkkX q9kQvjhjOb6jwtOiM6x1hLl/MsdlCesx9jwjbomczgFwJYtuDNdiVYbAyX09 B7I26BpKBQq8/fwx5w0HmHxgfto30+R4Zp/sn7hLjEdrTJVz7uF1K3oWvZFz gOrqPd8vzMcSjfeczEHGO62L1bsu4vFjzfLvLAyA+m+Tju5y1rCL1jF+yrJN Ci5AxUQ7OGEvY13ZqLu8FBnX7T8iv2AAWdfb6nyD5SjkwnRpQYUBJHqbc17/ pUD6ezxhaa8ByHY+SVxWUoueNT2m5k7mQoOPjbGf+WNkGtA1L28VF4bsppxs vKxCriXmb6IjuHDw0MKIn6e2oApj+z1nUpnzarOAKGUrOq04dFJWzAU/wZrn 9BY1yuVL3EI6uVC4wDXlPrcDWSRNu2o5kQfiCeV92V6dKD4hT0o58UBUFruB K+pCi8PsAn1DeBA9ys7hd3ejhbee5N4V8iDYvyK0Zm4PStbGSoSFPHBbETZz rrAXtRk6eAjVPFBuN5vs8FSL9l+wPpfFoeFgek+wgU0fCjcaOWy7lAZqR9Yf w4J+lPHcdGJpEA3SNT94KSsGkCzXZ33yD0w+dJ+D+4dB5BURbVdyiwYw/IpT GqhDFscUNzkqGsQNq11sxHq0ea+9uISxn7tRVflVPTq17fjZ2CYazLLbvUMk ejS0ZGmcqpmGxISjEVfy9ahe86uTpJWZx7YkdUaNHol8oso9Opj6ccs1U17p 0Qc7bmNSPw2d9Pw0ky0EOZuE3V85wPSLf2eV709QzPu7xf2M/dSKGz5BBLU1 x13yf0GDMj+qLDWSoDspTSH2hIbCwGyt4VGC4kckz2UjNIgks9bSNwmSdn1s Pfya6WdMFDdzCeqsD3ro+IZ5b0JlgGcRQb45Rnlpb5n5Nu+MPl1O0KLQQ/zw MRrCX15O56gI2uVdt8vyPQ3Td8TYSloJuuw2L1DJuKF6VY5HB0ETLdSuyz7S 4CVurUzqJwiolfN7GFNs6SZ7QpBA95OV+BMNstiEJtkIQQXtfUZbxmkQNHuG hY8RpFV4fBxn/P//hf4Fxt9JwA== "]]}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV0Hs0lHkYB3CX0ju391UuRWkpidKWpFTW+zRHRm7VFNo9Dl2EjZTpsiWK IlR2Z21KNdXUdKxNwu6saOk3jQnrIDEjl9Yl0pDMbCY0w7w7+8dzvufzz/d8 z+Ow/wj3oImRkVGQ4f5PW89qQ2BQH+HQS1EqsjVV1yw02HnCI/DklIq89PfG W1uMMcjK8a8cVatI7Xfl7hdMMPCrOvZLZ7+K7EwpiTKbjYHcppbzR42KzK+5 V8ukY9AnP1QanakirbZfvGRjicGsAHFaE64izaO3z3N3xgA2cBxv2Y2RURnP pHW7MNiB5vbenzdKaufw7E4nG/qFv97hrhghM3mcryIeYPDoXkHWtQAlmdj8 5fmDlxiIuf5KX58h8k6OGsemMMgPrwy8GzlIOnvLphuX0sDeuskpivuWLGyv /PlFsMHqbSurg/vIuNbxlq6TNJja6vh9cvcb8jKil+28bzBdHx1W30GOEdGb 3zXQoDQtIeG8Vk5y/AbiH32iwZ6NZQ0K8hWpT/yGVNjRYa8wyXFWbAM5qe/+ y9aXDqVuktrpLikZnBLW+TyRDhITt3PBYX+StwY0twUCOqRef2huYZVHrihu Z16VGdxrfI92RITmx+Yt+qiigxCbUzEyVYl8L+a371/AAPtVN7yycmWoLe+U 2yYfBvDnC3yHGxpRaE6S+9YjDDCHlLbkhFa0UCnpjb/OgCyplXbd2nbkvW7Q dULKgJZ3UR6WnC4kGghwFHxggF+YXYzIugdRSQrpCQsmaGqMl2QM96EKUy+T Mm8mCF1bbAPVb5FYNfQBi2HCUa82PE4+iFhNCSeluUwQCNxy7PqHUHjugsKS aibseOPUv3lQicaemqVXvmOCc82ONb/LRtA/8ldGy+ayIFyroFU1jSKC27+8 eCMLxB0/9diJx9CGJ/MmYvexwD/gqOyEnxpVsxwOXrzCggRubYRTwL8oo+7Y WYmYBYuLyyfOe31CRTyRZ3gfC0xK5btc2OPIIm3+bUsaDjyznMdn1mtQ4g/F hUZuOBQ0mmtMnT6jVZH2IcHhOOCbpXqFywRa+fB1UUU6DiYzrDm7F02izKE4 UXopDitiMuULl06hTvoSdno3DtZbGq/YLPuCEnIXXRaaEnA1oYhdY6VFexma 44tXEwA+FdXltjqU956gVYYRcPZw5PpQfBpJioJ8Ms8RkGrWemPlzDTy2xdr /+QhAaUcntTfSI8skuoKTNsI4L15pLT6pEf+MQ75TwyuiqvnB03o0fndZ7Lj 5AQwdQOeGVo9Un+9Or5NQYDQZmG2xoRCzQPX3EQdBMhDs13aLCiUFRRdxe4h YM2rg4f4HhSatp/dmjZMgPLF4lH6aQq545E1HiMErA3ZdJWdQqFDugrxsMHJ gyFeSWkU6lTEX985SoC1ac6V4WwKlV+ShzuoCPABnWv9TQolakTvJRoCCp6+ PpxRRaHC/pmO458JUG8bt6qWUKivOazBecLwj078mUZGoeDfGMX8ScO+ya14 VBOFXCOO8fZqCcA8xI/ZPRQ6ENB0wFJHAFf2MjTpLYVuei4PqTdYsOuDvmyI QjSL7g1rZghYz1uy3UFFITDycBk0ONXYe3LPOIVOffzRNl9PQAv/27v8SQqV dCkZgRQBtvYnOPU6Cg3VsWcog6NK+CqKotB/DNZeFg== "]]}}, {RGBColor[1, 0, 0], DiskBox[{1, 2}, 0.03], DiskBox[{2, -1}, 0.03], DiskBox[{3, 1}, 0.03], DiskBox[{4, -2}, 0.03]}}, AspectRatio->1, Axes->True, AxesLabel->{None, None}, AxesOrigin->{1., 0}, Method->{}, PlotRange->{{0.8, 4.2}, {-2.2, 2.2}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.532503056037064*^9, 3.5325030877858763`*^9}, { 3.532503210829597*^9, 3.532503255830875*^9}, {3.53250330278522*^9, 3.532503370121708*^9}, 3.5325214409280653`*^9, 3.533021613473403*^9, 3.561096883507082*^9, 3.5611023783446827`*^9, 3.593275779667001*^9}] }, Open ]], Cell[TextData[{ "Samoz\[RHacek]ejm\[EHacek], ", StyleBox["Mathematica", FontSlant->"Italic"], " m\[AAcute] pro toto vlastn\[IAcute] funkce. Stejn\[YAcute] p\[RHacek]\ \[IAcute]klad ani\[ZHacek] bych explicitn\[EHacek] konstruoval rovnice p\ \[RHacek]\[IAcute]mek:" }], "Text", CellChangeTimes->{{3.532503388953356*^9, 3.5325034071297283`*^9}, { 3.532504232084443*^9, 3.532504256238722*^9}, {3.533021635334312*^9, 3.5330216396829157`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Line", "[", "points", "]"}], ",", "Red", ",", RowBox[{ RowBox[{ RowBox[{"Disk", "[", RowBox[{"#", ",", ".03"}], "]"}], "&"}], "/@", "points"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.532504265035469*^9, 3.5325043040828257`*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0, 0, 1], LineBox[{{1, 2}, {2, -1}, {3, 1}, {4, -2}}]}, {RGBColor[1, 0, 0], DiskBox[{1, 2}, 0.03], DiskBox[{2, -1}, 0.03], DiskBox[{3, 1}, 0.03], DiskBox[{4, -2}, 0.03]}}]], "Output", CellChangeTimes->{3.532504271666771*^9, 3.5325043048702517`*^9, 3.533021642408924*^9, 3.561096887154336*^9, 3.5611023798342752`*^9, 3.593275789239587*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Propojen\[IAcute] bod\[URing] polynomy", "Section", CellChangeTimes->{{3.5325018687293997`*^9, 3.5325018752409983`*^9}}], Cell["\<\ M\[IAcute]sto spojov\[AAcute]n\[IAcute] bod\[URing] p\[RHacek]\[IAcute]mkami \ (grafy polynom\[URing] prvn\[IAcute]ho stupn\[EHacek]) mu\[ZHacek]eme body \ spojovat polynomi\[AAcute]ln\[IAcute]mi k\[RHacek]ivkami. \ \[CapitalCHacek]asto se pou\[ZHacek]iv\[AAcute] polynom\[URing] t\[RHacek]et\ \[IAcute]ho stupn\[EHacek] (kubick\[AAcute] interpolace, splines). \ D\[URing]vodem je, \[ZHacek]e maj\[IAcute] pom\[EHacek]rn\[EHacek] jednoduch\ \[YAcute] tvar, av\[SHacek]ak u\[ZHacek] umo\[ZHacek]\[NHacek]uj\[IAcute] \ inflexi. Kubick\[YAcute] polynom je funkce tvaru\ \>", "Text", CellChangeTimes->{{3.532504445757772*^9, 3.532504625046136*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"f", "(", "x", ")"}], "=", RowBox[{ RowBox[{"a", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"b", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"c", " ", "x"}], " ", "+", RowBox[{"d", "."}]}]}], TraditionalForm]], "DisplayFormula", CellChangeTimes->{{3.53250463338135*^9, 3.532504653796646*^9}}], Cell[TextData[{ "Je tedy jednozna\[CHacek]n\[EHacek] zad\[AAcute]na \[CHacek]ty\[RHacek]mi \ konstantami ", Cell[BoxData[ FormBox[ RowBox[{"a", ",", "b", ",", "c", ",", "d"}], TraditionalForm]]], ". Srovnejte s lin\[AAcute]rn\[IAcute] funkc\[IAcute], k jej\[IAcute]mu\ \[ZHacek] popisu sta\[CHacek]\[IAcute] dv\[EHacek] konstanty." }], "Text", CellChangeTimes->{{3.532504657031107*^9, 3.5325046919617863`*^9}}], Cell["\<\ Uva\[ZHacek]ujme tedy pro jednoduchost mno\[ZHacek]inu \[CHacek]ty\[RHacek] \ bod\[URing]\ \>", "Text", CellChangeTimes->{{3.532504703265576*^9, 3.532504739874061*^9}}], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["x", "1"], ",", SubscriptBox["y", "1"]}], ")"}], ",", RowBox[{"(", RowBox[{ SubscriptBox["x", "2"], ",", SubscriptBox["y", "2"]}], ")"}], ",", RowBox[{"(", RowBox[{ SubscriptBox["x", "3"], ",", SubscriptBox["y", "3"]}], ")"}], ",", RowBox[{"(", RowBox[{ SubscriptBox["x", "4"], ",", SubscriptBox["y", "4"]}], ")"}]}], "}"}], TraditionalForm]], "DisplayFormula", CellChangeTimes->{{3.532504924941882*^9, 3.532504962662339*^9}}], Cell[TextData[{ "P\[RHacek]edpokl\[AAcute]dejme, \[ZHacek]e jsou uspo\[RHacek]\[AAcute]d\ \[AAcute]ny podle prvn\[IAcute] slo\[ZHacek]ky, ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["x", "1"], "<", SubscriptBox["x", "2"], "<", SubscriptBox["x", "3"], "<", SubscriptBox["x", "4"]}], TraditionalForm]]], ". Kdyby n\[AAcute]hodou dv\[EHacek] ", Cell[BoxData[ FormBox["x", TraditionalForm]]], "-ov\[EAcute] sou\[RHacek]adnice byly stejn\[EAcute], pak tyto body v \ ..tomto sm\[EHacek]ru\[CloseCurlyQuote]\[CloseCurlyQuote] nelze spojit a je t\ \[RHacek]eba zm\[EHacek]nit sou\[RHacek]adnice." }], "Text", CellChangeTimes->{{3.532505033045363*^9, 3.532505126446392*^9}}], Cell["Hled\[AAcute]me t\[RHacek]i kubick\[EAcute] polynomy", "Text", CellChangeTimes->{{3.532505136401126*^9, 3.532505146901636*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["f", "i"], "(", "x", ")"}], "=", RowBox[{ RowBox[{ SubscriptBox["a", "i"], SuperscriptBox["x", "3"]}], "+", RowBox[{ SubscriptBox["b", "i"], SuperscriptBox["x", "2"]}], "+", RowBox[{ SubscriptBox["c", "i"], "x"}], "+", SubscriptBox["d", "i"]}]}], ",", " ", RowBox[{"x", "\[Element]", RowBox[{"\[LeftAngleBracket]", RowBox[{ SubscriptBox["x", "i"], ",", SubscriptBox["x", RowBox[{"i", "+", "1"}]]}], "\[RightAngleBracket]"}]}], ",", " ", RowBox[{"i", "=", "1"}], ",", "2", ",", "3."}], TraditionalForm]], "DisplayFormula", CellChangeTimes->{{3.5325051528649607`*^9, 3.532505219014001*^9}}], Cell["\<\ Po\[ZHacek]adujeme, aby zadan\[EAcute] body spojovaly, tedy m\[AAcute]me 6 \ podm\[IAcute]nek na funk\[CHacek]n\[IAcute] hodnoty\ \>", "Text", CellChangeTimes->{{3.532505186873988*^9, 3.532505190386485*^9}, { 3.532505225627548*^9, 3.532505230621728*^9}, {3.5325053746509933`*^9, 3.532505388006917*^9}, 3.533021692092454*^9}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["f", "1"], "(", SubscriptBox["x", "1"], ")"}], "=", SubscriptBox["y", "1"]}], ",", RowBox[{ RowBox[{ SubscriptBox["f", "1"], "(", SubscriptBox["x", "2"], ")"}], "=", RowBox[{ RowBox[{ SubscriptBox["f", "2"], "(", SubscriptBox["x", "2"], ")"}], "=", SubscriptBox["y", "2"]}]}], ",", " ", RowBox[{ RowBox[{ SubscriptBox["f", "2"], "(", SubscriptBox["x", "3"], ")"}], "=", RowBox[{ RowBox[{ SubscriptBox["f", "3"], "(", SubscriptBox["x", "3"], ")"}], "=", SubscriptBox["y", "3"]}]}], ",", " ", RowBox[{ RowBox[{ SubscriptBox["f", "3"], "(", SubscriptBox["x", "4"], ")"}], "=", RowBox[{ SubscriptBox["y", "4"], "."}]}]}], TraditionalForm]], "DisplayFormula", CellChangeTimes->{{3.53250524350452*^9, 3.532505394261582*^9}}], Cell["\<\ D\[AAcute]le po\[ZHacek]adujeme, aby ve spoj\[IAcute]ch m\[EHacek]ly stejnou \ prvn\[IAcute] i druhou derivaci (stejn\[YAcute] sklon, te\[CHacek]na a stejn\ \[AAcute] konk\[AAcute]vnost/konvexnost), to n\[AAcute]m d\[AAcute]v\[AAcute] \ dal\[SHacek]\[IAcute] \[CHacek]ty\[RHacek]i podm\[IAcute]nky\ \>", "Text", CellChangeTimes->{{3.532505397300685*^9, 3.532505473341283*^9}, { 3.532505600869207*^9, 3.5325056085437183`*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["f", "1", "'"], "(", SubscriptBox["x", "2"], ")"}], "=", RowBox[{ SubsuperscriptBox["f", "2", "'"], "(", SubscriptBox["x", "2"], ")"}]}], ",", " ", RowBox[{ RowBox[{ SubsuperscriptBox["f", "2", "'"], "(", SubscriptBox["x", "3"], ")"}], "=", RowBox[{ SubsuperscriptBox["f", "3", "'"], "(", SubscriptBox["x", "3"], ")"}]}], ",", " ", RowBox[{ RowBox[{ SubsuperscriptBox["f", "1", "''"], "(", SubscriptBox["x", "2"], ")"}], "=", RowBox[{ SubsuperscriptBox["f", "2", "''"], "(", SubscriptBox["x", "2"], ")"}]}], ",", " ", RowBox[{ RowBox[{ SubsuperscriptBox["f", "2", "''"], "(", SubscriptBox["x", "3"], ")"}], "=", RowBox[{ RowBox[{ SubsuperscriptBox["f", "3", "''"], "(", SubscriptBox["x", "3"], ")"}], "."}]}]}], TraditionalForm]], "DisplayFormula", CellChangeTimes->{{3.5325056180742617`*^9, 3.532505697912068*^9}}], Cell["\<\ Kone\[CHacek]n\[EHacek], m\[URing]\[ZHacek]eme zadat jak\[YAcute] \ po\[ZHacek]adujeme sklon na konc\[IAcute]ch, tedy dv\[EHacek] podm\[IAcute]nky\ \>", "Text", CellChangeTimes->{{3.532505700488859*^9, 3.5325057213165903`*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["f", "1", "'"], "(", SubscriptBox["x", "1"], ")"}], "=", "A"}], ",", " ", RowBox[{ RowBox[{ SubsuperscriptBox["f", "3", "'"], "(", SubscriptBox["x", "4"], ")"}], "=", RowBox[{"B", "."}]}]}], TraditionalForm]], "DisplayFormula", CellChangeTimes->{{3.532505742955443*^9, 3.532505763518675*^9}}], Cell["\<\ Celkem m\[AAcute]me 12 rovnic pro 12 nezn\[AAcute]m\[YAcute]ch. Rovnice jsou \ line\[AAcute]rn\[IAcute]. \[CapitalRHacek]e\[SHacek]en\[IAcute]m z\[IAcute]sk\ \[AAcute]me hodnoty 12-ti konstant a pak sta\[CHacek]\[IAcute] vykreslit \ takto vypo\[CHacek]tene polynomy na \ p\[RHacek]\[IAcute]slu\[SHacek]n\[YAcute]ch intervalech.\ \>", "Text", CellChangeTimes->{{3.532505767044529*^9, 3.532505862960957*^9}}], Cell[CellGroupData[{ Cell["P\[RHacek]\[IAcute]klad", "Subsection", CellChangeTimes->{{3.532505867402833*^9, 3.532505868730155*^9}}], Cell["\<\ Uva\[ZHacek]me stejn\[EAcute] body jako v prvn\[IAcute]m \ p\[RHacek]\[IAcute]klad\[EHacek].\ \>", "Text", CellChangeTimes->{{3.532505907718091*^9, 3.532505917534971*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"points", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", RowBox[{"-", "2"}]}], "}"}]}], "}"}]}], ";"}]], "Input"], Cell["\<\ Nav\[IAcute]c po\[ZHacek]adujme sklony na kraj\[IAcute]ch.\ \>", "Text", CellChangeTimes->{{3.5325059752767344`*^9, 3.532505994659083*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"slopes", "=", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.532505995918364*^9, 3.532506000815218*^9}}], Cell["\<\ N\[AAcute]sleduj\[IAcute]c\[IAcute] funkce po\[CHacek]\[IAcute]t\[AAcute] \ polynomy, vstupem je uspo\[RHacek]\[AAcute]dan\[YAcute] (podle prvn\[IAcute] \ slo\[ZHacek]ky) seznam bod\[URing], sklony na konc\[IAcute]ch a booleovsk\ \[AAcute] prom\[EHacek]nn\[AAcute] umo\[ZHacek]\[NHacek]uj\[IAcute]c\[IAcute] \ zobrazit \[RHacek]e\[SHacek]enou soustavu rovnic.\ \>", "Text", CellChangeTimes->{{3.532506012004567*^9, 3.53250604734044*^9}, { 3.532506078528357*^9, 3.532506132430827*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Splines", "[", RowBox[{"points_", ",", "slopes_", ",", "showeqs_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"cubic", ",", "Dcubic", ",", "DDcubic", ",", RowBox[{"n", "=", RowBox[{"Length", "[", "points", "]"}]}], ",", "eqs", ",", "vars", ",", "sols", ",", "out"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"cubic", "[", RowBox[{"ind_", ",", "x_"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"a", "[", "ind", "]"}], SuperscriptBox["x", "3"]}], "+", RowBox[{ RowBox[{"b", "[", "ind", "]"}], SuperscriptBox["x", "2"]}], "+", RowBox[{ RowBox[{"c", "[", "ind", "]"}], "x"}], "+", RowBox[{"d", "[", "ind", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Dcubic", "[", RowBox[{"ind_", ",", "x_"}], "]"}], "=", RowBox[{"D", "[", RowBox[{ RowBox[{"cubic", "[", RowBox[{"ind", ",", "x"}], "]"}], ",", "x"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"DDcubic", "[", RowBox[{"ind_", ",", "x_"}], "]"}], "=", RowBox[{"D", "[", RowBox[{ RowBox[{"cubic", "[", RowBox[{"ind", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", "values", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"eqs", "=", RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"cubic", "[", RowBox[{"i", ",", RowBox[{"points", "\[LeftDoubleBracket]", RowBox[{"i", ",", "1"}], "\[RightDoubleBracket]"}]}], "]"}], " ", "\[Equal]", " ", RowBox[{"points", "\[LeftDoubleBracket]", RowBox[{"i", ",", "2"}], "\[RightDoubleBracket]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"cubic", "[", RowBox[{"i", ",", RowBox[{"points", "\[LeftDoubleBracket]", RowBox[{ RowBox[{"i", "+", "1"}], ",", "1"}], "\[RightDoubleBracket]"}]}], "]"}], " ", "\[Equal]", " ", RowBox[{"points", "\[LeftDoubleBracket]", RowBox[{ RowBox[{"i", "+", "1"}], ",", "2"}], "\[RightDoubleBracket]"}]}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "\[IndentingNewLine]", "]"}], "//", "Flatten"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"add", " ", "border", " ", "slopes"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"eqs", "=", RowBox[{"Join", "[", RowBox[{"eqs", ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Dcubic", "[", RowBox[{"1", ",", RowBox[{ RowBox[{"First", "[", "points", "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "]"}], "\[Equal]", RowBox[{ "slopes", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Dcubic", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", RowBox[{ RowBox[{"Last", "[", "points", "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "]"}], "\[Equal]", RowBox[{ "slopes", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}], "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"first", " ", "and", " ", "second", " ", "derivatives"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"eqs", "=", RowBox[{"Join", "[", RowBox[{"eqs", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Dcubic", "[", RowBox[{"i", ",", RowBox[{"points", "\[LeftDoubleBracket]", RowBox[{ RowBox[{"i", "+", "1"}], ",", "1"}], "\[RightDoubleBracket]"}]}], "]"}], "\[Equal]", RowBox[{"Dcubic", "[", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"points", "\[LeftDoubleBracket]", RowBox[{ RowBox[{"i", "+", "1"}], ",", "1"}], "\[RightDoubleBracket]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"DDcubic", "[", RowBox[{"i", ",", RowBox[{"points", "\[LeftDoubleBracket]", RowBox[{ RowBox[{"i", "+", "1"}], ",", "1"}], "\[RightDoubleBracket]"}]}], "]"}], "\[Equal]", RowBox[{"DDcubic", "[", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"points", "\[LeftDoubleBracket]", RowBox[{ RowBox[{"i", "+", "1"}], ",", "1"}], "\[RightDoubleBracket]"}]}], "]"}]}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"n", "-", "2"}]}], "}"}]}], "\[IndentingNewLine]", "]"}], "//", "Flatten"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"if", " ", "required"}], ",", " ", RowBox[{"print", " ", "equations"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"showeqs", ",", RowBox[{"Print", "[", RowBox[{"Grid", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Range", "[", RowBox[{"Length", "[", "eqs", "]"}], "]"}], ",", "eqs"}], "}"}], "//", "Transpose"}], ",", RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", "unknowns", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"vars", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "[", "i", "]"}], ",", RowBox[{"b", "[", "i", "]"}], ",", RowBox[{"c", "[", "i", "]"}], ",", RowBox[{"d", "[", "i", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "//", "Flatten"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"solve", " ", "the", " ", "system"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"sols", "=", RowBox[{"Solve", "[", RowBox[{"eqs", ",", "vars"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"return", " ", "the", " ", "result"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"out", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"cubic", "[", RowBox[{"i", ",", "x"}], "]"}], "/.", "sols"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "out", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGCQAGIQPW3am/enLV85OsXd/giiP+/69xVEe9UuUDsDpKU6 DuuC6Bk/I+xA9EP1FmcQzXdDxRNEy/wy9AXRCX1vS0H0Tf/1k0A0b8H02SCa Iy1vBYiel7luPYhmlYjcCaJ5OrffBNHRnbPuguhJiusegegbsr7PQfQtr+s/ QfTPvSwMZ4H0pqNSzCD6XnuQAIjuDnggD6JrHboDQPTxFK9YEF2/eGYiiA6q DU0F0UofNmSB6DlVBkUg+oqOTxmIDitcUA+iVx0qbgbR78REpoHoadcfzgLR mQ+5F4FoTlPB9SB6gngVmP6/d634OSD9p3ojmF7DNEUJRL8xblQF0XWXWExA NJPlBDMQffXV56Ydga8cTwvJt4LojlcS80E0C8/fyyAaADIwydU= "]], Cell["V na\[SHacek]em p\[RHacek]\[IAcute]klad\[EHacek].", "Text", CellChangeTimes->{{3.532506822546679*^9, 3.5325068336572104`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"splines", "=", RowBox[{"Splines", "[", RowBox[{"points", ",", "slopes", ",", "True"}], "]"}]}]], "Input", CellChangeTimes->{{3.532506394333447*^9, 3.532506396273028*^9}, { 3.5325067334874163`*^9, 3.5325067350306664`*^9}, {3.5325068392546577`*^9, 3.532506842912529*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"1", RowBox[{ RowBox[{ RowBox[{"a", "[", "1", "]"}], "+", RowBox[{"b", "[", "1", "]"}], "+", RowBox[{"c", "[", "1", "]"}], "+", RowBox[{"d", "[", "1", "]"}]}], "\[Equal]", "2"}]}, {"2", RowBox[{ RowBox[{ RowBox[{"8", " ", RowBox[{"a", "[", "1", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"b", "[", "1", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"c", "[", "1", "]"}]}], "+", RowBox[{"d", "[", "1", "]"}]}], "\[Equal]", RowBox[{"-", "1"}]}]}, {"3", RowBox[{ RowBox[{ RowBox[{"8", " ", RowBox[{"a", "[", "2", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"b", "[", "2", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"c", "[", "2", "]"}]}], "+", RowBox[{"d", "[", "2", "]"}]}], "\[Equal]", RowBox[{"-", "1"}]}]}, {"4", RowBox[{ RowBox[{ RowBox[{"27", " ", RowBox[{"a", "[", "2", "]"}]}], "+", RowBox[{"9", " ", RowBox[{"b", "[", "2", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"c", "[", "2", "]"}]}], "+", RowBox[{"d", "[", "2", "]"}]}], "\[Equal]", "1"}]}, {"5", RowBox[{ RowBox[{ RowBox[{"27", " ", RowBox[{"a", "[", "3", "]"}]}], "+", RowBox[{"9", " ", RowBox[{"b", "[", "3", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"c", "[", "3", "]"}]}], "+", RowBox[{"d", "[", "3", "]"}]}], "\[Equal]", "1"}]}, {"6", RowBox[{ RowBox[{ RowBox[{"64", " ", RowBox[{"a", "[", "3", "]"}]}], "+", RowBox[{"16", " ", RowBox[{"b", "[", "3", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"c", "[", "3", "]"}]}], "+", RowBox[{"d", "[", "3", "]"}]}], "\[Equal]", RowBox[{"-", "2"}]}]}, {"7", RowBox[{ RowBox[{ RowBox[{"3", " ", RowBox[{"a", "[", "1", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"b", "[", "1", "]"}]}], "+", RowBox[{"c", "[", "1", "]"}]}], "\[Equal]", "1"}]}, {"8", RowBox[{ RowBox[{ RowBox[{"48", " ", RowBox[{"a", "[", "3", "]"}]}], "+", RowBox[{"8", " ", RowBox[{"b", "[", "3", "]"}]}], "+", RowBox[{"c", "[", "3", "]"}]}], "\[Equal]", "0"}]}, {"9", RowBox[{ RowBox[{ RowBox[{"12", " ", RowBox[{"a", "[", "1", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"b", "[", "1", "]"}]}], "+", RowBox[{"c", "[", "1", "]"}]}], "\[Equal]", RowBox[{ RowBox[{"12", " ", RowBox[{"a", "[", "2", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"b", "[", "2", "]"}]}], "+", RowBox[{"c", "[", "2", "]"}]}]}]}, {"10", RowBox[{ RowBox[{ RowBox[{"12", " ", RowBox[{"a", "[", "1", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"b", "[", "1", "]"}]}]}], "\[Equal]", RowBox[{ RowBox[{"12", " ", RowBox[{"a", "[", "2", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"b", "[", "2", "]"}]}]}]}]}, {"11", RowBox[{ RowBox[{ RowBox[{"27", " ", RowBox[{"a", "[", "2", "]"}]}], "+", RowBox[{"6", " ", RowBox[{"b", "[", "2", "]"}]}], "+", RowBox[{"c", "[", "2", "]"}]}], "\[Equal]", RowBox[{ RowBox[{"27", " ", RowBox[{"a", "[", "3", "]"}]}], "+", RowBox[{"6", " ", RowBox[{"b", "[", "3", "]"}]}], "+", RowBox[{"c", "[", "3", "]"}]}]}]}, {"12", RowBox[{ RowBox[{ RowBox[{"18", " ", RowBox[{"a", "[", "2", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"b", "[", "2", "]"}]}]}], "\[Equal]", RowBox[{ RowBox[{"18", " ", RowBox[{"a", "[", "3", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"b", "[", "3", "]"}]}]}]}]} }, AutoDelete->False, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Print", CellChangeTimes->{{3.5325067354104433`*^9, 3.5325067526109953`*^9}, 3.532506788093479*^9, 3.5325068433734493`*^9, 3.5330217483962193`*^9, 3.5610968946295*^9, 3.561102388457746*^9, 3.593275806799819*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["229", "15"]}], "+", FractionBox[ RowBox[{"119", " ", "x"}], "3"], "-", FractionBox[ RowBox[{"428", " ", SuperscriptBox["x", "2"]}], "15"], "+", FractionBox[ RowBox[{"92", " ", SuperscriptBox["x", "3"]}], "15"]}], "}"}], ",", RowBox[{"{", RowBox[{"77", "-", FractionBox[ RowBox[{"1481", " ", "x"}], "15"], "+", FractionBox[ RowBox[{"122", " ", SuperscriptBox["x", "2"]}], "3"], "-", FractionBox[ RowBox[{"27", " ", SuperscriptBox["x", "3"]}], "5"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1082", "5"]}], "+", FractionBox[ RowBox[{"584", " ", "x"}], "3"], "-", FractionBox[ RowBox[{"857", " ", SuperscriptBox["x", "2"]}], "15"], "+", FractionBox[ RowBox[{"82", " ", SuperscriptBox["x", "3"]}], "15"]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5325063967289553`*^9, {3.5325066160281687`*^9, 3.532506643800192*^9}, { 3.532506682094342*^9, 3.532506752636121*^9}, 3.532506788122842*^9, 3.532506843431594*^9, 3.5330217485945*^9, 3.561096894770183*^9, 3.561102388796476*^9, 3.593275807166746*^9}] }, Open ]], Cell["\<\ P\[RHacek]\[IAcute]padn\[EHacek] bez zlomk\[URing], ale se zaokrouhlovac\ \[IAcute] chybou:\ \>", "Text", CellChangeTimes->{{3.532506868907133*^9, 3.5325069114078074`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "N"}]], "Input", CellChangeTimes->{{3.532506886926866*^9, 3.5325068880214033`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "15.266666666666667`"}], "+", RowBox[{"39.666666666666664`", " ", "x"}], "-", RowBox[{"28.533333333333335`", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"6.133333333333334`", " ", SuperscriptBox["x", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"77.`", "\[VeryThinSpace]", "-", RowBox[{"98.73333333333333`", " ", "x"}], "+", RowBox[{"40.666666666666664`", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"5.4`", " ", SuperscriptBox["x", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "216.4`"}], "+", RowBox[{"194.66666666666666`", " ", "x"}], "-", RowBox[{"57.13333333333333`", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"5.466666666666667`", " ", SuperscriptBox["x", "3"]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.53250688857086*^9, 3.533021757471239*^9, 3.593275809119605*^9}] }, Open ]], Cell["Vykresleme v\[YAcute]sledek.", "Text", CellChangeTimes->{{3.532506928290271*^9, 3.532506935924972*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"splines", "=", RowBox[{ RowBox[{"Splines", "[", RowBox[{"points", ",", "slopes", ",", "False"}], "]"}], "//", "N"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"doms", "=", RowBox[{"Partition", "[", RowBox[{ RowBox[{ RowBox[{"points", "//", "Transpose"}], "//", "First"}], ",", "2", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"range", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Min", "[", "#1", "]"}], "-", ".2"}], ",", RowBox[{ RowBox[{"Max", "[", "#1", "]"}], "+", ".2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Min", "[", "#2", "]"}], "-", ".2"}], ",", RowBox[{ RowBox[{"Max", "[", "#2", "]"}], "+", ".2"}]}], "}"}]}], "}"}], "&"}], "@@", RowBox[{"Transpose", "[", "points", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"color", "[", "i_", "]"}], ":=", RowBox[{"Which", "[", RowBox[{ RowBox[{"OddQ", "[", "i", "]"}], ",", "Blue", ",", "True", ",", "Red"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"imgSpl", "=", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"splines", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"doms", "\[LeftDoubleBracket]", RowBox[{"i", ",", "1"}], "\[RightDoubleBracket]"}], ",", RowBox[{"doms", "\[LeftDoubleBracket]", RowBox[{"i", ",", "2"}], "\[RightDoubleBracket]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", "range"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"color", "[", "i", "]"}], ",", "Thick"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "\[IndentingNewLine]", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"doms", "//", "Length"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"imgSpl", ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Opacity", "[", ".9", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Disk", "[", RowBox[{"#", ",", ".03"}], "]"}], "&"}], "/@", "points"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], "Input", CellChangeTimes->{{3.532404410487865*^9, 3.532404574095467*^9}, { 3.532404604471731*^9, 3.5324046075508204`*^9}, {3.532506387761271*^9, 3.532506389532049*^9}, {3.532506940525148*^9, 3.532506957465824*^9}, { 3.53250698889424*^9, 3.532507088732726*^9}, {3.532507120928834*^9, 3.532507261135738*^9}, {3.5330217745519533`*^9, 3.533021774861146*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData[" 1:eJwV1nk4VVsUAPBDZFYJJZEGQuFShNQ6qSRJqmdKmfKkpySkXsqjkIpIXkqU JCFRpkfKQQOZIolMySzcew4yc9/yh8/3+9ae99rr3NVOZw79yUsQBIN/8/83 e1zkJwgaBHXfzpNM5BmP28FDA31M/EA8WvKOl85VXhpO7Ul6ADwEOZJz6sRC fhqczQx0fHkJMnPa7pOoMA2JoXPePXwEybq2M0xGkgZ2zUfdMCGCjF9epGgr RYNhUFyMnDBBLk41KIyVpkEhgZebhuZUanNWydDQMSdUUyZCkOkSygeV5Gmo SRSOHhUjyA0PRaU2KWP75MLGlRIEGaNx/YW3Cg1t+v96x6GFi/mNclVpWNG8 Q0puKUH+6pzz0VOjIUYt408ZSYJMVmEaQQvHv9hgtFCaIJVy6mNNDWhoerNX 9ZUMQa6pfLjOxZwGPnGxc6YKBLly95rykoM0aD22XpGLXlb49MyqwzQYL/kS J7+aIEVfpr1utKAh1FOQHESP33ltvs+WhpL4e2N/ryXISttvl1guNFzsYf6w VyLIj19t1oSdoKHodddwLrp4f2tpvysNeZJDZ8XWE2QudEk8ccP97ZpY+h/6 8drhZKmzNCSNiw3NKBOkz4BY/ZQvDdmDP2UPbyBID+fbF60u0+Bwa6z9Htqt VVIh24+GK3aCN1rRDp9l3U4H4P14t4Yc30iQ+7JUeNqDaTBoc9rupEaQRhtf JBmE0KBk66P8CE0+ZZnev07DYNPUeBNaJ3pL9KFQGiyrFhsfUCdIBd/dah9u 4/xdQa9UNQhSdrTsy+o7eL8/dCrt0NKnTS/4RdHgnVlZdRstYn/43ZZoGi6U OgSPoscMHW1SY2l4uJz8ksYiSLqga27hQ1yPtppKI3pgs2vi8Uc03Jr1dOXV JMh2pTOclQk0bPctiT+MrhC+HBT+jIa/IoNn++bjSYcW1yfjeFL3bIS0CHLU UPnBilQa2htk3imj5X3rXj5No2HMk59yRmstS9k68IKGSxOvDwag92T5fWRl 4P1IXxiORXsMqLQUvKLB/Fy8XS066BrXhSeLhj4nK9Vf6Ji19YxRNp6H4Qs+ 3k0E+c7WX+BLLuYzq6pbHd04bhG5LI8Gn4GOwZ3owTsb5I7l0zDKqC+wRktX ftPqK6DBSJ/H7jJ6g2vaW7W3NBQq1yXcQpN8V4y9CvE8CzzHH6L/iLeqy6No 2FjOfzQdfdJAzW6uCN+DSmbNG7RfI2//zhLMx1dxFuXoSO9Gr+vvMP902L++ oZ8tTp+rfk/Dm4hPER3oN2lXr0t+pCHkX4s9Q+haYxvJI6U0+MvmiY+je7rU Hz0qo2FmQrqXi57y51Pt/oT75btXI7CZIBfJNWWrVtAwsdSxQhy9Lj8DPCpp WD4X3SCJ1rUIKs+pwvdy3+m3DHo/c8RiupqGyIKedfJopzBWO1lDQ+xWE5fV 6PMqC92Ca2mI52Tmr0WHfmj+XfEF31+60SpFdLzjK/8lX9H7N0TPO2c2WMSq ngbJJ8Gr511+/+jd2G+4/mC/wvn+bdpaqzsaaPhWpes+P/5IrUDa+u9YDw40 s+bnF3Rv1TndRENX+82FK9BywlnFmc00BNt4cObXr5UUYjrRQsPm8PSB+f0Z Gdo1bGvD/LU+NT2/f9u2TU5Xf+B+bn6WJ9AeF4WGytrxfudmLebPL1D6x3nx DryfELnH8+d7PzOb949OGtK5h4lOdLrZjbD7XXg/eqVeDfP588t++Y9ufC9i cdPz99cYrP1kXS++x4PT0W/RPFR7XkY/5l9An3j8fP7Y5u78/YuGVNl3/eFo 1fGb1fqDNFT6vf3uN58vGlu6PrCx3k0lT9qgXStEz4jQNBBF3SpG6MsnOibN GRp2JX8/o4lOehS2qGWEBg99v2386MlFXfrDEzR8bWjtfIz5blYw7KQ5hfNv dzS/hk5w4bnpMU3DveGGFje0yVv5ZvYs1t9WNUstdOxfNr4DvAyslHSqzsb3 SUu5PlHlY4BmuWy/g95d7FNxkp+BqfqLnz3Q7GVRsn0CDHhaOluooMkP1QVd ogwM+suPhmM9iPJo7VwrzkC8RpjHCXS/7KDI8UUMjD1WWbQdHekpdPTnEgYS zlzM6sP60rlq10yrNI435xi7CR18Md+gQYGBK6d8xeOxnjUpljlLr2Hg15dL hSfRGrXfQi3WMtDn1ROphW5cP9pSp8hAzYKAlGKslyr16pdrVBnQf55/ux7r aaVG4ttPmxm4G+N2+qsK1sPmzG5BHQZClJ95R6DPBReLGW9hwMg1KGEfWr61 7dhHPQYuxeR5Uli/PW7IzJVsZyBwRXtfLNb3pd23tr8xZkBSxGWfhiJBDp9P 9JI2wfNLcGv+to4gvwi/TvbYx0CXsZn7ZXQEq1tC0YwBosYhrhS/L+KXtvaG HWagRyRH0XwN5vfSvnB7O1zf+cGFWqsIsu/p7Pt8ewbeb1ve9EmeIEt1l04t dWTgpcFkpgM62G67c9lxvB92hM9NOYJckBqlq3kS13tqiUm9LEHOkTt+8noz wBJSMdFfTpCtdZbSx84x0BQ2G1ayDOuJy6l9//kwoOVt37QX7RsaneP2NwO8 HgFhFvh9nWgYuv7Vj4HNp3SdHPH7O+Ieo5V0nYGvWbuGTBbj+mJHru59xICB m2uZiwBBdhyyfRgaz4Do5NugpoUE2Sz4Lu/zYzzfC/947EdXe0cOWSTieRk1 VbP4CTLLVNPKKQXH65/KHMLfH34z7qq+WQwURYd5+s9wQeror5q0UgbKzk0G RPZxQVzi0ACnjIF2g6me3b1cECzL599UzkDeeYmX491cmNp0XT+/koFGvVdn LDu50C6inPihFvuHU2lEGxfSCv4839bMgPnZFjvBOi4Yyv6UW0wz4HBzLrmn gAsf8w7sdmcYUL79gTF6zQUTy8JTlcM4Pn+a49M8Lhy+/aAg5DfGew/kHc3h grOApQ3PNMYNyX056Vy4NlIeNcw/DMrLVI6IP+ZCZUW2SL3sMLgK7s1wCuSC 1aWQyft7hiE+llWTvJsLK1VYhYwxthfP/vvRTlxvfcOVvSbD4OEl5xm1gwuu GutFJ00xfmPhwb+3ceFCxwd560PDYDxJ16hrc+Ge8YJd0seGoezsqvV713Gh UdLvVqTnMCjYPYvdxsMFmxdea2/G4fxvr6nq5c5Be2Lv45yhYSi6L/F5q8wc rPlHyunJrhEo47tjJ2I1C/2rKn3K/x2BEGm53/+EzkBsxMfv1t0Yryuu3pA1 DcJdF/1St45C/MYrfolZUzA7+9957dBRsJ7c5t+XNQnPp9Izr3aOQrL63QrN sAkwKu3fqqf3G9oF7jpcsx2HP4+8kFG+/ht09USfLNccA7JGVa/px2+oWUks VG0fhUeimi8+sMagfcjA8XzMCLzewDh5h4wB64Vlbbb6MBSv+O1yo20MagJF U2bxu7q/JoD6rj4ORYnlx1Z/YEOUa5nNYNA4KOhvitpYMgAOpdHGug3j0L66 Wt2lrw+Wj6UGDShNQNHzLY2MVA/cFLjA53R5AhzixffSRCdc/VHVsKQanWT+ VFG+HbbEtA4GKk5CkX3A6d6p79CwTtPc3hc9ZRR9oKUOZs6JCXpVTAIRdE9h gVMltKQ84TFZMwWESLZDhE4R7EgsOXDEC+3nrrNaOBEi3RUHa0vQJl4lXsrP qIeyhuWiMtPg/8pjBWtnMaUR3jvjf3IaiGzblZ2ZFZRvt9HZvCKMByftfG1Z R5nyauirSMwAkbQ57+XeRkqYc+Qgj9MM+I945eaMtlBXC8nU2DyM735/0K+7 nQr4I8PqrNAsFPkrBWQIdVL6VQ1GQo6z4N+S/zxVt5v6IbUrUPA/jCv55rO2 9FJCinrSOwTmgFyjZPqe3Uexpfv6DezmwP++sWl+/C/K+vMqCc+MOSAaYp3N RAapDKsHIeJcjGv3WIfuGqKOql0ScCW44C9eon1p7xAluOBYcDHmYdH22q+u ZkOUQ7p8oDcfF4jJHEtd6yFKgj/hnyYhbL/ks8VLtyHKOzPZJ0kS401MwoLI IUpXLNd5uyr277kerNUyRBWX1JDuFlwgRwN/XHdhUyEFC56+tMT49M8wu7/Y lFm2jtCIFfYHB0OWO5tqehpbe/4I+rJ3Qfk5NjUa4uoUYI/9B3tbmwPZlNIB IjDqJPY3sj3unsCmQps1Sl9fRp/62828mU0d+uq0YdYP+/tqFL9vY1MyVf+G gz/G25KEdTrYVFLhtNX7K+hnYT6L+tkU9bi0r+oajn90fULcGJsaPmEv/PM2 9h8bKFVawqGsR2/tF0jC/XpRxn07OdTHakPWmWcYv0gqWezhUJtTxiQaktEC fgqFJhxqkZ1dY9JzbF8+cyLwILYvVTtu9ArjV55v7LDjUNoPKi8EvcH5FDu+ /7zAoSQMhRMXYF0rqrLaOJjCofxXFga7fcV44Fap5jQOxR47e7KuHu1syvMx g0N9ev5d/Ukjjpfz7kd4DraXSsk3xDpJrnv+aKSIQ3H69nwO6Ednnb0w9Y1D HX03/ar/F9rBbHPKdw5VHpcRdXAQHRLRc7iFQyUdWnZkNQfnt126Ie4nh7J7 09NVNIrrT8iR4w5wqMq7MaXKY+hMB58wNofSP2uWGjGO/V3EqGUMh5JSyj3j MIXxCj05hTEOdYX461DZNI4XrKD5cIJD0U1y2qxZbD/1TXP5NI6fU7vs3hzG UyLkb83i+OFBU1wu7mdlwBiXy6H+Bw6QXgQ= "]]}}, {{}, {}, {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData[" 1:eJwd1nk8VG0fBvCxhqQUWXpCaNFCsoTkTJI1eixFsoUsyRqSiqmQUgqJQukJ LWQJCXGmFCVa0KJkDREzpxIieq/z/jWf7+e693PO755l7oE2+3gZDIYHD4NB /8rq1NA/THYIyc9gUGQLa/plNm0b92+SPBR55rluxhYeBrN748v1q3kpcsrx vsZJXgaTOc3TbslPke3HijwFBRhMN05X7nEhikyvu14vKoL21277ZiygSMkd cWdkJBhMhpDknsvyFNmU9mRXFcx+ZpF2RIEiY7p5lfZIov9fGz2nZRQ5Fhxd nbmYwVSobi2XVqLItosRI/IymO9HzumoFRSZ/HG/1Qo55IeqOmbWUuQCrx0L NVYhr7T50aRDkecUxff1wAoL/Tcm6FKkSFdLxXkVOG1hrokeRQo47HIeWY31 HTeertqE/Zg538pdx2CyjmzLTDCgyP51fgbSGlhfk/5k21aKdB9em1QPu83x HgkzosjuPE5fqCbyYV0xyW0U+VE+5PQbLYwvvKzD0pgiX4sfbjujg/Vs+Xr7 tilFVv2K2z+zGfafsBOxpMiN90xr8g3Q307YPBEuCxBZ4EgwmNluPcELrCiy aPBc+X0mzstkzZ75Oygyp/0iI2gr+g/IZE38S5GKl3bZyhkhv/Cvur81RV6z kc5rgruXdEx1w1deZFioGGO9BrpqdTYUeb7mv0u9pljflr/LQ+woUjTSc+iC Gea79tq/HT6jvUKfMEf/q7GjBjvxPIpu92RYwD09qfy7KDLyevHanVaYf5F9 SqQ9RU44h0Tz7cD40ro3WuFQWc2WElgh6tzoageKDEypOCRmDTe0bWiDPWNr HzfYov/31/HijhQZYKsSv98O+TuFs/bw4WUXLeftxPnL6Ahmwok1vh9sdmF+ gwZXhT0UWfFLgvPZAed1pqRosRNFPq6LLmXtxvxUbNC/cFPScISSI9o/0L4T D3evY/P57sH+uBtPj8EiXn4yY85wLO9MpTNFSmi+67zkQpvv7CAsx7slR9cV 83/7lbrIhSI1ri5Wi3ZD7l25xBs2OHB8bNleuHZ+eiJsqjdS+QRm/9l7oQx2 evfISMQDLuQfn4a9ctaK3IVZHh89lrpSZHBI2qsdnshZ9602w3Fi/o6p+3Ae YWczI+ALHe/ldbyQn5vLuAhfuWPY/xFmXsjouQsXGUsHKfhg/rZJ+c9wlcRJ rTpYwd7i2A/4Se/o1D5fvA/GlbsF3SjyZbEDW2g/zocZWy4Nf4iqi82HFQa/ X1CBe7erWlj5of2nLSM68Kjs5QXfYWZ1RYMxPPmV713KAbRffUnJFuatCMjQ 9ofr5RkusGhsu1s7bfU0Z294sa3RiqMBWL8IoR8IKywr+iYXiP3/3J0ZBq/h ypQ8gt3Oro6KhLVrYsI9g7Cf0J89x2BmAnfTnGDklhMN0bD5bkeeO3D3/Yj1 LNhu5dP67SHIrauW0LnLL7WzXJhRO3v6KOxbd8U6+SDyzPgjEXBokoCUVih9 nleoEDjKNajjPZytfmjID45f9+l6ZBjyVXu9PODk6W3eS8Oxn0UZ3rvhzOfF a9m0k71HLeGbaUt+uB/C+WwTnsRLR97bF1chEIH9NT0+tQF+qPH96C3aje8y FeF6HidDi8Po//nURnH49av6ORw4O1faYRbP62OWevOFSLR/+mJ2CO73y0zW OIL1fOpb0wZPzQlZevgo8gBL2Rw4x/lwifQxeCzB4wxsVcra9oB2WrthIHzD 5bz/RBT2b5f1RJPOyy7xpEVj/tkL3pLwpPDVVG0WzrM/8foY3s/t5QU1Ycex n/M5nwrhcZEya8kTmL9bt+M0nO1W3V8GM5LaQj3gsbmN88ZOYnxVycCFcJb7 oHNIHMZjXk90xfdj+oDzXfwU5vMndqnBP+aNx5bAbrrtFTP4/owr+QupeMzX NmV2CebMV5wNSEA+0Vp8H993+j6VZLGzGE903Y4jsGH1+hWFMIs/4rQBnOZF WI2ew3qqOlvYqA/MGqerfhfo59dMlu2myOGFnhvmJmF+rRSjAPiij1/9Hdht 3xbvFfDQokjOUDJsa30qGfUoeX+agU8qxjdZquuI+vVFqqXT8wqeT4PdlZuo h4n+7SH8GRifI7LEAtap6xbMgd1qUjeP2uJ+CeCq9mWifbCy7zpY+6lo9N5r WL8c/94s1N9TISbyLjnI2dUi+qjn45tadOfmYv1LugTZqPdeAs52D+Du2Aw/ Q9g4PeT0wpuYT0YhyHA7RfLXZv2sv43+Iv8EqJlT5AnhsQa1IuyvbeZkDe6b Hy1RvR20bxmqrYL3ZgrPnC6GaxRNk3A/MdXkN3wpwfh6v+pccH/9tTPPTC/D /PY3RwaYFHk0OzuIpwrtX7mYFuD+G/Fdk1AIs3S+/pjB/bhH437unmr0l5y/ wArWq3/xsfwh9l8ZdmMI9+vvb+NG+0nk4fs3imlTZPhGS5nWJxj/zALHeetR 717+fpTzCuvvNKruV0S9v71uh/FrODnITBLeH7O3YxDuTtSI24r73lPv+fjq FuTfT4pm4v/Brrz0NSVtWM/2ANvN/1CkftTG1Jp2uNKHb4skRQqphvm868P7 lMottRLEfS58+9ehL/CgboqdAOrVl44TMv3wLKGyG/9Ppi8bZTkNYHyhmEgX /H/hCEi09H5FLiQVUvqHS7Z+vreJO4rz/6Jau3yES149R4kJTSK/rq+q9JxL unXcVKyA2Xm/nxfUc0nFNa7aXr+Ryx4+qPGES+Y9a3Z+MoU8adePjSSXLOLL L2DN4DwKCkuWlnNJ9uF95r95eZistuEGp2wu2bfvY+zwPB4mO9Dy091QLrnK 4MmfJiUeJnPt+T5SgkuekZDuilDmYTL86wazxbnkyLDfI+XlaB/N0Y8W45LF aYvijq5A+4eZHRpCXFLnu/v8tSoYX+ok77FpDmmaw6OYoIp8a13w+R4O6SNC mJjpwirBqyrzOeStd5VJT60wfifLzFCHQ/q1/Hz9MRw+eNWdx3iUTCBFSqz/ Q/uCXzoNMiP4Xr029Tdi/lGnMf/uYdLEtO9AwQ/kP1dKml0YImeDNxNvl/Iy 2Ynat30FvpITs5+qZY15mSwnR//GyAHS6ph9+6NgXibD3XtOf9kXMqNvLCsz EzZb52rU1UuuvvtO9OITWOJO/R/JHlLKJ/WfUS6scDMua0UnaRyX/s5dmo/J CH0WK2DykWxNjVDXM4LLf3q1Tbwld52L1NgWCAs4RZzPeUMu+cruOpAG/6eb WSPxgjTQ/LJ2/DGcXuITuugxeaPPQjnzG6x8qk9Uo5T8G/n2cdgifiajm6X0 Wy6GfMCnz1tiADPXy/WsKSLKuAPfhLzhSIcl2ZpsYl5zQPjjZLj+4dMh4jnh lCx9q6gGDstfOY/3DcGpEoyp7Id9roiEzHlLfG57w1guLsBkyD0UNtveTsy3 6Vl5VxfmNykRUv1MbKxYOO6zV4DJ0tK7VhrYTdTMW7Yv7izyBperWi69RGzD wSh2GfKDP+U3SH8h8kNu6Dh1w8YbyMaufmLRcaksCWFBJuO6eOxA0CARfOju LYY6/PPgSvOer8Q6V4WdVk5w8ezuRzbDxJo77/MfxMA8WZHK574Rpwb8bsQU wyZ/IjfVjhDtIoqGMZ/g248mzetGicmxbaXKHYJYn1tDc/0osbjLV/kpzGj1 dbNqHCVsSksEBTvhBpJr+maUaNqz5cWpbtjreJhS1yhRW+Bml9APj5Xc9Z8a JXKsrnklc+HCI7a2ahwiIPmfhGy+OUzGs+1nTJI5hA1Vd8KKHz4QGRSRyiG0 rfwi/9D2UErPS+cQM8JVvg6CMMvp9tRVDnH2uL3pAmHYNfvR8XwOcScoWYAl BktIbpr7hEMMWgmxXGVgqYFOwZ8corGg6NA8WfiTWWXnLw5RKGIfWE2b0cou neQQ4fW5LlL/wEWNdjtnOYSgwdbNr+TgozFR4cJcQnld1JSBMqz3zHy9PJdw mzsWKqcGD9XZHjPlEm8ijbrYtO1PB7wy5xKGwxfNPNbDmy7yyFtyCaXnWnK3 1GGOT+J9ay4xEHeoQV2THi9Fs8GRS/jzTsts04WXLCYCDnCJyN88pN9WWGV1 4atzXOKbj42KmBH8cNmbV+e5hNOH/1KKaSe17GlO4hIGFVt9fm2DU6zy2Klc gicsVjzaFF6pxROfxSXiKSHPZEvYctDxcgGXSB2cL1xpD1dq/n38jEvkdf7Z 4uAA5w6UeTVyiftvhyInaJ8365jTxCU+1NWNaDnCx9SiDF9xCdnsQ6/vOcFB 7xmX33KJbIeutIK98GToxcYeLlG8o+m1hTtcT67e1sclHhlXCn+jPcldXfOF S/RqphxR8YQz53nnDnKJ5eImrnlecMJl9q5RLnHneeGKbD844E2C/iSXqGZn uBIH4K3Tsed+c4mmivj0TtofDHo/TXGJ0Vx3kaUBcKACGTTDJdafWMy5HAT7 20Vt5qGIcr2o8pQwWPDdWSFBiqhX9+NsCJ/DZB0/NpMBv1vlsLIFZizYvkR1 DkVMLt5weUEE8u+ezlZCFKH3s//ouUj4RulYlAhFsPMtjU5F0++fhm62GEVc WlzLp8lC7nZaUGU+RRw4rlrXTftfL2YxLG0/31DvBL2f8MnKBRQRjJoxGgNf 1A2uWkgRirvtNtmeodtnEIGLMX/dk6m/tOfOLe6EX6pqVRUkwL5z4rdLUUQk /2JdwXPoH+ntryRNEa1F77UrzyPvFROolaGIGME9G+RTkaeZK+b9QxGOwS++ v6CtqTYwDa/v2FQScYl+P/JE/11KER0l/6xvSUP/Q6Ksn7CWc+e62CtwNf/k CnmKEH1mNaqegfa/nzYEwr0byIJO2p6ZE/fhRKHsNTpZ8AbzcKYCRQyU7lX5 dg39s38OEMso4qFcy9e0bNj4VuEROPm04S2j62g/NtZaDhu4Kq28+h/8Rkp7 uSJFSDSmDJjfgCusQhzhYU3+vAmYJd4lkginifQrW+ciT2zeQcEBYTu/zND2 Pjstp0QRRt1Pb9zJQ3t5L97tMFWep8h/C76+RuE6XK8g1VsMMxQitJ/DmQmn rjvfhr9l53Fh070+ChV34LemKRuVKSL/83Ebh3y6nih37YLFHDNifsOsNc5V ofBbm5dfN92FJ/qXFsA6rwZlP9PeWpb7FM604LGMKoTjP1d/ht2NNEvYRRhP zSBZeDlFPGVb9u0tRq40Zr0UXrXZW5KvBPlm3mtqcEIlyySHdt3Kw0yYo3Xl 8LZ7dP1S7t4BW98rzR+gveV+qzNcptr8+VQp3Jxlux+Wzh+Yr1KG8Ucvu4bB R1YyDBthxnffiSi484ZMqF85LNcsewo2VNDIE72P9rUnnp+DczO3f7hLe6k5 XwosJOMlsqMC7eN6Gy7BfqnR+hRt5lypy/BL8csBSQ/g9JMUbfXEe9kbKtH/ vYgd7YsiTS2ttI3ctqTBE3H9/GFVsNrWB/T4jnx/tRdXw10hDxLh2mhp3wqY kVW4JR5e9kc9w+EhXF5uy4JjIiyaf9MONOGEw1/HPP9eqUF/KSXxA7BFcJS6 fi3yiTkPXeHC0TSPzzDLoZxjDYvvL0mNIuHY4VuGcOhAY4M8G27wGlaH37t/ +c2m7Tt0Tx7W65pZ4/4ILlfnFYWz9ki58D2Gx2ffj+P5Mj6sv5BDO3SBZjfc 8NpjbKAO89vNHCuEV1seWxH/BLmZvV8KnPj8koPKUzjnx+dw2O7x84d+9fT7 P2ytC1cY9HFEG5Dz1dtIw7LVfxQKYUZH1/tfeF+7S9ViqWfI9zX5F8Bb15tV JD1HfmtpVCycV+A+tKGRfv/viDvD/rmplmEv6HoR+mgOPHVpWnKqmd7PfX0L fE/OiyRNM16if9MbV2mYfV41Uv8Vfd8p8n/B9xoXv7cz6jW8z/NVOLwosiGP rxX9Q/71PYPv39x7WXoFzNB+tMIIPmF35LRfG/KC//j/oF5QqmoHWt/Sz3OH ghf8su+S+o0PdD063KwkRxECbyhF+3ZYJC3mJeqRfq25xNyPcPTO3Yfg/PTZ 8ZBPGG/edsc61LN4S6+Hhp3Id5gUGy2hCFKPfXf8/04y75aliPGVstfudKH9 4/y/h+F9vC+PL+yBh4ce3ES9NKzQMuntQ/vOe84jqK9/FARajg/BDaXLZCUo QkPMtU5rGO1nWgzSFlHE/ukHZUMww0sxeCHc/vZAmvUIXDW0iA/1/P6ZNqdl XHh2i2kz6n/w2I1B9hgcvnOpwFyKuNUz8yH0F8br2Obhgfuk+6V946pxWKv+ ASlMEVa35969MAHniSWF4P5Z63IwxG0KVhwYYQtQhIdFs4fENMbLPpY7H76i s3LnM9qjbfud+ClCeNGnjetn6OflKEvxUgSToaXyhfb5t3wb4YjRRNn0Wfp9 vTl5BPdj0cevc7f/hWUjJmsZqN8NhjN/aY9/42XA/wOkGBz5 "]]}}, {{}, {}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData[" 1:eJwd1Ak01VkcB/CXRoOEimwtaEEqhKkoF6mUUlGRoUSkqMGkolFeISmjJBQZ 2bLLvuS5opI125M9MrZ4708h67vz+8//nP+553P+95z7u7/7vX952z9M7fkY DEYOvPQos5MFg4AeQ0xplhAKNXrP1UXT/uht84pHoYDKXRH6i8BVkgnGCxSa tczTuMsHfifQEDBLoTavjPNL+MGb1HL6JigUXv7yg7AQeJmNPGOYQhJH/QKk xcE20RsH6yhUE/buVBHtH0V/qNRSyKeHb/3vEmCXk0nO1RSacL39JnIV2HQF p7+CQs0hN0bXSYNV+99ll1IouP2Syaa1dH1FiqxMCok5HF2hoQSWYxoFPKZQ oMJy+17a7g+7URCFhL405gcpg3kFnPGHFOK3OGU9uhnsJuxp7A/7OWidGL8V XFZs1XyLQv1bnXSlNOh69Tv2OFGoaNLv0sIecGON4VV9Cu3IMmKl6II7hfWK dCmUc0VIzBKBszZUzutQKGMwMDdPD/zS7d713ygU1xbCcNkLNn71Ya8KhYJY MaFfjej+uPXsEKfQed+SsgozcOhtwSd9XHTFTNn/0gnwIt/Qlz1c5CEfcmTZ SbDon5ppXVz0N+tiq+kpcPKG+DefuSh/UpzbZQHm+8cxt5qLhBycpCeswfEz nNXZXJSxX8pFzhG85lEMvs1Fs7+6rfH4C2wUpOUqxkVx1h6ZUl7gxKQH7cJc ZJLtva+A9kd9NX1BLoo9E3T55y1wzKDDEj4uOpybynJngoXHw1x+cNAL20Fr Nz+wreaNd2wO0mNZRTk9otc7lHI5nIPuuR1YdyYOHCiT3CvBQa51M2/jPoEl 046+/DyCogLHRASm6e9be7b5fkNKuu/ma9YLQv+bBdJHhlBiS+Hj9ybgi3af v6oNIqfGH/Xt18AFgfsSXPvRAyyUeTwGzB7zf3+xD3FFHXT6q8DLIho67HvR AaM+59TvYKWxnoWYbsRz3YPYa4T0GIbcoaqhNvST1/FGZj9YKVL38DE2MvEy b3vrCl4doma2qR5F9E28iIwER6abn25+jzantQiHvKPnO0sEReQjScenqzkU 2Dur3bvRHe33C2+xlVqqxxjSeh5cnY2bnt5Q1zYET8fISwa8x6cCPTX2/QE+ Zvl289/1WHao9ItzGNgwY/4VYWNdzX+3TJWBpZqib3I7cGyf8YbIEXCxo1c9 qwcTT3aZ+0phPcZw06Ma9z5csHg3X6YuOK3w+yf7AZxDDYwIXAA/1E9+snYY L6u9cq0sGDzzq1WL4Ci2CpZKzGCBu1WFSScXc4uW+BT2gy1TP80VjuGu5gbG xuXL9Biv716blf6ORU17FdN2gWW7/a5Y/sA78ldMOZ4Dyzef4DyYwKxl8vZ+ D8Hbk5RDayaxb8Wft0pzwKy4b76jUzjFLXanVQ94beMadclpvJIp+UJcUESP kamkdExuBrteT0tkqIPLvl04uGoWbz0rd9LECiw6Ln1MbA6rJH9OKfABKyWF NwzN4XsDTrE+r8GPGtPb8DxuE1Iw8OkAd+xzG/RawFeCVz+IXiwK/w/fjAOy PGw6Vn7H5BdwU9LxD2t4+DcTJ8952tYe1/bK8fCCYNFFiyVgufr9uzby8EOm uZGYIDjXcmaFKg8nuwTze4uAbVqsbxnw8KCJgPdZafCy2b7tjjxss3Ti6lpV cIlPLyODhxs8Db+U0rZMq5x5zcMG30IO2qmBnweYjWfx8PpKrbWJ6uC5U8ad eTw84He9Ql0T/Etf+csSHr7MNye9bxf40aaob7U87DmzCDvtBacfUXAb4eGn g6KChebg4rTSgwoEJ3TP61tYgIMHv/SsJziPPez5k/ZPm6hrGwluLS8f1bIE UxLTL5QIlom+Xp9lBWZHS3ZuIzja4ktY6jlw/vwnCR2CkyvTN0U7gZndTl6m BL8pjTiLnMGPC6YHzQiuyfcP76ZNcVYfP0kwJ95WaM0V8Morm9dZEKx2ZxX3 mQt4X6dpsjXBudq3cp+4g322x/zlSHBpyhHDe7fBCq3eol4Eh64qWazpDR7U /f3CLYKdmdvKe2gvarjLuk2wlLmogfYduj7NkvN3CHbla0AcH3Ck0qeoewQr nD6hYxYAxlqybx8T7LPk9+3rnoK9mIrFcQRbulaPV9Oel1Xpiof6OnUyb4SC 39a6zScQ3Jm5Wq0xDByiWauVRLCWdfdW3+fg1j3xT9IIHsg+pzzyD9gqK2Iu l2Cjc45y+cngE/iy53uCU7qYphYp4C52o9kHgkUsI3xmaAfGpapUEMw2rRvS SaPnn2e1fCTY1lAzszQDrLf3sEwNwTcVGQZVOXS9WwZONRLcHSt91SkXfEDs hmQTwQZyGgnCeXTeQjxbwALSDkJH8+l63euPsgkOEappbCoEb75WoNpKcDon zK6rBHxJVi+ui+DllzKf3sJ0vg6xjLsJvjpQVbGuFHyD8WocrP1lQcX2LbiT V7Kzh+CKeruJgXI675Kz2V8J7slW9R37CFa1tzszSPBetYP5jyvBKlYBo+CE VNvh7VXg9jJpjyGCL8c/PeJeDdZvcwkcJng2dE5ithY8TaZjRghe6VmRsLiJ Xu/rDiZF8KEL8uH5tAvytBePEXznxM37Ts3gD36774LHtqk6N7HBk+k6XuME 1/WFqse2gpWV1p7+QTB/w5iCeRtYdECkGry75JD40nbw+oo57Qk4n3DelFsH +KTfR/FJgv2POBQbdNP3c9GG11MEY+3StCnaSr0jy38SPKUo80/yF7D80jRX sD1fHXNFL1i8QVplGs4jX+vA1z6w3dYnvjMEe8QF7Qz9l77PDrKfwa8fDysf 6qf3s/z5plmC1zm/EM4aACuaeGDwvBx/I3MYrOOU2zpHsIbI2XKtb+Cbvw1K zxN8aa4gZ5h21zPh0+A2tnPY8VGwb7FaA1is/IM/Pwd8//02oQXI42s5z0La 6rNr9cF5Ac1W8hTdX4/mRDD3+jYTNu2XIs/awBvt/dH9Mfo+2poI8CA/aLfC +Dh4Q8f9s+DqLaEr47+Dow6K+oP5ZMZ+Of0DnCfkkw52nYgdLJ0A75LSngQn 9i60Xp2k+5HuKUEgL3XmVUpT4ITNSRpgyeLMN520+9XfHwWbJC1Ne/STzoNj 3UWwX6h9lOE0uPLqOyaYdRcHTU//v5+EMPCEizQzdQa8PMo9BbzlzJ9uNrPg /fxqLLCdca2d+Bw4p5ldA36+U/HkR9q7Mh3awY0bmfv/mgdnoq/9YMGVHTvU FsBkgxEF1mNoKf9Lm29J+BT4BudvmXAe+Nm9hjlwRvvQ0sMEHGcywQMPVBgs ENrk/wf/ByATZPs= "]]}}, {GrayLevel[0], Opacity[0.9], DiskBox[{1, 2}, 0.03], DiskBox[{2, -1}, 0.03], DiskBox[{3, 1}, 0.03], DiskBox[{4, -2}, 0.03]}}, AspectRatio->1, Axes->True, AxesLabel->{None, None}, AxesOrigin->{1., 0}, Method->{}, PlotRange->{{0.8, 4.2}, {-2.2, 2.2}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.5324044898646727`*^9, {3.532404526714637*^9, 3.5324045423301783`*^9}, 3.532404574824131*^9, {3.5324046050315866`*^9, 3.5324046079785423`*^9}, 3.532419511013752*^9, {3.532420405867633*^9, 3.5324204338267736`*^9}, 3.532422616709756*^9, {3.532507062497734*^9, 3.5325070895093327`*^9}, { 3.532507121645481*^9, 3.5325071562478447`*^9}, {3.532507193468226*^9, 3.53250727491197*^9}, {3.533021766370397*^9, 3.53302177624271*^9}, 3.561096897583582*^9, 3.561102391395091*^9, 3.593275812807786*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Interaktivn\[IAcute] p\[RHacek]\[IAcute]klad", "Subsection", CellChangeTimes->{{3.532507291554779*^9, 3.53250729883943*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"color", "[", "i_", "]"}], ":=", RowBox[{"Which", "[", RowBox[{ RowBox[{"OddQ", "[", "i", "]"}], ",", "Blue", ",", "True", ",", "Red"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"DynamicModule", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"pt", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", ".5"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "3"}], "}"}]}], "}"}]}], ",", RowBox[{"A", "=", "0"}], ",", RowBox[{"B", "=", "0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Column", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"Slider", "[", RowBox[{ RowBox[{"Dynamic", "[", "A", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10", ",", ".1"}], "}"}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"Slider", "[", RowBox[{ RowBox[{"Dynamic", "[", "B", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10", ",", ".1"}], "}"}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"LocatorPane", "[", RowBox[{ RowBox[{"Dynamic", "[", "pt", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Dynamic", "@", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"spl", ",", "dom", ",", "img", ",", "aux"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"aux", "=", RowBox[{"Sort", "[", RowBox[{"pt", ",", RowBox[{ RowBox[{ RowBox[{ "#1", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "<", RowBox[{ "#2", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"spl", "=", RowBox[{"Splines", "[", RowBox[{"aux", ",", RowBox[{"{", RowBox[{"A", ",", "B"}], "}"}], ",", "False"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dom", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"aux", "\[LeftDoubleBracket]", RowBox[{"i", ",", "1"}], "\[RightDoubleBracket]"}], ",", RowBox[{"aux", "\[LeftDoubleBracket]", RowBox[{ RowBox[{"i", "+", "1"}], ",", "1"}], "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "aux", "]"}], "-", "1"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"img", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"spl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"dom", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"dom", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "4"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"color", "[", "i", "]"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}]}], "\[IndentingNewLine]", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"dom", "//", "Length"}]}], "}"}]}], "\[IndentingNewLine]", "]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"A", RowBox[{"(", RowBox[{"x", "-", RowBox[{"aux", "\[LeftDoubleBracket]", RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}]}], ")"}]}], "+", RowBox[{"aux", "\[LeftDoubleBracket]", RowBox[{"1", ",", "2"}], "\[RightDoubleBracket]"}]}], ",", RowBox[{ RowBox[{"B", RowBox[{"(", RowBox[{"x", "-", RowBox[{ RowBox[{"Last", "[", "aux", "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Last", "[", "aux", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "8"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "4"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", "Gray", "}"}]}]}], "]"}], "}"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Show", "[", "img", "]"}]}]}], "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",", "Center"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], "Input",\ CellChangeTimes->{{3.532420071201848*^9, 3.53242016178482*^9}, { 3.5324201936941633`*^9, 3.532420399680463*^9}, {3.5324204541633863`*^9, 3.532420844241261*^9}, {3.532420896292322*^9, 3.5324209197655354`*^9}, { 3.5324209719773607`*^9, 3.532421034978222*^9}, {3.532423660270513*^9, 3.532423660560639*^9}, {3.532521948282892*^9, 3.5325219502203903`*^9}, { 3.5330218069036016`*^9, 3.533021957923864*^9}, {3.533021994387109*^9, 3.53302200734965*^9}, {3.533022140359804*^9, 3.533022148411454*^9}, { 3.533022178909533*^9, 3.533022262102251*^9}, {3.5330223971538563`*^9, 3.533022415697154*^9}, {3.533022457926898*^9, 3.533022640992482*^9}}], Cell[BoxData[ DynamicModuleBox[{$CellContext`pt$$ = {{0.9450000000000001, 0.74}, {2.725, 1.61}, {4.285, 1.49}, {6.355, 1.72}}, $CellContext`A$$ = 2.9000000000000004`, $CellContext`B$$ = -1.1999999999999993`}, TagBox[GridBox[{ { TemplateBox[{"\"Lev\[YAcute] sklon: \"",InterpretationBox[ StyleBox[ GridBox[{{ SliderBox[ Dynamic[$CellContext`A$$], {-10, 10, 0.1}, Appearance -> Automatic, DefaultBaseStyle -> "LabeledSlider"], InputFieldBox[ Dynamic[$CellContext`A$$], Appearance -> "Frameless", ContinuousAction -> True, DefaultBaseStyle -> "LabeledSlider", FieldSize -> {{5, 10}, {1, 2}}, ImageMargins -> 0]}}, AutoDelete -> False, BaselinePosition -> {{1, 1}, Axis}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Deployed -> True, StripOnInput -> False, FontFamily :> CurrentValue["ControlsFontFamily"]], LabeledSlider[ Dynamic[$CellContext`A$$], {-10, 10, 0.1}]]}, "RowDefault"]}, { TemplateBox[{"\"Prav\[YAcute] prav\[YAcute]: \"",InterpretationBox[ StyleBox[ GridBox[{{ SliderBox[ Dynamic[$CellContext`B$$], {-10, 10, 0.1}, Appearance -> Automatic, DefaultBaseStyle -> "LabeledSlider"], InputFieldBox[ Dynamic[$CellContext`B$$], Appearance -> "Frameless", ContinuousAction -> True, DefaultBaseStyle -> "LabeledSlider", FieldSize -> {{5, 10}, {1, 2}}, ImageMargins -> 0]}}, AutoDelete -> False, BaselinePosition -> {{1, 1}, Axis}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Deployed -> True, StripOnInput -> False, FontFamily :> CurrentValue["ControlsFontFamily"]], LabeledSlider[ Dynamic[$CellContext`B$$], {-10, 10, 0.1}]]}, "RowDefault"]}, { LocatorPaneBox[Dynamic[$CellContext`pt$$], DynamicBox[ToBoxes[ Block[{$CellContext`spl, $CellContext`dom, $CellContext`img, \ $CellContext`aux}, $CellContext`aux = Sort[$CellContext`pt$$, Part[#, 1] < Part[#2, 1]& ]; $CellContext`spl = \ $CellContext`Splines[$CellContext`aux, {$CellContext`A$$, $CellContext`B$$}, False]; $CellContext`dom = Table[{ Part[$CellContext`aux, $CellContext`i, 1], Part[$CellContext`aux, $CellContext`i + 1, 1]}, {$CellContext`i, 1, Length[$CellContext`aux] - 1}]; $CellContext`img = Join[{ Table[ Plot[ Part[$CellContext`spl, $CellContext`i], {$CellContext`x, Part[$CellContext`dom, $CellContext`i, 1], Part[$CellContext`dom, $CellContext`i, 2]}, PlotRange -> {{0, 8}, {0, 4}}, PlotStyle -> { $CellContext`color[$CellContext`i]}, ImageSize -> 600], {$CellContext`i, 1, Length[$CellContext`dom]}]}, { Plot[{$CellContext`A$$ ($CellContext`x - Part[$CellContext`aux, 1, 1]) + Part[$CellContext`aux, 1, 2], $CellContext`B$$ ($CellContext`x - Part[ Last[$CellContext`aux], 1]) + Part[ Last[$CellContext`aux], 2]}, {$CellContext`x, 0, 8}, PlotRange -> {{0, 8}, {0, 4}}, PlotStyle -> {Gray}]}]; Show[$CellContext`img]], StandardForm], ImageSizeCache->{600., {190., 196.}}]]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], DynamicModuleValues:>{}]], "Output", CellChangeTimes->{ 3.532420127177374*^9, 3.5324201972135963`*^9, {3.5324202350419903`*^9, 3.532420257624318*^9}, 3.532420288175212*^9, {3.532420333300848*^9, 3.532420347711583*^9}, {3.532420391319769*^9, 3.532420400221635*^9}, 3.5324204362366734`*^9, 3.532420590781496*^9, 3.532420632590773*^9, { 3.532420700049758*^9, 3.532420844819729*^9}, {3.532420901569496*^9, 3.5324209202697678`*^9}, 3.532420977363226*^9, {3.5324210258171797`*^9, 3.532421035392386*^9}, 3.532422618084552*^9, 3.532423660786992*^9, { 3.533021781440398*^9, 3.533021835003046*^9}, {3.533021878208681*^9, 3.533021902766897*^9}, 3.533021959632999*^9, {3.533021999353187*^9, 3.5330220085347652`*^9}, {3.5330224020319433`*^9, 3.53302241625329*^9}, { 3.53302255789887*^9, 3.53302258373825*^9}, {3.5330226139661503`*^9, 3.5330226418326197`*^9}, 3.5610969019358063`*^9, {3.56110237179268*^9, 3.56110239309492*^9}, 3.593275817220316*^9}] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1438, 879}, WindowMargins->{{1280, Automatic}, {Automatic, 19}}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}}, FrontEndVersion->"9.0 for Linux x86 (64-bit) (November 20, 2012)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 141, 3, 92, "Title"], Cell[723, 27, 206, 4, 29, "Subsubtitle"], Cell[932, 33, 214, 4, 32, "Text"], Cell[CellGroupData[{ Cell[1171, 41, 188, 4, 81, "Section"], Cell[1362, 47, 590, 18, 32, "Text"], Cell[1955, 67, 350, 11, 54, "DisplayFormula"], Cell[CellGroupData[{ Cell[2330, 82, 113, 1, 44, "Subsection"], Cell[2446, 85, 218, 3, 32, "Text"], Cell[2667, 90, 465, 15, 32, "Input"], Cell[3135, 107, 228, 5, 32, "Text"], Cell[CellGroupData[{ Cell[3388, 116, 3504, 96, 306, "Input"], Cell[6895, 214, 5940, 105, 375, "Output"] }, Open ]], Cell[12850, 322, 449, 10, 32, "Text"], Cell[CellGroupData[{ Cell[13324, 336, 359, 10, 32, "Input"], Cell[13686, 348, 396, 7, 447, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[14143, 362, 127, 1, 81, "Section"], Cell[14273, 365, 655, 10, 53, "Text"], Cell[14931, 377, 379, 11, 29, "DisplayFormula"], Cell[15313, 390, 419, 9, 32, "Text"], Cell[15735, 401, 179, 4, 32, "Text"], Cell[15917, 407, 612, 21, 27, "DisplayFormula"], Cell[16532, 430, 701, 17, 51, "Text"], Cell[17236, 449, 134, 1, 32, "Text"], Cell[17373, 452, 771, 24, 29, "DisplayFormula"], Cell[18147, 478, 342, 6, 32, "Text"], Cell[18492, 486, 933, 32, 27, "DisplayFormula"], Cell[19428, 520, 438, 7, 32, "Text"], Cell[19869, 529, 1036, 33, 31, "DisplayFormula"], Cell[20908, 564, 238, 4, 32, "Text"], Cell[21149, 570, 406, 12, 28, "DisplayFormula"], Cell[21558, 584, 417, 7, 32, "Text"], Cell[CellGroupData[{ Cell[22000, 595, 111, 1, 44, "Subsection"], Cell[22114, 598, 182, 4, 32, "Text"], Cell[22299, 604, 399, 14, 32, "Input"], Cell[22701, 620, 150, 3, 32, "Text"], Cell[22854, 625, 187, 5, 32, "Input"], Cell[23044, 632, 497, 8, 32, "Text"], Cell[23544, 642, 8437, 210, 830, "Input"], Cell[31984, 854, 133, 1, 31, "Text"], Cell[CellGroupData[{ Cell[32142, 859, 306, 6, 32, "Input"], Cell[32451, 867, 4376, 137, 227, "Print"], Cell[36830, 1006, 1326, 41, 52, "Output"] }, Open ]], Cell[38171, 1050, 183, 4, 32, "Text"], Cell[CellGroupData[{ Cell[38379, 1058, 118, 2, 32, "Input"], Cell[38500, 1062, 1011, 27, 37, "Output"] }, Open ]], Cell[39526, 1092, 110, 1, 32, "Text"], Cell[CellGroupData[{ Cell[39661, 1097, 3128, 86, 319, "Input"], Cell[42792, 1185, 15873, 267, 375, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[58714, 1458, 131, 1, 45, "Subsection"], Cell[CellGroupData[{ Cell[58870, 1463, 7945, 181, 539, "Input"], Cell[66818, 1646, 5485, 108, 494, "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)