(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 8.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 12909, 366] NotebookOptionsPosition[ 12554, 349] NotebookOutlinePosition[ 12892, 364] CellTagsIndexPosition[ 12849, 361] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"$Assumptions", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Element", "[", RowBox[{"xx", ",", "Reals"}], "]"}], ",", RowBox[{"{", RowBox[{"xx", ",", RowBox[{"{", RowBox[{"reRe", ",", "imRe", ",", "reIm", ",", "imIm"}], "}"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"o", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"reRe", "+", RowBox[{"imRe", " ", "\[ImaginaryI]"}], "+", RowBox[{"reIm", " ", "\[ImaginaryI]"}], "-", "imIm"}], ",", RowBox[{"reRe", "-", RowBox[{"imRe", " ", "\[ImaginaryI]"}], "+", RowBox[{"reIm", " ", "\[ImaginaryI]"}], "+", "imIm"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"reRe", "+", RowBox[{"imRe", " ", "\[ImaginaryI]"}], "-", RowBox[{"reIm", " ", "\[ImaginaryI]"}], "+", "imIm"}], ",", RowBox[{"reRe", "-", RowBox[{"imRe", " ", "\[ImaginaryI]"}], "-", RowBox[{"reIm", " ", "\[ImaginaryI]"}], "-", "imIm"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ox", "=", RowBox[{"o", "/.", RowBox[{"{", RowBox[{ RowBox[{"imRe", "\[Rule]", RowBox[{"-", "imRe"}]}], ",", RowBox[{"imIm", "\[Rule]", RowBox[{"-", "imIm"}]}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"oy", "=", RowBox[{"o", "/.", RowBox[{"{", RowBox[{ RowBox[{"reIm", "\[Rule]", RowBox[{"-", "reIm"}]}], ",", RowBox[{"imIm", "\[Rule]", RowBox[{"-", "imIm"}]}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"oxy", "=", RowBox[{"o", "/.", RowBox[{"{", RowBox[{ RowBox[{"imRe", "\[Rule]", RowBox[{"-", "imRe"}]}], ",", RowBox[{"reIm", "\[Rule]", RowBox[{"-", "reIm"}]}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"makeNice", "[", "x_", "]"}], ":=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"tmp", ",", "iii"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"FullSimplify", "[", RowBox[{"Re", "[", RowBox[{"Expand", "@", "x"}], "]"}], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"FullSimplify", "[", RowBox[{"Im", "[", RowBox[{"Expand", "@", "x"}], "]"}], "]"}]}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "@", RowBox[{"Map", "[", RowBox[{"makeNice", ",", "o", ",", RowBox[{"{", "2", "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"template", "=", RowBox[{"o", "/.", RowBox[{"{", RowBox[{ RowBox[{"reRe", "\[Rule]", "reRe2"}], ",", RowBox[{"imRe", "\[Rule]", "imRe2"}], ",", RowBox[{"reIm", "\[Rule]", "reIm2"}], ",", RowBox[{"imIm", "\[Rule]", "imIm2"}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"varianten", "=", RowBox[{"{", RowBox[{"o", ",", RowBox[{"o", "*", "o"}], ",", RowBox[{"o", "*", "ox"}], ",", RowBox[{"o", "*", "oy"}], ",", RowBox[{"o", "*", "oxy"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "@", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"reRe2", ",", "imRe2"}], "}"}], ",", RowBox[{"{", RowBox[{"reIm2", ",", "imIm2"}], "}"}]}], "}"}], "/.", RowBox[{"Solve", "[", RowBox[{ RowBox[{"#", "\[Equal]", "template"}], ",", RowBox[{"{", RowBox[{"reRe2", ",", "imRe2", ",", "reIm2", ",", "imIm2"}], "}"}]}], "]"}]}], "]"}], "&"}], ",", "varianten"}], "]"}]}]}], "Input", CellChangeTimes->{{3.778400473028194*^9, 3.7784008138093843`*^9}, { 3.778400847731482*^9, 3.7784013091743727`*^9}, {3.778401478185622*^9, 3.778401662882863*^9}, {3.778403584894413*^9, 3.7784036762440434`*^9}, { 3.778403737638426*^9, 3.7784037815210238`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "imIm"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"imRe", "+", "reIm"}], ")"}]}], "+", "reRe"}], RowBox[{"imIm", "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "imRe"}], "+", "reIm"}], ")"}]}], "+", "reRe"}]}, { RowBox[{"imIm", "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"imRe", "-", "reIm"}], ")"}]}], "+", "reRe"}], RowBox[{ RowBox[{"-", "imIm"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "imRe"}], "-", "reIm"}], ")"}]}], "+", "reRe"}]} }, 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.7784005505658703`*^9, {3.778400591028565*^9, 3.778400696060267*^9}, { 3.778400736212864*^9, 3.778400770220477*^9}, {3.778400802208289*^9, 3.778400814565336*^9}, {3.778400849502172*^9, 3.778400961317752*^9}, 3.7784010158024817`*^9, {3.7784010477210608`*^9, 3.778401071767956*^9}, { 3.778401106298464*^9, 3.7784011203518*^9}, {3.778401189479212*^9, 3.7784012118479357`*^9}, 3.7784013126881332`*^9, 3.7784015161222267`*^9, { 3.778401549678337*^9, 3.778401663465569*^9}, 3.7784036062693777`*^9, { 3.7784036366412487`*^9, 3.778403677129951*^9}, {3.778403766136218*^9, 3.778403782207926*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"(", "\[NoBreak]", GridBox[{ {"reRe", "imRe"}, {"reIm", "imIm"} }, 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]", ")"}]}, { RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SuperscriptBox["imIm", "2"], "-", SuperscriptBox["imRe", "2"], "-", SuperscriptBox["reIm", "2"], "+", SuperscriptBox["reRe", "2"]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "imIm", " ", "reIm"}], "+", RowBox[{"2", " ", "imRe", " ", "reRe"}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "imIm", " ", "imRe"}], "+", RowBox[{"2", " ", "reIm", " ", "reRe"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"imRe", " ", "reIm"}], "+", RowBox[{"imIm", " ", "reRe"}]}], ")"}]}]} }, 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]", ")"}]}, { RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", SuperscriptBox["imIm", "2"]}], "+", SuperscriptBox["imRe", "2"], "-", SuperscriptBox["reIm", "2"], "+", SuperscriptBox["reRe", "2"]}], "0"}, { RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"imIm", " ", "imRe"}], "+", RowBox[{"reIm", " ", "reRe"}]}], ")"}]}], "0"} }, 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]", ")"}]}, { RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", SuperscriptBox["imIm", "2"]}], "-", SuperscriptBox["imRe", "2"], "+", SuperscriptBox["reIm", "2"], "+", SuperscriptBox["reRe", "2"]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"imIm", " ", "reIm"}], "+", RowBox[{"imRe", " ", "reRe"}]}], ")"}]}]}, {"0", "0"} }, 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]", ")"}]}, { RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SuperscriptBox["imIm", "2"], "+", SuperscriptBox["imRe", "2"], "+", SuperscriptBox["reIm", "2"], "+", SuperscriptBox["reRe", "2"]}], "0"}, {"0", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "imRe", " ", "reIm"}], "+", RowBox[{"2", " ", "imIm", " ", "reRe"}]}]} }, 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]", ")"}]} }, 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.7784005505658703`*^9, {3.778400591028565*^9, 3.778400696060267*^9}, { 3.778400736212864*^9, 3.778400770220477*^9}, {3.778400802208289*^9, 3.778400814565336*^9}, {3.778400849502172*^9, 3.778400961317752*^9}, 3.7784010158024817`*^9, {3.7784010477210608`*^9, 3.778401071767956*^9}, { 3.778401106298464*^9, 3.7784011203518*^9}, {3.778401189479212*^9, 3.7784012118479357`*^9}, 3.7784013126881332`*^9, 3.7784015161222267`*^9, { 3.778401549678337*^9, 3.778401663465569*^9}, 3.7784036062693777`*^9, { 3.7784036366412487`*^9, 3.778403677129951*^9}, {3.778403766136218*^9, 3.778403782209757*^9}}] }, Open ]] }, WindowSize->{1087, 919}, WindowMargins->{{149, Automatic}, {Automatic, 29}}, FrontEndVersion->"8.0 for Linux x86 (64-bit) (November 7, 2010)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 4138, 119, 259, "Input"], Cell[4720, 143, 1914, 47, 57, "Output"], Cell[6637, 192, 5901, 154, 193, "Output"] }, Open ]] } ] *) (* End of internal cache information *)