Re: Massage Package

["Udo und Susanne Krause" <su.krause@XXXXXXX.ch>]

Hallo Wolfgang,

> Hat es auch Code zu diesem Beispiel?

Vielen Dank für Ihren Code; er funktioniert für Funktionen von x und  
liefert sonst, wenn das Argument nicht "x" heisst, einen leeren Plot[] ab.  
Eine sichtliche Vereinfachung mit beliebigem Argumentnamen wäre

In[10]:= Clear[drawIt, f, v]
drawIt[f_, v_, x0_, dx_, n_] :=
 Block[{x, t, k, },
  Plot[Evaluate[{f,
     Sum[(D[(f /. v -> t), {t, k}] /. t -> x0) (t - x0)^k/k!, {k, 0,
        n}] /. t -> v}], {v, -Abs[x0] - dx, Abs[x0] + dx},
   AxesLabel -> {ToString[var], "y"},
   PlotLabel ->
    "Taylorpolynom von f(" <> ToString[v] <> ") = " <>
     ToString[ f // StandardForm],
   Ticks -> {{{x0, "\!\(\*SubscriptBox[\"x\", \"0\"]\)"}}, None}]]

In[11]:= Manipulate[
 Dynamic[drawIt[f, var, x0, dx, n]],
 Row[{InputField[Dynamic[f]], InputField[Dynamic[var]]}],
 {{x0, 1 , "Stelle x0"}, -5, 5},
 {{n, 0 , "Polynomgrad"}, 0, 100, 1},
 {{dx, 5, "Intervallbreite"}, 0.01, 20}
 ]

Gruss
Udo.