f(x)=-x^3 +3x に対して

                                                 2 RowBox[{Cell[TextData[Cell[BoxData[f ' (x) = -3 x  + 3 ]]]], ,, Cell[TextData[Cell[BoxData[f'' (x) = -6x ]]]]}]

だから

Cell[TextData[{Cell[BoxData[f(1) = 2, f ' (1) = 0 ]], , f''(1)=-6 }]]

よって

y = F_2(x) = (f'' (1))/2 ! (x - 1)^2 + (f ' (1))/1 ! (x - 1) + f(1)  
 = -3 (x - 1)^2 + 2


Created by Mathematica  (May 17, 2005) Valid XHTML 1.1!