Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- f[z_] := NIntegrate[x^5*(x^2 - 5/2)*Exp[-x^2]*Exp[-45^{1/2}*Abs[z]/x^4], {x, 0, Infinity}];
- f[z_?NumericQ]:=NIntegrate[x^5*(x^2-5/2)*Exp[-x^2]*Exp[-45^{1/2}*Abs[z]/x^4],{x,0,Infinity}];
- Plot[ f[z],{z,0,10}]
Add Comment
Please, Sign In to add comment