scratch.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     35695,       1050]
NotebookOptionsPosition[     33681,        975]
NotebookOutlinePosition[     34020,        990]
CellTagsIndexPosition[     33977,        987]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"P", "[", "0", "]"}], ",", 
    RowBox[{"P", "[", "1", "]"}], ",", 
    RowBox[{"P", "[", "2", "]"}]}], "}"}], "\[Equal]", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"d", "[", 
        RowBox[{"i", ",", "j", ",", "k"}], "]"}], " ", 
       RowBox[{"\[Sigma]", "[", 
        RowBox[{"j", ",", "k"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "0", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"k", ",", "0", ",", "2"}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "0", ",", "2"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.668966306513226*^9, 3.668966372853423*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"P", "[", "0", "]"}], ",", 
    RowBox[{"P", "[", "1", "]"}], ",", 
    RowBox[{"P", "[", "2", "]"}]}], "}"}], "\[Equal]", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"0", ",", "0", ",", "0"}], "]"}], " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"0", ",", "0"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"0", ",", "0", ",", "1"}], "]"}], " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"0", ",", "1"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"0", ",", "0", ",", "2"}], "]"}], " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"0", ",", "2"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"0", ",", "1", ",", "0"}], "]"}], " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"1", ",", "0"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"0", ",", "1", ",", "1"}], "]"}], " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"1", ",", "1"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"0", ",", "1", ",", "2"}], "]"}], " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"1", ",", "2"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"0", ",", "2", ",", "0"}], "]"}], " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"2", ",", "0"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"0", ",", "2", ",", "1"}], "]"}], " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"2", ",", "1"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"0", ",", "2", ",", "2"}], "]"}], " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"2", ",", "2"}], "]"}]}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"1", ",", "0", ",", "0"}], "]"}], " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"0", ",", "0"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"1", ",", "0", ",", "1"}], "]"}], " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"0", ",", "1"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"1", ",", "0", ",", "2"}], "]"}], " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"0", ",", "2"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"1", ",", "1", ",", "0"}], "]"}], " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"1", ",", "0"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"1", ",", "1", ",", "1"}], "]"}], " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"1", ",", "1"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"1", ",", "1", ",", "2"}], "]"}], " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"1", ",", "2"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"1", ",", "2", ",", "0"}], "]"}], " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"2", ",", "0"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"1", ",", "2", ",", "1"}], "]"}], " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"2", ",", "1"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"1", ",", "2", ",", "2"}], "]"}], " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"2", ",", "2"}], "]"}]}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"2", ",", "0", ",", "0"}], "]"}], " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"0", ",", "0"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"2", ",", "0", ",", "1"}], "]"}], " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"0", ",", "1"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"2", ",", "0", ",", "2"}], "]"}], " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"0", ",", "2"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"2", ",", "1", ",", "0"}], "]"}], " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"1", ",", "0"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"2", ",", "1", ",", "1"}], "]"}], " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"1", ",", "1"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"2", ",", "1", ",", "2"}], "]"}], " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"1", ",", "2"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"2", ",", "2", ",", "0"}], "]"}], " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"2", ",", "0"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"2", ",", "2", ",", "1"}], "]"}], " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"2", ",", "1"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"2", ",", "2", ",", "2"}], "]"}], " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"2", ",", "2"}], "]"}]}]}]}], "}"}]}]], "Output",
 CellChangeTimes->{3.668966373847274*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], ",", 
      RowBox[{"P", "[", "1", "]"}], ",", 
      RowBox[{"P", "[", "2", "]"}]}], "}"}], "\[Equal]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"d", "[", 
         RowBox[{"0", ",", "0", ",", "0"}], "]"}], " ", 
        RowBox[{"\[Sigma]", "[", 
         RowBox[{"0", ",", "0"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"d", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}], " ", 
        RowBox[{"\[Sigma]", "[", 
         RowBox[{"0", ",", "1"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"d", "[", 
         RowBox[{"0", ",", "0", ",", "2"}], "]"}], " ", 
        RowBox[{"\[Sigma]", "[", 
         RowBox[{"0", ",", "2"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"d", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], " ", 
        RowBox[{"\[Sigma]", "[", 
         RowBox[{"1", ",", "0"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"d", "[", 
         RowBox[{"0", ",", "1", ",", "1"}], "]"}], " ", 
        RowBox[{"\[Sigma]", "[", 
         RowBox[{"1", ",", "1"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"d", "[", 
         RowBox[{"0", ",", "1", ",", "2"}], "]"}], " ", 
        RowBox[{"\[Sigma]", "[", 
         RowBox[{"1", ",", "2"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"d", "[", 
         RowBox[{"0", ",", "2", ",", "0"}], "]"}], " ", 
        RowBox[{"\[Sigma]", "[", 
         RowBox[{"2", ",", "0"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"d", "[", 
         RowBox[{"0", ",", "2", ",", "1"}], "]"}], " ", 
        RowBox[{"\[Sigma]", "[", 
         RowBox[{"2", ",", "1"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"d", "[", 
         RowBox[{"0", ",", "2", ",", "2"}], "]"}], " ", 
        RowBox[{"\[Sigma]", "[", 
         RowBox[{"2", ",", "2"}], "]"}]}]}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"d", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], " ", 
        RowBox[{"\[Sigma]", "[", 
         RowBox[{"0", ",", "0"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"d", "[", 
         RowBox[{"1", ",", "0", ",", "1"}], "]"}], " ", 
        RowBox[{"\[Sigma]", "[", 
         RowBox[{"0", ",", "1"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"d", "[", 
         RowBox[{"1", ",", "0", ",", "2"}], "]"}], " ", 
        RowBox[{"\[Sigma]", "[", 
         RowBox[{"0", ",", "2"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"d", "[", 
         RowBox[{"1", ",", "1", ",", "0"}], "]"}], " ", 
        RowBox[{"\[Sigma]", "[", 
         RowBox[{"1", ",", "0"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"d", "[", 
         RowBox[{"1", ",", "1", ",", "1"}], "]"}], " ", 
        RowBox[{"\[Sigma]", "[", 
         RowBox[{"1", ",", "1"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"d", "[", 
         RowBox[{"1", ",", "1", ",", "2"}], "]"}], " ", 
        RowBox[{"\[Sigma]", "[", 
         RowBox[{"1", ",", "2"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"d", "[", 
         RowBox[{"1", ",", "2", ",", "0"}], "]"}], " ", 
        RowBox[{"\[Sigma]", "[", 
         RowBox[{"2", ",", "0"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"d", "[", 
         RowBox[{"1", ",", "2", ",", "1"}], "]"}], " ", 
        RowBox[{"\[Sigma]", "[", 
         RowBox[{"2", ",", "1"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"d", "[", 
         RowBox[{"1", ",", "2", ",", "2"}], "]"}], " ", 
        RowBox[{"\[Sigma]", "[", 
         RowBox[{"2", ",", "2"}], "]"}]}]}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"d", "[", 
         RowBox[{"2", ",", "0", ",", "0"}], "]"}], " ", 
        RowBox[{"\[Sigma]", "[", 
         RowBox[{"0", ",", "0"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"d", "[", 
         RowBox[{"2", ",", "0", ",", "1"}], "]"}], " ", 
        RowBox[{"\[Sigma]", "[", 
         RowBox[{"0", ",", "1"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"d", "[", 
         RowBox[{"2", ",", "0", ",", "2"}], "]"}], " ", 
        RowBox[{"\[Sigma]", "[", 
         RowBox[{"0", ",", "2"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"d", "[", 
         RowBox[{"2", ",", "1", ",", "0"}], "]"}], " ", 
        RowBox[{"\[Sigma]", "[", 
         RowBox[{"1", ",", "0"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"d", "[", 
         RowBox[{"2", ",", "1", ",", "1"}], "]"}], " ", 
        RowBox[{"\[Sigma]", "[", 
         RowBox[{"1", ",", "1"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"d", "[", 
         RowBox[{"2", ",", "1", ",", "2"}], "]"}], " ", 
        RowBox[{"\[Sigma]", "[", 
         RowBox[{"1", ",", "2"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"d", "[", 
         RowBox[{"2", ",", "2", ",", "0"}], "]"}], " ", 
        RowBox[{"\[Sigma]", "[", 
         RowBox[{"2", ",", "0"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"d", "[", 
         RowBox[{"2", ",", "2", ",", "1"}], "]"}], " ", 
        RowBox[{"\[Sigma]", "[", 
         RowBox[{"2", ",", "1"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"d", "[", 
         RowBox[{"2", ",", "2", ",", "2"}], "]"}], " ", 
        RowBox[{"\[Sigma]", "[", 
         RowBox[{"2", ",", "2"}], "]"}]}]}]}], "}"}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"0", ",", "0", ",", "0"}], "]"}], "\[Rule]", "d000"}], ",", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"0", ",", "0", ",", "1"}], "]"}], "\[Rule]", "d001"}], ",", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"0", ",", "0", ",", "2"}], "]"}], "\[Rule]", "d002"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"0", ",", "1", ",", "0"}], "]"}], "\[Rule]", "d010"}], ",", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"0", ",", "1", ",", "1"}], "]"}], "\[Rule]", "d011"}], ",", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"0", ",", "1", ",", "2"}], "]"}], "\[Rule]", "d012"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"0", ",", "2", ",", "0"}], "]"}], "\[Rule]", "d020"}], ",", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"0", ",", "2", ",", "1"}], "]"}], "\[Rule]", "d021"}], ",", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"0", ",", "2", ",", "2"}], "]"}], "\[Rule]", "d022"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"1", ",", "0", ",", "0"}], "]"}], "\[Rule]", "d100"}], ",", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"1", ",", "0", ",", "1"}], "]"}], "\[Rule]", "d101"}], ",", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"1", ",", "0", ",", "2"}], "]"}], "\[Rule]", "d102"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"1", ",", "1", ",", "0"}], "]"}], "\[Rule]", "d110"}], ",", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"1", ",", "1", ",", "1"}], "]"}], "\[Rule]", "d111"}], ",", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"1", ",", "1", ",", "2"}], "]"}], "\[Rule]", "d112"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"1", ",", "2", ",", "0"}], "]"}], "\[Rule]", "d120"}], ",", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"1", ",", "2", ",", "1"}], "]"}], "\[Rule]", "d121"}], ",", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"1", ",", "2", ",", "2"}], "]"}], "\[Rule]", "d122"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"2", ",", "0", ",", "0"}], "]"}], "\[Rule]", "d200"}], ",", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"2", ",", "0", ",", "1"}], "]"}], "\[Rule]", "d201"}], ",", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"2", ",", "0", ",", "2"}], "]"}], "\[Rule]", "d202"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"2", ",", "1", ",", "0"}], "]"}], "\[Rule]", "d210"}], ",", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"2", ",", "1", ",", "1"}], "]"}], "\[Rule]", "d211"}], ",", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"2", ",", "1", ",", "2"}], "]"}], "\[Rule]", "d212"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"2", ",", "2", ",", "0"}], "]"}], "\[Rule]", "d220"}], ",", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"2", ",", "2", ",", "1"}], "]"}], "\[Rule]", "d221"}], ",", 
     RowBox[{
      RowBox[{"d", "[", 
       RowBox[{"2", ",", "2", ",", "2"}], "]"}], "\[Rule]", "d222"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"1", ",", "0"}], "]"}], "\[Rule]", "\[Sigma]01"}], ",", 
     RowBox[{
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"0", ",", "1"}], "]"}], "\[Rule]", "\[Sigma]01"}], ",", 
     RowBox[{
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"0", ",", "2"}], "]"}], "\[Rule]", "\[Sigma]02"}], ",", 
     RowBox[{
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"2", ",", "0"}], "]"}], "\[Rule]", "\[Sigma]02"}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.668966398361586*^9, 3.668966460424491*^9}, {
  3.668967117023262*^9, 3.668967178910701*^9}, {3.668968318751405*^9, 
  3.6689683422843447`*^9}, {3.668968799899598*^9, 3.668968852790394*^9}, {
  3.6689691725871067`*^9, 3.668969195858263*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"P", "[", "0", "]"}], ",", 
    RowBox[{"P", "[", "1", "]"}], ",", 
    RowBox[{"P", "[", "2", "]"}]}], "}"}], "\[Equal]", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d001", "+", "d010"}], ")"}], " ", "\[Sigma]01"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d002", "+", "d020"}], ")"}], " ", "\[Sigma]02"}], "+", 
     RowBox[{"d000", " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"0", ",", "0"}], "]"}]}], "+", 
     RowBox[{"d011", " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"1", ",", "1"}], "]"}]}], "+", 
     RowBox[{"d012", " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"1", ",", "2"}], "]"}]}], "+", 
     RowBox[{"d021", " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"2", ",", "1"}], "]"}]}], "+", 
     RowBox[{"d022", " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"2", ",", "2"}], "]"}]}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d101", "+", "d110"}], ")"}], " ", "\[Sigma]01"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d102", "+", "d120"}], ")"}], " ", "\[Sigma]02"}], "+", 
     RowBox[{"d100", " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"0", ",", "0"}], "]"}]}], "+", 
     RowBox[{"d111", " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"1", ",", "1"}], "]"}]}], "+", 
     RowBox[{"d112", " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"1", ",", "2"}], "]"}]}], "+", 
     RowBox[{"d121", " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"2", ",", "1"}], "]"}]}], "+", 
     RowBox[{"d122", " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"2", ",", "2"}], "]"}]}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d201", "+", "d210"}], ")"}], " ", "\[Sigma]01"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d202", "+", "d220"}], ")"}], " ", "\[Sigma]02"}], "+", 
     RowBox[{"d200", " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"0", ",", "0"}], "]"}]}], "+", 
     RowBox[{"d211", " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"1", ",", "1"}], "]"}]}], "+", 
     RowBox[{"d212", " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"1", ",", "2"}], "]"}]}], "+", 
     RowBox[{"d221", " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"2", ",", "1"}], "]"}]}], "+", 
     RowBox[{"d222", " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"2", ",", "2"}], "]"}]}]}]}], "}"}]}]], "Output",
 CellChangeTimes->{{3.668966446792104*^9, 3.668966461368166*^9}, {
   3.668967131296365*^9, 3.668967148999112*^9}, 3.6689671796527653`*^9, 
   3.668968343208233*^9, {3.668968825794507*^9, 3.668968853561858*^9}, {
   3.668969185479046*^9, 3.6689691967212553`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{"{", 
   RowBox[{
   "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10",
     ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", 
    "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", "22", ",", "23", 
    ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ",", "29", ",", 
    "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", "35", ",", "36", 
    ",", "37", ",", "38"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.669222985637924*^9, 3.669222986453293*^9}, {
  3.669223154165937*^9, 3.669223160228312*^9}}],

Cell[BoxData["36"], "Output",
 CellChangeTimes->{{3.669223156641903*^9, 3.6692231605734*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"3", "+", 
    RowBox[{"1.25", "k"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", "0", ",", "22"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6692231617099237`*^9, 3.669223185841888*^9}, {
  3.66922381727687*^9, 3.66922381747757*^9}, {3.669223909829649*^9, 
  3.669223925135849*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "3.`", ",", "4.25`", ",", "5.5`", ",", "6.75`", ",", "8.`", ",", "9.25`", 
   ",", "10.5`", ",", "11.75`", ",", "13.`", ",", "14.25`", ",", "15.5`", ",",
    "16.75`", ",", "18.`", ",", "19.25`", ",", "20.5`", ",", "21.75`", ",", 
   "23.`", ",", "24.25`", ",", "25.5`", ",", "26.75`", ",", "28.`", ",", 
   "29.25`", ",", "30.5`"}], "}"}]], "Output",
 CellChangeTimes->{{3.669223171293947*^9, 3.669223186174079*^9}, 
   3.669223818159226*^9, {3.669223910754903*^9, 3.6692239254720087`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    FractionBox["3", "60."], "\[Equal]", 
    FractionBox["30.5", "x"]}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.669223208742649*^9, 3.669223222871269*^9}, {
  3.669223931682065*^9, 3.669223932045986*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Solve", "::", "ratnz"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Solve was unable to solve the system with inexact \
coefficients. The answer was obtained by solving a corresponding exact system \
and numericizing the result. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Solve\\\", ButtonNote -> \
\\\"Solve::ratnz\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6692232232933693`*^9, 3.6692239330152063`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"x", "\[Rule]", "610.`"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.6692232118079653`*^9, 3.669223223295513*^9}, 
   3.66922393301649*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"60", "+", 
    RowBox[{"7", "k"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", "0", ",", "22"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.669223239931665*^9, 3.669223301125527*^9}, {
  3.66922394000665*^9, 3.669223945048862*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "60", ",", "67", ",", "74", ",", "81", ",", "88", ",", "95", ",", "102", 
   ",", "109", ",", "116", ",", "123", ",", "130", ",", "137", ",", "144", 
   ",", "151", ",", "158", ",", "165", ",", "172", ",", "179", ",", "186", 
   ",", "193", ",", "200", ",", "207", ",", "214"}], "}"}]], "Output",
 CellChangeTimes->{{3.669223250622061*^9, 3.669223301575539*^9}, {
   3.669223936924615*^9, 3.669223945423814*^9}, 3.669224053122981*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"60", "+", 
     RowBox[{"25", " ", "q"}]}], "\[Equal]", "300.0"}], ",", "q"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.669223261761343*^9, 3.6692232920922956`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"q", "\[Rule]", "9.6`"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.66922329241978*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"7", "+", 
    RowBox[{"0.7", "k"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", "0", ",", "22"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.669224076531871*^9, 3.66922410645984*^9}, 
   3.669227113849532*^9, 3.669227586588011*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "7.`", ",", "7.7`", ",", "8.4`", ",", "9.1`", ",", "9.8`", ",", "10.5`", 
   ",", "11.2`", ",", "11.899999999999999`", ",", "12.6`", ",", "13.3`", ",", 
   "14.`", ",", "14.7`", ",", "15.399999999999999`", ",", "16.1`", ",", 
   "16.799999999999997`", ",", "17.5`", ",", "18.2`", ",", "18.9`", ",", 
   "19.6`", ",", "20.299999999999997`", ",", "21.`", ",", "21.7`", ",", 
   "22.4`"}], "}"}]], "Output",
 CellChangeTimes->{{3.669224088699212*^9, 3.669224106959154*^9}, 
   3.669227114632946*^9, 3.669227587162521*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"5", "+", 
     RowBox[{"22", " ", "g"}]}], "\[Equal]", "20."}], ",", "g"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.669224093669649*^9, 3.669224100042548*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"g", "\[Rule]", "0.6818181818181818`"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.669224098526157*^9, 3.669224100336007*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"300", "*", "0.58"}]], "Input",
 CellChangeTimes->{{3.669224772946684*^9, 3.669224776102187*^9}, {
  3.669224873862512*^9, 3.669224874255335*^9}}],

