Solution

data2 = {{220, .642}, {250, .759}, {275, .861}, {300, .952}, {325, 1.025}, {350, 1.085}, {380, 1.142}, {400, 1.177}}

{{220, 0.642}, {250, 0.759}, {275, 0.861}, {300, 0.952}, {325, 1.025}, {350, 1.085}, {380, 1.142}, {400, 1.177}}

Fig2a = ListPlot[data2, PlotRange-> {{150, 500}, {0, 1.5}}, Frame→True, Prolog→AbsolutePointSize[6], PlotStyle→Hue[.2]] ;

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

nlfex2 = NonlinearFit[data2, a + b x + c/x^2, {x}, {{a, 1}, {b, 1}, {c, 1}}, MaxIterations→1000, Method→Automatic]

0.800529 - 21991.2/x^2 + 0.00130304 x

cvbutane[x_] := 0.800529 - 21991.2/x^2 + 0.00130304 x

Fig2 = Plot[cvbutane[x], {x, 150, 500}]

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

-Graphics -

Show[{Fig2, Fig2a}, Prolog→AbsolutePointSize[14]]

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

-Graphics -

Created by Mathematica  (September 7, 2006) Valid XHTML 1.1!