(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 17401, 502] NotebookOptionsPosition[ 15417, 429] NotebookOutlinePosition[ 15805, 446] CellTagsIndexPosition[ 15762, 443] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ StyleBox[ RowBox[{ RowBox[{ RowBox[{ "\:041f\:043b\:043e\:0449\:0430\:0434\:044c", " ", "\:0432\:0441\:0435\:0433\:043e"}], " ", "<", "0", ">", " ", "\:0442\:0440\:0435\:0443\:0433\:043e\:043b\:044c\:043d\:0438\:043a\:0430\ "}], ";"}], "Code"], "\[IndentingNewLine]", FractionBox[ RowBox[{"5.0", "\[Times]", "13"}], "2"]}], "Input", CellFrame->{{0, 0}, {0, 0.5}}, CellChangeTimes->{{3.407646445234375*^9, 3.407646453109375*^9}, 3.407646528765625*^9, {3.407646744421875*^9, 3.407646839640625*^9}, { 3.407646875765625*^9, 3.40764687909375*^9}, {3.40764691534375*^9, 3.407646917078125*^9}, {3.4076471869375*^9, 3.407647199921875*^9}, { 3.4076472880625*^9, 3.4076472958125*^9}, {3.407652669296875*^9, 3.407652680640625*^9}}], Cell[BoxData["32.5`"], "Output", CellFrame->{{0, 0}, {0, 0.5}}, CellChangeTimes->{ 3.407646454546875*^9, 3.40764652965625*^9, 3.40764675175*^9, { 3.407646872828125*^9, 3.4076468805625*^9}, 3.40764691790625*^9, 3.40764720084375*^9, 3.407647297015625*^9, 3.4076478445*^9, 3.40764839240625*^9}] }, Open ]], Cell[BoxData[ StyleBox[ RowBox[{ "\:0410\:043d\:0430\:043b\:0438\:0437", " ", "\:043f\:0435\:0440\:0432\:043e\:0433\:043e", " ", "\:0441\:043b\:043e\:0436\:0435\:043d\:043d\:043e\:0433\:043e", " ", "\:0442\:0440\:0435\:0443\:0433\:043e\:043b\:044c\:043d\:0438\:043a\:0430"}\ ], FontSize->16]], "Input", CellChangeTimes->{{3.40765636784375*^9, 3.4076563725625*^9}}, FontSize->14], Cell[CellGroupData[{ Cell[BoxData[{ StyleBox[ RowBox[{ RowBox[{ RowBox[{ "\:041e\:0441\:0442\:0440\:044b\:0439", " ", "\:0443\:0433\:043e\:043b", " ", "\:043e\:0431\:0449\:0435\:0433\:043e"}], " ", "<", "0", ">", " ", "\:0442\:0440\:0435\:0443\:0433\:043e\:043b\:044c\:043d\:0438\:043a\:0430\ "}], ";"}], "Code"], "\[IndentingNewLine]", RowBox[{ RowBox[{"ArcTan", "[", RowBox[{"5.0", "/", "13"}], "]"}], "/", "Degree"}]}], "Input", CellChangeTimes->{{3.407646512453125*^9, 3.40764654509375*^9}, 3.407646575453125*^9, {3.407646621390625*^9, 3.4076466365*^9}, { 3.40764667815625*^9, 3.407646699796875*^9}, {3.40764679184375*^9, 3.407646851078125*^9}, {3.4076468835*^9, 3.4076469101875*^9}, { 3.407647303453125*^9, 3.407647308078125*^9}}], Cell[BoxData["21.037511025421818`"], "Output", CellChangeTimes->{3.407646920765625*^9, 3.40764730909375*^9, 3.40764761009375*^9, 3.407647844546875*^9, 3.407647946203125*^9, 3.4076483924375*^9, 3.407652694484375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ StyleBox[ RowBox[{ RowBox[{ "\:041f\:043b\:043e\:0449\:0430\:0434\:044c", " ", "<", "1", ">", " ", "\:0442\:0440\:0435\:0443\:0433\:043e\:043b\:044c\:043d\:0438\:043a\:0430\ "}], ";"}], "Code"], "\[IndentingNewLine]", RowBox[{"8.0", "\[Times]", FractionBox["5", "13"]}], "\[IndentingNewLine]", RowBox[{"S1", "=", FractionBox[ RowBox[{"8", "\[Times]", RowBox[{"(", RowBox[{"8.0", "\[Times]", FractionBox["5", "13"]}], ")"}]}], "2"]}]}], "Input", CellChangeTimes->{{3.4076464624375*^9, 3.407646464390625*^9}, 3.407647116328125*^9, {3.40764715415625*^9, 3.40764717328125*^9}, { 3.4076472424375*^9, 3.4076472595*^9}, {3.407647321046875*^9, 3.40764734646875*^9}, 3.4076473986875*^9, {3.407647439859375*^9, 3.407647441453125*^9}, {3.407647495703125*^9, 3.40764750209375*^9}, { 3.407647710640625*^9, 3.4076477153125*^9}, {3.407647792171875*^9, 3.4076477983125*^9}, {3.407648364265625*^9, 3.40764837665625*^9}, { 3.407652691546875*^9, 3.407652733453125*^9}, {3.407653500625*^9, 3.4076535370625*^9}}], Cell[BoxData["3.076923076923077`"], "Output", CellChangeTimes->{{3.407647255796875*^9, 3.40764726053125*^9}, 3.407647349203125*^9, 3.40764750296875*^9, 3.4076478445625*^9, 3.40764794778125*^9, {3.40764837321875*^9, 3.407648392453125*^9}, { 3.407652693171875*^9, 3.40765270128125*^9}, 3.407653504*^9, 3.407653538015625*^9}], Cell[BoxData["12.307692307692308`"], "Output", CellChangeTimes->{{3.407647255796875*^9, 3.40764726053125*^9}, 3.407647349203125*^9, 3.40764750296875*^9, 3.4076478445625*^9, 3.40764794778125*^9, {3.40764837321875*^9, 3.407648392453125*^9}, { 3.407652693171875*^9, 3.40765270128125*^9}, 3.407653504*^9, 3.407653538015625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ StyleBox[ RowBox[{ RowBox[{ "\:041f\:043b\:043e\:0449\:0430\:0434\:044c", " ", "<", "2", ">", " ", "\:0442\:0440\:0435\:0443\:0433\:043e\:043b\:044c\:043d\:0438\:043a\:0430\ "}], ";"}], "Code"], "\[IndentingNewLine]", FractionBox["2.0", RowBox[{"5", "/", "13"}]], "\[IndentingNewLine]", RowBox[{"S2", "=", FractionBox[ RowBox[{"2", "\[Times]", FractionBox["2.0", RowBox[{"5", "/", "13"}]]}], "2"]}]}], "Input", CellChangeTimes->{{3.40764740671875*^9, 3.407647480671875*^9}, { 3.40764772203125*^9, 3.407647737890625*^9}, {3.407647801453125*^9, 3.40764780540625*^9}, {3.407648378578125*^9, 3.407648380984375*^9}, 3.407648810171875*^9, {3.407652742546875*^9, 3.40765276278125*^9}, { 3.407653546171875*^9, 3.407653553140625*^9}}], Cell[BoxData["5.2`"], "Output", CellChangeTimes->{{3.40764746125*^9, 3.407647481859375*^9}, 3.40764784459375*^9, 3.40764794959375*^9, 3.407648392484375*^9, 3.4076527649375*^9, 3.40765355609375*^9}], Cell[BoxData["5.2`"], "Output", CellChangeTimes->{{3.40764746125*^9, 3.407647481859375*^9}, 3.40764784459375*^9, 3.40764794959375*^9, 3.407648392484375*^9, 3.4076527649375*^9, 3.40765355609375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ StyleBox[ RowBox[{ RowBox[{ "\:041f\:043b\:043e\:0449\:0430\:0434\:044c", " ", "<", "3", ">", " ", "\:0444\:0438\:0433\:0443\:0440\:044b"}], ";"}], "Code"], "\[IndentingNewLine]", StyleBox[ RowBox[{"S3", "=", "8"}], "Input"]}], "Input", CellChangeTimes->{{3.407647518265625*^9, 3.4076475834375*^9}, { 3.4076476509375*^9, 3.407647658109375*^9}, {3.407647810953125*^9, 3.407647811359375*^9}}], Cell[BoxData["8"], "Output", CellChangeTimes->{3.407647870390625*^9, 3.407647951703125*^9, 3.4076483925*^9, 3.407652774546875*^9, 3.407653577703125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ StyleBox[ RowBox[{ RowBox[{ "\:041f\:043b\:043e\:0449\:0430\:0434\:044c", " ", "<", "4", ">", " ", "\:0444\:0438\:0433\:0443\:0440\:044b"}], ";"}], "Code"], "\[IndentingNewLine]", StyleBox[ RowBox[{"S4", "=", "7"}], "Input"]}], "Input", CellChangeTimes->{{3.407647646765625*^9, 3.407647691484375*^9}, { 3.407647813578125*^9, 3.407647814*^9}}], Cell[BoxData["7"], "Output", CellChangeTimes->{3.4076478724375*^9, 3.4076479531875*^9, 3.40764839253125*^9, 3.407652777984375*^9, 3.407653578703125*^9}] }, Open ]], Cell[BoxData[ StyleBox[ RowBox[{ "\:0410\:043d\:0430\:043b\:0438\:0437", " ", "\:0432\:0442\:043e\:0440\:043e\:0433\:043e", " ", "\:0441\:043b\:043e\:0436\:0435\:043d\:043d\:043e\:0433\:043e", " ", "\:0442\:0440\:0435\:0443\:0433\:043e\:043b\:044c\:043d\:0438\:043a\:0430"}\ ], FontSize->16]], "Input", CellChangeTimes->{{3.407656244359375*^9, 3.4076563086875*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ StyleBox[ RowBox[{ RowBox[{ "\:041f\:043b\:043e\:0449\:0430\:0434\:044c", " ", "<", "10", ">", " ", "\:0442\:0440\:0435\:0443\:0433\:043e\:043b\:044c\:043d\:0438\:043a\:0430\ "}], ";"}], "Code"], "\[IndentingNewLine]", FractionBox["3.0", RowBox[{"5", "/", "13"}]], "\[IndentingNewLine]", RowBox[{"S10", "=", FractionBox[ RowBox[{"3", "\[Times]", RowBox[{"(", FractionBox["3.0", RowBox[{"5", "/", "13"}]], ")"}]}], "2"]}]}], "Input", CellChangeTimes->{{3.4076464624375*^9, 3.407646464390625*^9}, 3.407647116328125*^9, {3.40764715415625*^9, 3.40764717328125*^9}, { 3.4076472424375*^9, 3.4076472595*^9}, {3.407647321046875*^9, 3.40764734646875*^9}, 3.4076473986875*^9, {3.407647439859375*^9, 3.407647441453125*^9}, {3.407647495703125*^9, 3.40764750209375*^9}, { 3.407647710640625*^9, 3.4076477153125*^9}, {3.407647792171875*^9, 3.4076477983125*^9}, {3.407648364265625*^9, 3.40764837665625*^9}, { 3.407648755078125*^9, 3.407648783796875*^9}, {3.40765243153125*^9, 3.407652448828125*^9}, {3.407652532390625*^9, 3.40765257965625*^9}, { 3.407653592640625*^9, 3.407653602515625*^9}}], Cell[BoxData["7.800000000000001`"], "Output", CellChangeTimes->{{3.407648778484375*^9, 3.407648784484375*^9}, 3.407649073140625*^9, {3.40765242684375*^9, 3.407652450359375*^9}, { 3.407652548625*^9, 3.407652584375*^9}, 3.40765360553125*^9}], Cell[BoxData["11.700000000000001`"], "Output", CellChangeTimes->{{3.407648778484375*^9, 3.407648784484375*^9}, 3.407649073140625*^9, {3.40765242684375*^9, 3.407652450359375*^9}, { 3.407652548625*^9, 3.407652584375*^9}, 3.40765360553125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ StyleBox[ RowBox[{ RowBox[{ "\:041f\:043b\:043e\:0449\:0430\:0434\:044c", " ", "<", "20", ">", " ", "\:0442\:0440\:0435\:0443\:0433\:043e\:043b\:044c\:043d\:0438\:043a\:0430\ "}], ";"}], "Code"], "\[IndentingNewLine]", RowBox[{"5.0", "\[Times]", RowBox[{"(", RowBox[{"5", "/", "13"}], ")"}]}], "\[IndentingNewLine]", RowBox[{"S20", "=", FractionBox[ RowBox[{"5", "\[Times]", RowBox[{"(", RowBox[{"5.0", "*", RowBox[{"(", RowBox[{"5", "/", "13"}], ")"}]}], ")"}]}], "2"]}]}], "Input", CellChangeTimes->{{3.40764740671875*^9, 3.407647480671875*^9}, { 3.40764772203125*^9, 3.407647737890625*^9}, {3.407647801453125*^9, 3.40764780540625*^9}, {3.407648378578125*^9, 3.407648380984375*^9}, { 3.4076488029375*^9, 3.40764886740625*^9}, {3.407653612015625*^9, 3.407653635390625*^9}, {3.407653753921875*^9, 3.407653755953125*^9}}], Cell[BoxData["1.9230769230769231`"], "Output", CellChangeTimes->{{3.40764746125*^9, 3.407647481859375*^9}, 3.40764784459375*^9, 3.40764794959375*^9, 3.407648392484375*^9, 3.4076488449375*^9, 3.40764907434375*^9, {3.40765363040625*^9, 3.407653636671875*^9}}], Cell[BoxData["4.8076923076923075`"], "Output", CellChangeTimes->{{3.40764746125*^9, 3.407647481859375*^9}, 3.40764784459375*^9, 3.40764794959375*^9, 3.407648392484375*^9, 3.4076488449375*^9, 3.40764907434375*^9, {3.40765363040625*^9, 3.407653636671875*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ StyleBox[ RowBox[{ RowBox[{ "\:041f\:043b\:043e\:0449\:0430\:0434\:044c", " ", "<", "30", ">", " ", "\:0444\:0438\:0433\:0443\:0440\:044b"}], ";"}], "Code"], "\[IndentingNewLine]", StyleBox[ RowBox[{"S30", "=", "8"}], "Input"]}], "Input", CellChangeTimes->{{3.407647518265625*^9, 3.4076475834375*^9}, { 3.4076476509375*^9, 3.407647658109375*^9}, {3.407647810953125*^9, 3.407647811359375*^9}, {3.4076488695625*^9, 3.407648871078125*^9}}], Cell[BoxData["8"], "Output", CellChangeTimes->{3.407647870390625*^9, 3.407647951703125*^9, 3.4076483925*^9, 3.407648885265625*^9, 3.407649075765625*^9, 3.407653640453125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ StyleBox[ RowBox[{ RowBox[{ "\:041f\:043b\:043e\:0449\:0430\:0434\:044c", " ", "<", "40", ">", " ", "\:0444\:0438\:0433\:0443\:0440\:044b"}], ";"}], "Code"], "\[IndentingNewLine]", StyleBox[ RowBox[{"S40", "=", RowBox[{"6", "+", RowBox[{"(", RowBox[{"1", "-", RowBox[{ FractionBox["1", "2"], RowBox[{"(", RowBox[{"2", "-", RowBox[{"5.0", "\[Times]", RowBox[{"(", RowBox[{"5", "/", "13"}], ")"}]}]}], ")"}], "\[Times]", RowBox[{"(", RowBox[{"8", "-", FractionBox["3.0", RowBox[{"5", "/", "13"}]]}], ")"}]}]}], ")"}]}]}], "Input"]}], "Input", CellChangeTimes->{{3.407647518265625*^9, 3.4076475834375*^9}, { 3.4076476509375*^9, 3.407647658109375*^9}, {3.407647810953125*^9, 3.407647811359375*^9}, {3.4076488695625*^9, 3.407648871078125*^9}, { 3.407648908453125*^9, 3.407649069875*^9}, {3.40765376503125*^9, 3.40765377746875*^9}}], Cell[BoxData["6.992307692307692`"], "Output", CellChangeTimes->{{3.407649057671875*^9, 3.407649077390625*^9}, 3.407653780359375*^9}] }, Open ]], Cell[BoxData[ StyleBox[ RowBox[{ "\:0410\:043d\:0430\:043b\:0438\:0437", " ", "\:0440\:0430\:0437\:043b\:0438\:0447\:0438\:0439", " ", "\:0441\:043b\:043e\:0436\:0435\:043d\:043d\:044b\:0445", " ", "\:0442\:0440\:0435\:0443\:0433\:043e\:043b\:044c\:043d\:0438\:043a\:043e\ \:0432"}], FontSize->16]], "Input", CellChangeTimes->{{3.407656501546875*^9, 3.4076565524375*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ StyleBox[ RowBox[{ RowBox[{ RowBox[{ "\:0420\:0430\:0437\:043d\:043e\:0441\:0442\:044c", " ", "\:043f\:043b\:043e\:0449\:0430\:0434\:0435\:0439"}], " ", "<", "1", ">", " ", "\:0438", " ", "<", "10", ">", " ", "\:0442\:0440\:0435\:0443\:0433\:043e\:043b\:044c\:043d\:0438\:043a\:043e\ \:0432"}], ";"}], "Code"], "\[IndentingNewLine]", RowBox[{"S1", "-", "S10"}]}], "Input", CellChangeTimes->{{3.40765547284375*^9, 3.4076554879375*^9}, { 3.407656568578125*^9, 3.40765661278125*^9}}], Cell[BoxData["0.6076923076923073`"], "Output", CellChangeTimes->{{3.40765548134375*^9, 3.407655488515625*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ StyleBox[ RowBox[{ RowBox[{ RowBox[{ "\:0420\:0430\:0437\:043d\:043e\:0441\:0442\:044c", " ", "\:043f\:043b\:043e\:0449\:0430\:0434\:0435\:0439"}], " ", "<", "2", ">", " ", "\:0438", " ", "<", "20", ">", " ", "\:0442\:0440\:0435\:0443\:0433\:043e\:043b\:044c\:043d\:0438\:043a\:043e\ \:0432"}], ";"}], "Code"], "\[IndentingNewLine]", RowBox[{"S2", "-", "S20"}]}], "Input", CellChangeTimes->{{3.407655491109375*^9, 3.407655496265625*^9}, { 3.40765661975*^9, 3.40765662675*^9}}], Cell[BoxData["0.3923076923076927`"], "Output", CellChangeTimes->{3.407655496875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ StyleBox[ RowBox[{ RowBox[{ "\:041f\:043b\:043e\:0449\:0430\:0434\:044c", " ", "\:0443\:0441\:0435\:0447\:0435\:043d\:043d\:043e\:0439", " ", "4", " ", "\:0444\:0438\:0433\:0443\:0440\:044b"}], ";"}], "Code"], "\[IndentingNewLine]", RowBox[{ FractionBox["1", "2"], RowBox[{"(", RowBox[{"2", "-", RowBox[{"5.0", "\[Times]", RowBox[{"(", RowBox[{"5", "/", "13"}], ")"}]}]}], ")"}], "\[Times]", RowBox[{"(", RowBox[{"8", "-", FractionBox["3.0", RowBox[{"5", "/", "13"}]]}], ")"}]}]}], "Input", CellChangeTimes->{{3.407656155359375*^9, 3.407656155875*^9}, { 3.407656649859375*^9, 3.40765669653125*^9}}], Cell[BoxData["0.00769230769230766`"], "Output", CellChangeTimes->{{3.407656141828125*^9, 3.407656157203125*^9}, 3.40765669765625*^9}] }, Open ]] }, WindowSize->{497, 665}, WindowMargins->{{29, Automatic}, {-6, Automatic}}, CellLabelAutoDelete->True, Magnification->1., FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 28, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 784, 17, 73, "Input"], Cell[1377, 42, 306, 6, 38, "Output"] }, Open ]], Cell[1698, 51, 399, 10, 33, "Input"], Cell[CellGroupData[{ Cell[2122, 65, 762, 16, 52, "Input"], Cell[2887, 83, 222, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3146, 91, 1081, 23, 108, "Input"], Cell[4230, 116, 338, 5, 30, "Output"], Cell[4571, 123, 339, 5, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4947, 133, 793, 18, 110, "Input"], Cell[5743, 153, 206, 3, 30, "Output"], Cell[5952, 158, 206, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6195, 166, 432, 11, 52, "Input"], Cell[6630, 179, 156, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6823, 186, 381, 10, 52, "Input"], Cell[7207, 198, 156, 2, 30, "Output"] }, Open ]], Cell[7378, 203, 385, 9, 33, "Input"], Cell[CellGroupData[{ Cell[7788, 216, 1168, 24, 113, "Input"], Cell[8959, 242, 247, 3, 30, "Output"], Cell[9209, 247, 248, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9494, 255, 903, 21, 85, "Input"], Cell[10400, 278, 270, 4, 30, "Output"], Cell[10673, 284, 270, 4, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10980, 293, 478, 11, 52, "Input"], Cell[11461, 306, 181, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11679, 314, 993, 28, 66, "Input"], Cell[12675, 344, 137, 2, 30, "Output"] }, Open ]], Cell[12827, 349, 391, 9, 33, "Input"], Cell[CellGroupData[{ Cell[13243, 362, 530, 12, 52, "Input"], Cell[13776, 376, 111, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13924, 382, 526, 12, 52, "Input"], Cell[14453, 396, 85, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14575, 402, 685, 20, 66, "Input"], Cell[15263, 424, 138, 2, 30, "Output"] }, Open ]] } ] *) (* End of internal cache information *)