(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 125207, 2513] NotebookOptionsPosition[ 122575, 2459] NotebookOutlinePosition[ 122919, 2474] CellTagsIndexPosition[ 122876, 2471] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Perioda matemati\[CHacek]nega nihala", "Title", CellChangeTimes->{{3.750563565750909*^9, 3.7505635837418795`*^9}},ExpressionUUID->"cf6fb92d-eb6b-4ecd-96d2-\ e466fc52dc3f"], Cell["Eksaktna perioda", "Text", CellChangeTimes->{{3.7505647283563237`*^9, 3.750564740332062*^9}},ExpressionUUID->"19be42eb-7875-4787-8dfd-\ 95f91087dbbc"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"T", " ", "=", " ", RowBox[{"Integrate", "[", RowBox[{ FractionBox["1", SqrtBox[ RowBox[{ RowBox[{"(", RowBox[{"1", " ", "-", " ", RowBox[{ SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Theta]", "0"], "/", "2"}], "]"}], "2"], SuperscriptBox["u", "2"]}]}], ")"}], RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["u", "2"]}], ")"}]}]]], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"0", "<", " ", SubscriptBox["\[Theta]", "0"], "<", "\[Pi]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.750563587257546*^9, 3.75056366370621*^9}, { 3.7505637403169985`*^9, 3.7505637960033836`*^9}, {3.750563858179146*^9, 3.7505638588822994`*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"9c0dd46c-c1a7-482f-b36f-62490c8122a2"], Cell[BoxData[ RowBox[{"EllipticK", "[", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox[ SubscriptBox["\[Theta]", "0"], "2"], "]"}], "2"], "]"}]], "Output", CellChangeTimes->{3.7505637370357313`*^9, 3.750563812503453*^9, 3.7505638718510785`*^9, 3.7505649243724165`*^9}, CellLabel->"Out[1]=",ExpressionUUID->"3acaf58f-bb92-439d-b5f1-16b9291ff0ed"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"T", "/.", RowBox[{ SubscriptBox["\[Theta]", "0"], "\[Rule]", " ", "0"}]}]], "Input", CellChangeTimes->{{3.7505639409632387`*^9, 3.750563948148178*^9}}, CellLabel->"In[2]:=",ExpressionUUID->"b80a73ef-ccdd-4037-b0c7-9f8c2581ed0b"], Cell[BoxData[ FractionBox["\[Pi]", "2"]], "Output", CellChangeTimes->{3.7505639489137893`*^9, 3.7505649294961023`*^9}, CellLabel->"Out[2]=",ExpressionUUID->"455c8f2e-3cee-46fc-96ba-e323a9dd33ac"] }, Open ]], Cell["\<\ Uniformirane periode : eksaktna, harmoni\[CHacek]na aproksimacija, zgornja \ ocena, libracijska aproksimacija\ \>", "Text", CellChangeTimes->{{3.750564753722748*^9, 3.750564765375307*^9}, { 3.7505648193405104`*^9, 3.750564845872673*^9}, {3.750564878544696*^9, 3.7505648963552322`*^9}, {3.750564937400812*^9, 3.750564943541445*^9}},ExpressionUUID->"fb976b79-bff6-4d87-801e-\ 89327126a46f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"perioda", "=", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["2", "\[Pi]"], "T"}], ",", "1", ",", FractionBox["1", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Theta]", "0"], "/", "2"}], "]"}]], ",", SqrtBox[ FractionBox[ SubscriptBox["\[Theta]", "0"], RowBox[{"Sin", "[", SubscriptBox["\[Theta]", "0"], "]"}]]]}], "}"}]}]], "Input", CellChangeTimes->{{3.7505642055567493`*^9, 3.750564208220583*^9}, { 3.750564781183688*^9, 3.750564785937829*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"0fdabac6-a778-48af-b445-61145a09098b"], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"EllipticK", "[", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox[ SubscriptBox["\[Theta]", "0"], "2"], "]"}], "2"], "]"}]}], "\[Pi]"], ",", "1", ",", RowBox[{"Sec", "[", FractionBox[ SubscriptBox["\[Theta]", "0"], "2"], "]"}], ",", SqrtBox[ RowBox[{ RowBox[{"Csc", "[", SubscriptBox["\[Theta]", "0"], "]"}], " ", SubscriptBox["\[Theta]", "0"]}]]}], "}"}]], "Output", CellChangeTimes->{3.7505642103489275`*^9, 3.7505647870283213`*^9, 3.7505649483383455`*^9}, CellLabel->"Out[3]=",ExpressionUUID->"85a766ad-4bcc-487d-97e0-4d230f3cef51"] }, Open ]], Cell[CellGroupData[{ Cell["Absolutna primerjava", "Subsubsection", CellChangeTimes->{{3.750565099285447*^9, 3.7505651168659387`*^9}},ExpressionUUID->"2ee050c9-33e2-42d3-b198-\ d01a7eaaae47"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{"perioda", ",", RowBox[{"{", RowBox[{ SubscriptBox["\[Theta]", "0"], ",", "0", ",", "\[Pi]"}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.750563882631054*^9, 3.7505639008785696`*^9}, { 3.7505640096897707`*^9, 3.75056412875159*^9}, {3.750564180564248*^9, 3.7505642017538166`*^9}, {3.7505650019524207`*^9, 3.750565061917966*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"c8c11eb3-ef0e-42ea-ae2e-a3e834600108"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwV1Ak0VfsXB/A7uOcemqgQFUqDJ6LQZNibTNUrGgxPhiiZimg2NcpQJDRQ pmQsMxGRRCg8cimJV6bKv3SvIkP4/5y1zjrrs9Zv7d/Z399v7WUOHnscWQwG g0femS/7mUhjj4anDpMx8/Bh5ddyTZlIEwh8GzlvxuM5KofaI+xgrskunRnn jkCrWJYTXHVWuTbjvoXOo48jPEBn9caxGV+Tqp2TVXocnlx3DGASpyhYxzOy TkN7aokqi7hiI191b4IP1JzaMDHj94aXK5MjzsEfofZe9sx+irMVfSsvgI71 /e9CxIHr27ySSy9BYmCEOEW8cEtCaWNBAFyOTLfmEifqugqNZgbCndDPlTTx 2m3qO5elBsO7y38bixCXmk7d3J5wFcKC332bRdxqF7E6NuI6cNiHSYOkH7W1 m3qqw+FjnNNNMeLTGyM/nK68AQduhT9eQCwENisTSyOh9Zel+SLiV3qVdRrF UWASOsqTJr5huNr9VcFN8O595rWUWGaX4PHPzNughS9nyRP37jbfH5RxB2rO c7iriB+alU4vSY2Gz7+PLPuLeJNNgLFhwl1YLlqYr0K854jU+zsR8aDYqUwC 58PsTfDsllEC9Jfl6ekR8594in2qToCbbHtzQ+LHZW2FJysToe7olo5dxFur E6biSpNgX1uflT3xKqMW06+bH4DDYInxYWKROk6SWvED0P5eYuZG3FTvalRb kAySZ7UaThLb8NTDBZmp4Eb9vf4aMZo7dWsqpUF3kL9UBPGKd9HqVzLS4EpN p+wd4oGOqXfSqenwxlc+5MFMfj21y/QTHoLEXy288pl8hqzzb0Vkw6Eu1tYx 4lDxGK2KOTmg+ed+DZPJhze5AbIae3Ig7eC3YyLE+wes+2Q6cuBMte+6JcTu +2d5Dn3LBR+NBFdd4iht56Bo0QLIKbEqiyBub9/rNtesADghL6/FEsucgl2X ogvAb2fP+TTi1CyJhUeXF0Lz+3Vvy4lLZKvjUf0xWMSs1/pO/B9zedFni2Lo GtP/Ysoi/cXNibG+VwxmRUJsW2LnLWO+zR+LQb7HX8+NeMirSa/U5Qm0yyer XCEW6vVvDPMpgXZmfWUZseLLjj6N+Kcg9lWmQY3NB83q7SJ6xytA+rnEaU0h PojyUv7dGFkBUl1LJncQ93azbirnV8DZKu0ka+IwRqms1M8KWFH/xsSfuFtz jQbf6zlYKtkqviAOypt1IM6rEu79L7FvD4cPbfH1heOeVSDpd8g7hCL3K0vB h3+jClIZepx44vNll7E/twosv+3NySf+q0PrdbOgCjJDFzl1EvtKZH5M86yG Ll0di/VcPsiHhs6y8HwJ+6xe6XUTH/PeZZ9/rBa+hKTstBLmw3Z3rTQ6vBYC G5UdvYjlHRR/2GTXwlX1mrshxG3bKD96sBbi3dUPlxJrS5XfsXGrg10LxY/J iJD7V6zcxD38ChLgreUAcfLwbLDeXw8w2hsQPZsP/l/HA3K960E96+mFQmLL zi/1VEw9HIG6e83Es6urrHLf1cO2pABVkTl88IryPUWZN4BT0KNGX2JU+5aZ Y9oI4d3P+p3m8uFosWMYS74JspIehpmJzsyH3XJM9Sa44DescIaY366VN63f BLlzVn+JIT4xsaDtz+EmyFtt3PqR2FuncunvjCYICspzdRfjw5Uqmcz/rW8G gWnOpfD5fEhoevuap/cGbo7+8uYv5APvyzbhVAceDBpOfJWV5sOPaAWDS148 eH15oNOYWGQH94LdRR44hLoOeRJjZtWo5H0epEqu8KsifugJX4I+8WClWLaU 22I+XBxXr3E90ArHPJ4cK1/CB5XZcgFrbdugZW5Ukp8sH0JURhiP/3kHJS97 gmxX8sFzTe3NiuQPYOlBRfWokXl60C2r0/0jPLdQTrumzweHMnPT8MPdUOBo +8vYnA8HBbyKiqBe8KPNl4+6kfmtWuSRcqUfqAyv7siLfGBVFG287P0F6u3W UNRdPogp7mj8784AqCw+d1ulmA/G8XpJ/Ihv4Jkj2jbcygfJH/WG54oGwdK4 MlV+jA8xNSVMtgsfdBN0fj+VEYDWUt1puUMCMLvcsC9dXwBrPor2+p0YAr1E dts8TwFkps13LvT6CfM7fdeWxArAt8umZc2VXzAC/y5sbRaAp9amHXFRw5DQ qnJqmB6C8Xh9h/+Fj4D7t/cDq3AImo7FHDh9/ze8GlNcant+CDYbLZ/qTBwF Xc25ZYUVQ1BnsDkN741Bdv+N8+uEfkJybvTm7ofjwLM2P12w5yeIyyu52qZP wLbrQtEWiT/hDZO+KPX0Dww7K+sM/vkJhfTxlKa6SbC2E2/osvkFSuKirg7V U9BvMG+u4rNf8CNsZKFa2zS8sFWyEKgOg3xgoIqHKwMbF4w5lCcNQ7dVx3u9 zwxc3PbXC52lI2Dc1zJW6M5EjvGB12aPRuCMl6OzxHcmXrlj71Op/Rt2Pb67 XeIUC6lqVSnDgd8w+MfVlz3CQr/sW10n7o5C4tsLBe7H2ShxNEa3wmoMxp21 D5ydYKPCQe65i7rjsHTyxn5PbyHsPJrtLKk2Af1GV1/RQhy0WvUsepH1H3ix qh5krnJQuicy4OmjSdge9t92iVAOsotGxITzJqFpeMhs7nUO7uBfrLMsmoSu KqkjUxEcvBbZWsOsnIRRB6c7XTEcpIVbHbzfToJSPEsQl8HBf/dS64TZU3BL cvN92VccNPhc7lJkPQWudIrQMmEKfVp2/dBZPA2vWUGhW2dRqDoekDexbBqU Jl0kDs+hMFgj0rNMYRp+CJQVHopRKKd3dspkwzSc6CjcoSFN4Q32LfG83dPg l1UdsW0NhQ8yn3kfC56G8H19cl47KWw8NOoxa3IaihJWaL+4QeHRXr2Dpj4M XDGt7/M8ksKh5GvmCucYGG7j+OTZTQoV52R5si8x0Fk6ReNpNIU/QETtRQgD paNWry1MpDAxN/+oSwwDfQMVZVNzKfRmNBialTBQz12VebWZ1CvPNW/+w8Cs elMIbqFQ7J5e1iImExev8fQLbKXQ/z+VnoMcJv76nDt2qZ3CbEb5NGcuE5Pt 1YZ8P1FYOdTy/KwsE2mzDT3uAgrrHVxvr9zKxEZNreo9Ylxk2PrMqwplYkjx yQnDBVzsG6QX+UUw0Ugje52mOBdXptyv3XKbiRVrl8fJS3GxYeUug6oEJuYv o0//kuPiV2W3dNECJt7h8hRuqXJRuMjI+nYHEw+2uF1rN+FibOSg/4O1LJQz Ta5s2M3FbAm3co46Cz/Ud40+38vFDflaY0c2s9D85W7HDAsuptudj9qpz0Lj Jxt1fOy4+L7biGdpxcK18Wz+Eg8uBsu9uZ8UyMJR17t7D4Rxsas6efmpzyy8 7p3EPRfOxao1Bo6agyxcFfKwNDaCiya1YrNFhlloll4q33GL1C8w+PaCxca8 zx0/zeK5aPvl+7tHMmw8cmhJ1I4cLhqnjnxxs2TjR5tY3oY3XOyvURP357Hx 9NHkIDMeF+cZsE9kfGDjXL9MrRNtXDxkYHyot5eN2vfKHuS+52LIXduHF4bZ GPO+84RSD1kfqNV7WFII91nIiC//xcX7q5+lc22FsNY03myOBI0H1PvTNUeF 0LWqr5y7iEYP5bDmFiYH52xSUmBJ0zhYeDvQfxYH98g+GR9ZSiO3bn3ZbFkO dnx/E/9xJY33NqWfX2jEwcEQaiBfg8bDAm1K6i4Hw6f+3pu1kcbXklN208kc VPOKfJq2mcb1U5/uTeZw8Mw/ctdjtWlUZLw+uLWGgyyFLeqBBjS6rD2txRjm oHj1UX8rMxpplyixDDMKizcVfN5nQaOnIEDO0IFCq0fjpib/0DhQbyrJ8qAw LjJQXt+GxtXXJww/BFGo4JBYq+xIY72gJ0KpnEKtad585kkak4MFX/tVyLl5 LfadOEXjlKKOSbsOFy/02/cNn6FxaeB+n9GdXHzZMFg04Etjl4KC0/Mj5Bzv 0Ta8yzQabs31jX3ERYfNWqmpUTQGBx2kkzeQ//7eMPzhFo3R1+23LdtB47FE O/350TQW67bUCexoPCd86ZNvLI3PlYNjY0JIbu11i/ekkHWf2tC+l8ak0P2u gWkkb6kUe94EjRm634ufZtAou6WS/XiBMD5JFzVfnU1j2NfR4FZ9YWw7axH+ p4jsd+CGlHCmMHYqf+1aV0LjMBNcvGqFsfeTt7LTU1IvwoV1vFcYf26Le9Vc QWPNIqNFZjIiKCrdJ5RaRyNHmxF6MkYENTbsNvlBbMmZlMyME8H/A9HJAts= "]]}, Annotation[#, "Charting`Private`Tag$8565#1"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQzbyf69xj00I7BjD4YB+UI3lrxqT59jD+xE8xm6dN Wg/nWx/14nIqPgDnF1T5JW4uOAHn5+5I7WNSvgDnX3nhybk86Qqc36X/jWFb 5A04v1D7xNQDS+/A+b+Ss9fdzXsA5yftDQuYkPYIzk/+eOXAgY4ncH6Pwfb8 ZW3P4HymA9vNW6pewPmCWt7n7s94Bed7zHda/GHSGzhf/P0Zt/rt7+D8Wcd3 MTJnfoDzbWQd/yukfITztR8IPKkt+QTnr10hlLG16DOcX3Mv9rJ22xeE/2ws vOdN+Yrw33yXpNcTvsH5FwpmJZQv+g7nW7or/bu78Aecf9LVcoXDnJ9w/tKN My0frf4F54sq62TFrfwN519i5GiS3PMHzt/KUbzswsm/cL6OqEBW0tF/cP77 vm8ixtf+w/nK7e36+VkMDjD+o6jbt5yeI/geTy//3JrHCOdXFKVmiL1F8P22 zfYSK2OC89/9yaph/obgL7zeuCWvmBnO/5Vhm1D5G8GX/TsxurCKBc5/5t59 ioOFFc4/rHbGXq4bwc/iWMaiyMkG529foGJ7eCKCf87a5miQIDuc/yNrdnBC H4J/ImB+KK8YB5yfZGmzfPkUBN9rV1Fl4G0E39B6pfdvRU44HwBgPQIF "]]}, Annotation[#, "Charting`Private`Tag$8565#2"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwV1Xs41NkbAPAxF5pJF5JLW1To4lZb/ORS7zEuGUqlTcpdN40MQ5rWJV2I 2tIkyiBUy9hyvwya1OwsG5ptRw2R+mkpqWx9URjCHud5znOez3P+OO/7nPe8 Z0VwuOchMolEEuA5u1IeMZ72WXG3UEizgwDjDw/t9K/tAKOy1Qaznihfd7Ar LQCS83LiZl0xCu0apUfApdNfVwX7nVbIuCgtHOwOcYZnfUmveV6pOAomvJ4w KNiFa3zzSKU86JBGB1GxJdbE+t35sdAjDRulYb90SZQWpCXAm+iqFrXZ80zU TeKkZ+DQjEs3HTt5Q0dkgfgcVCWvMVXH1rLNFz+tToK/7Lzr52PfcmBTx0uS gbe9I0kD24JluX2F8AKYjdzma2GLd05nuOX/AiYhD7t0sNsD0lbfTLsCWY29 qwxm89losamviQ/WtoMmhtg862uveNKrwMl2DluNTQU/41via7Cc+6F4PXYr U9piVZcO5QLLu1bYV11Wc1qrM4Cq3fbOFlvfY0g0UnIDWIUzOi7Yb3d5+aTc zQT79LT527Dv7RHPLBUKQHnhpKMn9ia/JFeX/GwgRUNIALbnMb2XmWl5YFr8 +GYctvomeHR9az4YLVFJTsQm6rka/zTlQ1b31dJL2KKGjppo6S0gdYnrbmI7 NuVP54rvQNRWp3op9qqtz3d+sPkVPta7ZciwGS20OxvrfgW3yZKyDmy5jL21 uboAysipeZ+w/RSW/KESIWS2t4bqqhCAvI702pkVgWDHU1sjbKNOgeX5u0XQ 72jluh77Y/d05xLhbxDk/qM+C5vX17zCKf8emJd/F8VjXx32rbqeVgaO6HHO MPblxVn2knnlsISXI6SQCXhWkWRg5VkOydSuSS1sn4++7/S7y6HBL/X0JmyO z1zu8GAF1GrpTJ7FTt8ckiJYWA3NqfoiYwoBXV27Q+fvqQbDyh+97bD1T4DH OUE12C1qdtyFLSzV1gpbWQO88PNj8dj3DZrykKUIVNecbXuJ3aOysvb93jpg Lti56zYV55c7L8s3pw5s9K5eeoAdYquMa3tTBwN9PI0X2MORcqb4aD2YOqFx dRquj7ennqbG3gevIJJtHLbJn93vrPIewB9HovkhqgTYNbkxmFESyLN2zzk5 h4CFisK/ra9JQMnh1wiw3/aSM8yrJNDY5L1AjJ1KEhvojUigmhWfOI3da2dq RUT+DtYagdEpdAJSKucG5kZKQTuTiCpiENCRJ6uZ4DbC79Hscd15uL5K18QS VxtBK+b8aib26YZE1F/RCM2G526EYq/ttn/SNtQIBlxT20fYcdolb4q4TUDa n37x6HwCDC9fnruX+ycsuine37qAgIgYj6CqiGawlmm2PdAkwI1jXzSH3wzO endN/sU2DDb54lfWDPGpjD+WLcLxsFTj53xuBosyq/IE7M16DzP9QlsgiHEz zkUL11+duVztcCtsMyX/07OYgIJv6uDrI4O6QdGIgx4Bpz5MJFXEyOCnAyPm Mdjerwdkqlky4DBPCiux1Zsa91d0yqAj9Ji30RICItPjTqh6/QWrX/MqGT/g et04WFK+8ylwtMbc+pYSEFZ3KJVsKIclF2LNG5fP9oddy1Us5fBH5BMZfQV+ T132lTNOchC/g9od2McnF3V8PyyHvitlYa+wY7ZIl43dlQM90ydIuZKA8436 JZ82tAH3zsWjDsYE5MtfPFEwn8FXgy5ThgkBigEWXRisAF+FG/W0JQFfBGuc z0UqIOu5t+gZNsNd7UzAWQUsMgu5Z2yF4y1pHNe5rQDnjQX+Mux7XBhI+UcB 8p5dH5daE3B2wvIxO7AdfvH3zGm1IWCd+vIkC/8OeOs+k+UNBFxcN0oS7euE zZ37ryN3HC+PZdrP7gTFZZfsYuyjj3L2aMd1wo6zakO62whw3eF490RuJ7SR N1wZxlYL5++27usEiRnrxm8eBCSWmhTWHeuCheWCnlWe+D7MA9zFCS+B7umS 7b+PAK5pc4ak4BXIqTUWTSG4Xx8ILX3NeQMDV1hX2i8SENzgtZN/uBcK9B5s 311GwIEhhUSS8hYsLhXUOL7C/8P62vDC8/2gynm86PTcISBLaq0TYwZgbRTr IBWGQMPE/WlP5kc4zmHxtOKHwDWPeYdIG4Sw3meqKxuGQOeLzCWh9jPc0PMZ qaUPQ9bj+yqUozjPv1v+vOc7DPbLHGaWHxwCH16g45mKYTB9s/Bt/PFhYNAa kry0R6CkSDOkJnIEzIVnfuTGj0Dc//2em57/Cu+/tf7cMzYCXPtN7rnp30BF 16BcGfsVJvKcgj/xR2F6wHmAIH8DeURWIO/2GDgHNvRH3vkGNltXTr++NQ7z F+jTlrmOQouzTRHKUcILE/0UdeUoFFQIbHrvTQBJwT+QIBuDxYZmbP/fJgEZ 22qcKhyHZypzzuo9+A6vXjN/OlmshJo5UYXylin44r446dKTCTBbvJAd3DQN geknZsxGJ+FL6qjWxo4ZsI13HnAKmgLD5OR14WwSMv9LOMHumYbe/d0vme9J aNWnz6wxJgm5vnuurOGooA+TQrKDqwo6GXkoRPtfFfQ/Mt3oYCAZeYiy3bRP kNFPmUHBnyUU9Pk7O44ySkapFrvLvBxpaJ+3+1rlGBkpIyjpUhYNNVaZdnxW kpEN80Hxhp00JGAPrns5RUY+/t4XDfxoyKkzrK+cRkGhzfIjZjwayq6KcPNf TEFmxSKWdjENubJP6NZbUtCrGeM6Vz1VdOvFmWpOFAV5CIvWmJHVUH/T+p7U aApiDs2cCmOoIbPqHnoZj4Jie3zMajTVkIi/OeBLLAUJrOqL9hqqIRlLSY9I pCDN0UvDH5zU0Lg4IoCbQUHSFk1HtwtqyCM/gHG8loKWBi2ZWqczB02EbA78 eRLvJxz4xGbRkZvYBEVPUVByektguycdZc/TXc6doaD+yj7Y6ktH9pXDPSEU KnJYWeDnEE5HpyaFAd5zqUgv9eBcfgYdUVI1A6x/oCIyx34qt4+O1Kve+32z pSLRZEx2YxID+dLaNw/ZU5Hk/iDJgs9AJXuly/7dQkU56Utn8rIY6NZRP6MK oCJv2pROSS4D/QeX/3B1 "]]}, Annotation[#, "Charting`Private`Tag$8565#3"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwV1Qk0VN8fAHAzZsbYSiWixRqiKEsS+t5Q1ixJKmmhECJL+jWoJEv/sitL sjYo2cq+1CQipJE9aSFSije2JPG/3jnvvPM5553zXe733ivl4HnwLJmLi6sc v8tf7ud8bUMaXntIXMsPAZu/P9PeFGcBZyQahJc9X6Rypi/2JHgIr7FedvEs dK0qcIbwwe9Vyx4Wdpkri/UExyhjMxL2bbEmwYJqH5iWVuUhY2crHE/jKrgE fjlZY8tmaRLbrdP94fyW1D/c2O/336hjxl6FjHKpHdTleIoCigF1QSDtqBxL ww5T7fZmVgeDPtRvoGML706vbisJgfTTQ2xe7Iy9rpS5/DBYP3irgB9b2Vj9 gFTOTRh4X1sqiF1tuXjHJP0WHHS5PLISu+tkrPz92CjweRZRL7xcj5ryrqGG aDjWMuIlin1JM+7DpboY8Jh5bSSOTQH7zRnVcZCip+Ijid2sV/daoyIe5GqK X8lgx+yX92guuQO1S8/05bE3mXPKpvITYOYRo0oZ+6vVYbvwR4mg7b+lRBU7 z6Z6aUNOEnSNOPbsxN5lH2K0P/0e2DACkgH7oLvY+8TYNNjO0McNJ0BgFzy/ a5gO7xZsjh7BJiq9Vn1pSIdExdkme+yy2u7Si3UZUFn1WfYctn5D+mJqdRbQ 45zfBmHLGXZYftd6ALcMiNPh2HyvqVlqFQ+Apce7KQqb3epq2FTCBOOMX6vv Y9t3qkdz8nNgovl/E1XY6LDzoPbWXFhdlt5Why3bm6Qe+igXjKRMepqxf/Qv 9ornPIRxnaNn+5f7N9QkZZCeB9NuF30Xl/szefzp3dhC2KAjfNKMREDE2mQd lmAR6J6ar7LFflccIqFxsAjM/BoNHbHtfhwf3tRfBAcuik0zsD3s+L0mfxaD od2ThMfY8bou4UlCJeBD9+QXIxPQ12fttsKmBI5ckfWTx97kB+bBSSXAb9y2 aid2ToGI8HnpUjB8QP5gjV0l0ZCG1MvgeAJvTQz2J5J0+TfbCuDn8s0T4cb1 pQomH0+pgMdFI5sVsF12/wlo/1wBnvon2rWwJ73ZetXnKqEh41S1PTbl65W2 SP8qYEy/68/BVnzVP6yRVgOn5wIt9lEI0G4w4dPzYUH5tDA/k0qAUGf2W804 FqQZeolUY38dJN/Z9pQFxLVCs3bsSK5qCbEpFnx71K21iD2oraRBeL8AZtCU yDEaAeFP+E+leteBmsvtATEeArrTWkvnverBe/wrs5KO56tAwZ+Iwd4pLtSF fa32BhoprofDKieYBPaWfp2Wdk49RHqts1LgJSBAJP9zrlcDyHlfz0/ClomI 4Lf1egX5lnf9b/ARcIFhfvrphSbQa4/8jyFAgImHTi49ugkEX2ZkJmPLOChO 2Bc2gXGh6WwVdrcxLZA+3gQXgt3EF7B1xZ4l2ru9hhOTAoevCeL5q9jG5nFq Bik4nxK9ggDmjAAct2uF9pG33mwhAq58nw8pZrQC7yfbjhnsIwOjrbTkVihJ e2q/fhXeDw31x4p7W2FX0fiEE7Z3fIAf7fAb+Mabz8e1Gs+r2s/8Iss22KMm vX73GgLOV5yNJMuwITNJrvzN2uXzwUqSpM6GiVq+mb/YRJ/OkyUDNniHXD6j KEKA79813QtObEhaIPeGYTP21G38/YgNY1riq/eJEhBavyl/TLUdwoGvq2kd AensnpZOvXdgbS31eGY9AZ2jxrw5Dp3wTKjIbliagIkkhX3B3p3QP7pyywYZ XL8pT9DJ652w+q21tDU2yq+fE83sBM7e+MQX2HleMBr+pROkKy3i02UJuD6v 3uh6qgvkjS63OMkRoCIgGaJ8ohuidp2xEFYk4H8qs1xlR3thI4PlPr0D53vJ WGnEtRfc19p1aKsScO55io1IQC+cNw3xCMY2stB/5JfaC5d77umtUSOAxzPa WnOoF/b6HnXQUCfgRoFidoV7H4w6Od4I3onXY9tJ0+qr76G08PNFQ20CvJSa 7rCYH8DCtkjdcx8+rx3dCgY8PkO3CCOly44Ah9rDltFOg+Abci2jxocAR04n ixX+FX57csL4YvD9sL3cMzt0BDJVJ3WLCgkgs8o1bzBG4akVt8sEm4BViqZt nxJ/gI5ube6zOZxvml4WEfsTnB76pEdKcUB0onX/1fJxUNxrtX3JigPJjVUk 7nMEFFZO2tNDOaCzce+S5BkO1H2Kqm2p4oDSZ6Gvgb6TUHL7cfmvOQ7k5652 KfWegnB3RekOzUkI+GjfoRQ6DUmhFktPgibBS2eXaWr8DEg0PsjyYU/CfJqB w1j0LBhn91PGJKaAfSH51KXM31DkHXt3S+AUaBlKLw5kzOH5N3L06Z+C1/u0 clHKH2jdEXTGEKaBWZykNZg3D0eU3enMkmlYK7PV9cTDv1Ax8iLmptIMvCPR r4vVLEBs1khCVfkMlNJ9stmv/8H6x0YGW8xnYetaIVeHhkVIPe305cC3WZiI nBVW616C32MUtur93yATFqbi6cqFfuX2W32wnYPBY/3v9b5xod0jTiO/JP+A 0XDHn1IPEhpT1nBjrJ6H/7zPuoj8IiHzI7+zHQX/gnnZPRMRPzJSGFSasNuz AOMLrgHcs2T0/KFjtuy1f5DRE1Ti4cONmJqbIx4PL8K8i+6py3+5Ue3+WqdX Vlxo478YOy8GBX2jvlSWNCAho8EDlQkBFBSoQy+NNiIh30Ze0WdXKKgj0e0Y 5QAJNccEveMLpqA8/QahGRsS8pPzMn5wi4K4E+KiF5xJiG1hqdmTQkHRCpEi ObdJ6HrmijW6zyloqCfaOqSXhEYMbzXTKVRUpc3ccNifjBxMT0luplHRtXV9 t+9cI6MBcw2/vXQqCug+tKIvhIw6bT5JMQSoaPeWxqPu0WRU56h2eUyYigZ3 r2PWM8no/tV++bbNVPTkwwILtZPRoXKlkDhDKuqSqWZFKnGjl3KtsOkWFR3K UhEdHudGJpGfTEQiqChCsXHz92luxJ6ZtFkRRUW9pn6Kk/Pc6GO9mPtiLBXt qZfYsYaHguYcnBM/JlMRL1fKVIwEBW1NI3NSH1GRq+Wly+FWFHRXVCtTopmK vsr/NxBRSUEbrprli7ZSkXO+yps9LArKGjlZsbKNinY2hGfPvKKgotLQtqV2 KiqqYe262ElBLdad85/6qGjOL7O9ZoKCuKI9rdO/U9HPQOOGi/I4Dj2bIsVL Q7M1H8ze3aOiFnJ4hD4/DV2oFeufzqKirf/OiTgJ0pDND3+2xGMqmuBsU8hb RUPOXF6KUTVU5NtfaqohTkPWx2Q0uwaoKLCgIdZYiYZezEUKCEjTUPShYUnv AzTEWDeSkFBMQxzzxofxFjSUYva3b7iKhg4aP1Qtt6KhIGHZ+3vqaWjtnvMG CzY0FLXt48zKHhpKlp9xDj1BQ2Xve+TU/9HQg3lKYbInDcXyw894Ux5Uni6r +zKGhkw9TJNtOTxIdsnA/0UcDTVaU4Zc/vKgaPuzlc/v4P/Hyj6GUOnIRTxb oyaJhozGhU2GxOhIPF5euTSDhhpkuvyV9ekoIExRIgfnmT1CDlyfSEd6HttJ t9pp6LdRljndjBcVtFrCzQ6cZ/jothe2vGi9kldgWBcNCcqrSt905EXT34r/ BPfR0KivTOt+f17EPK02GfCFhj4feNgSkMeL6DY7hzw4OP6bIsrkCj4k4+a4 wMfDg45Q/4nmp/Kh/wM/f0Yo "]]}, Annotation[#, "Charting`Private`Tag$8565#4"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 1.}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 1.}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> NCache[{{0, Pi}, {1., 3.327478587540707}}, {{0, 3.141592653589793}, {1., 3.327478587540707}}], PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{ "\"eksaktna\"", "\"harmoni\[CHacek]na\"", "\"zgornja\"", "\"libracijska\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.922526, 0.385626, 0.209179], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6150173333333333, 0.25708400000000003`, 0.13945266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.922526, 0.385626, 0.209179]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.922526, 0.385626, 0.209179], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.750563901716176*^9, 3.750564014229829*^9, 3.7505640655198736`*^9, { 3.750564103240758*^9, 3.7505641299645405`*^9}, 3.7505642126979537`*^9, 3.750564789246966*^9, 3.7505650668086214`*^9}, CellLabel->"Out[4]=",ExpressionUUID->"24a7215e-1013-41c5-ad3e-c2c74be7c970"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Relativna napaka", "Subsubsection", CellChangeTimes->{{3.750565121518035*^9, 3.7505651292260075`*^9}},ExpressionUUID->"2d530ac0-3c54-46e5-86f1-\ edfd89e03359"], Cell[BoxData[ RowBox[{ RowBox[{"relativnanapaka", "=", RowBox[{"Abs", "[", RowBox[{"Delete", "[", RowBox[{ FractionBox[ RowBox[{"(", RowBox[{"perioda", " ", "-", " ", RowBox[{ FractionBox["2", "\[Pi]"], "T"}]}], ")"}], RowBox[{ FractionBox["2", "\[Pi]"], "T"}]], ",", "1"}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.750564264707754*^9, 3.750564309665182*^9}, { 3.7505644535878115`*^9, 3.7505644700551043`*^9}, {3.7505645346615005`*^9, 3.750564535033303*^9}, {3.750564581211486*^9, 3.7505645851339316`*^9}, { 3.750564797252015*^9, 3.750564797457787*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"a4c2e619-90bc-49cc-80d6-eb1d3a787c7e"], Cell["Relativna napaka na celotnem obmo\[CHacek]ju", "Text", CellChangeTimes->{{3.75056514673288*^9, 3.7505651600612698`*^9}},ExpressionUUID->"8cfd6541-c12b-442c-882f-\ f6a92b8da1d4"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{"relativnanapaka", ",", RowBox[{"{", RowBox[{ SubscriptBox["\[Theta]", "0"], ",", "0", ",", "\[Pi]"}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*FractionBox[\(1\), \(Cos[\*SubscriptBox[\(\[Theta]\), \ \(0\)]/2]\)]\)\>\"", ",", "\"\<\!\(\*SqrtBox[FractionBox[SubscriptBox[\(\[Theta]\), \(0\)], \ \(Sin[\*SubscriptBox[\(\[Theta]\), \(0\)]]\)]]\)\>\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7505643271619034`*^9, 3.750564330115043*^9}, { 3.750564385475336*^9, 3.7505644256024537`*^9}, {3.7505644989880304`*^9, 3.750564521671054*^9}, {3.750564560632845*^9, 3.750564578164598*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"46c8cedf-b989-4e83-92ef-62a3c77d1939"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVznk41HsDBXAh85tEkvRKyBKlkqJFac43SaGEws1SUgldMnJzQypZUwzi lspWtmQnsk5CCKEhS27M2FusSVq83fM85zn/fZ4jb3fe9Aw/Hx/f89/9bwUq FjXxtjIZP+f/S5b2mpHyXbKRh1Hy4fFYpsp5xlz2ptOdESfQ+zpLREUljJEz g7almWchgA6Pj/4JjAEJh9mnEeexnBnIz1POYtyUqhXJLLkAbUeddHPzIkby Wus4vkwPdLOzOlr9nzPY28fVj8R7QW0uWDer8yWjS8+vMiniCmaURCLZyq8Z c6qLVb0rr6H7Udjx60/fMAK3tLsllVzH1WirHmLewZDYGV/SlO8POUW753fc ehgJe5wEZzMCYZ3R6Vvt38dQ09c8JJ8SjOnGc60hrH5GifGvKIP4EHTWMA/G dQ4x2k5EqDyICIOYemNuhvIYI0dDbQevmgWjzwsPHo2aYHhsj3znURmOcYcX B/9+OsUQhM2ahJJIUG7q4xrms4x6ncq6rUW3od17IvQVZ44RrqfiUp8fhWUb s3KC3X4yZI0mnk5l/INXS56Ul/ovQL+JuVXQ4zvYYrCaZSYggHSzkvlVKXfx FTmx11iC2GHjf0Av/h4+Dy9xjuykwfRPqa47EXHwSyqNf6C8BIt3oCJ6fzyy HCskHVhiGH/GXNpXHQ/anuZpg6ileFrWXvBXZQJK8gTcnZ8uw97q+F+xJQ9h tlPs5Brz/0F5/xvjEa1HsPkYsD8kXAqL6hY+1Ch6hOedo6XFnJVobnDaX5uf BPvKG4cvusnAhqPJmshIATN2+muWvzyI+Vnurg2pkBbokwjWUYBSx13NgMep KG0an9ITUMRo96+OlSlpiOEL/uLKUoIHr1ZeNz4dr9PUJi53qiB80jovOiIL Bzw8xb2UN+HW8hhttkg2HlSmZFyUVkdrjr/cVtNsrFtnH/wtSR1Wo9YDst3Z iLY5dfrd881wsRJmTn7Mwcli52jJ5Zq4vdsh6K5YPvbJ55tar9NCZ+eRc6Jm +XhbFXBfvV0LshdhdP1uPoLORUQY+e9ESqakhLNCAfjUNa6eHd2FYrnqOKL5 FJvVZQ1Fmhl4v0ChcMiiCA1NMRORfjpQihWJsb5fhC/XkvQMP+nAYec375be IrzfOeWkYrEXk27NOiWOz9Cyx13OSE0Xgv0+TaFexdB6dkPVbHQfVGu6B7bG leJjKvsP/bv62FVtsEjnAhvlX0tVTo0YQ4yT/Hp7JBv0wMfif6w3QT+XP2pj Hhuj79gxDc4mCOUrkZOaYuPGedtrmtMm4O5av3Xc7TneEOmEeaEjCMoVto11 q0TNKsfPvrpmaI9rKJhjViF229GaXXKWSM9c6zUeXoUiw/BGRaYlrpb5kcGc KkSJvnYIeWGJdd3ar1omqkAdoll2OlrBWzKjN5VZjTaLc7KupdZQvHVL2IJZ g4D3FwaCLp2Aq6fRyTzXWihU3Lyem2YHAxftVIpViwEDF+W0Tjso2qmO2WTV IulJ7LIe+im06wtdpj7XwkBuW8MPp1PYLVV+x+ZcHS6zduZIq5/GoqKNzTT7 ejxqK5Z/W30GSV8Ww9qqASGf9A32yjnCZ2TOP8ezAX8mdnVxzR3xR89wg1BM AxqnE7IqQh2xuLrKMqejAcfEBdZsnneE223vi0Lmjfhho681xXUC0fiYkW3c hNURCzunCv6Ec9GZUH7FZgRphj6b1HWFmr7J6gWazRi+7Oqjd9YV453aufO6 zTBxX2hYHuwK9+/L2n/YN+O0e/ac1GtXeDIqZb4+bsaONdysa1ZMBFTJZnzY 0gK7f2cOi3u5Ib757SuOTitct3mbbG9zB2dYn55ix0GZw7YdgV8uYezu2n3X 3ThoaNPWn5HxxCJD2rUTvhw8l67N9dPzBMmoml2RyIGfd1vo/D+eSGdiOKiP g7oPcfbO2l7wndN86WTbBsvb5MK6EG9sWrzaX+14OySu1X+SJ1dwY9MM39Nj HQhQDStf6OcL5vraKHbSO6RnZZblxQZj7tS5zB6XXpzfonl0qosFuzJzY5Y9 F49sj688vDoKpyY4bHZQPyT9H+WyDsbgpnrh+eSAQQhHJITVJcaBn1243c9z GMvog1870hOxVNWw6f2dUSz6NVZsQiXjQJzOw/GIjxjhhH1rc0rDirEGvSuF n/E9wGK1uVUGYl4WLxBwHMfVrrTGlIpsaMvsmV99egJ9FfMnlzfmYn2vWP9l 90ksULoyOby2ABmp4g4FblN4GJv3y8K7EN7/2rxZHzAN9qIenx1KxWBq7zCM vf0FIl7hpc3cUszF6dp9YM3g1hNxr+TwCjS7xth6JH6FxqL7jUZGz6G1X+FX T8IsiMypIun6StTt00ol97/BPyDvY9qhKiTl3NXips9Bo2vfPEOgBssVNzgd T/uO7Sm7C1rTX6J1AeUrVfoDJtaMVb3BdSigLiQ31/1E1FyZAov5ChuWiznZ Vf/C4rJj0/L6jRgLnZHQaJ9H1bH8FiWr11AMDNx03omPPHIxkP6U0QyuZXeX zhAf0fFrE/qQ04IDA2++FbgsIK4fuL1r2lvxt9sZB8lPC8jJoSGH8vE3MHp6 z0DyIj/JVzlyLkKtDZ9/OHkLzPCT5YWqJ/rs2pHw9lq+ywUB4hW/ea7j/lvM Oey2vfRdgBRzPks0zXdA5me4FdNTkMxWy/I0LLswuD+knhJcSITVRlU8+7vx QrkBsiELSd5SqmaFTw+cqGRBeboQuVX4LeeJxHsUxivtfhEuRBL5L1UVePSi aZd2telSGhFRHCoPderDrNO9I7ahNJIb6GGMv7gI83xIu8KiEW25lxorPLlQ vpFe8iCCRqxkRE0nfbgwSytR7I6mke4yaZvcIC5yh7qnzOJo5N2em76W97n4 8/Sq24bZNPJvWtMK0youem0ecLa10ojL9kNvZVbw4OGcFGTGoRHD4F8tzqt4 EL2coe3eTiOHlsxurZTnYff9skc5XTTixh5w+nsDDzFdPe4beDRCixv7KK3D w1EL2eUK0zTy5Im4tqELD7XGcWYikhRhLlUXfVbPg1PVQDntfxR5w5/ofLCZ B5EdG9byr6RIk9xfzIE2Hkzlns3NyFCElvx39to+Hro/tcb1rqFI+AvvdTNf efh8Q2g0bytFcqQUbSqU+7G82tnH0owifIsC3hUF96NoR/7QUQuKXG1f/HYj qx+WT+aMDx+jiNLWTfXp0f2IjQxU1LWhSFjNq20vHvZjrV1C7cYzFOF/mZp5 urwf2vMc8QV/USQ9TNwy5ks/7LS0U1JuU+QfVZX3Z50H4Pip8cu7aIpYmvNt Mb04ANeEE7ridykiLsFrM7kygCv0633eD377BqKXIsMHcL+zTto0mSJqk4sT thQOoP2SBetHIUVkSGNTOG0QPRtH/t1c/NuzWM9cLz6I/j7PjWdLKSJqkHR2 eNUgpvRj61vYFHlx/EVFy5ZBiK0cEEypo8ilO7x1t2wHYVDsdsmkmyISG8Jq TlcPwsRFsDaghyLRzL2py94M4g+FaMnS9xRZJpyhIdw3iLM3nuUp91Nk+2V2 6cDPQbgwDPmtB3//7Q4Ibl08hIuT74zDhylizzpeJr1qCH6WfJ+/f6SIwh6h 9T27hhAiGqG9eYwi2U/i1p8+OISISsUQ+wmKCPjo256xGUKC6v61LV8oInIn UXX+6hDK527ZJf+iSHyi6Sta8xCqM+VyuvnoRED8axRnYAgNdjnzYgJ0IhjQ mvfwxxA4knuN9BbSCaWy5WK0xDC66zn3vWh0Erua8m3bOAyuj/2HbDqdpE5O aEQeGMbollmtQWE6KS51lFpyZhgTg8FB0qK//eOKKveuD2M2RvqtsRid7F9q 0PXw0TDmjTLWBIj/9rPv+ZbVDkNIAO4lEnQykFWuXzI+DJHC5spxSTrZpKGk 0SUzAolzdkuVpehExbbylZTpCKTlpk9YSdOJ7E7hB6LhI1B445/JkqGTtmkV YsQdgWrgip/VcnSSyK5vX2Y9is270gy/y9OJzXmRsYMHP+H/Cj650Q== "]]}, Annotation[#, "Charting`Private`Tag$8797#1"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVxQk41AkDx3HMlHIUxYRKSlEqtJSE+f3DxtSuIy9tIcWW3GaIGspGhhQ7 poiyjqzG8hDFRFNMmJxpFONK5EiUs5Io9t3v83ye70b3gMOnpCQkJNL+77+T KmWaB3bTqT8W/6vSdMtIhYn6dVskfshbe087gDpXpPd7J8cN6s/1qrW1/6QW z6BNsdATmkYdrmPRWdQhpTOzPE4AGi09u4a07lGvqdbJF/KDIFSq0jzmVEa9 u9UlQ6IwFE/NX9DF0U+pAqNJfYfMMBg+Vpgo7ayldh24XJXDiUDQiYPTjVov qHM6cjrhVZdQINZnXuO9osb8JGbk8KOgYatWaePUQVXal8lvLomGcr2vUgGj h5q135s8WxCDZ41uw6+i31J1aYa/buRewTWFIzkZ7EEq324h6WDmVWD4/Ex5 5zC1zY2j/RfnT7wZFuh1a01Qiw109w4I2Yhd7WpNT5qihhpdfx1alQgyy5Kf xvtEJcN1Sxb/OvLn7UN9nGapDeZV9bvLbmBlkYT8yrY5auIBbf+GkiR4Xt22 0MX4QVW3meJ9KriJzWcp9jPRkhi0d3KOzUtBtZ74t1QSCfmO/MV13FS0vJsb FbHJ2OsabX0g8za2jOpRFjqlcdhXtSuFkwEOZyDZQXsl5PaiMtkqE3bW+d+b 2QqYLKcrvhVmwitmfLgiSRG8J+LSs1VZKJ5g6y/yVsNCmLmQzs9G3cmwSNIR FWhZvbIbMf4bHrNF5/7gqEKmfkm2QdnfuHBVtqKuTQ2iJm+rupIctJyzi+MH rYdrqyF7qoCLV9U6tGTWRhBOnv0mO3LB4N8ziLLYhM0dqYasvFxwGs9rOJE1 Mdq90KHG/QfxRlIGhYmbETpQt9EyMx9HnOT/2dqtjcRplwfJnHsY2ZlGcdim h3jlW6YC+SJceKL4Y36dPl4WR2/YfbgIs9nbGalcfTiPugypdxfhyx0+u7R6 F/ydZenTH4ux5ObVlqA1hrhhdiY2VaEEQW2vWat2GqOz08FnhWMJ+NHEJbUu Y6iHwCYqtQRV2oWm/lf2gVtIUfLbVIpA+p4d38ZN8GiDMIMw5CEmh+ef3kZF r+Smh8NHylBB8YtPjTXH5nT5Wy5pZUjRFg9enDLHmX3fwlv6ypCqvIoT52yB aYbInO9Vjm19XiuUDSxBHrzYnBD2CIVcl5CvEz9D51n30O6Mx3g3F3H1WyYN JsKDMuZBAuz8PN2uOmkHhda7L4yuC1ASVZZo8ZM9BvulknY+EED8Zrn6eLA9 EiT4G1Q/CZDbryIQztuj32T77knGUxTzfsmNWOmA2PuyJ9IZVXA04qpssnWE OKOpdI5egwZFVoWF3jHkF24Nm0yswX3aPtnES8fwx5PLxLviGjxpdKx3az2G bd2mjS1TNdhsOXzvUpgzwikFfbl0IYbijle3v3CBZny87BH6M8QdapJ+yXZD INPm5IPAOvTFe4YpPXLHQX/T3GXsOhx5uHbIbdQdmu46E6736mAdI/l2RM0D YtrSC8vG61ChOXS7PNwDZqoVKa4+9dgWHRtibfE7ZMp2iqRPN4AilcvWen0K OV/k4OLchH5ZweN5Uy9cHJmLLmY2wfqcbsOGs174red909JbTXg2Xt8WWeAF OWHNseKOJjhtU59ZssEbjBvhIUudnmNWyrxKYokPCIOPBUV2zXhGCmhufO0L v7JTCVKaIgz15p0ccQ2ELs1eQ9JQBIMINrh/BGKy0/T+oqUIZeF9IXHZgQie Xy3+flqEk11e3wUjgWBSq9Z/zRPBvyqgcDyUDlaNesGHn1rgf46+yvY2A5mi 9sZW85dIiFudYrQQjNb3tOVc91a84s142u5mYiJ1689RjFYk+Jk/Zh1nQuaQ 9CW3yFYsbrHc3xvDBFFQM7vmTiuUeXHvP3UxkU/H+9i3rSBdY8/lR4Yhcs6w 1vtEG6IP5XKPdoRDT04jWve4GC1sRnhlWgTi9GYkeEc7MD7Q2aYnjAQzlLb9 nXcHNihsyVXsi4RXZZojJbwDq0pKfKTnI2Fta5EXkt4Blq3FC91dUZAOYDsY DXTAatNHS7/0KFwu1Llb5tuJAsaf4rzwy7i40+0QP6ILjLI+273WLNC31yUJ cl7jTuoDW411cZjz8Cns8e+DSnulop51ItyfONmxT/fjtJ/xF/LzJHhMtQoE sYOwIc3k2B27jWv6DwPust7hcPgd0dbkTEgJHhpdZr4H3oaZ+AqyoahzqLk3 ZRTye04OMeO5sM4wz57kfMRY9dMgWkg+1kw0HYh4OA4ep9jecGURbtU+kiR5 TaL048yL9Zz7MF2/f1Hj9ynoU66zajVKsb1PYfBC8DSOCutX0LTLUJC76kwp 4xPGeE4kmgkf4W9cX21nfcbARUXqbE8F6KZ7D6Xf+IJdJkOtG92fYi7D0v0D ewbJjRfMZF2rIQq8dSL0zlfsvcF/sqRECGOrTQs9WbPgVTgyD1PqUP+zcS6R 9g3LZuQUOFkNyClONe7Pn0OLWtrw15znUNbc4X38n3nsMbhzd8pVhJeSyyJV H39HhOla9WjDlyhdFnRXVP8D5jeEMi4GrdihrODtLlzAuh02nx/sF2MiYUbJ QLwI5XLtEB1+BzRjYvQCvCWIpWNG5VybbvQf6+4yH5YgjrNWhwg3vIH10Ktv pf6ShJW/RopPXR/OMU6doYxJEj0VapTUW/2w4d0+SAmRIpYekt0j2TOI8e/e 4aQZKSJ48PVN51+HkdV+qcQ/iETI/cL6TFIaxTuhfm/CWRJhnb7p8fKNo9hR 0rv8XiiJ4CiqJ6jojoLHNnObCCMRHeusQu2tR9FE+7Y88DKJ2Hv4i8+uC6OY 5Qe60ZNIhE933Pn770dhk+kmE/yQREyonJWQrP2AuTNmJ87PkwgFv7WRFtlj OMjXIc7+IBEut+qvtBWP4ba8igZ9kURwt1Am6YIxmN6f7j1DIhORFSlLGnrG cHGe6/abLJk48Nzh+qzKOEgJq9yM1pKJgeQg76OJ45B7MOz6ZR+ZqNd7YBYR N4H1PxKd6UwyMbXQJpktmoR1/6/lN8PJRIT0Fk+trkkE1y5fU3GRTLh6SA8V D0yiIfHSS5koMmGr1/K/tzOTCNGi0/6+SiaSSvP0s9dPQWRrZ9SeRiZiogaZ j32nEHlnxWqzSjLRnhXzV7LiNApiGgI9npKJsJocOYN10+jwZTVfqSYTa1nv 5Tu1pqFrtHBFXEsmBlvm5/ebTqO7cUwiUEQmXC5XLsZ6TqP8OY1Z0k4m5kol VIevTeNfo1Kz2Q== "]]}, Annotation[#, "Charting`Private`Tag$8797#2"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwtlHk0FXzXho3nnChShlcpYxGRQgjn/hGZKrN6EiGzCHkiSSHRbGhAmRKK 11TGRJIjSTKPIbNQhjJE5e1b69tr3Wv/s9de9z/XJWp/2tSRhYmJaeJv/m+z vuJoGFLypjP9/2z7UqG2NcYI5bpvTwgzzOnLebscuqJPILxPmJtR7UvPX0Ab T44z3izU7Va3DqeP8LosFUWfRnl/NSO2+g79hmDtupyyM/jmFfwpUjWZni51 PIkpxw9CIa2VQtYZ9ErlGXmz5POYKG53nqnPpXcfuFyVFn0Rb56fErpSXUBf ll4rHVgVjIO0ZxYlei/o4XvafdLKQvFzfUJUuGolnXdfcllDQRjC7JxdGClv 6CmabmxL2eGYM5zr5LN+S5fTVzwkmnEVNtF8POfc39PLjP/cNUi+jj3/BGlN 13+kt52IlkyIvo2FJvGia9Wt9HwFOZUhRiSmzi9/HfTuoPspx3zyq4qCztNh QYZeN50N1ttSymIQ5J78NUb1M71Oq+qdUskdhI5J25gPDdCjDkh61hXcRROv DW93yhB96+HZou/Z9xHJafVEyXqMPmxiaRWRGQs7gannnMe+0LMsylaFMuLg ZVRkm+E+SVexDtM7kPwAbhHn2OQ/TNNNTwl2x0YnobZnfXl19Q/6WhW8uqeb DB2d2Rpd/gX6TKk3zwAjGR6hI7xyPov0ovL2wn+rUhD4TKFSQn+Zvp+R/Cex LBVxz46K96kyYbtui/EX1ceQ0vmeK7uWGRzv2FMVSh5DNHK/VO4QMxrr3XRr C9JwYiySXe8RK6xbFSNnszPw57/dqc3WVBBL50G1nU+Qc+Bg+bN/aJDojFO8 kvkE4dt4hBjH1mCi50/npoynOHBbpOfSKU74DdWKaidngeexWK1FAzei5o4/ vxedi87m0ReVDF7c5ItXr1yXh43aIeXnz/OhOT9MWMk0D4cqFll0FPlhNXF8 ZGtPHor36F1iyRWApxWn99xUPrQ9uM5Iv9uEOxouEXHrC3C//ZiwUK0IurrM 3LksCpAh/+mop5ootp7F4dC4Aig5BvHo5YkiI4ef10OsEBTDuE3RiWJ4IcxI IopFENOQNQi+KYF+ZrHisSMlML9SdKS5QAoSievijz8swRf5N3VJZAdc9v0M bPpcgoP+H+TnP+zAnE+jVplrKYKP9cwrf5UG23BQw63zLyCv9UpvK10W0jU9 I0pJL7FjYbDyBe9uqDEMOLTOVMLazERaN2Yv1remf1SOqUT1v1xRHpN7MTzI clf2eSVOJktYQlsZt5jKhAW/VyLO48vakUVlDKrJKM34vIaQzP2nqs6qiHjG aZvoUwVO1/spnE7qaE+qL1z2rkZ8A9eufT6ayMqROj8TVY3qfbu7qE81can8 MhnNr4aS3sAlmc+a2NGj/r5pthoaxu0tvkZaCOTP/vzEmwH+c/5t3Hv2Q/zm Tc4j3jXYxTNT6UrVgVfAYbvnXrVYDLw2+npODwae6k9okbWwEoiu4FDQh7i9 9LR1bi2Sm9pi08/oo12fcoH2rRZMtU62HfP60BCsiLV2f4dzvaPRW/4YgKNE tpHqVAdjf9uD2HoIafNrcdyqHhNTG277NRgj6MtyWH5APbpr32h+/G6Mo73j 9ZT4ekx6MTKNBU2wllF9LL+zHry/vqQ3OpjA507gWYrlB3SW+wQwfpuAKExl 5xk3YPK/fDKXlc3gUeJ4i0W8ERxhR1lP1llATt9EhFmxESP1Ba+jlyww06X+ bFW7EaqaWb3ft1vCd2Vj+y+nRuh9H1YxuGyJAHrVlsXMRvBtTKnR1TyCK9Vb syf3NOG5pVNcRPVRJDd2vG/Vaoa4ya8wxRkrtI7rr8mwb4XEuJaCh6cdpuOk dEJ9WnFMdCqi5qodOAypwSdCWuHHIZKvlGYHkl29JPCoFeZ9CUEWn+yQ5Y3x iIFW2Oq4Kz4wtEfIsuJbN9s2sKFfi8idxK61ImFyNu24x3tgeJnVEdd2LTAV /dOJGPWYlrBZFwT46cuMunX+9Xe8pQifK1xfPbTgD+xEw6LiVKuKK/SM9mee TeyEmcv9IzcuuYJ6OtJMeagTq0M33BR53HA5Rzq95FQXnNfcsXdXdkeQ7AnD sovdeJTa/Tv0vge8ZWrvVqZ9Qn3pyn4vM28sn3TP6fX8jOGH3JNto2dhX25p HOk0iG015rPCnYE4OdtaWRkxjJLTcnvNuUNwQ774dPqVUagPOH171xMGlspi 5csB41i9f/gWx8+r4JE2bOiPncDrmD8B00O3oJeklToTPYUYtrYo1oUoCEzX H7hY/A3j1mPtH2fuIP7tC2ZW1xkkDoW0WorFQn2L5qqIwyzcPeSDLK0fQObz +uELvnOIvqS5UC6VhOwnG1wKfb6DGuBwvyzorzf7rFtkrvxAqp1pG3d5KrzV VQwT78xj+6emdb7C6VhO0rafjFwAb5SjS3DYEzR6xdv6PVqE7tK8b6lZFlR1 xf70pixB0irGIEoyB+90VJ+Qhz+xN7QluyAqD2n5caqDWcv45cA2Im7yDHzi O91snq7gDAuXUzlvAZqZaSGCL3/BX1ktVVmyCIW0M+mN734j9eApAUmbEuzk W+9mz/gDWfrPcdaEF5i+tcCr0L6KxNQu/VXtcoiHh+867cZEWqJTBzpXXmHw WE+31hgT0Vcy6o3/6w29kZafhZ7MZP+gjYyl/Bv4+zi68H9lJq6WA7/2/a7G 4aIHBvxnWchDpcWMKum3+PbLLZB1gYUELybeFfZ9h5SO4ALPM6yk/KpYrtHK eyy7aNieW2ElnvJBGzZt/Ygtv6OsvAPYCNPjGL8J0gS9wUOl9wPZiJa8vWGH XhN8364RqAhiI1saT114Z9yEuqjgZo5QNhJTsZO3wrYJZ7d76z++zkaC+WWL xi81odHIWLnjIRvp/yiipl/VhJBHXBs1XrGR1zsC+h30mzGqe72OxsZOAs0V f8a6tcDe0FZkG4WdTARVco2daUHvYaWzmjR24m8/LaB+oQWtFv2iAWvZSb7g S8mV2y2oOqlwbpKXnZx5vHlPQ2ELEi72SDZsYycStA0NH1n+clgsExajy04i Mlu8Qv9y+WZ7PbZeZycPO1m9fy23weBWvwH/TXbyfYPqSjR7Oxrn5yy4brOT 640GM7vXt6OvWvDUn2h2crOwWffqtnYs2TvH9sWzk4UqxkSicTt2JrHMJmay kxumQ/u8nvzlWED1kXAdOyEbLFOZT3RA6OLBbIF6dpKRZj/x0q0DqaMnSrgb 2AlNWXtXyNkO5BVeaVhtYie/BXInpW914L1Z63J/FztJMEpjLJR3gCnytFny F3bSp7yXL0y4E260dDbRNRTi89nNf3KiE+9ZIm7u56SQXmpVjvDPTuz87crv tI5Cpry4afbULkzPykpl8VCISt6JEB6JLvj2FBoqbaKQ+fk1+7badOFCDiNa X4ZC1u/bFcfW1oVI8xERn0MUosw/dvB1QzdmD799eseIQizytayn+rphqv90 T7EJhWgo/GDaMd0NPrqH9i8LCmnfGxzawd2DeMl55ys2f/+pzXKvM+3B42W2 3PjTFCKmaEdf6upBcbKExpsoCnGy1AhoXvoEiVXt869jKCTqy8t+ZY5eRFo7 lr66SyGtpUqleZt74bIpXellHIXgwSWrXnovNt2RlCtMoZCF20fPb7/Si8Bw aeGMfAqJs3rhEf+fPmh5yjNfb6KQkfHczD2H+5FTb4yrLRQiobzAZWnfj80y 3hfC2yjkhrnI8eiz/fgxlv8ztItCzjMuhFgm9SPNTmEucIBCKiguPRvm+kGz 2DvkOUshJ20f2xw4/BkNauoMUx4qycrcZhLHOoBrJf+uHNhIJaOOB7/u5R6A rlLubjU+KumSVjs0vGkAlXJiieKCVHKyQ27Cc88AnovS/H6IUMn4Rq5cXfsB xFJbpe7JU0nV3fGyHYwBnGxxv9FlRCUGzS1F/bGDEDFOq/pgQiU/hj7a1qQP 4lN939JrMyqpGy1yryoYhGWNiWPmESqpmGi4vNI4CL1SZfr5E1TCnKDB788x BLkk1hmh01TyWyJrR2PwEJbcHpjZ3qKSmeM/RntCh3E7IJV6MZJKXKP3f7C7 N4zt17LKEqKphKVs1Inz6TAsnpaJ99yjkgiVsuvvG4bxbKznu0USlWyMCl1Z KzSCUw5CdwzzqERD1HgftWIErL4Sem7PqMTF/9gptpYRxIfu/BVRQCXPuThr ZcdH8O6RukNNCZWYNhgGUDeOYvvAcUXN11TyIOnr7LjbKD5bJ7TubaaSJIsQ GrPEGPw80iIsWqlE2Pl27Qb1MXBdyFb3bacSUc3Fg8fNx6DxsPxxfjeVNExc 3RwfNob47l7fnUNUUlyuqtQ9MQbzI1v5xH5QSZyOzF391+OoNU6yWMdPI/LG YxTZ9Am4VY9UUP9DI7eDTFSEGRNYp7JTimUTjdwV+qLtODwBU+HS5YUtNOLw hnP9d/FJ9HxtTvq8jUaSLvfGamVM4ts1ysRzJRqR61BYJZVTiPxz0CxHmUZM 7abVyMgUFHxiXj5RpRFRAUGtfI6v8P9H5HaCBo28WBMuMmf5FSxS+xTDdWjk J644KM1/BR/DI+iYBY28fdUYoGI4jRKVgjHzIzRShs0K8f7TOPbfZWOjf2jE a1eySUL6NBJjwsW1rf/eM+19asgyAyn7lFpZRxrpPPTiqrPDDOraxnZLOdPI Q5WUqY4LM/DQl3sg5kojO7wYfpn3Z/BMvsxDwINGPnBrmVyqn4H6ausG5n9p RJfjR5a62iz6fDYHrpz9258pypzz6CyCR+1G5v1ppDR5yM/s31nUfPhWPBFI I669s6I2+bMwekizbr1MI9Lb5hdrds1hVLZOkusajSwXMgmO3ZjD/wBe7dDh "]]}, Annotation[#, "Charting`Private`Tag$8797#3"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> NCache[{{0, Pi}, {0., 1.1594000794096915`}}, {{0, 3.141592653589793}, { 0., 1.1594000794096915`}}], PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{ "\"harmoni\[CHacek]na\"", "\"\\!\\(\\*FractionBox[\\(1\\), \ \\(Cos[\\*SubscriptBox[\\(\[Theta]\\), \\(0\\)]/2]\\)]\\)\"", "\"\\!\\(\\*SqrtBox[FractionBox[SubscriptBox[\\(\[Theta]\\), \\(0\\)], \ \\(Sin[\\*SubscriptBox[\\(\[Theta]\\), \\(0\\)]]\\)]]\\)\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.750564331661895*^9, {3.750564524577304*^9, 3.7505645879389577`*^9}, 3.7505648043203077`*^9, 3.7505650895608997`*^9}, CellLabel->"Out[6]=",ExpressionUUID->"9f1af7f0-2fbd-4708-85eb-2c3af5cf079d"] }, Open ]], Cell["\<\ Relativna napaka v procentih pri majhnih nihanjih odklonih v stopinjah\ \>", "Text", CellChangeTimes->{{3.75056514673288*^9, 3.750565178756714*^9}, { 3.7505652805297546`*^9, 3.7505653263182034`*^9}},ExpressionUUID->"35d7cfad-b231-4da1-82ad-\ 1409f0642bee"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"100", " ", "relativnanapaka"}], "/.", RowBox[{ SubscriptBox["\[Theta]", "0"], "\[Rule]", " ", RowBox[{"\[Pi]", " ", RowBox[{"s", "/", "180"}]}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "30"}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*FractionBox[\(1\), \(Cos[\*SubscriptBox[\(\[Theta]\), \ \(0\)]/2]\)]\)\>\"", ",", "\"\<\!\(\*SqrtBox[FractionBox[SubscriptBox[\(\[Theta]\), \(0\)], \ \(Sin[\*SubscriptBox[\(\[Theta]\), \(0\)]]\)]]\)\>\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7505646256532993`*^9, 3.7505646268205824`*^9}, { 3.750565223613223*^9, 3.750565272669056*^9}, {3.7505653045677023`*^9, 3.7505653057487063`*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"ae5f13b0-d4fd-44c1-b094-f87d0e9579ef"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwtlHk81Pkfxx2rRCyV+IWsQnINwri+8/44i8WiKCVHsikGuXLHrOhwZJSw Uo6iQ1uu5BxSjuTWTNiJdY5zxjhnVn79Ho/f6/F4Pp7/Pf98yV8IcPTm4+Hh efiD/3mN3t6icKeIwPP/DeRJRZjQSMDUvYJ/UXCDgCS6L0jRyCA/X7JhU/CE sH9YfJeYeS4wn/arBDtXE8Lsn1P5aQXg+tWLIlvwgeBZ/un5dkoxtO0+PPZo qodgs38hhmv2Eh6M0j/+5kwj5BonlXCjX8MZqrrNz3dHCeKLkuRNahkwqh4o 7yiYJCQ+Kola164Et3/cI3Z7zhH+tTfwXk15C3dJMnLpU0xCEF+HHXvmHTj2 2tUeDl4hzJSf1WeZ1YGu8IwYwXmD4OY9J7+U1wALVlu/jKb9S7gi3HBjLZoC he2Sqz/d5YFvdXYBK9RmcI8OPcXJF4AcCcmLwQItgKMrdA/5CsIp/29nlrU/ QKufvtK2hzB0yAWaMlNaYaRotOLWlBjcCNfHB9S2AT2F9Zy3YA+gXh61xZl2 WBfjpEoH74MqUrrEvFknjGvFyOs6S0HgsIuQ79XPEMe4363jcwBUdQ5tM/K6 oNw/3fdLmgz0BLmssKN74MBScNV22i9gqTD7N4vaB6S0MquVfEUosrc788a/ HyaybalRvEeAN6asL1BgAOQsn54b8FWGusHI1iXtQZjVMjyx4aEKWknCbxZS qLDvw0fqjSlNSC0PUC1VoIFiRWV4SpMWzH/rf+JXSwN5Xuq9rXxteKqfmzM3 8xV8DkcQJIN1QGZWLYFhNgILO186azrrQ+T+9O8lQyMg6I96olwNgGq6Gu5z 9W9Q12hrwfkYAvnPeuJ0Hh3uNT862JtmDAlKxS+Wo0fhULdtx79pCDap+PtM 6j+A8zJsYuZbQLW2oEfx0XE4oi1JVnS3hLAUmopb1Dhssfw5SXLHYdk0gvLp 4AQU3o1KH3x2AmZLa+aeek9CyvVTtIyJX2HkD8z0PHsa/nYledpFOEAOXURk n8UMtL00S3BiOcAZAzq1I3MGmreTg9hXHGFwMZaob8iAjZqiN+wLJ6HLhZK1 N34WynddeyfwuxNQcGZL7aILEBogNh9Q7QKxt/fWxHkswKfOkx/Grc6C8eR4 Ar5sAXAaw5cXR87Cu5yEA0+cFiGiIX9f205XKBP4aBGXuwQ1xteZyYFu0EdU sJOWYIF2YJabRqsnvDcrLuotYENlZoDp7ZhLoJn6F2O9jQ2iN8wjj369BHm0 txoHl9ggHbK+I1LXB8KJbdVXjFZgOXT2II7pAxoPGJ38AytwrajxBIN4BXJm VVd1BdbgtFx//MPbRAhMf22Rc2kDJMWXa0gKQUAfrr5NSdmAg95CBZfOB8Gv Sk3dU+UbkHLW69iTzCBQqu11OcazCQvfe0+pCAXD8MQysTNrE9y8wsiuq8Fg qa+b+b2dA+7mPuseI6Eg8+3d1AW1LWDrLp5jzEcAD/tqVrvDFojP73dIwUXC xA4Va81rW9DISIpNDIqEUo2c0q2mLZB3MiSFb0YCITYyJOv0d3ii90rtnHA0 uMsa8XWRtsHFB79bGmKhV52emjvPg+inIcQ0OB5a8DXTv23zIGWIZ01nx0OV SSbi38OLlv9sE6qmxEOOk93yZTwv4qZcEKeJkuBCTIMTnsSLOjyL/SVLSbDc mSfTJ8mHiM2JPhmsP2Cfn/vznWb8SIuz4hCXkwgqOws/2p/mR/elNT10OxIB FUz9k+3LjyIeV6bLcBLBj0aUVrvHj0LMc9zizyZBi3l0sv0kPzIZy3tUJHsT QmSz/bOTfkKl9Vi9Q+kt6O/q01btFECDzPpzlsvJQNayrLVzEkSfHvBdtNlF Btywy3HMRxDRLtovXVIkQ2cCsV81ShDZR0nZZ5uQYQft3pxgviAizO8lY5Fk iIodl34/L4jCLxRKJs+T4eKnuGh8wi7UphGibDKYAXretdgv5UIond/inPDb +/A1S5PCEhNBfiXTX+TqsuFO0fVuvv+Io6EoOV7N7nyQvDd+K+PhXtTk/Hyp PbAYkk5ZEfrWJNCYur5otVcpBBvku7eTpJCiE0WjyaYMzJc4kf7jB5Bdm2fx A4EqiDd28DygL4t4REduG/DWgOGr7IrYRjnUFdzk5VDeAH4brLg2EXn0Wlan LeBtE2yqitHVnQ6hMtu47xIRLWD84uXjzMzDyD7a0dHXvRVYe6w9nJsVkKf1 npXv0AETyR7OQTuVUKlNWQsu7TNYLV2zmtQ7guR3s/kKL/fAvJdgcMV1ZVSh T3/veLzvxz9K8iU1H0UWM0YMO90B2PNZKfX1kgpK78YSI6S+gMzNv+z19NTQ ZWn1Ky+NaZClaiC295I60uyxtXE7OQQdB0x02ekaSEEjIH8rZAQMZZrv4r7g UPVT/OTkCB1E+QtCPEma6PcScZf92aNwMF7O2EVJC5naJZfvYIzBLkXXKsdW LXTz/E97AcZBA/vPX9fOa6M7ZOJQ4q0JCKLveW/Ncwzd69eR6+BOwhI72ckq 6xjKNLmp+9FjGo7jPuZYqeugsRQjhfPtM9DANuKud+mgI/Ujqcmus+Cvpj3U 662LSiKbeKa/zQG2eHHAZZceoilllm+nLYCFgpStSIEemqh9HzmnsQTKcbfD m/F4NFf/WQnvwwQVb4NGxSE8Ui5sOVZszwLvBp+Eiqv6KEL78hN93DI0Ph64 yJIwQJUu6QHJSmxYKdlex701QGtWgb0ZcivgpfhiV46tIXp2VK3eT2QVWCoZ emVMQ/RIJSfKTWINqou4Y6s3jRClkhobJr4OZ80PI6ODxmgWnNPmRDZAmpj0 ToNijFQPJRxqVdwECSG/N7anMfSnReUJkiYHisxiIpkuGKoL0r+jq8sB7ZhU swxXDBFjzAwYBhywY74epHliiP6QSXUw40Dil9VNLz8M5SoVyik7c2Cj4Lpp ZDyGdphb02aiODBklNH/9AWGEsKKF2paOeATWpRr9QpDR3zHHkd1cmDtVaX3 /GsMjbXlNRr3cmDPIdq6VhWGKo4VAmWIA78KysrUUzC0Ruuy6lzgQN3A04v9 gxga/5mcuLGXC9ai1ephNAyFfmWxGqW4QDveviY1jKEXPX1tSbJcWKmZu+k2 iiHrSsl3Uke4oJ6vWcqYxdBb32eFYMiFuiGTsOQFDJFfifoKwY/evpOAY2Jo 8zv74aAZF35PCu0NWcXQNzzBkmj7o0dJzJHcwFAiraDWwJELJM4DrxoOhoTX E3N3nOaCmM4ztfNbGGr1n53pP8eFPGLN6vY2hgJlPj/O9+DCfwFToLP0 "]]}, Annotation[#, "Charting`Private`Tag$9058#1"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwtlHk01PsfhwcpS5ZEJCqSuvZ9bN95fywJIbohSVlLWUOlsYQsEbKUZUiZ iJISxViuaEWSNWN3I/sYjH3I7XfO73XOc17/PX8+Es4+p9xYcTjcwz/875cH Gz9K3c0j4P6/zhyRm3rUCKCpX7lcRI4iIKHvziLUFDg8UzhkRs4n7Onbxclv mA30p7uV/W0ohOuWz7vZqGSw6RlpFid/IjiVfX2+lVAAtTtV6Y/GWglme2gh TIMXEDDcMnXShkrI1o0pZAaXgHz3pidf0jBh16xwylp3KcSWdztuJ/8iRD8q DFpReQuZ/+I7djpNEzYstdyWEiqgOzzQJXlsjuDH2mTBmKgErtbSA1L+i4SJ srOa8wY1wMUZ/Ihgs0o47zYtQc+pBR+j16PD9zYIV7hro5aD62Dyc3UgexIO hmosfBa734PZ9V3qzFx2IAkJu/qzfwS/LiNanwcHnPYeOrOg8gmuO24k4Jy4 oemAr/5cwhcwytz6HDfGD1GBmnif6gY4E0pYZSULAGrDyc1ONIL3BvmguL8g lEckC80YNIMZH/dZvI0I+PbZcXlc/QYW/2zzwruLgqya5NZkTgs0aLwg9twT g1Y/u0VGcCuEfBD7xJJ0EIykpgbmu9vhbwXJ5pXcw5BnaXHmtXcH/M679/0W yxFgCSlt92XvBLOqD51Uj6NQ00X8QlfpgglP5/FNR1lQjuF+TUvohooTqQfj xpQgscxHtliKCnIOF1VT6pVhZqgj37OaCpQGtiZWsgo81cwmTU/0AHuWeaS4 vxqITclFThr0g+/guqaWjSYQ9yT/LuzthydB4tejzmlBt/5SoPvVAeCdTtDW dteGlKx/vMZzBqH7NrIfuKcLkdIFRQvBw2BozcvOnoRgrRv/YK77J+At4evv 3GNAUeFwLPhrBMy1Rx6oXTCC6wlUmfNBIzBt1LEt48BxWNC/Wfd1/yho8su3 jT8zhqniqumnbr9AXTRWsWj0BPTfxvQdGONAOR9T5njTCkiDPDyCxyYg+5F9 l/u8FZzRGuxuSpsAKb2V5h0ep6BrNtRLU3sS1BNJBC6Xv6HFri5jd/gUeFiP qUhctIY6RQN6Iy8NFgrvP0yn2EFo3O6qMEcasC7U6/KYngXdXyOR+FIapAtj 5XsHzkIlKVI033oWcgRstVZ2nINS9s/HwrLpwHeXO/aj73lo95Ky2Cc0D5dn MbPTX5zgg0FBXhuZAfseXiY2h1wCpcRXkysNDGDq1lV59VyCHGqFwn46Azpc qfZ16u4Q6NVAuaKzCJwXWOpvzrmDQvpkM1vnIhRc3CaGeV8B0pTskjr7Mnwm Juluv+sFvsklx0iXVkGckFDdJuUHg32UuLqEVVhQVnpAcfCDE9L138fKVmHA hSC5muYH0tVtdqq4NSgRZLcN5/KHvtEFr+aMNaCy6SjULPmDkaZ62u/GdZCZ qi3q6L8GYkOVY85ym8Ai6f4qjnYTcIyrGY1WmyBScWhMWYkIo9tlTJVubIJe zRsnBX8iFCuQijfrN8H9WseRI+tEIIQSAzJsf4PFWzuG8M5guCCuw9oSsQWP a36RlyEU2uQHE7NncIjpeOJJp384fMRXjZ/cwiFq2OjzYFI4lOulITYBFmTv wLA5WR8OJGuLhct4FsRqXJkdwBcBziG11vgIFhQ+2zVcWxwBC805Yu3CrGgg Scz+1MJtEPS88HyHARtKiRMhXcuKBpkdTz5b2rIhCVkBisLXaEDksZ+ZHmyo 9LHKdlFmNHhSvfbJ3WdD2/LNVWPsY+CjYXC85S82JJfwrqN6/x0IEM/0zozZ hrhtbxgmvoyFjpZ2FdlmduSkMpZLZcRDirJRtYU1B/q+n/dTJFcKKPbZHcfc OVDo010SedIp0Bzp1SEbxIESOon2PfopsJ16f5ojlwNRKWUeUUEpEBQ6su/D DAcKEVRkjtBSwPVrWDA+khPpfFv9t+pHKmi4VWMHy7hQ9eIJhVbKA+jJUKqb 5+dBJv6rg1m1mXA379Z31r27UN49umlyWy4I3x+JTX24G/H46j2eDCiAmNMm hPZlIcQhXDykeqUY/LVyLzRGiCBZV1xkg1UpGNLXid4jouiiMafl8M5yCNe1 chLVFEepVnNmztxVoP0y803ouwNItSJVIai+FjxX58MaeCSQQ3qGw1BdPazJ 8g/KW0siF5M39SVRH0G36MXjtLRDqMBV7WSvzxeYFzB1tHkvhVJVgo2qTzfB aLyjjd8OaSTLzxsV8uwbmNBvmPzSOIKeNLOl9d9shRkXDv83t46iF2691QH2 7X/6KMwa8/4vpGpr60Az7wSBb9KJJXQZJCMgmDCt/gPE7ryy1NCQQyyGYdP7 HamQIavFv/uSPKoM0iWqh/RCk6ieOiNZAY0mJr8Yz+8HbbH3SYo/FBF9x6r0 jT1DwMtGDnCKUEKimsH9l6qGYX/4AV07aWW0fPzKRSrfT+A8fK781BdlpCk4 1C/qOQIK2N5XNxxUkMWdxE+5NaPgNyjwwRSniqYzJ2nOGmNAZ8Rbm2SoIgPJ lkKhJ+NwXPEzyUReDZmyCMYt7p6EWoYOc6VFDa21SfxglkyBt5xKb5ubOlK7 laHqSJgBbNa1045TAyXOZdqcWafBMSkRcx6yBkqwuHDbJp8OR8PiAt/j8Uja Iia/89kcyLhpvTvci0cR8ji/r5nz4FbrHvnmqiaaiAmOXbq1AO8ed7rOC2mh uVcYh3wYAxYLt1YUK7QQe5TTQXLEIrgcLuIkmWsjPkebU/SbSzAvk6pROqeN Dn0aoPyMXwZKHvPfpTs6KM76fPVW6gqcNTyEdPbropFzbx02s1Zhn1dMpUKd LnIgM6Lx9WsgxOX52twWQ6HJ8ncMetYhzyCEOGeHoUv5O6XVBtdBJSTRIPUc hooLHdDhkXWwmCvpojph6HWj0xQHbR2ifyytuXhiKDDdWPAHjgmr5Fv6xHAM HUnXfx9zlAm9OqkdT4swROGPzzYOZP7pTl62yUsM3RfLazEOYcLyy7duMyUY GhdLDjGJYIKAJHVFuRxDB7yWrczimXCCQ1zsnzoMVRUd67J9zISazqeuHV0Y 0ogvNY5uYIIpL0X+OhVDonFJJonfmEA93rgs0oehc+HXvqS1M2GxavrO+WEM 7aU5aj/rZ4J8rlLx5BSGiC+ENjvm/vh69a7H0/74vG+PDS398Qn+DYpzGKo8 uct8Zp0JF2OutQUsYUiGk5S8nX0DFuuiScKrGGpXyPIR5NqAiPV0l6p1DMXy NjZJ8m0Av9ozOYdNDLG1Sj9RFtyAHK+qpa0tDPFkVayivRvwH9DcqTQ= "]]}, Annotation[#, "Charting`Private`Tag$9058#2"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwdlHk01PsfxmUuhuJas+a24Cprwhh85/2xJSprrqXFvmQZRCUkyVY3SlOW SS5SutmXJMKQZN+ZQVmGshMiy09+fr/nnOc85/nndc7zz3PIydfClZWFheXZ rv+Xa8NN9VJ/Z5FY/i9OrDdN5IYOIwJmDTU4JhjeJCTU4STCeARMzTFtN8Z9 0v4hPk5e/VTYEOXmzSSmk66ZvabjGJnQciiq5E9GLsmxpOX1Tlw2cPLpK/bF lpHO7J+/uaWXC9lPziXdI9JIqdoxr7ZCC2FVEvt8WaiBxLcg/GiDXgwRK+d8 8IxWUvQ/r0J+qrwBVR2rP0tQN+k/ZkTX1bi3YJ/HUlcb20+6wtpssjL1DrqE LuOV9YdIUyV2Gkt672FvEf+vMOIo6ZLr7KHFtGr4Evmh7QnXOMlzb3XUWigN xLgMrl0Q+kYaeW/i+4NeByX/yFtu0OdIVCFhlwC2eqh4kFU/afiddI48YrOs 8hFeJ6m1v0bLpOY//HS/x32C7uCagvLYNVJUkAbBt7IR7ublxuIY6yTUxSK/ MNUEyPqJpYz+FqksIkFoTq8VFFx1Rm4QWcBvyJbLy78NPKPqlTuoe0BO9fDO dFo7mDLKQh9y4aDziu2PldBOGOGvYrMWYoeTUjNflujd0FKsNrtC3wdZZiY2 ReQekGR9LvlvLg/suVnc7cfWC5ZTUbJfDXnhfV/wp0WVPnATINq9QvxwPGZv 0XwcHZwzBj6Wxe6H+BJfuTwpBqx7P3KpzRWGuZGeF96VDKBeCGBjZYjAS41U 6uzUAHhOJJhK64uDxIx85LTeZ1AQpeKDiQcheH/Cr1eDn4ERN+5mPXUQ6Lqr QR7+X8Do6/ynDuohePS0ymcybRhKp7MpCVxHIFImO2c5dBQ6bonb2ArJwAad 8OQ7nQmSlczODbo8lKvgHbKPjsPZX9YaOr0KcC2OcexSyDhENxVf+9irCMu6 N2gtkhNgF9GireuvDDN5FbMvXb9Csd+8OTlZBT7fwXQvrkyCCO3tWvAZAlCH ubkFDaZAt94pJGqOADbEYXpz4hS8dNnnmx+vAX0LYT4amtMgzH4n6/wAEdpt ackCt2dA6HOg6ZFYbaAp6S028cxDadvvSyXSOhB2T6Ai3GEe+orGKnOjdUD7 63gkoXge+IOv0kqndOAdNVLshdUCbF3yvb5coAvFbA0G4amLEKFklCF1Wh+6 faRMxIWW4NSpVbxLqSF80MvO6spcgXQvC2czC1NQji+Y/tm4AjZtAb+HtppC GuOtouTiCtR1npdoPmIGQT6N5Z5aP6AnOWePQboZKCZNt+J6f8CE+kD1xzRz oM7IraqxrcE0637hlSJL8EsoNKC6r4Mxo35iW9kGhofK79Hi1mFrp+ndUKgN nJap7fhWsg6OhU6dSk02IFPZZXuCZQNuuRXUaTrbwtDEsk9r8gY8F31TPZRq Byc11BJ/NW3CWNpLeWOZiyAx8u6bk/w2qFI3e+dOOQLLin9yk/k2DJivNJy/ 6ggT7MeMla9vw+aCzwNcpiPkKVLztmu3IaRONmt7yxFIYcGByda/oLfWZvhp sRPYH9BibY/YAavL0s/Dj7lAl8JwfOocC5JX9Rqe1XeHekLFpOkOC6py0K65 GuQOZTqJCMe/B50WowRp5LoD1cpk+TJhD2rIkbzqIegBTjerrQgRexDO4mHS lUkPWG5Nk+gWZkVdATcSlJI9QdDb/jWHHg5ZqvIPnpEiwzGO5w1m1jh0RzDg t3lnMqDMb8wULxyKKr4l1PmcDN4MH3H5xzjURmCfuyTlC/X6offNvuKQSEpD mamgHwQeSCGnxPyGKh4lzPVJ+kNPe7eKXCsbKvQmR2+cCYBHx09Wmljh0boO OTadOwiUhmwNMQ884hJ29JU8EQStkT49ciF4xP9lOeSdTRCwMx7P4jPw6GD9 UXbDrCAICRsX/zCHRzwtp0ZrtG+AS0t4KCGSE7GUDZfJBgSDumsldrCEC1Ue KTpNXw2FgWRl2hIvN/rh9oZidfQ2/J11q4NVlA/l7zP0MquNAeHH43cpzwSQ UulUhqrBA4g5Z0TqXhNCW0Gn1gWeUiCAmGHfFCGCHlgS7rl7JYP+4mYweVwM saZ46h50eQa3tc0dxTQOoEbxLA798xmgmZ9SGlbzBzIRc7TLC8sC7/Wl8Ebu Q0iP46g57VU2bMjxDitYHUZKzMkX7TY5oJ2Tm56YeASxNU4+9tMsgCV+Y4e/ 6qTQSaT6xvdeEUzcd/jrCocMGvVjM8HXlYDR4nWjr+p/ojZjLxS5/AbmnPEB pbdkkZ1FptXFgPLdfxRmjak7ivJz5W5Hc1UCf5tMfOHiMVTidyeASqkCidgC M3V1eZRSv2VppEmDZDkir4C7Aoq1FuX+mVELzWI6aisJiui34b81Dfg+gKZE 3UOlfiXk1p8+QiysBx5cZqBjhDIqp3mdWtdtAMnbf2jbyhxHC9HsvF74RuCU vlBm8ek4Ik5ro8b+JlDERAuuX1RBb490432ftMCVYf4PxiwnkBmRIPviXhss rty3Mko+gQoaR9/akzvAUKmBaqSgiiih9fJVOZ1QvaK19bNdFT2Nd/8YVNUF ZHmVwS5XNYQbC9Gvqe8GbMGl15ZTHR2IZ7P9ONMDBlIiZ7kzd3tliYc/Wx/I ht8LqiMQUOOm2hn1w/1wzJVYIz1IQPovKnny7engWu0RWeqvgbiT3O/yPGRA TXqvy5IQESmG/1NQxRyAH692fiq9JaLNi+m+WhpD4Cydw0k9q4kogxaU/rDP sHSMol78XRNZsz8UaZn+AuVZW2OrsVpo4jiH4ar+CNjpH0FaktpIFnMweWA2 CuI+Me8Uadqo+oon9PCNgRCXd9FZawxxCy4+Mm0egyy9m8HfbTH0r45q4MO2 MVC5Ga9HuYAhKYGkF12dY2DyvbCP4YghteTK9XP0MYjuX91w9sZQHO61g/3E GKxn3tINvo2hci0vjTu/xmBQi9LzMgdDnZ47fBwnmOBxNSvVKB9Dh/aObpir M2Et/43rXCGGii/wqDwjMoH/MOPn8TIMcYrYUVQRE07jD0hU0TDEY8MQdT/L hPe9L116+jBUdOcDYcidCcY85QrXGBi6O64qLefFBIZh05rIEIauE/Y5h5CZ 8KNiNvbSKIYedi53SFxlgkKGct70DIbkApvJzhG7vEGda/fnd/eJJo68idrl CVqC0vdd/kRPOv4uE9xirnYFrmJoBJ8rWPBgl0eLpgqvY+iMr9EnVgoTIjaT nCs2MfRcxL75r0Qm8Kr+K39xG0PM+wsHclKYkOZTsbqzgyEzi43anVQm/Bcs L5+S "]]}, Annotation[#, "Charting`Private`Tag$9058#3"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0, 30}, {0., 1.7561654773250581`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{ "\"harmoni\[CHacek]na\"", "\"\\!\\(\\*FractionBox[\\(1\\), \ \\(Cos[\\*SubscriptBox[\\(\[Theta]\\), \\(0\\)]/2]\\)]\\)\"", "\"\\!\\(\\*SqrtBox[FractionBox[SubscriptBox[\\(\[Theta]\\), \\(0\\)], \ \\(Sin[\\*SubscriptBox[\\(\[Theta]\\), \\(0\\)]]\\)]]\\)\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.7505646285025005`*^9, 3.7505648077768564`*^9, {3.7505652613317647`*^9, 3.750565273794044*^9}, 3.75056533045883*^9}, CellLabel->"Out[9]=",ExpressionUUID->"5df0e971-3d4c-439b-9eca-7eacc04c604d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"100", " ", "relativnanapaka"}], "/.", RowBox[{ SubscriptBox["\[Theta]", "0"], "\[Rule]", " ", RowBox[{"\[Pi]", " ", RowBox[{"s", "/", "180"}]}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*FractionBox[\(1\), \(Cos[\*SubscriptBox[\(\[Theta]\), \ \(0\)]/2]\)]\)\>\"", ",", "\"\<\!\(\*SqrtBox[FractionBox[SubscriptBox[\(\[Theta]\), \(0\)], \ \(Sin[\*SubscriptBox[\(\[Theta]\), \(0\)]]\)]]\)\>\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7505646256532993`*^9, 3.7505646268205824`*^9}, { 3.750565223613223*^9, 3.750565272669056*^9}, {3.7505653045677023`*^9, 3.7505653057487063`*^9}, {3.750565400069563*^9, 3.7505654002588515`*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"3cde22f9-1b86-4ad6-8036-4e5785a4055e"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwtlGk01H0Dhi2VMlFoocJoCtmq99Fiqv/9yyQlqWxFi93QopBCmyypyJan piRGVFKh6BERwoxdZCmjZCLrY0+W8nbe897nXOf6fH25VexPmjqJiYiIxP7h f75oP2utYwgl8v8V1dGN99Nd8UZ3MFV/kxk1XZIXQKf7YORD0eJ+piclHfUq TbLJH7mbj57UTgiiYvNvKM+kX0PjfjmFYuZNSqvfMWyaHY5jm/K6Smj3qRbp +7+nGqOQN64+WzohiVrxcM76icm/EbjliWmb+zPq+BavE2PKd+DKltJIY76k Xn5oTRxh3UN7bt00yzKLmjhmLBhkx8H1V1baU1oeFS8quDZmwEUyc5uSl3Yh ta0ycuWPxgTcHHEw+c0tpjo5hgUjrolg8XN63B1KqVDHX4eGJ5PwkLZzvNq9 kqqbdIkeUE5G0TOnJ0nMOuoMT2lNf/oTKMaUmOpm1lNLbn4o72M9hb+0zdqN lk2UvQYR72GnQnqhY1Qc7TMlNulbPXI+DVWTu6+LRrRSH1otFEcM0hEwvbfj hHYb5f2U9nqo8QUs+m6f/MFtp4yiOmYNxb/EjuGAWFmf79Qy7wLzQdcM2LMW O7s6dFH5rLMD/ZOZOGaVwStx76MkmtvU+pRfQ9BAucYzh6mm/Fyv3s7XkJHP 6ZH3HKGePOS860nPxoUo5zc6maOUiYeJTTfrDWazQ7f/x/IndWtO9q3v7Lfw jzSf4tB+UxlnjTw85fOxb65bz2TENHWve4PC8Pl8hMqqL/gdLgK3Gln2kEEB fFXXGxzVFoPsPb7YYGMh1neNnh3izsSk9KvkU5vf4YJ4/EqFkFn4dvnB3oH4 d/CQyPOR9pHAK/bF+/2uRXhkErnIyWEOrP/SZf47WYz0zBP0QncpcMvi3HuU S/ExeltOLFMOI5xMjS+hpag/0JJV0SaH7exyYe14KcLt1nZW3ViAXvExi+y6 MqxWjRUY9y7Exi0mzGvBFWiQLFu6ulweNalTYmr91Zix6sNw6HxlyGLOESmd GgzEzJnX366MTarRzGDHGuwWo+vI2tARNpI87Pu+Bp4+EwaBm1SgG1nvZJ/y Hgc5mfEHZzJwqUzLaK1NHfZJPBZtFKjicfo/qil/1yFZtzxW5Ygaajn64isr 6lDQJqitb1XDCvaBN/J6H2B9/Z7EuW51lIkH6ojI1WP7s+aYLGlNLNrSLFtd 0gDHFEs3kZjVeJ56rfm4zie0/PvroN1XXXTLdoca2X3C+I45V2v/sw5qZ4wo 9ehPsE60svgauA7xm2lc4fgnPPIW1DVqrEdUaaizdXEzSotNbdUvbsAZYfig 4aEWNPBrX+3XZyKOVh4gY9CKeXLznp6lE1Bbzh3yO9KK8AgvS0kzAoGb5rr+ s60ofuz3vieIQL42pKPiSSvCCjz1YnoJIjnGO6/O/4rwCUFNSu5WBKyskp5u /oq83gjFaDcW2Hh/p9dDiExxK+3LNEOIJPzIbg4RwlNDNjt3uyE4M5YJyhKF yPfmSGz3NwS/1FkpuUGIMHPJdr0JQ6ibTyU4Mb9BL8w/+XnfDnS6qD39LNoO x7fhByrajHA06kJeTUQHrLo6dzfN3AOx0YQvb5M7UGHWNhxqtAd39/NFUgs7 cCSZa30jfA/Klsmxbox04Lc9M3Oj1F5oPnrM23ngO4bDM3YK7+xFb05dTaFy J/Sm6EGm2fvg1r5KmPG8CxVnlA3uLDZH65GPswtKu3D0s8MlUX1zmDVd1an8 1gXHl0d23Tpujo3l333al3QjYp0Xx6DQHOLpSfMXBXfDRqgqkXPSApzzKtRZ mx4szPVcL1pniQI5hTt68/vgy01snsi2gqRKoNqXjQM4pRkSs2+2LfibI1df NBjABjO3mt0qtrhy4P4GRdMBMO6quB1m2kIsIsvw4LEBpHRMCl8dt8XE7152 Y+wARmier01rbdEjsHhcLTaIBhc2TYdrhwqO2qr8ikHMTKs18tztgLD55Rpc 22Eof5H7a2OrM+ybzd+KV/xAtO89c7fkk3AvDrQ/qTaBz4OPlm5oOI30U3PN 5Hf+QtzJGfzZdF9wzx3rXrNfhIiEHDfz2OYH/7ipfSO9ouTTCaulATcDIFLX St74ipNs6QqjCcVgqJ529jbXmEkGO1tnPzcKwbfR25a03FlEN7GvtPZSOIza j16Icp9Ngu3CNHf9FQWTbxGaSkqSJNtzy797eNHofmfvx39GI1mBPT82Wd6G jkyDIstGirhIywquGt6FJEbtBMPSxK3Gw/6XTiwM+6zHllvMJ2xh/c7tJB5N hY6i1loyBG4vJCLHuMi8WnSEPipDFiecSt6a9ADOM71aq6pkSenVxqeVoUlw 8DiXOfeuHEk70CR22OURVrM1q4ztFpAvfmkHn+xORrWsFs1LbyGRSrRM8XdP Qc5z/xgt8UUk/r52S3XgM5wT1dhb0bKIWKdbjV/+lApJge8Ot4zFxOZ9oGam YjraH6pEx52XJ9vMNweGsV4gWl1hxmsLBVKTv8d/OvQlIu468+zoS8jynigk lWXAOvpw1dzvS4jbYewIor3Cz21J43F5S0lAwPYuU49/IGzX9y4MXkYelVQX zSvPQsKWtUsr7RTJHoN/XiTtysazIC8ZtrYSSbT6smD8TQ6CLRx2iY8qkVWZ yt7cNblYJ+AmB1cqE1GBgt+5qjxwVsU8q9xFJxeCNpxw0s7HpfwbnF2v/xzF +6PZ9+YUYPdSi6SyFSrk5TfnlEPfC7DVjXdQ5poKuT7WtVorpxBxy+xXVIyq kKFVSbuoh++w4t2jWyYHlxOHJb+u8a4UIUK7UKM2bzkZGNC//phdDOfhGe9L NRjko5+Kz5htCezTh+jXwhkkJvOG1V0THo77m00ZRTLIPG8jlzJTHrzMMhrn 3mQQZSarccKSh6ujXmERtxjENauz/pAND8/1xidvxzIId4O45cpTPIwXTDc8 TGGQ9U887PiRPETUzr1RxGOQUG/lJMt6Hu4+OOFypZRBng+Y50R95OHB6SrW jnIG+dxbvLa6hYdXiyImyqsYRNfOGjs7eBBYy7nU1TOIVJFxy9YxHtSECqw2 IYPsGzJbYaDAx5oMX6XEdgb5WgAqWJEPZlDzuNP3P31NzlmlKnwYq8WmdXUz SGumc+UeDT48jtGVBgf/9HRr+dpu4uP85svjL4YZRMll6O8k8BEk1fbh9CiD LBQdlulh8cFJfRDy8yeDqEcmaZw15iPBbwY7e4JBNM7v5+Xu5SNln5P++SkG CfLZVjTDgo+M5SWK1G8GYV45rmJsxUfesOr49DSDrL5X/fnmYT7+CzkLsCk= "]]}, Annotation[#, "Charting`Private`Tag$9147#1"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwtknk4lXkDhi0lEXHIIHF4K0tIpW90qvf5DUlJym7UIOQkUoqiRU2bjMqS EUqWUiEkNKUYSzrHvlOoDgdFjO1Qlvjm+q7vua77uv+9/3jU3Y5aHxQREhJK +Jf/OdhNbJ1HGC30/71pYlo4ML3wynAU2zbb0PNviy4xmUEQNL/5aZh1gpaO ev5U4t1FvNpyOFkv5QqdUHxDbSEzFK0OcuvLWbdo3WGPm/PscHhvLup/K3mP /iB9b262LQpFU1ri0imp9MqHi/8zPfMnLm9Nt+72y6R9tgYc+aYWBy+2lM5T Vi6d28x7IDC5C36hnNg2+xf0tLdF5yg7EZ4/jAqfSBbRScKdod9Mk/GQdXll gF4pva0mctVkWwpuCvhOc8nl9JdYsxKB1wMYce8IH3evoK97/Ng/PpOKGMmd jHq/Grpp5lD0iFoacjNNi1NZTfRJjqrBcE46Ftzp8zXMb6GVbzVXDZk8gYv0 Hjsj+3e0mw4R/crORo28fEWi5EdaZOZ0neDsU9yfWZEhHMGjm3l2KwSmOTCf d5Xy1eumA59Ivhxre4bxwbZHk8m9tHlUn9hYUi7qxvZ9ZAR9plUCS2xHvfJQ bvzomZd7P11scmpkeCYf/o4eBhy/IXpRR7fmkNpL1LRolCSxxul3xYUBg19e gqNwaa/SCQGd/jC27GtOAQQRDP21+RO05XFLlwGT1+B5ODavt/9OxywuiPnM /hu+N5gtcZJzdN4p8+MnFItxe1F3+2zEPH134Gel8bPFaFxafXsuXAi+9Qz2 mGkJeBp3+Yf1RMC4yxUZbSsFxY90HE9eiBnp52nHtpQhcdZFSTlMDD2/3987 klSGp/PrLi4NWoTn7OB7w15v0LptdJen+2I4bTBk/TNTDueHLcVlflJIrkz0 +6pWgYpLUE1kyUEQm6/z6XoFvpvuM6ztlsN2dhW/caoCLy1Kz9XfkMeg6De7 gqZK9CyRSLccXAajrZas0JBqkD7Vw+uqFFGfPSuiOVwHuS7FqAgZNTCw2FlK vx6Slj2fxnrVsHl1NCvEox4GjkkG8i7Mf3+RNn66oR62OxQvXN2sDsPIloNu GQ3YZW/v4LyQwvlKXfN1Lk2IlTcaau9cjcc5f63O+LMJ2gWs56ucNdEYayy6 qroJS3mhSu08TaxkO75W3NSMjom47PMDWqgUvawvJNcClWFvpSLpNVDY2sGo e9sKq7OGg4vurEVWdmiHj347tjew+thdhhhgDFw3P9AOvY4E0/frN0LzpDmt Fd2O3N4/zL5c3oikLZLJ/Kl2/GbfsP6Tzn8QVXHd06m8Az1ymY8Mgn/GSX74 qNn+D7gmmy7tZsxComTVJVlTHlqyfILOMwnorWf2X3DmYb+/vB3DhqDTd83G 4VM8fMqlRQRXCBQbw/qq03kQvKMb7g8SRMZa7Lwm04VuITnj/MJfcGlVrfR8 RxeyU8P9En1NwEZD3OBxPt57C6tESppBKGWyoCOMD49fpWZqtpshdoFKZ+UD PqSGVO/aXzQDt8JTNa2VD2rtiZW7ps2gZTubcpDVg9ciyy1LhnbgyyHNJx+F e2EQwxTv7jbH4ahzRfURfdistk9vYuEeiEykfPo7rQ9JVuU26eZ7EO/AFcou 7cPVJw+2ZITvQaWKnMkNQR96Nnbp7JDaizWPHnN2On7GB9uRxvG4vRh81VRf qvYFUplBrgcLrODbq83Py+qHzh7h4JyfbMFzfi9eUtGP4PhRVWVjW9i8u6Zf 09OPpOIO62wfWxhVfQ7qVR6AwbnsEy6lthDNSZVRCBmA+HxIXOtRO8SeVadP uXxFsMmvgcwme5TIKcVtkhlCW5HonxqvfoWE+mXNT0Yj0HJn+B8TdwV3S+Ta YNMRtOz1WHxE3RVXHe/9vMJ6BHXPvMTPsVwhEvHCbJ/3CGov3zBp83HF9Nwg uy1hBPvTDmf5N7ria6fd4zqRUShYxjjYJB9AdaymdnH1KHQfaAgn7XbHTZkq nWTXcYhpZ86f5HnCrcP2b9HqSYTpO6T0pR2FX/llt6Oa0wj/oGeV2OqPnGNL bBR3/kBHgFH8E+ZpJJ/xHjBwECKrK3P3j267gIuJs1aCQWFiXbxh2eboSxBq 4pHXp0XJlGDR+2nVEKz29wy01VlI6sbak+QswtAzcdteslCMGLd5amX/Hg7z 3sPnovzEiXK0vHGoYRQseyLWqKpKkPYJ5dB/uNEYKHO7wM2UJMb6L75td7wN fdnWFSYuUiTG2l2JaR4PCUwc6ByXJoZZVY5r1yfAbMjpm4adDNn9vTr2F+Mk vCv1EHbSlSUqlJP2j6lk5F9748yckCVxRg7LNR/fh+fCAF5tLYMk9Pv17IxI hfvxM/lL4uVIvUbV6yCfR1jLXlNrcUCenNLdHhVonYY6hq5kwKZlRLk0s1P7 VAZeZV28oyuqQAzOHLV2CsvEGWGdvdUfFIjAVOurWnc2JDpP7/DN+4mof1lq slwjB70P1aMTzyqS9J3TVRE7niFaS2nBSzslkqtt8+11VC4i4j05B5jKZDKF tY1qyINT9G+1Sz4rk7sKwh8bGM/xfVvqVGLRcvLdSrEp+vRf4PcaB5aGqJCu aE7aruYXSNm6bnnNgRVk94PnU+L2Bci8EiDL1lMlgTnuXte4rxBi575LdEKV JASZTfpuLcTGzuS0kBo10vHQ0Keoswix2ncya3YxyZUyp1UmG4txvvhG7K6X THJm2eQVe0YJdi+3S61cqU6cLOKS5kdK8IsvZ59sqDopbCjLflFeikQVt5XV E+rkfP68S3tOGVaWPYqx3KdBpuf+MDxx6w0i9Ep1Gos0SHepDHUsoBye4wsa KnQoYs3h1iw69hZuOWPM0HCKaNVMPB115sDnos2seSRFdN9HJ2u6cxBgk9e2 5BZF/JrEBL+xObg2EXAzIoYii7I8iqqOcpC1aWrmdgJFvA8u7c+4wMFUyXzr wwyKiMk6xwSncBDRuOTGGw5FdoRXWB/p4yD+/pFDVysowg/aHZw9wMF9/1qT HVUUeSydKTn2DwfPFSKmq2opcttCyCLwGwedTnKHmlookjYy5xYqzoUmX8mk m0+RY67xA4U6XBjknVZ90EuRwwumN4it5YJ1pWPq4GeKlBRs+mS5gQsLzYSn /QMUeX/RaV/XZi6OezNVR0cpMqCrPSCxm4uzW36fejZOEYZ2pLG9FRdXpLqb /ScoEhnUMZtsx0Vs9v2w79//7VmqeJvlzEXKhQXsgmmKTPZJnApx4yLD6qDx 2VmKvFzd9aLZk4s8jbcr6DmKyMjd2a/hzUXR+Oqp+XmK7Bw3cjt2lIv/AsQH qRg= "]]}, Annotation[#, "Charting`Private`Tag$9147#2"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwdhwc41fsfgM1cMyNlrxMnIxTK/H2+mZFchb+iyCmOMpIyQjIvokLoyN4R zlG4l2SUeex5hKJkpCNklBH/+9z3ed7nfV5pws3zzkwMDAwZ//pfgwn7jl2L xRj+g12veVDK3FbqOlgZ0xus87Wwvdb6cCmpu7AhWuE4l3cR40mspnCMhsGW pSZNd9Qdy2h8KMkqFQOSPs2+FXl3MaWla4/2iI/h9EDw1Hu2COwDT+buDi0R WM5+8uYfjcMOF7Kf2NpOBjZ5MbdTOU8wdz0fj5+SqaA1yReZnJeKvRqayl8z SAcTee7MMK1sbMvNfGKFmAVZVoEe7Wz5WDbjRMxPoxzQtaAcStd9jhl2J8hu 0HJB3Diy6jetFJsnmTStXc+HgbGi4g06BYu79vvS6nYB3HipelEj5xU2uO2a tCxZDBaJUZlReTWYb5uE6lJFCfAcllBPW6nDRJ4MdS4alIJhpfXHAK1GjKCA mL8RyXDq6mJvA1szxrQd0LsWRIHEPy+H2wq2YkNTNuJrRhUQYP2pNFG3HfMv 5az5QXsJvLpVfqu0LswscXbfj+xXYJgasF/YvBcT82+yXrleCWuhDQdW6H1Y o4Hf8tJ2FXTPfL6qkjOIsY1/xi9K1kCLt8V0SN57bLTxjQ99vgak71zMkjYc x0oKSe++VdRCR5ProaSVCczC28JxwaAOjL9Tpfy0prAU9tqUOWIDmFW+aXjN 9gWr9DPzvi3UCOGU+gNWnDNY+sJJ4dWgRrByGza1EpzFPPv4iT+MmoAtUsPy ke48xp/ezrRCewvDqsm07zQ6ts1TXeyl+w48nr+U6+b5jn0JzbNczn4H1FIZ 2wPmS1g1MThz6XozhKkQSr7TlzE7NXXt79stUNcaPqeUs4rlULNufZPsgHQO zDE4bxNbI1UpTMZ1gN9VusSb8C3MmNg5PbDZAe2H9mQaidsYnfmnTe0gFUSa dzf4dX5jmnoW2jFRXSBpVjTrE8UAfeQdJvxSL3TnBEtWVbEAP7A7cCv3wWuU mb1hwAo6cknaUdf6YPdoqoHIECs8WiteDejvA18v6jLb1j5QTxh2Jrzoh7Ro zbmgS+xwn6pkdsxxELRSTpp1B/LA84q/5V4kD0KYj+UP1SP7YYCkzyzbNQgX bU6+8R3ZD4eJF+qEtIZAtM73snU6L1CZI5QZBIaBWD+qOMjODwf1xvl7W0fA LOLufhZ+QSgnx4y7K4/B+Y/qfGo0UVjgX4gzcxoDGWN7BaqBGOB9zbAjSWOQ f1HtllqFGGTrcuZMb47BsOX5qKBH4pDYEedi1zIOQUQCbf68JPhOP14xufQB GH8vsCSHSkMWZ2c4n9EUeMUfdS8KkQVML/BSiMMUGFAJI4LNsjDhqaix5DcF zEVxtotsciA0EDvbVTIFhZhZFi1eDhJI5qbRvJ/gusFxw9QiPITL9vDsjX8C I3Ol2b55eSBCfyrdexpGTbMy+WqVgSF3o3Y8dhrUUydsudlVgMQiNkHNn4bY VkcBzwsq0N7hIlE8Mg2/vfwSHH6pwBHrnVxn7S+wZrc4dC9TFeZd8aUfGWdg TdIe/4R+DG4k3qvvi58FTYbd+sxydWBaz51sKJ4Fx/Wyd+4T6vDMtp2B/HYW 1iJrTT04NIAqJmDwcG0WmpS/vmclaoBi0fM20wtzwOM1wJEscwLorwf73krO A9U2haKYdxI8Z+SnK8u/wmSoiZA2VRumHN7/0dTxFQLvCvi3MOmA1Wi0cveX r2AbImAcp6MDmp1zd2dEFqByu1+pq0wHmCsKeA9GLQCbQ5CsYLIukIKkMT/H b0BN+Kel0xODJgHhVC3eRaDPCy44408Bh3QEflJzGRjWHD7HXjGCdt0ElWCj ZZiT2fdgItQI/rqQeVL8/DK0HC0TMMkzAqb4f0zs3ZZBXHiq6/qsEWzt0om0 jGU4dEmPNuNhDN8mbJ73Mq2Aw9m/zf8JNYEuEl6+sevf75dobq0zhUe8nQo5 V1aB8anN8QchFkAYt25g7toA+dvvA8dFbeBWSwThJn4LlDh377xst4cKLy4r IdPfUF7jzs7s5gQ5gW4LqrYM6ENGnatQhTOEZe2cW6MzorQIloA3IjeAYXAK 1QUwo/5WjdCCQU+Qu+Pib63AirJwVf73jnvDl/Wn/+N8sw8FlLh19TP4gNnM jXuJt/5AAlfYnucb+YPFl3hFCQkO1PDJX5urOhAW3hFC2ss40fHij9KVkvdB mW9E3MCRGxUVzKxb/RUKHLDuNLHKgy6+N5oz9A0Hk0W7nzI2vOgWtdqVrSwS Rt9eY7RT4kOUc3Ucx39GQVV0s4PUOh8i2c3VP1V/AC6sPlM9PfworXUvGxri 4Kp3YBXXMwGkIWrfsK71GFSIij3mTgeQ84sN/IepeOjlV+L00RJEaXj9s5EW ifC6PCxNifkgalBfPaFY8QQCGRUsuz4cRJ6/c8lKKBk4JgJOe1YeQrj0BOmq kRSYKZROygoSQgQBvxkJRxIkHRFmqbERRgc0C2vFDj2D+GcubU5SIgh/69yf Lg1pYJd0uYdrTgRZjLf9zemeAb8MCzaz6kXRvHnp6RtnsmB6Rt//bZQYiuFX Q/visiFX75hot5M4Wi4N/b4blwNlkT58xKMSCJOoJXWH50KUzdUzzOsSaFiJ x0ktKA80JnKKo7olUcy27oGR+HwgyaeVdZ+RQm17LLHtqQVwv/Eh6UyNFBp3 HlU3aiyEs6I2BdTD0ij9dvjjsfkiOOXZZs8XI41M1kprVFiKIUuMcLhrXRop pwzklmMlcPhdUYqFvQwSbKHXSLu9gPijbxUG6mXQ3RolOEgqBZdVlv4OBRxa javzos6UAaHih1TMYxwix8f00XFkcA+z2jFLwCFekXuy0fJk8LGqpHE9wSEu fbsdnAoZotd9HsWn4FDKQr/KZW0ylGttbj/NwKFzPvVlw5Zk2GzaGyl88e/L drBO3iND/ADXw+Y2HApgiTpiNUqGZ3kern914FBph/Lr3Q9kyLvTY3C6E4eq q9p7S6bJUH0wfquzB4fGWgeDWZbIMGEn4Do4jEPut/FbH5kogJ8WNvg8jUMN Cw8y84UpoFoZIJE/g0OGXff9gsUooB05vuk8h0OUjzcTLkhSwByfQfm6gENZ +vrR3LIU8HaTklhZwSF6xqvQAFUKBOmGbr5cxaEr25GE/6lRIJL789CddRxq qbOOOH6CAiRyXuyvXzjEXTT34JsOBXJDWIi1WzjUJVN6sx2jwItzzvpBOzhk 7OuRXHCKApUyreLYLg5NUhV3wgwpUL8qt7m3h0NhenN5V0wo8H/jFqvy "]]}, Annotation[#, "Charting`Private`Tag$9147#3"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0, 10}, {0., 0.1909008483507029}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{ "\"harmoni\[CHacek]na\"", "\"\\!\\(\\*FractionBox[\\(1\\), \ \\(Cos[\\*SubscriptBox[\\(\[Theta]\\), \\(0\\)]/2]\\)]\\)\"", "\"\\!\\(\\*SqrtBox[FractionBox[SubscriptBox[\\(\[Theta]\\), \\(0\\)], \ \\(Sin[\\*SubscriptBox[\\(\[Theta]\\), \\(0\\)]]\\)]]\\)\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.750565401101695*^9}, CellLabel->"Out[10]=",ExpressionUUID->"38eff1da-7ef5-4a6b-9483-bd225a59029f"] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1517, 1157}, WindowMargins->{{-8, Automatic}, {Automatic, -8}}, FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (March 6, 2018)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 181, 3, 96, "Title",ExpressionUUID->"cf6fb92d-eb6b-4ecd-96d2-e466fc52dc3f"], Cell[764, 27, 160, 3, 34, "Text",ExpressionUUID->"19be42eb-7875-4787-8dfd-95f91087dbbc"], Cell[CellGroupData[{ Cell[949, 34, 972, 26, 58, "Input",ExpressionUUID->"9c0dd46c-c1a7-482f-b36f-62490c8122a2"], Cell[1924, 62, 368, 8, 48, "Output",ExpressionUUID->"3acaf58f-bb92-439d-b5f1-16b9291ff0ed"] }, Open ]], Cell[CellGroupData[{ Cell[2329, 75, 260, 5, 28, "Input",ExpressionUUID->"b80a73ef-ccdd-4037-b0c7-9f8c2581ed0b"], Cell[2592, 82, 198, 3, 46, "Output",ExpressionUUID->"455c8f2e-3cee-46fc-96ba-e323a9dd33ac"] }, Open ]], Cell[2805, 88, 407, 8, 34, "Text",ExpressionUUID->"fb976b79-bff6-4d87-801e-89327126a46f"], Cell[CellGroupData[{ Cell[3237, 100, 621, 17, 54, "Input",ExpressionUUID->"0fdabac6-a778-48af-b445-61145a09098b"], Cell[3861, 119, 708, 21, 59, "Output",ExpressionUUID->"85a766ad-4bcc-487d-97e0-4d230f3cef51"] }, Open ]], Cell[CellGroupData[{ Cell[4606, 145, 173, 3, 44, "Subsubsection",ExpressionUUID->"2ee050c9-33e2-42d3-b198-d01a7eaaae47"], Cell[CellGroupData[{ Cell[4804, 152, 685, 15, 28, "Input",ExpressionUUID->"c8c11eb3-ef0e-42ea-ae2e-a3e834600108"], Cell[5492, 169, 31802, 610, 240, "Output",ExpressionUUID->"24a7215e-1013-41c5-ad3e-c2c74be7c970"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[37343, 785, 169, 3, 44, "Subsubsection",ExpressionUUID->"2d530ac0-3c54-46e5-86f1-edfd89e03359"], Cell[37515, 790, 731, 18, 61, "Input",ExpressionUUID->"a4c2e619-90bc-49cc-80d6-eb1d3a787c7e"], Cell[38249, 810, 187, 3, 34, "Text",ExpressionUUID->"8cfd6541-c12b-442c-882f-f6a92b8da1d4"], Cell[CellGroupData[{ Cell[38461, 817, 843, 18, 54, "Input",ExpressionUUID->"46c8cedf-b989-4e83-92ef-62a3c77d1939"], Cell[39307, 837, 28547, 542, 243, "Output",ExpressionUUID->"9f1af7f0-2fbd-4708-85eb-2c3af5cf079d"] }, Open ]], Cell[67869, 1382, 272, 6, 34, "Text",ExpressionUUID->"35d7cfad-b231-4da1-82ad-1409f0642bee"], Cell[CellGroupData[{ Cell[68166, 1392, 985, 24, 54, "Input",ExpressionUUID->"ae5f13b0-d4fd-44c1-b094-f87d0e9579ef"], Cell[69154, 1418, 26202, 503, 240, "Output",ExpressionUUID->"5df0e971-3d4c-439b-9eca-7eacc04c604d"] }, Open ]], Cell[CellGroupData[{ Cell[95393, 1926, 1034, 24, 54, "Input",ExpressionUUID->"3cde22f9-1b86-4ad6-8036-4e5785a4055e"], Cell[96430, 1952, 26105, 502, 241, "Output",ExpressionUUID->"38eff1da-7ef5-4a6b-9483-bd225a59029f"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)