(************** Content-type: application/mathematica **************
                     CreatedBy='Mathematica 5.0'

                    Mathematica-Compatible Notebook

This notebook can be used with any Mathematica-compatible
application, such as Mathematica, MathReader or Publicon. The data
for the notebook starts with the line containing stars above.

To get the notebook into a Mathematica-compatible application, do
one of the following:

* Save the data starting with the line of stars above into a file
  with a name ending in .nb, then open the file inside the
  application;

* Copy the data starting with the line of stars above to the
  clipboard, then use the Paste menu command inside the application.

Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode.  Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).

NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing
the word CacheID, otherwise Mathematica-compatible applications may
try to use invalid cache data.

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research:
  web: http://www.wolfram.com
  email: info@wolfram.com
  phone: +1-217-398-0700 (U.S.)

Notebook reader applications are available free of charge from 
Wolfram Research.
*******************************************************************)

(*CacheID: 232*)


(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[     45306,       1197]*)
(*NotebookOutlinePosition[     46000,       1221]*)
(*  CellTagsIndexPosition[     45956,       1217]*)
(*WindowFrame->Normal*)



Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{\(Off[General::spelll]\), "\[IndentingNewLine]", 
    RowBox[{\(Print["\<L\[ODoubleDot]sungen \[CapitalUDoubleDot]bungsblatt 5, \
zum 23.05.2006\>"]\), 
      "\[IndentingNewLine]"}], "\[IndentingNewLine]", \(Print["\<1.\>"]\), "\
\[IndentingNewLine]", 
    RowBox[{\(f[x_, y_] := 1\/\@\(x\^2 + 2*y\^2 + 1\);\), 
      "\[IndentingNewLine]"}], "\[IndentingNewLine]", \(Print["\< a)\>"]\), "\
\[IndentingNewLine]", 
    RowBox[{
      RowBox[{"Print", "[", 
        RowBox[{"\"\<   \[DoubleStruckCapitalH] = \>\"", ",", 
          RowBox[{
            RowBox[{"Simplify", "[", 
              RowBox[{"(", GridBox[{
                    {\(\[PartialD]\_\(x, x\)f[x, 
                          y]\), \(\[PartialD]\_\(x, y\)f[x, y]\)},
                    {\(\[PartialD]\_\(y, x\)f[x, 
                          y]\), \(\[PartialD]\_\(y, y\)f[x, y]\)}
                    }], ")"}], "]"}], " ", "//", "MatrixForm"}]}], "]"}], 
      ";"}], "\[IndentingNewLine]", \(Print["\< b)\>"]\), \
"\[IndentingNewLine]", \(Print[\*"\"\<   \!\(\[Del]\^2\)f(x,y) = \>\"", \ \
\[PartialD]\_\(x, x\)f[x, y] + \[PartialD]\_\(y, y\)f[x, 
            y]]\), "\[IndentingNewLine]", \(Print["\<            = \>", \ 
      Simplify[\[PartialD]\_\(x, x\)f[x, y] + \[PartialD]\_\(y, y\)f[x, 
              y]]]\), "\[IndentingNewLine]", 
    RowBox[{\(Clear[f];\), 
      "\[IndentingNewLine]"}], "\[IndentingNewLine]", \(Print["\<2.\>"]\), "\
\[IndentingNewLine]", \(X = {\[CapitalDelta]x1, \[CapitalDelta]x2};\), "\
\[IndentingNewLine]", 
    RowBox[{\(Nabla = {\*"\"\<\!\(\[PartialD]\/\[PartialD]x1\)\>\"", \
\*"\"\<\!\(\[PartialD]\/\[PartialD]x2\)\>\""};\), 
      "\[IndentingNewLine]"}], "\[IndentingNewLine]", \(Print["\< a)\>"]\), "\
\[IndentingNewLine]", \(X = {\[CapitalDelta]x, \[CapitalDelta]y};\), "\
\[IndentingNewLine]", \(Nabla = {\*"\"\<\!\(\[PartialD]\/\[PartialD]x\)\>\"", \
\*"\"\<\!\(\[PartialD]\/\[PartialD]y\)\>\""};\), "\[IndentingNewLine]", \
\(Print[\*"\"\<  (\[CapitalDelta]x.\[Del]\!\(\()\^4\)\) = \>\"", \((X . \
Nabla)\)\^4, \ "\<\r = \>", 
      Expand[\((X . Nabla)\)\^4]]\), "\[IndentingNewLine]", 
    RowBox[{\(Clear[X, Nabla]\), 
      "\[IndentingNewLine]"}], "\[IndentingNewLine]", \(Print["\< b)\>"]\), "\
\[IndentingNewLine]", \(X = {\[CapitalDelta]x, \[CapitalDelta]y, \
\[CapitalDelta]z};\), "\[IndentingNewLine]", \(Nabla = \
{\*"\"\<\!\(\[PartialD]\/\[PartialD]x\)\>\"", \*"\"\<\!\(\[PartialD]\/\
\[PartialD]y\)\>\"", \*"\"\<\!\(\[PartialD]\/\[PartialD]z\)\>\""};\), "\
\[IndentingNewLine]", \(Print[\*"\"\<  (\[CapitalDelta]x.\[Del]\!\(\()\^2\)\) \
= \>\"", \((X . Nabla)\)\^2, \ "\<\r = \>", 
      Expand[\((X . Nabla)\)\^2]]\), "\[IndentingNewLine]", 
    RowBox[{\(Clear[X, Nabla];\), 
      "\[IndentingNewLine]"}], "\[IndentingNewLine]", \(Print["\<3.\>"]\), "\
\[IndentingNewLine]", \(f[x_] := 
        E\^x;\), "\[IndentingNewLine]", \(T[x_, 
          n_] := \[Sum]\+\(i = 0\)\%n x\^i\/\(i!\);\), "\[IndentingNewLine]", \
\(Print[\*"\"\<   Taylor-Entwicklung von \!\(e\^x\) im Punkt x = 0:\>\""]\), \
"\[IndentingNewLine]", \(Print[\*"\"\<   \!\(e\^x\) = \!\(\[Sum]\+\(i = 0\)\%\
\[Infinity]\)\!\(\(\((e\^x)\)\^\((i)\)*\((x - 0)\)\^i\)\/\(i!\)\) \
\[TildeEqual] \!\(\[Sum]\+\(i = \
0\)\%n\)\!\(\(\((e\^x)\)\^\((i)\)*\((x)\)\^i\)\/\(i!\)\) + \!\(\(\((e\^x)\)\^\
\((n + 1)\)*x\^\(n + 1\)\)\/\(\((n + 1)\)!\)\) = \!\(T\_n\)(x)\>\""]\), "\
\[IndentingNewLine]", \(Print[\*"\"\<   F\[UDoubleDot]r \!\(T\_n\)(1) gilt: e \
= \!\(e\^1\) \[TildeEqual] \!\(T\_n\)(1) = \!\(\[Sum]\+\(i = \
0\)\%n\)\!\(1\/\(i!\)\) + \!\(R\_n\)\>\""]\), "\[IndentingNewLine]", \(R[x_, 
        n_] := x\/\(\((n + 1)\)!\)\), "\[IndentingNewLine]", \(Print[\*"\"\<  \
 mit \!\(R\_n\) = \!\(e\^\[Xi]\/\(\((n + 1)\)!\)\) und \[Xi] \[Epsilon] (0,1)\
\>\""]\), "\[IndentingNewLine]", \(Print[\*"\"\<   \!\(R\_8\) = \!\(1\/\(9!\)\
\) = \>\"", 
      N[R[1, 8]], \ \*"\"\< < 5 * \!\(10\^\(-6\)\) f\[UDoubleDot]r \[Xi] = \
0\>\""]\), "\[IndentingNewLine]", \(Print[\*"\"\<   \!\(R\_9\) = \!\(e\/\(10!\
\)\) = \>\"", 
      N[R[E, 9]], \ \*"\"\< < 5 * \!\(10\^\(-6\)\) f\[UDoubleDot]r \[Xi] = \
1\>\""]\), "\[IndentingNewLine]", \(Print[\*"\"\<   \!\(T\_7\)(1) = \>\"", \ 
      N[T[1, 7], 
        10], \*"\"\< ; \[VerticalSeparator]\!\(T\_7\)(1) - e\
\[VerticalSeparator] = \>\"", \ 
      N[Abs[T[1, 7] - 
            E]]]\), "\[IndentingNewLine]", \(Print[\*"\"\<   \!\(T\_8\)(1) = \
\>\"", \ N[T[1, 8], 
        10], \*"\"\< ; \[VerticalSeparator]\!\(T\_8\)(1) - e\
\[VerticalSeparator] = \>\"", \ 
      N[Abs[T[1, 8] - 
            E]]]\), "\[IndentingNewLine]", \(Print[\*"\"\<   \!\(T\_9\)(1) = \
\>\"", \ N[T[1, 9], 
        10], \*"\"\< ; \[VerticalSeparator]\!\(T\_9\)(1) - e\
\[VerticalSeparator] = \>\"", \ 
      N[Abs[T[1, 9] - E]]]\), "\[IndentingNewLine]", \(F[
        n_] := \((1 + 1\/n)\)\^n\), "\[IndentingNewLine]", \(Print[\*"\"\<   \
\!\(F\_n\) = (1+\!\(1\/n\)\!\(\()\^n\)\)\>\""]\), "\[IndentingNewLine]", \
\(Print[\*"\"\<   \!\(F\_8\) = (1+\!\(1\/8\)\!\(\()\^8\)\) = \>\"", 
      N[F[8]]]\), "\[IndentingNewLine]", \(Print[\*"\"\<   \!\(F\_9\) = (1+\!\
\(1\/9\)\!\(\()\^9\)\) = \>\"", 
      N[F[9]]]\), "\[IndentingNewLine]", \(Print["\<   Vergleiche: e \
\[TildeEqual] \>", \ 
      N[E, 37]]\), "\[IndentingNewLine]", \(Print["\<   Offenbar ist die \
Taylorentwicklung bei gleichem n genauer.\>"]\), "\[IndentingNewLine]", \
\(Print[\*"\"\<   Ein Plot f\[UDoubleDot]r \!\(e\^x\), \!\(T\_5\)(x) und \
\!\(T\_9\)(x)\>\""]\), "\[IndentingNewLine]", \(Plot[{f[x], \ T[x, 5], 
          T[x, 9]}, {x, \(-7\), 7}, 
        PlotRange \[Rule] {\(-200\), 400}];\), "\[IndentingNewLine]", 
    RowBox[{\(Clear[f, R, T, F]\), 
      "\[IndentingNewLine]"}], "\[IndentingNewLine]", \(Print["\<4.\>"]\), "\
\[IndentingNewLine]", \(Print["\< a)\>"]\), "\[IndentingNewLine]", \(f[0, 
          0] = 0;\), "\[IndentingNewLine]", \(f[x_, y_] := \((x\^2 + y\^2)\)*
        Sin[1\/\(x\^2 + y\^2\)]\), "\[IndentingNewLine]", \(Print[\*"\"\<   \
\!\(lim\+\(\((x, y)\) \[Rule] 0\)\)(\!\(x\^2\)+\!\(y\^2\))*sin(\!\(1\/\(x\^2 \
+ y\^2\)\)) = 0\>\""]\), "\[IndentingNewLine]", \(Print["\<   denn:\>"]\), "\
\[IndentingNewLine]", \(Print["\<   Der Wert von sin(z) ist endlich f\
\[UDoubleDot]r z->\[Infinity]. Wertebereich ist [-1,1]\>"]\), "\
\[IndentingNewLine]", 
    RowBox[{\(Print[\*"\"\<   F\[UDoubleDot]r (\!\(x\^2\)+\!\(y\^2\)) \
hingegen gilt: (\!\(x\^2\)+\!\(y\^2\)) = 0 f\[UDoubleDot]r x = y = 0\>\""]\), 
      "\[IndentingNewLine]"}], "\[IndentingNewLine]", \(Print["\< b)\>"]\), "\
\[IndentingNewLine]", \(Print[\*"\"\<   \!\(\[PartialD]\/\[PartialD]x\)(\!\(x\
\^2\)+\!\(y\^2\))*sin(\!\(1\/\(x\^2 + y\^2\)\)) = \>\"", \ \[PartialD]\_x\ 
        f[x, y]]\), "\[IndentingNewLine]", \(Print[\*"\"\<   2 * x * \
sin(\!\(1\/\(x\^2 + y\^2\)\)) = 0 f\[UDoubleDot]r x->0\>\""]\), "\
\[IndentingNewLine]", \(Print[\*"\"\<   \!\(\(\(2\)\(\\\ \)\(x\)\(\\\ \
\)\)\/\(x\^2 + y\^2\)\) * cos(\!\(1\/\(x\^2 + y\^2\)\)) = \!\(2\/\(x + \
y\^2\/x\)\) * cos(\!\(1\/\(x\^2 + y\^2\)\)) = \[PlusMinus]\[Infinity] \
\[NotEqual] 0 f\[UDoubleDot]r x->0\>\""]\), "\[IndentingNewLine]", 
    RowBox[{\(Print[\*"\"\<   \!\(\[PartialD]\/\[PartialD]x\)f(0,0) = \
\!\(\(\(lim\)\(\\\ \)\)\+\(h \[Rule] 0\)\)\!\(\(f \((h, 0)\) - f \((0, 0)\)\)\
\/h\) = \!\(lim\+\(h \[Rule] 0\)\) \!\(h\^2\)*sin(\!\(1\/h\^2\)) = 0\>\""]\), 
      "\[IndentingNewLine]"}], "\[IndentingNewLine]", \(Print["\< c)\>"]\), "\
\[IndentingNewLine]", \(Print[\*"\"\<   \!\(lim\+\(\((x, y)\) \[Rule] 0\)\) \
\!\(\(f \((x, y)\)\)\/\(\(|\)\((x, y)\)\(|\)\)\) = \!\(lim\+\(\((x, y)\) \
\[Rule] 0\)\) \!\(\(\((x\^2 + y\^2)\)*sin \((1\/\(x\^2 + \
y\^2\))\)\)\/\@\(x\^2 + y\^2\)\) \>\""]\), "\[IndentingNewLine]", \(Print[\*"\
\"\<                    =  \!\(lim\+\(\((x, y)\) \[Rule] 0\)\) \!\(\@\(x\^2 + \
y\^2\)\) * sin(\!\(1\/\(x\^2 + y\^2\)\)) = 0\>\""]\), "\[IndentingNewLine]", \
\(Clear[f]\)}], "Input"],

