Advertisement
Guest User

Untitled

a guest
Nov 26th, 2014
160
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.46 KB | None | 0 0
  1. data = {{0.3, 3}, {0.4, 2.25}, {0.5, 1.8}, {0.6, 1.5}, {0.7, 1.3}, {0.8, 1.2}, {0.9, 1.15},
  2. {1, 1.13}, {1.1, 1.12}, {1.2, 1.11}, {1.4, 1.09}, {1.6, 1.07}, {1.8, 1.05}, {2, 1.03}};
  3. L0 = ListPlot[data, Frame -> True, Axes -> False, Joined -> True,
  4. Mesh -> All, PlotRange -> {{0.28, 2.02}, {0.98, 3.04}},
  5. ImageSize -> 550]
  6.  
  7. nlm = Normal[NonlinearModelFit[data, a + b/(c*x^2), {a, b, c}, x]];
  8. P0 = Plot[nlm, {x, 0.3, 2}, PlotStyle -> Red];
  9. Show[{L0, P0}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement