(* 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[      4613,        155]
NotebookOptionsPosition[      4178,        135]
NotebookOutlinePosition[      4521,        150]
CellTagsIndexPosition[      4478,        147]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"m", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"s", ",", 
       RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "s", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "s", ",", 
       RowBox[{"-", "1"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", 
       SuperscriptBox["w", "2"], ",", 
       RowBox[{"s", "+", 
        RowBox[{"2", " ", "z", " ", "w"}]}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "m", "]"}]}], "Input",
 CellChangeTimes->{{3.5146286599201803`*^9, 3.51462869177979*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"s", 
      RowBox[{"-", "1"}], "0", "0"},
     {"0", "s", "0", "0"},
     {"0", "0", "s", 
      RowBox[{"-", "1"}]},
     {"0", "0", 
      SuperscriptBox["w", "2"], 
      RowBox[{"s", "+", 
       RowBox[{"2", " ", "w", " ", "z"}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.5146287647023683`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"IM", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Inverse", "[", "m", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "IM", "]"}]}], "Input",
 CellChangeTimes->{{3.5146287557803793`*^9, 3.514628798796382*^9}, {
  3.5146289717354617`*^9, 3.514629011423297*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox["1", "s"], 
      FractionBox["1", 
       SuperscriptBox["s", "2"]], "0", "0"},
     {"0", 
      FractionBox["1", "s"], "0", "0"},
     {"0", "0", 
      FractionBox[
       RowBox[{"s", "+", 
        RowBox[{"2", " ", "w", " ", "z"}]}], 
       RowBox[{
        SuperscriptBox["s", "2"], "+", 
        SuperscriptBox["w", "2"], "+", 
        RowBox[{"2", " ", "s", " ", "w", " ", "z"}]}]], 
      FractionBox["1", 
       RowBox[{
        SuperscriptBox["s", "2"], "+", 
        SuperscriptBox["w", "2"], "+", 
        RowBox[{"2", " ", "s", " ", "w", " ", "z"}]}]]},
     {"0", "0", 
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox["w", "2"], 
        RowBox[{
         SuperscriptBox["s", "2"], "+", 
         SuperscriptBox["w", "2"], "+", 
         RowBox[{"2", " ", "s", " ", "w", " ", "z"}]}]]}], 
      FractionBox["s", 
       RowBox[{
        SuperscriptBox["s", "2"], "+", 
        SuperscriptBox["w", "2"], "+", 
        RowBox[{"2", " ", "s", " ", "w", " ", "z"}]}]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.514628976626092*^9, {3.5146290070951166`*^9, 3.5146290118139267`*^9}}]
}, Open  ]]
},
WindowSize->{616, 750},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 716, 20, 54, "Input"],
Cell[1286, 44, 840, 25, 89, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2163, 74, 326, 7, 52, "Input"],
Cell[2492, 83, 1670, 49, 135, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)