(* 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[ 12996, 469] NotebookOptionsPosition[ 11100, 396] NotebookOutlinePosition[ 11460, 412] CellTagsIndexPosition[ 11417, 409] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Expand", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"s", "-", "3"}], ")"}], "^", "3"}], "+", RowBox[{"4", RowBox[{ RowBox[{"(", RowBox[{"s", "-", "3"}], ")"}], "^", "2"}]}], "+", RowBox[{"6", RowBox[{"(", RowBox[{"s", "-", "3"}], ")"}]}], "+", "4"}], "]"}]], "Input", CellChangeTimes->{{3.447682715675005*^9, 3.4476828005020437`*^9}, { 3.447682982437215*^9, 3.4476829830153327`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"9", " ", "s"}], "-", RowBox[{"5", " ", SuperscriptBox["s", "2"]}], "+", SuperscriptBox["s", "3"]}]], "Output", CellChangeTimes->{{3.447682791517784*^9, 3.447682800877039*^9}, 3.4476829836559496`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"s", "-", "3"}], ")"}], "^", "3"}], "+", RowBox[{"4", RowBox[{ RowBox[{"(", RowBox[{"s", "-", "3"}], ")"}], "^", "2"}]}], "+", RowBox[{"6", RowBox[{"(", RowBox[{"s", "-", "3"}], ")"}]}], "+", "4"}], "\[Equal]", "0"}], ",", "s"}], "]"}]], "Input", CellChangeTimes->{{3.447683094482656*^9, 3.4476831008731995`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"s", "\[Rule]", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"s", "\[Rule]", RowBox[{"2", "-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"s", "\[Rule]", RowBox[{"2", "+", "\[ImaginaryI]"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.447683101357568*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{"s", "-", "1"}], ")"}], RowBox[{"(", RowBox[{"s", "-", "2"}], ")"}], RowBox[{"(", RowBox[{"s", "-", "3"}], ")"}], RowBox[{"(", RowBox[{"s", "+", "4"}], ")"}], RowBox[{"(", RowBox[{"s", "+", "5"}], ")"}]}], "]"}]], "Input", CellChangeTimes->{{3.4476838064579177`*^9, 3.447683841098099*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", "120"}], "+", RowBox[{"166", " ", "s"}], "-", RowBox[{"27", " ", SuperscriptBox["s", "2"]}], "-", RowBox[{"23", " ", SuperscriptBox["s", "3"]}], "+", RowBox[{"3", " ", SuperscriptBox["s", "4"]}], "+", SuperscriptBox["s", "5"]}]], "Output", CellChangeTimes->{{3.4476838302232385`*^9, 3.447683841566843*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"5", "/", "2"}], RowBox[{"(", RowBox[{"-", "5"}], ")"}]}], "-", "12"}], ")"}]], "Input", CellChangeTimes->{{3.4476840524703937`*^9, 3.447684108360303*^9}}], Cell[BoxData[ RowBox[{"-", FractionBox["49", "2"]}]], "Output", CellChangeTimes->{{3.447684062376517*^9, 3.447684108813422*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"101", " ", RowBox[{"(", RowBox[{"100", "+", RowBox[{"10", " ", "K"}]}], ")"}]}], "-", RowBox[{"100", " ", "K"}]}], "]"}]], "Input", CellChangeTimes->{{3.44768478594538*^9, 3.4476848041638966`*^9}, { 3.4476849213655214`*^9, 3.4476849316310153`*^9}}], Cell[BoxData[ RowBox[{"10100", "+", RowBox[{"910", " ", "K"}]}]], "Output", CellChangeTimes->{ 3.4476848045857663`*^9, {3.4476849226936293`*^9, 3.447684931974761*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"10", "/", "9."}]], "Input", CellChangeTimes->{{3.4476848489445734`*^9, 3.447684850553928*^9}}], Cell[BoxData["1.1111111111111112`"], "Output", CellChangeTimes->{3.4476848510382967`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Collect", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{ RowBox[{"s", RowBox[{"(", RowBox[{"s", "+", "20"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"s", "^", "2"}], "+", RowBox[{"10", " ", "s"}], "+", "125"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"s", "^", "2"}], "+", RowBox[{"60", " ", "s"}], "+", "3400"}], ")"}]}], "+", RowBox[{"K", RowBox[{"(", RowBox[{ RowBox[{"s", "^", "2"}], " ", "+", " ", RowBox[{"30", " ", "s"}], "+", "1125"}], ")"}]}]}], "]"}], ",", "s"}], "]"}]], "Input", CellChangeTimes->{{3.4476853025190687`*^9, 3.447685392225951*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"1125", " ", "K"}], "+", RowBox[{ RowBox[{"(", RowBox[{"8500000", "+", RowBox[{"30", " ", "K"}]}], ")"}], " ", "s"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1255000", "+", "K"}], ")"}], " ", SuperscriptBox["s", "2"]}], "+", RowBox[{"124000", " ", SuperscriptBox["s", "3"]}], "+", RowBox[{"5525", " ", SuperscriptBox["s", "4"]}], "+", RowBox[{"90", " ", SuperscriptBox["s", "5"]}], "+", SuperscriptBox["s", "6"]}]], "Output", CellChangeTimes->{{3.4476853479430447`*^9, 3.4476853619797726`*^9}, 3.4476853925542045`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"90", " ", "5525"}], "-", "124000"}], ")"}], "/", "90."}]}]], "Input", CellChangeTimes->{{3.447685593973695*^9, 3.4476856210710864`*^9}, { 3.4476858207697973`*^9, 3.447685822191863*^9}}], Cell[BoxData["4147.222222222223`"], "Output", CellChangeTimes->{{3.4476856165861087`*^9, 3.4476856216024075`*^9}, 3.4476858229732184`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"aa", "=", RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1255000", "+", "K"}], ")"}], "90"}], "-", RowBox[{"(", RowBox[{"8500000", "+", RowBox[{"30", " ", "K"}]}], ")"}]}], ")"}], "/", "90."}], "]"}]}]], "Input", CellChangeTimes->{{3.447685639136014*^9, 3.4476857514948626`*^9}, { 3.447685800110771*^9, 3.4476858006577196`*^9}}], Cell[BoxData[ RowBox[{"1.1605555555555555`*^6", "+", RowBox[{"0.6666666666666667`", " ", "K"}]}]], "Output", CellChangeTimes->{{3.447685722287813*^9, 3.447685752026184*^9}, 3.447685801079651*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"b", "=", RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", " ", "124000"}], "-", RowBox[{"aa", " ", "90"}]}], ")"}], "/", "a"}], "]"}]}]], "Input", CellChangeTimes->{{3.447685842725873*^9, 3.447685873120582*^9}, 3.4476859939542785`*^9}], Cell[BoxData[ RowBox[{"98814.46751507033`", "\[InvisibleSpace]", "-", RowBox[{"0.014467515070328198`", " ", "K"}]}]], "Output", CellChangeTimes->{{3.4476858587749043`*^9, 3.4476858735112596`*^9}, 3.4476859945011744`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c", "=", RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", " ", RowBox[{"(", RowBox[{"8500000", "+", RowBox[{"30", " ", "K"}]}], ")"}]}], "-", RowBox[{"90", " ", "1125", " ", "K"}]}], ")"}], "/", "a"}], "]"}]}]], "Input", CellChangeTimes->{{3.447685903982074*^9, 3.4476859856414595`*^9}, { 3.4476861176465282`*^9, 3.4476861241467776`*^9}}], Cell[BoxData[ RowBox[{"8.5`*^6", "+", RowBox[{"5.5860683188211695`", " ", "K"}]}]], "Output", CellChangeTimes->{3.44768593474888*^9, 3.4476859861258526`*^9, 3.4476861245374174`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"d", "=", RowBox[{ RowBox[{"Expand", "[", RowBox[{"(", RowBox[{ RowBox[{"b", " ", "aa"}], " ", "-", " ", RowBox[{"a", " ", "c"}]}], ")"}], "]"}], "/", "b"}]}]], "Input", CellChangeTimes->{{3.4476861658046274`*^9, 3.4476862256649303`*^9}, { 3.447686304993563*^9, 3.4476863053685656`*^9}}], Cell[BoxData[ FractionBox[ RowBox[{"7.942829035498993`*^10", "+", RowBox[{"25919.290020093766`", " ", "K"}], "-", RowBox[{"0.009645010046885467`", " ", SuperscriptBox["K", "2"]}]}], RowBox[{"98814.46751507033`", "\[InvisibleSpace]", "-", RowBox[{"0.014467515070328198`", " ", "K"}]}]]], "Output", CellChangeTimes->{{3.4476861771644382`*^9, 3.447686226243059*^9}, 3.4476863058060684`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"e", "=", " ", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"d", " ", "c"}], "-", " ", RowBox[{"b", " ", "1125", " ", "K"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.4476863854003277`*^9, 3.4476864316974993`*^9}}], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{"0.28935030140656404`", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "66825.91678734224`"}], "+", "K"}], ")"}], " ", RowBox[{"(", RowBox[{"3.491606359093605`*^13", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1.1266854638768207`*^7"}], "+", "K"}], ")"}], " ", "K"}]}], ")"}]}], RowBox[{"98814.46751507033`", "\[InvisibleSpace]", "-", RowBox[{"0.014467515070328198`", " ", "K"}]}]]}]], "Output", CellChangeTimes->{{3.4476864198692985`*^9, 3.4476864342756405`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"7.942829035498993`*^10", "+", RowBox[{"25919.290020093766`", " ", "K"}], "-", RowBox[{"0.009645010046885467`", " ", SuperscriptBox["K", "2"]}]}], " ", "==", "0"}], ",", "K"}], "]"}]], "Input", CellChangeTimes->{{3.447686555712985*^9, 3.447686571806632*^9}, 3.447686613556365*^9, {3.4476866491967616`*^9, 3.447686668212265*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"K", "\[Rule]", RowBox[{"-", "1.825027394890207`*^6"}]}], "}"}], ",", RowBox[{"{", RowBox[{"K", "\[Rule]", "4.512353783779095`*^6"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.4476865662910423`*^9, 3.4476865723066287`*^9}, 3.447686614321985*^9, {3.4476866528842382`*^9, 3.4476866696810055`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"98814.46751507033`", "\[InvisibleSpace]", "-", RowBox[{"0.014467515070328198`", " ", "K"}]}], "\[Equal]", "0"}], ",", "K"}], "]"}]], "Input", CellChangeTimes->{{3.447686678852822*^9, 3.447686688149637*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"K", "\[Rule]", "6.830092592592592`*^6"}], "}"}], "}"}]], "Output",\ CellChangeTimes->{3.4476866886027594`*^9}] }, Open ]] }, WindowSize->{1016, 651}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, Magnification->2., FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 20, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 463, 14, 57, "Input"], Cell[1056, 39, 277, 8, 59, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1370, 52, 491, 16, 57, "Input"], Cell[1864, 70, 366, 11, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2267, 86, 405, 13, 57, "Input"], Cell[2675, 101, 373, 11, 59, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3085, 117, 231, 7, 57, "Input"], Cell[3319, 126, 133, 3, 103, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3489, 134, 337, 9, 57, "Input"], Cell[3829, 145, 174, 4, 82, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4040, 154, 119, 2, 57, "Input"], Cell[4162, 158, 90, 1, 82, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4289, 164, 711, 22, 126, "Input"], Cell[5003, 188, 609, 19, 118, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5649, 212, 281, 8, 57, "Input"], Cell[5933, 222, 143, 2, 82, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6113, 229, 460, 14, 57, "Input"], Cell[6576, 245, 204, 4, 84, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6817, 254, 312, 9, 57, "Input"], Cell[7132, 265, 229, 4, 82, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7398, 274, 444, 13, 57, "Input"], Cell[7845, 289, 189, 4, 84, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8071, 298, 343, 9, 57, "Input"], Cell[8417, 309, 415, 9, 109, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8869, 323, 255, 6, 57, "Input"], Cell[9127, 331, 596, 16, 113, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9760, 352, 428, 10, 138, "Input"], Cell[10191, 364, 393, 10, 87, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10621, 379, 291, 7, 92, "Input"], Cell[10915, 388, 169, 5, 87, "Output"] }, Open ]] } ] *) (* End of internal cache information *)