(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     27815,        612]
NotebookOptionsPosition[     26749,        572]
NotebookOutlinePosition[     27096,        587]
CellTagsIndexPosition[     27053,        584]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"funktion", "[", "xx_", "]"}], "=", 
   RowBox[{
    FractionBox["1", "34910"], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", 
         RowBox[{"1.5`", "\[InvisibleSpace]", "+", "xx"}]]}], 
       "2.8349437414036674`*^10", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "0.004148077678858979`"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "50.57529648591651`"}], "+", 
            RowBox[{"Log", "[", 
             RowBox[{"1.5`", "\[InvisibleSpace]", "+", "xx"}], "]"}]}], ")"}],
           "2"]}]]}], "+", 
      FractionBox[
       RowBox[{"2.315208348695286`*^9", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "0.005592198303083145`"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "38.070307407147716`"}], "+", 
             RowBox[{"Log", "[", 
              RowBox[{"1.5`", "\[InvisibleSpace]", "+", "xx"}], "]"}]}], 
            ")"}], "2"]}]]}], 
       RowBox[{"1.5`", "\[InvisibleSpace]", "+", "xx"}]], "-", 
      FractionBox[
       RowBox[{"12680.796552026475`", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "0.19940635752579733`"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "20.263567004421017`"}], "+", 
             RowBox[{"Log", "[", 
              RowBox[{"1.5`", "\[InvisibleSpace]", "+", "xx"}], "]"}]}], 
            ")"}], "2"]}]]}], 
       RowBox[{"1.5`", "\[InvisibleSpace]", "+", "xx"}]]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.4731456017639275`*^9, 3.473145628198084*^9}, {
  3.4731469463833914`*^9, 3.4731469487184267`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"funktion", "[", "xx", "]"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"xx", ",", "0", ",", "100"}], "}"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4731452482909145`*^9, 3.4731452692999873`*^9}, {
   3.473145394828249*^9, 3.4731453984920554`*^9}, {3.473145463856809*^9, 
   3.473145472579443*^9}, 3.473145599583894*^9, {3.4731456382857385`*^9, 
   3.473145640860778*^9}, 3.4731469569685535`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVU3k01fsXvclYvGTWIFNFKWMekvMxJRkyu0iKeyMzEZnCQ4ZriDLUzTzd
+y2zJPElU1EpeXlRichUXLMIP78/zjprr7XX3nuts4+Yo5cZmYlAIFRuz/+3
ePJGQbZIi8Y06c6Tr7P5UMcufcjDJQemTDZenLtdAC2BZYVSLuUQ9Atla/MX
Qpry6EWupDp4caIi1Pd+IXTI+TizuuAgdzNDx02wCEL4t55u5baCqUTp2zpK
EaSn6mr8SeyEozEG/P1rRfCS0ntuybkHPEInzG1ai4ERxTkeSH8PjXa4P0Wk
BEJby6VXcj9ArsRjeSW/EtjFZO7un/Ev2HMdsituK4F0tFy2kNgPJ6ulMxS4
S0HiVtacT9QncECW38WtS6GiUV2JETQIHpoH9zzPKoVXav/U/3QegpXmf0dH
eWiAqfOGnSr/Bi/0LWfH9WkwN0jK8aMPw8vjn3SDQ2mgEvykubpoBORfKYf2
PKZB2D72kfnc7zDWRWfhGaRBW73NTgXqKKi4iLt4sNBhlw0m6ZMxBgRDkTCO
E3TIyDB2nk0ch2x1y+l0Pzp8Vc6NPRk3Ac8ZGhqv79JB8uMczSNqEtpivyR2
VdHB1V+7+9GtKVCqSJove0uHCr57P6eDpkHhac6buxN0WK7+wXX8xk8oQ/fH
7xEwOGOuIuvq8wtYMqQpXQIYdN0Z9JlwngW2sIhuKQ0MYjPTX6XJM8DBqtI1
5AIGMi5gq1jOAEN3Yqe1AwY9f09M9crMQdBEg9AbDwx82e4E+9LnYHdNTeav
IAz4+1U5eaTmIV6wNu1VDAZPi0eolUXzkFNVEOB9BwO7GwknTCUWAK8pHGbc
x2BTV6mJkbsA61rjdGIBBnn8X4xTRBahwzhhsYaOgc5Y9JAsdREMwqoVeCox
mKg56d0jvASTx3uVQ55gkBDVT/DKWAJQ0FLdfIbBSYvwO3/xL8N3qupIfhMG
vRLS4mWpyyDyTczMrwUD/4X3VUbcK+Du5ygd0oqBUGuQ9q/EFUgnlCa3tmHQ
kCrRR9m9Ck6blWrm7RhccnxNkolbBXbfcj/FbbxDwX+pm/U3GE4qirtv8wt3
iMS4Rf2GWdfuTuZtPb33HQK7mdbgpJVSMvO231SuVwn91hqUHjxr6LudJ8lb
SOX8xhoolcdHWDRgII9aXk4GrcMe9WRSZR0GfXtcbeJW16GAPD+cVI1B4BDP
lNSNPyDoq5g3X4bB/vKGoJcLfwDe6bGP0DBoCiPtdvHZgKdlvzUcCzG4YsxF
ZZvdACVjPoXAbAyYRZ7IlLhvQhbTlXSpTAzON7IZ/3Degs86zmGu8dv+W45L
Aowt2H+VR+5KJAYUUYe3EuoEpCf+vmrxJgZ+js/8LdoIaPxNCTuLy/Y9fni3
1fbtQGLJshraCAOV2yJCb4WYECNp3uf+qe2+SL12+3GRCX1YHOMoP4YBr+tR
XsExJkT1d3I5yIfByK8vVwKXdqIUCuOw4ygdPiYl1KaoMqO3WoNfVvvp0CWr
ykELZUbM2U9SnbrpUOVzt+ITCwuybrP7q6mSDhFL57fUBFiRxGZFZ0sIHUQ3
6qgbyuxIsMn0exoXHfiyyQz+YHbEcvVnj/EWDdiBV+ckzo7yzH9MrjJoMBvu
OX1JjwPxxOVrHuqjQRPzYbVm613I4QNFuTeLBvacqf2RgZxorFw/4aEEDd5w
KXMw23OjcFF2NsqpUug14Ml8G8KNVsQZAnVHS+G/uJkjWVRuhHUafxsTLoVR
lhKdk5+50bjtx9wLmyXwZ0MwnGi3F51VfGlr21kCx2Z+Lz+y4UHsU9HZN21L
IPZt46ilFR9y0fA6PRVdDFrJus0lF4RQs/LYQdblQgg/X0Pr9RRCV63M91hP
FUITi0TaRqIQimRqwCu+FoJaCOGq+WshtCnVYBvWWQiK1xp2b50TRquRkcTI
rEKQ1Ja3ttLah2YeQeVxKATWlQMzzKcOIG3W4Ms/UwqALLvGJc8linz3nZZi
N8oHw8HbRUIiokj4wa2kLK18ULrNf4YgK4o6BNtfK6rkA/OQnHuPiSjaGZ9f
FimRD/lJzl0ed0XRh4eqfHFreTD0qy+Gvl8M1em/6JCj54HNo/ItiWPiiGTb
yijbkwdG0uQ5AT1JFBSsaCr0PQfWEvwbvlhJogD2ShGtDzlQOhMdXXhVEq0b
+dcEtOYAc02xsEKMJLLlnGJjLcyBZxoTmkbtkmhaY2TtMTkHjli4pf6jfRg5
3Migik5nA+GWjyIDjiCD60X1sPkQqvpC/V+pSCGeS55WLNpUKI0mOY7oS6Eb
Ed3XHitRIVvZ4MK6rRSK7KyWuXyECvGZQtInQqXQ8yyz1DEOKjhdrP6c0iKF
Fg7aZnq+fwB8oxPaxPPSaOf1yIdejg/gxoI5z7jdMTRj9/zPt4T7cJrnWDnz
LRkURBYc1F/LBOf11IdFRDlURZlM+66ZDl4d44rlRgro9MdD3jjPXYi3ZT28
4a6EBuqbhYx3poJTZ/BVeRdlxH7Yo0PbPAVa2IRN3WxU0JoDd8NETSLI7w1P
n/RTQ6Y6vejdQDxcXjgjY+yujkrCdVREAmIhL7v9wEqiBmIx6D4VIRoD1Ulq
g71mCG1WSjm85IwCv2dnTB4aaiLKFre94LlIwLuK5uPstJCnwdFWmZhwuKan
2niNqI00Nm8Ln2cPA2qpfK2bqw4iTDsn9zEHw52FxgjvAF00Z5gd904/EH7Q
/W+4+J5FbiMzXMd++kPb2dTMyEg91KJ2dnQo9jrsuDAwkhx+DonyZmZG+PkA
QfPJjtyb+sjz61fv0wJeECu4YtR7+zxqrzMjRyq4gbet04uVfwzQPamczA+v
nGE4QokE9wzR+l76GXETEvClZQ3E5Rkh7ZuUXZn7rkAx97GbnQ+MUfWfGafc
xIvQ4ntI9yh2Yfs/TTSZW6wgWzT3wBkLE0Sr31m5lmsKjSFrBJd3JugCq7FZ
Uq0+iBmw/ZGwNkU+bVWme58D1PRIJ3zqM0V8JeF9RRQZoHRsyonam6F4kuDu
iO9ceNr1SdfLn83QSvt9ruBmRTyEX2SPuI05EnbNb1O7rInTpFm6/L6ZI95E
iZevJfVx1sUdwi2XLJD2tE07G4cJXiJXGZY9boE4ZPsdSnPMcWlHuvGGhyVS
be0Zid6wwgf166sspy2RmKfu0uyWDd5bEHQCrlshaYG/C4ZE7fHValN18Xkr
ZF878+nIjAO+9dS3NsbTGnkP73eX1b+CG8id1Q1ZskYRi7MhzTRHvNNe9prb
dSIaHuAc4PnhhPM4uTQ89CeihCNRsSHTTvgllzyudwFENFBAMhljOOHLvrxV
SiFEtNtM7UTNuhMuGbuythFFRL1xh8X09pLw8CqckpJORCYUWTEtdRKuxmZS
UVtPRBkBaquJd0h4DGcc00QDEVkc+u/0YDoJf7/3hcW+JiLyco3LOUol4S4H
lH6HvSCiIemVzsZiEp4hL6R1rnubT63OH2og4Yt23z4MfCailq98j3+PkXB0
RfgI1xARSXzS3aU6TcITrpoFwjARvevtiA9gkHBxn7YDhWNEJDgZvTy3RsJN
Y0rJHjNEdDc8OezzHjJOTRiuy2EQUYzNf+t8/GR8ImXfrt55IjoVypFtuI+M
hz+glCmvENGT3lnTekky/jq3nXDtNxHxnt1FmpEm44LFm2YP1olIqLP/gbgs
GXfE/i56s0FEws3xvy2VyHhZhffK1hYRfX5vGRqrSsb/B/CoO4Y=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  Frame->True,
  PlotRange->{{0, 100}, {-0.0025909105121917197`, 0.05423984614844526}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.4731453601938834`*^9, 3.473145399263317*^9, 
  3.4731454743507204`*^9, 3.4731456418020425`*^9, 3.473146957457311*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"integral$der$funktion", "[", "xx_", "]"}], "=", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{"funktion", "[", "xx", "]"}], ",", "xx"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.4731454134247847`*^9, 3.4731454238361945`*^9}, {
  3.47314565724728*^9, 3.473145676445075*^9}, {3.4731469666162024`*^9, 
  3.4731469808564205`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"FactorSquareFree", "::", "\<\"lrgexp\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Exponent is out of bounds \
for function \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(FactorSquareFree\\), \\\"MT\\\
\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\".\\\\\\\"\\\", \\\"MT\\\"]\\) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/FactorSquareFree\\\", \
ButtonNote -> \\\"FactorSquareFree::lrgexp\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.4731454254949703`*^9, 3.473145676861331*^9, 
  3.4731469817526846`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"FactorSquareFree", "::", "\<\"lrgexp\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Exponent is out of bounds \
for function \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(FactorSquareFree\\), \\\"MT\\\
\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\".\\\\\\\"\\\", \\\"MT\\\"]\\) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/FactorSquareFree\\\", \
ButtonNote -> \\\"FactorSquareFree::lrgexp\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.4731454254949703`*^9, 3.473145676861331*^9, 
  3.473146981817685*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"FactorSquareFree", "::", "\<\"lrgexp\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Exponent is out of bounds \
for function \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(FactorSquareFree\\), \\\"MT\\\
\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\".\\\\\\\"\\\", \\\"MT\\\"]\\) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/FactorSquareFree\\\", \
ButtonNote -> \\\"FactorSquareFree::lrgexp\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.4731454254949703`*^9, 3.473145676861331*^9, 
  3.4731469818839364`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Further output of \\\\\\\"\\\
\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(FactorSquareFree :: \
\\\"lrgexp\\\"\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" \
will be suppressed during this calculation.\\\\\\\"\\\", \\\"MT\\\"]\\) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.4731454254949703`*^9, 3.473145676861331*^9, 
  3.473146981885186*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"integral$der$funktion", "[", "xx", "]"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"xx", ",", "0", ",", "100"}], "}"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4731455308028374`*^9, 3.4731455318891044`*^9}, {
   3.473145729904646*^9, 3.4731457328146906`*^9}, 3.473146988809043*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwt1nk4lVkcB3Bk0MJosXaVZCqNijJNSd2fGkTc+y6XXtkq4dpliYohNS0I
qUnJmiUtZJfqZomIlKSSJURSmpKsIdM9pz/u8z6f5znvc8/7O7/zPWfJXk/K
QUxERKTjx0/4VIuaSk1cVL7lSGobubfBXr9YSmOxOz+JPTG/F7k8IDttBf8m
2+3RZ+QHWvudJPil7NgZ4pTQNRGN24ednrCPLl6D/FD3aMlHpw62neNp5Noz
rfv7nD6z+TutaaFNBJKcXqdpdpivjLnQ9dLrZ4rbyIJJxlFG6K1RBmVXuIpQ
souwEtphzTdpbWlVKG7NsxHaTMPhi7yROvTZDdkJndcU5Pdwwwqgp+r3CL1p
3sqb4sGa0GF0zl5op4mYhHRGC8SUVR2E9nzwbt1Ns7UQp+TqKHTYLonfptx0
oFIs20lo++rDjtr89aDeIeCj75dUIl0tN0B+901nobXnhpx/76sL36UTXYTe
/XWzJsdND16UOLkKnZJYxRo9vQVaNVe7CZ0fqdvaSAG8DX+N7Ht7M5Fgqg9K
Mr7uQpfWpg+estoK97ZLegjtbLRR4MxsA/9nR5HjM7ULXV3+gtz2KeQzXwVH
vPwNoCnJ2VPo3mt+B/jehvBRsxK50jDmQmioEbC3sLyEFuW2vIkK2Q7bEhyQ
RfSLRJMPGoOgJh35pMKoWeMJE7DV70b22mVfMXp0B2R7ye0XuuuIzj72v6ZQ
degv5GXyMpFeF02hTd0A2eXau+KUBFP45zH2UGPcbPEMUwhTNUKWUhfNryky
BcdSY+TVD+pFqWZTONLHQT40yylp30IzmPGeQV5w9mLLqRQzeJLpijzr+fyn
3ulmsHe1G7KIQmS11VUziMvH/i8utGBVrhlM3HVHfnDZNfJpmRkE13kiB+Rt
3qrUaQZJL32Q2592Xc1cxIH6G4eRM2RXHqy+xAE5bhieX6/lmHgyB4arsYvv
nPLfmsYBLwhHrnF87ye4wYH1WhHIH+5meucLODBrdiTyKuflbkkdHOjIOoNc
UK5u57+UC92ZF5D1YnmvC5ZzwVTuInKV2zGbwd+5QB/BfqHQY+Wuw4WNTBzy
qHsqY2/ABQ/ReGRdZTWK68SFaP0k5HLvxQbLr3PB5GA68rfhz9Gsm1zQfoat
c7CsbW4+F6o0M5Azg/f4Tt7mwtfX2NERqalPa7ngys5E3p2xXCzwAxfaBq4h
T3+MtetbQMAm+Rzk+NUhv3TLE9DmgL3Bi3+9XZGAVYXY3l83jDayCGihcpF7
x19FCtQJcAvLQ34swboXo0PAgQ8FyImqyazNPAISPEqQZcK0a1ZZENCRhx38
tcJnEUNA0wj27gdva6etCGgNuo2s5vb7wQp7AmxP3sHrWVz03MiHAIgSIGdz
6iOpGALa95UjL7plq7vtHAGlSdhRSwberjtPwM4WbK+heZvl4gi4wqlAXhvH
9L9M+fH/6+4jF73tNrLJJcB+oBJZEPhNhN9AwN21NcgjN3sHQhsJyOFja3U3
diY0EUAmYqcZXy971kxAjNRD5DB56xB2FwGsV9gWOYJp+UECdrnU4fXpvvpZ
e4gAiUvYD+XPd5iOELCnDlsvyKM09BsBir8/wvUwWRz8SYyEuF7sz90h36vm
kzBt9hh5hYL7p045EvwPYu81sXw9oUBCfBr2ixzte9osEvrHse8GvQlKUCch
O/nJfpwXf035/kFC9esG5CU7JCeX7iShRuUZ7rfn2xqVLUlo0MM2tAvJnGtF
whkrbBefcd60LQn6F7ALLvVntTiSsEumCY//+MTuzAES/P7DZg7MWX8ygARV
qef4fRHjOcGHSDiuhh21oOKW298khFhgN+sVzN1+nIQ/7/wcf/rC/e//klDi
/wI5MmWu18eLJKxMw84vDGO1JJAQ9gR7sj3QrzCdBLmlL/H3DQ4vSb1KwtYd
2IYSno+js0iw88aOWr1nuVshCY4C7IKtLc8sS0gw78JutqBDjAQk6Ig34/UJ
NnilVvWjXobYBU80wl81kUCVYrv6M2ULX5Gg3P5z/OITwzbtJGSOY0d59Ni9
eUuCwppXeL4C/VrHTySk2mG7SCfp9I+QQIRjN1tPJnpOk6CWh21ww3LmkCQF
Kk3YeRNFPgGyFBh+wVbdseD1pCIFSTNbcD+cPHVCZhMFmzdhRzz4rqVqQ4H6
EuxVLL0NUu4UmEzg9x/vP8geCKSAXYWdyFLc1nOMAs00bM/qIsPmCArkg7HB
29zk0TkKps2xZVWGzMriKehfgR3gfZ97O5mCN7LYndUxZEEaBa2juB653trm
mTcoaKrAVq4R2Xk554czsENVGpj4AgpensKmajyso+9S8N4U+7bKFtuwMgrG
NH/W20d697FKCubMwR5UuWEf8IgC/Wq8nmd93rvsbqNgRBv7suLsAMNOCqZm
YecJNP/R7KFAoRv3U4OkV9JYPwVB0dgy8SPPoicoWNaJ+1NFX7HrwDQFZbnY
mr0bP1nPoMEjFHuHVpCUxmwaJJZgn6ycsblcmQYdGu8P2dhz2wpYNHhvwI51
/s3kyiIaDqhgZ8gY7TytRsPjXrzfqpiw/ZYrabh/AFvsP9mMLxtpeBjeiBwo
t+hXNUsaIsLw/q7PnbmLbUVDlgP2Is5wmrUNDWGAXXr8kW7sHhoCh3E+iI0d
cpzjQoOeNfaJlpeCkUM0rFPBeRKTdMatLp4GO3ecX92bgor7EmlYC9g6zXwx
iZQf85uH/VwWLkA6DYuLa5EVQz/dL8yioWYS52Xivh0Lk+/R0HYY5+tVjV9q
fTt/1M+4CrmRpT/h/oaGfAXsyV+DNJ16aCh/i/ObMzIUadlHwx9HsIcqeugt
AzSEFuK8B+vKdkkRHuTMx+dBc+TRL3GLeZCVcQ9ZYkhUqdyWB7oaxchjORci
e3bz4FhPEXK/+xpxKXsexCRhN7yz/sxx4sHnBdhxrcVVbZ48uDWJz8PV9929
x0J4EFeGz0uLmFd1a1J50KWUjXxFK/fvxHc8mFyQhuwh92W8+D0PAipScf2+
afk97efBHU/ssvs5ruIDPDj78PLPPMphXMZ4EH0oBVkq6Oba9TPNofJpIjL/
YVZv/UpzsDXH9xGNvdc4U+7mEJN/GrnVuCTPvN8cLAr8cH1TD61i+1hAlhu+
v43lk3pqgxZQuUwXefqWd+Fxj51ANin97GdDg8DhnRD44Su6b1bbrHF29WFg
5lg98jx7/p0EPwYWGmPb8lOkG/wZ+H7xEfKI9/w8nUAG/thUh6x+cvTb1DEG
XA7XIIfklUZEn2dgZLACWVeSyCksYeDxvWLk43NOifXdYWB6JvbTuRU85XsM
iJoXIfNZOuN/VzDg/6EAOVZbcev2OgZ05+chD1l1PmtpY0Da+gYy7FFaJt3B
AJN2HTnckQpgdzHg+/Eastr+SlbaWwaWBl5FJo9nOrh/YsDyYgZyfHhXcdIA
A+s68X28L1p5VuMgA13LsEMuRWSvH2UgNz8V+VFylYjzOAPPxy8jK2R8py5N
MFDLxt57/c/0+ikGzv6Tgpyd4zU6Pc3Aqrpk5P8BQ/+m1A==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 1.0388242600000001`*^7},
  Frame->True,
  PlotRange->{{0, 100}, {1.0388242558183433`*^7, 1.0388243557889575`*^7}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.473145532384112*^9, 3.4731455684234157`*^9, 
  3.4731457339947085`*^9, 3.47314698993906*^9, 3.473147043012375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Interpolation", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x", ",", 
           RowBox[{"funktion", "[", "x", "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", "100", ",", "0.01"}], "}"}]}], "]"}], 
       "]"}], "[", "x", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "xx"}], "}"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"xx", ",", "0", ",", "100"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.473146546682252*^9, 3.473146552331088*^9}, {
   3.473146597755536*^9, 3.4731465990030556`*^9}, 3.4731467975073547`*^9, {
   3.473147375606234*^9, 3.4731473773975115`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0", ",", "0.0478274167379966`", ",", "0.10182738079041329`", ",", 
   "0.15428341743177246`", ",", "0.20357806923577496`", ",", 
   "0.24948968372468497`", ",", "0.29218201388122333`", ",", 
   "0.3319198030777268`", ",", "0.36897818626956597`", ",", 
   "0.40361340913821686`", ",", "0.43605486577610447`", ",", 
   "0.4665047980377014`", ",", "0.49514061952826804`", ",", 
   "0.5221179335327784`", ",", "0.5475735096953601`", ",", 
   "0.5716279627834308`", ",", "0.5943880704489912`", ",", 
   "0.6159487428149147`", ",", "0.6363946831380558`", ",", 
   "0.6558017845526115`", ",", "0.6742383054318807`", ",", 
   "0.6917658606342361`", ",", "0.7084402601231677`", ",", 
   "0.7243122210900053`", ",", "0.7394279750649062`", ",", 
   "0.7538297876161512`", ",", "0.7675564050437386`", ",", 
   "0.7806434398719597`", ",", "0.7931237048359701`", ",", 
   "0.8050275033485844`", ",", "0.8163828830485664`", ",", 
   "0.827215857907012`", ",", "0.8375506034527663`", ",", 
   "0.8474096289299436`", ",", "0.8568139295877102`", ",", 
   "0.865783121798333`", ",", "0.8743355632832814`", ",", 
   "0.8824884603822646`", ",", "0.8902579640131706`", ",", 
   "0.8976592557313972`", ",", "0.9047066250963508`", ",", 
   "0.9114135393841805`", ",", "0.9177927065434387`", ",", 
   "0.9238561321698153`", ",", "0.9296151711737481`", ",", 
   "0.935080574727468`", ",", "0.9402625330035121`", ",", 
   "0.9451707141528184`", ",", "0.9498142999155934`", ",", 
   "0.954202018210794`", ",", "0.9583421730091115`", ",", 
   "0.9622426717588857`", ",", "0.9659110506035476`", ",", 
   "0.9693544976023409`", ",", "0.9725798741426303`", ",", 
   "0.9755937347116008`", ",", "0.9784023451771594`", ",", 
   "0.981011699712038`", ",", "0.9834275364811781`", ",", 
   "0.9856553522001829`", ",", "0.9877004156617544`", ",", 
   "0.9895677803174192`", ",", "0.9912622959932786`", ",", 
   "0.9927886198109318`", ",", "0.9941512263779647`", ",", 
   "0.9953544173063315`", ",", "0.9964023301115729`", ",", 
   "0.9972989465409878`", ",", "0.9980481003745323`", ",", 
   "0.9986534847383312`", ",", "0.9991186589671998`", ",", 
   "0.9994470550494057`", ",", "0.9996419836840749`", ",", 
   "0.9997066399790717`", ",", "0.999644108814872`", ",", 
   "0.9994573698978289`", ",", "0.9991493025243529`", ",", 
   "0.9987226900757796`", ",", "0.9981802242621274`", ",", 
   "0.9975245091315371`", ",", "0.9967580648608625`", ",", 
   "0.995883331341708`", ",", "0.9949026715751165`", ",", 
   "0.9938183748871199`", ",", "0.9926326599764813`", ",", 
   "0.9913476778050856`", ",", "0.9899655143407179`", ",", 
   "0.9884881931612419`", ",", "0.9869176779285718`", ",", 
   "0.985255874740214`", ",", "0.9835046343656488`", ",", 
   "0.9816657543742912`", ",", "0.9797409811613229`", ",", 
   "0.9777320118772721`", ",", "0.9756404962668085`", ",", 
   "0.9734680384218718`", ",", "0.9712161984539026`", ",", 
   "0.9688864940896645`", ",", "0.9664804021948152`", ",", 
   "0.9639993602291591`", ",", "0.9614447676372431`"}], "}"}]], "Output",
 CellChangeTimes->{3.4731465572299137`*^9, 3.473146602030602*^9, 
  3.4731468196376944`*^9, 3.473147402447896*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"integral$der$funktion$ueber$Liste", "[", "xx_", "]"}], "=", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Interpolation", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{"funktion", "[", "x", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "0", ",", "100", ",", "0.01"}], "}"}]}], "]"}], 
      "]"}], "[", "x", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "xx"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.473146858340789*^9, 3.473146875493552*^9}, 
   3.473146911959112*^9, 3.4731473896702003`*^9, {3.4731474205194235`*^9, 
   3.47314742811954*^9}}],

Cell[BoxData[
 RowBox[{
  SubsuperscriptBox["\[Integral]", "0", "xx"], 
  RowBox[{
   RowBox[{
    TagBox[
     RowBox[{"InterpolatingFunction", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"0.`", ",", "100.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
      "]"}],
     False,
     Editable->False], "[", "x", "]"}], 
   RowBox[{"\[DifferentialD]", "x"}]}]}]], "Output",
 CellChangeTimes->{
  3.473146877673586*^9, 3.4731469130841293`*^9, {3.4731474028979034`*^9, 
   3.473147431048335*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"integral$der$funktion$ueber$Liste", "[", "xx", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"xx", ",", "0", ",", "100"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.473146897926397*^9, 3.473146899508921*^9}, 
   3.473147436247165*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k4VN8bAHCUJZWvJZE1S2lR0U+SlvMiS9nm3hkaRSnF2EMSEiFbQipK
