(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      3310,        111]
NotebookOptionsPosition[      3056,         98]
NotebookOutlinePosition[      3399,        113]
CellTagsIndexPosition[      3356,        110]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"z", "=", 
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"d", "d", "d", 
       RowBox[{"-", "a"}], "0", "0", 
       RowBox[{"-", "b"}], "0", "0", 
       RowBox[{"-", "e"}], "0", "0"},
      {"d", "d", "d", "0", 
       RowBox[{"-", "a"}], "0", "0", 
       RowBox[{"-", "b"}], "0", "0", 
       RowBox[{"-", "e"}], "0"},
      {"d", "d", "d", "0", "0", 
       RowBox[{"-", "a"}], "0", "0", 
       RowBox[{"-", "b"}], "0", "0", 
       RowBox[{"-", "e"}]},
      {
       RowBox[{"-", "a"}], "0", "0", "d", 
       RowBox[{"-", "d"}], 
       RowBox[{"-", "d"}], 
       RowBox[{"-", "c"}], "0", "0", 
       RowBox[{"-", "f"}], "0", "0"},
      {"0", 
       RowBox[{"-", "a"}], "0", 
       RowBox[{"-", "d"}], "d", "d", "0", 
       RowBox[{"-", "c"}], "0", "0", 
       RowBox[{"-", "f"}], "0"},
      {"0", "0", 
       RowBox[{"-", "a"}], 
       RowBox[{"-", "d"}], "d", "d", "0", "0", 
       RowBox[{"-", "c"}], "0", "0", 
       RowBox[{"-", "f"}]},
      {
       RowBox[{"-", "b"}], "0", "0", 
       RowBox[{"-", "c"}], "0", "0", "d", 
       RowBox[{"-", "d"}], "d", 
       RowBox[{"-", "g"}], "0", "0"},
      {"0", 
       RowBox[{"-", "b"}], "0", "0", 
       RowBox[{"-", "c"}], "0", 
       RowBox[{"-", "d"}], "d", 
       RowBox[{"-", "d"}], "0", 
       RowBox[{"-", "g"}], "0"},
      {"0", "0", 
       RowBox[{"-", "b"}], "0", "0", 
       RowBox[{"-", "c"}], "d", 
       RowBox[{"-", "d"}], "d", "0", "0", 
       RowBox[{"-", "g"}]},
      {
       RowBox[{"-", "e"}], "0", "0", 
       RowBox[{"-", "f"}], "0", "0", 
       RowBox[{"-", "g"}], "0", "0", "d", "d", 
       RowBox[{"-", "d"}]},
      {"0", 
       RowBox[{"-", "e"}], "0", "0", 
       RowBox[{"-", "f"}], "0", "0", 
       RowBox[{"-", "g"}], "0", "d", "d", 
       RowBox[{"-", "d"}]},
      {"0", "0", 
       RowBox[{"-", "e"}], "0", "0", 
       RowBox[{"-", "f"}], "0", "0", 
       RowBox[{"-", "g"}], 
       RowBox[{"-", "d"}], 
       RowBox[{"-", "d"}], "d"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]]}]], "Input"]
},
WindowSize->{607, 505},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"7.0 for Microsoft Windows (64-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 2507, 76, 192, "Input"]
}
]
*)

(* End of internal cache information *)