Advertisement
Guest User

Untitled

a guest
Feb 26th, 2017
85
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.22 KB | None | 0 0
  1. G = Exp[-(x-y)^2/(t_1-t_2)]/(x+y+t_1+t_2)
  2. i1[t1_?NumericQ, t2_ ?NumericQ] := i1[t1, t2] = NIntegrate[G, {x,-∞, ∞}, {y, -∞,∞}]
  3. i2[t1_ ?NumericQ]:= i2[t1] = NIntegrate[i1[t1,t2],{t2,0,t1}]
  4. NIntegrate[i2[t1],{t1,0,∞}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement