(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 36002, 1017] NotebookOptionsPosition[ 31325, 846] NotebookOutlinePosition[ 31834, 868] CellTagsIndexPosition[ 31749, 863] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"3", "+", "2"}], "\[IndentingNewLine]", RowBox[{"4", "+", "7"}]}], "Input", CellChangeTimes->{{3.588942191867565*^9, 3.5889421982955637`*^9}}], Cell[BoxData["5"], "Output", CellChangeTimes->{3.588942199857705*^9}], Cell[BoxData["11"], "Output", CellChangeTimes->{3.588942199858729*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"y", "=", "2"}]], "Input", CellChangeTimes->{{3.588942209383884*^9, 3.5889422104791193`*^9}}], Cell[BoxData["2"], "Output", CellChangeTimes->{3.588942211790153*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "=", "7"}]], "Input", CellChangeTimes->{{3.588942215807077*^9, 3.5889422183255033`*^9}}], Cell[BoxData["7"], "Output", CellChangeTimes->{3.588942219309339*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"z", "=", "2"}], ";"}]], "Input", CellChangeTimes->{{3.5889422253623*^9, 3.588942234158634*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"1", "/", "5"}], "+", RowBox[{"6", "/", "9"}]}]], "Input", CellChangeTimes->{{3.588942326678212*^9, 3.588942356235045*^9}}], Cell[BoxData[ FractionBox["13", "15"]], "Output", CellChangeTimes->{3.588942357540118*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.5889423732670317`*^9, 3.588942388393585*^9}}, EmphasizeSyntaxErrors->True], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"1", "/", "3"}], "//", "N"}]], "Input", CellChangeTimes->{{3.58894240195088*^9, 3.5889424069525833`*^9}}], Cell[BoxData["0.3333333333333333`"], "Output", CellChangeTimes->{3.588942407580042*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"1", "/", "2.0"}]], "Input", CellChangeTimes->{{3.588942414155924*^9, 3.58894242874508*^9}}], Cell[BoxData["0.5`"], "Output", CellChangeTimes->{3.588942432266873*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["Pi"], "Input", CellChangeTimes->{{3.588942461066787*^9, 3.588942461831814*^9}}], Cell[BoxData["\[Pi]"], "Output", CellChangeTimes->{3.588942462583617*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Pi", "//", "N"}]], "Input", CellChangeTimes->{{3.588942472877947*^9, 3.588942475070866*^9}}], Cell[BoxData["3.141592653589793`"], "Output", CellChangeTimes->{3.588942476236309*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"3", "+", RowBox[{"I", "*", "5"}]}]], "Input", CellChangeTimes->{{3.588942515362122*^9, 3.588942530462267*^9}}], Cell[BoxData[ RowBox[{"3", "+", RowBox[{"5", " ", "\[ImaginaryI]"}]}]], "Output", CellChangeTimes->{3.588942532977393*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.5889425701665163`*^9, 3.588942582884755*^9}}], Cell[CellGroupData[{ Cell[BoxData[ SqrtBox["4"]], "Input", CellChangeTimes->{{3.588942708835828*^9, 3.5889427109926977`*^9}}], Cell[BoxData["2"], "Output", CellChangeTimes->{3.588942712114647*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Sin", "[", "1", "]"}], "//", "N"}]], "Input", CellChangeTimes->{{3.5889428195156107`*^9, 3.5889428691085453`*^9}}], Cell[BoxData["0.8414709848078965`"], "Output", CellChangeTimes->{{3.588942858517572*^9, 3.588942872378572*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sqrt", "[", "4", "]"}]], "Input", CellChangeTimes->{{3.588942877045385*^9, 3.5889428823159657`*^9}}], Cell[BoxData["2"], "Output", CellChangeTimes->{3.588942883398343*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Pi", "/", "4"}], "//", "Sin"}]], "Input", CellChangeTimes->{{3.588942916101729*^9, 3.5889429234171343`*^9}}], Cell[BoxData[ FractionBox["1", SqrtBox["2"]]], "Output", CellChangeTimes->{3.588942927581208*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", "Pi", "]"}]], "Input", CellChangeTimes->{{3.588942934566927*^9, 3.588942941457959*^9}}], Cell[BoxData["3.141592653589793`"], "Output", CellChangeTimes->{3.58894294201772*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "@", "Pi"}]], "Input", CellChangeTimes->{{3.5889429439820147`*^9, 3.588942950082049*^9}}], Cell[BoxData["3.141592653589793`"], "Output", CellChangeTimes->{3.5889429507397623`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Sin"}]], "Input", CellChangeTimes->{{3.588943006592463*^9, 3.588943006967258*^9}, { 3.588943102486134*^9, 3.588943106189715*^9}}], Cell[BoxData[ RowBox[{ StyleBox["\<\"\\!\\(\\*RowBox[{\\\"Sin\\\", \\\"[\\\", StyleBox[\\\"z\\\", \ \\\"TI\\\"], \\\"]\\\"}]\\) gives the sine of \\!\\(\\*StyleBox[\\\"z\\\", \\\ \"TI\\\"]\\). \"\>", "MSG"], "\[NonBreakingSpace]", ButtonBox[ StyleBox["\[RightSkeleton]", "SR"], Active->True, BaseStyle->"Link", ButtonData->"paclet:ref/Sin"]}]], "Print", "PrintUsage", CellChangeTimes->{3.588943107431704*^9}, CellTags->"Info3588950307-5154662"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[Pi]", "+", "\[Delta]", "+", "\[Alpha]"}]], "Input", CellChangeTimes->{{3.5889431620196877`*^9, 3.588943204145774*^9}}], Cell[BoxData[ RowBox[{"\[Pi]", "+", "\[Alpha]", "+", "\[Delta]"}]], "Output", CellChangeTimes->{3.588943209565909*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"3", " ", "5"}]], "Input", CellChangeTimes->{{3.588943275455057*^9, 3.588943277152171*^9}}], Cell[BoxData["15"], "Output", CellChangeTimes->{3.588943281127536*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", "4"}]], "Input", CellChangeTimes->{{3.58894331866256*^9, 3.588943325383218*^9}}], Cell[BoxData["4"], "Output", CellChangeTimes->{3.58894332766315*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"b", "=", "5"}]], "Input", CellChangeTimes->{{3.588943329263204*^9, 3.588943331671002*^9}}], Cell[BoxData["5"], "Output", CellChangeTimes->{3.5889433322878647`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"3", "a"}], "+", RowBox[{"2", "b"}]}]], "Input", CellChangeTimes->{{3.588943334842699*^9, 3.58894333827826*^9}}], Cell[BoxData["22"], "Output", CellChangeTimes->{3.588943339936696*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"G", "=", "G"}]], "Input", CellChangeTimes->{{3.588943393915496*^9, 3.588943398356758*^9}}], Cell[BoxData["G"], "Output", CellChangeTimes->{3.588943399726528*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", RowBox[{"GONZAJ", " ", "WAS", " ", "HERE"}], "*)"}]], "Input", CellChangeTimes->{{3.588943580999687*^9, 3.5889435908394012`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", "25"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", "8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"5", "y"}], "-", RowBox[{"6", "z"}]}]}], "Input", CellChangeTimes->{{3.588943617825082*^9, 3.5889436538074493`*^9}, { 3.5889436917234097`*^9, 3.588943696363967*^9}}], Cell[BoxData["177"], "Output", CellChangeTimes->{{3.588943638352313*^9, 3.5889436553763237`*^9}, 3.58894369792268*^9}] }, Open ]], Cell[BoxData[ RowBox[{"ClearAll", "[", "x", "]"}]], "Input", CellChangeTimes->{{3.588943904442761*^9, 3.588943912501974*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "+", "y"}]], "Input", CellChangeTimes->{{3.588943916552402*^9, 3.588943919246561*^9}}], Cell[BoxData[ RowBox[{"25", "+", "x"}]], "Output", CellChangeTimes->{3.5889439207383957`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"ClearAll", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.588944088155023*^9, 3.58894408815548*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Cos", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.588944178362908*^9, 3.588944242269635*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJw12Xk41N37B3C7GVsIM8gSKUnqydJCnTvtKtFCWVr0WJIUSj3SomylxZ5U aLEWsm9xECUhy1C2skSWmTn2LMnv8/3jN//M9bquua5zzn3e9/l8zjVL7c4f tOfj4eEJ4OXh+d83Pxap69X32ZK78L8PQRqDJYbKYSeQgIGI4h/Ks2/X/Nsa eh7l5Z1zGaGcMYWapdIuo2c2qyc6KPfJOE3nht5A+d37M8so35OvEk8ruo10 B5sTYignaNrE8qQFIOfZ2gYPyqXrR9YeigtCXT6gu5Vy207f8vjQh2hrw8bP Qv8bT0tMy7s8BJ1QqXpc8ZeggHUt7vFFYWhV4FyMF2WZTXFFddkRKEesv02T 8vOtzgLTqY/Q8rAn+7/ME6SzR2//0sTHqLD/n9/nKBeZ/Y0wiXuCcF7pVwHK zSdCVzwLjUWuYmu3KP6h1qOrs6G3Mg5VnNlTET1H0OX1YR2Xy5+j5t81PtKU BZCtxvOil6hvzeOXQzMEVRuXf9LPf4Vm2lbS9lIO2bnCtTo7HnXlZ796OU2Q sulo7nhqItr+09Z/82+CfppbWAemJKEVx5o+X58i6PWRooUlicko/MDonvxJ gjbY+u3eGfca8fYOjiyeIOigi3xbVGg6yn14n5wbIUhsA8KRu96iV0UzCxcI QSMFblLdlW+RWXeliQuXoNzilpxL5RlIv+pa8F42Qdsq4/7GFGWhNalNvW9+ EbR8V5PZ4MZsJCMdXefWT5DIJ8GXuvnZKHJyZFKnj6D6GuddVdk56N7pe3Mh PQTZsvSCR1PzkFVd4PBsB0Fg4dhjqJ2P+rtY733aCVr27bGef0o+8uq2audp I2io/e83hcQC5Lz1/qdfLVT9equWbo8rQkHaW1OP1lP1GbPJigzFaIt/OedD GUH3ZaONSsVLkdXVGedETFBjhp+K/sFSZGLh1nS9mCDrIZs+5fZStCEkxkm6 gCBXa1G3MXYZMtvRkVOTTlD4ZqfAx5IV6Pubeo8HTwhqbT10VuJIBSoraZ3o jKLq74lMbz+uQDosQ5dlkQQlpsnJnFOrRCFpq7ZGBhNUqFIZC3ofUP/+NdHi fgT94FXL+2VZhVSUflXsdaHWFyMebfO0Cj19+1pC9AxBTptmvBu6qpCp4mWb MnuCxtzrjYvOfEKPhAeEF5+g8vHzet2Dq9XI4q9mgYk5QVof2vv0Y2tQsM0u ezE9ggwrTUSMPeqRUqfu2a4xLpJkJXxZH1aPimzeP67hctHPHr6I1Vn1aOe7 YKmMIS56wFOkIj9ej2LIQpddDxf1GK7SH3FvQJfCLJc4N3BRYKboyRj3RnQ7 zn1COI2LWmJrcmbdWMj6LVvkzikuep2meXUkhIWMrp6+ddOGi24W+0J/Bgtx a8IcL1hy0cp2o88Noyx05sOamxv3c5G3XGpXklszmprUkHDbwEXq9++LWrq1 IIe5kjJPcS664GV6KuvCN6QQELOoP4ODTFyNkmjB31AE92y36BsOUrfTIrbp 39DxVXcjtRI4qGWP0DUa9xvaL3787cFoDtosXxJle7YV8SnvqN5/i4NE8lfX Czu0odm+9PYRMw6KnxRDNtYdaOPDF2MTA2x0Lt/+AZ96F1Lu2WJlKsCm+tlc lVevC92LKDws82cYjbQaZS5s70KRrHjnxvFhdHFuccsfhy5kK6Q8ZtA7jLy2 lCv9TulCIGGZ8bxsGPlXKKcOr+tGztNGQjzXhlFc/dfPLOMeZG+RvmKUM4RY A3voiXY/UU/1IjP9gkF0d80UT+6xAZTBb/LQW/sXcltVFVEaz0bH53LFy/l+ otnTZ9M6XUeQbuY2tdn7Xciu2MIs2GEMeYT1/7doWRs6PcoqLQ2cQAaDt5ys ljWie2vzzif4TyHT3wajku8rEF9p3npfr2l0PXzW3p7zCklp7a37ETWL2q31 ogfs8/DuWOOXI6F/kHSPa9pF88+YQWp23sj7iwY3xfan9zTj6I+FvPxneOBT 3RALh3diI6WtC6r/8sIpy94xj+U9eFWX5M9rF/ngitG9c3TvPpyaJO2U484P rJ/vPE9vHcC+zXgr/2V+YLzxqo7eN4Bt+M4pml/lhx7LGNnPlgNYxOZjHfs2 P8jRNfzkXAewwyJv/WUR/BAxxnv+aPQAVvXs4wvL4we/md0v/UYHcPi2/GcX /vADr0pw/PnoQez93bZplb8AjHxcVt7aPIQndm1+Zn9XAIZVddaK/hjCLhlL HGMfCIDExR/K+gND2Nq3fVb6kQB0jfJedJ8dwpu0jqnNJgoAqOrmhioP45lL h92qPgmA2epIJ0f7YewpvneRvbgglJQfcjTjDGOup1ZrjJQgHNPRULk/OYwd uugvv8kKAo/vIL18fhhbZFUZ7FMWBMsTy87LSLCx/rGdx3XXCMJK5S8brHXY eOLV1lRec0HIVrzb5HqOjd2MNuyNCRcE/pl2bkwfG/O4ht94GCUITcFT906x 2fhB7EjWzaeCMPhzsYbSOBun8CUvOf1KEG6Z1xnd4OHgnip57opsQQj92t/B VeDgw0fmgjOaBEGpxNnLy5SDDVxLWiqkhcDIy8x6w1sOrohVEM2VE4K7UUvX MnI5+GCDJ0pUEIJK+9labhEHu+qtSbqjJgQ2TOaJwI8cnDgb+5/pOiHIPV+Q /u93DmYG+Cz5Zi4EtT2CLaUiXDwbu91uOFgIIr8zyLwtF2/5vTn0nwghePMk mWV7mot9TNeXX34sBG6W8eI5TlxMm1+pJvBCCLboVnjs8eBiWatFPUuyhCB1 9b1+eiAXr5VpO2XaLARD3Q1KA+lc7HG2KSS8VQg2TPoEvsvm4tzymrK2TiEY /HtqTWABF292w0sd+4VgW+kmbcH3XGxS96r7xm8hkKqNehfRzMX2gedPZcgL w4vKEGnJGS5O+uEU8ltJGILueD23nOditoFd2WY1YRhIarWM5CXYve/w0mot YcjPXWYwQyf4pvGm7h5DYSAVsY8OKxAc/UfglMxx6vfLhdgnNxJcfyH65OUX wnCwtMa06gLBWsGScxcThOGqdrJWsQfBt9P9I9xThOHSx4V1KZ4EG3Ddq89l CkPzhO4HF2+Cn53dq/dvuTDYGNX3hAUQ7OzwR9i8RxhmaxeszzwluMLP/YVp vzCwztu/6YohWCl+wGjfkDA07r6jbPacGr+X5bZrTBhyxJ/bMxIIXn8qtX0z Hw0mI8Jdd6UTLGBzPF1LjQZ4H5OrXUrw8ausPZrLaUDXH5ddXk5wXrTJTw0t GigHVlowKqjxWw3kl66jQciV00t7PhLcYLHoNsOYBrvHL9cyv1Dr8/RTkt1J g8c/xtMb6wn2jZjLkzahwfGLpYm+jQRvYP1iix+kgUXss+b6ZoJjzEstBOxo MP5QRkWkg+DpCwajvA40OBOUHefbSfDB4DdBC2dokHrDW+/3d4IFv0SVzrrR INpDNqSim2CXfW5aoz40SJ9qkOH5RfCHs78quH40WG0pomw4QLBKkO0J9h0a NO0oNXAdJLjx057wXyE0OKB8KeLdMMEbd6n97XxOA6Mn6jyzhGC9l9WBH+Np 0D+fGDcyQrDOgvvijGQaCBfHPvsxSrBa3ntN3wwapPgJvUkYJ3jJYpesczk0 EC+iFV+fIFjuvMwWywIalL16tfLAJMGiK+wPaZXRYIPwT5nWKYKFbot/X1xJ gz6TlWGhvwnm+ZHjNF9Fgy/f9rpsnyZ4IlLoen09DW773dQJmSGYO5ZGK2TR 4PWibQztWYIHTC3DXn6jQUfhNitMuVMoKcmziwbyZy5y6+YI/mZnpnvyJw00 /juN9v6h1lsyXbxngAZ7KiSGMOUahee7ddk0+HTaiqs9T9XLc0/TkhEaGO/Q 3hdKubRx1FZoggaZWi78I5QLdaIHyG8aXEvhl9n5l+Dsu8YerXM0uLjm+7Vw yun9Q/PlCzT4Oj0A7ZRTjMMC3/DT4bjCYluFBYJfxRgujhSmg4H3/kZzyjGz vc9uiNJBov1unA/lKIt7mmcW0UGqCn9MphyaqZd1cDEdSFLPrmrK9yQ6Nxsx 6NCRN6zaS9nf2a9KQ5EOYfzNByco+3xYfWiRCh2OnY/unKfsrdbSOa1Gh5nM jWXU/QF7Xr/u1LOcDjVWmfMzlC+0LR//rEWHzI+CYWzKzgZfruXo0EFuzXqf r5T/Db1Mi11Hh+HovVWFlI9zVcICDeiQOrjHKZLyUZMqJfdNdLCt23TKmfKh hAtJ1lvocLNeM8uAsimfvO4OYzoo71M9PkfVY/fxsmKdnXQocltjl0/ZuPDM bqYJHY7udMDnKBvJSTfxmtLB5WXLJUXKBu6FtsPmdPhpEO5XRtV/bZ3dAOsI HRi3s7knKGv4Z80n2tJB8ZJ3rR+1n6o91oEhp+gQuePoNnHKClsEFl+1p4P0 sgXp+1QeJKYOa5qeo4PATa3SS1ReaAfnM9e70SGuevTZdypffGnxm5deosON YnoLovzbfurghDcdXhyuPDJM5XOsLKaz8yYdHjgWPtOnzFba5fTRlw7TCy/g CpXnruZH16Lv0WF7kWBUP5X/Tzs2JsFTOrAeXAl1pPrlysfrOjfi6PBeQ7T8 BNVPmnsqsotf0SFXefeEKdVv/vsOlG1KpcP3rqlT0hyCtx+yb9MroYP5pPbZ 1VT/TrBSTnqU0+GxnlBBZz/BLy1G+jM+UHliG4j59VHzt7o6rvOFDqeOalTk 91D5PRkitrKLDuwUN79s6jy50NMS6viTDuE+a+lK7dR58O8S+YQBOnBeRUR4 txJ83TFRQ32UDl91tapVW6j9cC3eosQnAqIOnPT5Our8uzp4QWqZCJgYJ3fT McEO8zq/D2iKwOgbY+3ed1S/37h47YG2CFjvFwjMKiT44q2FO6L6IjBWceXS xlyC192RfSm4UwQiji9sbHtDcFrk1uYZRxGgxfvzXIii8sUMsN7gIgLX2n6/ KYwgWDy6ptvzgghsq4q89CeUOt+eWXLHr4jAxV7P4/b3qfP11Tlh7h0RWFQy 96rGh+D4jMcbe16LwI61K/CoE5XnOWutb+kiEPJp3Yt+eyo/O5QV67JE4Jer RFOTHcHvvr34U1AkAjdXGy59ZENw08JrHPJZBGzXz/iWHSCY17Rkx9ZhETha nLIkQY9g26Ee8zgtUfCPD/HNnuZiNb1440gdUUjpzy7KnuDigWuOuvfWiUI7 3dEmdYSLL0qxZa5sEoWzwue+BwxwcdCGya8HTEQh6pQib89XLi7wFz6+cEYU vDLGE1flUM93dW3n48miYOy3VmaJMxcHhwZZJKeKgkNe5vqyf7lYhG/YeCJD FPZOTkTbnuBinu5kxbuFolA7O7Lc+zD1fI5ZUZvzWRRyu77eNNvCxRUK6mvF uaIQcF493lKSmo+0wlTROjHYsWTqynAqBxOf/3qE1ovB6ImYD1cTOdh59Fud uaEYrLzud5f/OQefrH+U+GubGCgY+HvPhHHwvgeyxxYfEYNFl2S23PiPg9VF pN45XxaDNPatvnFjDm7kpd2SfycGcjZ2uQ+/sDE39fFxs1Ix8NL4kKxfxcZ0 q1WGARVioL7KPa6plI0h03RiokYMQOlr7O8MNk6zi3Co7xSDm23Fql1hbBz0 Xm1vwIIYeGf68upbsPF2v80yk8bioG6s6TDPGsY5NI+E+k/i8EHUTOxO0RDu 9/bhlNSKQ2pUrmN35hBmjj7US20Qh9ubhc11U4awd+ub8jut4nBat7r5fdQQ 3p7S/914UBzUvPp6Hl0awo17rRg5NAk4bDAzIK4zhEcebA18vEsCvJ6bdwP1 /qwtK+lsVykBEqu+WG09OYDJgykZ3ZZFoJfy31pJpz6sHhCw5ryzJMw8kOa/ bdKDe6za24x/ScKRIM89n9ideHdf00yOqxRElUd/xbot+Iq7vZMcRwqSal/W leypxaa5T0zkPKUBZt61BH/Jx9w/zt78U9JQvS7dXtT/KXr+1Sfb1WMxSCw+ crl41Xs067T55H9zi+HhFgMrek8DUpoPsXbzkoEnxTkMr6OtqH9XUDVNQBY+ LoQEZFzvQu+X1yDlIFlIOuDUYD3Zi5xpCQJL6XKg9PZFT15XP8qLW7b5fYgc aLy3dUhOGETLFrZfLQuTgwljSNV5O4iCbe0LcIQchJ+0Dkul7mNOCgn67x7L wWhtnW5UzSBSCF+hk/NcDiRrRXxVxwaRd4CWSmKGHITaylnNGQ4hY9e1vEEN clDyi4x9qh5CdYZGlQelGCBg9HLQjDWM7uZfmtu5mDKrfFagYxjt0k//x1CW ASbFdIdM6v5YqqMWoy7PACGNom0zY8Moaynt8oQqAywLKgYMpNgoSpilGbmW AaNW7rsu7GOj001n77UeYID4mJfil2I2UjWLL681Z4BGcBv/6wo26qj5Pl12 iAH0wk6Jm5/ZyOKDuX2KJQMa+k38ZVvZaHfB+i1XTzDgBe+tWs44dd+N5R9Z cp4BtzNYRw9qctC085NDJx8wYMlpr4iuIA566PVS+EYwA9q6ZbNPhHLQ8ruv i56FMmBtiKlvSxQHHUkuUm+PZMCXJxbrXsdzUOav9vEjsQx4+/ta6EgJB7n8 uyR871sGhH4v+TZIOKjL9hnLoJEBBdYW8Xf3ctHlc/GBR1jUeP/cjftjxkUS 11KNLrYwIImvgeFgwUWbnxa/ymhjgKKd30WVU1wU3dZ5UbuXAZ+TH75b5clF hy2VZdUmGHDWDqHkGC6qMos9Ii7HhOAwQ1OdQS5yrugrEWZSzmi9ZszhIvEN 2pp8Ckzo6VdVOjDKRQdVCmanlJjQfyg3wXyGi9o5jbFdGkx4LZVXPUcjiHtX aChLnwnl/RM+vcsJCv6771DaeibErrHeeF2LIF33sHdJG5mQm3fBXEqHoCvH VB8+28wE05Xacar6BPFpbtIL2MGE1Ds/YnuNCZKtPHfd6ggTdnv/4zprQ1D+ huxfhy2p+XTkf1Y4SZDVm1mzA8eYEPG10Vv3NEExYQHq222Z0M5T0LL/DEGa ds+rVtszwY0RfHj5JYKMFljSvJeYkH3r1Tf7IIK+uyt6z3kyIQ2HMEUfEOTT f6pv8goTfI41xyUFE/Shlps35M2ETYGNATURBB14SrNl+TJBrWVdTF4sQXYb jRITw5lAs1/jqJBJ0BlO7WRHJBMmbgyX3c4m6MLzE9ulHzNh1I3XozeXoBv0 293ez5iQMXe02a+IoKetnxQPJjDh4D2dAIsKgl7et3YOSGKCcMoSH/cPBKVs 5eS/S2FCwi3OZ98qggqSJS1WpDOhsTvL/F4NQS3/WQb/yWOCmWqX2AoWQZ2r B7//U8gEdYMO78lmgn52e612fEfNp4ZnY+FXgsb3xFQ3lDLBNjAmbHk7QZIK fQKJn5hQs+rL+7vdBDHqPA91fGbCovvP/EV7CVK+RXshVceEeo9HIbd+ErR6 aBXybmQCI3zX9UO/CDIpdP/PvJ0JNlZNCTfZBJm7ClT5dzIh1FE9NotD0FG1 SLl3P5jAE3Sio4NLkOPdgqzlP6n9e6u3THqUINcte/ls+pnQe3apjvIYQZ5j HWYhA0xwSXt+VXWcIF8rHu4cmwlrvy/rEp4kKEgi1OgfwgQWhE2xKYeWqwc5 jDJhXtblQNUUQc+1dmk2TDLhTfLhj6emCUr6/s1TaJoJJs9+9anMEPQ21LnS cJYJZeeGd7Aol8zet0v4y4SKApdPKnMEVaapZLTzyMMVbT92LuUau4wFSX55 cHPebrb9D0EsuW2mOwXlwcHmxsRHyu3VrKdXheXhaa9469Z5gnquOwy/pcvD WGv1fAbloXXTG/tF5WFYKtyO+Zeg0f47gYoS8pBvYSJ8ifJ0tOJXM0l52OnS MPyR8oJpqoa/tDxsXSQpKbVAkBA/ulgkIw8qk8TDjLJ4Xn35iJw8rKixZfhT ljlrJ7VcXh48DPfMZlBWVJk4Ya0oD7M9r5awKKs1+aUFK8lDqLXDder9HmkF MOYrVaj5GfirzFH+xzB579xSefj//xf+D0ojd/Q= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{0, 0}, Method->{}, PlotRange-> NCache[{{0, 2 Pi}, {-0.9999998830731719, 0.9999999999999918}}, {{ 0, 6.283185307179586}, {-0.9999998830731719, 0.9999999999999918}}], PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.588944232196698*^9, 3.5889442441716127`*^9}}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.5889443431171827`*^9, 3.5889443459779253`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Cos", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]], "Input", CellChangeTimes->{{3.588944352394766*^9, 3.588944384800061*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[1, 0, 0], LineBox[CompressedData[" 1:eJw12Xk41N37B3C7GVsIM8gSKUnqydJCnTvtKtFCWVr0WJIUSj3SomylxZ5U aLEWsm9xECUhy1C2skSWmTn2LMnv8/3jN//M9bquua5zzn3e9/l8zjVL7c4f tOfj4eEJ4OXh+d83Pxap69X32ZK78L8PQRqDJYbKYSeQgIGI4h/Ks2/X/Nsa eh7l5Z1zGaGcMYWapdIuo2c2qyc6KPfJOE3nht5A+d37M8so35OvEk8ruo10 B5sTYignaNrE8qQFIOfZ2gYPyqXrR9YeigtCXT6gu5Vy207f8vjQh2hrw8bP Qv8bT0tMy7s8BJ1QqXpc8ZeggHUt7vFFYWhV4FyMF2WZTXFFddkRKEesv02T 8vOtzgLTqY/Q8rAn+7/ME6SzR2//0sTHqLD/n9/nKBeZ/Y0wiXuCcF7pVwHK zSdCVzwLjUWuYmu3KP6h1qOrs6G3Mg5VnNlTET1H0OX1YR2Xy5+j5t81PtKU BZCtxvOil6hvzeOXQzMEVRuXf9LPf4Vm2lbS9lIO2bnCtTo7HnXlZ796OU2Q sulo7nhqItr+09Z/82+CfppbWAemJKEVx5o+X58i6PWRooUlicko/MDonvxJ gjbY+u3eGfca8fYOjiyeIOigi3xbVGg6yn14n5wbIUhsA8KRu96iV0UzCxcI QSMFblLdlW+RWXeliQuXoNzilpxL5RlIv+pa8F42Qdsq4/7GFGWhNalNvW9+ EbR8V5PZ4MZsJCMdXefWT5DIJ8GXuvnZKHJyZFKnj6D6GuddVdk56N7pe3Mh PQTZsvSCR1PzkFVd4PBsB0Fg4dhjqJ2P+rtY733aCVr27bGef0o+8uq2audp I2io/e83hcQC5Lz1/qdfLVT9equWbo8rQkHaW1OP1lP1GbPJigzFaIt/OedD GUH3ZaONSsVLkdXVGedETFBjhp+K/sFSZGLh1nS9mCDrIZs+5fZStCEkxkm6 gCBXa1G3MXYZMtvRkVOTTlD4ZqfAx5IV6Pubeo8HTwhqbT10VuJIBSoraZ3o jKLq74lMbz+uQDosQ5dlkQQlpsnJnFOrRCFpq7ZGBhNUqFIZC3ofUP/+NdHi fgT94FXL+2VZhVSUflXsdaHWFyMebfO0Cj19+1pC9AxBTptmvBu6qpCp4mWb MnuCxtzrjYvOfEKPhAeEF5+g8vHzet2Dq9XI4q9mgYk5QVof2vv0Y2tQsM0u ezE9ggwrTUSMPeqRUqfu2a4xLpJkJXxZH1aPimzeP67hctHPHr6I1Vn1aOe7 YKmMIS56wFOkIj9ej2LIQpddDxf1GK7SH3FvQJfCLJc4N3BRYKboyRj3RnQ7 zn1COI2LWmJrcmbdWMj6LVvkzikuep2meXUkhIWMrp6+ddOGi24W+0J/Bgtx a8IcL1hy0cp2o88Noyx05sOamxv3c5G3XGpXklszmprUkHDbwEXq9++LWrq1 IIe5kjJPcS664GV6KuvCN6QQELOoP4ODTFyNkmjB31AE92y36BsOUrfTIrbp 39DxVXcjtRI4qGWP0DUa9xvaL3787cFoDtosXxJle7YV8SnvqN5/i4NE8lfX Czu0odm+9PYRMw6KnxRDNtYdaOPDF2MTA2x0Lt/+AZ96F1Lu2WJlKsCm+tlc lVevC92LKDws82cYjbQaZS5s70KRrHjnxvFhdHFuccsfhy5kK6Q8ZtA7jLy2 lCv9TulCIGGZ8bxsGPlXKKcOr+tGztNGQjzXhlFc/dfPLOMeZG+RvmKUM4RY A3voiXY/UU/1IjP9gkF0d80UT+6xAZTBb/LQW/sXcltVFVEaz0bH53LFy/l+ otnTZ9M6XUeQbuY2tdn7Xciu2MIs2GEMeYT1/7doWRs6PcoqLQ2cQAaDt5ys ljWie2vzzif4TyHT3wajku8rEF9p3npfr2l0PXzW3p7zCklp7a37ETWL2q31 ogfs8/DuWOOXI6F/kHSPa9pF88+YQWp23sj7iwY3xfan9zTj6I+FvPxneOBT 3RALh3diI6WtC6r/8sIpy94xj+U9eFWX5M9rF/ngitG9c3TvPpyaJO2U484P rJ/vPE9vHcC+zXgr/2V+YLzxqo7eN4Bt+M4pml/lhx7LGNnPlgNYxOZjHfs2 P8jRNfzkXAewwyJv/WUR/BAxxnv+aPQAVvXs4wvL4we/md0v/UYHcPi2/GcX /vADr0pw/PnoQez93bZplb8AjHxcVt7aPIQndm1+Zn9XAIZVddaK/hjCLhlL HGMfCIDExR/K+gND2Nq3fVb6kQB0jfJedJ8dwpu0jqnNJgoAqOrmhioP45lL h92qPgmA2epIJ0f7YewpvneRvbgglJQfcjTjDGOup1ZrjJQgHNPRULk/OYwd uugvv8kKAo/vIL18fhhbZFUZ7FMWBMsTy87LSLCx/rGdx3XXCMJK5S8brHXY eOLV1lRec0HIVrzb5HqOjd2MNuyNCRcE/pl2bkwfG/O4ht94GCUITcFT906x 2fhB7EjWzaeCMPhzsYbSOBun8CUvOf1KEG6Z1xnd4OHgnip57opsQQj92t/B VeDgw0fmgjOaBEGpxNnLy5SDDVxLWiqkhcDIy8x6w1sOrohVEM2VE4K7UUvX MnI5+GCDJ0pUEIJK+9labhEHu+qtSbqjJgQ2TOaJwI8cnDgb+5/pOiHIPV+Q /u93DmYG+Cz5Zi4EtT2CLaUiXDwbu91uOFgIIr8zyLwtF2/5vTn0nwghePMk mWV7mot9TNeXX34sBG6W8eI5TlxMm1+pJvBCCLboVnjs8eBiWatFPUuyhCB1 9b1+eiAXr5VpO2XaLARD3Q1KA+lc7HG2KSS8VQg2TPoEvsvm4tzymrK2TiEY /HtqTWABF292w0sd+4VgW+kmbcH3XGxS96r7xm8hkKqNehfRzMX2gedPZcgL w4vKEGnJGS5O+uEU8ltJGILueD23nOditoFd2WY1YRhIarWM5CXYve/w0mot YcjPXWYwQyf4pvGm7h5DYSAVsY8OKxAc/UfglMxx6vfLhdgnNxJcfyH65OUX wnCwtMa06gLBWsGScxcThOGqdrJWsQfBt9P9I9xThOHSx4V1KZ4EG3Ddq89l CkPzhO4HF2+Cn53dq/dvuTDYGNX3hAUQ7OzwR9i8RxhmaxeszzwluMLP/YVp vzCwztu/6YohWCl+wGjfkDA07r6jbPacGr+X5bZrTBhyxJ/bMxIIXn8qtX0z Hw0mI8Jdd6UTLGBzPF1LjQZ4H5OrXUrw8ausPZrLaUDXH5ddXk5wXrTJTw0t GigHVlowKqjxWw3kl66jQciV00t7PhLcYLHoNsOYBrvHL9cyv1Dr8/RTkt1J g8c/xtMb6wn2jZjLkzahwfGLpYm+jQRvYP1iix+kgUXss+b6ZoJjzEstBOxo MP5QRkWkg+DpCwajvA40OBOUHefbSfDB4DdBC2dokHrDW+/3d4IFv0SVzrrR INpDNqSim2CXfW5aoz40SJ9qkOH5RfCHs78quH40WG0pomw4QLBKkO0J9h0a NO0oNXAdJLjx057wXyE0OKB8KeLdMMEbd6n97XxOA6Mn6jyzhGC9l9WBH+Np 0D+fGDcyQrDOgvvijGQaCBfHPvsxSrBa3ntN3wwapPgJvUkYJ3jJYpesczk0 EC+iFV+fIFjuvMwWywIalL16tfLAJMGiK+wPaZXRYIPwT5nWKYKFbot/X1xJ gz6TlWGhvwnm+ZHjNF9Fgy/f9rpsnyZ4IlLoen09DW773dQJmSGYO5ZGK2TR 4PWibQztWYIHTC3DXn6jQUfhNitMuVMoKcmziwbyZy5y6+YI/mZnpnvyJw00 /juN9v6h1lsyXbxngAZ7KiSGMOUahee7ddk0+HTaiqs9T9XLc0/TkhEaGO/Q 3hdKubRx1FZoggaZWi78I5QLdaIHyG8aXEvhl9n5l+Dsu8YerXM0uLjm+7Vw yun9Q/PlCzT4Oj0A7ZRTjMMC3/DT4bjCYluFBYJfxRgujhSmg4H3/kZzyjGz vc9uiNJBov1unA/lKIt7mmcW0UGqCn9MphyaqZd1cDEdSFLPrmrK9yQ6Nxsx 6NCRN6zaS9nf2a9KQ5EOYfzNByco+3xYfWiRCh2OnY/unKfsrdbSOa1Gh5nM jWXU/QF7Xr/u1LOcDjVWmfMzlC+0LR//rEWHzI+CYWzKzgZfruXo0EFuzXqf r5T/Db1Mi11Hh+HovVWFlI9zVcICDeiQOrjHKZLyUZMqJfdNdLCt23TKmfKh hAtJ1lvocLNeM8uAsimfvO4OYzoo71M9PkfVY/fxsmKdnXQocltjl0/ZuPDM bqYJHY7udMDnKBvJSTfxmtLB5WXLJUXKBu6FtsPmdPhpEO5XRtV/bZ3dAOsI HRi3s7knKGv4Z80n2tJB8ZJ3rR+1n6o91oEhp+gQuePoNnHKClsEFl+1p4P0 sgXp+1QeJKYOa5qeo4PATa3SS1ReaAfnM9e70SGuevTZdypffGnxm5deosON YnoLovzbfurghDcdXhyuPDJM5XOsLKaz8yYdHjgWPtOnzFba5fTRlw7TCy/g CpXnruZH16Lv0WF7kWBUP5X/Tzs2JsFTOrAeXAl1pPrlysfrOjfi6PBeQ7T8 BNVPmnsqsotf0SFXefeEKdVv/vsOlG1KpcP3rqlT0hyCtx+yb9MroYP5pPbZ 1VT/TrBSTnqU0+GxnlBBZz/BLy1G+jM+UHliG4j59VHzt7o6rvOFDqeOalTk 91D5PRkitrKLDuwUN79s6jy50NMS6viTDuE+a+lK7dR58O8S+YQBOnBeRUR4 txJ83TFRQ32UDl91tapVW6j9cC3eosQnAqIOnPT5Our8uzp4QWqZCJgYJ3fT McEO8zq/D2iKwOgbY+3ed1S/37h47YG2CFjvFwjMKiT44q2FO6L6IjBWceXS xlyC192RfSm4UwQiji9sbHtDcFrk1uYZRxGgxfvzXIii8sUMsN7gIgLX2n6/ KYwgWDy6ptvzgghsq4q89CeUOt+eWXLHr4jAxV7P4/b3qfP11Tlh7h0RWFQy 96rGh+D4jMcbe16LwI61K/CoE5XnOWutb+kiEPJp3Yt+eyo/O5QV67JE4Jer RFOTHcHvvr34U1AkAjdXGy59ZENw08JrHPJZBGzXz/iWHSCY17Rkx9ZhETha nLIkQY9g26Ee8zgtUfCPD/HNnuZiNb1440gdUUjpzy7KnuDigWuOuvfWiUI7 3dEmdYSLL0qxZa5sEoWzwue+BwxwcdCGya8HTEQh6pQib89XLi7wFz6+cEYU vDLGE1flUM93dW3n48miYOy3VmaJMxcHhwZZJKeKgkNe5vqyf7lYhG/YeCJD FPZOTkTbnuBinu5kxbuFolA7O7Lc+zD1fI5ZUZvzWRRyu77eNNvCxRUK6mvF uaIQcF493lKSmo+0wlTROjHYsWTqynAqBxOf/3qE1ovB6ImYD1cTOdh59Fud uaEYrLzud5f/OQefrH+U+GubGCgY+HvPhHHwvgeyxxYfEYNFl2S23PiPg9VF pN45XxaDNPatvnFjDm7kpd2SfycGcjZ2uQ+/sDE39fFxs1Ix8NL4kKxfxcZ0 q1WGARVioL7KPa6plI0h03RiokYMQOlr7O8MNk6zi3Co7xSDm23Fql1hbBz0 Xm1vwIIYeGf68upbsPF2v80yk8bioG6s6TDPGsY5NI+E+k/i8EHUTOxO0RDu 9/bhlNSKQ2pUrmN35hBmjj7US20Qh9ubhc11U4awd+ub8jut4nBat7r5fdQQ 3p7S/914UBzUvPp6Hl0awo17rRg5NAk4bDAzIK4zhEcebA18vEsCvJ6bdwP1 /qwtK+lsVykBEqu+WG09OYDJgykZ3ZZFoJfy31pJpz6sHhCw5ryzJMw8kOa/ bdKDe6za24x/ScKRIM89n9ideHdf00yOqxRElUd/xbot+Iq7vZMcRwqSal/W leypxaa5T0zkPKUBZt61BH/Jx9w/zt78U9JQvS7dXtT/KXr+1Sfb1WMxSCw+ crl41Xs067T55H9zi+HhFgMrek8DUpoPsXbzkoEnxTkMr6OtqH9XUDVNQBY+ LoQEZFzvQu+X1yDlIFlIOuDUYD3Zi5xpCQJL6XKg9PZFT15XP8qLW7b5fYgc aLy3dUhOGETLFrZfLQuTgwljSNV5O4iCbe0LcIQchJ+0Dkul7mNOCgn67x7L wWhtnW5UzSBSCF+hk/NcDiRrRXxVxwaRd4CWSmKGHITaylnNGQ4hY9e1vEEN clDyi4x9qh5CdYZGlQelGCBg9HLQjDWM7uZfmtu5mDKrfFagYxjt0k//x1CW ASbFdIdM6v5YqqMWoy7PACGNom0zY8Moaynt8oQqAywLKgYMpNgoSpilGbmW AaNW7rsu7GOj001n77UeYID4mJfil2I2UjWLL681Z4BGcBv/6wo26qj5Pl12 iAH0wk6Jm5/ZyOKDuX2KJQMa+k38ZVvZaHfB+i1XTzDgBe+tWs44dd+N5R9Z cp4BtzNYRw9qctC085NDJx8wYMlpr4iuIA566PVS+EYwA9q6ZbNPhHLQ8ruv i56FMmBtiKlvSxQHHUkuUm+PZMCXJxbrXsdzUOav9vEjsQx4+/ta6EgJB7n8 uyR871sGhH4v+TZIOKjL9hnLoJEBBdYW8Xf3ctHlc/GBR1jUeP/cjftjxkUS 11KNLrYwIImvgeFgwUWbnxa/ymhjgKKd30WVU1wU3dZ5UbuXAZ+TH75b5clF hy2VZdUmGHDWDqHkGC6qMos9Ii7HhOAwQ1OdQS5yrugrEWZSzmi9ZszhIvEN 2pp8Ckzo6VdVOjDKRQdVCmanlJjQfyg3wXyGi9o5jbFdGkx4LZVXPUcjiHtX aChLnwnl/RM+vcsJCv6771DaeibErrHeeF2LIF33sHdJG5mQm3fBXEqHoCvH VB8+28wE05Xacar6BPFpbtIL2MGE1Ds/YnuNCZKtPHfd6ggTdnv/4zprQ1D+ huxfhy2p+XTkf1Y4SZDVm1mzA8eYEPG10Vv3NEExYQHq222Z0M5T0LL/DEGa ds+rVtszwY0RfHj5JYKMFljSvJeYkH3r1Tf7IIK+uyt6z3kyIQ2HMEUfEOTT f6pv8goTfI41xyUFE/Shlps35M2ETYGNATURBB14SrNl+TJBrWVdTF4sQXYb jRITw5lAs1/jqJBJ0BlO7WRHJBMmbgyX3c4m6MLzE9ulHzNh1I3XozeXoBv0 293ez5iQMXe02a+IoKetnxQPJjDh4D2dAIsKgl7et3YOSGKCcMoSH/cPBKVs 5eS/S2FCwi3OZ98qggqSJS1WpDOhsTvL/F4NQS3/WQb/yWOCmWqX2AoWQZ2r B7//U8gEdYMO78lmgn52e612fEfNp4ZnY+FXgsb3xFQ3lDLBNjAmbHk7QZIK fQKJn5hQs+rL+7vdBDHqPA91fGbCovvP/EV7CVK+RXshVceEeo9HIbd+ErR6 aBXybmQCI3zX9UO/CDIpdP/PvJ0JNlZNCTfZBJm7ClT5dzIh1FE9NotD0FG1 SLl3P5jAE3Sio4NLkOPdgqzlP6n9e6u3THqUINcte/ls+pnQe3apjvIYQZ5j HWYhA0xwSXt+VXWcIF8rHu4cmwlrvy/rEp4kKEgi1OgfwgQWhE2xKYeWqwc5 jDJhXtblQNUUQc+1dmk2TDLhTfLhj6emCUr6/s1TaJoJJs9+9anMEPQ21LnS cJYJZeeGd7Aol8zet0v4y4SKApdPKnMEVaapZLTzyMMVbT92LuUau4wFSX55 cHPebrb9D0EsuW2mOwXlwcHmxsRHyu3VrKdXheXhaa9469Z5gnquOwy/pcvD WGv1fAbloXXTG/tF5WFYKtyO+Zeg0f47gYoS8pBvYSJ8ifJ0tOJXM0l52OnS MPyR8oJpqoa/tDxsXSQpKbVAkBA/ulgkIw8qk8TDjLJ4Xn35iJw8rKixZfhT ljlrJ7VcXh48DPfMZlBWVJk4Ya0oD7M9r5awKKs1+aUFK8lDqLXDder9HmkF MOYrVaj5GfirzFH+xzB579xSefj//xf+D0ojd/Q= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{0, 0}, Method->{}, PlotRange-> NCache[{{0, 2 Pi}, {-0.9999998830731719, 0.9999999999999918}}, {{ 0, 6.283185307179586}, {-0.9999998830731719, 0.9999999999999918}}], PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.5889443866389933`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "=", RowBox[{"{", RowBox[{"1", ",", "3", ",", "7", ",", "9", ",", "12", ",", "15"}], "}"}]}]], "Input", CellChangeTimes->{{3.588944539327656*^9, 3.588944551403585*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "3", ",", "7", ",", "9", ",", "12", ",", "15"}], "}"}]], "Output", CellChangeTimes->{3.588944552366699*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "[", RowBox[{"[", "2", "]"}], "]"}]], "Input", CellChangeTimes->{{3.5889445575049763`*^9, 3.588944582554967*^9}}], Cell[BoxData["3"], "Output", CellChangeTimes->{{3.5889445653715277`*^9, 3.588944583833083*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Append", "[", RowBox[{"x", ",", "4"}], "]"}]], "Input", CellChangeTimes->{{3.588944690502171*^9, 3.588944705318819*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "3", ",", "7", ",", "9", ",", "12", ",", "15", ",", "4"}], "}"}]], "Output", CellChangeTimes->{3.588944705957616*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"y", "=", RowBox[{"{", RowBox[{"5", ",", "6", ",", "8", ",", "0"}], "}"}]}]], "Input", CellChangeTimes->{{3.588944713081544*^9, 3.588944723999354*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"5", ",", "6", ",", "8", ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.588944725384019*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Join", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellChangeTimes->{{3.588944727643018*^9, 3.588944732573977*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "3", ",", "7", ",", "9", ",", "12", ",", "15", ",", "5", ",", "6", ",", "8", ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.588944733389296*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"matice", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "12", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "9", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6", ",", "8"}], "}"}]}], "}"}], "//", "MatrixForm"}]}]], "Input", CellChangeTimes->{{3.5889447532444963`*^9, 3.588944801661048*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"3", "12", "5"}, {"7", "9", "1"}, {"5", "6", "8"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.5889447881130447`*^9, 3.588944802147141*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[GridBox[{ {"5"}, {"5"} }]], "Input", CellChangeTimes->{{3.588944861496952*^9, 3.588944864281603*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "5", "}"}], ",", RowBox[{"{", "5", "}"}]}], "}"}]], "Output", CellChangeTimes->{3.588944865769372*^9}] }, Open ]], Cell[BoxData[GridBox[{ {"5"}, {"5"}, {"5"} }]], "Input", CellChangeTimes->{{3.588944872423435*^9, 3.588944875385964*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "5", "}"}], ",", RowBox[{"{", "5", "}"}], ",", RowBox[{"{", "5", "}"}]}], "}"}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.588944885433198*^9, 3.588944889201437*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"5"}, {"5"}, {"5"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.588944889612709*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"prepona", "[", RowBox[{"a_", ",", "b_"}], "]"}], ":=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"a", "^", "2"}], "+", RowBox[{"b", "^", "2"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.588944990857614*^9, 3.588945019199522*^9}, { 3.588945069500835*^9, 3.588945090468492*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"prepona", "[", RowBox[{"3", ",", "6"}], "]"}]], "Input", CellChangeTimes->{{3.588945097004456*^9, 3.588945112195478*^9}}], Cell[BoxData[ RowBox[{"3", " ", SqrtBox["5"]}]], "Output", CellChangeTimes->{{3.588945103695423*^9, 3.588945114627233*^9}}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.588944876894238*^9, 3.588944877849922*^9}}] }, WindowSize->{1920, 978}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, ShowSelection->True, FrontEndVersion->"9.0 for Linux x86 (64-bit) (January 25, 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Info3588950307-5154662"->{ Cell[4988, 203, 464, 11, 44, "Print", CellTags->"Info3588950307-5154662"]} } *) (*CellTagsIndex CellTagsIndex->{ {"Info3588950307-5154662", 31645, 857} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 169, 3, 52, "Input"], Cell[751, 27, 70, 1, 30, "Output"], Cell[824, 30, 71, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[932, 36, 117, 2, 31, "Input"], Cell[1052, 40, 70, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1159, 46, 117, 2, 31, "Input"], Cell[1279, 50, 70, 1, 30, "Output"] }, Open ]], Cell[1364, 54, 131, 3, 31, "Input"], Cell[CellGroupData[{ Cell[1520, 61, 161, 4, 31, "Input"], Cell[1684, 67, 92, 2, 49, "Output"] }, Open ]], Cell[1791, 72, 124, 2, 31, "Input"], Cell[CellGroupData[{ Cell[1940, 78, 140, 3, 31, "Input"], Cell[2083, 83, 88, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2208, 89, 116, 2, 31, "Input"], Cell[2327, 93, 73, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2437, 99, 94, 1, 31, "Input"], Cell[2534, 102, 74, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2645, 108, 117, 2, 31, "Input"], Cell[2765, 112, 87, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2889, 118, 138, 3, 31, "Input"], Cell[3030, 123, 127, 3, 30, "Output"] }, Open ]], Cell[3172, 129, 94, 1, 31, "Input"], Cell[CellGroupData[{ Cell[3291, 134, 106, 2, 44, "Input"], Cell[3400, 138, 70, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3507, 144, 150, 3, 31, "Input"], Cell[3660, 149, 112, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3809, 155, 125, 2, 31, "Input"], Cell[3937, 159, 70, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4044, 165, 144, 3, 31, "Input"], Cell[4191, 170, 102, 3, 55, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4330, 178, 121, 2, 31, "Input"], Cell[4454, 182, 86, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4577, 188, 118, 2, 31, "Input"], Cell[4698, 192, 89, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4824, 198, 161, 3, 31, "Input"], Cell[4988, 203, 464, 11, 44, "Print", CellTags->"Info3588950307-5154662"] }, Open ]], Cell[CellGroupData[{ Cell[5489, 219, 145, 2, 31, "Input"], Cell[5637, 223, 120, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5794, 230, 115, 2, 31, "Input"], Cell[5912, 234, 71, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6020, 240, 114, 2, 31, "Input"], Cell[6137, 244, 69, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6243, 250, 115, 2, 31, "Input"], Cell[6361, 254, 72, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6470, 260, 150, 4, 31, "Input"], Cell[6623, 266, 71, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6731, 272, 115, 2, 31, "Input"], Cell[6849, 276, 70, 1, 30, "Output"] }, Open ]], Cell[6934, 280, 162, 3, 31, "Input"], Cell[CellGroupData[{ Cell[7121, 287, 445, 12, 92, "Input"], Cell[7569, 301, 123, 2, 30, "Output"] }, Open ]], Cell[7707, 306, 127, 2, 31, "Input"], Cell[CellGroupData[{ Cell[7859, 312, 115, 2, 31, "Input"], Cell[7977, 316, 95, 2, 30, "Output"] }, Open ]], Cell[8087, 321, 141, 2, 31, "Input"], Cell[CellGroupData[{ Cell[8253, 327, 258, 7, 31, "Input"], Cell[8514, 336, 8654, 149, 232, "Output"] }, Open ]], Cell[17183, 488, 96, 1, 31, "Input"], Cell[CellGroupData[{ Cell[17304, 493, 313, 8, 31, "Input"], Cell[17620, 503, 8628, 149, 232, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26285, 657, 208, 5, 31, "Input"], Cell[26496, 664, 160, 4, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26693, 673, 145, 3, 31, "Input"], Cell[26841, 678, 96, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26974, 684, 148, 3, 31, "Input"], Cell[27125, 689, 170, 4, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27332, 698, 182, 4, 31, "Input"], Cell[27517, 704, 135, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27689, 712, 146, 3, 31, "Input"], Cell[27838, 717, 204, 5, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28079, 727, 408, 12, 31, "Input"], Cell[28490, 741, 686, 19, 77, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29213, 765, 123, 4, 48, "Input"], Cell[29339, 771, 163, 5, 30, "Output"] }, Open ]], Cell[29517, 779, 133, 5, 66, "Input"], Cell[CellGroupData[{ Cell[29675, 788, 257, 7, 31, InheritFromParent], Cell[29935, 797, 629, 19, 77, "Output"] }, Open ]], Cell[30579, 819, 330, 9, 31, "Input"], Cell[CellGroupData[{ Cell[30934, 832, 149, 3, 31, "Input"], Cell[31086, 837, 128, 3, 67, "Output"] }, Open ]], Cell[31229, 843, 92, 1, 31, "Input"] } ] *) (* End of internal cache information *)