(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.0' Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. *******************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 163794, 3301]*) (*NotebookOutlinePosition[ 164440, 3323]*) (* CellTagsIndexPosition[ 164396, 3319]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ \(Clear[X]\), "\[IndentingNewLine]", \(A = {{0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1/\[Mu]}, {0, 0, 0, 0, \(-1\)/\[Mu], 0}, {0, 0, 0, 0, 0, 0}, {0, 0, \(-1\)/\[Epsilon], 0, 0, 0}, {0, 1/\[Epsilon], 0, 0, 0, 0}}\), "\[IndentingNewLine]", \(MatrixForm[A]\), "\[IndentingNewLine]", \(MatrixForm[Eigensystem[A]]\), "\[IndentingNewLine]", \(\({EV1, EV2, EV3, EV4, EV5, EV6} = {\[IndentingNewLine]{0, 0, 0, 1, 0, 0}, \[IndentingNewLine]{1, 0, 0, 0, 0, 0}, \[IndentingNewLine]{0, \(-\@\[Epsilon][E1, E2, E3, B1, B2, \ B3]\), 0, 0, 0, \@\[Mu][E1, E2, E3, B1, B2, B3]}, \[IndentingNewLine]{0, 0, \@\[Epsilon][E1, E2, E3, B1, B2, B3], 0, \@\[Mu][E1, E2, E3, B1, B2, B3], 0}, \[IndentingNewLine]{0, \@\[Epsilon][E1, E2, E3, B1, B2, B3], 0, 0, 0, \@\[Mu][E1, E2, E3, B1, B2, B3]}, \[IndentingNewLine]{0, 0, \(-\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), 0, \@\[Mu][E1, E2, E3, B1, B2, B3], 0}\[IndentingNewLine]};\)\), "\[IndentingNewLine]", \(\(EVMX = Transpose[{EV1, EV2, EV3, EV4, EV5, EV6}];\)\), "\[IndentingNewLine]", \(MatrixForm[EVMX]\), "\[IndentingNewLine]", \(Det[EVMX]\[IndentingNewLine]\), "\[IndentingNewLine]", \(Dop[X_] := Transpose[{\[PartialD]\_E1\ X, \[PartialD]\_E2\ X, \[PartialD]\_E3\ X, \[PartialD]\_B1\ X, \[PartialD]\_B2\ X, \[PartialD]\_B3\ X}]\[IndentingNewLine]\), "\[IndentingNewLine]", \(LB[X_, Y_] := Dop[X] . Y - Dop[Y] . X\[IndentingNewLine]\), "\[IndentingNewLine]", \(\(LB12 = LB[EV2, EV1];\)\), "\[IndentingNewLine]", \(\(LB13 = LB[EV3, EV1];\)\), "\[IndentingNewLine]", \(\(LB14 = LB[EV4, EV1];\)\), "\[IndentingNewLine]", \(\(LB15 = LB[EV5, EV1];\)\), "\[IndentingNewLine]", \(\(LB16 = LB[EV6, EV1];\)\[IndentingNewLine]\), "\[IndentingNewLine]", \(\(LB23 = LB[EV3, EV2];\)\), "\[IndentingNewLine]", \(\(LB24 = LB[EV4, EV2];\)\), "\[IndentingNewLine]", \(\(LB25 = LB[EV5, EV2];\)\), "\[IndentingNewLine]", \(\(LB26 = LB[EV6, EV2];\)\[IndentingNewLine]\), "\[IndentingNewLine]", \(\(LB34 = LB[EV4, EV3];\)\), "\[IndentingNewLine]", \(\(LB35 = LB[EV5, EV3];\)\), "\[IndentingNewLine]", \(\(LB36 = LB[EV6, EV3];\)\[IndentingNewLine]\), "\[IndentingNewLine]", \(\(LB45 = LB[EV5, EV4];\)\), "\[IndentingNewLine]", \(\(LB46 = LB[EV6, EV4];\)\[IndentingNewLine]\), "\[IndentingNewLine]", \(\(LB56 = LB[EV6, EV5];\)\[IndentingNewLine]\), "\[IndentingNewLine]", \(\(LBMX = {{0, LB12, LB13, LB14, LB15, LB16}, {\(-LB12\), 0, LB23, LB24, LB25, LB26}, {\(-LB13\), \(-LB23\), 0, LB34, LB35, LB36}, {\(-LB14\), \(-LB24\), \(-LB34\), 0, LB45, LB46}, {\(-LB15\), \(-LB25\), \(-LB35\), \(-LB45\), 0, LB56}, {\(-LB16\), \(-LB26\), \(-LB36\), \(-LB46\), \(-LB56\), 0}};\)\), "\[IndentingNewLine]", \(MatrixForm[LBMX]\[IndentingNewLine]\), "\[IndentingNewLine]", \(\(LBC12 = LinearSolve[EVMX, LB12];\)\), "\[IndentingNewLine]", \(\(LBC13 = LinearSolve[EVMX, LB13];\)\), "\[IndentingNewLine]", \(\(LBC14 = LinearSolve[EVMX, LB14];\)\), "\[IndentingNewLine]", \(\(LBC15 = LinearSolve[EVMX, LB15];\)\), "\[IndentingNewLine]", \(\(LBC16 = LinearSolve[EVMX, LB16];\)\[IndentingNewLine]\), "\[IndentingNewLine]", \(\(LBC23 = LinearSolve[EVMX, LB23];\)\), "\[IndentingNewLine]", \(\(LBC24 = LinearSolve[EVMX, LB24];\)\), "\[IndentingNewLine]", \(\(LBC25 = LinearSolve[EVMX, LB25];\)\), "\[IndentingNewLine]", \(\(LBC26 = LinearSolve[EVMX, LB26];\)\[IndentingNewLine]\), "\[IndentingNewLine]", \(\(LBC34 = LinearSolve[EVMX, LB34];\)\), "\[IndentingNewLine]", \(\(LBC35 = LinearSolve[EVMX, LB35];\)\), "\[IndentingNewLine]", \(\(LBC36 = LinearSolve[EVMX, LB36];\)\[IndentingNewLine]\), "\[IndentingNewLine]", \(\(LBC45 = LinearSolve[EVMX, LB45];\)\), "\[IndentingNewLine]", \(\(LBC46 = LinearSolve[EVMX, LB46];\)\[IndentingNewLine]\), "\[IndentingNewLine]", \(\(LBC56 = LinearSolve[EVMX, LB56];\)\[IndentingNewLine]\), "\[IndentingNewLine]", \(\(LBCMX = {{0, LBC12, LBC13, LBC14, LBC15, LBC16}, {\(-LBC12\), 0, LBC23, LBC24, LBC25, LBC26}, {\(-LBC13\), \(-LBC23\), 0, LBC34, LBC35, LBC36}, {\(-LBC14\), \(-LBC24\), \(-LBC34\), 0, LBC45, LBC46}, {\(-LBC15\), \(-LBC25\), \(-LBC35\), \(-LBC45\), 0, LBC56}, {\(-LBC16\), \(-LBC26\), \(-LBC36\), \(-LBC46\), \(-LBC56\ \), 0}};\)\), "\[IndentingNewLine]", \(MatrixForm[LBCMX]\), "\[IndentingNewLine]", \(\)}], "Input"], Cell[BoxData[ \({{0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1\/\[Mu]}, {0, 0, 0, 0, \(-\(1\/\[Mu]\)\), 0}, {0, 0, 0, 0, 0, 0}, {0, 0, \(-\(1\/\[Epsilon]\)\), 0, 0, 0}, {0, 1\/\[Epsilon], 0, 0, 0, 0}}\)], "Output"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", \(1\/\[Mu]\)}, {"0", "0", "0", "0", \(-\(1\/\[Mu]\)\), "0"}, {"0", "0", "0", "0", "0", "0"}, {"0", "0", \(-\(1\/\[Epsilon]\)\), "0", "0", "0"}, {"0", \(1\/\[Epsilon]\), "0", "0", "0", "0"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", \(-\(1\/\(\@\[Epsilon]\ \@\[Mu]\)\)\), \(-\(1\/\(\@\ \[Epsilon]\ \@\[Mu]\)\)\), \(1\/\(\@\[Epsilon]\ \@\[Mu]\)\), \(1\/\(\@\ \[Epsilon]\ \@\[Mu]\)\)}, {\({0, 0, 0, 1, 0, 0}\), \({1, 0, 0, 0, 0, 0}\), \({0, \(-\(\@\[Epsilon]\/\@\[Mu]\)\), 0, 0, 0, 1}\), \({0, 0, \@\[Epsilon]\/\@\[Mu], 0, 1, 0}\), \({0, \@\[Epsilon]\/\@\[Mu], 0, 0, 0, 1}\), \({0, 0, \(-\(\@\[Epsilon]\/\@\[Mu]\)\), 0, 1, 0}\)} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1", "0", "0", "0", "0"}, {"0", "0", \(-\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), "0", \(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), "0"}, {"0", "0", "0", \(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), "0", \(-\@\[Epsilon][E1, E2, E3, B1, B2, B3]\)}, {"1", "0", "0", "0", "0", "0"}, {"0", "0", "0", \(\@\[Mu][E1, E2, E3, B1, B2, B3]\), "0", \(\@\[Mu][E1, E2, E3, B1, B2, B3]\)}, {"0", "0", \(\@\[Mu][E1, E2, E3, B1, B2, B3]\), "0", \(\@\[Mu][E1, E2, E3, B1, B2, B3]\), "0"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"], Cell[BoxData[ \(\(-4\)\ \[Epsilon][E1, E2, E3, B1, B2, B3]\ \[Mu][E1, E2, E3, B1, B2, B3]\)], "Output"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", \({0, 0, 0, 0, 0, 0}\), RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(2\ \@\[Epsilon][E1, E2, E3, B1, B2, B3]\)]}], ",", "0", ",", "0", ",", "0", ",", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(2\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)]}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(2\ \@\[Epsilon][E1, E2, E3, B1, B2, \ B3]\)], ",", "0", ",", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(2\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)], ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(2\ \@\[Epsilon][E1, E2, E3, B1, B2, \ B3]\)], ",", "0", ",", "0", ",", "0", ",", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(2\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)]}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(2\ \@\[Epsilon][E1, E2, E3, B1, B2, B3]\)]}], ",", "0", ",", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(2\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)], ",", "0"}], "}"}]}, {\({0, 0, 0, 0, 0, 0}\), "0", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(2\ \@\[Epsilon][E1, E2, E3, B1, B2, B3]\)]}], ",", "0", ",", "0", ",", "0", ",", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(2\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)]}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(2\ \@\[Epsilon][E1, E2, E3, B1, B2, \ B3]\)], ",", "0", ",", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(2\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)], ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(2\ \@\[Epsilon][E1, E2, E3, B1, B2, \ B3]\)], ",", "0", ",", "0", ",", "0", ",", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(2\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)]}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(2\ \@\[Epsilon][E1, E2, E3, B1, B2, B3]\)]}], ",", "0", ",", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(2\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)], ",", "0"}], "}"}]}, { RowBox[{"{", RowBox[{"0", ",", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(2\ \@\[Epsilon][E1, E2, E3, B1, B2, \ B3]\)], ",", "0", ",", "0", ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(2\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)]}]}], "}"}], RowBox[{"{", RowBox[{"0", ",", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(2\ \@\[Epsilon][E1, E2, E3, B1, B2, \ B3]\)], ",", "0", ",", "0", ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(2\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)]}]}], "}"}], "0", RowBox[{"{", RowBox[{"0", ",", RowBox[{ FractionBox[ RowBox[{\(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(2\ \@\[Epsilon][E1, E2, E3, B1, B2, \ B3]\)], "+", RowBox[{\(1\/2\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], ",", RowBox[{ FractionBox[ RowBox[{\(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(2\ \@\[Epsilon][E1, E2, E3, B1, B2, \ B3]\)], "-", RowBox[{\(1\/2\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], ",", "0", ",", RowBox[{ RowBox[{\(1\/2\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "-", FractionBox[ RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(2\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", RowBox[{ RowBox[{\(-\(1\/2\)\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "-", FractionBox[ RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(2\ \@\[Mu][E1, E2, E3, B1, B2, \ B3]\)]}]}], "}"}], RowBox[{"{", RowBox[{"0", ",", FractionBox[ RowBox[{\(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\)], ",", "0", ",", "0", ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(\@\[Mu][E1, E2, E3, B1, B2, B3]\)]}]}], "}"}], RowBox[{"{", RowBox[{"0", ",", RowBox[{ FractionBox[ RowBox[{\(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(2\ \@\[Epsilon][E1, E2, E3, B1, B2, \ B3]\)], "-", RowBox[{\(1\/2\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], ",", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{\(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(2\ \@\[Epsilon][E1, E2, E3, B1, B2, \ B3]\)]}], "+", RowBox[{\(1\/2\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], ",", "0", ",", RowBox[{ RowBox[{\(1\/2\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "-", FractionBox[ RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(2\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", RowBox[{ RowBox[{\(-\(1\/2\)\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", FractionBox[ RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(2\ \@\[Mu][E1, E2, E3, B1, B2, \ B3]\)]}]}], "}"}]}, { RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(2\ \@\[Epsilon][E1, E2, E3, B1, B2, B3]\)]}], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(2\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(2\ \@\[Epsilon][E1, E2, E3, B1, B2, B3]\)]}], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(2\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{\(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(2\ \@\[Epsilon][E1, E2, E3, B1, B2, \ B3]\)]}], "-", RowBox[{\(1\/2\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], ",", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{\(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(2\ \@\[Epsilon][E1, E2, E3, B1, B2, \ B3]\)]}], "+", RowBox[{\(1\/2\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], ",", "0", ",", RowBox[{ RowBox[{\(-\(1\/2\)\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", FractionBox[ RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(2\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", RowBox[{ RowBox[{\(1\/2\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", FractionBox[ RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(2\ \@\[Mu][E1, E2, E3, B1, B2, \ B3]\)]}]}], "}"}], "0", RowBox[{"{", RowBox[{"0", ",", RowBox[{ FractionBox[ RowBox[{\(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(2\ \@\[Epsilon][E1, E2, E3, B1, B2, \ B3]\)], "+", RowBox[{\(1\/2\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], ",", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{\(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(2\ \@\[Epsilon][E1, E2, E3, B1, B2, \ B3]\)]}], "-", RowBox[{\(1\/2\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], ",", "0", ",", RowBox[{ RowBox[{\(-\(1\/2\)\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "-", FractionBox[ RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(2\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", RowBox[{ RowBox[{\(1\/2\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", FractionBox[ RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(2\ \@\[Mu][E1, E2, E3, B1, B2, \ B3]\)]}]}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{\(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\)]}], ",", "0", ",", FractionBox[ RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(\@\[Mu][E1, E2, E3, B1, B2, B3]\)], ",", "0"}], "}"}]}, { RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(2\ \@\[Epsilon][E1, E2, E3, B1, B2, B3]\)]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(2\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)]}]}], "}"}], RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(2\ \@\[Epsilon][E1, E2, E3, B1, B2, B3]\)]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(2\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)]}]}], "}"}], RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", FractionBox[ RowBox[{\(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\)]}], ",", "0", ",", "0", ",", "0", ",", FractionBox[ RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(\@\[Mu][E1, E2, E3, B1, B2, B3]\)]}], "}"}], RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{\(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(2\ \@\[Epsilon][E1, E2, E3, B1, B2, \ B3]\)]}], "-", RowBox[{\(1\/2\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], ",", RowBox[{ FractionBox[ RowBox[{\(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(2\ \@\[Epsilon][E1, E2, E3, B1, B2, \ B3]\)], "+", RowBox[{\(1\/2\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], ",", "0", ",", RowBox[{ RowBox[{\(1\/2\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", FractionBox[ RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(2\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", RowBox[{ RowBox[{\(-\(1\/2\)\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "-", FractionBox[ RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(2\ \@\[Mu][E1, E2, E3, B1, B2, \ B3]\)]}]}], "}"}], "0", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{\(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(2\ \@\[Epsilon][E1, E2, E3, B1, B2, \ B3]\)]}], "+", RowBox[{\(1\/2\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], ",", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{\(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(2\ \@\[Epsilon][E1, E2, E3, B1, B2, \ B3]\)]}], "-", RowBox[{\(1\/2\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], ",", "0", ",", RowBox[{ RowBox[{\(1\/2\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", FractionBox[ RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(2\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", RowBox[{ RowBox[{\(-\(1\/2\)\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", FractionBox[ RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(2\ \@\[Mu][E1, E2, E3, B1, B2, \ B3]\)]}]}], "}"}]}, { RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(2\ \@\[Epsilon][E1, E2, E3, B1, B2, \ B3]\)], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(2\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(2\ \@\[Epsilon][E1, E2, E3, B1, B2, \ B3]\)], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(2\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{\(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(2\ \@\[Epsilon][E1, E2, E3, B1, B2, \ B3]\)]}], "+", RowBox[{\(1\/2\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], ",", RowBox[{ FractionBox[ RowBox[{\(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(2\ \@\[Epsilon][E1, E2, E3, B1, B2, \ B3]\)], "-", RowBox[{\(1\/2\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], ",", "0", ",", RowBox[{ RowBox[{\(-\(1\/2\)\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", FractionBox[ RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(2\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", RowBox[{ RowBox[{\(1\/2\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "-", FractionBox[ RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(2\ \@\[Mu][E1, E2, E3, B1, B2, \ B3]\)]}]}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ RowBox[{\(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\)], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(\@\[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", RowBox[{ FractionBox[ RowBox[{\(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(2\ \@\[Epsilon][E1, E2, E3, B1, B2, \ B3]\)], "-", RowBox[{\(1\/2\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], ",", RowBox[{ FractionBox[ RowBox[{\(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(2\ \@\[Epsilon][E1, E2, E3, B1, B2, \ B3]\)], "+", RowBox[{\(1\/2\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], ",", "0", ",", RowBox[{ RowBox[{\(-\(1\/2\)\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "-", FractionBox[ RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(2\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", RowBox[{ RowBox[{\(1\/2\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "-", FractionBox[ RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(2\ \@\[Mu][E1, E2, E3, B1, B2, \ B3]\)]}]}], "}"}], "0"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", \({0, 0, 0, 0, 0, 0}\), RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\)], "+", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", "0", ",", FractionBox[ RowBox[{ RowBox[{\(-\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\ \[Mu][E1, E2, E3, B1, B2, B3]\)], ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\)], "+", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", "0", ",", FractionBox[ RowBox[{ RowBox[{\(-\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\)]}], "+", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", "0", ",", FractionBox[ RowBox[{ RowBox[{\(\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\ \[Mu][E1, E2, E3, B1, B2, B3]\)], ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\)]}], "+", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", "0", ",", FractionBox[ RowBox[{ RowBox[{\(\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], "}"}]}, {\({0, 0, 0, 0, 0, 0}\), "0", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\)], "+", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", "0", ",", FractionBox[ RowBox[{ RowBox[{\(-\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\ \[Mu][E1, E2, E3, B1, B2, B3]\)], ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\)], "+", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", "0", ",", FractionBox[ RowBox[{ RowBox[{\(-\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\)]}], "+", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", "0", ",", FractionBox[ RowBox[{ RowBox[{\(\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\ \[Mu][E1, E2, E3, B1, B2, B3]\)], ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\)]}], "+", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", "0", ",", FractionBox[ RowBox[{ RowBox[{\(\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], "}"}]}, { RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\)]}], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{\(-\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\)]}], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{\(-\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", "0"}], "}"}], "0", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{\(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\)]}], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \@\[Epsilon][E1, E2, E3, B1, B2, B3]\)], "-", FractionBox[ RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(4\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", RowBox[{ FractionBox[ RowBox[{\(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\)], "+", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \@\[Epsilon][E1, E2, E3, B1, B2, B3]\)], "-", FractionBox[ RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(4\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", FractionBox[ RowBox[{ RowBox[{\(\[Mu][E1, E2, E3, B1, B2, B3]\^\(3/2\)\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "-", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", \(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", \(\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "-", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\^\(3/2\)\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\ \[Mu][E1, E2, E3, B1, B2, B3]\)], ",", FractionBox[ RowBox[{ RowBox[{\(-\[Mu][E1, E2, E3, B1, B2, B3]\^\(3/2\)\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", \(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", \(\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "-", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\^\(3/2\)\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ RowBox[{ RowBox[{\(-\[Mu][E1, E2, E3, B1, B2, B3]\^\(3/2\)\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "-", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\^\(3/2\)\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], \(2\ \[Epsilon][E1, E2, E3, B1, B2, B3]\ \[Mu][E1, E2, E3, B1, B2, B3]\)], ",", "0", ",", FractionBox[ RowBox[{ RowBox[{\(\[Mu][E1, E2, E3, B1, B2, B3]\^\(3/2\)\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "-", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\^\(3/2\)\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], \(2\ \[Epsilon][E1, E2, E3, B1, B2, B3]\ \[Mu][E1, E2, E3, B1, B2, B3]\)], ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{\(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\)]}], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)], "+", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \@\[Epsilon][E1, E2, E3, B1, B2, B3]\)], "+", FractionBox[ RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(4\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{\(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\)]}], "+", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)], "+", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \@\[Epsilon][E1, E2, E3, B1, B2, B3]\)], "-", FractionBox[ RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(4\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", FractionBox[ RowBox[{ RowBox[{\(\[Mu][E1, E2, E3, B1, B2, B3]\^\(3/2\)\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "-", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", \(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "-", RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", \(\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\^\(3/2\)\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\ \[Mu][E1, E2, E3, B1, B2, B3]\)], ",", FractionBox[ RowBox[{ RowBox[{\(\[Mu][E1, E2, E3, B1, B2, B3]\^\(3/2\)\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", \(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "-", RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", \(\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "-", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\^\(3/2\)\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], "}"}]}, { RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\)]}], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{\(-\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}]}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\)]}], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{\(-\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}]}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ FractionBox[ RowBox[{\(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\)], "+", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)], "+", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \@\[Epsilon][E1, E2, E3, B1, B2, B3]\)], "+", FractionBox[ RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(4\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{\(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\)]}], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)], "+", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \@\[Epsilon][E1, E2, E3, B1, B2, B3]\)], "+", FractionBox[ RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(4\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{\(\[Mu][E1, E2, E3, B1, B2, B3]\^\(3/2\)\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "-", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", \(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", \(\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "-", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\^\(3/ 2\)\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{\(-\[Mu][E1, E2, E3, B1, B2, B3]\^\(3/2\)\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", \(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", \(\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "-", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\^\(3/ 2\)\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}]}], "}"}], "0", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{\(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\)]}], "+", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \@\[Epsilon][E1, E2, E3, B1, B2, B3]\)], "+", FractionBox[ RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(4\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{\(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\)]}], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \@\[Epsilon][E1, E2, E3, B1, B2, B3]\)], "-", FractionBox[ RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(4\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", FractionBox[ RowBox[{ RowBox[{\(\[Mu][E1, E2, E3, B1, B2, B3]\^\(3/2\)\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", \(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", \(\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\^\(3/2\)\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\ \[Mu][E1, E2, E3, B1, B2, B3]\)], ",", FractionBox[ RowBox[{ RowBox[{\(\[Mu][E1, E2, E3, B1, B2, B3]\^\(3/2\)\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "-", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", \(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", \(\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "-", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\^\(3/2\)\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", FractionBox[ RowBox[{ RowBox[{\(-\[Mu][E1, E2, E3, B1, B2, B3]\^\(3/2\)\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\^\(3/2\)\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], \(2\ \[Epsilon][E1, E2, E3, B1, B2, B3]\ \[Mu][E1, E2, E3, B1, B2, B3]\)], ",", "0", ",", FractionBox[ RowBox[{ RowBox[{\(\[Mu][E1, E2, E3, B1, B2, B3]\^\(3/2\)\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\^\(3/2\)\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], \(2\ \[Epsilon][E1, E2, E3, B1, B2, B3]\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], "}"}]}, { RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\)], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{\(\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 1, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\)], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{\(\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "+", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((1, 0, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{\(-\[Mu][E1, E2, E3, B1, B2, B3]\^\(3/2\)\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "-", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\^\(3/ 2\)\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], \(2\ \[Epsilon][E1, E2, E3, B1, B2, B3]\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{\(\[Mu][E1, E2, E3, B1, B2, B3]\^\(3/2\)\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], "-", RowBox[{\(\[Epsilon][E1, E2, E3, B1, B2, B3]\^\(3/ 2\)\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}]}], \(2\ \[Epsilon][E1, E2, E3, B1, B2, B3]\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", "0"}], "}"}], RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ FractionBox[ RowBox[{\(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\)], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 1, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)], "+", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \@\[Epsilon][E1, E2, E3, B1, B2, B3]\)], "-", FractionBox[ RowBox[{\(\@\[Epsilon][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 1, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(4\ \[Mu][E1, E2, E3, B1, B2, B3]\)]}], ",", RowBox[{ FractionBox[ RowBox[{\(\@\[Mu][E1, E2, E3, B1, B2, B3]\), " ", RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}]}], \(4\ \[Epsilon][E1, E2, E3, B1, B2, B3]\)], "+", FractionBox[ RowBox[{ SuperscriptBox["\[Mu]", TagBox[\((0, 0, 0, 0, 0, 1)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\), "]"}], \(4\ \@\[Mu][E1, E2, E3, B1, B2, B3]\)], "+", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", TagBox[\((0, 1, 0, 0, 0, 0)\), Derivative], MultilineFunction->None], "[", \(E1, E2, E3, B1, B2, B3\),