Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- p[x_,a_] := PDF[NormalDistribution[0,a], x];
- a[x_] := Exp[x];
- u[x_] := (a[x]/(a[x] + 1));
- wa[x_, t_] := ((t - 3)*a[x])^(u[x] + .02442);
- Sum[p[x, .5]*wa[x, t], {x, 0, Infinity}, {t, 0, 50}]
Add Comment
Please, Sign In to add comment