Cell[BoxData[
    \("L\[ODoubleDot]sungen \[CapitalUDoubleDot]bungsblatt 5, zum 23.05.2006"\
\)], "Print",
  PageBreakAbove->True],

Cell[BoxData[
    \("1."\)], "Print"],

Cell[BoxData[
    \(" a)"\)], "Print"],

Cell[BoxData[
    InterpretationBox[
      RowBox[{"\<\"   \[DoubleStruckCapitalH] = \"\>", "\[InvisibleSpace]", 
        TagBox[
          RowBox[{"(", "\[NoBreak]", GridBox[{
                {\(\(\(-1\) + 2\ x\^2 - 
                        2\ y\^2\)\/\((1 + x\^2 + 2\ y\^2)\)\^\(5/2\)\), \(\(6\
\ x\ y\)\/\((1 + x\^2 + 2\ y\^2)\)\^\(5/2\)\)},
                {\(\(6\ x\ y\)\/\((1 + x\^2 + 2\ y\^2)\)\^\(5/2\)\), \(-\(\(2\
\ \((1 + x\^2 - 4\ y\^2)\)\)\/\((1 + x\^2 + 2\ y\^2)\)\^\(5/2\)\)\)}
                }], "\[NoBreak]", ")"}],
          Function[ BoxForm`e$, 
            MatrixForm[ BoxForm`e$]]]}],
      SequenceForm[ "   \[DoubleStruckCapitalH] = ", 
        MatrixForm[ {{
          Times[ 
            Plus[ -1, 
              Times[ 2, 
                Power[ x, 2]], 
              Times[ -2, 
                Power[ y, 2]]], 
            Power[ 
              Plus[ 1, 
                Power[ x, 2], 
                Times[ 2, 
                  Power[ y, 2]]], 
              Rational[ -5, 2]]], 
          Times[ 6, x, y, 
            Power[ 
              Plus[ 1, 
                Power[ x, 2], 
                Times[ 2, 
                  Power[ y, 2]]], 
              Rational[ -5, 2]]]}, {
          Times[ 6, x, y, 
            Power[ 
              Plus[ 1, 
                Power[ x, 2], 
                Times[ 2, 
                  Power[ y, 2]]], 
              Rational[ -5, 2]]], 
          Times[ -2, 
            Plus[ 1, 
              Power[ x, 2], 
              Times[ -4, 
                Power[ y, 2]]], 
            Power[ 
              Plus[ 1, 
                Power[ x, 2], 
                Times[ 2, 
                  Power[ y, 2]]], 
              Rational[ -5, 2]]]}}]],
      Editable->False]], "Print"],

Cell[BoxData[
    \(" b)"\)], "Print"],

Cell[BoxData[
    InterpretationBox[\("   \!\(\[Del]\^2\)f(x,y) = "\[InvisibleSpace]\(\(3\ \
x\^2\)\/\((1 + x\^2 + 2\ y\^2)\)\^\(5/2\) + \(12\ y\^2\)\/\((1 + x\^2 + 2\ \
y\^2)\)\^\(5/2\) - 3\/\((1 + x\^2 + 2\ y\^2)\)\^\(3/2\)\)\),
      SequenceForm[ "   \!\(\[Del]\^2\)f(x,y) = ", 
        Plus[ 
          Times[ 3, 
            Power[ x, 2], 
            Power[ 
              Plus[ 1, 
                Power[ x, 2], 
                Times[ 2, 
                  Power[ y, 2]]], 
              Rational[ -5, 2]]], 
          Times[ 12, 
            Power[ y, 2], 
            Power[ 
              Plus[ 1, 
                Power[ x, 2], 
                Times[ 2, 
                  Power[ y, 2]]], 
              Rational[ -5, 2]]], 
          Times[ -3, 
            Power[ 
              Plus[ 1, 
                Power[ x, 2], 
                Times[ 2, 
                  Power[ y, 2]]], 
              Rational[ -3, 2]]]]],
      Editable->False]], "Print"],

