(* 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 *)