(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 27887, 903] NotebookOptionsPosition[ 26930, 866] NotebookOutlinePosition[ 27298, 882] CellTagsIndexPosition[ 27255, 879] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["Part (a) :", "Text", CellChangeTimes->{{3.534698579792117*^9, 3.534698581854644*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"A11", "\[Equal]", RowBox[{"P1", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "P1"}], ")"}], " ", "B11"}]}]}], ",", RowBox[{"B11", "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "P2"}], ")"}], " ", "A11"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"A11", ",", "B11"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.534265034531049*^9, 3.5342650703596325`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"A11", "\[Rule]", RowBox[{"-", FractionBox["P1", RowBox[{ RowBox[{"-", "P1"}], "-", "P2", "+", RowBox[{"P1", " ", "P2"}]}]]}]}], ",", RowBox[{"B11", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"P1", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}]}], RowBox[{"P1", "+", "P2", "-", RowBox[{"P1", " ", "P2"}]}]]}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.534265070844013*^9, 3.5346984863846717`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"A10", "\[Equal]", RowBox[{"P1", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "P1"}], ")"}], " ", "B10"}]}]}], ",", RowBox[{"B10", "\[Equal]", RowBox[{ RowBox[{"P2", " ", RowBox[{"(", RowBox[{"-", FractionBox[ RowBox[{"P1", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}]}], RowBox[{"P1", "+", "P2", "-", RowBox[{"P1", " ", "P2"}]}]]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "P2"}], ")"}], " ", "A10"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"A10", ",", "B10"}], "}"}]}], "]"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.53426534442564*^9, 3.5342653985669584`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"A10", "\[Rule]", FractionBox[ RowBox[{"P1", " ", RowBox[{"(", RowBox[{ RowBox[{"P1", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}], "2"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "P2"}], ")"}], " ", "P2"}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"P1", "+", "P2", "-", RowBox[{"P1", " ", "P2"}]}], ")"}], "2"]]}], ",", RowBox[{"B10", "\[Rule]", FractionBox[ RowBox[{"P1", " ", RowBox[{"(", RowBox[{ RowBox[{"P1", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}]}], "-", RowBox[{"2", " ", "P2"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"P1", "+", "P2", "-", RowBox[{"P1", " ", "P2"}]}], ")"}], "2"]]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.534265393004387*^9, 3.5342653988950872`*^9}, 3.5346985748233037`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"A01", "\[Equal]", RowBox[{ RowBox[{"P1", RowBox[{"(", RowBox[{"-", FractionBox["P1", RowBox[{ RowBox[{"-", "P1"}], "-", "P2", "+", RowBox[{"P1", " ", "P2"}]}]]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "P1"}], ")"}], " ", "B01"}]}]}], ",", RowBox[{"B01", "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "P2"}], ")"}], " ", "A01"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"A01", ",", "B01"}], "}"}]}], "]"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.53426534442564*^9, 3.5342653985669584`*^9}, { 3.5346988449361362`*^9, 3.5346989218433704`*^9}, {3.534700085483265*^9, 3.534700086873908*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"A01", "\[Rule]", FractionBox[ SuperscriptBox["P1", "2"], SuperscriptBox[ RowBox[{"(", RowBox[{"P1", "+", "P2", "-", RowBox[{"P1", " ", "P2"}]}], ")"}], "2"]]}], ",", RowBox[{"B01", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["P1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"P1", "+", "P2", "-", RowBox[{"P1", " ", "P2"}]}], ")"}], "2"]]}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.534265393004387*^9, 3.5342653988950872`*^9}, 3.5346985748233037`*^9, 3.5346989230465107`*^9, 3.5346990981581273`*^9, 3.5347000971240387`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"A00", "\[Equal]", RowBox[{ RowBox[{"P1", RowBox[{"(", FractionBox[ RowBox[{"P1", " ", RowBox[{"(", RowBox[{ RowBox[{"P1", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}], "2"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "P2"}], ")"}], " ", "P2"}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"P1", "+", "P2", "-", RowBox[{"P1", " ", "P2"}]}], ")"}], "2"]], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "P1"}], ")"}], " ", "B00"}]}]}], ",", RowBox[{"B00", "\[Equal]", RowBox[{ RowBox[{"P2", RowBox[{"(", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["P1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"P1", "+", "P2", "-", RowBox[{"P1", " ", "P2"}]}], ")"}], "2"]]}], ")"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "P2"}], ")"}], " ", "A00"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"A00", ",", "B00"}], "}"}]}], "]"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.53426534442564*^9, 3.5342653985669584`*^9}, { 3.5346988449361362`*^9, 3.5346989218433704`*^9}, {3.534699114080206*^9, 3.5346992063938875`*^9}, 3.5346996145866127`*^9, {3.5347001846720343`*^9, 3.5347001934065213`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"A00", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["P1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", "P2"}]}], ")"}], " ", "P2"}], "+", RowBox[{"P1", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"3", " ", "P2"}], "+", RowBox[{"2", " ", SuperscriptBox["P2", "2"]}]}], ")"}]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"P1", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}]}], "-", "P2"}], ")"}], "3"]]}]}], ",", RowBox[{"B00", "\[Rule]", FractionBox[ RowBox[{ SuperscriptBox["P1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"P1", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}], "2"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "P2"}], ")"}], " ", "P2"}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"P1", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}]}], "-", "P2"}], ")"}], "3"]]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.534265393004387*^9, 3.5342653988950872`*^9}, 3.5346985748233037`*^9, 3.5346989230465107`*^9, 3.5346990981581273`*^9, 3.53469920736265*^9, 3.534699614930367*^9, 3.5347001948127894`*^9}] }, Open ]], Cell["Part (b) :", "Text", CellChangeTimes->{{3.534698579792117*^9, 3.534698581854644*^9}, { 3.534699276051029*^9, 3.5346992770979176`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Code", " ", "in", " ", "the", " ", "boundary", " ", RowBox[{"conditions", ":"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"3", ",", "j_"}], "]"}], ":=", "1"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"3", ",", "j_"}], "]"}], ":=", "1"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"i_", ",", "3"}], "]"}], ":=", "0"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"i_", ",", "3"}], "]"}], ":=", "0"}], ";"}]}]}]], "Input", CellChangeTimes->{{3.5346992991607*^9, 3.534699310285843*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Code", " ", "in", " ", "the", " ", "recurrence", " ", RowBox[{"relationships", ":"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"aEqs", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"i", ",", "j"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"P1", " ", RowBox[{"A", "[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "j"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "P1"}], ")"}], " ", RowBox[{"B", "[", RowBox[{"i", ",", "j"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "2"}], "}"}]}], "]"}], "//", "Flatten"}]}], ";"}], "\n", RowBox[{ RowBox[{"bEqs", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"i", ",", "j"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"P2", " ", RowBox[{"B", "[", RowBox[{"i", ",", RowBox[{"j", "+", "1"}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "P2"}], ")"}], " ", RowBox[{"A", "[", RowBox[{"i", ",", "j"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "2"}], "}"}]}], "]"}], "//", "Flatten"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"aVars", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"i", ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "2"}], "}"}]}], "]"}], "//", "Flatten"}]}], ";"}], "\n", RowBox[{ RowBox[{"bVars", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"B", "[", RowBox[{"i", ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "2"}], "}"}]}], "]"}], "//", "Flatten"}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.534699318285945*^9, 3.534699334208024*^9}, { 3.534699366239684*^9, 3.5346993733804*^9}, {3.5346995020695477`*^9, 3.5346995166166086`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "Solve", " ", "for", " ", "all", " ", "the", " ", "variables", " ", "simultaneously"}], " ", "*)"}], "\n", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{"aEqs", ",", "bEqs"}], "]"}], ",", RowBox[{"Join", "[", RowBox[{"aVars", ",", "bVars"}], "]"}]}], "]"}], "//", "Simplify"}]}]], "Input", CellChangeTimes->{{3.5346993878805857`*^9, 3.534699430881136*^9}, { 3.534699461959659*^9, 3.534699483209931*^9}, {3.5346995151009645`*^9, 3.534699525382346*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"1", ",", "0"}], "]"}], "\[Rule]", FractionBox[ RowBox[{ SuperscriptBox["P1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["P1", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}], "3"]}], "-", RowBox[{"4", " ", "P1", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}], "2"], " ", "P2"}], "+", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "P2"}], ")"}], " ", SuperscriptBox["P2", "2"]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"P1", "+", "P2", "-", RowBox[{"P1", " ", "P2"}]}], ")"}], "4"]]}], ",", RowBox[{ RowBox[{"A", "[", RowBox[{"0", ",", "0"}], "]"}], "\[Rule]", FractionBox[ RowBox[{ SuperscriptBox["P1", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["P2", "2"], " ", RowBox[{"(", RowBox[{"10", "-", RowBox[{"12", " ", "P2"}], "+", RowBox[{"3", " ", SuperscriptBox["P2", "2"]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["P1", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"3", " ", "P2"}], "+", RowBox[{"3", " ", SuperscriptBox["P2", "2"]}]}], ")"}]}], "+", RowBox[{"P1", " ", "P2", " ", RowBox[{"(", RowBox[{"5", "-", RowBox[{"20", " ", "P2"}], "+", RowBox[{"21", " ", SuperscriptBox["P2", "2"]}], "-", RowBox[{"6", " ", SuperscriptBox["P2", "3"]}]}], ")"}]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"P1", "+", "P2", "-", RowBox[{"P1", " ", "P2"}]}], ")"}], "5"]]}], ",", RowBox[{ RowBox[{"A", "[", RowBox[{"0", ",", "1"}], "]"}], "\[Rule]", FractionBox[ RowBox[{ SuperscriptBox["P1", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"4", "-", RowBox[{"3", " ", "P2"}]}], ")"}], " ", "P2"}], "+", RowBox[{"P1", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"4", " ", "P2"}], "+", RowBox[{"3", " ", SuperscriptBox["P2", "2"]}]}], ")"}]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"P1", "+", "P2", "-", RowBox[{"P1", " ", "P2"}]}], ")"}], "4"]]}], ",", RowBox[{ RowBox[{"A", "[", RowBox[{"0", ",", "2"}], "]"}], "\[Rule]", RowBox[{"-", FractionBox[ SuperscriptBox["P1", "3"], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"P1", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}]}], "-", "P2"}], ")"}], "3"]]}]}], ",", RowBox[{ RowBox[{"B", "[", RowBox[{"0", ",", "0"}], "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["P1", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["P1", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}], "4"]}], "+", RowBox[{ SuperscriptBox["P2", "2"], " ", RowBox[{"(", RowBox[{"10", "-", RowBox[{"8", " ", "P2"}], "+", SuperscriptBox["P2", "2"]}], ")"}]}], "+", RowBox[{"P1", " ", "P2", " ", RowBox[{"(", RowBox[{"5", "-", RowBox[{"15", " ", "P2"}], "+", RowBox[{"12", " ", SuperscriptBox["P2", "2"]}], "-", RowBox[{"2", " ", SuperscriptBox["P2", "3"]}]}], ")"}]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"P1", "+", "P2", "-", RowBox[{"P1", " ", "P2"}]}], ")"}], "5"]]}]}], ",", RowBox[{ RowBox[{"A", "[", RowBox[{"1", ",", "0"}], "]"}], "\[Rule]", FractionBox[ RowBox[{ SuperscriptBox["P1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["P1", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}], "4"]}], "+", RowBox[{ SuperscriptBox["P2", "2"], " ", RowBox[{"(", RowBox[{"6", "-", RowBox[{"6", " ", "P2"}], "+", SuperscriptBox["P2", "2"]}], ")"}]}], "-", RowBox[{"2", " ", "P1", " ", "P2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"6", " ", "P2"}], "-", RowBox[{"5", " ", SuperscriptBox["P2", "2"]}], "+", SuperscriptBox["P2", "3"]}], ")"}]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"P1", "+", "P2", "-", RowBox[{"P1", " ", "P2"}]}], ")"}], "4"]]}], ",", RowBox[{ RowBox[{"B", "[", RowBox[{"0", ",", "1"}], "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["P1", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "P2"}], ")"}], " ", "P2"}], "+", RowBox[{"P1", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"3", " ", "P2"}], "+", RowBox[{"2", " ", SuperscriptBox["P2", "2"]}]}], ")"}]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"P1", "+", "P2", "-", RowBox[{"P1", " ", "P2"}]}], ")"}], "4"]]}]}], ",", RowBox[{ RowBox[{"B", "[", RowBox[{"0", ",", "2"}], "]"}], "\[Rule]", FractionBox[ RowBox[{ SuperscriptBox["P1", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"P1", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}]}], "-", "P2"}], ")"}], "3"]]}], ",", RowBox[{ RowBox[{"A", "[", RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["P1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", "P2"}]}], ")"}], " ", "P2"}], "+", RowBox[{"P1", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"3", " ", "P2"}], "+", RowBox[{"2", " ", SuperscriptBox["P2", "2"]}]}], ")"}]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"P1", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}]}], "-", "P2"}], ")"}], "3"]]}]}], ",", RowBox[{ RowBox[{"B", "[", RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", FractionBox[ RowBox[{ SuperscriptBox["P1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"P1", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}], "2"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "P2"}], ")"}], " ", "P2"}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"P1", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}]}], "-", "P2"}], ")"}], "3"]]}], ",", RowBox[{ RowBox[{"B", "[", RowBox[{"2", ",", "0"}], "]"}], "\[Rule]", FractionBox[ RowBox[{"P1", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["P1", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}], "2"]}], "-", RowBox[{"3", " ", "P1", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}], " ", "P2"}], "+", RowBox[{"3", " ", SuperscriptBox["P2", "2"]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"P1", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}]}], "-", "P2"}], ")"}], "3"]]}], ",", RowBox[{ RowBox[{"A", "[", RowBox[{"2", ",", "0"}], "]"}], "\[Rule]", FractionBox[ RowBox[{"P1", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["P1", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}], "3"]}], "-", RowBox[{"3", " ", "P1", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}], "2"], " ", "P2"}], "+", RowBox[{ SuperscriptBox["P2", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "P2"}]}], ")"}]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"P1", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}]}], "-", "P2"}], ")"}], "3"]]}], ",", RowBox[{ RowBox[{"A", "[", RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", FractionBox[ SuperscriptBox["P1", "2"], SuperscriptBox[ RowBox[{"(", RowBox[{"P1", "+", "P2", "-", RowBox[{"P1", " ", "P2"}]}], ")"}], "2"]]}], ",", RowBox[{ RowBox[{"B", "[", RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["P1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"P1", "+", "P2", "-", RowBox[{"P1", " ", "P2"}]}], ")"}], "2"]]}]}], ",", RowBox[{ RowBox[{"A", "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", FractionBox[ RowBox[{"P1", " ", RowBox[{"(", RowBox[{ RowBox[{"P1", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}], "2"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "P2"}], ")"}], " ", "P2"}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"P1", "+", "P2", "-", RowBox[{"P1", " ", "P2"}]}], ")"}], "2"]]}], ",", RowBox[{ RowBox[{"B", "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", FractionBox[ RowBox[{"P1", " ", RowBox[{"(", RowBox[{ RowBox[{"P1", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}]}], "-", RowBox[{"2", " ", "P2"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "P2"}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"P1", "+", "P2", "-", RowBox[{"P1", " ", "P2"}]}], ")"}], "2"]]}], ",", RowBox[{ RowBox[{"A", "[", RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", FractionBox["P1", RowBox[{"P1", "+", "P2", "-", RowBox[{"P1", " ", "P2"}]}]]}], ",", RowBox[{ RowBox[{"B", "[", RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", FractionBox[ RowBox[{"P1", "-", RowBox[{"P1", " ", "P2"}]}], RowBox[{"P1", "+", "P2", "-", RowBox[{"P1", " ", "P2"}]}]]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.534699474241066*^9, {3.534699520382282*^9, 3.5346995258979774`*^9}, { 3.5346996854468946`*^9, 3.534699713603505*^9}}] }, Open ]] }, WindowSize->{1030, 1752}, WindowMargins->{{20, Automatic}, {Automatic, 36}}, ShowSelection->True, FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[545, 20, 92, 1, 29, "Text"], Cell[CellGroupData[{ Cell[662, 25, 526, 16, 31, "Input"], Cell[1191, 43, 603, 19, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1831, 67, 933, 28, 48, "Input"], Cell[2767, 97, 1266, 41, 53, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4070, 143, 893, 26, 48, "Input"], Cell[4966, 171, 844, 26, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5847, 202, 1910, 55, 78, "Input"], Cell[7760, 259, 1841, 57, 53, "Output"] }, Open ]], Cell[9616, 319, 143, 2, 29, "Text"], Cell[9762, 323, 724, 22, 112, "Input"], Cell[10489, 347, 2628, 78, 112, "Input"], Cell[CellGroupData[{ Cell[13142, 429, 586, 16, 52, "Input"], Cell[13731, 447, 13183, 416, 453, "Output"] }, Open ]] } ] *) (* End of internal cache information *)