Cell[BoxData[
    InterpretationBox[\("            = "\[InvisibleSpace]\(\(-3\) + 6\ y\^2\)\
\/\((1 + x\^2 + 2\ y\^2)\)\^\(5/2\)\),
      SequenceForm[ "            = ", 
        Times[ 
          Power[ 
            Plus[ 1, 
              Power[ x, 2], 
              Times[ 2, 
                Power[ y, 2]]], 
            Rational[ -5, 2]], 
          Plus[ -3, 
            Times[ 6, 
              Power[ y, 2]]]]],
      Editable->False]], "Print"],

Cell[BoxData[
    \("2."\)], "Print"],

Cell[BoxData[
    \(" a)"\)], "Print"],

Cell[BoxData[
    InterpretationBox[\("  (\[CapitalDelta]x.\[Del]\!\(\()\^4\)\) = "\
\[InvisibleSpace]\(("\!\(\[PartialD]\/\[PartialD]x\)"\ \[CapitalDelta]x + "\!\
\(\[PartialD]\/\[PartialD]y\)"\ \[CapitalDelta]y)\)\^4\[InvisibleSpace]"\r = \
"\[InvisibleSpace]\("\!\(\[PartialD]\/\[PartialD]x\)"\^4\ \[CapitalDelta]x\^4 \
+ 4\ "\!\(\[PartialD]\/\[PartialD]x\)"\^3\ "\!\(\[PartialD]\/\[PartialD]y\)"\ \
\[CapitalDelta]x\^3\ \[CapitalDelta]y + 
          6\ "\!\(\[PartialD]\/\[PartialD]x\)"\^2\ "\!\(\[PartialD]\/\
\[PartialD]y\)"\^2\ \[CapitalDelta]x\^2\ \[CapitalDelta]y\^2 + 
          4\ "\!\(\[PartialD]\/\[PartialD]x\)"\ \
"\!\(\[PartialD]\/\[PartialD]y\)"\^3\ \[CapitalDelta]x\ \[CapitalDelta]y\^3 + 
          "\!\(\[PartialD]\/\[PartialD]y\)"\^4\ \[CapitalDelta]y\^4\)\),
      SequenceForm[ "  (\[CapitalDelta]x.\[Del]\!\(\()\^4\)\) = ", 
        Power[ 
          Plus[ 
            Times[ "\!\(\[PartialD]\/\[PartialD]x\)", \[CapitalDelta]x], 
            Times[ "\!\(\[PartialD]\/\[PartialD]y\)", \[CapitalDelta]y]], 4], 
        "\n = ", 
        Plus[ 
          Times[ 
            Power[ "\!\(\[PartialD]\/\[PartialD]x\)", 4], 
            Power[ \[CapitalDelta]x, 4]], 
          Times[ 4, 
            Power[ "\!\(\[PartialD]\/\[PartialD]x\)", 3], 
            "\!\(\[PartialD]\/\[PartialD]y\)", 
            Power[ \[CapitalDelta]x, 3], \[CapitalDelta]y], 
          Times[ 6, 
            Power[ "\!\(\[PartialD]\/\[PartialD]x\)", 2], 
            Power[ "\!\(\[PartialD]\/\[PartialD]y\)", 2], 
            Power[ \[CapitalDelta]x, 2], 
            Power[ \[CapitalDelta]y, 2]], 
          Times[ 4, "\!\(\[PartialD]\/\[PartialD]x\)", 
            Power[ "\!\(\[PartialD]\/\[PartialD]y\)", 3], \[CapitalDelta]x, 
            Power[ \[CapitalDelta]y, 3]], 
          Times[ 
            Power[ "\!\(\[PartialD]\/\[PartialD]y\)", 4], 
            Power[ \[CapitalDelta]y, 4]]]],
      Editable->False]], "Print"],

Cell[BoxData[
    \(" b)"\)], "Print"],

Cell[BoxData[
    InterpretationBox[\("  (\[CapitalDelta]x.\[Del]\!\(\()\^2\)\) = "\
\[InvisibleSpace]\(("\!\(\[PartialD]\/\[PartialD]x\)"\ \[CapitalDelta]x + "\!\
\(\[PartialD]\/\[PartialD]y\)"\ \[CapitalDelta]y + "\!\(\[PartialD]\/\
\[PartialD]z\)"\ \[CapitalDelta]z)\)\^2\[InvisibleSpace]"\r = "\
\[InvisibleSpace]\("\!\(\[PartialD]\/\[PartialD]x\)"\^2\ \[CapitalDelta]x\^2 \
+ 2\ "\!\(\[PartialD]\/\[PartialD]x\)"\ "\!\(\[PartialD]\/\[PartialD]y\)"\ \
\[CapitalDelta]x\ \[CapitalDelta]y + 
          "\!\(\[PartialD]\/\[PartialD]y\)"\^2\ \[CapitalDelta]y\^2 + 
          2\ "\!\(\[PartialD]\/\[PartialD]x\)"\ \
"\!\(\[PartialD]\/\[PartialD]z\)"\ \[CapitalDelta]x\ \[CapitalDelta]z + 
          2\ "\!\(\[PartialD]\/\[PartialD]y\)"\ \
"\!\(\[PartialD]\/\[PartialD]z\)"\ \[CapitalDelta]y\ \[CapitalDelta]z + 
          "\!\(\[PartialD]\/\[PartialD]z\)"\^2\ \[CapitalDelta]z\^2\)\),
      SequenceForm[ "  (\[CapitalDelta]x.\[Del]\!\(\()\^2\)\) = ", 
        Power[ 
          Plus[ 
            Times[ "\!\(\[PartialD]\/\[PartialD]x\)", \[CapitalDelta]x], 
            Times[ "\!\(\[PartialD]\/\[PartialD]y\)", \[CapitalDelta]y], 
            Times[ "\!\(\[PartialD]\/\[PartialD]z\)", \[CapitalDelta]z]], 2], 
        "\n = ", 
        Plus[ 
          Times[ 
            Power[ "\!\(\[PartialD]\/\[PartialD]x\)", 2], 
            Power[ \[CapitalDelta]x, 2]], 
          Times[ 
          2, "\!\(\[PartialD]\/\[PartialD]x\)", 
            "\!\(\[PartialD]\/\[PartialD]y\)", \[CapitalDelta]x, \
\[CapitalDelta]y], 
          Times[ 
            Power[ "\!\(\[PartialD]\/\[PartialD]y\)", 2], 
            Power[ \[CapitalDelta]y, 2]], 
          Times[ 
          2, "\!\(\[PartialD]\/\[PartialD]x\)", 
            "\!\(\[PartialD]\/\[PartialD]z\)", \[CapitalDelta]x, \
\[CapitalDelta]z], 
          Times[ 
          2, "\!\(\[PartialD]\/\[PartialD]y\)", 
            "\!\(\[PartialD]\/\[PartialD]z\)", \[CapitalDelta]y, \
\[CapitalDelta]z], 
          Times[ 
            Power[ "\!\(\[PartialD]\/\[PartialD]z\)", 2], 
            Power[ \[CapitalDelta]z, 2]]]],
      Editable->False]], "Print"],

Cell[BoxData[
    \("3."\)], "Print"],

Cell[BoxData[
    \("   Taylor-Entwicklung von \!\(e\^x\) im Punkt x = 0:"\)], "Print"],

Cell[BoxData[
    \("   \!\(e\^x\) = \!\(\[Sum]\+\(i = 0\)\%\[Infinity]\)\!\(\(\((e\^x)\)\^\
\((i)\)*\((x - 0)\)\^i\)\/\(i!\)\) \[TildeEqual] \!\(\[Sum]\+\(i = 0\)\%n\)\!\
\(\(\((e\^x)\)\^\((i)\)*\((x)\)\^i\)\/\(i!\)\) + \!\(\(\((e\^x)\)\^\((n + \
1)\)*x\^\(n + 1\)\)\/\(\((n + 1)\)!\)\) = \!\(T\_n\)(x)"\)], "Print"],

Cell[BoxData[
    \("   F\[UDoubleDot]r \!\(T\_n\)(1) gilt: e = \!\(e\^1\) \[TildeEqual] \!\
\(T\_n\)(1) = \!\(\[Sum]\+\(i = 0\)\%n\)\!\(1\/\(i!\)\) + \!\(R\_n\)"\)], \
"Print"],

Cell[BoxData[
    \("   mit \!\(R\_n\) = \!\(e\^\[Xi]\/\(\((n + 1)\)!\)\) und \[Xi] \
\[Epsilon] (0,1)"\)], "Print"],

