contracts.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[     58898,       1624]
NotebookOptionsPosition[     58584,       1608]
NotebookOutlinePosition[     58922,       1623]
CellTagsIndexPosition[     58879,       1620]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"d\[Psi]h", "[", "j", "]"}], "*", 
     RowBox[{"Cijkl", "[", 
      RowBox[{"i", ",", "j", ",", "k", ",", "l"}], "]"}], "*", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[CurlyEpsilon]", "[", 
        RowBox[{"k", ",", "l"}], "]"}], " ", "-", 
       RowBox[{"Sum", "[", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"Q", "[", 
           RowBox[{"k", ",", "l", ",", "m", ",", "n"}], "]"}], "*", 
          RowBox[{"P", "[", "m", "]"}], "*", 
          RowBox[{"P", "[", "n", "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"m", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"n", ",", "0", ",", "2"}], "}"}]}], "]"}], "-", 
       RowBox[{"\[CurlyEpsilon]0", "[", 
        RowBox[{"k", ",", "l"}], "]"}]}], ")"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"l", ",", "0", ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "0", ",", "2"}], "}"}]}], "]"}], "/.", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", 
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"1", ",", "2"}], "]"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"3", ",", "1"}], "]"}], "\[Rule]", 
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"1", ",", "3"}], "]"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"3", ",", "2"}], "]"}], "\[Rule]", 
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"2", ",", "3"}], "]"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", 
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"1", ",", "2"}], "]"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"3", ",", "1"}], "]"}], "\[Rule]", 
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"1", ",", "3"}], "]"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"3", ",", "2"}], "]"}], "\[Rule]", 
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"2", ",", "3"}], "]"}]}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.6717243564827623`*^9, 3.671724503394024*^9}, {
  3.671724560069726*^9, 3.671725050462139*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Cijkl", "[", 
    RowBox[{"i", ",", "0", ",", "0", ",", "0"}], "]"}], " ", 
   RowBox[{"d\[Psi]h", "[", "0", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"P", "[", "0", "]"}], "2"]}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "0", ",", "0", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "1", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "0", ",", "1", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "0", ",", "2", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "0", ",", "2", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "2", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "0", ",", "2", ",", "2"}], "]"}]}], "+", 
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"0", ",", "0"}], "]"}], "-", 
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"0", ",", "0"}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"Cijkl", "[", 
    RowBox[{"i", ",", "1", ",", "0", ",", "0"}], "]"}], " ", 
   RowBox[{"d\[Psi]h", "[", "1", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"P", "[", "0", "]"}], "2"]}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "0", ",", "0", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "1", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "0", ",", "1", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "0", ",", "2", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "0", ",", "2", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "2", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "0", ",", "2", ",", "2"}], "]"}]}], "+", 
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"0", ",", "0"}], "]"}], "-", 
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"0", ",", "0"}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"Cijkl", "[", 
    RowBox[{"i", ",", "2", ",", "0", ",", "0"}], "]"}], " ", 
   RowBox[{"d\[Psi]h", "[", "2", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"P", "[", "0", "]"}], "2"]}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "0", ",", "0", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "1", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "0", ",", "1", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "0", ",", "2", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "0", ",", "2", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "2", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "0", ",", "2", ",", "2"}], "]"}]}], "+", 
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"0", ",", "0"}], "]"}], "-", 
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"0", ",", "0"}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"Cijkl", "[", 
    RowBox[{"i", ",", "0", ",", "0", ",", "1"}], "]"}], " ", 
   RowBox[{"d\[Psi]h", "[", "0", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"P", "[", "0", "]"}], "2"]}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "1", ",", "0", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "1", ",", "1", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "1", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "1", ",", "1", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "1", ",", "1", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "1", ",", "2", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "1", ",", "2", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "2", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "1", ",", "2", ",", "2"}], "]"}]}], "+", 
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"0", ",", "1"}], "]"}], "-", 
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"0", ",", "1"}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"Cijkl", "[", 
    RowBox[{"i", ",", "1", ",", "0", ",", "1"}], "]"}], " ", 
   RowBox[{"d\[Psi]h", "[", "1", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"P", "[", "0", "]"}], "2"]}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "1", ",", "0", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "1", ",", "1", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "1", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "1", ",", "1", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "1", ",", "1", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "1", ",", "2", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "1", ",", "2", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "2", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "1", ",", "2", ",", "2"}], "]"}]}], "+", 
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"0", ",", "1"}], "]"}], "-", 
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"0", ",", "1"}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"Cijkl", "[", 
    RowBox[{"i", ",", "2", ",", "0", ",", "1"}], "]"}], " ", 
   RowBox[{"d\[Psi]h", "[", "2", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"P", "[", "0", "]"}], "2"]}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "1", ",", "0", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "1", ",", "1", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "1", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "1", ",", "1", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "1", ",", "1", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "1", ",", "2", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "1", ",", "2", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "2", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "1", ",", "2", ",", "2"}], "]"}]}], "+", 
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"0", ",", "1"}], "]"}], "-", 
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"0", ",", "1"}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"Cijkl", "[", 
    RowBox[{"i", ",", "0", ",", "0", ",", "2"}], "]"}], " ", 
   RowBox[{"d\[Psi]h", "[", "0", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"P", "[", "0", "]"}], "2"]}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "2", ",", "0", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "2", ",", "0", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "2", ",", "0", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "2", ",", "1", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "1", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "2", ",", "1", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "2", ",", "1", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "2", ",", "2", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "2", ",", "2", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "2", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "2", ",", "2", ",", "2"}], "]"}]}], "+", 
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"0", ",", "2"}], "]"}], "-", 
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"0", ",", "2"}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"Cijkl", "[", 
    RowBox[{"i", ",", "1", ",", "0", ",", "2"}], "]"}], " ", 
   RowBox[{"d\[Psi]h", "[", "1", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"P", "[", "0", "]"}], "2"]}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "2", ",", "0", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "2", ",", "0", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "2", ",", "0", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "2", ",", "1", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "1", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "2", ",", "1", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "2", ",", "1", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "2", ",", "2", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "2", ",", "2", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "2", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "2", ",", "2", ",", "2"}], "]"}]}], "+", 
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"0", ",", "2"}], "]"}], "-", 
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"0", ",", "2"}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"Cijkl", "[", 
    RowBox[{"i", ",", "2", ",", "0", ",", "2"}], "]"}], " ", 
   RowBox[{"d\[Psi]h", "[", "2", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"P", "[", "0", "]"}], "2"]}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "2", ",", "0", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "2", ",", "0", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "2", ",", "0", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "2", ",", "1", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "1", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "2", ",", "1", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "2", ",", "1", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "2", ",", "2", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "2", ",", "2", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "2", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"0", ",", "2", ",", "2", ",", "2"}], "]"}]}], "+", 
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"0", ",", "2"}], "]"}], "-", 
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"0", ",", "2"}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"Cijkl", "[", 
    RowBox[{"i", ",", "0", ",", "1", ",", "0"}], "]"}], " ", 
   RowBox[{"d\[Psi]h", "[", "0", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"P", "[", "0", "]"}], "2"]}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "0", ",", "0", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "0", ",", "0", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "0", ",", "1", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "1", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "0", ",", "1", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "0", ",", "1", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "0", ",", "2", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "0", ",", "2", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "2", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "0", ",", "2", ",", "2"}], "]"}]}], "+", 
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"1", ",", "0"}], "]"}], "-", 
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"1", ",", "0"}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"Cijkl", "[", 
    RowBox[{"i", ",", "1", ",", "1", ",", "0"}], "]"}], " ", 
   RowBox[{"d\[Psi]h", "[", "1", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"P", "[", "0", "]"}], "2"]}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "0", ",", "0", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "0", ",", "0", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "0", ",", "1", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "1", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "0", ",", "1", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "0", ",", "1", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "0", ",", "2", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "0", ",", "2", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "2", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "0", ",", "2", ",", "2"}], "]"}]}], "+", 
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"1", ",", "0"}], "]"}], "-", 
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"1", ",", "0"}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"Cijkl", "[", 
    RowBox[{"i", ",", "2", ",", "1", ",", "0"}], "]"}], " ", 
   RowBox[{"d\[Psi]h", "[", "2", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"P", "[", "0", "]"}], "2"]}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "0", ",", "0", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "0", ",", "0", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "0", ",", "1", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "1", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "0", ",", "1", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "0", ",", "1", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "0", ",", "2", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "0", ",", "2", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "2", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "0", ",", "2", ",", "2"}], "]"}]}], "+", 
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"1", ",", "0"}], "]"}], "-", 
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"1", ",", "0"}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"Cijkl", "[", 
    RowBox[{"i", ",", "0", ",", "1", ",", "1"}], "]"}], " ", 
   RowBox[{"d\[Psi]h", "[", "0", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"P", "[", "0", "]"}], "2"]}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "1", ",", "0", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "1", ",", "0", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "1", ",", "0", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "1", ",", "1", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "1", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "1", ",", "2", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "1", ",", "2", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "2", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "1", ",", "2", ",", "2"}], "]"}]}], "+", 
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"1", ",", "1"}], "]"}], "-", 
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"1", ",", "1"}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"Cijkl", "[", 
    RowBox[{"i", ",", "1", ",", "1", ",", "1"}], "]"}], " ", 
   RowBox[{"d\[Psi]h", "[", "1", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"P", "[", "0", "]"}], "2"]}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "1", ",", "0", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "1", ",", "0", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "1", ",", "0", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "1", ",", "1", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "1", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "1", ",", "2", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "1", ",", "2", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "2", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "1", ",", "2", ",", "2"}], "]"}]}], "+", 
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"1", ",", "1"}], "]"}], "-", 
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"1", ",", "1"}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"Cijkl", "[", 
    RowBox[{"i", ",", "2", ",", "1", ",", "1"}], "]"}], " ", 
   RowBox[{"d\[Psi]h", "[", "2", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"P", "[", "0", "]"}], "2"]}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "1", ",", "0", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "1", ",", "0", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "1", ",", "0", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "1", ",", "1", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "1", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "1", ",", "2", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "1", ",", "2", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "2", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "1", ",", "2", ",", "2"}], "]"}]}], "+", 
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"1", ",", "1"}], "]"}], "-", 
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"1", ",", "1"}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"Cijkl", "[", 
    RowBox[{"i", ",", "0", ",", "1", ",", "2"}], "]"}], " ", 
   RowBox[{"d\[Psi]h", "[", "0", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"P", "[", "0", "]"}], "2"]}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "2", ",", "0", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "2", ",", "0", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "2", ",", "0", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "2", ",", "1", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "1", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "2", ",", "2", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "2", ",", "2", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "2", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "2", ",", "2", ",", "2"}], "]"}]}], "+", 
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"1", ",", "2"}], "]"}], "-", 
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"1", ",", "2"}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"Cijkl", "[", 
    RowBox[{"i", ",", "1", ",", "1", ",", "2"}], "]"}], " ", 
   RowBox[{"d\[Psi]h", "[", "1", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"P", "[", "0", "]"}], "2"]}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "2", ",", "0", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "2", ",", "0", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "2", ",", "0", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "2", ",", "1", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "1", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "2", ",", "2", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "2", ",", "2", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "2", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "2", ",", "2", ",", "2"}], "]"}]}], "+", 
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"1", ",", "2"}], "]"}], "-", 
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"1", ",", "2"}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"Cijkl", "[", 
    RowBox[{"i", ",", "2", ",", "1", ",", "2"}], "]"}], " ", 
   RowBox[{"d\[Psi]h", "[", "2", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"P", "[", "0", "]"}], "2"]}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "2", ",", "0", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "2", ",", "0", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "2", ",", "0", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "2", ",", "1", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "1", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "2", ",", "2", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "2", ",", "2", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "2", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"1", ",", "2", ",", "2", ",", "2"}], "]"}]}], "+", 
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"1", ",", "2"}], "]"}], "-", 
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"1", ",", "2"}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"Cijkl", "[", 
    RowBox[{"i", ",", "0", ",", "2", ",", "1"}], "]"}], " ", 
   RowBox[{"d\[Psi]h", "[", "0", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"P", "[", "0", "]"}], "2"]}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "1", ",", "0", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "1", ",", "0", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "1", ",", "0", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "1", ",", "1", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "1", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "1", ",", "1", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "1", ",", "2", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "1", ",", "2", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "2", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "1", ",", "2", ",", "2"}], "]"}]}], "+", 
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"1", ",", "2"}], "]"}], "-", 
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"1", ",", "2"}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"Cijkl", "[", 
    RowBox[{"i", ",", "1", ",", "2", ",", "1"}], "]"}], " ", 
   RowBox[{"d\[Psi]h", "[", "1", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"P", "[", "0", "]"}], "2"]}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "1", ",", "0", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "1", ",", "0", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "1", ",", "0", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "1", ",", "1", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "1", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "1", ",", "1", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "1", ",", "2", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "1", ",", "2", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "2", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "1", ",", "2", ",", "2"}], "]"}]}], "+", 
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"1", ",", "2"}], "]"}], "-", 
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"1", ",", "2"}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"Cijkl", "[", 
    RowBox[{"i", ",", "2", ",", "2", ",", "1"}], "]"}], " ", 
   RowBox[{"d\[Psi]h", "[", "2", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"P", "[", "0", "]"}], "2"]}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "1", ",", "0", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "1", ",", "0", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "1", ",", "0", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "1", ",", "1", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "1", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "1", ",", "1", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "1", ",", "2", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "1", ",", "2", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "2", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "1", ",", "2", ",", "2"}], "]"}]}], "+", 
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"1", ",", "2"}], "]"}], "-", 
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"1", ",", "2"}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"Cijkl", "[", 
    RowBox[{"i", ",", "0", ",", "2", ",", "0"}], "]"}], " ", 
   RowBox[{"d\[Psi]h", "[", "0", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"P", "[", "0", "]"}], "2"]}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "0", ",", "0", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "0", ",", "0", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "0", ",", "0", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "0", ",", "1", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "1", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "0", ",", "1", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "0", ",", "1", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "0", ",", "2", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "0", ",", "2", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "2", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "0", ",", "2", ",", "2"}], "]"}]}], "+", 
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"2", ",", "0"}], "]"}], "-", 
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"Cijkl", "[", 
    RowBox[{"i", ",", "1", ",", "2", ",", "0"}], "]"}], " ", 
   RowBox[{"d\[Psi]h", "[", "1", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"P", "[", "0", "]"}], "2"]}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "0", ",", "0", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "0", ",", "0", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "0", ",", "0", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "0", ",", "1", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "1", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "0", ",", "1", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "0", ",", "1", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "0", ",", "2", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "0", ",", "2", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "2", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "0", ",", "2", ",", "2"}], "]"}]}], "+", 
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"2", ",", "0"}], "]"}], "-", 
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"Cijkl", "[", 
    RowBox[{"i", ",", "2", ",", "2", ",", "0"}], "]"}], " ", 
   RowBox[{"d\[Psi]h", "[", "2", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"P", "[", "0", "]"}], "2"]}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "0", ",", "0", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "0", ",", "0", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "0", ",", "0", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "0", ",", "1", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "1", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "0", ",", "1", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "0", ",", "1", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "0", ",", "2", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "0", ",", "2", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "2", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "0", ",", "2", ",", "2"}], "]"}]}], "+", 
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"2", ",", "0"}], "]"}], "-", 
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"Cijkl", "[", 
    RowBox[{"i", ",", "0", ",", "2", ",", "2"}], "]"}], " ", 
   RowBox[{"d\[Psi]h", "[", "0", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"P", "[", "0", "]"}], "2"]}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "2", ",", "0", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "2", ",", "0", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "2", ",", "0", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "2", ",", "1", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "1", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "2", ",", "1", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "2", ",", "2", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "2", ",", "2", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "2", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "2", ",", "2", ",", "2"}], "]"}]}], "+", 
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"2", ",", "2"}], "]"}], "-", 
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"2", ",", "2"}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"Cijkl", "[", 
    RowBox[{"i", ",", "1", ",", "2", ",", "2"}], "]"}], " ", 
   RowBox[{"d\[Psi]h", "[", "1", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"P", "[", "0", "]"}], "2"]}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "2", ",", "0", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "2", ",", "0", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "2", ",", "0", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "2", ",", "1", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "1", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "2", ",", "1", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "2", ",", "2", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "2", ",", "2", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "2", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "2", ",", "2", ",", "2"}], "]"}]}], "+", 
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"2", ",", "2"}], "]"}], "-", 
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"2", ",", "2"}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"Cijkl", "[", 
    RowBox[{"i", ",", "2", ",", "2", ",", "2"}], "]"}], " ", 
   RowBox[{"d\[Psi]h", "[", "2", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"P", "[", "0", "]"}], "2"]}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "2", ",", "0", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "2", ",", "0", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "2", ",", "0", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "2", ",", "1", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "1", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "2", ",", "1", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "0", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "2", ",", "2", ",", "0"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"P", "[", "1", "]"}], " ", 
      RowBox[{"P", "[", "2", "]"}], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "2", ",", "2", ",", "1"}], "]"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"P", "[", "2", "]"}], "2"], " ", 
      RowBox[{"Q", "[", 
       RowBox[{"2", ",", "2", ",", "2", ",", "2"}], "]"}]}], "+", 
     RowBox[{"\[CurlyEpsilon]", "[", 
      RowBox[{"2", ",", "2"}], "]"}], "-", 
     RowBox[{"\[CurlyEpsilon]0", "[", 
      RowBox[{"2", ",", "2"}], "]"}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.671724782775977*^9, 3.671724821732225*^9, 3.671724861207094*^9, 
   3.671724913818088*^9, 3.671724946956435*^9, 3.6717249780589447`*^9, {
   3.671725034613586*^9, 3.671725051298148*^9}}]
}, Open  ]]
},
WindowSize->{1855, 1056},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
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, 2502, 64, 165, "Input"],
Cell[3085, 88, 55483, 1517, 1362, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)