Guest User

Untitled

a guest
Jul 17th, 2018
72
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.47 KB | None | 0 0
  1. {x,y}= {
  2. {10^-6,10^-15},
  3. {10^-5,10^-14},
  4. {10^-4,10^-14},
  5. {10^-3,10^-13},
  6. {10^-2,10^-11},
  7. {10^-1,10^-9},
  8. {1,10^-8}
  9. }
  10.  
  11. xy = {{10^-6, 10^-15}, {10^-5, 10^-14}, {10^-4, 10^-14}, {10^-3,
  12. 10^-13}, {10^-2, 10^-11}, {10^-1, 10^-9}, {1, 10^-8}};
  13.  
  14. ClearAll[intf]
  15. intf = Interpolation[xy, InterpolationOrder -> 3];
  16. Plot[intf[t], {t, 0, 1}]
  17.  
  18. ClearAll[fitf]
  19. fitf[x_] := Evaluate@Fit[xy, {1, x, x^2, x^3}, {x}]
  20. Plot[fitf[x], {x, 0, 1}]
Add Comment
Please, Sign In to add comment