Ad Beispiel 3

A. Windisch, 20. November 2010

f[x_]:=-x^3-2 x^2+4x; (*Funktion ist einer Kurvendiskussion zu unterziehen*)

Manipulate[Show[{Plot[f[x],{x,-5,5},PlotRange->{{-5,5},{-9,9}},PlotStyle->Directive[Thickness[0.005]],PlotLabel->{Row[{Style["a",Italic,15]," = ",Style[a,15]    }],Row[{Style["  f[a]",Italic,15]," = ",Style[f[a],15] }],Row[{Style["  f' [a]",Italic,15]," = ",Style[f'[a],15]    }],Row[{Style["  f'' [a]",Italic,15]," = ",Style[f''[a],15]}]}],Plot[f'[a](x-a)+f[a],{x,-5,5},PlotStyle->Directive[Thickness[0.005],Red]]}],{a,-5,5}]