Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Exp[-a^2](Erfi[a]-Log[-1/a]-Log[a])/a
- f[d_]:=(1/(2 Sqrt[(-2562890621 -
- 112500 I) [Pi]]))(-((2 - 28125 I) +
- Sqrt[-2562890621 - 112500 I] + 4500 I Sqrt[70]) E^(-(1/
- 16) ((-2 + 50629 I) + Sqrt[-2562890621 - 112500 I] -
- 4 d)^2) ([Pi] Erfi[
- 1/4 ((-2 + 50629 I) + Sqrt[-2562890621 - 112500 I] - 4 d)] -
- Log[(-2 + 50629 I) + Sqrt[-2562890621 - 112500 I] - 4 d] -
- Log[1/((2 - 50629 I) - Sqrt[-2562890621 - 112500 I] +
- 4 d)]) + ((-2 + 28125 I) + Sqrt[-2562890621 - 112500 I] -
- 4500 I Sqrt[70]) E^(-(1/
- 16) ((2 - 50629 I) + Sqrt[-2562890621 - 112500 I] +
- 4 d)^2) ([Pi] Erfi[
- 1/4 ((2 - 50629 I) + Sqrt[-2562890621 - 112500 I] + 4 d)] +
- Log[(-2 + 50629 I) - Sqrt[-2562890621 - 112500 I] - 4 d] +
- Log[1/((2 - 50629 I) + Sqrt[-2562890621 - 112500 I] + 4 d)]))
- Plot[Im[f[d]],{d,-10,10}]
Add Comment
Please, Sign In to add comment