Cell[BoxData["174.`"], "Output",
 CellChangeTimes->{3.669224776507451*^9, 3.669224874714171*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   FractionBox["1000", 
    RowBox[{"T0", "-", "383"}]], ",", 
   RowBox[{"{", 
    RowBox[{"T0", ",", "0", ",", "383"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.669228562011341*^9, 3.6692285792230062`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwVjmk81Iseh9GErBkqS4kyBmdsI4115jciGRRljEiLJQfZZv5/laRkiY6E
tOgeJ80tTq5IFxdtP7KlizqJIbmVBlFScqWk233x/TwvnufF1zAkbnu4nIyM
TOrP/Z+tgqV3g8JesmddXW1cRih4vWrthlrqPc7M3yvNRt9QsPD2TbGI2s35
8mhF2KlRCmZz5we2U4c55+q0i5++pWB6ejHpQp3iqLZeM42cpqBsadwmB+oi
ZzT8bGPJdwpiXYDZRqoa7ClLNHPRXoprOV1rNlD1oZPe1eG7dSmSWt6yc3xL
uBYRp+Pf/tOnNfsau7OAlvz0wRZneTw+HkfRvcsGr+Hsv72olUcHZZm+g1Gb
4FHmonYhWwEPpN55Btbu4H2Xa6zTooDjQRM9X7d4QnVWncztIEUUv3vpUOS9
DfxHU6LXfVFEzynp+KlMX1j0jn3kmr8Mo7QLq5tyd0BfxkDWM44S0oROeREE
HzTV49nRk0r4w9ij7JiPAC6ub7EI/F0ZF0/nOi7n7wS97Nar0v0qWGTULVVn
BYEKU37FNQtV3BmzWTWLGwy1Y9P905pqaKexPkbosgdOjATamy5Rx8BPyR/D
8/YCt/yTstq0OprVUia7z+6DqEyNWTy+HDvOZMd9yAgB9VXL00YUNfDwg3Km
V04ozGslNl8v1cAGo0WN16fD4LhtSqGWNxU7ircmW6aEw9gNpf62GSq+jXOk
NZzYDwPhFXxRnSZKdtJ2fiUjwKlkPnsoSQsFCdzrRNivoPVx/IiEtwLHX82z
fomIhOqLDnu/claie1SVb1FAFLC8jINT7Fdhg6ds+abd0eD34PWpvn3a2BiY
oU/fcwCmfI+s/S7WwexUef3mrTGwJzrW+6/3uhgta7SraHssHOkM7DqUvBr1
itg0E7c4CJScv3R+tT6aV7ktPaQTD+5uui/40rXIZzusSroUD4HPZ+WYyoYY
vvPGVD81AWZ+lA1pblyHiyWx0h3nEqDdUOivUrEeU4jKK7+oC+GWx4BX9yYa
0iX9wmUaQrD8qPU1j0fDx46yrmNUIRSM6s4KfGm4bonfqHilEKLaZaSfdtOw
PX/eTFdfCAo1DQbBSTRcXuVao2guBG3Rnbvyt2gofjvYJuUJgZ8qCO0yMsa2
3QrvLmcK4WTh/BxTh46G327YlmYJYWheNWrQkI7JF/yOVZwSwo6Q0sAsMzra
PL5CbcgVgkVzXe+cIx1LuE72f50XQouqygJtDx2TjBIyKWVCyM452dhaSkeL
iUGDyHYhLLT0H+M5muAFspLPVBRBLOEW63PEFNepRKutVBKBgYvSe6MMU6wQ
09vnlUWQtsqHInvGFJt7Suya1EWwk1e99rHYFKdMz+r5rBLBaR01yqNOU3Qb
PvgqxlgEt5deSXNcbYYzm7kx111FcLj931G8VjPcpt2bbpAqAtneZb0xTAbm
jKnWMdJE4F+gtSSJw8DOOvcxuwwROJq/5xV4MdCVf9vDN1sEguz8X8f2M9Cu
QKx2Il8E8n7+t2m/M9BAJeHiyBURJGuw6XLLzHH6h2pFabMIvNSux995Z47m
Pe4vbrWIQKHCYzL2mzlG/ZGqdr9NBJe/9wxZKlngG6fZ+P5OEZRWeCa9oFug
5PCQreJTEczon5SZCLVAnCm/HzkiAvX8h33Phy0wb8z9KYNCQGD1ZrOHLy3R
RK8x0VKegEr/tEjTj5aIWxm6TEUCgj55uHTJWOF07fJ9LBUCDvnveS7QsELf
9IEprhYBx86nHe5lWiHVMFpJYESA1zK7fQcPWmFhYC431ZWA8uwnrx4qWCMj
V0aatpmAUY8TrPUa1tjSJMzK3EJAn15GX6auNX42EfT85kVAG6tmQ4y5NfLn
1gaf9yNAWhEnqN9hjSsLqw/9I4yAWE8HqUBsjUVdvVXP0glwZRNsly1M3Ptt
V3NtJgF5/ylYs207E01Mpb3nsgj4MHRKPWIXE+vTZ+f5OT/7jzlkfTwT+x1X
uvadJcCu6Ch/pIiJK8oFkj4xAQvFf3hHTTExP3NQRoI/+/c2DV0lNhhQE6JZ
30yAyWz3k9AKGzR4PUG72ELA5zn7EoV6G7zp/I0X0EFAxzMeHuqxwZ7Peuck
PQQsm29oW/LDBlVDg00HhgngTd079nTvBszmvPQdXCCg1oxRqWdli3Kl0qHX
iwRIfptsQrYtJqtMRkzKkPDff/qtS/K2xfiB2aMLFBLWPXgtNIu2xQCRcrm+
KgnXMjw1Msts0aRso1zoGhIYT3iPfYw2Ypva6VuTziSQnyn/yrFkIZAFzp85
JHyPT3JbxWVh4/MLHQtcEnRcHwjvbGdh5Z/iYdXNJARdv1YsSGThOZd6Jaut
JNw82qQoucfCsMSREGI3CQ7dV4Md+HYoN2yv+T2FBLMz7lNJRfZYwearjhwn
oYbrpSe8YY/8y/EKD0+QcPmHW0ZWkz3+ubfsW2EmCXDJmKU1YY9bR7TeMHJJ
YF+JEVQ5OeCl8Q81u4pJuPr29HP7cQdkzlzzv3ObhPAi40S5ICcc2tHkI75L
QnB5fkKayAkzaoZ4Wfd//tNImbTIcUIJqcnxe0BC2Ut5bYV7Tpjy5Tj9XScJ
HF3nvo71ztj5PeiL3iAJbj4dPt/mnDFEkXrpyBcSFqpC37W1cXB/V7h8wFcS
BkYqMz+/4WB0QYNwwwIJ3MgnvTdkAYnV+zzf/yAhT+qRd8AAkNE4ESNZkgit
USPKWVzA/wGWmsVH
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, -34.},
  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, 383}, {-32.51196430782651, -2.610966110726276}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.669228579764636*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"B", " ", "=", " ", "186"}], ";"}]], "Input",
 CellChangeTimes->{{3.669232687275281*^9, 3.669232688553206*^9}, 
   3.669232789914529*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"172.74", " ", "==", " ", 
  RowBox[{"\[Lambda]", " ", "+", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"2", "/", "3"}], ")"}], "*", "109.62"}]}]}]], "Input",
 CellChangeTimes->{{3.6692327912018957`*^9, 3.669232797427558*^9}, {
  3.669233638539007*^9, 3.66923365249142*^9}}],

Cell[BoxData[
 RowBox[{"172.74`", "\[Equal]", 
  RowBox[{"73.08`", "\[VeryThinSpace]", "+", "\[Lambda]"}]}]], "Output",
 CellChangeTimes->{3.669232797843133*^9, 3.669233652973373*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", GridBox[{
     {
      RowBox[{"172.74", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"4", "/", "3"}], ")"}], "109.62"}]}], 
      RowBox[{"172.74", "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"2", "/", "3"}], ")"}], "109.62"}]}], 
      RowBox[{"172.74", "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"2", "/", "3"}], ")"}], "109.62"}]}], "0", "0", "0"},
     {
      RowBox[{"172.74", "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"2", "/", "3"}], ")"}], "109.62"}]}], 
      RowBox[{"172.74", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"4", "/", "3"}], ")"}], "109.62"}]}], 
      RowBox[{"172.74", "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"2", "/", "3"}], ")"}], "109.62"}]}], "0", "0", "0"},
     {
      RowBox[{"172.74", "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"2", "/", "3"}], ")"}], "109.62"}]}], 
      RowBox[{"172.74", "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"2", "/", "3"}], ")"}], "109.62"}]}], 
      RowBox[{"172.74", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"4", "/", "3"}], ")"}], "109.62"}]}], "0", "0", "0"},
     {"0", "0", "0", "109.62", "0", "0"},
     {"0", "0", "0", "0", "109.62", "0"},
     {"0", "0", "0", "0", "0", "109.62"}
    }], ")"}], "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.669233662892172*^9, 3.669233787064959*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"318.9`", "99.66000000000001`", "99.66000000000001`", "0", "0", "0"},
     {"99.66000000000001`", "318.9`", "99.66000000000001`", "0", "0", "0"},
     {"99.66000000000001`", "99.66000000000001`", "318.9`", "0", "0", "0"},
     {"0", "0", "0", "109.62`", "0", "0"},
     {"0", "0", "0", "0", "109.62`", "0"},
     {"0", "0", "0", "0", "0", "109.62`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.6692337673340483`*^9, 3.6692337876298723`*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"G12", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"P11", " ", "P22"}], "+", 
    RowBox[{"P22", " ", "P33"}], " ", "+", " ", 
    RowBox[{"P11", " ", "P33"}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.6692357071015797`*^9, 3.6692357195516577`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"G44", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"P12", "+", "P21"}], ")"}], "^", "2"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"P23", "+", "P32"}], ")"}], "^", "2"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"P31", "+", "P13"}], ")"}], "^", "2"}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.669235724469637*^9, 3.6692357457618513`*^9}}],

Cell[BoxData[
 RowBox[{"G44", " ", 
  RowBox[{"(", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"P12", "+", "P21"}], ")"}], "2"], "+", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"P13", "+", "P31"}], ")"}], "2"], "+", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"P23", "+", "P32"}], ")"}], "2"]}], ")"}]}]], "Output",
 CellChangeTimes->{3.669235746702311*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Expand", "[", 
   RowBox[{
    FractionBox["G44", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"P12", "+", "P21"}], ")"}], "2"], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"P13", "+", "P31"}], ")"}], "2"], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"P23", "+", "P32"}], ")"}], "2"]}], ")"}]}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.669235761690607*^9, 3.669235785778092*^9}, {
  3.669235920734796*^9, 3.6692359813839703`*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", "G44", " ", 
  RowBox[{"(", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"P12", "+", "P21"}], ")"}], "2"], "+", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"P13", "+", "P31"}], ")"}], "2"], "+", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"P23", "+", "P32"}], ")"}], "2"]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.669235975779364*^9, 3.669235981728146*^9}}]
}, Open  ]]
},
WindowSize->{831, 659},
WindowMargins->{{Automatic, 406}, {Automatic, 41}},
FrontEndVersion->"10.3 for Linux x86 (64-bit) (December 10, 2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 752, 22, 55, "Input"],
Cell[1335, 46, 4989, 147, 77, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6361, 198, 9433, 257, 319, "Input"],
Cell[15797, 457, 2766, 78, 77, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18600, 540, 619, 11, 32, "Input"],
Cell[19222, 553, 93, 1, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19352, 559, 352, 9, 32, "Input"],
Cell[19707, 570, 533, 9, 55, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20277, 584, 278, 7, 56, "Input"],
Cell[20558, 593, 549, 11, 41, "Message"],
Cell[21110, 606, 200, 5, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21347, 616, 300, 8, 32, "Input"],
Cell[21650, 626, 476, 8, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22163, 639, 240, 7, 32, "Input"],
Cell[22406, 648, 147, 4, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22590, 657, 300, 8, 32, "Input"],
Cell[22893, 667, 560, 10, 55, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23490, 682, 235, 7, 32, "Input"],
Cell[23728, 691, 187, 4, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23952, 700, 169, 3, 32, "Input"],
Cell[24124, 705, 96, 1, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24257, 711, 263, 7, 56, "Input"],
Cell[24523, 720, 3737, 73, 242, "Output"]
}, Open  ]],
Cell[28275, 796, 171, 4, 32, "Input"],
Cell[CellGroupData[{
Cell[28471, 804, 302, 7, 32, "Input"],
Cell[28776, 813, 183, 3, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28996, 821, 1468, 46, 238, "Input"],
Cell[30467, 869, 978, 22, 128, "Output"]
}, Open  ]],
Cell[31460, 894, 270, 7, 32, "Input"],
Cell[CellGroupData[{
Cell[31755, 905, 417, 13, 32, "Input"],
Cell[32175, 920, 400, 13, 37, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32612, 938, 595, 18, 56, "Input"],
Cell[33210, 958, 455, 14, 82, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)