daily pastebin goal
1%
SHARE
TWEET

Untitled

a guest Nov 22nd, 2017 50 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. For[i = 1, i <= 10, i++, data = {{i,  4*Pi/9/Log[i/0.09]}}]
  2.    
  3. {{10, 0.296413}}
  4.    
  5. cubicsp1 = Interpolation[data]
  6.    
  7. dat = {#, 4*Pi/9/Log[#/0.09]} & /@ Range[1, 10, 0.1];
  8. f = Interpolation[dat, InterpolationOrder -> 3];
  9. {f[2.2], f[2.211], f[5.03]}
RAW Paste Data
Top