(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 8.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 86653, 2264] NotebookOptionsPosition[ 80296, 2045] NotebookOutlinePosition[ 80837, 2064] CellTagsIndexPosition[ 80794, 2061] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ \:0423\:043f\:0440\:0430\:0436\:043d\:0435\:043d\:0438\:0435 1. \:0412\:044a\:0432\:0435\:0434\:0435\:043d\:0438\:0435 \:0432 Mathematica\ \>", "Title", CellChangeTimes->{{3.5581119220440955`*^9, 3.5581119384552984`*^9}}], Cell[CellGroupData[{ Cell["\:041e\:0441\:043d\:043e\:0432\:043d\:0438 \:043e\:043f\:0435\:0440\ \:0430\:0446\:0438\:0438", "Section", CellChangeTimes->{{3.5581104265030465`*^9, 3.5581104293110466`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"2", "+", "3"}], "\n", RowBox[{"3.5", "-", "2.8"}], "\n", RowBox[{"2", "*", "4"}], "\n", RowBox[{"10", "/", "2"}], "\n", RowBox[{"12", "^", "3"}], "\n", RowBox[{ RowBox[{"2", "x"}], "+", RowBox[{"3", "x"}]}], "\n", RowBox[{"5", "!"}], "\n", RowBox[{"Sqrt", "[", "121", "]"}], "\n", RowBox[{"10", "/", "3"}], "\n", RowBox[{"Quotient", "[", RowBox[{"10", ",", "3"}], "]"}], "\n", RowBox[{"Mod", "[", RowBox[{"10", ",", "3"}], "]"}]}], "Code", CellChangeTimes->{{3.55811044977825*^9, 3.55811050804426*^9}, { 3.55811056788587*^9, 3.558110616745078*^9}, {3.558110792167107*^9, 3.558110846377116*^9}, {3.5581108812587223`*^9, 3.5581108887935233`*^9}, { 3.558111104026759*^9, 3.55811110655396*^9}}], Cell[BoxData["5"], "Output", CellChangeTimes->{3.656669516800663*^9}], Cell[BoxData["0.7000000000000002`"], "Output", CellChangeTimes->{3.656669516800663*^9}], Cell[BoxData["8"], "Output", CellChangeTimes->{3.656669516800663*^9}], Cell[BoxData["5"], "Output", CellChangeTimes->{3.6566695168106627`*^9}], Cell[BoxData["1728"], "Output", CellChangeTimes->{3.6566695168106627`*^9}], Cell[BoxData[ RowBox[{"5", " ", "x"}]], "Output", CellChangeTimes->{3.6566695168106627`*^9}], Cell[BoxData["120"], "Output", CellChangeTimes->{3.6566695168106627`*^9}], Cell[BoxData["11"], "Output", CellChangeTimes->{3.6566695168106627`*^9}], Cell[BoxData[ FractionBox["10", "3"]], "Output", CellChangeTimes->{3.6566695168106627`*^9}], Cell[BoxData["3"], "Output", CellChangeTimes->{3.6566695168106627`*^9}], Cell[BoxData["1"], "Output", CellChangeTimes->{3.6566695168106627`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\:0421\:043a\:043e\:0431\:0438\:0442\:0435 \:0432 Mathematica", \ "Section", CellChangeTimes->{{3.5580257109903126`*^9, 3.5580257186303663`*^9}, { 3.5580654847368526`*^9, 3.558065489760053*^9}}], Cell[CellGroupData[{ Cell["\:041a\:0440\:044a\:0433\:043b\:0438 \:0441\:043a\:043e\:0431\:0438", \ "Subsection", CellChangeTimes->{{3.558025760570659*^9, 3.5580257921094804`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"x", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "2"}], ")"}], "^", "2"}]}], "\n", RowBox[{ RowBox[{"(", RowBox[{"x", "+", RowBox[{"y", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ")"}], "^", "2"}]}], "Code", CellChangeTimes->{{3.5580259729603105`*^9, 3.558025994722314*^9}}], Cell[BoxData[ RowBox[{"x", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"2", "+", "x"}], ")"}], "2"]}]], "Output", CellChangeTimes->{3.6566695168206625`*^9}], Cell[BoxData[ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}], " ", "y"}]}], ")"}], "2"]], "Output", CellChangeTimes->{3.6566695168206625`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\:041a\:0432\:0430\:0434\:0440\:0430\:0442\:043d\:0438 \:0441\:043a\ \:043e\:0431\:0438 - \:0437\:0430\:0433\:0440\:0430\:0436\:0434\:0430\:0442 \ \:0430\:0440\:0433\:0443\:043c\:0435\:043d\:0442\:0438\:0442\:0435 \:043d\ \:0430 \:0434\:0430\:0434\:0435\:043d \:043e\:043f\:0435\:0440\:0430\:0442\ \:043e\:0440", "Subsection", CellChangeTimes->{{3.5580257962434807`*^9, 3.5580258155094843`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Sqrt", "[", RowBox[{"60", "+", "4"}], "]"}], "\n", RowBox[{"ArcSin", "[", RowBox[{"Sin", "[", RowBox[{"Pi", "/", "2"}], "]"}], "]"}], "\n", RowBox[{"Log", "[", "E", "]"}]}], "Code", CellChangeTimes->{{3.5580258658350925`*^9, 3.558025917611501*^9}, { 3.5580260253451195`*^9, 3.558026042863922*^9}}], Cell[BoxData["8"], "Output", CellChangeTimes->{3.6566695168306627`*^9}], Cell[BoxData[ FractionBox["\[Pi]", "2"]], "Output", CellChangeTimes->{3.6566695168306627`*^9}], Cell[BoxData["1"], "Output", CellChangeTimes->{3.6566695168306627`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\:0424\:0438\:0433\:0443\:0440\:043d\:0438 \:0441\:043a\:043e\:0431\ \:0438 - \:0437\:0430\:0433\:0440\:0430\:0436\:0434\:0430\:0442 \:0435\:043b\ \:0435\:043c\:0435\:043d\:0442\:0438\:0442\:0435 \:043d\:0430 \:0441\:043f\ \:0438\:0441\:044a\:043a", "Subsection", CellChangeTimes->{{3.5580258175998845`*^9, 3.558025833387087*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]], "Code", CellChangeTimes->{{3.5580260078575163`*^9, 3.558026010993117*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]], "Output", CellChangeTimes->{3.6566695168306627`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " \:043d\:0435 \:043c\:043e\:0436\:0435 \:0434\:0430 \ \:0440\:0430\:0437\:0431\:0435\:0440\:0435 \:043a\:0430\:043a\:0432\:043e \ \:0438\:043c\:0430\:043c\:0435 \:043f\:0440\:0435\:0434\:0432\:0438\:0434 \ \:0441\:044a\:0441 \:0441\:043b\:0435\:0434\:043d\:0438\:0442\:0435 \:0438\ \:0437\:0440\:0430\:0437\:0438: " }], "Subsection", CellChangeTimes->{{3.5580262548523574`*^9, 3.5580262738219604`*^9}, { 3.5580263043043656`*^9, 3.5580263272051697`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"[", RowBox[{"x", "+", RowBox[{"y", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], "]"}], "^", "2"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"(", RowBox[{"x", "+", RowBox[{"y", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ")"}], "^", "2"}], " ", "*)"}]}]}], "Code", CellChangeTimes->{{3.5580252862214565`*^9, 3.558025297250658*^9}, { 3.5580254149838777`*^9, 3.5580254217854786`*^9}, {3.5580255337698746`*^9, 3.5580255753593645`*^9}}, EmphasizeSyntaxErrors->True], Cell[BoxData[{ RowBox[{"(", RowBox[{"1", ",", "2"}], ")"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], " ", "*)"}]}]}], "Code", CellChangeTimes->{{3.5580253120082607`*^9, 3.558025314644661*^9}, { 3.5580255881294537`*^9, 3.558025597699521*^9}}, EmphasizeSyntaxErrors->True], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Sin", RowBox[{"(", "Pi", ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"Sin", "[", "Pi", "]"}], " ", "*)"}]}]}], "Code", CellChangeTimes->{{3.558025324971863*^9, 3.558025330868664*^9}, { 3.558025601509547*^9, 3.5580256108296127`*^9}, {3.5580320129407663`*^9, 3.558032025108768*^9}, {3.5581113577140017`*^9, 3.558111360038402*^9}}], Cell[BoxData[ RowBox[{"\[Pi]", " ", "Sin"}]], "Output", CellChangeTimes->{3.558025333068264*^9, 3.5580320157331667`*^9, 3.558065542160462*^9, 3.6566695170306635`*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\:0421\:0438\:043c\:0432\:043e\:043b\:043d\:043e \:0438 \:0447\:0438\ \:0441\:043b\:0435\:043d\:043e \:043f\:0440\:0435\:0441\:043c\:044f\:0442\ \:0430\:043d\:0435", "Section", CellChangeTimes->{{3.558025687120146*^9, 3.558025694710199*^9}}], Cell[CellGroupData[{ Cell[TextData[{ "\:041e\:0431\:0438\:043a\:043d\:043e\:0432\:0435\:043d\:043e ", StyleBox["Mathematica", FontSlant->"Italic"], " \:0441\:043c\:044f\:0442\:0430 \:0441\:0438\:043c\:0432\:043e\:043b\:043d\ \:043e (\:0438 \:0441\:043b\:0435\:0434\:043e\:0432\:0430\:0442\:0435\:043b\ \:043d\:043e \:0442\:043e\:0447\:043d\:043e), \:0430\:043a\:043e \:043d\:0435 \ \:0441\:043c\:0435 \:0443\:043a\:0430\:0437\:0430\:043b\:0438 \:0434\:0440\ \:0443\:0433\:043e" }], "Subsection", CellChangeTimes->{{3.558026472025202*^9, 3.558026531632812*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"123", "/", RowBox[{"Sqrt", "[", "768", "]"}]}], "\n", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "12"}], "]"}], "\n", RowBox[{"Log", "[", "2", "]"}]}], "Code", CellChangeTimes->{{3.5580265523808155`*^9, 3.5580266226588273`*^9}}], Cell[BoxData[ FractionBox[ RowBox[{"41", " ", SqrtBox["3"]}], "16"]], "Output", CellChangeTimes->{3.5580266259972277`*^9, 3.6566695170406632`*^9}], Cell[BoxData[ FractionBox[ RowBox[{"1", "+", SqrtBox["3"]}], RowBox[{"2", " ", SqrtBox["2"]}]]], "Output", CellChangeTimes->{3.5580266259972277`*^9, 3.6566695170406632`*^9}], Cell[BoxData[ RowBox[{"Log", "[", "2", "]"}]], "Output", CellChangeTimes->{3.5580266259972277`*^9, 3.6566695170406632`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\:041c\:043e\:0436\:0435\:043c \:0434\:0430 \:0441\:043c\:044f\:0442\ \:0430\:043c\:0435 \:0447\:0438\:0441\:043b\:0435\:043d\:043e \:043f\:043e \ \:0441\:043b\:0435\:0434\:043d\:0438\:044f \:043d\:0430\:0447\:0438\:043d:", \ "Subsection", CellChangeTimes->{{3.558026664763234*^9, 3.558026680066837*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"N", "[", RowBox[{"123", "/", RowBox[{"Sqrt", "[", "768", "]"}]}], "]"}], "\n", RowBox[{"N", "[", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "12"}], "]"}], "]"}], "\n", RowBox[{ RowBox[{"N", "[", RowBox[{ RowBox[{"Log", "[", "2", "]"}], ",", "10"}], "]"}], RowBox[{"(*", RowBox[{ RowBox[{ "\:041c\:043e\:0436\:0435\:043c", " ", "\:0434\:0430", " ", "\:0437\:0430\:0434\:0430\:0434\:0435\:043c", " ", "\:044f\:0432\:043d\:043e", " ", "\:0442\:043e\:0447\:043d\:043e\:0441\:0442\:0442\:0430"}], ",", " ", RowBox[{ "\:0441", " ", "\:043a\:043e\:044f\:0442\:043e", " ", "\:0434\:0430", " ", "\:0441\:0435", " ", "\:0441\:043c\:044f\:0442\:0430"}]}], "*)"}]}]}], "Code", CellChangeTimes->{{3.558026728832445*^9, 3.5580267601104503`*^9}, { 3.6566690798726645`*^9, 3.656669096103691*^9}}], Cell[BoxData["4.438380194395248`"], "Output", CellChangeTimes->{3.5580267613116503`*^9, 3.656669099313696*^9, 3.656669517050663*^9}], Cell[BoxData["0.9659258262890682`"], "Output", CellChangeTimes->{3.5580267613116503`*^9, 3.656669099313696*^9, 3.656669517050663*^9}], Cell[BoxData["0.69314718055994530937448036556070007919`10."], "Output", CellChangeTimes->{3.5580267613116503`*^9, 3.656669099313696*^9, 3.656669517050663*^9}] }, Open ]], Cell["\:0438\:043b\:0438", "Text", CellChangeTimes->{{3.558026776100453*^9, 3.5580267766932526`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"123.", "/", RowBox[{"Sqrt", "[", "768", "]"}]}], "\n", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "12."}], "]"}], "\n", RowBox[{"Log", "[", "2.0", "]"}]}], "Code", CellChangeTimes->{{3.5580267934008555`*^9, 3.5580268330248623`*^9}, { 3.5581071267040925`*^9, 3.5581071282640924`*^9}}], Cell[BoxData["4.438380194395249`"], "Output", CellChangeTimes->{{3.5580268159428596`*^9, 3.5580268337892623`*^9}, 3.656669517060663*^9}], Cell[BoxData["0.9659258262890683`"], "Output", CellChangeTimes->{{3.5580268159428596`*^9, 3.5580268337892623`*^9}, 3.656669517060663*^9}], Cell[BoxData["0.6931471805599453`"], "Output", CellChangeTimes->{{3.5580268159428596`*^9, 3.5580268337892623`*^9}, 3.656669517060663*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "\:0417\:0430\:0434\:0430\:0447\:0430 1. \ \:041f\:0440\:0435\:0441\:043c\:0435\:0442\:043d\:0435\:0442\:0435 \:0442\ \:043e\:0447\:043d\:043e, \:0430 \:0441\:043b\:0435\:0434 \:0442\:043e\:0432\ \:0430 \:0438 \:0447\:0438\:0441\:043b\:0435\:043d\:043e \:0441\:0442\:043e\ \:0439\:043d\:043e\:0441\:0442\:0442\:0430 \:043d\:0430 \:0441\:043b\:0435\ \:0434\:043d\:0438\:0442\:0435 \:0438\:0437\:0440\:0430\:0437\:0438:\na) ", Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"[", RowBox[{ SuperscriptBox["23", "3"], "-", RowBox[{"3", SuperscriptBox[ RowBox[{"(", RowBox[{"117", "-", "48"}], ")"}], "2"]}]}], "]"}], SqrtBox[ RowBox[{ SuperscriptBox["7", "5"], "-", SuperscriptBox["5", "7"]}]]], TraditionalForm]]], "; \:0431) cos ", Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"319", "\[Pi]"}], "12"], TraditionalForm]]], "; \:0432) ", Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"83", "!"}], RowBox[{"111", "!"}]], TraditionalForm]]], "; \:0433) ln 2981 " }], "Subsection", CellChangeTimes->{{3.5580269013684735`*^9, 3.558026910229275*^9}, { 3.558026950804882*^9, 3.558027024670894*^9}, {3.558027072375702*^9, 3.55802717815932*^9}, {3.558027799772623*^9, 3.5580278194754267`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"23", "^", "3"}], "-", RowBox[{"3", RowBox[{ RowBox[{"(", RowBox[{"117", "-", "48"}], ")"}], "^", "2"}]}]}], ")"}], "/", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"7", "^", "5"}], "-", RowBox[{"5", "^", "7"}]}], "]"}]}], "\n", RowBox[{"Cos", "[", RowBox[{"319", "*", RowBox[{"Pi", "/", "12"}]}], "]"}], "\n", RowBox[{ RowBox[{"83", "!"}], "/", RowBox[{"111", "!"}]}], "\n", RowBox[{"Log", "[", "2981", "]"}]}], "Code", CellChangeTimes->{{3.55802694149168*^9, 3.5580269430984807`*^9}, { 3.5580271996405234`*^9, 3.5580272787169366`*^9}, {3.558027595116189*^9, 3.558027605958191*^9}, {3.558027643164197*^9, 3.5580276500749984`*^9}}], Cell[BoxData[ RowBox[{"46", " ", "\[ImaginaryI]", " ", SqrtBox[ FractionBox["46", "1333"]]}]], "Output", CellChangeTimes->{3.656669517060663*^9}], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["3"]}], RowBox[{"2", " ", SqrtBox["2"]}]]}]], "Output", CellChangeTimes->{3.6566695170706635`*^9}], Cell[BoxData[ FractionBox["1", "44682342944049099854590179054637611312231339786240000000"]], "Output", CellChangeTimes->{3.6566695170706635`*^9}], Cell[BoxData[ RowBox[{"Log", "[", "2981", "]"}]], "Output", CellChangeTimes->{3.6566695170706635`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"N", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"23", "^", "3"}], "-", RowBox[{"3", RowBox[{ RowBox[{"(", RowBox[{"117", "-", "48"}], ")"}], "^", "2"}]}]}], ")"}], "/", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"7", "^", "5"}], "-", RowBox[{"5", "^", "7"}]}], "]"}]}], "]"}], "\n", RowBox[{"N", "[", RowBox[{"Cos", "[", RowBox[{"319", "*", RowBox[{"Pi", "/", "12"}]}], "]"}], "]"}], "\n", RowBox[{"N", "[", RowBox[{ RowBox[{"83", "!"}], "/", RowBox[{"111", "!"}]}], "]"}], "\n", RowBox[{"Log", "[", "2981.", "]"}]}], "Code", CellChangeTimes->{{3.558027396574956*^9, 3.558027451112565*^9}, { 3.55802748170417*^9, 3.558027485026971*^9}, {3.558027582714187*^9, 3.558027583478587*^9}, {3.5580276571418*^9, 3.5580276586394*^9}}], Cell[BoxData[ RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"8.545189001055853`", " ", "\[ImaginaryI]"}]}]], "Output", CellChangeTimes->{3.6566695170706635`*^9}], Cell[BoxData[ RowBox[{"-", "0.2588190451025207`"}]], "Output", CellChangeTimes->{3.656669517080663*^9}], Cell[BoxData["2.238020511261445`*^-56"], "Output", CellChangeTimes->{3.656669517080663*^9}], Cell[BoxData["8.000014093678072`"], "Output", CellChangeTimes->{3.656669517080663*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\:041a\:043e\:043c\:0430\:043d\:0434\:0438 \:0437\:0430 \:0440\:0430\ \:0431\:043e\:0442\:0430 \:0441 \:0430\:043b\:0433\:0435\:0431\:0440\:0438\ \:0447\:043d\:0438 \:0438\:0437\:0440\:0430\:0437\:0438", "Subsection", CellChangeTimes->{{3.5580278410190306`*^9, 3.5580278603630333`*^9}, 3.558027925598905*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Expand", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "5"}], ")"}], "^", "3"}], " ", "*", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "-", "1"}], ")"}], "^", "2"}]}], "]"}]], "Code", CellChangeTimes->{{3.5580279443775353`*^9, 3.558028000960331*^9}, { 3.5581115420280323`*^9, 3.558111544992033*^9}}], Cell[BoxData[ RowBox[{"125", "-", RowBox[{"425", " ", "x"}], "+", RowBox[{"215", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"241", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"56", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"4", " ", SuperscriptBox["x", "5"]}]}]], "Output", CellChangeTimes->{3.5580279763477592`*^9, 3.558111549079233*^9, 3.656669517080663*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Factor", "[", RowBox[{ RowBox[{"x", "^", "3"}], "+", RowBox[{"2", RowBox[{"x", "^", "2"}]}], "-", RowBox[{"5", "x"}], "-", "6"}], "]"}]], "Code", CellChangeTimes->{{3.5580279989903173`*^9, 3.5580280219304776`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"3", "+", "x"}], ")"}]}]], "Output", CellChangeTimes->{3.55802802379049*^9, 3.656669517100663*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Together", "[", RowBox[{"x", "+", FractionBox["2", RowBox[{ RowBox[{"x", "^", "2"}], "+", "1"}]]}], "]"}]], "Code", CellChangeTimes->{{3.558028047778905*^9, 3.55802807946251*^9}}], Cell[BoxData[ FractionBox[ RowBox[{"2", "+", "x", "+", SuperscriptBox["x", "3"]}], RowBox[{"1", "+", SuperscriptBox["x", "2"]}]]], "Output", CellChangeTimes->{3.558028084111311*^9, 3.6566695171106634`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Apart", "[", FractionBox["1", RowBox[{ RowBox[{"x", "^", "2"}], "+", "x", "-", "2"}]], "]"}]], "Code", CellChangeTimes->{{3.558028107620515*^9, 3.5580281887093287`*^9}}], Cell[BoxData[ RowBox[{ FractionBox["1", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}]], "-", FractionBox["1", RowBox[{"3", " ", RowBox[{"(", RowBox[{"2", "+", "x"}], ")"}]}]]}]], "Output", CellChangeTimes->{{3.558028130443319*^9, 3.558028190113329*^9}, 3.656669517120663*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"x", RowBox[{"(", RowBox[{"3", "-", "x"}], ")"}]}], "-", RowBox[{"5", RowBox[{"x", "^", "2"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "3"}], ")"}]}]}], "]"}]], "Code", CellChangeTimes->{{3.5580282234349346`*^9, 3.558028269439342*^9}, { 3.5580654067368393`*^9, 3.558065418374441*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"4", " ", "x"}], "-", RowBox[{"4", " ", SuperscriptBox["x", "2"]}]}]], "Output", CellChangeTimes->{ 3.558028270063342*^9, {3.5580654119940405`*^9, 3.5580654198564415`*^9}, 3.656669517130663*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "\:0417\:0430\:0434\:0430\:0447\:0430 2. \ \:041e\:043f\:0440\:043e\:0441\:0442\:0435\:0442\:0435 \:0438\:0437\:0440\ \:0430\:0437\:0438\:0442\:0435:\n\:0430) ln ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{"2", SuperscriptBox["\[ExponentialE]", "5"]}], ")"}], TraditionalForm]]], "; \:0431) 1+cos 2x; \:0432) ", Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"x", "+", SuperscriptBox[ RowBox[{"[", RowBox[{"x", "(", RowBox[{"x", "-", "1"}], ")"}], "]"}], "3"], "-", "4"}], RowBox[{ SuperscriptBox["x", "2"], "+", "x", "-", "6"}]], TraditionalForm]]] }], "Subsection", CellChangeTimes->{{3.5580283074409485`*^9, 3.558028350933756*^9}, { 3.5580283861429615`*^9, 3.5580284766697764`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Simplify", "[", RowBox[{"Log", "[", RowBox[{"2", RowBox[{"E", "^", "5"}]}], "]"}], "]"}], "\n", RowBox[{"Simplify", "[", RowBox[{"1", "+", RowBox[{"Cos", "[", RowBox[{"2", "x"}], "]"}]}], "]"}], "\n", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"(", RowBox[{"x", "+", RowBox[{ RowBox[{"(", RowBox[{"x", RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}]}], ")"}], "^", "3"}], "-", "4"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "+", "x", "-", "6"}], ")"}]}], "]"}]}], "Code", CellChangeTimes->{{3.558032658992078*^9, 3.5580327899072995`*^9}}], Cell[BoxData[ RowBox[{"5", "+", RowBox[{"Log", "[", "2", "]"}]}]], "Output", CellChangeTimes->{ 3.55803267449848*^9, {3.558032726493289*^9, 3.5580327922317*^9}, 3.656669517140663*^9}], Cell[BoxData[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"Cos", "[", "x", "]"}], "2"]}]], "Output", CellChangeTimes->{ 3.55803267449848*^9, {3.558032726493289*^9, 3.5580327922317*^9}, 3.6566695171506634`*^9}], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"-", "4"}], "+", "x", "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], "3"], " ", SuperscriptBox["x", "3"]}]}], RowBox[{ RowBox[{"-", "6"}], "+", "x", "+", SuperscriptBox["x", "2"]}]]], "Output", CellChangeTimes->{ 3.55803267449848*^9, {3.558032726493289*^9, 3.5580327922317*^9}, 3.656669517180663*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "\:0417\:0430\:0434\:0430\:0447\:0430 3. \:0414\:0430 \:0441\:0435 \:0440\ \:0430\:0437\:043b\:043e\:0436\:0430\:0442 \:043d\:0430 \:043c\:043d\:043e\ \:0436\:0438\:0442\:0435\:043b\:0438 \:043f\:043e\:043b\:0438\:043d\:043e\ \:043c\:0438\:0442\:0435:\n\:0430) ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"6", SuperscriptBox["x", "3"]}], "+", RowBox[{"47", SuperscriptBox["x", "2"]}], "+", RowBox[{"71", "x"}], "-", "70"}], TraditionalForm]]], " ; \:0431) ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"12", SuperscriptBox["x", "6"]}], "-", RowBox[{"56", SuperscriptBox["x", "5"]}], "+", RowBox[{"100", SuperscriptBox["x", "4"]}], "-", RowBox[{"80", SuperscriptBox["x", "3"]}], "+", RowBox[{"20", SuperscriptBox["x", "2"]}], "+", RowBox[{"8", "x"}], "-", "4"}], TraditionalForm]]] }], "Subsection", CellChangeTimes->{{3.5580285062785816`*^9, 3.5580286014853973`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Factor", "[", RowBox[{ RowBox[{"6", RowBox[{"x", "^", "3"}]}], "+", RowBox[{"47", RowBox[{"x", "^", "2"}]}], "+", RowBox[{"71", "x"}], "-", "70"}], "]"}], "\n", RowBox[{"Factor", "[", RowBox[{ RowBox[{"12", RowBox[{"x", "^", "6"}]}], "-", RowBox[{"56", RowBox[{"x", "^", "5"}]}], "+", RowBox[{"100", RowBox[{"x", "^", "4"}]}], "-", RowBox[{"80", RowBox[{"x", "^", "3"}]}], "+", RowBox[{"20", RowBox[{"x", "^", "2"}]}], "+", RowBox[{"8", "x"}], "-", "4"}], "]"}]}], "Code", CellChangeTimes->{{3.558032577653664*^9, 3.5580326409272747`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"5", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"7", "+", RowBox[{"2", " ", "x"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"3", " ", "x"}]}], ")"}]}]], "Output", CellChangeTimes->{3.558032642721275*^9, 3.656669517180663*^9}], Cell[BoxData[ RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], "5"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"3", " ", "x"}]}], ")"}]}]], "Output", CellChangeTimes->{3.558032642721275*^9, 3.656669517180663*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "\:0417\:0430\:0434\:0430\:0447\:0430 4. \:0414\:0430 \:0441\:0435 \:043f\ \:0440\:0435\:0441\:043c\:0435\:0442\:043d\:0435\n", Cell[BoxData[ FormBox[ RowBox[{"\[Integral]", RowBox[{ FractionBox["x", RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{"3", "x"}], "+", "2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}], TraditionalForm]]] }], "Subsection", CellChangeTimes->{{3.5580286146673994`*^9, 3.558028672824209*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Apart", "[", FractionBox["x", RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{"3", "x"}], "+", "2"}]], "]"}]], "Code", CellChangeTimes->{{3.5580324345860405`*^9, 3.5580324468788424`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox["1", RowBox[{"1", "+", "x"}]]}], "+", FractionBox["2", RowBox[{"2", "+", "x"}]]}]], "Output", CellChangeTimes->{3.558032449936443*^9, 3.6566695171906633`*^9}] }, Open ]], Cell[TextData[{ "\:0421\:043b\:0435\:0434\:043e\:0432\:0430\:0442\:0435\:043b\:043d\:043e ", Cell[BoxData[ FormBox[ RowBox[{"\[Integral]", RowBox[{ FractionBox["x", RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{"3", "x"}], "+", "2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}], TraditionalForm]]], " = 2 ln (2+x) - ln (1+x)" }], "Text", CellChangeTimes->{{3.5580324641636453`*^9, 3.55803249074605*^9}, { 3.558032522944455*^9, 3.5580325380920577`*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\:0413\:0440\:0430\:0444\:0438\:043a\:0438", "Section", CellChangeTimes->{{3.5580321502675886`*^9, 3.558032151952389*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"x", "^", "3"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Code", CellChangeTimes->{{3.5580321725599923`*^9, 3.558032186053995*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVVGc81gsDdblJSleFrIh4aBjXKJT/kZCVPW9ZmWUUSWjamRlPRE8yMpId eZLslewSl4xkh4cyukbe3g/nd76c8TtfjsDFKwb29HR0dP/9xv9Z036qq3ra mMjoPxQmGil0cjLf5OIwlwwozOwqY6+rFDl29kS95FJBv15UDdtrmuLryjsu N0g6ePfvGRFaHTMhLs+W8YTLCFfPJv+RR+Un6PZNx23xm8NYSqpQZU2c6Jp9 629DssTnaxHvS+oUCH3bd1SbeBuY+Ise4FZSJRQ6pQtjuewgtn9dwIeqSxxS TM6qozhg8iO9IOtDE2JXDtPTJf5LaF0OOcy7ZkkscVyLF053xg1baojvEzti MGAw0oTkhoDozicJdZcJ25/ptXVGVyFx4m5DAoM70StuTlyId0fBUuJpRqXr hLb97vKlXg8sev1tsSHoS1Q/rpON5PIEdwkhZUW9S8h0excJn78OMX2LuR2M AcRzJnGxSooXFnh0qVvkYIIPX7NNhm7AWXYxmOFBGBF7/ZEQjd8H+ZxKE9vX ogjG3HMpITa+uHyQUrQ1F0P4jtLzHky/CR82Z1W3J2RinpOaQB27hb9IO5fV oxIIW13XffqkO3gdu8YYWpdE9AUJPph2vIs/HpXViCglE6Qh5201RvdQJj8i +4AhlbD2UTsTuXwPakXvhF+ypBNJbAJ+5vF+uK7fa7iBDOJjwXql8Al/MMmr 204+ziJ2a33aWOz1R33w+dUFwRwiwC/cO4wrEB867BUMqAVEJa/DK5PyQJgH ziV02RURP8uUlgTPB8E+5sZjesaXhMv88pU3lGBMK3gHrJJfEZmhnXkhiiEg rYjtlAukEiNCL74ZDoUgwurvi2tR5YTReWvHWf5Q2Pk+rd/8r5KIWlHIoFaH Qifj2evBvGqiOYb9a6BNGFQChnnW5moIxeYWywPp4QiFmpDTk3rC2zaDMn0m Agp5e3i9WRqJ4l93+0vHIhAmQa+sHNVEkGRlTXRIUWiPjnnjV9dCWHf+ReZu ioLwVod1qXcr8dh5pmvC8QEmUzx6+ZXaCaaujswqo2jkt++ZD2PoIjL43jYI Z0SjvG5qsIChm1B2yRkLX45Gv82e+/ksH4hb24MEzeJjUC26emEVPQSXscfp yokYHOcKLExx+kS8SrOyFjoRCyFletbRx73EgqJC8kJvLFpb3VW+CfYTdp40 rlAuMjYKfSu1qMOENEOsb/FVMpLzbsVv5o0Q9LEyAwNNZOia7WZbDP5CPC3w oYh7PYTE+b7UZzpfCTeCd9O07SFqQ6f0UxXHiFNtlRZ+QvHIKV/bLi0zTvTP MPB/7I6HfufHhii5SSLbJ/Pu5uEEuIZ7uj5UmyJuMGmMkPwSkLPc8E/OhWmC jRSV6iPxCGcCxdS8U78RujacQvwRiaCmzkf5qi8QfAvlgepfE3GD08XManGB mL1jMe6ukITwfR6B9cmLRBglLbN+KglcrrR07e0/iPreY4cvq1LgGRZvtcG6 QsQ5dITGUSgg04ESMbxCXFx2n6n4QUFXFv9NjperxNbeshd/pT3BppVNleGl /wgFndPipb+SMWbYVs3LtkkwDX6NGjJ+CrIEn5vgrl9Er3MwbXveU4hOm2wm 7dgiyuvtzfLEUnB04kVhdBgdzEZzuOg+p6BpPzrYqfSoOrzxjrw9Ffec1y5Q NRlAcj/ne1g6FZGBfut6IwxY3qL1G4SlondxqNyfbRtiD8hSMuTScENE06Mi dTvW7IK1FezSIM7WW/pVmwk2ub0b7Q/SkEDZnqO4zgTJk74WPyfSUO+MpSwb ZrSZVfFpPUxHu/ttHDFhARNZI3Vh8RkazjrGn/m+B+tyX9ZTuTOwtltnI/v8 XswPepsYnsnA44GpqazGvfggkr3zFTkD3SrduXdS9yH5DaPXzROZ0HiYpDhx mR0yX+s0GW9nQY1f2lNPlwsi989nlGVkYW+poHP1By5wi/3YcmrPgoyu8Jl1 c25seQmWvufPhpze+uygMw9amP34Y2qzYV/HGpyXcQDWUsQSD1MOsgpCrdgU BGDY26PTJpmD0//e9roQLgC1W67P75jn4PafR1+kDQrgaCPF8ktODl5j45FE kCBWzNebM8+9gKFTZKnXyCFE+FGf/B2XiwhfBud970i4S9L7OfomF6przldX jojA4/2kAXksFxzrFUoLkSIwZd/PtCqbh2ErO1dxU1EIPr/uUdGXB+GeAWG6 1cMo65Q6e5avAPMOjBEGrmKImp5VP6ZWgPXsUOqeYTE40Gdp7nErgEtrefiS vjg4ZHh0Bt4WQPY//ZUjJyXw5r1fTpl4IRzO1zTWREqCR+JykVZ7IYL3FmeS w6QQfPKsFDFaCJ7Eb8+mWqXw/azQS8mVQszFdXP0/yWNFuuhEna+IgiGVCo+ SpCGb6wBddi1CL/eZSw8zJdB/7JC1TWWYjD8cCmQXz8ONXpOJQeBYtQmMPJU nD2B4t3L1WayxVCVeZY0ST6BMJGCWkWLYtxYpqs89bccFMwPNW7PK0blr965 H+7ySKzY2fZY+yWMLcteybGdglnA5/668BIsuoXtSFxQAusI6ZhjagmOof2N Cek03p1yv81cVgKrJerToAunobCy7aD+aAmEOB165VpOg+eShP2QXClioozo 6V8oY0jHn/ZzvBRH/I+JhvirwI5b9E9xpTIUDnLXPI5QB+8ND+Mu4zKMW8vk 23epo+dDRaancxlWeFmeFXBoQC1SX+NNfBk4NYcDG9I0IEJ3M0p9rgzdNSf3 M9ZoYma8jdM2iQozj7vWyhzncKXomtijpde4yamscW2fPuZPffnwjqkcPZ02 ia4n9eHSrOO7zluOAywhfJm2+nAaPtxkqVqO/axj97tL9GHNMmItHF+OZtkV Ib5/DKB3SZtcfOINWgtninMKDSEpILze6lsBkW8x0zNRJsjPjU39FVUBdg9z 0x1VJjgmR6cumV6BNPfj9C40E4jqDpDj3lfgyL9Snb/0THHwdoz4P7xvwax0 hmy13wx7/t20mXz7Fi0HpJZPFJnje/Sn5j/+qML35IbBh9wWqHApwhhHFZ7V PK25aGaBEPWIV43HqjD38uxYcLwFeOmUn4WbVWGPyPOBnn2WUL2Sd5e9sApZ JC3Nh3ut0EpSfkyWqIbj6elFx2hrHNzGZZA9VI3Q4/tWF6ovYtu14MjE6Wps rpI/Bo9fxMzIj+awpWo8O8gnqs1si9KKdrgy18C3jDvX3sgWmp6BYlLHa1B+ OTSgd8YWnl9pTBWRNXCxTdHpOmiP5prGqo5TtUi51am+VOSIzNaNsciztYjI 0zafHXBEUK8Us7ZBLcrmlQfYGZ2gPJds1OxYi6jAvqzNf5xQwXljujq2FoJS KjGHtl9C4RWRfcVTtXCV3toz6nQZjw7cdyCT69Beyyq1bOAKL9HKcIOndeDv N6o0DHCFsfRSIWtOHYw5ZywmX7pir4b1ekRVHWRmlbXy2d0Q4SkXHTRTh8fC mrsqB9xw7/3Uay+lenQS6ppbcldxyUeDxXy2Hg4DgbGTX92Rw7PHwnKlHoee vlfM3nTH7Nu+XFu6BqjHTcX57feAG72TthtbA0wmOq7c0fKAZ3hweMCpBgwc uSeZVuKBu0/qduRHNOBSUyOJEn4ND2sUGRnEGqHCN+2eq30dNTuktnJdm2BX 7dTffcAHokaSZWHeTRgOuRbYo+SD6GTxK04BTXg0oZj909YH1tJHhw8lNmHr iGxiSo4Pfl0Qqkqqb0ISZ3aDt7wvFAo57t7naUZ/u/tVU4ubKDFZ/2X7rhm+ 4yTtE5W3kZle/4tbuAV6PUb3x6/54WqQ0RdItIB7w/qn4n0/nHQcq7OTbwGl l0cqk+KHziN/huafa8FSIxtPZoMf/is6s0/ZqwW+hLGbHac/tKtrRS41taBP m89zpNofPz5X65Vdeg/xRqKNji8QShxv0wzzW6FKEpWXZw6BWNNnauORDhz3 9/DuiY7ERyXD+efznSAdDT0XtBILF2bn7h7JboRkuBfZBSTgfZ/p291RH+Bt SrYpkn0CQzWzL2NjHzG4eTWvozMVx1PCTVOEPqEs+Py2CJkMjPyK++h0txcu NNGvjKbPMa7Rkc5R1weJtIJjkVl5KEwc9ukS6EcH2vj1f/9qxn2G0MO+A7jX vvhMS7kEy7b/zDi8+Qw3tXO2LYfLsFMl2KBo/xBMRd7RnlPKcYt1fNeXC8Mo VVMV1D9YiV2VR+l6z40gUe2TysZcNRS9dDfr1kZgdqfghBZ/HSjPItIPUb6g sTUiZcuoAZbGMm07tEZB+7vLPm66CaU99nGVK6OYk7fX+JbeAvnWQvqJ+K9Y i9B2t7Fow0FVh+U4lTFo8EpYjCl3QlZGNqZkYgzmVXMSHj1dGP4e+S49aByK bkfv+Xp/wKy0fhCX1ARYrDZHzc73gPRNbOaPDxPY+bI6glu+F/VC17uv+k2C bkWsItHiXzz42GNrIDSFJDOvJd2bA6AZVsfQ109B8/v83OecQRQbs5+Rd5/G Gh15rzL7CNLbAp6M7p2B3qOTW366X7DadOHm3toZqOoOurwoHcVITNUyq9s3 kLsV98eLjGGl6ySX/+5ZkBQluOxixnGVLFjtUzGLNxcoErbHJrG/TZB1zHIO RV6Shbsqp2DYk7vB+2sOjiyGlYzmM/huleryOWcecmSBvyhHZlFlXRC0W5sG oX1scwu0OZR3uGgN6dBgmDgnzPBzDq+II3vy9Wnw1NnWzUE3j1zeDMo5UxqW UzwDlVnnkdSX9DLiIg3XHH8av5Ccx3W94C/MPjSo3q5urnWfx1ElC8XtmTTI jBV/2rE8D1IBN0NvNg3fEmbKNDfnIcjX15z5goYrJuGskdto4NwwMFIrokFN N1KUg4MGRqq6c1AFDWWFcqvyJ2j4IiGTyPCBhhBZ82PNv3s+Jy9afuih4axO bdxBfxr6WAqE0vtoqB1+7ukbRkP7t8OFykM06Df7pEs9pqEii7/Jb/r3Psla asnvXCrHYIT+LA1iD+ppnA00vAxKMhCg0VB8QC/1ThsNObbsQ9VLNCgL3/fU +Z2T0d2dHr1Kww7tG/HUCRpSTkdfsl6j4eemp7TQbx+l8JyE5CYN32PStGJ+ 6xL4dy5vbdHQZSkw/H/+HwnxijY= "]]}}, 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}, PlotRange->{{0, 1}, {0., 0.9999999387755115}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.5580321891583953`*^9, 3.6566695172806635`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RadicalBox["x", "3"], ",", "x", ",", RowBox[{"x", "^", "3"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Code", CellChangeTimes->{{3.558032197847597*^9, 3.558032229172402*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVkHk4FPgDxtFupqK0XTupnE0HQ0SLfvXWT+lQSuTY5AzbIjYRW+Ro2DYp RzpMKIYoDSnJzVgScs64b4YZw3eTo8219o/3+TzP+7zv+8erYO9+xlFCTEzM b1H/8bjjcH2x4Oz+qRZKroSDE4Zemdl3U7UwIF6anqWfifUruOFZ1EOYW6vE v1j8Fu8L/V2v0oxQXD0sqcPPgZruWtYTqilavpyXeO+cB7E1gqgFOUuM2V/f 6skoQL2oIMiOZo3WzUmxM9ZFMHaozLGLsQPl6RubPcHF0KvbnRFJvQDD8cCc J/olUNoXl8JhOuERLYx1f6IEUmmU+Am5i5DZKe/W97AUncGdd8xol3C6y8NK g8OBw9fEUo6pB2zPPaDNG5ahWc1yv1XMb2itZFHGa8pQHMvRvkO9gi9mozJW xX9Bq8Enc+s5L/jo7qyU1CxHKkWNXsj0hucp7n2T+HJEej1UJnK+8HAM+Wp6 qQIOp9zWGNP8MTd72ZfO/4AWhuJdgfMNRIhX+ATuqwSty+X7EtMAlBrFzvwR WYnHaxUCLWMCsdTsp0n9PR8RHHjb50/qTSTwQg0znKtQuMkp2yz3Jna6ZWt8 n1GFr+8OTCieY0Ch5EHm0FQVXMcm3fOYISj9lryGGVAN03O2ziK5W8j9IJ7o wqgBTVvbzIgWDk3urskJ61rY1q2K3lgRDnp6O90iphaxLsJ6vvNd7DO4UD5T XQtKfW1ykek9mFp4Ra7cVIfrkgxFi5gIJH1h2uwOrsOFK4R6ixqNEQneP4/1 67F7SeTvrz2ikTS+MtvFqh4SkVrt7RXRmFD3ODZ1pR7xbF+mmvd9pLcpBhxg 1aNNuESuqSEGe6UiU1olGnDK7kdlubBHuKk+dN81qwF6RgfV3s7H4cjPB90o 442gdPaHd52NB7cy73Dqd01odgkhkunxiClmv962oQm5ZY4W6fQE0P1Kcov2 NsGiL40q1pGAuctKqa7BTYjcrM1k6TzD09jxbDVpLijRx57+/TkJjPkL+RbS PMzo9M483chCI7sg+IEsD2OdPmYm+izoMKeXlu3goXHb8xXZ0SywCuy3Dx3m IS5vqfe1n5LByGwaOefHg1Y/5/hSvxSEbp/NVxXwYKu5f0KWkoYhV+mUlLfN eFeneeTIFjZ83jdsydnRinCB6KiqARupxxesrmi1wkki5fjqS2wEvG/z24ZW rNeSNWovYEP30/k3l01bkVcVmPZOLQMaEYKFOP9WyKr/mmn4KQNe5EmydX0r 2ib1ijylX+PZSdWPIx5tsAjuaOPcfgMLbYUendh2uGd60h9OvMeqhm1Odc2d GL/H+yAuXoTNpwt5G9O68aGkvKj2f6UYoJo5v8juwUXfY9KWojLo0HUlt9/o RckyzYWXbhWwNCuw0lPpQ3Ji2fzGrR9Bc3bacrWlDwfWFzwzeVWNtSd0PNLc +0Gv6Mgp31kLjdKP3Vdn+tF0wGQsdawOanT95zN/DsB1uUsDd1cDlL/p0lSX D6KqxbxgZXgjPou/ORJ9ZxAmBha9AwNNGPW/mMmh8LEn4bZ5gjIPblnap+a8 +eiZj2r65UYzdisH6XwR8DF4rDZxPacFW0+MOJsaDyHjUbdvvUIbpkJL9noW DIH1x5JbO35vh9uKNaqzSsOYdPhZ6JTXgUn20KG0gGGsOBRyJnNDFz5uZurR +oZxXWZQqteqGybpqV5hegJIFaqINZ9c/EX23UNRuAD7vE/Ncb71YLvvFiuZ YQGYSWGJSsxe3Gi/MaWkK4T1Wa2aZYZ9qKAW6baHC/GW6xhVONWHYGNh/ESP ELrVGRL8mH7oxya316iMQP6w02TUoQFwm+TTNK6NQFtLO+INfwA8cxjlcEbQ PX6nMpExCKlL4e9+WSaCaLcxg6rJB0fJ0D7URATaCF0o3sjHqpvb2swfiFCm 7NXgETgEqUOsvVe7RbjbxHU4ozyM6QE/p3sKoyAmxRESZcPgJPQmwW4Ur8+u 09f9TQALpyFFBdYoEmuCn/T9IERotlu7c/8opiusrv1QKgQ7wsC1bOsYeiKK JmUujcBh1r690XEMU/V7qUErRYhXUducnDAGj2jFYt98ERS8jgZd7h7DhhpF mQHrUXjrsFR3UQlMuC9nN82PQk14XXL+NMG4zVPXjrQxXMtPKX8RRlBky2as PEFA4ka+i+IQ5Na6GnYZEUxvcPcPKSPI3r9z9StjAjdLG4HvXwQvN7GYJ80J RKPhUbYVBI9bHmeF2RPsOu6sS68i8Dod0rvclyAwuK+a00CgcuD8PslkAse7 6xT5vQQ09sYlzc8JAh7a1TT3EShuafmQ/IJAScPm18p+gh9nz5gaZBJ0hF71 fTlIsDTnqAsjn2AZMRf9JiDoVdd6tKSRwEiBTfv292Iu7rN1I5dAnrJ6TPiZ oEWarZzYQqAsb5DSPk7waWRHxv+7CHh6miR/giA/Ra4icHFnv90Jrv9Xgpz1 nWHGIgJT2SAV938IshiPzygQAurzWE+bbwRpDuu6ihd72wODWjFLwGpoSLw3 TfCVmEyrzxEkHLx30XYxd9N7taT8PAEz46T6rkW/VbmAIrNA8EBuxeTCIkOX W87+x38BDQL+OQ== "]]}, {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxFxXss1AEcAPDDVnlOltPPjOiyYWKcNhWpRNJV7oiaZF7LKFq0rtqadJY8 IlbRaXROJXMnKpXH4eZUdJw7brrunM77cjHHZh7VH77fPz77OMal0RMNSSQS 7Z//n0icGhBMR/hvPll/Nk5FUA9tTjaVFTYSgfBe3x3cCiIc3t/vzX9EJMCC Z10+BUQGnJ2Vd+MBcQ9OyNARuUQpvK00pOrPfDX8od8rONieB0dlK0a68prg tIZr7k8XP8ILRUM9BgbtcE9Hd7v4YCeczAwxP6cVwh3GXht1l0VwDUe4brvn KxxAbn3BqO+F3UWK5m5XMSwNYMy9nuuHU01SJDJPCfxNHtlqUTgIM4Ki1BqN FN5XmRdZSRmCR9dLpJfuDMPjIWIOuUsO88tUzAHHEZh73yjX5eYPWB9/fibp swI2DcyhN9go4duW42bqaBVs1uZGGqaNwn7XT691reDs6nzObrYajomg9hmH jsHvZIklbUu4by/fcOLxL3jXsSR9SaAG9qH6FDdN4KqFgi8c1jis9Q5jEV4T sPOs+4zBIC6kZErSsybhh1JZPJ0yBesYgmJDIf42wvqo79VpmNOXXTFmNQMv i6JvWXXio8Xtessrs/DSwAHiroUWTi91EjBbcJs+J0tNzG+YIatbtVvHFy5W pSpq5+D2WB7L4qQO/iRODVWewt/7u26vD8Pr7LhsWiReLi9vzI/DM8/kqE2Y uFvABb+tNbgzz9Zo+BXuZC/vqXmD71ylhwc14Fuaj6ewWnC1B7XMaBBXPJ+P GZThcnMehSPHv8+68I8o8ZaXDqKsabyZ/DM/TIs3ssrpjjq8Nt5aKVjEuRIJ p2gZrzxclBy7grP5NA/PNfyJg6l+YwP/CxUIhds= "]]}, {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVVGc81gsDdblJSleFrIh4aBjXKJT/kZCVPW9ZmWUUSWjamRlPRE8yMpId eZLslewSl4xkh4cyukbe3g/nd76c8TtfjsDFKwb29HR0dP/9xv9Z036qq3ra mMjoPxQmGil0cjLf5OIwlwwozOwqY6+rFDl29kS95FJBv15UDdtrmuLryjsu N0g6ePfvGRFaHTMhLs+W8YTLCFfPJv+RR+Un6PZNx23xm8NYSqpQZU2c6Jp9 629DssTnaxHvS+oUCH3bd1SbeBuY+Ise4FZSJRQ6pQtjuewgtn9dwIeqSxxS TM6qozhg8iO9IOtDE2JXDtPTJf5LaF0OOcy7ZkkscVyLF053xg1baojvEzti MGAw0oTkhoDozicJdZcJ25/ptXVGVyFx4m5DAoM70StuTlyId0fBUuJpRqXr hLb97vKlXg8sev1tsSHoS1Q/rpON5PIEdwkhZUW9S8h0excJn78OMX2LuR2M AcRzJnGxSooXFnh0qVvkYIIPX7NNhm7AWXYxmOFBGBF7/ZEQjd8H+ZxKE9vX ogjG3HMpITa+uHyQUrQ1F0P4jtLzHky/CR82Z1W3J2RinpOaQB27hb9IO5fV oxIIW13XffqkO3gdu8YYWpdE9AUJPph2vIs/HpXViCglE6Qh5201RvdQJj8i +4AhlbD2UTsTuXwPakXvhF+ypBNJbAJ+5vF+uK7fa7iBDOJjwXql8Al/MMmr 204+ziJ2a33aWOz1R33w+dUFwRwiwC/cO4wrEB867BUMqAVEJa/DK5PyQJgH ziV02RURP8uUlgTPB8E+5sZjesaXhMv88pU3lGBMK3gHrJJfEZmhnXkhiiEg rYjtlAukEiNCL74ZDoUgwurvi2tR5YTReWvHWf5Q2Pk+rd/8r5KIWlHIoFaH Qifj2evBvGqiOYb9a6BNGFQChnnW5moIxeYWywPp4QiFmpDTk3rC2zaDMn0m Agp5e3i9WRqJ4l93+0vHIhAmQa+sHNVEkGRlTXRIUWiPjnnjV9dCWHf+ReZu ioLwVod1qXcr8dh5pmvC8QEmUzx6+ZXaCaaujswqo2jkt++ZD2PoIjL43jYI Z0SjvG5qsIChm1B2yRkLX45Gv82e+/ksH4hb24MEzeJjUC26emEVPQSXscfp yokYHOcKLExx+kS8SrOyFjoRCyFletbRx73EgqJC8kJvLFpb3VW+CfYTdp40 rlAuMjYKfSu1qMOENEOsb/FVMpLzbsVv5o0Q9LEyAwNNZOia7WZbDP5CPC3w oYh7PYTE+b7UZzpfCTeCd9O07SFqQ6f0UxXHiFNtlRZ+QvHIKV/bLi0zTvTP MPB/7I6HfufHhii5SSLbJ/Pu5uEEuIZ7uj5UmyJuMGmMkPwSkLPc8E/OhWmC jRSV6iPxCGcCxdS8U78RujacQvwRiaCmzkf5qi8QfAvlgepfE3GD08XManGB mL1jMe6ukITwfR6B9cmLRBglLbN+KglcrrR07e0/iPreY4cvq1LgGRZvtcG6 QsQ5dITGUSgg04ESMbxCXFx2n6n4QUFXFv9NjperxNbeshd/pT3BppVNleGl /wgFndPipb+SMWbYVs3LtkkwDX6NGjJ+CrIEn5vgrl9Er3MwbXveU4hOm2wm 7dgiyuvtzfLEUnB04kVhdBgdzEZzuOg+p6BpPzrYqfSoOrzxjrw9Ffec1y5Q NRlAcj/ne1g6FZGBfut6IwxY3qL1G4SlondxqNyfbRtiD8hSMuTScENE06Mi dTvW7IK1FezSIM7WW/pVmwk2ub0b7Q/SkEDZnqO4zgTJk74WPyfSUO+MpSwb ZrSZVfFpPUxHu/ttHDFhARNZI3Vh8RkazjrGn/m+B+tyX9ZTuTOwtltnI/v8 XswPepsYnsnA44GpqazGvfggkr3zFTkD3SrduXdS9yH5DaPXzROZ0HiYpDhx mR0yX+s0GW9nQY1f2lNPlwsi989nlGVkYW+poHP1By5wi/3YcmrPgoyu8Jl1 c25seQmWvufPhpze+uygMw9amP34Y2qzYV/HGpyXcQDWUsQSD1MOsgpCrdgU BGDY26PTJpmD0//e9roQLgC1W67P75jn4PafR1+kDQrgaCPF8ktODl5j45FE kCBWzNebM8+9gKFTZKnXyCFE+FGf/B2XiwhfBud970i4S9L7OfomF6przldX jojA4/2kAXksFxzrFUoLkSIwZd/PtCqbh2ErO1dxU1EIPr/uUdGXB+GeAWG6 1cMo65Q6e5avAPMOjBEGrmKImp5VP6ZWgPXsUOqeYTE40Gdp7nErgEtrefiS vjg4ZHh0Bt4WQPY//ZUjJyXw5r1fTpl4IRzO1zTWREqCR+JykVZ7IYL3FmeS w6QQfPKsFDFaCJ7Eb8+mWqXw/azQS8mVQszFdXP0/yWNFuuhEna+IgiGVCo+ SpCGb6wBddi1CL/eZSw8zJdB/7JC1TWWYjD8cCmQXz8ONXpOJQeBYtQmMPJU nD2B4t3L1WayxVCVeZY0ST6BMJGCWkWLYtxYpqs89bccFMwPNW7PK0blr965 H+7ySKzY2fZY+yWMLcteybGdglnA5/668BIsuoXtSFxQAusI6ZhjagmOof2N Cek03p1yv81cVgKrJerToAunobCy7aD+aAmEOB165VpOg+eShP2QXClioozo 6V8oY0jHn/ZzvBRH/I+JhvirwI5b9E9xpTIUDnLXPI5QB+8ND+Mu4zKMW8vk 23epo+dDRaancxlWeFmeFXBoQC1SX+NNfBk4NYcDG9I0IEJ3M0p9rgzdNSf3 M9ZoYma8jdM2iQozj7vWyhzncKXomtijpde4yamscW2fPuZPffnwjqkcPZ02 ia4n9eHSrOO7zluOAywhfJm2+nAaPtxkqVqO/axj97tL9GHNMmItHF+OZtkV Ib5/DKB3SZtcfOINWgtninMKDSEpILze6lsBkW8x0zNRJsjPjU39FVUBdg9z 0x1VJjgmR6cumV6BNPfj9C40E4jqDpDj3lfgyL9Snb/0THHwdoz4P7xvwax0 hmy13wx7/t20mXz7Fi0HpJZPFJnje/Sn5j/+qML35IbBh9wWqHApwhhHFZ7V PK25aGaBEPWIV43HqjD38uxYcLwFeOmUn4WbVWGPyPOBnn2WUL2Sd5e9sApZ JC3Nh3ut0EpSfkyWqIbj6elFx2hrHNzGZZA9VI3Q4/tWF6ovYtu14MjE6Wps rpI/Bo9fxMzIj+awpWo8O8gnqs1si9KKdrgy18C3jDvX3sgWmp6BYlLHa1B+ OTSgd8YWnl9pTBWRNXCxTdHpOmiP5prGqo5TtUi51am+VOSIzNaNsciztYjI 0zafHXBEUK8Us7ZBLcrmlQfYGZ2gPJds1OxYi6jAvqzNf5xQwXljujq2FoJS KjGHtl9C4RWRfcVTtXCV3toz6nQZjw7cdyCT69Beyyq1bOAKL9HKcIOndeDv N6o0DHCFsfRSIWtOHYw5ZywmX7pir4b1ekRVHWRmlbXy2d0Q4SkXHTRTh8fC mrsqB9xw7/3Uay+lenQS6ppbcldxyUeDxXy2Hg4DgbGTX92Rw7PHwnKlHoee vlfM3nTH7Nu+XFu6BqjHTcX57feAG72TthtbA0wmOq7c0fKAZ3hweMCpBgwc uSeZVuKBu0/qduRHNOBSUyOJEn4ND2sUGRnEGqHCN+2eq30dNTuktnJdm2BX 7dTffcAHokaSZWHeTRgOuRbYo+SD6GTxK04BTXg0oZj909YH1tJHhw8lNmHr iGxiSo4Pfl0Qqkqqb0ISZ3aDt7wvFAo57t7naUZ/u/tVU4ubKDFZ/2X7rhm+ 4yTtE5W3kZle/4tbuAV6PUb3x6/54WqQ0RdItIB7w/qn4n0/nHQcq7OTbwGl l0cqk+KHziN/huafa8FSIxtPZoMf/is6s0/ZqwW+hLGbHac/tKtrRS41taBP m89zpNofPz5X65Vdeg/xRqKNji8QShxv0wzzW6FKEpWXZw6BWNNnauORDhz3 9/DuiY7ERyXD+efznSAdDT0XtBILF2bn7h7JboRkuBfZBSTgfZ/p291RH+Bt SrYpkn0CQzWzL2NjHzG4eTWvozMVx1PCTVOEPqEs+Py2CJkMjPyK++h0txcu NNGvjKbPMa7Rkc5R1weJtIJjkVl5KEwc9ukS6EcH2vj1f/9qxn2G0MO+A7jX vvhMS7kEy7b/zDi8+Qw3tXO2LYfLsFMl2KBo/xBMRd7RnlPKcYt1fNeXC8Mo VVMV1D9YiV2VR+l6z40gUe2TysZcNRS9dDfr1kZgdqfghBZ/HSjPItIPUb6g sTUiZcuoAZbGMm07tEZB+7vLPm66CaU99nGVK6OYk7fX+JbeAvnWQvqJ+K9Y i9B2t7Fow0FVh+U4lTFo8EpYjCl3QlZGNqZkYgzmVXMSHj1dGP4e+S49aByK bkfv+Xp/wKy0fhCX1ARYrDZHzc73gPRNbOaPDxPY+bI6glu+F/VC17uv+k2C bkWsItHiXzz42GNrIDSFJDOvJd2bA6AZVsfQ109B8/v83OecQRQbs5+Rd5/G Gh15rzL7CNLbAp6M7p2B3qOTW366X7DadOHm3toZqOoOurwoHcVITNUyq9s3 kLsV98eLjGGl6ySX/+5ZkBQluOxixnGVLFjtUzGLNxcoErbHJrG/TZB1zHIO RV6Shbsqp2DYk7vB+2sOjiyGlYzmM/huleryOWcecmSBvyhHZlFlXRC0W5sG oX1scwu0OZR3uGgN6dBgmDgnzPBzDq+II3vy9Wnw1NnWzUE3j1zeDMo5UxqW UzwDlVnnkdSX9DLiIg3XHH8av5Ccx3W94C/MPjSo3q5urnWfx1ElC8XtmTTI jBV/2rE8D1IBN0NvNg3fEmbKNDfnIcjX15z5goYrJuGskdto4NwwMFIrokFN N1KUg4MGRqq6c1AFDWWFcqvyJ2j4IiGTyPCBhhBZ82PNv3s+Jy9afuih4axO bdxBfxr6WAqE0vtoqB1+7ukbRkP7t8OFykM06Df7pEs9pqEii7/Jb/r3Psla asnvXCrHYIT+LA1iD+ppnA00vAxKMhCg0VB8QC/1ThsNObbsQ9VLNCgL3/fU +Z2T0d2dHr1Kww7tG/HUCRpSTkdfsl6j4eemp7TQbx+l8JyE5CYN32PStGJ+ 6xL4dy5vbdHQZSkw/H/+HwnxijY= "]]}}, 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}, PlotRange->{{0, 1}, {0., 0.9999999931972788}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.558032230748002*^9, 3.6566695173106637`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"plot1", "=", RowBox[{"ListPlot", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5"}], "}"}]}], "}"}], "]"}]}], ";", " ", RowBox[{"(*", RowBox[{ "\:041f\:043e\:0441\:0442\:0440\:043e\:044f\:0432\:0430", " ", "\:0433\:0440\:0430\:0444\:0438\:043a\:0430", " ", "\:043e\:0442", " ", "\:0437\:0430\:0434\:0430\:0434\:0435\:043d\:0438\:0442\:0435", " ", "\:0442\:043e\:0447\:043a\:0438"}], "*)"}], "\[IndentingNewLine]", RowBox[{"plot2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], "+", "1"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "2"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"plot1", ",", "plot2"}], "]"}]}], "Code", CellChangeTimes->{{3.65666911950373*^9, 3.656669174215808*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{0., 1.}, {1., 2.}, {2., 5.}}]}, {}}, {}}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwd0wk0VdsfB3CuMhNu1JW5i8wSKsVv9xo0IGPII5IkDRoNlZJUUh66TxkS XYTMZch4M2TKTDyZlSIvh+7Fy3D+u/9Z66y9Puus9Tv7nO93Kx4/b+1B4eLi eobv3+tBj2/trAkPE36u3xcBX7OPHB+i7QFdNx6P35YS6g5/TbOFkRe8DG7s txWBZ3xVXEC6VuARD7b29rUpz2gnoK9O2JIXm4s68ZiU9wKlV2sGBLDbp8pv u6mcg9lzEvqi2FbuDcVu0RfgIFXSjopt1LYlN4p2GdSerkM07I3GCS+r469C xDKNI48tnMH/nC3vDzd3y1xWxWZLXYpWZl6DOS+5ch3sgeCBR0dUAoHjo9C2 Ddt9gVlVbXsLrjkoZf2B3aPtaPJndBCEKtBtzbFZcdUGj2h3wNhalcsDW7/D L0/ZKQTGSjetvoidzq+tVRF/F8R41btuYkddeUqflg8Fyk7NtmfYvJnmiffc HkCdqtZyFnbAKEVGgRkGa9la7Irf7z98lmqlEg57tHXQGHZviNJfE55/waZ4 nb/nsFUGvVe/s40AxqTOG0FuAmLXKgY5RkcCj5qupQF2cFCY3wMaA0w0dbgY 2BUyJwuPlDDANUE7JQt7oQixlZz+BsEZrbX12Gd+cM6XxkcDZ6umJYlt6+Tq OSUfA+pmqsiXQkD4nFFKMSsGwqqUDZ5g10dKjt1xi4VLNDq7CNu4vtFFlhkH n04ptC1iqxgYHLFQSQCB8HVcj3gIcG1bw5CuS4A0fsm9r7HjvCfbxz2fQ6u7 hG0fNn97a2qlbSK8LhVuU19FwHW+ECWH6CT4NENCN/aJy9O0UFoyPPcdJg/z ErCFJyog3ycZlraTBvewKVH6nz7VJYO5zj3HSuznOf7x2ldToCW/45QeHwF9 kzzyXR2pcEDWIW0jPwGH3dbT5R+mg9wtmVd6ggTIESV39o+lQ+2FliI/7KlA 5y8XjDLgePREXiX2g/gXqTXfMsDPz+mcpRABNT2aaqf3ZoJcohb/DWHcP4td 2gUr2XDgRlglZQ3+noGx8EG7HNiZ0PbCHrvH++40X1YObJwNvJSFXVLj4ZCl lQuteusGnMQIcBjNoHH150LiOsP2anHcF1mD+JRt+aB0XsuYtRbPYxxIImbe QJodhe69gYDFbSOLSdIFUCHwQPIj9o8BvyM2uwsgnCn6cZcMAZ2qaUKFjAJw vC9as0GWgIRS3qvXthZCvNSEzT9yuK9j1Qd5bxTBp70Cu68p4Xz0TNgb+Etg +zTH5ag6ATY93RbNuiVw5ai07hD2vutn0wMdS8Dr1Y62ExoEaLyPdxnJKIGb K5dvXNQkYM5xsT7VvBTsvarCnmgT8DCo+Nnmx2XAsqr35d9CQFGbnqmpXCX4 nL31KGQn7tPE1H7NfZXwJtxFXtGYgJOUlwfFz1WCtYyOXzm2lP4Gi0/llfD0 +svABRMCSpuCMoq0WWBnxRn03UXABp3TeYdaWBB+aPW/cftwvhyjyksiVbB4 e87E3wrvl7IenVSsAi8dpRwtawLyRTksB4Mq2LwfjY9iP1DNqTJ2roKmCpv0 w7Y4P8eN7/my8HNWz209ewJiyoSa48yqoYRqGyzrjPMJ7u+rDquBhmXZkvte BIgNq2h6JtWAnNkVP8/TBDTsvHBDsKgG+p3HFUy98by51QpWozUQ1SSpK3AW 79dLx2NwWy1MtKabPvUhYNDi9vTCl1pA11OdRn1xv6U3rdJGdRDlPiulco+A 83mXtJ6yG6D5TFefdxrOd+dIZwN/I2y9J25zMR2f13qLgEWZRnh3Uf+JfwYB p4bU6lz2NoJ+uUbwg0ycp8iwq3J0I8TJD08U5BJg6WXGyN/aBJ7SrrN6bwnQ VVRe/BDwARa+lk3XNhIwG/Gxnpu7FVZGJ+IOE/h8v3tf2bqzA+R8KOlxZjPg 5X9AxHGqC7LZx+XqC2bgnYAemXm2B0wNkyQ+02chlVmzIq3cBx3nIvrDX80C kip/YZPdDx+/eXDHGP4Erbr+4vfqQ6Dmztjn3vQTupDNj/Qfw1Dq3LDQEsCG M4LeHd26o/DWYDT0mQYHmnrty0XDxyCyukec8R8HbPY5jHz+/BmeHGjN3tUx B4aJYfaJ9HHw3kzX250+D8Mrj7tO3fwKuqyg5YjEBfhyoJUpVf0NenP/SWMy /oPcmCH/dsVJOLpULP7w1S9Iuc8TqhbwHa6aixktNS0Cx/3o5MnSKRCQkmuS G18CoT13rfPW/QDNG2UUUFmB62JfhEf+nAZ9x9iWWy4kCFdocPWY495JBzkw LLiQ8dXDy9W/CBhtsVt/gcKN4pMfMjfGz4BeqefboVxu5GKn3yxwaBa+17Yu SV+hoIJuj8cVc7OgVOe0tMqYB23/kEsZj/4JmRe5CheWeZDC3pOcx3vYsOqr yeShj6uQgb5B5JtxNhhV0ZeHU1ejodlHDcwQDvCImEn+7c+LprZYhdD05iDp Of3eZg8+pPJda5K7E/+nQOCJMuVHNfQrHT5B8/BjsbBWdo8A+qur292avgBd tzityYaCaNqGFUmpWYBSFemAN+pCKN9Ocvf2C/+BDCNJMsBIGDGbg5+NSvwC Z0NNj1ITETRf9+c1iapfEG4Ywz9/TBQNR1ZyxM4tgm293ZatwWvQXPsO2m3R JfDp5VMoMBNDPgwlln/ZErSkWzAkv4qhdc1KYp9dlmEts/RYWIA4sunOXJJZ WQZtF/kdO0Ql0OyxpDP9GSvQEt7aNJcngSpdc0JEzUjozKNc5regopLWM4cG LUiQcPk3tN6SigpN1MWzrUgQbJYcum9DRZkyKfHm9iRI/5Q3FXSkotje2NcP j5PQeIwmKnaCiq5Y3h0R9CfhZGmir2oAFWkgZ2O+VBLCr3G/DUmlIpUcaZ6e NBISA5MLzdOpSEmutz71FQmn94T8lMykovVL1rb78kiQW8+l8TKPiniL93uH lJFAG+6L+FBGRSM6+jE8nSQcnKVv29hJRf0JMy6d3STUKCSrTXdTUa9IDp3Z S8KCuNvR0l4qavmulvvHIAk3dzL8bQepqOylfF3QBJ6fP5QdOkFFxVIDD62m SLCcM4u1n6Ki1yGx1orTJBguz9coT1NRhrvkIItNwiYbvt4qNhWldHQwI+ZJ 0HvhzYqcp6LEXRFerr9ImH0t8s31FxXF55rr6C6T4H3/XwvdZSp6Ii/EIUkS Yv6/UtH/AIO5prA= "]]}}}, 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->{}, PlotRange->{{0, 2.}, {0, 5.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.6566691569447837`*^9, 3.6566691746058083`*^9}, 3.656669517380664*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\:0410\:043f\:0440\:043e\:043a\:0441\:0438\:043c\:0438\:0440\:0430\:043d\ \:0435 \:043f\:043e \:043c\:0435\:0442\:043e\:0434\:0430 \:043d\:0430 \:043d\ \:0430\:0439-\:043c\:0430\:043b\:043a\:0438\:0442\:0435 \:043a\:0432\:0430\ \:0434\:0440\:0430\:0442\:0438", "Section", CellChangeTimes->{{3.656669221644876*^9, 3.656669229864889*^9}}], Cell[CellGroupData[{ Cell["\<\ \:0414\:0430\:0434\:0435\:043d\:0438 \:0441\:0430 \:0434\:0430\:043d\:043d\ \:0438 \:0437\:0430 \:0438\:0437\:043c\:0435\:043d\:0435\:043d\:0438\:0435\ \:0442\:043e \:043d\:0430 \:043d\:0438\:0432\:043e\:0442\:043e \:043d\:0430 \ \:0432\:044a\:0433\:043b\:0435\:0440\:043e\:0434\:043d\:0438\:044f \:0434\ \:0438\:043e\:043a\:0441\:0438\:0434 \:0432 \:0430\:0442\:043c\:043e\:0441\ \:0444\:0435\:0440\:0430\:0442\:0430. \:041d\:0430 \:0431\:0430\:0437\:0430 \ \:043d\:0430 \:0442\:0435\:0437\:0438 \:0434\:0430\:043d\:043d\:0438 \:0434\ \:0430 \:0441\:0435 \:043e\:043f\:0438\:0448\:0435 \:043f\:0440\:043e\:0446\ \:0435\:0441\:044a\:0442.\ \>", "Subsection", CellChangeTimes->{{3.6566696043924055`*^9, 3.656669645612527*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1980", ",", "338.7"}], "}"}], ",", RowBox[{"{", RowBox[{"1982", ",", "341.1"}], "}"}], ",", RowBox[{"{", RowBox[{"1984", ",", "344.4"}], "}"}], ",", RowBox[{"{", RowBox[{"1986", ",", "347.2"}], "}"}], ",", RowBox[{"{", RowBox[{"1988", ",", "351.5"}], "}"}], ",", RowBox[{"{", RowBox[{"1990", ",", "354.2"}], "}"}], ",", RowBox[{"{", RowBox[{"1992", ",", "356.4"}], "}"}], ",", RowBox[{"{", RowBox[{"1994", ",", "358.9"}], "}"}], ",", RowBox[{"{", RowBox[{"1996", ",", "362.6"}], "}"}], ",", RowBox[{"{", RowBox[{"1998", ",", "366.6"}], "}"}], ",", RowBox[{"{", RowBox[{"2000", ",", "369.4"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"plot1", "=", RowBox[{"ListPlot", "[", "data1", "]"}]}]}], "Code", CellChangeTimes->{{3.5639976175099416`*^9, 3.5639977389980235`*^9}, { 3.5640007229962826`*^9, 3.5640007271544223`*^9}, {3.6566693732283177`*^9, 3.656669389903355*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1980., 338.7}, {1982., 341.1}, {1984., 344.4}, {1986., 347.2}, {1988., 351.5}, {1990., 354.2}, {1992., 356.4}, {1994., 358.9}, {1996., 362.6}, {1998., 366.6}, {2000., 369.4}}]}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1979.6875000000002`, 337.165}, 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->{}, PlotRange->{{1980., 2000.}, {338.7, 369.4}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.656669342782243*^9, {3.6566693873153462`*^9, 3.656669390333356*^9}, { 3.6566695013636293`*^9, 3.656669519120666*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"p1", "[", "x_", "]"}], "=", RowBox[{"Fit", "[", RowBox[{"data1", ",", RowBox[{"{", RowBox[{"1", ",", "x"}], "}"}], ",", "x"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"plot2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"p1", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1980", ",", "2000"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"plot1", ",", "plot2"}], "]"}]}], "Code", CellChangeTimes->{{3.6566693648932934`*^9, 3.6566694012023835`*^9}, { 3.656669450414508*^9, 3.656669468808556*^9}, {3.6566695508697357`*^9, 3.656669580562333*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", "2707.2545454544925`"}], "+", RowBox[{"1.5381818181817923`", " ", "x"}]}]], "Output", CellChangeTimes->{{3.6566694957506123`*^9, 3.6566695218406725`*^9}, { 3.656669556163746*^9, 3.6566695814723344`*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1980., 338.7}, {1982., 341.1}, {1984., 344.4}, {1986., 347.2}, {1988., 351.5}, {1990., 354.2}, {1992., 356.4}, {1994., 358.9}, {1996., 362.6}, {1998., 366.6}, {2000., 369.4}}]}, {}}, {}}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwV0n881HccB/BDjjgkiWviQk76gVzmruXeD7q6tq6ZrSOrxR7iekQl+3y+ HsmUtVYmdHqgzH3LrJTRrY30cLXCiolDPzSz9Mi0o+ZxpodOxN73x/fxeTwf n8/7+369H5/Pks/3Re+y5HA4CvzMa3DiOxyOUQPG15zpY0sJ6Dpd5Vx0WNYX 52vQG8TzCnnow5aGDQ/QcY7WAj7a1kF/aokfgZyGUelqtLt3uVCH7uE1ZSea 6zeLPx4TEkivU822muvPpV3+NIBAHbd+5tQY1m96FhsUSCA75EyHbFwDpa1f 3b4kJmD08mnsf6WBLvlgRlokAUOiqGbPhAZMj5UutgoCfqL8fR4mDRSW5F7f G0OA15wfpZ3E88pDtT4JBML6ey2SpnB//aorVXsIvFBUXXN5q4GgiFfqaUJA lu2VVzmDeSDjN002gSHJQFAMhwV5qs7KOZfAinrZq5cWLGjP3izsLiLw5kSI 7qAVC7aPH3ASygk4GnZ/EmDNQldk9aFbFwn8br3R/gaXhSitdOPenwjcq0lR p9myEPbB6cUvGwlsreV7etqx4D4x/SjsDoGv96a21tizUHreZ+C+nsBUw9zI nQ4sFGbajYf3EeA3b+4fd2QhSHllq2mQQFbMY9nleZhv54KWI6MEVOtf/Bw7 H/tlnHTtM2E+YyWMuLDAUbfUHbak0CO8WF7uyoKgrzHhNY/CR55RfJEbCwbv tO26hRRiUg+faXLH/pkSSZSAwvcbJocPLGKh1bLF55cACiUD7tu4Hiycy7Xf niSi0G15pLRxMdaDyzlDOAX1l/v7VV74f5vAu+JNFN5c50onBdi/03bdH9EU qrKH0qq9WYhtrrgp30FhZs6eZvBFX3+Tz02m0PeM4XcuZQF+TYoo2k9h+v0O aZYQ+42rLYwHKdw50HbUaRkLVf5ZTmVHKTzydTzbHMCCf55w2cICCieLJzvi VuD8xoJTA6UU2uNTuCMrWVAl8v5iKih8WCd0KgtkwcjdJHr6I4XMthOhgcGY 93JkX3E9hX+TRauGVuP9Zc58u/g2heefJQUUiViI39EhSG+ncMxVKvMNxTzS uDluDymkKOODet/F/FEXx3MHKEwq/SWpYnwfCVeDFcMUHLSMfErCgimnO/rJ fxSSi5yE1e/hfo82W/qWwu7QLb7h4Xj/PlumRrkMzBTolsvQgoZ6ySIbBk4P B4RsRgcpvA7K0Le+s4mIQwNjNJWhF1rd3knRqnb1hNyWgSZ9SFktuiq9d6xi LgMeu/nzvaR4viXeoOQxcLXpG74fWr6tTZiD3ugxIViJjhoNTq5BH9D3BK5F x7tbPbdyYKBtTZ4iBn085YdBLZpazh4vQHctGHli58QAb3tqYTH66aVoz1D0 +bo/S8rNDm/ckYC+p2q4UI02qvL6r6G99Wktd9HuN1b1Jc5joMH/aXsnWhBd wi9EK3K23H+I9v9nNrYRnbFm+bNBdJhzd6+zMwOOBWeGR8zzXBC7rUNXGmzG xsz511YoVWhJBDWZ0LFddsVFaH3Z37Oz5nl2pT+8if4f1AYnXw== "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1979.6875000000002`, 337.165}, 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->{}, PlotRange->{{1980., 2000.}, {338.7, 369.4}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.6566694957506123`*^9, 3.6566695218406725`*^9}, { 3.656669556163746*^9, 3.6566695815023346`*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ \:041d\:0430\:043f\:0440\:0430\:0432\:0435\:043d\:0438 \:0441\:0430 \:0438\ \:0437\:043c\:0435\:0440\:0432\:0430\:043d\:0438\:044f \:0437\:0430 \:0441\ \:0432\:043e\:0431\:043e\:0434\:043d\:043e\:0442\:043e \:043f\:0430\:0434\ \:0430\:043d\:0435 \:043d\:0430 \:0442\:044f\:043b\:043e. \:0414\:0430 \:0441\ \:0435 \:043e\:043f\:0438\:0448\:0435 \:043f\:0440\:043e\:0446\:0435\:0441\ \:044a\:0442, \:043a\:0430\:0442\:043e \:0441\:0435 \:0438\:0437\:043f\:043e\ \:043b\:0437\:0432\:0430 \:043f\:043e\:0434\:0445\:043e\:0434\:044f\:0449\ \:0430 \:0444\:0443\:043d\:043a\:0446\:0438\:044f.\ \>", "Subsection", CellChangeTimes->{{3.6566696954275985`*^9, 3.656669717570631*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "450"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "445"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "431"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "408"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "375"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "332"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "279"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "216"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "143"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "61"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"plot3", "=", RowBox[{"ListPlot", "[", "data2", "]"}]}]}], "Code", CellChangeTimes->{{3.563999324567297*^9, 3.5639993924265766`*^9}, { 3.6566693474452615`*^9, 3.6566693532252693`*^9}, {3.6566697269906445`*^9, 3.6566697400126634`*^9}, 3.656670015620181*^9}], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{0., 450.}, {1., 445.}, {2., 431.}, {3., 408.}, {4., 375.}, { 5., 332.}, {6., 279.}, {7., 216.}, {8., 143.}, {9., 61.}}]}, {}}, {}}, 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->{}, PlotRange->{{0, 9.}, {0, 450.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.6566693539952707`*^9, 3.656669740442664*^9, 3.6566699252900505`*^9, 3.656670025187196*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"p2", "[", "x_", "]"}], "=", RowBox[{"Fit", "[", RowBox[{"data2", ",", RowBox[{"{", RowBox[{"1", ",", "x", ",", RowBox[{"x", "^", "2"}]}], "}"}], ",", "x"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"plot4", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"p2", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"plot3", ",", "plot4"}], "]"}]}], "Code", CellChangeTimes->{{3.6566698971370106`*^9, 3.6566699367190676`*^9}, { 3.6566700174871845`*^9, 3.656670020037188*^9}}], Cell[BoxData[ RowBox[{"449.3636363636366`", "\[VeryThinSpace]", "+", RowBox[{"0.962121212121168`", " ", "x"}], "-", RowBox[{"4.90151515151515`", " ", SuperscriptBox["x", "2"]}]}]], "Output", CellChangeTimes->{{3.6566699162200375`*^9, 3.6566699374190683`*^9}, { 3.6566700209871893`*^9, 3.656670026007197*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{0., 450.}, {1., 445.}, {2., 431.}, {3., 408.}, {4., 375.}, { 5., 332.}, {6., 279.}, {7., 216.}, {8., 143.}, {9., 61.}}]}, {}}, {}}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwd03k4VV0XAHBDEiFDZqFIGVMpkqxdRKN0G2SexzKEMpz7laEySyT1RlFC MmVKlI45XHMIeTOTIVcoIn37vn+c5zy/Zz37rLXXWmerjTvFnoWJiektfhjv pBs263fbRWi70e55twlS0ROTaU0jaWeYSTc16cfuOR3uKS3tB/lT3l8nsH30 jXnYpMNgU1Z83Rr2O6Nh37+OdyF9Z5IChxAVMRcWz612x8Jt7gUlAWy9amT2 S+oRCPHGbJLDdqLdvregkwj1yp2zKtgRnxpq5xyfQmWBs7s6I+6ZKfKz+xmE LAWc0sf2+3mqYME5Fc6/Yc00wA73nz09v/ICHP/tTLuAnR2kFkyXeglW9k43 bLDL13dvmX2dCXo1O42dsFvD/UpmdLLAK0qjwxV7kEfi3HRnNoy9T5j2xP4R Wz4z6ZgLKRf1XvhgB0WoVi9Q8yDFSPcPwcjXFMi3cPQ1TJD3Fm5ix23qsJjn yYfrsSoRwdiJZ2WzfnTnwwmaWMUd7NS4a8tzyQVg73bxQRijvs5avTnnQqj1 HeSMxC4WFrlP31MEblNlktGMeo2dB2dXisC0drTtLnbd41KV2epiiOGwlL3H qL9/I/V71BvYWLRDKBb7s5R5/czFEmj6COkMD1rnCM1IvYVO3fRuhief/7Wd nngLsvIW/8V/jBq+nnpdCm+v2f13fmXHs7VJ/zKIVyj97/vrXOZPTuq8gxJ9 y3ZGfq4s3UffuN7D1qZzUoz6BL/Hj010vofW0oSNjPolVcf3TjwphxpexQTG /eQ8NQLHHT8Acwt3JeP+Ir26jl4iJNxahEhGfySIGe55KgkGtyoWGf2TlnhQ 6DlIggURu8bor+x7bdMfRyugsDc/jdH/nRbjzJ6ZFXD22bbvjPko/72bMcdT CfvaBz8x5rf/8OAivbsSWlwMAhjz1hwKS/TQqoKQjhVdM2zt4D069OQqCE5d ymDsh35NcMysczVQbg4YMPbplIOSuntzNciENcYAtiF7Z//3PTVwcIXNk7F/ l47LKX5fqQFtEWd+xr6aTTa3uVrVgnzVvTYJbOsIH9+Z6low7eJQZey3S9PH mumoOojdN9HA+B+Is5etpqTq4XS3uS/jf1oL3i/6NbIeyDz97dXYAcXM7e3L 9SBXFGVVjH1L/KFOaUcD0LRVgh5hR49Wy4WF0CDgQsVVE2xekZiv1AUaRN6J vHccO/aE6UMP6yaIHCoADeyE3DmOSwebwVFcWH8zdrKf5IzcbAsExexiqdtM RXxdCxRulVaQF/1yPx+b4m6yK8SuFappI0VJ2J0p2yf821qhvZDzuSd27/p3 xjav2uBCaIa8MPZw64TWbssO+K2lNHFCAM/LxUD0VXwHdHk/ttqF7cBauChL 64Dn3Q6OAtgT+27miBz4BGKS/NK9/FQ0/Y+gNJNAJ7jnlB6ywf5pd4S1pbYL Cr+cUzDnoyL1tfSvx/50QXXV7VBNbN8E7neVe7uhrlPgmjD2Sv1n7+Lkbkjz 111u4aUipl3uY0n+n4FW9yv7IDbH8uP6Kyq9kO+e9vEPDxVphPT4n7DuBdmI bZ+6sJ0EhZV23u+FoMZwai527e7Y6OHlXlgrlUq1xL7lEnrOpKYPVs+bGpRx 4+9/8e7XN+sHnmuim6y48Dy/pvnyHR2AePvXhy05cP/Tjp4NsBiAK5L5k4rY ma4j8rM+A6Cy+kR1aQPu38rWPlrmAHjLHYq7i60hknQolHcQ2PdHFLxlx/c3 jGP52zcIuofdrFbYqOhq5c3Iac9hkNpgeFmNhYqW+O5n90UMQ82bhh+LzFR0 wzqjuSF1GOz6OcXfYEcytfG+7BqGyPC+0xrYGdrb4u01RyDwSrnWfiYqGiit TvqXeRRYz4SD9BqBDAs4cltjxsAuWrMna5lA3SySrR9ejoH4H1s/G2wLyp65 nMoxqB+klApjX5kz2Ru1MAZ83IGSgUsECt2V9eb4pXE4OiXpceYXgT68MiAr pSZAt9ZKo3eBQCqpcW2FOd8g5eeqWcYsgTY/VP1F1n8DSXfHihPYKxFNEk0j 3yC0qKpo+juBPnqxO42KTcK2rLMGu7BtdIg1wZBJ8EFV2rnTBIofslH0sZyC JLY/Ev98I9Cq9J7bB3hnoI25sVl8mECjBk4SXzXoMFbRyt7yCeervSJ74ygd 0uRXwsyxjxy6qrSFQodUy8jMqQ4CJSv6a5lepoPx/uHa9dhmGyLNupPo8CLa 5opGG4HaK3ITW1jmoG4y3SWsiUDlar8kSNocqJ89rTZUQ6AEsTtbUqzmobKL ZdWtiEA/h5vTDdzmwRhxhfYUEuh8tvCeVWIeBouupehg86OXekYJ80BWO1GF CggUaU9z526eh7KrLe3FeQQKyOOv9Du4AOkbnjIPvSKQk95TB4rQIlxQ0Hcc SiHQAc+SXFbaT9hwqIwSEUmgqu7Hhu47foN5XpSbmzmBdkeuaYsc/wOqu9al HlEkkP6Y5ldVIyZUSolV4vvuj8aVi48uTDOj3vvbjGJy/BGxGrb3nT8rUucM M7rg4o/Y+SaczyuwIXn5th2Jov6IrYlNf+P79Uit1DGU+aMfWmnOvhJ7dQMK +p8rFDj5oVGjHFFJSU70ZKDvgdo6P3Q41M31Y/ZGlBOorHcy2RfFr5Vw6Fhy I7r501PKyr7IVKLq1Jd5HtSqlJxpW+aDuEjF6W0XeJH4abcAlQM+yH7fs0Vj JT5EW4nZaZJ/Hfnc8KVIL/Kh8h+SiRSV6+j2ZFxHczM/El/X32L28Bo6pbAp g+sfAeQiN/Bqnu0aisreT56y3oyCnKYELnt4o4Zzz1e9DwiiGKjkJeq8ENnk HqnEKoQ6eCr078h4oXyXQETrF0KGSQ58Cy6eSPIkaLgVCiPKJo8/jTlXkc5f s+CnVBEk0UOLFlr2QHZdH36UXBBFFQOUjUeUPZB2YFCRtbQYGjmfzgJtbijW fa6Ma1wMmV/iudWo44qGAl6MPS0XRzPq2i/kQy6jKfu3dpUhEmj5f3WNtX3O iO7Kz95kvQXlSSgda1xzRDnHG1cdlCWRv2S80l01BzTmpLqfdVES5f2r/FjX 0Q6JveqNC2mSQryfiRJXexsUbOX5rOmkNLqhUJGh5meFfq2KRp18K41CH4vZ rcsyQzvLEh41yG5FtxrSBDLML6F9tjVn+MK2IrqvfKojOo/IREER2uJWFKMm YHjR4gzaSQqGG5huQwPePRb8qXroNNv0lvZybHYv28LGg4jeN1JVryCDBp6O ad9tkUbuiVECYXdlkNVBelyevCxJY5adPXFPBkn/JC8GtcqSCo6lDVxxOL7j pJatz3ZyZPd4YMwDHJ+KcKfUyJGX6hA9IUkGBfwuvz5mLU8e+TFPS3slg5IP TLGPJqmQQsdM7lTXySBV8RyxJzFqpFc23fpOvQyK+Zy9Y3lEjWzlDzl0rFEG 0Q05a00P7CMj+gsWGpvxec+eYvWhfSSTF7dtR6cM4vVvdTqhpk5OJpEwNIzj D7fy9PUcIPVZjcRTR/F5thnVXBVNMtVp5qf9OK5PRXA0PFiTtNwrlvNtEt83 l2A2Vj5IfvroJTE3J4OYfFI4DQO1yN0qnEv587i+d5QSqy4tMjouucN7UQZ5 vLP65at4iDxu0RS+tITzf4+VJzsPkWlVtg6lv2WQodQbiVkFbXKd/O/D1FUZ lLdRI2V7gDZpHR2zRXsN58sXfGPbqU2Wz8st//2LzwsaWrxUAPL/cylsjA== "]]}}}, 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->{}, PlotRange->{{0, 9.}, {0, 450.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.6566699162200375`*^9, 3.6566699374190683`*^9}, { 3.6566700209871893`*^9, 3.6566700260571966`*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ \:0414\:0430 \:0441\:0435 \:043e\:043f\:0438\:0448\:0435 \:0440\:0430\:0437\ \:0432\:0438\:0442\:0438\:0435\:0442\:043e \:043d\:0430 \:043f\:043e\:043f\ \:0443\:043b\:0430\:0446\:0438\:044f \:043e\:0442 \:043c\:0438\:043a\:0440\ \:043e\:043e\:0440\:0433\:0430\:043d\:0438\:0437\:043c\:0438 \:043d\:0430 \ \:0431\:0430\:0437\:0430 \:043d\:0430 \:0435\:043a\:0441\:043f\:0435\:0440\ \:0438\:043c\:0435\:043d\:0442\:0430\:043b\:043d\:0438\:0442\:0435 \:0434\ \:0430\:043d\:043d\:0438.\ \>", "Subsection", CellChangeTimes->{{3.656669955061094*^9, 3.656669973768121*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data3", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "32"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "64"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "128"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "256"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "512"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"plot5", "=", RowBox[{"ListPlot", "[", "data3", "]"}]}]}], "Code", CellChangeTimes->{{3.563999851530002*^9, 3.5639999068548613`*^9}, { 3.6566693567332745`*^9, 3.6566693581232843`*^9}, {3.6566699799081297`*^9, 3.656669991997147*^9}, 3.6566700306572037`*^9}], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., 1.}, {2., 2.}, {3., 4.}, {4., 8.}, {5., 16.}, {6., 32.}, { 7., 64.}, {8., 128.}, {9., 256.}, {10., 512.}}]}, {}}, {}}, 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->{}, PlotRange->{{0, 10.}, {0, 512.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.656669358583285*^9, 3.656669992458148*^9, 3.6566700314872055`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"p3", "[", "x_", "]"}], "=", RowBox[{"Fit", "[", RowBox[{"data2", ",", RowBox[{"{", RowBox[{"E", "^", "x"}], "}"}], ",", "x"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"plot6", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"p3", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "12"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"plot5", ",", "plot6"}], "]"}]}], "Code", CellChangeTimes->{{3.65667003489721*^9, 3.6566700637603245`*^9}}], Cell[BoxData[ RowBox[{"0.017814540441994462`", " ", SuperscriptBox["\[ExponentialE]", "x"]}]], "Output", CellChangeTimes->{{3.6566700572053137`*^9, 3.656670064050325*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., 1.}, {2., 2.}, {3., 4.}, {4., 8.}, {5., 16.}, {6., 32.}, {7., 64.}, {8., 128.}, {9., 256.}, {10., 512.}}]}, {}}, {}}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVVnc4Fe4Xl71d69rce10iKyNk9B6SUTYlW3YlMzMyUopCIrJ3pFB87SQU qYSyQvaWlZHZz++f9zyf5znPec97Pu85n4O39zB2IiUhIWE+Ov5v/15wzzD0 iD+DcTQa2VFNQOaUEazfhN3RqkPsrLRBAsqOR5ceCd9GsrzJMkF2CajlYqa/ m3Ascv3l3658JwFdrNGjthLORKUVz/IjPyWgzKsFXSbCpWh+sKZfyfwJUlfv rjQQbkSFa8q0L+4mIi6xZ8wRHO9QC1U0Fc2zRPT3wUkFC/ImNDhRphf0MhF1 ef998nCzCY3Yp+88+Z6Ibmvc11vrb0as8WeqCwhJ6Ofs86a69I/IvwOvZNya hBIlZwv1hDvR3Pm/FvrYZNRBPlRNV9yJMhy2zFckkhHJUGf7J7FvKEh9Oqro XDKqOmu5mcvZhZIjy747+CYjwqo6hwB/N/pRozpD0peMdrVZLDlEv6Pyz+TC i2kp6MVu+QQV6kczfH2r8sqp6MP0iUXnsH706vPreqZLqWisK//Ph/f9KHMo k4TcKxVhn6eQR2oMoGU3zavoeSqKMAkTJjk/iCJT9bvI2dOQxUuDa39Nh9B3 ORfRyc00RGuzvDZ3bRSx44S63n7NQH693Tvrz0cRVZfaccWFDDSp+9+xg6lR NLfjUvmVMhP94mu8f19qDLkqLAych0xURX83Jb14DDXJ/RaJr8xEzgssNa0Z 44jYvy5ik5uFPhZIbrPdm0Qd7cnRk5+yUfAV3N6z/EkUaXz6zPJgNpLhY/nH 3zKJJr6MnqNeyEaZiZuUoiRTqNhtNOYabQ7yu9OAVQ2aQheW5OPnL+Qg4Svn 5Z3cp9GvzctJv7pzUBSvs+9/l2aREVOvE2YhF4mUvZbPuTmLZmKwQu17uahD 7WD7YcIsGl4TDolnyEOMLolBjp2zSBv355SJdB56+ro5lFVzDqXwE8JzA/NQ oaZAtNepeRQr+MLJjyEfffAcyJRgW0RSocebnNQLkDMZ0Y5LZhFt1tr+NLhU gKifeuApDBfRyVDJdN1rBUi3njJ/OGYROa/ctbqdUIB+UJwqjiFbQt4Wnm9b JwvQVOrjivn1JfR00zpn6UEhIvtwvr2gexkl36v0F51+jjgNlZq515eRtZyy jvfBcyQ+JNoQx7KC8jiG2r+zF6FLa9TlgSYrKJjrh/y4ZhEq4mtL1utdQQwe ZxNEXhQh4fqciiC3VRT8c6Yp1LcYdbDy3yF4rqHylogzNLgSZDrITmIdtoYc OsxdU5VL0K9MhpDk+DU0yGjyVMusBP0RPfCjf72GjEVfeW7FliBeGL62tbaG Nj3tzhb/K0HubqnGHT7raI364lTwzEvE+gFL8Pb/g1irTOxKO0rRm99zNsn3 /iBOrZCR8dlSZIitT2tI+oNOPNijk6YoQ7EutuxUlX9Q7B2eGQKUIWraIur0 1T+IacH5pll1GdrXP73y4eoGcoiib3h0sRxNDVg2cFltogsdotKupq9RxDHJ nTPXN9GA2J8b/Y6vEf4Eibxj0Ca6G5IPl3xfI5tb+WWlKZtoQ3RpIuLpazTA 9zv3bO8mMmC2a3g2+Bp9tb/94Ib+FpI1ZdvvsH+DqpayL72HbcSqd9m3KLwC xTJ/kBIz2kYHH/09/0uqQM7y89RJV7ZRt2A7VX9xBcKGSde7RmyjvYlO28s9 FciXtVkA07qNLO3I6S8RK5Gc0uScjdZfhPt82tjwSyV6HSV0a19vBwntKx4f Ea9C91/qmDrb7KBH/7U4F52tQnbdNyS63HeQS5olW4xFFcLwVI3mxe0gDQ08 d/L9KuRZqqlxoXsH3TUNCPgyXYUke10YUk13kSNXIrY5vxq9JLzIUrDcQ4xr hb3Rp2rRrsytftPreyj+71v5Pf1apH1Wl8n71h6iL0k6e9e1Fk06LN9+mbaH 7MZQ+0xaLeIukLHBD++hwtnz5hNkdejB8XpeOut95OP9+VvPQB1yFv/y7JfN Abq8OWt4ObkBVapkdO+5H6B5jKKjTGUDItVzp+EKPUAlSuuJot0NKOMGJtAk 6wAl9Gm1etC9RT9KTS+3jx6g7iHPFJvwt0hdegT7xu4Q7XxxuTrm3YgE5Jef 3LX/h+Luxn0plG9CEcXPYh55/UOln5+fmz/XhKZ4z91JCvuHLPtdeZQuNqEi snTvgsx/SMydjJXqZhM62a1j9OHnP6T3W7Hc4E0TwlUZR0WIkoBryH7tc+n3 6KRRqUZzDglosT671afcjMZpI0GzmARoKj2r/+k2o4RWc5WOchJgxzNzn7Zp RhsKFHI970hgtO9+/HBYM6rhtxKcGCGBS9jQldmPzQiWaEhJuY/BM/I4Rv5L LcgoyumdWsIxWOJZKfAPb0X8yJHGNfUYDHRmzzs9bUVLW/YmsbnHID4kL/pq SSu672w3+/PNMchtXFJ+3duKGs9ZMt38fgzw40UtGmIfkDi5kW0hGykMdI2s x/38gKjCVf7RJpOCFJZr0ex8G/qhqKwjnUUKPvFWvXz2bSh39fQTs+ekkKb9 kmw/sA2dsVM4nl9NCjFz6XHHXrShm0jGQHWAFIISo3BydO1o4uB4lgcXGSyX kpnr9bSjt0Gs6EcaGXRGK+GobnYgNsd/cx55ZPCm676F8qMO5Ka3mEBXQgax NTYpUYUdiBfXMqNeRwajvCpBroMdKPiDd+zrATJQM3hvpQ+fkRKmZySWnRzC aRrZ37F8QdUF8cE6ceTA+yOoZbjjK2KMCxaefkoOdh+4fdHsV+Qc4NoVlkkO uzZnZd6SdSLsBSDWvCIH6avm8rSqnchvdeWz8BdyGJ0VUf1d3onklA14yGko oOF7sclyxjf0uouhrjGCAvZLLUW/fuxCrVKGrHLRFCBDqRUW0NeF+mIT3Iof U0B0aHugzEwX2tflEEjMpoD2fq2YHopupP0JF3m1kQIGinhetJ7rRr/ey+qz 7VJAHWUjJqS9G9FWmE9c9aKEex4WVHmDPYiPJV15NIASeB7vnziz2INOev1K NA2jhGlr7ab5/R50UcpBC8VRwqlnFiHeuO8ou8TtJdsrSuA4/W/9gut3pJAf 6vdujhKqWZrvi+99R45JBbTsdlQQH3XGkF2yFyWuY96Iu1IB84OdXw/P9qIW g2BzDU8q+J1QL8Vt3osItCZFPmFUcBOX4+EX2YvGbpNo9mRTgbrHWr/CcC+y dLUMjxunAt5AWYb1uD5krMz8l8aBGn5EhU/PUA+giJTgLPx1avjcxShxFj+A Xm/Oap72oQbVh05CNacHEKa8Mcn1DjUsBOY+XLo2gDqJbrJtedTQyWr8N7xz AOkwtrlHTlGD78uZct/UQQTjwdOHTjTQEh7je1pzCO169C7F3KCB0rfRY2R2 Q6jiUGKD05cGtIO+lc4EDiFh3lFS2UgaUJ4P6d58NYTozdRwLrk0UBMYVafC MYwGv1BYfvtFA47WTQ3hy8PIuya2K8uMFn7qE2UTyn8hca3ZfnFbWpgPUnJJ /voLTfei0VpnWsDOOtHXLPxCl/+s/v7uSws63WPMukKjCEma0FEn0oLyJeqZ 92mjiD6fQ9OzixYY0rc3DjTHUEFcdj3o0MFE1hsROY1xFMxLYPY0ogOVyzkJ sxfHkXFxnnOWOR0gxn38K5dxdNhcyHx4lQ46q7z23GPG0aWtly710XRgwLJR +O37OKK2rmWV/0IHRfNFD9ldJ5DbiZ7rYgb0wOppRKOaNYnUq03eW5jRQ0yj WJFFxSTi1OjFRtvSQ3mt3MzDtkn0wXrg/ZwHPXA6ByRKrU4i/se/OArj6YF6 FcPkqT6FurYXWnA99LBhJOaxujCF5D6Q8WIvMsBBiRdLjO4M+tA2hBOwZgAV dWvyffsZdKmjQkjEiQGKaUZi7gTOoMBvDlJKvgzw6sezqr7CGdQ42KJuk8QA e/MsB3Gks0hr+c7Vwl4GoN7Nf2HfOIssOMir5S8xwkCjg+FJ7Xm0yDVcj2wY wYxR5GPOlfmjelU2aTszwr3NhT7xW/MoC+/YYeHHCNWFz07Gl86jKbHWkdtP GYHK4H56LHYBuUMkeVsfIzTSpLmFLy6g8KvkxmZmTFAfEXr8oHgJpWd8quq1 YQLZTzkWk61LqKY7lsfUmQluMx9+nhhdQsunuaYNfZlgwEClXQL7G1nRSgac f8IE28lPW7bu/EbyJWaZqt+YoEKbceuq4zLy87u4+VgQA+4L/q3veVdRJKbm uNFxDCT+rHw8JraKHr/gtsCIYaD39I04BuVV9PLXaGOsDAbMeLONEsxX0aTm tfsxahg4+XzPVTt5FRlyhPLctcVA8d7TL97sa0ispkgtIA0DsvIW5gS+daTV LZB2PwtzVI+34wlS68hh4elGSh4GyvnipbDq6yiN9+7z2hIMZD4gdb3oso7o wq8w7NVjIKZgx6XmzTpa1OEeDBnGAOfaTAte7w8qGYrxvMPHDL0d48xMjzdQ 2wZpxxM8M1A+oe85LNhAkwxBgvlCzOCZYjVBVr+BeMC1r1WCGVIfXDivP72B YvI1VCjPMMM+i3n6jNImun7jgOqBDTMYeUXWKS5sIrF/7lmxWczw57Yagcxi G9G/Hi4yzzuK7zfjJ+O5jZbtz78hPmeGB7N8o373tlH5R6EPdaXMkCXvoYQq tpFc7PDCzFtmmC/dNOpi+ItU+M7Lo2FmOCz9tEzR9hfpKQt9XeFkASUya2R8 fhdJ/k7oq+NlAUlclq6uwy7CZJGM3cWxQESqH5tN8C7qIR1e5xFhgYd2xyU/ le4e/d8ETm0FFphnwVA2se0hG3MSx+yLLMC5Ze2jMb2HPPyHdg0TWMD4S5aU /rMDZFNkLXbjKQusXLetb6s+QPqDo5YPUllgUybmuV3fARJXnmp4n8sCJSTh hDXWQ7RwuHRbpoIF2qBINj7+EDnfOyRl+3GU3+FO9WTcP2SVhKfrZ2cF/3GB qNnvJKD7MU/5Dxcr1JFpLSpNk4DytpAbEz8rvG1hE87eIgFu8xNftYRZgUZO 8mo21zHo55WNq5FnBdUyTfEgu2NgnK/BmmrGCs39ybx5a8dAu8KFx/oZKyj9 0HEyJpABu0CSoHMGK8C7oZLiU2QwEd0s5pHDCrWbSqFsOmQQbM+nEl585D8a xiPkSQZlzN+tCmpZQX/i2mW5d2SA9TyT+XuQFfrkrVN4r5DDlDg7/jY3G4j9 y+YurKSA1ynqolH8bKDO39fztIMCbpN7SscT2ID1y62ajDEK4BzuUMs9wQbx TT+dlukp4UJMmP1HJTaoCpJsznCmhDfzi3mMlmzwnfZYsjY/FYQVNgtnpbGB IkuUws0samApmflln8UGFd7JkSVV1JBfRpssnMcGq2lX/vv7lRraa4ypSl8c 4T+tbL371ID5PDHbUMsGn8QCmVMsaSBrhbT4Zz8bEDT2A8z5aKFR8awYlo0d 3p0RGbzyhg4MVV0mBznYwX8+ly/0aM5OqMWkZfCwg9Cpa8f+m6EDygvf6YQE 2eG3dDfZdR560Ld2WJKVYYcPOZ53SO/Rw0j4nVdGhuwQ0+sks2HLAPsdLVKP HrLD38HPvI+OM0G6/j5jbjw73PvX4u+ixQQqPXLLVYnsIC0x62DvwgQhgwUv x9LZQfOAxLfuORMczkaJyr1iB4m7mU/22DBAQqErOPSVHc5jc43sUjFAjn5g RZmwMDDIdajxhhnym+m3VFmxoFwf/d2qlRk0NM/1GnNgYcmlSCSqjxnu6lU9 CRbAAtfP/AzWvaM+tErBdElhAWe9385wjgWoA61o/Q2xsE51mzNlmAUYKqYO Wh9joWF1xiz+iGfvb6yPEpOwkEm1kdgkwQYDi+q8js+wYIt7SiBTY4NcYo4S WQ4WRP2e+r5zOeLtqbW/WjkWFh345rBVbGAf2Lf6thMLoe6xeYaX2KEGtU9W 0XHAM/tNomcBFvistr3vMXEA4bVFFkM9FiIChEkvsXIAi4FO/bsuLOi9jsRt cnPAZtQzYft9LEwQ1KxlT3DA6ieq7RxTDmCgrOsr0+YA+ehvfAI0nGD/peRT 0V0OuPM1JCg7ggsKBO+ddHrAAdYJooTQVC6YC7JLxj/igGbiPYGbb7jghii7 U2oiB7CrHrjnTHBBwL3bJA/zOMCJc7SUToMb4sBIweM9B3zWCnCQpuOBhsqt /FMHHBB49YWxZQkv/KPrplsn4YSXJuIVkh95Qd2hxLuUnBNkWNwleMZ5oY3Z Do7Tc0Io7+mviIMPetw/DXHycMId0h3Dukg+mBdJZ9lX5IRdv6prDxz5AZuh FtZ8kxO8CqWM+Hlx4OJzkrErgBMOfxjrB4rjoEZHIH0kmBMiTLVmplRwYLG1 X/03khPkfwmeWLbGQZZBzYpkEifUhi2MdGTjQIRUyjbtP06oF2nBNIjiQcmF 98zNLU64vV1L3NUmQIwq3ZfwXU4oOj8VFG1JgGHWXfO4Q04oP99fLOFOgNtN /b4vKLmAClv56+UTArRwPXk1huWCSqe+pvhRAuh+oeHTU+ACa47dmH9BgmAr vb0nFMAFFDShsZTvieCXPXx6+RYXyNwZelz2gwgPmZr9q0K5IIJ1V+76HBFq fj/8oxnFBXE8uBxujBBgXhAWXZ5yQeArCTIrOyFoJuj/LK7kgsnHq1UB5MIg zFZQI7HGBaucNG/SLI+Dyp3orc0NLvBJoRBt8DoOxuseco1/uWBEczVpLeo4 hHYpleuTcINXJFNOWuVxGHjY9dyDiRsc6VheLTOKQDTF/tPXEkc8M9fb5raJ wO8tY99T17hh/usD/R6dE8AyrftT350bdiR8BrocT4D8d03k6s0NT5wCuBdD T0BYmRJNWhA3lCh3KvpUHfm7EjJIYriBYW+QtJcoBvKDa62fS7jBBhdr8JdS HG7Xx7PZ/+aGrnFVYvy4BOQWRwfeWuOG5sOX/IhEEtqSI38lbnLDrzXyNAYB ScDcDChqO+CGGym7qTTWkpArbqciwcgDSfc4zof/lISPGVKOfyV5IHzkk+PD ISlgCuusiPXkgZwAPuOwvZPAUuyzmniTBwb/WM5l0ksDWw+nRFoAD0Rh45o6 +aSBk+hQ+DyMB5x0bwXbgzTg2rdTmuJ5oEprhMHqnjScxOBvr5fzwNZWn/hz dhkwzPbRvrTGA5qLdp/51GXB+BPnXatNHojc//gm6qIsmK6/fW+/wwOraifF Ka7KwmUNamWPY7xAxUZLVI6XBbu5dIn7zLxgmiJyMWlUFjxPfmSpk+aFlCv9 V9ki5OBxE+cInzcv1Oj9I/3WdwouR1R++uXLC3YJ0cxmi6cAp2FYlRXIC5GU HjfW/52C0raoOHw4L1y+tXDRQVQeOjq31ITieWHTdW9eKkQeSEd+FIqX8sLo zrB5pIgC3NyJ91Re4IUyweXerFjFo7kpbr3/mxdKeVvpqgoUgTSkXeftGi9s 5axsjjcoQjwJiSDa4QUN7I7irUVFeEXl0atOzQdIda72P53TMMOup3RemA/6 E2tmrWiVwEyGhtzcng9kBh4y0GYog7hPLcd1Zz7A9fjJytQqA2nlVbGQa3wg bm3L5N+rDC9PdRjnePNBV5SjjRmjCpCejsmZj+ADHeXLib7hKlCKGFBQHh+c 1dROV7+hCuR6zEFpU0f351Fe2bZE8PPR+0ev5vjgoyCrydotBGWdXjnvlvhA QUFkjC4dgYVhT/vkxlE+IjGGecMIyk2ecIhT8IPJyLvUMikASwv2/xqE+MG3 p/NG4n8Ab1y4Vkec+eHU3vCz4E410FVrqnhxjR8mc+/Se4yqwSy3i7+/Oz8w YOSzvVbVgLez8hDjxw/3awVdn7Oowz05QwaNu/xQvpwh1m+mDhbHok68yOMH Cxle1YvT6kCatuHoN8YPo6/2olQYNCD9ZprI2Sl+aPHX3TfCaYCCvvoS0xw/ SKui1EBZDXA7Fu9TvMIPQpso5Z+5BvS5iEUMH/JD9rV3kXPPNeCFnH2WOp8A VL9jT1bVOgdGnd8GGS0E4P2/+RGfRE1on8D7tlsLgBU/9n1ksSbAtg8m4ooA LP+Jv1DcqAkncZxam64CQP1+KEtiXhMw3naVQ/4C8FrD+YIQ0oIu9rXYoiQB sMEasY0va4GhNYuGercAmJg6qTPb6EC7l+Po3g8BuMZksVDvqwNwryrovwEB 8FhsLAx+pAMnyyxei4wJwCbGuAze6gDmWB4/04oA0EQKnevlOw+uPc/2b1Di 4Bz5hxX1yfMg4neiX4mIA5sFivq2UF1YfGetCMI4UP8p8DY3XRdKaR4/OyeC g5PnU7dSa3VBLmPb0vBIFzgUCfcm/+iCWmvrmJMcDi7zSlgOXNUDCxbbhXgN HPwzTbC5bqkPD0ufHMw44uC6z/FMajFDMPj70WbJGQeDj4VcXZQNgUV9992a Kw6K6kw/9F0whJReu4h9N9yRfgQEz7oZQsG+BBWLLw4eVS9V95QZQuP5dozq XRzU8lPdGFU0grWZfcEnBThwo/N6q3fZGLAhYiO+z3HA1shYknPVGFRYLZ5e LsaB1L3iLYpbxnAfVVPzv8LBzKv66X8ZxsCf4vW7qBIHXhFf+uumjEFXZ6aq seUo3hmeMQtfEygs+aazMH703uQ1tf/yTOGL2iHp10kcbAQPU8hVm8J6v3hD 2TQOxjr6ZT90mIIqebSk7zwObo/ksgqsm8IPKw1WkjUcTB/L+PpG7SIcY6wd ZifBw4Kld93VqYtg5ZnrocaPBy3+YO8kRTOg0bRs0MXhwWLv0Mba0AyqeNho LhPwQK+qVKjqagaYtru57sJ4IKmoLtJKMYMWvqu9aZJ44FwJOhO5YwYnPksp b53BQ2dGM1VV02XYFnpLWWKLBwnCdatKewvI3/M1qbqCB0HT1NXaEAsw7JbM fu+AB6vlE9JDKRbwIjj79IALHrhkF0S8vlmAzfc7bhSeR7ghiXVZ1RJaw873 2IbhQYoHp3IOZwUJQ/0ZbDl4GI9IUVfas4bcgxj1g1w83J/epJzmsIHXAjA7 nY+H3swrciVyNtDlUHSyuggPiSvGstHuNsCwFNBiXo6Hh88KCpImbeD+Ptd8 5js82Db0fdvpsYXbfFZyor/w4G6nzzk8aQexCDPIPIaHw9p8V9INO8i40hqy O44Hza+MJxTJr0BDgXjb52k8aDgoK/cQrxzp6IG5+288EAqHFZqdr8DNM5mh Fft46E8K68r8fQWu2Y51qPIQIB2/IFtN5QBz/NeGePmO9pJLJmOPuBzA+def xT1+Amx3+Z/zFXMAe2sqhjoCAbLoKgP8DBzA0lLSQP4EAbSqQ1Q1UhxA1yz4 u+RpAvBddDvHI+EIkgacwwJmBOAx+5xywtEJXjLmLh1eJoDDydRRhQAnONEp djBiQYCNKxrrZg+dQFgP8afbEMAw4b/3XZVOIHDB2Y7TmQCJPX67hZTOgNGq nML4EuBiy8+kzVfOsHbG8Pexoz3JTv84fQadK2ypOj6mSSKAwQfG3xiiK+yr BJxiTibAF57RkgwVV6BUzg7BpRGAnvmWCKm7K/AqrDKgPAJAGu3cTrcraErF SwZXEABvVyxan3kVUgW6PLa+E6BcliMU6V6HLP4p1sNeAvhtTfOSul6HfL6/ 1RQDBDjkebM5duc6lPHgSNiHCbBqderzn/rr0MrhGS87RYDBpo2TXhJusMyE ee25QYD+1uM5U+w34CyJ4foCmyDQ99vjIg7c4cUF2+VvWEHwkCpdX+D2AJZk 94VKTkHApja98lD0gAmJRxO3eQWBlO2c9lcfD4iw7OhhIQpCpF3q7tCiBzRV aVQoyQqCTojpnTJPT1C9cfpmtJEgGGFqTG29vCC/RtvTw0QQHPIXl5bCvYCe /LKb6UVBKKyPVYpO8ILhVD9HfnNB8PrWI71R4QXB7RWmb+wEQVf59KmobS+o E5Q89dNDEKpTf05XhXuDwk/ClmisIGg0QsGLXB8Qdmq4qxAvCMMnfnQOV/kA 2+pF9nMJggCtIo2Cn31gneKBnN1TQRiozDm7+scHSqVXvJ9mCsJq7q1z9zRv gvCD+hXSMkHwmb9xoXblJmAVTeeHvgnCpqaG9qCxH1C0/A6Y7xYE8Xc1575d 9YMNvSjq7e+CwMC+PTYc5gc9DnXHWQYEYb6f1RiV+UFsHM5Ze0wQ0ud4vgoy +APl7NJE5aogHLgoLIV99YfNpLvDj5iJIHxn1BRdCQTjxo3+x6xEIA/0Jh8L CoTyGYfvSexEcOluSUxNDAQ3BfWODC4ixL1Xa7JuD4SJgcPqV3giNFb3EQWk g6CLJ+DJV2kiPGH88qiA6ha8zLl2nsGYCAZLAV/DPwUDbcfgOWZTIox1t519 MhMMruvaauyXjrD9KbZmshAQPHtckc+CCODCqRRwJgRSpyaFJOyJcO3N2VGd /0Lg/nHrY3reRFjIl+PLKLoNDq8Mah4mEMGIyZnfwyQMiIQ6OvdEIjBo6dp/ sw+DqadEW4OnRODm8MKf8Q4Dx7AdCpZUIkRGM2trPQ4DJ5M8k+QcIrCTv62m 6QoDl52t5ZxyIkQ/pDS1NAyH6+cyhao7iTD617Y/ySoCxOuoA1O6iNAslbMy diMCliR9vgT2EKEuw9lIJTQC3Di1fVT6iHBJY06SmBsBNxbXmt6PEGHgwyBp 3VwEeDw+Z/VliQirHjJtdIF3wGdkKWGcVggi+OvTagojoe7xeOAivRAE9iUb ddVHAqlmn90moxBQjD5OOOiKhPjSd5I0rEJQe+Evw7O9SCgNTeg4ySMEuUwK l/uM7sICXpE0TEwIJHzeroeQ3gM75zte/LpCcJpp5ZugbxQUcQdcFtEXgr1v ZRe4HkXBSqcbkjEUAjZ/UjheEAW3FS4xaJoKQc0Pz62HvVGQRi1afMNKCA4z Eq0iFO5D34vOsQY3IdgiUb0pRvIAtt9WMA3HCEFws/WX4cfR8D+V/bxa "]]}}}, 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->{}, PlotRange->{{0, 10.}, {0, 512.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.6566700572053137`*^9, 3.6566700640903254`*^9}}] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1920, 998}, WindowMargins->{{-8, Automatic}, {Automatic, -8}}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> True}}, ShowSelection->True, Magnification:>FEPrivate`If[ FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.5, 1.5 Inherited], FrontEndVersion->"10.1 for Microsoft Windows (64-bit) (March 23, 2015)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 232, 4, 203, "Title"], Cell[CellGroupData[{ Cell[836, 30, 182, 2, 105, "Section"], Cell[CellGroupData[{ Cell[1043, 36, 754, 19, 346, "Code"], Cell[1800, 57, 70, 1, 42, "Output"], Cell[1873, 60, 88, 1, 42, "Output"], Cell[1964, 63, 70, 1, 42, "Output"], Cell[2037, 66, 72, 1, 42, "Output"], Cell[2112, 69, 75, 1, 42, "Output"], Cell[2190, 72, 94, 2, 42, "Output"], Cell[2287, 76, 74, 1, 42, "Output"], Cell[2364, 79, 73, 1, 42, "Output"], Cell[2440, 82, 93, 2, 62, "Output"], Cell[2536, 86, 72, 1, 42, "Output"], Cell[2611, 89, 72, 1, 42, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2732, 96, 203, 3, 105, "Section"], Cell[CellGroupData[{ Cell[2960, 103, 159, 2, 54, "Subsection"], Cell[CellGroupData[{ Cell[3144, 109, 338, 11, 103, "Code"], Cell[3485, 122, 167, 5, 45, "Output"], Cell[3655, 129, 220, 7, 45, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[3924, 142, 402, 5, 54, "Subsection"], Cell[CellGroupData[{ Cell[4351, 151, 339, 8, 130, "Code"], Cell[4693, 161, 72, 1, 42, "Output"], Cell[4768, 164, 96, 2, 59, "Output"], Cell[4867, 168, 72, 1, 42, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[4988, 175, 337, 4, 54, "Subsection"], Cell[CellGroupData[{ Cell[5350, 183, 159, 3, 75, "Code"], Cell[5512, 188, 137, 3, 42, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[5698, 197, 524, 10, 54, "Subsection"], Cell[6225, 209, 634, 21, 103, "Code"], Cell[6862, 232, 346, 9, 103, "Code"], Cell[CellGroupData[{ Cell[7233, 245, 394, 8, 103, "Code"], Cell[7630, 255, 171, 3, 42, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7862, 265, 248, 3, 105, "Section"], Cell[CellGroupData[{ Cell[8135, 272, 545, 10, 54, "Subsection"], Cell[CellGroupData[{ Cell[8705, 286, 260, 6, 130, "Code"], Cell[8968, 294, 154, 4, 67, "Output"], Cell[9125, 300, 188, 6, 74, "Output"], Cell[9316, 308, 125, 2, 42, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[9490, 316, 311, 4, 54, "Subsection"], Cell[CellGroupData[{ Cell[9826, 324, 884, 23, 130, "Code"], Cell[10713, 349, 136, 2, 42, "Output"], Cell[10852, 353, 137, 2, 42, "Output"], Cell[10992, 357, 162, 2, 42, "Output"] }, Open ]], Cell[11169, 362, 102, 1, 41, "Text"], Cell[CellGroupData[{ Cell[11296, 367, 317, 7, 130, "Code"], Cell[11616, 376, 141, 2, 42, "Output"], Cell[11760, 380, 142, 2, 42, "Output"], Cell[11905, 384, 142, 2, 42, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[12096, 392, 1304, 36, 120, "Subsection"], Cell[CellGroupData[{ Cell[13425, 432, 755, 22, 157, "Code"], Cell[14183, 456, 153, 4, 77, "Output"], Cell[14339, 462, 206, 8, 74, "Output"], Cell[14548, 472, 150, 3, 62, "Output"], Cell[14701, 477, 104, 2, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14842, 484, 843, 25, 157, "Code"], Cell[15688, 511, 168, 3, 42, "Output"], Cell[15859, 516, 105, 2, 42, "Output"], Cell[15967, 520, 92, 1, 45, "Output"], Cell[16062, 523, 87, 1, 42, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16198, 530, 319, 4, 54, "Subsection"], Cell[CellGroupData[{ Cell[16542, 538, 382, 11, 75, "Code"], Cell[16927, 551, 405, 12, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17369, 568, 258, 7, 75, "Code"], Cell[17630, 577, 284, 9, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17951, 591, 221, 6, 102, "Code"], Cell[18175, 599, 220, 6, 68, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18432, 610, 205, 5, 102, "Code"], Cell[18640, 617, 356, 12, 65, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19033, 634, 469, 15, 75, "Code"], Cell[19505, 651, 270, 8, 45, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[19824, 665, 772, 22, 104, "Subsection"], Cell[CellGroupData[{ Cell[20621, 691, 675, 22, 130, "Code"], Cell[21299, 715, 194, 5, 42, "Output"], Cell[21496, 722, 221, 6, 45, "Output"], Cell[21720, 730, 443, 15, 68, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[22212, 751, 979, 29, 82, "Subsection"], Cell[CellGroupData[{ Cell[23216, 784, 642, 21, 103, "Code"], Cell[23861, 807, 335, 11, 42, "Output"], Cell[24199, 820, 290, 9, 45, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[24538, 835, 477, 13, 103, "Subsection"], Cell[CellGroupData[{ Cell[25040, 852, 228, 6, 99, "Code"], Cell[25271, 860, 226, 7, 62, "Output"] }, Open ]], Cell[25512, 870, 499, 14, 61, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[26060, 890, 129, 1, 105, "Section"], Cell[CellGroupData[{ Cell[26214, 895, 235, 6, 75, "Code"], Cell[26452, 903, 6194, 113, 354, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32683, 1021, 317, 9, 93, "Code"], Cell[33003, 1032, 9977, 178, 354, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[43017, 1215, 1025, 28, 130, "Code"], Cell[44045, 1245, 4313, 83, 371, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[48407, 1334, 343, 4, 105, "Section"], Cell[CellGroupData[{ Cell[48775, 1342, 736, 11, 54, "Subsection"], Cell[CellGroupData[{ Cell[49536, 1357, 1141, 32, 103, "Code"], Cell[50680, 1391, 1167, 29, 360, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[51884, 1425, 695, 20, 130, "Code"], Cell[52582, 1447, 248, 5, 42, "Output"], Cell[52833, 1454, 2874, 58, 360, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[55756, 1518, 683, 10, 54, "Subsection"], Cell[CellGroupData[{ Cell[56464, 1532, 1044, 30, 103, "Code"], Cell[57511, 1564, 1037, 27, 362, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[58585, 1596, 678, 20, 130, "Code"], Cell[59266, 1618, 322, 6, 45, "Output"], Cell[59591, 1626, 4980, 94, 362, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[64620, 1726, 577, 9, 54, "Subsection"], Cell[CellGroupData[{ Cell[65222, 1739, 1035, 30, 103, "Code"], Cell[66260, 1771, 1005, 27, 362, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[67302, 1803, 587, 18, 130, "Code"], Cell[67892, 1823, 176, 3, 42, "Output"], Cell[68071, 1828, 12173, 211, 362, "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)