liRLJdlKiiwJKRVK1koJhbm27PI789c8n2fuc95z3vPee96jcMKdPMXDxcUl
zc3FxflVjF3ISJWr2sdlm1AqqXdmX4nARnlXVhrqcsvI0O8hUdW5vHsbWI/R
0lmRUtGNdqhWzcOBj1WBkh1Xj8nle6H66Gajvw4fUNG0Y7pgWih6ox1SOuTw
DX2rF31tK5mAGq52egw4UKjVYucgzGWjg+X8Zn0Oi0g8SPtqZEwpalypuWyp
jTB0xIbVLE9uQLqx+pXZ5pIwG2lQ5dbfjE5tm12pvnItbKu//PJ07hdkuvHU
6GpDZWiriFzru60LFX4K8H6jtQHkNxKTRT++od2imx4vDVQFHyPF8HslPchh
Lj4lk6kGZR9t75/V+4nca/v/99h0O/xOE9A9G9OLog7zrVtw0YCP61qdjjX9
QnZ1/vbqLE1oSv/TsLunD1XxryGcrbSg4t/kYWjpR+oiQQm/z2iDUYtjplPV
ALId36tq5rIH3h6TvrD68m+UnvpaZurKPsjUvBMcSfxBRTHanc0kgNtM4+UB
7kF05vleWoqJDqhZ+FY6JQ6iiobMscgjuvCf8QP7zE1DyNFwV7kjUw+uJ1TI
qWUPoeQc9SfOTvshqsOMqa0wjK6Ol1887aMPNwoI//noYdT3wPssy9MA0l15
r0f2D6Mag/ibwcGGcCpfvS8JsRG3eceP2CAjKNLWGpyJYCMunafcd3wPwNd4
1sl1b9goQmLKtDn8IEg4LeVL5aPQ6cN21VMhxjBrEm3RqEWhnosaJ9ENExiK
jXT9gvdx/WqhmNO3TCAqIDD0IotCTg/6S9JTTKD1Ra7qZkcKTTQnLV+aZQKN
lyXVA5woJKDMXVT/1AT6+ZVWyrhSaGttIzfZZgLSEbSN+p4U8hN0SDspbQo1
tLAH+ucptOrarY7IdFPgm2r15o2lkOBnsSbPTFNI05ZbdhmbSyKm7sh9U+h4
m6QjHEeh4aTg4i0FpnAgJeTumqsUqr3rHNNUaQqF87B+wzUKnSvcq7vmuykc
uV1uoJFIoe6mnvs5cmZQ0cXvvSyNQlnCm3zrbpuBeH9Z2cNHeH59VtNL75hB
tcCNZOU8CpW8iPTRvWcG56xMJFKw6+1/e5fnmoG269Pu6McU+lOW41lUbgbh
PfwFDgUU2uKo4pL2zQxC2Nxhgk8oVFylfMxHyRzWKNRE8ZZRaE8i42uxijn4
2zuMe2C/dgm1GdtsDt6zb2a6sVsleo+4aphD1HKV78XlFJpyzWDa6ZvDKYkn
4kcrKKQtpUiaO5jDywMPdqZWU6jKU15f5aE5TOSUj36up9DsXypO5rE5GCem
tm17QyEN38oukSJz0NAzdInEzgk8fmb+uTlcXKaZtLuBQnHRGRlNDebwLtFL
NPkthWyzVHjO/zEHBe3HIabvKbQ4lHhsYBUNctzEfni2UCh5axDvz9U0aPeK
CKnG1jrNetgtSQOXvKEWkU8U8hzXmmqWocE4UXvxMXbfTHtMuTINplYliPV/
ptB7PpmX8Ro0eFrDkDNso1Dq2jsyexk0sM9+tP9tF4WEotTrt1jS4MeOtWH/
dVMocLzaS45JAzmx+/50bNvaXw2LR2gw9E87pANb0WWzb7UdjndxOd+vr3g/
S55+NvSigWPy4/7B7xTKM2uMIeNpwLeQHFrVSyG5Z0e19a7TIFp5u/08dqzC
yK//JdDgEFQsaP7C9T8hulc8iQbydvNmD7G3JzEHv6TToKI+1T+uj0JPf/00
tCmgwb3bVoKmAxQqPz/LxfqI5xt5xi52kEKTj/tGgptpwLKLY77GVvvZ/D3l
Ew2WeGROz2LfO/CwsqWNBrP9S7RPDVEoarV1EOqhgaZezKsdwxSyzC9fXD2G
8/1fFncdG+/Pz/uU+gQN3vV8yJvCfrM64ZvJJA3OWIoJbKBwPQW4VQTP4v8v
bK0Ix1Y8KB/I5iHg+Uy2jt4IhaifQf9eixHAGl+f/WCUQhskXNnfxQmwqNot
14p94qDV1zkJAqaFL+lyj+H6y1d/qS5DgOzWuXhL7LKAHwEpygQ0/LOxWMCO
kNi/cGYHAXWEuvvuCQopGPPPKx0iQO1ovLvfJK63z3rNUlYEpB+W97mFbXAs
KEfkCAG+1We1nmE7ec0wFo8SsCH8xcAEdvHtwUcd9gTosKW4nafw80Mfjl09
S4BI0yrZg9MUYp5doRlxjgBBr/t1J7GduA6sCPQj4ODlHtVA7NhV1c9cLhCw
tdNDpQi7bU+xiFEYAX+Mo75KzODnr9x89e8GAQI5RrafsM9LfL71N5EA3XHm
iz/YMekip4duEWA22tPENUuhoidRMh0pBHA1x6urYs93n/d+kkmAzOD3skBs
IVapcW42AYxclb/XsBXG/ipk3CfAnUn7nY1twOf+Pu4RAYfq/Hk/YMduPa7i
8gTHv5IjJDVHobvPUhZOlBCgaeKioopdrNvRYlVKgJGe3/xe7DZLepBhOQH2
z3M6bbEVA/XbFV8TILz5uXsG5/kPGy+3fyIAaU3OSM/j+lCqypxtJWDEVJt3
M7azD7NSup2AVuNvVbuwFeXD/9p0E3BgNNrcEjvWrffYj18EfGHteXkZ26na
32/JAAEXWKaWN7ENVovdUP5DQG0R3LmHPV+u02DPJqAiWOhgGef5lWkag5N4
/4wFpvo5zx/XNF8xQ0CM6LD8GLbCk0bHLXMExNM15uaw26znU90XCTj1b+Mb
oQWc3/xrpXHcJBhrT7+QwI5ZuvlTwRISZq6xjq/F1s+1WjbBT8JtYfcaNey1
XKNK4oIk5H1TDtbCnqdH7NNcQcJ75bIxhF0499TrnDAJYTveD5lyxjM3i7kl
ih3OOsvAdsz4lfN8FQmnrJWKDnPGM171dV6ShEWHXQb2nPFSH07LSpOQuViU
7Iz9ZUxXDMmSINB1Jes0Z3yDji228iRMpbfaeXPGT/IwuqhAQvJoyidfzvhs
Abu7SiT+no9PB2Dv170T8GodCWcT+z5e5MRL2HmzV4WExtXh1pew536/L+Td
RIKKZ+/tCOzWvfaN61XxfLcLxV7mxLu60G+4lYRDXWKaMdhXfl3ncVQjwZVa
ejUOm7VLVTZqOwk8/SNp8Zx4V17tfKhBQtmu/hPXseV7DpPvNEl4YDXVfgN7
VmPMZViLBFqxGm8iJ15EZLjQbpzfwru9HBd2rb27bS8JI8+sz93kxFN7VkZD
JKxVcavkmBVq/sVDhwRfZl8Zx/vb+kbj9Uh4lvHJlWN51QsrivVJkDti1MIZ
bzZQXOWzIQk272jDCZx4Lbk6kwdIyIaFF5z5FKjst5YwIeHRvDXizDfav/Os
lhkJdyHQh7Me1gfPq1Y0EjSNvE5y1qunJJjrR+L/DxrxcfIh55Nee5tBQrrf
ShtOvmYbtHrKLEnw5mtmcfL5We7jXDeThEGJzI2cfEfX/lNba4PjWxc1cPYH
PPrUZY+RoPZBf5yzfxPS77dLHSch9mFRB2d/rT1SNFadIuFGKdnngi0sc2mH
iAMJxW7JgizsmloXTSFHEu5cHxs+gb1FZo+WgCsJ7FV/Rw9h/6hV2sXrTsLc
l1JREjvBY7k2jwcJ27tfjBlj/6vt2D1/hoQPh3NG9mG/9/BFI+fxeAo+vxSw
g2WOw/AFEnas8OOWwtasM9L5E0TCuj3S3SLYqTKSer2hOF4eq4UL273uqUFb
NH6f5oPKO/H7puyZavg5hoSh/XVfmjjvn0yYUXMcrv8lKwrrsMHT4uC76yTI
lFVmFWILy06YViaTYH90Xfwl7Jq6TrPyVBKc8x498sU+5/nK/PkdXN+frkW6
Yn+viyeK75EQKn4/mIFd4KlukZNLwp8OXX95bHvZNZaZeSRcOc57WwRbqp7r
0N18EgJpof5LsINlPzKTi0l47dV3oQ9/z8h6N+u4MhJyvUPj7mPzeVnaXHmJ
8zPrWXIL+7nsvqNRlST8zPNPi+R8D71W2obWkLDbWLCIhT0mm2t37h3On9aJ
30rY17x+O9l24fnUKqTE4O+vlIGfB/0rCT7Uz33+2Hcll58z+E5C9Kaf9xyw
C8tVL6n2krB0VU05wv7IfzptepCEgyV7lYfx+SCUPNkSN0fCMgmfxj3YCW7h
HSELeD9jxJ+tw5bVkew5u0hCUUWygxC2at8utvUSOrxujxX/hs8jY7UAgY3L
6bCGf3teAHZEzZK9VVJ0yJLP6nyMzzvhxOt6xTJ0eHOmds0N7ETHdQez5egQ
cPKcrB92lpDhoSuKdGgffO6th/2aGeVhtYkOOkNfnVrw+ckzLJw1uosOdPuy
0wN/8fkmLvefohUd9ugI/a9/nEKNBcsOoyN04I+dpVdjy5n9vWdtQ4eUNbnq
KdgVYe+0E4/TYdPNeCUSm2faz36FEx1iLFt/PMPnfXjHl/JJPzoMzHh3+OJ+
IT7tqsvbZDrsf7OfvwH3Iz93B5QMpNIhV/FOezK2RhuLhy8dzy/mkJM79mdh
uAmZdHgQvaJODFsymP3qySM6WMwNulnhfif1pLH0nZd0CBS1DmnD/dH9jbwN
Z77ToV5gs3gW7q+aZXTmXH/QoVb0/eEz2PP/Bag69NKBGX6LpYttNjkRYzVA
hwvDH7u6+/H7XN1L3zdCB7cPLRtEscG6ppufiwHerYWHTuN+ri0mZDRJngHn
jyczlvzA9TbBvabqKAN85Ox6LnVQaDr/ZkyvLQN0pnNUdbAHXbctFbBjQMUy
lV3z7bg++q0pMwcGHC6ZveGBndRZ8rrLnQFUjaGtFe5nt75y9ZwOYsCllAc6
sq24n4tvf7stgwFrEwMjzjZRKFut4EJqPwM2HanK8KijkJv46EzJbwYMxiuv
lcfWmFXzbhpkAPNw5Yl3tRSqfJXvvHSEAbPSb7XX13L6g3ym0zQDht3Md36p
wfergMfbNZdZgHOJlPNWfB9gvXnU17jJAtIlXHgL8X1i44kHZguuFrB+x/gu
YXw/6TxQWmgxaAGQtHJB+BbOb4bfFuRlCQnCTYw3/nj9RcQexTFLuKg25Rxi
g/v/Z55PwtwOgdiNwCm1vZx6NtA///cQiD8KUzKUoFCdzTZHZy8mbOcpzWeM
spGoHetFijcTCj4IvsocYaOjrPSVH32YIJnUlDlJsdGkp1ihxnkmSNV3dyWy
2Ug5Ymp2IRQ7vlGkbZCNggorouMSmBAqMpxi3sdG2vy0/CelTPB40eUt3clG
YSsieQZeMCH/70KmfQcbNYlUM6ReMoH58kp2QTsbsWQ0Zi5UM8GsSELesI2N
EtUldY3eMqGw+eF3989sNHHke0tHFxN49ocWP/vARnB8zfqV35jANlde5MK+
bE+eQz1MIBZypQ+8ZyNFjxqZe7+YoBuS0ND2jo2IsJxTrmy8njcpXJP4/px8
uackbYQJRn6WnXuwB+KkBJvHmDCsqhERUo/Xczs6T3OKCazM80zhOjZ6d+c1
l+MMEw64Tfpb1rKRRNY/8vYcE17sK/JIfs1GJx7uzGxcYMLQtee7ftSwUV7+
6anFRbye32KfVLD/Dxcn83M=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 100}, {0., 0.9997066267398829}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.4731469009151926`*^9, 3.473146923863045*^9}, 
   3.4731474159993544`*^9, 3.473147446237319*^9}]
}, Open  ]]
},
WindowSize->{1651, 750},
WindowMargins->{{Automatic, -18}, {47, Automatic}},
FrontEndVersion->"7.0 for Microsoft Windows (64-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 1874, 51, 81, "Input"],
Cell[CellGroupData[{
Cell[2444, 75, 521, 11, 31, "Input"],
Cell[2968, 88, 4297, 76, 240, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7302, 169, 394, 10, 31, "Input"],
Cell[7699, 181, 669, 12, 21, "Message"],
Cell[8371, 195, 667, 12, 21, "Message"],
Cell[9041, 209, 669, 12, 21, "Message"],
Cell[9713, 223, 689, 12, 21, "Message"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10439, 240, 408, 9, 31, "Input"],
Cell[10850, 251, 4130, 73, 214, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15017, 329, 803, 21, 31, "Input"],
Cell[15823, 352, 3178, 54, 107, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19038, 411, 730, 19, 31, "Input"],
Cell[19771, 432, 524, 17, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20332, 454, 296, 7, 31, "Input"],
Cell[20631, 463, 6102, 106, 244, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)