fft2dQUadrieren.nb: Spickzettel für Autokorrelations-Quadradrierung

1 files changed, 376 insertions, 0 deletions

diff --git a/fft2dQUadrieren.nb b/fft2dQUadrieren.nb
new file mode 100644
index 0000000..8ed859d
--- /dev/null
+++ b/fft2dQUadrieren.nb
@@ -0,0 +1,376 @@
+(* 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 *)
+