typenunit.pas: tLambdaZuOmegaTransformation repariert

1 files changed, 186 insertions, 0 deletions

diff --git a/lambdaZuOmega.nb b/lambdaZuOmega.nb
new file mode 100644
index 0000000..710983c
--- /dev/null
+++ b/lambdaZuOmega.nb
@@ -0,0 +1,186 @@
+(* 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[      6223,        187]
+NotebookOptionsPosition[      5835,        169]
+NotebookOutlinePosition[      6171,        184]
+CellTagsIndexPosition[      6128,        181]
+WindowFrame->Normal*)
+(* Beginning of Notebook Content *)
+Notebook[{
+Cell[CellGroupData[{
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"Clear", "[",
+   RowBox[{"Evaluate", "[",
+    RowBox[{
+     RowBox[{"Context", "[", "]"}], "<>", "\"\<*\>\""}], "]"}], "]"}],
+  ";"}], "\[IndentingNewLine]",
+ RowBox[{
+  RowBox[{
+   RowBox[{"k", "[", "x_", "]"}], ":=",
+   RowBox[{"faktor", "/", "x"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{"eqns", "=",
+  RowBox[{"{", "\[IndentingNewLine]",
+   RowBox[{
+    RowBox[{"xI", "\[Equal]",
+     RowBox[{
+      RowBox[{"(",
+       RowBox[{"xSteps", "-", "1"}], ")"}],
+      RowBox[{
+       RowBox[{"(",
+        RowBox[{"x", "-", "xStart"}], ")"}], "/",
+       RowBox[{"(",
+        RowBox[{"xStop", "-", "xStart"}], ")"}]}]}]}], ",",
+    "\[IndentingNewLine]",
+    RowBox[{"verh", "\[Equal]",
+     RowBox[{"xStart", "/",
+      RowBox[{"(",
+       RowBox[{"xStop", "-", "xStart"}], ")"}]}]}]}], "\[IndentingNewLine]",
+   "}"}]}], "\[IndentingNewLine]",
+ RowBox[{
+  RowBox[{"xStart", "=",
+   RowBox[{"xStart", "/.",
+    RowBox[{"First", "@",
+     RowBox[{"Solve", "[",
+      RowBox[{
+       RowBox[{"eqns", "[",
+        RowBox[{"[", "2", "]"}], "]"}], ",", "xStart"}], "]"}]}]}]}],
+  ";"}], "\[IndentingNewLine]",
+ RowBox[{
+  RowBox[{"kI", "=",
+   RowBox[{
+    RowBox[{"(",
+     RowBox[{"xSteps", "-", "1"}], ")"}],
+    RowBox[{
+     RowBox[{"(",
+      RowBox[{
+       RowBox[{"k", "[", "x", "]"}], "-",
+       RowBox[{"k", "[", "xStop", "]"}]}], ")"}], "/",
+     RowBox[{"(",
+      RowBox[{
+       RowBox[{"k", "[", "xStart", "]"}], "-",
+       RowBox[{"k", "[", "xStop", "]"}]}], ")"}]}]}]}],
+  ";"}], "\[IndentingNewLine]",
+ RowBox[{
+  RowBox[{"kI", "/.",
+   RowBox[{"First", "@",
+    RowBox[{"Solve", "[",
+     RowBox[{
+      RowBox[{"eqns", "[",
+       RowBox[{"[", "1", "]"}], "]"}], ",", "x"}], "]"}]}]}], "//",
+  "FullSimplify"}], "\[IndentingNewLine]",
+ RowBox[{
+  RowBox[{"xI", "/.",
+   RowBox[{"First", "@",
+    RowBox[{"Solve", "[",
+     RowBox[{
+      RowBox[{"kIi", "\[Equal]", "%"}], ",", "xI"}], "]"}]}]}], "//",
+  "FullSimplify"}]}], "Input",
+ CellChangeTimes->{{3.716270700588258*^9, 3.716270869574233*^9}, {
+  3.716270906743692*^9, 3.716271141965414*^9}, {3.716271177922686*^9,
+  3.716271312791499*^9}, {3.716271396656218*^9, 3.7162713968918953`*^9}, {
+  3.716271559818191*^9, 3.716271597895515*^9}, {3.716271635687215*^9,
+  3.7162717100276823`*^9}, {3.716271742702814*^9, 3.7162717450250397`*^9}}],
+Cell[BoxData[
+ RowBox[{"{",
+  RowBox[{
+   RowBox[{"xI", "\[Equal]",
+    FractionBox[
+     RowBox[{
+      RowBox[{"(",
+       RowBox[{"x", "-", "xStart"}], ")"}], " ",
+      RowBox[{"(",
+       RowBox[{
+        RowBox[{"-", "1"}], "+", "xSteps"}], ")"}]}],
+     RowBox[{
+      RowBox[{"-", "xStart"}], "+", "xStop"}]]}], ",",
+   RowBox[{"verh", "\[Equal]",
+    FractionBox["xStart",
+     RowBox[{
+      RowBox[{"-", "xStart"}], "+", "xStop"}]]}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.716270736731851*^9, 3.7162707662029676`*^9}, {
+   3.7162708383985023`*^9, 3.716270870214566*^9}, {3.716270915557753*^9,
+   3.716271028401211*^9}, 3.7162710700054827`*^9, {3.71627110254945*^9,
+   3.716271142505834*^9}, {3.716271192638852*^9, 3.716271227495256*^9}, {
+   3.716271270749222*^9, 3.716271282301167*^9}, 3.716271315258836*^9,
+   3.7162713973763647`*^9, {3.716271592848399*^9, 3.716271598329258*^9},
+   3.716271638371859*^9, {3.716271669075458*^9, 3.7162717105542107`*^9},
+   3.716271745502193*^9}],
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"verh", " ",
+   RowBox[{"(",
+    RowBox[{
+     RowBox[{"-", "1"}], "+", "xSteps"}], ")"}], " ",
+   RowBox[{"(",
+    RowBox[{
+     RowBox[{"-", "1"}], "-", "xI", "+", "xSteps"}], ")"}]}],
+  RowBox[{"xI", "+",
+   RowBox[{"verh", " ",
+    RowBox[{"(",
+     RowBox[{
+      RowBox[{"-", "1"}], "+", "xSteps"}], ")"}]}]}]]], "Output",
+ CellChangeTimes->{{3.716270736731851*^9, 3.7162707662029676`*^9}, {
+   3.7162708383985023`*^9, 3.716270870214566*^9}, {3.716270915557753*^9,
+   3.716271028401211*^9}, 3.7162710700054827`*^9, {3.71627110254945*^9,
+   3.716271142505834*^9}, {3.716271192638852*^9, 3.716271227495256*^9}, {
+   3.716271270749222*^9, 3.716271282301167*^9}, 3.716271315258836*^9,
+   3.7162713973763647`*^9, {3.716271592848399*^9, 3.716271598329258*^9},
+   3.716271638371859*^9, {3.716271669075458*^9, 3.7162717105542107`*^9},
+   3.716271745503914*^9}],
+Cell[BoxData[
+ RowBox[{"-",
+  FractionBox[
+   RowBox[{"verh", " ",
+    RowBox[{"(",
+     RowBox[{"1", "+", "kIi", "-", "xSteps"}], ")"}], " ",
+    RowBox[{"(",
+     RowBox[{
+      RowBox[{"-", "1"}], "+", "xSteps"}], ")"}]}],
+   RowBox[{"kIi", "+",
+    RowBox[{"verh", " ",
+     RowBox[{"(",
+      RowBox[{
+       RowBox[{"-", "1"}], "+", "xSteps"}], ")"}]}]}]]}]], "Output",
+ CellChangeTimes->{{3.716270736731851*^9, 3.7162707662029676`*^9}, {
+   3.7162708383985023`*^9, 3.716270870214566*^9}, {3.716270915557753*^9,
+   3.716271028401211*^9}, 3.7162710700054827`*^9, {3.71627110254945*^9,
+   3.716271142505834*^9}, {3.716271192638852*^9, 3.716271227495256*^9}, {
+   3.716271270749222*^9, 3.716271282301167*^9}, 3.716271315258836*^9,
+   3.7162713973763647`*^9, {3.716271592848399*^9, 3.716271598329258*^9},
+   3.716271638371859*^9, {3.716271669075458*^9, 3.7162717105542107`*^9},
+   3.716271745523513*^9}]
+}, Open  ]]
+},
+WindowSize->{740, 867},
+WindowMargins->{{45, Automatic}, {Automatic, 36}},
+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, 2394, 72, 202, "Input"],
+Cell[2976, 96, 1009, 24, 49, "Output"],
+Cell[3988, 122, 909, 21, 49, "Output"],
+Cell[4900, 145, 919, 21, 50, "Output"]
+}, Open  ]]
+}
+]
+*)
+(* End of internal cache information *)