Cell[BoxData[
    InterpretationBox[\("   \!\(R\_8\) = \!\(1\/\(9!\)\) = \
"\[InvisibleSpace]2.7557319223985893`*^-6\[InvisibleSpace]" < 5 * \
\!\(10\^\(-6\)\) f\[UDoubleDot]r \[Xi] = 0"\),
      SequenceForm[ 
      "   \!\(R\_8\) = \!\(1\/\(9!\)\) = ", .27557319223985893*^-5, 
        " < 5 * \!\(10\^\(-6\)\) f\[UDoubleDot]r \[Xi] = 0"],
      Editable->False]], "Print"],

Cell[BoxData[
    InterpretationBox[\("   \!\(R\_9\) = \!\(e\/\(10!\)\) = \
"\[InvisibleSpace]7.490856008760595`*^-7\[InvisibleSpace]" < 5 * \!\(10\^\(-6\
\)\) f\[UDoubleDot]r \[Xi] = 1"\),
      SequenceForm[ 
      "   \!\(R\_9\) = \!\(e\/\(10!\)\) = ", .74908560087605952*^-6, 
        " < 5 * \!\(10\^\(-6\)\) f\[UDoubleDot]r \[Xi] = 1"],
      Editable->False]], "Print"],

Cell[BoxData[
    InterpretationBox[\("   \!\(T\_7\)(1) = \
"\[InvisibleSpace]2.7182539682539682539`10.000000000000004\[InvisibleSpace]" \
; \[VerticalSeparator]\!\(T\_7\)(1) - e\[VerticalSeparator] = "\
\[InvisibleSpace]0.000027860205076724043`\),
      SequenceForm[ 
      "   \!\(T\_7\)(1) = ", 2.7182539682539682539`10.000000000000004, 
        " ; \[VerticalSeparator]\!\(T\_7\)(1) - e\[VerticalSeparator] = ", \
.000027860205076724043],
      Editable->False]], "Print"],

Cell[BoxData[
    InterpretationBox[\("   \!\(T\_8\)(1) = \
"\[InvisibleSpace]2.7182787698412698413`10.000000000000004\[InvisibleSpace]" \
; \[VerticalSeparator]\!\(T\_8\)(1) - e\[VerticalSeparator] = "\
\[InvisibleSpace]3.0586177750535626`*^-6\),
      SequenceForm[ 
      "   \!\(T\_8\)(1) = ", 2.7182787698412698413`10.000000000000004, 
        " ; \[VerticalSeparator]\!\(T\_8\)(1) - e\[VerticalSeparator] = ", \
.30586177750535626*^-5],
      Editable->False]], "Print"],

Cell[BoxData[
    InterpretationBox[\("   \!\(T\_9\)(1) = \
"\[InvisibleSpace]2.7182815255731922399`10.000000000000004\[InvisibleSpace]" \
; \[VerticalSeparator]\!\(T\_9\)(1) - e\[VerticalSeparator] = "\
\[InvisibleSpace]3.0288585284310443`*^-7\),
      SequenceForm[ 
      "   \!\(T\_9\)(1) = ", 2.7182815255731922399`10.000000000000004, 
        " ; \[VerticalSeparator]\!\(T\_9\)(1) - e\[VerticalSeparator] = ", \
.30288585284310443*^-6],
      Editable->False]], "Print"],

Cell[BoxData[
    \("   \!\(F\_n\) = (1+\!\(1\/n\)\!\(\()\^n\)\)"\)], "Print"],

Cell[BoxData[
    InterpretationBox[\("   \!\(F\_8\) = (1+\!\(1\/8\)\!\(\()\^8\)\) = "\
\[InvisibleSpace]2.565784513950348`\),
      SequenceForm[ 
      "   \!\(F\_8\) = (1+\!\(1\/8\)\!\(\()\^8\)\) = ", 2.5657845139503479],
      Editable->False]], "Print"],

