Solutions

In[49]:=

(*1*)Clear[x] ; A = {{-2, 2.84}, {-1, 0.86}, {0, 1.09}, {1, 2.51}, {2, 7.17} ...  DisplayFunctionIdentity] ; Show[%, %%, DisplayFunction$DisplayFunction]

[Graphics:../HTMLFiles/ex03_solutions_82.gif]

Out[54]=

⁃Graphics⁃

Just give the fitting functions as the second argument for Fit.

In[55]:=

(*2*)A = {{0, 1.04}, {2, 0.44}, {4, -1.51}, {6, 0.6}, {8, 0.78}, {10, -1.45}} ; > ...  DisplayFunctionIdentity] ; Show[%, %%, DisplayFunction$DisplayFunction]

[Graphics:../HTMLFiles/ex03_solutions_85.gif]

Out[59]=

⁃Graphics⁃


Created by Mathematica  (April 10, 2007) Valid XHTML 1.1!