Advertisement
Guest User

Untitled

a guest
Jul 23rd, 2016
44
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.40 KB | None | 0 0
  1. LTNOspline = Interpolation[DiscreateLT, Method -> "Hermite"]
  2.  
  3. DiscreateLT =
  4. Flatten[Table[{{sx, sy}, Int[sx, sy]}, {sx, sxmin, sxmax,
  5. sxInc}, {sy, symin, symax, syInc}], 1];
  6.  
  7. Int[sx_, sy_] :=
  8. NIntegrate[I1spline[x] Exp[- (sx + I sy) x], {x, 0, xmaxLP}];
  9.  
  10. LTNOspline = Interpolation[DiscreateLT, Method -> "Hermite"]
  11.  
  12. LTNOspline = Interpolation[DiscreateLT, Method -> "Spline"]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement