epostunit.pas: ermittleAnstieg aufgeräumt

1 files changed, 52 insertions, 72 deletions

diff --git a/lineareRegression.nb b/lineareRegression.nb
index 0e47478..fe26b89 100644
--- a/lineareRegression.nb
+++ b/lineareRegression.nb
@@ -10,10 +10,10 @@
 NotebookFileLineBreakTest
 NotebookFileLineBreakTest
 NotebookDataPosition[       158,          7]
-NotebookDataLength[     27902,        799]
-NotebookOptionsPosition[     27499,        781]
-NotebookOutlinePosition[     27839,        796]
-CellTagsIndexPosition[     27796,        793]
+NotebookDataLength[     26412,        779]
+NotebookOptionsPosition[     26009,        761]
+NotebookOutlinePosition[     26349,        776]
+CellTagsIndexPosition[     26306,        773]
 WindowFrame->Normal*)
 
 (* Beginning of Notebook Content *)
@@ -141,21 +141,20 @@ Cell[BoxData[{
  RowBox[{
   RowBox[{
    RowBox[{"a", "[", 
-    RowBox[{"x_", ",", "y_", ",", "k_", ",", "\[CapitalDelta]_", ",", "n_"}], 
-    "]"}], ":=", 
+    RowBox[{"x_", ",", "y_", ",", "k_", ",", "n_"}], "]"}], ":=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"n", " ", 
        RowBox[{"xySum", "[", "n", "]"}]}], "+", 
-      RowBox[{"n", " ", "\[CapitalDelta]", " ", 
+      RowBox[{"n", "  ", 
        RowBox[{"xkSum", "[", "n", "]"}]}], "-", 
       RowBox[{
        RowBox[{"xSum", "[", "n", "]"}], 
        RowBox[{"ySum", "[", "n", "]"}]}], "-", 
       RowBox[{
        RowBox[{"xSum", "[", "n", "]"}], 
-       RowBox[{"kSum", "[", "n", "]"}], "\[CapitalDelta]"}]}], ")"}], "/", 
+       RowBox[{"kSum", "[", "n", "]"}]}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"n", " ", 
@@ -166,16 +165,13 @@ Cell[BoxData[{
  RowBox[{
   RowBox[{
    RowBox[{"diffSummand", "[", 
-    RowBox[{
-    "x_", ",", "y_", ",", "k_", ",", "\[CapitalDelta]_", ",", "i_", ",", 
-     "n_"}], "]"}], ":=", 
+    RowBox[{"x_", ",", "y_", ",", "k_", ",", "i_", ",", "n_"}], "]"}], ":=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"a", "[", 
-        RowBox[{"x", ",", "y", ",", "k", ",", "\[CapitalDelta]", ",", "n"}], 
-        "]"}], " ", 
+        RowBox[{"x", ",", "y", ",", "k", ",", "n"}], "]"}], " ", 
        RowBox[{"x", "[", "i", "]"}]}], "-", 
       RowBox[{"y", "[", "i", "]"}], "-", 
       RowBox[{
@@ -184,24 +180,21 @@ Cell[BoxData[{
  RowBox[{
   RowBox[{
    RowBox[{"diff", "[", 
-    RowBox[{"x_", ",", "y_", ",", "k_", ",", "\[CapitalDelta]_", ",", "n_"}], 
-    "]"}], ":=", 
+    RowBox[{"x_", ",", "y_", ",", "k_", ",", "n_"}], "]"}], ":=", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", "i", "}"}], ",", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{"diffSummand", "[", 
-        RowBox[{
-        "x", ",", "y", ",", "k", ",", "\[CapitalDelta]", ",", "i", ",", "n"}],
-         "]"}], ",", 
+        RowBox[{"x", ",", "y", ",", "k", ",", "i", ",", "n"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}]}], 
   ";"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"a", "[", 
-   RowBox[{"x", ",", "y", ",", "k", ",", "\[CapitalDelta]", ",", "n"}], "]"}],
-   "\[IndentingNewLine]", 
+   RowBox[{"x", ",", "y", ",", "k", ",", "n"}], "]"}], "\[IndentingNewLine]", 
+  
   RowBox[{"(*", 
    RowBox[{"Collect", "[", 
     RowBox[{
@@ -213,9 +206,7 @@ Cell[BoxData[{
      RowBox[{"k", "[", "i", "]"}]}], "]"}], "*)"}]}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"zwei", "=", 
-   RowBox[{
-    RowBox[{"\[CapitalDelta]", "^", "2"}], 
-    RowBox[{"kkSum", "[", "n", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
+   RowBox[{"kkSum", "[", "n", "]"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"eins", "=", 
    RowBox[{
@@ -226,15 +217,13 @@ Cell[BoxData[{
        RowBox[{
         RowBox[{
          RowBox[{"-", "n"}], " ", 
-         RowBox[{"\[CapitalDelta]", "^", "2"}], 
          RowBox[{"xkSum", "[", "n", "]"}]}], "+", 
         RowBox[{
-         RowBox[{"\[CapitalDelta]", "^", "2"}], 
          RowBox[{"kSum", "[", "n", "]"}], 
          RowBox[{"xSum", "[", "n", "]"}]}], "-", 
-        RowBox[{"n", " ", "\[CapitalDelta]", " ", 
+        RowBox[{"n", " ", 
          RowBox[{"xySum", "[", "n", "]"}]}], "+", 
-        RowBox[{"\[CapitalDelta]", " ", 
+        RowBox[{
          RowBox[{"xSum", "[", "n", "]"}], 
          RowBox[{"ySum", "[", "n", "]"}]}]}], ")"}], "/", 
       RowBox[{"(", 
@@ -243,7 +232,7 @@ Cell[BoxData[{
          RowBox[{"xxSum", "[", "n", "]"}]}], "-", 
         RowBox[{
          RowBox[{"xSum", "[", "n", "]"}], "^", "2"}]}], ")"}]}]}], "+", 
-    RowBox[{"2", "\[CapitalDelta]", " ", 
+    RowBox[{"2", 
      RowBox[{"ykSum", "[", "n", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"null", "=", 
@@ -253,29 +242,26 @@ Cell[BoxData[{
       RowBox[{
        RowBox[{
         RowBox[{"n", "^", "2"}], 
-        RowBox[{"\[CapitalDelta]", "^", "2"}], 
         RowBox[{"xxSum", "[", "n", "]"}], 
         RowBox[{
          RowBox[{"xkSum", "[", "n", "]"}], "^", "2"}]}], "-", 
        RowBox[{"2", "n", " ", 
-        RowBox[{"\[CapitalDelta]", "^", "2"}], 
         RowBox[{"kSum", "[", "n", "]"}], 
         RowBox[{"xxSum", "[", "n", "]"}], 
         RowBox[{"xkSum", "[", "n", "]"}], 
         RowBox[{"xSum", "[", "n", "]"}]}], "+", 
        RowBox[{
-        RowBox[{"\[CapitalDelta]", "^", "2"}], 
         RowBox[{
          RowBox[{"kSum", "[", "n", "]"}], "^", "2"}], 
         RowBox[{"xxSum", "[", "n", "]"}], 
         RowBox[{
          RowBox[{"xSum", "[", "n", "]"}], "^", "2"}]}], "+", 
        RowBox[{"2", 
-        RowBox[{"n", "^", "2"}], "\[CapitalDelta]", " ", 
+        RowBox[{"n", "^", "2"}], 
         RowBox[{"xxSum", "[", "n", "]"}], 
         RowBox[{"xkSum", "[", "n", "]"}], 
         RowBox[{"xySum", "[", "n", "]"}]}], "-", 
-       RowBox[{"2", "n", " ", "\[CapitalDelta]", " ", 
+       RowBox[{"2", "n", " ", 
         RowBox[{"kSum", "[", "n", "]"}], 
         RowBox[{"xxSum", "[", "n", "]"}], 
         RowBox[{"xSum", "[", "n", "]"}], 
@@ -285,12 +271,12 @@ Cell[BoxData[{
         RowBox[{"xxSum", "[", "n", "]"}], 
         RowBox[{
          RowBox[{"xySum", "[", "n", "]"}], "^", "2"}]}], "-", 
-       RowBox[{"2", "n", " ", "\[CapitalDelta]", " ", 
+       RowBox[{"2", "n", " ", 
         RowBox[{"xxSum", "[", "n", "]"}], 
         RowBox[{"xkSum", "[", "n", "]"}], 
         RowBox[{"xSum", "[", "n", "]"}], 
         RowBox[{"ySum", "[", "n", "]"}]}], "+", 
-       RowBox[{"2", "\[CapitalDelta]", " ", 
+       RowBox[{"2", 
         RowBox[{"kSum", "[", "n", "]"}], " ", 
         RowBox[{"xxSum", "[", "n", "]"}], 
         RowBox[{
@@ -319,10 +305,10 @@ Cell[BoxData[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
-        RowBox[{"-", "2"}], "n", " ", "\[CapitalDelta]", " ", 
+        RowBox[{"-", "2"}], "n", " ", 
         RowBox[{"xySum", "[", "n", "]"}], 
         RowBox[{"xkSum", "[", "n", "]"}]}], "+", 
-       RowBox[{"2", "\[CapitalDelta]", " ", 
+       RowBox[{"2", 
         RowBox[{"kSum", "[", "n", "]"}], 
         RowBox[{"xySum", "[", "n", "]"}], 
         RowBox[{"xSum", "[", "n", "]"}]}], "-", 
@@ -402,14 +388,15 @@ Cell[BoxData[{
    3.722144490172399*^9}, {3.722156703156259*^9, 3.7221567172890882`*^9}, {
    3.7221567760982447`*^9, 3.722156813228517*^9}, {3.722156945290156*^9, 
    3.7221569687679987`*^9}, {3.722157088717531*^9, 3.722157089953614*^9}, {
-   3.7221571364981127`*^9, 3.722157139619966*^9}}],
+   3.7221571364981127`*^9, 3.722157139619966*^9}, {3.722160678886792*^9, 
+   3.722160736560275*^9}}],
 
 Cell[BoxData[
  FractionBox[
   RowBox[{
-   RowBox[{"n", " ", "\[CapitalDelta]", " ", 
+   RowBox[{"n", " ", 
     RowBox[{"xkSum", "[", "n", "]"}]}], "-", 
-   RowBox[{"\[CapitalDelta]", " ", 
+   RowBox[{
     RowBox[{"kSum", "[", "n", "]"}], " ", 
     RowBox[{"xSum", "[", "n", "]"}]}], "+", 
    RowBox[{"n", " ", 
@@ -433,16 +420,14 @@ Cell[BoxData[
    3.722144333501185*^9}, 3.722144365896276*^9, {3.7221444714330463`*^9, 
    3.72214449082406*^9}, 3.722156540743121*^9, 3.722156718027315*^9, {
    3.7221567821830683`*^9, 3.722156813639886*^9}, {3.7221569549220133`*^9, 
-   3.7221569691948643`*^9}, 3.7221570904503803`*^9, 3.722157140103266*^9}],
+   3.7221569691948643`*^9}, 3.7221570904503803`*^9, 3.722157140103266*^9, 
+   3.722160739079501*^9}],
 
 Cell[BoxData[
  RowBox[{
-  RowBox[{
-   SuperscriptBox["\[CapitalDelta]", "2"], " ", 
-   RowBox[{"kkSum", "[", "n", "]"}]}], "+", 
+  RowBox[{"kkSum", "[", "n", "]"}], "+", 
   FractionBox[
    RowBox[{
-    SuperscriptBox["\[CapitalDelta]", "2"], " ", 
     SuperscriptBox[
      RowBox[{"kSum", "[", "n", "]"}], "2"], " ", 
     SuperscriptBox[
@@ -457,7 +442,6 @@ Cell[BoxData[
        RowBox[{"xxSum", "[", "n", "]"}]}]}], ")"}], "2"]], "+", 
   FractionBox[
    RowBox[{"n", " ", 
-    SuperscriptBox["\[CapitalDelta]", "2"], " ", 
     SuperscriptBox[
      RowBox[{"xkSum", "[", "n", "]"}], "2"], " ", 
     RowBox[{"(", 
@@ -478,15 +462,15 @@ Cell[BoxData[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
-      RowBox[{"2", " ", "\[CapitalDelta]", " ", 
+      RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"xSum", "[", "n", "]"}], "4"]}], "-", 
-      RowBox[{"4", " ", "n", " ", "\[CapitalDelta]", " ", 
+      RowBox[{"4", " ", "n", " ", 
        SuperscriptBox[
         RowBox[{"xSum", "[", "n", "]"}], "2"], " ", 
        RowBox[{"xxSum", "[", "n", "]"}]}], "+", 
       RowBox[{"2", " ", 
-       SuperscriptBox["n", "2"], " ", "\[CapitalDelta]", " ", 
+       SuperscriptBox["n", "2"], " ", 
        SuperscriptBox[
         RowBox[{"xxSum", "[", "n", "]"}], "2"]}]}], ")"}], " ", 
     RowBox[{"ykSum", "[", "n", "]"}]}], 
@@ -503,7 +487,7 @@ Cell[BoxData[
     RowBox[{"(", 
      RowBox[{
       RowBox[{
-       RowBox[{"-", "2"}], " ", "n", " ", "\[CapitalDelta]", " ", 
+       RowBox[{"-", "2"}], " ", "n", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
@@ -513,7 +497,7 @@ Cell[BoxData[
          RowBox[{"n", " ", 
           RowBox[{"xxSum", "[", "n", "]"}]}]}], ")"}], " ", 
        RowBox[{"xySum", "[", "n", "]"}]}], "-", 
-      RowBox[{"2", " ", "\[CapitalDelta]", " ", 
+      RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"xSum", "[", "n", "]"}], "3"], " ", 
        RowBox[{"ySum", "[", "n", "]"}]}]}], ")"}]}], 
@@ -531,7 +515,6 @@ Cell[BoxData[
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", 
-        SuperscriptBox["\[CapitalDelta]", "2"], " ", 
         RowBox[{"xkSum", "[", "n", "]"}], " ", 
         SuperscriptBox[
          RowBox[{"xSum", "[", "n", "]"}], "3"]}], 
@@ -545,11 +528,11 @@ Cell[BoxData[
      FractionBox[
       RowBox[{
        RowBox[{
-        RowBox[{"-", "2"}], " ", "\[CapitalDelta]", " ", 
+        RowBox[{"-", "2"}], " ", 
         SuperscriptBox[
          RowBox[{"xSum", "[", "n", "]"}], "3"], " ", 
         RowBox[{"xySum", "[", "n", "]"}]}], "+", 
-       RowBox[{"2", " ", "\[CapitalDelta]", " ", 
+       RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"xSum", "[", "n", "]"}], "2"], " ", 
         RowBox[{"xxSum", "[", "n", "]"}], " ", 
@@ -611,12 +594,12 @@ Cell[BoxData[
    3.722144333501185*^9}, 3.722144365896276*^9, {3.7221444714330463`*^9, 
    3.72214449082406*^9}, 3.722156540743121*^9, 3.722156718027315*^9, {
    3.7221567821830683`*^9, 3.722156813639886*^9}, {3.7221569549220133`*^9, 
-   3.7221569691948643`*^9}, 3.7221570904503803`*^9, 3.722157140108007*^9}],
+   3.7221569691948643`*^9}, 3.7221570904503803`*^9, 3.722157140103266*^9, 
+   3.722160739424432*^9}],
 
 Cell[BoxData[
  RowBox[{
   RowBox[{"2", " ", 
-   SuperscriptBox["\[CapitalDelta]", "2"], " ", 
    RowBox[{"k", "[", "j", "]"}]}], "+", 
   RowBox[{
    RowBox[{"kSum", "[", "n", "]"}], " ", 
@@ -625,7 +608,6 @@ Cell[BoxData[
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", 
-        SuperscriptBox["\[CapitalDelta]", "2"], " ", 
         RowBox[{"x", "[", "j", "]"}], " ", 
         SuperscriptBox[
          RowBox[{"xSum", "[", "n", "]"}], "3"]}], 
@@ -638,7 +620,6 @@ Cell[BoxData[
            RowBox[{"xxSum", "[", "n", "]"}]}]}], ")"}], "2"]]}], "+", 
      FractionBox[
       RowBox[{"2", " ", 
-       SuperscriptBox["\[CapitalDelta]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"xSum", "[", "n", "]"}], "2"], " ", 
        RowBox[{"xxSum", "[", "n", "]"}]}], 
@@ -657,7 +638,6 @@ Cell[BoxData[
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", 
-        SuperscriptBox["\[CapitalDelta]", "2"], " ", 
         SuperscriptBox[
          RowBox[{"xSum", "[", "n", "]"}], "3"]}], 
        SuperscriptBox[
@@ -669,7 +649,6 @@ Cell[BoxData[
            RowBox[{"xxSum", "[", "n", "]"}]}]}], ")"}], "2"]]}], "+", 
      FractionBox[
       RowBox[{"2", " ", "n", " ", 
-       SuperscriptBox["\[CapitalDelta]", "2"], " ", 
        RowBox[{"x", "[", "j", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
@@ -687,7 +666,7 @@ Cell[BoxData[
           RowBox[{"xxSum", "[", "n", "]"}]}]}], ")"}], "2"]]}], ")"}]}], "-", 
   
   FractionBox[
-   RowBox[{"2", " ", "\[CapitalDelta]", " ", 
+   RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"xSum", "[", "n", "]"}], "3"], " ", 
     RowBox[{"xySum", "[", "n", "]"}]}], 
@@ -699,7 +678,7 @@ Cell[BoxData[
       RowBox[{"n", " ", 
        RowBox[{"xxSum", "[", "n", "]"}]}]}], ")"}], "2"]], "-", 
   FractionBox[
-   RowBox[{"2", " ", "n", " ", "\[CapitalDelta]", " ", 
+   RowBox[{"2", " ", "n", " ", 
     RowBox[{"x", "[", "j", "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
@@ -721,15 +700,15 @@ Cell[BoxData[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
-      RowBox[{"2", " ", "\[CapitalDelta]", " ", 
+      RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"xSum", "[", "n", "]"}], "4"]}], "-", 
-      RowBox[{"4", " ", "n", " ", "\[CapitalDelta]", " ", 
+      RowBox[{"4", " ", "n", " ", 
        SuperscriptBox[
         RowBox[{"xSum", "[", "n", "]"}], "2"], " ", 
        RowBox[{"xxSum", "[", "n", "]"}]}], "+", 
       RowBox[{"2", " ", 
-       SuperscriptBox["n", "2"], " ", "\[CapitalDelta]", " ", 
+       SuperscriptBox["n", "2"], " ", 
        SuperscriptBox[
         RowBox[{"xxSum", "[", "n", "]"}], "2"]}]}], ")"}], " ", 
     RowBox[{"y", "[", "j", "]"}]}], 
@@ -741,7 +720,7 @@ Cell[BoxData[
       RowBox[{"n", " ", 
        RowBox[{"xxSum", "[", "n", "]"}]}]}], ")"}], "2"]], "-", 
   FractionBox[
-   RowBox[{"2", " ", "\[CapitalDelta]", " ", 
+   RowBox[{"2", " ", 
     RowBox[{"x", "[", "j", "]"}], " ", 
     SuperscriptBox[
      RowBox[{"xSum", "[", "n", "]"}], "3"], " ", 
@@ -754,7 +733,7 @@ Cell[BoxData[
       RowBox[{"n", " ", 
        RowBox[{"xxSum", "[", "n", "]"}]}]}], ")"}], "2"]], "+", 
   FractionBox[
-   RowBox[{"2", " ", "\[CapitalDelta]", " ", 
+   RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"xSum", "[", "n", "]"}], "2"], " ", 
     RowBox[{"xxSum", "[", "n", "]"}], " ", 
@@ -776,7 +755,8 @@ Cell[BoxData[
    3.722144333501185*^9}, 3.722144365896276*^9, {3.7221444714330463`*^9, 
    3.72214449082406*^9}, 3.722156540743121*^9, 3.722156718027315*^9, {
    3.7221567821830683`*^9, 3.722156813639886*^9}, {3.7221569549220133`*^9, 
-   3.7221569691948643`*^9}, 3.7221570904503803`*^9, 3.722157140113709*^9}]
+   3.7221569691948643`*^9}, 3.7221570904503803`*^9, 3.722157140103266*^9, 
+   3.722160739430976*^9}]
 }, Open  ]]
 },
 WindowSize->{1404, 906},
@@ -796,10 +776,10 @@ CellTagsIndex->{}
 (*NotebookFileOutline
 Notebook[{
 Cell[CellGroupData[{
-Cell[580, 22, 13616, 382, 561, "Input"],
-Cell[14199, 406, 1352, 29, 51, "Output"],
-Cell[15554, 437, 6191, 176, 190, "Output"],
-Cell[21748, 615, 5735, 163, 143, "Output"]
+Cell[580, 22, 12912, 369, 561, "Input"],
+Cell[13495, 393, 1330, 30, 51, "Output"],
+Cell[14828, 425, 5832, 172, 190, "Output"],
+Cell[20663, 599, 5330, 159, 176, "Output"]
 }, Open  ]]
 }
 ]