Cell[BoxData[
    InterpretationBox[\("   \!\(F\_9\) = (1+\!\(1\/9\)\!\(\()\^9\)\) = "\
\[InvisibleSpace]2.581174791713197`\),
      SequenceForm[ 
      "   \!\(F\_9\) = (1+\!\(1\/9\)\!\(\()\^9\)\) = ", 2.5811747917131971],
      Editable->False]], "Print"],

Cell[BoxData[
    InterpretationBox[\("   Vergleiche: e \[TildeEqual] \
"\[InvisibleSpace]2.718281828459045235360287471352662497757247091737`37. \),
      SequenceForm[ 
      "   Vergleiche: e \[TildeEqual] ", 
        2.718281828459045235360287471352662497757247091737`37.],
      Editable->False]], "Print"],

Cell[BoxData[
    \("   Offenbar ist die Taylorentwicklung bei gleichem n genauer."\)], \
"Print"],

Cell[BoxData[
    \("   Ein Plot f\[UDoubleDot]r \!\(e\^x\), \!\(T\_5\)(x) und \
\!\(T\_9\)(x)"\)], "Print"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.5 0.0680272 0.206011 0.00103006 [
[.09184 .19351 -6 -9 ]
[.09184 .19351 6 0 ]
[.22789 .19351 -6 -9 ]
[.22789 .19351 6 0 ]
[.36395 .19351 -6 -9 ]
[.36395 .19351 6 0 ]
[.63605 .19351 -3 -9 ]
[.63605 .19351 3 0 ]
[.77211 .19351 -3 -9 ]
[.77211 .19351 3 0 ]
[.90816 .19351 -3 -9 ]
[.90816 .19351 3 0 ]
[.4875 0 -24 -4.5 ]
[.4875 0 0 4.5 ]
[.4875 .10301 -24 -4.5 ]
[.4875 .10301 0 4.5 ]
[.4875 .30902 -18 -4.5 ]
[.4875 .30902 0 4.5 ]
[.4875 .41202 -18 -4.5 ]
[.4875 .41202 0 4.5 ]
[.4875 .51503 -18 -4.5 ]
[.4875 .51503 0 4.5 ]
[.4875 .61803 -18 -4.5 ]
[.4875 .61803 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.09184 .20601 m
.09184 .21226 L
s
[(-6)] .09184 .19351 0 1 Mshowa
.22789 .20601 m
.22789 .21226 L
s
[(-4)] .22789 .19351 0 1 Mshowa
.36395 .20601 m
.36395 .21226 L
s
[(-2)] .36395 .19351 0 1 Mshowa
.63605 .20601 m
.63605 .21226 L
s
[(2)] .63605 .19351 0 1 Mshowa
.77211 .20601 m
.77211 .21226 L
s
[(4)] .77211 .19351 0 1 Mshowa
.90816 .20601 m
.90816 .21226 L
s
[(6)] .90816 .19351 0 1 Mshowa
.125 Mabswid
.12585 .20601 m
.12585 .20976 L
s
.15986 .20601 m
.15986 .20976 L
s
.19388 .20601 m
.19388 .20976 L
s
.2619 .20601 m
.2619 .20976 L
s
.29592 .20601 m
.29592 .20976 L
s
.32993 .20601 m
.32993 .20976 L
s
.39796 .20601 m
.39796 .20976 L
s
.43197 .20601 m
.43197 .20976 L
s
.46599 .20601 m
.46599 .20976 L
s
.53401 .20601 m
.53401 .20976 L
s
.56803 .20601 m
.56803 .20976 L
s
.60204 .20601 m
.60204 .20976 L
s
.67007 .20601 m
.67007 .20976 L
s
.70408 .20601 m
.70408 .20976 L
s
.7381 .20601 m
.7381 .20976 L
s
.80612 .20601 m
.80612 .20976 L
s
.84014 .20601 m
.84014 .20976 L
s
.87415 .20601 m
.87415 .20976 L
s
.05782 .20601 m
.05782 .20976 L
s
.02381 .20601 m
.02381 .20976 L
s
.94218 .20601 m
.94218 .20976 L
s
.97619 .20601 m
.97619 .20976 L
s
.25 Mabswid
0 .20601 m
1 .20601 L
s
.5 0 m
.50625 0 L
s
[(-200)] .4875 0 1 0 Mshowa
.5 .10301 m
.50625 .10301 L
s
[(-100)] .4875 .10301 1 0 Mshowa
.5 .30902 m
.50625 .30902 L
s
[(100)] .4875 .30902 1 0 Mshowa
.5 .41202 m
.50625 .41202 L
s
[(200)] .4875 .41202 1 0 Mshowa
.5 .51503 m
.50625 .51503 L
s
[(300)] .4875 .51503 1 0 Mshowa
.5 .61803 m
.50625 .61803 L
s
[(400)] .4875 .61803 1 0 Mshowa
.125 Mabswid
.5 .0206 m
.50375 .0206 L
s
.5 .0412 m
.50375 .0412 L
s
.5 .0618 m
.50375 .0618 L
s
.5 .0824 m
.50375 .0824 L
s
.5 .12361 m
.50375 .12361 L
s
.5 .14421 m
.50375 .14421 L
s
.5 .16481 m
.50375 .16481 L
s
.5 .18541 m
.50375 .18541 L
s
.5 .22661 m
.50375 .22661 L
s
.5 .24721 m
.50375 .24721 L
s
.5 .26781 m
.50375 .26781 L
s
.5 .28842 m
.50375 .28842 L
s
.5 .32962 m
.50375 .32962 L
s
.5 .35022 m
.50375 .35022 L
s
.5 .37082 m
.50375 .37082 L
s
.5 .39142 m
.50375 .39142 L
s
.5 .43262 m
.50375 .43262 L
s
.5 .45322 m
.50375 .45322 L
s
.5 .47383 m
.50375 .47383 L
s
.5 .49443 m
.50375 .49443 L
s
.5 .53563 m
.50375 .53563 L
s
.5 .55623 m
.50375 .55623 L
s
.5 .57683 m
.50375 .57683 L
s
.5 .59743 m
.50375 .59743 L
s
.25 Mabswid
.5 0 m
.5 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02381 .20601 m
.04262 .20601 L
.06244 .20601 L
.08255 .20601 L
.10458 .20601 L
.12415 .20602 L
.14509 .20602 L
.16639 .20602 L
.18653 .20602 L
.20651 .20603 L
.22495 .20603 L
.24367 .20604 L
.2643 .20604 L
.28371 .20605 L
.30459 .20607 L
.32572 .20609 L
.34581 .20612 L
.36562 .20615 L
.384 .2062 L
.40453 .20626 L
.42313 .20634 L
.44238 .20645 L
.4632 .20661 L
.48314 .20682 L
.5042 .20711 L
.52384 .20747 L
.54217 .20793 L
.56253 .20859 L
.58108 .2094 L
.60017 .2105 L
.62093 .21211 L
.6407 .21416 L
.66171 .21711 L
.68118 .22079 L
.69946 .22534 L
.71964 .23202 L
.73815 .24015 L
.75707 .2511 L
.77777 .26713 L
.79738 .28756 L
.81833 .31697 L
.83968 .35786 L
.85983 .41022 L
.87985 .48007 L
.8983 .56547 L
s
.8983 .56547 m
.90694 .61803 L
s
.02381 .12496 m
.04262 .14099 L
.06244 .155 L
.08426 .16749 L
.10458 .17678 L
.12414 .18392 L
.14264 .1893 L
.16305 .19396 L
.18163 .19722 L
.2016 .19989 L
.22004 .20174 L
.23877 .20312 L
.24954 .20374 L
.25939 .20421 L
.2788 .20491 L
.28951 .2052 L
.29968 .20542 L
.30927 .20558 L
.31949 .20573 L
.33787 .20591 L
.34816 .20599 L
.35929 .20606 L
.37946 .20615 L
.399 .20623 L
.42046 .20633 L
.44088 .20644 L
.45995 .20658 L
.4803 .20678 L
.49886 .20702 L
.51794 .20735 L
.5387 .20783 L
.55848 .20844 L
.57948 .20932 L
.59895 .21041 L
.61723 .21173 L
.63742 .21364 L
.65592 .2159 L
.67485 .21884 L
.69555 .22295 L
.71516 .22789 L
.73611 .23455 L
.75602 .24245 L
.7776 .2531 L
.81759 .27997 L
.83746 .29756 L
.8585 .3199 L
.89639 .37164 L
.93673 .44683 L
.97556 .54387 L
.97619 .54569 L
Mistroke
Mfstroke
.02381 .15769 m
.03279 .16576 L
.04262 .17319 L
.06244 .18457 L
.07298 .18906 L
.08426 .19291 L
.10458 .19793 L
.1148 .19973 L
.12589 .20127 L
.13636 .20241 L
.14603 .20324 L
.15505 .20385 L
.16475 .20438 L
.1754 .20482 L
.18538 .20513 L
.19548 .20538 L
.20651 .20557 L
.21693 .20571 L
.2266 .2058 L
.23717 .20588 L
.24712 .20593 L
.25606 .20597 L
.26573 .20599 L
.27524 .20602 L
.28567 .20603 L
.30673 .20606 L
.32788 .20609 L
.34716 .20612 L
.36714 .20616 L
.38607 .2062 L
.40598 .20627 L
.4244 .20635 L
.44306 .20646 L
.46366 .20662 L
.48301 .20681 L
.50387 .2071 L
.52391 .20748 L
.54501 .20801 L
.56475 .20868 L
.58311 .20951 L
.60357 .21073 L
.62216 .21222 L
.64134 .21424 L
.66214 .21718 L
.68202 .22096 L
.70306 .22637 L
.72263 .23313 L
.74095 .24145 L
.76123 .25364 L
.77977 .26834 L
Mistroke
.79879 .28804 L
.81953 .31644 L
.83924 .35216 L
.86023 .40241 L
.88168 .47075 L
.90186 .55538 L
Mfstroke
.90186 .55538 m
.91337 .61803 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
  ImageSize->{288, 177.938},
  ImageMargins->{{43, 0}, {0, 0}},
  ImageRegion->{{0, 1}, {0, 1}},
  ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg<PAVmbKF5d0`40004P0000/B000`400?l00000o`00003oo`3ooolQ
0?ooo`00o`3ooolQ0?ooo`00N`3oool4000000<0oooo0P0000040?ooo`800000UP3oool007/0oooo
00<000000?ooo`3oool00`3oool010000000oooo0?ooo`0000020?ooo`040000003oool0oooo0000
09D0oooo001l0?ooo`030000003oool0oooo0080oooo00@000000?ooo`3oool000000P3oool01000
0000oooo0?ooo`0000040?ooo`<00000SP3oool007D0oooo100000040?ooo`050000003oool0oooo
0?ooo`0000000P3oool010000000oooo0?ooo`0000020?ooo`030000003oool0oooo0080oooo00<0
00000?ooo`3oool0SP3oool007/0oooo00@000000?ooo`3oool000000P3oool010000000oooo0?oo
o`0000020?ooo`040000003oool0oooo000000@0oooo00<000000?ooo`3oool0SP3oool007`0oooo
0P0000040?ooo`800000103oool2000000D0oooo00<000000?ooo`3oool0SP3oool008l0oooo00<0
00000?ooo`3oool0SP3oool008l0oooo00<000000?ooo`3oool0SP3oool008l0oooo0P00002?0?oo
o`00S`3oool00`000000oooo0?ooo`2>0?ooo`00S`3oool00`000000oooo0?ooo`2>0?ooo`00S`3o
ool00`000000oooo0?ooo`2>0?ooo`00S`3oool00`000000oooo0?ooo`2>0?ooo`00S`3oool20000
08l0oooo002?0?ooo`030000003oool0oooo08h0oooo002?0?ooo`030000003oool0oooo08h0oooo
002?0?ooo`030000003oool0oooo08h0oooo002?0?ooo`030000003oool0oooo08h0oooo002?0?oo
o`030000003oool0oooo08h0oooo002?0?ooo`800000S`3oool008l0oooo00<000000?ooo`3oool0
SP3oool008l0oooo00<000000?ooo`3oool0SP3oool008l0oooo00<000000?ooo`3oool0SP3oool0
08l0oooo00<000000?ooo`3oool0SP3oool008l0oooo0P00002?0?ooo`00S`3oool00`000000oooo
0?ooo`2>0?ooo`00S`3oool00`000000oooo0?ooo`2>0?ooo`00S`3oool00`000000oooo0?ooo`2>
0?ooo`00N`3oool500000080oooo0P0000040?ooo`8000001@3oool00`000000oooo0?ooo`2>0?oo
o`00O@3oool01@000000oooo0?ooo`3oool000000080oooo00@000000?ooo`3oool000000P3oool0
0`000000oooo0?ooo`020?ooo`030000003oool0oooo08h0oooo001m0?ooo`050000003oool0oooo
0?ooo`0000000P3oool010000000oooo0?ooo`0000020?ooo`030000003oool0oooo0080oooo0`00
002>0?ooo`00M@3oool4000000@0oooo00D000000?ooo`3oool0oooo000000020?ooo`040000003o
ool0oooo00000080oooo00<000000?ooo`3oool00P3oool00`000000oooo0?ooo`2>0?ooo`00O@3o
ool01@000000oooo0?ooo`3oool000000080oooo00@000000?ooo`3oool000000P3oool00`000000
oooo0?ooo`020?ooo`030000003oool0oooo08h0oooo001l0?ooo`800000103oool2000000@0oooo
0P0000050?ooo`030000003oool0oooo08h0oooo002?0?ooo`030000003oool0oooo08h0oooo002?
0?ooo`030000003oool0oooo08h0oooo000>0?ooo`030000003oool0oooo07h0oooo0P00002?0?oo
o`003`3oool00`000000oooo0?ooo`1m0?ooo`030000003oool0oooo08h0oooo000@0?ooo`800000
O@3oool00`000000oooo0?ooo`2>0?ooo`004P3oool00`000000oooo0?ooo`1j0?ooo`030000003o
ool0oooo08h0oooo000C0?ooo`030000003oool0oooo07T0oooo00<000000?ooo`3oool0SP3oool0
01@0oooo00<000000?ooo`3oool0N03oool2000008l0oooo000E0?ooo`800000N03oool00`000000
oooo0?ooo`2>0?ooo`005`3oool00`000000oooo0?ooo`1e0?ooo`030000003oool0oooo08h0oooo
000H0?ooo`030000003oool0oooo07@0oooo00<000000?ooo`3oool0SP3oool000h0oooo00<00000
0?ooo`3oool0203oool2000007@0oooo00<000000?ooo`3oool0SP3oool000l0oooo00<000000?oo
o`3oool02@3oool00`000000oooo0?ooo`1a0?ooo`030000003oool0oooo08h0oooo000@0?ooo`03
0000003oool0oooo00T0oooo0P0000030?ooo`<00000903oool300000200oooo1000000P0?ooo`80
00008@3oool4000002<0oooo0`00000P0?ooo`<000008@3oool00140oooo0P00000;0?ooo`800000
00D0oooo0000003oool0oooo0000000T0?ooo`030000003oool0oooo01l0oooo00<000000?ooo`3o
ool08@3oool00`000000oooo0?ooo`0P0?ooo`030000003oool0oooo02D0oooo00<000000?ooo`3o
ool07`3oool010000000oooo0?ooo`00000P0?ooo`004`3oool00`000000oooo0?ooo`0:0?ooo`<0
000000<0oooo0000003oool0803oool500000240oooo00<000000?ooo`3oool0803oool00`000000
oooo0?ooo`0Q0?ooo`030000003oool0oooo0240oooo1@00000P0?ooo`040000003oool0oooo0000
0200oooo000D0?ooo`8000001@3oool400000080oooo1@00000J0?ooo`@000000P3oool010000000
oooo0?ooo`00000K0?ooo`@00000103oool00`000000oooo0?ooo`0O0?ooo`030000003oool0oooo
0280oooo00<000000?ooo`3oool0803oool010000000oooo0?ooo`00000Q0?ooo`<000008@3oool0
01H0oooo0P00000:0?ooo`040000003oool0oooo0?ooo`8000007`3oool00`000000oooo0000000Q
0?ooo`040000003oool0oooo00000200oooo00<000000?ooo`3oool0803oool010000000oooo0?oo
o`00000R0?ooo`030000003oool000000280oooo00<000000?ooo`3oool0803oool001P0oooo0P00
00080?ooo`<000000`3oool4000001`0oooo0P00000R0?ooo`8000008@3oool200000280oooo0P00
000T0?ooo`8000008P3oool300000200oooo000J0?ooo`<000003`3oool4000005l0oooo00<00000
0?ooo`3oool0SP3oool001d0oooo0`00000@0?ooo`800000G@3oool00`000000oooo0?ooo`2>0?oo
o`00803oool3000000l0oooo1000001I0?ooo`030000003oool0oooo08h0oooo000S0?ooo`D00000
3P3oool;000004h0oooo00<000000?ooo`3oool0SP3oool002P0oooo2`00000>0?ooo``00000@P3o
ool00`000000oooo0?ooo`2>0?ooo`001`3ooooo000001800000203oool000h0oooo00<000000?oo
o`3oool01P3oool00`000000oooo0?ooo`060?ooo`030000003oool0oooo00H0oooo00<000000?oo
o`3oool01`3oool00`000000oooo0?ooo`060?ooo`030000003oool0oooo00H0oooo00<000000?oo
o`3oool01P3oool00`000000oooo0?ooo`070?ooo`030000003oool0oooo00H0oooo00<000000?oo
o`3oool01P3oool00`000000oooo0?ooo`060?ooo`030000003oool0oooo00L0oooo00<000000?oo
o`3oool01P3oool00`000000oooo0?ooo`060?ooo`030000003oool0oooo00D0oooo5`0000060?oo
o`030000003oool0oooo00H0oooo00<000000?ooo`3oool01P3oool00`000000oooo0?ooo`070?oo
o`030000003oool0oooo00H0oooo00<000000?ooo`3oool01P3oool00`000000oooo0?ooo`060?oo
o`030000003oool0oooo00L0oooo00<000000?ooo`3oool01P3oool00`000000oooo0?ooo`060?oo
o`030000003oool0oooo00H0oooo00<000000?ooo`3oool03@3oool00200oooo00<000000?ooo`3o
ool08P3oool00`000000oooo0?ooo`0R0?ooo`030000003oool0oooo0280oooo00<000000?ooo`3o
ool06`3oool;00000240oooo00<000000?ooo`3oool08P3oool00`000000oooo0?ooo`0O0?ooo`00
S`3oool00`000000oooo0?ooo`0U0?ooo`L00000HP3oool008l0oooo00<000000?ooo`3oool0:P3o
ool7000005d0oooo002?0?ooo`030000003oool0oooo0300oooo1@00001I0?ooo`00S`3oool20000
03@0oooo1P00001E0?ooo`00S`3oool00`000000oooo0?ooo`0g0?ooo`D00000DP3oool008l0oooo
00<000000?ooo`3oool0>P3oool5000004l0oooo002?0?ooo`030000003oool0oooo03`0oooo1P00
001<0?ooo`00S`3oool00`000000oooo0?ooo`0n0?ooo`<0000000<0oooo000000000000BP3oool0
08l0oooo0P0000100?ooo`@0000000<0oooo000000000000B03oool008l0oooo00<000000?ooo`3o
ool0@@3oool300000080oooo0P0000160?ooo`00S`3oool00`000000oooo0?ooo`130?ooo`800000
0`3oool00`000000oooo0?ooo`130?ooo`00S`3oool00`000000oooo0?ooo`150?ooo`040000003o
ool0oooo0?ooo`800000@`3oool008l0oooo00<000000?ooo`3oool0AP3oool2000000<0oooo00<0
00000?ooo`3oool0@03oool008l0oooo00<000000?ooo`3oool0A`3oool2000000<0oooo0P000010
0?ooo`00S`3oool2000004T0oooo0P0000040?ooo`800000?P3oool008l0oooo00<000000?ooo`3o
ool0B@3oool2000000D0oooo00<000000?ooo`3oool0>`3oool008l0oooo00<000000?ooo`3oool0
BP3oool2000000D0oooo0P00000k0?ooo`00S`3oool00`000000oooo0?ooo`1;0?ooo`8000001P3o
ool00`000000oooo0?ooo`0h0?ooo`00S`3oool00`000000oooo0?ooo`1=0?ooo`030000003oool0
oooo00@0oooo00<000000?ooo`3oool0=`3oool008l0oooo0P00001?0?ooo`030000003oool0oooo
00@0oooo00<000000?ooo`3oool0=P3oool008l0oooo00<000000?ooo`3oool0C`3oool00`000000
oooo0?ooo`040?ooo`800000=P3oool008l0oooo00<000000?ooo`3oool0C`3oool00`000000oooo
0?ooo`060?ooo`030000003oool0oooo03<0oooo002?0?ooo`030000003oool0oooo0500oooo00<0
00000?ooo`3oool01P3oool00`000000oooo0?ooo`0b0?ooo`00N`3oool500000080oooo0P000004
0?ooo`8000001@3oool00`000000oooo0?ooo`1A0?ooo`030000003oool0oooo00H0oooo00<00000
0?ooo`3oool0<@3oool007d0oooo00D000000?ooo`3oool0oooo000000020?ooo`040000003oool0
oooo00000080oooo00<000000?ooo`3oool00P3oool00`000000oooo0?ooo`1B0?ooo`030000003o
ool0oooo00H0oooo00<000000?ooo`3oool0<03oool007d0oooo00D000000?ooo`3oool0oooo0000
00020?ooo`040000003oool0oooo00000080oooo00<000000?ooo`3oool00P3oool300000580oooo
00<000000?ooo`3oool01P3oool00`000000oooo0?ooo`0`0?ooo`00O@3oool01@000000oooo0?oo
o`3oool000000080oooo00@000000?ooo`3oool000000P3oool00`000000oooo0?ooo`020?ooo`03
0000003oool0oooo05<0oooo00<000000?ooo`3oool01P3oool00`000000oooo0?ooo`0_0?ooo`00
O@3oool01@000000oooo0?ooo`3oool000000080oooo00@000000?ooo`3oool000000P3oool00`00
0000oooo0?ooo`020?ooo`030000003oool0oooo05@0oooo00<000000?ooo`3oool01P3oool00`00
0000oooo0?ooo`0^0?ooo`00O03oool2000000@0oooo0P0000040?ooo`8000001@3oool00`000000
oooo0?ooo`1D0?ooo`030000003oool0oooo00L0oooo00<000000?ooo`3oool0;@3oool008l0oooo
00<000000?ooo`3oool0E@3oool00`000000oooo0?ooo`070?ooo`030000003oool0oooo02`0oooo
002?0?ooo`030000003oool0oooo05D0oooo00<000000?ooo`3oool0203oool00`000000oooo0?oo
o`0[0?ooo`00S`3oool2000005L0oooo00<000000?ooo`3oool01`3oool00`000000oooo0?ooo`0[
0?ooo`00S`3oool00`000000oooo0?ooo`1F0?ooo`030000003oool0oooo00P0oooo00<000000?oo
o`3oool0:P3oool008l0oooo00<000000?ooo`3oool0E`3oool00`000000oooo0?ooo`080?ooo`03
0000003oool0oooo02T0oooo002?0?ooo`030000003oool0oooo05L0oooo00<000000?ooo`3oool0
2@3oool00`000000oooo0?ooo`0X0?ooo`00S`3oool00`000000oooo0?ooo`1H0?ooo`030000003o
ool0oooo00P0oooo00<000000?ooo`3oool0:03oool008l0oooo0P00001I0?ooo`030000003oool0
oooo00T0oooo00<000000?ooo`3oool09`3oool008l0oooo00<000000?ooo`3oool0F@3oool00`00
0000oooo0?ooo`090?ooo`030000003oool0oooo02H0oooo002?0?ooo`030000003oool0oooo05T0
oooo00<000000?ooo`3oool02P3oool00`000000oooo0?ooo`0U0?ooo`00S`3oool00`000000oooo
0?ooo`1I0?ooo`800000303oool00`000000oooo0?ooo`0T0?ooo`00S`3oool00`000000oooo0?oo
o`1J0?ooo`030000003oool0oooo00X0oooo00<000000?ooo`3oool0903oool008l0oooo00<00000
0?ooo`3oool0FP3oool2000000`0oooo00<000000?ooo`3oool08`3oool008l0oooo0P00001L0?oo
o`030000003oool0oooo00/0oooo00<000000?ooo`3oool08P3oool008l0oooo00<000000?ooo`3o
ool0F`3oool2000000d0oooo00<000000?ooo`3oool08@3oool008l0oooo00<000000?ooo`3oool0
F`3oool2000000d0oooo00<000000?ooo`3oool08@3oool008l0oooo00<000000?ooo`3oool0G03o
ool2000000d0oooo00<000000?ooo`3oool0803oool008l0oooo00<000000?ooo`3oool0G03oool2
000000d0oooo00<000000?ooo`3oool0803oool008l0oooo0P00001N0?ooo`8000003@3oool00`00
0000oooo0?ooo`0O0?ooo`00S`3oool00`000000oooo0?ooo`1M0?ooo`8000003@3oool00`000000
oooo0?ooo`0O0?ooo`00S`3oool00`000000oooo0?ooo`1M0?ooo`030000003oool0000000d0oooo
00<000000?ooo`3oool07P3oool008l0oooo00<000000?ooo`3oool0GP3oool2000000d0oooo00<0
00000?ooo`3oool07P3oool007/0oooo100000030?ooo`800000103oool2000000D0oooo00<00000
0?ooo`3oool0GP3oool2000000h0oooo00<000000?ooo`3oool07@3oool007/0oooo00<000000?oo
o`3oool00`3oool010000000oooo0?ooo`0000020?ooo`040000003oool0oooo000000@0oooo00<0
00000?ooo`3oool0G`3oool2000000d0oooo00<000000?ooo`3oool07@3oool007`0oooo00<00000
0?ooo`3oool00P3oool010000000oooo0?ooo`0000020?ooo`040000003oool0oooo000000@0oooo
0`00001O0?ooo`8000003P3oool00`000000oooo0?ooo`0L0?ooo`00O@3oool01@000000oooo0?oo
o`3oool000000080oooo00@000000?ooo`3oool000000P3oool00`000000oooo0?ooo`020?ooo`03
0000003oool0oooo05l0oooo0P00000?0?ooo`030000003oool0oooo01/0oooo001k0?ooo`040000
003oool0oooo00000080oooo00@000000?ooo`3oool000000P3oool010000000oooo0?ooo`000004
0?ooo`030000003oool0oooo0600oooo0P00000>0?ooo`030000003oool0oooo01/0oooo001l0?oo
o`800000103oool2000000@0oooo0P0000050?ooo`030000003oool0oooo0600oooo0P00000?0?oo
o`030000003oool0oooo01X0oooo002?0?ooo`030000003oool0oooo0600oooo0P00000?0?ooo`03
0000003oool0oooo01X0oooo002?0?ooo`030000003oool0oooo0600oooo00<000000?ooo`000000
3`3oool00`000000oooo0?ooo`0I0?ooo`00S`3oool200000680oooo0P00000?0?ooo`030000003o
ool0oooo01T0oooo002?0?ooo`030000003oool0oooo0640oooo0P00000@0?ooo`030000003oool0
oooo01P0oooo002?0?ooo`030000003oool0oooo0640oooo0P00000@0?ooo`030000003oool0oooo
01P0oooo002?0?ooo`030000003oool0oooo0640oooo00<000000?ooo`000000403oool00`000000
oooo0?ooo`0G0?ooo`00S`3oool00`000000oooo0?ooo`1R0?ooo`800000403oool00`000000oooo
0?ooo`0G0?ooo`00S`3oool2000006<0oooo0P00000A0?ooo`030000003oool0oooo01H0oooo002?
0?ooo`030000003oool0oooo0680oooo00<000000?ooo`000000403oool00`000000oooo0?ooo`0F
0?ooo`00S`3oool00`000000oooo0?ooo`1R0?ooo`030000003oool000000100oooo00<000000?oo
o`3oool05P3oool008l0oooo00<000000?ooo`3oool0H`3oool200000140oooo00<000000?ooo`3o
ool05@3oool008l0oooo00<000000?ooo`3oool0H`3oool00`000000oooo0000000@0?ooo`030000
003oool0oooo01D0oooo002?0?ooo`030000003oool0oooo06<0oooo00<000000?ooo`0000004@3o
ool00`000000oooo0?ooo`0D0?ooo`00S`3oool2000006@0oooo00<000000?ooo`0000004@3oool0
0`000000oooo0?ooo`0D0?ooo`00S`3oool00`000000oooo0?ooo`1T0?ooo`8000004@3oool00`00
0000oooo0?ooo`0D0?ooo`00S`3oool00`000000oooo0?ooo`1T0?ooo`030000003oool000000140
oooo00<000000?ooo`3oool04`3oool008l0oooo00<000000?ooo`3oool0I03oool00`000000oooo
0000000A0?ooo`030000003oool0oooo01<0oooo002?0?ooo`030000003oool0oooo06@0oooo00<0
00000?ooo`0000004@3oool00`000000oooo0?ooo`0C0?ooo`00S`3oool2000006H0oooo0P00000B
0?ooo`030000003oool0oooo0180oooo002?0?ooo`030000003oool0oooo06D0oooo00<000000?oo
o`0000004@3oool00`000000oooo0?ooo`0B0?ooo`00S`3oool00`000000oooo0?ooo`1U0?ooo`03
0000003oool000000180oooo00<000000?ooo`3oool04@3oool008l0oooo00<000000?ooo`3oool0
I@3oool00`000000oooo0000000B0?ooo`030000003oool0oooo0140oooo001l0?ooo`800000103o
ool2000000@0oooo0P0000050?ooo`030000003oool0oooo06H0oooo0P00000B0?ooo`030000003o
ool0oooo0140oooo001k0?ooo`040000003oool0oooo00000080oooo00@000000?ooo`3oool00000
0P3oool010000000oooo0?ooo`0000040?ooo`030000003oool0oooo06H0oooo0P00000C0?ooo`03
0000003oool0oooo0100oooo001m0?ooo`050000003oool0oooo0?ooo`0000000P3oool010000000
oooo0?ooo`0000020?ooo`030000003oool0oooo0080oooo0`00001V0?ooo`030000003oool00000
0180oooo00<000000?ooo`3oool0403oool007h0oooo00@000000?ooo`3oool000000P3oool01000
0000oooo0?ooo`0000020?ooo`030000003oool0oooo0080oooo00<000000?ooo`3oool0IP3oool0
0`000000oooo0000000B0?ooo`030000003oool0oooo0100oooo001k0?ooo`040000003oool0oooo
00000080oooo00@000000?ooo`3oool000000P3oool010000000oooo0?ooo`0000040?ooo`030000
003oool0oooo06H0oooo00<000000?ooo`0000004`3oool00`000000oooo0?ooo`0?0?ooo`00O03o
ool2000000@0oooo0P0000040?ooo`8000001@3oool00`000000oooo0?ooo`1W0?ooo`8000004`3o
ool00`000000oooo0?ooo`0?0?ooo`00S`3oool00`000000oooo0?ooo`1W0?ooo`800000503oool0
0`000000oooo0?ooo`0>0?ooo`00S`3oool00`000000oooo0?ooo`1W0?ooo`030000003oool00000
01<0oooo00<000000?ooo`3oool03P3oool008l0oooo0P00001X0?ooo`030000003oool0000001<0
oooo00<000000?ooo`3oool03P3oool008l0oooo00<000000?ooo`3oool0I`3oool00`000000oooo
0000000D0?ooo`030000003oool0oooo00d0oooo002?0?ooo`030000003oool0oooo06P0oooo0P00
000D0?ooo`030000003oool0oooo00d0oooo002?0?ooo`030000003oool0oooo06P0oooo00<00000
0?ooo`0000008`3oool008l0oooo00<000000?ooo`3oool0J03oool00`000000oooo0000000S0?oo
o`00S`3oool2000006T0oooo00<000000?ooo`0000008`3oool008l0oooo00<000000?ooo`3oool0
J@3oool2000002<0oooo002?0?ooo`030000003oool0oooo06T0oooo0P00000S0?ooo`00S`3oool0
0`000000oooo0?ooo`1Y0?ooo`030000003oool000000280oooo002?0?ooo`030000003oool0oooo
06T0oooo00<000000?ooo`0000008P3oool008l0oooo00<000000?ooo`3oool0J@3oool00`000000
oooo0000000R0?ooo`00S`3oool2000006/0oooo0P00000R0?ooo`00S`3oool00`000000oooo0?oo
o`1Z0?ooo`8000008P3oool008l0oooo00<000000?ooo`3oool0JP3oool200000280oooo002?0?oo
o`030000003oool0oooo06X0oooo00<000000?ooo`0000008@3oool008l0oooo00<000000?ooo`3o
ool0JP3oool00`000000oooo0000000Q0?ooo`00S`3oool2000006`0oooo0P00000Q0?ooo`00S`3o
ool00`000000oooo0?ooo`1[0?ooo`8000008@3oool008l0oooo00<000000?ooo`3oool0J`3oool2
00000240oooo002?0?ooo`030000003oool0oooo06/0oooo0P00000Q0?ooo`00O@3oool300000080
oooo0P0000040?ooo`8000001@3oool00`000000oooo0?ooo`1/0?ooo`800000803oool007h0oooo
00@000000?ooo`3oool000000P3oool010000000oooo0?ooo`0000020?ooo`030000003oool0oooo
0080oooo00<000000?ooo`3oool0K03oool200000200oooo001k0?ooo`D0000000D0oooo0000003o
ool0oooo000000020?ooo`040000003oool0oooo000000@0oooo0`00001/0?ooo`800000803oool0
07/0oooo00@000000?ooo`3oool000000P3oool010000000oooo0?ooo`0000020?ooo`040000003o
ool0oooo000009D0oooo001l0?ooo`030000003oool000000080oooo00@000000?ooo`3oool00000
0P3oool010000000oooo0?ooo`00002E0?ooo`00O@3oool2000000<0oooo0P0000040?ooo`800000
UP3oool00?l0oooo8@3oool00001\
\>"],
  ImageRangeCache->{{{91.5625, 320.938}, {236.5, 95.1875}} -> {-13.9719, \
209.747, 0.0541941, 3.57909}}],

Cell[BoxData[
    \("4."\)], "Print"],

Cell[BoxData[
    \(" a)"\)], "Print"],

Cell[BoxData[
    \("   \!\(lim\+\(\((x, y)\) \[Rule] \
0\)\)(\!\(x\^2\)+\!\(y\^2\))*sin(\!\(1\/\(x\^2 + y\^2\)\)) = 0"\)], "Print"],

Cell[BoxData[
    \("   denn:"\)], "Print"],

Cell[BoxData[
    \("   Der Wert von sin(z) ist endlich f\[UDoubleDot]r z->\[Infinity]. \
Wertebereich ist [-1,1]"\)], "Print"],

Cell[BoxData[
    \("   F\[UDoubleDot]r (\!\(x\^2\)+\!\(y\^2\)) hingegen gilt: (\!\(x\^2\)+\
\!\(y\^2\)) = 0 f\[UDoubleDot]r x = y = 0"\)], "Print"],

Cell[BoxData[
    \(" b)"\)], "Print"],

Cell[BoxData[
    InterpretationBox[\("   \
\!\(\[PartialD]\/\[PartialD]x\)(\!\(x\^2\)+\!\(y\^2\))*sin(\!\(1\/\(x\^2 + \
y\^2\)\)) = "\[InvisibleSpace]\(\(-\(\(2\ x\ Cos[
                    1\/\(x\^2 + y\^2\)]\)\/\(x\^2 + y\^2\)\)\) + 
          2\ x\ Sin[1\/\(x\^2 + y\^2\)]\)\),
      SequenceForm[ 
      "   \!\(\[PartialD]\/\[PartialD]x\)(\!\(x\^2\)+\!\(y\^2\))*sin(\!\(1\/\(\
x\^2 + y\^2\)\)) = ", 
        Plus[ 
          Times[ -2, x, 
            Power[ 
              Plus[ 
                Power[ x, 2], 
                Power[ y, 2]], -1], 
            Cos[ 
              Power[ 
                Plus[ 
                  Power[ x, 2], 
                  Power[ y, 2]], -1]]], 
          Times[ 2, x, 
            Sin[ 
              Power[ 
                Plus[ 
                  Power[ x, 2], 
                  Power[ y, 2]], -1]]]]],
      Editable->False]], "Print"],

Cell[BoxData[
    \("   2 * x * sin(\!\(1\/\(x\^2 + y\^2\)\)) = 0 f\[UDoubleDot]r x->0"\)], \
"Print"],

Cell[BoxData[
    \("   \!\(\(\(2\)\(\\ \)\(x\)\(\\ \)\)\/\(x\^2 + y\^2\)\) * \
cos(\!\(1\/\(x\^2 + y\^2\)\)) = \!\(2\/\(x + y\^2\/x\)\) * cos(\!\(1\/\(x\^2 \
+ y\^2\)\)) = \[PlusMinus]\[Infinity] \[NotEqual] 0 f\[UDoubleDot]r x->0"\)], \
"Print"],

Cell[BoxData[
    \("   \!\(\[PartialD]\/\[PartialD]x\)f(0,0) = \!\(\(\(lim\)\(\\ \)\)\+\(h \
\[Rule] 0\)\)\!\(\(f \((h, 0)\) - f \((0, 0)\)\)\/h\) = \!\(lim\+\(h \[Rule] \
0\)\) \!\(h\^2\)*sin(\!\(1\/h\^2\)) = 0"\)], "Print"],

Cell[BoxData[
    \(" c)"\)], "Print"],

Cell[BoxData[
    \("   \!\(lim\+\(\((x, y)\) \[Rule] 0\)\) \!\(\(f \((x, \
y)\)\)\/\(\(|\)\((x, y)\)\(|\)\)\) = \!\(lim\+\(\((x, y)\) \[Rule] 0\)\) \!\(\
\(\((x\^2 + y\^2)\)*sin \((1\/\(x\^2 + y\^2\))\)\)\/\@\(x\^2 + y\^2\)\) "\)], \
"Print"],

Cell[BoxData[
    \("                    =  \!\(lim\+\(\((x, y)\) \[Rule] 0\)\) \
\!\(\@\(x\^2 + y\^2\)\) * sin(\!\(1\/\(x\^2 + y\^2\)\)) = 0"\)], "Print"]
}, Open  ]]
},
FrontEndVersion->"5.0 for Microsoft Windows",
ScreenRectangle->{{0, 1600}, {0, 1127}},
WindowSize->{1091, 1007},
WindowMargins->{{112, Automatic}, {0, Automatic}},
PrintingCopies->1,
PrintingPageRange->{3, 4}
]

(*******************************************************************
Cached data follows.  If you edit this Notebook file directly, not
using Mathematica, you must remove the line containing CacheID at
the top of  the file.  The cache data will then be recreated when
you save this file from within Mathematica.
*******************************************************************)

(*CellTagsOutline
CellTagsIndex->{}
*)

(*CellTagsIndex
CellTagsIndex->{}
*)

(*NotebookFileOutline
Notebook[{

Cell[CellGroupData[{
Cell[1776, 53, 7865, 128, 1879, "Input"],
Cell[9644, 183, 130, 3, 25, "Print",
  PageBreakAbove->True],
Cell[9777, 188, 37, 1, 25, "Print"],
Cell[9817, 191, 38, 1, 25, "Print"],
Cell[9858, 194, 1754, 52, 71, "Print"],
Cell[11615, 248, 38, 1, 25, "Print"],
Cell[11656, 251, 967, 29, 44, "Print"],
Cell[12626, 282, 455, 14, 44, "Print"],
Cell[13084, 298, 37, 1, 25, "Print"],
Cell[13124, 301, 38, 1, 25, "Print"],
Cell[13165, 304, 1931, 37, 79, "Print"],
Cell[15099, 343, 38, 1, 25, "Print"],
Cell[15140, 346, 2101, 43, 79, "Print"],
Cell[17244, 391, 37, 1, 25, "Print"],
Cell[17284, 394, 87, 1, 25, "Print"],
Cell[17374, 397, 317, 4, 46, "Print"],
Cell[17694, 403, 177, 3, 45, "Print"],
Cell[17874, 408, 116, 2, 43, "Print"],
Cell[17993, 412, 375, 7, 38, "Print"],
Cell[18371, 421, 376, 7, 36, "Print"],
Cell[18750, 430, 477, 9, 25, "Print"],
Cell[19230, 441, 476, 9, 25, "Print"],
Cell[19709, 452, 476, 9, 25, "Print"],
Cell[20188, 463, 78, 1, 38, "Print"],
Cell[20269, 466, 258, 5, 38, "Print"],
Cell[20530, 473, 258, 5, 38, "Print"],
Cell[20791, 480, 310, 6, 25, "Print"],
Cell[21104, 488, 98, 2, 25, "Print"],
Cell[21205, 492, 108, 2, 25, "Print"],
Cell[21316, 496, 21471, 618, 148, 5962, 422, "GraphicsData", "PostScript", \
"Graphics"],
Cell[42790, 1116, 37, 1, 20, "Print"],
Cell[42830, 1119, 38, 1, 20, "Print"],
Cell[42871, 1122, 132, 2, 26, "Print"],
Cell[43006, 1126, 43, 1, 20, "Print"],
Cell[43052, 1129, 127, 2, 20, "Print"],
Cell[43182, 1133, 148, 2, 20, "Print"],
Cell[43333, 1137, 38, 1, 20, "Print"],
Cell[43374, 1140, 887, 26, 30, "Print"],
Cell[44264, 1168, 102, 2, 25, "Print"],
Cell[44369, 1172, 247, 4, 29, "Print"],
Cell[44619, 1178, 226, 3, 25, "Print"],
Cell[44848, 1183, 38, 1, 20, "Print"],
Cell[44889, 1186, 243, 4, 31, "Print"],
Cell[45135, 1192, 155, 2, 26, "Print"]
}, Open  ]]
}
]
*)



(*******************************************************************
End of Mathematica Notebook file.
*******************************************************************)